* %GOTO EXTPLS; /* BILINGUAL HEADER 00400010 MACRO 00800010 TEXTD 01200010 .*A000000-999999 @Y17XAXF 01600010 * 02000010 * FID0 NORMAL EXTEND RESPONSES 02400010 * 02800010 EXT00 EQU X'00' . CONTROL MODE 03200010 EXT20 EQU X'20' . TEXT MODE 03600010 EXT40 EQU X'40' . TRANSPARENT TEXT MODE 04000010 EXT60 EQU X'60' . HEADING MODE 04400010 EXT80 EQU X'80' . SPECIAL 04800010 EXTE0 EQU X'E0' . HARDWARE/USER ERROR 05200010 SPACE 05600010 * 06000010 * FINAL STATUS WHEN INITIAL STATUS = CONTROL,TEXT,TRANSPARENT 06400010 * TEXT, OR HEADING 06800010 * 07200010 EXTX00 EQU X'00' . TIME OUT 07600010 EXTX04 EQU X'04' . CUTOFF 08000010 EXTX06 EQU X'06' . REPLY TO TRANSMITTED DATA 08400010 * WAS AN EOT 08800010 EXTX08 EQU X'08' . AN EOT WAS RECEIVED ON A BLK 09200010 * THAT WAS IN ERROR 09600010 EXTX0A EQU X'0A' . END OF DLE CONTROL 10000010 EXTX0C EQU X'0C' . WRONG ACK 10400010 EXTX0E EQU X'0E' . FOR SS, NAK RETURNED IN 10800010 * RSP TO A SELECTION, 11200010 * POLL OR WRITE 11600010 * FOR BSC, AND EOT RETURNED 12000010 * IN RESPONSE TO A SLECTION 12400010 * POLL, OR WRITE 12800010 EXTX10 EQU X'10' . RECEIVED SUB-BLOCK 13200010 EXTX12 EQU X'12' . END OF TEXT 13600010 EXTX14 EQU X'14' . END OF BLOCK 14000010 EXTX16 EQU X'16' . DATA OR LEADIN GRAPHICS 14400010 * RECEIVED WITH AN ENQ 14800010 EXTX18 EQU X'18' . EOT RECEIVED WITH NO ERRORS 15200010 EXTX1A EQU X'1A' . REVERSE INTERRUPT 15600010 EXTX1C EQU X'1C' . POSITIVE ACK RETURNED 16000010 * AND NO ERRORS INDICATED 16400010 * ON A WRITE OPERATION 16800010 EXTX1E EQU X'1E' . WACK RECEIVED 17200010 EJECT 17600010 * 18000010 * FINAL STATUS WHEN INITIAL STATUS - SPECIAL 18400010 * 18800010 EXTS00 EQU X'00' . TIME-OUT WITH NOTHING REC 19200010 EXTS02 EQU X'02' . COMMAND REJECT 19600010 EXTS04 EQU X'04' . LEVEL 2 AND LEVEL 3 20000010 * BUFFER POOLS DEPLETED 20400010 EXTS06 EQU X'06' . SELECTED 20800010 EXTS08 EQU X'08' . RECEIVED DISCONNECT SIGNAL 21200010 * ON START-STOP OR DLE/EOT 21600010 EXTS0A EQU X'0A' . DATA WAS RECEIVED WHEN 22000010 * IT WAS NOT EXPECTED 22400010 EXTS0C EQU X'0C' . A RESET OCCURRED 22800010 EXTS0E EQU X'0E' . THE DEVICE HAS BEEN POLLED 23200010 EXTS10 EQU X'10' . TRANSMITTED SUB-BLOCK 23600010 EXTS12 EQU X'12' . AN EOT WAS SENT AFTER A 24000010 * SPECIFIED NUMBER OF WACKS 24400010 * WERE RECEIVED IN RSP TO 24800010 * TO A REQ OR OPER 25200010 EXTS14 EQU X'14' . RECEIVED BREAK IN TEXT 25600010 EXTS16 EQU X'16' . POLLING STOP 26000010 EXTS18 EQU X'18' . EOT TRANSMITTED 26400010 EXTS1A EQU X'1A' . RECEIVED A BREAK SIGNAL 26800010 * WHILE TRANSMITTING 27200010 EXTS1C EQU X'1C' . DISCONNECTED 27600010 EXTS1E EQU X'1E' . CONNECTED 28000010 SPACE 28400010 * 28800010 * FINAL STATUS WHEN INITIAL STATUS = HARDWARE/USER ERROR 29200010 * 29600010 EXTH00 EQU X'00' . USER ERROR 30000010 EXTH04 EQU X'04' . LEVEL 1 COMM SCANNER CHECK 30400010 EXTH08 EQU X'08' . COMM LINE ADAPTER CHECK 30800010 EXTH0A EQU X'0A' . COMM SCANNER ADAPTER 31200010 * FEEDBACK CHECK 31600010 EXTH0C EQU X'0C' . NOT USED 32000010 EXTH10 EQU X'10' . MODEM ERROR 32400010 EXTH12 EQU X'12' . MODEM TRANSMIT CLOCK OR 32800010 * CLEAR-TO-SEND ERROR 33200010 EXTH14 EQU X'14' . DSR-ON CHECK 33600010 EXTH18 EQU X'18' . DSR-OFF CHECK 34000010 EXTH1C EQU X'1C' . ACU CHECK 34400010 EXTE1E EQU X'1E' . PROGRAM FAILURE 34800010 SPACE 35200010 * 35600010 * CONDITIONAL EXTENDED RESPONSES 36000010 * 36400010 EXTC82 EQU X'82' . CHANGE-SPEED COMMAND INVALID 36800010 EXTC83 EQU X'83' . SPECIFIED LINE IS UNAVAILABLE 37200010 EXTC84 EQU X'84' . ERROR LOCK 37600010 EXTCE0 EQU X'E0' . SWITCH-LINE-MODE COMMAND 38000010 * WAS RECEIVED BUT LINE 38400010 * NOT GENERATED AS MODE- 38800010 * SWITCHABLE 39200010 EXTCE1 EQU X'E1' . SWITCH-LINE-MODE COMMAND 39600010 * WAS RECEIVED BUT A 40000010 * COMMAND IS ALREADY 40400010 * EXECUTING ON THE LINE 40800010 * OR LINE TRACE IS ACTIVE 41200010 MEND 41600010 * */ 42000010 *%EXTPLS:; 42400010 */* */ 42800010 */* FID0 NORMAL EXTEND RESPONSES */ 43200010 */* */ 43600010 *DCL EXT00 BIT(3) CONSTANT('000'B); /*CONTROL MODE */ 44000010 *DCL EXT20 BIT(3) CONSTANT('001'B); /*TEXT MODE */ 44400010 *DCL EXT40 BIT(3) CONSTANT('010'B); /*TRANSPARENT TEXT MODE */ 44800010 *DCL EXT60 BIT(3) CONSTANT('011'B); /*HEADING MODE */ 45200010 *DCL EXT80 BIT(3) CONSTANT('100'B); /*SPECIAL */ 45600010 *DCL EXTE0 BIT(3) CONSTANT('111'B); /*HARDWARE/USER ERROR */ 46000010 @SPACE; 46400010 */* */ 46800010 */* FINAL STATUS WHEN INITIAL STATUS = CONTROL,TEXT,TRANSPARENT */ 47200010 */* TEXT, OR HEADING */ 47600010 */* */ 48000010 *DCL EXTX00 BIT(4) CONSTANT('0000'B); /*TIME OUT */ 48400010 *DCL EXTX04 BIT(4) CONSTANT('0010'B); /*CUTOFF */ 48800010 *DCL EXTX06 BIT(4) CONSTANT('0011'B); /*REPLY TO TRANSMITTED DATA */ 49200010 */* WAS AN EOT */ 49600010 *DCL EXTX08 BIT(4) CONSTANT('0100'B); /*AN EOT WAS RECEIVED ON A */ 50000010 */* BLOCK THAT WAS IN ERROR */ 50400010 *DCL EXTX0A BIT(4) CONSTANT('0101'B); /*END OF DLE CONTROL */ 50800010 *DCL EXTX0C BIT(4) CONSTANT('0110'B); /*WRONG ACK */ 51200010 *DCL EXTX0E BIT(4) CONSTANT('0111'B); /*FOR S/S, NAK RETURNED IN */ 51600010 */* RSP TO A SELECTION, */ 52000010 */* POLL OR WRITE */ 52400010 */* FOR BSC, AND EOT RETURNED */ 52800010 */* IN RESPONSE TO A SLECTION */ 53200010 */* POLL, OR WRITE */ 53600010 *DCL EXTX10 BIT(4) CONSTANT('1000'B); /* RECEIVED SUB-BLOCK */ 54000010 *DCL EXTX12 BIT(4) CONSTANT('1001'B); /*END OF TEXT */ 54400010 *DCL EXTX14 BIT(4) CONSTANT('1010'B); /*END OF BLOCK */ 54800010 *DCL EXTX16 BIT(4) CONSTANT('1011'B); /*DATA OR LEADIN GRAPHICS */ 55200010 */* RECEIVED WITH AN ENQ */ 55600010 *DCL EXTX18 BIT(4) CONSTANT('1100'B); /*EOT RECEIVED WITH NO ERROR */ 56000010 *DCL EXTX1A BIT(4) CONSTANT('1101'B); /*REVERSE INTERRUPT */ 56400010 *DCL EXTX1C BIT(4) CONSTANT('1110'B); /*POSITIVE ACK RETURNED */ 56800010 */* AND NO ERRORS INDICATED */ 57200010 */* ON A WRITE OPERATION */ 57600010 *DCL EXTX1E BIT(4) CONSTANT('1111'B); /*WACK RECEIVED */ 58000010 @EJECT; 58400010 */* */ 58800010 */* FINAL STATUS WHEN INITIAL STATUS - SPECIAL */ 59200010 */* */ 59600010 *DCL EXTS00 BIT(4) CONSTANT('0000'B); /*TIME-OUT WITH NOTHING REC */ 60000010 *DCL EXTS02 BIT(4) CONSTANT('0001'B); /*COMMAND REJECT */ 60400010 *DCL EXTS04 BIT(4) CONSTANT('0010'B); /*LEVEL 2 AND LEVEL 3 */ 60800010 */* BUFFER POOLS DEPLETED */ 61200010 *DCL EXTS06 BIT(4) CONSTANT('0011'B); /*SELECTED */ 61600010 *DCL EXTS08 BIT(4) CONSTANT('0100'B); /*RECEIVED DISCONNECT SIGNAL */ 62000010 */* ON START-STOP OR DLE/EOT */ 62400010 *DCL EXTS0A BIT(4) CONSTANT('0101'B); /*DATA WAS RECEIVED WHEN */ 62800010 */* IT WAS NOT EXPECTED */ 63200010 *DCL EXTS0C BIT(4) CONSTANT('0110'B); /*A RESET OCCURRED */ 63600010 *DCL EXTS0E BIT(4) CONSTANT('0111'B); /*THE DEVICE HAS BEEN POLLED */ 64000010 *DCL EXTS10 BIT(4) CONSTANT('1000'B); /*TRANSMITTED SUB-BLOCK */ 64400010 *DCL EXTS12 BIT(4) CONSTANT('1001'B); /*AN EOT WAS SENT AFTER A */ 64800010 */* SPECIFIED NUMBER OF WACKS */ 65200010 */* WERE RECEIVED IN RSP TO */ 65600010 */* TO A REQ OR OPER */ 66000010 *DCL EXTS14 BIT(4) CONSTANT('1010'B); /*RECEIVED BREAK IN TEXT */ 66400010 *DCL EXTS16 BIT(4) CONSTANT('1011'B); /*POLLING STOP */ 66800010 *DCL EXTS18 BIT(4) CONSTANT('1100'B); /*EOT TRANSMITTED */ 67200010 *DCL EXTS1A BIT(4) CONSTANT('1101'B); /*RECEIVED A BREAK SIGNAL */ 67600010 */* WHILE TRANSMITTING */ 68000010 *DCL EXTS1C BIT(4) CONSTANT('1110'B); /*DISCONNECTED */ 68400010 *DCL EXTS1E BIT(4) CONSTANT('1111'B); /*CONNECTED */ 68800010 @SPACE; 69200010 */* */ 69600010 */* FINAL STATUS WHEN INITIAL STATUS = HARDWARE/USER ERROR */ 70000010 */* */ 70400010 *DCL EXTH00 BIT(4) CONSTANT('0000'B); /*USER ERROR */ 70800010 *DCL EXTH04 BIT(4) CONSTANT('0010'B); /*LEVEL 1 COMM SCANNER CHECK */ 71200010 *DCL EXTH08 BIT(4) CONSTANT('0100'B); /*COMM LINE ADAPTER CHECK */ 71600010 *DCL EXTH0A BIT(4) CONSTANT('0101'B); /*COMM SCANNER ADAPTER */ 72000010 */* FEEDBACK CHECK */ 72400010 *DCL EXTH0C BIT(4) CONSTANT('0110'B); /*NOT USED */ 72800010 *DCL EXTH10 BIT(4) CONSTANT('1000'B); /*MODEM ERROR */ 73200010 *DCL EXTH12 BIT(4) CONSTANT('1001'B); /*MODEM TRANSMIT CLOCK OR */ 73600010 */* CLEAR-TO-SEND ERROR */ 74000010 *DCL EXTH14 BIT(4) CONSTANT('1010'B); /*DSR-ON CHECK */ 74400010 *DCL EXTH18 BIT(4) CONSTANT('1100'B); /*DSR-OFF CHECK */ 74800010 *DCL EXTH1C BIT(4) CONSTANT('1110'B); /*ACU CHECK */ 75200010 *DCL EXTE1E BIT(4) CONSTANT('1111'B); /*PROGRAM FAILURE */ 75600010 @SPACE; 76000010 */* */ 76400010 */* CONDITIONAL EXTENDED RESPONSES */ 76800010 */* */ 77200010 *DCL EXTC82 BIT(8) CONSTANT('82'X); /*CHANGE-SPEED COMMAND INVAL */ 77600010 *DCL EXTC83 BIT(8) CONSTANT('83'X); /*SPECIFIED LINE IS UNAVAIL */ 78000010 *DCL EXTC84 BIT(8) CONSTANT('84'X); /*ERROR LOCK */ 78400010 *DCL EXTCE0 BIT(8) CONSTANT('E0'X); /*SWITCH-LINE-MODE COMMAND */ 78800010 */* WAS RECEIVED BUT LINE */ 79200010 */* NOT GENERATED AS MODE- */ 79600010 */* SWITCHABLE */ 80000010 *DCL EXTCE1 BIT(8) CONSTANT('E1'X); /*SWITCH-LINE-MODE COMMAND */ 80400010 */* WAS RECEIVED BUT A */ 80800010 */* COMMAND IS ALREADY */ 81200010 */* EXECUTING ON THE LINE */ 81600010 */* OR LINE TRACE IS ACTIVE */ 82000010