SADE TITLE 'BLSRSADE--IPCS DROPMAP SUBCOMMAND *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPSR */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSRSADE CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSRSADE 78.059' 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 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 *BLREXTRN - IDENTIFY EXTERNAL REFERENCES 00027000 EXTRN BLSUVP31 00028000 EXTRN BLSUVP32 00029000 EXTRN BLSRVPCP 00030000 EXTRN BLSRVPAS 00031000 EXTRN BLSRVPAD 00032000 * 0275 00033000 */********************************************************************/ 00034000 */* */ 00035000 */* BLSRSADE--IPCS DROPMAP SUBCOMMAND */ 00036000 */* */ 00037000 */********************************************************************/ 00038000 * 0275 00039000 * RECCOUNT=0; /* NO RECORDS PROCESSED */ 00040000 SLR @08,@08 0275 00041000 ST @08,RECCOUNT 0275 00042000 */********************************************************************/ 00043000 */* */ 00044000 */* BLSRSASI--INITIALIZATION SEGMENT */ 00045000 */* USED WITH BLSRSASD COMMON DECLARATION SEGMENT */ 00046000 */* */ 00047000 */********************************************************************/ 00048000 * 0276 00049000 * RESPECIFY 0276 00050000 * (RF) RESTRICTED; /* RETURN CODES */ 00051000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00052000 * 0277 00053000 SLR RETC,RETC 0277 00054000 * /*****************************************************************/ 00055000 * /* */ 00056000 * /* CREATE AN RPL */ 00057000 * /* */ 00058000 * /*****************************************************************/ 00059000 * 0278 00060000 * RESPECIFY 0278 00061000 * (R2, /* KEY LENGTH */ 00062000 * R3, /* ->ACB */ 00063000 * R4, /* ->RECORD AREA AND KEY */ 00064000 * R5) RESTRICTED; /* RECORD LENGTH */ 00065000 * R2=SAAULKL; /* KEY LENGTH */ 00066000 LA R2,66 0279 00067000 * R3=ZZ1ACBP; /* ->ACB */ 00068000 L @14,ZZ2ZZ1P(,R9) 0280 00069000 L R3,ZZ1ACBP(,@14) 0280 00070000 * R4=ADDR(SAAU); /* ->RECORD AREA AND KEY */ 00071000 LA R4,SAAU 0281 00072000 * R5=SAAUHRL; /* RECORD LENGTH */ 00073000 LA R5,3072 0282 00074000 * GENERATE DEFS(GENPARML) SETS(GENPARM) CODE; 0283 00075000 *---------------------------------------------------------------------* 00076000 * CREATE AN RPL (SEQUENTIAL READ, NO UPDATE) * 00077000 *---------------------------------------------------------------------* 00078000 GENCB BLK=RPL,WAREA=(S,MYRPL),ACB=(R3),AREA=(R4), *00079000 AREALEN=(R5),ARG=(R4),OPTCD=(GEN,KGE,UPD), *00080000 LENGTH=256,KEYLEN=(R2),MF=(L,GENPARM,GENPARML) 00081000 * GENERATE DEFS(GENPARM) REFS(GENPARML) DATA; 0284 00082000 * RESPECIFY 0285 00083000 * (R2, /* KEY LENGTH */ 00084000 * R3, /* ->ACB */ 00085000 * R4, /* ->RECORD AREA AND KEY */ 00086000 * R5) UNRESTRICTED; /* RECORD LENGTH */ 00087000 * CALL BLSUVSCR(ZZ2,GENPARM); /* CREATE AN RPL */ 00088000 ST R9,@AL00001 0286 00089000 LA @14,GENPARM 0286 00090000 ST @14,@AL00001+4 0286 00091000 L @08,ZZ2BVTP(,R9) 0286 00092000 L @15,BVTVSCRP(,@08) 0286 00093000 LA @01,@AL00001 0286 00094000 BALR @14,@15 0286 00095000 * IF RF^=ZZZFLAGI THEN /* GENCB ERROR */ 00096000 LTR RF,RF 0287 00097000 BZ @RF00287 0287 00098000 * DO; /* GENCB ERROR */ 00099000 * RETC=ZZZFLAGT; /* TERMINATING CONDITION */ 00100000 LA RETC,16 0289 00101000 * GO TO EXITNORL; /* EXIT WITH NO PDL */ 00102000 B EXITNORL 0290 00103000 * END; /* GENCB ERROR */ 00104000 * 0292 00105000 * /*****************************************************************/ 00106000 * /* */ 00107000 * /* PARSE COMMAND */ 00108000 * /* */ 00109000 * /*****************************************************************/ 00110000 * 0292 00111000 * DO; /* BLSRPARS MF(EXECUTE,PX) */ 00112000 @RF00287 DS 0H 0293 00113000 * DO; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00114000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00115000 * TE,PX) */ 00116000 * DO; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00117000 * T(EXITRLSA,)MF(EXECUTE,PX) */ 00118000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00119000 ST R9,@AL00001 0295 00120000 L @14,PCPTR 0295 00121000 ST @14,@AL00001+4 0295 00122000 LA @14,PDAPTR 0295 00123000 ST @14,@AL00001+8 0295 00124000 L @08,ZZ2BVTP(,R9) 0295 00125000 L @15,BVTPARIP(,@08) 0295 00126000 LA @01,@AL00001 0295 00127000 BALR @14,@15 0295 00128000 * RESPECIFY 0296 00129000 * (GPR15F) RESTRICTED; 0296 00130000 * IF GPR15F^=ZZZFLAGI THEN 0297 00131000 * 0297 00132000 LTR GPR15F,GPR15F 0297 00133000 BZ @RF00297 0297 00134000 * /*********************************************************/ 00135000 * /* */ 00136000 * /* UNABLE TO PARSE */ 00137000 * /* */ 00138000 * /*********************************************************/ 00139000 * 0298 00140000 * DO; /* UNABLE TO PARSE */ 00141000 * RETC=GPR15F; /* RETURN CODE */ 00142000 LR RETC,GPR15F 0299 00143000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00144000 B EXITNORL 0300 00145000 * END; 0301 00146000 * RESPECIFY 0302 00147000 * (GPR15F) UNRESTRICTED; 0302 00148000 @RF00297 DS 0H 0303 00149000 * RESPECIFY 0303 00150000 * (PDRPTR) RESTRICTED; 0303 00151000 * PDRPTR=PDAPTR; /* ->PDL */ 00152000 L PDRPTR,PDAPTR 0304 00153000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0305 00154000 USING PD,PDRPTR 00155000 * IF PXTEST=PXTEST1 THEN 0306 00156000 CLC PXTEST(2),@CH00044 0306 00157000 BNE @RF00306 0306 00158000 * ZZ2AFX=ZZZ1; /* TEST */ 00159000 OI ZZ2AFX(R9),B'10000000' 0307 00160000 * ELSE 0308 00161000 * IF PXTEST=PXTEST0 THEN 0308 00162000 B @RC00306 0308 00163000 @RF00306 CLC PXTEST(2),@CH00069 0308 00164000 BNE @RF00308 0308 00165000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00166000 NI ZZ2AFX(R9),B'01111111' 0309 00167000 * END; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00168000 * T(EXITRLSA,)MF(EXECUTE,PX) */ 00169000 @RF00308 DS 0H 0310 00170000 @RC00306 DS 0H 0311 00171000 * END; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00172000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00173000 * TE,PX) */ 00174000 * END; /* BLSRPARS MF(EXECUTE,PX) */ 00175000 * 0313 00176000 * /*****************************************************************/ 00177000 * /* */ 00178000 * /* BLSRSASI COMMON SEGMENT COMMAND PROCESSING */ 00179000 * /* */ 00180000 * /*****************************************************************/ 00181000 * 0313 00182000 * ESAU(1:ESAULRL)=ESCO(1:ESAULRL);/* INITIALIZE ES RECORD */ 00183000 MVC ESAU(182),ESCO 0313 00184000 * SAAU(1:SAAULRL)=SACO(1:SAAULRL);/* INITIALIZE SA RECORD */ 00185000 MVC SAAU(256),SACO 0314 00186000 * DRDX=ZZ6DRDX; /* CURRENT DUMP INDEX */ 00187000 L @14,ZZ2AZZ6P(,R9) 0315 00188000 L DRDX,ZZ6DRDX(,@14) 0315 00189000 * ESAURDX=DRDX; /* CURRENT DUMP */ 00190000 ST DRDX,ESAURDX 0316 00191000 * SAAURDX=DRDX; /* CURRENT DUMP */ 00192000 ST DRDX,SAAURDX 0317 00193000 * SAAUDTY='00'X; /* LOWEST DATA TYPE POSSIBLE */ 00194000 MVI SAAUDTY,X'00' 0318 00195000 * P1=0; /* ->FIRST ADDRESS SUPPORTED */ 00196000 SLR P1,P1 0319 00197000 * P9=ZZZP31MX; /* ->FINAL ADDRESS SUPPORTED */ 00198000 L P9,@CF00124 0320 00199000 * IF PDRANGE=PDRANGE1| /* RANGE KEYWORD SPECIFIED */ 00200000 * PXA1^=0|PXA2^=0 /* DESCRIPTIVE KEYWORDS */ 00201000 * THEN 0321 00202000 * 0321 00203000 CLC PDRANGE(2),@CH00044 0321 00204000 BE @RT00321 0321 00205000 SLR @14,@14 0321 00206000 CH @14,PXA1 0321 00207000 BNE @RT00321 0321 00208000 CH @14,PXA2 0321 00209000 BE @RF00321 0321 00210000 @RT00321 DS 0H 0322 00211000 * /***************************************************************/ 00212000 * /* */ 00213000 * /* PROCESS RANGE OF ADDRESSES IN A SINGLE MEMORY */ 00214000 * /* */ 00215000 * /***************************************************************/ 00216000 * 0322 00217000 * DO; /* MAP ADDRESS RANGE */ 00218000 * IF PDRANGE=PDRANGE1 THEN 0323 00219000 * 0323 00220000 CLC PDRANGE(2),@CH00044 0323 00221000 BNE @RF00323 0323 00222000 * /***********************************************************/ 00223000 * /* */ 00224000 * /* EXPLICIT RANGE OF ADDRESSES */ 00225000 * /* */ 00226000 * /***********************************************************/ 00227000 * 0324 00228000 * DO; /* EXPLICIT RANGE */ 00229000 * CALL BLSRADDR(ZZ2,ESAU,PD,PXAO,PDAD);/* PROCESS ADDRESS */ 00230000 ST R9,@AL00001 0325 00231000 LA @14,ESAU 0325 00232000 ST @14,@AL00001+4 0325 00233000 LA @14,PD 0325 00234000 ST @14,@AL00001+8 0325 00235000 LA @14,PXAO 0325 00236000 ST @14,@AL00001+12 0325 00237000 LA @14,PDAD 0325 00238000 ST @14,@AL00001+16 0325 00239000 L @06,ZZ2RVTP(,R9) 0325 00240000 L @15,RVTADDRP(,@06) 0325 00241000 LA @01,@AL00001 0325 00242000 BALR @14,@15 0325 00243000 * P1=ESAULAD+ESAUDOF; /* ->FIRST ADDRESS OF INTEREST */ 00244000 L P1,ESAULAD 0326 00245000 AL P1,ESAUDOF 0326 00246000 * P9=P1+ESAUDLE*MAX(ESAUDIM,1)-1;/* ->FINAL ADDRESS OF 0327 00247000 * INTEREST */ 00248000 L @01,ESAUDIM 0327 00249000 LA P9,1 0327 00250000 CLR @01,P9 0327 00251000 BNL *+6 00252000 LR @01,P9 0327 00253000 M @00,ESAUDLE 0327 00254000 ALR @01,P1 0327 00255000 BCTR @01,0 0327 00256000 LR P9,@01 0327 00257000 * ESAUSYM=ESCOSYM; /* NO SYMBOL */ 00258000 MVC ESAUSYM(31),ESCOSYM 0328 00259000 * ESAURL=0; /* NO REMARK */ 00260000 SLR @14,@14 0329 00261000 STH @14,ESAURL 0329 00262000 * END; 0330 00263000 * ELSE 0331 00264000 * 0331 00265000 * /***********************************************************/ 00266000 * /* */ 00267000 * /* DEFAULT RANGE (ENTIRE ADDRESS SPACE) */ 00268000 * /* */ 00269000 * /***********************************************************/ 00270000 * 0331 00271000 * CALL BLSRADD2(ZZ2,ESAU,PD,PXAO);/* GENERATE ADDRESS SPACE */ 00272000 B @RC00323 0331 00273000 @RF00323 ST R9,@AL00001 0331 00274000 LA @14,ESAU 0331 00275000 ST @14,@AL00001+4 0331 00276000 LA @14,PD 0331 00277000 ST @14,@AL00001+8 0331 00278000 LA @14,PXAO 0331 00279000 ST @14,@AL00001+12 0331 00280000 L @06,ZZ2RVTP(,R9) 0331 00281000 L @15,RVTADD2P(,@06) 0331 00282000 LA @01,@AL00001 0331 00283000 BALR @14,@15 0331 00284000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00285000 @RC00323 CR RETC,RF 0332 00286000 BNL *+6 00287000 LR RETC,RF 0332 00288000 * IF RETC>ZZZFLAGE THEN /* SERIOUS CONDITION */ 00289000 C RETC,@CF00052 0333 00290000 BH @RT00333 0333 00291000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00292000 * ASAU=ESAUAS; /* ONLY INTERESTING ADDRESS SPACE*/ 00293000 MVC ASAU(16),ESAUAS 0335 00294000 * END; 0336 00295000 * ELSE 0337 00296000 * ASAUT='FFFF'X; /* FINAL ADDRESS SPACE POSSIBLE */ 00297000 B @RC00321 0337 00298000 @RF00321 MVC ASAUT(2),@CB00139 0337 00299000 * 0338 00300000 * /*****************************************************************/ 00301000 * /* */ 00302000 * /* POINT TO FIRST MAP RECORD IN RANGE (IF ANY) */ 00303000 * /* */ 00304000 * /*****************************************************************/ 00305000 * 0338 00306000 * SAAUAS=ESAUAS; /* INTERESTING ADDRESS SPACE */ 00307000 @RC00321 MVC SAAUAS(16),ESAUAS 0338 00308000 * SAAULAD=P1; /* ->FIRST ADDRESS OF INTEREST */ 00309000 ST P1,SAAULAD 0339 00310000 * CALL BLSUVSPO(ZZ2,MYRPL); /* POINT TO INTERESTING RECORD */ 00311000 ST R9,@AL00001 0340 00312000 LA @14,MYRPL 0340 00313000 ST @14,@AL00001+4 0340 00314000 L @06,ZZ2BVTP(,R9) 0340 00315000 L @15,BVTVSPOP(,@06) 0340 00316000 LA @01,@AL00001 0340 00317000 BALR @14,@15 0340 00318000 * IF RF^=ZZZFLAGI THEN 0341 00319000 LTR RF,RF 0341 00320000 BZ @RF00341 0341 00321000 * DO; /* POINT ERROR */ 00322000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00323000 CR RETC,RF 0343 00324000 BNL *+6 00325000 LR RETC,RF 0343 00326000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00327000 B EXITRLSA 0344 00328000 * END; /* POINT ERROR */ 00329000 * 0346 00330000 * /*****************************************************************/ 00331000 * /* */ 00332000 * /* PROCESS ALL ADDRESS RECORDS IN RANGE */ 00333000 * /* */ 00334000 * /*****************************************************************/ 00335000 * 0346 00336000 * DO /* PROCESS SA RECORD(S) */ 00337000 * WHILE(ZZ1EVEP='0'B); /* UNTIL ATTENTION POSTED */ 00338000 * 0346 00339000 @RF00341 B @DE00346 0346 00340000 @DL00346 DS 0H 0347 00341000 * /***************************************************************/ 00342000 * /* */ 00343000 * /* READ A RECORD */ 00344000 * /* */ 00345000 * /***************************************************************/ 00346000 * 0347 00347000 * CALL BLSUVSGU(ZZ2,MYRPL); /* RETRIEVE RECORD */ 00348000 ST R9,@AL00001 0347 00349000 LA @14,MYRPL 0347 00350000 ST @14,@AL00001+4 0347 00351000 L @06,ZZ2BVTP(,R9) 0347 00352000 L @15,BVTVSGUP(,@06) 0347 00353000 LA @01,@AL00001 0347 00354000 BALR @14,@15 0347 00355000 * IF RF^=ZZZFLAGI THEN /* GET ERROR */ 00356000 LTR RF,RF 0348 00357000 BZ @RF00348 0348 00358000 * DO; /* GET ERROR */ 00359000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00360000 CR RETC,RF 0350 00361000 BNL *+6 00362000 LR RETC,RF 0350 00363000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00364000 B EXITRLSA 0351 00365000 * END; /* GET ERROR */ 00366000 * 0352 00367000 * /***************************************************************/ 00368000 * /* */ 00369000 * /* MAKE SURE IT IS A MAP RECORD IN THE RANGE */ 00370000 * /* */ 00371000 * /***************************************************************/ 00372000 * 0353 00373000 * IF SAAURID^=SACORID| /* NOT AN SA RECORD */ 00374000 * SAAURDX^=DRDX| /* NOT CURRENT DUMP */ 00375000 * SAAUAS>ASAU| /* PAST INTERESTING ADDRESS SPACE*/ 00376000 * SAAULAD>P9 /* PAST INTERESTING ADDRESSES */ 00377000 * THEN 0353 00378000 @RF00348 CLC SAAURID(2),SACORID 0353 00379000 BNE @RT00353 0353 00380000 CL DRDX,SAAURDX 0353 00381000 BNE @RT00353 0353 00382000 CLC SAAUAS(16),ASAU 0353 00383000 BH @RT00353 0353 00384000 CL P9,SAAULAD 0353 00385000 BL @RT00353 0353 00386000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00387000 * 0354 00388000 * /***************************************************************/ 00389000 * /* */ 00390000 * /* ERASE MAP RECORD */ 00391000 * /* */ 00392000 * /***************************************************************/ 00393000 * 0355 00394000 * CALL BLSUVSER(ZZ2,MYRPL); /* ERASE DESIGNATED RECORD */ 00395000 ST R9,@AL00001 0355 00396000 LA @14,MYRPL 0355 00397000 ST @14,@AL00001+4 0355 00398000 L @06,ZZ2BVTP(,R9) 0355 00399000 L @15,BVTVSERP(,@06) 0355 00400000 LA @01,@AL00001 0355 00401000 BALR @14,@15 0355 00402000 * IF RF^=ZZZFLAGI THEN 0356 00403000 LTR RF,RF 0356 00404000 BZ @RF00356 0356 00405000 * DO; /* ERASE ERROR */ 00406000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00407000 CR RETC,RF 0358 00408000 BNL *+6 00409000 LR RETC,RF 0358 00410000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00411000 B EXITRLSA 0359 00412000 * END; /* ERASE ERROR */ 00413000 * RECCOUNT=RECCOUNT+1; /* RECORDS ERASED */ 00414000 @RF00356 LA @14,1 0361 00415000 AL @14,RECCOUNT 0361 00416000 ST @14,RECCOUNT 0361 00417000 * END; /* PROCESS SA RECORD(S) */ 00418000 @DE00346 L @14,ZZ2ZZ1P(,R9) 0362 00419000 TM ZZ1EVEP(@14),B'01000000' 0362 00420000 BZ @DL00346 0362 00421000 * 0363 00422000 * /*****************************************************************/ 00423000 * /* */ 00424000 * /* EXIT */ 00425000 * /* */ 00426000 * /*****************************************************************/ 00427000 * 0363 00428000 *EXITRLSA: /* EXIT WITH PDL */ 00429000 * CALL BLSUVSEN(ZZ2,MYRPL); /* TERMINATE VSAM REQUEST STRING */ 00430000 EXITRLSA ST R9,@AL00001 0363 00431000 LA @14,MYRPL 0363 00432000 ST @14,@AL00001+4 0363 00433000 L @06,ZZ2BVTP(,R9) 0363 00434000 L @15,BVTVSENP(,@06) 0363 00435000 LA @01,@AL00001 0363 00436000 BALR @14,@15 0363 00437000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00438000 CR RETC,RF 0364 00439000 BNL *+6 00440000 LR RETC,RF 0364 00441000 * M114B=M114S; /* MESSAGE M114 LITERAL TEXT */ 00442000 MVC M114B(37),M114S 0365 00443000 * DO; /* BLRCNVUC(RECCOUNT) 0366 00444000 * FROM(UNSIGNED BINARY)TO(CHARAC 00445000 * TER)SET(M114BT2)PATTERN('40202 00446000 * 02020202120'X)OPTIONS(PATTERN 00447000 * IN PLACE)REMARK(NUMBER OF 0366 00448000 * RECORDS PROCESSED) */ 00449000 * 0366 00450000 * /***************************************************************/ 00451000 * /* */ 00452000 * /* NUMBER OF RECORDS PROCESSED */ 00453000 * /* */ 00454000 * /***************************************************************/ 00455000 * 0367 00456000 * CVD(RECCOUNT,PACKED); /* UNSIGNED BINARY=>PACKED 0367 00457000 * DECIMAL */ 00458000 L @14,RECCOUNT 0367 00459000 CVD @14,PACKED 0367 00460000 * ED(M114BT2,PACKED(33:64)); /* PACKED DECIMAL=>EBCDIC */ 00461000 ED M114BT2(8),PACKED+4 0368 00462000 * END; /* BLRCNVUC(RECCOUNT) 0369 00463000 * FROM(UNSIGNED BINARY)TO(CHARAC 00464000 * TER)SET(M114BT2)PATTERN('40202 00465000 * 02020202120'X)OPTIONS(PATTERN 00466000 * IN PLACE)REMARK(NUMBER OF 0369 00467000 * RECORDS PROCESSED) */ 00468000 * CALL BLSUMPK1(ZZ2,M114B); /* ELIMINATE EXTRANEOUS BLANKS */ 00469000 ST R9,@AL00001 0370 00470000 LA @14,M114B 0370 00471000 ST @14,@AL00001+4 0370 00472000 L @06,ZZ2BVTP(,R9) 0370 00473000 L @15,BVTMPK1P(,@06) 0370 00474000 LA @01,@AL00001 0370 00475000 BALR @14,@15 0370 00476000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00477000 CR RETC,RF 0371 00478000 BNL *+6 00479000 LR RETC,RF 0371 00480000 * CALL BLSUTRMV(ZZ2,M114B); /* TRANSMIT MESSAGE M114 */ 00481000 ST R9,@AL00001 0372 00482000 LA @14,M114B 0372 00483000 ST @14,@AL00001+4 0372 00484000 L @15,ZZ2TRMVP(,R9) 0372 00485000 LA @01,@AL00001 0372 00486000 BALR @14,@15 0372 00487000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00488000 CR RETC,RF 0373 00489000 BNL *+6 00490000 LR RETC,RF 0373 00491000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(EXECUTE,PD) */ 00492000 B @DE00374 0374 00493000 @DL00374 DS 0H 0375 00494000 * PDRPTR=PDAPTR; 0375 00495000 L PDRPTR,PDAPTR 0375 00496000 * PDAPTR=PDXP; 0376 00497000 L @14,PDXP-1(,PDRPTR) 0376 00498000 LA @14,0(,@14) 0376 00499000 ST @14,PDAPTR 0376 00500000 * DO; /* FREEMAIN(R) 0377 00501000 * LV(PDL)SP(1)A(PDDSECT) */ 00502000 * RESPECIFY 0378 00503000 * (GPR01F, 0378 00504000 * GPR00F) RESTRICTED; 0378 00505000 * GPR00F=PDL; /* LENGTH REQUESTED */ 00506000 L GPR00F,PDL-1(,PDRPTR) 0379 00507000 ICM GPR00F,8,@CB01531 0379 00508000 * GPR01F=1; /* SP IN REG 1 */ 00509000 LA GPR01F,1 0380 00510000 * GEN(SLL GPR01F,24) 0381 00511000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0381 00512000 SLL GPR01F,24 00513000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00514000 OR GPR00F,GPR01F 0382 00515000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 00516000 LR GPR01F,PDRPTR 0383 00517000 * SVC(10); /* R-FORM OF GETMAIN */ 00518000 SVC 10 0384 00519000 * RESPECIFY 0385 00520000 * (GPR01F, 0385 00521000 * GPR00F) UNRESTRICTED; 0385 00522000 * END; /* FREEMAIN(R) 0386 00523000 * LV(PDL)SP(1)A(PDDSECT) */ 00524000 * END; /* BLRRLSA MF(EXECUTE,PD) */ 00525000 @DE00374 L @14,PDAPTR 0387 00526000 LTR @14,@14 0387 00527000 BNZ @DL00374 0387 00528000 *EXITNORL: /* EXIT WITH NO PDL */ 00529000 * RETURN CODE(RETC); 0388 00530000 * 0388 00531000 EXITNORL L @13,4(,@13) 0388 00532000 L @00,@SIZDATD 0388 00533000 LR @01,@11 0388 00534000 BLSUFRER R,LV=(0),A=(1) 00535000 LR @15,@07 0388 00536000 L @14,12(,@13) 0388 00537000 LM @00,@12,20(@13) 0388 00538000 BR @14 0388 00539000 */*BLSRPEND--DEBUGGING MODULE */ 00540000 */*BLSUPEND--MVS IPCS MODULE */ 00541000 * 0389 00542000 * DECLARE /* DATA FOR AHB MACROS */ 00543000 * PACKED BIT(64) BOUNDARY(DWORD);/* DATA CONVERSION WORK AREA */ 00544000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00545000 * GPR00F FIXED(31) REG(0), 0390 00546000 * GPR01F FIXED(31) REG(1), 0390 00547000 * GPR15F FIXED(31) REG(15); 0390 00548000 * DECLARE /* COMMON VARIABLES */ 00549000 * I256C CHAR(256) BASED, 0391 00550000 * I031F FIXED(31) BASED, 0391 00551000 * I031P PTR(31) BASED, 0391 00552000 * I015F FIXED(15) BASED, 0391 00553000 * I015P PTR(15) BASED, 0391 00554000 * I008P PTR(8) BASED, 0391 00555000 * I001C CHAR(1) BASED; 0391 00556000 * GENERATE NODEFS NOREFS DATA; 0392 00557000 * END BLSRSADE /* BLRPEND(BLSRSADE) */ 00558000 * 0393 00559000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00560000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 00561000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00562000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00563000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00564000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00565000 */*%INCLUDE SYSLIB (IKJECT ) */ 00566000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00567000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00568000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00569000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00570000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00571000 */*%INCLUDE SYSLIB (BLSRSASD) */ 00572000 */*%INCLUDE SYSLIB (IFGRPL ) */ 00573000 */*%INCLUDE SYSLIB (IKJEFFGF) */ 00574000 */*%INCLUDE SYSLIB (BLSRSASI) */ 00575000 * 0393 00576000 * ; 0393 00577000 @EL00001 L @13,4(,@13) 0393 00578000 @EF00001 L @00,@SIZDATD 0393 00579000 LR @01,@11 0393 00580000 BLSUFRER R,LV=(0),A=(1) 00581000 @ER00001 LM @14,@12,12(@13) 0393 00582000 BR @14 0393 00583000 @DATA DS 0H 00584000 @CH00044 DC H'1' 00585000 @CH00069 DC H'2' 00586000 @DATD DSECT 00587000 DS 0F 00588000 @SA00001 DS 18F 00589000 @AL00001 DS 5A 00590000 BLSRSADE CSECT 00591000 DS 0F 00592000 @CF00052 DC F'8' 00593000 @CF00124 DC F'2147483647' 00594000 @DATD DSECT 00595000 DS 0D 00596000 PDAPTR DS A 00597000 RECCOUNT DS F 00598000 GFPARMS DS CL44 00599000 ORG GFPARMS 00600000 GFCBPTR DS AL4 00601000 GFRCODE DS FL4 00602000 GF02PTR DS AL4 00603000 GFCALLID DS FL2 00604000 GFBITS DS BL1 00605000 ORG GFBITS 00606000 GFKEYN08 DS BL1 00607000 GFSUBSYS EQU GFBITS+0 00608000 GFWTPSW EQU GFBITS+0 00609000 @NM00082 EQU GFBITS+0 00610000 ORG GFPARMS+15 00611000 @NM00083 DS AL1 00612000 GFCPPLP DS AL4 00613000 GFECBP DS AL4 00614000 GFDSNLEN DS FL2 00615000 GFPGMNL DS FL2 00616000 GFDSNP DS AL4 00617000 GFPGMNP DS AL4 00618000 @NM00084 DS AL4 00619000 @NM00085 DS AL4 00620000 ORG GFPARMS+44 00621000 DS CL4 00622000 ESAU DS CL694 00623000 ORG ESAU 00624000 ESAURID DS CL2 00625000 @NM00086 DS BL6 00626000 @NM00087 DS CL8 00627000 @NM00088 DS BL8 00628000 ESAURDX DS FL4 00629000 ESAUSYM DS CL31 00630000 ESAUELK DS 0C 00631000 ESAURV1 DS CL1 00632000 ESAUAS DS CL16 00633000 ORG ESAUAS 00634000 ESAUAS0 DS 0C 00635000 ESAUAST DS CL2 00636000 @NM00089 DS BL2 00637000 ESAUAS1 DS FL4 00638000 ESAUAS2 DS FL4 00639000 @NM00090 DS BL4 00640000 ESAUAS9 DS 0C 00641000 ORG ESAU+76 00642000 ESAULAD DS AL4 00643000 ESAUD DS CL60 00644000 ORG ESAUD 00645000 ESAUD00 DS 0C 00646000 ESAUDOF DS FL4 00647000 ESAUDLE DS FL4 00648000 ESAUDOB DS FL1 00649000 ESAUDLB DS FL1 00650000 ESAUDT DS CL34 00651000 ORG ESAUDT 00652000 ESAUDT0 DS 0C 00653000 ESAUDTY DS CL1 00654000 @NM00091 DS BL1 00655000 ESAUDTD DS CL31 00656000 ESAUDTE DS CL1 00657000 ESAUDT9 DS 0C 00658000 ORG ESAUD+44 00659000 ESAUDIM DS FL4 00660000 ESAUDIL DS FL4 00661000 ESAUDF DS BL4 00662000 ORG ESAUDF 00663000 ESAUDFA DS BL1 00664000 @NM00092 EQU ESAUDF+0 00665000 ORG ESAUD+56 00666000 @NM00093 DS BL4 00667000 ESAUD99 DS 0C 00668000 ORG ESAU+140 00669000 ESAUMAD DS AL4 00670000 @NM00094 DS BL16 00671000 ESAUKEY DS BL1 00672000 ESAUF DS BL3 00673000 ORG ESAUF 00674000 ESAUFS DS BL1 00675000 ORG ESAUFS 00676000 ESAUFSC DS BL1 00677000 ESAUFS2 EQU ESAUFS+0 00678000 ESAUFSM EQU ESAUFS+0 00679000 ESAUFSA EQU ESAUFS+0 00680000 ESAUFSP EQU ESAUFS+0 00681000 ESAUFSR EQU ESAUFS+0 00682000 ESAUFSX EQU ESAUFS+0 00683000 ESAUFSS EQU ESAUFS+0 00684000 ORG ESAUF+1 00685000 ESAUFC DS BL1 00686000 ORG ESAUFC 00687000 ESAUFCD DS BL1 00688000 @NM00095 EQU ESAUFC+0 00689000 ORG ESAUF+2 00690000 @NM00096 DS BL1 00691000 ORG ESAU+164 00692000 ESAUABS DS FL4 00693000 @NM00097 DS BL12 00694000 ESAUR DS CL514 00695000 ORG ESAUR 00696000 ESAURL DS FL2 00697000 ESAURT DS CL512 00698000 ORG ESAURT 00699000 ESAURT1 DS CL512 00700000 ORG ESAU+694 00701000 ESAU999 DS 0C 00702000 ORG ESAU+694 00703000 DS CL2 00704000 ASAU DS CL16 00705000 ORG ASAU 00706000 ASAU0 DS 0C 00707000 ASAUT DS CL2 00708000 @NM00122 DS BL2 00709000 ASAU1 DS FL4 00710000 ASAU2 DS FL4 00711000 @NM00123 DS BL4 00712000 ASAU9 DS 0C 00713000 ORG ASAU+16 00714000 SAAU DS CL3072 00715000 ORG SAAU 00716000 SAAURID DS CL2 00717000 @NM00124 DS BL6 00718000 SAAURDX DS FL4 00719000 SAAUAS DS CL16 00720000 ORG SAAUAS 00721000 SAAUAS0 DS 0C 00722000 SAAUAST DS CL2 00723000 @NM00125 DS BL2 00724000 SAAUAS1 DS FL4 00725000 SAAUAS2 DS FL4 00726000 @NM00126 DS BL4 00727000 SAAUAS9 DS 0C 00728000 ORG SAAU+28 00729000 SAAULAD DS AL4 00730000 SAAUDT DS CL34 00731000 ORG SAAUDT 00732000 SAAUDT0 DS 0C 00733000 SAAUDTY DS CL1 00734000 @NM00127 DS BL1 00735000 SAAUDTD DS CL31 00736000 SAAUDTE DS CL1 00737000 SAAUDT9 DS 0C 00738000 ORG SAAU+66 00739000 SAAUELK DS 0C 00740000 @NM00128 DS BL2 00741000 SAAUF DS CL60 00742000 ORG SAAUF 00743000 SAAUF00 DS 0C 00744000 SAAUFOF DS FL4 00745000 SAAUFLE DS FL4 00746000 SAAUFOB DS FL1 00747000 SAAUFLB DS FL1 00748000 SAAUFT DS CL34 00749000 ORG SAAUFT 00750000 SAAUFT0 DS 0C 00751000 SAAUFTY DS CL1 00752000 @NM00129 DS BL1 00753000 SAAUFTD DS CL31 00754000 SAAUFTE DS CL1 00755000 SAAUFT9 DS 0C 00756000 ORG SAAUF+44 00757000 SAAUFIM DS FL4 00758000 SAAUFIL DS FL4 00759000 SAAUFF DS BL4 00760000 ORG SAAUFF 00761000 SAAUFFA DS BL1 00762000 @NM00130 EQU SAAUFF+0 00763000 ORG SAAUF+56 00764000 @NM00131 DS BL4 00765000 SAAUF99 DS 0C 00766000 ORG SAAU+128 00767000 SAAUSF DS BL8 00768000 ORG SAAUSF 00769000 SAAUSF1 DS BL1 00770000 SAAUSF9 EQU SAAUSF+0 00771000 SAAUSFI EQU SAAUSF+0 00772000 SAAUSFS EQU SAAUSF+0 00773000 @NM00132 EQU SAAUSF+0 00774000 ORG SAAU+136 00775000 SAAUGMT DS BL8 00776000 SAAUPGV DS CL8 00777000 SAAUSRC DS FL1 00778000 @NM00133 DS 101BL1 00779000 SAAUC DS CL2818 00780000 ORG SAAUC 00781000 SAAUCL DS FL2 00782000 SAAUCT DS CL2816 00783000 ORG SAAUCT 00784000 SAAUCT1 DS CL2816 00785000 ORG SAAU+3072 00786000 SAAU999 DS 0C 00787000 ORG SAAU+3072 00788000 MYRPL DS CL256 00789000 M114B DS CL37 00790000 ORG M114B 00791000 M114BL DS FL2 00792000 @NM00157 DS BL2 00793000 M114BT DS CL33 00794000 ORG M114BT 00795000 M114BT1 DS CL10 00796000 M114BT2 DS CL8 00797000 M114BT3 DS CL15 00798000 ORG M114B+37 00799000 DS CL3 00800000 PACKED DS BL8 00801000 BLSRSADE CSECT 00802000 DS 0F 00803000 @SIZDATD DC AL1(0) 00804000 DC AL3(@ENDDATD-@DATD) 00805000 DS 0D 00806000 PCPTR DC AL4(PC) 00807000 @CB00139 DC X'FFFF' 00808000 @CB01531 DC X'00' 00809000 DS CL1 00810000 SACO DS CL256 00811000 ORG SACO 00812000 SACORID DC CL2'SA' 00813000 @NM00134 DC X'000000000000' 00814000 SACORDX DC A(0) 00815000 SACOAS DS CL16 00816000 ORG SACOAS 00817000 SACOAS0 DS 0C 00818000 SACOAST DC CL2' ' 00819000 @NM00135 DC X'0000' 00820000 SACOAS1 DC A(0) 00821000 SACOAS2 DC A(0) 00822000 @NM00136 DC X'00' 00823000 DC XL3'0' 00824000 SACOAS9 DS 0C 00825000 ORG SACO+28 00826000 SACOLAD DC A(0) 00827000 SACODT DS CL34 00828000 ORG SACODT 00829000 SACODT0 DS 0C 00830000 SACODTY DC CL1'U' 00831000 @NM00137 DC X'00' 00832000 SACODTD DC CL31' ' 00833000 SACODTE DC CL1' ' 00834000 SACODT9 DS 0C 00835000 ORG SACO+66 00836000 SACOELK DS 0C 00837000 @NM00138 DC X'00' 00838000 DC XL1'0' 00839000 SACOF DS CL60 00840000 ORG SACOF 00841000 SACOF00 DS 0C 00842000 SACOFOF DC F'0' 00843000 SACOFLE DC A(4) 00844000 SACOFOB DC AL1(0) 00845000 SACOFLB DC AL1(0) 00846000 SACOFT DS CL34 00847000 ORG SACOFT 00848000 SACOFT0 DS 0C 00849000 SACOFTY DC CL1'U' 00850000 @NM00139 DC X'00' 00851000 SACOFTD DC CL31' ' 00852000 SACOFTE DC CL1' ' 00853000 SACOFT9 DS 0C 00854000 ORG SACOF+44 00855000 SACOFIM DC A(0) 00856000 SACOFIL DC F'0' 00857000 SACOFF DC X'00000000' 00858000 ORG SACOFF 00859000 SACOFFA DS BL1 00860000 @NM00140 EQU SACOFF+0 00861000 ORG SACOF+56 00862000 @NM00141 DC X'00' 00863000 DC XL3'0' 00864000 SACOF99 DS 0C 00865000 ORG SACO+128 00866000 SACOSF DC X'00' 00867000 DC XL7'0' 00868000 ORG SACOSF 00869000 SACOSF1 DS BL1 00870000 SACOSF9 EQU SACOSF+0 00871000 SACOSFI EQU SACOSF+0 00872000 SACOSFS EQU SACOSF+0 00873000 @NM00142 EQU SACOSF+0 00874000 ORG SACO+136 00875000 SACOGMT DC X'00' 00876000 DC XL7'0' 00877000 SACOPGV DC CL8' ' 00878000 SACOSRC DC AL1(0) 00879000 @NM00143 DC 101X'00' 00880000 SACOC DS CL2 00881000 ORG SACOC 00882000 SACOCL DC AL2(0) 00883000 SACOCT DS 0C 00884000 ORG SACOCT 00885000 SACOCT1 DS 0C 00886000 ORG SACO+256 00887000 SACO999 DS 0C 00888000 ORG SACO+256 00889000 ESCO DS CL182 00890000 ORG ESCO 00891000 ESCORID DC CL2'ES' 00892000 @NM00144 DC X'000000000000' 00893000 @NM00145 DC CL8' ' 00894000 @NM00146 DC X'00' 00895000 DC XL7'0' 00896000 ESCORDX DC A(0) 00897000 ESCOSYM DC CL31' ' 00898000 ESCOELK DS 0C 00899000 ESCORV1 DC CL1' ' 00900000 ESCOAS DS CL16 00901000 ORG ESCOAS 00902000 ESCOAS0 DS 0C 00903000 ESCOAST DC CL2' ' 00904000 @NM00147 DC X'0000' 00905000 ESCOAS1 DC A(0) 00906000 ESCOAS2 DC A(0) 00907000 @NM00148 DC X'00' 00908000 DC XL3'0' 00909000 ESCOAS9 DS 0C 00910000 ORG ESCO+76 00911000 ESCOLAD DC A(0) 00912000 ESCOD DS CL60 00913000 ORG ESCOD 00914000 ESCOD00 DS 0C 00915000 ESCODOF DC F'0' 00916000 ESCODLE DC A(4) 00917000 ESCODOB DC AL1(0) 00918000 ESCODLB DC AL1(0) 00919000 ESCODT DS CL34 00920000 ORG ESCODT 00921000 ESCODT0 DS 0C 00922000 ESCODTY DC CL1'U' 00923000 @NM00149 DC X'00' 00924000 ESCODTD DC CL31' ' 00925000 ESCODTE DC CL1' ' 00926000 ESCODT9 DS 0C 00927000 ORG ESCOD+44 00928000 ESCODIM DC A(0) 00929000 ESCODIL DC F'0' 00930000 ESCODF DC X'00000000' 00931000 ORG ESCODF 00932000 ESCODFA DS BL1 00933000 @NM00150 EQU ESCODF+0 00934000 ORG ESCOD+56 00935000 @NM00151 DC X'00' 00936000 DC XL3'0' 00937000 ESCOD99 DS 0C 00938000 ORG ESCO+140 00939000 ESCOMAD DC A(0) 00940000 @NM00152 DC X'00' 00941000 DC XL15'0' 00942000 ESCOKEY DS BL1 00943000 ESCOF DC X'00' 00944000 DC XL2'0' 00945000 ORG ESCOF 00946000 ESCOFS DS BL1 00947000 ORG ESCOFS 00948000 ESCOFSC DS BL1 00949000 ESCOFS2 EQU ESCOFS+0 00950000 ESCOFSM EQU ESCOFS+0 00951000 ESCOFSA EQU ESCOFS+0 00952000 ESCOFSP EQU ESCOFS+0 00953000 ESCOFSR EQU ESCOFS+0 00954000 ESCOFSX EQU ESCOFS+0 00955000 ESCOFSS EQU ESCOFS+0 00956000 ORG ESCOF+1 00957000 ESCOFC DS BL1 00958000 ORG ESCOFC 00959000 ESCOFCD DS BL1 00960000 @NM00153 EQU ESCOFC+0 00961000 ORG ESCOF+2 00962000 @NM00154 DS BL1 00963000 ORG ESCO+164 00964000 ESCOABS DC A(0) 00965000 @NM00155 DC X'00' 00966000 DC XL11'0' 00967000 ESCOR DS CL2 00968000 ORG ESCOR 00969000 ESCORL DC AL2(0) 00970000 ESCORT DS 0C 00971000 ORG ESCORT 00972000 ESCORT1 DS 0C 00973000 ORG ESCO+182 00974000 ESCO999 DS 0C 00975000 ORG ESCO+182 00976000 M114S DS CL37 00977000 ORG M114S 00978000 M114SL DC AL2(37) 00979000 @NM00156 DC X'0000' 00980000 M114ST DS CL33 00981000 ORG M114ST 00982000 M114ST1 DC CL10'BLS18114I ' 00983000 M114ST2 DC X'4020202020202120' 00984000 M114ST3 DC CL15' RECORDS ERASED' 00985000 ORG M114S+37 00986000 DS CL1 00987000 PXAO DC AL2(0) 00988000 DC AL2(PXA1-PD) 00989000 DC AL2(PXA2-PD) 00990000 DC AL2(0) 00991000 DC AL2(0) 00992000 DC AL2(PXCPU-PD) 00993000 DC AL2(0) 00994000 DC AL2(PXASI-PD) 00995000 DC AL2(0) 00996000 DC AL2(0) 00997000 DC AL2(PXDTYPE-PD) 00998000 DC AL2(0) 00999000 DC AL2(PXLENGTH-PD) 01000000 DC AL2(PXMULT-PD) 01001000 DC AL2(PXRMK-PD) 01002000 DC AL2(PXDTD-PD) 01003000 DC AL2(PXLEN-PD) 01004000 DC AL2(PXDIM-PD) 01005000 DC AL2(PXREM-PD) 01006000 DC AL2(PXNTRY-PD) 01007000 DC AL2(PXNTR-PD) 01008000 @DATD DSECT 01009000 SPACE 2 01010000 *********************************************************************** 01011000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01012000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01013000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01014000 *********************************************************************** 01015000 SPACE 01016000 BLSRSADE CSECT 01017000 ORG 01018000 DS 0D 01019000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRSADE+19)/20+7)/8)CL8'BLSRSADE' 01020000 @DATD DSECT 01021000 DS 0H 01022000 @DATD DSECT 01023000 SPACE 2 01024000 *********************************************************************** 01025000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 01026000 *********************************************************************** 01027000 SPACE 01028000 BLSRSADE CSECT 01029000 PC IKJPARM DSECT=PD 01030000 @DATD DSECT 01031000 BLSRSADE CSECT 01032000 PDRANGE IKJKEYWD 01033000 @DATD DSECT 01034000 BLSRSADE CSECT 01035000 IKJNAME 'RANGE',SUBFLD=PDSUBFAD 01036000 @DATD DSECT 01037000 BLSRSADE CSECT 01038000 PXA1 IKJKEYWD 01039000 @DATD DSECT 01040000 BLSRSADE CSECT 01041000 IKJNAME 'ABSOLUTE' 01042000 @DATD DSECT 01043000 BLSRSADE CSECT 01044000 IKJNAME 'CPU',SUBFLD=PXSUBFB 01045000 @DATD DSECT 01046000 BLSRSADE CSECT 01047000 IKJNAME 'HEADER' 01048000 @DATD DSECT 01049000 BLSRSADE CSECT 01050000 PXA2 IKJKEYWD 01051000 @DATD DSECT 01052000 BLSRSADE CSECT 01053000 IKJNAME 'ASID',SUBFLD=PXSUBFE 01054000 @DATD DSECT 01055000 BLSRSADE CSECT 01056000 IKJNAME 'REAL' 01057000 @DATD DSECT 01058000 BLSRSADE CSECT 01059000 IKJNAME 'STATUS' 01060000 @DATD DSECT 01061000 BLSRSADE CSECT 01062000 PXDTYPE IKJKEYWD 01063000 @DATD DSECT 01064000 BLSRSADE CSECT 01065000 IKJNAME 'AREA',SUBFLD=PXSUBFG 01066000 @DATD DSECT 01067000 BLSRSADE CSECT 01068000 IKJNAME 'B',ALIAS=('BIT','HEXADECIMAL','X') 01069000 @DATD DSECT 01070000 BLSRSADE CSECT 01071000 IKJNAME 'C',ALIAS=('CHARACTER') 01072000 @DATD DSECT 01073000 BLSRSADE CSECT 01074000 IKJNAME 'MODULE',SUBFLD=PXSUBFG 01075000 @DATD DSECT 01076000 BLSRSADE CSECT 01077000 IKJNAME 'POINTER',ALIAS=('PTR') 01078000 @DATD DSECT 01079000 BLSRSADE CSECT 01080000 IKJNAME 'F',ALIAS=('SIGNED') 01081000 @DATD DSECT 01082000 BLSRSADE CSECT 01083000 IKJNAME 'STRUCTURE',SUBFLD=PXSUBFG 01084000 @DATD DSECT 01085000 BLSRSADE CSECT 01086000 IKJNAME 'UNSIGNED' 01087000 @DATD DSECT 01088000 BLSRSADE CSECT 01089000 PXLENGTH IKJKEYWD 01090000 @DATD DSECT 01091000 BLSRSADE CSECT 01092000 IKJNAME 'LENGTH',SUBFLD=PXSUBFL 01093000 @DATD DSECT 01094000 BLSRSADE CSECT 01095000 PXMULT IKJKEYWD 01096000 @DATD DSECT 01097000 BLSRSADE CSECT 01098000 IKJNAME 'DIMENSION',ALIAS=('MULTIPLE'),SUBFLD=PXSUBFI 01099000 @DATD DSECT 01100000 BLSRSADE CSECT 01101000 IKJNAME 'SCALAR' 01102000 @DATD DSECT 01103000 BLSRSADE CSECT 01104000 PXNTRY IKJKEYWD 01105000 @DATD DSECT 01106000 BLSRSADE CSECT 01107000 IKJNAME 'ENTRY',ALIAS=('ENTRIES'),SUBFLD=PXSUBFN 01108000 @DATD DSECT 01109000 BLSRSADE CSECT 01110000 PXRMK IKJKEYWD 01111000 @DATD DSECT 01112000 BLSRSADE CSECT 01113000 IKJNAME 'REMARK',SUBFLD=PXSUBFJ 01114000 @DATD DSECT 01115000 BLSRSADE CSECT 01116000 IKJNAME 'NOREMARK' 01117000 @DATD DSECT 01118000 BLSRSADE CSECT 01119000 PXTEST IKJKEYWD 01120000 @DATD DSECT 01121000 BLSRSADE CSECT 01122000 IKJNAME 'TEST' 01123000 @DATD DSECT 01124000 BLSRSADE CSECT 01125000 IKJNAME 'NOTEST' 01126000 @DATD DSECT 01127000 BLSRSADE CSECT 01128000 SPACE 01129000 PXSUBFG IKJSUBF 01130000 @DATD DSECT 01131000 BLSRSADE CSECT 01132000 PXDTD IKJIDENT 'DATA NAME',FIRST=ALPHA,MAXLNTH=31,OTHER=ALPHANUM 01133000 @DATD DSECT 01134000 BLSRSADE CSECT 01135000 SPACE 01136000 PXSUBFL IKJSUBF 01137000 @DATD DSECT 01138000 BLSRSADE CSECT 01139000 PXLEN IKJIDENT 'LENGTH',INTEG,PROMPT='LENGTH',VALIDCK=BLSUVP31 01140000 @DATD DSECT 01141000 BLSRSADE CSECT 01142000 SPACE 01143000 PXSUBFI IKJSUBF 01144000 @DATD DSECT 01145000 BLSRSADE CSECT 01146000 PXDIM IKJIDENT 'DIMENSION',INTEG,PROMPT='DIMENSION',VALIDCK=BLSUVP31 01147000 @DATD DSECT 01148000 BLSRSADE CSECT 01149000 SPACE 01150000 PXSUBFN IKJSUBF 01151000 @DATD DSECT 01152000 BLSRSADE CSECT 01153000 PXNTR IKJIDENT 'ENTRY(IES)',INTEG,RANGE,PROMPT='ENTRY(IES)',VALIDCK=*01154000 BLSUVP32 01155000 @DATD DSECT 01156000 BLSRSADE CSECT 01157000 SPACE 01158000 PXSUBFJ IKJSUBF 01159000 @DATD DSECT 01160000 BLSRSADE CSECT 01161000 PXREM IKJPOSIT QSTRING,PROMPT='REMARK' 01162000 @DATD DSECT 01163000 BLSRSADE CSECT 01164000 SPACE 01165000 PXSUBFB IKJSUBF 01166000 @DATD DSECT 01167000 BLSRSADE CSECT 01168000 PXCPU IKJIDENT 'CPU ADDRESS',INTEG,PROMPT='CPU ADDRESS',VALIDCK=BLSR*01169000 VPCP 01170000 @DATD DSECT 01171000 BLSRSADE CSECT 01172000 SPACE 01173000 PXSUBFE IKJSUBF 01174000 @DATD DSECT 01175000 BLSRSADE CSECT 01176000 PXASI IKJIDENT 'ASID',INTEG,PROMPT='ASID',VALIDCK=BLSRVPAS 01177000 @DATD DSECT 01178000 BLSRSADE CSECT 01179000 SPACE 01180000 PDSUBFAD IKJSUBF 01181000 @DATD DSECT 01182000 BLSRSADE CSECT 01183000 PDAD IKJPOSIT ADDRESS,,RANGE,PROMPT='RANGE',VALIDCK=BLSRVPAD 01184000 @DATD DSECT 01185000 PD DSECT 01186000 PD99 DS 0C 01187000 BLSRSADE CSECT 01188000 IKJENDP 01189000 SPACE 2 01190000 *********************************************************************** 01191000 * IKJENDP--END SYNTAX DESCRIPTION * 01192000 *********************************************************************** 01193000 SPACE 01194000 @DATD DSECT 01195000 *---------------------------------------------------------------------* 01196000 * RESERVE SPACE FOR THE GENCB PARAMETER LIST * 01197000 *---------------------------------------------------------------------* 01198000 GENPARM DS (GENPARML)CL1 GENCB PARAMETER LIST 01199000 @DATD DSECT 01200000 SPACE 2 01201000 *********************************************************************** 01202000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01203000 *********************************************************************** 01204000 SPACE 01205000 DS 0D 01206000 @DATD DSECT 01207000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01208000 @ENDDATD EQU * 01209000 BLSRSADE CSECT 01210000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01211000 @01 EQU 01 01212000 @02 EQU 02 01213000 @03 EQU 03 01214000 @04 EQU 04 01215000 @05 EQU 05 01216000 @06 EQU 06 01217000 @07 EQU 07 01218000 @08 EQU 08 01219000 @09 EQU 09 01220000 @10 EQU 10 01221000 @11 EQU 11 01222000 @12 EQU 12 01223000 @13 EQU 13 01224000 @14 EQU 14 01225000 @15 EQU 15 01226000 DRDX EQU @02 01227000 P9 EQU @04 01228000 P1 EQU @03 01229000 RETC EQU @07 01230000 R9 EQU @09 01231000 R0 EQU @00 01232000 R1 EQU @01 01233000 R2 EQU @02 01234000 R3 EQU @03 01235000 R4 EQU @04 01236000 R5 EQU @05 01237000 RB EQU @11 01238000 RD EQU @13 01239000 RE EQU @14 01240000 RF EQU @15 01241000 PDRPTR EQU @08 01242000 GPR15F EQU @15 01243000 GPR01F EQU @01 01244000 GPR00F EQU @00 01245000 RA EQU @10 01246000 RC EQU @12 01247000 R6 EQU @06 01248000 R7 EQU @07 01249000 R8 EQU @08 01250000 ZZ1 EQU 0 01251000 ZZ1ACBP EQU ZZ1+28 01252000 ZZ1ATTN EQU ZZ1+360 01253000 ZZ1EVE EQU ZZ1ATTN+4 01254000 ZZ1EVEP EQU ZZ1EVE 01255000 ZZ1F EQU ZZ1+368 01256000 ZZ1N EQU ZZ1+1116 01257000 ZZ2 EQU 0 01258000 ZZ2AMD EQU ZZ2 01259000 @NM00013 EQU ZZ2AMD+7 01260000 ZZ2PRT EQU ZZ2+138 01261000 ZZ2PRTT EQU ZZ2PRT+4 01262000 ZZ2PRTT1 EQU ZZ2PRTT+1 01263000 ZZ2A EQU ZZ2+272 01264000 ZZ2AF EQU ZZ2A+16 01265000 ZZ2AFX EQU ZZ2AF+5 01266000 ZZ2APID EQU ZZ2A+64 01267000 ZZ2AD EQU ZZ2A+74 01268000 ZZ2ADD EQU ZZ2AD 01269000 ZZ2ADDT EQU ZZ2ADD+2 01270000 ZZ2ADM EQU ZZ2AD+46 01271000 ZZ2ADMT EQU ZZ2ADM+2 01272000 ZZ2ADP EQU ZZ2AD+56 01273000 ZZ2ADPT EQU ZZ2ADP+2 01274000 ZZ2AZZ6P EQU ZZ2A+140 01275000 ZZ2AQAS EQU ZZ2A+144 01276000 ZZ2AQD EQU ZZ2A+160 01277000 ZZ2AQDT EQU ZZ2AQD+10 01278000 ZZ2AQDF EQU ZZ2AQD+52 01279000 ZZ2STG EQU ZZ2+960 01280000 ZZ2ALLOP EQU ZZ2+992 01281000 ZZ2FREEP EQU ZZ2+996 01282000 ZZ2FF19P EQU ZZ2+1000 01283000 ZZ2FRE1P EQU ZZ2+1004 01284000 ZZ2FF18P EQU ZZ2+1008 01285000 ZZ2DYNAP EQU ZZ2+1012 01286000 ZZ2ZZ2CP EQU ZZ2+1016 01287000 ZZ2ZZ2DP EQU ZZ2+1020 01288000 ZZ2STAIP EQU ZZ2+1024 01289000 ZZ2FF02P EQU ZZ2+1028 01290000 ZZ2GETLP EQU ZZ2+1032 01291000 ZZ2PARSP EQU ZZ2+1036 01292000 ZZ2PTGTP EQU ZZ2+1040 01293000 ZZ2PUTLP EQU ZZ2+1044 01294000 ZZ2SCANP EQU ZZ2+1048 01295000 ZZ2STCKP EQU ZZ2+1052 01296000 ZZ2TRMOP EQU ZZ2+1064 01297000 ZZ2TRMVP EQU ZZ2+1068 01298000 ZZ2PUTNP EQU ZZ2+1084 01299000 ZZ2TRMNP EQU ZZ2+1088 01300000 ZZ2ZZ1P EQU ZZ2+1264 01301000 ZZ2BVTP EQU ZZ2+1280 01302000 ZZ2RVTP EQU ZZ2+1284 01303000 ZZ2CPPL EQU ZZ2+1292 01304000 ZZ2CPPLC EQU ZZ2CPPL 01305000 ZZ2ITR EQU ZZ2+2840 01306000 ZZ2ITRE EQU ZZ2ITR+16 01307000 ZZ2ITSE EQU ZZ2+2864 01308000 ZZ2ES EQU ZZ2+2872 01309000 ZZ2AMDX EQU ZZ2+7160 01310000 ZZ2AXO EQU ZZ2+7934 01311000 ZZ2AXOT EQU ZZ2AXO+2 01312000 CMD EQU 0 01313000 CMDT EQU CMD+4 01314000 PSCB EQU 0 01315000 PSCBATR1 EQU PSCB+16 01316000 ECT EQU 0 01317000 ECTSWS EQU ECT+28 01318000 ECTSWS2 EQU ECT+40 01319000 ECTSWS21 EQU ECTSWS2 01320000 UPT EQU 0 01321000 UPTSWS EQU UPT+12 01322000 SA EQU 0 01323000 SA1 EQU SA 01324000 SAR EQU SA+12 01325000 SAR1 EQU SAR+12 01326000 BLSUMPK1 EQU 0 01327000 BLSUPARI EQU 0 01328000 BLSUTRMV EQU 0 01329000 BLSUVSCR EQU 0 01330000 BLSUVSEN EQU 0 01331000 BLSUVSER EQU 0 01332000 BLSUVSGU EQU 0 01333000 BLSUVSPO EQU 0 01334000 BVT EQU 0 01335000 BVTPUTLP EQU BVT+4 01336000 BVTPUTOP EQU BVT+12 01337000 BVTPUTTP EQU BVT+16 01338000 BVTPUTVP EQU BVT+20 01339000 BVTPUTAP EQU BVT+24 01340000 BVTPRTTP EQU BVT+28 01341000 BVTPRTAP EQU BVT+32 01342000 BVTPUTDP EQU BVT+36 01343000 BVTMONP EQU BVT+40 01344000 BVTMON2P EQU BVT+44 01345000 BVTVSARP EQU BVT+48 01346000 BVTVSENP EQU BVT+64 01347000 BVTVSERP EQU BVT+68 01348000 BVTVSGEP EQU BVT+72 01349000 BVTVSGUP EQU BVT+76 01350000 BVTVSPOP EQU BVT+80 01351000 BVTVSPUP EQU BVT+84 01352000 BVTMPKNP EQU BVT+104 01353000 BVTMONLP EQU BVT+108 01354000 BVTPUTCP EQU BVT+132 01355000 BVTMPK1P EQU BVT+136 01356000 BVTZZ2RP EQU BVT+140 01357000 BVTPGMRP EQU BVT+144 01358000 BVTMONAP EQU BVT+148 01359000 BVTBLDDP EQU BVT+152 01360000 BVTBLDLP EQU BVT+156 01361000 BVTPGMCP EQU BVT+160 01362000 BVTPGMDP EQU BVT+164 01363000 BVTPGMLP EQU BVT+168 01364000 BVTMONCP EQU BVT+180 01365000 BVTMONDP EQU BVT+184 01366000 BVTMONTP EQU BVT+188 01367000 BVTPARIP EQU BVT+192 01368000 BVTPARUP EQU BVT+196 01369000 BVTPRTNP EQU BVT+204 01370000 BVTVSCRP EQU BVT+208 01371000 BVTVSMRP EQU BVT+212 01372000 BVTMONXP EQU BVT+216 01373000 BVTTRMAP EQU BVT+228 01374000 ZZ6 EQU 0 01375000 ZZ6D EQU ZZ6+128 01376000 ZZ6DD EQU ZZ6D+8 01377000 ZZ6DDT EQU ZZ6DD+4 01378000 ZZ6DRDX EQU ZZ6D+64 01379000 ZZ6DQA EQU ZZ6D+68 01380000 ZZ6DF EQU ZZ6D+92 01381000 ZZ6B EQU ZZ6+768 01382000 BLSRADDR EQU 0 01383000 BLSRADD2 EQU 0 01384000 RVT EQU 0 01385000 RVTADDRP EQU RVT 01386000 RVTT01P EQU RVT+4 01387000 RVTTAP EQU RVT+8 01388000 RVTTBP EQU RVT+12 01389000 RVTTCP EQU RVT+16 01390000 RVTTFP EQU RVT+24 01391000 RVTTYP EQU RVT+40 01392000 RVTT02P EQU RVT+48 01393000 RVTT03P EQU RVT+52 01394000 RVTT04P EQU RVT+56 01395000 RVTACCLP EQU RVT+60 01396000 RVTRACCP EQU RVT+64 01397000 RVTTLP EQU RVT+68 01398000 RVTTMP EQU RVT+72 01399000 RVTTUP EQU RVT+80 01400000 RVTESGEP EQU RVT+84 01401000 RVTESGUP EQU RVT+88 01402000 RVTESARP EQU RVT+92 01403000 RVTRAARP EQU RVT+96 01404000 RVTRAGEP EQU RVT+100 01405000 RVTADDPP EQU RVT+104 01406000 RVTACCQP EQU RVT+108 01407000 RVTSAGUP EQU RVT+124 01408000 RVTSAGEP EQU RVT+128 01409000 RVTESCKP EQU RVT+132 01410000 RVTMSGAP EQU RVT+136 01411000 RVTMSGDP EQU RVT+140 01412000 RVTADDTP EQU RVT+160 01413000 RVTADDUP EQU RVT+164 01414000 RVTADD1P EQU RVT+176 01415000 RVTADD2P EQU RVT+180 01416000 RVTRSAGP EQU RVT+184 01417000 RVTMSGBP EQU RVT+188 01418000 RVTADDSP EQU RVT+192 01419000 RVTADD3P EQU RVT+196 01420000 RVTT05P EQU RVT+200 01421000 RVTPADSP EQU RVT+204 01422000 RVTTRP EQU RVT+228 01423000 RVTADD4P EQU RVT+232 01424000 RVTSAPCP EQU RVT+236 01425000 RVTSAARP EQU RVT+240 01426000 RVTSAGNP EQU RVT+244 01427000 RVTT06P EQU RVT+248 01428000 RVTSAGCP EQU RVT+252 01429000 RVTSAGQP EQU RVT+256 01430000 RVTESGCP EQU RVT+260 01431000 RVTESGQP EQU RVT+264 01432000 RVTDUCKP EQU RVT+276 01433000 RVTDUCCP EQU RVT+280 01434000 PCCSECT EQU 0 01435000 PDDSECT EQU 0 01436000 PDXP EQU PDDSECT+1 01437000 PDL EQU PDDSECT+5 01438000 IFGRPL EQU 0 01439000 RPLCOMN EQU IFGRPL 01440000 RPLIDWD EQU RPLCOMN 01441000 RPLLEN EQU RPLIDWD+3 01442000 RPLECB EQU RPLCOMN+8 01443000 RPLFDBWD EQU RPLCOMN+12 01444000 RPLFDBK EQU RPLFDBWD+1 01445000 RPLRTNCD EQU RPLFDBK 01446000 RPLCNDCD EQU RPLFDBK+1 01447000 RPLCMPON EQU RPLCNDCD 01448000 RPLFDB2 EQU RPLCMPON 01449000 RPLERRCD EQU RPLCNDCD+1 01450000 RPLFDB3 EQU RPLERRCD 01451000 RPLKEYLE EQU RPLCOMN+16 01452000 RPLARG EQU RPLCOMN+36 01453000 RPLOPTCD EQU RPLCOMN+40 01454000 RPLOPT1 EQU RPLOPTCD 01455000 RPLECBSW EQU RPLOPT1 01456000 RPLOPT2 EQU RPLOPTCD+1 01457000 RPLADR EQU RPLOPT2 01458000 RPLOPT3 EQU RPLOPTCD+2 01459000 RPLNXTRP EQU RPLCOMN+44 01460000 RPLOPTC2 EQU RPLCOMN+56 01461000 RPLOPT5 EQU RPLOPTC2 01462000 RPLWRTYP EQU RPLOPT5 01463000 RPLOPT6 EQU RPLOPTC2+1 01464000 RPLUNTYP EQU RPLOPT6 01465000 RPLOPT7 EQU RPLOPTC2+2 01466000 RPLCNOPT EQU RPLOPT7 01467000 RPLOPT8 EQU RPLOPTC2+3 01468000 RPLRBAR EQU RPLCOMN+60 01469000 RPLAIXID EQU RPLRBAR+2 01470000 RPLEXTDS EQU RPLCOMN+68 01471000 RPLEXTD1 EQU RPLEXTDS 01472000 PDADAE EQU 0 01473000 PDADAEAP EQU PDADAE 01474000 PDADAEF EQU PDADAE+8 01475000 BLSRACC EQU 0 01476000 BLSRACCL EQU 0 01477000 BLSRACCQ EQU 0 01478000 BLSRADDP EQU 0 01479000 BLSRADDS EQU 0 01480000 BLSRADDT EQU 0 01481000 BLSRADDU EQU 0 01482000 BLSRADD1 EQU 0 01483000 BLSRADD3 EQU 0 01484000 BLSRADD4 EQU 0 01485000 BLSRDUCC EQU 0 01486000 BLSRDUCK EQU 0 01487000 BLSRESAR EQU 0 01488000 BLSRESCK EQU 0 01489000 BLSRESGC EQU 0 01490000 BLSRESGE EQU 0 01491000 BLSRESGQ EQU 0 01492000 BLSRESGU EQU 0 01493000 BLSRMSGA EQU 0 01494000 BLSRMSGB EQU 0 01495000 BLSRMSGD EQU 0 01496000 BLSRPADS EQU 0 01497000 BLSRRAAR EQU 0 01498000 BLSRRAGE EQU 0 01499000 BLSRSAAR EQU 0 01500000 BLSRSAG EQU 0 01501000 BLSRSAGC EQU 0 01502000 BLSRSAGE EQU 0 01503000 BLSRSAGN EQU 0 01504000 BLSRSAGQ EQU 0 01505000 BLSRSAGU EQU 0 01506000 BLSRSAPC EQU 0 01507000 BLSTA EQU 0 01508000 BLSTB EQU 0 01509000 BLSTC EQU 0 01510000 BLSTF EQU 0 01511000 BLSTL EQU 0 01512000 BLSTM EQU 0 01513000 BLSTR EQU 0 01514000 BLSTU EQU 0 01515000 BLSTY EQU 0 01516000 BLST01 EQU 0 01517000 BLST02 EQU 0 01518000 BLST03 EQU 0 01519000 BLST04 EQU 0 01520000 BLST05 EQU 0 01521000 BLST06 EQU 0 01522000 BLSUALLO EQU 0 01523000 BLSUBLDD EQU 0 01524000 BLSUBLDL EQU 0 01525000 BLSUDYNA EQU 0 01526000 BLSUFREE EQU 0 01527000 BLSUFRE1 EQU 0 01528000 BLSUMON EQU 0 01529000 BLSUMONA EQU 0 01530000 BLSUMONC EQU 0 01531000 BLSUMOND EQU 0 01532000 BLSUMONL EQU 0 01533000 BLSUMONT EQU 0 01534000 BLSUMONX EQU 0 01535000 BLSUMON2 EQU 0 01536000 BLSUMPKN EQU 0 01537000 BLSUPARU EQU 0 01538000 BLSUPGMC EQU 0 01539000 BLSUPGMD EQU 0 01540000 BLSUPGML EQU 0 01541000 BLSUPGMR EQU 0 01542000 BLSUPRTA EQU 0 01543000 BLSUPRTN EQU 0 01544000 BLSUPRTT EQU 0 01545000 BLSUPUTA EQU 0 01546000 BLSUPUTC EQU 0 01547000 BLSUPUTD EQU 0 01548000 BLSUPUTL EQU 0 01549000 BLSUPUTN EQU 0 01550000 BLSUPUTO EQU 0 01551000 BLSUPUTT EQU 0 01552000 BLSUPUTV EQU 0 01553000 BLSUSTAI EQU 0 01554000 BLSUTRMA EQU 0 01555000 BLSUTRMN EQU 0 01556000 BLSUTRMO EQU 0 01557000 BLSUVSAR EQU 0 01558000 BLSUVSGE EQU 0 01559000 BLSUVSMR EQU 0 01560000 BLSUVSPU EQU 0 01561000 BLSUZZ2C EQU 0 01562000 BLSUZZ2D EQU 0 01563000 BLSUZZ2R EQU 0 01564000 IKJEFF02 EQU 0 01565000 IKJEFF18 EQU 0 01566000 IKJEFF19 EQU 0 01567000 IKJGETL EQU 0 01568000 IKJPARS EQU 0 01569000 IKJPTGT EQU 0 01570000 IKJPUTL EQU 0 01571000 IKJSCAN EQU 0 01572000 IKJSTCK EQU 0 01573000 I001C EQU 0 01574000 I008P EQU 0 01575000 I015F EQU 0 01576000 I015P EQU 0 01577000 I031F EQU 0 01578000 I031P EQU 0 01579000 I256C EQU 0 01580000 PDADAEA EQU 0 01581000 PDADA1 EQU 0 01582000 PDADA2 EQU 0 01583000 PDADE1 EQU 0 01584000 PDADE2 EQU 0 01585000 PDADM1 EQU 0 01586000 PDADM2 EQU 0 01587000 PXASII EQU 0 01588000 PXCPUI EQU 0 01589000 PXDIMI EQU 0 01590000 PXDTDI EQU 0 01591000 PXLENI EQU 0 01592000 PXNTRI1 EQU 0 01593000 PXNTRI2 EQU 0 01594000 PXREMQ EQU 0 01595000 PXCPUIP EQU PXCPU 01596000 PXCPUIF EQU PXCPU+6 01597000 PXASIIP EQU PXASI 01598000 PXASIIF EQU PXASI+6 01599000 PXDTDIP EQU PXDTD 01600000 PXDTDIF EQU PXDTD+6 01601000 PXLENIP EQU PXLEN 01602000 PXLENIF EQU PXLEN+6 01603000 PXDIMIP EQU PXDIM 01604000 PXDIMIF EQU PXDIM+6 01605000 PXREMQP EQU PXREM 01606000 PXREMQF EQU PXREM+6 01607000 @NM00104 EQU PXNTR 01608000 PXNTRIP EQU @NM00104 01609000 PXNTRIF EQU @NM00104+6 01610000 @NM00113 EQU PDAD 01611000 PDADMP EQU @NM00113 01612000 PDADMF EQU @NM00113+6 01613000 PDADEP EQU @NM00113+8 01614000 PDADEF EQU @NM00113+14 01615000 PDADAP EQU @NM00113+16 01616000 PDADAF EQU @NM00113+22 01617000 PDADAT EQU @NM00113+24 01618000 PDADAEP EQU @NM00113+28 01619000 CPPL EQU ZZ2CPPL 01620000 CPPLUPT EQU CPPL+4 01621000 CPPLPSCB EQU CPPL+8 01622000 CPPLECT EQU CPPL+12 01623000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01624000 CPPLCBUF EQU CPPL 01625000 @NM00118 EQU PDAD+72 01626000 PDADAV EQU @NM00113+32 01627000 PDADAI EQU @NM00113+26 01628000 PDADAS EQU @NM00113+25 01629000 @NM00117 EQU PDADAT 01630000 PDADATQ EQU PDADAT 01631000 PDADATE EQU PDADAT 01632000 PDADATD EQU PDADAT 01633000 PDADATG EQU PDADAT 01634000 PDADATR EQU PDADAT 01635000 PDADATS EQU PDADAT 01636000 @NM00116 EQU @NM00113+23 01637000 PDADAF8 EQU PDADAF 01638000 PDADAF7 EQU PDADAF 01639000 PDADAF6 EQU PDADAF 01640000 PDADAF5 EQU PDADAF 01641000 PDADAF4 EQU PDADAF 01642000 PDADAF3 EQU PDADAF 01643000 PDADAF2 EQU PDADAF 01644000 PDADAFP EQU PDADAF 01645000 PDADAL EQU @NM00113+20 01646000 @NM00115 EQU @NM00113+15 01647000 PDADEF8 EQU PDADEF 01648000 PDADEF7 EQU PDADEF 01649000 PDADEF6 EQU PDADEF 01650000 PDADEF5 EQU PDADEF 01651000 PDADEF4 EQU PDADEF 01652000 PDADEF3 EQU PDADEF 01653000 PDADEF2 EQU PDADEF 01654000 PDADEFP EQU PDADEF 01655000 PDADEL EQU @NM00113+12 01656000 @NM00114 EQU @NM00113+7 01657000 PDADMF8 EQU PDADMF 01658000 PDADMF7 EQU PDADMF 01659000 PDADMF6 EQU PDADMF 01660000 PDADMF5 EQU PDADMF 01661000 PDADMF4 EQU PDADMF 01662000 PDADMF3 EQU PDADMF 01663000 PDADMF2 EQU PDADMF 01664000 PDADMFP EQU PDADMF 01665000 PDADML EQU @NM00113+4 01666000 @NM00106 EQU PXNTR+16 01667000 @NM00105 EQU @NM00104+7 01668000 PXNTRIF8 EQU PXNTRIF 01669000 PXNTRIF7 EQU PXNTRIF 01670000 PXNTRIF6 EQU PXNTRIF 01671000 PXNTRIF5 EQU PXNTRIF 01672000 PXNTRIF4 EQU PXNTRIF 01673000 PXNTRIF3 EQU PXNTRIF 01674000 PXNTRIF2 EQU PXNTRIF 01675000 PXNTRIFP EQU PXNTRIF 01676000 PXNTRIL EQU @NM00104+4 01677000 @NM00108 EQU PXREM+8 01678000 @NM00107 EQU PXREM+7 01679000 PXREMQF8 EQU PXREMQF 01680000 PXREMQF7 EQU PXREMQF 01681000 PXREMQF6 EQU PXREMQF 01682000 PXREMQF5 EQU PXREMQF 01683000 PXREMQF4 EQU PXREMQF 01684000 PXREMQF3 EQU PXREMQF 01685000 PXREMQF2 EQU PXREMQF 01686000 PXREMQFP EQU PXREMQF 01687000 PXREMQL EQU PXREM+4 01688000 @NM00103 EQU PXDIM+8 01689000 @NM00102 EQU PXDIM+7 01690000 PXDIMIF8 EQU PXDIMIF 01691000 PXDIMIF7 EQU PXDIMIF 01692000 PXDIMIF6 EQU PXDIMIF 01693000 PXDIMIF5 EQU PXDIMIF 01694000 PXDIMIF4 EQU PXDIMIF 01695000 PXDIMIF3 EQU PXDIMIF 01696000 PXDIMIF2 EQU PXDIMIF 01697000 PXDIMIFP EQU PXDIMIF 01698000 PXDIMIL EQU PXDIM+4 01699000 @NM00101 EQU PXLEN+8 01700000 @NM00100 EQU PXLEN+7 01701000 PXLENIF8 EQU PXLENIF 01702000 PXLENIF7 EQU PXLENIF 01703000 PXLENIF6 EQU PXLENIF 01704000 PXLENIF5 EQU PXLENIF 01705000 PXLENIF4 EQU PXLENIF 01706000 PXLENIF3 EQU PXLENIF 01707000 PXLENIF2 EQU PXLENIF 01708000 PXLENIFP EQU PXLENIF 01709000 PXLENIL EQU PXLEN+4 01710000 @NM00099 EQU PXDTD+8 01711000 @NM00098 EQU PXDTD+7 01712000 PXDTDIF8 EQU PXDTDIF 01713000 PXDTDIF7 EQU PXDTDIF 01714000 PXDTDIF6 EQU PXDTDIF 01715000 PXDTDIF5 EQU PXDTDIF 01716000 PXDTDIF4 EQU PXDTDIF 01717000 PXDTDIF3 EQU PXDTDIF 01718000 PXDTDIF2 EQU PXDTDIF 01719000 PXDTDIFP EQU PXDTDIF 01720000 PXDTDIL EQU PXDTD+4 01721000 @NM00112 EQU PXASI+8 01722000 @NM00111 EQU PXASI+7 01723000 PXASIIF8 EQU PXASIIF 01724000 PXASIIF7 EQU PXASIIF 01725000 PXASIIF6 EQU PXASIIF 01726000 PXASIIF5 EQU PXASIIF 01727000 PXASIIF4 EQU PXASIIF 01728000 PXASIIF3 EQU PXASIIF 01729000 PXASIIF2 EQU PXASIIF 01730000 PXASIIFP EQU PXASIIF 01731000 PXASIIL EQU PXASI+4 01732000 @NM00110 EQU PXCPU+8 01733000 @NM00109 EQU PXCPU+7 01734000 PXCPUIF8 EQU PXCPUIF 01735000 PXCPUIF7 EQU PXCPUIF 01736000 PXCPUIF6 EQU PXCPUIF 01737000 PXCPUIF5 EQU PXCPUIF 01738000 PXCPUIF4 EQU PXCPUIF 01739000 PXCPUIF3 EQU PXCPUIF 01740000 PXCPUIF2 EQU PXCPUIF 01741000 PXCPUIFP EQU PXCPUIF 01742000 PXCPUIL EQU PXCPU+4 01743000 PDADAEXP EQU PDADAE+12 01744000 PDADAEI EQU PDADAE+10 01745000 PDADAES EQU PDADAE+9 01746000 @NM00121 EQU PDADAEF 01747000 PDADAEFX EQU PDADAEF 01748000 PDADAEFD EQU PDADAEF 01749000 @NM00120 EQU PDADAEF 01750000 @NM00119 EQU PDADAE+6 01751000 PDADAEAL EQU PDADAE+4 01752000 RPLERMSA EQU RPLCOMN+72 01753000 RPLEMLEN EQU RPLCOMN+70 01754000 RPLACTIV EQU RPLCOMN+69 01755000 RPLBRANC EQU RPLEXTD1 01756000 RPLNIB EQU RPLEXTD1 01757000 @NM00081 EQU RPLEXTD1 01758000 RPLEXIT EQU RPLEXTD1 01759000 RPLNEXIT EQU RPLEXTD1 01760000 RPLEXSCH EQU RPLEXTD1 01761000 RPLDDDD EQU RPLRBAR+4 01762000 @NM00080 EQU RPLRBAR+3 01763000 @NM00079 EQU RPLAIXID 01764000 RPLAXPKP EQU RPLAIXID 01765000 RPLAIXPC EQU RPLRBAR 01766000 RPLRSV88 EQU RPLOPT8 01767000 RPLUNCON EQU RPLOPT8 01768000 RPLACTV EQU RPLOPT8 01769000 RPLSESS EQU RPLOPT8 01770000 RPLPEND EQU RPLOPT8 01771000 RPLODPRM EQU RPLOPT8 01772000 RPLODACP EQU RPLOPT8 01773000 RPLODACQ EQU RPLOPT8 01774000 RPLRSV78 EQU RPLOPT7 01775000 RPLRSV77 EQU RPLOPT7 01776000 RPLRLSOP EQU RPLOPT7 01777000 RPLTPOST EQU RPLOPT7 01778000 RPLQOPT EQU RPLOPT7 01779000 RPLCNIMM EQU RPLCNOPT 01780000 RPLCNANY EQU RPLCNOPT 01781000 RPLCNALL EQU RPLCNOPT 01782000 RPLRSV68 EQU RPLOPT6 01783000 RPLRSV67 EQU RPLOPT6 01784000 RPLLOCK EQU RPLOPT6 01785000 RPLNCOND EQU RPLOPT6 01786000 RPLCOND EQU RPLOPT6 01787000 RPLEOT EQU RPLUNTYP 01788000 RPLEOM EQU RPLUNTYP 01789000 RPLEOB EQU RPLUNTYP 01790000 RPLWROPT EQU RPLOPT5 01791000 RPLNODE EQU RPLOPT5 01792000 RPLERACE EQU RPLWRTYP 01793000 RPLEAU EQU RPLWRTYP 01794000 RPLNERAS EQU RPLWRTYP 01795000 RPLPSOPT EQU RPLOPT5 01796000 RPLSSNIN EQU RPLOPT5 01797000 RPLDLGIN EQU RPLOPT5 01798000 RPLBUFL EQU RPLCOMN+52 01799000 RPLRLEN EQU RPLCOMN+48 01800000 RPLCHAIN EQU RPLNXTRP 01801000 RPLOPT4 EQU RPLOPTCD+3 01802000 RPLALIGN EQU RPLOPT3 01803000 RPLFMT EQU RPLOPT3 01804000 RPLFLD EQU RPLOPT3 01805000 RPLVFY EQU RPLOPT3 01806000 RPLBLK EQU RPLOPT3 01807000 RPLSFORM EQU RPLOPT3 01808000 RPLEODS EQU RPLOPT3 01809000 RPLNSP EQU RPLOPT2 01810000 RPLUPD EQU RPLOPT2 01811000 @NM00078 EQU RPLOPT2 01812000 RPLLRD EQU RPLOPT2 01813000 RPLBWD EQU RPLOPT2 01814000 RPLCNV EQU RPLOPT2 01815000 RPLADD EQU RPLADR 01816000 RPLKEY EQU RPLOPT2 01817000 RPLECBIN EQU RPLECBSW 01818000 RPLGEN EQU RPLOPT1 01819000 RPLKGE EQU RPLOPT1 01820000 RPLASY EQU RPLOPT1 01821000 RPLSKP EQU RPLOPT1 01822000 RPLSEQ EQU RPLOPT1 01823000 RPLDIR EQU RPLOPT1 01824000 RPLLOC EQU RPLOPT1 01825000 RPLDAF EQU RPLARG+2 01826000 RPLSAF EQU RPLARG 01827000 RPLAREA EQU RPLCOMN+32 01828000 RPLTCBPT EQU RPLCOMN+28 01829000 RPLDACB EQU RPLCOMN+24 01830000 RPLCCHAR EQU RPLCOMN+20 01831000 RPLSTRID EQU RPLCOMN+18 01832000 RPLKEYL EQU RPLKEYLE 01833000 RPLRDSOH EQU RPLFDB3 01834000 RPLRLG EQU RPLFDB3 01835000 RPLLGFRC EQU RPLFDB3 01836000 RPLREOT EQU RPLFDB3 01837000 RPLREOM EQU RPLFDB3 01838000 RPLREOB EQU RPLFDB3 01839000 RPLSV32 EQU RPLFDB3 01840000 RPLUINPT EQU RPLFDB3 01841000 RPLSTSAV EQU RPLFDB2 01842000 RPLCUERR EQU RPLFDB2 01843000 RPLDLGFL EQU RPLFDB2 01844000 RPLIOERR EQU RPLFDB2 01845000 RPLDVUNS EQU RPLFDB2 01846000 RPLATND EQU RPLFDB2 01847000 RPLRVID EQU RPLFDB2 01848000 RPLERLK EQU RPLFDB2 01849000 RPLERREG EQU RPLRTNCD 01850000 RPLSTAT EQU RPLFDBWD 01851000 RPLPOST EQU RPLECB 01852000 RPLWAIT EQU RPLECB 01853000 RPLPLHPT EQU RPLCOMN+4 01854000 RPLLEN2 EQU RPLLEN 01855000 RPLREQ EQU RPLIDWD+2 01856000 RPLSTYP EQU RPLIDWD+1 01857000 RPLID EQU RPLIDWD 01858000 PDSP EQU PDDSECT+4 01859000 @NM00077 EQU PDDSECT 01860000 RVT99999 EQU RVT+384 01861000 RVT0096P EQU RVT+380 01862000 RVT0095P EQU RVT+376 01863000 RVT0094P EQU RVT+372 01864000 RVT0093P EQU RVT+368 01865000 RVT0092P EQU RVT+364 01866000 RVT0091P EQU RVT+360 01867000 RVT0090P EQU RVT+356 01868000 RVT0089P EQU RVT+352 01869000 RVT0088P EQU RVT+348 01870000 RVT0087P EQU RVT+344 01871000 RVT0086P EQU RVT+340 01872000 RVT0085P EQU RVT+336 01873000 RVT0084P EQU RVT+332 01874000 RVT0083P EQU RVT+328 01875000 RVT0082P EQU RVT+324 01876000 RVT0081P EQU RVT+320 01877000 RVT0080P EQU RVT+316 01878000 RVT0079P EQU RVT+312 01879000 RVT0078P EQU RVT+308 01880000 RVT0077P EQU RVT+304 01881000 RVT0076P EQU RVT+300 01882000 RVT0075P EQU RVT+296 01883000 RVT0074P EQU RVT+292 01884000 RVT0073P EQU RVT+288 01885000 RVT0072P EQU RVT+284 01886000 RVTDTUTP EQU RVT+272 01887000 RVTDTMTP EQU RVT+268 01888000 RVT0057P EQU RVT+224 01889000 RVT0056P EQU RVT+220 01890000 RVT0055P EQU RVT+216 01891000 RVT0054P EQU RVT+212 01892000 RVT0053P EQU RVT+208 01893000 RVT0044P EQU RVT+172 01894000 RVT0043P EQU RVT+168 01895000 RVT0040P EQU RVT+156 01896000 RVT0039P EQU RVT+152 01897000 RVT0038P EQU RVT+148 01898000 RVT0037P EQU RVT+144 01899000 RVT0031P EQU RVT+120 01900000 RVT0030P EQU RVT+116 01901000 RVT0029P EQU RVT+112 01902000 RVT0020P EQU RVT+76 01903000 RVT0012P EQU RVT+44 01904000 RVT0010P EQU RVT+36 01905000 RVT0009P EQU RVT+32 01906000 RVT0008P EQU RVT+28 01907000 RVT0006P EQU RVT+20 01908000 ZZ69999 EQU ZZ6+1792 01909000 ZZ6BRB EQU ZZ6B+12 01910000 ZZ6BRC EQU ZZ6B+8 01911000 @NM00076 EQU ZZ6B+6 01912000 ZZ6BFL EQU ZZ6B+4 01913000 ZZ6BDA EQU ZZ6B 01914000 @NM00075 EQU ZZ6+540 01915000 ZZ6BUFI EQU ZZ6+536 01916000 ZZ6BUFP EQU ZZ6+532 01917000 ZZ6FILE EQU ZZ6+524 01918000 ZZ6BUFB EQU ZZ6+520 01919000 ZZ6BUFL EQU ZZ6+518 01920000 ZZ6BUFN EQU ZZ6+516 01921000 ZZ6ZZ6P EQU ZZ6+512 01922000 @NM00074 EQU ZZ6+256 01923000 ZZ6D999 EQU ZZ6D+128 01924000 @NM00073 EQU ZZ6D+116 01925000 ZZ6DCAP EQU ZZ6D+112 01926000 ZZ6DPRP EQU ZZ6D+108 01927000 ZZ6DDA2 EQU ZZ6D+104 01928000 ZZ6DDA1 EQU ZZ6D+100 01929000 @NM00072 EQU ZZ6DF 01930000 ZZ6DFSU EQU ZZ6DF 01931000 ZZ6DFST EQU ZZ6DF 01932000 ZZ6DFAB EQU ZZ6DF 01933000 ZZ6DFMP EQU ZZ6DF 01934000 ZZ6DFDU EQU ZZ6DF 01935000 ZZ6DFBS EQU ZZ6DF 01936000 ZZ6DQ2 EQU ZZ6D+88 01937000 ZZ6DQ1 EQU ZZ6D+84 01938000 ZZ6DQA9 EQU ZZ6DQA+16 01939000 @NM00071 EQU ZZ6DQA+12 01940000 ZZ6DQA2 EQU ZZ6DQA+8 01941000 ZZ6DQA1 EQU ZZ6DQA+4 01942000 @NM00070 EQU ZZ6DQA+2 01943000 ZZ6DQAT EQU ZZ6DQA 01944000 ZZ6DQA0 EQU ZZ6DQA 01945000 ZZ6DELK EQU ZZ6D+64 01946000 ZZ6DMEM EQU ZZ6D+56 01947000 ZZ6DDT1 EQU ZZ6DDT 01948000 ZZ6DDO EQU ZZ6DD+2 01949000 ZZ6DDL EQU ZZ6DD 01950000 @NM00069 EQU ZZ6D+2 01951000 ZZ6DRID EQU ZZ6D 01952000 ZZ6RDCB EQU ZZ6 01953000 ZZ60000 EQU ZZ6 01954000 BVT99999 EQU BVT+256 01955000 BVT0064P EQU BVT+252 01956000 BVT0063P EQU BVT+248 01957000 BVT0062P EQU BVT+244 01958000 BVT0061P EQU BVT+240 01959000 BVT0060P EQU BVT+236 01960000 BVT0059P EQU BVT+232 01961000 BVT0057P EQU BVT+224 01962000 BVT0056P EQU BVT+220 01963000 BVTSTBLP EQU BVT+200 01964000 BVT0045P EQU BVT+176 01965000 BVT0044P EQU BVT+172 01966000 BVT0033P EQU BVT+128 01967000 BVT0032P EQU BVT+124 01968000 BVT0031P EQU BVT+120 01969000 BVT0030P EQU BVT+116 01970000 BVT0029P EQU BVT+112 01971000 BVT0026P EQU BVT+100 01972000 BVT0025P EQU BVT+96 01973000 BVT0024P EQU BVT+92 01974000 BVT0023P EQU BVT+88 01975000 BVT0016P EQU BVT+60 01976000 BVT0015P EQU BVT+56 01977000 BVT0014P EQU BVT+52 01978000 BVT0003P EQU BVT+8 01979000 BVT0001P EQU BVT 01980000 SA99 EQU SA+72 01981000 SARC EQU SAR+56 01982000 SARB EQU SAR+52 01983000 SARA EQU SAR+48 01984000 SAR9 EQU SAR+44 01985000 SAR8 EQU SAR+40 01986000 SAR7 EQU SAR+36 01987000 SAR6 EQU SAR+32 01988000 SAR5 EQU SAR+28 01989000 SAR4 EQU SAR+24 01990000 SAR3 EQU SAR+20 01991000 SAR2 EQU SAR+16 01992000 SAR0 EQU SAR+8 01993000 SARF EQU SAR+4 01994000 SARE EQU SAR 01995000 SAFWD EQU SA+8 01996000 SABAK EQU SA+4 01997000 SA1L EQU SA1+1 01998000 SA1P EQU SA1 01999000 UPTPREFL EQU UPT+23 02000000 UPTPREFX EQU UPT+16 02001000 @NM00068 EQU UPT+15 02002000 UPTLDEL EQU UPT+14 02003000 UPTCDEL EQU UPT+13 02004000 UPTWTP EQU UPTSWS 02005000 UPTMODE EQU UPTSWS 02006000 UPTALD EQU UPTSWS 02007000 UPTPAUS EQU UPTSWS 02008000 UPTNCOM EQU UPTSWS 02009000 UPTMID EQU UPTSWS 02010000 UPTNPRM EQU UPTSWS 02011000 UPTRCVR EQU UPTSWS 02012000 UPTUSER EQU UPT+2 02013000 @NM00067 EQU UPT 02014000 @NM00066 EQU ECT+52 02015000 @NM00065 EQU ECT+48 02016000 @NM00064 EQU ECT+44 02017000 @NM00063 EQU ECTSWS2+1 02018000 @NM00062 EQU ECTSWS21 02019000 ECTTABND EQU ECTSWS21 02020000 ECTDEFCS EQU ECTSWS21 02021000 ECTBKPB EQU ECT+36 02022000 ECTUSER EQU ECT+32 02023000 ECTDDNUM EQU ECT+29 02024000 ECTATTN EQU ECTSWS 02025000 ECTBKGRD EQU ECTSWS 02026000 ECTNNOT EQU ECTSWS 02027000 ECTNMAL EQU ECTSWS 02028000 ECTLOGF EQU ECTSWS 02029000 ECTATRM EQU ECTSWS 02030000 @NM00061 EQU ECTSWS 02031000 ECTNOPD EQU ECTSWS 02032000 ECTSCMD EQU ECT+20 02033000 ECTPCMD EQU ECT+12 02034000 ECTSMSG EQU ECT+9 02035000 ECTMSGF EQU ECT+8 02036000 ECTIOWA EQU ECT+4 02037000 ECTRTCD EQU ECT+1 02038000 ECTRCDF EQU ECT 02039000 PSCBU EQU PSCB+64 02040000 PSCBRSZ EQU PSCB+60 02041000 PSCBLINE EQU PSCB+59 02042000 PSCBCHAR EQU PSCB+58 02043000 PSCBUPTL EQU PSCB+56 02044000 PSCBUPT EQU PSCB+52 02045000 PSCBRLGB EQU PSCB+48 02046000 PSCBDEST EQU PSCB+40 02047000 @NM00060 EQU PSCB+36 02048000 @NM00059 EQU PSCB+32 02049000 @NM00058 EQU PSCB+28 02050000 PSCBLTI2 EQU PSCB+24 02051000 PSCBLTIM EQU PSCB+20 02052000 PSCBATR2 EQU PSCB+18 02053000 @NM00057 EQU PSCBATR1 02054000 @NM00056 EQU PSCBATR1 02055000 @NM00055 EQU PSCBATR1 02056000 PSCBATTN EQU PSCBATR1 02057000 PSCBVMNT EQU PSCBATR1 02058000 PSCBJCL EQU PSCBATR1 02059000 PSCBACCT EQU PSCBATR1 02060000 PSCBCTRL EQU PSCBATR1 02061000 PSCBGPNM EQU PSCB+8 02062000 PSCBUSRL EQU PSCB+7 02063000 PSCBUSER EQU PSCB 02064000 CMDT1 EQU CMDT 02065000 CMDO EQU CMD+2 02066000 CMDL EQU CMD 02067000 ZZ299999 EQU ZZ2+8192 02068000 ZZ2AXOT1 EQU ZZ2AXOT 02069000 ZZ2AXOL EQU ZZ2AXO 02070000 @NM00054 EQU ZZ2+7288 02071000 @NM00053 EQU ZZ2AMDX+4 02072000 ZZ2AMDXC EQU ZZ2AMDX 02073000 ZZ2HSD EQU ZZ2+3056 02074000 @NM00052 EQU ZZ2ES 02075000 @NM00051 EQU ZZ2+2868 02076000 ZZ2ITSEC EQU ZZ2ITSE+1 02077000 @NM00050 EQU ZZ2ITSE 02078000 ZZ2ITSEP EQU ZZ2ITSE 02079000 ZZ2ITSEW EQU ZZ2ITSE 02080000 @NM00049 EQU ZZ2ITR+20 02081000 ZZ2ITREC EQU ZZ2ITRE+1 02082000 @NM00048 EQU ZZ2ITRE 02083000 ZZ2ITREP EQU ZZ2ITRE 02084000 ZZ2ITREW EQU ZZ2ITRE 02085000 @NM00047 EQU ZZ2ITR+9 02086000 ZZ2ITRRC EQU ZZ2ITR+8 02087000 ZZ2ITR2P EQU ZZ2ITR+4 02088000 ZZ2ITRPP EQU ZZ2ITR 02089000 @NM00046 EQU ZZ2+1544 02090000 ZZ2PGM EQU ZZ2+1536 02091000 @NM00045 EQU ZZ2+1526 02092000 ZZ2CW EQU ZZ2+1524 02093000 @NM00044 EQU ZZ2+1504 02094000 @NM00043 EQU ZZ2+1352 02095000 ZZ2FFSYP EQU ZZ2+1348 02096000 ZZ2SASYP EQU ZZ2+1344 02097000 ZZ2RDSYP EQU ZZ2+1340 02098000 ZZ2RASYP EQU ZZ2+1336 02099000 ZZ2PHSYP EQU ZZ2+1332 02100000 ZZ2ESSYP EQU ZZ2+1328 02101000 ZZ200SYP EQU ZZ2+1324 02102000 ZZ2SCWP EQU ZZ2+1320 02103000 ZZ2TTLP EQU ZZ2+1316 02104000 ZZ2LOADP EQU ZZ2+1312 02105000 ZZ2VRESP EQU ZZ2+1308 02106000 ZZ2CPPLE EQU ZZ2CPPL+12 02107000 ZZ2CPPLP EQU ZZ2CPPL+8 02108000 ZZ2CPPLU EQU ZZ2CPPL+4 02109000 ZZ2VRSAP EQU ZZ2+1288 02110000 ZZ2DVTP EQU ZZ2+1276 02111000 @NM00042 EQU ZZ2+1272 02112000 @NM00041 EQU ZZ2+1268 02113000 ZZ2RPLP EQU ZZ2+1260 02114000 ZZ2TCBP EQU ZZ2+1256 02115000 @NM00040 EQU ZZ2+1252 02116000 ZZ2ZZ2P EQU ZZ2+1248 02117000 @NM00039 EQU ZZ2+1112 02118000 ZZ2FPDRP EQU ZZ2+1108 02119000 ZZ2FDSDP EQU ZZ2+1104 02120000 ZZ2APDRP EQU ZZ2+1100 02121000 ZZ2ADSDP EQU ZZ2+1096 02122000 ZZ2ENQ0P EQU ZZ2+1092 02123000 @NM00038 EQU ZZ2+1080 02124000 ZZ2MSG0P EQU ZZ2+1076 02125000 ZZ2FT25P EQU ZZ2+1072 02126000 ZZ2MSGSP EQU ZZ2+1060 02127000 ZZ2ALOCP EQU ZZ2+1056 02128000 @NM00037 EQU ZZ2+976 02129000 ZZ2TOD EQU ZZ2+968 02130000 ZZ2STGN EQU ZZ2STG+4 02131000 ZZ2STGP EQU ZZ2STG 02132000 @NM00036 EQU ZZ2+952 02133000 ZZ2SCMDE EQU ZZ2+944 02134000 ZZ2SCMDN EQU ZZ2+936 02135000 ZZ2IDENT EQU ZZ2+928 02136000 ZZ2A9999 EQU ZZ2A+656 02137000 @NM00035 EQU ZZ2A+224 02138000 @NM00034 EQU ZZ2A+220 02139000 ZZ2AQD99 EQU ZZ2AQD+60 02140000 @NM00033 EQU ZZ2AQD+56 02141000 @NM00032 EQU ZZ2AQDF 02142000 ZZ2AQDFA EQU ZZ2AQDF 02143000 ZZ2AQDIL EQU ZZ2AQD+48 02144000 ZZ2AQDIM EQU ZZ2AQD+44 02145000 ZZ2AQDT9 EQU ZZ2AQDT+34 02146000 ZZ2AQDTE EQU ZZ2AQDT+33 02147000 ZZ2AQDTD EQU ZZ2AQDT+2 02148000 @NM00031 EQU ZZ2AQDT+1 02149000 ZZ2AQDTY EQU ZZ2AQDT 02150000 ZZ2AQDT0 EQU ZZ2AQDT 02151000 ZZ2AQDLB EQU ZZ2AQD+9 02152000 ZZ2AQDOB EQU ZZ2AQD+8 02153000 ZZ2AQDLE EQU ZZ2AQD+4 02154000 ZZ2AQDOF EQU ZZ2AQD 02155000 ZZ2AQD00 EQU ZZ2AQD 02156000 ZZ2AQAS9 EQU ZZ2AQAS+16 02157000 @NM00030 EQU ZZ2AQAS+12 02158000 ZZ2AQAS2 EQU ZZ2AQAS+8 02159000 ZZ2AQAS1 EQU ZZ2AQAS+4 02160000 @NM00029 EQU ZZ2AQAS+2 02161000 ZZ2AQAST EQU ZZ2AQAS 02162000 ZZ2AQAS0 EQU ZZ2AQAS 02163000 ZZ2ADPTA EQU ZZ2ADPT 02164000 ZZ2ADPL EQU ZZ2ADP 02165000 ZZ2ADMTA EQU ZZ2ADMT 02166000 ZZ2ADML EQU ZZ2ADM 02167000 ZZ2ADDTA EQU ZZ2ADDT 02168000 ZZ2ADDL EQU ZZ2ADD 02169000 @NM00028 EQU ZZ2A+72 02170000 ZZ2APIDB EQU ZZ2APID+3 02171000 ZZ2APIDA EQU ZZ2APID 02172000 @NM00027 EQU ZZ2A+24 02173000 @NM00026 EQU ZZ2AF+5 02174000 @NM00025 EQU ZZ2AF+3 02175000 ZZ2AFS EQU ZZ2AF+2 02176000 ZZ2AFD EQU ZZ2AF+2 02177000 ZZ2AFQ EQU ZZ2AF+2 02178000 ZZ2AF$ EQU ZZ2AF+2 02179000 @NM00024 EQU ZZ2AF+2 02180000 ZZ2AFM EQU ZZ2AF+2 02181000 @NM00023 EQU ZZ2AF+2 02182000 @NM00022 EQU ZZ2AF+1 02183000 ZZ2AFV EQU ZZ2AF+1 02184000 @NM00021 EQU ZZ2AF+1 02185000 ZZ2AFC EQU ZZ2AF+1 02186000 @NM00020 EQU ZZ2AF 02187000 ZZ2AFFS EQU ZZ2AF 02188000 ZZ2AFT EQU ZZ2AF 02189000 ZZ2AFP EQU ZZ2AF 02190000 @NM00019 EQU ZZ2A+8 02191000 ZZ2ALINE EQU ZZ2A+4 02192000 @NM00018 EQU ZZ2A+3 02193000 ZZ2ASE EQU ZZ2A+2 02194000 ZZ2ACH EQU ZZ2A 02195000 @NM00017 EQU ZZ2+264 02196000 @NM00016 EQU ZZ2+263 02197000 ZZ2PRTT0 EQU ZZ2PRTT 02198000 ZZ2PRTO EQU ZZ2PRT+2 02199000 ZZ2PRTL EQU ZZ2PRT 02200000 @NM00015 EQU ZZ2AMD+56 02201000 ZZ2AMDXP EQU ZZ2AMD+52 02202000 ZZ2AMDD EQU ZZ2AMD+48 02203000 ZZ2AMDL EQU ZZ2AMD+44 02204000 ZZ2AMDU EQU ZZ2AMD+28 02205000 ZZ2AMDF EQU ZZ2AMD+24 02206000 ZZ2AMDS EQU ZZ2AMD+20 02207000 ZZ2AMDC EQU ZZ2AMD+16 02208000 ZZ2AMDP EQU ZZ2AMD+12 02209000 ZZ2AMDB EQU ZZ2AMD+8 02210000 @NM00014 EQU @NM00013 02211000 ZZ2AMD2 EQU @NM00013 02212000 ZZ2AMD1 EQU @NM00013 02213000 ZZ2AMD0 EQU ZZ2AMD+6 02214000 ZZ2AMDA EQU ZZ2AMD+4 02215000 ZZ2AMDT EQU ZZ2AMD 02216000 ZZ199999 EQU ZZ1+3072 02217000 @NM00012 EQU ZZ1+2160 02218000 ZZ1TRTAS EQU ZZ1+1904 02219000 ZZ1TRUPC EQU ZZ1+1648 02220000 ZZ1TRCTX EQU ZZ1+1392 02221000 ZZ1NASID EQU ZZ1N+274 02222000 ZZ1NSTRL EQU ZZ1N+272 02223000 ZZ1NOFF EQU ZZ1N+268 02224000 ZZ1NBDY EQU ZZ1N+264 02225000 ZZ1NADE EQU ZZ1N+260 02226000 ZZ1NADB EQU ZZ1N+256 02227000 ZZ1NSTR EQU ZZ1N 02228000 @NM00011 EQU ZZ1+1080 02229000 ZZ1TREBC EQU ZZ1+824 02230000 ZZ1TRHEX EQU ZZ1+568 02231000 @NM00010 EQU ZZ1+377 02232000 ZZ1USTAE EQU ZZ1+376 02233000 @NM00009 EQU ZZ1F+1 02234000 @NM00008 EQU ZZ1F 02235000 ZZ1FM EQU ZZ1F 02236000 ZZ1FX EQU ZZ1F 02237000 ZZ1FU EQU ZZ1F 02238000 ZZ1EVEC EQU ZZ1EVE+1 02239000 @NM00007 EQU ZZ1EVE 02240000 ZZ1EVEW EQU ZZ1EVE 02241000 ZZ1ACMP EQU ZZ1ATTN 02242000 @NM00006 EQU ZZ1+144 02243000 ZZ1FPP EQU ZZ1+140 02244000 ZZ1ZZ6P EQU ZZ1+136 02245000 @NM00005 EQU ZZ1+84 02246000 ZZ1PLINE EQU ZZ1+80 02247000 ZZ1PGSZ EQU ZZ1+76 02248000 ZZ1PCNT EQU ZZ1+72 02249000 @NM00004 EQU ZZ1+68 02250000 ZZ1TPAGE EQU ZZ1+64 02251000 ZZ1TLINE EQU ZZ1+60 02252000 @NM00003 EQU ZZ1+48 02253000 ZZ1DSDP EQU ZZ1+44 02254000 ZZ1PDRP EQU ZZ1+40 02255000 ZZ1ZZ2P EQU ZZ1+36 02256000 ZZ1327WP EQU ZZ1+32 02257000 @NM00002 EQU ZZ1+24 02258000 ZZ1PDCBP EQU ZZ1+20 02259000 ZZ1BLRBL EQU ZZ1+16 02260000 @NM00001 EQU ZZ1+12 02261000 ZZ1PNULL EQU ZZ1+8 02262000 ZZ1NULL EQU ZZ1+4 02263000 ZZ1IDE EQU ZZ1 02264000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02265000 @RT00333 EQU EXITRLSA 02266000 @RT00353 EQU EXITRLSA 02267000 @ENDDATA EQU * 02268000 END BLSRSADE,(C'PLS0524',0701,78059) 02269000