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

⟦a81b41cee⟧ TextFile

    Length: 2894 (0xb4e)
    Types: TextFile
    Names: »DMADRVPARAMS.S«

Derivation

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!SWELL.D!DMADRVPARAMS.S« 
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »GENS.D!SWELLPREFIX.D!DMADRVPARAMS.S« 
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!SWELL.D!DMADRVPARAMS.S« 
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP005_V0501.D!CSS876.D!DMADRVPARAMS.S« 

TextFile

"-----------------------------------------------------------------------
"
"
"  MODULE NAME:      DMA DRIVER PARAMETERS (DMADRVPARAMS)
"  MODULE ID NMB:    CSS/876
"  MODULE VERSION:   0101
"  MODULE TYPE:      PREFIX
"  MERGE  FILES:     -
"  
"  SPECIFICATIONS:   -
"  AUTHOR/DATE:      JSL/800603
"
"  DELIVERABLE:      -
"  SOURCE LANGUAGE:  SWELL
"  COMPILE COMPUTER: CR80
"  TARGET COMPUTER:  CR80
"  OPER. SYSTEM:     AMOS
"
"-----------------------------------------------------------------------
"
"  CHANGE RECORD
"
"  VERSION    AUTHOR/DATE    DESCRIPTION OF CHANGE
"  -------    -----------    ---------------------
"
"-----------------------------------------------------------------------
"PAGE«ff»
TYPE  DMADRV_MESSAGE =
        RECORD
          OPERATION:        INTEGER;
          TRANSFER_LIST:    ABSPTR;     "IN CASE ABORT = EVENT_ID
          PORT_NUMBER:      INTEGER;
          GNAME:            GROUP_NAME;
        END;
  
"COMPOSITION OF DMADRV_MESSAGE.OPERATION FIELD:
CONST
      DMA_SCP  = 2;  DMA_SCL  = 2;        "SECTION FIELD
      DMA_CMP  = 8;  DMA_CML  = 8;        "COMMAND FIELD
  
"COMMANDS
CONST
      DMA_ABORT        = 0;              "ABORT OPERATION
      DMA_TRANSFER     = 1;              "TRANSFER
      DMA_CREATE       = 2;              "CREATE PORT GROUP
      DMA_INITIALISE   = 3;              "INITIALISE
  
TYPE  DMADRV_COMMAND = DMA_ABORT..DMA_INITIALISE;
  
TYPE  DMADRV_ANSWER   = 
        RECORD
          RESULT:       INTEGER;        "STANDARD
          CC:           COMPLETION_CODE;
          PORT_NUMBER:  INTEGER;
          GNAME:        GROUP_NAME;
        END;
  
"RESULTS
CONST
      DMA_OK           = 0;              "TRANSFER OK
      DMA_PORTERR      = 1;              "PORT ERROR
      DMA_ILLCMD       = 2;              "ILLEGAL COMMAND
      DMA_TLEERR       = 3;              "TRANSFER LIST ERROR
      DMA_TXERR        = 4;              "TRANSMISSION ERROR
      DMA_ABORTED      = 5;              "DMA ABORTED
  
TYPE  TRANSFER_LIST_ELEMENT =
        RECORD
          CMD_SECTION:  INTEGER;        "COMPOUND
          LINK:         ABSPTR;         "POINTER TO NEXT XLE
          BYTE_COUNT:   INTEGER;        "BYTE_COUNT/SKIP_COUNT
          BUFFER_ADDR:  ABSPTR;
          BYTE_OFFSET:  INTEGER;        "IN BUFFER
        END;
  
TYPE  XLE = TRANSFER_LIST_ELEMENT;
  
"COMPOSITION OF XLE.CMD_SECTION:
CONST
      XLE_SCP  = 2;  XLE_SCL  = 2;        "SECTION FIELD
      XLE_CMP  = 8;  XLE_CML  = 8;        "COMMAND FIELD
  
"COMMANDS
CONST
      XLE_INPUT        = 0;              "INPUT TRANSFER
      XLE_OUTPUT       = 1;              "OUTPUT TRANSFER
      XLE_TERMINATE    = 2;              "TERMINATE TRANSFERS
      XLE_SKIPN        = 3;              "SKIP N TRANSFERS
      XLE_SKIPTOLAST   = 4;              "SKIP TO LAST TRANSFER
  
TYPE  XLE_COMMAND = XLE_INPUT..XLE_SKIPTOLAST;
  







"END OF DMADRVPARAMS