XSGT TITLE 'BLSVSGTE--SCAN SEGMENT TABLE (SGTE) *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPLK */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSVSGTE CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSVSGTE 78.069' 0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 0002 00013000 BALR @12,0 0002 00014000 @PSTART DS 0H 0002 00015000 USING @PSTART,@12 0002 00016000 L @00,@SIZDATD 0002 00017000 BLSUALLS R,LV=(0) 00018000 LR @11,@01 0002 00019000 LA @10,4095(,@11) 0002 00020000 USING @DATD,@11 0002 00021000 USING @DATD+4095,@10 0002 00022000 ST @13,@SA00001+4 0002 00023000 LM @00,@01,20(@13) 0002 00024000 ST @11,8(,@13) 0002 00025000 LR @13,@11 0002 00026000 MVC @PC00001(12),0(@01) 0002 00027000 * 0147 00028000 */********************************************************************/ 00029000 */* */ 00030000 */* BLSVSGTE--SCAN SEGMENT TABLE (SGTE) */ 00031000 */* */ 00032000 */********************************************************************/ 00033000 * 0148 00034000 * /*****************************************************************/ 00035000 * /* */ 00036000 * /* BLSV1--SCAN EXIT SETUP */ 00037000 * /* */ 00038000 * /*****************************************************************/ 00039000 * 0148 00040000 * DO; /* BLSV1 */ 00041000 * RESPECIFY 0149 00042000 * (RF) RESTRICTED; /* RETURN CODES */ 00043000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00044000 SLR RETC,RETC 0150 00045000 * SABAPTR=ADDR(SAPA); /* ->SABA (ALIAS FOR SAPA */ 00046000 L SABAPTR,@PC00001+4 0151 00047000 * IF SABASF1=ZZZ1 THEN /* SCAN STARTED */ 00048000 TM SABASF1(SABAPTR),B'10000000' 0152 00049000 BNO @RF00152 0152 00050000 * IF /* IMAGE RETRIEVAL REQUIRED */ 00051000 * SABASF9=ZZZ0| /* SCAN NOT COMPLETE */ 00052000 * (SABASFS=ZZZ1&ZZ2ASE<=SABASRC) THEN/* IMAGE USED FOR 0153 00053000 * MESSAGES */ 00054000 TM SABASF9(SABAPTR),B'01000000' 0153 00055000 BZ @RT00153 0153 00056000 TM SABASFS(SABAPTR),B'00010000' 0153 00057000 BNO @RF00153 0153 00058000 CLC ZZ2ASE(1,R9),SABASRC(SABAPTR) 0153 00059000 BNH @RT00153 0153 00060000 * GO TO LBLSCAN2; /* IMAGE RETRIEVAL */ 00061000 * ELSE /* NO IMAGE RETRIEVAL */ 00062000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00063000 B LBLSCAN8 0155 00064000 * SABAGMT=ZZ2TOD; /* REQUEST DATA BASE UPDATE */ 00065000 @RF00152 MVC SABAGMT(8,SABAPTR),ZZ2TOD(R9) 0156 00066000 * SABACL=(LENGTH(ERRF)/8)*DIM(ERRF);/* LENGTH OF SABACT */ 00067000 * 0157 00068000 MVC SABACL(2,SABAPTR),@CH00161 0157 00069000 * /***************************************************************/ 00070000 * /* */ 00071000 * /* CLEAR ALL ERROR FLAGS */ 00072000 * /* */ 00073000 * /***************************************************************/ 00074000 * 0158 00075000 * DO ERRFNDX=1 TO DIM(ERRF); /* CLEAR ALL ERROR FLAGS */ 00076000 LA ERRFNDX,1 0158 00077000 @DL00158 DS 0H 0159 00078000 * ERRF(ERRFNDX)='00'X; /* ONE BYTE AT A TIME */ 00079000 LR @14,SABAPTR 0159 00080000 ALR @14,ERRFNDX 0159 00081000 MVI ERRF-1(@14),X'00' 0159 00082000 * END; /* CLEAR ALL ERROR FLAGS */ 00083000 AL ERRFNDX,@CF00051 0160 00084000 C ERRFNDX,@CF00161 0160 00085000 BNH @DL00158 0160 00086000 * IF SABALAD//64^=0 THEN /* UNALIGNED */ 00087000 * 0161 00088000 L @14,SABALAD(,SABAPTR) 0161 00089000 N @14,@CF01363 0161 00090000 LTR @14,@14 0161 00091000 BZ @RF00161 0161 00092000 * /*************************************************************/ 00093000 * /* */ 00094000 * /* UNALIGNED */ 00095000 * /* */ 00096000 * /*************************************************************/ 00097000 * 0162 00098000 * DO; /* UNALIGNED */ 00099000 * ERRFB(TST106)=ZZZ1; /* UNALIGNED STORAGE ERROR */ 00100000 OI ERRFB(SABAPTR),B'10000000' 0163 00101000 * SABASRC=ZZZFLAGS; /* SCAN RETURN CODE */ 00102000 MVI SABASRC(SABAPTR),X'0C' 0164 00103000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00104000 * SABASF9=ZZZ1; /* SCAN COMPLETED */ 00105000 * SABASFI=ZZZ1; /* INITIAL ANALYSIS ERROR */ 00106000 OI SABASF1(SABAPTR),B'11100000' 0167 00107000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00108000 B LBLSCAN8 0168 00109000 * END; /* UNALIGNED */ 00110000 * END; /* BLSV1 */ 00111000 @RF00161 DS 0H 0171 00112000 * IF SABAAST=ZZZASTCV THEN /* VIRTUAL STORAGE */ 00113000 CLC SABAAST(2,SABAPTR),@CC00083 0171 00114000 BNE @RF00171 0171 00115000 * DO; /* BLSVM0 MF(EXECUTE,TST107) */ 00116000 * IF SABALADIMAGE */ 00224000 @RF00191 LA STEPTR,BUF 0206 00225000 * IF SABASF9=ZZZ1 THEN /* SCAN COMPLETED */ 00226000 TM SABASF9(SABAPTR),B'01000000' 0207 00227000 BO @RT00207 0207 00228000 * GO TO LBLSCAN8; /* TRANSMIT SCAN MESSAGE(S) */ 00229000 * SABASF9=ZZZ1; /* SCAN COMPLETED */ 00230000 OI SABASF9(SABAPTR),B'01000000' 0209 00231000 * END; /* BLSV2 */ 00232000 * SABAF=TCCO; /* STORAGE ATTRIBUTES */ 00233000 MVC SABAF(60,SABAPTR),TCCO 0211 00234000 * SABAFT=SABADT; /* DATA TYPE */ 00235000 * 0212 00236000 MVC SABAFT(34,SABAPTR),SABADT(SABAPTR) 0212 00237000 * /*****************************************************************/ 00238000 * /* */ 00239000 * /* BLSV89--SCAN EXIT MESSAGE TRANSMISSION AND EPILOG */ 00240000 * /* */ 00241000 * /*****************************************************************/ 00242000 * 0213 00243000 *LBLSCAN8: 0213 00244000 * DO; /* BLSV89 */ 00245000 * 0213 00246000 LBLSCAN8 DS 0H 0214 00247000 * /***************************************************************/ 00248000 * /* */ 00249000 * /* BLSV8--TRANSMIT SCAN MESSAGE(S) */ 00250000 * /* */ 00251000 * /***************************************************************/ 00252000 * 0214 00253000 * DO; /* BLSV8 */ 00254000 * SABASF1=ZZZ1; /* SCAN STARTED */ 00255000 OI SABASF1(SABAPTR),B'10000000' 0215 00256000 * IF SABASRC=ZZZFLAGI|SABASRC=ZZ2ASE THEN 0220 00285000 LR @14,SABAPTR 0220 00286000 ALR @14,ERRFNDX 0220 00287000 TM ERRFB-1(@14),B'10000000' 0220 00288000 BNO @RF00220 0220 00289000 SLR @14,@14 0220 00290000 IC @14,MSGLEVEL-1(ERRFNDX) 0220 00291000 SLR @08,@08 0220 00292000 IC @08,ZZ2ASE(,R9) 0220 00293000 CR @14,@08 0220 00294000 BL @RF00220 0220 00295000 * CALL BLSUPUTV(ZZ2,MSGPTR(ERRFNDX)->VRBA); 0221 00296000 ST R9,@AL00001 0221 00297000 LR @14,ERRFNDX 0221 00298000 SLA @14,2 0221 00299000 L @14,MSGPTR-4(@14) 0221 00300000 ST @14,@AL00001+4 0221 00301000 L @08,ZZ2BVTP(,R9) 0221 00302000 L @15,BVTPUTVP(,@08) 0221 00303000 LA @01,@AL00001 0221 00304000 BALR @14,@15 0221 00305000 * END; /* PROCESS UNIQUE MESSAGES */ 00306000 @RF00220 AL ERRFNDX,@CF00051 0222 00307000 C ERRFNDX,@CF00161 0222 00308000 BNH @DL00219 0222 00309000 * END; /* BLSV8 */ 00310000 * 0223 00311000 * /***************************************************************/ 00312000 * /* */ 00313000 * /* BLSV9--SCAN EPILOG */ 00314000 * /* */ 00315000 * /***************************************************************/ 00316000 * 0224 00317000 *EXIT: 0224 00318000 * RETURN CODE(RETC); 0224 00319000 EXIT L @13,4(,@13) 0224 00320000 L @00,@SIZDATD 0224 00321000 LR @01,@11 0224 00322000 BLSUFRES R,LV=(0),A=(1) 00323000 LR @15,@05 0224 00324000 L @14,12(,@13) 0224 00325000 LM @00,@12,20(@13) 0224 00326000 BR @14 0224 00327000 * END; /* BLSV89 */ 00328000 */*BLSVPEND--SCAN EXIT */ 00329000 */*BLSRPEND--DEBUGGING MODULE */ 00330000 */*BLSUPEND--MVS IPCS MODULE */ 00331000 * 0226 00332000 * DECLARE /* COMMON VARIABLES */ 00333000 * I256C CHAR(256) BASED, 0226 00334000 * I031F FIXED(31) BASED, 0226 00335000 * I031P PTR(31) BASED, 0226 00336000 * I015F FIXED(15) BASED, 0226 00337000 * I015P PTR(15) BASED, 0226 00338000 * I008P PTR(8) BASED, 0226 00339000 * I001C CHAR(1) BASED; 0226 00340000 * GENERATE NODEFS NOREFS DATA; 0227 00341000 * END BLSVSGTE /* BLRPEND(BLSVSGTE) */ 00342000 * 0228 00343000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00344000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 00345000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00346000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00347000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00348000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00349000 */*%INCLUDE SYSLIB (IKJECT ) */ 00350000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00351000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00352000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00353000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00354000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00355000 */*%INCLUDE SYSLIB (IHASGTE ) */ 00356000 * 0228 00357000 * ; 0228 00358000 @EL00001 L @13,4(,@13) 0228 00359000 @EF00001 L @00,@SIZDATD 0228 00360000 LR @01,@11 0228 00361000 BLSUFRES R,LV=(0),A=(1) 00362000 @ER00001 LM @14,@12,12(@13) 0228 00363000 BR @14 0228 00364000 @DATA DS 0H 00365000 @DATD DSECT 00366000 DS 0F 00367000 @SA00001 DS 18F 00368000 @PC00001 DS 3F 00369000 @AL00001 DS 3A 00370000 BLSVSGTE CSECT 00371000 DS 0F 00372000 @CF00051 DC F'1' 00373000 @CF00161 DC F'3' 00374000 @CH00161 EQU @CF00161+2 00375000 @CF01363 DC F'63' 00376000 @CF00820 DC F'1024' 00377000 @DATD DSECT 00378000 DS 0D 00379000 ESAU DS CL694 00380000 ORG ESAU 00381000 ESAURID DS CL2 00382000 @NM00031 DS BL6 00383000 @NM00032 DS CL8 00384000 @NM00033 DS BL8 00385000 ESAURDX DS FL4 00386000 ESAUSYM DS CL31 00387000 ESAUELK DS 0C 00388000 ESAURV1 DS CL1 00389000 ESAUAS DS CL16 00390000 ORG ESAUAS 00391000 ESAUAS0 DS 0C 00392000 ESAUAST DS CL2 00393000 @NM00034 DS BL2 00394000 ESAUAS1 DS FL4 00395000 ESAUAS2 DS FL4 00396000 @NM00035 DS BL4 00397000 ESAUAS9 DS 0C 00398000 ORG ESAU+76 00399000 ESAULAD DS AL4 00400000 ESAUD DS CL60 00401000 ORG ESAUD 00402000 ESAUD00 DS 0C 00403000 ESAUDOF DS FL4 00404000 ESAUDLE DS FL4 00405000 ESAUDOB DS FL1 00406000 ESAUDLB DS FL1 00407000 ESAUDT DS CL34 00408000 ORG ESAUDT 00409000 ESAUDT0 DS 0C 00410000 ESAUDTY DS CL1 00411000 @NM00036 DS BL1 00412000 ESAUDTD DS CL31 00413000 ESAUDTE DS CL1 00414000 ESAUDT9 DS 0C 00415000 ORG ESAUD+44 00416000 ESAUDIM DS FL4 00417000 ESAUDIL DS FL4 00418000 ESAUDF DS BL4 00419000 ORG ESAUDF 00420000 ESAUDFA DS BL1 00421000 @NM00037 EQU ESAUDF+0 00422000 ORG ESAUD+56 00423000 @NM00038 DS BL4 00424000 ESAUD99 DS 0C 00425000 ORG ESAU+140 00426000 ESAUMAD DS AL4 00427000 @NM00039 DS BL16 00428000 ESAUKEY DS BL1 00429000 ESAUF DS BL3 00430000 ORG ESAUF 00431000 ESAUFS DS BL1 00432000 ORG ESAUFS 00433000 ESAUFSC DS BL1 00434000 ESAUFS2 EQU ESAUFS+0 00435000 ESAUFSM EQU ESAUFS+0 00436000 ESAUFSA EQU ESAUFS+0 00437000 ESAUFSP EQU ESAUFS+0 00438000 ESAUFSR EQU ESAUFS+0 00439000 ESAUFSX EQU ESAUFS+0 00440000 ESAUFSS EQU ESAUFS+0 00441000 ORG ESAUF+1 00442000 ESAUFC DS BL1 00443000 ORG ESAUFC 00444000 ESAUFCD DS BL1 00445000 @NM00040 EQU ESAUFC+0 00446000 ORG ESAUF+2 00447000 @NM00041 DS BL1 00448000 ORG ESAU+164 00449000 ESAUABS DS FL4 00450000 @NM00042 DS BL12 00451000 ESAUR DS CL514 00452000 ORG ESAUR 00453000 ESAURL DS FL2 00454000 ESAURT DS CL512 00455000 ORG ESAURT 00456000 ESAURT1 DS CL512 00457000 ORG ESAU+694 00458000 ESAU999 DS 0C 00459000 ORG ESAU+694 00460000 DS CL2 00461000 BUF DS CL1024 00462000 BLSVSGTE CSECT 00463000 DS 0F 00464000 @SIZDATD DC AL1(0) 00465000 DC AL3(@ENDDATD-@DATD) 00466000 DS 0D 00467000 @CC00083 DC C'CV' 00468000 MV01 DS CL38 00469000 ORG MV01 00470000 MV01L DC AL2(38) 00471000 @NM00056 DC X'0000' 00472000 MV01T DS CL34 00473000 ORG MV01T 00474000 MV01TA DC CL9'BLS22106I' 00475000 MV01TB DC CL3' ' 00476000 MV01TC DC CL22'SGTE NOT ON BOUNDARY64' 00477000 ORG MV01+38 00478000 MV02 DS CL40 00479000 ORG MV02 00480000 MV02L DC AL2(40) 00481000 @NM00057 DC X'0000' 00482000 MV02T DS CL36 00483000 ORG MV02T 00484000 MV02TA DC CL9'BLS22105I' 00485000 MV02TB DC CL3' ' 00486000 MV02TC DC CL24'SGTE STORAGE NOT IN DUMP' 00487000 ORG MV02+40 00488000 TCCO DS CL60 00489000 ORG TCCO 00490000 TCCO00 DS 0C 00491000 TCCOOF DC F'0' 00492000 TCCOLE DC AL4(4) 00493000 TCCOOB DC AL1(0) 00494000 TCCOLB DC AL1(0) 00495000 TCCOT DS CL34 00496000 ORG TCCOT 00497000 TCCOT0 DS 0C 00498000 TCCOTY DC CL1'M' 00499000 @NM00139 DC X'00' 00500000 TCCOTD DC CL31'SGT' 00501000 TCCOTE DC CL1' ' 00502000 TCCOT9 DS 0C 00503000 ORG TCCO+44 00504000 TCCOIM DC AL4(1+255-0) 00505000 TCCOIL DC F'0' 00506000 TCCOF DC X'80000000' 00507000 ORG TCCOF 00508000 TCCOFA DS BL1 00509000 @NM00140 EQU TCCOF+0 00510000 ORG TCCO+56 00511000 @NM00141 DC X'00' 00512000 DC XL3'0' 00513000 TCCO99 DS 0C 00514000 ORG TCCO+60 00515000 MV03 DS CL62 00516000 ORG MV03 00517000 MV03L DC AL2(62) 00518000 @NM00142 DC X'0000' 00519000 MV03T DS CL58 00520000 ORG MV03T 00521000 MV03TA DC CL9'BLS22107I' 00522000 MV03TB DC CL3' ' 00523000 MV03TC DC CL46'ADDRESS OF SGTE IS LESS THAN ADDRESS OF COMMON' 00524000 ORG MV03+62 00525000 DS CL2 00526000 MSGPTR DC AL4(MV01) 00527000 DC AL4(MV02) 00528000 DC AL4(MV03) 00529000 MSGLEVEL DC AL1(12) 00530000 DC AL1(4) 00531000 DC AL1(12) 00532000 @DATD DSECT 00533000 SPACE 2 00534000 *********************************************************************** 00535000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00536000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00537000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00538000 *********************************************************************** 00539000 SPACE 00540000 BLSVSGTE CSECT 00541000 ORG 00542000 DS 0D 00543000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSVSGTE+19)/20+7)/8)CL8'BLSVSGTE' 00544000 @DATD DSECT 00545000 DS 0H 00546000 @DATD DSECT 00547000 SPACE 2 00548000 *********************************************************************** 00549000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00550000 *********************************************************************** 00551000 SPACE 00552000 DS 0D 00553000 @DATD DSECT 00554000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00555000 @ENDDATD EQU * 00556000 BLSVSGTE CSECT 00557000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00558000 @01 EQU 01 00559000 @02 EQU 02 00560000 @03 EQU 03 00561000 @04 EQU 04 00562000 @05 EQU 05 00563000 @06 EQU 06 00564000 @07 EQU 07 00565000 @08 EQU 08 00566000 @09 EQU 09 00567000 @10 EQU 10 00568000 @11 EQU 11 00569000 @12 EQU 12 00570000 @13 EQU 13 00571000 @14 EQU 14 00572000 @15 EQU 15 00573000 ERRFNDX EQU @04 00574000 STEPTR EQU @04 00575000 RETC EQU @05 00576000 SABAPTR EQU @03 00577000 R9 EQU @09 00578000 R0 EQU @00 00579000 R1 EQU @01 00580000 R2 EQU @02 00581000 R3 EQU @03 00582000 R4 EQU @04 00583000 R5 EQU @05 00584000 RB EQU @11 00585000 RD EQU @13 00586000 RE EQU @14 00587000 RF EQU @15 00588000 RA EQU @10 00589000 RC EQU @12 00590000 R6 EQU @06 00591000 R7 EQU @07 00592000 R8 EQU @08 00593000 SABA EQU 0 00594000 SABAAS EQU SABA+12 00595000 SABAAST EQU SABAAS 00596000 SABALAD EQU SABA+28 00597000 SABADT EQU SABA+32 00598000 SABAF EQU SABA+68 00599000 SABAFT EQU SABAF+10 00600000 SABAFF EQU SABAF+52 00601000 SABASF EQU SABA+128 00602000 SABASF1 EQU SABASF 00603000 SABASF9 EQU SABASF 00604000 SABASFI EQU SABASF 00605000 SABASFS EQU SABASF 00606000 SABAGMT EQU SABA+136 00607000 SABASRC EQU SABA+152 00608000 SABAC EQU SABA+254 00609000 SABACL EQU SABAC 00610000 SABACT EQU SABAC+2 00611000 ESCO EQU 0 00612000 ESCOAS EQU ESCO+60 00613000 ESCOD EQU ESCO+80 00614000 ESCODT EQU ESCOD+10 00615000 ESCODF EQU ESCOD+52 00616000 ESCOF EQU ESCO+161 00617000 ESCOFS EQU ESCOF 00618000 ESCOFC EQU ESCOF+1 00619000 ESCOR EQU ESCO+180 00620000 ESCORT EQU ESCOR+2 00621000 VRBA EQU 0 00622000 VRBAT EQU VRBA+4 00623000 ZZ1 EQU 0 00624000 ZZ1ATTN EQU ZZ1+360 00625000 ZZ1EVE EQU ZZ1ATTN+4 00626000 ZZ1EVEP EQU ZZ1EVE 00627000 ZZ1F EQU ZZ1+368 00628000 ZZ1N EQU ZZ1+1116 00629000 ZZ2 EQU 0 00630000 ZZ2AMD EQU ZZ2 00631000 @NM00070 EQU ZZ2AMD+7 00632000 ZZ2PRT EQU ZZ2+138 00633000 ZZ2PRTT EQU ZZ2PRT+4 00634000 ZZ2PRTT1 EQU ZZ2PRTT+1 00635000 ZZ2A EQU ZZ2+272 00636000 ZZ2ASE EQU ZZ2A+2 00637000 ZZ2AF EQU ZZ2A+16 00638000 ZZ2APID EQU ZZ2A+64 00639000 ZZ2AD EQU ZZ2A+74 00640000 ZZ2ADD EQU ZZ2AD 00641000 ZZ2ADDT EQU ZZ2ADD+2 00642000 ZZ2ADM EQU ZZ2AD+46 00643000 ZZ2ADMT EQU ZZ2ADM+2 00644000 ZZ2ADP EQU ZZ2AD+56 00645000 ZZ2ADPT EQU ZZ2ADP+2 00646000 ZZ2AZZ6P EQU ZZ2A+140 00647000 ZZ2AQAS EQU ZZ2A+144 00648000 ZZ2AQD EQU ZZ2A+160 00649000 ZZ2AQDT EQU ZZ2AQD+10 00650000 ZZ2AQDF EQU ZZ2AQD+52 00651000 ZZ2STG EQU ZZ2+960 00652000 ZZ2TOD EQU ZZ2+968 00653000 ZZ2ALLOP EQU ZZ2+992 00654000 ZZ2FREEP EQU ZZ2+996 00655000 ZZ2FF19P EQU ZZ2+1000 00656000 ZZ2FRE1P EQU ZZ2+1004 00657000 ZZ2FF18P EQU ZZ2+1008 00658000 ZZ2DYNAP EQU ZZ2+1012 00659000 ZZ2ZZ2CP EQU ZZ2+1016 00660000 ZZ2ZZ2DP EQU ZZ2+1020 00661000 ZZ2STAIP EQU ZZ2+1024 00662000 ZZ2FF02P EQU ZZ2+1028 00663000 ZZ2GETLP EQU ZZ2+1032 00664000 ZZ2PARSP EQU ZZ2+1036 00665000 ZZ2PTGTP EQU ZZ2+1040 00666000 ZZ2PUTLP EQU ZZ2+1044 00667000 ZZ2SCANP EQU ZZ2+1048 00668000 ZZ2STCKP EQU ZZ2+1052 00669000 ZZ2TRMOP EQU ZZ2+1064 00670000 ZZ2TRMVP EQU ZZ2+1068 00671000 ZZ2PUTNP EQU ZZ2+1084 00672000 ZZ2TRMNP EQU ZZ2+1088 00673000 ZZ2ZZ1P EQU ZZ2+1264 00674000 ZZ2BVTP EQU ZZ2+1280 00675000 ZZ2RVTP EQU ZZ2+1284 00676000 ZZ2CPPL EQU ZZ2+1292 00677000 ZZ2CPPLC EQU ZZ2CPPL 00678000 ZZ2ESSYP EQU ZZ2+1328 00679000 ZZ2ITR EQU ZZ2+2840 00680000 ZZ2ITRE EQU ZZ2ITR+16 00681000 ZZ2ITSE EQU ZZ2+2864 00682000 ZZ2ES EQU ZZ2+2872 00683000 ZZ2AMDX EQU ZZ2+7160 00684000 ZZ2AXO EQU ZZ2+7934 00685000 ZZ2AXOT EQU ZZ2AXO+2 00686000 CMD EQU 0 00687000 CMDT EQU CMD+4 00688000 PSCB EQU 0 00689000 PSCBATR1 EQU PSCB+16 00690000 ECT EQU 0 00691000 ECTSWS EQU ECT+28 00692000 ECTSWS2 EQU ECT+40 00693000 ECTSWS21 EQU ECTSWS2 00694000 UPT EQU 0 00695000 UPTSWS EQU UPT+12 00696000 SA EQU 0 00697000 SA1 EQU SA 00698000 SAR EQU SA+12 00699000 SAR1 EQU SAR+12 00700000 BLSUPUTV EQU 0 00701000 BVT EQU 0 00702000 BVTPUTLP EQU BVT+4 00703000 BVTPUTOP EQU BVT+12 00704000 BVTPUTTP EQU BVT+16 00705000 BVTPUTVP EQU BVT+20 00706000 BVTPUTAP EQU BVT+24 00707000 BVTPRTTP EQU BVT+28 00708000 BVTPRTAP EQU BVT+32 00709000 BVTPUTDP EQU BVT+36 00710000 BVTMONP EQU BVT+40 00711000 BVTMON2P EQU BVT+44 00712000 BVTVSARP EQU BVT+48 00713000 BVTVSENP EQU BVT+64 00714000 BVTVSERP EQU BVT+68 00715000 BVTVSGEP EQU BVT+72 00716000 BVTVSGUP EQU BVT+76 00717000 BVTVSPOP EQU BVT+80 00718000 BVTVSPUP EQU BVT+84 00719000 BVTMPKNP EQU BVT+104 00720000 BVTMONLP EQU BVT+108 00721000 BVTPUTCP EQU BVT+132 00722000 BVTMPK1P EQU BVT+136 00723000 BVTZZ2RP EQU BVT+140 00724000 BVTPGMRP EQU BVT+144 00725000 BVTMONAP EQU BVT+148 00726000 BVTBLDDP EQU BVT+152 00727000 BVTBLDLP EQU BVT+156 00728000 BVTPGMCP EQU BVT+160 00729000 BVTPGMDP EQU BVT+164 00730000 BVTPGMLP EQU BVT+168 00731000 BVTMONCP EQU BVT+180 00732000 BVTMONDP EQU BVT+184 00733000 BVTMONTP EQU BVT+188 00734000 BVTPARIP EQU BVT+192 00735000 BVTPARUP EQU BVT+196 00736000 BVTPRTNP EQU BVT+204 00737000 BVTVSCRP EQU BVT+208 00738000 BVTVSMRP EQU BVT+212 00739000 BVTMONXP EQU BVT+216 00740000 BVTTRMAP EQU BVT+228 00741000 ZZ6 EQU 0 00742000 ZZ6D EQU ZZ6+128 00743000 ZZ6DD EQU ZZ6D+8 00744000 ZZ6DDT EQU ZZ6DD+4 00745000 ZZ6DQA EQU ZZ6D+68 00746000 ZZ6DF EQU ZZ6D+92 00747000 ZZ6DCAP EQU ZZ6D+112 00748000 ZZ6B EQU ZZ6+768 00749000 BLSRACCQ EQU 0 00750000 BLSRSAPC EQU 0 00751000 RVT EQU 0 00752000 RVTADDRP EQU RVT 00753000 RVTT01P EQU RVT+4 00754000 RVTTAP EQU RVT+8 00755000 RVTTBP EQU RVT+12 00756000 RVTTCP EQU RVT+16 00757000 RVTTFP EQU RVT+24 00758000 RVTTYP EQU RVT+40 00759000 RVTT02P EQU RVT+48 00760000 RVTT03P EQU RVT+52 00761000 RVTT04P EQU RVT+56 00762000 RVTACCLP EQU RVT+60 00763000 RVTRACCP EQU RVT+64 00764000 RVTTLP EQU RVT+68 00765000 RVTTMP EQU RVT+72 00766000 RVTTUP EQU RVT+80 00767000 RVTESGEP EQU RVT+84 00768000 RVTESGUP EQU RVT+88 00769000 RVTESARP EQU RVT+92 00770000 RVTRAARP EQU RVT+96 00771000 RVTRAGEP EQU RVT+100 00772000 RVTADDPP EQU RVT+104 00773000 RVTACCQP EQU RVT+108 00774000 RVTSAGUP EQU RVT+124 00775000 RVTSAGEP EQU RVT+128 00776000 RVTESCKP EQU RVT+132 00777000 RVTMSGAP EQU RVT+136 00778000 RVTMSGDP EQU RVT+140 00779000 RVTADDTP EQU RVT+160 00780000 RVTADDUP EQU RVT+164 00781000 RVTADD1P EQU RVT+176 00782000 RVTADD2P EQU RVT+180 00783000 RVTRSAGP EQU RVT+184 00784000 RVTMSGBP EQU RVT+188 00785000 RVTADDSP EQU RVT+192 00786000 RVTADD3P EQU RVT+196 00787000 RVTT05P EQU RVT+200 00788000 RVTPADSP EQU RVT+204 00789000 RVTTRP EQU RVT+228 00790000 RVTADD4P EQU RVT+232 00791000 RVTSAPCP EQU RVT+236 00792000 RVTSAARP EQU RVT+240 00793000 RVTSAGNP EQU RVT+244 00794000 RVTT06P EQU RVT+248 00795000 RVTSAGCP EQU RVT+252 00796000 RVTSAGQP EQU RVT+256 00797000 RVTESGCP EQU RVT+260 00798000 RVTESGQP EQU RVT+264 00799000 RVTDUCKP EQU RVT+276 00800000 RVTDUCCP EQU RVT+280 00801000 SGTSTE EQU 0 00802000 SGTLK EQU SGTSTE 00803000 SGTPTO EQU SGTSTE+1 00804000 SGTBYTE EQU SGTPTO+2 00805000 BLSRACC EQU 0 00806000 BLSRACCL EQU 0 00807000 BLSRADDP EQU 0 00808000 BLSRADDR EQU 0 00809000 BLSRADDS EQU 0 00810000 BLSRADDT EQU 0 00811000 BLSRADDU EQU 0 00812000 BLSRADD1 EQU 0 00813000 BLSRADD2 EQU 0 00814000 BLSRADD3 EQU 0 00815000 BLSRADD4 EQU 0 00816000 BLSRDUCC EQU 0 00817000 BLSRDUCK EQU 0 00818000 BLSRESAR EQU 0 00819000 BLSRESCK EQU 0 00820000 BLSRESGC EQU 0 00821000 BLSRESGE EQU 0 00822000 BLSRESGQ EQU 0 00823000 BLSRESGU EQU 0 00824000 BLSRMSGA EQU 0 00825000 BLSRMSGB EQU 0 00826000 BLSRMSGD EQU 0 00827000 BLSRPADS EQU 0 00828000 BLSRRAAR EQU 0 00829000 BLSRRAGE EQU 0 00830000 BLSRSAAR EQU 0 00831000 BLSRSAG EQU 0 00832000 BLSRSAGC EQU 0 00833000 BLSRSAGE EQU 0 00834000 BLSRSAGN EQU 0 00835000 BLSRSAGQ EQU 0 00836000 BLSRSAGU EQU 0 00837000 BLSTA EQU 0 00838000 BLSTB EQU 0 00839000 BLSTC EQU 0 00840000 BLSTF EQU 0 00841000 BLSTL EQU 0 00842000 BLSTM EQU 0 00843000 BLSTR EQU 0 00844000 BLSTU EQU 0 00845000 BLSTY EQU 0 00846000 BLST01 EQU 0 00847000 BLST02 EQU 0 00848000 BLST03 EQU 0 00849000 BLST04 EQU 0 00850000 BLST05 EQU 0 00851000 BLST06 EQU 0 00852000 BLSUALLO EQU 0 00853000 BLSUBLDD EQU 0 00854000 BLSUBLDL EQU 0 00855000 BLSUDYNA EQU 0 00856000 BLSUFREE EQU 0 00857000 BLSUFRE1 EQU 0 00858000 BLSUMON EQU 0 00859000 BLSUMONA EQU 0 00860000 BLSUMONC EQU 0 00861000 BLSUMOND EQU 0 00862000 BLSUMONL EQU 0 00863000 BLSUMONT EQU 0 00864000 BLSUMONX EQU 0 00865000 BLSUMON2 EQU 0 00866000 BLSUMPKN EQU 0 00867000 BLSUMPK1 EQU 0 00868000 BLSUPARI EQU 0 00869000 BLSUPARU EQU 0 00870000 BLSUPGMC EQU 0 00871000 BLSUPGMD EQU 0 00872000 BLSUPGML EQU 0 00873000 BLSUPGMR EQU 0 00874000 BLSUPRTA EQU 0 00875000 BLSUPRTN EQU 0 00876000 BLSUPRTT EQU 0 00877000 BLSUPUTA EQU 0 00878000 BLSUPUTC EQU 0 00879000 BLSUPUTD EQU 0 00880000 BLSUPUTL EQU 0 00881000 BLSUPUTN EQU 0 00882000 BLSUPUTO EQU 0 00883000 BLSUPUTT EQU 0 00884000 BLSUSTAI EQU 0 00885000 BLSUTRMA EQU 0 00886000 BLSUTRMN EQU 0 00887000 BLSUTRMO EQU 0 00888000 BLSUTRMV EQU 0 00889000 BLSUVSAR EQU 0 00890000 BLSUVSCR EQU 0 00891000 BLSUVSEN EQU 0 00892000 BLSUVSER EQU 0 00893000 BLSUVSGE EQU 0 00894000 BLSUVSGU EQU 0 00895000 BLSUVSMR EQU 0 00896000 BLSUVSPO EQU 0 00897000 BLSUVSPU EQU 0 00898000 BLSUZZ2C EQU 0 00899000 BLSUZZ2D EQU 0 00900000 BLSUZZ2R EQU 0 00901000 IKJEFF02 EQU 0 00902000 IKJEFF18 EQU 0 00903000 IKJEFF19 EQU 0 00904000 IKJGETL EQU 0 00905000 IKJPARS EQU 0 00906000 IKJPTGT EQU 0 00907000 IKJPUTL EQU 0 00908000 IKJSCAN EQU 0 00909000 IKJSTCK EQU 0 00910000 I001C EQU 0 00911000 I008P EQU 0 00912000 I015F EQU 0 00913000 I015P EQU 0 00914000 I031F EQU 0 00915000 I031P EQU 0 00916000 I256C EQU 0 00917000 SGTEND EQU 0 00918000 PZ2 EQU 0 00919000 SAPA EQU 0 00920000 SAPAAS EQU SAPA+12 00921000 SAPADT EQU SAPA+32 00922000 SAPAF EQU SAPA+68 00923000 SAPAFT EQU SAPAF+10 00924000 SAPAFF EQU SAPAF+52 00925000 SAPASF EQU SAPA+128 00926000 SAPAC EQU SAPA+254 00927000 SAPACT EQU SAPAC+2 00928000 SABK EQU 0 00929000 SABKAS EQU SABK+12 00930000 SABKDT EQU SABK+32 00931000 SABKF EQU SABK+68 00932000 SABKFT EQU SABKF+10 00933000 SABKFF EQU SABKF+52 00934000 SABKSF EQU SABK+128 00935000 SABKC EQU SABK+254 00936000 SABKCT EQU SABKC+2 00937000 CPPL EQU ZZ2CPPL 00938000 CPPLUPT EQU CPPL+4 00939000 CPPLPSCB EQU CPPL+8 00940000 CPPLECT EQU CPPL+12 00941000 ERRF EQU SABACT 00942000 ERRFB EQU ERRF 00943000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00944000 @NM00143 EQU ERRF 00945000 ERRFS EQU ERRF 00946000 ERRFN EQU ERRF 00947000 ERRFD EQU ERRF 00948000 CPPLCBUF EQU CPPL 00949000 SABK999 EQU SABK+3072 00950000 SABKCT1 EQU SABKCT 00951000 SABKCL EQU SABKC 00952000 @NM00030 EQU SABK+153 00953000 SABKSRC EQU SABK+152 00954000 SABKPGV EQU SABK+144 00955000 SABKGMT EQU SABK+136 00956000 @NM00029 EQU SABKSF 00957000 SABKSFS EQU SABKSF 00958000 SABKSFI EQU SABKSF 00959000 SABKSF9 EQU SABKSF 00960000 SABKSF1 EQU SABKSF 00961000 SABKF99 EQU SABKF+60 00962000 @NM00028 EQU SABKF+56 00963000 @NM00027 EQU SABKFF 00964000 SABKFFA EQU SABKFF 00965000 SABKFIL EQU SABKF+48 00966000 SABKFIM EQU SABKF+44 00967000 SABKFT9 EQU SABKFT+34 00968000 SABKFTE EQU SABKFT+33 00969000 SABKFTD EQU SABKFT+2 00970000 @NM00026 EQU SABKFT+1 00971000 SABKFTY EQU SABKFT 00972000 SABKFT0 EQU SABKFT 00973000 SABKFLB EQU SABKF+9 00974000 SABKFOB EQU SABKF+8 00975000 SABKFLE EQU SABKF+4 00976000 SABKFOF EQU SABKF 00977000 SABKF00 EQU SABKF 00978000 @NM00025 EQU SABK+66 00979000 SABKELK EQU SABK+66 00980000 SABKDT9 EQU SABKDT+34 00981000 SABKDTE EQU SABKDT+33 00982000 SABKDTD EQU SABKDT+2 00983000 @NM00024 EQU SABKDT+1 00984000 SABKDTY EQU SABKDT 00985000 SABKDT0 EQU SABKDT 00986000 SABKLAD EQU SABK+28 00987000 SABKAS9 EQU SABKAS+16 00988000 @NM00023 EQU SABKAS+12 00989000 SABKAS2 EQU SABKAS+8 00990000 SABKAS1 EQU SABKAS+4 00991000 @NM00022 EQU SABKAS+2 00992000 SABKAST EQU SABKAS 00993000 SABKAS0 EQU SABKAS 00994000 SABKRDX EQU SABK+8 00995000 @NM00021 EQU SABK+2 00996000 SABKRID EQU SABK 00997000 SAPA999 EQU SAPA+3072 00998000 SAPACT1 EQU SAPACT 00999000 SAPACL EQU SAPAC 01000000 @NM00010 EQU SAPA+153 01001000 SAPASRC EQU SAPA+152 01002000 SAPAPGV EQU SAPA+144 01003000 SAPAGMT EQU SAPA+136 01004000 @NM00009 EQU SAPASF 01005000 SAPASFS EQU SAPASF 01006000 SAPASFI EQU SAPASF 01007000 SAPASF9 EQU SAPASF 01008000 SAPASF1 EQU SAPASF 01009000 SAPAF99 EQU SAPAF+60 01010000 @NM00008 EQU SAPAF+56 01011000 @NM00007 EQU SAPAFF 01012000 SAPAFFA EQU SAPAFF 01013000 SAPAFIL EQU SAPAF+48 01014000 SAPAFIM EQU SAPAF+44 01015000 SAPAFT9 EQU SAPAFT+34 01016000 SAPAFTE EQU SAPAFT+33 01017000 SAPAFTD EQU SAPAFT+2 01018000 @NM00006 EQU SAPAFT+1 01019000 SAPAFTY EQU SAPAFT 01020000 SAPAFT0 EQU SAPAFT 01021000 SAPAFLB EQU SAPAF+9 01022000 SAPAFOB EQU SAPAF+8 01023000 SAPAFLE EQU SAPAF+4 01024000 SAPAFOF EQU SAPAF 01025000 SAPAF00 EQU SAPAF 01026000 @NM00005 EQU SAPA+66 01027000 SAPAELK EQU SAPA+66 01028000 SAPADT9 EQU SAPADT+34 01029000 SAPADTE EQU SAPADT+33 01030000 SAPADTD EQU SAPADT+2 01031000 @NM00004 EQU SAPADT+1 01032000 SAPADTY EQU SAPADT 01033000 SAPADT0 EQU SAPADT 01034000 SAPALAD EQU SAPA+28 01035000 SAPAAS9 EQU SAPAAS+16 01036000 @NM00003 EQU SAPAAS+12 01037000 SAPAAS2 EQU SAPAAS+8 01038000 SAPAAS1 EQU SAPAAS+4 01039000 @NM00002 EQU SAPAAS+2 01040000 SAPAAST EQU SAPAAS 01041000 SAPAAS0 EQU SAPAAS 01042000 SAPARDX EQU SAPA+8 01043000 @NM00001 EQU SAPA+2 01044000 SAPARID EQU SAPA 01045000 SGTPAM EQU SGTBYTE 01046000 SGTEAC EQU SGTBYTE 01047000 @NM00138 EQU SGTBYTE 01048000 @NM00137 EQU SGTBYTE 01049000 @NM00136 EQU SGTBYTE 01050000 @NM00135 EQU SGTBYTE 01051000 @NM00134 EQU SGTBYTE 01052000 SGTORG EQU SGTPTO 01053000 SGTKEY EQU SGTLK 01054000 SGTPTL EQU SGTLK 01055000 RVT99999 EQU RVT+384 01056000 RVT0096P EQU RVT+380 01057000 RVT0095P EQU RVT+376 01058000 RVT0094P EQU RVT+372 01059000 RVT0093P EQU RVT+368 01060000 RVT0092P EQU RVT+364 01061000 RVT0091P EQU RVT+360 01062000 RVT0090P EQU RVT+356 01063000 RVT0089P EQU RVT+352 01064000 RVT0088P EQU RVT+348 01065000 RVT0087P EQU RVT+344 01066000 RVT0086P EQU RVT+340 01067000 RVT0085P EQU RVT+336 01068000 RVT0084P EQU RVT+332 01069000 RVT0083P EQU RVT+328 01070000 RVT0082P EQU RVT+324 01071000 RVT0081P EQU RVT+320 01072000 RVT0080P EQU RVT+316 01073000 RVT0079P EQU RVT+312 01074000 RVT0078P EQU RVT+308 01075000 RVT0077P EQU RVT+304 01076000 RVT0076P EQU RVT+300 01077000 RVT0075P EQU RVT+296 01078000 RVT0074P EQU RVT+292 01079000 RVT0073P EQU RVT+288 01080000 RVT0072P EQU RVT+284 01081000 RVTDTUTP EQU RVT+272 01082000 RVTDTMTP EQU RVT+268 01083000 RVT0057P EQU RVT+224 01084000 RVT0056P EQU RVT+220 01085000 RVT0055P EQU RVT+216 01086000 RVT0054P EQU RVT+212 01087000 RVT0053P EQU RVT+208 01088000 RVT0044P EQU RVT+172 01089000 RVT0043P EQU RVT+168 01090000 RVT0040P EQU RVT+156 01091000 RVT0039P EQU RVT+152 01092000 RVT0038P EQU RVT+148 01093000 RVT0037P EQU RVT+144 01094000 RVT0031P EQU RVT+120 01095000 RVT0030P EQU RVT+116 01096000 RVT0029P EQU RVT+112 01097000 RVT0020P EQU RVT+76 01098000 RVT0012P EQU RVT+44 01099000 RVT0010P EQU RVT+36 01100000 RVT0009P EQU RVT+32 01101000 RVT0008P EQU RVT+28 01102000 RVT0006P EQU RVT+20 01103000 ZZ69999 EQU ZZ6+1792 01104000 ZZ6BRB EQU ZZ6B+12 01105000 ZZ6BRC EQU ZZ6B+8 01106000 @NM00133 EQU ZZ6B+6 01107000 ZZ6BFL EQU ZZ6B+4 01108000 ZZ6BDA EQU ZZ6B 01109000 @NM00132 EQU ZZ6+540 01110000 ZZ6BUFI EQU ZZ6+536 01111000 ZZ6BUFP EQU ZZ6+532 01112000 ZZ6FILE EQU ZZ6+524 01113000 ZZ6BUFB EQU ZZ6+520 01114000 ZZ6BUFL EQU ZZ6+518 01115000 ZZ6BUFN EQU ZZ6+516 01116000 ZZ6ZZ6P EQU ZZ6+512 01117000 @NM00131 EQU ZZ6+256 01118000 ZZ6D999 EQU ZZ6D+128 01119000 @NM00130 EQU ZZ6D+116 01120000 ZZ6DPRP EQU ZZ6D+108 01121000 ZZ6DDA2 EQU ZZ6D+104 01122000 ZZ6DDA1 EQU ZZ6D+100 01123000 @NM00129 EQU ZZ6DF 01124000 ZZ6DFSU EQU ZZ6DF 01125000 ZZ6DFST EQU ZZ6DF 01126000 ZZ6DFAB EQU ZZ6DF 01127000 ZZ6DFMP EQU ZZ6DF 01128000 ZZ6DFDU EQU ZZ6DF 01129000 ZZ6DFBS EQU ZZ6DF 01130000 ZZ6DQ2 EQU ZZ6D+88 01131000 ZZ6DQ1 EQU ZZ6D+84 01132000 ZZ6DQA9 EQU ZZ6DQA+16 01133000 @NM00128 EQU ZZ6DQA+12 01134000 ZZ6DQA2 EQU ZZ6DQA+8 01135000 ZZ6DQA1 EQU ZZ6DQA+4 01136000 @NM00127 EQU ZZ6DQA+2 01137000 ZZ6DQAT EQU ZZ6DQA 01138000 ZZ6DQA0 EQU ZZ6DQA 01139000 ZZ6DRDX EQU ZZ6D+64 01140000 ZZ6DELK EQU ZZ6D+64 01141000 ZZ6DMEM EQU ZZ6D+56 01142000 ZZ6DDT1 EQU ZZ6DDT 01143000 ZZ6DDO EQU ZZ6DD+2 01144000 ZZ6DDL EQU ZZ6DD 01145000 @NM00126 EQU ZZ6D+2 01146000 ZZ6DRID EQU ZZ6D 01147000 ZZ6RDCB EQU ZZ6 01148000 ZZ60000 EQU ZZ6 01149000 BVT99999 EQU BVT+256 01150000 BVT0064P EQU BVT+252 01151000 BVT0063P EQU BVT+248 01152000 BVT0062P EQU BVT+244 01153000 BVT0061P EQU BVT+240 01154000 BVT0060P EQU BVT+236 01155000 BVT0059P EQU BVT+232 01156000 BVT0057P EQU BVT+224 01157000 BVT0056P EQU BVT+220 01158000 BVTSTBLP EQU BVT+200 01159000 BVT0045P EQU BVT+176 01160000 BVT0044P EQU BVT+172 01161000 BVT0033P EQU BVT+128 01162000 BVT0032P EQU BVT+124 01163000 BVT0031P EQU BVT+120 01164000 BVT0030P EQU BVT+116 01165000 BVT0029P EQU BVT+112 01166000 BVT0026P EQU BVT+100 01167000 BVT0025P EQU BVT+96 01168000 BVT0024P EQU BVT+92 01169000 BVT0023P EQU BVT+88 01170000 BVT0016P EQU BVT+60 01171000 BVT0015P EQU BVT+56 01172000 BVT0014P EQU BVT+52 01173000 BVT0003P EQU BVT+8 01174000 BVT0001P EQU BVT 01175000 SA99 EQU SA+72 01176000 SARC EQU SAR+56 01177000 SARB EQU SAR+52 01178000 SARA EQU SAR+48 01179000 SAR9 EQU SAR+44 01180000 SAR8 EQU SAR+40 01181000 SAR7 EQU SAR+36 01182000 SAR6 EQU SAR+32 01183000 SAR5 EQU SAR+28 01184000 SAR4 EQU SAR+24 01185000 SAR3 EQU SAR+20 01186000 SAR2 EQU SAR+16 01187000 SAR0 EQU SAR+8 01188000 SARF EQU SAR+4 01189000 SARE EQU SAR 01190000 SAFWD EQU SA+8 01191000 SABAK EQU SA+4 01192000 SA1L EQU SA1+1 01193000 SA1P EQU SA1 01194000 UPTPREFL EQU UPT+23 01195000 UPTPREFX EQU UPT+16 01196000 @NM00125 EQU UPT+15 01197000 UPTLDEL EQU UPT+14 01198000 UPTCDEL EQU UPT+13 01199000 UPTWTP EQU UPTSWS 01200000 UPTMODE EQU UPTSWS 01201000 UPTALD EQU UPTSWS 01202000 UPTPAUS EQU UPTSWS 01203000 UPTNCOM EQU UPTSWS 01204000 UPTMID EQU UPTSWS 01205000 UPTNPRM EQU UPTSWS 01206000 UPTRCVR EQU UPTSWS 01207000 UPTUSER EQU UPT+2 01208000 @NM00124 EQU UPT 01209000 @NM00123 EQU ECT+52 01210000 @NM00122 EQU ECT+48 01211000 @NM00121 EQU ECT+44 01212000 @NM00120 EQU ECTSWS2+1 01213000 @NM00119 EQU ECTSWS21 01214000 ECTTABND EQU ECTSWS21 01215000 ECTDEFCS EQU ECTSWS21 01216000 ECTBKPB EQU ECT+36 01217000 ECTUSER EQU ECT+32 01218000 ECTDDNUM EQU ECT+29 01219000 ECTATTN EQU ECTSWS 01220000 ECTBKGRD EQU ECTSWS 01221000 ECTNNOT EQU ECTSWS 01222000 ECTNMAL EQU ECTSWS 01223000 ECTLOGF EQU ECTSWS 01224000 ECTATRM EQU ECTSWS 01225000 @NM00118 EQU ECTSWS 01226000 ECTNOPD EQU ECTSWS 01227000 ECTSCMD EQU ECT+20 01228000 ECTPCMD EQU ECT+12 01229000 ECTSMSG EQU ECT+9 01230000 ECTMSGF EQU ECT+8 01231000 ECTIOWA EQU ECT+4 01232000 ECTRTCD EQU ECT+1 01233000 ECTRCDF EQU ECT 01234000 PSCBU EQU PSCB+64 01235000 PSCBRSZ EQU PSCB+60 01236000 PSCBLINE EQU PSCB+59 01237000 PSCBCHAR EQU PSCB+58 01238000 PSCBUPTL EQU PSCB+56 01239000 PSCBUPT EQU PSCB+52 01240000 PSCBRLGB EQU PSCB+48 01241000 PSCBDEST EQU PSCB+40 01242000 @NM00117 EQU PSCB+36 01243000 @NM00116 EQU PSCB+32 01244000 @NM00115 EQU PSCB+28 01245000 PSCBLTI2 EQU PSCB+24 01246000 PSCBLTIM EQU PSCB+20 01247000 PSCBATR2 EQU PSCB+18 01248000 @NM00114 EQU PSCBATR1 01249000 @NM00113 EQU PSCBATR1 01250000 @NM00112 EQU PSCBATR1 01251000 PSCBATTN EQU PSCBATR1 01252000 PSCBVMNT EQU PSCBATR1 01253000 PSCBJCL EQU PSCBATR1 01254000 PSCBACCT EQU PSCBATR1 01255000 PSCBCTRL EQU PSCBATR1 01256000 PSCBGPNM EQU PSCB+8 01257000 PSCBUSRL EQU PSCB+7 01258000 PSCBUSER EQU PSCB 01259000 CMDT1 EQU CMDT 01260000 CMDO EQU CMD+2 01261000 CMDL EQU CMD 01262000 ZZ299999 EQU ZZ2+8192 01263000 ZZ2AXOT1 EQU ZZ2AXOT 01264000 ZZ2AXOL EQU ZZ2AXO 01265000 @NM00111 EQU ZZ2+7288 01266000 @NM00110 EQU ZZ2AMDX+4 01267000 ZZ2AMDXC EQU ZZ2AMDX 01268000 ZZ2HSD EQU ZZ2+3056 01269000 @NM00109 EQU ZZ2ES 01270000 @NM00108 EQU ZZ2+2868 01271000 ZZ2ITSEC EQU ZZ2ITSE+1 01272000 @NM00107 EQU ZZ2ITSE 01273000 ZZ2ITSEP EQU ZZ2ITSE 01274000 ZZ2ITSEW EQU ZZ2ITSE 01275000 @NM00106 EQU ZZ2ITR+20 01276000 ZZ2ITREC EQU ZZ2ITRE+1 01277000 @NM00105 EQU ZZ2ITRE 01278000 ZZ2ITREP EQU ZZ2ITRE 01279000 ZZ2ITREW EQU ZZ2ITRE 01280000 @NM00104 EQU ZZ2ITR+9 01281000 ZZ2ITRRC EQU ZZ2ITR+8 01282000 ZZ2ITR2P EQU ZZ2ITR+4 01283000 ZZ2ITRPP EQU ZZ2ITR 01284000 @NM00103 EQU ZZ2+1544 01285000 ZZ2PGM EQU ZZ2+1536 01286000 @NM00102 EQU ZZ2+1526 01287000 ZZ2CW EQU ZZ2+1524 01288000 @NM00101 EQU ZZ2+1504 01289000 @NM00100 EQU ZZ2+1352 01290000 ZZ2FFSYP EQU ZZ2+1348 01291000 ZZ2SASYP EQU ZZ2+1344 01292000 ZZ2RDSYP EQU ZZ2+1340 01293000 ZZ2RASYP EQU ZZ2+1336 01294000 ZZ2PHSYP EQU ZZ2+1332 01295000 ZZ200SYP EQU ZZ2+1324 01296000 ZZ2SCWP EQU ZZ2+1320 01297000 ZZ2TTLP EQU ZZ2+1316 01298000 ZZ2LOADP EQU ZZ2+1312 01299000 ZZ2VRESP EQU ZZ2+1308 01300000 ZZ2CPPLE EQU ZZ2CPPL+12 01301000 ZZ2CPPLP EQU ZZ2CPPL+8 01302000 ZZ2CPPLU EQU ZZ2CPPL+4 01303000 ZZ2VRSAP EQU ZZ2+1288 01304000 ZZ2DVTP EQU ZZ2+1276 01305000 @NM00099 EQU ZZ2+1272 01306000 @NM00098 EQU ZZ2+1268 01307000 ZZ2RPLP EQU ZZ2+1260 01308000 ZZ2TCBP EQU ZZ2+1256 01309000 @NM00097 EQU ZZ2+1252 01310000 ZZ2ZZ2P EQU ZZ2+1248 01311000 @NM00096 EQU ZZ2+1112 01312000 ZZ2FPDRP EQU ZZ2+1108 01313000 ZZ2FDSDP EQU ZZ2+1104 01314000 ZZ2APDRP EQU ZZ2+1100 01315000 ZZ2ADSDP EQU ZZ2+1096 01316000 ZZ2ENQ0P EQU ZZ2+1092 01317000 @NM00095 EQU ZZ2+1080 01318000 ZZ2MSG0P EQU ZZ2+1076 01319000 ZZ2FT25P EQU ZZ2+1072 01320000 ZZ2MSGSP EQU ZZ2+1060 01321000 ZZ2ALOCP EQU ZZ2+1056 01322000 @NM00094 EQU ZZ2+976 01323000 ZZ2STGN EQU ZZ2STG+4 01324000 ZZ2STGP EQU ZZ2STG 01325000 @NM00093 EQU ZZ2+952 01326000 ZZ2SCMDE EQU ZZ2+944 01327000 ZZ2SCMDN EQU ZZ2+936 01328000 ZZ2IDENT EQU ZZ2+928 01329000 ZZ2A9999 EQU ZZ2A+656 01330000 @NM00092 EQU ZZ2A+224 01331000 @NM00091 EQU ZZ2A+220 01332000 ZZ2AQD99 EQU ZZ2AQD+60 01333000 @NM00090 EQU ZZ2AQD+56 01334000 @NM00089 EQU ZZ2AQDF 01335000 ZZ2AQDFA EQU ZZ2AQDF 01336000 ZZ2AQDIL EQU ZZ2AQD+48 01337000 ZZ2AQDIM EQU ZZ2AQD+44 01338000 ZZ2AQDT9 EQU ZZ2AQDT+34 01339000 ZZ2AQDTE EQU ZZ2AQDT+33 01340000 ZZ2AQDTD EQU ZZ2AQDT+2 01341000 @NM00088 EQU ZZ2AQDT+1 01342000 ZZ2AQDTY EQU ZZ2AQDT 01343000 ZZ2AQDT0 EQU ZZ2AQDT 01344000 ZZ2AQDLB EQU ZZ2AQD+9 01345000 ZZ2AQDOB EQU ZZ2AQD+8 01346000 ZZ2AQDLE EQU ZZ2AQD+4 01347000 ZZ2AQDOF EQU ZZ2AQD 01348000 ZZ2AQD00 EQU ZZ2AQD 01349000 ZZ2AQAS9 EQU ZZ2AQAS+16 01350000 @NM00087 EQU ZZ2AQAS+12 01351000 ZZ2AQAS2 EQU ZZ2AQAS+8 01352000 ZZ2AQAS1 EQU ZZ2AQAS+4 01353000 @NM00086 EQU ZZ2AQAS+2 01354000 ZZ2AQAST EQU ZZ2AQAS 01355000 ZZ2AQAS0 EQU ZZ2AQAS 01356000 ZZ2ADPTA EQU ZZ2ADPT 01357000 ZZ2ADPL EQU ZZ2ADP 01358000 ZZ2ADMTA EQU ZZ2ADMT 01359000 ZZ2ADML EQU ZZ2ADM 01360000 ZZ2ADDTA EQU ZZ2ADDT 01361000 ZZ2ADDL EQU ZZ2ADD 01362000 @NM00085 EQU ZZ2A+72 01363000 ZZ2APIDB EQU ZZ2APID+3 01364000 ZZ2APIDA EQU ZZ2APID 01365000 @NM00084 EQU ZZ2A+24 01366000 @NM00083 EQU ZZ2AF+5 01367000 ZZ2AFX EQU ZZ2AF+5 01368000 @NM00082 EQU ZZ2AF+3 01369000 ZZ2AFS EQU ZZ2AF+2 01370000 ZZ2AFD EQU ZZ2AF+2 01371000 ZZ2AFQ EQU ZZ2AF+2 01372000 ZZ2AF$ EQU ZZ2AF+2 01373000 @NM00081 EQU ZZ2AF+2 01374000 ZZ2AFM EQU ZZ2AF+2 01375000 @NM00080 EQU ZZ2AF+2 01376000 @NM00079 EQU ZZ2AF+1 01377000 ZZ2AFV EQU ZZ2AF+1 01378000 @NM00078 EQU ZZ2AF+1 01379000 ZZ2AFC EQU ZZ2AF+1 01380000 @NM00077 EQU ZZ2AF 01381000 ZZ2AFFS EQU ZZ2AF 01382000 ZZ2AFT EQU ZZ2AF 01383000 ZZ2AFP EQU ZZ2AF 01384000 @NM00076 EQU ZZ2A+8 01385000 ZZ2ALINE EQU ZZ2A+4 01386000 @NM00075 EQU ZZ2A+3 01387000 ZZ2ACH EQU ZZ2A 01388000 @NM00074 EQU ZZ2+264 01389000 @NM00073 EQU ZZ2+263 01390000 ZZ2PRTT0 EQU ZZ2PRTT 01391000 ZZ2PRTO EQU ZZ2PRT+2 01392000 ZZ2PRTL EQU ZZ2PRT 01393000 @NM00072 EQU ZZ2AMD+56 01394000 ZZ2AMDXP EQU ZZ2AMD+52 01395000 ZZ2AMDD EQU ZZ2AMD+48 01396000 ZZ2AMDL EQU ZZ2AMD+44 01397000 ZZ2AMDU EQU ZZ2AMD+28 01398000 ZZ2AMDF EQU ZZ2AMD+24 01399000 ZZ2AMDS EQU ZZ2AMD+20 01400000 ZZ2AMDC EQU ZZ2AMD+16 01401000 ZZ2AMDP EQU ZZ2AMD+12 01402000 ZZ2AMDB EQU ZZ2AMD+8 01403000 @NM00071 EQU @NM00070 01404000 ZZ2AMD2 EQU @NM00070 01405000 ZZ2AMD1 EQU @NM00070 01406000 ZZ2AMD0 EQU ZZ2AMD+6 01407000 ZZ2AMDA EQU ZZ2AMD+4 01408000 ZZ2AMDT EQU ZZ2AMD 01409000 ZZ199999 EQU ZZ1+3072 01410000 @NM00069 EQU ZZ1+2160 01411000 ZZ1TRTAS EQU ZZ1+1904 01412000 ZZ1TRUPC EQU ZZ1+1648 01413000 ZZ1TRCTX EQU ZZ1+1392 01414000 ZZ1NASID EQU ZZ1N+274 01415000 ZZ1NSTRL EQU ZZ1N+272 01416000 ZZ1NOFF EQU ZZ1N+268 01417000 ZZ1NBDY EQU ZZ1N+264 01418000 ZZ1NADE EQU ZZ1N+260 01419000 ZZ1NADB EQU ZZ1N+256 01420000 ZZ1NSTR EQU ZZ1N 01421000 @NM00068 EQU ZZ1+1080 01422000 ZZ1TREBC EQU ZZ1+824 01423000 ZZ1TRHEX EQU ZZ1+568 01424000 @NM00067 EQU ZZ1+377 01425000 ZZ1USTAE EQU ZZ1+376 01426000 @NM00066 EQU ZZ1F+1 01427000 @NM00065 EQU ZZ1F 01428000 ZZ1FM EQU ZZ1F 01429000 ZZ1FX EQU ZZ1F 01430000 ZZ1FU EQU ZZ1F 01431000 ZZ1EVEC EQU ZZ1EVE+1 01432000 @NM00064 EQU ZZ1EVE 01433000 ZZ1EVEW EQU ZZ1EVE 01434000 ZZ1ACMP EQU ZZ1ATTN 01435000 @NM00063 EQU ZZ1+144 01436000 ZZ1FPP EQU ZZ1+140 01437000 ZZ1ZZ6P EQU ZZ1+136 01438000 @NM00062 EQU ZZ1+84 01439000 ZZ1PLINE EQU ZZ1+80 01440000 ZZ1PGSZ EQU ZZ1+76 01441000 ZZ1PCNT EQU ZZ1+72 01442000 @NM00061 EQU ZZ1+68 01443000 ZZ1TPAGE EQU ZZ1+64 01444000 ZZ1TLINE EQU ZZ1+60 01445000 @NM00060 EQU ZZ1+52 01446000 ZZ1DMCBP EQU ZZ1+48 01447000 ZZ1DSDP EQU ZZ1+44 01448000 ZZ1PDRP EQU ZZ1+40 01449000 ZZ1ZZ2P EQU ZZ1+36 01450000 ZZ1327WP EQU ZZ1+32 01451000 ZZ1ACBP EQU ZZ1+28 01452000 @NM00059 EQU ZZ1+24 01453000 ZZ1PDCBP EQU ZZ1+20 01454000 ZZ1BLRBL EQU ZZ1+16 01455000 @NM00058 EQU ZZ1+12 01456000 ZZ1PNULL EQU ZZ1+8 01457000 ZZ1NULL EQU ZZ1+4 01458000 ZZ1IDE EQU ZZ1 01459000 VRBAT1 EQU VRBAT 01460000 @NM00055 EQU VRBA+2 01461000 VRBAL EQU VRBA 01462000 ESCO999 EQU ESCO+182 01463000 ESCORT1 EQU ESCORT 01464000 ESCORL EQU ESCOR 01465000 @NM00054 EQU ESCO+168 01466000 ESCOABS EQU ESCO+164 01467000 @NM00053 EQU ESCOF+2 01468000 @NM00052 EQU ESCOFC 01469000 ESCOFCD EQU ESCOFC 01470000 ESCOFSS EQU ESCOFS 01471000 ESCOFSX EQU ESCOFS 01472000 ESCOFSR EQU ESCOFS 01473000 ESCOFSP EQU ESCOFS 01474000 ESCOFSA EQU ESCOFS 01475000 ESCOFSM EQU ESCOFS 01476000 ESCOFS2 EQU ESCOFS 01477000 ESCOFSC EQU ESCOFS 01478000 ESCOKEY EQU ESCO+160 01479000 @NM00051 EQU ESCO+144 01480000 ESCOMAD EQU ESCO+140 01481000 ESCOD99 EQU ESCOD+60 01482000 @NM00050 EQU ESCOD+56 01483000 @NM00049 EQU ESCODF 01484000 ESCODFA EQU ESCODF 01485000 ESCODIL EQU ESCOD+48 01486000 ESCODIM EQU ESCOD+44 01487000 ESCODT9 EQU ESCODT+34 01488000 ESCODTE EQU ESCODT+33 01489000 ESCODTD EQU ESCODT+2 01490000 @NM00048 EQU ESCODT+1 01491000 ESCODTY EQU ESCODT 01492000 ESCODT0 EQU ESCODT 01493000 ESCODLB EQU ESCOD+9 01494000 ESCODOB EQU ESCOD+8 01495000 ESCODLE EQU ESCOD+4 01496000 ESCODOF EQU ESCOD 01497000 ESCOD00 EQU ESCOD 01498000 ESCOLAD EQU ESCO+76 01499000 ESCOAS9 EQU ESCOAS+16 01500000 @NM00047 EQU ESCOAS+12 01501000 ESCOAS2 EQU ESCOAS+8 01502000 ESCOAS1 EQU ESCOAS+4 01503000 @NM00046 EQU ESCOAS+2 01504000 ESCOAST EQU ESCOAS 01505000 ESCOAS0 EQU ESCOAS 01506000 ESCORV1 EQU ESCO+59 01507000 ESCOELK EQU ESCO+59 01508000 ESCOSYM EQU ESCO+28 01509000 ESCORDX EQU ESCO+24 01510000 @NM00045 EQU ESCO+16 01511000 @NM00044 EQU ESCO+8 01512000 @NM00043 EQU ESCO+2 01513000 ESCORID EQU ESCO 01514000 SABA999 EQU SABA+3072 01515000 SABACT1 EQU SABACT 01516000 @NM00020 EQU SABA+153 01517000 SABAPGV EQU SABA+144 01518000 @NM00019 EQU SABASF 01519000 SABAF99 EQU SABAF+60 01520000 @NM00018 EQU SABAF+56 01521000 @NM00017 EQU SABAFF 01522000 SABAFFA EQU SABAFF 01523000 SABAFIL EQU SABAF+48 01524000 SABAFIM EQU SABAF+44 01525000 SABAFT9 EQU SABAFT+34 01526000 SABAFTE EQU SABAFT+33 01527000 SABAFTD EQU SABAFT+2 01528000 @NM00016 EQU SABAFT+1 01529000 SABAFTY EQU SABAFT 01530000 SABAFT0 EQU SABAFT 01531000 SABAFLB EQU SABAF+9 01532000 SABAFOB EQU SABAF+8 01533000 SABAFLE EQU SABAF+4 01534000 SABAFOF EQU SABAF 01535000 SABAF00 EQU SABAF 01536000 @NM00015 EQU SABA+66 01537000 SABAELK EQU SABA+66 01538000 SABADT9 EQU SABADT+34 01539000 SABADTE EQU SABADT+33 01540000 SABADTD EQU SABADT+2 01541000 @NM00014 EQU SABADT+1 01542000 SABADTY EQU SABADT 01543000 SABADT0 EQU SABADT 01544000 SABAAS9 EQU SABAAS+16 01545000 @NM00013 EQU SABAAS+12 01546000 SABAAS2 EQU SABAAS+8 01547000 SABAAS1 EQU SABAAS+4 01548000 @NM00012 EQU SABAAS+2 01549000 SABAAS0 EQU SABAAS 01550000 SABARDX EQU SABA+8 01551000 @NM00011 EQU SABA+2 01552000 SABARID EQU SABA 01553000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01554000 @RT00153 EQU LBLSCAN2 01555000 @RF00153 EQU LBLSCAN8 01556000 @RT00207 EQU LBLSCAN8 01557000 @RT00216 EQU EXIT 01558000 @ENDDATA EQU * 01559000 END BLSVSGTE,(C'PLS2052',0701,78069) 01560000