* %GOTO PLSMODD; /* 00700010 MACRO 01400010 TMODD 02100010 .*A000000-999999 @Y17XAXF 02800010 IEDQMOD DSECT 03500010 * 04200010 * MODE DEVICE DEPENDENT FIELDS 04900010 * 05600010 MODLNG DS XL1 LENGTH OF MODE BYTE FIELDS 06300010 * IN THE TTE DEVICE DEPENDENT 07000010 * FIELDS 07700010 MODCUR DS 0XL2 CURRENT MODE IN NCP 08400010 MODCUR1 DS XL1 CURRENT MODE BYTE 1 09100010 * EQU X'80' RESERVED 09800010 MODCWERP EQU X'40' OVERRIDE WRITE TEXT MODE ERPS 10500010 MODCRLGW EQU X'20' REJECT LEADING GRAPHICS ON 11200010 * WRITE OPERATIONS 11900010 MODCEIBD EQU X'10' EIB DELETION(NON-TRANS- 12600010 * PARENT ONLY) 13300010 * EQU X'08' RESERVED 14000010 MODCITFL EQU X'04' INHIBIT TIME FILL/INHIBIT 14700010 * WACK LINES 15400010 MODCEMLC EQU X'02' EMBEDDED LINE CONTROL(NON- 16100010 * TRANSPARENT) INTERMEDIATE 16800010 * CONTROL CHAR INSERTION 17500010 MODCCTXT EQU X'01' CRITICAL TEXT 18200010 MODCUR2 DS XL1 CURRENT MODE 2ND BYTE 18900010 * EQU X'80' RESERVED 19600010 MODCRERP EQU X'40' OVERRIDE READ TEXT MODE ERPS 20300010 MODCRLGR EQU X'20' REJECT LEADING GRAPHICS 21000010 * ON READ OPERATIONS 21700010 MODCEIBJ EQU X'10' EIB INSERTION 22400010 MODCINTO EQU X'10' INHIBIT TEXT TIME OUTS 23100010 MODCSUBB EQU X'08' SUB-BLOCKING(INPUT) 23800010 MODCINTE EQU X'04' INTERRUPT ENABLED 24500010 MODCMNTR EQU X'02' ACTIVATE MONITOR TASK 25200010 MODCMNTP EQU X'01' 0-AUTOMATICALLY DEACTIVATE 25900010 * MONITOR 26600010 * 1-PERPETUAL MONITOR 27300010 MODNEW DS 0XL2 NEW MODE IN NCP 28000010 MODNEW1 DS XL1 NEW MODE BYTE 1 28700010 * EQU X'80' RESERVED 29400010 MODNWERP EQU X'40' OVERRIDE WRITE TEXT MODE ERPS 30100010 MODNRLGW EQU X'20' REJECT LEADING GRAPHICS ON 30800010 * WRITE OPERATIONS 31500010 MODNEIBD EQU X'10' EIB DELETION(NON-TRANS- 32200010 * PARENT ONLY) 32900010 * EQU X'08' RESERVED 33600010 MODNITFL EQU X'04' INHIBIT TIME FILL/INHIBIT 34300010 * WACK LINES 35000010 MODNEMLC EQU X'02' EMBEDDED LINE CONTROL(NON- 35700010 * TRANSPARENT) INTERMEDIATE 36400010 * CONTROL CHAR INSERTION 37100010 MODNCTXT EQU X'01' CRITICAL TEXT 37800010 MODNEW2 DS XL1 NEW MODE 2ND BYTE 38500010 * EQU X'80' RESERVED 39200010 MODNRERP EQU X'40' OVERRIDE READ TEXT MODE ERPS 39900010 MODNRLGR EQU X'20' REJECT LEADING GRAPHICS 40600010 * ON READ OPERATIONS 41300010 MODNEIBJ EQU X'10' EIB INSERTION 42000010 MODNINTO EQU X'10' INHIBIT TEXT TIME OUTS 42700010 MODNSUBB EQU X'08' SUB-BLOCKING(INPUT) 43400010 MODNINTE EQU X'04' INTERRUPT ENABLED 44100010 MODNMNTR EQU X'02' ACTIVATE MONITOR TASK 44800010 MODNMNTP EQU X'01' 0-AUTOMATICALLY DEACTIVATE 45500010 * MONITOR 46200010 * 1-PERPETUAL MONITOR 46900010 MEND */ 47600010 *%PLSMODD : ; 48300010 *DCL 1 IEDQMOD BASED(RMOD), 49000010 */* */ 49700010 */* MODE DEVICE DEPENDENT FIELDS */ 50400010 */* */ 51100010 * 2 MODLNG FIXED(8), /* LENGTH OF MODE BYTE FIELDS 51800010 * IN THE TTE DEVICE DEPENDENT 52500010 * FIELDS */ 53200010 * 2 MODCUR CHAR(2), /* CURRENT MODE IN NCP */ 53900010 * 3 MODCUR1 BIT(8), /* CURRENT MODE BYTE 1 */ 54600010 * 4 * BIT(1), /* RESERVED */ 55300010 * 4 MODCWERP BIT(1), /* OVERIDE WRT TXT MODE ERPS*/ 56000010 * 4 MODCRLGW BIT(1), /* REJECT LEADING GRAPHICS ON 56700010 * WRITE OPERATIONS */ 57400010 * 4 MODCEIBD BIT(1), /* EIB DELETION(NON-TRANS- 58100010 * PARENT ONLY) */ 58800010 * 4 * BIT(1), /* RESERVED */ 59500010 * 4 MODCITFL BIT(1), /* INHIBIT TIME FILL/INHIBIT 60200010 * WACK LINES */ 60900010 * 4 MODCEMLC BIT(1), /* EMBEDDED LINE CONTROL(NON- 61600010 * TRANSPARENT) INTERMEDIATE 62300010 * CONTROL CHAR INSERTION */ 63000010 * 4 MODCCTXT BIT(1), /* CRITICAL TEXT */ 63700010 * 3 MODCUR2 BIT(8), /* CURRENT MODE 2ND BYTE */ 64400010 * 4 * BIT(1), /* RESERVED */ 65100010 * 4 MODCRERP BIT(1), /* OVERIDE READ TXT MDE ERPS*/ 65800010 * 4 MODCRLGR BIT(1), /* REJECT LEADING GRAPHICS 66500010 * ON READ OPERATIONS */ 67200010 * 4 MODCEIBJ BIT(1), /* EIB INSERTION */ 67900010 * 5 MODCINTO BIT(1), /* INHIBIT TEXT TIME OUTS */ 68600010 * 4 MODCSUBB BIT(1), /* SUB-BLOCKING(INPUT) */ 69300010 * 4 MODCINTE BIT(1), /* INTERRUPT ENABLED */ 70000010 * 4 MODCMNTR BIT(1), /* ACTIVATE MONITOR TASK */ 70700010 * 4 MODCMNTP BIT(1), /* 0-AUTOMATICALLY DEACTIVATE 71400010 * MONITOR 72100010 * 1-PERPETUAL MONITOR */ 72800010 * 2 MODNEW CHAR(2), /* NEW MODE IN NCP */ 73500010 * 3 MODNEW1 BIT(8), /* NEW MODE BYTE 1 */ 74200010 * 4 * BIT(1), /* RESERVED */ 74900010 * 4 MODNWERP BIT(1), /* OVERIDE WRT TXT MODE ERPS*/ 75600010 * 4 MODNRLGW BIT(1), /* REJECT LEADING GRAPHICS ON 76300010 * WRITE OPERATIONS */ 77000010 * 4 MODNEIBD BIT(1), /* EIB DELETION(NON-TRANS- 77700010 * PARENT ONLY) */ 78400010 * 4 * BIT(1), /* RESERVED */ 79100010 * 4 MODNITFL BIT(1), /* INHIBIT TIME FILL/INHIBIT 79800010 * WACK LINES */ 80500010 * 4 MODNEMLC BIT(1), /* EMBEDDED LINE CONTROL(NON- 81200010 * TRANSPARENT) INTERMEDIATE 81900010 * CONTROL CHAR INSERTION */ 82600010 * 4 MODNCTXT BIT(1), /* CRITICAL TEXT */ 83300010 * 3 MODNEW2 BIT(8), /* NEW MODE 2ND BYTE */ 84000010 * 4 * BIT(1), /* RESERVED */ 84700010 * 4 MODNRERP BIT(1), /* OVERIDE READ TXT MDE ERPS*/ 85400010 * 4 MODNRLGR BIT(1), /* REJECT LEADING GRAPHICS 86100010 * ON READ OPERATIONS */ 86800010 * 4 MODNEIBJ BIT(1), /* EIB INSERTION */ 87500010 * 5 MODNINTO BIT(1), /* INHIBIT TEXT TIME OUTS */ 88200010 * 4 MODNSUBB BIT(1), /* SUB-BLOCKING(INPUT) */ 88900010 * 4 MODNINTE BIT(1), /* INTERRUPT ENABLED */ 89600010 * 4 MODNMNTR BIT(1), /* ACTIVATE MONITOR TASK */ 90300010 * 4 MODNMNTP BIT(1); /* 0-AUTOMATICALLY DEACTIVATE 91000010 * MONITOR 91700010 * 1-PERPETUAL MONITOR */ 92400010