LSYM TITLE 'BLSRLSYM--IPCS LISTSYM SUBCOMMAND *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPJZ */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSRLSYM CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSRLSYM 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 * RETC=ZZZFLAGI; /* ANTICIPATE NORMAL COMPLETION */ 00025000 * 0170 00026000 SLR RETC,RETC 0170 00027000 * /*****************************************************************/ 00028000 * /* */ 00029000 * /* PARSE COMMAND */ 00030000 * /* */ 00031000 * /*****************************************************************/ 00032000 * 0171 00033000 * DO; /* BLSRPARS ROUTING 0171 00034000 * MF(EXECUTE,PX) */ 00035000 * DO; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00036000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00037000 * TE,PX)ROUTING */ 00038000 * DO; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00039000 * T(EXITRLSA,)MF(EXECUTE,PX)ROUT 00040000 * ING */ 00041000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00042000 ST R9,@AL00001 0174 00043000 L @14,PCPTR 0174 00044000 ST @14,@AL00001+4 0174 00045000 LA @14,PDAPTR 0174 00046000 ST @14,@AL00001+8 0174 00047000 L @10,ZZ2BVTP(,R9) 0174 00048000 L @15,BVTPARIP(,@10) 0174 00049000 LA @01,@AL00001 0174 00050000 BALR @14,@15 0174 00051000 * RESPECIFY 0175 00052000 * (GPR15F) RESTRICTED; 0175 00053000 * IF GPR15F^=ZZZFLAGI THEN 0176 00054000 * 0176 00055000 LTR GPR15F,GPR15F 0176 00056000 BZ @RF00176 0176 00057000 * /*********************************************************/ 00058000 * /* */ 00059000 * /* UNABLE TO PARSE */ 00060000 * /* */ 00061000 * /*********************************************************/ 00062000 * 0177 00063000 * DO; /* UNABLE TO PARSE */ 00064000 * RETC=GPR15F; /* RETURN CODE */ 00065000 LR RETC,GPR15F 0178 00066000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00067000 B EXITNORL 0179 00068000 * END; 0180 00069000 * RESPECIFY 0181 00070000 * (GPR15F) UNRESTRICTED; 0181 00071000 @RF00176 DS 0H 0182 00072000 * RESPECIFY 0182 00073000 * (PDRPTR) RESTRICTED; 0182 00074000 * PDRPTR=PDAPTR; /* ->PDL */ 00075000 L PDRPTR,PDAPTR 0183 00076000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0184 00077000 USING PD,PDRPTR 00078000 * IF PXTEST=PXTEST1 THEN 0185 00079000 CLC PXTEST(2),@CH00043 0185 00080000 BNE @RF00185 0185 00081000 * ZZ2AFX=ZZZ1; /* TEST */ 00082000 OI ZZ2AFX(R9),B'10000000' 0186 00083000 * ELSE 0187 00084000 * IF PXTEST=PXTEST0 THEN 0187 00085000 B @RC00185 0187 00086000 @RF00185 CLC PXTEST(2),@CH00068 0187 00087000 BNE @RF00187 0187 00088000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00089000 NI ZZ2AFX(R9),B'01111111' 0188 00090000 * CALL BLSUPARU(ZZ2,PDDSECT,PXRO);/* SET ROUTING OPTIONS */ 00091000 @RF00187 DS 0H 0189 00092000 @RC00185 ST R9,@AL00001 0189 00093000 ST PDRPTR,@AL00001+4 0189 00094000 LA @14,PXRO 0189 00095000 ST @14,@AL00001+8 0189 00096000 L @08,ZZ2BVTP(,R9) 0189 00097000 L @15,BVTPARUP(,@08) 0189 00098000 LA @01,@AL00001 0189 00099000 BALR @14,@15 0189 00100000 * RESPECIFY 0190 00101000 * (GPR15F) RESTRICTED; 0190 00102000 * RETC=MAX(RETC,GPR15F); /* RETURN CODE */ 00103000 CR RETC,GPR15F 0191 00104000 BNL *+6 00105000 LR RETC,GPR15F 0191 00106000 * RESPECIFY 0192 00107000 * (GPR15F) UNRESTRICTED; 0192 00108000 * IF RETC>ZZZFLAGE THEN /* SERIOUS ERROR */ 00109000 C RETC,@CF00051 0193 00110000 BH @RT00193 0193 00111000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00112000 * END; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00113000 * T(EXITRLSA,)MF(EXECUTE,PX)ROUT 00114000 * ING */ 00115000 * END; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00116000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00117000 * TE,PX)ROUTING */ 00118000 * END; /* BLSRPARS ROUTING 0197 00119000 * MF(EXECUTE,PX) */ 00120000 * 0198 00121000 * /*****************************************************************/ 00122000 * /* */ 00123000 * /* GENERATE AN RPL TO PROCESS ES RECORDS */ 00124000 * /* */ 00125000 * /*****************************************************************/ 00126000 * 0198 00127000 * RESPECIFY 0198 00128000 * (R3, /* ->ACB */ 00129000 * R6, /* LENGTH OF LOGICAL KEY */ 00130000 * R7) RESTRICTED; /* LENGTH OF INPUT BUFFER */ 00131000 * R3=ZZ1ACBP; /* ->ACB */ 00132000 L @14,ZZ2ZZ1P(,R9) 0199 00133000 L R3,ZZ1ACBP(,@14) 0199 00134000 * R6=ESAULKL; /* LOGICAL KEY LENGTH */ 00135000 LA R6,59 0200 00136000 * R7=ZZZVSHRL; /* LENGTH OF INPUT BUFFER */ 00137000 LA R7,3072 0201 00138000 * GENERATE CODE; 0202 00139000 SPACE 2 00140000 *---------------------------------------------------------------------* 00141000 */*CREATE A REQUEST PARAMETER LIST TO PROCESS EQUATE SYMBOL RECORDS * 00142000 *---------------------------------------------------------------------* 00143000 SPACE 00144000 GENCB BLK=RPL,WAREA=(S,MYRPL),ACB=(R3),AREA=(S,VSAMBUFR), *00145000 AREALEN=(R7),ARG=(S,ESAU),KEYLEN=(R6), *00146000 OPTCD=(GEN,SEQ,NSP,KGE,MVE),LENGTH=256, *00147000 MF=(L,GENPARM,GENPARML) 00148000 ***/ 00149000 * GENERATE DEFS(GENPARM) REFS(GENPARML) DATA; 0203 00150000 * RESPECIFY 0204 00151000 * (R3, /* ->ACB */ 00152000 * R6, /* LENGTH OF LOGICAL KEY */ 00153000 * R7) UNRESTRICTED; /* LENGTH OF INPUT BUFFER */ 00154000 * CALL BLSUVSCR(ZZ2,GENPARM); /* CREATE AN RPL */ 00155000 ST R9,@AL00001 0205 00156000 LA @14,GENPARM 0205 00157000 ST @14,@AL00001+4 0205 00158000 L @08,ZZ2BVTP(,R9) 0205 00159000 L @15,BVTVSCRP(,@08) 0205 00160000 LA @01,@AL00001 0205 00161000 BALR @14,@15 0205 00162000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00163000 CR RETC,RF 0206 00164000 BNL *+6 00165000 LR RETC,RF 0206 00166000 * IF RF>=ZZZFLAGS THEN /* GENCB ERROR */ 00167000 C RF,@CF00034 0207 00168000 BNL @RT00207 0207 00169000 * GO TO EXITRLSA; /* TERMINATE COMMAND */ 00170000 * 0209 00171000 * /*****************************************************************/ 00172000 * /* */ 00173000 * /* LISTSYM MAINLINE */ 00174000 * /* */ 00175000 * /*****************************************************************/ 00176000 * 0209 00177000 * FLAGC='0'B; /* NO CAPTION PRINTED YET */ 00178000 NI FLAGC,B'11101111' 0209 00179000 * CALL PSYM; /* LISTSYM */ 00180000 BAL @14,PSYM 0210 00181000 * IF FLAGC='1'B& /* CAPTION IS ON */ 00182000 * ZZ2AFP='1'B THEN /* FOR THE PRINTER */ 00183000 TM FLAGC,B'00010000' 0211 00184000 BNO @RF00211 0211 00185000 TM ZZ2AFP(R9),B'10000000' 0211 00186000 BNO @RF00211 0211 00187000 * CALL BLSUPRTT(ZZ2,MX); /* CLEAR THE CAPTION */ 00188000 ST R9,@AL00001 0212 00189000 LA @14,MX 0212 00190000 ST @14,@AL00001+4 0212 00191000 L @08,ZZ2BVTP(,R9) 0212 00192000 L @15,BVTPRTTP(,@08) 0212 00193000 LA @01,@AL00001 0212 00194000 BALR @14,@15 0212 00195000 *EXITRLSA: 0213 00196000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(EXECUTE,PD) */ 00197000 @RF00211 DS 0H 0213 00198000 EXITRLSA B @DE00213 0213 00199000 @DL00213 DS 0H 0214 00200000 * PDRPTR=PDAPTR; 0214 00201000 L PDRPTR,PDAPTR 0214 00202000 * PDAPTR=PDXP; 0215 00203000 L @14,PDXP-1(,PDRPTR) 0215 00204000 LA @14,0(,@14) 0215 00205000 ST @14,PDAPTR 0215 00206000 * DO; /* FREEMAIN(R) 0216 00207000 * LV(PDL)SP(1)A(PDDSECT) */ 00208000 * RESPECIFY 0217 00209000 * (GPR01F, 0217 00210000 * GPR00F) RESTRICTED; 0217 00211000 * GPR00F=PDL; /* LENGTH REQUESTED */ 00212000 L GPR00F,PDL-1(,PDRPTR) 0218 00213000 ICM GPR00F,8,@CB01206 0218 00214000 * GPR01F=1; /* SP IN REG 1 */ 00215000 LA GPR01F,1 0219 00216000 * GEN(SLL GPR01F,24) 0220 00217000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0220 00218000 SLL GPR01F,24 00219000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00220000 OR GPR00F,GPR01F 0221 00221000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 00222000 LR GPR01F,PDRPTR 0222 00223000 * SVC(10); /* R-FORM OF GETMAIN */ 00224000 SVC 10 0223 00225000 * RESPECIFY 0224 00226000 * (GPR01F, 0224 00227000 * GPR00F) UNRESTRICTED; 0224 00228000 * END; /* FREEMAIN(R) 0225 00229000 * LV(PDL)SP(1)A(PDDSECT) */ 00230000 * END; /* BLRRLSA MF(EXECUTE,PD) */ 00231000 @DE00213 L @14,PDAPTR 0226 00232000 LTR @14,@14 0226 00233000 BNZ @DL00213 0226 00234000 *EXITNORL: /* EXIT WITH NO PDL */ 00235000 * RETURN CODE(RETC); 0227 00236000 EXITNORL L @13,4(,@13) 0227 00237000 L @00,@SIZDATD 0227 00238000 LR @01,@11 0227 00239000 BLSUFRER R,LV=(0),A=(1) 00240000 LR @15,@05 0227 00241000 L @14,12(,@13) 0227 00242000 LM @00,@12,20(@13) 0227 00243000 BR @14 0227 00244000 * 0228 00245000 * /*****************************************************************/ 00246000 * /* */ 00247000 * /* LISTSYM/DROPSYM COMMON PROCESSING ROUTINES. THERE ARE TWO */ 00248000 * /* LISTSYM/DROPSYM DEPENDANT ROUTINES--TESTSYM AND DOSYM. TESTSYM*/ 00249000 * /* CHECKS A SYMBOL TO SEE IF DOSYM SHOULD BE APPLIED TO IT. AND */ 00250000 * /* DOSYM LISTS/DROPS A SYMBOL IF TESTSYM PASSES IT AND IT IS */ 00251000 * /* WITHIN ONE OF THE RANGES SPECIFIED IN THE SUBCOMMAND. */ 00252000 * /* */ 00253000 * /*****************************************************************/ 00254000 * 0228 00255000 * RESPECIFY 0228 00256000 * PDSYMX BASED(PDSYMP); /* SYMBOL RANGE PDE */ 00257000 *PSYM: /* PROCESS ALL USABLE SYMBOLS */ 00258000 * PROCEDURE; 0229 00259000 PSYM STM @14,@04,@SA00002 0229 00260000 STM @06,@12,@SA00002+28 0229 00261000 * ESAU(1:LENGTH(ESCO))=ESCO; /* EQUATE SYMBOL RECORD BASE */ 00262000 MVC ESAU(182),ESCO 0230 00263000 * DRDX=ZZ6DRDX; /* CURRENT DUMP INDEX */ 00264000 L @14,ZZ2AZZ6P(,R9) 0231 00265000 L DRDX,ZZ6DRDX(,@14) 0231 00266000 * ESAURDX=DRDX; /* CURRENT DUMP INDEX */ 00267000 ST DRDX,ESAURDX 0232 00268000 * DO; /* BLSULINK(ZZ2,ESAUSYM,RANGEMAX, 00269000 * PDSYM) EP('BLSRSYRB') */ 00270000 * ZZ2PGM='BLSRSYRB'; /* ENTRY POINT NAME */ 00271000 MVC ZZ2PGM(8,R9),@CC01280 0234 00272000 * CALL BLSUPGMC(ZZ2,ESAUSYM,RANGEMAX,PDSYM);/* CALL NON-RESIDENT 00273000 * IPCS PROGRAM */ 00274000 ST R9,@AL00001 0235 00275000 LA @14,ESAUSYM 0235 00276000 ST @14,@AL00001+4 0235 00277000 LA @14,RANGEMAX 0235 00278000 ST @14,@AL00001+8 0235 00279000 LA @14,PDSYM 0235 00280000 ST @14,@AL00001+12 0235 00281000 L @08,ZZ2BVTP(,R9) 0235 00282000 L @15,BVTPGMCP(,@08) 0235 00283000 LA @01,@AL00001 0235 00284000 BALR @14,@15 0235 00285000 * END; /* BLSULINK(ZZ2,ESAUSYM,RANGEMAX, 00286000 * PDSYM) EP('BLSRSYRB') */ 00287000 * CALL BLSUVSPO(ZZ2,MYRPL); /* POSITION FOR SEQUENTIAL GETS */ 00288000 ST R9,@AL00001 0237 00289000 LA @14,MYRPL 0237 00290000 ST @14,@AL00001+4 0237 00291000 L @08,ZZ2BVTP(,R9) 0237 00292000 L @15,BVTVSPOP(,@08) 0237 00293000 LA @01,@AL00001 0237 00294000 BALR @14,@15 0237 00295000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00296000 CR RETC,RF 0238 00297000 BNL *+6 00298000 LR RETC,RF 0238 00299000 * IF RF=ZZZFLAGS| /* GET ERROR */ 00390000 * ESAURID^=ESCORID| /* NOT AN EQUATE SYMBOL RECORD */ 00391000 * ESAURDX^=DRDX| /* NOT CURRENT DUMP */ 00392000 * ESAUSYM>RANGEMAX THEN /* PAST END OF LAST RANGE */ 00393000 C RF,@CF00034 0260 00394000 BNL @RT00260 0260 00395000 CLC ESAURID(2),ESCORID 0260 00396000 BNE @RT00260 0260 00397000 CL DRDX,ESAURDX 0260 00398000 BNE @RT00260 0260 00399000 CLC ESAUSYM(31),RANGEMAX 0260 00400000 BNH @RF00260 0260 00401000 @RT00260 DS 0H 0261 00402000 * ENDFLAG='1'B; /* PROCESSING COMPLETE */ 00403000 OI ENDFLAG,B'00100000' 0261 00404000 * ELSE /* IS A SYMBOL */ 00405000 * DO; /* PROCESS SYMBOL */ 00406000 * 0262 00407000 B @RC00260 0262 00408000 @RF00260 DS 0H 0263 00409000 * /***********************************************************/ 00410000 * /* */ 00411000 * /* TEST IF SYMBOL USABLE (LISTSYM/DROPSYM DEPENDANT) */ 00412000 * /* */ 00413000 * /***********************************************************/ 00414000 * 0263 00415000 * CALL TESTSYM; /* TEST TO SEE IF SYMBOL USABLE */ 00416000 * 0263 00417000 BAL @14,TESTSYM 0263 00418000 * /***********************************************************/ 00419000 * /* */ 00420000 * /* CHECK IF SYMBOL IS IN ANY RANGE */ 00421000 * /* */ 00422000 * /***********************************************************/ 00423000 * 0264 00424000 * RNGEFLAG='0'B; /* ASSUME NOT IN ANY RANGE */ 00425000 NI RNGEFLAG,B'10111111' 0264 00426000 * PDSYMP=ADDR(PDSYM); /* ->PDSYM (FIRST SYMBOL PDE) */ 00427000 LA PDSYMP,PDSYM 0265 00428000 * RESPECIFY 0266 00429000 * PDSYMX BASED(PDSYMP); /* A SYMBOL PDE */ 00430000 * IF PDSYMIL(1)=0 THEN /* NO RANGES SPECIFIED */ 00431000 LH @14,PDSYMIL(,PDSYMP) 0267 00432000 LTR @14,@14 0267 00433000 BNZ @RF00267 0267 00434000 * CALL CHKRNGE; /* COMPARE SYMBOL AGAINST DEFAULT 00435000 * RANGE */ 00436000 BAL @14,CHKRNGE 0268 00437000 * ELSE /* RANGES SPECIFIED */ 00438000 * DO WHILE(PDSYMP^=ZZ1PNULL);/* COMPARE SYMBOL AGAINST 0269 00439000 * RANGES */ 00440000 B @RC00267 0269 00441000 @RF00267 B @DE00269 0269 00442000 @DL00269 DS 0H 0270 00443000 * CALL CHKRNGE; /* COMPARE SYMBOL AGAINST RANGE */ 00444000 BAL @14,CHKRNGE 0270 00445000 * PDSYMP=PDSYMXP; /* ADVANCE TO NEXT RANGE */ 00446000 L PDSYMP,PDSYMXP(,PDSYMP) 0271 00447000 * END; /* COMPARE SYMBOL AGAINST RANGES */ 00448000 @DE00269 L @14,ZZ2ZZ1P(,R9) 0272 00449000 CL PDSYMP,ZZ1PNULL(,@14) 0272 00450000 BNE @DL00269 0272 00451000 * IF RNGEFLAG='0'B THEN /* SYMBOL NOT IN ANY RANGE */ 00452000 @RC00267 TM RNGEFLAG,B'01000000' 0273 00453000 BNZ @RF00273 0273 00454000 * TESTFLAG='0'B; /* SYMBOL NOT USABLE */ 00455000 NI TESTFLAG,B'01111111' 0274 00456000 * END; /* PROCESS SYMBOL */ 00457000 @RF00273 DS 0H 0276 00458000 * END; /* EXAMINE SYMBOLS IN TABLE */ 00459000 @RC00260 DS 0H 0276 00460000 @DE00256 TM ENDFLAG,B'10100000' 0276 00461000 BZ @DL00256 0276 00462000 * END GETSYM; /* GET NEXT USABLE SYMBOL */ 00463000 @EL00003 DS 0H 0277 00464000 @EF00003 DS 0H 0277 00465000 @ER00003 LM @14,@04,@SA00003 0277 00466000 LM @06,@12,@SA00003+28 0277 00467000 BR @14 0277 00468000 *CHKRNGE: 0278 00469000 * 0278 00470000 * /*****************************************************************/ 00471000 * /* */ 00472000 * /* PROCEDURE TO COMPARE A SYMBOL AGAINST ONE RANGE PDE */ 00473000 * /* */ 00474000 * /*****************************************************************/ 00475000 * 0278 00476000 * PROCEDURE; 0278 00477000 CHKRNGE STM @14,@12,@SA00004 0278 00478000 * CALL BLSRSYRG; /* GET THE RANGE */ 00479000 * 0279 00480000 BAL @14,BLSRSYRG 0279 00481000 * /*****************************************************************/ 00482000 * /* */ 00483000 * /* COMPARE SYMBOL AGAINST RANGE AND MARK RANGE IF FOUND OR USABLE*/ 00484000 * /* */ 00485000 * /*****************************************************************/ 00486000 * 0280 00487000 * IF RANGEORG<=ESAUSYM&ESAUSYM<=RANGEEND THEN 0280 00488000 CLC RANGEORG(31),ESAUSYM 0280 00489000 BH @RF00280 0280 00490000 CLC ESAUSYM(31),RANGEEND 0280 00491000 BH @RF00280 0280 00492000 * DO; /* SYMBOL WITHIN RANGE */ 00493000 * RNGEFLAG='1'B; /* A SYMBOL HAS BEEN FOUND IN 0282 00494000 * SOME RANGE */ 00495000 OI RNGEFLAG,B'01000000' 0282 00496000 * PDSYMIF2(1)='1'B; /* MARK RANGE "FOUND" */ 00497000 OI PDSYMIF2(PDSYMP),B'01000000' 0283 00498000 * IF TESTFLAG='1'B THEN /* SYMBOL PASSED BY TESTSYM */ 00499000 TM TESTFLAG,B'10000000' 0284 00500000 BNO @RF00284 0284 00501000 * PDSYMIF3(1)='1'B; /* MARK RANGE "USED" */ 00502000 OI PDSYMIF3(PDSYMP),B'00100000' 0285 00503000 * END; /* SYMBOL WITHIN RANGE */ 00504000 * END CHKRNGE; /* COMPARE SYMBOL TO RANGE */ 00505000 @EL00004 DS 0H 0287 00506000 @EF00004 DS 0H 0287 00507000 @ER00004 LM @14,@12,@SA00004 0287 00508000 BR @14 0287 00509000 * 0288 00510000 */********************************************************************/ 00511000 */* */ 00512000 */* BLSRSYRG--GET THE SYMBOL RANGE (INTERNAL PROCEDURE ONLY) */ 00513000 */* */ 00514000 */********************************************************************/ 00515000 * 0288 00516000 *BLSRSYRG: 0288 00517000 * PROCEDURE; 0288 00518000 BLSRSYRG STM @14,@12,12(@13) 0288 00519000 * RANGEORG=ZZZSYMIN; /* DEFAULT LOWER BOUND */ 00520000 MVC RANGEORG(31),@CC00171 0289 00521000 * RANGEEND=ZZZSYMAX; /* DEFAULT UPPER BOUND */ 00522000 MVC RANGEEND(31),@CC00167 0290 00523000 * IF PDSYMIL(1)=0| /* NO SYMBOL SPECIFIED */ 00524000 * (PDSYMIL(1)=1&PDSYMI1(1:1)='*')/* ASTERISK SPECIFIED */ 00525000 * THEN 0291 00526000 LH @14,PDSYMIL(,PDSYMP) 0291 00527000 LTR @14,@14 0291 00528000 BZ @RT00291 0291 00529000 C @14,@CF00043 0291 00530000 BNE @RF00291 0291 00531000 L @14,PDSYMIP(,PDSYMP) 0291 00532000 CLI PDSYMI1(@14),C'*' 0291 00533000 BE @RT00291 0291 00534000 * ; /* DEFAULT RANGE */ 00535000 * ELSE 0293 00536000 * DO; /* EXPLICIT RANGE */ 00537000 @RF00291 DS 0H 0294 00538000 * RANGEORG(1:PDSYMIL(1))=PDSYMI1(1:PDSYMIL(1));/* ORIGIN */ 00539000 LH @14,PDSYMIL(,PDSYMP) 0294 00540000 BCTR @14,0 0294 00541000 L @08,PDSYMIP(,PDSYMP) 0294 00542000 EX @14,@SM01337 0294 00543000 * IF PDSYMIFP(2)='1'B THEN /* EXPLICIT RANGE END */ 00544000 TM PDSYMIFP+8(PDSYMP),B'10000000' 0295 00545000 BNO @RF00295 0295 00546000 * RANGEEND(1:PDSYMIL(2))=PDSYMI2(1:PDSYMIL(2)); 0296 00547000 LH @14,PDSYMIL+8(,PDSYMP) 0296 00548000 BCTR @14,0 0296 00549000 L @08,PDSYMIP+8(,PDSYMP) 0296 00550000 EX @14,@SM01339 0296 00551000 * ELSE /* IMPLICIT RANGE END */ 00552000 * RANGEEND=RANGEORG; /* RANGE END */ 00553000 B @RC00295 0297 00554000 @RF00295 MVC RANGEEND(31),RANGEORG 0297 00555000 * END; 0298 00556000 * END BLSRSYRG; /* GET THE RANGE */ 00557000 @EL00005 DS 0H 0299 00558000 @EF00005 DS 0H 0299 00559000 @ER00005 LM @14,@12,12(@13) 0299 00560000 BR @14 0299 00561000 * 0300 00562000 * /*****************************************************************/ 00563000 * /* */ 00564000 * /* LISTSYM DEPENDANT ROUTINES */ 00565000 * /* */ 00566000 * /*****************************************************************/ 00567000 * 0300 00568000 *TESTSYM: 0300 00569000 * 0300 00570000 * /*****************************************************************/ 00571000 * /* */ 00572000 * /* TEST TO SEE IF A SYMBOL CAN BE LISTED */ 00573000 * /* */ 00574000 * /*****************************************************************/ 00575000 * 0300 00576000 * PROCEDURE; /* TEST IF SYMBOL CAN BE LISTED */ 00577000 TESTSYM STM @14,@12,12(@13) 0300 00578000 * TESTFLAG='1'B; /* ALL SYMBOLS ARE LISTED */ 00579000 OI TESTFLAG,B'10000000' 0301 00580000 * END TESTSYM; /* TEST IF SYMBOL CAN BE LISTED */ 00581000 @EL00006 DS 0H 0302 00582000 @EF00006 DS 0H 0302 00583000 @ER00006 LM @14,@12,12(@13) 0302 00584000 BR @14 0302 00585000 *DOSYM: 0303 00586000 * 0303 00587000 * /*****************************************************************/ 00588000 * /* */ 00589000 * /* LIST A SYMBOL */ 00590000 * /* */ 00591000 * /*****************************************************************/ 00592000 * 0303 00593000 * PROCEDURE; /* LIST A SYMBOL */ 00594000 * 0303 00595000 DOSYM STM @14,@04,@SA00007 0303 00596000 STM @06,@12,@SA00007+28 0303 00597000 * /*****************************************************************/ 00598000 * /* */ 00599000 * /* IF FIRST SYMBOL FOUND, PRODUCE CAPTION */ 00600000 * /* */ 00601000 * /*****************************************************************/ 00602000 * 0304 00603000 * IF FLAGC='0'B THEN /* NO CAPTION PRODUCED YET */ 00604000 TM FLAGC,B'00010000' 0304 00605000 BNZ @RF00304 0304 00606000 * DO; /* OUTPUT CAPTION */ 00607000 * FLAGC='1'B; /* CAPTION IS OUTPUT */ 00608000 OI FLAGC,B'00010000' 0306 00609000 * IF ZZ2AFP='1'B THEN /* PRINT ROUTING SPECIFIED */ 00610000 TM ZZ2AFP(R9),B'10000000' 0307 00611000 BNO @RF00307 0307 00612000 * DO; /* PRINT CAPTION */ 00613000 * CALL BLSUPRTT(ZZ2,MC); /* PRINT CAPTION */ 00614000 ST R9,@AL00001 0309 00615000 LA @14,MC 0309 00616000 ST @14,@AL00001+4 0309 00617000 L @08,ZZ2BVTP(,R9) 0309 00618000 L @15,BVTPRTTP(,@08) 0309 00619000 LA @01,@AL00001 0309 00620000 BALR @14,@15 0309 00621000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00622000 CR RETC,RF 0310 00623000 BNL *+6 00624000 LR RETC,RF 0310 00625000 * END; /* PRINT CAPTION */ 00626000 * IF ZZ2AFT='1'B| /* TERMINAL ROUTING */ 00627000 * ZZ2AFP='0'B THEN /* PRINT NOT SPECIFIED */ 00628000 @RF00307 TM ZZ2AFT(R9),B'01000000' 0312 00629000 BNZ @RT00312 0312 00630000 TM ZZ2AFP(R9),B'10000000' 0312 00631000 BO @RF00312 0312 00632000 @RT00312 DS 0H 0313 00633000 * DO; /* CAPTION TO TERMINAL */ 00634000 * CALL BLSUTRMA(ZZ2,MCL); /* DISPLAY CAPTION (NOT 0314 00635000 * MULTILINE) */ 00636000 ST R9,@AL00001 0314 00637000 LA @14,MCL 0314 00638000 ST @14,@AL00001+4 0314 00639000 L @08,ZZ2BVTP(,R9) 0314 00640000 L @15,BVTTRMAP(,@08) 0314 00641000 LA @01,@AL00001 0314 00642000 BALR @14,@15 0314 00643000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00644000 CR RETC,RF 0315 00645000 BNL *+6 00646000 LR RETC,RF 0315 00647000 * END; /* CAPTION TO TERMINAL */ 00648000 * END; /* OUTPUT CAPTION */ 00649000 * 0317 00650000 @RF00312 DS 0H 0318 00651000 * /*****************************************************************/ 00652000 * /* */ 00653000 * /* DISPLAY REMARK IF REQUESTED */ 00654000 * /* */ 00655000 * /*****************************************************************/ 00656000 * 0318 00657000 * IF PDREM=PDREMARK& /* REMARK REQUESTED */ 00658000 * ESAURL>0 THEN /* REMARK PRESENT */ 00659000 @RF00304 LA @14,1 0318 00660000 CH @14,PDREM 0318 00661000 BNE @RF00318 0318 00662000 CLC ESAURL(2),@CH00048 0318 00663000 BNH @RF00318 0318 00664000 * DO; /* DISPLAY REMARK */ 00665000 * 0319 00666000 * /*************************************************************/ 00667000 * /* */ 00668000 * /* SEGMENT REMARK IF IT IS LONGER THAN A DISPLAY LINE */ 00669000 * /* */ 00670000 * /*************************************************************/ 00671000 * 0320 00672000 * MB=MR; /* INITIALIZE REMARK */ 00673000 MVI MB+5,C' ' 0320 00674000 MVC MB+6(249),MB+5 0320 00675000 MVC MB(5),MR 0320 00676000 * J1=1; /* START OF FIRST SEGMENT */ 00677000 LR J1,@14 0321 00678000 * DO WHILE(J1<=ESAURL); /* PROCESS ALL REMARK TEXT */ 00679000 B @DE00322 0322 00680000 @DL00322 DS 0H 0323 00681000 * J2=J1+ZZ2ALINE-1; /* END OF SEGMENT */ 00682000 LR J2,J1 0323 00683000 AL J2,ZZ2ALINE(,R9) 0323 00684000 BCTR J2,0 0323 00685000 * IF J2ZONED 0356 00850000 * HEXADECIMAL */ 00851000 UNPK MDBT40(5),PTRBIT(4) 0356 00852000 * MDBT40(LENGTH(MDBT40):LENGTH(MDBT40))=PTRBIT(25:32);/* FINAL 0357 00853000 * ZONED HEXADECIMAL DIGIT */ 00854000 MVC MDBT40+5(1),PTRBIT+3 0357 00855000 * TR(MDBT40,ZZ1TRHEX); /* ZONED HEXADECIMAL=>EBCDIC */ 00856000 L @14,ZZ2ZZ1P(,R9) 0358 00857000 TR MDBT40(6),ZZ1TRHEX(@14) 0358 00858000 * END; /* BLRCNVPC(ESAULAD) FROM(POINTER 00859000 * )TO(CHARACTER)SET(MDBT40)TR(ZZ 00860000 * 1TRHEX) */ 00861000 * 0359 00862000 * /*****************************************************************/ 00863000 * /* */ 00864000 * /* DESCRIBE OFFSET IF PRESENT */ 00865000 * /* */ 00866000 * /*****************************************************************/ 00867000 * 0360 00868000 * IF ESAUDOF^=0 THEN 0360 00869000 L @14,ESAUDOF 0360 00870000 SLR @08,@08 0360 00871000 CR @14,@08 0360 00872000 BE @RF00360 0360 00873000 * DO; /* BLRCNVOC(ESAUDOF) FROM(OFFSET) 00874000 * TO(CHARACTER)SET(MDBT5)TR(ZZ1T 00875000 * RHEX) */ 00876000 * IF ESAUDOF>=0 THEN 0362 00877000 * 0362 00878000 CR @14,@08 0362 00879000 BL @RF00362 0362 00880000 * /***********************************************************/ 00881000 * /* */ 00882000 * /* POSITIVE OFFSET */ 00883000 * /* */ 00884000 * /***********************************************************/ 00885000 * 0363 00886000 * DO; /* POSITIVE OFFSET */ 00887000 * MDBT5(1:1)='+'; /* POSITIVE OFFSET */ 00888000 MVI MDBT5,C'+' 0364 00889000 * PTRPTR=ESAUDOF; /* POINTER/BIT INTERMEDIATE */ 00890000 ST @14,PTRPTR 0365 00891000 * END; 0366 00892000 * ELSE 0367 00893000 * 0367 00894000 * /***********************************************************/ 00895000 * /* */ 00896000 * /* NEGATIVE OFFSET */ 00897000 * /* */ 00898000 * /***********************************************************/ 00899000 * 0367 00900000 * DO; /* NEGATIVE OFFSET */ 00901000 B @RC00362 0367 00902000 @RF00362 DS 0H 0368 00903000 * MDBT5(1:1)='-'; /* NEGATIVE OFFSET */ 00904000 MVI MDBT5,C'-' 0368 00905000 * IF ESAUDOF='80000000'X THEN 0369 00906000 L @14,@CF00063 0369 00907000 CL @14,ESAUDOF 0369 00908000 BNE @RF00369 0369 00909000 * PTRPTR='80000000'X; /* POINTER/BIT INTERMEDIATE */ 00910000 ST @14,PTRPTR 0370 00911000 * ELSE 0371 00912000 * PTRPTR=-ESAUDOF; /* POINTER/BIT INTERMEDIATE */ 00913000 B @RC00369 0371 00914000 @RF00369 L @14,ESAUDOF 0371 00915000 LCR @14,@14 0371 00916000 ST @14,PTRPTR 0371 00917000 * END; 0372 00918000 @RC00369 DS 0H 0373 00919000 * UNPK(MDBT5(2:LENGTH(MDBT5)-1),PTRBIT);/* BIT=>ZONED 0373 00920000 * HEXADECIMAL */ 00921000 @RC00362 UNPK MDBT5+1(5),PTRBIT(4) 0373 00922000 * MDBT5(LENGTH(MDBT5):LENGTH(MDBT5))=PTRBIT(25:32);/* FINAL 0374 00923000 * ZONED HEXADECIMAL DIGIT */ 00924000 MVC MDBT5+6(1),PTRBIT+3 0374 00925000 * TR(MDBT5(2:LENGTH(MDBT5)),ZZ1TRHEX);/* ZONED 0375 00926000 * HEXADECIMAL=>EBCDIC */ 00927000 L @14,ZZ2ZZ1P(,R9) 0375 00928000 TR MDBT5+1(6),ZZ1TRHEX(@14) 0375 00929000 * END; /* BLRCNVOC(ESAUDOF) FROM(OFFSET) 00930000 * TO(CHARACTER)SET(MDBT5)TR(ZZ1T 00931000 * RHEX) */ 00932000 * ELSE 0377 00933000 * MDBT5=''; /* BLANK FOR ZERO OFFSET */ 00934000 * 0377 00935000 B @RC00360 0377 00936000 @RF00360 MVI MDBT5,C' ' 0377 00937000 MVC MDBT5+1(6),MDBT5 0377 00938000 * /*****************************************************************/ 00939000 * /* */ 00940000 * /* DESCRIBE LENGTH */ 00941000 * /* */ 00942000 * /*****************************************************************/ 00943000 * 0378 00944000 * DO; /* BLRCNVUC(ESAUDLE) 0378 00945000 * FROM(UNSIGNED BINARY)TO(CHARAC 00946000 * TER)OPTIONS(PATTERN IN PLACE)P 00947000 * ATTERN('40202020202020202120'X 00948000 * )SET(MDBT6) */ 00949000 @RC00360 DS 0H 0379 00950000 * CVD(ESAUDLE,PACKED); /* UNSIGNED BINARY=>PACKED 0379 00951000 * DECIMAL */ 00952000 L @14,ESAUDLE 0379 00953000 CVD @14,PACKED 0379 00954000 * ED(MDBT6,PACKED(25:64)); /* PACKED DECIMAL=>EBCDIC */ 00955000 ED MDBT6(10),PACKED+3 0380 00956000 * END; /* BLRCNVUC(ESAUDLE) 0381 00957000 * FROM(UNSIGNED BINARY)TO(CHARAC 00958000 * TER)OPTIONS(PATTERN IN PLACE)P 00959000 * ATTERN('40202020202020202120'X 00960000 * )SET(MDBT6) */ 00961000 * 0381 00962000 * /*****************************************************************/ 00963000 * /* */ 00964000 * /* DESCRIBE MULTIPLE */ 00965000 * /* */ 00966000 * /*****************************************************************/ 00967000 * 0382 00968000 * DO; /* BLRCNVUC(ESAUDIM) 0382 00969000 * FROM(UNSIGNED FIXED BINARY)TO( 00970000 * CHARACTER)SET(MDBT7)OPTIONS(PA 00971000 * TTERN IN 0382 00972000 * PLACE)PATTERN('402020202020'X)*/ 00973000 * CVD(ESAUDIM,PACKED); /* UNSIGNED BINARY=>PACKED 0383 00974000 * DECIMAL */ 00975000 L @14,ESAUDIM 0383 00976000 CVD @14,PACKED 0383 00977000 * ED(MDBT7,PACKED(41:64)); /* PACKED DECIMAL=>EBCDIC */ 00978000 ED MDBT7(6),PACKED+5 0384 00979000 * END; /* BLRCNVUC(ESAUDIM) 0385 00980000 * FROM(UNSIGNED FIXED BINARY)TO( 00981000 * CHARACTER)SET(MDBT7)OPTIONS(PA 00982000 * TTERN IN 0385 00983000 * PLACE)PATTERN('402020202020'X)*/ 00984000 * 0385 00985000 * /*****************************************************************/ 00986000 * /* */ 00987000 * /* DESCRIBE DATA TYPE */ 00988000 * /* */ 00989000 * /*****************************************************************/ 00990000 * 0386 00991000 * CALL BLSRMSGD(ZZ2,MT,ESAUDT); /* BUILD DATA TYPE TEXT */ 00992000 ST R9,@AL00001 0386 00993000 LA @14,MT 0386 00994000 ST @14,@AL00001+4 0386 00995000 LA @14,ESAUDT 0386 00996000 ST @14,@AL00001+8 0386 00997000 L @08,ZZ2RVTP(,R9) 0386 00998000 L @15,RVTMSGDP(,@08) 0386 00999000 LA @01,@AL00001 0386 01000000 BALR @14,@15 0386 01001000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 01002000 CR RETC,RF 0387 01003000 BNL *+6 01004000 LR RETC,RF 0387 01005000 * MDBT9(1:MTL-5)=MTT1(2:MTL-4); /* DATA TYPE TEXT */ 01006000 * 0388 01007000 LH @14,MTL 0388 01008000 N @14,@CF01342 0388 01009000 SL @14,@CF00212 0388 01010000 EX @14,@SM01347 0388 01011000 * /*****************************************************************/ 01012000 * /* */ 01013000 * /* OUTPUT DISPLAY LINE */ 01014000 * /* */ 01015000 * /*****************************************************************/ 01016000 * 0389 01017000 * CALL BLSUPUTA(ZZ2,MDB); /* TRANSMIT MD */ 01018000 ST R9,@AL00001 0389 01019000 LA @14,MDB 0389 01020000 ST @14,@AL00001+4 0389 01021000 L @08,ZZ2BVTP(,R9) 0389 01022000 L @15,BVTPUTAP(,@08) 0389 01023000 LA @01,@AL00001 0389 01024000 BALR @14,@15 0389 01025000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 01026000 CR RETC,RF 0390 01027000 BNL *+6 01028000 LR RETC,RF 0390 01029000 * END DOSYM; /* DISPLAY A SYMBOL */ 01030000 @EL00007 DS 0H 0391 01031000 @EF00007 DS 0H 0391 01032000 @ER00007 LM @14,@04,@SA00007 0391 01033000 LM @06,@12,@SA00007+28 0391 01034000 BR @14 0391 01035000 * 0392 01036000 */*BLSRPEND--DEBUGGING MODULE */ 01037000 */*BLSUPEND--MVS IPCS MODULE */ 01038000 * 0392 01039000 * DECLARE /* DATA FOR AHB MACROS */ 01040000 * PTRBIT BIT(32) BOUNDARY(WORD),/* DATA CONVERSION WORK AREA FOR 01041000 * POINTER DATA */ 01042000 * PTRPTR POINTER DEFINED(PTRBIT),/* DATA CONVERSION WORK AREA FOR 01043000 * POINTER DATA */ 01044000 * PACKED BIT(64) BOUNDARY(DWORD);/* DATA CONVERSION WORK AREA */ 01045000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01046000 * GPR00F FIXED(31) REG(0), 0393 01047000 * GPR01F FIXED(31) REG(1), 0393 01048000 * GPR15F FIXED(31) REG(15); 0393 01049000 * DECLARE /* COMMON VARIABLES */ 01050000 * I256C CHAR(256) BASED, 0394 01051000 * I031F FIXED(31) BASED, 0394 01052000 * I031P PTR(31) BASED, 0394 01053000 * I015F FIXED(15) BASED, 0394 01054000 * I015P PTR(15) BASED, 0394 01055000 * I008P PTR(8) BASED, 0394 01056000 * I001C CHAR(1) BASED; 0394 01057000 * GENERATE NODEFS NOREFS DATA; 0395 01058000 * END BLSRLSYM /* BLRPEND(BLSRLSYM) */ 01059000 * 0396 01060000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01061000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 01062000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01063000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01064000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01065000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01066000 */*%INCLUDE SYSLIB (IKJECT ) */ 01067000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01068000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01069000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01070000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01071000 */*%INCLUDE SYSLIB (BLSRSERV) */ 01072000 */*%INCLUDE SYSLIB (BLSRSYPL) */ 01073000 */*%INCLUDE SYSLIB (BLSRESCO) */ 01074000 */*%INCLUDE SYSLIB (BLSRSYRG) */ 01075000 * 0396 01076000 * ; 0396 01077000 @EL00001 L @13,4(,@13) 0396 01078000 @EF00001 L @00,@SIZDATD 0396 01079000 LR @01,@11 0396 01080000 BLSUFRER R,LV=(0),A=(1) 01081000 @ER00001 LM @14,@12,12(@13) 0396 01082000 BR @14 0396 01083000 @DATA DS 0H 01084000 @CH00048 DC H'0' 01085000 @CH00068 DC H'2' 01086000 @SM01337 MVC RANGEORG(0),PDSYMI1(@08) 01087000 @SM01339 MVC RANGEEND(0),PDSYMI2(@08) 01088000 @SM01343 MVC MBT1(0),0(@08) 01089000 @SM01345 MVC MDBT3(0),MAT1+1 01090000 @SM01347 MVC MDBT9(0),MTT1+1 01091000 @DATD DSECT 01092000 DS 0F 01093000 @SA00001 DS 18F 01094000 @SA00002 DS 14F 01095000 @SA00003 DS 14F 01096000 @SA00007 DS 14F 01097000 @SA00004 DS 15F 01098000 @AL00001 DS 4A 01099000 BLSRLSYM CSECT 01100000 DS 0F 01101000 @CF00043 DC F'1' 01102000 @CH00043 EQU @CF00043+2 01103000 @CF00212 DC F'6' 01104000 @CF00051 DC F'8' 01105000 @CF00531 DC F'10' 01106000 @CF00034 DC F'12' 01107000 @CF01324 DC F'-5' 01108000 @CF00063 DC XL4'80000000' 01109000 @CF01342 DC XL4'0000FFFF' 01110000 @DATD DSECT 01111000 DS 0D 01112000 PDAPTR DS A 01113000 MB DS CL255 01114000 ORG MB 01115000 MBL DS FL2 01116000 @NM00086 DS BL2 01117000 MBT DS CL251 01118000 ORG MBT 01119000 MBT0 DS CL1 01120000 MBT1 DS CL250 01121000 ORG MB+255 01122000 DS CL1 01123000 MA DS CL22 01124000 ORG MA 01125000 MAL DS FL2 01126000 MAO DS FL2 01127000 MAT DS CL18 01128000 ORG MAT 01129000 MAT1 DS CL18 01130000 ORG MAT1 01131000 MAT10 DS CL5 01132000 MAT11 DS CL2 01133000 MAT12 DS CL7 01134000 MAT13 DS CL3 01135000 MAT14 DS CL1 01136000 ORG MA+22 01137000 MT DS CL47 01138000 ORG MT 01139000 MTL DS FL2 01140000 MTO DS FL2 01141000 MTT DS CL43 01142000 ORG MTT 01143000 MTT1 DS CL43 01144000 ORG MTT1 01145000 MTT10 DS CL11 01146000 MTT11 DS CL31 01147000 MTT12 DS CL1 01148000 ORG MT+47 01149000 @NM00087 DS BL1 01150000 ORG @NM00087 01151000 TESTFLAG DS BL1 01152000 RNGEFLAG EQU @NM00087+0 01153000 ENDFLAG EQU @NM00087+0 01154000 FLAGC EQU @NM00087+0 01155000 @NM00088 EQU @NM00087+0 01156000 ORG @NM00087+1 01157000 RANGEORG DS CL31 01158000 RANGEEND DS CL31 01159000 RANGEMAX DS CL31 01160000 DS CL1 01161000 MYRPL DS CL256 01162000 VSAMBUFR DS CL3072 01163000 PTRBIT DS BL4 01164000 DS CL4 01165000 PACKED DS BL8 01166000 BLSRLSYM CSECT 01167000 DS 0F 01168000 @SIZDATD DC AL1(0) 01169000 DC AL3(@ENDDATD-@DATD) 01170000 DS 0D 01171000 PCPTR DC AL4(PC) 01172000 @CC00167 DC C'Z999999999999999999999999999999' 01173000 @CC00171 DC C'$ ' 01174000 @CC01280 DC C'BLSRSYRB' 01175000 @CC01283 DC C'BLSRESRU' 01176000 @CB01206 DC X'00' 01177000 DS CL1 01178000 MC DS CL88 01179000 ORG MC 01180000 MCXP DC AL4(MU) 01181000 MCL DC AL2(88-4) 01182000 @NM00080 DC X'0000' 01183000 MCT DS CL80 01184000 ORG MCT 01185000 MCT0 DC CL1'0' 01186000 MCT1 DC CL8'SYMBOL ' 01187000 MCT2 DC CL1' ' 01188000 MCT3 DC CL20'ADDRESS SPACE ' 01189000 MCT4 DC CL7'ADDRESS' 01190000 MCT5 DC CL7' OFFSET' 01191000 MCT6 DC CL10' LENGTH' 01192000 MCT7 DC CL6' DIM' 01193000 MCT8 DC CL1' ' 01194000 MCT9 DS CL19 01195000 ORG MCT9 01196000 MCT90 DC CL9'DATA TYPE' 01197000 MCT91 DC CL10' ' 01198000 ORG MC+88 01199000 MU DS CL89 01200000 ORG MU 01201000 MUXP DC A(0) 01202000 MUL DC AL2(89-4) 01203000 @NM00081 DC X'0000' 01204000 MUT DS CL81 01205000 ORG MUT 01206000 MUT0 DC CL1'+' 01207000 MUT1 DC CL8'________' 01208000 MUT2 DC CL1' ' 01209000 MUT3 DC CL20'___________________ ' 01210000 MUT4 DC CL7'_______' 01211000 MUT5 DC CL7' ______' 01212000 MUT6 DC CL10' _________' 01213000 MUT7 DC CL6' _____' 01214000 MUT8 DC CL1' ' 01215000 MUT9 DC CL20'____________________' 01216000 ORG MU+89 01217000 DS CL3 01218000 MX DS CL8 01219000 ORG MX 01220000 MXXP DC A(0) 01221000 MXL DC AL2(8-4) 01222000 @NM00082 DC X'0000' 01223000 MXT DS 0C 01224000 ORG MXT 01225000 MXT1 DS 0C 01226000 ORG MX+8 01227000 MDS DS CL85 01228000 ORG MDS 01229000 MDSL DC AL2(85) 01230000 @NM00083 DC X'0000' 01231000 MDST DS CL81 01232000 ORG MDST 01233000 MDST0 DC CL1' ' 01234000 MDST1 DC CL8' ' 01235000 MDST2 DC CL1' ' 01236000 MDST3 DC CL20' ' 01237000 MDST4 DS CL7 01238000 ORG MDST4 01239000 MDST40 DC CL6'000000' 01240000 MDST41 DC CL1'.' 01241000 ORG MDST+37 01242000 MDST5 DC CL7'+000000' 01243000 MDST6 DC X'40202020202020202120' 01244000 MDST7 DC X'402020202020' 01245000 MDST8 DC CL1' ' 01246000 MDST9 DC CL20' ' 01247000 ORG MDS+85 01248000 DS CL1 01249000 MR DS CL5 01250000 ORG MR 01251000 MRL DC AL2(5) 01252000 @NM00085 DC X'0000' 01253000 MRT DS CL1 01254000 ORG MRT 01255000 MRT0 DC CL1'0' 01256000 MRT1 DS 0C 01257000 ORG MR+5 01258000 DS CL5 01259000 ESCO DS CL182 01260000 ORG ESCO 01261000 ESCORID DC CL2'ES' 01262000 @NM00101 DC X'000000000000' 01263000 @NM00102 DC CL8' ' 01264000 @NM00103 DC X'00' 01265000 DC XL7'0' 01266000 ESCORDX DC A(0) 01267000 ESCOSYM DC CL31' ' 01268000 ESCOELK DS 0C 01269000 ESCORV1 DC CL1' ' 01270000 ESCOAS DS CL16 01271000 ORG ESCOAS 01272000 ESCOAS0 DS 0C 01273000 ESCOAST DC CL2' ' 01274000 @NM00104 DC X'0000' 01275000 ESCOAS1 DC A(0) 01276000 ESCOAS2 DC A(0) 01277000 @NM00105 DC X'00' 01278000 DC XL3'0' 01279000 ESCOAS9 DS 0C 01280000 ORG ESCO+76 01281000 ESCOLAD DC A(0) 01282000 ESCOD DS CL60 01283000 ORG ESCOD 01284000 ESCOD00 DS 0C 01285000 ESCODOF DC F'0' 01286000 ESCODLE DC A(4) 01287000 ESCODOB DC AL1(0) 01288000 ESCODLB DC AL1(0) 01289000 ESCODT DS CL34 01290000 ORG ESCODT 01291000 ESCODT0 DS 0C 01292000 ESCODTY DC CL1'U' 01293000 @NM00106 DC X'00' 01294000 ESCODTD DC CL31' ' 01295000 ESCODTE DC CL1' ' 01296000 ESCODT9 DS 0C 01297000 ORG ESCOD+44 01298000 ESCODIM DC A(0) 01299000 ESCODIL DC F'0' 01300000 ESCODF DC X'00000000' 01301000 ORG ESCODF 01302000 ESCODFA DS BL1 01303000 @NM00107 EQU ESCODF+0 01304000 ORG ESCOD+56 01305000 @NM00108 DC X'00' 01306000 DC XL3'0' 01307000 ESCOD99 DS 0C 01308000 ORG ESCO+140 01309000 ESCOMAD DC A(0) 01310000 @NM00109 DC X'00' 01311000 DC XL15'0' 01312000 ESCOKEY DS BL1 01313000 ESCOF DC X'00' 01314000 DC XL2'0' 01315000 ORG ESCOF 01316000 ESCOFS DS BL1 01317000 ORG ESCOFS 01318000 ESCOFSC DS BL1 01319000 ESCOFS2 EQU ESCOFS+0 01320000 ESCOFSM EQU ESCOFS+0 01321000 ESCOFSA EQU ESCOFS+0 01322000 ESCOFSP EQU ESCOFS+0 01323000 ESCOFSR EQU ESCOFS+0 01324000 ESCOFSX EQU ESCOFS+0 01325000 ESCOFSS EQU ESCOFS+0 01326000 ORG ESCOF+1 01327000 ESCOFC DS BL1 01328000 ORG ESCOFC 01329000 ESCOFCD DS BL1 01330000 @NM00110 EQU ESCOFC+0 01331000 ORG ESCOF+2 01332000 @NM00111 DS BL1 01333000 ORG ESCO+164 01334000 ESCOABS DC A(0) 01335000 @NM00112 DC X'00' 01336000 DC XL11'0' 01337000 ESCOR DS CL2 01338000 ORG ESCOR 01339000 ESCORL DC AL2(0) 01340000 ESCORT DS 0C 01341000 ORG ESCORT 01342000 ESCORT1 DS 0C 01343000 ORG ESCO+182 01344000 ESCO999 DS 0C 01345000 ORG ESCO+182 01346000 PXRO DC AL2(PXPRINT-PD) 01347000 DC AL2(PXTERM-PD) 01348000 DC AL2(0) 01349000 DC AL2(0) 01350000 @DATD DSECT 01351000 SPACE 2 01352000 *********************************************************************** 01353000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01354000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01355000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01356000 *********************************************************************** 01357000 SPACE 01358000 BLSRLSYM CSECT 01359000 ORG 01360000 DS 0D 01361000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRLSYM+19)/20+7)/8)CL8'BLSRLSYM' 01362000 @DATD DSECT 01363000 DS 0H 01364000 @DATD DSECT 01365000 SPACE 2 01366000 *********************************************************************** 01367000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 01368000 *********************************************************************** 01369000 SPACE 01370000 BLSRLSYM CSECT 01371000 PC IKJPARM DSECT=PD 01372000 @DATD DSECT 01373000 BLSRLSYM CSECT 01374000 PDSYM IKJIDENT 'SYMBOL',LIST,RANGE,ASTERISK,FIRST=ALPHA,MAXLNTH=31, *01375000 OTHER=ALPHANUM 01376000 @DATD DSECT 01377000 BLSRLSYM CSECT 01378000 PDREM IKJKEYWD 01379000 @DATD DSECT 01380000 BLSRLSYM CSECT 01381000 IKJNAME 'REMARKS' 01382000 @DATD DSECT 01383000 BLSRLSYM CSECT 01384000 PXPRINT IKJKEYWD 01385000 @DATD DSECT 01386000 BLSRLSYM CSECT 01387000 IKJNAME 'PRINT' 01388000 @DATD DSECT 01389000 BLSRLSYM CSECT 01390000 IKJNAME 'NOPRINT' 01391000 @DATD DSECT 01392000 BLSRLSYM CSECT 01393000 PXTERM IKJKEYWD 01394000 @DATD DSECT 01395000 BLSRLSYM CSECT 01396000 IKJNAME 'TERMINAL' 01397000 @DATD DSECT 01398000 BLSRLSYM CSECT 01399000 IKJNAME 'NOTERMINAL' 01400000 @DATD DSECT 01401000 BLSRLSYM CSECT 01402000 PXTEST IKJKEYWD 01403000 @DATD DSECT 01404000 BLSRLSYM CSECT 01405000 IKJNAME 'TEST' 01406000 @DATD DSECT 01407000 BLSRLSYM CSECT 01408000 IKJNAME 'NOTEST' 01409000 @DATD DSECT 01410000 PD DSECT 01411000 PD99 DS 0C 01412000 BLSRLSYM CSECT 01413000 IKJENDP 01414000 SPACE 2 01415000 *********************************************************************** 01416000 * IKJENDP--END SYNTAX DESCRIPTION * 01417000 *********************************************************************** 01418000 SPACE 01419000 @DATD DSECT 01420000 SPACE 2 01421000 *---------------------------------------------------------------------* 01422000 */*RESERVE STORAGE FOR THE GENCB PARAMETER LIST * 01423000 *---------------------------------------------------------------------* 01424000 SPACE 01425000 GENPARM DS (GENPARML)CL1 GENCB PARAMETER LIST 01426000 ***/ 01427000 @DATD DSECT 01428000 SPACE 2 01429000 *********************************************************************** 01430000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01431000 *********************************************************************** 01432000 SPACE 01433000 DS 0D 01434000 @DATD DSECT 01435000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01436000 @ENDDATD EQU * 01437000 BLSRLSYM CSECT 01438000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01439000 @01 EQU 01 01440000 @02 EQU 02 01441000 @03 EQU 03 01442000 @04 EQU 04 01443000 @05 EQU 05 01444000 @06 EQU 06 01445000 @07 EQU 07 01446000 @08 EQU 08 01447000 @09 EQU 09 01448000 @10 EQU 10 01449000 @11 EQU 11 01450000 @12 EQU 12 01451000 @13 EQU 13 01452000 @14 EQU 14 01453000 @15 EQU 15 01454000 J4 EQU @03 01455000 J3 EQU @06 01456000 J2 EQU @03 01457000 J1 EQU @02 01458000 DRDX EQU @03 01459000 PDSYMP EQU @02 01460000 RETC EQU @05 01461000 R9 EQU @09 01462000 R0 EQU @00 01463000 R1 EQU @01 01464000 R2 EQU @02 01465000 R3 EQU @03 01466000 R4 EQU @04 01467000 R5 EQU @05 01468000 R6 EQU @06 01469000 R7 EQU @07 01470000 RB EQU @11 01471000 RD EQU @13 01472000 RE EQU @14 01473000 RF EQU @15 01474000 PDRPTR EQU @10 01475000 GPR15F EQU @15 01476000 GPR01F EQU @01 01477000 GPR00F EQU @00 01478000 RA EQU @10 01479000 RC EQU @12 01480000 R8 EQU @08 01481000 ZZ1 EQU 0 01482000 ZZ1PNULL EQU ZZ1+8 01483000 ZZ1ACBP EQU ZZ1+28 01484000 ZZ1ATTN EQU ZZ1+360 01485000 ZZ1EVE EQU ZZ1ATTN+4 01486000 ZZ1F EQU ZZ1+368 01487000 ZZ1TRHEX EQU ZZ1+568 01488000 ZZ1N EQU ZZ1+1116 01489000 ZZ2 EQU 0 01490000 ZZ2AMD EQU ZZ2 01491000 @NM00013 EQU ZZ2AMD+7 01492000 ZZ2PRT EQU ZZ2+138 01493000 ZZ2PRTT EQU ZZ2PRT+4 01494000 ZZ2PRTT1 EQU ZZ2PRTT+1 01495000 ZZ2A EQU ZZ2+272 01496000 ZZ2ALINE EQU ZZ2A+4 01497000 ZZ2AF EQU ZZ2A+16 01498000 ZZ2AFP EQU ZZ2AF 01499000 ZZ2AFT EQU ZZ2AF 01500000 ZZ2AFX EQU ZZ2AF+5 01501000 ZZ2APID EQU ZZ2A+64 01502000 ZZ2AD EQU ZZ2A+74 01503000 ZZ2ADD EQU ZZ2AD 01504000 ZZ2ADDT EQU ZZ2ADD+2 01505000 ZZ2ADM EQU ZZ2AD+46 01506000 ZZ2ADMT EQU ZZ2ADM+2 01507000 ZZ2ADP EQU ZZ2AD+56 01508000 ZZ2ADPT EQU ZZ2ADP+2 01509000 ZZ2AZZ6P EQU ZZ2A+140 01510000 ZZ2AQAS EQU ZZ2A+144 01511000 ZZ2AQD EQU ZZ2A+160 01512000 ZZ2AQDT EQU ZZ2AQD+10 01513000 ZZ2AQDF EQU ZZ2AQD+52 01514000 ZZ2STG EQU ZZ2+960 01515000 ZZ2ALLOP EQU ZZ2+992 01516000 ZZ2FREEP EQU ZZ2+996 01517000 ZZ2FF19P EQU ZZ2+1000 01518000 ZZ2FRE1P EQU ZZ2+1004 01519000 ZZ2FF18P EQU ZZ2+1008 01520000 ZZ2DYNAP EQU ZZ2+1012 01521000 ZZ2ZZ2CP EQU ZZ2+1016 01522000 ZZ2ZZ2DP EQU ZZ2+1020 01523000 ZZ2STAIP EQU ZZ2+1024 01524000 ZZ2FF02P EQU ZZ2+1028 01525000 ZZ2GETLP EQU ZZ2+1032 01526000 ZZ2PARSP EQU ZZ2+1036 01527000 ZZ2PTGTP EQU ZZ2+1040 01528000 ZZ2PUTLP EQU ZZ2+1044 01529000 ZZ2SCANP EQU ZZ2+1048 01530000 ZZ2STCKP EQU ZZ2+1052 01531000 ZZ2TRMOP EQU ZZ2+1064 01532000 ZZ2TRMVP EQU ZZ2+1068 01533000 ZZ2PUTNP EQU ZZ2+1084 01534000 ZZ2TRMNP EQU ZZ2+1088 01535000 ZZ2ZZ1P EQU ZZ2+1264 01536000 ZZ2BVTP EQU ZZ2+1280 01537000 ZZ2RVTP EQU ZZ2+1284 01538000 ZZ2CPPL EQU ZZ2+1292 01539000 ZZ2CPPLC EQU ZZ2CPPL 01540000 ZZ2PGM EQU ZZ2+1536 01541000 ZZ2ITR EQU ZZ2+2840 01542000 ZZ2ITRE EQU ZZ2ITR+16 01543000 ZZ2ITSE EQU ZZ2+2864 01544000 ZZ2ES EQU ZZ2+2872 01545000 ZZ2AMDX EQU ZZ2+7160 01546000 ZZ2AXO EQU ZZ2+7934 01547000 ZZ2AXOT EQU ZZ2AXO+2 01548000 CMD EQU 0 01549000 CMDT EQU CMD+4 01550000 PSCB EQU 0 01551000 PSCBATR1 EQU PSCB+16 01552000 ECT EQU 0 01553000 ECTSWS EQU ECT+28 01554000 ECTSWS2 EQU ECT+40 01555000 ECTSWS21 EQU ECTSWS2 01556000 UPT EQU 0 01557000 UPTSWS EQU UPT+12 01558000 SA EQU 0 01559000 SA1 EQU SA 01560000 SAR EQU SA+12 01561000 SAR1 EQU SAR+12 01562000 BLSUPARI EQU 0 01563000 BLSUPARU EQU 0 01564000 BLSUPGMC EQU 0 01565000 BLSUPRTT EQU 0 01566000 BLSUPUTA EQU 0 01567000 BLSUTRMA EQU 0 01568000 BLSUVSCR EQU 0 01569000 BLSUVSEN EQU 0 01570000 BLSUVSGU EQU 0 01571000 BLSUVSPO EQU 0 01572000 BVT EQU 0 01573000 BVTPUTLP EQU BVT+4 01574000 BVTPUTOP EQU BVT+12 01575000 BVTPUTTP EQU BVT+16 01576000 BVTPUTVP EQU BVT+20 01577000 BVTPUTAP EQU BVT+24 01578000 BVTPRTTP EQU BVT+28 01579000 BVTPRTAP EQU BVT+32 01580000 BVTPUTDP EQU BVT+36 01581000 BVTMONP EQU BVT+40 01582000 BVTMON2P EQU BVT+44 01583000 BVTVSARP EQU BVT+48 01584000 BVTVSENP EQU BVT+64 01585000 BVTVSERP EQU BVT+68 01586000 BVTVSGEP EQU BVT+72 01587000 BVTVSGUP EQU BVT+76 01588000 BVTVSPOP EQU BVT+80 01589000 BVTVSPUP EQU BVT+84 01590000 BVTMPKNP EQU BVT+104 01591000 BVTMONLP EQU BVT+108 01592000 BVTPUTCP EQU BVT+132 01593000 BVTMPK1P EQU BVT+136 01594000 BVTZZ2RP EQU BVT+140 01595000 BVTPGMRP EQU BVT+144 01596000 BVTMONAP EQU BVT+148 01597000 BVTBLDDP EQU BVT+152 01598000 BVTBLDLP EQU BVT+156 01599000 BVTPGMCP EQU BVT+160 01600000 BVTPGMDP EQU BVT+164 01601000 BVTPGMLP EQU BVT+168 01602000 BVTMONCP EQU BVT+180 01603000 BVTMONDP EQU BVT+184 01604000 BVTMONTP EQU BVT+188 01605000 BVTPARIP EQU BVT+192 01606000 BVTPARUP EQU BVT+196 01607000 BVTPRTNP EQU BVT+204 01608000 BVTVSCRP EQU BVT+208 01609000 BVTVSMRP EQU BVT+212 01610000 BVTMONXP EQU BVT+216 01611000 BVTTRMAP EQU BVT+228 01612000 ZZ6 EQU 0 01613000 ZZ6D EQU ZZ6+128 01614000 ZZ6DD EQU ZZ6D+8 01615000 ZZ6DDT EQU ZZ6DD+4 01616000 ZZ6DRDX EQU ZZ6D+64 01617000 ZZ6DQA EQU ZZ6D+68 01618000 ZZ6DF EQU ZZ6D+92 01619000 ZZ6B EQU ZZ6+768 01620000 BLSRMSGA EQU 0 01621000 BLSRMSGD EQU 0 01622000 RVT EQU 0 01623000 RVTADDRP EQU RVT 01624000 RVTT01P EQU RVT+4 01625000 RVTTAP EQU RVT+8 01626000 RVTTBP EQU RVT+12 01627000 RVTTCP EQU RVT+16 01628000 RVTTFP EQU RVT+24 01629000 RVTTYP EQU RVT+40 01630000 RVTT02P EQU RVT+48 01631000 RVTT03P EQU RVT+52 01632000 RVTT04P EQU RVT+56 01633000 RVTACCLP EQU RVT+60 01634000 RVTRACCP EQU RVT+64 01635000 RVTTLP EQU RVT+68 01636000 RVTTMP EQU RVT+72 01637000 RVTTUP EQU RVT+80 01638000 RVTESGEP EQU RVT+84 01639000 RVTESGUP EQU RVT+88 01640000 RVTESARP EQU RVT+92 01641000 RVTRAARP EQU RVT+96 01642000 RVTRAGEP EQU RVT+100 01643000 RVTADDPP EQU RVT+104 01644000 RVTACCQP EQU RVT+108 01645000 RVTSAGUP EQU RVT+124 01646000 RVTSAGEP EQU RVT+128 01647000 RVTESCKP EQU RVT+132 01648000 RVTMSGAP EQU RVT+136 01649000 RVTMSGDP EQU RVT+140 01650000 RVTADDTP EQU RVT+160 01651000 RVTADDUP EQU RVT+164 01652000 RVTADD1P EQU RVT+176 01653000 RVTADD2P EQU RVT+180 01654000 RVTRSAGP EQU RVT+184 01655000 RVTMSGBP EQU RVT+188 01656000 RVTADDSP EQU RVT+192 01657000 RVTADD3P EQU RVT+196 01658000 RVTT05P EQU RVT+200 01659000 RVTPADSP EQU RVT+204 01660000 RVTTRP EQU RVT+228 01661000 RVTADD4P EQU RVT+232 01662000 RVTSAPCP EQU RVT+236 01663000 RVTSAARP EQU RVT+240 01664000 RVTSAGNP EQU RVT+244 01665000 RVTT06P EQU RVT+248 01666000 RVTSAGCP EQU RVT+252 01667000 RVTSAGQP EQU RVT+256 01668000 RVTESGCP EQU RVT+260 01669000 RVTESGQP EQU RVT+264 01670000 RVTDUCKP EQU RVT+276 01671000 RVTDUCCP EQU RVT+280 01672000 PCCSECT EQU 0 01673000 PDDSECT EQU 0 01674000 PDXP EQU PDDSECT+1 01675000 PDL EQU PDDSECT+5 01676000 PDSYMX EQU 0 01677000 @NM00078 EQU PDSYMX 01678000 PDSYMIP EQU @NM00078 01679000 PDSYMIL EQU @NM00078+4 01680000 PDSYMIF EQU @NM00078+6 01681000 PDSYMIFP EQU PDSYMIF 01682000 PDSYMIF2 EQU PDSYMIF 01683000 PDSYMIF3 EQU PDSYMIF 01684000 PDSYMXP EQU PDSYMX+16 01685000 PDSYMI1 EQU 0 01686000 PDSYMI2 EQU 0 01687000 BLSRACC EQU 0 01688000 BLSRACCL EQU 0 01689000 BLSRACCQ EQU 0 01690000 BLSRADDP EQU 0 01691000 BLSRADDR EQU 0 01692000 BLSRADDS EQU 0 01693000 BLSRADDT EQU 0 01694000 BLSRADDU EQU 0 01695000 BLSRADD1 EQU 0 01696000 BLSRADD2 EQU 0 01697000 BLSRADD3 EQU 0 01698000 BLSRADD4 EQU 0 01699000 BLSRDUCC EQU 0 01700000 BLSRDUCK EQU 0 01701000 BLSRESAR EQU 0 01702000 BLSRESCK EQU 0 01703000 BLSRESGC EQU 0 01704000 BLSRESGE EQU 0 01705000 BLSRESGQ EQU 0 01706000 BLSRESGU EQU 0 01707000 BLSRMSGB EQU 0 01708000 BLSRPADS EQU 0 01709000 BLSRRAAR EQU 0 01710000 BLSRRAGE EQU 0 01711000 BLSRSAAR EQU 0 01712000 BLSRSAG EQU 0 01713000 BLSRSAGC EQU 0 01714000 BLSRSAGE EQU 0 01715000 BLSRSAGN EQU 0 01716000 BLSRSAGQ EQU 0 01717000 BLSRSAGU EQU 0 01718000 BLSRSAPC EQU 0 01719000 BLSTA EQU 0 01720000 BLSTB EQU 0 01721000 BLSTC EQU 0 01722000 BLSTF EQU 0 01723000 BLSTL EQU 0 01724000 BLSTM EQU 0 01725000 BLSTR EQU 0 01726000 BLSTU EQU 0 01727000 BLSTY EQU 0 01728000 BLST01 EQU 0 01729000 BLST02 EQU 0 01730000 BLST03 EQU 0 01731000 BLST04 EQU 0 01732000 BLST05 EQU 0 01733000 BLST06 EQU 0 01734000 BLSUALLO EQU 0 01735000 BLSUBLDD EQU 0 01736000 BLSUBLDL EQU 0 01737000 BLSUDYNA EQU 0 01738000 BLSUFREE EQU 0 01739000 BLSUFRE1 EQU 0 01740000 BLSUMON EQU 0 01741000 BLSUMONA EQU 0 01742000 BLSUMONC EQU 0 01743000 BLSUMOND EQU 0 01744000 BLSUMONL EQU 0 01745000 BLSUMONT EQU 0 01746000 BLSUMONX EQU 0 01747000 BLSUMON2 EQU 0 01748000 BLSUMPKN EQU 0 01749000 BLSUMPK1 EQU 0 01750000 BLSUPGMD EQU 0 01751000 BLSUPGML EQU 0 01752000 BLSUPGMR EQU 0 01753000 BLSUPRTA EQU 0 01754000 BLSUPRTN EQU 0 01755000 BLSUPUTC EQU 0 01756000 BLSUPUTD EQU 0 01757000 BLSUPUTL EQU 0 01758000 BLSUPUTN EQU 0 01759000 BLSUPUTO EQU 0 01760000 BLSUPUTT EQU 0 01761000 BLSUPUTV EQU 0 01762000 BLSUSTAI EQU 0 01763000 BLSUTRMN EQU 0 01764000 BLSUTRMO EQU 0 01765000 BLSUTRMV EQU 0 01766000 BLSUVSAR EQU 0 01767000 BLSUVSER EQU 0 01768000 BLSUVSGE EQU 0 01769000 BLSUVSMR EQU 0 01770000 BLSUVSPU EQU 0 01771000 BLSUZZ2C EQU 0 01772000 BLSUZZ2D EQU 0 01773000 BLSUZZ2R EQU 0 01774000 IKJEFF02 EQU 0 01775000 IKJEFF18 EQU 0 01776000 IKJEFF19 EQU 0 01777000 IKJGETL EQU 0 01778000 IKJPARS EQU 0 01779000 IKJPTGT EQU 0 01780000 IKJPUTL EQU 0 01781000 IKJSCAN EQU 0 01782000 IKJSTCK EQU 0 01783000 I001C EQU 0 01784000 I008P EQU 0 01785000 I015F EQU 0 01786000 I015P EQU 0 01787000 I031F EQU 0 01788000 I031P EQU 0 01789000 I256C EQU 0 01790000 CPPL EQU ZZ2CPPL 01791000 CPPLUPT EQU CPPL+4 01792000 CPPLPSCB EQU CPPL+8 01793000 CPPLECT EQU CPPL+12 01794000 MDB EQU MB 01795000 MDBT EQU MDB+4 01796000 MDBT1 EQU MDBT+1 01797000 MDBT3 EQU MDBT+10 01798000 MDBT4 EQU MDBT+30 01799000 MDBT40 EQU MDBT4 01800000 MDBT5 EQU MDBT+37 01801000 MDBT6 EQU MDBT+44 01802000 MDBT7 EQU MDBT+54 01803000 MDBT9 EQU MDBT+61 01804000 ESAU EQU VSAMBUFR 01805000 ESAURID EQU ESAU 01806000 ESAURDX EQU ESAU+24 01807000 ESAUSYM EQU ESAU+28 01808000 ESAUAS EQU ESAU+60 01809000 ESAULAD EQU ESAU+76 01810000 ESAUD EQU ESAU+80 01811000 ESAUDOF EQU ESAUD 01812000 ESAUDLE EQU ESAUD+4 01813000 ESAUDT EQU ESAUD+10 01814000 ESAUDIM EQU ESAUD+44 01815000 ESAUDF EQU ESAUD+52 01816000 ESAUF EQU ESAU+161 01817000 ESAUFS EQU ESAUF 01818000 ESAUFC EQU ESAUF+1 01819000 ESAUR EQU ESAU+180 01820000 ESAURL EQU ESAUR 01821000 ESAURT EQU ESAUR+2 01822000 PTRPTR EQU PTRBIT 01823000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01824000 ESAU999 EQU ESAU+694 01825000 ESAURT1 EQU ESAURT 01826000 @NM00100 EQU ESAU+168 01827000 ESAUABS EQU ESAU+164 01828000 @NM00099 EQU ESAUF+2 01829000 @NM00098 EQU ESAUFC 01830000 ESAUFCD EQU ESAUFC 01831000 ESAUFSS EQU ESAUFS 01832000 ESAUFSX EQU ESAUFS 01833000 ESAUFSR EQU ESAUFS 01834000 ESAUFSP EQU ESAUFS 01835000 ESAUFSA EQU ESAUFS 01836000 ESAUFSM EQU ESAUFS 01837000 ESAUFS2 EQU ESAUFS 01838000 ESAUFSC EQU ESAUFS 01839000 ESAUKEY EQU ESAU+160 01840000 @NM00097 EQU ESAU+144 01841000 ESAUMAD EQU ESAU+140 01842000 ESAUD99 EQU ESAUD+60 01843000 @NM00096 EQU ESAUD+56 01844000 @NM00095 EQU ESAUDF 01845000 ESAUDFA EQU ESAUDF 01846000 ESAUDIL EQU ESAUD+48 01847000 ESAUDT9 EQU ESAUDT+34 01848000 ESAUDTE EQU ESAUDT+33 01849000 ESAUDTD EQU ESAUDT+2 01850000 @NM00094 EQU ESAUDT+1 01851000 ESAUDTY EQU ESAUDT 01852000 ESAUDT0 EQU ESAUDT 01853000 ESAUDLB EQU ESAUD+9 01854000 ESAUDOB EQU ESAUD+8 01855000 ESAUD00 EQU ESAUD 01856000 ESAUAS9 EQU ESAUAS+16 01857000 @NM00093 EQU ESAUAS+12 01858000 ESAUAS2 EQU ESAUAS+8 01859000 ESAUAS1 EQU ESAUAS+4 01860000 @NM00092 EQU ESAUAS+2 01861000 ESAUAST EQU ESAUAS 01862000 ESAUAS0 EQU ESAUAS 01863000 ESAURV1 EQU ESAU+59 01864000 ESAUELK EQU ESAU+59 01865000 @NM00091 EQU ESAU+16 01866000 @NM00090 EQU ESAU+8 01867000 @NM00089 EQU ESAU+2 01868000 MDBT8 EQU MDBT+60 01869000 MDBT41 EQU MDBT4+6 01870000 MDBT2 EQU MDBT+9 01871000 MDBT0 EQU MDBT 01872000 @NM00084 EQU MDB+2 01873000 MDBL EQU MDB 01874000 CPPLCBUF EQU CPPL 01875000 @NM00079 EQU @NM00078+7 01876000 PDSYMIF8 EQU PDSYMIF 01877000 PDSYMIF7 EQU PDSYMIF 01878000 PDSYMIF6 EQU PDSYMIF 01879000 PDSYMIF5 EQU PDSYMIF 01880000 PDSYMIF4 EQU PDSYMIF 01881000 PDSP EQU PDDSECT+4 01882000 @NM00077 EQU PDDSECT 01883000 RVT99999 EQU RVT+384 01884000 RVT0096P EQU RVT+380 01885000 RVT0095P EQU RVT+376 01886000 RVT0094P EQU RVT+372 01887000 RVT0093P EQU RVT+368 01888000 RVT0092P EQU RVT+364 01889000 RVT0091P EQU RVT+360 01890000 RVT0090P EQU RVT+356 01891000 RVT0089P EQU RVT+352 01892000 RVT0088P EQU RVT+348 01893000 RVT0087P EQU RVT+344 01894000 RVT0086P EQU RVT+340 01895000 RVT0085P EQU RVT+336 01896000 RVT0084P EQU RVT+332 01897000 RVT0083P EQU RVT+328 01898000 RVT0082P EQU RVT+324 01899000 RVT0081P EQU RVT+320 01900000 RVT0080P EQU RVT+316 01901000 RVT0079P EQU RVT+312 01902000 RVT0078P EQU RVT+308 01903000 RVT0077P EQU RVT+304 01904000 RVT0076P EQU RVT+300 01905000 RVT0075P EQU RVT+296 01906000 RVT0074P EQU RVT+292 01907000 RVT0073P EQU RVT+288 01908000 RVT0072P EQU RVT+284 01909000 RVTDTUTP EQU RVT+272 01910000 RVTDTMTP EQU RVT+268 01911000 RVT0057P EQU RVT+224 01912000 RVT0056P EQU RVT+220 01913000 RVT0055P EQU RVT+216 01914000 RVT0054P EQU RVT+212 01915000 RVT0053P EQU RVT+208 01916000 RVT0044P EQU RVT+172 01917000 RVT0043P EQU RVT+168 01918000 RVT0040P EQU RVT+156 01919000 RVT0039P EQU RVT+152 01920000 RVT0038P EQU RVT+148 01921000 RVT0037P EQU RVT+144 01922000 RVT0031P EQU RVT+120 01923000 RVT0030P EQU RVT+116 01924000 RVT0029P EQU RVT+112 01925000 RVT0020P EQU RVT+76 01926000 RVT0012P EQU RVT+44 01927000 RVT0010P EQU RVT+36 01928000 RVT0009P EQU RVT+32 01929000 RVT0008P EQU RVT+28 01930000 RVT0006P EQU RVT+20 01931000 ZZ69999 EQU ZZ6+1792 01932000 ZZ6BRB EQU ZZ6B+12 01933000 ZZ6BRC EQU ZZ6B+8 01934000 @NM00076 EQU ZZ6B+6 01935000 ZZ6BFL EQU ZZ6B+4 01936000 ZZ6BDA EQU ZZ6B 01937000 @NM00075 EQU ZZ6+540 01938000 ZZ6BUFI EQU ZZ6+536 01939000 ZZ6BUFP EQU ZZ6+532 01940000 ZZ6FILE EQU ZZ6+524 01941000 ZZ6BUFB EQU ZZ6+520 01942000 ZZ6BUFL EQU ZZ6+518 01943000 ZZ6BUFN EQU ZZ6+516 01944000 ZZ6ZZ6P EQU ZZ6+512 01945000 @NM00074 EQU ZZ6+256 01946000 ZZ6D999 EQU ZZ6D+128 01947000 @NM00073 EQU ZZ6D+116 01948000 ZZ6DCAP EQU ZZ6D+112 01949000 ZZ6DPRP EQU ZZ6D+108 01950000 ZZ6DDA2 EQU ZZ6D+104 01951000 ZZ6DDA1 EQU ZZ6D+100 01952000 @NM00072 EQU ZZ6DF 01953000 ZZ6DFSU EQU ZZ6DF 01954000 ZZ6DFST EQU ZZ6DF 01955000 ZZ6DFAB EQU ZZ6DF 01956000 ZZ6DFMP EQU ZZ6DF 01957000 ZZ6DFDU EQU ZZ6DF 01958000 ZZ6DFBS EQU ZZ6DF 01959000 ZZ6DQ2 EQU ZZ6D+88 01960000 ZZ6DQ1 EQU ZZ6D+84 01961000 ZZ6DQA9 EQU ZZ6DQA+16 01962000 @NM00071 EQU ZZ6DQA+12 01963000 ZZ6DQA2 EQU ZZ6DQA+8 01964000 ZZ6DQA1 EQU ZZ6DQA+4 01965000 @NM00070 EQU ZZ6DQA+2 01966000 ZZ6DQAT EQU ZZ6DQA 01967000 ZZ6DQA0 EQU ZZ6DQA 01968000 ZZ6DELK EQU ZZ6D+64 01969000 ZZ6DMEM EQU ZZ6D+56 01970000 ZZ6DDT1 EQU ZZ6DDT 01971000 ZZ6DDO EQU ZZ6DD+2 01972000 ZZ6DDL EQU ZZ6DD 01973000 @NM00069 EQU ZZ6D+2 01974000 ZZ6DRID EQU ZZ6D 01975000 ZZ6RDCB EQU ZZ6 01976000 ZZ60000 EQU ZZ6 01977000 BVT99999 EQU BVT+256 01978000 BVT0064P EQU BVT+252 01979000 BVT0063P EQU BVT+248 01980000 BVT0062P EQU BVT+244 01981000 BVT0061P EQU BVT+240 01982000 BVT0060P EQU BVT+236 01983000 BVT0059P EQU BVT+232 01984000 BVT0057P EQU BVT+224 01985000 BVT0056P EQU BVT+220 01986000 BVTSTBLP EQU BVT+200 01987000 BVT0045P EQU BVT+176 01988000 BVT0044P EQU BVT+172 01989000 BVT0033P EQU BVT+128 01990000 BVT0032P EQU BVT+124 01991000 BVT0031P EQU BVT+120 01992000 BVT0030P EQU BVT+116 01993000 BVT0029P EQU BVT+112 01994000 BVT0026P EQU BVT+100 01995000 BVT0025P EQU BVT+96 01996000 BVT0024P EQU BVT+92 01997000 BVT0023P EQU BVT+88 01998000 BVT0016P EQU BVT+60 01999000 BVT0015P EQU BVT+56 02000000 BVT0014P EQU BVT+52 02001000 BVT0003P EQU BVT+8 02002000 BVT0001P EQU BVT 02003000 SA99 EQU SA+72 02004000 SARC EQU SAR+56 02005000 SARB EQU SAR+52 02006000 SARA EQU SAR+48 02007000 SAR9 EQU SAR+44 02008000 SAR8 EQU SAR+40 02009000 SAR7 EQU SAR+36 02010000 SAR6 EQU SAR+32 02011000 SAR5 EQU SAR+28 02012000 SAR4 EQU SAR+24 02013000 SAR3 EQU SAR+20 02014000 SAR2 EQU SAR+16 02015000 SAR0 EQU SAR+8 02016000 SARF EQU SAR+4 02017000 SARE EQU SAR 02018000 SAFWD EQU SA+8 02019000 SABAK EQU SA+4 02020000 SA1L EQU SA1+1 02021000 SA1P EQU SA1 02022000 UPTPREFL EQU UPT+23 02023000 UPTPREFX EQU UPT+16 02024000 @NM00068 EQU UPT+15 02025000 UPTLDEL EQU UPT+14 02026000 UPTCDEL EQU UPT+13 02027000 UPTWTP EQU UPTSWS 02028000 UPTMODE EQU UPTSWS 02029000 UPTALD EQU UPTSWS 02030000 UPTPAUS EQU UPTSWS 02031000 UPTNCOM EQU UPTSWS 02032000 UPTMID EQU UPTSWS 02033000 UPTNPRM EQU UPTSWS 02034000 UPTRCVR EQU UPTSWS 02035000 UPTUSER EQU UPT+2 02036000 @NM00067 EQU UPT 02037000 @NM00066 EQU ECT+52 02038000 @NM00065 EQU ECT+48 02039000 @NM00064 EQU ECT+44 02040000 @NM00063 EQU ECTSWS2+1 02041000 @NM00062 EQU ECTSWS21 02042000 ECTTABND EQU ECTSWS21 02043000 ECTDEFCS EQU ECTSWS21 02044000 ECTBKPB EQU ECT+36 02045000 ECTUSER EQU ECT+32 02046000 ECTDDNUM EQU ECT+29 02047000 ECTATTN EQU ECTSWS 02048000 ECTBKGRD EQU ECTSWS 02049000 ECTNNOT EQU ECTSWS 02050000 ECTNMAL EQU ECTSWS 02051000 ECTLOGF EQU ECTSWS 02052000 ECTATRM EQU ECTSWS 02053000 @NM00061 EQU ECTSWS 02054000 ECTNOPD EQU ECTSWS 02055000 ECTSCMD EQU ECT+20 02056000 ECTPCMD EQU ECT+12 02057000 ECTSMSG EQU ECT+9 02058000 ECTMSGF EQU ECT+8 02059000 ECTIOWA EQU ECT+4 02060000 ECTRTCD EQU ECT+1 02061000 ECTRCDF EQU ECT 02062000 PSCBU EQU PSCB+64 02063000 PSCBRSZ EQU PSCB+60 02064000 PSCBLINE EQU PSCB+59 02065000 PSCBCHAR EQU PSCB+58 02066000 PSCBUPTL EQU PSCB+56 02067000 PSCBUPT EQU PSCB+52 02068000 PSCBRLGB EQU PSCB+48 02069000 PSCBDEST EQU PSCB+40 02070000 @NM00060 EQU PSCB+36 02071000 @NM00059 EQU PSCB+32 02072000 @NM00058 EQU PSCB+28 02073000 PSCBLTI2 EQU PSCB+24 02074000 PSCBLTIM EQU PSCB+20 02075000 PSCBATR2 EQU PSCB+18 02076000 @NM00057 EQU PSCBATR1 02077000 @NM00056 EQU PSCBATR1 02078000 @NM00055 EQU PSCBATR1 02079000 PSCBATTN EQU PSCBATR1 02080000 PSCBVMNT EQU PSCBATR1 02081000 PSCBJCL EQU PSCBATR1 02082000 PSCBACCT EQU PSCBATR1 02083000 PSCBCTRL EQU PSCBATR1 02084000 PSCBGPNM EQU PSCB+8 02085000 PSCBUSRL EQU PSCB+7 02086000 PSCBUSER EQU PSCB 02087000 CMDT1 EQU CMDT 02088000 CMDO EQU CMD+2 02089000 CMDL EQU CMD 02090000 ZZ299999 EQU ZZ2+8192 02091000 ZZ2AXOT1 EQU ZZ2AXOT 02092000 ZZ2AXOL EQU ZZ2AXO 02093000 @NM00054 EQU ZZ2+7288 02094000 @NM00053 EQU ZZ2AMDX+4 02095000 ZZ2AMDXC EQU ZZ2AMDX 02096000 ZZ2HSD EQU ZZ2+3056 02097000 @NM00052 EQU ZZ2ES 02098000 @NM00051 EQU ZZ2+2868 02099000 ZZ2ITSEC EQU ZZ2ITSE+1 02100000 @NM00050 EQU ZZ2ITSE 02101000 ZZ2ITSEP EQU ZZ2ITSE 02102000 ZZ2ITSEW EQU ZZ2ITSE 02103000 @NM00049 EQU ZZ2ITR+20 02104000 ZZ2ITREC EQU ZZ2ITRE+1 02105000 @NM00048 EQU ZZ2ITRE 02106000 ZZ2ITREP EQU ZZ2ITRE 02107000 ZZ2ITREW EQU ZZ2ITRE 02108000 @NM00047 EQU ZZ2ITR+9 02109000 ZZ2ITRRC EQU ZZ2ITR+8 02110000 ZZ2ITR2P EQU ZZ2ITR+4 02111000 ZZ2ITRPP EQU ZZ2ITR 02112000 @NM00046 EQU ZZ2+1544 02113000 @NM00045 EQU ZZ2+1526 02114000 ZZ2CW EQU ZZ2+1524 02115000 @NM00044 EQU ZZ2+1504 02116000 @NM00043 EQU ZZ2+1352 02117000 ZZ2FFSYP EQU ZZ2+1348 02118000 ZZ2SASYP EQU ZZ2+1344 02119000 ZZ2RDSYP EQU ZZ2+1340 02120000 ZZ2RASYP EQU ZZ2+1336 02121000 ZZ2PHSYP EQU ZZ2+1332 02122000 ZZ2ESSYP EQU ZZ2+1328 02123000 ZZ200SYP EQU ZZ2+1324 02124000 ZZ2SCWP EQU ZZ2+1320 02125000 ZZ2TTLP EQU ZZ2+1316 02126000 ZZ2LOADP EQU ZZ2+1312 02127000 ZZ2VRESP EQU ZZ2+1308 02128000 ZZ2CPPLE EQU ZZ2CPPL+12 02129000 ZZ2CPPLP EQU ZZ2CPPL+8 02130000 ZZ2CPPLU EQU ZZ2CPPL+4 02131000 ZZ2VRSAP EQU ZZ2+1288 02132000 ZZ2DVTP EQU ZZ2+1276 02133000 @NM00042 EQU ZZ2+1272 02134000 @NM00041 EQU ZZ2+1268 02135000 ZZ2RPLP EQU ZZ2+1260 02136000 ZZ2TCBP EQU ZZ2+1256 02137000 @NM00040 EQU ZZ2+1252 02138000 ZZ2ZZ2P EQU ZZ2+1248 02139000 @NM00039 EQU ZZ2+1112 02140000 ZZ2FPDRP EQU ZZ2+1108 02141000 ZZ2FDSDP EQU ZZ2+1104 02142000 ZZ2APDRP EQU ZZ2+1100 02143000 ZZ2ADSDP EQU ZZ2+1096 02144000 ZZ2ENQ0P EQU ZZ2+1092 02145000 @NM00038 EQU ZZ2+1080 02146000 ZZ2MSG0P EQU ZZ2+1076 02147000 ZZ2FT25P EQU ZZ2+1072 02148000 ZZ2MSGSP EQU ZZ2+1060 02149000 ZZ2ALOCP EQU ZZ2+1056 02150000 @NM00037 EQU ZZ2+976 02151000 ZZ2TOD EQU ZZ2+968 02152000 ZZ2STGN EQU ZZ2STG+4 02153000 ZZ2STGP EQU ZZ2STG 02154000 @NM00036 EQU ZZ2+952 02155000 ZZ2SCMDE EQU ZZ2+944 02156000 ZZ2SCMDN EQU ZZ2+936 02157000 ZZ2IDENT EQU ZZ2+928 02158000 ZZ2A9999 EQU ZZ2A+656 02159000 @NM00035 EQU ZZ2A+224 02160000 @NM00034 EQU ZZ2A+220 02161000 ZZ2AQD99 EQU ZZ2AQD+60 02162000 @NM00033 EQU ZZ2AQD+56 02163000 @NM00032 EQU ZZ2AQDF 02164000 ZZ2AQDFA EQU ZZ2AQDF 02165000 ZZ2AQDIL EQU ZZ2AQD+48 02166000 ZZ2AQDIM EQU ZZ2AQD+44 02167000 ZZ2AQDT9 EQU ZZ2AQDT+34 02168000 ZZ2AQDTE EQU ZZ2AQDT+33 02169000 ZZ2AQDTD EQU ZZ2AQDT+2 02170000 @NM00031 EQU ZZ2AQDT+1 02171000 ZZ2AQDTY EQU ZZ2AQDT 02172000 ZZ2AQDT0 EQU ZZ2AQDT 02173000 ZZ2AQDLB EQU ZZ2AQD+9 02174000 ZZ2AQDOB EQU ZZ2AQD+8 02175000 ZZ2AQDLE EQU ZZ2AQD+4 02176000 ZZ2AQDOF EQU ZZ2AQD 02177000 ZZ2AQD00 EQU ZZ2AQD 02178000 ZZ2AQAS9 EQU ZZ2AQAS+16 02179000 @NM00030 EQU ZZ2AQAS+12 02180000 ZZ2AQAS2 EQU ZZ2AQAS+8 02181000 ZZ2AQAS1 EQU ZZ2AQAS+4 02182000 @NM00029 EQU ZZ2AQAS+2 02183000 ZZ2AQAST EQU ZZ2AQAS 02184000 ZZ2AQAS0 EQU ZZ2AQAS 02185000 ZZ2ADPTA EQU ZZ2ADPT 02186000 ZZ2ADPL EQU ZZ2ADP 02187000 ZZ2ADMTA EQU ZZ2ADMT 02188000 ZZ2ADML EQU ZZ2ADM 02189000 ZZ2ADDTA EQU ZZ2ADDT 02190000 ZZ2ADDL EQU ZZ2ADD 02191000 @NM00028 EQU ZZ2A+72 02192000 ZZ2APIDB EQU ZZ2APID+3 02193000 ZZ2APIDA EQU ZZ2APID 02194000 @NM00027 EQU ZZ2A+24 02195000 @NM00026 EQU ZZ2AF+5 02196000 @NM00025 EQU ZZ2AF+3 02197000 ZZ2AFS EQU ZZ2AF+2 02198000 ZZ2AFD EQU ZZ2AF+2 02199000 ZZ2AFQ EQU ZZ2AF+2 02200000 ZZ2AF$ EQU ZZ2AF+2 02201000 @NM00024 EQU ZZ2AF+2 02202000 ZZ2AFM EQU ZZ2AF+2 02203000 @NM00023 EQU ZZ2AF+2 02204000 @NM00022 EQU ZZ2AF+1 02205000 ZZ2AFV EQU ZZ2AF+1 02206000 @NM00021 EQU ZZ2AF+1 02207000 ZZ2AFC EQU ZZ2AF+1 02208000 @NM00020 EQU ZZ2AF 02209000 ZZ2AFFS EQU ZZ2AF 02210000 @NM00019 EQU ZZ2A+8 02211000 @NM00018 EQU ZZ2A+3 02212000 ZZ2ASE EQU ZZ2A+2 02213000 ZZ2ACH EQU ZZ2A 02214000 @NM00017 EQU ZZ2+264 02215000 @NM00016 EQU ZZ2+263 02216000 ZZ2PRTT0 EQU ZZ2PRTT 02217000 ZZ2PRTO EQU ZZ2PRT+2 02218000 ZZ2PRTL EQU ZZ2PRT 02219000 @NM00015 EQU ZZ2AMD+56 02220000 ZZ2AMDXP EQU ZZ2AMD+52 02221000 ZZ2AMDD EQU ZZ2AMD+48 02222000 ZZ2AMDL EQU ZZ2AMD+44 02223000 ZZ2AMDU EQU ZZ2AMD+28 02224000 ZZ2AMDF EQU ZZ2AMD+24 02225000 ZZ2AMDS EQU ZZ2AMD+20 02226000 ZZ2AMDC EQU ZZ2AMD+16 02227000 ZZ2AMDP EQU ZZ2AMD+12 02228000 ZZ2AMDB EQU ZZ2AMD+8 02229000 @NM00014 EQU @NM00013 02230000 ZZ2AMD2 EQU @NM00013 02231000 ZZ2AMD1 EQU @NM00013 02232000 ZZ2AMD0 EQU ZZ2AMD+6 02233000 ZZ2AMDA EQU ZZ2AMD+4 02234000 ZZ2AMDT EQU ZZ2AMD 02235000 ZZ199999 EQU ZZ1+3072 02236000 @NM00012 EQU ZZ1+2160 02237000 ZZ1TRTAS EQU ZZ1+1904 02238000 ZZ1TRUPC EQU ZZ1+1648 02239000 ZZ1TRCTX EQU ZZ1+1392 02240000 ZZ1NASID EQU ZZ1N+274 02241000 ZZ1NSTRL EQU ZZ1N+272 02242000 ZZ1NOFF EQU ZZ1N+268 02243000 ZZ1NBDY EQU ZZ1N+264 02244000 ZZ1NADE EQU ZZ1N+260 02245000 ZZ1NADB EQU ZZ1N+256 02246000 ZZ1NSTR EQU ZZ1N 02247000 @NM00011 EQU ZZ1+1080 02248000 ZZ1TREBC EQU ZZ1+824 02249000 @NM00010 EQU ZZ1+377 02250000 ZZ1USTAE EQU ZZ1+376 02251000 @NM00009 EQU ZZ1F+1 02252000 @NM00008 EQU ZZ1F 02253000 ZZ1FM EQU ZZ1F 02254000 ZZ1FX EQU ZZ1F 02255000 ZZ1FU EQU ZZ1F 02256000 ZZ1EVEC EQU ZZ1EVE+1 02257000 @NM00007 EQU ZZ1EVE 02258000 ZZ1EVEP EQU ZZ1EVE 02259000 ZZ1EVEW EQU ZZ1EVE 02260000 ZZ1ACMP EQU ZZ1ATTN 02261000 @NM00006 EQU ZZ1+144 02262000 ZZ1FPP EQU ZZ1+140 02263000 ZZ1ZZ6P EQU ZZ1+136 02264000 @NM00005 EQU ZZ1+84 02265000 ZZ1PLINE EQU ZZ1+80 02266000 ZZ1PGSZ EQU ZZ1+76 02267000 ZZ1PCNT EQU ZZ1+72 02268000 @NM00004 EQU ZZ1+68 02269000 ZZ1TPAGE EQU ZZ1+64 02270000 ZZ1TLINE EQU ZZ1+60 02271000 @NM00003 EQU ZZ1+48 02272000 ZZ1DSDP EQU ZZ1+44 02273000 ZZ1PDRP EQU ZZ1+40 02274000 ZZ1ZZ2P EQU ZZ1+36 02275000 ZZ1327WP EQU ZZ1+32 02276000 @NM00002 EQU ZZ1+24 02277000 ZZ1PDCBP EQU ZZ1+20 02278000 ZZ1BLRBL EQU ZZ1+16 02279000 @NM00001 EQU ZZ1+12 02280000 ZZ1NULL EQU ZZ1+4 02281000 ZZ1IDE EQU ZZ1 02282000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02283000 @RT00193 EQU EXITRLSA 02284000 @RT00207 EQU EXITRLSA 02285000 @RF00280 EQU @EL00004 02286000 @RF00284 EQU @EL00004 02287000 @RT00291 EQU @EL00005 02288000 @RC00295 EQU @EL00005 02289000 @RF00328 EQU @RC00324 02290000 @ENDDATA EQU * 02291000 END BLSRLSYM,(C'PLS1836',0701,78057) 02292000