* %GOTO PRUPLS; /* BILINGUAL HEADER 00800010 MACRO 01600010 TPRUD 02400010 SPACE 03200010 .*CHANGE ACTIVITY AS FOLLOWS: 04000010 .*A000000-999999 @Y17XAXU 04800010 .*A560000,966000,560000,408000,576000 @Y17XAXF 05200010 SPACE 05600010 IEDPRUND DSECT 06400010 * 07200010 * PACKED RU DSECT 08000010 * 08800010 PRURHTH DS 0XL4 . TH AND RH FIELDS 09600010 PRURH DS 0XL3 . RH FIELD 09700010 PRURHFG0 DS XL1 . RH FLAG 0 09800010 PRURHTYP EQU X'80' . ON-RSP, OFF-REQ 10400010 * PRURUCAT 2 BITS RU CATEGORY 11200010 PRURHFMD EQU X'00' . FM DATA 12000010 PRURHNC EQU X'20' . NETWORK CONTROL 12800010 PRURHDFC EQU X'40' . DATA FLOW CONTROL 13600010 PRURHSC EQU X'60' . SESSION CONTROL 14400010 * EQU X'10' . RESERVED 15200010 PRURHFI EQU X'08' . FORMAT INDICATOR 16000010 PRURHSDI EQU X'04' . SENSE DATA INCLUDED 16800010 PRURHBC EQU X'02' . BEGIN CHAIN 17600010 PRURHEC EQU X'01' . END CHAIN 18400010 PRURHFG1 DS XL1 . RH FLAG 1 19200010 PRURHDR1 EQU X'80' . DEFINITE RESPONSE 20000010 * EQU X'40' . RESERVED 20800010 PRURHDR2 EQU X'20' . DEFINITE RESPONSE 2 21600010 PRURHER EQU X'10' . EXCEPTION RESPONSE 22400010 * EQU X'08' . RESERVED 23200010 * EQU X'04' . RESERVED 24000010 * EQU X'02' . RESERVED 24800010 PRURHPI EQU X'01' . PACING INDICATOR 25600010 PRURHFG2 DS XL1 . RH FLAG 2 26400010 PRURHBB EQU X'80' . BEGIN BRACKET 27200010 PRURHEB EQU X'40' . END BRACKET 28000010 PRURHCDI EQU X'20' . CHANGE DIRECTION INDICATOR 28800010 * EQU X'10' . RESERVED 29600010 PRURHCSI EQU X'08' . CODE SELECTION INDICATOR 30400010 * EQU X'04' . RESERVED 31200010 * EQU X'02' . RESERVED 32000010 * EQU X'01' . RESERVED 32800010 PRUTH DS 0XL1 . TH FIELDS 33600010 PRUFIDN DS XL1 . FID LEVEL INDICATOR 34000010 * PRUTHTYE 4 BITS 34400010 PRUTHFD0 EQU X'00' . FID 0 35200010 PRUTHFD1 EQU X'10' . FID 1 36000010 PRUTHFD2 EQU X'20' . FID 2 36800010 PRUTHFD3 EQU X'30' . FID 3 37600010 PRUTHBIU EQU X'08' . BEGIN SEGMENT 38400010 PRUTHEIU EQU X'04' . END SEGMENT 39200010 PRUTHUSS EQU X'02' . CONV FROM USS TO FSS @Y17XAXF 39400010 PRUTHEFI EQU X'01' . EXPEDITED FLOW INDICATOR 40000010 DS F . RESERVED 40800010 PRUNLEN EQU *-IEDPRUND TPRUD NEG PREFIX LENGTH@Y17XAXF 41200010 IEDPRUQD EQU * END OF NEGATIVE PREFIX 41600010 PRUTTCIN DS H . DESTINATION TTCIN 42400010 PRUDATCT DS H . DATA COUNT 43200010 DS A . RESERVED 44000010 PRUTIC DS 0A . TIC COMMAND CODE/ADDR 44800010 DS XL1 . TIC CODE 45000010 PRUNUNIT DS AL3 . NEXT UNIT ADDRESS 45200010 PRUDATA EQU * START OF DATA 45600010 PRUQLEN EQU *-IEDPRUQD . TPRUD BASIC LENGTH @Y17XAXF 46000010 PRULEN EQU *-IEDPRUND . LENGTH OF TPRUD 46400010 MEND 47200010 * */ 48000010 *%PRUPLS : ; 48800010 *DECLARE 49600010 * 1 IEDPRUQD BDY(WORD) BASED(IEDPRUQP), 50400010 */* */ 51200010 */* PACKED RU DSECT */ 52000010 */* */ 52800010 * 2 PRUTTCIN FIXED(16), /* DESTINATION TTCIN */ 53600010 * 2 PRUDATCT FIXED(15), /* DATA COUNT */ 54400010 * 2 * PTR(31), /* RESERVED */ 55200010 * 2 PRUTIC BIT(32) BDY(WORD), /* TIC COMMAND CODE/ADDR */ 56000010 * /*@Y17XAXF*/ 56100010 * 3 * CHAR(1), /* TIC CODE */ 56200010 * 3 PRUNUNIT PTR(24), /* NEXT UNIT ADDRESS */ 56400010 * 2 PRUDATA CHAR(*); /* START OF DATA */ 56800010 * %PRULEN='LENGTH(IEDPRUQD+8)'; /* LENGTH OF TPRUD */ 57600010 * %PRUNLEN='LENGTH(IEDPRUND)'; /* NEG PREFIX LEN @Y17XAXF*/ 57800010 * %PRUQLEN='LENGTH(IEDPRUQD)'; /* BASIC PRU LEN @Y17XAXF*/ 58000010 */* */ 58400010 */* NEGATIVE PREFIX */ 59200010 */* */ 60000010 *DECLARE 60800010 * 1 IEDPRUND BDY(WORD) BASED(ADDR(IEDPRUQD)-LENGTH(IEDPRUND)), 61600010 * 2 PRURHTH CHAR(4), /* TH AND RH FIELDS */ 62400010 * 3 PRURH CHAR(3), /* RH FIELD */ 62600010 * 4 PRURHFG0 CHAR(1), /* RH FLAG 0 */ 62900010 * 5 PRURHTYP BIT(1), /* ON-RSP, OFF-REQ */ 63200010 * 5 PRURUCAT BIT(2), /* RU CATEGORY */ 64000010 * 5 * BIT(1), /* RESERVED */ 64800010 * 5 PRURHFI BIT(1), /* FORMAT INDICATOR */ 65600010 * 5 PRURHSDI BIT(1), /* SENSE DATA INDICAT */ 66400010 * 5 PRURHBC BIT(1), /* BEGIN CHAIN */ 67200010 * 5 PRURHEC BIT(1), /* END CHAIN */ 68000010 * 4 PRURHFG1 CHAR(1), /* RH FLAG 1 */ 68800010 * 5 PRURHDR1 BIT(1), /* DEFINITE RESPONSE 1 */ 69600010 * 5 * BIT(1), /* RESERVED */ 70400010 * 5 PRURHDR2 BIT(1), /* DEFINITE RESPONSE 2 */ 71200010 * 5 PRURHER BIT(1), /* EXCEPTION RESPONSE */ 72000010 * 5 * BIT(3), /* RESERVED */ 72800010 * 5 PRURHPI BIT(1), /* PACING INDICATOR */ 73600010 * 4 PRURHFG2 CHAR(1), /* RH FLAG 2 */ 74400010 * 5 PRURHBB BIT(1), /* BEGIN BRACKET */ 75200010 * 5 PRURHEB BIT(1), /* END BRACKET */ 76000010 * 5 PRURHCDI BIT(1), /* CHANGE DIRECTION INDIC */ 76800010 * 5 * BIT(1), /* RESERVED */ 77600010 * 5 PRURHCSI BIT(1), /* CODE SELECTION INDIC */ 78400010 * 5 * BIT(3), /* RESERVED */ 79200010 * 3 PRUTH CHAR(1), /* TH FIELDS */ 80000010 * 4 PRUFIDN CHAR(1), /* FID LEVEL INDICATOR */ 80400010 * 5 PRUTHTYE BIT(4), /* FORMAT TYPE */ 80800010 * 5 PRUTHBIU BIT(1), /* BEGIN SEGMENT */ 81600010 * 5 PRUTHEIU BIT(1), /* END SEGMENT */ 82400010 * 5 PRUTHUSS BIT(1), /* CONV FROM USS TO FSS */ 83200010 * 5 PRUTHEFI BIT(1), /* EXPEDITED FLOW INDIC */ 84000010 * 2 * PTR(31); /* RESERVED */ 84800010 * 85600010 */* */ 85800010 */* FORMAT TYPE (PRUTHTYE) */ 86000010 */* */ 86200010 * DCL PRUTHFD0 BIT(4) CONSTANT('0000'B); /* FID 0 INDICATOR */ 86400010 * DCL PRUTHFD1 BIT(4) CONSTANT('0001'B); /* FID 1 INDICATOR */ 87200010 * DCL PRUTHFD2 BIT(4) CONSTANT('0010'B); /* FID 2 INDICATOR */ 88000010 * DCL PRUTHFD3 BIT(4) CONSTANT('0011'B); /* FID 3 INDICATOR */ 88800010 * 89600010 */* */ 90600010 */* RU CATEGORY (PRURUCAT) */ 91600010 */* */ 92600010 * DCL PRURHFMD BIT(2) CONSTANT('00'B); /* FM DATA */ 93600010 * DCL PRURHNC BIT(2) CONSTANT('01'B); /* NETWORK CONTROL */ 94600010 * DCL PRURHDFC BIT(2) CONSTANT('10'B); /* DATA FLOW CONTROL */ 95600010 * DCL PRURHSC BIT(2) CONSTANT('11'B); /* SESSION CONTROL */ 96600010 */* @Y17XAXF*/ 97100010 */* INVALID TIC POINTER CONSTANT @Y17XAXF*/ 97600010 */* @Y17XAXF*/ 98100010 * DCL PRUINTIC BIT(32) CONSTANT('08000002'X); /* LAST PACKED @Y17XAXF*/ 98600010 * /* RU IN CHN @Y17XAXF*/ 99100010