TITLE 'BLSDTM00-VALIDITY CHECK ROUTINE FOR TIME FIELD *00001000 ' 00002000 * /* CHANGE ACTIVITY */ 00003000 * THIS MODULE IS WRITTEN FOR @G57LPRM 00004000 BLSDTM00 CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSDTM00 78.062' 0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 0002 00012000 BALR @12,0 0002 00013000 @PSTART DS 0H 0002 00014000 USING @PSTART,@12 0002 00015000 L @00,@SIZDATD 0002 00016000 BLSUALL2 R,LV=(0) 00017000 LR @11,@01 0002 00018000 USING @DATD,@11 0002 00019000 ST @13,@SA00001+4 0002 00020000 LM @00,@01,20(@13) 0002 00021000 ST @11,8(,@13) 0002 00022000 LR @13,@11 0002 00023000 MVC @PC00001(12),0(@01) 0002 00024000 * PDE */ 00025000 * RETCD=0; /* INIT THE RETURN CODE TO ZERO */ 00026000 SLR RETCD,RETCD 0125 00027000 * TFLG=0; /* INIT THE COUNT OF PERIODS TO 00028000 * ZERO */ 00029000 MVI TFLG,X'00' 0126 00030000 * TERR=0; /* INIT THE ERROR CONDITION TO 0127 00031000 * ZERO */ 00032000 MVI TERR,X'00' 0127 00033000 * SDOT=0; /* INIT THE SECOND DOT PTR TO 0128 00034000 * ZERO */ 00035000 SLR SDOT,SDOT 0128 00036000 * FDOT=0; /* INIT THE FIRST DOT PTR TO ZERO*/ 00037000 * 0129 00038000 SLR FDOT,FDOT 0129 00039000 * /*****************************************************************/ 00040000 * /* */ 00041000 * /* THIS ROUTINE CHECK THE TIME ENTERED FOR PROPER INFORMATION. */ 00042000 * /* THE FORM ACCEPTED IS - HH:MM:SS - NO SHORT FORM IS ACCEPTED. */ 00043000 * /* LEADING ZEROS MUST BE SPECIFIED. */ 00044000 * /* */ 00045000 * /*****************************************************************/ 00046000 * 0130 00047000 * IF BPRIFP='1'B THEN /* IF IDENTIFIER PRESENT */ 00048000 L @10,@PC00001 0130 00049000 TM BPRIFP(@10),B'10000000' 0130 00050000 BNO @RF00130 0130 00051000 * DO; /* CHECK MUST BE MADE */ 00052000 * RESPECIFY 0132 00053000 * BPRI BASED(BPRPTR); /* ESTABLISH ADDRESSIBILITY TO 0132 00054000 * PDE */ 00055000 * BPRPTR=BPRIP; /* POINT TO DATA FOR SCAN */ 00056000 * 0133 00057000 L BPRPTR,BPRIP(,@10) 0133 00058000 * /*************************************************************/ 00059000 * /* */ 00060000 * /* THE LENGTH OF THE FIELD MUST BE EIGHT. ANY OTHER LENGTH IS*/ 00061000 * /* CONSIDERED AN ERROR. */ 00062000 * /* */ 00063000 * /*************************************************************/ 00064000 * 0134 00065000 * IF BPRIL=8 THEN /* IS THE LENGTH EIGHT ? */ 00066000 CLC BPRIL(2,@10),@CH00054 0134 00067000 BNE @RF00134 0134 00068000 * DO; /* YES, LENGTH IS CORRECT 0135 00069000 * CONTINUE WITH TEST */ 00070000 * 0135 00071000 * /*********************************************************/ 00072000 * /* */ 00073000 * /* A SCAN OF THE DATA ENTERED IS SCANNED FOR VALIDITY */ 00074000 * /* */ 00075000 * /*********************************************************/ 00076000 * 0136 00077000 * DO DOTPTR=1 TO BPRIL WHILE(TERR=0);/* START SCAN */ 00078000 LA DOTPTR,1 0136 00079000 B @DE00136 0136 00080000 @DL00136 CLI TERR,0 0136 00081000 BNE @DC00136 0136 00082000 * IF BPRI(1:1)=':' THEN /* IS THE CHAR A DELIM ? */ 00083000 CLI BPRI(BPRPTR),C':' 0137 00084000 BNE @RF00137 0137 00085000 * IF TFLG=0 THEN /* YES,FIND FIRST PERIOD */ 00086000 * 0138 00087000 CLI TFLG,0 0138 00088000 BNE @RF00138 0138 00089000 * /***************************************************/ 00090000 * /* */ 00091000 * /* FIRST PERIOD HAS BEEN FOUND. SAVE THE OFFSET TO */ 00092000 * /* THE PERIOD AND RECORD THE FACT. */ 00093000 * /* */ 00094000 * /***************************************************/ 00095000 * 0139 00096000 * DO; /* FIRST PERIOD START */ 00097000 * FDOT=DOTPTR; /* GET THE COLUMN DELIM IS IN */ 00098000 LR FDOT,DOTPTR 0140 00099000 * TFLG=1; /* INDICATE FIRST HAS BEEN FOUND */ 00100000 MVI TFLG,X'01' 0141 00101000 * END; /* END OF FIRST DELIM */ 00102000 * ELSE /* ATLEAST ONE DOT HAS BEEN FOUND*/ 00103000 * IF TFLG=1 THEN /* HAS FIRST ONE BEEN FOUND? */ 00104000 B @RC00138 0143 00105000 @RF00138 CLI TFLG,1 0143 00106000 BNE @RF00143 0143 00107000 * 0144 00108000 * /*************************************************/ 00109000 * /* */ 00110000 * /* SECOND DELIM HAS BEEN FOUND. SAVE THE OFFSET */ 00111000 * /* TO THE PERIOD, AND RECORD THE FACT. */ 00112000 * /* */ 00113000 * /*************************************************/ 00114000 * 0144 00115000 * DO; /* YES, THIS IS THE SECOND DELIM */ 00116000 * SDOT=DOTPTR; /* FOUND THE SECOND DELIM */ 00117000 LR SDOT,DOTPTR 0145 00118000 * TFLG=2; /* INDICATE SECOND FOUND */ 00119000 MVI TFLG,X'02' 0146 00120000 * END; /* END OF SECOND DELIM */ 00121000 * ELSE /* MORE DELIMS HAVE BEEN FOUND 0148 00122000 * THAN ARE NORMALLY POSSIBLE */ 00123000 * 0148 00124000 * /*************************************************/ 00125000 * /* */ 00126000 * /* ERROR CONDTION HAS BEEN DETECTED MORE THAN TWO*/ 00127000 * /* DELIMS */ 00128000 * /* */ 00129000 * /*************************************************/ 00130000 * 0148 00131000 * DO; /* ERROR-TOO MANY DELIMS */ 00132000 B @RC00143 0148 00133000 @RF00143 DS 0H 0149 00134000 * TERR=1; /* STOP THE SCANNING, ERROR 0149 00135000 * DISCOVERED */ 00136000 MVI TERR,X'01' 0149 00137000 * RETCD=4; /* REPROMPT IS NEEDED */ 00138000 LA RETCD,4 0150 00139000 * END; /* END OF TOO MANY DELIMS */ 00140000 * 0151 00141000 * /*******************************************************/ 00142000 * /* */ 00143000 * /* CHAR IS NOT A PERIOD -CHECK THE DATA FOR NUMERIC */ 00144000 * /* */ 00145000 * /*******************************************************/ 00146000 * 0152 00147000 * ELSE /* NOT PERIOD, NUMERIC? */ 00148000 * IF BPRI(1:1)<'0'| /* LESS THAN ZERO ? */ 00149000 * BPRI(1:1)>'9' THEN/* GREATER THAN NINE ? */ 00150000 B @RC00137 0152 00151000 @RF00137 CLI BPRI(BPRPTR),C'0' 0152 00152000 BL @RT00152 0152 00153000 CLI BPRI(BPRPTR),C'9' 0152 00154000 BNH @RF00152 0152 00155000 @RT00152 DS 0H 0153 00156000 * DO; /* YES, INDICATE AN ERROR */ 00157000 * RETCD=4; /* REPROMPT IS NEEDED */ 00158000 LA RETCD,4 0154 00159000 * TERR=1; /* END THE LOOP AND SEARCH */ 00160000 MVI TERR,X'01' 0155 00161000 * END; /* END OF NOT A NUMERIC ERROR */ 00162000 * BPRPTR=BPRPTR+1; /* BUMP POINTER TO NEXT CHARACTER*/ 00163000 @RF00152 DS 0H 0157 00164000 @RC00137 AL BPRPTR,@CF00046 0157 00165000 * END; /* END OF THE SCAN LOOP */ 00166000 AL DOTPTR,@CF00046 0158 00167000 @DE00136 L @10,@PC00001 0158 00168000 CH DOTPTR,BPRIL(,@10) 0158 00169000 BNH @DL00136 0158 00170000 @DC00136 DS 0H 0159 00171000 * END; /* END OF LENGTH IS CORRECT */ 00172000 * ELSE 0160 00173000 * DO; /* LENGTH IS WRONG REPROMPT */ 00174000 B @RC00134 0160 00175000 @RF00134 DS 0H 0161 00176000 * RETCD=4; /* REQUEST RETRY */ 00177000 LA RETCD,4 0161 00178000 * TERR=1; /* INDICATE ERROR */ 00179000 MVI TERR,X'01' 0162 00180000 * END; /* END OF WRONG LENGTH */ 00181000 * 0163 00182000 * /*************************************************************/ 00183000 * /* */ 00184000 * /* VALIDITY CHECK FOR NUMERIC CHARACTERS IS COMPLETE. IF NO */ 00185000 * /* ERRORS HAVE OCCURRED, THE DATA WILL BE PROCESSED FOR */ 00186000 * /* PROPER VALUES. THE PROPER VALUES FOR HOURS- 00-23, FOR */ 00187000 * /* MINUTES- 00-59, AND FOR SECONDS- 00-59. */ 00188000 * /* */ 00189000 * /*************************************************************/ 00190000 * 0164 00191000 * RESPECIFY 0164 00192000 * BPRI BASED(BPRIP); /* POINT TO BEGINNING OF FIELD */ 00193000 * 0164 00194000 @RC00134 DS 0H 0165 00195000 * /*************************************************************/ 00196000 * /* */ 00197000 * /* CHECK FOR NO ERRORS */ 00198000 * /* */ 00199000 * /*************************************************************/ 00200000 * 0165 00201000 * IF TFLG=2& /* TWO DELIMITERS FOUND? */ 00202000 * TERR=0& /* NO ERRORS FOUND */ 00203000 * FDOT=3& /* FIRST DELIM IN CORRECT PLACE */ 00204000 * SDOT=6 THEN /* SECOND DELIM IN CORRECT PLACE */ 00205000 CLI TFLG,2 0165 00206000 BNE @RF00165 0165 00207000 CLI TERR,0 0165 00208000 BNE @RF00165 0165 00209000 C FDOT,@CF00099 0165 00210000 BNE @RF00165 0165 00211000 C SDOT,@CF00175 0165 00212000 BNE @RF00165 0165 00213000 * DO; /* YES, PROCESS THE DATA FOR 0166 00214000 * CORRECT DATA */ 00215000 * 0166 00216000 * /*********************************************************/ 00217000 * /* */ 00218000 * /* PREPARE FOR PACKING HOUR MINUTE AND SECOND */ 00219000 * /* */ 00220000 * /*********************************************************/ 00221000 * 0167 00222000 * TMEP1=BPRI(1:(FDOT-1)); /* MOVE FIRST FIELD TO BE PACKED */ 00223000 MVI TMEP1+1,C' ' 0167 00224000 LA @10,2 0167 00225000 LR @15,FDOT 0167 00226000 SLR @15,@10 0167 00227000 L @14,@PC00001 0167 00228000 L @09,BPRIP(,@14) 0167 00229000 EX @15,@SM00812 0167 00230000 * TMEP2=BPRI((FDOT+1):(SDOT-1));/* MOVE SECOND FIELD */ 00231000 MVI TMEP2+1,C' ' 0168 00232000 LR @15,SDOT 0168 00233000 SLR @15,FDOT 0168 00234000 SLR @15,@10 0168 00235000 LR @10,@09 0168 00236000 ALR @10,FDOT 0168 00237000 EX @15,@SM00814 0168 00238000 * TMEP3=BPRI((SDOT+1):BPRIL);/* MOVE IN THE THIRD FIELD */ 00239000 MVI TMEP3+1,C' ' 0169 00240000 LH @10,BPRIL(,@14) 0169 00241000 SLR @10,SDOT 0169 00242000 BCTR @10,0 0169 00243000 ALR @09,SDOT 0169 00244000 EX @10,@SM00816 0169 00245000 * TMEP1=TMEP1|ZEROS; /* MAKE SURE FIELD IS NUMBERS */ 00246000 OC TMEP1(2),@CC00785 0170 00247000 * TMEP2=TMEP2|ZEROS; /* MAKE SURE FIELD IS NUMBERS */ 00248000 OC TMEP2(2),@CC00785 0171 00249000 * TMEP3=TMEP3|ZEROS; /* MAKE SURE FIELD IS NUMBERS */ 00250000 * 0172 00251000 OC TMEP3(2),@CC00785 0172 00252000 * /*********************************************************/ 00253000 * /* */ 00254000 * /* PACK THE VALUES FOR HOUR,MINUTE AND SECOND */ 00255000 * /* */ 00256000 * /*********************************************************/ 00257000 * 0173 00258000 * PACK(TIME1,TMEP1); /* PACK HOUR */ 00259000 PACK TIME1(2),TMEP1(2) 0173 00260000 * PACK(TIME2,TMEP2); /* PACK MINUTE */ 00261000 PACK TIME2(2),TMEP2(2) 0174 00262000 * PACK(TIME3,TMEP3); /* PACK SECONDS */ 00263000 * 0175 00264000 PACK TIME3(2),TMEP3(2) 0175 00265000 * /*********************************************************/ 00266000 * /* */ 00267000 * /* CONVERT THE HOURS, MINUTES AND SECONDS TO BINARY */ 00268000 * /* */ 00269000 * /*********************************************************/ 00270000 * 0176 00271000 * CVB(HOUR,TIME1); /* CONVERT HOURS */ 00272000 XC @TS00001(8),@TS00001 0176 00273000 MVC @TS00001+6(2),TIME1 0176 00274000 CVB HOUR,@TS00001 0176 00275000 * CVB(MINUTE,TIME2); /* CONVERT THE MINUTE */ 00276000 XC @TS00001(8),@TS00001 0177 00277000 MVC @TS00001+6(2),TIME2 0177 00278000 CVB MINUTE,@TS00001 0177 00279000 * CVB(SEC,TIME3); /* CONVERT TO SEC */ 00280000 * 0178 00281000 XC @TS00001(8),@TS00001 0178 00282000 MVC @TS00001+6(2),TIME3 0178 00283000 CVB SEC,@TS00001 0178 00284000 * /*********************************************************/ 00285000 * /* */ 00286000 * /* CHECK FOR HOURS */ 00287000 * /* */ 00288000 * /*********************************************************/ 00289000 * 0179 00290000 * IF HOUR<0| /* IS HOURS ZERO OR GREATER? */ 00291000 * HOUR>23 THEN /* IS HOURS 23 OR LESS? */ 00292000 LTR HOUR,HOUR 0179 00293000 BM @RT00179 0179 00294000 C HOUR,@CF00262 0179 00295000 BNH @RF00179 0179 00296000 @RT00179 DS 0H 0180 00297000 * RETCD=4; /* NO, INDICATE REPROMPT NEEDED */ 00298000 LA RETCD,4 0180 00299000 * ELSE /* YES, CONTINUE PROCESSING 0181 00300000 * MINUTES */ 00301000 * 0181 00302000 * /*******************************************************/ 00303000 * /* */ 00304000 * /* CHECK FOR MINUTE */ 00305000 * /* */ 00306000 * /*******************************************************/ 00307000 * 0181 00308000 * IF MINUTE<0| /* IS MINUTE ZERO OR GREATER? */ 00309000 * MINUTE>59 THEN /* AND IS MINUTE 59 OR LESS? */ 00310000 B @RC00179 0181 00311000 @RF00179 LTR MINUTE,MINUTE 0181 00312000 BM @RT00181 0181 00313000 C MINUTE,@CF00804 0181 00314000 BNH @RF00181 0181 00315000 @RT00181 DS 0H 0182 00316000 * RETCD=4; /* NO, INDICATE REPROMPT NEEDED */ 00317000 LA RETCD,4 0182 00318000 * ELSE /* YES, CONTINUE PROCESSING THE 00319000 * SECONDS */ 00320000 * 0183 00321000 * /*****************************************************/ 00322000 * /* */ 00323000 * /* CHECK FOR SECONDS */ 00324000 * /* */ 00325000 * /*****************************************************/ 00326000 * 0183 00327000 * IF SEC<0| /* IS SECOND ZERO OR GREATER? */ 00328000 * SEC>59 THEN /* AND IS SECOND 59 OR LESS? */ 00329000 B @RC00181 0183 00330000 @RF00181 LTR SEC,SEC 0183 00331000 BM @RT00183 0183 00332000 C SEC,@CF00804 0183 00333000 BNH @RF00183 0183 00334000 @RT00183 DS 0H 0184 00335000 * RETCD=4; /* NO,INDICATE REPROMPT NEEDED */ 00336000 LA RETCD,4 0184 00337000 * END; /* END OF CORRECT DATE */ 00338000 * ELSE /* ERROR IN HH:MM:SS STATEMENT */ 00339000 * RETCD=4; /* INDICATE REPROMPT IS NEEDED */ 00340000 B @RC00165 0186 00341000 @RF00165 LA RETCD,4 0186 00342000 * END; /* END OF THE DATE CHECK */ 00343000 * ELSE /* IDENTIFIER NOT THERE (SHOULD 00344000 * NEVER HAPPEN) */ 00345000 * RETCD=4; /* INDICATE REPROMPT IS NEEDED */ 00346000 B @RC00130 0188 00347000 @RF00130 LA RETCD,4 0188 00348000 * RETURN CODE(RETCD); /* RETURN TO CALLER */ 00349000 @RC00130 L @13,4(,@13) 0189 00350000 L @00,@SIZDATD 0189 00351000 LR @01,@11 0189 00352000 BLSUFRE2 R,LV=(0),A=(1) 00353000 LR @15,@02 0189 00354000 L @14,12(,@13) 0189 00355000 LM @00,@12,20(@13) 0189 00356000 BR @14 0189 00357000 */*BLSUPEND--MVS IPCS MODULE */ 00358000 * 0190 00359000 * DECLARE /* COMMON VARIABLES */ 00360000 * I256C CHAR(256) BASED, 0190 00361000 * I031F FIXED(31) BASED, 0190 00362000 * I031P PTR(31) BASED, 0190 00363000 * I015F FIXED(15) BASED, 0190 00364000 * I015P PTR(15) BASED, 0190 00365000 * I008P PTR(8) BASED, 0190 00366000 * I001C CHAR(1) BASED; 0190 00367000 * GENERATE NODEFS NOREFS DATA; 0191 00368000 * END /* BLRPEND END OF PROCESSING */ 00369000 * 0192 00370000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00371000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00372000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00373000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00374000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00375000 */*%INCLUDE SYSLIB (IKJECT ) */ 00376000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00377000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00378000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00379000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00380000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00381000 * 0192 00382000 * ; 0192 00383000 @EL00001 L @13,4(,@13) 0192 00384000 @EF00001 L @00,@SIZDATD 0192 00385000 LR @01,@11 0192 00386000 BLSUFRE2 R,LV=(0),A=(1) 00387000 @ER00001 LM @14,@12,12(@13) 0192 00388000 BR @14 0192 00389000 @DATA DS 0H 00390000 @CH00054 DC H'8' 00391000 @SM00812 MVC TMEP1(0),BPRI(@09) 00392000 @SM00814 MVC TMEP2(0),BPRI(@10) 00393000 @SM00816 MVC TMEP3(0),BPRI(@09) 00394000 @DATD DSECT 00395000 DS 0F 00396000 @SA00001 DS 18F 00397000 @PC00001 DS 3F 00398000 BLSDTM00 CSECT 00399000 DS 0F 00400000 @CF00046 DC F'1' 00401000 @CF00099 DC F'3' 00402000 @CF00175 DC F'6' 00403000 @CF00262 DC F'23' 00404000 @CF00804 DC F'59' 00405000 @DATD DSECT 00406000 DS 0D 00407000 DS 0D 00408000 @TS00001 DS CL8 00409000 TMEP1 DS CL2 00410000 TMEP2 DS CL2 00411000 TMEP3 DS CL2 00412000 TIME1 DS CL2 00413000 TIME2 DS CL2 00414000 TIME3 DS CL2 00415000 TFLG DS CL1 00416000 TERR DS CL1 00417000 BLSDTM00 CSECT 00418000 DS 0F 00419000 @SIZDATD DC AL1(0) 00420000 DC AL3(@ENDDATD-@DATD) 00421000 DS 0D 00422000 @CC00785 DC C'00' 00423000 @DATD DSECT 00424000 SPACE 2 00425000 *********************************************************************** 00426000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00427000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00428000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00429000 *********************************************************************** 00430000 SPACE 00431000 BLSDTM00 CSECT 00432000 ORG 00433000 DS 0D 00434000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSDTM00+19)/20+7)/8)CL8'BLSDTM00' 00435000 @DATD DSECT 00436000 SPACE 2 00437000 *********************************************************************** 00438000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00439000 *********************************************************************** 00440000 SPACE 00441000 DS 0D 00442000 @DATD DSECT 00443000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00444000 @ENDDATD EQU * 00445000 BLSDTM00 CSECT 00446000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00447000 @01 EQU 01 00448000 @02 EQU 02 00449000 @03 EQU 03 00450000 @04 EQU 04 00451000 @05 EQU 05 00452000 @06 EQU 06 00453000 @07 EQU 07 00454000 @08 EQU 08 00455000 @09 EQU 09 00456000 @10 EQU 10 00457000 @11 EQU 11 00458000 @12 EQU 12 00459000 @13 EQU 13 00460000 @14 EQU 14 00461000 @15 EQU 15 00462000 BPRPTR EQU @05 00463000 DOTPTR EQU @06 00464000 SDOT EQU @04 00465000 FDOT EQU @03 00466000 SEC EQU @05 00467000 MINUTE EQU @04 00468000 HOUR EQU @03 00469000 RETCD EQU @02 00470000 R0 EQU @00 00471000 R1 EQU @01 00472000 R2 EQU @02 00473000 R3 EQU @03 00474000 R4 EQU @04 00475000 R5 EQU @05 00476000 R9 EQU @09 00477000 RB EQU @11 00478000 RD EQU @13 00479000 RE EQU @14 00480000 RF EQU @15 00481000 RA EQU @10 00482000 RC EQU @12 00483000 R6 EQU @06 00484000 R7 EQU @07 00485000 R8 EQU @08 00486000 BPR EQU 0 00487000 BPRIP EQU BPR 00488000 BPRIL EQU BPR+4 00489000 BPRIF EQU BPR+6 00490000 BPRIFP EQU BPRIF 00491000 BPRI EQU 0 00492000 ZZ1 EQU 0 00493000 ZZ1ATTN EQU ZZ1+360 00494000 ZZ1EVE EQU ZZ1ATTN+4 00495000 ZZ1F EQU ZZ1+368 00496000 ZZ1N EQU ZZ1+1116 00497000 ZZ2 EQU 0 00498000 ZZ2AMD EQU ZZ2 00499000 @NM00015 EQU ZZ2AMD+7 00500000 ZZ2PRT EQU ZZ2+138 00501000 ZZ2PRTT EQU ZZ2PRT+4 00502000 ZZ2PRTT1 EQU ZZ2PRTT+1 00503000 ZZ2A EQU ZZ2+272 00504000 ZZ2AF EQU ZZ2A+16 00505000 ZZ2APID EQU ZZ2A+64 00506000 ZZ2AD EQU ZZ2A+74 00507000 ZZ2ADD EQU ZZ2AD 00508000 ZZ2ADDT EQU ZZ2ADD+2 00509000 ZZ2ADM EQU ZZ2AD+46 00510000 ZZ2ADMT EQU ZZ2ADM+2 00511000 ZZ2ADP EQU ZZ2AD+56 00512000 ZZ2ADPT EQU ZZ2ADP+2 00513000 ZZ2AQAS EQU ZZ2A+144 00514000 ZZ2AQD EQU ZZ2A+160 00515000 ZZ2AQDT EQU ZZ2AQD+10 00516000 ZZ2AQDF EQU ZZ2AQD+52 00517000 ZZ2STG EQU ZZ2+960 00518000 ZZ2ALLOP EQU ZZ2+992 00519000 ZZ2FREEP EQU ZZ2+996 00520000 ZZ2FF19P EQU ZZ2+1000 00521000 ZZ2FRE1P EQU ZZ2+1004 00522000 ZZ2FF18P EQU ZZ2+1008 00523000 ZZ2DYNAP EQU ZZ2+1012 00524000 ZZ2ZZ2CP EQU ZZ2+1016 00525000 ZZ2ZZ2DP EQU ZZ2+1020 00526000 ZZ2STAIP EQU ZZ2+1024 00527000 ZZ2FF02P EQU ZZ2+1028 00528000 ZZ2GETLP EQU ZZ2+1032 00529000 ZZ2PARSP EQU ZZ2+1036 00530000 ZZ2PTGTP EQU ZZ2+1040 00531000 ZZ2PUTLP EQU ZZ2+1044 00532000 ZZ2SCANP EQU ZZ2+1048 00533000 ZZ2STCKP EQU ZZ2+1052 00534000 ZZ2ALOCP EQU ZZ2+1056 00535000 ZZ2MSGSP EQU ZZ2+1060 00536000 ZZ2TRMOP EQU ZZ2+1064 00537000 ZZ2TRMVP EQU ZZ2+1068 00538000 ZZ2MSG0P EQU ZZ2+1076 00539000 ZZ2PUTNP EQU ZZ2+1084 00540000 ZZ2TRMNP EQU ZZ2+1088 00541000 ZZ2ENQ0P EQU ZZ2+1092 00542000 ZZ2ADSDP EQU ZZ2+1096 00543000 ZZ2APDRP EQU ZZ2+1100 00544000 ZZ2FDSDP EQU ZZ2+1104 00545000 ZZ2FPDRP EQU ZZ2+1108 00546000 ZZ2ZZ1P EQU ZZ2+1264 00547000 ZZ2DVTP EQU ZZ2+1276 00548000 ZZ2BVTP EQU ZZ2+1280 00549000 ZZ2CPPL EQU ZZ2+1292 00550000 ZZ2CPPLC EQU ZZ2CPPL 00551000 ZZ2ITR EQU ZZ2+2840 00552000 ZZ2ITRE EQU ZZ2ITR+16 00553000 ZZ2ITSE EQU ZZ2+2864 00554000 ZZ2ES EQU ZZ2+2872 00555000 ZZ2AMDX EQU ZZ2+7160 00556000 ZZ2AXO EQU ZZ2+7934 00557000 ZZ2AXOT EQU ZZ2AXO+2 00558000 CMD EQU 0 00559000 CMDT EQU CMD+4 00560000 PSCB EQU 0 00561000 PSCBATR1 EQU PSCB+16 00562000 ECT EQU 0 00563000 ECTSWS EQU ECT+28 00564000 ECTSWS2 EQU ECT+40 00565000 ECTSWS21 EQU ECTSWS2 00566000 UPT EQU 0 00567000 UPTSWS EQU UPT+12 00568000 SA EQU 0 00569000 SA1 EQU SA 00570000 SAR EQU SA+12 00571000 BVT EQU 0 00572000 BVTPUTLP EQU BVT+4 00573000 BVTPUTOP EQU BVT+12 00574000 BVTPUTTP EQU BVT+16 00575000 BVTPUTVP EQU BVT+20 00576000 BVTPUTAP EQU BVT+24 00577000 BVTPRTTP EQU BVT+28 00578000 BVTPRTAP EQU BVT+32 00579000 BVTPUTDP EQU BVT+36 00580000 BVTMONP EQU BVT+40 00581000 BVTMON2P EQU BVT+44 00582000 BVTVSARP EQU BVT+48 00583000 BVTVSENP EQU BVT+64 00584000 BVTVSERP EQU BVT+68 00585000 BVTVSGEP EQU BVT+72 00586000 BVTVSGUP EQU BVT+76 00587000 BVTVSPOP EQU BVT+80 00588000 BVTVSPUP EQU BVT+84 00589000 BVTMPKNP EQU BVT+104 00590000 BVTMONLP EQU BVT+108 00591000 BVTPUTCP EQU BVT+132 00592000 BVTMPK1P EQU BVT+136 00593000 BVTZZ2RP EQU BVT+140 00594000 BVTPGMRP EQU BVT+144 00595000 BVTMONAP EQU BVT+148 00596000 BVTBLDDP EQU BVT+152 00597000 BVTBLDLP EQU BVT+156 00598000 BVTPGMCP EQU BVT+160 00599000 BVTPGMDP EQU BVT+164 00600000 BVTPGMLP EQU BVT+168 00601000 BVTMONCP EQU BVT+180 00602000 BVTMONDP EQU BVT+184 00603000 BVTMONTP EQU BVT+188 00604000 BVTPARIP EQU BVT+192 00605000 BVTPARUP EQU BVT+196 00606000 BVTPRTNP EQU BVT+204 00607000 BVTVSCRP EQU BVT+208 00608000 BVTVSMRP EQU BVT+212 00609000 BVTMONXP EQU BVT+216 00610000 BVTTRMAP EQU BVT+228 00611000 DVT EQU 0 00612000 DVTDEQPP EQU DVT+8 00613000 DVTENQPP EQU DVT+12 00614000 DVTAUTHP EQU DVT+20 00615000 DVTLPCLP EQU DVT+24 00616000 DVTBP00P EQU DVT+28 00617000 DVTCN00P EQU DVT+32 00618000 DVTDF00P EQU DVT+36 00619000 DVTDS00P EQU DVT+44 00620000 DVTFL00P EQU DVT+48 00621000 DVTFP00P EQU DVT+52 00622000 DVTGD00P EQU DVT+56 00623000 DVTGG00P EQU DVT+60 00624000 DVTGP00P EQU DVT+64 00625000 DVTND00P EQU DVT+68 00626000 DVTND01P EQU DVT+72 00627000 DVTOD00P EQU DVT+76 00628000 DVTPS00P EQU DVT+80 00629000 DVTSD00P EQU DVT+84 00630000 DVTSL00P EQU DVT+88 00631000 DVTTL00P EQU DVT+92 00632000 DVTUD00P EQU DVT+96 00633000 DVTUP00P EQU DVT+100 00634000 DVTLP00P EQU DVT+104 00635000 DVTLALLP EQU DVT+108 00636000 DVTLPFMP EQU DVT+112 00637000 DVTCLOSP EQU DVT+116 00638000 DVTOPENP EQU DVT+120 00639000 DVTPERAP EQU DVT+124 00640000 DVTDALLP EQU DVT+128 00641000 BLSCALOC EQU 0 00642000 BLSDADSD EQU 0 00643000 BLSDAPDR EQU 0 00644000 BLSDDEQP EQU 0 00645000 BLSDENQP EQU 0 00646000 BLSDENQ0 EQU 0 00647000 BLSDFDSD EQU 0 00648000 BLSDFPDR EQU 0 00649000 BLSDMSGS EQU 0 00650000 BLSDMSG0 EQU 0 00651000 BLSEAUTH EQU 0 00652000 BLSELPCL EQU 0 00653000 BLSELPFM EQU 0 00654000 BLSFBP00 EQU 0 00655000 BLSFCLOS EQU 0 00656000 BLSFCN00 EQU 0 00657000 BLSFDALL EQU 0 00658000 BLSFDF00 EQU 0 00659000 BLSFDS00 EQU 0 00660000 BLSFFL00 EQU 0 00661000 BLSFFP00 EQU 0 00662000 BLSFGD00 EQU 0 00663000 BLSFGG00 EQU 0 00664000 BLSFGP00 EQU 0 00665000 BLSFLALL EQU 0 00666000 BLSFLP00 EQU 0 00667000 BLSFND00 EQU 0 00668000 BLSFND01 EQU 0 00669000 BLSFOD00 EQU 0 00670000 BLSFOPEN EQU 0 00671000 BLSFPERA EQU 0 00672000 BLSFPS00 EQU 0 00673000 BLSFSD00 EQU 0 00674000 BLSFSL00 EQU 0 00675000 BLSFTL00 EQU 0 00676000 BLSFUD00 EQU 0 00677000 BLSFUP00 EQU 0 00678000 BLSUALLO EQU 0 00679000 BLSUBLDD EQU 0 00680000 BLSUBLDL EQU 0 00681000 BLSUDYNA EQU 0 00682000 BLSUFREE EQU 0 00683000 BLSUFRE1 EQU 0 00684000 BLSUMON EQU 0 00685000 BLSUMONA EQU 0 00686000 BLSUMONC EQU 0 00687000 BLSUMOND EQU 0 00688000 BLSUMONL EQU 0 00689000 BLSUMONT EQU 0 00690000 BLSUMONX EQU 0 00691000 BLSUMON2 EQU 0 00692000 BLSUMPKN EQU 0 00693000 BLSUMPK1 EQU 0 00694000 BLSUPARI EQU 0 00695000 BLSUPARU EQU 0 00696000 BLSUPGMC EQU 0 00697000 BLSUPGMD EQU 0 00698000 BLSUPGML EQU 0 00699000 BLSUPGMR EQU 0 00700000 BLSUPRTA EQU 0 00701000 BLSUPRTN EQU 0 00702000 BLSUPRTT EQU 0 00703000 BLSUPUTA EQU 0 00704000 BLSUPUTC EQU 0 00705000 BLSUPUTD EQU 0 00706000 BLSUPUTL EQU 0 00707000 BLSUPUTN EQU 0 00708000 BLSUPUTO EQU 0 00709000 BLSUPUTT EQU 0 00710000 BLSUPUTV EQU 0 00711000 BLSUSTAI EQU 0 00712000 BLSUTRMA EQU 0 00713000 BLSUTRMN EQU 0 00714000 BLSUTRMO EQU 0 00715000 BLSUTRMV EQU 0 00716000 BLSUVSAR EQU 0 00717000 BLSUVSCR EQU 0 00718000 BLSUVSEN EQU 0 00719000 BLSUVSER EQU 0 00720000 BLSUVSGE EQU 0 00721000 BLSUVSGU EQU 0 00722000 BLSUVSMR EQU 0 00723000 BLSUVSPO EQU 0 00724000 BLSUVSPU EQU 0 00725000 BLSUZZ2C EQU 0 00726000 BLSUZZ2D EQU 0 00727000 BLSUZZ2R EQU 0 00728000 IKJEFF02 EQU 0 00729000 IKJEFF18 EQU 0 00730000 IKJEFF19 EQU 0 00731000 IKJGETL EQU 0 00732000 IKJPARS EQU 0 00733000 IKJPTGT EQU 0 00734000 IKJPUTL EQU 0 00735000 IKJSCAN EQU 0 00736000 IKJSTCK EQU 0 00737000 I001C EQU 0 00738000 I008P EQU 0 00739000 I015F EQU 0 00740000 I015P EQU 0 00741000 I031F EQU 0 00742000 I031P EQU 0 00743000 I256C EQU 0 00744000 A EQU 0 00745000 B EQU 0 00746000 C EQU 0 00747000 CPPL EQU ZZ2CPPL 00748000 CPPLUPT EQU CPPL+4 00749000 CPPLPSCB EQU CPPL+8 00750000 CPPLECT EQU CPPL+12 00751000 * START UNREFERENCED COMPONENTS 00752000 CPPLCBUF EQU CPPL 00753000 DVT99999 EQU DVT+256 00754000 DVT0064P EQU DVT+252 00755000 DVT0063P EQU DVT+248 00756000 DVT0062P EQU DVT+244 00757000 DVT0061P EQU DVT+240 00758000 DVT0060P EQU DVT+236 00759000 DVT0059P EQU DVT+232 00760000 DVT0058P EQU DVT+228 00761000 DVT0057P EQU DVT+224 00762000 DVT0056P EQU DVT+220 00763000 DVT0055P EQU DVT+216 00764000 DVT0054P EQU DVT+212 00765000 DVT0053P EQU DVT+208 00766000 DVT0052P EQU DVT+204 00767000 DVT0051P EQU DVT+200 00768000 DVT0050P EQU DVT+196 00769000 DVT0049P EQU DVT+192 00770000 DVT0048P EQU DVT+188 00771000 DVT0047P EQU DVT+184 00772000 DVT0046P EQU DVT+180 00773000 DVT0045P EQU DVT+176 00774000 DVT0044P EQU DVT+172 00775000 DVT0043P EQU DVT+168 00776000 DVT0042P EQU DVT+164 00777000 DVT0041P EQU DVT+160 00778000 DVT0040P EQU DVT+156 00779000 DVT0039P EQU DVT+152 00780000 DVT0038P EQU DVT+148 00781000 DVT0037P EQU DVT+144 00782000 DVT0036P EQU DVT+140 00783000 DVT0035P EQU DVT+136 00784000 DVT0034P EQU DVT+132 00785000 DVT0011P EQU DVT+40 00786000 DVT0005P EQU DVT+16 00787000 DVT0002P EQU DVT+4 00788000 DVT0001P EQU DVT 00789000 BVT99999 EQU BVT+256 00790000 BVT0064P EQU BVT+252 00791000 BVT0063P EQU BVT+248 00792000 BVT0062P EQU BVT+244 00793000 BVT0061P EQU BVT+240 00794000 BVT0060P EQU BVT+236 00795000 BVT0059P EQU BVT+232 00796000 BVT0057P EQU BVT+224 00797000 BVT0056P EQU BVT+220 00798000 BVTSTBLP EQU BVT+200 00799000 BVT0045P EQU BVT+176 00800000 BVT0044P EQU BVT+172 00801000 BVT0033P EQU BVT+128 00802000 BVT0032P EQU BVT+124 00803000 BVT0031P EQU BVT+120 00804000 BVT0030P EQU BVT+116 00805000 BVT0029P EQU BVT+112 00806000 BVT0026P EQU BVT+100 00807000 BVT0025P EQU BVT+96 00808000 BVT0024P EQU BVT+92 00809000 BVT0023P EQU BVT+88 00810000 BVT0016P EQU BVT+60 00811000 BVT0015P EQU BVT+56 00812000 BVT0014P EQU BVT+52 00813000 BVT0003P EQU BVT+8 00814000 BVT0001P EQU BVT 00815000 SA99 EQU SA+72 00816000 SARC EQU SAR+56 00817000 SARB EQU SAR+52 00818000 SARA EQU SAR+48 00819000 SAR9 EQU SAR+44 00820000 SAR8 EQU SAR+40 00821000 SAR7 EQU SAR+36 00822000 SAR6 EQU SAR+32 00823000 SAR5 EQU SAR+28 00824000 SAR4 EQU SAR+24 00825000 SAR3 EQU SAR+20 00826000 SAR2 EQU SAR+16 00827000 SAR1 EQU SAR+12 00828000 SAR0 EQU SAR+8 00829000 SARF EQU SAR+4 00830000 SARE EQU SAR 00831000 SAFWD EQU SA+8 00832000 SABAK EQU SA+4 00833000 SA1L EQU SA1+1 00834000 SA1P EQU SA1 00835000 UPTPREFL EQU UPT+23 00836000 UPTPREFX EQU UPT+16 00837000 @NM00070 EQU UPT+15 00838000 UPTLDEL EQU UPT+14 00839000 UPTCDEL EQU UPT+13 00840000 UPTWTP EQU UPTSWS 00841000 UPTMODE EQU UPTSWS 00842000 UPTALD EQU UPTSWS 00843000 UPTPAUS EQU UPTSWS 00844000 UPTNCOM EQU UPTSWS 00845000 UPTMID EQU UPTSWS 00846000 UPTNPRM EQU UPTSWS 00847000 UPTRCVR EQU UPTSWS 00848000 UPTUSER EQU UPT+2 00849000 @NM00069 EQU UPT 00850000 @NM00068 EQU ECT+52 00851000 @NM00067 EQU ECT+48 00852000 @NM00066 EQU ECT+44 00853000 @NM00065 EQU ECTSWS2+1 00854000 @NM00064 EQU ECTSWS21 00855000 ECTTABND EQU ECTSWS21 00856000 ECTDEFCS EQU ECTSWS21 00857000 ECTBKPB EQU ECT+36 00858000 ECTUSER EQU ECT+32 00859000 ECTDDNUM EQU ECT+29 00860000 ECTATTN EQU ECTSWS 00861000 ECTBKGRD EQU ECTSWS 00862000 ECTNNOT EQU ECTSWS 00863000 ECTNMAL EQU ECTSWS 00864000 ECTLOGF EQU ECTSWS 00865000 ECTATRM EQU ECTSWS 00866000 @NM00063 EQU ECTSWS 00867000 ECTNOPD EQU ECTSWS 00868000 ECTSCMD EQU ECT+20 00869000 ECTPCMD EQU ECT+12 00870000 ECTSMSG EQU ECT+9 00871000 ECTMSGF EQU ECT+8 00872000 ECTIOWA EQU ECT+4 00873000 ECTRTCD EQU ECT+1 00874000 ECTRCDF EQU ECT 00875000 PSCBU EQU PSCB+64 00876000 PSCBRSZ EQU PSCB+60 00877000 PSCBLINE EQU PSCB+59 00878000 PSCBCHAR EQU PSCB+58 00879000 PSCBUPTL EQU PSCB+56 00880000 PSCBUPT EQU PSCB+52 00881000 PSCBRLGB EQU PSCB+48 00882000 PSCBDEST EQU PSCB+40 00883000 @NM00062 EQU PSCB+36 00884000 @NM00061 EQU PSCB+32 00885000 @NM00060 EQU PSCB+28 00886000 PSCBLTI2 EQU PSCB+24 00887000 PSCBLTIM EQU PSCB+20 00888000 PSCBATR2 EQU PSCB+18 00889000 @NM00059 EQU PSCBATR1 00890000 @NM00058 EQU PSCBATR1 00891000 @NM00057 EQU PSCBATR1 00892000 PSCBATTN EQU PSCBATR1 00893000 PSCBVMNT EQU PSCBATR1 00894000 PSCBJCL EQU PSCBATR1 00895000 PSCBACCT EQU PSCBATR1 00896000 PSCBCTRL EQU PSCBATR1 00897000 PSCBGPNM EQU PSCB+8 00898000 PSCBUSRL EQU PSCB+7 00899000 PSCBUSER EQU PSCB 00900000 CMDT1 EQU CMDT 00901000 CMDO EQU CMD+2 00902000 CMDL EQU CMD 00903000 ZZ299999 EQU ZZ2+8192 00904000 ZZ2AXOT1 EQU ZZ2AXOT 00905000 ZZ2AXOL EQU ZZ2AXO 00906000 @NM00056 EQU ZZ2+7288 00907000 @NM00055 EQU ZZ2AMDX+4 00908000 ZZ2AMDXC EQU ZZ2AMDX 00909000 ZZ2HSD EQU ZZ2+3056 00910000 @NM00054 EQU ZZ2ES 00911000 @NM00053 EQU ZZ2+2868 00912000 ZZ2ITSEC EQU ZZ2ITSE+1 00913000 @NM00052 EQU ZZ2ITSE 00914000 ZZ2ITSEP EQU ZZ2ITSE 00915000 ZZ2ITSEW EQU ZZ2ITSE 00916000 @NM00051 EQU ZZ2ITR+20 00917000 ZZ2ITREC EQU ZZ2ITRE+1 00918000 @NM00050 EQU ZZ2ITRE 00919000 ZZ2ITREP EQU ZZ2ITRE 00920000 ZZ2ITREW EQU ZZ2ITRE 00921000 @NM00049 EQU ZZ2ITR+9 00922000 ZZ2ITRRC EQU ZZ2ITR+8 00923000 ZZ2ITR2P EQU ZZ2ITR+4 00924000 ZZ2ITRPP EQU ZZ2ITR 00925000 @NM00048 EQU ZZ2+1544 00926000 ZZ2PGM EQU ZZ2+1536 00927000 @NM00047 EQU ZZ2+1526 00928000 ZZ2CW EQU ZZ2+1524 00929000 @NM00046 EQU ZZ2+1504 00930000 @NM00045 EQU ZZ2+1352 00931000 ZZ2FFSYP EQU ZZ2+1348 00932000 ZZ2SASYP EQU ZZ2+1344 00933000 ZZ2RDSYP EQU ZZ2+1340 00934000 ZZ2RASYP EQU ZZ2+1336 00935000 ZZ2PHSYP EQU ZZ2+1332 00936000 ZZ2ESSYP EQU ZZ2+1328 00937000 ZZ200SYP EQU ZZ2+1324 00938000 ZZ2SCWP EQU ZZ2+1320 00939000 ZZ2TTLP EQU ZZ2+1316 00940000 ZZ2LOADP EQU ZZ2+1312 00941000 ZZ2VRESP EQU ZZ2+1308 00942000 ZZ2CPPLE EQU ZZ2CPPL+12 00943000 ZZ2CPPLP EQU ZZ2CPPL+8 00944000 ZZ2CPPLU EQU ZZ2CPPL+4 00945000 ZZ2VRSAP EQU ZZ2+1288 00946000 ZZ2RVTP EQU ZZ2+1284 00947000 @NM00044 EQU ZZ2+1272 00948000 @NM00043 EQU ZZ2+1268 00949000 ZZ2RPLP EQU ZZ2+1260 00950000 ZZ2TCBP EQU ZZ2+1256 00951000 @NM00042 EQU ZZ2+1252 00952000 ZZ2ZZ2P EQU ZZ2+1248 00953000 @NM00041 EQU ZZ2+1112 00954000 @NM00040 EQU ZZ2+1080 00955000 ZZ2FT25P EQU ZZ2+1072 00956000 @NM00039 EQU ZZ2+976 00957000 ZZ2TOD EQU ZZ2+968 00958000 ZZ2STGN EQU ZZ2STG+4 00959000 ZZ2STGP EQU ZZ2STG 00960000 @NM00038 EQU ZZ2+952 00961000 ZZ2SCMDE EQU ZZ2+944 00962000 ZZ2SCMDN EQU ZZ2+936 00963000 ZZ2IDENT EQU ZZ2+928 00964000 ZZ2A9999 EQU ZZ2A+656 00965000 @NM00037 EQU ZZ2A+224 00966000 @NM00036 EQU ZZ2A+220 00967000 ZZ2AQD99 EQU ZZ2AQD+60 00968000 @NM00035 EQU ZZ2AQD+56 00969000 @NM00034 EQU ZZ2AQDF 00970000 ZZ2AQDFA EQU ZZ2AQDF 00971000 ZZ2AQDIL EQU ZZ2AQD+48 00972000 ZZ2AQDIM EQU ZZ2AQD+44 00973000 ZZ2AQDT9 EQU ZZ2AQDT+34 00974000 ZZ2AQDTE EQU ZZ2AQDT+33 00975000 ZZ2AQDTD EQU ZZ2AQDT+2 00976000 @NM00033 EQU ZZ2AQDT+1 00977000 ZZ2AQDTY EQU ZZ2AQDT 00978000 ZZ2AQDT0 EQU ZZ2AQDT 00979000 ZZ2AQDLB EQU ZZ2AQD+9 00980000 ZZ2AQDOB EQU ZZ2AQD+8 00981000 ZZ2AQDLE EQU ZZ2AQD+4 00982000 ZZ2AQDOF EQU ZZ2AQD 00983000 ZZ2AQD00 EQU ZZ2AQD 00984000 ZZ2AQAS9 EQU ZZ2AQAS+16 00985000 @NM00032 EQU ZZ2AQAS+12 00986000 ZZ2AQAS2 EQU ZZ2AQAS+8 00987000 ZZ2AQAS1 EQU ZZ2AQAS+4 00988000 @NM00031 EQU ZZ2AQAS+2 00989000 ZZ2AQAST EQU ZZ2AQAS 00990000 ZZ2AQAS0 EQU ZZ2AQAS 00991000 ZZ2AZZ6P EQU ZZ2A+140 00992000 ZZ2ADPTA EQU ZZ2ADPT 00993000 ZZ2ADPL EQU ZZ2ADP 00994000 ZZ2ADMTA EQU ZZ2ADMT 00995000 ZZ2ADML EQU ZZ2ADM 00996000 ZZ2ADDTA EQU ZZ2ADDT 00997000 ZZ2ADDL EQU ZZ2ADD 00998000 @NM00030 EQU ZZ2A+72 00999000 ZZ2APIDB EQU ZZ2APID+3 01000000 ZZ2APIDA EQU ZZ2APID 01001000 @NM00029 EQU ZZ2A+24 01002000 @NM00028 EQU ZZ2AF+5 01003000 ZZ2AFX EQU ZZ2AF+5 01004000 @NM00027 EQU ZZ2AF+3 01005000 ZZ2AFS EQU ZZ2AF+2 01006000 ZZ2AFD EQU ZZ2AF+2 01007000 ZZ2AFQ EQU ZZ2AF+2 01008000 ZZ2AF$ EQU ZZ2AF+2 01009000 @NM00026 EQU ZZ2AF+2 01010000 ZZ2AFM EQU ZZ2AF+2 01011000 @NM00025 EQU ZZ2AF+2 01012000 @NM00024 EQU ZZ2AF+1 01013000 ZZ2AFV EQU ZZ2AF+1 01014000 @NM00023 EQU ZZ2AF+1 01015000 ZZ2AFC EQU ZZ2AF+1 01016000 @NM00022 EQU ZZ2AF 01017000 ZZ2AFFS EQU ZZ2AF 01018000 ZZ2AFT EQU ZZ2AF 01019000 ZZ2AFP EQU ZZ2AF 01020000 @NM00021 EQU ZZ2A+8 01021000 ZZ2ALINE EQU ZZ2A+4 01022000 @NM00020 EQU ZZ2A+3 01023000 ZZ2ASE EQU ZZ2A+2 01024000 ZZ2ACH EQU ZZ2A 01025000 @NM00019 EQU ZZ2+264 01026000 @NM00018 EQU ZZ2+263 01027000 ZZ2PRTT0 EQU ZZ2PRTT 01028000 ZZ2PRTO EQU ZZ2PRT+2 01029000 ZZ2PRTL EQU ZZ2PRT 01030000 @NM00017 EQU ZZ2AMD+56 01031000 ZZ2AMDXP EQU ZZ2AMD+52 01032000 ZZ2AMDD EQU ZZ2AMD+48 01033000 ZZ2AMDL EQU ZZ2AMD+44 01034000 ZZ2AMDU EQU ZZ2AMD+28 01035000 ZZ2AMDF EQU ZZ2AMD+24 01036000 ZZ2AMDS EQU ZZ2AMD+20 01037000 ZZ2AMDC EQU ZZ2AMD+16 01038000 ZZ2AMDP EQU ZZ2AMD+12 01039000 ZZ2AMDB EQU ZZ2AMD+8 01040000 @NM00016 EQU @NM00015 01041000 ZZ2AMD2 EQU @NM00015 01042000 ZZ2AMD1 EQU @NM00015 01043000 ZZ2AMD0 EQU ZZ2AMD+6 01044000 ZZ2AMDA EQU ZZ2AMD+4 01045000 ZZ2AMDT EQU ZZ2AMD 01046000 ZZ199999 EQU ZZ1+3072 01047000 @NM00014 EQU ZZ1+2160 01048000 ZZ1TRTAS EQU ZZ1+1904 01049000 ZZ1TRUPC EQU ZZ1+1648 01050000 ZZ1TRCTX EQU ZZ1+1392 01051000 ZZ1NASID EQU ZZ1N+274 01052000 ZZ1NSTRL EQU ZZ1N+272 01053000 ZZ1NOFF EQU ZZ1N+268 01054000 ZZ1NBDY EQU ZZ1N+264 01055000 ZZ1NADE EQU ZZ1N+260 01056000 ZZ1NADB EQU ZZ1N+256 01057000 ZZ1NSTR EQU ZZ1N 01058000 @NM00013 EQU ZZ1+1080 01059000 ZZ1TREBC EQU ZZ1+824 01060000 ZZ1TRHEX EQU ZZ1+568 01061000 @NM00012 EQU ZZ1+377 01062000 ZZ1USTAE EQU ZZ1+376 01063000 @NM00011 EQU ZZ1F+1 01064000 @NM00010 EQU ZZ1F 01065000 ZZ1FM EQU ZZ1F 01066000 ZZ1FX EQU ZZ1F 01067000 ZZ1FU EQU ZZ1F 01068000 ZZ1EVEC EQU ZZ1EVE+1 01069000 @NM00009 EQU ZZ1EVE 01070000 ZZ1EVEP EQU ZZ1EVE 01071000 ZZ1EVEW EQU ZZ1EVE 01072000 ZZ1ACMP EQU ZZ1ATTN 01073000 @NM00008 EQU ZZ1+144 01074000 ZZ1FPP EQU ZZ1+140 01075000 ZZ1ZZ6P EQU ZZ1+136 01076000 @NM00007 EQU ZZ1+84 01077000 ZZ1PLINE EQU ZZ1+80 01078000 ZZ1PGSZ EQU ZZ1+76 01079000 ZZ1PCNT EQU ZZ1+72 01080000 @NM00006 EQU ZZ1+68 01081000 ZZ1TPAGE EQU ZZ1+64 01082000 ZZ1TLINE EQU ZZ1+60 01083000 @NM00005 EQU ZZ1+52 01084000 ZZ1DMCBP EQU ZZ1+48 01085000 ZZ1DSDP EQU ZZ1+44 01086000 ZZ1PDRP EQU ZZ1+40 01087000 ZZ1ZZ2P EQU ZZ1+36 01088000 ZZ1327WP EQU ZZ1+32 01089000 ZZ1ACBP EQU ZZ1+28 01090000 @NM00004 EQU ZZ1+24 01091000 ZZ1PDCBP EQU ZZ1+20 01092000 ZZ1BLRBL EQU ZZ1+16 01093000 @NM00003 EQU ZZ1+12 01094000 ZZ1PNULL EQU ZZ1+8 01095000 ZZ1NULL EQU ZZ1+4 01096000 ZZ1IDE EQU ZZ1 01097000 @NM00002 EQU BPR+8 01098000 @NM00001 EQU BPR+7 01099000 BPRIF8 EQU BPRIF 01100000 BPRIF7 EQU BPRIF 01101000 BPRIF6 EQU BPRIF 01102000 BPRIF5 EQU BPRIF 01103000 BPRIF4 EQU BPRIF 01104000 BPRIF3 EQU BPRIF 01105000 BPRIF2 EQU BPRIF 01106000 * END UNREFERENCED COMPONENTS 01107000 @RC00143 EQU @RC00137 01108000 @RC00138 EQU @RC00137 01109000 @RC00165 EQU @RC00130 01110000 @RF00183 EQU @RC00165 01111000 @RC00181 EQU @RC00165 01112000 @RC00179 EQU @RC00165 01113000 @ENDDATA EQU * 01114000 END BLSDTM00,(C'PLS2112',0701,78062) 01115000