* %GOTO CMD0PLS; /* BILINGUAL HEADER 00300000 MACRO 00600000 TCMD0D 00900000 .*A000000-999999 @Y17XAXF 01200000 * 01500000 * FID0 COMMAND CODES 01800000 * 02100000 SPACE 02400000 CD0READ EQU X'01' . READ COMMANDS 02700000 * 03000000 * READ MODIFIERS 03300000 * 03600000 CD0R EQU X'00' . READ NORMAL 03900000 CD0RB EQU X'01' . READ BLOCK 04200000 CD0RM EQU X'02' . READ MESSAGE 04500000 CD0RT EQU X'03' . READ TRANSMISSION 04800000 CD0RD EQU X'04' . READ TRANSMISSION DISCONNECT 05100000 CD0RI EQU X'05' READ WITH INVITE 05400000 SPACE 05700000 CD0WRT EQU X'02' . WRITE COMMAND 06000000 * 06300000 * WRITE MODIFIERS 06600000 * 06900000 CD02 EQU X'00' . WRITE NORMAL 07200000 CD0WM EQU X'01' . WRITE WITH EOM 07500000 CD0WT EQU X'02' . WRITE WITH EOT 07800000 CD0WD EQU X'03' . WRITE WITH DISCONNECT 08100000 CD0WR EQU X'06' . WRITE WITH READ 08400000 CD0WI EQU X'07' . WRITE WITH INVITE 08700000 CD0WC EQU X'08' WRITE WITH CONTACT 09000000 CD0WCM EQU X'09' . WRITE WITH CONTACT(EXT) 09300000 CD0WCT EQU X'0A' . WRITE WITH CONTACT(EOT) 09600000 CD0WCD EQU X'0B' . WRITE WITH CONTACT AND DISCONN 09900000 CD0WCR EQU X'0E' . WRITE WITH CONTACT AND READ 10200000 SPACE 10500000 CD0TEST EQU X'03' . TEST COMMAND 10800000 * 11100000 * TEST MODIFIERS 11400000 * 11700000 CD0T EQU X'00' . TEST DEVICE NORMAL 12000000 CD0TC EQU X'01' . TEST DEVICE WITH CONTACT 12300000 CD0TD EQU X'02' . TEST DEVICE WITH DISCONNECT 12600000 CD0TCD EQU X'03' . TEST DEV WITH CDNTACT & DISCONN 12900000 CD0TI EQU X'04' . TEST LINE NORMAL 13200000 CD0TIC EQU X'05' . TEST LINE WITH CONTACT 13500000 CD0TID EQU X'06' . TEST LINE WITH DISCONNECT 13800000 CD0TICD EQU X'07' . TEST LINE WITH CONTACT & DISCON 14100000 SPACE 14400000 CD0REST EQU X'04' . RESTART COMMAND 14700000 * 15000000 * RESTART MODIFIERS 15300000 * 15600000 CD0RLINE EQU X'00' . LINE 15900000 CD0RDEV EQU X'01' . DEVICE 16200000 CD0RLSES EQU X'02' . REP SESSION INIT INFO FOR LINE 16500000 CD0RDSES EQU X'04' . REP SESSION INIT INFO FOR DEV 16800000 SPACE 17100000 CD0INV EQU X'05' . INVITE COMMAND 17400000 * 17700000 * INVITE MODIFIERS 18000000 * 18300000 CD0I EQU X'00' . INVITE NORMAL 18600000 CD0IB EQU X'01' . INVITE BLOCK 18900000 CD0IM EQU X'02' . INVITE MESSAGE 19200000 CD0IT EQU X'03' . INVITE TRANSMISSION 19500000 CD0ID EQU X'04' . INVITE TRANSMISSION WITH DISCON 19800000 CD0IA EQU X'05' . INVITE WITH AUTO RESTART 20100000 CD0IP EQU X'06' . INVITE PERPETUAL 20400000 SPACE 20700000 CD0CONT EQU X'06' . CONTACT COMMAND 21000000 * 21300000 * NO CONTACT MODIFIERS 21600000 * 21900000 SPACE 22200000 CD0DISC EQU X'07' . DISCONNECT COMMAND 22500000 * 22800000 * DISCONNECT MODIFIERS 23100000 * 23400000 CD0D EQU X'00' . DISCONNECT NORMAL 23700000 CD0DI EQU X'01' . DISCONNECT WITH INVITE 24000000 CD0DE EQU X'02' . DISCONNECT WITH END-OF-CALL 24300000 CD0DEI EQU X'03' . DISCONNECT WITH EOC AND INVITE 24600000 SPACE 24900000 CD0CTRL EQU X'08' . CONTROL COMMAND 25200000 * 25500000 * CONTROL MODIFIERS 25800000 * 26100000 CD0CDISL EQU X'01' . DISPLAY LINE STATUS 26400000 CD0CRSII EQU X'02' . REP SESS INIT INFO FOR A LINE 26700000 CD0CAI EQU X'03' . ACTIVATES INVITES 27000000 CD0CDI EQU X'04' . DEACTIVATES INVITES 27300000 CD0CCSII EQU X'05' . COPY SESS INIT INFO 27600000 CD0CDDS EQU X'06' . DISPLAY DEVICE STATUS 27900000 CD0CRDS EQU X'07' . REQ DEV STATISTICS 28200000 CD0CDS EQU X'08' . DISPLAY STORAGE 28500000 CD0CSTD EQU X'09' . SET TIME AND DATE 28800000 CD0CSCMS EQU X'0A' . SET CHANNEL MODE SECONDARY 29100000 CD0CDLNA EQU X'0B' . DISPLAY LINE'S NETWORK ADDR 29400000 CD0CALT EQU X'0C' . ACTIVATE LINE TRACE 29700000 CD0CTLT EQU X'0D' . TERMINATE LINE TRACE 30000000 CD0CCMS EQU X'12' . CHANGE MODEM SPEED 30300000 CD0CSCMP EQU X'15' . SET CHANNEL MODE PRIMARY 30600000 CD0CCDM EQU X'18' . COPY DESTINATION MODE 30900000 CD0CPD EQU X'1C' . PHYSICAL DISCONNECT 31200000 CD0CCDSI EQU X'21' . COPY DEV SESSION INFO 31500000 CD0CRDSI EQU X'22' . REP DEV SESSION INFO 31800000 CD0CREL EQU X'41' . RESET ERROR LOCK 32100000 CD0CRDQ EQU X'42' . RESET DEVICE QUEUES 32400000 CD0CRCMR EQU X'43' . REQ CONTROLMODE RESET 32700000 CD0CRI EQU X'44' . RESET IMMEDIATE 33000000 CD0CROTT EQU X'48' . RESET ONLINE TERMINAL TEST 33300000 CD0CSTB EQU X'4A' . SWITCH TO BACKUP 33600000 CD0CSBTP EQU X'4C' . SWITCH FROM BACKUP TO PRIMARY 33900000 CD0CRINV EQU X'4D' . RESET INVITE 34200000 CD0CRC EQU X'50' . RESET CONDITIONAL 34500000 CD0CREOC EQU X'60' . RESET AT ENDOF COMMAND 34800000 CD0CSEP EQU X'82' . SWITCH TO EP MODE 35100000 CD0CSNCP EQU X'83' . SWITCH TO NCP MODE 35400000 CD0CCLSP EQU X'84' . CHGE LINE SERVICE-SEEKING PAUSE 35700000 CD0CCLNR EQU X'85' . CHGE LINE NEG POLL RSP LIMIT 36000000 CD0CCSL EQU X'86' . CHGE SESSION LIMIT 36300000 CD0CCDTL EQU X'8C' . CHGE DEV TRANSMISSION LIMIT 36600000 CD0CMBHS EQU X'8D' . MODIFY BLK HANDLER SET ASSOC 36900000 CD0CAL EQU X'98' . ACTIVATE LINE 37200000 CD0CD0 EQU X'99' . DEACTIVATE ORDERLY 37500000 CD0CSDM EQU X'9A' . SET DESTINATION MODE 37800000 CD0CDLH EQU X'C2' . DEACTIVATE LINE HALT 38100000 MEND 38400000 * */ 38700000 *%CMD0PLS:; 39000000 */* */ 39300000 */* FID0 COMMAND CODES */ 39600000 */* */ 39900000 * 40200000 *DCL CD0READ BIT(8) CONSTANT('01'X); /* READ COMMAND */ 40500000 */* */ 40800000 */* READ MODIFIERS */ 41100000 */* */ 41400000 *DCL CD0R BIT(8) CONSTANT('00'X); /* READ NORMAL */ 41700000 *DCL CD0RB BIT(8) CONSTANT('01'X); /* READ BLOCK */ 42000000 *DCL CD0RM BIT(8) CONSTANT('02'X); /* READ MESSAGE */ 42300000 *DCL CD0RT BIT(8) CONSTANT('03'X); /* READ TRANSMISSION */ 42600000 *DCL CD0RD BIT(8) CONSTANT('04'X); /* READ TRANSMISSION DISCON */ 42900000 *DCL CD0RI BIT(8) CONSTANT('05'X); /* READ WITH INVITE */ 43200000 * 43500000 *DCL CD0WRT BIT(8) CONSTANT('02'X); /* WRITE COMMAND */ 43800000 */* */ 44100000 */* WRITE MODIFIERS */ 44400000 */* */ 44700000 *DCL CD0W BIT(8) CONSTANT('00'X); /* WRITE NORMAL */ 45000000 *DCL CD0WM BIT(8) CONSTANT('01'X); /* WRITE WITH EOM */ 45300000 *DCL CD0WT BIT(8) CONSTANT('02'X); /* WRITE WITH EOT */ 45600000 *DCL CD0WD BIT(8) CONSTANT('03'X); /* WRITE WITH DISCONNECT */ 45900000 *DCL CD0WR BIT(8) CONSTANT('06'X); /* WRITE WITH READ */ 46200000 *DCL CD0WI BIT(8) CONSTANT('07'X); /* WRITE WITH INVITE */ 46500000 *DCL CD0WC BIT(8) CONSTANT('08'X); /* WRITE WITH CONTACT */ 46800000 *DCL CD0WCM BIT(8) CONSTANT('09'X); /* WRITE WITH CONTACT(EXT) */ 47100000 *DCL CD0WCT BIT(8) CONSTANT('0A'X); /* WRITE WITH CONTACT(EOT) */ 47400000 *DCL CD0WCD BIT(8) CONSTANT('0B'X); /* WRITE WITH CONTACT & DISCON*/ 47700000 *DCL CD0WCR BIT(8) CONSTANT('0E'X); /* WRITE WITH CONTACT & READ */ 48000000 * 48300000 *DCL CD0TEST BIT(8) CONSTANT('03'X); /* TEST COMMAND */ 48600000 */* */ 48900000 */* TEST MODIFIERS */ 49200000 */* */ 49500000 *DCL CD0T BIT(8) CONSTANT('00'X); /* TEST DEVICE NORMAL */ 49800000 *DCL CD0TC BIT(8) CONSTANT('01'X); /* TEST DEVICE WITH CONTACT */ 50100000 *DCL CD0TD BIT(8) CONSTANT('02'X); /* TEST DEVICE WITH DISCONN */ 50400000 *DCL CD0TCD BIT(8) CONSTANT('03'X); /* TEST DEV WITH CONTACT & DIS*/ 50700000 *DCL CD0TI BIT(8) CONSTANT('04'X); /* TEST LINE NORMAL */ 51000000 *DCL CD0TIC BIT(8) CONSTANT('05'X); /* TEST LINE WITH CONTACT */ 51300000 *DCL CD0TID BIT(8) CONSTANT('06'X); /* TEST LINE WITH DISCONNECT */ 51600000 *DCL CD0TICD BIT(8) CONSTANT('07'X); /* TEST LINE WITH CONT & DISC */ 51900000 * 52200000 */* */ 52500000 */* RESTART MODIFIERS */ 52800000 */* */ 53100000 *DCL CD0RLINE BIT(8) CONSTANT('00'X); /* LINE */ 53400000 *DCL CD0RDEV BIT(8) CONSTANT('01'X); /* DEVICE */ 53700000 *DCL CD0RLSES BIT(8) CONSTANT('02'X); /* REP SESS INIT INFO FOR LINE*/ 54000000 *DCL CD0RDSES BIT(8) CONSTANT('04'X); /* REP SESS INIT INFO FOR DEV */ 54300000 * 54600000 *DCL CD0INV BIT(8) CONSTANT('05'X); /* INVITE COMMAND */ 54900000 */* */ 55200000 */* INVITE MODIFIERS */ 55500000 */* */ 55800000 *DCL CD0I BIT(8) CONSTANT('00'X); /* INVITE NCORMAL */ 56100000 *DCL CD0IB BIT(8) CONSTANT('01'X); /* INVITE BLOCK */ 56400000 *DCL CD08M BIT(8) CONSTANT('02'X); /* INVITE MESSAGE */ 56700000 *DCL CD0IT BIT(8) CONSTANT('03'X); /* INVITE TRANSMISSION */ 57000000 *DCL CD08D BIT(8) CONSTANT('04'X); /* INVITE TRANS WITH DISC */ 57300000 *DCL CD08A BIT(8) CONSTANT('05'X); /* INVITE WITH AUTO RESTART */ 57600000 *DCL CD0IP BIT(8) CONSTANT('06'X); /* INVITE PERPETUAL */ 57900000 * 58200000 *DCL CD0CONT BIT(8) CONSTANT('06'X); /* CONTACT COMMAND */ 58500000 */* */ 58800000 */* NO CONTACT MODIFIERS */ 59100000 */* */ 59400000 * 59700000 *DCL CD0DISC BIT(8) CONSTANT('07'X); /* DISCONNECT COMMAND */ 60000000 */* */ 60300000 */* DISCONNECT MODIFIERS */ 60600000 */* */ 60900000 *DCL CD0D BIT(8) CONSTANT('00'X); /* DISCONNECT NORMAL */ 61200000 *DCL CD0DI BIT(8) CONSTANT('01'X); /* DISCONNECT WITH INVITE */ 61500000 *DCL CD0DE BIT(8) CONSTANT('02'X); /* DISCONNECT WITH END-OF-CALL*/ 61800000 *DCL CD0DEI BIT(8) CONSTANT('03'X); /* DISCONNECT WITH EOC AND INV*/ 62100000 * 62400000 *DCL CD0CTRL BIT(8) CONSTANT('08'X); /* CONTROL COMMAND */ 62700000 */* */ 63000000 */* CONTROL MODIFIERS */ 63300000 */* */ 63600000 *DCL CD0CDISL BIT(8) CONSTANT('01'X); /* DISPLAY LINE STATUS */ 63900000 *DCL CD0CRSII BIT(8) CONSTANT('02'X); /* REP SESS INIT INFO FOR LINE*/ 64200000 *DCL CD0CA8 BIT(8) CONSTANT('03'X); /* ACTIVATES INVITES */ 64500000 *DCL CD0CDI BIT(8) CONSTANT('04'X); /* DEACTIVATES INVITES */ 64800000 *DCL CD0CCSII BIT(8) CONSTANT('05'X); /* COPY SESS INIT INFO */ 65100000 *DCL CD0CDDS BIT(8) CONSTANT('06'X); /* DISPLAY DEVICE STATUS */ 65400000 *DCL CD0CRDS BIT(8) CONSTANT('07'X); /* REQ DEVICE STATISTICS */ 65700000 *DCL CD0CDS BIT(8) CONSTANT('08'X); /* DISPLAY STORAGE */ 66000000 *DCL CD0CSTD BIT(8) CONSTANT('09'X); /* SET TIME AND DATE */ 66300000 *DCL CD0CSCMS BIT(8) CONSTANT('0A'X); /* SET CHANNEL MODE SECONDARY */ 66600000 *DCL CD0CDLNA BIT(8) CONSTANT('0B'X); /* DISPLAY LINE'S NETWORK ADDR*/ 66900000 *DCL CD0CALT BIT(8) CONSTANT('0C'X); /* ACTIVATE LINE TRACE */ 67200000 *DCL CD0CTLT BIT(8) CONSTANT('0D'X); /* TERMINATE LINE TRACE */ 67500000 *DCL CD0CCMS BIT(8) CONSTANT('12'X); /* CHANGE MODEM SPEED */ 67800000 *DCL CD0CSCMP BIT(8) CONSTANT('15'X); /* SET CHANNEL MODE PRIMARY */ 68100000 *DCL CD0CCDM BIT(8) CONSTANT('18'X); /* COPY DESTINATION MODE */ 68400000 *DCL CD0CPD BIT(8) CONSTANT('1C'X); /* PHYSICAL DISCONNECT */ 68700000 *DCL CD0CCDSI BIT(8) CONSTANT('21'X); /* COPY DEV SESSION INFO */ 69000000 *DCL CD0CRDSI BIT(8) CONSTANT('22'X); /* REP DEV SESSION INFO */ 69300000 *DCL CD0CREL BIT(8) CONSTANT('41'X); /* RESET ERROR LOCK */ 69600000 *DCL CD0CRD1 BIT(8) CONSTANT('42'X); /* RESET DEVICE QUEUES */ 69900000 *DCL CD0CRCMR BIT(8) CONSTANT('43'X); /* REQ CONTROL MODE RESET */ 70200000 *DCL CD0CRI BIT(8) CONSTANT('44'X); /* RESET IMMEDIATE */ 70500000 *DCL CD0CROTT BIT(8) CONSTANT('48'X); /* RESET ONLINE TERMINAL TEST */ 70800000 *DCL CD0CSTB BIT(8) CONSTANT('4A'X); /* SWITCH TO BACKUP */ 71100000 *DCL CD0CSBTP BIT(8) CONSTANT('4C'X); /* SWITCH FROM BACKUP TO PRIM */ 71400000 *DCL CD0CRINV BIT(8) CONSTANT('4D'X); /* RESET INVITE */ 71700000 *DCL CD0CRC BIT(8) CONSTANT('50'X); /* RESET CONDITIONAL */ 72000000 *DCL CD0CREOC BIT(8) CONSTANT('60'X); /* RESET AT END OF COMMAND */ 72300000 *DCL CD0CSEP BIT(8) CONSTANT('82'X); /* SWITCH TO EP MODE */ 72600000 *DCL CD0CSNCP BIT(8) CONSTANT('83'X); /* SWITCH TO NCP MODE */ 72900000 *DCL CD0CCLSP BIT(8) CONSTANT('84'X); /* CHGE LINE SERV-SEEKING PAUS*/ 73200000 *DCL CD0CCLNR BIT(8) CONSTANT('85'X); /* CHGE LINE NEG POLL RSP LIM */ 73500000 *DCL CD0CCSL BIT(8) CONSTANT('86'X); /* CHGE SESSION LIMIT */ 73800000 *DCL CD0CCDTL BIT(8) CONSTANT('8C'X); /* CHGE DEV TRANSMISSION LIMIT*/ 74100000 *DCL CD0CMBHS BIT(8) CONSTANT('8D'X); /* MOD BLK HANDLER SET ASSOC */ 74400000 *DCL CD0CAL BIT(8) CONSTANT('98'X); /* ACTIVATE LINE */ 74700000 *DCL CD0CD0 BIT(8) CONSTANT('99'X); /* DEACTIVATE ORDERLY */ 75000000 *DCL CD0CSDM BIT(8) CONSTANT('9A'X); /* SET DESTINATION MODE */ 75300000 *DCL CD0CDLH BIT(8) CONSTANT('C2'X); /* DEACTIVATE LINE HALT */ 75600000