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

⟦78d18d9b9⟧ TextFile

    Length: 4260 (0x10a4)
    Types: TextFile
    Names: »TEMP.COM«

Derivation

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

TextFile

BEGIN
"
"******************* INITIALIZING OF X25 UNIT 1  ****************
"******************* CONNECTION OF LEVEL 1 **********************
"
"                                   DEVICE ADDRESS = #34
CREATE 0 #340F 7 16                "CREATE LOG LINE FOR SUBDEVICE 0

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

APPEND #340F 0 (3434)              "SYNCHRONIZE LTUX

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

APPEND #340F 6 (#3001 #107F #3431) "OPEN SUBDEVICE 3

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

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

APPEND #343F 2 (#0507)             "CLOSE THE LINK ON CHANNEL 3(IF CONNECTED)

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

APPEND #343F 8 (#0307 #0001 #FFFF #0D20) "REOPEN THE LINK ON CHANNEL 3

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

APPEND #343F 6 (#0307 #0011 #C0C0) "READ CIRCUIT 106 AND 107(CTS - DSR) ON CHANNEL 3

APPEND #343F 6 (#0307 #0006 #0C0C) "SETUP CIRCUIT 105 AND 107 (RTS - DTR) ON CHANNEL 3

APPEND #343F 6 (#0307 #0011 #C0C0) "READ CIRCUIT 106 AND 107(CTS - DSR) ON CHANNEL 3

APPEND #343F 4 (#0307 #0004)       "SETUP THE LINE FOR CHANNEL 1

LIST OPERATIONS

"
"******************* INITIALIZING OF X25 UNIT 2  ****************
"******************* SETUP OF V24 SIGNALS ***********************
"
"                                   DEVICE ADDRESS = #35 , #34
INITREAD #343F 128 DUMP            "SETUP A READ BUFFER FOR RESPONSE FROM SUBDEVICE 3

CREATE 0 #350F 7 16                  "

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

APPEND #350F 0 (3535)              "SYNCHRONIZE LTUX

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

APPEND #350F 6 (#3001 #107F #3531) "OPEN SUBDEVICE 3

CREATE 0 #353F 7 128               "

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

APPEND #353F 2 (#0507)             "CLOSE THE LINK ON CHANNEL 3(IF CONNECTED)

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

APPEND #353F 8 (#0307 #0001 #FFFF #0D20) "REOPEN THE LINK ON CHANNEL 3

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

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

APPEND #353F 6 (#0307 #0011 #C0C0) "READ THE CIRCUITS 106 AND 107( CTS - DSR )ON CHANNEL 3

APPEND #353F 6 (#0307 #0006 #0C0C) "SETUP OF CIRCUIT 105 AND 107 ( RTS - DTR )ON CHANNEL 3

APPEND #353F 6 (#0307 #0011 #C0C0) "READ THE CIRCUITS 106 AND 107( CTS - DSR )ON CHANNEL 3

"******************* CONNECTION OF LEVEL 1 **********************

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

APPEND #353F 3 (#0307 #04)         "SETUP THE LINE AT LEVEL 1 ON CHANNEL 3

WAITINIT 300                       "WAIT MAX 1 MINUTE FOR INPUT

LIST OPERATIONS

"
"******************* CONNECTION OF LEVEL 2 **********************
"
"                                   DEVICE ADDRESS = #34, #35
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

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 #0002)       "SETUP THE LINE AT LEVEL 2 ON CHANNEL 3

APPEND #353F 4 (#0307 #0002)       "SETUP THE LINE AT LEVEL 2 ON CHANNEL 3

WAITINIT 300                       "WAIT MAX 1 MINUTE FOR INPUT

LIST OPERATIONS

END