* %GOTO PLSMSK; /* BILINGUAL HEADER 01000010 MACRO 02000010 TMSKD 03000010 SPACE 04000010 .* CHANGE ACTIVITY AS FOLLOWS: 05000010 .*A-000000-999999 @Y17XANU 06000010 IEDMSK DSECT 07000010 * 08000010 * OPERATOR CONTROL TCHNG MASK DSECT 09000010 * 10000010 MSKNUM DS H . NUMBER OF MASKS 11000010 MSKMASK DS 0XL2 . PROTECTION MASK 12000010 MSK1 DS XL1 . MASK BYTE 1 13000010 MSKBYTE1 EQU X'FF' . USED TO CHECK IF BYTES 4-7 14000010 * OF TTE ARE PROTECTED 15000010 MSKCNT EQU X'80' . CHECK TO ALLOW TLIST COUNT 17000010 * MODIFICATION 18000010 MSKLIST EQU X'40' . CHECK TO ALLOW TLIST ENTRIES 19000010 * MODIFICATION 20000010 * EQU X'20'-X'01' . RESERVED 20300010 MSK2 DS XL1 . MASK BYTE 2 20600010 MSKBYTE2 EQU X'F0' . USED TO CHECK IF BYTES 8-F 21000010 * OF TTE ARE PROTECTED 22000010 * EQU X'80'-X'10' . RESERVED 23000010 MSKOPT EQU X'08' . USED TO CHECK IF OPTION 23500010 * FIELDS ARE PROTECTED 24000010 * (MSKBYTE2) 25000010 MSKDVDP EQU X'04' . USED TO CHECK IF DEVICE 26000010 * DEPENDENT FIELDS ARE PROTECTED 27000010 * EQU X'02'-X'01' . RESERVED 27500010 * 28000010 * THIS DSECT CONSISTS OF 9 MASKS, REPRESENTING 9 TTE TYPES, 29000010 * IN THE FOLLOWING ORDER: 30000010 * 31000010 * 1 - 270X TERMINAL (DIAL, NON DIAL, LOG) 32000010 * 2 - 3705 BSC/SS TERMINAL 33000010 * 3 - PU 34000010 * 4 - LU 35000010 * 5 - SSCP 36000010 * 6 - NCP 37000010 * 7 - 3705 LINE 38000010 * 8 - LIST 39000010 * 9 - TPROCESS 40000010 * 41000010 MSKLEN EQU *-MSKMASK . LENGTH OF MASK ENTRY 42000010 MEND 43000010 * */ 44000010 *%PLSMSK: ; 45000010 *DECLARE 1 IEDMSK BDY(WORD) BASED(IEDMSKP), 46000010 */* */ 47000010 */* OPERATOR CONTROL TCHNG MASK DSECT */ 48000010 */* */ 49000010 * 2 MSKNUM FIXED(15), /* NUMBER OF MASKS */ 50000010 * 2 MSKMASK CHAR(2), /* PROTECTION MASK */ 51000010 * 3 MSK1 CHAR(1), /* MASK BYTE 1 */ 52000010 * 4 MSKCNT BIT(1), /* CHECK TO ALLOW TLIST COUNT 54000010 * MODIFICATION */ 55000010 * 4 MSKLIST BIT(1), /* CHECK TO ALLOW TLIST 56000010 * ENTRIES MODIFICATION */ 57000010 * 4 * BIT(6), /* RESERVED */ 57300010 * 3 MSK2 CHAR(1), /* MASK BYTE 2 */ 57600010 * 4 * BIT(4), /* RESERVED */ 58000010 * 4 MSKOPT BIT(1), /* USED TO CHECK IF OPTION 59000010 * FIELDS ARE PROTECTED 60000010 * (MSKBYTE2) */ 61000010 * 4 MSKDVDP BIT(1), /* USED TO CHECK IF DEVICE 62000010 * DEPENDENT FIELDS ARE 63000010 * PROTECTED */ 64000010 * 4 * BIT(2); /* RESERVED */ 65000010 * 66000010 * %MSKLEN='LENGTH(MSKMASK)'; /* LENGTH OF MASK ENTRY */ 67000010 * 68000010 */* */ 69000010 */* CONSTANTS (MSK1) */ 70000010 */* */ 71000010 *DCL MSKBYTE1 BIT(8) CONSTANT('FF'X); /* USED TO CHECK IF BYTES 4-7 72000010 * OF TTE ARE PROTECTED */ 73000010 */* */ 74000010 */* CONSTANTS (MSK2) */ 75000010 */* */ 76000010 *DCL MSKBYTE2 BIT(8) CONSTANT('F0'X); /* USED TO CHECK IF BYTES 8-F 77000010 * OF TTE ARE PROTECTED */ 78000010 */* THIS DSECT CONSISTS OF 9 MASKS, REPRESENTING 9 TTE TYPES, */ 79000010 */* IN THE FOLLOWING ORDER: */ 80000010 */* */ 81000010 */* 1 - 270X TERMINAL (DIAL, NON DIAL, LOG) */ 82000010 */* 2 - 3705 BSC/SS TERMINAL */ 83000010 */* 3 - PU */ 84000010 */* 4 - LU */ 85000010 */* 5 - SSCP */ 86000010 */* 6 - NCP */ 87000010 */* 7 - 3705 LINE */ 88000010 */* 8 - LIST */ 89000010 */* 9 - TPROCESS */ 90000010 */* */ 91000010