LIST TITLE 'BLSRLIST--IPCS LIST SUBCOMMAND *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPGW */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSRLIST CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSRLIST 78.057' 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 BLSUALLR R,LV=(0) 00018000 LR @11,@01 0002 00019000 USING @DATD,@11 0002 00020000 ST @13,@SA00001+4 0002 00021000 LM @00,@01,20(@13) 0002 00022000 ST @11,8(,@13) 0002 00023000 LR @13,@11 0002 00024000 *BLREXTRN - IDENTIFY EXTERNAL REFERENCES 00025000 EXTRN BLSRVPAD 00026000 EXTRN BLSUVP31 00027000 EXTRN BLSUVP32 00028000 EXTRN BLSRVPCP 00029000 EXTRN BLSRVPAS 00030000 * ZZ2AFD='1'B; /* DUMP OPTION IS THE DEFAULT */ 00031000 OI ZZ2AFD(R9),B'00000010' 0304 00032000 * RETC=0; /* RETURN CODE */ 00033000 SLR RETC,RETC 0305 00034000 * RF=0; /* RETURN CODE */ 00035000 SLR RF,RF 0306 00036000 * 0307 00037000 * /*****************************************************************/ 00038000 * /* */ 00039000 * /* CALL IKJPARS AND EXAMINE OPERANDS */ 00040000 * /* */ 00041000 * /*****************************************************************/ 00042000 * 0307 00043000 * DO; /* BLSRPARS DISPLAY 0307 00044000 * MF(EXECUTE,PX) */ 00045000 * DO; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00046000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00047000 * TE,PX)FLAG ROUTING */ 00048000 * DO; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00049000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00050000 * ROUTING */ 00051000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00052000 ST R9,@AL00001 0310 00053000 L @14,PCPTR 0310 00054000 ST @14,@AL00001+4 0310 00055000 LA @14,PDAPTR 0310 00056000 ST @14,@AL00001+8 0310 00057000 L @10,ZZ2BVTP(,R9) 0310 00058000 L @15,BVTPARIP(,@10) 0310 00059000 LA @01,@AL00001 0310 00060000 BALR @14,@15 0310 00061000 * RESPECIFY 0311 00062000 * (GPR15F) RESTRICTED; 0311 00063000 * IF GPR15F^=ZZZFLAGI THEN 0312 00064000 * 0312 00065000 LTR GPR15F,GPR15F 0312 00066000 BZ @RF00312 0312 00067000 * /*********************************************************/ 00068000 * /* */ 00069000 * /* UNABLE TO PARSE */ 00070000 * /* */ 00071000 * /*********************************************************/ 00072000 * 0313 00073000 * DO; /* UNABLE TO PARSE */ 00074000 * RETC=GPR15F; /* RETURN CODE */ 00075000 LR RETC,GPR15F 0314 00076000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00077000 B EXITNORL 0315 00078000 * END; 0316 00079000 * RESPECIFY 0317 00080000 * (GPR15F) UNRESTRICTED; 0317 00081000 @RF00312 DS 0H 0318 00082000 * RESPECIFY 0318 00083000 * (PDRPTR) RESTRICTED; 0318 00084000 * PDRPTR=PDAPTR; /* ->PDL */ 00085000 L PDRPTR,PDAPTR 0319 00086000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0320 00087000 USING PD,PDRPTR 00088000 * IF PXTEST=PXTEST1 THEN 0321 00089000 CLC PXTEST(2),@CH00043 0321 00090000 BNE @RF00321 0321 00091000 * ZZ2AFX=ZZZ1; /* TEST */ 00092000 OI ZZ2AFX(R9),B'10000000' 0322 00093000 * ELSE 0323 00094000 * IF PXTEST=PXTEST0 THEN 0323 00095000 B @RC00321 0323 00096000 @RF00321 CLC PXTEST(2),@CH00068 0323 00097000 BNE @RF00323 0323 00098000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00099000 NI ZZ2AFX(R9),B'01111111' 0324 00100000 * CALL BLSUPARU(ZZ2,PDDSECT,PXRO);/* SET ROUTING OPTIONS */ 00101000 @RF00323 DS 0H 0325 00102000 @RC00321 ST R9,@AL00001 0325 00103000 ST PDRPTR,@AL00001+4 0325 00104000 LA @14,PXRO 0325 00105000 ST @14,@AL00001+8 0325 00106000 L @08,ZZ2BVTP(,R9) 0325 00107000 L @15,BVTPARUP(,@08) 0325 00108000 LA @01,@AL00001 0325 00109000 BALR @14,@15 0325 00110000 * RESPECIFY 0326 00111000 * (GPR15F) RESTRICTED; 0326 00112000 * RETC=MAX(RETC,GPR15F); /* RETURN CODE */ 00113000 CR RETC,GPR15F 0327 00114000 BNL *+6 00115000 LR RETC,GPR15F 0327 00116000 * RESPECIFY 0328 00117000 * (GPR15F) UNRESTRICTED; 0328 00118000 * IF RETC>ZZZFLAGE THEN /* SERIOUS ERROR */ 00119000 C RETC,@CF00051 0329 00120000 BH @RT00329 0329 00121000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00122000 * END; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00123000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00124000 * ROUTING */ 00125000 * END; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00126000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00127000 * TE,PX)FLAG ROUTING */ 00128000 * CALL BLSRPADS(ZZ2,PDDSECT,PXDO);/* SET DISPLAY OPTIONS */ 00129000 ST R9,@AL00001 0333 00130000 ST PDRPTR,@AL00001+4 0333 00131000 LA @14,PXDO 0333 00132000 ST @14,@AL00001+8 0333 00133000 L @08,ZZ2RVTP(,R9) 0333 00134000 L @15,RVTPADSP(,@08) 0333 00135000 LA @01,@AL00001 0333 00136000 BALR @14,@15 0333 00137000 * END; /* BLSRPARS DISPLAY 0334 00138000 * MF(EXECUTE,PX) */ 00139000 * 0335 00140000 * /*****************************************************************/ 00141000 * /* */ 00142000 * /* PROCESS THE LIST OF ADDRESSES ENTERED */ 00143000 * /* */ 00144000 * /*****************************************************************/ 00145000 * 0335 00146000 * PDADP=ADDR(PDAD); /* ->CURRENT ADDRESS PDE */ 00147000 LA PDADP,PDAD 0335 00148000 * RESPECIFY 0336 00149000 * (PDADX) BASED(PDADP); /* ->CURRENT ADDRESS PDE */ 00150000 * DO WHILE(ZZ1EVEP='0'B&PDADP^=ZZ1PNULL);/* PROCESS THE LIST OF 0337 00151000 * ADDRESSES ENTERED */ 00152000 B @DE00337 0337 00153000 @DL00337 DS 0H 0338 00154000 * ESAU(1:LENGTH(ESCO))=ESCO; /* INITIALIZE ESAU */ 00155000 MVC ESAU(182),ESCO 0338 00156000 * IF PDADXP=ZZ1PNULL THEN /* IF THIS IS THE LAST OR ONLY 0339 00157000 * ADDRESS TO PROCESS */ 00158000 L @14,ZZ2ZZ1P(,R9) 0339 00159000 CLC PDADXP(4,PDADP),ZZ1PNULL(@14) 0339 00160000 BNE @RF00339 0339 00161000 * CALL BLSRADDS(ZZ2,ESAU,PD,PXAO,PDADX);/* RESOLVE ADDRESS AND 00162000 * UPDATE THE X BUILT-IN */ 00163000 ST R9,@AL00001 0340 00164000 LA @14,ESAU 0340 00165000 ST @14,@AL00001+4 0340 00166000 LA @14,PD 0340 00167000 ST @14,@AL00001+8 0340 00168000 LA @14,PXAO 0340 00169000 ST @14,@AL00001+12 0340 00170000 ST PDADP,@AL00001+16 0340 00171000 L @08,ZZ2RVTP(,R9) 0340 00172000 L @15,RVTADDSP(,@08) 0340 00173000 LA @01,@AL00001 0340 00174000 BALR @14,@15 0340 00175000 * ELSE 0341 00176000 * CALL BLSRADDR(ZZ2,ESAU,PD,PXAO,PDADX);/* ELSE RESOLVE ADDRESS 00177000 * AND DONT UPDATE X */ 00178000 B @RC00339 0341 00179000 @RF00339 ST R9,@AL00001 0341 00180000 LA @14,ESAU 0341 00181000 ST @14,@AL00001+4 0341 00182000 LA @14,PD 0341 00183000 ST @14,@AL00001+8 0341 00184000 LA @14,PXAO 0341 00185000 ST @14,@AL00001+12 0341 00186000 ST PDADP,@AL00001+16 0341 00187000 L @08,ZZ2RVTP(,R9) 0341 00188000 L @15,RVTADDRP(,@08) 0341 00189000 LA @01,@AL00001 0341 00190000 BALR @14,@15 0341 00191000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00192000 @RC00339 CR RETC,RF 0342 00193000 BNL *+6 00194000 LR RETC,RF 0342 00195000 * IF RFNEXT PDE OR ZZ1PNULL */ 00211000 L PDADP,PDADXP(,PDADP) 0346 00212000 * END; 0347 00213000 @DE00337 L @14,ZZ2ZZ1P(,R9) 0347 00214000 TM ZZ1EVEP(@14),B'01000000' 0347 00215000 BNZ @DC00337 0347 00216000 CL PDADP,ZZ1PNULL(,@14) 0347 00217000 BNE @DL00337 0347 00218000 @DC00337 DS 0H 0348 00219000 * RF=0; /* SUCCESS */ 00220000 SLR RF,RF 0348 00221000 * 0349 00222000 * /*****************************************************************/ 00223000 * /* */ 00224000 * /* PROGRAM EXIT */ 00225000 * /* */ 00226000 * /*****************************************************************/ 00227000 * 0349 00228000 *EXITRLSA: /* EXIT WITH PDL */ 00229000 * RETC=MIN(MAX(RF,RETC),ZZZFLAGT);/* SET MAX RETURN CODE */ 00230000 EXITRLSA LR @14,RETC 0349 00231000 CR @14,RF 0349 00232000 BNL *+6 00233000 LR @14,RF 0349 00234000 LA @08,16 0349 00235000 CR @14,@08 0349 00236000 BNH *+6 00237000 LR @14,@08 0349 00238000 LR RETC,@14 0349 00239000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(E,PD) */ 00240000 B @DE00350 0350 00241000 @DL00350 DS 0H 0351 00242000 * PDRPTR=PDAPTR; 0351 00243000 L PDRPTR,PDAPTR 0351 00244000 * PDAPTR=PDXP; 0352 00245000 L @14,PDXP-1(,PDRPTR) 0352 00246000 LA @14,0(,@14) 0352 00247000 ST @14,PDAPTR 0352 00248000 * DO; /* FREEMAIN(R) 0353 00249000 * LV(PDL)SP(1)A(PDDSECT) */ 00250000 * RESPECIFY 0354 00251000 * (GPR01F, 0354 00252000 * GPR00F) RESTRICTED; 0354 00253000 * GPR00F=PDL; /* LENGTH REQUESTED */ 00254000 L GPR00F,PDL-1(,PDRPTR) 0355 00255000 ICM GPR00F,8,@CB00932 0355 00256000 * GPR01F=1; /* SP IN REG 1 */ 00257000 LA GPR01F,1 0356 00258000 * GEN(SLL GPR01F,24) 0357 00259000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0357 00260000 SLL GPR01F,24 00261000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00262000 OR GPR00F,GPR01F 0358 00263000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 00264000 LR GPR01F,PDRPTR 0359 00265000 * SVC(10); /* R-FORM OF GETMAIN */ 00266000 SVC 10 0360 00267000 * RESPECIFY 0361 00268000 * (GPR01F, 0361 00269000 * GPR00F) UNRESTRICTED; 0361 00270000 * END; /* FREEMAIN(R) 0362 00271000 * LV(PDL)SP(1)A(PDDSECT) */ 00272000 * END; /* BLRRLSA MF(E,PD) */ 00273000 @DE00350 L @14,PDAPTR 0363 00274000 LTR @14,@14 0363 00275000 BNZ @DL00350 0363 00276000 *EXITNORL: /* EXIT WITH NO PDL */ 00277000 * RETURN CODE(RETC); 0364 00278000 EXITNORL L @13,4(,@13) 0364 00279000 L @00,@SIZDATD 0364 00280000 LR @01,@11 0364 00281000 BLSUFRER R,LV=(0),A=(1) 00282000 LR @15,@05 0364 00283000 L @14,12(,@13) 0364 00284000 LM @00,@12,20(@13) 0364 00285000 BR @14 0364 00286000 * 0365 00287000 */*BLSRPEND--DEBUGGING MODULE */ 00288000 */*BLSUPEND--MVS IPCS MODULE */ 00289000 * 0365 00290000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00291000 * GPR00F FIXED(31) REG(0), 0365 00292000 * GPR01F FIXED(31) REG(1), 0365 00293000 * GPR15F FIXED(31) REG(15); 0365 00294000 * DECLARE /* COMMON VARIABLES */ 00295000 * I256C CHAR(256) BASED, 0366 00296000 * I031F FIXED(31) BASED, 0366 00297000 * I031P PTR(31) BASED, 0366 00298000 * I015F FIXED(15) BASED, 0366 00299000 * I015P PTR(15) BASED, 0366 00300000 * I008P PTR(8) BASED, 0366 00301000 * I001C CHAR(1) BASED; 0366 00302000 * GENERATE NODEFS NOREFS DATA; 0367 00303000 * END BLSRLIST /* BLRPEND(BLSRLIST) */ 00304000 * 0368 00305000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00306000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 00307000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00308000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00309000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00310000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00311000 */*%INCLUDE SYSLIB (IKJECT ) */ 00312000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00313000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00314000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00315000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00316000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00317000 * 0368 00318000 * ; 0368 00319000 @EL00001 L @13,4(,@13) 0368 00320000 @EF00001 L @00,@SIZDATD 0368 00321000 LR @01,@11 0368 00322000 BLSUFRER R,LV=(0),A=(1) 00323000 @ER00001 LM @14,@12,12(@13) 0368 00324000 BR @14 0368 00325000 @DATA DS 0H 00326000 @CH00043 DC H'1' 00327000 @CH00068 DC H'2' 00328000 @DATD DSECT 00329000 DS 0F 00330000 @SA00001 DS 18F 00331000 @AL00001 DS 5A 00332000 BLSRLIST CSECT 00333000 DS 0F 00334000 @CF00051 DC F'8' 00335000 @CF00034 DC F'12' 00336000 @DATD DSECT 00337000 DS 0D 00338000 PDAPTR DS A 00339000 DS CL4 00340000 ESAU DS CL694 00341000 ORG ESAU 00342000 ESAURID DS CL2 00343000 @NM00098 DS BL6 00344000 @NM00099 DS CL8 00345000 @NM00100 DS BL8 00346000 ESAURDX DS FL4 00347000 ESAUSYM DS CL31 00348000 ESAUELK DS 0C 00349000 ESAURV1 DS CL1 00350000 ESAUAS DS CL16 00351000 ORG ESAUAS 00352000 ESAUAS0 DS 0C 00353000 ESAUAST DS CL2 00354000 @NM00101 DS BL2 00355000 ESAUAS1 DS FL4 00356000 ESAUAS2 DS FL4 00357000 @NM00102 DS BL4 00358000 ESAUAS9 DS 0C 00359000 ORG ESAU+76 00360000 ESAULAD DS AL4 00361000 ESAUD DS CL60 00362000 ORG ESAUD 00363000 ESAUD00 DS 0C 00364000 ESAUDOF DS FL4 00365000 ESAUDLE DS FL4 00366000 ESAUDOB DS FL1 00367000 ESAUDLB DS FL1 00368000 ESAUDT DS CL34 00369000 ORG ESAUDT 00370000 ESAUDT0 DS 0C 00371000 ESAUDTY DS CL1 00372000 @NM00103 DS BL1 00373000 ESAUDTD DS CL31 00374000 ESAUDTE DS CL1 00375000 ESAUDT9 DS 0C 00376000 ORG ESAUD+44 00377000 ESAUDIM DS FL4 00378000 ESAUDIL DS FL4 00379000 ESAUDF DS BL4 00380000 ORG ESAUDF 00381000 ESAUDFA DS BL1 00382000 @NM00104 EQU ESAUDF+0 00383000 ORG ESAUD+56 00384000 @NM00105 DS BL4 00385000 ESAUD99 DS 0C 00386000 ORG ESAU+140 00387000 ESAUMAD DS AL4 00388000 @NM00106 DS BL16 00389000 ESAUKEY DS BL1 00390000 ESAUF DS BL3 00391000 ORG ESAUF 00392000 ESAUFS DS BL1 00393000 ORG ESAUFS 00394000 ESAUFSC DS BL1 00395000 ESAUFS2 EQU ESAUFS+0 00396000 ESAUFSM EQU ESAUFS+0 00397000 ESAUFSA EQU ESAUFS+0 00398000 ESAUFSP EQU ESAUFS+0 00399000 ESAUFSR EQU ESAUFS+0 00400000 ESAUFSX EQU ESAUFS+0 00401000 ESAUFSS EQU ESAUFS+0 00402000 ORG ESAUF+1 00403000 ESAUFC DS BL1 00404000 ORG ESAUFC 00405000 ESAUFCD DS BL1 00406000 @NM00107 EQU ESAUFC+0 00407000 ORG ESAUF+2 00408000 @NM00108 DS BL1 00409000 ORG ESAU+164 00410000 ESAUABS DS FL4 00411000 @NM00109 DS BL12 00412000 ESAUR DS CL514 00413000 ORG ESAUR 00414000 ESAURL DS FL2 00415000 ESAURT DS CL512 00416000 ORG ESAURT 00417000 ESAURT1 DS CL512 00418000 ORG ESAU+694 00419000 ESAU999 DS 0C 00420000 ORG ESAU+694 00421000 BLSRLIST CSECT 00422000 DS 0F 00423000 @SIZDATD DC AL1(0) 00424000 DC AL3(@ENDDATD-@DATD) 00425000 DS 0D 00426000 PCPTR DC AL4(PC) 00427000 @CB00932 DC X'00' 00428000 DS CL3 00429000 ESCO DS CL182 00430000 ORG ESCO 00431000 ESCORID DC CL2'ES' 00432000 @NM00077 DC X'000000000000' 00433000 @NM00078 DC CL8' ' 00434000 @NM00079 DC X'00' 00435000 DC XL7'0' 00436000 ESCORDX DC A(0) 00437000 ESCOSYM DC CL31' ' 00438000 ESCOELK DS 0C 00439000 ESCORV1 DC CL1' ' 00440000 ESCOAS DS CL16 00441000 ORG ESCOAS 00442000 ESCOAS0 DS 0C 00443000 ESCOAST DC CL2' ' 00444000 @NM00080 DC X'0000' 00445000 ESCOAS1 DC A(0) 00446000 ESCOAS2 DC A(0) 00447000 @NM00081 DC X'00' 00448000 DC XL3'0' 00449000 ESCOAS9 DS 0C 00450000 ORG ESCO+76 00451000 ESCOLAD DC A(0) 00452000 ESCOD DS CL60 00453000 ORG ESCOD 00454000 ESCOD00 DS 0C 00455000 ESCODOF DC F'0' 00456000 ESCODLE DC A(4) 00457000 ESCODOB DC AL1(0) 00458000 ESCODLB DC AL1(0) 00459000 ESCODT DS CL34 00460000 ORG ESCODT 00461000 ESCODT0 DS 0C 00462000 ESCODTY DC CL1'U' 00463000 @NM00082 DC X'00' 00464000 ESCODTD DC CL31' ' 00465000 ESCODTE DC CL1' ' 00466000 ESCODT9 DS 0C 00467000 ORG ESCOD+44 00468000 ESCODIM DC A(0) 00469000 ESCODIL DC F'0' 00470000 ESCODF DC X'00000000' 00471000 ORG ESCODF 00472000 ESCODFA DS BL1 00473000 @NM00083 EQU ESCODF+0 00474000 ORG ESCOD+56 00475000 @NM00084 DC X'00' 00476000 DC XL3'0' 00477000 ESCOD99 DS 0C 00478000 ORG ESCO+140 00479000 ESCOMAD DC A(0) 00480000 @NM00085 DC X'00' 00481000 DC XL15'0' 00482000 ESCOKEY DS BL1 00483000 ESCOF DC X'00' 00484000 DC XL2'0' 00485000 ORG ESCOF 00486000 ESCOFS DS BL1 00487000 ORG ESCOFS 00488000 ESCOFSC DS BL1 00489000 ESCOFS2 EQU ESCOFS+0 00490000 ESCOFSM EQU ESCOFS+0 00491000 ESCOFSA EQU ESCOFS+0 00492000 ESCOFSP EQU ESCOFS+0 00493000 ESCOFSR EQU ESCOFS+0 00494000 ESCOFSX EQU ESCOFS+0 00495000 ESCOFSS EQU ESCOFS+0 00496000 ORG ESCOF+1 00497000 ESCOFC DS BL1 00498000 ORG ESCOFC 00499000 ESCOFCD DS BL1 00500000 @NM00086 EQU ESCOFC+0 00501000 ORG ESCOF+2 00502000 @NM00087 DS BL1 00503000 ORG ESCO+164 00504000 ESCOABS DC A(0) 00505000 @NM00088 DC X'00' 00506000 DC XL11'0' 00507000 ESCOR DS CL2 00508000 ORG ESCOR 00509000 ESCORL DC AL2(0) 00510000 ESCORT DS 0C 00511000 ORG ESCORT 00512000 ESCORT1 DS 0C 00513000 ORG ESCO+182 00514000 ESCO999 DS 0C 00515000 ORG ESCO+182 00516000 PXDO DC AL2(PXDSPL-PD) 00517000 DC 2AL2(0) 00518000 DC AL2(PXDRMK-PD) 00519000 DC AL2(PXDREQ-PD) 00520000 DC AL2(PXDSTG-PD) 00521000 DC AL2(PXDSYM-PD) 00522000 DC AL2(PXDMCH-PD) 00523000 DC 3AL2(0) 00524000 PXAO DC AL2(0) 00525000 DC AL2(PXA1-PD) 00526000 DC AL2(PXA2-PD) 00527000 DC AL2(0) 00528000 DC AL2(0) 00529000 DC AL2(PXCPU-PD) 00530000 DC AL2(0) 00531000 DC AL2(PXASI-PD) 00532000 DC AL2(0) 00533000 DC AL2(0) 00534000 DC AL2(PXDTYPE-PD) 00535000 DC AL2(0) 00536000 DC AL2(PXLENGTH-PD) 00537000 DC AL2(PXMULT-PD) 00538000 DC AL2(PXRMK-PD) 00539000 DC AL2(PXDTD-PD) 00540000 DC AL2(PXLEN-PD) 00541000 DC AL2(PXDIM-PD) 00542000 DC AL2(PXREM-PD) 00543000 DC AL2(PXNTRY-PD) 00544000 DC AL2(PXNTR-PD) 00545000 PXRO DC AL2(PXPRINT-PD) 00546000 DC AL2(PXTERM-PD) 00547000 DC AL2(PXDFLG-PD) 00548000 DC AL2(PXDFLV-PD) 00549000 @DATD DSECT 00550000 SPACE 2 00551000 *********************************************************************** 00552000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00553000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00554000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00555000 *********************************************************************** 00556000 SPACE 00557000 BLSRLIST CSECT 00558000 ORG 00559000 DS 0D 00560000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRLIST+19)/20+7)/8)CL8'BLSRLIST' 00561000 @DATD DSECT 00562000 DS 0H 00563000 @DATD DSECT 00564000 SPACE 2 00565000 *********************************************************************** 00566000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 00567000 *********************************************************************** 00568000 SPACE 00569000 BLSRLIST CSECT 00570000 PC IKJPARM DSECT=PD 00571000 @DATD DSECT 00572000 BLSRLIST CSECT 00573000 PDAD IKJPOSIT ADDRESS,LIST,RANGE,PROMPT='ADDRESS',VALIDCK=BLSRVPAD 00574000 @DATD DSECT 00575000 BLSRLIST CSECT 00576000 PXA1 IKJKEYWD 00577000 @DATD DSECT 00578000 BLSRLIST CSECT 00579000 IKJNAME 'ABSOLUTE' 00580000 @DATD DSECT 00581000 BLSRLIST CSECT 00582000 IKJNAME 'CPU',SUBFLD=PXSUBFB 00583000 @DATD DSECT 00584000 BLSRLIST CSECT 00585000 IKJNAME 'HEADER' 00586000 @DATD DSECT 00587000 BLSRLIST CSECT 00588000 PXA2 IKJKEYWD 00589000 @DATD DSECT 00590000 BLSRLIST CSECT 00591000 IKJNAME 'ASID',SUBFLD=PXSUBFE 00592000 @DATD DSECT 00593000 BLSRLIST CSECT 00594000 IKJNAME 'REAL' 00595000 @DATD DSECT 00596000 BLSRLIST CSECT 00597000 IKJNAME 'STATUS' 00598000 @DATD DSECT 00599000 BLSRLIST CSECT 00600000 PXDSPL IKJKEYWD 00601000 @DATD DSECT 00602000 BLSRLIST CSECT 00603000 IKJNAME 'DISPLAY',SUBFLD=PXSUBFD 00604000 @DATD DSECT 00605000 BLSRLIST CSECT 00606000 IKJNAME 'NODISPLAY',SUBFLD=PXSUBFD 00607000 @DATD DSECT 00608000 BLSRLIST CSECT 00609000 PXDTYPE IKJKEYWD 00610000 @DATD DSECT 00611000 BLSRLIST CSECT 00612000 IKJNAME 'AREA',SUBFLD=PXSUBFG 00613000 @DATD DSECT 00614000 BLSRLIST CSECT 00615000 IKJNAME 'B',ALIAS=('BIT','HEXADECIMAL','X') 00616000 @DATD DSECT 00617000 BLSRLIST CSECT 00618000 IKJNAME 'C',ALIAS=('CHARACTER') 00619000 @DATD DSECT 00620000 BLSRLIST CSECT 00621000 IKJNAME 'MODULE',SUBFLD=PXSUBFG 00622000 @DATD DSECT 00623000 BLSRLIST CSECT 00624000 IKJNAME 'POINTER',ALIAS=('PTR') 00625000 @DATD DSECT 00626000 BLSRLIST CSECT 00627000 IKJNAME 'F',ALIAS=('SIGNED') 00628000 @DATD DSECT 00629000 BLSRLIST CSECT 00630000 IKJNAME 'STRUCTURE',SUBFLD=PXSUBFG 00631000 @DATD DSECT 00632000 BLSRLIST CSECT 00633000 IKJNAME 'UNSIGNED' 00634000 @DATD DSECT 00635000 BLSRLIST CSECT 00636000 PXLENGTH IKJKEYWD 00637000 @DATD DSECT 00638000 BLSRLIST CSECT 00639000 IKJNAME 'LENGTH',SUBFLD=PXSUBFL 00640000 @DATD DSECT 00641000 BLSRLIST CSECT 00642000 PXMULT IKJKEYWD 00643000 @DATD DSECT 00644000 BLSRLIST CSECT 00645000 IKJNAME 'DIMENSION',ALIAS=('MULTIPLE'),SUBFLD=PXSUBFI 00646000 @DATD DSECT 00647000 BLSRLIST CSECT 00648000 IKJNAME 'SCALAR' 00649000 @DATD DSECT 00650000 BLSRLIST CSECT 00651000 PXNTRY IKJKEYWD 00652000 @DATD DSECT 00653000 BLSRLIST CSECT 00654000 IKJNAME 'ENTRY',ALIAS=('ENTRIES'),SUBFLD=PXSUBFN 00655000 @DATD DSECT 00656000 BLSRLIST CSECT 00657000 PXRMK IKJKEYWD 00658000 @DATD DSECT 00659000 BLSRLIST CSECT 00660000 IKJNAME 'REMARK',SUBFLD=PXSUBFJ 00661000 @DATD DSECT 00662000 BLSRLIST CSECT 00663000 IKJNAME 'NOREMARK' 00664000 @DATD DSECT 00665000 BLSRLIST CSECT 00666000 PXPRINT IKJKEYWD 00667000 @DATD DSECT 00668000 BLSRLIST CSECT 00669000 IKJNAME 'PRINT' 00670000 @DATD DSECT 00671000 BLSRLIST CSECT 00672000 IKJNAME 'NOPRINT' 00673000 @DATD DSECT 00674000 BLSRLIST CSECT 00675000 PXTERM IKJKEYWD 00676000 @DATD DSECT 00677000 BLSRLIST CSECT 00678000 IKJNAME 'TERMINAL' 00679000 @DATD DSECT 00680000 BLSRLIST CSECT 00681000 IKJNAME 'NOTERMINAL' 00682000 @DATD DSECT 00683000 BLSRLIST CSECT 00684000 PXDFLG IKJKEYWD 00685000 @DATD DSECT 00686000 BLSRLIST CSECT 00687000 IKJNAME 'FLAG',SUBFLD=PXSUBFM 00688000 @DATD DSECT 00689000 BLSRLIST CSECT 00690000 PXTEST IKJKEYWD 00691000 @DATD DSECT 00692000 BLSRLIST CSECT 00693000 IKJNAME 'TEST' 00694000 @DATD DSECT 00695000 BLSRLIST CSECT 00696000 IKJNAME 'NOTEST' 00697000 @DATD DSECT 00698000 BLSRLIST CSECT 00699000 SPACE 00700000 PXSUBFM IKJSUBF 00701000 @DATD DSECT 00702000 BLSRLIST CSECT 00703000 PXDFLV IKJKEYWD 00704000 @DATD DSECT 00705000 BLSRLIST CSECT 00706000 IKJNAME 'INFORMATIONAL' 00707000 @DATD DSECT 00708000 BLSRLIST CSECT 00709000 IKJNAME 'WARNING' 00710000 @DATD DSECT 00711000 BLSRLIST CSECT 00712000 IKJNAME 'ERROR' 00713000 @DATD DSECT 00714000 BLSRLIST CSECT 00715000 IKJNAME 'SERIOUS',ALIAS=('SEVERE') 00716000 @DATD DSECT 00717000 BLSRLIST CSECT 00718000 IKJNAME 'TERMINATING' 00719000 @DATD DSECT 00720000 BLSRLIST CSECT 00721000 SPACE 00722000 PXSUBFG IKJSUBF 00723000 @DATD DSECT 00724000 BLSRLIST CSECT 00725000 PXDTD IKJIDENT 'DATA NAME',FIRST=ALPHA,MAXLNTH=31,OTHER=ALPHANUM 00726000 @DATD DSECT 00727000 BLSRLIST CSECT 00728000 SPACE 00729000 PXSUBFL IKJSUBF 00730000 @DATD DSECT 00731000 BLSRLIST CSECT 00732000 PXLEN IKJIDENT 'LENGTH',INTEG,PROMPT='LENGTH',VALIDCK=BLSUVP31 00733000 @DATD DSECT 00734000 BLSRLIST CSECT 00735000 SPACE 00736000 PXSUBFI IKJSUBF 00737000 @DATD DSECT 00738000 BLSRLIST CSECT 00739000 PXDIM IKJIDENT 'DIMENSION',INTEG,PROMPT='DIMENSION',VALIDCK=BLSUVP31 00740000 @DATD DSECT 00741000 BLSRLIST CSECT 00742000 SPACE 00743000 PXSUBFN IKJSUBF 00744000 @DATD DSECT 00745000 BLSRLIST CSECT 00746000 PXNTR IKJIDENT 'ENTRY(IES)',INTEG,RANGE,PROMPT='ENTRY(IES)',VALIDCK=*00747000 BLSUVP32 00748000 @DATD DSECT 00749000 BLSRLIST CSECT 00750000 SPACE 00751000 PXSUBFJ IKJSUBF 00752000 @DATD DSECT 00753000 BLSRLIST CSECT 00754000 PXREM IKJPOSIT QSTRING,PROMPT='REMARK' 00755000 @DATD DSECT 00756000 BLSRLIST CSECT 00757000 SPACE 00758000 PXSUBFB IKJSUBF 00759000 @DATD DSECT 00760000 BLSRLIST CSECT 00761000 PXCPU IKJIDENT 'CPU ADDRESS',INTEG,PROMPT='CPU ADDRESS',VALIDCK=BLSR*00762000 VPCP 00763000 @DATD DSECT 00764000 BLSRLIST CSECT 00765000 SPACE 00766000 PXSUBFE IKJSUBF 00767000 @DATD DSECT 00768000 BLSRLIST CSECT 00769000 PXASI IKJIDENT 'ASID',INTEG,PROMPT='ASID',VALIDCK=BLSRVPAS 00770000 @DATD DSECT 00771000 BLSRLIST CSECT 00772000 SPACE 00773000 PXSUBFD IKJSUBF 00774000 @DATD DSECT 00775000 BLSRLIST CSECT 00776000 PXDRMK IKJKEYWD 00777000 @DATD DSECT 00778000 BLSRLIST CSECT 00779000 IKJNAME 'REMARK' 00780000 @DATD DSECT 00781000 BLSRLIST CSECT 00782000 IKJNAME 'NOREMARK' 00783000 @DATD DSECT 00784000 BLSRLIST CSECT 00785000 PXDREQ IKJKEYWD 00786000 @DATD DSECT 00787000 BLSRLIST CSECT 00788000 IKJNAME 'REQUEST' 00789000 @DATD DSECT 00790000 BLSRLIST CSECT 00791000 IKJNAME 'NOREQUEST' 00792000 @DATD DSECT 00793000 BLSRLIST CSECT 00794000 PXDSTG IKJKEYWD 00795000 @DATD DSECT 00796000 BLSRLIST CSECT 00797000 IKJNAME 'STORAGE' 00798000 @DATD DSECT 00799000 BLSRLIST CSECT 00800000 IKJNAME 'NOSTORAGE' 00801000 @DATD DSECT 00802000 BLSRLIST CSECT 00803000 PXDSYM IKJKEYWD 00804000 @DATD DSECT 00805000 BLSRLIST CSECT 00806000 IKJNAME 'SYMBOL' 00807000 @DATD DSECT 00808000 BLSRLIST CSECT 00809000 IKJNAME 'NOSYMBOL' 00810000 @DATD DSECT 00811000 BLSRLIST CSECT 00812000 PXDMCH IKJKEYWD 00813000 @DATD DSECT 00814000 BLSRLIST CSECT 00815000 IKJNAME 'MACHINE' 00816000 @DATD DSECT 00817000 BLSRLIST CSECT 00818000 IKJNAME 'NOMACHINE' 00819000 @DATD DSECT 00820000 PD DSECT 00821000 PD99 DS 0C 00822000 BLSRLIST CSECT 00823000 IKJENDP 00824000 SPACE 2 00825000 *********************************************************************** 00826000 * IKJENDP--END SYNTAX DESCRIPTION * 00827000 *********************************************************************** 00828000 SPACE 00829000 @DATD DSECT 00830000 SPACE 2 00831000 *********************************************************************** 00832000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00833000 *********************************************************************** 00834000 SPACE 00835000 DS 0D 00836000 @DATD DSECT 00837000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00838000 @ENDDATD EQU * 00839000 BLSRLIST CSECT 00840000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00841000 @01 EQU 01 00842000 @02 EQU 02 00843000 @03 EQU 03 00844000 @04 EQU 04 00845000 @05 EQU 05 00846000 @06 EQU 06 00847000 @07 EQU 07 00848000 @08 EQU 08 00849000 @09 EQU 09 00850000 @10 EQU 10 00851000 @11 EQU 11 00852000 @12 EQU 12 00853000 @13 EQU 13 00854000 @14 EQU 14 00855000 @15 EQU 15 00856000 RETC EQU @05 00857000 PDADP EQU @02 00858000 R9 EQU @09 00859000 R0 EQU @00 00860000 R1 EQU @01 00861000 R2 EQU @02 00862000 R3 EQU @03 00863000 R4 EQU @04 00864000 R5 EQU @05 00865000 RB EQU @11 00866000 RD EQU @13 00867000 RE EQU @14 00868000 RF EQU @15 00869000 PDRPTR EQU @10 00870000 GPR15F EQU @15 00871000 GPR01F EQU @01 00872000 GPR00F EQU @00 00873000 RA EQU @10 00874000 RC EQU @12 00875000 R6 EQU @06 00876000 R7 EQU @07 00877000 R8 EQU @08 00878000 ZZ1 EQU 0 00879000 ZZ1PNULL EQU ZZ1+8 00880000 ZZ1ATTN EQU ZZ1+360 00881000 ZZ1EVE EQU ZZ1ATTN+4 00882000 ZZ1EVEP EQU ZZ1EVE 00883000 ZZ1F EQU ZZ1+368 00884000 ZZ1N EQU ZZ1+1116 00885000 ZZ2 EQU 0 00886000 ZZ2AMD EQU ZZ2 00887000 @NM00013 EQU ZZ2AMD+7 00888000 ZZ2PRT EQU ZZ2+138 00889000 ZZ2PRTT EQU ZZ2PRT+4 00890000 ZZ2PRTT1 EQU ZZ2PRTT+1 00891000 ZZ2A EQU ZZ2+272 00892000 ZZ2AF EQU ZZ2A+16 00893000 ZZ2AFD EQU ZZ2AF+2 00894000 ZZ2AFX EQU ZZ2AF+5 00895000 ZZ2APID EQU ZZ2A+64 00896000 ZZ2AD EQU ZZ2A+74 00897000 ZZ2ADD EQU ZZ2AD 00898000 ZZ2ADDT EQU ZZ2ADD+2 00899000 ZZ2ADM EQU ZZ2AD+46 00900000 ZZ2ADMT EQU ZZ2ADM+2 00901000 ZZ2ADP EQU ZZ2AD+56 00902000 ZZ2ADPT EQU ZZ2ADP+2 00903000 ZZ2AZZ6P EQU ZZ2A+140 00904000 ZZ2AQAS EQU ZZ2A+144 00905000 ZZ2AQD EQU ZZ2A+160 00906000 ZZ2AQDT EQU ZZ2AQD+10 00907000 ZZ2AQDF EQU ZZ2AQD+52 00908000 ZZ2STG EQU ZZ2+960 00909000 ZZ2ALLOP EQU ZZ2+992 00910000 ZZ2FREEP EQU ZZ2+996 00911000 ZZ2FF19P EQU ZZ2+1000 00912000 ZZ2FRE1P EQU ZZ2+1004 00913000 ZZ2FF18P EQU ZZ2+1008 00914000 ZZ2DYNAP EQU ZZ2+1012 00915000 ZZ2ZZ2CP EQU ZZ2+1016 00916000 ZZ2ZZ2DP EQU ZZ2+1020 00917000 ZZ2STAIP EQU ZZ2+1024 00918000 ZZ2FF02P EQU ZZ2+1028 00919000 ZZ2GETLP EQU ZZ2+1032 00920000 ZZ2PARSP EQU ZZ2+1036 00921000 ZZ2PTGTP EQU ZZ2+1040 00922000 ZZ2PUTLP EQU ZZ2+1044 00923000 ZZ2SCANP EQU ZZ2+1048 00924000 ZZ2STCKP EQU ZZ2+1052 00925000 ZZ2TRMOP EQU ZZ2+1064 00926000 ZZ2TRMVP EQU ZZ2+1068 00927000 ZZ2PUTNP EQU ZZ2+1084 00928000 ZZ2TRMNP EQU ZZ2+1088 00929000 ZZ2ZZ1P EQU ZZ2+1264 00930000 ZZ2BVTP EQU ZZ2+1280 00931000 ZZ2RVTP EQU ZZ2+1284 00932000 ZZ2CPPL EQU ZZ2+1292 00933000 ZZ2CPPLC EQU ZZ2CPPL 00934000 ZZ2ITR EQU ZZ2+2840 00935000 ZZ2ITRE EQU ZZ2ITR+16 00936000 ZZ2ITSE EQU ZZ2+2864 00937000 ZZ2ES EQU ZZ2+2872 00938000 ZZ2AMDX EQU ZZ2+7160 00939000 ZZ2AXO EQU ZZ2+7934 00940000 ZZ2AXOT EQU ZZ2AXO+2 00941000 CMD EQU 0 00942000 CMDT EQU CMD+4 00943000 PSCB EQU 0 00944000 PSCBATR1 EQU PSCB+16 00945000 ECT EQU 0 00946000 ECTSWS EQU ECT+28 00947000 ECTSWS2 EQU ECT+40 00948000 ECTSWS21 EQU ECTSWS2 00949000 UPT EQU 0 00950000 UPTSWS EQU UPT+12 00951000 SA EQU 0 00952000 SA1 EQU SA 00953000 SAR EQU SA+12 00954000 SAR1 EQU SAR+12 00955000 BLSUPARI EQU 0 00956000 BLSUPARU EQU 0 00957000 BVT EQU 0 00958000 BVTPUTLP EQU BVT+4 00959000 BVTPUTOP EQU BVT+12 00960000 BVTPUTTP EQU BVT+16 00961000 BVTPUTVP EQU BVT+20 00962000 BVTPUTAP EQU BVT+24 00963000 BVTPRTTP EQU BVT+28 00964000 BVTPRTAP EQU BVT+32 00965000 BVTPUTDP EQU BVT+36 00966000 BVTMONP EQU BVT+40 00967000 BVTMON2P EQU BVT+44 00968000 BVTVSARP EQU BVT+48 00969000 BVTVSENP EQU BVT+64 00970000 BVTVSERP EQU BVT+68 00971000 BVTVSGEP EQU BVT+72 00972000 BVTVSGUP EQU BVT+76 00973000 BVTVSPOP EQU BVT+80 00974000 BVTVSPUP EQU BVT+84 00975000 BVTMPKNP EQU BVT+104 00976000 BVTMONLP EQU BVT+108 00977000 BVTPUTCP EQU BVT+132 00978000 BVTMPK1P EQU BVT+136 00979000 BVTZZ2RP EQU BVT+140 00980000 BVTPGMRP EQU BVT+144 00981000 BVTMONAP EQU BVT+148 00982000 BVTBLDDP EQU BVT+152 00983000 BVTBLDLP EQU BVT+156 00984000 BVTPGMCP EQU BVT+160 00985000 BVTPGMDP EQU BVT+164 00986000 BVTPGMLP EQU BVT+168 00987000 BVTMONCP EQU BVT+180 00988000 BVTMONDP EQU BVT+184 00989000 BVTMONTP EQU BVT+188 00990000 BVTPARIP EQU BVT+192 00991000 BVTPARUP EQU BVT+196 00992000 BVTPRTNP EQU BVT+204 00993000 BVTVSCRP EQU BVT+208 00994000 BVTVSMRP EQU BVT+212 00995000 BVTMONXP EQU BVT+216 00996000 BVTTRMAP EQU BVT+228 00997000 ZZ6 EQU 0 00998000 ZZ6D EQU ZZ6+128 00999000 ZZ6DD EQU ZZ6D+8 01000000 ZZ6DDT EQU ZZ6DD+4 01001000 ZZ6DQA EQU ZZ6D+68 01002000 ZZ6DF EQU ZZ6D+92 01003000 ZZ6B EQU ZZ6+768 01004000 BLST01 EQU 0 01005000 BLSRADDR EQU 0 01006000 BLSRADDS EQU 0 01007000 BLSRPADS EQU 0 01008000 RVT EQU 0 01009000 RVTADDRP EQU RVT 01010000 RVTT01P EQU RVT+4 01011000 RVTTAP EQU RVT+8 01012000 RVTTBP EQU RVT+12 01013000 RVTTCP EQU RVT+16 01014000 RVTTFP EQU RVT+24 01015000 RVTTYP EQU RVT+40 01016000 RVTT02P EQU RVT+48 01017000 RVTT03P EQU RVT+52 01018000 RVTT04P EQU RVT+56 01019000 RVTACCLP EQU RVT+60 01020000 RVTRACCP EQU RVT+64 01021000 RVTTLP EQU RVT+68 01022000 RVTTMP EQU RVT+72 01023000 RVTTUP EQU RVT+80 01024000 RVTESGEP EQU RVT+84 01025000 RVTESGUP EQU RVT+88 01026000 RVTESARP EQU RVT+92 01027000 RVTRAARP EQU RVT+96 01028000 RVTRAGEP EQU RVT+100 01029000 RVTADDPP EQU RVT+104 01030000 RVTACCQP EQU RVT+108 01031000 RVTSAGUP EQU RVT+124 01032000 RVTSAGEP EQU RVT+128 01033000 RVTESCKP EQU RVT+132 01034000 RVTMSGAP EQU RVT+136 01035000 RVTMSGDP EQU RVT+140 01036000 RVTADDTP EQU RVT+160 01037000 RVTADDUP EQU RVT+164 01038000 RVTADD1P EQU RVT+176 01039000 RVTADD2P EQU RVT+180 01040000 RVTRSAGP EQU RVT+184 01041000 RVTMSGBP EQU RVT+188 01042000 RVTADDSP EQU RVT+192 01043000 RVTADD3P EQU RVT+196 01044000 RVTT05P EQU RVT+200 01045000 RVTPADSP EQU RVT+204 01046000 RVTTRP EQU RVT+228 01047000 RVTADD4P EQU RVT+232 01048000 RVTSAPCP EQU RVT+236 01049000 RVTSAARP EQU RVT+240 01050000 RVTSAGNP EQU RVT+244 01051000 RVTT06P EQU RVT+248 01052000 RVTSAGCP EQU RVT+252 01053000 RVTSAGQP EQU RVT+256 01054000 RVTESGCP EQU RVT+260 01055000 RVTESGQP EQU RVT+264 01056000 RVTDUCKP EQU RVT+276 01057000 RVTDUCCP EQU RVT+280 01058000 PCCSECT EQU 0 01059000 PDDSECT EQU 0 01060000 PDXP EQU PDDSECT+1 01061000 PDL EQU PDDSECT+5 01062000 PDADX EQU 0 01063000 @NM00090 EQU PDADX 01064000 PDADMP EQU @NM00090 01065000 PDADMF EQU @NM00090+6 01066000 PDADEP EQU @NM00090+8 01067000 PDADEF EQU @NM00090+14 01068000 PDADAP EQU @NM00090+16 01069000 PDADAF EQU @NM00090+22 01070000 PDADAT EQU @NM00090+24 01071000 PDADAEP EQU @NM00090+28 01072000 PDADXP EQU PDADX+72 01073000 PDADAE EQU 0 01074000 PDADAEAP EQU PDADAE 01075000 PDADAEF EQU PDADAE+8 01076000 BLSRACC EQU 0 01077000 BLSRACCL EQU 0 01078000 BLSRACCQ EQU 0 01079000 BLSRADDP EQU 0 01080000 BLSRADDT EQU 0 01081000 BLSRADDU EQU 0 01082000 BLSRADD1 EQU 0 01083000 BLSRADD2 EQU 0 01084000 BLSRADD3 EQU 0 01085000 BLSRADD4 EQU 0 01086000 BLSRDUCC EQU 0 01087000 BLSRDUCK EQU 0 01088000 BLSRESAR EQU 0 01089000 BLSRESCK EQU 0 01090000 BLSRESGC EQU 0 01091000 BLSRESGE EQU 0 01092000 BLSRESGQ EQU 0 01093000 BLSRESGU EQU 0 01094000 BLSRMSGA EQU 0 01095000 BLSRMSGB EQU 0 01096000 BLSRMSGD EQU 0 01097000 BLSRRAAR EQU 0 01098000 BLSRRAGE EQU 0 01099000 BLSRSAAR EQU 0 01100000 BLSRSAG EQU 0 01101000 BLSRSAGC EQU 0 01102000 BLSRSAGE EQU 0 01103000 BLSRSAGN EQU 0 01104000 BLSRSAGQ EQU 0 01105000 BLSRSAGU EQU 0 01106000 BLSRSAPC EQU 0 01107000 BLSTA EQU 0 01108000 BLSTB EQU 0 01109000 BLSTC EQU 0 01110000 BLSTF EQU 0 01111000 BLSTL EQU 0 01112000 BLSTM EQU 0 01113000 BLSTR EQU 0 01114000 BLSTU EQU 0 01115000 BLSTY EQU 0 01116000 BLST02 EQU 0 01117000 BLST03 EQU 0 01118000 BLST04 EQU 0 01119000 BLST05 EQU 0 01120000 BLST06 EQU 0 01121000 BLSUALLO EQU 0 01122000 BLSUBLDD EQU 0 01123000 BLSUBLDL EQU 0 01124000 BLSUDYNA EQU 0 01125000 BLSUFREE EQU 0 01126000 BLSUFRE1 EQU 0 01127000 BLSUMON EQU 0 01128000 BLSUMONA EQU 0 01129000 BLSUMONC EQU 0 01130000 BLSUMOND EQU 0 01131000 BLSUMONL EQU 0 01132000 BLSUMONT EQU 0 01133000 BLSUMONX EQU 0 01134000 BLSUMON2 EQU 0 01135000 BLSUMPKN EQU 0 01136000 BLSUMPK1 EQU 0 01137000 BLSUPGMC EQU 0 01138000 BLSUPGMD EQU 0 01139000 BLSUPGML EQU 0 01140000 BLSUPGMR EQU 0 01141000 BLSUPRTA EQU 0 01142000 BLSUPRTN EQU 0 01143000 BLSUPRTT EQU 0 01144000 BLSUPUTA EQU 0 01145000 BLSUPUTC EQU 0 01146000 BLSUPUTD EQU 0 01147000 BLSUPUTL EQU 0 01148000 BLSUPUTN EQU 0 01149000 BLSUPUTO EQU 0 01150000 BLSUPUTT EQU 0 01151000 BLSUPUTV EQU 0 01152000 BLSUSTAI EQU 0 01153000 BLSUTRMA EQU 0 01154000 BLSUTRMN EQU 0 01155000 BLSUTRMO EQU 0 01156000 BLSUTRMV EQU 0 01157000 BLSUVSAR EQU 0 01158000 BLSUVSCR EQU 0 01159000 BLSUVSEN EQU 0 01160000 BLSUVSER EQU 0 01161000 BLSUVSGE EQU 0 01162000 BLSUVSGU EQU 0 01163000 BLSUVSMR EQU 0 01164000 BLSUVSPO EQU 0 01165000 BLSUVSPU EQU 0 01166000 BLSUZZ2C EQU 0 01167000 BLSUZZ2D EQU 0 01168000 BLSUZZ2R EQU 0 01169000 IKJEFF02 EQU 0 01170000 IKJEFF18 EQU 0 01171000 IKJEFF19 EQU 0 01172000 IKJGETL EQU 0 01173000 IKJPARS EQU 0 01174000 IKJPTGT EQU 0 01175000 IKJPUTL EQU 0 01176000 IKJSCAN EQU 0 01177000 IKJSTCK EQU 0 01178000 I001C EQU 0 01179000 I008P EQU 0 01180000 I015F EQU 0 01181000 I015P EQU 0 01182000 I031F EQU 0 01183000 I031P EQU 0 01184000 I256C EQU 0 01185000 PDADAEA EQU 0 01186000 PDADA1 EQU 0 01187000 PDADA2 EQU 0 01188000 PDADE1 EQU 0 01189000 PDADE2 EQU 0 01190000 PDADM1 EQU 0 01191000 PDADM2 EQU 0 01192000 PXASII EQU 0 01193000 PXCPUI EQU 0 01194000 PXDIMI EQU 0 01195000 PXDTDI EQU 0 01196000 PXLENI EQU 0 01197000 PXNTRI1 EQU 0 01198000 PXNTRI2 EQU 0 01199000 PXREMQ EQU 0 01200000 PXCPUIP EQU PXCPU 01201000 PXCPUIF EQU PXCPU+6 01202000 PXASIIP EQU PXASI 01203000 PXASIIF EQU PXASI+6 01204000 PXDTDIP EQU PXDTD 01205000 PXDTDIF EQU PXDTD+6 01206000 PXLENIP EQU PXLEN 01207000 PXLENIF EQU PXLEN+6 01208000 PXDIMIP EQU PXDIM 01209000 PXDIMIF EQU PXDIM+6 01210000 PXREMQP EQU PXREM 01211000 PXREMQF EQU PXREM+6 01212000 @NM00116 EQU PXNTR 01213000 PXNTRIP EQU @NM00116 01214000 PXNTRIF EQU @NM00116+6 01215000 CPPL EQU ZZ2CPPL 01216000 CPPLUPT EQU CPPL+4 01217000 CPPLPSCB EQU CPPL+8 01218000 CPPLECT EQU CPPL+12 01219000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01220000 CPPLCBUF EQU CPPL 01221000 @NM00118 EQU PXNTR+16 01222000 @NM00117 EQU @NM00116+7 01223000 PXNTRIF8 EQU PXNTRIF 01224000 PXNTRIF7 EQU PXNTRIF 01225000 PXNTRIF6 EQU PXNTRIF 01226000 PXNTRIF5 EQU PXNTRIF 01227000 PXNTRIF4 EQU PXNTRIF 01228000 PXNTRIF3 EQU PXNTRIF 01229000 PXNTRIF2 EQU PXNTRIF 01230000 PXNTRIFP EQU PXNTRIF 01231000 PXNTRIL EQU @NM00116+4 01232000 @NM00120 EQU PXREM+8 01233000 @NM00119 EQU PXREM+7 01234000 PXREMQF8 EQU PXREMQF 01235000 PXREMQF7 EQU PXREMQF 01236000 PXREMQF6 EQU PXREMQF 01237000 PXREMQF5 EQU PXREMQF 01238000 PXREMQF4 EQU PXREMQF 01239000 PXREMQF3 EQU PXREMQF 01240000 PXREMQF2 EQU PXREMQF 01241000 PXREMQFP EQU PXREMQF 01242000 PXREMQL EQU PXREM+4 01243000 @NM00115 EQU PXDIM+8 01244000 @NM00114 EQU PXDIM+7 01245000 PXDIMIF8 EQU PXDIMIF 01246000 PXDIMIF7 EQU PXDIMIF 01247000 PXDIMIF6 EQU PXDIMIF 01248000 PXDIMIF5 EQU PXDIMIF 01249000 PXDIMIF4 EQU PXDIMIF 01250000 PXDIMIF3 EQU PXDIMIF 01251000 PXDIMIF2 EQU PXDIMIF 01252000 PXDIMIFP EQU PXDIMIF 01253000 PXDIMIL EQU PXDIM+4 01254000 @NM00113 EQU PXLEN+8 01255000 @NM00112 EQU PXLEN+7 01256000 PXLENIF8 EQU PXLENIF 01257000 PXLENIF7 EQU PXLENIF 01258000 PXLENIF6 EQU PXLENIF 01259000 PXLENIF5 EQU PXLENIF 01260000 PXLENIF4 EQU PXLENIF 01261000 PXLENIF3 EQU PXLENIF 01262000 PXLENIF2 EQU PXLENIF 01263000 PXLENIFP EQU PXLENIF 01264000 PXLENIL EQU PXLEN+4 01265000 @NM00111 EQU PXDTD+8 01266000 @NM00110 EQU PXDTD+7 01267000 PXDTDIF8 EQU PXDTDIF 01268000 PXDTDIF7 EQU PXDTDIF 01269000 PXDTDIF6 EQU PXDTDIF 01270000 PXDTDIF5 EQU PXDTDIF 01271000 PXDTDIF4 EQU PXDTDIF 01272000 PXDTDIF3 EQU PXDTDIF 01273000 PXDTDIF2 EQU PXDTDIF 01274000 PXDTDIFP EQU PXDTDIF 01275000 PXDTDIL EQU PXDTD+4 01276000 @NM00124 EQU PXASI+8 01277000 @NM00123 EQU PXASI+7 01278000 PXASIIF8 EQU PXASIIF 01279000 PXASIIF7 EQU PXASIIF 01280000 PXASIIF6 EQU PXASIIF 01281000 PXASIIF5 EQU PXASIIF 01282000 PXASIIF4 EQU PXASIIF 01283000 PXASIIF3 EQU PXASIIF 01284000 PXASIIF2 EQU PXASIIF 01285000 PXASIIFP EQU PXASIIF 01286000 PXASIIL EQU PXASI+4 01287000 @NM00122 EQU PXCPU+8 01288000 @NM00121 EQU PXCPU+7 01289000 PXCPUIF8 EQU PXCPUIF 01290000 PXCPUIF7 EQU PXCPUIF 01291000 PXCPUIF6 EQU PXCPUIF 01292000 PXCPUIF5 EQU PXCPUIF 01293000 PXCPUIF4 EQU PXCPUIF 01294000 PXCPUIF3 EQU PXCPUIF 01295000 PXCPUIF2 EQU PXCPUIF 01296000 PXCPUIFP EQU PXCPUIF 01297000 PXCPUIL EQU PXCPU+4 01298000 PDADAEXP EQU PDADAE+12 01299000 PDADAEI EQU PDADAE+10 01300000 PDADAES EQU PDADAE+9 01301000 @NM00097 EQU PDADAEF 01302000 PDADAEFX EQU PDADAEF 01303000 PDADAEFD EQU PDADAEF 01304000 @NM00096 EQU PDADAEF 01305000 @NM00095 EQU PDADAE+6 01306000 PDADAEAL EQU PDADAE+4 01307000 PDADAV EQU @NM00090+32 01308000 PDADAI EQU @NM00090+26 01309000 PDADAS EQU @NM00090+25 01310000 @NM00094 EQU PDADAT 01311000 PDADATQ EQU PDADAT 01312000 PDADATE EQU PDADAT 01313000 PDADATD EQU PDADAT 01314000 PDADATG EQU PDADAT 01315000 PDADATR EQU PDADAT 01316000 PDADATS EQU PDADAT 01317000 @NM00093 EQU @NM00090+23 01318000 PDADAF8 EQU PDADAF 01319000 PDADAF7 EQU PDADAF 01320000 PDADAF6 EQU PDADAF 01321000 PDADAF5 EQU PDADAF 01322000 PDADAF4 EQU PDADAF 01323000 PDADAF3 EQU PDADAF 01324000 PDADAF2 EQU PDADAF 01325000 PDADAFP EQU PDADAF 01326000 PDADAL EQU @NM00090+20 01327000 @NM00092 EQU @NM00090+15 01328000 PDADEF8 EQU PDADEF 01329000 PDADEF7 EQU PDADEF 01330000 PDADEF6 EQU PDADEF 01331000 PDADEF5 EQU PDADEF 01332000 PDADEF4 EQU PDADEF 01333000 PDADEF3 EQU PDADEF 01334000 PDADEF2 EQU PDADEF 01335000 PDADEFP EQU PDADEF 01336000 PDADEL EQU @NM00090+12 01337000 @NM00091 EQU @NM00090+7 01338000 PDADMF8 EQU PDADMF 01339000 PDADMF7 EQU PDADMF 01340000 PDADMF6 EQU PDADMF 01341000 PDADMF5 EQU PDADMF 01342000 PDADMF4 EQU PDADMF 01343000 PDADMF3 EQU PDADMF 01344000 PDADMF2 EQU PDADMF 01345000 PDADMFP EQU PDADMF 01346000 PDADML EQU @NM00090+4 01347000 PDSP EQU PDDSECT+4 01348000 @NM00089 EQU PDDSECT 01349000 RVT99999 EQU RVT+384 01350000 RVT0096P EQU RVT+380 01351000 RVT0095P EQU RVT+376 01352000 RVT0094P EQU RVT+372 01353000 RVT0093P EQU RVT+368 01354000 RVT0092P EQU RVT+364 01355000 RVT0091P EQU RVT+360 01356000 RVT0090P EQU RVT+356 01357000 RVT0089P EQU RVT+352 01358000 RVT0088P EQU RVT+348 01359000 RVT0087P EQU RVT+344 01360000 RVT0086P EQU RVT+340 01361000 RVT0085P EQU RVT+336 01362000 RVT0084P EQU RVT+332 01363000 RVT0083P EQU RVT+328 01364000 RVT0082P EQU RVT+324 01365000 RVT0081P EQU RVT+320 01366000 RVT0080P EQU RVT+316 01367000 RVT0079P EQU RVT+312 01368000 RVT0078P EQU RVT+308 01369000 RVT0077P EQU RVT+304 01370000 RVT0076P EQU RVT+300 01371000 RVT0075P EQU RVT+296 01372000 RVT0074P EQU RVT+292 01373000 RVT0073P EQU RVT+288 01374000 RVT0072P EQU RVT+284 01375000 RVTDTUTP EQU RVT+272 01376000 RVTDTMTP EQU RVT+268 01377000 RVT0057P EQU RVT+224 01378000 RVT0056P EQU RVT+220 01379000 RVT0055P EQU RVT+216 01380000 RVT0054P EQU RVT+212 01381000 RVT0053P EQU RVT+208 01382000 RVT0044P EQU RVT+172 01383000 RVT0043P EQU RVT+168 01384000 RVT0040P EQU RVT+156 01385000 RVT0039P EQU RVT+152 01386000 RVT0038P EQU RVT+148 01387000 RVT0037P EQU RVT+144 01388000 RVT0031P EQU RVT+120 01389000 RVT0030P EQU RVT+116 01390000 RVT0029P EQU RVT+112 01391000 RVT0020P EQU RVT+76 01392000 RVT0012P EQU RVT+44 01393000 RVT0010P EQU RVT+36 01394000 RVT0009P EQU RVT+32 01395000 RVT0008P EQU RVT+28 01396000 RVT0006P EQU RVT+20 01397000 ZZ69999 EQU ZZ6+1792 01398000 ZZ6BRB EQU ZZ6B+12 01399000 ZZ6BRC EQU ZZ6B+8 01400000 @NM00076 EQU ZZ6B+6 01401000 ZZ6BFL EQU ZZ6B+4 01402000 ZZ6BDA EQU ZZ6B 01403000 @NM00075 EQU ZZ6+540 01404000 ZZ6BUFI EQU ZZ6+536 01405000 ZZ6BUFP EQU ZZ6+532 01406000 ZZ6FILE EQU ZZ6+524 01407000 ZZ6BUFB EQU ZZ6+520 01408000 ZZ6BUFL EQU ZZ6+518 01409000 ZZ6BUFN EQU ZZ6+516 01410000 ZZ6ZZ6P EQU ZZ6+512 01411000 @NM00074 EQU ZZ6+256 01412000 ZZ6D999 EQU ZZ6D+128 01413000 @NM00073 EQU ZZ6D+116 01414000 ZZ6DCAP EQU ZZ6D+112 01415000 ZZ6DPRP EQU ZZ6D+108 01416000 ZZ6DDA2 EQU ZZ6D+104 01417000 ZZ6DDA1 EQU ZZ6D+100 01418000 @NM00072 EQU ZZ6DF 01419000 ZZ6DFSU EQU ZZ6DF 01420000 ZZ6DFST EQU ZZ6DF 01421000 ZZ6DFAB EQU ZZ6DF 01422000 ZZ6DFMP EQU ZZ6DF 01423000 ZZ6DFDU EQU ZZ6DF 01424000 ZZ6DFBS EQU ZZ6DF 01425000 ZZ6DQ2 EQU ZZ6D+88 01426000 ZZ6DQ1 EQU ZZ6D+84 01427000 ZZ6DQA9 EQU ZZ6DQA+16 01428000 @NM00071 EQU ZZ6DQA+12 01429000 ZZ6DQA2 EQU ZZ6DQA+8 01430000 ZZ6DQA1 EQU ZZ6DQA+4 01431000 @NM00070 EQU ZZ6DQA+2 01432000 ZZ6DQAT EQU ZZ6DQA 01433000 ZZ6DQA0 EQU ZZ6DQA 01434000 ZZ6DRDX EQU ZZ6D+64 01435000 ZZ6DELK EQU ZZ6D+64 01436000 ZZ6DMEM EQU ZZ6D+56 01437000 ZZ6DDT1 EQU ZZ6DDT 01438000 ZZ6DDO EQU ZZ6DD+2 01439000 ZZ6DDL EQU ZZ6DD 01440000 @NM00069 EQU ZZ6D+2 01441000 ZZ6DRID EQU ZZ6D 01442000 ZZ6RDCB EQU ZZ6 01443000 ZZ60000 EQU ZZ6 01444000 BVT99999 EQU BVT+256 01445000 BVT0064P EQU BVT+252 01446000 BVT0063P EQU BVT+248 01447000 BVT0062P EQU BVT+244 01448000 BVT0061P EQU BVT+240 01449000 BVT0060P EQU BVT+236 01450000 BVT0059P EQU BVT+232 01451000 BVT0057P EQU BVT+224 01452000 BVT0056P EQU BVT+220 01453000 BVTSTBLP EQU BVT+200 01454000 BVT0045P EQU BVT+176 01455000 BVT0044P EQU BVT+172 01456000 BVT0033P EQU BVT+128 01457000 BVT0032P EQU BVT+124 01458000 BVT0031P EQU BVT+120 01459000 BVT0030P EQU BVT+116 01460000 BVT0029P EQU BVT+112 01461000 BVT0026P EQU BVT+100 01462000 BVT0025P EQU BVT+96 01463000 BVT0024P EQU BVT+92 01464000 BVT0023P EQU BVT+88 01465000 BVT0016P EQU BVT+60 01466000 BVT0015P EQU BVT+56 01467000 BVT0014P EQU BVT+52 01468000 BVT0003P EQU BVT+8 01469000 BVT0001P EQU BVT 01470000 SA99 EQU SA+72 01471000 SARC EQU SAR+56 01472000 SARB EQU SAR+52 01473000 SARA EQU SAR+48 01474000 SAR9 EQU SAR+44 01475000 SAR8 EQU SAR+40 01476000 SAR7 EQU SAR+36 01477000 SAR6 EQU SAR+32 01478000 SAR5 EQU SAR+28 01479000 SAR4 EQU SAR+24 01480000 SAR3 EQU SAR+20 01481000 SAR2 EQU SAR+16 01482000 SAR0 EQU SAR+8 01483000 SARF EQU SAR+4 01484000 SARE EQU SAR 01485000 SAFWD EQU SA+8 01486000 SABAK EQU SA+4 01487000 SA1L EQU SA1+1 01488000 SA1P EQU SA1 01489000 UPTPREFL EQU UPT+23 01490000 UPTPREFX EQU UPT+16 01491000 @NM00068 EQU UPT+15 01492000 UPTLDEL EQU UPT+14 01493000 UPTCDEL EQU UPT+13 01494000 UPTWTP EQU UPTSWS 01495000 UPTMODE EQU UPTSWS 01496000 UPTALD EQU UPTSWS 01497000 UPTPAUS EQU UPTSWS 01498000 UPTNCOM EQU UPTSWS 01499000 UPTMID EQU UPTSWS 01500000 UPTNPRM EQU UPTSWS 01501000 UPTRCVR EQU UPTSWS 01502000 UPTUSER EQU UPT+2 01503000 @NM00067 EQU UPT 01504000 @NM00066 EQU ECT+52 01505000 @NM00065 EQU ECT+48 01506000 @NM00064 EQU ECT+44 01507000 @NM00063 EQU ECTSWS2+1 01508000 @NM00062 EQU ECTSWS21 01509000 ECTTABND EQU ECTSWS21 01510000 ECTDEFCS EQU ECTSWS21 01511000 ECTBKPB EQU ECT+36 01512000 ECTUSER EQU ECT+32 01513000 ECTDDNUM EQU ECT+29 01514000 ECTATTN EQU ECTSWS 01515000 ECTBKGRD EQU ECTSWS 01516000 ECTNNOT EQU ECTSWS 01517000 ECTNMAL EQU ECTSWS 01518000 ECTLOGF EQU ECTSWS 01519000 ECTATRM EQU ECTSWS 01520000 @NM00061 EQU ECTSWS 01521000 ECTNOPD EQU ECTSWS 01522000 ECTSCMD EQU ECT+20 01523000 ECTPCMD EQU ECT+12 01524000 ECTSMSG EQU ECT+9 01525000 ECTMSGF EQU ECT+8 01526000 ECTIOWA EQU ECT+4 01527000 ECTRTCD EQU ECT+1 01528000 ECTRCDF EQU ECT 01529000 PSCBU EQU PSCB+64 01530000 PSCBRSZ EQU PSCB+60 01531000 PSCBLINE EQU PSCB+59 01532000 PSCBCHAR EQU PSCB+58 01533000 PSCBUPTL EQU PSCB+56 01534000 PSCBUPT EQU PSCB+52 01535000 PSCBRLGB EQU PSCB+48 01536000 PSCBDEST EQU PSCB+40 01537000 @NM00060 EQU PSCB+36 01538000 @NM00059 EQU PSCB+32 01539000 @NM00058 EQU PSCB+28 01540000 PSCBLTI2 EQU PSCB+24 01541000 PSCBLTIM EQU PSCB+20 01542000 PSCBATR2 EQU PSCB+18 01543000 @NM00057 EQU PSCBATR1 01544000 @NM00056 EQU PSCBATR1 01545000 @NM00055 EQU PSCBATR1 01546000 PSCBATTN EQU PSCBATR1 01547000 PSCBVMNT EQU PSCBATR1 01548000 PSCBJCL EQU PSCBATR1 01549000 PSCBACCT EQU PSCBATR1 01550000 PSCBCTRL EQU PSCBATR1 01551000 PSCBGPNM EQU PSCB+8 01552000 PSCBUSRL EQU PSCB+7 01553000 PSCBUSER EQU PSCB 01554000 CMDT1 EQU CMDT 01555000 CMDO EQU CMD+2 01556000 CMDL EQU CMD 01557000 ZZ299999 EQU ZZ2+8192 01558000 ZZ2AXOT1 EQU ZZ2AXOT 01559000 ZZ2AXOL EQU ZZ2AXO 01560000 @NM00054 EQU ZZ2+7288 01561000 @NM00053 EQU ZZ2AMDX+4 01562000 ZZ2AMDXC EQU ZZ2AMDX 01563000 ZZ2HSD EQU ZZ2+3056 01564000 @NM00052 EQU ZZ2ES 01565000 @NM00051 EQU ZZ2+2868 01566000 ZZ2ITSEC EQU ZZ2ITSE+1 01567000 @NM00050 EQU ZZ2ITSE 01568000 ZZ2ITSEP EQU ZZ2ITSE 01569000 ZZ2ITSEW EQU ZZ2ITSE 01570000 @NM00049 EQU ZZ2ITR+20 01571000 ZZ2ITREC EQU ZZ2ITRE+1 01572000 @NM00048 EQU ZZ2ITRE 01573000 ZZ2ITREP EQU ZZ2ITRE 01574000 ZZ2ITREW EQU ZZ2ITRE 01575000 @NM00047 EQU ZZ2ITR+9 01576000 ZZ2ITRRC EQU ZZ2ITR+8 01577000 ZZ2ITR2P EQU ZZ2ITR+4 01578000 ZZ2ITRPP EQU ZZ2ITR 01579000 @NM00046 EQU ZZ2+1544 01580000 ZZ2PGM EQU ZZ2+1536 01581000 @NM00045 EQU ZZ2+1526 01582000 ZZ2CW EQU ZZ2+1524 01583000 @NM00044 EQU ZZ2+1504 01584000 @NM00043 EQU ZZ2+1352 01585000 ZZ2FFSYP EQU ZZ2+1348 01586000 ZZ2SASYP EQU ZZ2+1344 01587000 ZZ2RDSYP EQU ZZ2+1340 01588000 ZZ2RASYP EQU ZZ2+1336 01589000 ZZ2PHSYP EQU ZZ2+1332 01590000 ZZ2ESSYP EQU ZZ2+1328 01591000 ZZ200SYP EQU ZZ2+1324 01592000 ZZ2SCWP EQU ZZ2+1320 01593000 ZZ2TTLP EQU ZZ2+1316 01594000 ZZ2LOADP EQU ZZ2+1312 01595000 ZZ2VRESP EQU ZZ2+1308 01596000 ZZ2CPPLE EQU ZZ2CPPL+12 01597000 ZZ2CPPLP EQU ZZ2CPPL+8 01598000 ZZ2CPPLU EQU ZZ2CPPL+4 01599000 ZZ2VRSAP EQU ZZ2+1288 01600000 ZZ2DVTP EQU ZZ2+1276 01601000 @NM00042 EQU ZZ2+1272 01602000 @NM00041 EQU ZZ2+1268 01603000 ZZ2RPLP EQU ZZ2+1260 01604000 ZZ2TCBP EQU ZZ2+1256 01605000 @NM00040 EQU ZZ2+1252 01606000 ZZ2ZZ2P EQU ZZ2+1248 01607000 @NM00039 EQU ZZ2+1112 01608000 ZZ2FPDRP EQU ZZ2+1108 01609000 ZZ2FDSDP EQU ZZ2+1104 01610000 ZZ2APDRP EQU ZZ2+1100 01611000 ZZ2ADSDP EQU ZZ2+1096 01612000 ZZ2ENQ0P EQU ZZ2+1092 01613000 @NM00038 EQU ZZ2+1080 01614000 ZZ2MSG0P EQU ZZ2+1076 01615000 ZZ2FT25P EQU ZZ2+1072 01616000 ZZ2MSGSP EQU ZZ2+1060 01617000 ZZ2ALOCP EQU ZZ2+1056 01618000 @NM00037 EQU ZZ2+976 01619000 ZZ2TOD EQU ZZ2+968 01620000 ZZ2STGN EQU ZZ2STG+4 01621000 ZZ2STGP EQU ZZ2STG 01622000 @NM00036 EQU ZZ2+952 01623000 ZZ2SCMDE EQU ZZ2+944 01624000 ZZ2SCMDN EQU ZZ2+936 01625000 ZZ2IDENT EQU ZZ2+928 01626000 ZZ2A9999 EQU ZZ2A+656 01627000 @NM00035 EQU ZZ2A+224 01628000 @NM00034 EQU ZZ2A+220 01629000 ZZ2AQD99 EQU ZZ2AQD+60 01630000 @NM00033 EQU ZZ2AQD+56 01631000 @NM00032 EQU ZZ2AQDF 01632000 ZZ2AQDFA EQU ZZ2AQDF 01633000 ZZ2AQDIL EQU ZZ2AQD+48 01634000 ZZ2AQDIM EQU ZZ2AQD+44 01635000 ZZ2AQDT9 EQU ZZ2AQDT+34 01636000 ZZ2AQDTE EQU ZZ2AQDT+33 01637000 ZZ2AQDTD EQU ZZ2AQDT+2 01638000 @NM00031 EQU ZZ2AQDT+1 01639000 ZZ2AQDTY EQU ZZ2AQDT 01640000 ZZ2AQDT0 EQU ZZ2AQDT 01641000 ZZ2AQDLB EQU ZZ2AQD+9 01642000 ZZ2AQDOB EQU ZZ2AQD+8 01643000 ZZ2AQDLE EQU ZZ2AQD+4 01644000 ZZ2AQDOF EQU ZZ2AQD 01645000 ZZ2AQD00 EQU ZZ2AQD 01646000 ZZ2AQAS9 EQU ZZ2AQAS+16 01647000 @NM00030 EQU ZZ2AQAS+12 01648000 ZZ2AQAS2 EQU ZZ2AQAS+8 01649000 ZZ2AQAS1 EQU ZZ2AQAS+4 01650000 @NM00029 EQU ZZ2AQAS+2 01651000 ZZ2AQAST EQU ZZ2AQAS 01652000 ZZ2AQAS0 EQU ZZ2AQAS 01653000 ZZ2ADPTA EQU ZZ2ADPT 01654000 ZZ2ADPL EQU ZZ2ADP 01655000 ZZ2ADMTA EQU ZZ2ADMT 01656000 ZZ2ADML EQU ZZ2ADM 01657000 ZZ2ADDTA EQU ZZ2ADDT 01658000 ZZ2ADDL EQU ZZ2ADD 01659000 @NM00028 EQU ZZ2A+72 01660000 ZZ2APIDB EQU ZZ2APID+3 01661000 ZZ2APIDA EQU ZZ2APID 01662000 @NM00027 EQU ZZ2A+24 01663000 @NM00026 EQU ZZ2AF+5 01664000 @NM00025 EQU ZZ2AF+3 01665000 ZZ2AFS EQU ZZ2AF+2 01666000 ZZ2AFQ EQU ZZ2AF+2 01667000 ZZ2AF$ EQU ZZ2AF+2 01668000 @NM00024 EQU ZZ2AF+2 01669000 ZZ2AFM EQU ZZ2AF+2 01670000 @NM00023 EQU ZZ2AF+2 01671000 @NM00022 EQU ZZ2AF+1 01672000 ZZ2AFV EQU ZZ2AF+1 01673000 @NM00021 EQU ZZ2AF+1 01674000 ZZ2AFC EQU ZZ2AF+1 01675000 @NM00020 EQU ZZ2AF 01676000 ZZ2AFFS EQU ZZ2AF 01677000 ZZ2AFT EQU ZZ2AF 01678000 ZZ2AFP EQU ZZ2AF 01679000 @NM00019 EQU ZZ2A+8 01680000 ZZ2ALINE EQU ZZ2A+4 01681000 @NM00018 EQU ZZ2A+3 01682000 ZZ2ASE EQU ZZ2A+2 01683000 ZZ2ACH EQU ZZ2A 01684000 @NM00017 EQU ZZ2+264 01685000 @NM00016 EQU ZZ2+263 01686000 ZZ2PRTT0 EQU ZZ2PRTT 01687000 ZZ2PRTO EQU ZZ2PRT+2 01688000 ZZ2PRTL EQU ZZ2PRT 01689000 @NM00015 EQU ZZ2AMD+56 01690000 ZZ2AMDXP EQU ZZ2AMD+52 01691000 ZZ2AMDD EQU ZZ2AMD+48 01692000 ZZ2AMDL EQU ZZ2AMD+44 01693000 ZZ2AMDU EQU ZZ2AMD+28 01694000 ZZ2AMDF EQU ZZ2AMD+24 01695000 ZZ2AMDS EQU ZZ2AMD+20 01696000 ZZ2AMDC EQU ZZ2AMD+16 01697000 ZZ2AMDP EQU ZZ2AMD+12 01698000 ZZ2AMDB EQU ZZ2AMD+8 01699000 @NM00014 EQU @NM00013 01700000 ZZ2AMD2 EQU @NM00013 01701000 ZZ2AMD1 EQU @NM00013 01702000 ZZ2AMD0 EQU ZZ2AMD+6 01703000 ZZ2AMDA EQU ZZ2AMD+4 01704000 ZZ2AMDT EQU ZZ2AMD 01705000 ZZ199999 EQU ZZ1+3072 01706000 @NM00012 EQU ZZ1+2160 01707000 ZZ1TRTAS EQU ZZ1+1904 01708000 ZZ1TRUPC EQU ZZ1+1648 01709000 ZZ1TRCTX EQU ZZ1+1392 01710000 ZZ1NASID EQU ZZ1N+274 01711000 ZZ1NSTRL EQU ZZ1N+272 01712000 ZZ1NOFF EQU ZZ1N+268 01713000 ZZ1NBDY EQU ZZ1N+264 01714000 ZZ1NADE EQU ZZ1N+260 01715000 ZZ1NADB EQU ZZ1N+256 01716000 ZZ1NSTR EQU ZZ1N 01717000 @NM00011 EQU ZZ1+1080 01718000 ZZ1TREBC EQU ZZ1+824 01719000 ZZ1TRHEX EQU ZZ1+568 01720000 @NM00010 EQU ZZ1+377 01721000 ZZ1USTAE EQU ZZ1+376 01722000 @NM00009 EQU ZZ1F+1 01723000 @NM00008 EQU ZZ1F 01724000 ZZ1FM EQU ZZ1F 01725000 ZZ1FX EQU ZZ1F 01726000 ZZ1FU EQU ZZ1F 01727000 ZZ1EVEC EQU ZZ1EVE+1 01728000 @NM00007 EQU ZZ1EVE 01729000 ZZ1EVEW EQU ZZ1EVE 01730000 ZZ1ACMP EQU ZZ1ATTN 01731000 @NM00006 EQU ZZ1+144 01732000 ZZ1FPP EQU ZZ1+140 01733000 ZZ1ZZ6P EQU ZZ1+136 01734000 @NM00005 EQU ZZ1+84 01735000 ZZ1PLINE EQU ZZ1+80 01736000 ZZ1PGSZ EQU ZZ1+76 01737000 ZZ1PCNT EQU ZZ1+72 01738000 @NM00004 EQU ZZ1+68 01739000 ZZ1TPAGE EQU ZZ1+64 01740000 ZZ1TLINE EQU ZZ1+60 01741000 @NM00003 EQU ZZ1+48 01742000 ZZ1DSDP EQU ZZ1+44 01743000 ZZ1PDRP EQU ZZ1+40 01744000 ZZ1ZZ2P EQU ZZ1+36 01745000 ZZ1327WP EQU ZZ1+32 01746000 ZZ1ACBP EQU ZZ1+28 01747000 @NM00002 EQU ZZ1+24 01748000 ZZ1PDCBP EQU ZZ1+20 01749000 ZZ1BLRBL EQU ZZ1+16 01750000 @NM00001 EQU ZZ1+12 01751000 ZZ1NULL EQU ZZ1+4 01752000 ZZ1IDE EQU ZZ1 01753000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01754000 @RT00329 EQU EXITRLSA 01755000 @ENDDATA EQU * 01756000 END BLSRLIST,(C'PLS1847',0701,78057) 01757000