DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦7bd172725⟧ TextFile

    Length: 2368 (0x940)
    Types: TextFile
    Names: »TLEPARAMS.S«

Derivation

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP005_V0501.D!CSS886.D!TLEPARAMS.S« 

TextFile

"--------------------------------------------------------------------
"
"  PROJECT:               CSS
"
"  MODULE NAME:           DRIVER SUPPORT PROCEDURES PARAMS (TLEPARAMS)
"  MODULE ID NMB:         CSS/886
"  MODULE VERSION:        0101
"  MODULE TYPE:           PREFIX
"  MODULE FILES:          N.A.
"  MERGE FILES:           -
"
"  SPECIFICATIONS:        CSS/357/PSP/100
"  AUTHOR/DATE:           JAS/840629
"
"  DELIVERABLE:           YES
"  SOURCE LANGUAGE:       SWELL
"  COMPILE COMPUTER:      CR80
"  TARGET COMPUTER:       CR80/CR80MX
"  OPERATING SYSTEM:      AMOS/XAMOS/MX-AMOS
"
"--------------------------------------------------------------------
"
"  CHANGE RECORD
"
"  VERSION    AUTHOR/DATE   DESCRIPTION OF CHANGE
"  -------    -----------   ---------------------
"
"--------------------------------------------------------------------
"«ff»

"Transfer message from I/O system

TYPE
  DMAMSG =
    RECORD
      OP:         INTEGER;      "Command, section for TLEs
      XLA:        INTEGER;      "Abs address of first TLE
      PORT:       INTEGER;      "Port number
      GROUP:      LONG;         "Port group name
    END;

"Message command definitions

CONST
      DMACMP  = 8;    DMACML  = 8;

CONST
      DMAABT  = 0;              "Abort
      DMATXF  = 1;              "Transfer


" Definition of Extended TLE

TYPE
  XTLE =
    RECORD                      "(First 5 words as TLE)
      OP:         INTEGER;      "Command, section for buffer
      LINK:       INTEGER;      "Address of next TLE
      COUNT:      INTEGER;      "Byte count (updated)
      ADDR:       INTEGER;      "Abs addr of data (updated)
      OFFSET:     INTEGER;      "Relative byte offset of data (updated)
      XFER_SC:    INTEGER;      "Section for xfer list (set by INXFPR)
      BUFF_SC:    INTEGER;      "Section for buffer (set by NXFER)
      CNT:        INTEGER;      "Original byte count for TLE (set by NXFER)
      LNG:        INTEGER;      "Data length for xfer list (not used by transfer procedures)
      REGS:       REGISTERS;    "Save area for transfer procedures
    END;

"TLE command definitions

CONST
      XFECMP  = 8;    XFECML  = 8;

CONST
      XFCINP  = 0;              "Input
      XFCOUT  = 1;              "Output
      XFCTRM  = 2;              "Terminate
      XFCSKP  = 3;              "Skip
      XFCSTL  = 4;              "Skip to last