SGTE TITLE 'BLSSSGTE--FIND SEGMENT TABLE (SGT) *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPRW */ 00004000 */* THIS MODULE WAS CHANGED FOR @ZA31997 @ZA31997*/ 00005000 */*------------------------------------------------------------------*/ 00006000 BLSSSGTE CSECT , 01S0002 00007000 @MAINENT DS 0H 01S0002 00008000 USING *,@15 01S0002 00009000 B @PROLOG 01S0002 00010000 DC AL1(16) 01S0002 00011000 DC C'BLSSSGTE 78.117' 01S0002 00012000 DROP @15 00013000 @PROLOG STM @14,@12,12(@13) 01S0002 00014000 BALR @12,0 01S0002 00015000 @PSTART DS 0H 01S0002 00016000 USING @PSTART,@12 01S0002 00017000 L @00,@SIZDATD 01S0002 00018000 BLSUALLS R,LV=(0) 00019000 LR @11,@01 01S0002 00020000 USING @DATD,@11 01S0002 00021000 ST @13,@SA00001+4 01S0002 00022000 LM @00,@01,20(@13) 01S0002 00023000 ST @11,8(,@13) 01S0002 00024000 LR @13,@11 01S0002 00025000 MVC @PC00001(8),0(@01) 01S0002 00026000 * ESBAPTR=ADDR(ESPA); /* ->ESBA (ALIAS FOR ESPA) */ 00027000 L ESBAPTR,@PC00001+4 01S0151 00028000 * ASID=0; /* ASID */ 00029000 SLR ASID,ASID 01S0152 00030000 * RETC=ZZZFLAGS; /* RETURN CODE */ 00031000 LA RETC,12 01S0153 00032000 * IF SYMBA^='SGT'|ESBASYM(LENGTH(SYMB)+1:ZZZSYML)^=BLANKSUF THEN 00033000 CLC SYMBA(3,ESBAPTR),@CC01658 01S0154 00034000 BNE @RT00154 01S0154 00035000 CLC ESBASYM+6(25,ESBAPTR),BLANKSUF 01S0154 00036000 BNE @RT00154 01S0154 00037000 * GO TO EXIT; /* COMMON EXIT PATH */ 00038000 * DO J1=1 TO LENGTH(SYMBB) WHILE(SYMBB(J1:J1)>='0'&SYMBB(J1:J1)<='9') 00039000 * ; /* VERIFY NUMERIC DIGITS */ 00040000 LA J1,1 01S0156 00041000 @DL00156 LR @14,ESBAPTR 01S0156 00042000 ALR @14,J1 01S0156 00043000 CLI SYMBB-1(@14),C'0' 01S0156 00044000 BL @DC00156 01S0156 00045000 LR @14,ESBAPTR 01S0156 00046000 ALR @14,J1 01S0156 00047000 CLI SYMBB-1(@14),C'9' 01S0156 00048000 BH @DC00156 01S0156 00049000 * END; /* VERIFY NUMERIC DIGITS */ 00050000 AH J1,@CH00046 01S0157 00051000 CH J1,@CH00158 01S0157 00052000 BNH @DL00156 01S0157 00053000 @DC00156 DS 0H 01S0158 00054000 * IF J1<=LENGTH(SYMBB) THEN /* NON-NUMERIC DIGIT */ 00055000 CH J1,@CH00158 01S0158 00056000 BNH @RT00158 01S0158 00057000 * GO TO EXIT; /* COMMON EXIT PATH */ 00058000 * 01S0159 00059000 * DO;/*BLRCNVCU(SYMBB) FROM(CHARACTER)TO(UNSIGNED BINARY)SET(ASID)RE 00060000 *ARK(ADDRESS SPACE IDENTIFIER)*/ 01S0160 00061000 * /*ADDRESS SPACE IDENTIFIER*/ 01S0161 00062000 * PACK(PACKED,SYMBB);/*EBCDIC=>PACKED DECIMAL*/ 01S0161 00063000 PACK PACKED(8),SYMBB(3,ESBAPTR) 01S0161 00064000 * CVB(ASID,PACKED);/*PACKED DECIMAL=>UNSIGNED BINARY*/ 01S0162 00065000 CVB ASID,PACKED 01S0162 00066000 * END;/*BLRCNVCU(SYMBB) FROM(CHARACTER)TO(UNSIGNED BINARY)SET(ASID)R 00067000 *MARK(ADDRESS SPACE IDENTIFIER)*/ 01S0163 00068000 * IF ASID=0 THEN /* ABSURD ADDRESS SPACE */ 00069000 SLR @14,@14 01S0164 00070000 CR ASID,@14 01S0164 00071000 BE @RT00164 01S0164 00072000 * GO TO EXIT; /* COMMON EXIT PATH */ 00073000 * ESBAAS=DATS; /* REAL STORAGE */ 00074000 MVC ESBAAS(16,ESBAPTR),DATS 01S0166 00075000 * ESBAAS1=ZZ6DQA1; /* PREFERRED CPU ADDRESS */ 00076000 L @10,ZZ2AZZ6P(,R9) 01S0167 00077000 MVC ESBAAS1(4,ESBAPTR),ZZ6DQA1(@10) 01S0167 00078000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00079000 SLR RETC,RETC 01S0168 00080000 * IF /* CRITICAL TABLE FOR DAT */ 00081000 * ASID=ZZZAS2M& /* MASTER SEGMENT TABLE */ 00082000 * ZZ6DFAB=ZZZ1 THEN /* ABSOLUTE STORAGE DUMP */ 00083000 * 01S0169 00084000 CH ASID,@CH00046 01S0169 00085000 BNE @RF00169 01S0169 00086000 TM ZZ6DFAB(@10),B'00010000' 01S0169 00087000 BNO @RF00169 01S0169 00088000 * /***************************************************************/ 00089000 * /* */ 00090000 * /* CRITICAL SEGMENT TABLE FOR DYNAMIC ADDRESS TRANSLATION */ 00091000 * /* */ 00092000 * /***************************************************************/ 00093000 * 01S0170 00094000 * DO; /* CRITICAL TABLE FOR DAT */ 00095000 * ESAU(1:ESAULRL)=ESBA(1:ESBALRL);/* INITIALIZE ESAU */ 00096000 MVC ESAU(182),ESBA(ESBAPTR) 01S0171 00097000 * ESAUSYM(1:7)='PSASTOR'; /* SYMBOLIC BASE */ 00098000 MVC ESAUSYM(7),@CC01740 01S0172 00099000 * ESAULAD=ZZZZNULL; /* ->PSA (LOCATION 0.) */ 00100000 ST @14,ESAULAD 01S0173 00101000 * ESAUD=DATCP; /* STORAGE CHARACTERISTICS */ 00102000 MVC ESAUD(60),DATCP 01S0174 00103000 * ESAURL=0; /* NO REMARK */ 00104000 STH @14,ESAURL 01S0175 00105000 * CALL BLSRACC(ZZ2,ESAU,STOR);/* RETRIEVE STORAGE */ 00106000 ST R9,@AL00001 01S0176 00107000 LA @14,ESAU 01S0176 00108000 ST @14,@AL00001+4 01S0176 00109000 LA @14,STOR 01S0176 00110000 ST @14,@AL00001+8 01S0176 00111000 L @10,ZZ2RVTP(,R9) 01S0176 00112000 L @15,RVTRACCP(,@10) 01S0176 00113000 LA @01,@AL00001 01S0176 00114000 BALR @14,@15 01S0176 00115000 * IF RF^=ZZZFLAGI THEN /* MASTER STOR NOT IN DUMP */ 00116000 * 01S0177 00117000 LTR RF,RF 01S0177 00118000 BZ @RF00177 01S0177 00119000 * /***********************************************************/ 00120000 * /* */ 00121000 * /* MASTER SEGMENT TABLE ORIGIN REGISTER NOT IN DUMP */ 00122000 * /* */ 00123000 * /***********************************************************/ 00124000 * 01S0178 00125000 * DO; /* MASTER STOR NOT IN DUMP */ 00126000 * RETC=MAX(RF,ZZZFLAGS); /* RETURN CODE */ 00127000 LA RETC,12 01S0179 00128000 CR RETC,RF 01S0179 00129000 BNL *+6 00130000 LR RETC,RF 01S0179 00131000 * GO TO EXIT; /* COMMON EXIT PATH */ 00132000 B EXIT 01S0180 00133000 * END; /* MASTER STOR NOT IN DUMP */ 00134000 * CALL E100; /* VALIDATE STOR */ 00135000 @RF00177 BAL @14,E100 01S0182 00136000 * IF RETC>ZZZFLAGE THEN /* SGT001 VALIDATION FAILED */ 00137000 * 01S0183 00138000 CH RETC,@CH00054 01S0183 00139000 BNH @RF00183 01S0183 00140000 * /***********************************************************/ 00141000 * /* */ 00142000 * /* MASTER SEGMENT TABLE VALIDATION FAILED */ 00143000 * /* */ 00144000 * /***********************************************************/ 00145000 * 01S0184 00146000 * DO; /* SGT001 VALIDATION FAILED */ 00147000 * ASID=0; /* ASID */ 00148000 SLR ASID,ASID 01S0185 00149000 * GO TO EXIT; /* COMMON EXIT PATH */ 00150000 B EXIT 01S0186 00151000 * END; /* SGT001 VALIDATION FAILED */ 00152000 * 01S0187 00153000 * DO;/*BLSRARQ(ADD) RECORD(ESBA)ANCHOR(ZZ2VRESP)MF(EXECUTE,ARAU, 00154000 *OMPLETE)*/ 01S0188 00155000 @RF00183 DS 0H 01S0189 00156000 * ARAURCDP=ADDR(ESBA);/*->RECORD*/ 01S0189 00157000 ST ESBAPTR,ARAURCDP 01S0189 00158000 * ARAUARQP=ZZ2VRESP;/*->PREVIOUS ELEMENT*/ 01S0190 00159000 MVC ARAUARQP(4),ZZ2VRESP(R9) 01S0190 00160000 * ZZ2VRESP=ADDR(ARAU);/*ADD ELEMENT*/ 01S0191 00161000 LA @14,ARAU 01S0191 00162000 ST @14,ZZ2VRESP(,R9) 01S0191 00163000 * END;/*BLSRARQ(ADD) RECORD(ESBA)ANCHOR(ZZ2VRESP)MF(EXECUTE,ARAU 00164000 *COMPLETE)*/ 01S0192 00165000 * END; /* CRITICAL TABLE FOR DAT */ 00166000 * SYMAA='ASCB'; /* SYMBOL--PREFIX */ 00167000 @RF00169 MVC SYMAA(4),@CC01653 01S0194 00168000 * SYMAB=SYMBB; /* SYMBOL--SUFFIX */ 00169000 MVC SYMAB(3),SYMBB(ESBAPTR) 01S0195 00170000 * ESAUSYM(LENGTH(SYMA)+1:ZZZSYML)=BLANKA;/* PAD WITH BLANKS */ 00171000 MVC ESAUSYM+7(24),BLANKA 01S0196 00172000 * ESAUDT=DATCAT; /* DATA TYPE */ 00173000 MVC ESAUDT(34),DATCAT 01S0197 00174000 * CALL BLSRESGU(ZZ2,ESAU); /* LOCATE ASCB */ 00175000 ST R9,@AL00001 01S0198 00176000 LA @14,ESAU 01S0198 00177000 ST @14,@AL00001+4 01S0198 00178000 L @10,ZZ2RVTP(,R9) 01S0198 00179000 L @15,RVTESGUP(,@10) 01S0198 00180000 LA @01,@AL00001 01S0198 00181000 BALR @14,@15 01S0198 00182000 * IF RF>ZZZFLAGE THEN /* ASCB NOT FOUND */ 00183000 * 01S0199 00184000 CH RF,@CH00054 01S0199 00185000 BNH @RF00199 01S0199 00186000 * /***************************************************************/ 00187000 * /* */ 00188000 * /* ASCB NOT FOUND */ 00189000 * /* */ 00190000 * /***************************************************************/ 00191000 * 01S0200 00192000 * DO; /* ASCB NOT FOUND */ 00193000 * IF ASID^=ZZZAS2M THEN /* NOT THE MASTER SEGMENT TABLE */ 00194000 CH ASID,@CH00046 01S0201 00195000 BE @RF00201 01S0201 00196000 * RETC=RF; /* RETURN CODE */ 00197000 LR RETC,RF 01S0202 00198000 * GO TO EXIT; /* COMMON EXIT PATH */ 00199000 B EXIT 01S0203 00200000 * END; /* ASCB NOT FOUND */ 00201000 * ESAUD=DATCA; /* STORAGE ATTRIBUTES */ 00202000 @RF00199 MVC ESAUD(60),DATCA 01S0205 00203000 * ASCBPTR=ADDR(MYASCB); /* ->ASCB IMAGE */ 00204000 LA ASCBPTR,MYASCB 01S0206 00205000 * CALL BLSRACC(ZZ2,ESAU,ASCB); /* RETRIEVE IMAGE OF ASCB */ 00206000 ST R9,@AL00001 01S0207 00207000 LA @14,ESAU 01S0207 00208000 ST @14,@AL00001+4 01S0207 00209000 ST ASCBPTR,@AL00001+8 01S0207 00210000 L @10,ZZ2RVTP(,R9) 01S0207 00211000 L @15,RVTRACCP(,@10) 01S0207 00212000 LA @01,@AL00001 01S0207 00213000 BALR @14,@15 01S0207 00214000 * IF RF^=ZZZFLAGI THEN /* ASCB NOT IN THE DUMP */ 00215000 * 01S0208 00216000 LTR RF,RF 01S0208 00217000 BZ @RF00208 01S0208 00218000 * /***************************************************************/ 00219000 * /* */ 00220000 * /* ASCB NOT IN THE DUMP */ 00221000 * /* */ 00222000 * /***************************************************************/ 00223000 * 01S0209 00224000 * DO; /* ASCB NOT IN THE DUMP */ 00225000 * IF ASID^=ZZZAS2M THEN /* NOT THE MASTER SEGMENT TABLE */ 00226000 CH ASID,@CH00046 01S0210 00227000 BE @RF00210 01S0210 00228000 * RETC=ZZZFLAGS; /* SERIOUS ERROR */ 00229000 LA RETC,12 01S0211 00230000 * GO TO EXIT; /* COMMON EXIT PATH */ 00231000 B EXIT 01S0212 00232000 * END; /* ASCB NOT IN THE DUMP */ 00233000 * IF ASCBSEQN='7FFF'X THEN /* ASCB NOT ON DISPATCHING QUEUE */ 00234000 * 01S0214 00235000 @RF00208 CLC ASCBSEQN(2,ASCBPTR),@CH01743 01S0214 00236000 BNE @RF00214 01S0214 00237000 * /***************************************************************/ 00238000 * /* */ 00239000 * /* ASCB NOT ON DISPATCHING QUEUE */ 00240000 * /* */ 00241000 * /***************************************************************/ 00242000 * 01S0215 00243000 * DO; /* ASCB NOT ON DISPATCHING QUEUE */ 00244000 * RETC=ZZZFLAGS; /* SERIOUS ERROR */ 00245000 LA RETC,12 01S0216 00246000 * GO TO EXIT; /* COMMON EXIT PATH */ 00247000 B EXIT 01S0217 00248000 * END; /* ASCB NOT ON DISPATCHING QUEUE */ 00249000 * IF /* CRITICAL TABLE FOR DAT */ 00250000 * ASID=ZZZAS2M& /* MASTER ADDRESS SPACE */ 00251000 * ZZ6DFAB=ZZZ1 THEN /* ABSOLUTE STORAGE DUMP */ 00252000 * 01S0219 00253000 @RF00214 CH ASID,@CH00046 01S0219 00254000 BNE @RF00219 01S0219 00255000 L @14,ZZ2AZZ6P(,R9) 01S0219 00256000 TM ZZ6DFAB(@14),B'00010000' 01S0219 00257000 BNO @RF00219 01S0219 00258000 * /***************************************************************/ 00259000 * /* */ 00260000 * /* CRITICAL SEGMENT TABLE FOR DYNAMIC ADDRESS TRANSLATION */ 00261000 * /* */ 00262000 * /***************************************************************/ 00263000 * 01S0220 00264000 * DO; /* CRITICAL TABLE FOR DAT */ 00265000 * IF ASCBSTOR^=STOR THEN /* DISCREPENCY */ 00266000 * 01S0221 00267000 CLC ASCBSTOR(4,ASCBPTR),STOR 01S0221 00268000 BE @RF00221 01S0221 00269000 * /***********************************************************/ 00270000 * /* */ 00271000 * /* DISCREPENCY BETWEEN PSA AND ASCB */ 00272000 * /* */ 00273000 * /***********************************************************/ 00274000 * 01S0222 00275000 * DO; /* DISCREPENCY */ 00276000 * IF ZZ2ASE<=ZZZFLAGE THEN/* ERROR MESSAGES PERMITTED */ 00277000 CLI ZZ2ASE(R9),8 01S0223 00278000 BH @RF00223 01S0223 00279000 * CALL BLSUPUTA(ZZ2,M005);/* TRANSMIT MESSAGE M005 */ 00280000 ST R9,@AL00001 01S0224 00281000 LA @14,M005 01S0224 00282000 ST @14,@AL00001+4 01S0224 00283000 L @10,ZZ2BVTP(,R9) 01S0224 00284000 L @15,BVTPUTAP(,@10) 01S0224 00285000 LA @01,@AL00001 01S0224 00286000 BALR @14,@15 01S0224 00287000 * RETC=ZZZFLAGE; /* ERROR CONDITION */ 00288000 @RF00223 LA RETC,8 01S0225 00289000 * END; /* DISCREPENCY */ 00290000 * END; /* CRITICAL TABLE FOR DAT */ 00291000 * ELSE /* NOT A CRITICAL SEGMENT TABLE */ 00292000 * 01S0228 00293000 * /***************************************************************/ 00294000 * /* */ 00295000 * /* NOT A CRITICAL SEGMENT TABLE */ 00296000 * /* */ 00297000 * /***************************************************************/ 00298000 * 01S0228 00299000 * DO; /* NOT A CRITICAL SEGMENT TABLE */ 00300000 B @RC00219 01S0228 00301000 @RF00219 DS 0H 01S0229 00302000 * STOR=ASCBSTOR; /* SEGMENT TABLE ORIGIN REGISTER */ 00303000 MVC STOR(4),ASCBSTOR(ASCBPTR) 01S0229 00304000 * CALL E100; /* VALIDATE STOR */ 00305000 BAL @14,E100 01S0230 00306000 * END; /* NOT A CRITICAL SEGMENT TABLE */ 00307000 * IF RETCSEGMENT TABLE (REAL STORAGE)*/ 00368000 @RF00240 SLR @14,@14 01S0245 00369000 ICM @14,7,STORP 01S0245 00370000 ST @14,ESBALAD(,ESBAPTR) 01S0245 00371000 * ESBADFA=ZZZ1; /* ARRAY */ 00372000 OI ESBADFA(ESBAPTR),B'10000000' 01S0246 00373000 * ESBADIM=256; /* MVS==>256-ENTRY SEGMENT TABLE */ 00374000 MVC ESBADIM(4,ESBAPTR),@CF00398 01S0247 00375000 * ESBADIL=0; /* SEGMENT 0=>ENTRY 0, .... */ 00376000 SLR @14,@14 01S0248 00377000 ST @14,ESBADIL(,ESBAPTR) 01S0248 00378000 * CALL BLSRSAGU(ZZ2,SAAU,ESBA); /* SCAN SEGMENT TABLE */ 00379000 ST R9,@AL00001 01S0249 00380000 LA @14,SAAU 01S0249 00381000 ST @14,@AL00001+4 01S0249 00382000 ST ESBAPTR,@AL00001+8 01S0249 00383000 L @10,ZZ2RVTP(,R9) 01S0249 00384000 L @15,RVTSAGUP(,@10) 01S0249 00385000 LA @01,@AL00001 01S0249 00386000 BALR @14,@15 01S0249 00387000 * RETC=MAX(RETC,RF,SAAUSRC); /* RETURN CODE */ 00388000 LR @14,RF 01S0250 00389000 CR @14,RETC 01S0250 00390000 BNL *+6 00391000 LR @14,RETC 01S0250 00392000 SLR @10,@10 01S0250 00393000 IC @10,SAAUSRC 01S0250 00394000 CR @14,@10 01S0250 00395000 BNL *+6 00396000 LR @14,@10 01S0250 00397000 LR RETC,@14 01S0250 00398000 *L190: /* COMMON EXIT PATH */ 00399000 * RETURN; 01S0251 00400000 @EL00002 DS 0H 01S0251 00401000 @EF00002 DS 0H 01S0251 00402000 @ER00002 LM @14,@03,@SA00002 01S0251 00403000 LM @05,@12,@SA00002+24 01S0251 00404000 BR @14 01S0251 00405000 * END E100; 01S0252 00406000 * 01S0252 00407000 B @EL00002 01S0252 00408000 */*BLSSPEND--FIND EXIT*/ 01S0253 00409000 * 01S0253 00410000 */*BLSRPEND--DEBUGGING MODULE*/ 01S0253 00411000 * 01S0253 00412000 */*BLSUPEND--MVS IPCS MODULE*/ 01S0253 00413000 * 01S0253 00414000 * DECLARE/*DATA FOR AHB MACROS*/ 01S0253 00415000 * PACKED BIT(64) BOUNDARY(DWORD);/*DATA CONVERSION WORK AREA*/ 00416000 * 01S0253 00417000 * 01S0253 00418000 * DECLARE /* COMMON VARIABLES */ 01S0254 00419000 * I256C CHAR(256) BASED, 01S0254 00420000 * I031F FIXED(31) BASED, 01S0254 00421000 * I031P PTR(31) BASED, 01S0254 00422000 * I015F FIXED(15) BASED, 01S0254 00423000 * I015P PTR(15) BASED, 01S0254 00424000 * I008P PTR(8) BASED, 01S0254 00425000 * I001C CHAR(1) BASED; 01S0254 00426000 * GENERATE NODEFS NOREFS DATA; 01S0255 00427000 * END BLSSSGTE /*BLRPEND(BLSSSGTE) */ 01S0256 00428000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00429000 */*%INCLUDE SYSLIB (BLSRZZZ ) * 00430000 */*%INCLUDE SYSLIB (BLSUZZZ ) * 00431000 */*%INCLUDE SYSLIB (BLRFULL ) * 00432000 */*%INCLUDE SYSLIB (IKJCPPL ) * 00433000 */*%INCLUDE SYSLIB (IKJPSCB ) * 00434000 */*%INCLUDE SYSLIB (IKJECT ) * 00435000 */*%INCLUDE SYSLIB (IKJUPT ) * 00436000 */*%INCLUDE SYSLIB (BLSUSERV) * 00437000 */*%INCLUDE SYSLIB (BLRSERV ) * 00438000 */*%INCLUDE SYSLIB (BLRSERVD) * 00439000 */*%INCLUDE SYSLIB (BLSRSERV) * 00440000 */*%INCLUDE SYSLIB (IHAASCB ) * 00441000 */*%INCLUDE SYSLIB (IHAPSA ) * 00442000 *; 01S0256 00443000 @EL00001 L @13,4(,@13) 01S0256 00444000 @EF00001 L @00,@SIZDATD 01S0256 00445000 LR @01,@11 01S0256 00446000 BLSUFRES R,LV=(0),A=(1) 00447000 @ER00001 LM @14,@12,12(@13) 01S0256 00448000 BR @14 01S0256 00449000 @DATA DS 0H 00450000 @CH00046 DC H'1' 00451000 @CH00158 DC H'3' 00452000 @CH00054 DC H'8' 00453000 @CH00036 DC H'12' 00454000 @CH01743 DC XL2'7FFF' 00455000 @DATD DSECT 00456000 DS 0F 00457000 @SA00001 DS 18F 00458000 @PC00001 DS 2F 00459000 @SA00002 DS 14F 00460000 @AL00001 DS 3A 00461000 BLSSSGTE CSECT 00462000 DS 0F 00463000 @CF00398 DC F'256' 00464000 @CF01748 DC XL4'FFFFC0' 00465000 @DATD DSECT 00466000 DS 0D 00467000 VSAMBUFR DS CL3072 00468000 ARAU DS CL8 00469000 ORG ARAU 00470000 ARAUARQP DS AL4 00471000 ARAURCDP DS AL4 00472000 ARAU9999 DS 0C 00473000 ORG ARAU+8 00474000 STOR DS CL4 00475000 ORG STOR 00476000 STORL DS FL1 00477000 STORP DS AL3 00478000 ORG STOR+4 00479000 DS CL4 00480000 MYASCB DS CL208 00481000 PACKED DS BL8 00482000 BLSSSGTE CSECT 00483000 DS 0F 00484000 @SIZDATD DC AL1(0) 00485000 DC AL3(@ENDDATD-@DATD) 00486000 DS 0D 00487000 @CC01740 DC C'PSASTOR' 00488000 @CC01653 DC C'ASCB' 00489000 @CC01658 DC C'SGT' 00490000 RMKS DS CL15 00491000 ORG RMKS 00492000 RMKSL DC AL2(13) 00493000 RMKST DS CL13 00494000 ORG RMKST 00495000 RMKSTA DC CL13'SEGMENT TABLE' 00496000 ORG RMKS+15 00497000 DS CL1 00498000 M005 DS CL55 00499000 ORG M005 00500000 M005L DC AL2(55) 00501000 @NM00151 DC X'0000' 00502000 M005T DS CL51 00503000 ORG M005T 00504000 M005TA DC CL51'BLS19005I PSASTOR AND ASCBSTOR FOR ASID(1) DISAGREEC00505000 ' 00506000 ORG M005+55 00507000 DS CL3 00508000 DATCA DS CL60 00509000 ORG DATCA 00510000 DATCA00 DS 0C 00511000 DATCAOF DC F'0' 00512000 DATCALE DC AL4(208) 00513000 DATCAOB DC AL1(0) 00514000 DATCALB DC AL1(0) 00515000 DATCAT DS CL34 00516000 ORG DATCAT 00517000 DATCAT0 DS 0C 00518000 DATCATY DC CL1'M' 00519000 @NM00152 DC X'00' 00520000 DATCATD DC CL31'ASCB' 00521000 DATCATE DC CL1' ' 00522000 DATCAT9 DS 0C 00523000 ORG DATCA+44 00524000 DATCAIM DC A(0) 00525000 DATCAIL DC F'0' 00526000 DATCAF DC X'00000000' 00527000 ORG DATCAF 00528000 DATCAFA DS BL1 00529000 @NM00153 EQU DATCAF+0 00530000 ORG DATCA+56 00531000 @NM00154 DC X'00' 00532000 DC XL3'0' 00533000 DATCA99 DS 0C 00534000 ORG DATCA+60 00535000 DATCP DS CL60 00536000 ORG DATCP 00537000 DATCP00 DS 0C 00538000 DATCPOF DC AL4(PSASTOR) 00539000 DATCPLE DC AL4(4) 00540000 DATCPOB DC AL1(0) 00541000 DATCPLB DC AL1(0) 00542000 DATCPT DS CL34 00543000 ORG DATCPT 00544000 DATCPT0 DS 0C 00545000 DATCPTY DC CL1'M' 00546000 @NM00155 DC X'00' 00547000 DATCPTD DC CL31'PSA' 00548000 DATCPTE DC CL1' ' 00549000 DATCPT9 DS 0C 00550000 ORG DATCP+44 00551000 DATCPIM DC A(0) 00552000 DATCPIL DC F'0' 00553000 DATCPF DC X'00000000' 00554000 ORG DATCPF 00555000 DATCPFA DS BL1 00556000 @NM00156 EQU DATCPF+0 00557000 ORG DATCP+56 00558000 @NM00157 DC X'00' 00559000 DC XL3'0' 00560000 DATCP99 DS 0C 00561000 ORG DATCP+60 00562000 DATS DS CL16 00563000 ORG DATS 00564000 DATS0 DS 0C 00565000 DATST DC CL2'CR' 00566000 @NM00158 DC X'0000' 00567000 DATS1 DC A(0) 00568000 DATS2 DC A(0) 00569000 @NM00159 DC X'00' 00570000 DC XL3'0' 00571000 DATS9 DS 0C 00572000 ORG DATS+16 00573000 BLANKSUF DC CL25' ' 00574000 @DATD DSECT 00575000 SPACE 2 00576000 *********************************************************************** 00577000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00578000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00579000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00580000 *********************************************************************** 00581000 SPACE 00582000 BLSSSGTE CSECT 00583000 ORG 00584000 DS 0D 00585000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSSSGTE+19)/20+7)/8)CL8'BLSSSGTE' 00586000 @DATD DSECT 00587000 DS 0H 00588000 @DATD DSECT 00589000 SPACE 2 00590000 *********************************************************************** 00591000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00592000 *********************************************************************** 00593000 SPACE 00594000 DS 0D 00595000 @DATD DSECT 00596000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00597000 @ENDDATD EQU * 00598000 BLSSSGTE CSECT 00599000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00600000 @01 EQU 01 00601000 @02 EQU 02 00602000 @03 EQU 03 00603000 @04 EQU 04 00604000 @05 EQU 05 00605000 @06 EQU 06 00606000 @07 EQU 07 00607000 @08 EQU 08 00608000 @09 EQU 09 00609000 @10 EQU 10 00610000 @11 EQU 11 00611000 @12 EQU 12 00612000 @13 EQU 13 00613000 @14 EQU 14 00614000 @15 EQU 15 00615000 J1 EQU @05 00616000 ASID EQU @05 00617000 ASCBPTR EQU @06 00618000 RETC EQU @04 00619000 ESBAPTR EQU @03 00620000 R9 EQU @09 00621000 R0 EQU @00 00622000 R1 EQU @01 00623000 R2 EQU @02 00624000 R3 EQU @03 00625000 R4 EQU @04 00626000 R5 EQU @05 00627000 RB EQU @11 00628000 RD EQU @13 00629000 RE EQU @14 00630000 RF EQU @15 00631000 RA EQU @10 00632000 RC EQU @12 00633000 R6 EQU @06 00634000 R7 EQU @07 00635000 R8 EQU @08 00636000 PSA EQU 0 00637000 FLCRNPSW EQU PSA 00638000 FLCROPSW EQU PSA+8 00639000 FLCICCW2 EQU PSA+16 00640000 PSAEEPSW EQU PSA+132 00641000 PSAESPSW EQU PSA+136 00642000 FLCSVILC EQU PSAESPSW+1 00643000 PSAEPPSW EQU PSA+140 00644000 FLCPIILC EQU PSAEPPSW+1 00645000 FLCPICOD EQU PSAEPPSW+2 00646000 PSAPICOD EQU FLCPICOD+1 00647000 FLCTEA EQU PSAEPPSW+4 00648000 FLCPER EQU PSA+152 00649000 FLCMCLA EQU PSA+168 00650000 FLCIOEL EQU FLCMCLA+4 00651000 FLCIOA EQU FLCMCLA+16 00652000 FLCFSA EQU FLCMCLA+80 00653000 PSASUPER EQU PSA+552 00654000 PSASUP1 EQU PSASUPER 00655000 PSASUP2 EQU PSASUPER+1 00656000 PSASUP3 EQU PSASUPER+2 00657000 PSASUP4 EQU PSASUPER+3 00658000 PSACLHT EQU PSA+640 00659000 PSALKSA EQU PSA+696 00660000 PSAHLHI EQU PSA+760 00661000 PSASTOR EQU PSA+796 00662000 PSADSSFL EQU PSA+836 00663000 PSADSSF1 EQU PSADSSFL 00664000 PSADSSF3 EQU PSADSSFL+2 00665000 PSADSSF4 EQU PSADSSFL+3 00666000 PSARSVT EQU PSA+896 00667000 ESBA EQU 0 00668000 ESBASYM EQU ESBA+28 00669000 ESBAAS EQU ESBA+60 00670000 ESBAAS1 EQU ESBAAS+4 00671000 ESBALAD EQU ESBA+76 00672000 ESBAD EQU ESBA+80 00673000 ESBADT EQU ESBAD+10 00674000 ESBADIM EQU ESBAD+44 00675000 ESBADIL EQU ESBAD+48 00676000 ESBADF EQU ESBAD+52 00677000 ESBADFA EQU ESBADF 00678000 ESBAF EQU ESBA+161 00679000 ESBAFS EQU ESBAF 00680000 ESBAFC EQU ESBAF+1 00681000 ESBAR EQU ESBA+180 00682000 ESBART EQU ESBAR+2 00683000 ZZ1 EQU 0 00684000 ZZ1ATTN EQU ZZ1+360 00685000 ZZ1EVE EQU ZZ1ATTN+4 00686000 ZZ1F EQU ZZ1+368 00687000 ZZ1N EQU ZZ1+1116 00688000 ZZ2 EQU 0 00689000 ZZ2AMD EQU ZZ2 00690000 @NM00061 EQU ZZ2AMD+7 00691000 ZZ2PRT EQU ZZ2+138 00692000 ZZ2PRTT EQU ZZ2PRT+4 00693000 ZZ2PRTT1 EQU ZZ2PRTT+1 00694000 ZZ2A EQU ZZ2+272 00695000 ZZ2ASE EQU ZZ2A+2 00696000 ZZ2AF EQU ZZ2A+16 00697000 ZZ2APID EQU ZZ2A+64 00698000 ZZ2AD EQU ZZ2A+74 00699000 ZZ2ADD EQU ZZ2AD 00700000 ZZ2ADDT EQU ZZ2ADD+2 00701000 ZZ2ADM EQU ZZ2AD+46 00702000 ZZ2ADMT EQU ZZ2ADM+2 00703000 ZZ2ADP EQU ZZ2AD+56 00704000 ZZ2ADPT EQU ZZ2ADP+2 00705000 ZZ2AZZ6P EQU ZZ2A+140 00706000 ZZ2AQAS EQU ZZ2A+144 00707000 ZZ2AQD EQU ZZ2A+160 00708000 ZZ2AQDT EQU ZZ2AQD+10 00709000 ZZ2AQDF EQU ZZ2AQD+52 00710000 ZZ2STG EQU ZZ2+960 00711000 ZZ2ALLOP EQU ZZ2+992 00712000 ZZ2FREEP EQU ZZ2+996 00713000 ZZ2FF19P EQU ZZ2+1000 00714000 ZZ2FRE1P EQU ZZ2+1004 00715000 ZZ2FF18P EQU ZZ2+1008 00716000 ZZ2DYNAP EQU ZZ2+1012 00717000 ZZ2ZZ2CP EQU ZZ2+1016 00718000 ZZ2ZZ2DP EQU ZZ2+1020 00719000 ZZ2STAIP EQU ZZ2+1024 00720000 ZZ2FF02P EQU ZZ2+1028 00721000 ZZ2GETLP EQU ZZ2+1032 00722000 ZZ2PARSP EQU ZZ2+1036 00723000 ZZ2PTGTP EQU ZZ2+1040 00724000 ZZ2PUTLP EQU ZZ2+1044 00725000 ZZ2SCANP EQU ZZ2+1048 00726000 ZZ2STCKP EQU ZZ2+1052 00727000 ZZ2TRMOP EQU ZZ2+1064 00728000 ZZ2TRMVP EQU ZZ2+1068 00729000 ZZ2PUTNP EQU ZZ2+1084 00730000 ZZ2TRMNP EQU ZZ2+1088 00731000 ZZ2ZZ1P EQU ZZ2+1264 00732000 ZZ2BVTP EQU ZZ2+1280 00733000 ZZ2RVTP EQU ZZ2+1284 00734000 ZZ2CPPL EQU ZZ2+1292 00735000 ZZ2CPPLC EQU ZZ2CPPL 00736000 ZZ2VRESP EQU ZZ2+1308 00737000 ZZ2F EQU ZZ2+2824 00738000 ZZ2ITR EQU ZZ2+2840 00739000 ZZ2ITRE EQU ZZ2ITR+16 00740000 ZZ2ITSE EQU ZZ2+2864 00741000 ZZ2ES EQU ZZ2+2872 00742000 ZZ2AMDX EQU ZZ2+7160 00743000 ZZ2AXO EQU ZZ2+7934 00744000 ZZ2AXOT EQU ZZ2AXO+2 00745000 CMD EQU 0 00746000 CMDT EQU CMD+4 00747000 PSCB EQU 0 00748000 PSCBATR1 EQU PSCB+16 00749000 ECT EQU 0 00750000 ECTSWS EQU ECT+28 00751000 ECTSWS2 EQU ECT+40 00752000 ECTSWS21 EQU ECTSWS2 00753000 UPT EQU 0 00754000 UPTSWS EQU UPT+12 00755000 SA EQU 0 00756000 SA1 EQU SA 00757000 SAR EQU SA+12 00758000 SAR1 EQU SAR+12 00759000 BLSUPUTA EQU 0 00760000 BVT EQU 0 00761000 BVTPUTLP EQU BVT+4 00762000 BVTPUTOP EQU BVT+12 00763000 BVTPUTTP EQU BVT+16 00764000 BVTPUTVP EQU BVT+20 00765000 BVTPUTAP EQU BVT+24 00766000 BVTPRTTP EQU BVT+28 00767000 BVTPRTAP EQU BVT+32 00768000 BVTPUTDP EQU BVT+36 00769000 BVTMONP EQU BVT+40 00770000 BVTMON2P EQU BVT+44 00771000 BVTVSARP EQU BVT+48 00772000 BVTVSENP EQU BVT+64 00773000 BVTVSERP EQU BVT+68 00774000 BVTVSGEP EQU BVT+72 00775000 BVTVSGUP EQU BVT+76 00776000 BVTVSPOP EQU BVT+80 00777000 BVTVSPUP EQU BVT+84 00778000 BVTMPKNP EQU BVT+104 00779000 BVTMONLP EQU BVT+108 00780000 BVTPUTCP EQU BVT+132 00781000 BVTMPK1P EQU BVT+136 00782000 BVTZZ2RP EQU BVT+140 00783000 BVTPGMRP EQU BVT+144 00784000 BVTMONAP EQU BVT+148 00785000 BVTBLDDP EQU BVT+152 00786000 BVTBLDLP EQU BVT+156 00787000 BVTPGMCP EQU BVT+160 00788000 BVTPGMDP EQU BVT+164 00789000 BVTPGMLP EQU BVT+168 00790000 BVTMONCP EQU BVT+180 00791000 BVTMONDP EQU BVT+184 00792000 BVTMONTP EQU BVT+188 00793000 BVTPARIP EQU BVT+192 00794000 BVTPARUP EQU BVT+196 00795000 BVTPRTNP EQU BVT+204 00796000 BVTVSCRP EQU BVT+208 00797000 BVTVSMRP EQU BVT+212 00798000 BVTMONXP EQU BVT+216 00799000 BVTTRMAP EQU BVT+228 00800000 ZZ6 EQU 0 00801000 ZZ6D EQU ZZ6+128 00802000 ZZ6DD EQU ZZ6D+8 00803000 ZZ6DDT EQU ZZ6DD+4 00804000 ZZ6DQA EQU ZZ6D+68 00805000 ZZ6DQA1 EQU ZZ6DQA+4 00806000 ZZ6DF EQU ZZ6D+92 00807000 ZZ6DFAB EQU ZZ6DF 00808000 ZZ6F EQU ZZ6+504 00809000 ZZ6B EQU ZZ6+768 00810000 BLSRACC EQU 0 00811000 BLSRESGU EQU 0 00812000 BLSRSAGU EQU 0 00813000 RVT EQU 0 00814000 RVTADDRP EQU RVT 00815000 RVTT01P EQU RVT+4 00816000 RVTTAP EQU RVT+8 00817000 RVTTBP EQU RVT+12 00818000 RVTTCP EQU RVT+16 00819000 RVTTFP EQU RVT+24 00820000 RVTTYP EQU RVT+40 00821000 RVTT02P EQU RVT+48 00822000 RVTT03P EQU RVT+52 00823000 RVTT04P EQU RVT+56 00824000 RVTACCLP EQU RVT+60 00825000 RVTRACCP EQU RVT+64 00826000 RVTTLP EQU RVT+68 00827000 RVTTMP EQU RVT+72 00828000 RVTTUP EQU RVT+80 00829000 RVTESGEP EQU RVT+84 00830000 RVTESGUP EQU RVT+88 00831000 RVTESARP EQU RVT+92 00832000 RVTRAARP EQU RVT+96 00833000 RVTRAGEP EQU RVT+100 00834000 RVTADDPP EQU RVT+104 00835000 RVTACCQP EQU RVT+108 00836000 RVTSAGUP EQU RVT+124 00837000 RVTSAGEP EQU RVT+128 00838000 RVTESCKP EQU RVT+132 00839000 RVTMSGAP EQU RVT+136 00840000 RVTMSGDP EQU RVT+140 00841000 RVTADDTP EQU RVT+160 00842000 RVTADDUP EQU RVT+164 00843000 RVTADD1P EQU RVT+176 00844000 RVTADD2P EQU RVT+180 00845000 RVTRSAGP EQU RVT+184 00846000 RVTMSGBP EQU RVT+188 00847000 RVTADDSP EQU RVT+192 00848000 RVTADD3P EQU RVT+196 00849000 RVTT05P EQU RVT+200 00850000 RVTPADSP EQU RVT+204 00851000 RVTTRP EQU RVT+228 00852000 RVTADD4P EQU RVT+232 00853000 RVTSAPCP EQU RVT+236 00854000 RVTSAARP EQU RVT+240 00855000 RVTSAGNP EQU RVT+244 00856000 RVTT06P EQU RVT+248 00857000 RVTSAGCP EQU RVT+252 00858000 RVTSAGQP EQU RVT+256 00859000 RVTESGCP EQU RVT+260 00860000 RVTESGQP EQU RVT+264 00861000 RVTDUCKP EQU RVT+276 00862000 RVTDUCCP EQU RVT+280 00863000 ASCB EQU 0 00864000 ASCBSUPC EQU ASCB+16 00865000 ASCBSEQN EQU ASCB+38 00866000 ASCBSTOR EQU ASCB+44 00867000 ASCBRSM EQU ASCB+52 00868000 ASCBRSMF EQU ASCBRSM 00869000 ASCBFW1 EQU ASCB+100 00870000 ASCBRCTF EQU ASCBFW1+2 00871000 ASCBFLG1 EQU ASCBFW1+3 00872000 ASCBDSP1 EQU ASCB+114 00873000 ASCBFLG2 EQU ASCB+115 00874000 ASCBLKGP EQU ASCB+128 00875000 ASCBSRQ EQU ASCB+180 00876000 ASCBSRQ1 EQU ASCBSRQ 00877000 ASCBSRQ2 EQU ASCBSRQ+1 00878000 ASCBSRQ3 EQU ASCBSRQ+2 00879000 ASCBSRQ4 EQU ASCBSRQ+3 00880000 BLSRACCL EQU 0 00881000 BLSRACCQ EQU 0 00882000 BLSRADDP EQU 0 00883000 BLSRADDR EQU 0 00884000 BLSRADDS EQU 0 00885000 BLSRADDT EQU 0 00886000 BLSRADDU EQU 0 00887000 BLSRADD1 EQU 0 00888000 BLSRADD2 EQU 0 00889000 BLSRADD3 EQU 0 00890000 BLSRADD4 EQU 0 00891000 BLSRDUCC EQU 0 00892000 BLSRDUCK EQU 0 00893000 BLSRESAR EQU 0 00894000 BLSRESCK EQU 0 00895000 BLSRESGC EQU 0 00896000 BLSRESGE EQU 0 00897000 BLSRESGQ EQU 0 00898000 BLSRMSGA EQU 0 00899000 BLSRMSGB EQU 0 00900000 BLSRMSGD EQU 0 00901000 BLSRPADS EQU 0 00902000 BLSRRAAR EQU 0 00903000 BLSRRAGE EQU 0 00904000 BLSRSAAR EQU 0 00905000 BLSRSAG EQU 0 00906000 BLSRSAGC EQU 0 00907000 BLSRSAGE EQU 0 00908000 BLSRSAGN EQU 0 00909000 BLSRSAGQ EQU 0 00910000 BLSRSAPC EQU 0 00911000 BLSTA EQU 0 00912000 BLSTB EQU 0 00913000 BLSTC EQU 0 00914000 BLSTF EQU 0 00915000 BLSTL EQU 0 00916000 BLSTM EQU 0 00917000 BLSTR EQU 0 00918000 BLSTU EQU 0 00919000 BLSTY EQU 0 00920000 BLST01 EQU 0 00921000 BLST02 EQU 0 00922000 BLST03 EQU 0 00923000 BLST04 EQU 0 00924000 BLST05 EQU 0 00925000 BLST06 EQU 0 00926000 BLSUALLO EQU 0 00927000 BLSUBLDD EQU 0 00928000 BLSUBLDL EQU 0 00929000 BLSUDYNA EQU 0 00930000 BLSUFREE EQU 0 00931000 BLSUFRE1 EQU 0 00932000 BLSUMON EQU 0 00933000 BLSUMONA EQU 0 00934000 BLSUMONC EQU 0 00935000 BLSUMOND EQU 0 00936000 BLSUMONL EQU 0 00937000 BLSUMONT EQU 0 00938000 BLSUMONX EQU 0 00939000 BLSUMON2 EQU 0 00940000 BLSUMPKN EQU 0 00941000 BLSUMPK1 EQU 0 00942000 BLSUPARI EQU 0 00943000 BLSUPARU EQU 0 00944000 BLSUPGMC EQU 0 00945000 BLSUPGMD EQU 0 00946000 BLSUPGML EQU 0 00947000 BLSUPGMR EQU 0 00948000 BLSUPRTA EQU 0 00949000 BLSUPRTN EQU 0 00950000 BLSUPRTT EQU 0 00951000 BLSUPUTC EQU 0 00952000 BLSUPUTD EQU 0 00953000 BLSUPUTL EQU 0 00954000 BLSUPUTN EQU 0 00955000 BLSUPUTO EQU 0 00956000 BLSUPUTT EQU 0 00957000 BLSUPUTV EQU 0 00958000 BLSUSTAI EQU 0 00959000 BLSUTRMA EQU 0 00960000 BLSUTRMN EQU 0 00961000 BLSUTRMO EQU 0 00962000 BLSUTRMV EQU 0 00963000 BLSUVSAR EQU 0 00964000 BLSUVSCR EQU 0 00965000 BLSUVSEN EQU 0 00966000 BLSUVSER EQU 0 00967000 BLSUVSGE EQU 0 00968000 BLSUVSGU EQU 0 00969000 BLSUVSMR EQU 0 00970000 BLSUVSPO EQU 0 00971000 BLSUVSPU EQU 0 00972000 BLSUZZ2C EQU 0 00973000 BLSUZZ2D EQU 0 00974000 BLSUZZ2R EQU 0 00975000 IKJEFF02 EQU 0 00976000 IKJEFF18 EQU 0 00977000 IKJEFF19 EQU 0 00978000 IKJGETL EQU 0 00979000 IKJPARS EQU 0 00980000 IKJPTGT EQU 0 00981000 IKJPUTL EQU 0 00982000 IKJSCAN EQU 0 00983000 IKJSTCK EQU 0 00984000 I001C EQU 0 00985000 I008P EQU 0 00986000 I015F EQU 0 00987000 I015P EQU 0 00988000 I031F EQU 0 00989000 I031P EQU 0 00990000 I256C EQU 0 00991000 PZ2 EQU 0 00992000 ESPA EQU 0 00993000 ESPAAS EQU ESPA+60 00994000 ESPAD EQU ESPA+80 00995000 ESPADT EQU ESPAD+10 00996000 ESPADF EQU ESPAD+52 00997000 ESPAF EQU ESPA+161 00998000 ESPAFS EQU ESPAF 00999000 ESPAFC EQU ESPAF+1 01000000 ESPAR EQU ESPA+180 01001000 ESPART EQU ESPAR+2 01002000 ESAU EQU VSAMBUFR 01003000 ESAUSYM EQU ESAU+28 01004000 ESAUAS EQU ESAU+60 01005000 ESAULAD EQU ESAU+76 01006000 ESAUD EQU ESAU+80 01007000 ESAUDT EQU ESAUD+10 01008000 ESAUDF EQU ESAUD+52 01009000 ESAUF EQU ESAU+161 01010000 ESAUFS EQU ESAUF 01011000 ESAUFC EQU ESAUF+1 01012000 ESAUR EQU ESAU+180 01013000 ESAURL EQU ESAUR 01014000 ESAURT EQU ESAUR+2 01015000 SAAU EQU VSAMBUFR 01016000 SAAUAS EQU SAAU+12 01017000 SAAUDT EQU SAAU+32 01018000 SAAUF EQU SAAU+68 01019000 SAAUFT EQU SAAUF+10 01020000 SAAUFF EQU SAAUF+52 01021000 SAAUSF EQU SAAU+128 01022000 SAAUSRC EQU SAAU+152 01023000 SAAUC EQU SAAU+254 01024000 SAAUCT EQU SAAUC+2 01025000 CPPL EQU ZZ2CPPL 01026000 CPPLUPT EQU CPPL+4 01027000 CPPLPSCB EQU CPPL+8 01028000 CPPLECT EQU CPPL+12 01029000 PSARSVTE EQU PSARSVT 01030000 RMKB EQU ESBAR 01031000 RMKBT EQU RMKB+2 01032000 SYMA EQU ESAUSYM 01033000 SYMAA EQU SYMA 01034000 SYMAB EQU SYMA+4 01035000 SYMB EQU ESBASYM 01036000 SYMBA EQU SYMB 01037000 SYMBB EQU SYMB+3 01038000 BLANKA EQU BLANKSUF 01039000 FLC EQU PSA 01040000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01041000 RMKBTA EQU RMKBT 01042000 RMKBL EQU RMKB 01043000 PSARSAV EQU PSARSVTE+60 01044000 PSARSTK EQU PSARSVTE+56 01045000 PSAESAV3 EQU PSARSVTE+52 01046000 PSAESTK3 EQU PSARSVTE+48 01047000 PSAESAV2 EQU PSARSVTE+44 01048000 PSAESTK2 EQU PSARSVTE+40 01049000 PSAESAV1 EQU PSARSVTE+36 01050000 PSAESTK1 EQU PSARSVTE+32 01051000 PSAPSAV EQU PSARSVTE+28 01052000 PSAPSTK EQU PSARSVTE+24 01053000 PSAMSAV EQU PSARSVTE+20 01054000 PSAMSTK EQU PSARSVTE+16 01055000 PSASSAV EQU PSARSVTE+12 01056000 PSASSTK EQU PSARSVTE+8 01057000 PSANSTK EQU PSARSVTE+4 01058000 PSACSTK EQU PSARSVTE 01059000 CPPLCBUF EQU CPPL 01060000 SAAU999 EQU SAAU+3072 01061000 SAAUCT1 EQU SAAUCT 01062000 SAAUCL EQU SAAUC 01063000 @NM00046 EQU SAAU+153 01064000 SAAUPGV EQU SAAU+144 01065000 SAAUGMT EQU SAAU+136 01066000 @NM00045 EQU SAAUSF 01067000 SAAUSFS EQU SAAUSF 01068000 SAAUSFI EQU SAAUSF 01069000 SAAUSF9 EQU SAAUSF 01070000 SAAUSF1 EQU SAAUSF 01071000 SAAUF99 EQU SAAUF+60 01072000 @NM00044 EQU SAAUF+56 01073000 @NM00043 EQU SAAUFF 01074000 SAAUFFA EQU SAAUFF 01075000 SAAUFIL EQU SAAUF+48 01076000 SAAUFIM EQU SAAUF+44 01077000 SAAUFT9 EQU SAAUFT+34 01078000 SAAUFTE EQU SAAUFT+33 01079000 SAAUFTD EQU SAAUFT+2 01080000 @NM00042 EQU SAAUFT+1 01081000 SAAUFTY EQU SAAUFT 01082000 SAAUFT0 EQU SAAUFT 01083000 SAAUFLB EQU SAAUF+9 01084000 SAAUFOB EQU SAAUF+8 01085000 SAAUFLE EQU SAAUF+4 01086000 SAAUFOF EQU SAAUF 01087000 SAAUF00 EQU SAAUF 01088000 @NM00041 EQU SAAU+66 01089000 SAAUELK EQU SAAU+66 01090000 SAAUDT9 EQU SAAUDT+34 01091000 SAAUDTE EQU SAAUDT+33 01092000 SAAUDTD EQU SAAUDT+2 01093000 @NM00040 EQU SAAUDT+1 01094000 SAAUDTY EQU SAAUDT 01095000 SAAUDT0 EQU SAAUDT 01096000 SAAULAD EQU SAAU+28 01097000 SAAUAS9 EQU SAAUAS+16 01098000 @NM00039 EQU SAAUAS+12 01099000 SAAUAS2 EQU SAAUAS+8 01100000 SAAUAS1 EQU SAAUAS+4 01101000 @NM00038 EQU SAAUAS+2 01102000 SAAUAST EQU SAAUAS 01103000 SAAUAS0 EQU SAAUAS 01104000 SAAURDX EQU SAAU+8 01105000 @NM00037 EQU SAAU+2 01106000 SAAURID EQU SAAU 01107000 ESAU999 EQU ESAU+694 01108000 ESAURT1 EQU ESAURT 01109000 @NM00036 EQU ESAU+168 01110000 ESAUABS EQU ESAU+164 01111000 @NM00035 EQU ESAUF+2 01112000 @NM00034 EQU ESAUFC 01113000 ESAUFCD EQU ESAUFC 01114000 ESAUFSS EQU ESAUFS 01115000 ESAUFSX EQU ESAUFS 01116000 ESAUFSR EQU ESAUFS 01117000 ESAUFSP EQU ESAUFS 01118000 ESAUFSA EQU ESAUFS 01119000 ESAUFSM EQU ESAUFS 01120000 ESAUFS2 EQU ESAUFS 01121000 ESAUFSC EQU ESAUFS 01122000 ESAUKEY EQU ESAU+160 01123000 @NM00033 EQU ESAU+144 01124000 ESAUMAD EQU ESAU+140 01125000 ESAUD99 EQU ESAUD+60 01126000 @NM00032 EQU ESAUD+56 01127000 @NM00031 EQU ESAUDF 01128000 ESAUDFA EQU ESAUDF 01129000 ESAUDIL EQU ESAUD+48 01130000 ESAUDIM EQU ESAUD+44 01131000 ESAUDT9 EQU ESAUDT+34 01132000 ESAUDTE EQU ESAUDT+33 01133000 ESAUDTD EQU ESAUDT+2 01134000 @NM00030 EQU ESAUDT+1 01135000 ESAUDTY EQU ESAUDT 01136000 ESAUDT0 EQU ESAUDT 01137000 ESAUDLB EQU ESAUD+9 01138000 ESAUDOB EQU ESAUD+8 01139000 ESAUDLE EQU ESAUD+4 01140000 ESAUDOF EQU ESAUD 01141000 ESAUD00 EQU ESAUD 01142000 ESAUAS9 EQU ESAUAS+16 01143000 @NM00029 EQU ESAUAS+12 01144000 ESAUAS2 EQU ESAUAS+8 01145000 ESAUAS1 EQU ESAUAS+4 01146000 @NM00028 EQU ESAUAS+2 01147000 ESAUAST EQU ESAUAS 01148000 ESAUAS0 EQU ESAUAS 01149000 ESAURV1 EQU ESAU+59 01150000 ESAUELK EQU ESAU+59 01151000 ESAURDX EQU ESAU+24 01152000 @NM00027 EQU ESAU+16 01153000 @NM00026 EQU ESAU+8 01154000 @NM00025 EQU ESAU+2 01155000 ESAURID EQU ESAU 01156000 ESPA999 EQU ESPA+694 01157000 ESPART1 EQU ESPART 01158000 ESPARL EQU ESPAR 01159000 @NM00012 EQU ESPA+168 01160000 ESPAABS EQU ESPA+164 01161000 @NM00011 EQU ESPAF+2 01162000 @NM00010 EQU ESPAFC 01163000 ESPAFCD EQU ESPAFC 01164000 ESPAFSS EQU ESPAFS 01165000 ESPAFSX EQU ESPAFS 01166000 ESPAFSR EQU ESPAFS 01167000 ESPAFSP EQU ESPAFS 01168000 ESPAFSA EQU ESPAFS 01169000 ESPAFSM EQU ESPAFS 01170000 ESPAFS2 EQU ESPAFS 01171000 ESPAFSC EQU ESPAFS 01172000 ESPAKEY EQU ESPA+160 01173000 @NM00009 EQU ESPA+144 01174000 ESPAMAD EQU ESPA+140 01175000 ESPAD99 EQU ESPAD+60 01176000 @NM00008 EQU ESPAD+56 01177000 @NM00007 EQU ESPADF 01178000 ESPADFA EQU ESPADF 01179000 ESPADIL EQU ESPAD+48 01180000 ESPADIM EQU ESPAD+44 01181000 ESPADT9 EQU ESPADT+34 01182000 ESPADTE EQU ESPADT+33 01183000 ESPADTD EQU ESPADT+2 01184000 @NM00006 EQU ESPADT+1 01185000 ESPADTY EQU ESPADT 01186000 ESPADT0 EQU ESPADT 01187000 ESPADLB EQU ESPAD+9 01188000 ESPADOB EQU ESPAD+8 01189000 ESPADLE EQU ESPAD+4 01190000 ESPADOF EQU ESPAD 01191000 ESPAD00 EQU ESPAD 01192000 ESPALAD EQU ESPA+76 01193000 ESPAAS9 EQU ESPAAS+16 01194000 @NM00005 EQU ESPAAS+12 01195000 ESPAAS2 EQU ESPAAS+8 01196000 ESPAAS1 EQU ESPAAS+4 01197000 @NM00004 EQU ESPAAS+2 01198000 ESPAAST EQU ESPAAS 01199000 ESPAAS0 EQU ESPAAS 01200000 ESPARV1 EQU ESPA+59 01201000 ESPAELK EQU ESPA+59 01202000 ESPASYM EQU ESPA+28 01203000 ESPARDX EQU ESPA+24 01204000 @NM00003 EQU ESPA+16 01205000 @NM00002 EQU ESPA+8 01206000 @NM00001 EQU ESPA+2 01207000 ESPARID EQU ESPA 01208000 ASCBEND EQU ASCB+208 01209000 ASCBSRBT EQU ASCB+200 01210000 ASCBSWTL EQU ASCB+196 01211000 ASCBRS14 EQU ASCB+195 01212000 ASCBSMCT EQU ASCB+194 01213000 ASCBRS12 EQU ASCB+192 01214000 ASCBPCTT EQU ASCB+188 01215000 ASCBVGTT EQU ASCB+184 01216000 ASCBRV43 EQU ASCBSRQ4 01217000 ASCBRV42 EQU ASCBSRQ4 01218000 ASCBRV41 EQU ASCBSRQ4 01219000 ASCBRV40 EQU ASCBSRQ4 01220000 ASCBRV39 EQU ASCBSRQ4 01221000 ASCBRV38 EQU ASCBSRQ4 01222000 ASCBRV37 EQU ASCBSRQ4 01223000 ASCBRV36 EQU ASCBSRQ4 01224000 ASCBRV35 EQU ASCBSRQ3 01225000 ASCBRV34 EQU ASCBSRQ3 01226000 ASCBRV33 EQU ASCBSRQ3 01227000 ASCBRV32 EQU ASCBSRQ3 01228000 ASCBRV31 EQU ASCBSRQ3 01229000 ASCBRV30 EQU ASCBSRQ3 01230000 ASCBRV29 EQU ASCBSRQ3 01231000 ASCBRV28 EQU ASCBSRQ3 01232000 ASCBRV27 EQU ASCBSRQ2 01233000 ASCBRV26 EQU ASCBSRQ2 01234000 ASCBRV25 EQU ASCBSRQ2 01235000 ASCBRV24 EQU ASCBSRQ2 01236000 ASCBRV23 EQU ASCBSRQ2 01237000 ASCBRV22 EQU ASCBSRQ2 01238000 ASCBRV21 EQU ASCBSRQ2 01239000 ASCBRV20 EQU ASCBSRQ2 01240000 ASCBRV19 EQU ASCBSRQ1 01241000 ASCBRV18 EQU ASCBSRQ1 01242000 ASCBRV17 EQU ASCBSRQ1 01243000 ASCBRV16 EQU ASCBSRQ1 01244000 ASCBRV15 EQU ASCBSRQ1 01245000 ASCBRV14 EQU ASCBSRQ1 01246000 ASCBRV13 EQU ASCBSRQ1 01247000 ASCBSTA EQU ASCBSRQ1 01248000 ASCBJBNS EQU ASCB+176 01249000 ASCBJBNI EQU ASCB+172 01250000 ASCBMCC EQU ASCB+168 01251000 ASCBRTWA EQU ASCB+164 01252000 ASCBIQEA EQU ASCB+160 01253000 ASCBXMPQ EQU ASCB+156 01254000 ASCBRS01 EQU ASCB+154 01255000 ASCBFMCT EQU ASCB+152 01256000 ASCBOUXB EQU ASCB+148 01257000 ASCBOUCB EQU ASCB+144 01258000 ASCBMECB EQU ASCB+140 01259000 ASCBQECB EQU ASCB+136 01260000 ASCBLSQH EQU ASCBLKGP+4 01261000 ASCBLOCK EQU ASCBLKGP 01262000 ASCBTCBS EQU ASCB+124 01263000 ASCBNVSC EQU ASCB+122 01264000 ASCBVSC EQU ASCB+120 01265000 ASCBSRBS EQU ASCB+118 01266000 ASCBSSRB EQU ASCB+116 01267000 ASCBRV06 EQU ASCBFLG2 01268000 ASCBRV05 EQU ASCBFLG2 01269000 ASCBRV04 EQU ASCBFLG2 01270000 ASCBSNQS EQU ASCBFLG2 01271000 ASCBS2S EQU ASCBFLG2 01272000 ASCBCEXT EQU ASCBFLG2 01273000 ASCBPXMT EQU ASCBFLG2 01274000 ASCBXMPT EQU ASCBFLG2 01275000 ASCBRF07 EQU ASCBDSP1 01276000 ASCBRF06 EQU ASCBDSP1 01277000 ASCBRF05 EQU ASCBDSP1 01278000 ASCBRF04 EQU ASCBDSP1 01279000 ASCBRF03 EQU ASCBDSP1 01280000 ASCBRF02 EQU ASCBDSP1 01281000 ASCBFAIL EQU ASCBDSP1 01282000 ASCBNOQ EQU ASCBDSP1 01283000 ASCBSWCT EQU ASCB+112 01284000 ASCBASXB EQU ASCB+108 01285000 ASCBTMCH EQU ASCB+104 01286000 ASCBNSWP EQU ASCBFLG1 01287000 ASCBTYP1 EQU ASCBFLG1 01288000 ASCBSTND EQU ASCBFLG1 01289000 ASCBABNT EQU ASCBFLG1 01290000 ASCBTERM EQU ASCBFLG1 01291000 ASCBS3S EQU ASCBFLG1 01292000 ASCBCMSH EQU ASCBFLG1 01293000 ASCBTOFF EQU ASCBFLG1 01294000 ASCBRF01 EQU ASCBRCTF 01295000 ASCBTMLW EQU ASCBRCTF 01296000 ASCBOUT EQU ASCBRCTF 01297000 ASCBWAIT EQU ASCBRCTF 01298000 ASCBRV08 EQU ASCBRCTF 01299000 ASCBFQU EQU ASCBRCTF 01300000 ASCBFRS EQU ASCBRCTF 01301000 ASCBTMNO EQU ASCBRCTF 01302000 ASCBAFFN EQU ASCBFW1 01303000 ASCBDUMP EQU ASCB+96 01304000 ASCBRV44 EQU ASCB+92 01305000 ASCBUBET EQU ASCB+88 01306000 ASCBECB EQU ASCB+84 01307000 ASCBJSTL EQU ASCB+80 01308000 ASCBEWST EQU ASCB+72 01309000 ASCBEJST EQU ASCB+64 01310000 ASCBTSB EQU ASCB+60 01311000 ASCBCSCB EQU ASCB+56 01312000 ASCBRSMA EQU ASCBRSM+1 01313000 ASCBRV54 EQU ASCBRSMF 01314000 ASCBRV53 EQU ASCBRSMF 01315000 ASCBRV52 EQU ASCBRSMF 01316000 ASCBRV51 EQU ASCBRSMF 01317000 ASCBVEQR EQU ASCBRSMF 01318000 ASCBN2LP EQU ASCBRSMF 01319000 ASCB1LPU EQU ASCBRSMF 01320000 ASCB2LPU EQU ASCBRSMF 01321000 ASCBLDA EQU ASCB+48 01322000 ASCBDP EQU ASCB+43 01323000 ASCBRV07 EQU ASCB+42 01324000 ASCBIOSM EQU ASCB+40 01325000 ASCBASID EQU ASCB+36 01326000 ASCBCPUS EQU ASCB+32 01327000 ASCBSPL EQU ASCB+28 01328000 ASCBIOSP EQU ASCB+24 01329000 ASCBSYNC EQU ASCBSUPC+4 01330000 ASCBSVRB EQU ASCBSUPC 01331000 ASCBCMSF EQU ASCB+12 01332000 ASCBBWDP EQU ASCB+8 01333000 ASCBFWDP EQU ASCB+4 01334000 ASCBASCB EQU ASCB 01335000 ASCBEGIN EQU ASCB 01336000 RVT99999 EQU RVT+384 01337000 RVT0096P EQU RVT+380 01338000 RVT0095P EQU RVT+376 01339000 RVT0094P EQU RVT+372 01340000 RVT0093P EQU RVT+368 01341000 RVT0092P EQU RVT+364 01342000 RVT0091P EQU RVT+360 01343000 RVT0090P EQU RVT+356 01344000 RVT0089P EQU RVT+352 01345000 RVT0088P EQU RVT+348 01346000 RVT0087P EQU RVT+344 01347000 RVT0086P EQU RVT+340 01348000 RVT0085P EQU RVT+336 01349000 RVT0084P EQU RVT+332 01350000 RVT0083P EQU RVT+328 01351000 RVT0082P EQU RVT+324 01352000 RVT0081P EQU RVT+320 01353000 RVT0080P EQU RVT+316 01354000 RVT0079P EQU RVT+312 01355000 RVT0078P EQU RVT+308 01356000 RVT0077P EQU RVT+304 01357000 RVT0076P EQU RVT+300 01358000 RVT0075P EQU RVT+296 01359000 RVT0074P EQU RVT+292 01360000 RVT0073P EQU RVT+288 01361000 RVT0072P EQU RVT+284 01362000 RVTDTUTP EQU RVT+272 01363000 RVTDTMTP EQU RVT+268 01364000 RVT0057P EQU RVT+224 01365000 RVT0056P EQU RVT+220 01366000 RVT0055P EQU RVT+216 01367000 RVT0054P EQU RVT+212 01368000 RVT0053P EQU RVT+208 01369000 RVT0044P EQU RVT+172 01370000 RVT0043P EQU RVT+168 01371000 RVT0040P EQU RVT+156 01372000 RVT0039P EQU RVT+152 01373000 RVT0038P EQU RVT+148 01374000 RVT0037P EQU RVT+144 01375000 RVT0031P EQU RVT+120 01376000 RVT0030P EQU RVT+116 01377000 RVT0029P EQU RVT+112 01378000 RVT0020P EQU RVT+76 01379000 RVT0012P EQU RVT+44 01380000 RVT0010P EQU RVT+36 01381000 RVT0009P EQU RVT+32 01382000 RVT0008P EQU RVT+28 01383000 RVT0006P EQU RVT+20 01384000 ZZ69999 EQU ZZ6+1792 01385000 ZZ6BRB EQU ZZ6B+12 01386000 ZZ6BRC EQU ZZ6B+8 01387000 @NM00126 EQU ZZ6B+6 01388000 ZZ6BFL EQU ZZ6B+4 01389000 ZZ6BDA EQU ZZ6B 01390000 @NM00125 EQU ZZ6+540 01391000 ZZ6BUFI EQU ZZ6+536 01392000 ZZ6BUFP EQU ZZ6+532 01393000 ZZ6FILE EQU ZZ6+524 01394000 ZZ6BUFB EQU ZZ6+520 01395000 ZZ6BUFL EQU ZZ6+518 01396000 ZZ6BUFN EQU ZZ6+516 01397000 ZZ6ZZ6P EQU ZZ6+512 01398000 @NM00124 EQU ZZ6F 01399000 ZZ6FINIT EQU ZZ6F 01400000 ZZ6FDUOP EQU ZZ6F 01401000 @NM00123 EQU ZZ6+256 01402000 ZZ6D999 EQU ZZ6D+128 01403000 @NM00122 EQU ZZ6D+116 01404000 ZZ6DCAP EQU ZZ6D+112 01405000 ZZ6DPRP EQU ZZ6D+108 01406000 ZZ6DDA2 EQU ZZ6D+104 01407000 ZZ6DDA1 EQU ZZ6D+100 01408000 @NM00121 EQU ZZ6DF 01409000 ZZ6DFSU EQU ZZ6DF 01410000 ZZ6DFST EQU ZZ6DF 01411000 ZZ6DFMP EQU ZZ6DF 01412000 ZZ6DFDU EQU ZZ6DF 01413000 ZZ6DFBS EQU ZZ6DF 01414000 ZZ6DQ2 EQU ZZ6D+88 01415000 ZZ6DQ1 EQU ZZ6D+84 01416000 ZZ6DQA9 EQU ZZ6DQA+16 01417000 @NM00120 EQU ZZ6DQA+12 01418000 ZZ6DQA2 EQU ZZ6DQA+8 01419000 @NM00119 EQU ZZ6DQA+2 01420000 ZZ6DQAT EQU ZZ6DQA 01421000 ZZ6DQA0 EQU ZZ6DQA 01422000 ZZ6DRDX EQU ZZ6D+64 01423000 ZZ6DELK EQU ZZ6D+64 01424000 ZZ6DMEM EQU ZZ6D+56 01425000 ZZ6DDT1 EQU ZZ6DDT 01426000 ZZ6DDO EQU ZZ6DD+2 01427000 ZZ6DDL EQU ZZ6DD 01428000 @NM00118 EQU ZZ6D+2 01429000 ZZ6DRID EQU ZZ6D 01430000 ZZ6RDCB EQU ZZ6 01431000 ZZ60000 EQU ZZ6 01432000 BVT99999 EQU BVT+256 01433000 BVT0064P EQU BVT+252 01434000 BVT0063P EQU BVT+248 01435000 BVT0062P EQU BVT+244 01436000 BVT0061P EQU BVT+240 01437000 BVT0060P EQU BVT+236 01438000 BVT0059P EQU BVT+232 01439000 BVT0057P EQU BVT+224 01440000 BVT0056P EQU BVT+220 01441000 BVTSTBLP EQU BVT+200 01442000 BVT0045P EQU BVT+176 01443000 BVT0044P EQU BVT+172 01444000 BVT0033P EQU BVT+128 01445000 BVT0032P EQU BVT+124 01446000 BVT0031P EQU BVT+120 01447000 BVT0030P EQU BVT+116 01448000 BVT0029P EQU BVT+112 01449000 BVT0026P EQU BVT+100 01450000 BVT0025P EQU BVT+96 01451000 BVT0024P EQU BVT+92 01452000 BVT0023P EQU BVT+88 01453000 BVT0016P EQU BVT+60 01454000 BVT0015P EQU BVT+56 01455000 BVT0014P EQU BVT+52 01456000 BVT0003P EQU BVT+8 01457000 BVT0001P EQU BVT 01458000 SA99 EQU SA+72 01459000 SARC EQU SAR+56 01460000 SARB EQU SAR+52 01461000 SARA EQU SAR+48 01462000 SAR9 EQU SAR+44 01463000 SAR8 EQU SAR+40 01464000 SAR7 EQU SAR+36 01465000 SAR6 EQU SAR+32 01466000 SAR5 EQU SAR+28 01467000 SAR4 EQU SAR+24 01468000 SAR3 EQU SAR+20 01469000 SAR2 EQU SAR+16 01470000 SAR0 EQU SAR+8 01471000 SARF EQU SAR+4 01472000 SARE EQU SAR 01473000 SAFWD EQU SA+8 01474000 SABAK EQU SA+4 01475000 SA1L EQU SA1+1 01476000 SA1P EQU SA1 01477000 UPTPREFL EQU UPT+23 01478000 UPTPREFX EQU UPT+16 01479000 @NM00117 EQU UPT+15 01480000 UPTLDEL EQU UPT+14 01481000 UPTCDEL EQU UPT+13 01482000 UPTWTP EQU UPTSWS 01483000 UPTMODE EQU UPTSWS 01484000 UPTALD EQU UPTSWS 01485000 UPTPAUS EQU UPTSWS 01486000 UPTNCOM EQU UPTSWS 01487000 UPTMID EQU UPTSWS 01488000 UPTNPRM EQU UPTSWS 01489000 UPTRCVR EQU UPTSWS 01490000 UPTUSER EQU UPT+2 01491000 @NM00116 EQU UPT 01492000 @NM00115 EQU ECT+52 01493000 @NM00114 EQU ECT+48 01494000 @NM00113 EQU ECT+44 01495000 @NM00112 EQU ECTSWS2+1 01496000 @NM00111 EQU ECTSWS21 01497000 ECTTABND EQU ECTSWS21 01498000 ECTDEFCS EQU ECTSWS21 01499000 ECTBKPB EQU ECT+36 01500000 ECTUSER EQU ECT+32 01501000 ECTDDNUM EQU ECT+29 01502000 ECTATTN EQU ECTSWS 01503000 ECTBKGRD EQU ECTSWS 01504000 ECTNNOT EQU ECTSWS 01505000 ECTNMAL EQU ECTSWS 01506000 ECTLOGF EQU ECTSWS 01507000 ECTATRM EQU ECTSWS 01508000 @NM00110 EQU ECTSWS 01509000 ECTNOPD EQU ECTSWS 01510000 ECTSCMD EQU ECT+20 01511000 ECTPCMD EQU ECT+12 01512000 ECTSMSG EQU ECT+9 01513000 ECTMSGF EQU ECT+8 01514000 ECTIOWA EQU ECT+4 01515000 ECTRTCD EQU ECT+1 01516000 ECTRCDF EQU ECT 01517000 PSCBU EQU PSCB+64 01518000 PSCBRSZ EQU PSCB+60 01519000 PSCBLINE EQU PSCB+59 01520000 PSCBCHAR EQU PSCB+58 01521000 PSCBUPTL EQU PSCB+56 01522000 PSCBUPT EQU PSCB+52 01523000 PSCBRLGB EQU PSCB+48 01524000 PSCBDEST EQU PSCB+40 01525000 @NM00109 EQU PSCB+36 01526000 @NM00108 EQU PSCB+32 01527000 @NM00107 EQU PSCB+28 01528000 PSCBLTI2 EQU PSCB+24 01529000 PSCBLTIM EQU PSCB+20 01530000 PSCBATR2 EQU PSCB+18 01531000 @NM00106 EQU PSCBATR1 01532000 @NM00105 EQU PSCBATR1 01533000 @NM00104 EQU PSCBATR1 01534000 PSCBATTN EQU PSCBATR1 01535000 PSCBVMNT EQU PSCBATR1 01536000 PSCBJCL EQU PSCBATR1 01537000 PSCBACCT EQU PSCBATR1 01538000 PSCBCTRL EQU PSCBATR1 01539000 PSCBGPNM EQU PSCB+8 01540000 PSCBUSRL EQU PSCB+7 01541000 PSCBUSER EQU PSCB 01542000 CMDT1 EQU CMDT 01543000 CMDO EQU CMD+2 01544000 CMDL EQU CMD 01545000 ZZ299999 EQU ZZ2+8192 01546000 ZZ2AXOT1 EQU ZZ2AXOT 01547000 ZZ2AXOL EQU ZZ2AXO 01548000 @NM00103 EQU ZZ2+7288 01549000 @NM00102 EQU ZZ2AMDX+4 01550000 ZZ2AMDXC EQU ZZ2AMDX 01551000 ZZ2HSD EQU ZZ2+3056 01552000 @NM00101 EQU ZZ2ES 01553000 @NM00100 EQU ZZ2+2868 01554000 ZZ2ITSEC EQU ZZ2ITSE+1 01555000 @NM00099 EQU ZZ2ITSE 01556000 ZZ2ITSEP EQU ZZ2ITSE 01557000 ZZ2ITSEW EQU ZZ2ITSE 01558000 @NM00098 EQU ZZ2ITR+20 01559000 ZZ2ITREC EQU ZZ2ITRE+1 01560000 @NM00097 EQU ZZ2ITRE 01561000 ZZ2ITREP EQU ZZ2ITRE 01562000 ZZ2ITREW EQU ZZ2ITRE 01563000 @NM00096 EQU ZZ2ITR+9 01564000 ZZ2ITRRC EQU ZZ2ITR+8 01565000 ZZ2ITR2P EQU ZZ2ITR+4 01566000 ZZ2ITRPP EQU ZZ2ITR 01567000 @NM00095 EQU ZZ2F 01568000 ZZ2F3270 EQU ZZ2F 01569000 @NM00094 EQU ZZ2+1544 01570000 ZZ2PGM EQU ZZ2+1536 01571000 @NM00093 EQU ZZ2+1526 01572000 ZZ2CW EQU ZZ2+1524 01573000 @NM00092 EQU ZZ2+1504 01574000 @NM00091 EQU ZZ2+1352 01575000 ZZ2FFSYP EQU ZZ2+1348 01576000 ZZ2SASYP EQU ZZ2+1344 01577000 ZZ2RDSYP EQU ZZ2+1340 01578000 ZZ2RASYP EQU ZZ2+1336 01579000 ZZ2PHSYP EQU ZZ2+1332 01580000 ZZ2ESSYP EQU ZZ2+1328 01581000 ZZ200SYP EQU ZZ2+1324 01582000 ZZ2SCWP EQU ZZ2+1320 01583000 ZZ2TTLP EQU ZZ2+1316 01584000 ZZ2LOADP EQU ZZ2+1312 01585000 ZZ2CPPLE EQU ZZ2CPPL+12 01586000 ZZ2CPPLP EQU ZZ2CPPL+8 01587000 ZZ2CPPLU EQU ZZ2CPPL+4 01588000 ZZ2VRSAP EQU ZZ2+1288 01589000 ZZ2DVTP EQU ZZ2+1276 01590000 @NM00090 EQU ZZ2+1272 01591000 @NM00089 EQU ZZ2+1268 01592000 ZZ2RPLP EQU ZZ2+1260 01593000 ZZ2TCBP EQU ZZ2+1256 01594000 @NM00088 EQU ZZ2+1252 01595000 ZZ2ZZ2P EQU ZZ2+1248 01596000 @NM00087 EQU ZZ2+1112 01597000 ZZ2FPDRP EQU ZZ2+1108 01598000 ZZ2FDSDP EQU ZZ2+1104 01599000 ZZ2APDRP EQU ZZ2+1100 01600000 ZZ2ADSDP EQU ZZ2+1096 01601000 ZZ2ENQ0P EQU ZZ2+1092 01602000 @NM00086 EQU ZZ2+1080 01603000 ZZ2MSG0P EQU ZZ2+1076 01604000 ZZ2FT25P EQU ZZ2+1072 01605000 ZZ2MSGSP EQU ZZ2+1060 01606000 ZZ2ALOCP EQU ZZ2+1056 01607000 @NM00085 EQU ZZ2+976 01608000 ZZ2TOD EQU ZZ2+968 01609000 ZZ2STGN EQU ZZ2STG+4 01610000 ZZ2STGP EQU ZZ2STG 01611000 @NM00084 EQU ZZ2+952 01612000 ZZ2SCMDE EQU ZZ2+944 01613000 ZZ2SCMDN EQU ZZ2+936 01614000 ZZ2IDENT EQU ZZ2+928 01615000 ZZ2A9999 EQU ZZ2A+656 01616000 @NM00083 EQU ZZ2A+224 01617000 @NM00082 EQU ZZ2A+220 01618000 ZZ2AQD99 EQU ZZ2AQD+60 01619000 @NM00081 EQU ZZ2AQD+56 01620000 @NM00080 EQU ZZ2AQDF 01621000 ZZ2AQDFA EQU ZZ2AQDF 01622000 ZZ2AQDIL EQU ZZ2AQD+48 01623000 ZZ2AQDIM EQU ZZ2AQD+44 01624000 ZZ2AQDT9 EQU ZZ2AQDT+34 01625000 ZZ2AQDTE EQU ZZ2AQDT+33 01626000 ZZ2AQDTD EQU ZZ2AQDT+2 01627000 @NM00079 EQU ZZ2AQDT+1 01628000 ZZ2AQDTY EQU ZZ2AQDT 01629000 ZZ2AQDT0 EQU ZZ2AQDT 01630000 ZZ2AQDLB EQU ZZ2AQD+9 01631000 ZZ2AQDOB EQU ZZ2AQD+8 01632000 ZZ2AQDLE EQU ZZ2AQD+4 01633000 ZZ2AQDOF EQU ZZ2AQD 01634000 ZZ2AQD00 EQU ZZ2AQD 01635000 ZZ2AQAS9 EQU ZZ2AQAS+16 01636000 @NM00078 EQU ZZ2AQAS+12 01637000 ZZ2AQAS2 EQU ZZ2AQAS+8 01638000 ZZ2AQAS1 EQU ZZ2AQAS+4 01639000 @NM00077 EQU ZZ2AQAS+2 01640000 ZZ2AQAST EQU ZZ2AQAS 01641000 ZZ2AQAS0 EQU ZZ2AQAS 01642000 ZZ2ADPTA EQU ZZ2ADPT 01643000 ZZ2ADPL EQU ZZ2ADP 01644000 ZZ2ADMTA EQU ZZ2ADMT 01645000 ZZ2ADML EQU ZZ2ADM 01646000 ZZ2ADDTA EQU ZZ2ADDT 01647000 ZZ2ADDL EQU ZZ2ADD 01648000 @NM00076 EQU ZZ2A+72 01649000 ZZ2APIDB EQU ZZ2APID+3 01650000 ZZ2APIDA EQU ZZ2APID 01651000 @NM00075 EQU ZZ2A+24 01652000 @NM00074 EQU ZZ2AF+5 01653000 ZZ2AFX EQU ZZ2AF+5 01654000 @NM00073 EQU ZZ2AF+3 01655000 ZZ2AFS EQU ZZ2AF+2 01656000 ZZ2AFD EQU ZZ2AF+2 01657000 ZZ2AFQ EQU ZZ2AF+2 01658000 ZZ2AF$ EQU ZZ2AF+2 01659000 @NM00072 EQU ZZ2AF+2 01660000 ZZ2AFM EQU ZZ2AF+2 01661000 @NM00071 EQU ZZ2AF+2 01662000 @NM00070 EQU ZZ2AF+1 01663000 ZZ2AFV EQU ZZ2AF+1 01664000 @NM00069 EQU ZZ2AF+1 01665000 ZZ2AFC EQU ZZ2AF+1 01666000 @NM00068 EQU ZZ2AF 01667000 ZZ2AFFS EQU ZZ2AF 01668000 ZZ2AFT EQU ZZ2AF 01669000 ZZ2AFP EQU ZZ2AF 01670000 @NM00067 EQU ZZ2A+8 01671000 ZZ2ALINE EQU ZZ2A+4 01672000 @NM00066 EQU ZZ2A+3 01673000 ZZ2ACH EQU ZZ2A 01674000 @NM00065 EQU ZZ2+264 01675000 @NM00064 EQU ZZ2+263 01676000 ZZ2PRTT0 EQU ZZ2PRTT 01677000 ZZ2PRTO EQU ZZ2PRT+2 01678000 ZZ2PRTL EQU ZZ2PRT 01679000 @NM00063 EQU ZZ2AMD+56 01680000 ZZ2AMDXP EQU ZZ2AMD+52 01681000 ZZ2AMDD EQU ZZ2AMD+48 01682000 ZZ2AMDL EQU ZZ2AMD+44 01683000 ZZ2AMDU EQU ZZ2AMD+28 01684000 ZZ2AMDF EQU ZZ2AMD+24 01685000 ZZ2AMDS EQU ZZ2AMD+20 01686000 ZZ2AMDC EQU ZZ2AMD+16 01687000 ZZ2AMDP EQU ZZ2AMD+12 01688000 ZZ2AMDB EQU ZZ2AMD+8 01689000 @NM00062 EQU @NM00061 01690000 ZZ2AMD2 EQU @NM00061 01691000 ZZ2AMD1 EQU @NM00061 01692000 ZZ2AMD0 EQU ZZ2AMD+6 01693000 ZZ2AMDA EQU ZZ2AMD+4 01694000 ZZ2AMDT EQU ZZ2AMD 01695000 ZZ199999 EQU ZZ1+3072 01696000 @NM00060 EQU ZZ1+2160 01697000 ZZ1TRTAS EQU ZZ1+1904 01698000 ZZ1TRUPC EQU ZZ1+1648 01699000 ZZ1TRCTX EQU ZZ1+1392 01700000 ZZ1NASID EQU ZZ1N+274 01701000 ZZ1NSTRL EQU ZZ1N+272 01702000 ZZ1NOFF EQU ZZ1N+268 01703000 ZZ1NBDY EQU ZZ1N+264 01704000 ZZ1NADE EQU ZZ1N+260 01705000 ZZ1NADB EQU ZZ1N+256 01706000 ZZ1NSTR EQU ZZ1N 01707000 @NM00059 EQU ZZ1+1080 01708000 ZZ1TREBC EQU ZZ1+824 01709000 ZZ1TRHEX EQU ZZ1+568 01710000 @NM00058 EQU ZZ1+377 01711000 ZZ1USTAE EQU ZZ1+376 01712000 @NM00057 EQU ZZ1F+3 01713000 @NM00056 EQU ZZ1F+2 01714000 ZZ1FPRNT EQU ZZ1F+2 01715000 @NM00055 EQU ZZ1F+1 01716000 ZZ1FTCAM EQU ZZ1F+1 01717000 ZZ1FACCM EQU ZZ1F+1 01718000 @NM00054 EQU ZZ1F 01719000 ZZ1FM EQU ZZ1F 01720000 ZZ1FX EQU ZZ1F 01721000 ZZ1FU EQU ZZ1F 01722000 ZZ1EVEC EQU ZZ1EVE+1 01723000 @NM00053 EQU ZZ1EVE 01724000 ZZ1EVEP EQU ZZ1EVE 01725000 ZZ1EVEW EQU ZZ1EVE 01726000 ZZ1ACMP EQU ZZ1ATTN 01727000 @NM00052 EQU ZZ1+144 01728000 ZZ1FPP EQU ZZ1+140 01729000 ZZ1ZZ6P EQU ZZ1+136 01730000 @NM00051 EQU ZZ1+84 01731000 ZZ1PLINE EQU ZZ1+80 01732000 ZZ1PGSZ EQU ZZ1+76 01733000 ZZ1PCNT EQU ZZ1+72 01734000 @NM00050 EQU ZZ1+68 01735000 ZZ1TPAGE EQU ZZ1+64 01736000 ZZ1TLINE EQU ZZ1+60 01737000 @NM00049 EQU ZZ1+52 01738000 ZZ1DMCBP EQU ZZ1+48 01739000 ZZ1DSDP EQU ZZ1+44 01740000 ZZ1PDRP EQU ZZ1+40 01741000 ZZ1ZZ2P EQU ZZ1+36 01742000 ZZ1327WP EQU ZZ1+32 01743000 ZZ1ACBP EQU ZZ1+28 01744000 @NM00048 EQU ZZ1+24 01745000 ZZ1PDCBP EQU ZZ1+20 01746000 ZZ1BLRBL EQU ZZ1+16 01747000 @NM00047 EQU ZZ1+12 01748000 ZZ1PNULL EQU ZZ1+8 01749000 ZZ1NULL EQU ZZ1+4 01750000 ZZ1IDE EQU ZZ1 01751000 ESBA999 EQU ESBA+694 01752000 ESBART1 EQU ESBART 01753000 ESBARL EQU ESBAR 01754000 @NM00024 EQU ESBA+168 01755000 ESBAABS EQU ESBA+164 01756000 @NM00023 EQU ESBAF+2 01757000 @NM00022 EQU ESBAFC 01758000 ESBAFCD EQU ESBAFC 01759000 ESBAFSS EQU ESBAFS 01760000 ESBAFSX EQU ESBAFS 01761000 ESBAFSR EQU ESBAFS 01762000 ESBAFSP EQU ESBAFS 01763000 ESBAFSA EQU ESBAFS 01764000 ESBAFSM EQU ESBAFS 01765000 ESBAFS2 EQU ESBAFS 01766000 ESBAFSC EQU ESBAFS 01767000 ESBAKEY EQU ESBA+160 01768000 @NM00021 EQU ESBA+144 01769000 ESBAMAD EQU ESBA+140 01770000 ESBAD99 EQU ESBAD+60 01771000 @NM00020 EQU ESBAD+56 01772000 @NM00019 EQU ESBADF 01773000 ESBADT9 EQU ESBADT+34 01774000 ESBADTE EQU ESBADT+33 01775000 ESBADTD EQU ESBADT+2 01776000 @NM00018 EQU ESBADT+1 01777000 ESBADTY EQU ESBADT 01778000 ESBADT0 EQU ESBADT 01779000 ESBADLB EQU ESBAD+9 01780000 ESBADOB EQU ESBAD+8 01781000 ESBADLE EQU ESBAD+4 01782000 ESBADOF EQU ESBAD 01783000 ESBAD00 EQU ESBAD 01784000 ESBAAS9 EQU ESBAAS+16 01785000 @NM00017 EQU ESBAAS+12 01786000 ESBAAS2 EQU ESBAAS+8 01787000 @NM00016 EQU ESBAAS+2 01788000 ESBAAST EQU ESBAAS 01789000 ESBAAS0 EQU ESBAAS 01790000 ESBARV1 EQU ESBA+59 01791000 ESBAELK EQU ESBA+59 01792000 ESBARDX EQU ESBA+24 01793000 @NM00015 EQU ESBA+16 01794000 @NM00014 EQU ESBA+8 01795000 @NM00013 EQU ESBA+2 01796000 ESBARID EQU ESBA 01797000 @NM00150 EQU PSA+3668 01798000 PSASTAK EQU PSA+3072 01799000 @NM00149 EQU PSA+1048 01800000 PSAUSEND EQU PSA+1048 01801000 PSARV062 EQU PSA+1044 01802000 PSACDAL EQU PSA+1040 01803000 PSAWTCOD EQU PSA+1036 01804000 PSAATCVT EQU PSA+1032 01805000 PSAPCPSW EQU PSA+1024 01806000 PSAPIR2 EQU PSA+1020 01807000 PSARV059 EQU PSA+1018 01808000 PSASVC13 EQU PSA+1016 01809000 PSALSFCC EQU PSA+1012 01810000 PSASFACC EQU PSA+1008 01811000 PSASTOP EQU PSA+992 01812000 PSASTART EQU PSA+976 01813000 PSARSPSW EQU PSA+968 01814000 PSASRPSW EQU PSA+960 01815000 PSARV045 EQU PSA+892 01816000 PSARV044 EQU PSA+888 01817000 PSARV043 EQU PSA+884 01818000 PSARV042 EQU PSA+880 01819000 PSARV041 EQU PSA+876 01820000 PSARV040 EQU PSA+872 01821000 PSARV025 EQU PSA+868 01822000 PSADSSED EQU PSA+868 01823000 PSADSSPR EQU PSA+864 01824000 PSADSSFW EQU PSA+860 01825000 PSADSS14 EQU PSA+856 01826000 PSADSSPP EQU PSA+848 01827000 PSADSSRP EQU PSA+840 01828000 PSADSS05 EQU PSADSSF4 01829000 PSADSS10 EQU PSADSSF4 01830000 PSADSSVE EQU PSADSSF4 01831000 PSADSSDE EQU PSADSSF4 01832000 PSADSSC0 EQU PSADSSF4 01833000 PSADSSIE EQU PSADSSF4 01834000 PSADSS12 EQU PSADSSF4 01835000 PSADSSRC EQU PSADSSF4 01836000 PSARV057 EQU PSADSSF3 01837000 PSARV056 EQU PSADSSF3 01838000 PSARV055 EQU PSADSSF3 01839000 PSADSSMC EQU PSADSSF3 01840000 PSADSSRW EQU PSADSSF3 01841000 PSADSSNM EQU PSADSSF3 01842000 PSADSSES EQU PSADSSF3 01843000 PSADSSGP EQU PSADSSF3 01844000 PSADSSF2 EQU PSADSSFL+1 01845000 PSADSSPI EQU PSADSSF1 01846000 PSADSSOI EQU PSADSSF1 01847000 PSADSSSP EQU PSADSSF1 01848000 PSADSSTP EQU PSADSSF1 01849000 PSADSSDW EQU PSADSSF1 01850000 PSADSSDD EQU PSADSSF1 01851000 PSADSSDM EQU PSADSSF1 01852000 PSADSSMV EQU PSADSSF1 01853000 PSADSSTS EQU PSA+816 01854000 PSADSSWK EQU PSA+812 01855000 PSADSSR3 EQU PSA+808 01856000 PSADSSR2 EQU PSA+804 01857000 PSADSSRS EQU PSA+800 01858000 PSACPUSA EQU PSA+794 01859000 PSAVSTAP EQU PSA+792 01860000 PSAWKVAP EQU PSA+788 01861000 PSAWKRAP EQU PSA+784 01862000 PSAMCHIC EQU PSA+783 01863000 PSARV061 EQU PSA+782 01864000 PSASYMSK EQU PSA+781 01865000 PSAMCHFL EQU PSA+780 01866000 PSACR0 EQU PSA+776 01867000 PSAPSWSV EQU PSA+768 01868000 PSALITA EQU PSA+764 01869000 PSACLHS EQU PSAHLHI 01870000 PSALKR15 EQU PSALKSA+60 01871000 PSALKR14 EQU PSALKSA+56 01872000 PSALKR13 EQU PSALKSA+52 01873000 PSALKR12 EQU PSALKSA+48 01874000 PSALKR11 EQU PSALKSA+44 01875000 PSALKR10 EQU PSALKSA+40 01876000 PSALKR9 EQU PSALKSA+36 01877000 PSALKR8 EQU PSALKSA+32 01878000 PSALKR7 EQU PSALKSA+28 01879000 PSALKR6 EQU PSALKSA+24 01880000 PSALKR5 EQU PSALKSA+20 01881000 PSALKR4 EQU PSALKSA+16 01882000 PSALKR3 EQU PSALKSA+12 01883000 PSALKR2 EQU PSALKSA+8 01884000 PSALKR1 EQU PSALKSA+4 01885000 PSALKR0 EQU PSALKSA 01886000 PSARV023 EQU PSACLHT+52 01887000 PSALOCAL EQU PSACLHT+48 01888000 PSACMSL EQU PSACLHT+44 01889000 PSAOPTL EQU PSACLHT+40 01890000 PSATPACL EQU PSACLHT+36 01891000 PSATPDNL EQU PSACLHT+32 01892000 PSATPNCL EQU PSACLHT+28 01893000 PSAIOSLL EQU PSACLHT+24 01894000 PSAIOSUL EQU PSACLHT+20 01895000 PSAIOSCL EQU PSACLHT+16 01896000 PSAIOSSL EQU PSACLHT+12 01897000 PSASALCL EQU PSACLHT+8 01898000 PSAASML EQU PSACLHT+4 01899000 PSADISPL EQU PSACLHT 01900000 PSASRSA EQU PSA+636 01901000 PSARV050 EQU PSA+634 01902000 PSADSSGO EQU PSA+633 01903000 PSARECUR EQU PSA+632 01904000 PSAHLHIS EQU PSA+628 01905000 PSAIPCSA EQU PSA+624 01906000 @NM00148 EQU PSA+621 01907000 PSAIPCDM EQU PSA+620 01908000 PSAIPCD EQU PSA+616 01909000 @NM00147 EQU PSA+613 01910000 PSAIPCRM EQU PSA+612 01911000 PSAIPCR EQU PSA+608 01912000 PSAMCHEX EQU PSA+600 01913000 PSAMPSW EQU PSA+592 01914000 PSAEXPS2 EQU PSA+584 01915000 PSAEXPS1 EQU PSA+576 01916000 PSAPIREG EQU PSA+572 01917000 PSARSREG EQU PSA+568 01918000 PSAGPREG EQU PSA+556 01919000 PSARV022 EQU PSASUP4 01920000 PSARV021 EQU PSASUP4 01921000 PSARV020 EQU PSASUP4 01922000 PSARV019 EQU PSASUP4 01923000 PSARV018 EQU PSASUP4 01924000 PSARV017 EQU PSASUP4 01925000 PSARV016 EQU PSASUP4 01926000 PSARV015 EQU PSASUP4 01927000 PSARV014 EQU PSASUP3 01928000 PSAULCMS EQU PSASUP3 01929000 PSARV012 EQU PSASUP3 01930000 PSAESTA EQU PSASUP3 01931000 PSASPR EQU PSASUP3 01932000 PSAPSREG EQU PSASUP3 01933000 PSAPI2 EQU PSASUP3 01934000 PSAIOSUP EQU PSASUP3 01935000 PSALCR EQU PSASUP2 01936000 PSARTM EQU PSASUP2 01937000 PSAACR EQU PSASUP2 01938000 PSAIPCE2 EQU PSASUP2 01939000 PSAIPCES EQU PSASUP2 01940000 PSAIPCEC EQU PSASUP2 01941000 PSAGTF EQU PSASUP2 01942000 PSAIPCRI EQU PSASUP2 01943000 PSATYPE6 EQU PSASUP1 01944000 PSATCTL EQU PSASUP1 01945000 PSADISP EQU PSASUP1 01946000 PSALOCK EQU PSASUP1 01947000 PSAPI EQU PSASUP1 01948000 PSAEXT EQU PSASUP1 01949000 PSASVC EQU PSASUP1 01950000 PSAIO EQU PSASUP1 01951000 PSAAOLD EQU PSA+548 01952000 PSAANEW EQU PSA+544 01953000 PSATOLD EQU PSA+540 01954000 PSATNEW EQU PSA+536 01955000 PSALCCAR EQU PSA+532 01956000 PSALCCAV EQU PSA+528 01957000 PSAPCCAR EQU PSA+524 01958000 PSAPCCAV EQU PSA+520 01959000 PSACPULA EQU PSA+518 01960000 PSACPUPA EQU PSA+516 01961000 PSAPSA EQU PSA+512 01962000 FLCHDEND EQU PSA+512 01963000 FLCCRSAV EQU FLCMCLA+280 01964000 FLCGRSAV EQU FLCMCLA+216 01965000 FLCFPSAV EQU FLCMCLA+184 01966000 FLCFLA EQU FLCMCLA+88 01967000 FLCRGNCD EQU FLCMCLA+84 01968000 FLCFSAA EQU FLCFSA+1 01969000 @NM00146 EQU FLCFSA 01970000 @NM00145 EQU FLCMCLA+72 01971000 FLCMCIC EQU FLCMCLA+64 01972000 @NM00144 EQU FLCMCLA+20 01973000 FLCIOAA EQU FLCIOA+1 01974000 @NM00143 EQU FLCIOA 01975000 @NM00142 EQU FLCMCLA+15 01976000 @NM00141 EQU FLCMCLA+14 01977000 @NM00140 EQU FLCMCLA+12 01978000 FLCLCL EQU FLCMCLA+8 01979000 FLCIOELA EQU FLCIOEL+1 01980000 @NM00139 EQU FLCIOEL 01981000 FLCCHNID EQU FLCMCLA 01982000 @NM00138 EQU PSA+160 01983000 FLCMTRCD EQU PSA+157 01984000 @NM00137 EQU PSA+156 01985000 FLCPERA EQU FLCPER+1 01986000 @NM00136 EQU FLCPER 01987000 @NM00135 EQU PSA+151 01988000 FLCPERCD EQU PSA+150 01989000 FLCMCNUM EQU PSA+149 01990000 @NM00134 EQU PSA+148 01991000 FLCTEAA EQU FLCTEA+1 01992000 @NM00133 EQU FLCTEA 01993000 PSAPIPC EQU PSAPICOD 01994000 PSAPIMC EQU PSAPICOD 01995000 PSAPIPER EQU PSAPICOD 01996000 PSARV049 EQU FLCPICOD 01997000 FLCPILCB EQU FLCPIILC 01998000 @NM00132 EQU FLCPIILC 01999000 @NM00131 EQU PSAEPPSW 02000000 FLCSVCN EQU PSAESPSW+2 02001000 FLCSILCB EQU FLCSVILC 02002000 @NM00130 EQU FLCSVILC 02003000 @NM00129 EQU PSAESPSW 02004000 FLCEICOD EQU PSAEEPSW+2 02005000 PSASPAD EQU PSAEEPSW 02006000 @NM00128 EQU PSA+128 02007000 FLCINPSW EQU PSA+120 02008000 FLCMNPSW EQU PSA+112 02009000 FLCPNPSW EQU PSA+104 02010000 FLCSNPSW EQU PSA+96 02011000 FLCENPSW EQU PSA+88 02012000 FLCTRACE EQU PSA+84 02013000 FLCTIMER EQU PSA+80 02014000 FLCCVT2 EQU PSA+76 02015000 FLCCAW EQU PSA+72 02016000 FLCCSW EQU PSA+64 02017000 FLCIOPSW EQU PSA+56 02018000 FLCMOPSW EQU PSA+48 02019000 FLCPOPSW EQU PSA+40 02020000 FLCSOPSW EQU PSA+32 02021000 FLCEOPSW EQU PSA+24 02022000 @NM00127 EQU FLCICCW2+4 02023000 FLCCVT EQU FLCICCW2 02024000 FLCICCW1 EQU FLCROPSW 02025000 FLCIPPSW EQU FLCRNPSW 02026000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02027000 @RT00154 EQU EXIT 02028000 @RT00158 EQU EXIT 02029000 @RT00164 EQU EXIT 02030000 @RF00201 EQU EXIT 02031000 @RF00210 EQU EXIT 02032000 @RF00221 EQU @RC00219 02033000 L190 EQU @EL00002 02034000 @ENDDATA EQU * 02035000 END BLSSSGTE,(C'PLS1841',0701,78117) 02036000