T08 TITLE 'BLST08 --IPCS SERVICE ROUTINE TO DISPLAY UNSTRUCTURED *00001000 STORAGE ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPLK */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLST08 CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLST08 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 BLSUALLS 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 MVC @PC00001(8),0(@01) 0002 00025000 * FLAG='00'X; /* DEFAULT PROCESSING FLAGS */ 00026000 MVI FLAG,X'00' 0140 00027000 * ESAU(1:ESAULRL)=ESPA(1:ESAULRL);/* PREPARE REQUEST BUFFER */ 00028000 L @14,@PC00001+4 0141 00029000 MVC ESAU(182),ESPA(@14) 0141 00030000 * ESAURL=0; /* NO REMARK */ 00031000 SLR @14,@14 0142 00032000 STH @14,ESAURL 0142 00033000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00034000 SLR RETC,RETC 0143 00035000 * DUPLEN=0; /* DUPLICATE STORAGE LENGTH */ 00036000 ST @14,DUPLEN 0144 00037000 * IF ZZ2AFM='1'B THEN /* DISPLAY(MACHINE) */ 00038000 TM ZZ2AFM(R9),B'00100000' 0145 00039000 BNO @RF00145 0145 00040000 * FLAG3='1'B; /* BLST04 MESSAGE(S) DESIRED */ 00041000 OI FLAG3,B'00100000' 0146 00042000 * IF FLAG3='0'B& /* DISPLAY(MACHINE) */ 00043000 * ZZ2AFD='0'B THEN /* DISPLAY(STORAGE) */ 00044000 @RF00145 TM FLAG3,B'00100000' 0147 00045000 BNZ @RF00147 0147 00046000 TM ZZ2AFD(R9),B'00000010' 0147 00047000 BZ @RT00147 0147 00048000 * GO TO EXIT; /* COMMON EXIT PATH */ 00049000 * CLCLD=CLCLD&&CLCLD; /* INITIALIZE CLCLD */ 00050000 @RF00147 XC CLCLD(16),CLCLD 0149 00051000 * FPLZZ2P=ADDR(ZZ2); /* INITIALIZE FPL */ 00052000 ST R9,FPLZZ2P 0150 00053000 * FPLESP=ADDR(ESAU); /* STORAGE DESCRIPTION */ 00054000 LA @14,ESAU 0151 00055000 ST @14,FPLESP 0151 00056000 * FPLBUFP=ADDR(BUF); /* USUAL BUFFER TO USE */ 00057000 LA @14,BUF 0152 00058000 ST @14,FPLBUFP 0152 00059000 * BYTETOTL=ESAUDLE; /* TOTAL BYTES */ 00060000 L BYTETOTL,ESAUDLE 0153 00061000 * IF BYTETOTL>LENGTH(BUF)& /* MORE BYTES REQUIRED FOR AN */ 00062000 * ESAUDFA='1'B THEN /* ELEMENT OF AN ARRAY */ 00063000 * 0154 00064000 C BYTETOTL,@CF00094 0154 00065000 BNH @RF00154 0154 00066000 TM ESAUDFA,B'10000000' 0154 00067000 BNO @RF00154 0154 00068000 * /***************************************************************/ 00069000 * /* */ 00070000 * /* BUFFER ONE ENTRY IF POSSIBLE. FOR AN ARRAY, AN INTEGRAL */ 00071000 * /* NUMBER OF ENTRIES SHOULD BE PROCESSED IN A SINGLE PASS */ 00072000 * /* */ 00073000 * /***************************************************************/ 00074000 * 0155 00075000 * DO; /* BUFFER ONE ENTRY IF POSSIBLE */ 00076000 * DO; /* GETMAIN (RC) LV(BYTETOTL) 0156 00077000 * SP(ZZZSPEXC) */ 00078000 * RESPECIFY 0157 00079000 * (GPR01F, 0157 00080000 * GPR15F, 0157 00081000 * GPR00F) RESTRICTED; 0157 00082000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 00083000 SLR GPR01F,GPR01F 0158 00084000 * GPR15F=0; /* RC-TYPE GETMAIN */ 00085000 SLR GPR15F,GPR15F 0159 00086000 * GPR00F=BYTETOTL; /* LENGTH REQUESTED */ 00087000 LR GPR00F,BYTETOTL 0160 00088000 * GPR15F=GPR15F|((ZZZSPEXC)*256);/* SP IN BYTE 2 */ 00089000 O GPR15F,@CF00304 0161 00090000 * SVC(120); /* RC/RU-FORM OF GETMAIN */ 00091000 SVC 120 0162 00092000 * RESPECIFY 0163 00093000 * (GPR01F, 0163 00094000 * GPR15F, 0163 00095000 * GPR00F) UNRESTRICTED; 0163 00096000 * END; /* GETMAIN (RC) LV(BYTETOTL) 0164 00097000 * SP(ZZZSPEXC) */ 00098000 * IF RF=0 THEN 0165 00099000 LTR RF,RF 0165 00100000 BNZ @RF00165 0165 00101000 * FPLBUFP=R1; /* ->SINGLE ENTRY BUFFER */ 00102000 ST R1,FPLBUFP 0166 00103000 * ELSE 0167 00104000 * 0167 00105000 * /***********************************************************/ 00106000 * /* */ 00107000 * /* NO STORAGE FOR BUFFER */ 00108000 * /* */ 00109000 * /***********************************************************/ 00110000 * 0167 00111000 * DO; /* NO STORAGE FOR BUFFER */ 00112000 * 0167 00113000 B @RC00165 0167 00114000 @RF00165 DS 0H 0168 00115000 * /*********************************************************/ 00116000 * /* */ 00117000 * /* ISSUE ERROR MESSAGE */ 00118000 * /* */ 00119000 * /*********************************************************/ 00120000 * 0168 00121000 * RESPECIFY 0168 00122000 * (R1) UNRESTRICTED; 0168 00123000 * CALL BLSUTRMV(ZZ2,M3); /* TRANSMIT M3 */ 00124000 ST R9,@AL00001 0169 00125000 LA @14,M3 0169 00126000 ST @14,@AL00001+4 0169 00127000 L @15,ZZ2TRMVP(,R9) 0169 00128000 LA @01,@AL00001 0169 00129000 BALR @14,@15 0169 00130000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00131000 CR RETC,RF 0170 00132000 BNL *+6 00133000 LR RETC,RF 0170 00134000 * RESPECIFY 0171 00135000 * (R1) RESTRICTED; 0171 00136000 * RETC=MAX(RETC,ZZZFLAGE);/* RETURN CODE */ 00137000 LA @14,8 0172 00138000 CR RETC,@14 0172 00139000 BNL *+6 00140000 LR RETC,@14 0172 00141000 * ESAUDTD=''; /* FORCE UNFORMATTED DISPLAY */ 00142000 * 0173 00143000 MVI ESAUDTD,C' ' 0173 00144000 MVC ESAUDTD+1(30),ESAUDTD 0173 00145000 * /*********************************************************/ 00146000 * /* */ 00147000 * /* CONVERT ARRAY REQUEST TO SCALAR REQUEST */ 00148000 * /* */ 00149000 * /*********************************************************/ 00150000 * 0174 00151000 * BYTETOTL=BYTETOTL*ESAUDIM;/* REQUEST LENGTH */ 00152000 LR @03,BYTETOTL 0174 00153000 M @02,ESAUDIM 0174 00154000 LR BYTETOTL,@03 0174 00155000 * ESAUDFA='0'B; /* SCALAR */ 00156000 NI ESAUDFA,B'01111111' 0175 00157000 * ESAUDIL=0; /* SCALAR */ 00158000 SLR @14,@14 0176 00159000 ST @14,ESAUDIL 0176 00160000 * ESAUDIM=0; /* SCALAR */ 00161000 ST @14,ESAUDIM 0177 00162000 * END; 0178 00163000 * END; 0179 00164000 * ELSE 0180 00165000 * ; /* WILL USE DECLARED BUFFER */ 00166000 @RF00154 DS 0H 0181 00167000 * IF ESAUDFA='0'B THEN 0181 00168000 * 0181 00169000 @RC00154 TM ESAUDFA,B'10000000' 0181 00170000 BNZ @RF00181 0181 00171000 * /***************************************************************/ 00172000 * /* */ 00173000 * /* SCALAR REQUEST */ 00174000 * /* */ 00175000 * /***************************************************************/ 00176000 * 0182 00177000 * DO; /* SCALAR REQUEST */ 00178000 * MAXDIM=0; /* SCALAR PROCESSING INDICATOR */ 00179000 SLR MAXDIM,MAXDIM 0183 00180000 * IF BYTETOTL<=LENGTH(BUF) THEN 0184 00181000 C BYTETOTL,@CF00094 0184 00182000 BH @RF00184 0184 00183000 * CLCLD1L=BYTETOTL; /* REQUEST LENGTH */ 00184000 STCM BYTETOTL,7,CLCLD1L 0185 00185000 * ELSE 0186 00186000 * 0186 00187000 * /***********************************************************/ 00188000 * /* */ 00189000 * /* MULTIPLE PASSES WILL BE REQUIRED TO PROCESS THE REQUEST */ 00190000 * /* */ 00191000 * /***********************************************************/ 00192000 * 0186 00193000 * DO; /* MULTIPLE PASSES REQUIRED */ 00194000 B @RC00184 0186 00195000 @RF00184 DS 0H 0187 00196000 * CLCLD1L=LENGTH(BUF)-((ESAULAD+ESAUDOF)&BUFMASK2);/* 2ND, 00197000 * 3RD, ... REQUESTS ALIGNED */ 00198000 L @14,ESAULAD 0187 00199000 AL @14,ESAUDOF 0187 00200000 N @14,@CF01193 0187 00201000 LCR @14,@14 0187 00202000 AL @14,@CF00094 0187 00203000 STCM @14,7,CLCLD1L 0187 00204000 * ESAUDLE=CLCLD1L; /* INITIAL REQUEST LENGTH */ 00205000 ST @14,ESAUDLE 0188 00206000 * END; 0189 00207000 * END; 0190 00208000 * ELSE 0191 00209000 * 0191 00210000 * /***************************************************************/ 00211000 * /* */ 00212000 * /* ARRAY REQUEST */ 00213000 * /* */ 00214000 * /***************************************************************/ 00215000 * 0191 00216000 * DO; /* ARRAY REQUEST */ 00217000 B @RC00181 0191 00218000 @RF00181 DS 0H 0192 00219000 * BYTETOTL=BYTETOTL*ESAUDIM; /* TOTAL BYTES */ 00220000 L @14,ESAUDIM 0192 00221000 LR @03,BYTETOTL 0192 00222000 MR @02,@14 0192 00223000 LR BYTETOTL,@03 0192 00224000 * MAXDIM=MAX(MIN(ESAUDIM,LENGTH(BUF)/ESAUDLE),1);/* MAXIMUM 0193 00225000 * ENTRIES/BUFFER */ 00226000 L @10,ESAUDLE 0193 00227000 LA @03,2048 0193 00228000 SLR @02,@02 0193 00229000 DR @02,@10 0193 00230000 CLR @14,@03 0193 00231000 BNH *+6 00232000 LR @14,@03 0193 00233000 LA MAXDIM,1 0193 00234000 CLR @14,MAXDIM 0193 00235000 BNL *+6 00236000 LR @14,MAXDIM 0193 00237000 LR MAXDIM,@14 0193 00238000 * ESAUDIM=MAXDIM; /* ENTRIES TO BE PROCESSED */ 00239000 ST MAXDIM,ESAUDIM 0194 00240000 * CLCLD1L=ESAUDLE*MAXDIM; /* BYTES PROCESSED PER PASS */ 00241000 LR @03,@10 0195 00242000 MR @02,MAXDIM 0195 00243000 STCM @03,7,CLCLD1L 0195 00244000 * END; 0196 00245000 * CURENTRY=ESAUDIL; /* CURRENT ENTRY NUMBER */ 00246000 @RC00181 L @14,ESAUDIL 0197 00247000 ST @14,CURENTRY 0197 00248000 * CLCLD1P=ADDR(FORMBUF); /* ->BUFFER */ 00249000 L @14,FPLBUFP 0198 00250000 ST @14,CLCLD1P 0198 00251000 * RESPECIFY 0199 00252000 * R1 UNRESTRICTED; 0199 00253000 * 0199 00254000 * /*****************************************************************/ 00255000 * /* */ 00256000 * /* ITERATIVELY RETRIEVE AND DISPLAY UNSTRUCTURED STORAGE */ 00257000 * /* */ 00258000 * /*****************************************************************/ 00259000 * 0200 00260000 * DO WHILE(BYTETOTL>0&RETCBLSRACCQ, ... PARAMETERS */ 00277000 LA R1,FPL 0206 00278000 * CALL BLSRACCQ; /* RETRIEVE DATA */ 00279000 L @05,ZZ2RVTP(,R9) 0207 00280000 L @15,RVTACCQP(,@05) 0207 00281000 BALR @14,@15 0207 00282000 * RESPECIFY 0208 00283000 * R1 UNRESTRICTED; 0208 00284000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00285000 CR RETC,RF 0209 00286000 BNL *+6 00287000 LR RETC,RF 0209 00288000 * IF ESAUFSM='1'B THEN 0210 00289000 * 0210 00290000 TM ESAUFSM,B'00100000' 0210 00291000 BNO @RF00210 0210 00292000 * /*************************************************************/ 00293000 * /* */ 00294000 * /* STORAGE NOT AVAILABLE */ 00295000 * /* */ 00296000 * /*************************************************************/ 00297000 * 0211 00298000 * DO; /* STORAGE NOT AVAILABLE */ 00299000 * ESAUDLE=ESAUMAD-(ESAULAD+ESAUDOF);/* BYTES RETRIEVED */ 00300000 L @14,ESAULAD 0212 00301000 AL @14,ESAUDOF 0212 00302000 LCR @14,@14 0212 00303000 AL @14,ESAUMAD 0212 00304000 ST @14,ESAUDLE 0212 00305000 * ESAUDFA='0'B; /* FORCE SCALAR PROCESSING */ 00306000 NI ESAUDFA,B'01111111' 0213 00307000 * ESAUDIM=0; /* SET DIMENSION */ 00308000 SLR @14,@14 0214 00309000 ST @14,ESAUDIM 0214 00310000 * ESAUDIL=0; /* SET ENTRY NUMBER */ 00311000 ST @14,ESAUDIL 0215 00312000 * MAXDIM=0; /* FORCE SCALAR PROCESSING */ 00313000 SLR MAXDIM,MAXDIM 0216 00314000 * END; 0217 00315000 * IF ESAUDLE>0 THEN 0218 00316000 * 0218 00317000 @RF00210 L @14,ESAUDLE 0218 00318000 CL @14,@CF00053 0218 00319000 BNH @RF00218 0218 00320000 * /*************************************************************/ 00321000 * /* */ 00322000 * /* SOME STORAGE SUCCESSFULLY RETRIEVED */ 00323000 * /* */ 00324000 * /*************************************************************/ 00325000 * 0219 00326000 * DO; /* SOME STORAGE RETRIEVED */ 00327000 * CLCLD1L=ESAUDLE*MAX(ESAUDIM,1);/* SET NO. OF BYTES 0220 00328000 * RETRIEVED */ 00329000 L @01,ESAUDIM 0220 00330000 LA @05,1 0220 00331000 CLR @01,@05 0220 00332000 BNL *+6 00333000 LR @01,@05 0220 00334000 LR @03,@14 0220 00335000 MR @02,@01 0220 00336000 STCM @03,7,CLCLD1L 0220 00337000 * IF FLAGM='1'B THEN 0221 00338000 TM FLAGM,B'10000000' 0221 00339000 BNO @RF00221 0221 00340000 * CALL E110; /* SUMMARIZE MISSING STORAGE */ 00341000 BAL @14,E110 0222 00342000 * IF FLAGR='1'B THEN 0223 00343000 * 0223 00344000 @RF00221 TM FLAGR,B'01000000' 0223 00345000 BNO @RF00223 0223 00346000 * /*********************************************************/ 00347000 * /* */ 00348000 * /* REPETITIVE STORAGE RANGE */ 00349000 * /* */ 00350000 * /*********************************************************/ 00351000 * 0224 00352000 * DO; /* REPETITIVE STORAGE RANGE */ 00353000 * CALL E100; /* CHECK FOR REPETITIVE STORAGE */ 00354000 BAL @14,E100 0225 00355000 * IF FLAGR='0'B THEN 0226 00356000 TM FLAGR,B'01000000' 0226 00357000 BNZ @RF00226 0226 00358000 * CALL E110; /* SUMMARIZE STORAGE RANGE */ 00359000 BAL @14,E110 0227 00360000 * END; 0228 00361000 @RF00226 DS 0H 0229 00362000 * IF FLAG3='0'B&FLAGR='0'B THEN 0229 00363000 @RF00223 TM FLAG3,B'01100000' 0229 00364000 BNZ @RF00229 0229 00365000 * CALL E100; /* CHECK FOR REPETITIVE STORAGE */ 00366000 BAL @14,E100 0230 00367000 * IF FLAGR='0'B THEN 0231 00368000 * 0231 00369000 @RF00229 TM FLAGR,B'01000000' 0231 00370000 BNZ @RF00231 0231 00371000 * /*********************************************************/ 00372000 * /* */ 00373000 * /* DISPLAY MESSAGE(S) */ 00374000 * /* */ 00375000 * /*********************************************************/ 00376000 * 0232 00377000 * DO; /* DISPLAY MESSAGE(S) */ 00378000 * RESPECIFY 0233 00379000 * R1 RESTRICTED; 0233 00380000 * R1=ADDR(FPL); /* -> PARAMETERS */ 00381000 LA R1,FPL 0234 00382000 * CALL BLST06; /* SUBROUTINE FOR DATA TYPE */ 00383000 L @05,ZZ2RVTP(,R9) 0235 00384000 L @15,RVTT06P(,@05) 0235 00385000 BALR @14,@15 0235 00386000 * RESPECIFY 0236 00387000 * R1 UNRESTRICTED; 0236 00388000 * RETC=MAX(RETC,RF); /* UPDATE RETURN CODE */ 00389000 CR RETC,RF 0237 00390000 BNL *+6 00391000 LR RETC,RF 0237 00392000 * END; 0238 00393000 * END; 0239 00394000 @RF00231 DS 0H 0240 00395000 * IF ESAUFSM='1'B THEN 0240 00396000 * 0240 00397000 @RF00218 TM ESAUFSM,B'00100000' 0240 00398000 BNO @RF00240 0240 00399000 * /*************************************************************/ 00400000 * /* */ 00401000 * /* MISSING STORAGE - PROCESS DISCONTINUITIES */ 00402000 * /* */ 00403000 * /*************************************************************/ 00404000 * 0241 00405000 * DO; /* MISSING STORAGE */ 00406000 * CURRADDR=ESAUMAD; /* ADDRESS TO START CHECKING */ 00407000 L CURRADDR,ESAUMAD 0242 00408000 * RAAUAS=ESAUAS; /* ADDRESS SPACE REQUESTED */ 00409000 MVC RAAUAS(16),ESAUAS 0243 00410000 * RAAURFU(1)='1'B; /* INITIALIZE FOR 1ST PASS */ 00411000 OI RAAURFU,B'10000000' 0244 00412000 * DO WHILE(RETC(ESAUDLE+CURRLEN)&/* WITHIN ATTEMPTED RANGE */ 00415000 * RAAURFU(1)='1'B); /* STORAGE IS STILL NOT THERE */ 00416000 B @DE00245 0245 00417000 @DL00245 DS 0H 0246 00418000 * RAAUFAD=CURRADDR; /* ADDRESS OF INTEREST */ 00419000 ST CURRADDR,RAAUFAD 0246 00420000 * CALL BLSRRAGE(ZZ2,RAAU);/* LOCATE STORAGE RECORD */ 00421000 ST R9,@AL00001 0247 00422000 LA @14,RAAU 0247 00423000 ST @14,@AL00001+4 0247 00424000 L @06,ZZ2RVTP(,R9) 0247 00425000 L @15,RVTRAGEP(,@06) 0247 00426000 LA @01,@AL00001 0247 00427000 BALR @14,@15 0247 00428000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00429000 CR RETC,RF 0248 00430000 BNL *+6 00431000 LR RETC,RF 0248 00432000 * IF RAAURFU(1)='1'B THEN /* STORAGE NOT AVAILABLE */ 00433000 TM RAAURFU,B'10000000' 0249 00434000 BNO @RF00249 0249 00435000 * DO; 0250 00436000 * CURRLEN=CURRLEN+(RAAURIA(1)+RAAURLE(1)-CURRADDR);/* 00437000 * NOT AVAILABLE */ 00438000 L @14,RAAURIA 0251 00439000 AL @14,RAAURLE 0251 00440000 LR @06,@14 0251 00441000 SLR @06,CURRADDR 0251 00442000 ALR CURRLEN,@06 0251 00443000 * CURRADDR=RAAURIA(1)+RAAURLE(1);/* NEXT ADDRESS TO TO 00444000 * TEST FOR NOT AVAILABLE */ 00445000 LR CURRADDR,@14 0252 00446000 * END; 0253 00447000 * ELSE 0254 00448000 * ; /* STORAGE MUST BE AVAILABLE */ 00449000 @RF00249 DS 0H 0255 00450000 * END; /* END OF NOT AVAILABLE LOOP */ 00451000 @DE00245 C RETC,@CF00036 0255 00452000 BNL @DC00245 0255 00453000 L @14,ZZ2ZZ1P(,R9) 0255 00454000 TM ZZ1EVEP(@14),B'01000000' 0255 00455000 BNZ @DC00245 0255 00456000 LR @14,CURRLEN 0255 00457000 AL @14,ESAUDLE 0255 00458000 CLR CURRPASS,@14 0255 00459000 BNH @DC00245 0255 00460000 TM RAAURFU,B'10000000' 0255 00461000 BO @DL00245 0255 00462000 @DC00245 DS 0H 0256 00463000 * IF CURRPASS>ESAUDLE+CURRLEN THEN/* TOTAL LENGTH NEEDED 0256 00464000 * GREATER THAN LENGTH OBTAINED 00465000 * PLUS NOT AVAILABLE LENGTH */ 00466000 LR @14,CURRLEN 0256 00467000 AL @14,ESAUDLE 0256 00468000 CLR CURRPASS,@14 0256 00469000 BNH @RF00256 0256 00470000 * CLCLD1L=CURRLEN; /* MISSING STORAGE LENGTH */ 00471000 STCM CURRLEN,7,CLCLD1L 0257 00472000 * ELSE /* MUST BE MISSING TO DESIRED END*/ 00473000 * CLCLD1L=CURRPASS-ESAUDLE;/* MISSING STORAGE LENGTH */ 00474000 B @RC00256 0258 00475000 @RF00256 LR @14,CURRPASS 0258 00476000 SL @14,ESAUDLE 0258 00477000 STCM @14,7,CLCLD1L 0258 00478000 * BYTETOTL=CURRPASS-(ESAUDLE+CURRLEN);/* ADJUST REMAINING 0259 00479000 * BYTES TO PROCESS */ 00480000 @RC00256 L @14,ESAUDLE 0259 00481000 LR BYTETOTL,CURRLEN 0259 00482000 ALR BYTETOTL,@14 0259 00483000 LCR BYTETOTL,BYTETOTL 0259 00484000 ALR BYTETOTL,CURRPASS 0259 00485000 * ESAUDOF=ESAUDOF+ESAUDLE; /* MISSING STORAGE OFFSET */ 00486000 AL @14,ESAUDOF 0260 00487000 ST @14,ESAUDOF 0260 00488000 * IF FLAGR='1'B THEN 0261 00489000 TM FLAGR,B'01000000' 0261 00490000 BNO @RF00261 0261 00491000 * CALL E110; /* SUMMARIZE STORAGE RANGE */ 00492000 BAL @14,E110 0262 00493000 * CALL E200; /* PREPARE MESSAGE DATA */ 00494000 @RF00261 BAL @14,E200 0263 00495000 * IF FLAGM='0'B THEN 0264 00496000 * 0264 00497000 TM FLAGM,B'10000000' 0264 00498000 BNZ @RF00264 0264 00499000 * /*********************************************************/ 00500000 * /* */ 00501000 * /* FIRST BLOCK OF MISSING STORAGE */ 00502000 * /* */ 00503000 * /*********************************************************/ 00504000 * 0265 00505000 * DO; /* FIRST MISSING STORAGE BLOCK */ 00506000 * FLAGM='1'B; /* MISSING STORAGE RANGE */ 00507000 OI FLAGM,B'10000000' 0266 00508000 * M2BL=LENGTH(M2B)-LENGTH(M2BT5)+LENGTH(TXT1); 0267 00509000 MVC M2BL(2),@CH01245 0267 00510000 * M2BT5=TXT1; /* MISSING MESSAGE TEXT */ 00511000 MVI M2BT5+21,C' ' 0268 00512000 MVC M2BT5+22(14),M2BT5+21 0268 00513000 MVC M2BT5(21),TXT1 0268 00514000 * END; 0269 00515000 * ESAUMAD=0; /* ->MISSING STORAGE */ 00516000 @RF00264 SLR @14,@14 0270 00517000 ST @14,ESAUMAD 0270 00518000 * END; 0271 00519000 * IF MAXDIM=0 THEN 0272 00520000 * 0272 00521000 @RF00240 LTR MAXDIM,MAXDIM 0272 00522000 BNZ @RF00272 0272 00523000 * /*************************************************************/ 00524000 * /* */ 00525000 * /* SCALAR REQUEST */ 00526000 * /* */ 00527000 * /*************************************************************/ 00528000 * 0273 00529000 * DO; /* SCALAR REQUEST */ 00530000 * ESAUDOF=ESAUDOF+CLCLD1L; /* OFFSET */ 00531000 L @14,CLCLD1L-1 0274 00532000 LA @14,0(,@14) 0274 00533000 AL @14,ESAUDOF 0274 00534000 ST @14,ESAUDOF 0274 00535000 * ESAUDLE=MIN(LENGTH(BUF),BYTETOTL);/* LENGTH */ 00536000 LA @14,2048 0275 00537000 CR @14,BYTETOTL 0275 00538000 BNH *+6 00539000 LR @14,BYTETOTL 0275 00540000 ST @14,ESAUDLE 0275 00541000 * CLCLD1L=ESAUDLE; /* BYTES TO BE PROCESSED */ 00542000 STCM @14,7,CLCLD1L 0276 00543000 * END; 0277 00544000 * ELSE 0278 00545000 * 0278 00546000 * /*************************************************************/ 00547000 * /* */ 00548000 * /* ARRAY REQUEST */ 00549000 * /* */ 00550000 * /*************************************************************/ 00551000 * 0278 00552000 * DO; /* ARRAY REQUEST */ 00553000 B @RC00272 0278 00554000 @RF00272 DS 0H 0279 00555000 * ESAUDFA='1'B; /* ARRAY REQUEST */ 00556000 OI ESAUDFA,B'10000000' 0279 00557000 * ESAUDOF=ESPADOF; /* OFFSET */ 00558000 L @14,@PC00001+4 0280 00559000 L @10,ESPADOF(,@14) 0280 00560000 ST @10,ESAUDOF 0280 00561000 * ESAUDLE=ESPADLE; /* LENGTH */ 00562000 L @14,ESPADLE(,@14) 0281 00563000 ST @14,ESAUDLE 0281 00564000 * ESAULAD=ESAULAD+ESAUDLE*MAXDIM;/* LOGICAL ADDRESS */ 00565000 LR @03,MAXDIM 0282 00566000 MR @02,@14 0282 00567000 AL @03,ESAULAD 0282 00568000 ST @03,ESAULAD 0282 00569000 * ESAUDIM=MIN(BYTETOTL/ESAUDLE,MAXDIM);/* REMAINING ENTRIES */ 00570000 LR @02,BYTETOTL 0283 00571000 SRDA @02,32 0283 00572000 DR @02,@14 0283 00573000 CLR @03,MAXDIM 0283 00574000 BNH *+6 00575000 LR @03,MAXDIM 0283 00576000 ST @03,ESAUDIM 0283 00577000 * CLCLD1L=ESAUDLE*ESAUDIM; /* BYTES TO BE PROCESSED */ 00578000 LR @01,@14 0284 00579000 MR @00,@03 0284 00580000 STCM @01,7,CLCLD1L 0284 00581000 * CURENTRY=CURENTRY+MAXDIM; /* INDEX OF NEXT ARRAY ENTRY */ 00582000 LR @14,MAXDIM 0285 00583000 AL @14,CURENTRY 0285 00584000 ST @14,CURENTRY 0285 00585000 * ESAUDIL=CURENTRY; 0286 00586000 ST @14,ESAUDIL 0286 00587000 * END; 0287 00588000 * END; 0288 00589000 @RC00272 DS 0H 0288 00590000 @DE00200 LTR BYTETOTL,BYTETOTL 0288 00591000 BNP @DC00200 0288 00592000 C RETC,@CF00036 0288 00593000 BNL @DC00200 0288 00594000 L @14,ZZ2ZZ1P(,R9) 0288 00595000 TM ZZ1EVEP(@14),B'01000000' 0288 00596000 BZ @DL00200 0288 00597000 @DC00200 DS 0H 0289 00598000 * IF FLAGM='1'B|FLAGR='1'B THEN 0289 00599000 TM FLAGM,B'11000000' 0289 00600000 BZ @RF00289 0289 00601000 * CALL E110; /* SUMMARIZE STORAGE RANGE */ 00602000 BAL @14,E110 0290 00603000 * IF FPLBUFP^=ADDR(BUF) THEN /* GETMAINED BUFFER FOR ARRAYS */ 00604000 @RF00289 LA @14,BUF 0291 00605000 C @14,FPLBUFP 0291 00606000 BE @RF00291 0291 00607000 * DO; /* FREEMAIN(R) LV(ESPADLE)SP(ZZZS 00608000 * PEXC)A(FORMBUF) */ 00609000 * RESPECIFY 0293 00610000 * (GPR01F, 0293 00611000 * GPR00F) RESTRICTED; 0293 00612000 * GPR00F=ESPADLE; /* LENGTH REQUESTED */ 00613000 L @14,@PC00001+4 0294 00614000 L GPR00F,ESPADLE(,@14) 0294 00615000 * GPR01F=ZZZSPEXC; /* SP IN REG 1 */ 00616000 LA GPR01F,1 0295 00617000 * GEN(SLL GPR01F,24) 0296 00618000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0296 00619000 SLL GPR01F,24 00620000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00621000 OR GPR00F,GPR01F 0297 00622000 * GPR01F=ADDR(FORMBUF); /* SET REGISTER ONE */ 00623000 L GPR01F,FPLBUFP 0298 00624000 * SVC(10); /* R-FORM OF GETMAIN */ 00625000 SVC 10 0299 00626000 * RESPECIFY 0300 00627000 * (GPR01F, 0300 00628000 * GPR00F) UNRESTRICTED; 0300 00629000 * END; /* FREEMAIN(R) LV(ESPADLE)SP(ZZZS 00630000 * PEXC)A(FORMBUF) RELEASE */ 00631000 *EXIT: /* CLEAN UP AND RETURN */ 00632000 * IF ZZ1EVEP='1'B THEN 0302 00633000 @RF00291 DS 0H 0302 00634000 EXIT L @14,ZZ2ZZ1P(,R9) 0302 00635000 TM ZZ1EVEP(@14),B'01000000' 0302 00636000 BNO @RF00302 0302 00637000 * RETC=MAX(RETC,ZZZFLAGS); /* SIGNAL TERMINATION REQUESTED */ 00638000 LA @14,12 0303 00639000 CR RETC,@14 0303 00640000 BNL *+6 00641000 LR RETC,@14 0303 00642000 * RETURN CODE(RETC); 0304 00643000 * 0304 00644000 @RF00302 L @13,4(,@13) 0304 00645000 L @00,@SIZDATD 0304 00646000 LR @01,@11 0304 00647000 BLSUFRES R,LV=(0),A=(1) 00648000 LR @15,@04 0304 00649000 L @14,12(,@13) 0304 00650000 LM @00,@12,20(@13) 0304 00651000 BR @14 0304 00652000 */********************************************************************/ 00653000 */* */ 00654000 */* E100--CHECK FOR REPETITIVE STORAGE */ 00655000 */* */ 00656000 */********************************************************************/ 00657000 * 0305 00658000 *E100: /* CHECK FOR REPETITIVE STORAGE */ 00659000 * PROCEDURE; 0305 00660000 E100 STM @14,@12,@SA00002 0305 00661000 * IF CLCLD1L<=1 THEN 0306 00662000 CLC CLCLD1L(3),@CF00048+1 0306 00663000 BNH @RT00306 0306 00664000 * GO TO L102; /* NOT USEFULLY REPETITIVE */ 00665000 * IF FLAGR='0'B THEN 0308 00666000 TM FLAGR,B'01000000' 0308 00667000 BNZ @RF00308 0308 00668000 * CLCLD2C=FORMBUF(1:1); /* REPETITIVE CHARACTER */ 00669000 L @14,FPLBUFP 0309 00670000 MVC CLCLD2C(1),FORMBUF(@14) 0309 00671000 * RESPECIFY 0310 00672000 * (R0, /* ->BUFFER */ 00673000 * RE) RESTRICTED; /* 0 */ 00674000 @RF00308 DS 0H 0311 00675000 * LM(RE,R1,CLCLD); /* PREPARE FOR CLCL */ 00676000 LM RE,R1,CLCLD 0311 00677000 * CLCL(RE,R0); /* CHECK FOR REPETITIVE STORAGE */ 00678000 CLCL RE,R0 0312 00679000 * RESPECIFY 0313 00680000 * (R0, /* ->BUFFER */ 00681000 * RE) UNRESTRICTED; /* 0 */ 00682000 * BC(7,L102); /* NOT REPETITIVE */ 00683000 BC 7,L102 0314 00684000 * CALL E200; /* PREPARE MESSAGE DATA */ 00685000 BAL @14,E200 0315 00686000 * IF FLAGR='0'B THEN 0316 00687000 * 0316 00688000 TM FLAGR,B'01000000' 0316 00689000 BNZ @RF00316 0316 00690000 * /***************************************************************/ 00691000 * /* */ 00692000 * /* FORMAT MESSAGE BASE */ 00693000 * /* */ 00694000 * /***************************************************************/ 00695000 * 0317 00696000 * DO; /* FORMAT MESSAGE BASE */ 00697000 * DO; /* BLRCNVXC(FORMBUF(1:1)) FROM(BS 00698000 * )TO(CHARACTER)SET(M2BT51)REMAR 00699000 * K(REPETITIVE BYTE--HEXADECIMAL 00700000 * TRANSLATION)TR(ZZ1TRHEX) */ 00701000 * 0318 00702000 * /***********************************************************/ 00703000 * /* */ 00704000 * /* REPETITIVE BYTE--HEXADECIMAL TRANSLATION */ 00705000 * /* */ 00706000 * /***********************************************************/ 00707000 * 0319 00708000 * UNPK(M2BT51(1:LENGTH(M2BT51)-1),FORMBUF(1:1));/* BIT=>ZONED 00709000 * HEXADECIMAL */ 00710000 L @14,FPLBUFP 0319 00711000 UNPK M2BT51(1),FORMBUF(1,@14) 0319 00712000 * M2BT51(LENGTH(M2BT51):LENGTH(M2BT51))=FORMBUF(1:1);/* FINAL 00713000 * ZONED HEXADECIMAL DIGIT */ 00714000 MVC M2BT51+1(1),FORMBUF(@14) 0320 00715000 * TR(M2BT51,ZZ1TRHEX); /* ZONED HEXADECIMAL=>EBCDIC */ 00716000 L @10,ZZ2ZZ1P(,R9) 0321 00717000 TR M2BT51(2),ZZ1TRHEX(@10) 0321 00718000 * END; /* BLRCNVXC(FORMBUF(1:1)) FROM(BS 00719000 * )TO(CHARACTER)SET(M2BT51)REMAR 00720000 * K(REPETITIVE BYTE--HEXADECIMAL 00721000 * TRANSLATION)TR(ZZ1TRHEX) */ 00722000 * M2BT531=FORMBUF(1:1); /* REPETITIVE BYTE (EBCDIC) */ 00723000 MVC M2BT531(1),FORMBUF(@14) 0323 00724000 * TR(M2BT531,ZZ1TREBC); /* NONGRAPHIC==>PERIOD */ 00725000 TR M2BT531(1),ZZ1TREBC(@10) 0324 00726000 * IF M2BT531^=FORMBUF(1:1) THEN 0325 00727000 CLC M2BT531(1),FORMBUF(@14) 0325 00728000 BE @RF00325 0325 00729000 * M2BL=LENGTH(M2B)-LENGTH(M2BT53);/* MESSAGE LENGTH */ 00730000 MVC M2BL(2),@CH00184 0326 00731000 * FLAGR='1'B; /* REPETITIVE STORAGE RANGE */ 00732000 @RF00325 OI FLAGR,B'01000000' 0327 00733000 * END; 0328 00734000 * GO TO L104; /* COMMON EXIT PATH */ 00735000 B L104 0329 00736000 *L102: /* STORAGE NOT REPETITIVE */ 00737000 * FLAGR='0'B; /* STORAGE NOT REPETITIVE */ 00738000 L102 NI FLAGR,B'10111111' 0330 00739000 *L104: /* COMMON EXIT PATH */ 00740000 * RETURN; 0331 00741000 * 0331 00742000 @EL00002 DS 0H 0331 00743000 @EF00002 DS 0H 0331 00744000 @ER00002 LM @14,@12,@SA00002 0331 00745000 BR @14 0331 00746000 */********************************************************************/ 00747000 */* */ 00748000 */* E110--SUMMARIZE STORAGE RANGE */ 00749000 */* */ 00750000 */********************************************************************/ 00751000 * 0332 00752000 *E110: /* SUMMARIZE STORAGE RANGE */ 00753000 * ENTRY; 0332 00754000 E110 STM @14,@12,@SA00002 0332 00755000 * DO; /* BLRCNVUC(DUPLEN) FROM(UNSIGNED 00756000 * BINARY)TO(CHARACTER)SET(M2BT3) 00757000 * PATTERN('40202020202020202120' 00758000 * X)OPTIONS(PATTERN IN 0333 00759000 * PLACE)REMARK(LENGTH) */ 00760000 * 0333 00761000 * /***************************************************************/ 00762000 * /* */ 00763000 * /* LENGTH */ 00764000 * /* */ 00765000 * /***************************************************************/ 00766000 * 0334 00767000 * CVD(DUPLEN,PACKED); /* UNSIGNED BINARY=>PACKED 0334 00768000 * DECIMAL */ 00769000 L @14,DUPLEN 0334 00770000 CVD @14,PACKED 0334 00771000 * ED(M2BT3,PACKED(25:64)); /* PACKED DECIMAL=>EBCDIC */ 00772000 ED M2BT3(10),PACKED+3 0335 00773000 * END; /* BLRCNVUC(DUPLEN) FROM(UNSIGNED 00774000 * BINARY)TO(CHARACTER)SET(M2BT3) 00775000 * PATTERN('40202020202020202120' 00776000 * X)OPTIONS(PATTERN IN 0336 00777000 * PLACE)REMARK(LENGTH) */ 00778000 * FPLESP=ADDR(M2B); /* MODIFY PARAMETER LIST */ 00779000 LA @14,M2B 0337 00780000 ST @14,FPLESP 0337 00781000 * RESPECIFY 0338 00782000 * R1 RESTRICTED; 0338 00783000 * R1=ADDR(FPL); /* -> PARAMETERS */ 00784000 LA R1,FPL 0339 00785000 * CALL BLSUMPK1; /* REMOVE EXTRANEOUS BLANKS */ 00786000 L @10,ZZ2BVTP(,R9) 0340 00787000 L @15,BVTMPK1P(,@10) 0340 00788000 BALR @14,@15 0340 00789000 * CALL BLSUPUTA; /* TRANSMIT MESSAGE */ 00790000 L @10,ZZ2BVTP(,R9) 0341 00791000 L @15,BVTPUTAP(,@10) 0341 00792000 BALR @14,@15 0341 00793000 * RESPECIFY 0342 00794000 * R1 UNRESTRICTED; 0342 00795000 * FPLESP=ADDR(ESAU); /* RESET PARAMETER LIST */ 00796000 LA @14,ESAU 0343 00797000 ST @14,FPLESP 0343 00798000 * FLAGM='0'B; /* NO MISSING STORAGE RANGE */ 00799000 * FLAGR='0'B; /* NO REPETITIVE STORAGE RANGE */ 00800000 NI FLAGM,B'00111111' 0345 00801000 * RETURN; 0346 00802000 B @EL00002 0346 00803000 * END E100; 0347 00804000 * 0347 00805000 B @EL00002 0347 00806000 */********************************************************************/ 00807000 */* */ 00808000 */* E200--PREPARE STORAGE RANGE MESSAGE BASE */ 00809000 */* */ 00810000 */********************************************************************/ 00811000 * 0348 00812000 *E200: /* PREPARE MESSAGE BASE */ 00813000 * PROCEDURE; 0348 00814000 E200 STM @14,@12,12(@13) 0348 00815000 * IF FLAGM='1'B|FLAGR='1'B THEN 0349 00816000 TM FLAGM,B'11000000' 0349 00817000 BZ @RF00349 0349 00818000 * DUPLEN=DUPLEN+CLCLD1L; /* BYTES SUPPRESSED */ 00819000 L @14,CLCLD1L-1 0350 00820000 LA @14,0(,@14) 0350 00821000 AL @14,DUPLEN 0350 00822000 ST @14,DUPLEN 0350 00823000 * ELSE 0351 00824000 * 0351 00825000 * /***************************************************************/ 00826000 * /* */ 00827000 * /* FIRST BLOCK OF REPETITIVE STORAGE */ 00828000 * /* */ 00829000 * /***************************************************************/ 00830000 * 0351 00831000 * DO; /* FIRST REPETITIVE BLOCK */ 00832000 B @RC00349 0351 00833000 @RF00349 DS 0H 0352 00834000 * DUPLEN=CLCLD1L; /* BYTES SUPPRESSED */ 00835000 L @14,CLCLD1L-1 0352 00836000 LA @14,0(,@14) 0352 00837000 ST @14,DUPLEN 0352 00838000 * M2B=M2S; /* M2 LITERAL TEXT */ 00839000 MVC M2B(72),M2S 0353 00840000 * DO; /* BLRCNVPC(ESAULAD+ESAUDOF) FROM 00841000 * (POINTER)TO(CHARACTER)SET(M2BT 00842000 * 10)REMARK(REPETITIVE STORAGE 00843000 * ADDRESS)TR(ZZ1TRHEX) */ 00844000 * 0354 00845000 * /***********************************************************/ 00846000 * /* */ 00847000 * /* REPETITIVE STORAGE ADDRESS */ 00848000 * /* */ 00849000 * /***********************************************************/ 00850000 * 0355 00851000 * PTRPTR=ESAULAD+ESAUDOF; /* SOURCE TO BIT/POINTER 0355 00852000 * INTERMEDIATE */ 00853000 L @14,ESAULAD 0355 00854000 AL @14,ESAUDOF 0355 00855000 ST @14,PTRPTR 0355 00856000 * UNPK(M2BT10(1:LENGTH(M2BT10)-1),PTRBIT);/* BIT=>ZONED 0356 00857000 * HEXADECIMAL */ 00858000 UNPK M2BT10(5),PTRBIT(4) 0356 00859000 * M2BT10(LENGTH(M2BT10):LENGTH(M2BT10))=PTRBIT(25:32);/* 0357 00860000 * FINAL ZONED HEXADECIMAL DIGIT */ 00861000 MVC M2BT10+5(1),PTRBIT+3 0357 00862000 * TR(M2BT10,ZZ1TRHEX); /* ZONED HEXADECIMAL=>EBCDIC */ 00863000 L @14,ZZ2ZZ1P(,R9) 0358 00864000 TR M2BT10(6),ZZ1TRHEX(@14) 0358 00865000 * END; /* BLRCNVPC(ESAULAD+ESAUDOF) FROM 00866000 * (POINTER)TO(CHARACTER)SET(M2BT 00867000 * 10)REMARK(REPETITIVE STORAGE 00868000 * ADDRESS)TR(ZZ1TRHEX) */ 00869000 * END; 0360 00870000 * RETURN; 0361 00871000 @EL00003 DS 0H 0361 00872000 @EF00003 DS 0H 0361 00873000 @ER00003 LM @14,@12,12(@13) 0361 00874000 BR @14 0361 00875000 * END E200; 0362 00876000 * 0362 00877000 B @EL00003 0362 00878000 */*BLSTPEND--DISPLAY FORMATTER */ 00879000 */*BLSRPEND--DEBUGGING MODULE */ 00880000 */*BLSUPEND--MVS IPCS MODULE */ 00881000 * 0363 00882000 * DECLARE /* DATA FOR AHB MACROS */ 00883000 * PACKED BIT(64) BOUNDARY(DWORD),/* DATA CONVERSION WORK AREA */ 00884000 * PTRBIT BIT(32) BOUNDARY(WORD),/* DATA CONVERSION WORK AREA FOR 00885000 * POINTER DATA */ 00886000 * PTRPTR POINTER DEFINED(PTRBIT);/* DATA CONVERSION WORK AREA FOR 00887000 * POINTER DATA */ 00888000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00889000 * GPR00F FIXED(31) REG(0), 0364 00890000 * GPR01F FIXED(31) REG(1), 0364 00891000 * GPR15F FIXED(31) REG(15); 0364 00892000 * DECLARE /* COMMON VARIABLES */ 00893000 * I256C CHAR(256) BASED, 0365 00894000 * I031F FIXED(31) BASED, 0365 00895000 * I031P PTR(31) BASED, 0365 00896000 * I015F FIXED(15) BASED, 0365 00897000 * I015P PTR(15) BASED, 0365 00898000 * I008P PTR(8) BASED, 0365 00899000 * I001C CHAR(1) BASED; 0365 00900000 * GENERATE NODEFS NOREFS DATA; 0366 00901000 * END BLST08 /* BLRPEND(BLST08) */ 00902000 * 0367 00903000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00904000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 00905000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00906000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00907000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00908000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00909000 */*%INCLUDE SYSLIB (IKJECT ) */ 00910000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00911000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00912000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00913000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00914000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00915000 * 0367 00916000 * ; 0367 00917000 @EL00001 L @13,4(,@13) 0367 00918000 @EF00001 L @00,@SIZDATD 0367 00919000 LR @01,@11 0367 00920000 BLSUFRES R,LV=(0),A=(1) 00921000 @ER00001 LM @14,@12,12(@13) 0367 00922000 BR @14 0367 00923000 @DATA DS 0H 00924000 @CH01245 DC H'57' 00925000 @CH00184 DC H'59' 00926000 @DATD DSECT 00927000 DS 0F 00928000 @SA00001 DS 18F 00929000 @PC00001 DS 2F 00930000 @SA00002 DS 15F 00931000 @AL00001 DS 2A 00932000 BLST08 CSECT 00933000 DS 0F 00934000 @CF00053 DC F'0' 00935000 @CF00048 DC F'1' 00936000 @CF00036 DC F'12' 00937000 @CF00304 DC F'256' 00938000 @CF00094 DC F'2048' 00939000 @CF01193 DC XL4'000007FF' 00940000 @DATD DSECT 00941000 DS 0D 00942000 CURENTRY DS F 00943000 DUPLEN DS F 00944000 ESAU DS CL182 00945000 ORG ESAU 00946000 ESAURID DS CL2 00947000 @NM00089 DS BL6 00948000 @NM00090 DS CL8 00949000 @NM00091 DS BL8 00950000 ESAURDX DS FL4 00951000 ESAUSYM DS CL31 00952000 ESAUELK DS 0C 00953000 ESAURV1 DS CL1 00954000 ESAUAS DS CL16 00955000 ORG ESAUAS 00956000 ESAUAS0 DS 0C 00957000 ESAUAST DS CL2 00958000 @NM00092 DS BL2 00959000 ESAUAS1 DS FL4 00960000 ESAUAS2 DS FL4 00961000 @NM00093 DS BL4 00962000 ESAUAS9 DS 0C 00963000 ORG ESAU+76 00964000 ESAULAD DS AL4 00965000 ESAUD DS CL60 00966000 ORG ESAUD 00967000 ESAUD00 DS 0C 00968000 ESAUDOF DS FL4 00969000 ESAUDLE DS FL4 00970000 ESAUDOB DS FL1 00971000 ESAUDLB DS FL1 00972000 ESAUDT DS CL34 00973000 ORG ESAUDT 00974000 ESAUDT0 DS 0C 00975000 ESAUDTY DS CL1 00976000 @NM00094 DS BL1 00977000 ESAUDTD DS CL31 00978000 ESAUDTE DS CL1 00979000 ESAUDT9 DS 0C 00980000 ORG ESAUD+44 00981000 ESAUDIM DS FL4 00982000 ESAUDIL DS FL4 00983000 ESAUDF DS BL4 00984000 ORG ESAUDF 00985000 ESAUDFA DS BL1 00986000 @NM00095 EQU ESAUDF+0 00987000 ORG ESAUD+56 00988000 @NM00096 DS BL4 00989000 ESAUD99 DS 0C 00990000 ORG ESAU+140 00991000 ESAUMAD DS AL4 00992000 @NM00097 DS BL16 00993000 ESAUKEY DS BL1 00994000 ESAUF DS BL3 00995000 ORG ESAUF 00996000 ESAUFS DS BL1 00997000 ORG ESAUFS 00998000 ESAUFSC DS BL1 00999000 ESAUFS2 EQU ESAUFS+0 01000000 ESAUFSM EQU ESAUFS+0 01001000 ESAUFSA EQU ESAUFS+0 01002000 ESAUFSP EQU ESAUFS+0 01003000 ESAUFSR EQU ESAUFS+0 01004000 ESAUFSX EQU ESAUFS+0 01005000 ESAUFSS EQU ESAUFS+0 01006000 ORG ESAUF+1 01007000 ESAUFC DS BL1 01008000 ORG ESAUFC 01009000 ESAUFCD DS BL1 01010000 @NM00098 EQU ESAUFC+0 01011000 ORG ESAUF+2 01012000 @NM00099 DS BL1 01013000 ORG ESAU+164 01014000 ESAUABS DS FL4 01015000 @NM00100 DS BL12 01016000 ESAUR DS CL2 01017000 ORG ESAUR 01018000 ESAURL DS FL2 01019000 ESAURT DS 0C 01020000 ORG ESAURT 01021000 ESAURT1 DS 0C 01022000 ORG ESAU+182 01023000 ESAU999 DS 0C 01024000 ORG ESAU+182 01025000 DS CL2 01026000 RAAU DS CL148 01027000 ORG RAAU 01028000 RAAURID DS CL2 01029000 @NM00101 DS BL6 01030000 RAAURDX DS FL4 01031000 RAAUAS DS CL16 01032000 ORG RAAUAS 01033000 RAAUAS0 DS 0C 01034000 RAAUAST DS CL2 01035000 @NM00102 DS BL2 01036000 RAAUAS1 DS FL4 01037000 RAAUAS2 DS FL4 01038000 @NM00103 DS BL4 01039000 RAAUAS9 DS 0C 01040000 ORG RAAU+28 01041000 RAAUFAD DS AL4 01042000 RAAUELK DS 0C 01043000 @NM00104 DS BL16 01044000 RAAUDIM DS FL2 01045000 RAAUUSE DS FL2 01046000 RAAUR DS CL32 01047000 ORG RAAUR+0 01048000 RAAURIA DS AL4 01049000 RAAURLE DS FL4 01050000 RAAURNM DS FL2 01051000 RAAURF DS BL2 01052000 ORG RAAURF+0 01053000 RAAURFU DS BL1 01054000 RAAURFP EQU RAAURF+0 01055000 RAAURFR EQU RAAURF+0 01056000 @NM00105 EQU RAAURF+0 01057000 ORG RAAUR+12 01058000 RAAURDA DS FL4 01059000 RAAUROF DS FL4 01060000 @NM00106 DS BL12 01061000 ORG RAAU+148 01062000 RAAU999 DS 0C 01063000 ORG RAAU+148 01064000 CLCLD DS CL16 01065000 ORG CLCLD 01066000 CLCLD1 DS CL8 01067000 ORG CLCLD1 01068000 CLCLD1P DS AL4 01069000 CLCLD12 DS BL4 01070000 ORG CLCLD12 01071000 CLCLD1C DS CL1 01072000 CLCLD1L DS FL3 01073000 ORG CLCLD1+8 01074000 CLCLD19 DS 0C 01075000 ORG CLCLD+8 01076000 CLCLD2 DS CL8 01077000 ORG CLCLD2 01078000 CLCLD2P DS AL4 01079000 CLCLD22 DS BL4 01080000 ORG CLCLD22 01081000 CLCLD2C DS CL1 01082000 CLCLD2L DS FL3 01083000 ORG CLCLD2+8 01084000 CLCLD29 DS 0C 01085000 ORG CLCLD+16 01086000 CLCLD99 DS 0C 01087000 ORG CLCLD+16 01088000 M2B DS CL72 01089000 ORG M2B 01090000 M2BL DS FL2 01091000 @NM00108 DS BL2 01092000 M2BT DS CL68 01093000 ORG M2BT 01094000 M2BT0 DS CL1 01095000 M2BT1 DS CL7 01096000 ORG M2BT1 01097000 M2BT10 DS CL6 01098000 M2BT11 DS CL1 01099000 ORG M2BT+8 01100000 M2BT2 DS CL8 01101000 M2BT3 DS CL10 01102000 M2BT4 DS CL6 01103000 M2BT5 DS CL36 01104000 ORG M2BT5 01105000 M2BT50 DS CL20 01106000 M2BT51 DS CL2 01107000 M2BT52 DS CL1 01108000 M2BT53 DS CL13 01109000 ORG M2BT53 01110000 M2BT530 DS CL11 01111000 M2BT531 DS CL1 01112000 M2BT532 DS CL1 01113000 ORG M2B+72 01114000 FPL DS CL12 01115000 ORG FPL 01116000 FPLZZ2P DS AL4 01117000 FPLESP DS AL4 01118000 FPLBUFP DS AL4 01119000 ORG FPL+12 01120000 FLAG DS BL1 01121000 ORG FLAG 01122000 FLAGM DS BL1 01123000 FLAGR EQU FLAG+0 01124000 FLAG3 EQU FLAG+0 01125000 @NM00110 EQU FLAG+0 01126000 ORG FLAG+1 01127000 DS CL7 01128000 BUF DS CL2048 01129000 PACKED DS BL8 01130000 PTRBIT DS BL4 01131000 BLST08 CSECT 01132000 DS 0F 01133000 @SIZDATD DC AL1(0) 01134000 DC AL3(@ENDDATD-@DATD) 01135000 DS 0D 01136000 M2S DS CL72 01137000 ORG M2S 01138000 M2SL DC AL2(72) 01139000 @NM00107 DC X'0000' 01140000 M2ST DS CL68 01141000 ORG M2ST 01142000 M2ST0 DC CL1' ' 01143000 M2ST1 DS CL7 01144000 ORG M2ST1 01145000 M2ST10 DC CL6'000000' 01146000 M2ST11 DC CL1'.' 01147000 ORG M2ST+8 01148000 M2ST2 DC CL8' LENGTH(' 01149000 M2ST3 DC X'40202020202020202120' 01150000 M2ST4 DC CL6') ==> ' 01151000 M2ST5 DS CL36 01152000 ORG M2ST5 01153000 M2ST50 DC CL20'ALL BYTES CONTAIN X''' 01154000 M2ST51 DC CL2' ' 01155000 M2ST52 DC CL1'''' 01156000 M2ST53 DS CL13 01157000 ORG M2ST53 01158000 M2ST530 DC CL11', EBCDIC C''' 01159000 M2ST531 DC CL1' ' 01160000 M2ST532 DC CL1'''' 01161000 ORG M2S+72 01162000 TXT1 DS CL21 01163000 ORG TXT1 01164000 TXT11 DC CL21'STORAGE NOT AVAILABLE' 01165000 ORG TXT1+21 01166000 DS CL1 01167000 M3 DS CL49 01168000 ORG M3 01169000 M3L DC AL2(49) 01170000 @NM00109 DC X'0000' 01171000 M3T DS CL45 01172000 ORG M3T 01173000 M3T1 DC CL45'BLS20000I GETMAIN FAILURE. SCALAR SUBSTITUTED' 01174000 ORG M3+49 01175000 @DATD DSECT 01176000 SPACE 2 01177000 *********************************************************************** 01178000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01179000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01180000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01181000 *********************************************************************** 01182000 SPACE 01183000 BLST08 CSECT 01184000 ORG 01185000 DS 0D 01186000 BLRPATCH DC CL8'ZAPAREA',(((*-BLST08+19)/20+7)/8)CL8'BLST08' 01187000 @DATD DSECT 01188000 DS 0H 01189000 @DATD DSECT 01190000 SPACE 2 01191000 *********************************************************************** 01192000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01193000 *********************************************************************** 01194000 SPACE 01195000 DS 0D 01196000 @DATD DSECT 01197000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01198000 @ENDDATD EQU * 01199000 BLST08 CSECT 01200000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01201000 @01 EQU 01 01202000 @02 EQU 02 01203000 @03 EQU 03 01204000 @04 EQU 04 01205000 @05 EQU 05 01206000 @06 EQU 06 01207000 @07 EQU 07 01208000 @08 EQU 08 01209000 @09 EQU 09 01210000 @10 EQU 10 01211000 @11 EQU 11 01212000 @12 EQU 12 01213000 @13 EQU 13 01214000 @14 EQU 14 01215000 @15 EQU 15 01216000 RETC EQU @04 01217000 CURRPASS EQU @10 01218000 CURRLEN EQU @08 01219000 CURRADDR EQU @02 01220000 MAXDIM EQU @07 01221000 BYTETOTL EQU @06 01222000 R9 EQU @09 01223000 R0 EQU @00 01224000 R1 EQU @01 01225000 R2 EQU @02 01226000 R3 EQU @03 01227000 R4 EQU @04 01228000 R5 EQU @05 01229000 RB EQU @11 01230000 RD EQU @13 01231000 RE EQU @14 01232000 RF EQU @15 01233000 GPR01F EQU @01 01234000 GPR15F EQU @15 01235000 GPR00F EQU @00 01236000 RA EQU @10 01237000 RC EQU @12 01238000 R6 EQU @06 01239000 R7 EQU @07 01240000 R8 EQU @08 01241000 ZZ1 EQU 0 01242000 ZZ1ATTN EQU ZZ1+360 01243000 ZZ1EVE EQU ZZ1ATTN+4 01244000 ZZ1EVEP EQU ZZ1EVE 01245000 ZZ1F EQU ZZ1+368 01246000 ZZ1TRHEX EQU ZZ1+568 01247000 ZZ1TREBC EQU ZZ1+824 01248000 ZZ1N EQU ZZ1+1116 01249000 ZZ2 EQU 0 01250000 ZZ2AMD EQU ZZ2 01251000 @NM00025 EQU ZZ2AMD+7 01252000 ZZ2PRT EQU ZZ2+138 01253000 ZZ2PRTT EQU ZZ2PRT+4 01254000 ZZ2PRTT1 EQU ZZ2PRTT+1 01255000 ZZ2A EQU ZZ2+272 01256000 ZZ2AF EQU ZZ2A+16 01257000 ZZ2AFM EQU ZZ2AF+2 01258000 ZZ2AFD EQU ZZ2AF+2 01259000 ZZ2APID EQU ZZ2A+64 01260000 ZZ2AD EQU ZZ2A+74 01261000 ZZ2ADD EQU ZZ2AD 01262000 ZZ2ADDT EQU ZZ2ADD+2 01263000 ZZ2ADM EQU ZZ2AD+46 01264000 ZZ2ADMT EQU ZZ2ADM+2 01265000 ZZ2ADP EQU ZZ2AD+56 01266000 ZZ2ADPT EQU ZZ2ADP+2 01267000 ZZ2AZZ6P EQU ZZ2A+140 01268000 ZZ2AQAS EQU ZZ2A+144 01269000 ZZ2AQD EQU ZZ2A+160 01270000 ZZ2AQDT EQU ZZ2AQD+10 01271000 ZZ2AQDF EQU ZZ2AQD+52 01272000 ZZ2STG EQU ZZ2+960 01273000 ZZ2ALLOP EQU ZZ2+992 01274000 ZZ2FREEP EQU ZZ2+996 01275000 ZZ2FF19P EQU ZZ2+1000 01276000 ZZ2FRE1P EQU ZZ2+1004 01277000 ZZ2FF18P EQU ZZ2+1008 01278000 ZZ2DYNAP EQU ZZ2+1012 01279000 ZZ2ZZ2CP EQU ZZ2+1016 01280000 ZZ2ZZ2DP EQU ZZ2+1020 01281000 ZZ2STAIP EQU ZZ2+1024 01282000 ZZ2FF02P EQU ZZ2+1028 01283000 ZZ2GETLP EQU ZZ2+1032 01284000 ZZ2PARSP EQU ZZ2+1036 01285000 ZZ2PTGTP EQU ZZ2+1040 01286000 ZZ2PUTLP EQU ZZ2+1044 01287000 ZZ2SCANP EQU ZZ2+1048 01288000 ZZ2STCKP EQU ZZ2+1052 01289000 ZZ2TRMOP EQU ZZ2+1064 01290000 ZZ2TRMVP EQU ZZ2+1068 01291000 ZZ2PUTNP EQU ZZ2+1084 01292000 ZZ2TRMNP EQU ZZ2+1088 01293000 ZZ2ZZ1P EQU ZZ2+1264 01294000 ZZ2BVTP EQU ZZ2+1280 01295000 ZZ2RVTP EQU ZZ2+1284 01296000 ZZ2CPPL EQU ZZ2+1292 01297000 ZZ2CPPLC EQU ZZ2CPPL 01298000 ZZ2ITR EQU ZZ2+2840 01299000 ZZ2ITRE EQU ZZ2ITR+16 01300000 ZZ2ITSE EQU ZZ2+2864 01301000 ZZ2ES EQU ZZ2+2872 01302000 ZZ2AMDX EQU ZZ2+7160 01303000 ZZ2AXO EQU ZZ2+7934 01304000 ZZ2AXOT EQU ZZ2AXO+2 01305000 CMD EQU 0 01306000 CMDT EQU CMD+4 01307000 PSCB EQU 0 01308000 PSCBATR1 EQU PSCB+16 01309000 ECT EQU 0 01310000 ECTSWS EQU ECT+28 01311000 ECTSWS2 EQU ECT+40 01312000 ECTSWS21 EQU ECTSWS2 01313000 UPT EQU 0 01314000 UPTSWS EQU UPT+12 01315000 SA EQU 0 01316000 SA1 EQU SA 01317000 SAR EQU SA+12 01318000 SAR1 EQU SAR+12 01319000 BLSUMPK1 EQU 0 01320000 BLSUPUTA EQU 0 01321000 BLSUTRMV EQU 0 01322000 BVT EQU 0 01323000 BVTPUTLP EQU BVT+4 01324000 BVTPUTOP EQU BVT+12 01325000 BVTPUTTP EQU BVT+16 01326000 BVTPUTVP EQU BVT+20 01327000 BVTPUTAP EQU BVT+24 01328000 BVTPRTTP EQU BVT+28 01329000 BVTPRTAP EQU BVT+32 01330000 BVTPUTDP EQU BVT+36 01331000 BVTMONP EQU BVT+40 01332000 BVTMON2P EQU BVT+44 01333000 BVTVSARP EQU BVT+48 01334000 BVTVSENP EQU BVT+64 01335000 BVTVSERP EQU BVT+68 01336000 BVTVSGEP EQU BVT+72 01337000 BVTVSGUP EQU BVT+76 01338000 BVTVSPOP EQU BVT+80 01339000 BVTVSPUP EQU BVT+84 01340000 BVTMPKNP EQU BVT+104 01341000 BVTMONLP EQU BVT+108 01342000 BVTPUTCP EQU BVT+132 01343000 BVTMPK1P EQU BVT+136 01344000 BVTZZ2RP EQU BVT+140 01345000 BVTPGMRP EQU BVT+144 01346000 BVTMONAP EQU BVT+148 01347000 BVTBLDDP EQU BVT+152 01348000 BVTBLDLP EQU BVT+156 01349000 BVTPGMCP EQU BVT+160 01350000 BVTPGMDP EQU BVT+164 01351000 BVTPGMLP EQU BVT+168 01352000 BVTMONCP EQU BVT+180 01353000 BVTMONDP EQU BVT+184 01354000 BVTMONTP EQU BVT+188 01355000 BVTPARIP EQU BVT+192 01356000 BVTPARUP EQU BVT+196 01357000 BVTPRTNP EQU BVT+204 01358000 BVTVSCRP EQU BVT+208 01359000 BVTVSMRP EQU BVT+212 01360000 BVTMONXP EQU BVT+216 01361000 BVTTRMAP EQU BVT+228 01362000 ZZ6 EQU 0 01363000 ZZ6D EQU ZZ6+128 01364000 ZZ6DD EQU ZZ6D+8 01365000 ZZ6DDT EQU ZZ6DD+4 01366000 ZZ6DQA EQU ZZ6D+68 01367000 ZZ6DF EQU ZZ6D+92 01368000 ZZ6B EQU ZZ6+768 01369000 BLSRACCQ EQU 0 01370000 BLST06 EQU 0 01371000 BLSRRAGE EQU 0 01372000 RVT EQU 0 01373000 RVTADDRP EQU RVT 01374000 RVTT01P EQU RVT+4 01375000 RVTTAP EQU RVT+8 01376000 RVTTBP EQU RVT+12 01377000 RVTTCP EQU RVT+16 01378000 RVTTFP EQU RVT+24 01379000 RVTTYP EQU RVT+40 01380000 RVTT02P EQU RVT+48 01381000 RVTT03P EQU RVT+52 01382000 RVTT04P EQU RVT+56 01383000 RVTACCLP EQU RVT+60 01384000 RVTRACCP EQU RVT+64 01385000 RVTTLP EQU RVT+68 01386000 RVTTMP EQU RVT+72 01387000 RVTTUP EQU RVT+80 01388000 RVTESGEP EQU RVT+84 01389000 RVTESGUP EQU RVT+88 01390000 RVTESARP EQU RVT+92 01391000 RVTRAARP EQU RVT+96 01392000 RVTRAGEP EQU RVT+100 01393000 RVTADDPP EQU RVT+104 01394000 RVTACCQP EQU RVT+108 01395000 RVTSAGUP EQU RVT+124 01396000 RVTSAGEP EQU RVT+128 01397000 RVTESCKP EQU RVT+132 01398000 RVTMSGAP EQU RVT+136 01399000 RVTMSGDP EQU RVT+140 01400000 RVTADDTP EQU RVT+160 01401000 RVTADDUP EQU RVT+164 01402000 RVTADD1P EQU RVT+176 01403000 RVTADD2P EQU RVT+180 01404000 RVTRSAGP EQU RVT+184 01405000 RVTMSGBP EQU RVT+188 01406000 RVTADDSP EQU RVT+192 01407000 RVTADD3P EQU RVT+196 01408000 RVTT05P EQU RVT+200 01409000 RVTPADSP EQU RVT+204 01410000 RVTTRP EQU RVT+228 01411000 RVTADD4P EQU RVT+232 01412000 RVTSAPCP EQU RVT+236 01413000 RVTSAARP EQU RVT+240 01414000 RVTSAGNP EQU RVT+244 01415000 RVTT06P EQU RVT+248 01416000 RVTSAGCP EQU RVT+252 01417000 RVTSAGQP EQU RVT+256 01418000 RVTESGCP EQU RVT+260 01419000 RVTESGQP EQU RVT+264 01420000 RVTDUCKP EQU RVT+276 01421000 RVTDUCCP EQU RVT+280 01422000 FORMBUF EQU 0 01423000 BLSRACC EQU 0 01424000 BLSRACCL EQU 0 01425000 BLSRADDP EQU 0 01426000 BLSRADDR EQU 0 01427000 BLSRADDS EQU 0 01428000 BLSRADDT EQU 0 01429000 BLSRADDU EQU 0 01430000 BLSRADD1 EQU 0 01431000 BLSRADD2 EQU 0 01432000 BLSRADD3 EQU 0 01433000 BLSRADD4 EQU 0 01434000 BLSRDUCC EQU 0 01435000 BLSRDUCK EQU 0 01436000 BLSRESAR EQU 0 01437000 BLSRESCK EQU 0 01438000 BLSRESGC EQU 0 01439000 BLSRESGE EQU 0 01440000 BLSRESGQ EQU 0 01441000 BLSRESGU EQU 0 01442000 BLSRMSGA EQU 0 01443000 BLSRMSGB EQU 0 01444000 BLSRMSGD EQU 0 01445000 BLSRPADS EQU 0 01446000 BLSRRAAR EQU 0 01447000 BLSRSAAR EQU 0 01448000 BLSRSAG EQU 0 01449000 BLSRSAGC EQU 0 01450000 BLSRSAGE EQU 0 01451000 BLSRSAGN EQU 0 01452000 BLSRSAGQ EQU 0 01453000 BLSRSAGU EQU 0 01454000 BLSRSAPC EQU 0 01455000 BLSTA EQU 0 01456000 BLSTB EQU 0 01457000 BLSTC EQU 0 01458000 BLSTF EQU 0 01459000 BLSTL EQU 0 01460000 BLSTM EQU 0 01461000 BLSTR EQU 0 01462000 BLSTU EQU 0 01463000 BLSTY EQU 0 01464000 BLST01 EQU 0 01465000 BLST02 EQU 0 01466000 BLST03 EQU 0 01467000 BLST04 EQU 0 01468000 BLST05 EQU 0 01469000 BLSUALLO EQU 0 01470000 BLSUBLDD EQU 0 01471000 BLSUBLDL EQU 0 01472000 BLSUDYNA EQU 0 01473000 BLSUFREE EQU 0 01474000 BLSUFRE1 EQU 0 01475000 BLSUMON EQU 0 01476000 BLSUMONA EQU 0 01477000 BLSUMONC EQU 0 01478000 BLSUMOND EQU 0 01479000 BLSUMONL EQU 0 01480000 BLSUMONT EQU 0 01481000 BLSUMONX EQU 0 01482000 BLSUMON2 EQU 0 01483000 BLSUMPKN EQU 0 01484000 BLSUPARI EQU 0 01485000 BLSUPARU EQU 0 01486000 BLSUPGMC EQU 0 01487000 BLSUPGMD EQU 0 01488000 BLSUPGML EQU 0 01489000 BLSUPGMR EQU 0 01490000 BLSUPRTA EQU 0 01491000 BLSUPRTN EQU 0 01492000 BLSUPRTT EQU 0 01493000 BLSUPUTC EQU 0 01494000 BLSUPUTD EQU 0 01495000 BLSUPUTL EQU 0 01496000 BLSUPUTN EQU 0 01497000 BLSUPUTO EQU 0 01498000 BLSUPUTT EQU 0 01499000 BLSUPUTV EQU 0 01500000 BLSUSTAI EQU 0 01501000 BLSUTRMA EQU 0 01502000 BLSUTRMN EQU 0 01503000 BLSUTRMO EQU 0 01504000 BLSUVSAR EQU 0 01505000 BLSUVSCR EQU 0 01506000 BLSUVSEN EQU 0 01507000 BLSUVSER EQU 0 01508000 BLSUVSGE EQU 0 01509000 BLSUVSGU EQU 0 01510000 BLSUVSMR EQU 0 01511000 BLSUVSPO EQU 0 01512000 BLSUVSPU EQU 0 01513000 BLSUZZ2C EQU 0 01514000 BLSUZZ2D EQU 0 01515000 BLSUZZ2R EQU 0 01516000 IKJEFF02 EQU 0 01517000 IKJEFF18 EQU 0 01518000 IKJEFF19 EQU 0 01519000 IKJGETL EQU 0 01520000 IKJPARS EQU 0 01521000 IKJPTGT EQU 0 01522000 IKJPUTL EQU 0 01523000 IKJSCAN EQU 0 01524000 IKJSTCK EQU 0 01525000 I001C EQU 0 01526000 I008P EQU 0 01527000 I015F EQU 0 01528000 I015P EQU 0 01529000 I031F EQU 0 01530000 I031P EQU 0 01531000 I256C EQU 0 01532000 PZ2 EQU 0 01533000 ESPA EQU 0 01534000 ESPAAS EQU ESPA+60 01535000 ESPAD EQU ESPA+80 01536000 ESPADOF EQU ESPAD 01537000 ESPADLE EQU ESPAD+4 01538000 ESPADT EQU ESPAD+10 01539000 ESPADF EQU ESPAD+52 01540000 ESPAF EQU ESPA+161 01541000 ESPAFS EQU ESPAF 01542000 ESPAFC EQU ESPAF+1 01543000 ESPAR EQU ESPA+180 01544000 ESPART EQU ESPAR+2 01545000 CPPL EQU ZZ2CPPL 01546000 CPPLUPT EQU CPPL+4 01547000 CPPLPSCB EQU CPPL+8 01548000 CPPLECT EQU CPPL+12 01549000 PTRPTR EQU PTRBIT 01550000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01551000 CPPLCBUF EQU CPPL 01552000 ESPA999 EQU ESPA+694 01553000 ESPART1 EQU ESPART 01554000 ESPARL EQU ESPAR 01555000 @NM00012 EQU ESPA+168 01556000 ESPAABS EQU ESPA+164 01557000 @NM00011 EQU ESPAF+2 01558000 @NM00010 EQU ESPAFC 01559000 ESPAFCD EQU ESPAFC 01560000 ESPAFSS EQU ESPAFS 01561000 ESPAFSX EQU ESPAFS 01562000 ESPAFSR EQU ESPAFS 01563000 ESPAFSP EQU ESPAFS 01564000 ESPAFSA EQU ESPAFS 01565000 ESPAFSM EQU ESPAFS 01566000 ESPAFS2 EQU ESPAFS 01567000 ESPAFSC EQU ESPAFS 01568000 ESPAKEY EQU ESPA+160 01569000 @NM00009 EQU ESPA+144 01570000 ESPAMAD EQU ESPA+140 01571000 ESPAD99 EQU ESPAD+60 01572000 @NM00008 EQU ESPAD+56 01573000 @NM00007 EQU ESPADF 01574000 ESPADFA EQU ESPADF 01575000 ESPADIL EQU ESPAD+48 01576000 ESPADIM EQU ESPAD+44 01577000 ESPADT9 EQU ESPADT+34 01578000 ESPADTE EQU ESPADT+33 01579000 ESPADTD EQU ESPADT+2 01580000 @NM00006 EQU ESPADT+1 01581000 ESPADTY EQU ESPADT 01582000 ESPADT0 EQU ESPADT 01583000 ESPADLB EQU ESPAD+9 01584000 ESPADOB EQU ESPAD+8 01585000 ESPAD00 EQU ESPAD 01586000 ESPALAD EQU ESPA+76 01587000 ESPAAS9 EQU ESPAAS+16 01588000 @NM00005 EQU ESPAAS+12 01589000 ESPAAS2 EQU ESPAAS+8 01590000 ESPAAS1 EQU ESPAAS+4 01591000 @NM00004 EQU ESPAAS+2 01592000 ESPAAST EQU ESPAAS 01593000 ESPAAS0 EQU ESPAAS 01594000 ESPARV1 EQU ESPA+59 01595000 ESPAELK EQU ESPA+59 01596000 ESPASYM EQU ESPA+28 01597000 ESPARDX EQU ESPA+24 01598000 @NM00003 EQU ESPA+16 01599000 @NM00002 EQU ESPA+8 01600000 @NM00001 EQU ESPA+2 01601000 ESPARID EQU ESPA 01602000 RVT99999 EQU RVT+384 01603000 RVT0096P EQU RVT+380 01604000 RVT0095P EQU RVT+376 01605000 RVT0094P EQU RVT+372 01606000 RVT0093P EQU RVT+368 01607000 RVT0092P EQU RVT+364 01608000 RVT0091P EQU RVT+360 01609000 RVT0090P EQU RVT+356 01610000 RVT0089P EQU RVT+352 01611000 RVT0088P EQU RVT+348 01612000 RVT0087P EQU RVT+344 01613000 RVT0086P EQU RVT+340 01614000 RVT0085P EQU RVT+336 01615000 RVT0084P EQU RVT+332 01616000 RVT0083P EQU RVT+328 01617000 RVT0082P EQU RVT+324 01618000 RVT0081P EQU RVT+320 01619000 RVT0080P EQU RVT+316 01620000 RVT0079P EQU RVT+312 01621000 RVT0078P EQU RVT+308 01622000 RVT0077P EQU RVT+304 01623000 RVT0076P EQU RVT+300 01624000 RVT0075P EQU RVT+296 01625000 RVT0074P EQU RVT+292 01626000 RVT0073P EQU RVT+288 01627000 RVT0072P EQU RVT+284 01628000 RVTDTUTP EQU RVT+272 01629000 RVTDTMTP EQU RVT+268 01630000 RVT0057P EQU RVT+224 01631000 RVT0056P EQU RVT+220 01632000 RVT0055P EQU RVT+216 01633000 RVT0054P EQU RVT+212 01634000 RVT0053P EQU RVT+208 01635000 RVT0044P EQU RVT+172 01636000 RVT0043P EQU RVT+168 01637000 RVT0040P EQU RVT+156 01638000 RVT0039P EQU RVT+152 01639000 RVT0038P EQU RVT+148 01640000 RVT0037P EQU RVT+144 01641000 RVT0031P EQU RVT+120 01642000 RVT0030P EQU RVT+116 01643000 RVT0029P EQU RVT+112 01644000 RVT0020P EQU RVT+76 01645000 RVT0012P EQU RVT+44 01646000 RVT0010P EQU RVT+36 01647000 RVT0009P EQU RVT+32 01648000 RVT0008P EQU RVT+28 01649000 RVT0006P EQU RVT+20 01650000 ZZ69999 EQU ZZ6+1792 01651000 ZZ6BRB EQU ZZ6B+12 01652000 ZZ6BRC EQU ZZ6B+8 01653000 @NM00088 EQU ZZ6B+6 01654000 ZZ6BFL EQU ZZ6B+4 01655000 ZZ6BDA EQU ZZ6B 01656000 @NM00087 EQU ZZ6+540 01657000 ZZ6BUFI EQU ZZ6+536 01658000 ZZ6BUFP EQU ZZ6+532 01659000 ZZ6FILE EQU ZZ6+524 01660000 ZZ6BUFB EQU ZZ6+520 01661000 ZZ6BUFL EQU ZZ6+518 01662000 ZZ6BUFN EQU ZZ6+516 01663000 ZZ6ZZ6P EQU ZZ6+512 01664000 @NM00086 EQU ZZ6+256 01665000 ZZ6D999 EQU ZZ6D+128 01666000 @NM00085 EQU ZZ6D+116 01667000 ZZ6DCAP EQU ZZ6D+112 01668000 ZZ6DPRP EQU ZZ6D+108 01669000 ZZ6DDA2 EQU ZZ6D+104 01670000 ZZ6DDA1 EQU ZZ6D+100 01671000 @NM00084 EQU ZZ6DF 01672000 ZZ6DFSU EQU ZZ6DF 01673000 ZZ6DFST EQU ZZ6DF 01674000 ZZ6DFAB EQU ZZ6DF 01675000 ZZ6DFMP EQU ZZ6DF 01676000 ZZ6DFDU EQU ZZ6DF 01677000 ZZ6DFBS EQU ZZ6DF 01678000 ZZ6DQ2 EQU ZZ6D+88 01679000 ZZ6DQ1 EQU ZZ6D+84 01680000 ZZ6DQA9 EQU ZZ6DQA+16 01681000 @NM00083 EQU ZZ6DQA+12 01682000 ZZ6DQA2 EQU ZZ6DQA+8 01683000 ZZ6DQA1 EQU ZZ6DQA+4 01684000 @NM00082 EQU ZZ6DQA+2 01685000 ZZ6DQAT EQU ZZ6DQA 01686000 ZZ6DQA0 EQU ZZ6DQA 01687000 ZZ6DRDX EQU ZZ6D+64 01688000 ZZ6DELK EQU ZZ6D+64 01689000 ZZ6DMEM EQU ZZ6D+56 01690000 ZZ6DDT1 EQU ZZ6DDT 01691000 ZZ6DDO EQU ZZ6DD+2 01692000 ZZ6DDL EQU ZZ6DD 01693000 @NM00081 EQU ZZ6D+2 01694000 ZZ6DRID EQU ZZ6D 01695000 ZZ6RDCB EQU ZZ6 01696000 ZZ60000 EQU ZZ6 01697000 BVT99999 EQU BVT+256 01698000 BVT0064P EQU BVT+252 01699000 BVT0063P EQU BVT+248 01700000 BVT0062P EQU BVT+244 01701000 BVT0061P EQU BVT+240 01702000 BVT0060P EQU BVT+236 01703000 BVT0059P EQU BVT+232 01704000 BVT0057P EQU BVT+224 01705000 BVT0056P EQU BVT+220 01706000 BVTSTBLP EQU BVT+200 01707000 BVT0045P EQU BVT+176 01708000 BVT0044P EQU BVT+172 01709000 BVT0033P EQU BVT+128 01710000 BVT0032P EQU BVT+124 01711000 BVT0031P EQU BVT+120 01712000 BVT0030P EQU BVT+116 01713000 BVT0029P EQU BVT+112 01714000 BVT0026P EQU BVT+100 01715000 BVT0025P EQU BVT+96 01716000 BVT0024P EQU BVT+92 01717000 BVT0023P EQU BVT+88 01718000 BVT0016P EQU BVT+60 01719000 BVT0015P EQU BVT+56 01720000 BVT0014P EQU BVT+52 01721000 BVT0003P EQU BVT+8 01722000 BVT0001P EQU BVT 01723000 SA99 EQU SA+72 01724000 SARC EQU SAR+56 01725000 SARB EQU SAR+52 01726000 SARA EQU SAR+48 01727000 SAR9 EQU SAR+44 01728000 SAR8 EQU SAR+40 01729000 SAR7 EQU SAR+36 01730000 SAR6 EQU SAR+32 01731000 SAR5 EQU SAR+28 01732000 SAR4 EQU SAR+24 01733000 SAR3 EQU SAR+20 01734000 SAR2 EQU SAR+16 01735000 SAR0 EQU SAR+8 01736000 SARF EQU SAR+4 01737000 SARE EQU SAR 01738000 SAFWD EQU SA+8 01739000 SABAK EQU SA+4 01740000 SA1L EQU SA1+1 01741000 SA1P EQU SA1 01742000 UPTPREFL EQU UPT+23 01743000 UPTPREFX EQU UPT+16 01744000 @NM00080 EQU UPT+15 01745000 UPTLDEL EQU UPT+14 01746000 UPTCDEL EQU UPT+13 01747000 UPTWTP EQU UPTSWS 01748000 UPTMODE EQU UPTSWS 01749000 UPTALD EQU UPTSWS 01750000 UPTPAUS EQU UPTSWS 01751000 UPTNCOM EQU UPTSWS 01752000 UPTMID EQU UPTSWS 01753000 UPTNPRM EQU UPTSWS 01754000 UPTRCVR EQU UPTSWS 01755000 UPTUSER EQU UPT+2 01756000 @NM00079 EQU UPT 01757000 @NM00078 EQU ECT+52 01758000 @NM00077 EQU ECT+48 01759000 @NM00076 EQU ECT+44 01760000 @NM00075 EQU ECTSWS2+1 01761000 @NM00074 EQU ECTSWS21 01762000 ECTTABND EQU ECTSWS21 01763000 ECTDEFCS EQU ECTSWS21 01764000 ECTBKPB EQU ECT+36 01765000 ECTUSER EQU ECT+32 01766000 ECTDDNUM EQU ECT+29 01767000 ECTATTN EQU ECTSWS 01768000 ECTBKGRD EQU ECTSWS 01769000 ECTNNOT EQU ECTSWS 01770000 ECTNMAL EQU ECTSWS 01771000 ECTLOGF EQU ECTSWS 01772000 ECTATRM EQU ECTSWS 01773000 @NM00073 EQU ECTSWS 01774000 ECTNOPD EQU ECTSWS 01775000 ECTSCMD EQU ECT+20 01776000 ECTPCMD EQU ECT+12 01777000 ECTSMSG EQU ECT+9 01778000 ECTMSGF EQU ECT+8 01779000 ECTIOWA EQU ECT+4 01780000 ECTRTCD EQU ECT+1 01781000 ECTRCDF EQU ECT 01782000 PSCBU EQU PSCB+64 01783000 PSCBRSZ EQU PSCB+60 01784000 PSCBLINE EQU PSCB+59 01785000 PSCBCHAR EQU PSCB+58 01786000 PSCBUPTL EQU PSCB+56 01787000 PSCBUPT EQU PSCB+52 01788000 PSCBRLGB EQU PSCB+48 01789000 PSCBDEST EQU PSCB+40 01790000 @NM00072 EQU PSCB+36 01791000 @NM00071 EQU PSCB+32 01792000 @NM00070 EQU PSCB+28 01793000 PSCBLTI2 EQU PSCB+24 01794000 PSCBLTIM EQU PSCB+20 01795000 PSCBATR2 EQU PSCB+18 01796000 @NM00069 EQU PSCBATR1 01797000 @NM00068 EQU PSCBATR1 01798000 @NM00067 EQU PSCBATR1 01799000 PSCBATTN EQU PSCBATR1 01800000 PSCBVMNT EQU PSCBATR1 01801000 PSCBJCL EQU PSCBATR1 01802000 PSCBACCT EQU PSCBATR1 01803000 PSCBCTRL EQU PSCBATR1 01804000 PSCBGPNM EQU PSCB+8 01805000 PSCBUSRL EQU PSCB+7 01806000 PSCBUSER EQU PSCB 01807000 CMDT1 EQU CMDT 01808000 CMDO EQU CMD+2 01809000 CMDL EQU CMD 01810000 ZZ299999 EQU ZZ2+8192 01811000 ZZ2AXOT1 EQU ZZ2AXOT 01812000 ZZ2AXOL EQU ZZ2AXO 01813000 @NM00066 EQU ZZ2+7288 01814000 @NM00065 EQU ZZ2AMDX+4 01815000 ZZ2AMDXC EQU ZZ2AMDX 01816000 ZZ2HSD EQU ZZ2+3056 01817000 @NM00064 EQU ZZ2ES 01818000 @NM00063 EQU ZZ2+2868 01819000 ZZ2ITSEC EQU ZZ2ITSE+1 01820000 @NM00062 EQU ZZ2ITSE 01821000 ZZ2ITSEP EQU ZZ2ITSE 01822000 ZZ2ITSEW EQU ZZ2ITSE 01823000 @NM00061 EQU ZZ2ITR+20 01824000 ZZ2ITREC EQU ZZ2ITRE+1 01825000 @NM00060 EQU ZZ2ITRE 01826000 ZZ2ITREP EQU ZZ2ITRE 01827000 ZZ2ITREW EQU ZZ2ITRE 01828000 @NM00059 EQU ZZ2ITR+9 01829000 ZZ2ITRRC EQU ZZ2ITR+8 01830000 ZZ2ITR2P EQU ZZ2ITR+4 01831000 ZZ2ITRPP EQU ZZ2ITR 01832000 @NM00058 EQU ZZ2+1544 01833000 ZZ2PGM EQU ZZ2+1536 01834000 @NM00057 EQU ZZ2+1526 01835000 ZZ2CW EQU ZZ2+1524 01836000 @NM00056 EQU ZZ2+1504 01837000 @NM00055 EQU ZZ2+1352 01838000 ZZ2FFSYP EQU ZZ2+1348 01839000 ZZ2SASYP EQU ZZ2+1344 01840000 ZZ2RDSYP EQU ZZ2+1340 01841000 ZZ2RASYP EQU ZZ2+1336 01842000 ZZ2PHSYP EQU ZZ2+1332 01843000 ZZ2ESSYP EQU ZZ2+1328 01844000 ZZ200SYP EQU ZZ2+1324 01845000 ZZ2SCWP EQU ZZ2+1320 01846000 ZZ2TTLP EQU ZZ2+1316 01847000 ZZ2LOADP EQU ZZ2+1312 01848000 ZZ2VRESP EQU ZZ2+1308 01849000 ZZ2CPPLE EQU ZZ2CPPL+12 01850000 ZZ2CPPLP EQU ZZ2CPPL+8 01851000 ZZ2CPPLU EQU ZZ2CPPL+4 01852000 ZZ2VRSAP EQU ZZ2+1288 01853000 ZZ2DVTP EQU ZZ2+1276 01854000 @NM00054 EQU ZZ2+1272 01855000 @NM00053 EQU ZZ2+1268 01856000 ZZ2RPLP EQU ZZ2+1260 01857000 ZZ2TCBP EQU ZZ2+1256 01858000 @NM00052 EQU ZZ2+1252 01859000 ZZ2ZZ2P EQU ZZ2+1248 01860000 @NM00051 EQU ZZ2+1112 01861000 ZZ2FPDRP EQU ZZ2+1108 01862000 ZZ2FDSDP EQU ZZ2+1104 01863000 ZZ2APDRP EQU ZZ2+1100 01864000 ZZ2ADSDP EQU ZZ2+1096 01865000 ZZ2ENQ0P EQU ZZ2+1092 01866000 @NM00050 EQU ZZ2+1080 01867000 ZZ2MSG0P EQU ZZ2+1076 01868000 ZZ2FT25P EQU ZZ2+1072 01869000 ZZ2MSGSP EQU ZZ2+1060 01870000 ZZ2ALOCP EQU ZZ2+1056 01871000 @NM00049 EQU ZZ2+976 01872000 ZZ2TOD EQU ZZ2+968 01873000 ZZ2STGN EQU ZZ2STG+4 01874000 ZZ2STGP EQU ZZ2STG 01875000 @NM00048 EQU ZZ2+952 01876000 ZZ2SCMDE EQU ZZ2+944 01877000 ZZ2SCMDN EQU ZZ2+936 01878000 ZZ2IDENT EQU ZZ2+928 01879000 ZZ2A9999 EQU ZZ2A+656 01880000 @NM00047 EQU ZZ2A+224 01881000 @NM00046 EQU ZZ2A+220 01882000 ZZ2AQD99 EQU ZZ2AQD+60 01883000 @NM00045 EQU ZZ2AQD+56 01884000 @NM00044 EQU ZZ2AQDF 01885000 ZZ2AQDFA EQU ZZ2AQDF 01886000 ZZ2AQDIL EQU ZZ2AQD+48 01887000 ZZ2AQDIM EQU ZZ2AQD+44 01888000 ZZ2AQDT9 EQU ZZ2AQDT+34 01889000 ZZ2AQDTE EQU ZZ2AQDT+33 01890000 ZZ2AQDTD EQU ZZ2AQDT+2 01891000 @NM00043 EQU ZZ2AQDT+1 01892000 ZZ2AQDTY EQU ZZ2AQDT 01893000 ZZ2AQDT0 EQU ZZ2AQDT 01894000 ZZ2AQDLB EQU ZZ2AQD+9 01895000 ZZ2AQDOB EQU ZZ2AQD+8 01896000 ZZ2AQDLE EQU ZZ2AQD+4 01897000 ZZ2AQDOF EQU ZZ2AQD 01898000 ZZ2AQD00 EQU ZZ2AQD 01899000 ZZ2AQAS9 EQU ZZ2AQAS+16 01900000 @NM00042 EQU ZZ2AQAS+12 01901000 ZZ2AQAS2 EQU ZZ2AQAS+8 01902000 ZZ2AQAS1 EQU ZZ2AQAS+4 01903000 @NM00041 EQU ZZ2AQAS+2 01904000 ZZ2AQAST EQU ZZ2AQAS 01905000 ZZ2AQAS0 EQU ZZ2AQAS 01906000 ZZ2ADPTA EQU ZZ2ADPT 01907000 ZZ2ADPL EQU ZZ2ADP 01908000 ZZ2ADMTA EQU ZZ2ADMT 01909000 ZZ2ADML EQU ZZ2ADM 01910000 ZZ2ADDTA EQU ZZ2ADDT 01911000 ZZ2ADDL EQU ZZ2ADD 01912000 @NM00040 EQU ZZ2A+72 01913000 ZZ2APIDB EQU ZZ2APID+3 01914000 ZZ2APIDA EQU ZZ2APID 01915000 @NM00039 EQU ZZ2A+24 01916000 @NM00038 EQU ZZ2AF+5 01917000 ZZ2AFX EQU ZZ2AF+5 01918000 @NM00037 EQU ZZ2AF+3 01919000 ZZ2AFS EQU ZZ2AF+2 01920000 ZZ2AFQ EQU ZZ2AF+2 01921000 ZZ2AF$ EQU ZZ2AF+2 01922000 @NM00036 EQU ZZ2AF+2 01923000 @NM00035 EQU ZZ2AF+2 01924000 @NM00034 EQU ZZ2AF+1 01925000 ZZ2AFV EQU ZZ2AF+1 01926000 @NM00033 EQU ZZ2AF+1 01927000 ZZ2AFC EQU ZZ2AF+1 01928000 @NM00032 EQU ZZ2AF 01929000 ZZ2AFFS EQU ZZ2AF 01930000 ZZ2AFT EQU ZZ2AF 01931000 ZZ2AFP EQU ZZ2AF 01932000 @NM00031 EQU ZZ2A+8 01933000 ZZ2ALINE EQU ZZ2A+4 01934000 @NM00030 EQU ZZ2A+3 01935000 ZZ2ASE EQU ZZ2A+2 01936000 ZZ2ACH EQU ZZ2A 01937000 @NM00029 EQU ZZ2+264 01938000 @NM00028 EQU ZZ2+263 01939000 ZZ2PRTT0 EQU ZZ2PRTT 01940000 ZZ2PRTO EQU ZZ2PRT+2 01941000 ZZ2PRTL EQU ZZ2PRT 01942000 @NM00027 EQU ZZ2AMD+56 01943000 ZZ2AMDXP EQU ZZ2AMD+52 01944000 ZZ2AMDD EQU ZZ2AMD+48 01945000 ZZ2AMDL EQU ZZ2AMD+44 01946000 ZZ2AMDU EQU ZZ2AMD+28 01947000 ZZ2AMDF EQU ZZ2AMD+24 01948000 ZZ2AMDS EQU ZZ2AMD+20 01949000 ZZ2AMDC EQU ZZ2AMD+16 01950000 ZZ2AMDP EQU ZZ2AMD+12 01951000 ZZ2AMDB EQU ZZ2AMD+8 01952000 @NM00026 EQU @NM00025 01953000 ZZ2AMD2 EQU @NM00025 01954000 ZZ2AMD1 EQU @NM00025 01955000 ZZ2AMD0 EQU ZZ2AMD+6 01956000 ZZ2AMDA EQU ZZ2AMD+4 01957000 ZZ2AMDT EQU ZZ2AMD 01958000 ZZ199999 EQU ZZ1+3072 01959000 @NM00024 EQU ZZ1+2160 01960000 ZZ1TRTAS EQU ZZ1+1904 01961000 ZZ1TRUPC EQU ZZ1+1648 01962000 ZZ1TRCTX EQU ZZ1+1392 01963000 ZZ1NASID EQU ZZ1N+274 01964000 ZZ1NSTRL EQU ZZ1N+272 01965000 ZZ1NOFF EQU ZZ1N+268 01966000 ZZ1NBDY EQU ZZ1N+264 01967000 ZZ1NADE EQU ZZ1N+260 01968000 ZZ1NADB EQU ZZ1N+256 01969000 ZZ1NSTR EQU ZZ1N 01970000 @NM00023 EQU ZZ1+1080 01971000 @NM00022 EQU ZZ1+377 01972000 ZZ1USTAE EQU ZZ1+376 01973000 @NM00021 EQU ZZ1F+1 01974000 @NM00020 EQU ZZ1F 01975000 ZZ1FM EQU ZZ1F 01976000 ZZ1FX EQU ZZ1F 01977000 ZZ1FU EQU ZZ1F 01978000 ZZ1EVEC EQU ZZ1EVE+1 01979000 @NM00019 EQU ZZ1EVE 01980000 ZZ1EVEW EQU ZZ1EVE 01981000 ZZ1ACMP EQU ZZ1ATTN 01982000 @NM00018 EQU ZZ1+144 01983000 ZZ1FPP EQU ZZ1+140 01984000 ZZ1ZZ6P EQU ZZ1+136 01985000 @NM00017 EQU ZZ1+84 01986000 ZZ1PLINE EQU ZZ1+80 01987000 ZZ1PGSZ EQU ZZ1+76 01988000 ZZ1PCNT EQU ZZ1+72 01989000 @NM00016 EQU ZZ1+68 01990000 ZZ1TPAGE EQU ZZ1+64 01991000 ZZ1TLINE EQU ZZ1+60 01992000 @NM00015 EQU ZZ1+48 01993000 ZZ1DSDP EQU ZZ1+44 01994000 ZZ1PDRP EQU ZZ1+40 01995000 ZZ1ZZ2P EQU ZZ1+36 01996000 ZZ1327WP EQU ZZ1+32 01997000 ZZ1ACBP EQU ZZ1+28 01998000 @NM00014 EQU ZZ1+24 01999000 ZZ1PDCBP EQU ZZ1+20 02000000 ZZ1BLRBL EQU ZZ1+16 02001000 @NM00013 EQU ZZ1+12 02002000 ZZ1PNULL EQU ZZ1+8 02003000 ZZ1NULL EQU ZZ1+4 02004000 ZZ1IDE EQU ZZ1 02005000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02006000 @RT00147 EQU EXIT 02007000 @RC00165 EQU @RC00154 02008000 @RC00184 EQU @RC00181 02009000 @RT00306 EQU L102 02010000 L104 EQU @EL00002 02011000 @RC00349 EQU @EL00003 02012000 @RF00316 EQU L104 02013000 @ENDDATA EQU * 02014000 END BLST08,(C'PLS2038',0701,78059) 02015000