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

⟦1274496e3⟧ TextFile

    Length: 628 (0x274)
    Types: TextFile
    Names: »ASSIGN.S«

Derivation

└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
    └─⟦d066df9e9⟧ 
        └─ ⟦this⟧ »ASSIGN.S«

TextFile

«ff»
"ASSIGN.S"
"----------------"

PROCEDURE INT_ASSIGN(PC, SP : INTEGER;VAR CC : COMPLETION_CODE);
"**********************************************************************
  AUTHOR:           TLM
  DATE:             810323
***********************************************************************
  COMMENTS:
**********************************************************************"
VAR   DESCRIPTION :  DEVICE_DESCRIPTION;
BEGIN
   VM := CODE[PC + XVARMASK];
   GET_PARAMETER(VM, 1, PC, SP, DESCRIPTION.DEVICE_ADDR);
   GET_PARAMETER(VM, 2, PC, SP, DESCRIPTION.UNIT);

   ASSIGN(CURRENT_DRIVER, DESCRIPTION, CC);
END; " INT_ASSIGN "