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

⟦dcaf8c30b⟧ TextFile

    Length: 1898 (0x76a)
    Types: TextFile
    Names: »TEST.X21«

Derivation

└─⟦7d52498cf⟧ Bits:30005127 8" CR80 Floppy CR80FD_0087 ( FAT1 TDX TEST PROGRAM VOL: FLOPPY 96.03.20KV )
    └─⟦300c0b4c9⟧ 
        └─ ⟦this⟧ »TEST.X21« 
└─⟦82c820f12⟧ Bits:30005487 8" CR80 Floppy CR80FD_0209 ( VOL: FLOPPY FD 0 #3 TDX Test progr HOST/LTUX MASSOURCE Backup af x 2 heads 880419 )
    └─⟦332002524⟧ 
        └─ ⟦this⟧ »TEST.X21«

TextFile

PROCEDURE SLUT
BEGIN
  INITREAD #1F2F 4 DUMP
  APPEND #1F2F 1 (#84)                    "CLOSE TRUNK"
  WAITINIT 100
  INITREAD #1F2F 4 DUMP
  APPEND #1F2F 1 (#86)                   "NPDN CLOSE DOWN"
  WAITINIT 100
  LIST OPERATIONS
  CANCEL CRID #1F0F
  CANCEL CRID #1F2F
  CANCEL CRID #1F3F
  DISMANTLE #1F0F
  DISMANTLE #1F2F
  DISMANTLE #1F3F
END
PROCEDURE RA(N)
BEGIN
  "LOOP-BACK TEST RUNNING
  REPEAT N
  BEGIN
    INITREAD #1F3F 87 EXPECT PATTERN 2   "SETUP READ OF BUFFER"
    APPEND #1F3F 11 PATTERN 1            "SEND TESTPATTERN"
    WAITINIT 100
  END
END
BEGIN
  DEFINE PATTERN 1 = 'TRUNK TEST(:10:)(:10:)'
  DEFINE PATTERN 2 = 'TRUNK TEST(:10:)MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM'
"
"****   INIT DEVICE #1F SUBDEVICE 0+2+3   ****
"-----------------------------------------------
"
  CREATE 0 #1F0F 5 16                   "CREATE LOG LINE SUBDEV 0"
  APPEND #1F0F 0 (#0004)                   "SYNCRONIZE LTUX"
  INITREAD #1F0F 4 DUMP                "SETUP RESPONSE READ"
  APPEND #1F0F 6 (#0001 #187F #1F01)    "OPEN SUBDEV 0"
  WAITINIT 10
  CREATE 0 #1F2F 2 16                   "CREATE LOG LINE SUBDEV 2"
  INITREAD #1F0F 4 DUMP                "SETUP RESPONSE READ"
  APPEND #1F0F 6 (#2001 #187F #1F21)    "OPEN SUBDEV 2"
  WAITINIT 10
  INITREAD #1F2F 4 DUMP
  APPEND #1F2F 8 (#00C2 #5801 #3158 #0000)  "TRUNK ID LOADED"
  WAITINIT 10
  DISMANTLE #1F0F
  CREATE 0 #1F0F 5 16
  APPEND #1F0F 0 (#0004)
  CREATE 0 #1F3F 8 518                  "CREATE LOG LINE SUBDEV 3"
  INITREAD #1F0F 4 DUMP                "SETUP RESPONSE READ"
  APPEND #1F0F 6 (#3001 #187F #1F31)    "OPEN SUBDEV 3"
  WAITINIT 10
  INITREAD #1F2F 4 DUMP                 "SETUP RESPONSE READ"
  APPEND #1F2F 1 (#84)                  "NPDN CALL UP"
  WAITINIT 100
  INITREAD #1F2F 4 DUMP
  APPEND #1F2F 1 (#87)                  "OPEN TRUNK"
  WAITINIT 100
  CONSOLE IN
END