|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5852 (0x16dc)
Types: TextFile
Names: »TEMP1.COM«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »USERS.D!X25.D!TEST.D!TEMP1.COM«
└─ ⟦this⟧ »USERS.D!X25.D!UNIT_TEST.D!TEMP1.COM«
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 " "******************* DISCONNECTION 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 APPEND #343F 4 (#0307 #0003) "REPORT STATUS REQUEST DISC LINK APPEND #353F 4 (#0307 #0003) "REPORT STATUS REQUEST DISC LINK WAITINIT 300 "WAIT MAX 1 MINUTE FOR INPUT LIST OPERATIONS BEGIN " "******************* DISCONNECTION OF LEVEL 1 ******************* " " 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 #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 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 #353F 6 (#0307 #0006 #0303) "RESET V24 LINES CIRCUIT 105 AND 108(RTS DTR) LIST OPERATIONS END