* %GOTO CD0PLS; /* BILINGUAL HEADER 00300010 MACRO 00600010 TCD0D 00900010 .*A000000-999999 @Y17XAXF 01200010 * 01500010 * FID0 COMMAND CODES 01800010 * 02100010 SPACE 02400010 CD0READ EQU X'01' . READ COMMANDS 02700010 * 03000010 * READ MODIFIERS 03300010 * 03600010 CD0R EQU X'00' . READ NORMAL 03900010 CD0RB EQU X'01' . READ BLOCK 04200010 CD0RM EQU X'02' . READ MESSAGE 04500010 CD0RT EQU X'03' . READ TRANSMISSION 04800010 CD0RD EQU X'04' . READ TRANSMISSION DISCONNECT 05100010 CD0RI EQU X'05' READ WITH INVITE 05400010 SPACE 05700010 CD0WRT EQU X'02' . WRITE COMMAND 06000010 * 06300010 * WRITE MODIFIERS 06600010 * 06900010 CD02 EQU X'00' . WRITE NORMAL 07200010 CD0WM EQU X'01' . WRITE WITH EOM 07500010 CD0WT EQU X'02' . WRITE WITH EOT 07800010 CD0WD EQU X'03' . WRITE WITH DISCONNECT 08100010 CD0WR EQU X'06' . WRITE WITH READ 08400010 CD0WI EQU X'07' . WRITE WITH INVITE 08700010 CD0WC EQU X'08' WRITE WITH CONTACT 09000010 CD0WCM EQU X'09' . WRITE WITH CONTACT(EXT) 09300010 CD0WCT EQU X'0A' . WRITE WITH CONTACT(EOT) 09600010 CD0WCD EQU X'0B' . WRITE WITH CONTACT AND DISCONN 09900010 CD0WCR EQU X'0E' . WRITE WITH CONTACT AND READ 10200010 SPACE 10500010 CD0TEST EQU X'03' . TEST COMMAND 10800010 * 11100010 * TEST MODIFIERS 11400010 * 11700010 CD0T EQU X'00' . TEST DEVICE NORMAL 12000010 CD0TC EQU X'01' . TEST DEVICE WITH CONTACT 12300010 CD0TD EQU X'02' . TEST DEVICE WITH DISCONNECT 12600010 CD0TCD EQU X'03' . TEST DEV WITH CDNTACT & DISCONN 12900010 CD0TI EQU X'04' . TEST LINE NORMAL 13200010 CD0TIC EQU X'05' . TEST LINE WITH CONTACT 13500010 CD0TID EQU X'06' . TEST LINE WITH DISCONNECT 13800010 CD0TICD EQU X'07' . TEST LINE WITH CONTACT & DISCON 14100010 SPACE 14400010 CD0REST EQU X'04' . RESTART COMMAND 14700010 * 15000010 * RESTART MODIFIERS 15300010 * 15600010 CD0RLINE EQU X'00' . LINE 15900010 CD0RDEV EQU X'01' . DEVICE 16200010 CD0RLSES EQU X'02' . REP SESSION INIT INFO FOR LINE 16500010 CD0RDSES EQU X'04' . REP SESSION INIT INFO FOR DEV 16800010 SPACE 17100010 CD0INV EQU X'05' . INVITE COMMAND 17400010 * 17700010 * INVITE MODIFIERS 18000010 * 18300010 CD0I EQU X'00' . INVITE NORMAL 18600010 CD0IB EQU X'01' . INVITE BLOCK 18900010 CD0IM EQU X'02' . INVITE MESSAGE 19200010 CD0IT EQU X'03' . INVITE TRANSMISSION 19500010 CD0ID EQU X'04' . INVITE TRANSMISSION WITH DISCON 19800010 CD0IA EQU X'05' . INVITE WITH AUTO RESTART 20100010 CD0IP EQU X'06' . INVITE PERPETUAL 20400010 SPACE 20700010 CD0CONT EQU X'06' . CONTACT COMMAND 21000010 * 21300010 * CONTACT MODIFIERS 21600010 * 21900010 CD0C EQU X'00' . CONTACT NORMAL 22000010 CD0CRSID EQU X'01' . CONTACT/RETURN RSID 22100010 SPACE 22200010 CD0DISC EQU X'07' . DISCONNECT COMMAND 22500010 * 22800010 * DISCONNECT MODIFIERS 23100010 * 23400010 CD0D EQU X'00' . DISCONNECT NORMAL 23700010 CD0DI EQU X'01' . DISCONNECT WITH INVITE 24000010 CD0DE EQU X'02' . DISCONNECT WITH END-OF-CALL 24300010 CD0DEI EQU X'03' . DISCONNECT WITH EOC AND INVITE 24600010 SPACE 24900010 CD0CTRL EQU X'08' . CONTROL COMMAND 25200010 * 25500010 * CONTROL MODIFIERS 25800010 * 26100010 CD0CDISL EQU X'01' . DISPLAY LINE STATUS 26400010 CD0CRSII EQU X'02' . REP SESS INIT INFO FOR A LINE 26700010 CD0CAI EQU X'03' . ACTIVATES INVITES 27000010 CD0CDI EQU X'04' . DEACTIVATES INVITES 27300010 CD0CCSII EQU X'05' . COPY SESS INIT INFO 27600010 CD0CDDS EQU X'06' . DISPLAY DEVICE STATUS 27900010 CD0CRDS EQU X'07' . REQ DEV STATISTICS 28200010 CD0CDS EQU X'08' . DISPLAY STORAGE 28500010 CD0CSTD EQU X'09' . SET TIME AND DATE 28800010 CD0CSCMS EQU X'0A' . SET CHANNEL MODE SECONDARY 29100010 CD0CDLNA EQU X'0B' . DISPLAY LINE'S NETWORK ADDR 29400010 CD0CALT EQU X'0C' . ACTIVATE LINE TRACE 29700010 CD0CTLT EQU X'0D' . TERMINATE LINE TRACE 30000010 CD0CCMS EQU X'12' . CHANGE MODEM SPEED 30300010 CD0CSCMP EQU X'15' . SET CHANNEL MODE PRIMARY 30600010 CD0CCDM EQU X'18' . COPY DESTINATION MODE 30900010 CD0CPD EQU X'1C' . PHYSICAL DISCONNECT 31200010 CD0CCDSI EQU X'21' . COPY DEV SESSION INFO 31500010 CD0CRDSI EQU X'22' . REP DEV SESSION INFO 31800010 CD0CREL EQU X'41' . RESET ERROR LOCK 32100010 CD0CRDQ EQU X'42' . RESET DEVICE QUEUES 32400010 CD0CRCMR EQU X'43' . REQ CONTROLMODE RESET 32700010 CD0CRI EQU X'44' . RESET IMMEDIATE 33000010 CD0CROTT EQU X'48' . RESET ONLINE TERMINAL TEST 33300010 CD0CSTB EQU X'4A' . SWITCH TO BACKUP 33600010 CD0CSBTP EQU X'4C' . SWITCH FROM BACKUP TO PRIMARY 33900010 CD0CRINV EQU X'4D' . RESET INVITE 34200010 CD0CRC EQU X'50' . RESET CONDITIONAL 34500010 CD0CREOC EQU X'60' . RESET AT ENDOF COMMAND 34800010 CD0UNSIP EQU X'77' . UNSOLICITED RESPONSE 35100010 CD0CSEP EQU X'82' . SWITCH TO EP MODE 35400010 CD0CSNCP EQU X'83' . SWITCH TO NCP MODE 35700010 CD0CCLSP EQU X'84' . CHGE LINE SERVICE-SEEKING PAUSE 36000010 CD0CCLNR EQU X'85' . CHGE LINE NEG POLL RSP LIMIT 36300010 CD0CCSL EQU X'86' . CHGE SESSION LIMIT 36600010 CD0CCDTL EQU X'8C' . CHGE DEV TRANSMISSION LIMIT 36900010 CD0CMBHS EQU X'8D' . MODIFY BLK HANDLER SET ASSOC 37200010 CD0CAL EQU X'98' . ACTIVATE LINE 37500010 CD0CD0 EQU X'99' . DEACTIVATE ORDERLY 37800010 CD0CSDM EQU X'9A' . SET DESTINATION MODE 38100010 CD0CDLH EQU X'C2' . DEACTIVATE LINE HALT 38400010 MEND 38700010 * */ 39000010 *%CD0PLS:; 39300010 */* */ 39600010 */* FID0 COMMAND CODES */ 39900010 */* */ 40200010 * 40500010 *DCL CD0READ BIT(8) CONSTANT('01'X); /* READ COMMAND */ 40800010 */* */ 41100010 */* READ MODIFIERS */ 41400010 */* */ 41700010 *DCL CD0R BIT(8) CONSTANT('00'X); /* READ NORMAL */ 42000010 *DCL CD0RB BIT(8) CONSTANT('01'X); /* READ BLOCK */ 42300010 *DCL CD0RM BIT(8) CONSTANT('02'X); /* READ MESSAGE */ 42600010 *DCL CD0RT BIT(8) CONSTANT('03'X); /* READ TRANSMISSION */ 42900010 *DCL CD0RD BIT(8) CONSTANT('04'X); /* READ TRANSMISSION DISCON */ 43200010 *DCL CD0RI BIT(8) CONSTANT('05'X); /* READ WITH INVITE */ 43500010 * 43800010 *DCL CD0WRT BIT(8) CONSTANT('02'X); /* WRITE COMMAND */ 44100010 */* */ 44400010 */* WRITE MODIFIERS */ 44700010 */* */ 45000010 *DCL CD0W BIT(8) CONSTANT('00'X); /* WRITE NORMAL */ 45300010 *DCL CD0WM BIT(8) CONSTANT('01'X); /* WRITE WITH EOM */ 45600010 *DCL CD0WT BIT(8) CONSTANT('02'X); /* WRITE WITH EOT */ 45900010 *DCL CD0WD BIT(8) CONSTANT('03'X); /* WRITE WITH DISCONNECT */ 46200010 *DCL CD0WR BIT(8) CONSTANT('06'X); /* WRITE WITH READ */ 46500010 *DCL CD0WI BIT(8) CONSTANT('07'X); /* WRITE WITH INVITE */ 46800010 *DCL CD0WC BIT(8) CONSTANT('08'X); /* WRITE WITH CONTACT */ 47100010 *DCL CD0WCM BIT(8) CONSTANT('09'X); /* WRITE WITH CONTACT(EXT) */ 47400010 *DCL CD0WCT BIT(8) CONSTANT('0A'X); /* WRITE WITH CONTACT(EOT) */ 47700010 *DCL CD0WCD BIT(8) CONSTANT('0B'X); /* WRITE WITH CONTACT & DISCON*/ 48000010 *DCL CD0WCR BIT(8) CONSTANT('0E'X); /* WRITE WITH CONTACT & READ */ 48300010 * 48600010 *DCL CD0TEST BIT(8) CONSTANT('03'X); /* TEST COMMAND */ 48900010 */* */ 49200010 */* TEST MODIFIERS */ 49500010 */* */ 49800010 *DCL CD0T BIT(8) CONSTANT('00'X); /* TEST DEVICE NORMAL */ 50100010 *DCL CD0TC BIT(8) CONSTANT('01'X); /* TEST DEVICE WITH CONTACT */ 50400010 *DCL CD0TD BIT(8) CONSTANT('02'X); /* TEST DEVICE WITH DISCONN */ 50700010 *DCL CD0TCD BIT(8) CONSTANT('03'X); /* TEST DEV WITH CONTACT & DIS*/ 51000010 *DCL CD0TI BIT(8) CONSTANT('04'X); /* TEST LINE NORMAL */ 51300010 *DCL CD0TIC BIT(8) CONSTANT('05'X); /* TEST LINE WITH CONTACT */ 51600010 *DCL CD0TID BIT(8) CONSTANT('06'X); /* TEST LINE WITH DISCONNECT */ 51900010 *DCL CD0TICD BIT(8) CONSTANT('07'X); /* TEST LINE WITH CONT & DISC */ 52200010 * 52500010 */* */ 52800010 */* RESTART MODIFIERS */ 53100010 */* */ 53400010 *DCL CD0RLINE BIT(8) CONSTANT('00'X); /* LINE */ 53700010 *DCL CD0RDEV BIT(8) CONSTANT('01'X); /* DEVICE */ 54000010 *DCL CD0RLSES BIT(8) CONSTANT('02'X); /* REP SESS INIT INFO FOR LINE*/ 54300010 *DCL CD0RDSES BIT(8) CONSTANT('04'X); /* REP SESS INIT INFO FOR DEV */ 54600010 * 54900010 *DCL CD0INV BIT(8) CONSTANT('05'X); /* INVITE COMMAND */ 55200010 */* */ 55500010 */* INVITE MODIFIERS */ 55800010 */* */ 56100010 *DCL CD0I BIT(8) CONSTANT('00'X); /* INVITE NCORMAL */ 56400010 *DCL CD0IB BIT(8) CONSTANT('01'X); /* INVITE BLOCK */ 56700010 *DCL CD0IM BIT(8) CONSTANT('02'X); /* INVITE MESSAGE */ 57000010 *DCL CD0IT BIT(8) CONSTANT('03'X); /* INVITE TRANSMISSION */ 57300010 *DCL CD0ID BIT(8) CONSTANT('04'X); /* INVITE TRANS WITH DISC */ 57600010 *DCL CD0IA BIT(8) CONSTANT('05'X); /* INVITE WITH AUTO RESTART */ 57900010 *DCL CD0IP BIT(8) CONSTANT('06'X); /* INVITE PERPETUAL */ 58200010 * 58500010 *DCL CD0CONT BIT(8) CONSTANT('06'X); /* CONTACT COMMAND */ 58800010 */* */ 59100010 */* CONTACT MODIFIERS */ 59400010 */* */ 59700010 *DCL CD0C BIT(8) CONSTANT('00'X); /* CONTACT NORMAL */ 60000010 *DCL CD0CRSID BIT(8) CONSTANT('01'X); /* CONTACT/RETURN RSID */ 60100010 * 60200010 *DCL CD0DISC BIT(8) CONSTANT('07'X); /* DISCONNECT COMMAND */ 60300010 */* */ 60600010 */* DISCONNECT MODIFIERS */ 60900010 */* */ 61200010 *DCL CD0D BIT(8) CONSTANT('00'X); /* DISCONNECT NORMAL */ 61500010 *DCL CD0DI BIT(8) CONSTANT('01'X); /* DISCONNECT WITH INVITE */ 61800010 *DCL CD0DE BIT(8) CONSTANT('02'X); /* DISCONNECT WITH END-OF-CALL*/ 62100010 *DCL CD0DEI BIT(8) CONSTANT('03'X); /* DISCONNECT WITH EOC AND INV*/ 62400010 * 62700010 *DCL CD0CTRL BIT(8) CONSTANT('08'X); /* CONTROL COMMAND */ 63000010 */* */ 63300010 */* CONTROL MODIFIERS */ 63600010 */* */ 63900010 *DCL CD0CDISL BIT(8) CONSTANT('01'X); /* DISPLAY LINE STATUS */ 64200010 *DCL CD0CRSII BIT(8) CONSTANT('02'X); /* REP SESS INIT INFO FOR LINE*/ 64500010 *DCL CD0CA8 BIT(8) CONSTANT('03'X); /* ACTIVATES INVITES */ 64800010 *DCL CD0CDI BIT(8) CONSTANT('04'X); /* DEACTIVATES INVITES */ 65100010 *DCL CD0CCSII BIT(8) CONSTANT('05'X); /* COPY SESS INIT INFO */ 65400010 *DCL CD0CDDS BIT(8) CONSTANT('06'X); /* DISPLAY DEVICE STATUS */ 65700010 *DCL CD0CRDS BIT(8) CONSTANT('07'X); /* REQ DEVICE STATISTICS */ 66000010 *DCL CD0CDS BIT(8) CONSTANT('08'X); /* DISPLAY STORAGE */ 66300010 *DCL CD0CSTD BIT(8) CONSTANT('09'X); /* SET TIME AND DATE */ 66600010 *DCL CD0CSCMS BIT(8) CONSTANT('0A'X); /* SET CHANNEL MODE SECONDARY */ 66900010 *DCL CD0CDLNA BIT(8) CONSTANT('0B'X); /* DISPLAY LINE'S NETWORK ADDR*/ 67200010 *DCL CD0CALT BIT(8) CONSTANT('0C'X); /* ACTIVATE LINE TRACE */ 67500010 *DCL CD0CTLT BIT(8) CONSTANT('0D'X); /* TERMINATE LINE TRACE */ 67800010 *DCL CD0CCMS BIT(8) CONSTANT('12'X); /* CHANGE MODEM SPEED */ 68100010 *DCL CD0CSCMP BIT(8) CONSTANT('15'X); /* SET CHANNEL MODE PRIMARY */ 68400010 *DCL CD0CCDM BIT(8) CONSTANT('18'X); /* COPY DESTINATION MODE */ 68700010 *DCL CD0CPD BIT(8) CONSTANT('1C'X); /* PHYSICAL DISCONNECT */ 69000010 *DCL CD0CCDSI BIT(8) CONSTANT('21'X); /* COPY DEV SESSION INFO */ 69300010 *DCL CD0CRDSI BIT(8) CONSTANT('22'X); /* REP DEV SESSION INFO */ 69600010 *DCL CD0CREL BIT(8) CONSTANT('41'X); /* RESET ERROR LOCK */ 69900010 *DCL CD0CRD1 BIT(8) CONSTANT('42'X); /* RESET DEVICE QUEUES */ 70200010 *DCL CD0CRCMR BIT(8) CONSTANT('43'X); /* REQ CONTROL MODE RESET */ 70500010 *DCL CD0CRI BIT(8) CONSTANT('44'X); /* RESET IMMEDIATE */ 70800010 *DCL CD0CROTT BIT(8) CONSTANT('48'X); /* RESET ONLINE TERMINAL TEST */ 71100010 *DCL CD0CSTB BIT(8) CONSTANT('4A'X); /* SWITCH TO BACKUP */ 71400010 *DCL CD0CSBTP BIT(8) CONSTANT('4C'X); /* SWITCH FROM BACKUP TO PRIM */ 71700010 *DCL CD0CRINV BIT(8) CONSTANT('4D'X); /* RESET INVITE */ 72000010 *DCL CD0CRC BIT(8) CONSTANT('50'X); /* RESET CONDITIONAL */ 72300010 *DCL CD0CREOC BIT(8) CONSTANT('60'X); /* RESET AT END OF COMMAND */ 72600010 *DCL CD0UNSIP BIT(8) CONSTANT('77'X); /* UNSOLICITED RESPONSE */ 72900010 *DCL CD0CSEP BIT(8) CONSTANT('82'X); /* SWITCH TO EP MODE */ 73200010 *DCL CD0CSNCP BIT(8) CONSTANT('83'X); /* SWITCH TO NCP MODE */ 73500010 *DCL CD0CCLSP BIT(8) CONSTANT('84'X); /* CHGE LINE SERV-SEEKING PAUS*/ 73800010 *DCL CD0CCLNR BIT(8) CONSTANT('85'X); /* CHGE LINE NEG POLL RSP LIM */ 74100010 *DCL CD0CCSL BIT(8) CONSTANT('86'X); /* CHGE SESSION LIMIT */ 74400010 *DCL CD0CCDTL BIT(8) CONSTANT('8C'X); /* CHGE DEV TRANSMISSION LIMIT*/ 74700010 *DCL CD0CMBHS BIT(8) CONSTANT('8D'X); /* MOD BLK HANDLER SET ASSOC */ 75000010 *DCL CD0CAL BIT(8) CONSTANT('98'X); /* ACTIVATE LINE */ 75300010 *DCL CD0CD0 BIT(8) CONSTANT('99'X); /* DEACTIVATE ORDERLY */ 75600010 *DCL CD0CSDM BIT(8) CONSTANT('9A'X); /* SET DESTINATION MODE */ 75900010 *DCL CD0CDLH BIT(8) CONSTANT('C2'X); /* DEACTIVATE LINE HALT */ 76200010