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

⟦18ae23e4a⟧ TextFile

    Length: 1316 (0x524)
    Types: TextFile
    Names: »DISCX25_2.COM«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »USERS.D!X25.D!UNIT_TEST.D!DISCX25_2.COM« 

TextFile

BEGIN
"
"******************* DISCONNECTION OF LEVEL 1 *******************
"
"                                   DEVICE ADDRESS = #34, #35
CREATE 0 #340F 7 16                "CREATE LOG LINE FOR #34 SUB 0

CREATE 0 #343F 7 128               "CREATE LOG LINE FOR #34 SUB 3

INITREAD #340F 16 DUMP             "SETUP A READ BUFFER FOR RESPONSE FROM SUBDEVICE 0

INITREAD #343F 128 DUMP            "SETUP A READ BUFFER FOR RESPONSE FROM SUBDEVICE 3

INITREAD #343F 128 DUMP            "SETUP A READ BUFFER FOR RESPONSE FROM SUBDEVICE 3

CREATE 0 #350F 7 16                "CREATE LOG LINE FOR #35 SUB 0

CREATE 0 #353F 7 128               "CREATE LOG LINE FOR #35 SUB 3

INITREAD #350F 16 DUMP             "SETUP A READ BUFFER FOR RESPONSE FROM SUBDEVICE 0

INITREAD #353F 128 DUMP            "SETUP A READ BUFFER FOR RESPONSE FROM SUBDEVICE 3

INITREAD #353F 128 DUMP            "SETUP A READ BUFFER FOR RESPONSE FROM SUBDEVICE 3

APPEND #343F 4 (#0307 #0005)       "REPORT STATUS REQUEST DISC LINE

APPEND #353F 4 (#0307 #0005)       "REPORT STATUS REQUEST DISC LINE

APPEND #343F 6 (#0307 #0006 #0303) "RESET V24 LINES CIRCUIT 105 AND 108(RTS DTR)

APPEND #343F 6 (#0307 #0006 #0303) "RESET V24 LINES CIRCUIT 105 AND 108(RTS DTR)

WAITINIT 300                       "WAIT MAX 1 MINUTE FOR INPUT

LIST OPERATIONS

END