TITLE 'BLSDPC00-VALIDITY CHECK ROUTINE TO VERIFY RANGE OF PROB*00001000 BLEMS ' 00002000 * /* CHANGE ACTIVITY */ 00003000 * THIS MODULE IS WRITTEN FOR @G57LPRM 00004000 BLSDPC00 CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSDPC00 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 * PROB1=PROB1&&PROB1; /* CLEAR OUT PROB1 FIELD */ 00025000 XC PROB1(5),PROB1 0121 00026000 * PROB2=PROB2&&PROB2; /* CLEAR OUT PROB2 FIELD */ 00027000 XC PROB2(5),PROB2 0122 00028000 * RETCD=ZERO; /* ZERO OUT THE RETCODE */ 00029000 SLR RETCD,RETCD 0123 00030000 * IF BPRIFP(2)='1'B THEN /* IF IDENTIFIER PRESENT */ 00031000 L @10,@PC00001 0124 00032000 TM BPRIFP+8(@10),B'10000000' 0124 00033000 BNO @RF00124 0124 00034000 * DO; /* RANGE IS SPECIFIED */ 00035000 * 0125 00036000 * /*************************************************************/ 00037000 * /* */ 00038000 * /* PREPARE FOR CHECKING PROBLEM RANGE MOVE FIRST FIELD TO BE */ 00039000 * /* PACKED */ 00040000 * /* */ 00041000 * /*************************************************************/ 00042000 * 0126 00043000 * PROB1((5-BPRIL(1)+1):5)=BPRI1(1:BPRIL(1)); 0126 00044000 * 0126 00045000 LH @05,BPRIL(,@10) 0126 00046000 LA @15,5 0126 00047000 SLR @15,@05 0126 00048000 LA @14,PROB1(@15) 0126 00049000 LA @15,4 0126 00050000 LA @09,5 0126 00051000 LCR @05,@05 0126 00052000 ALR @05,@09 0126 00053000 LCR @05,@05 0126 00054000 ALR @05,@15 0126 00055000 L @01,BPRIP(,@10) 0126 00056000 EX @05,@SM00803 0126 00057000 * /*************************************************************/ 00058000 * /* */ 00059000 * /* MOVE SECOND FIELD */ 00060000 * /* */ 00061000 * /*************************************************************/ 00062000 * 0127 00063000 * PROB2((5-BPRIL(2)+1):5)=BPRI2(1:BPRIL(2)); 0127 00064000 * 0127 00065000 LH @05,BPRIL+8(,@10) 0127 00066000 LA @14,5 0127 00067000 SLR @14,@05 0127 00068000 LA @01,PROB2(@14) 0127 00069000 SLR @09,@05 0127 00070000 LCR @09,@09 0127 00071000 ALR @09,@15 0127 00072000 L @10,BPRIP+8(,@10) 0127 00073000 EX @09,@SM00805 0127 00074000 * /*************************************************************/ 00075000 * /* */ 00076000 * /* MODIFY UNUSED POSITIONS SO THEY ARE ZEROS FOR PACKING */ 00077000 * /* */ 00078000 * /*************************************************************/ 00079000 * 0128 00080000 * PROB1=PROB1|ZEROS(1:5); /* ZERO UNUSED POSITIONS */ 00081000 OC PROB1(5),ZEROS 0128 00082000 * PROB2=PROB2|ZEROS(1:5); /* ZERO UNUSED POSITIONS */ 00083000 * 0129 00084000 OC PROB2(5),ZEROS 0129 00085000 * /*************************************************************/ 00086000 * /* */ 00087000 * /* PACK THE PROBLEM NUMBERS */ 00088000 * /* */ 00089000 * /*************************************************************/ 00090000 * 0130 00091000 * PACK(PROBLEM1,PROB1); /* PACK FIRST PROB NUMBER */ 00092000 PACK PROBLEM1(5),PROB1(5) 0130 00093000 * PACK(PROBLEM2,PROB2); /* PACK SECOND PROB NUMBER */ 00094000 * 0131 00095000 PACK PROBLEM2(5),PROB2(5) 0131 00096000 * /*************************************************************/ 00097000 * /* */ 00098000 * /* CONVERT TO BINARY */ 00099000 * /* */ 00100000 * /*************************************************************/ 00101000 * 0132 00102000 * CVB(PRB1,PROBLEM1); /* CONVERT PROBLEM1 */ 00103000 XC @TS00001(8),@TS00001 0132 00104000 MVC @TS00001+3(5),PROBLEM1 0132 00105000 CVB PRB1,@TS00001 0132 00106000 * CVB(PRB2,PROBLEM2); /* CONVERT PROBLEM2 */ 00107000 * 0133 00108000 XC @TS00001(8),@TS00001 0133 00109000 MVC @TS00001+3(5),PROBLEM2 0133 00110000 CVB PRB2,@TS00001 0133 00111000 * /*************************************************************/ 00112000 * /* */ 00113000 * /* CHECK THAT PROBLEM2 IS GREATER THAN PROBLEM 1 */ 00114000 * /* */ 00115000 * /*************************************************************/ 00116000 * 0134 00117000 * IF PRB2^>PRB1 THEN /* THE RANGE MUST BE GREATER THAN*/ 00118000 CR PRB2,PRB1 0134 00119000 BH @RF00134 0134 00120000 * RETCD=FOUR; 0135 00121000 LR RETCD,@15 0135 00122000 * END; /* END OF RANGE CHECK */ 00123000 @RF00134 DS 0H 0137 00124000 * RETURN CODE(RETCD); /* RETURN TO CALLER */ 00125000 @RF00124 L @13,4(,@13) 0137 00126000 L @00,@SIZDATD 0137 00127000 LR @01,@11 0137 00128000 BLSUFRE2 R,LV=(0),A=(1) 00129000 LR @15,@02 0137 00130000 L @14,12(,@13) 0137 00131000 LM @00,@12,20(@13) 0137 00132000 BR @14 0137 00133000 */*BLSUPEND--MVS IPCS MODULE */ 00134000 * 0138 00135000 * DECLARE /* COMMON VARIABLES */ 00136000 * I256C CHAR(256) BASED, 0138 00137000 * I031F FIXED(31) BASED, 0138 00138000 * I031P PTR(31) BASED, 0138 00139000 * I015F FIXED(15) BASED, 0138 00140000 * I015P PTR(15) BASED, 0138 00141000 * I008P PTR(8) BASED, 0138 00142000 * I001C CHAR(1) BASED; 0138 00143000 * GENERATE NODEFS NOREFS DATA; 0139 00144000 * END /* BLRPEND END OF PROCESSING */ 00145000 * 0140 00146000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00147000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00148000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00149000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00150000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00151000 */*%INCLUDE SYSLIB (IKJECT ) */ 00152000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00153000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00154000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00155000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00156000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00157000 * 0140 00158000 * ; 0140 00159000 @EL00001 L @13,4(,@13) 0140 00160000 @EF00001 L @00,@SIZDATD 0140 00161000 LR @01,@11 0140 00162000 BLSUFRE2 R,LV=(0),A=(1) 00163000 @ER00001 LM @14,@12,12(@13) 0140 00164000 BR @14 0140 00165000 @DATA DS 0H 00166000 @SM00803 MVC 0(0,@14),BPRI1(@01) 00167000 @SM00805 MVC 0(0,@01),BPRI2(@10) 00168000 @DATD DSECT 00169000 DS 0F 00170000 @SA00001 DS 18F 00171000 @PC00001 DS 3F 00172000 BLSDPC00 CSECT 00173000 DS 0F 00174000 @DATD DSECT 00175000 DS 0D 00176000 DS 0D 00177000 @TS00001 DS CL8 00178000 PROB1 DS CL5 00179000 PROB2 DS CL5 00180000 PROBLEM1 DS CL5 00181000 PROBLEM2 DS CL5 00182000 BLSDPC00 CSECT 00183000 DS 0F 00184000 @SIZDATD DC AL1(0) 00185000 DC AL3(@ENDDATD-@DATD) 00186000 DS 0D 00187000 ZEROS DC CL10'0000000000' 00188000 @DATD DSECT 00189000 SPACE 2 00190000 *********************************************************************** 00191000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00192000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00193000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00194000 *********************************************************************** 00195000 SPACE 00196000 BLSDPC00 CSECT 00197000 ORG 00198000 DS 0D 00199000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSDPC00+19)/20+7)/8)CL8'BLSDPC00' 00200000 @DATD DSECT 00201000 SPACE 2 00202000 *********************************************************************** 00203000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00204000 *********************************************************************** 00205000 SPACE 00206000 DS 0D 00207000 @DATD DSECT 00208000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00209000 @ENDDATD EQU * 00210000 BLSDPC00 CSECT 00211000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00212000 @01 EQU 01 00213000 @02 EQU 02 00214000 @03 EQU 03 00215000 @04 EQU 04 00216000 @05 EQU 05 00217000 @06 EQU 06 00218000 @07 EQU 07 00219000 @08 EQU 08 00220000 @09 EQU 09 00221000 @10 EQU 10 00222000 @11 EQU 11 00223000 @12 EQU 12 00224000 @13 EQU 13 00225000 @14 EQU 14 00226000 @15 EQU 15 00227000 PRB2 EQU @04 00228000 PRB1 EQU @03 00229000 RETCD EQU @02 00230000 R0 EQU @00 00231000 R1 EQU @01 00232000 R2 EQU @02 00233000 R3 EQU @03 00234000 R4 EQU @04 00235000 R5 EQU @05 00236000 R9 EQU @09 00237000 RB EQU @11 00238000 RD EQU @13 00239000 RE EQU @14 00240000 RF EQU @15 00241000 RA EQU @10 00242000 RC EQU @12 00243000 R6 EQU @06 00244000 R7 EQU @07 00245000 R8 EQU @08 00246000 BPR EQU 0 00247000 BPRX EQU 0 00248000 @NM00001 EQU BPRX 00249000 BPRIP EQU @NM00001 00250000 BPRIL EQU @NM00001+4 00251000 BPRIF EQU @NM00001+6 00252000 BPRIFP EQU BPRIF 00253000 BPRI1 EQU 0 00254000 BPRI2 EQU 0 00255000 ZZ1 EQU 0 00256000 ZZ1ATTN EQU ZZ1+360 00257000 ZZ1EVE EQU ZZ1ATTN+4 00258000 ZZ1F EQU ZZ1+368 00259000 ZZ1N EQU ZZ1+1116 00260000 ZZ2 EQU 0 00261000 ZZ2AMD EQU ZZ2 00262000 @NM00015 EQU ZZ2AMD+7 00263000 ZZ2PRT EQU ZZ2+138 00264000 ZZ2PRTT EQU ZZ2PRT+4 00265000 ZZ2PRTT1 EQU ZZ2PRTT+1 00266000 ZZ2A EQU ZZ2+272 00267000 ZZ2AF EQU ZZ2A+16 00268000 ZZ2APID EQU ZZ2A+64 00269000 ZZ2AD EQU ZZ2A+74 00270000 ZZ2ADD EQU ZZ2AD 00271000 ZZ2ADDT EQU ZZ2ADD+2 00272000 ZZ2ADM EQU ZZ2AD+46 00273000 ZZ2ADMT EQU ZZ2ADM+2 00274000 ZZ2ADP EQU ZZ2AD+56 00275000 ZZ2ADPT EQU ZZ2ADP+2 00276000 ZZ2AQAS EQU ZZ2A+144 00277000 ZZ2AQD EQU ZZ2A+160 00278000 ZZ2AQDT EQU ZZ2AQD+10 00279000 ZZ2AQDF EQU ZZ2AQD+52 00280000 ZZ2STG EQU ZZ2+960 00281000 ZZ2ALLOP EQU ZZ2+992 00282000 ZZ2FREEP EQU ZZ2+996 00283000 ZZ2FF19P EQU ZZ2+1000 00284000 ZZ2FRE1P EQU ZZ2+1004 00285000 ZZ2FF18P EQU ZZ2+1008 00286000 ZZ2DYNAP EQU ZZ2+1012 00287000 ZZ2ZZ2CP EQU ZZ2+1016 00288000 ZZ2ZZ2DP EQU ZZ2+1020 00289000 ZZ2STAIP EQU ZZ2+1024 00290000 ZZ2FF02P EQU ZZ2+1028 00291000 ZZ2GETLP EQU ZZ2+1032 00292000 ZZ2PARSP EQU ZZ2+1036 00293000 ZZ2PTGTP EQU ZZ2+1040 00294000 ZZ2PUTLP EQU ZZ2+1044 00295000 ZZ2SCANP EQU ZZ2+1048 00296000 ZZ2STCKP EQU ZZ2+1052 00297000 ZZ2ALOCP EQU ZZ2+1056 00298000 ZZ2MSGSP EQU ZZ2+1060 00299000 ZZ2TRMOP EQU ZZ2+1064 00300000 ZZ2TRMVP EQU ZZ2+1068 00301000 ZZ2MSG0P EQU ZZ2+1076 00302000 ZZ2PUTNP EQU ZZ2+1084 00303000 ZZ2TRMNP EQU ZZ2+1088 00304000 ZZ2ENQ0P EQU ZZ2+1092 00305000 ZZ2ADSDP EQU ZZ2+1096 00306000 ZZ2APDRP EQU ZZ2+1100 00307000 ZZ2FDSDP EQU ZZ2+1104 00308000 ZZ2FPDRP EQU ZZ2+1108 00309000 ZZ2ZZ1P EQU ZZ2+1264 00310000 ZZ2DVTP EQU ZZ2+1276 00311000 ZZ2BVTP EQU ZZ2+1280 00312000 ZZ2CPPL EQU ZZ2+1292 00313000 ZZ2CPPLC EQU ZZ2CPPL 00314000 ZZ2ITR EQU ZZ2+2840 00315000 ZZ2ITRE EQU ZZ2ITR+16 00316000 ZZ2ITSE EQU ZZ2+2864 00317000 ZZ2ES EQU ZZ2+2872 00318000 ZZ2AMDX EQU ZZ2+7160 00319000 ZZ2AXO EQU ZZ2+7934 00320000 ZZ2AXOT EQU ZZ2AXO+2 00321000 CMD EQU 0 00322000 CMDT EQU CMD+4 00323000 PSCB EQU 0 00324000 PSCBATR1 EQU PSCB+16 00325000 ECT EQU 0 00326000 ECTSWS EQU ECT+28 00327000 ECTSWS2 EQU ECT+40 00328000 ECTSWS21 EQU ECTSWS2 00329000 UPT EQU 0 00330000 UPTSWS EQU UPT+12 00331000 SA EQU 0 00332000 SA1 EQU SA 00333000 SAR EQU SA+12 00334000 BVT EQU 0 00335000 BVTPUTLP EQU BVT+4 00336000 BVTPUTOP EQU BVT+12 00337000 BVTPUTTP EQU BVT+16 00338000 BVTPUTVP EQU BVT+20 00339000 BVTPUTAP EQU BVT+24 00340000 BVTPRTTP EQU BVT+28 00341000 BVTPRTAP EQU BVT+32 00342000 BVTPUTDP EQU BVT+36 00343000 BVTMONP EQU BVT+40 00344000 BVTMON2P EQU BVT+44 00345000 BVTVSARP EQU BVT+48 00346000 BVTVSENP EQU BVT+64 00347000 BVTVSERP EQU BVT+68 00348000 BVTVSGEP EQU BVT+72 00349000 BVTVSGUP EQU BVT+76 00350000 BVTVSPOP EQU BVT+80 00351000 BVTVSPUP EQU BVT+84 00352000 BVTMPKNP EQU BVT+104 00353000 BVTMONLP EQU BVT+108 00354000 BVTPUTCP EQU BVT+132 00355000 BVTMPK1P EQU BVT+136 00356000 BVTZZ2RP EQU BVT+140 00357000 BVTPGMRP EQU BVT+144 00358000 BVTMONAP EQU BVT+148 00359000 BVTBLDDP EQU BVT+152 00360000 BVTBLDLP EQU BVT+156 00361000 BVTPGMCP EQU BVT+160 00362000 BVTPGMDP EQU BVT+164 00363000 BVTPGMLP EQU BVT+168 00364000 BVTMONCP EQU BVT+180 00365000 BVTMONDP EQU BVT+184 00366000 BVTMONTP EQU BVT+188 00367000 BVTPARIP EQU BVT+192 00368000 BVTPARUP EQU BVT+196 00369000 BVTPRTNP EQU BVT+204 00370000 BVTVSCRP EQU BVT+208 00371000 BVTVSMRP EQU BVT+212 00372000 BVTMONXP EQU BVT+216 00373000 BVTTRMAP EQU BVT+228 00374000 DVT EQU 0 00375000 DVTDEQPP EQU DVT+8 00376000 DVTENQPP EQU DVT+12 00377000 DVTAUTHP EQU DVT+20 00378000 DVTLPCLP EQU DVT+24 00379000 DVTBP00P EQU DVT+28 00380000 DVTCN00P EQU DVT+32 00381000 DVTDF00P EQU DVT+36 00382000 DVTDS00P EQU DVT+44 00383000 DVTFL00P EQU DVT+48 00384000 DVTFP00P EQU DVT+52 00385000 DVTGD00P EQU DVT+56 00386000 DVTGG00P EQU DVT+60 00387000 DVTGP00P EQU DVT+64 00388000 DVTND00P EQU DVT+68 00389000 DVTND01P EQU DVT+72 00390000 DVTOD00P EQU DVT+76 00391000 DVTPS00P EQU DVT+80 00392000 DVTSD00P EQU DVT+84 00393000 DVTSL00P EQU DVT+88 00394000 DVTTL00P EQU DVT+92 00395000 DVTUD00P EQU DVT+96 00396000 DVTUP00P EQU DVT+100 00397000 DVTLP00P EQU DVT+104 00398000 DVTLALLP EQU DVT+108 00399000 DVTLPFMP EQU DVT+112 00400000 DVTCLOSP EQU DVT+116 00401000 DVTOPENP EQU DVT+120 00402000 DVTPERAP EQU DVT+124 00403000 DVTDALLP EQU DVT+128 00404000 BLSCALOC EQU 0 00405000 BLSDADSD EQU 0 00406000 BLSDAPDR EQU 0 00407000 BLSDDEQP EQU 0 00408000 BLSDENQP EQU 0 00409000 BLSDENQ0 EQU 0 00410000 BLSDFDSD EQU 0 00411000 BLSDFPDR EQU 0 00412000 BLSDMSGS EQU 0 00413000 BLSDMSG0 EQU 0 00414000 BLSEAUTH EQU 0 00415000 BLSELPCL EQU 0 00416000 BLSELPFM EQU 0 00417000 BLSFBP00 EQU 0 00418000 BLSFCLOS EQU 0 00419000 BLSFCN00 EQU 0 00420000 BLSFDALL EQU 0 00421000 BLSFDF00 EQU 0 00422000 BLSFDS00 EQU 0 00423000 BLSFFL00 EQU 0 00424000 BLSFFP00 EQU 0 00425000 BLSFGD00 EQU 0 00426000 BLSFGG00 EQU 0 00427000 BLSFGP00 EQU 0 00428000 BLSFLALL EQU 0 00429000 BLSFLP00 EQU 0 00430000 BLSFND00 EQU 0 00431000 BLSFND01 EQU 0 00432000 BLSFOD00 EQU 0 00433000 BLSFOPEN EQU 0 00434000 BLSFPERA EQU 0 00435000 BLSFPS00 EQU 0 00436000 BLSFSD00 EQU 0 00437000 BLSFSL00 EQU 0 00438000 BLSFTL00 EQU 0 00439000 BLSFUD00 EQU 0 00440000 BLSFUP00 EQU 0 00441000 BLSUALLO EQU 0 00442000 BLSUBLDD EQU 0 00443000 BLSUBLDL EQU 0 00444000 BLSUDYNA EQU 0 00445000 BLSUFREE EQU 0 00446000 BLSUFRE1 EQU 0 00447000 BLSUMON EQU 0 00448000 BLSUMONA EQU 0 00449000 BLSUMONC EQU 0 00450000 BLSUMOND EQU 0 00451000 BLSUMONL EQU 0 00452000 BLSUMONT EQU 0 00453000 BLSUMONX EQU 0 00454000 BLSUMON2 EQU 0 00455000 BLSUMPKN EQU 0 00456000 BLSUMPK1 EQU 0 00457000 BLSUPARI EQU 0 00458000 BLSUPARU EQU 0 00459000 BLSUPGMC EQU 0 00460000 BLSUPGMD EQU 0 00461000 BLSUPGML EQU 0 00462000 BLSUPGMR EQU 0 00463000 BLSUPRTA EQU 0 00464000 BLSUPRTN EQU 0 00465000 BLSUPRTT EQU 0 00466000 BLSUPUTA EQU 0 00467000 BLSUPUTC EQU 0 00468000 BLSUPUTD EQU 0 00469000 BLSUPUTL EQU 0 00470000 BLSUPUTN EQU 0 00471000 BLSUPUTO EQU 0 00472000 BLSUPUTT EQU 0 00473000 BLSUPUTV EQU 0 00474000 BLSUSTAI EQU 0 00475000 BLSUTRMA EQU 0 00476000 BLSUTRMN EQU 0 00477000 BLSUTRMO EQU 0 00478000 BLSUTRMV EQU 0 00479000 BLSUVSAR EQU 0 00480000 BLSUVSCR EQU 0 00481000 BLSUVSEN EQU 0 00482000 BLSUVSER EQU 0 00483000 BLSUVSGE EQU 0 00484000 BLSUVSGU EQU 0 00485000 BLSUVSMR EQU 0 00486000 BLSUVSPO EQU 0 00487000 BLSUVSPU EQU 0 00488000 BLSUZZ2C EQU 0 00489000 BLSUZZ2D EQU 0 00490000 BLSUZZ2R EQU 0 00491000 IKJEFF02 EQU 0 00492000 IKJEFF18 EQU 0 00493000 IKJEFF19 EQU 0 00494000 IKJGETL EQU 0 00495000 IKJPARS EQU 0 00496000 IKJPTGT EQU 0 00497000 IKJPUTL EQU 0 00498000 IKJSCAN EQU 0 00499000 IKJSTCK EQU 0 00500000 I001C EQU 0 00501000 I008P EQU 0 00502000 I015F EQU 0 00503000 I015P EQU 0 00504000 I031F EQU 0 00505000 I031P EQU 0 00506000 I256C EQU 0 00507000 A EQU 0 00508000 B EQU 0 00509000 C EQU 0 00510000 CPPL EQU ZZ2CPPL 00511000 CPPLUPT EQU CPPL+4 00512000 CPPLPSCB EQU CPPL+8 00513000 CPPLECT EQU CPPL+12 00514000 * START UNREFERENCED COMPONENTS 00515000 CPPLCBUF EQU CPPL 00516000 DVT99999 EQU DVT+256 00517000 DVT0064P EQU DVT+252 00518000 DVT0063P EQU DVT+248 00519000 DVT0062P EQU DVT+244 00520000 DVT0061P EQU DVT+240 00521000 DVT0060P EQU DVT+236 00522000 DVT0059P EQU DVT+232 00523000 DVT0058P EQU DVT+228 00524000 DVT0057P EQU DVT+224 00525000 DVT0056P EQU DVT+220 00526000 DVT0055P EQU DVT+216 00527000 DVT0054P EQU DVT+212 00528000 DVT0053P EQU DVT+208 00529000 DVT0052P EQU DVT+204 00530000 DVT0051P EQU DVT+200 00531000 DVT0050P EQU DVT+196 00532000 DVT0049P EQU DVT+192 00533000 DVT0048P EQU DVT+188 00534000 DVT0047P EQU DVT+184 00535000 DVT0046P EQU DVT+180 00536000 DVT0045P EQU DVT+176 00537000 DVT0044P EQU DVT+172 00538000 DVT0043P EQU DVT+168 00539000 DVT0042P EQU DVT+164 00540000 DVT0041P EQU DVT+160 00541000 DVT0040P EQU DVT+156 00542000 DVT0039P EQU DVT+152 00543000 DVT0038P EQU DVT+148 00544000 DVT0037P EQU DVT+144 00545000 DVT0036P EQU DVT+140 00546000 DVT0035P EQU DVT+136 00547000 DVT0034P EQU DVT+132 00548000 DVT0011P EQU DVT+40 00549000 DVT0005P EQU DVT+16 00550000 DVT0002P EQU DVT+4 00551000 DVT0001P EQU DVT 00552000 BVT99999 EQU BVT+256 00553000 BVT0064P EQU BVT+252 00554000 BVT0063P EQU BVT+248 00555000 BVT0062P EQU BVT+244 00556000 BVT0061P EQU BVT+240 00557000 BVT0060P EQU BVT+236 00558000 BVT0059P EQU BVT+232 00559000 BVT0057P EQU BVT+224 00560000 BVT0056P EQU BVT+220 00561000 BVTSTBLP EQU BVT+200 00562000 BVT0045P EQU BVT+176 00563000 BVT0044P EQU BVT+172 00564000 BVT0033P EQU BVT+128 00565000 BVT0032P EQU BVT+124 00566000 BVT0031P EQU BVT+120 00567000 BVT0030P EQU BVT+116 00568000 BVT0029P EQU BVT+112 00569000 BVT0026P EQU BVT+100 00570000 BVT0025P EQU BVT+96 00571000 BVT0024P EQU BVT+92 00572000 BVT0023P EQU BVT+88 00573000 BVT0016P EQU BVT+60 00574000 BVT0015P EQU BVT+56 00575000 BVT0014P EQU BVT+52 00576000 BVT0003P EQU BVT+8 00577000 BVT0001P EQU BVT 00578000 SA99 EQU SA+72 00579000 SARC EQU SAR+56 00580000 SARB EQU SAR+52 00581000 SARA EQU SAR+48 00582000 SAR9 EQU SAR+44 00583000 SAR8 EQU SAR+40 00584000 SAR7 EQU SAR+36 00585000 SAR6 EQU SAR+32 00586000 SAR5 EQU SAR+28 00587000 SAR4 EQU SAR+24 00588000 SAR3 EQU SAR+20 00589000 SAR2 EQU SAR+16 00590000 SAR1 EQU SAR+12 00591000 SAR0 EQU SAR+8 00592000 SARF EQU SAR+4 00593000 SARE EQU SAR 00594000 SAFWD EQU SA+8 00595000 SABAK EQU SA+4 00596000 SA1L EQU SA1+1 00597000 SA1P EQU SA1 00598000 UPTPREFL EQU UPT+23 00599000 UPTPREFX EQU UPT+16 00600000 @NM00070 EQU UPT+15 00601000 UPTLDEL EQU UPT+14 00602000 UPTCDEL EQU UPT+13 00603000 UPTWTP EQU UPTSWS 00604000 UPTMODE EQU UPTSWS 00605000 UPTALD EQU UPTSWS 00606000 UPTPAUS EQU UPTSWS 00607000 UPTNCOM EQU UPTSWS 00608000 UPTMID EQU UPTSWS 00609000 UPTNPRM EQU UPTSWS 00610000 UPTRCVR EQU UPTSWS 00611000 UPTUSER EQU UPT+2 00612000 @NM00069 EQU UPT 00613000 @NM00068 EQU ECT+52 00614000 @NM00067 EQU ECT+48 00615000 @NM00066 EQU ECT+44 00616000 @NM00065 EQU ECTSWS2+1 00617000 @NM00064 EQU ECTSWS21 00618000 ECTTABND EQU ECTSWS21 00619000 ECTDEFCS EQU ECTSWS21 00620000 ECTBKPB EQU ECT+36 00621000 ECTUSER EQU ECT+32 00622000 ECTDDNUM EQU ECT+29 00623000 ECTATTN EQU ECTSWS 00624000 ECTBKGRD EQU ECTSWS 00625000 ECTNNOT EQU ECTSWS 00626000 ECTNMAL EQU ECTSWS 00627000 ECTLOGF EQU ECTSWS 00628000 ECTATRM EQU ECTSWS 00629000 @NM00063 EQU ECTSWS 00630000 ECTNOPD EQU ECTSWS 00631000 ECTSCMD EQU ECT+20 00632000 ECTPCMD EQU ECT+12 00633000 ECTSMSG EQU ECT+9 00634000 ECTMSGF EQU ECT+8 00635000 ECTIOWA EQU ECT+4 00636000 ECTRTCD EQU ECT+1 00637000 ECTRCDF EQU ECT 00638000 PSCBU EQU PSCB+64 00639000 PSCBRSZ EQU PSCB+60 00640000 PSCBLINE EQU PSCB+59 00641000 PSCBCHAR EQU PSCB+58 00642000 PSCBUPTL EQU PSCB+56 00643000 PSCBUPT EQU PSCB+52 00644000 PSCBRLGB EQU PSCB+48 00645000 PSCBDEST EQU PSCB+40 00646000 @NM00062 EQU PSCB+36 00647000 @NM00061 EQU PSCB+32 00648000 @NM00060 EQU PSCB+28 00649000 PSCBLTI2 EQU PSCB+24 00650000 PSCBLTIM EQU PSCB+20 00651000 PSCBATR2 EQU PSCB+18 00652000 @NM00059 EQU PSCBATR1 00653000 @NM00058 EQU PSCBATR1 00654000 @NM00057 EQU PSCBATR1 00655000 PSCBATTN EQU PSCBATR1 00656000 PSCBVMNT EQU PSCBATR1 00657000 PSCBJCL EQU PSCBATR1 00658000 PSCBACCT EQU PSCBATR1 00659000 PSCBCTRL EQU PSCBATR1 00660000 PSCBGPNM EQU PSCB+8 00661000 PSCBUSRL EQU PSCB+7 00662000 PSCBUSER EQU PSCB 00663000 CMDT1 EQU CMDT 00664000 CMDO EQU CMD+2 00665000 CMDL EQU CMD 00666000 ZZ299999 EQU ZZ2+8192 00667000 ZZ2AXOT1 EQU ZZ2AXOT 00668000 ZZ2AXOL EQU ZZ2AXO 00669000 @NM00056 EQU ZZ2+7288 00670000 @NM00055 EQU ZZ2AMDX+4 00671000 ZZ2AMDXC EQU ZZ2AMDX 00672000 ZZ2HSD EQU ZZ2+3056 00673000 @NM00054 EQU ZZ2ES 00674000 @NM00053 EQU ZZ2+2868 00675000 ZZ2ITSEC EQU ZZ2ITSE+1 00676000 @NM00052 EQU ZZ2ITSE 00677000 ZZ2ITSEP EQU ZZ2ITSE 00678000 ZZ2ITSEW EQU ZZ2ITSE 00679000 @NM00051 EQU ZZ2ITR+20 00680000 ZZ2ITREC EQU ZZ2ITRE+1 00681000 @NM00050 EQU ZZ2ITRE 00682000 ZZ2ITREP EQU ZZ2ITRE 00683000 ZZ2ITREW EQU ZZ2ITRE 00684000 @NM00049 EQU ZZ2ITR+9 00685000 ZZ2ITRRC EQU ZZ2ITR+8 00686000 ZZ2ITR2P EQU ZZ2ITR+4 00687000 ZZ2ITRPP EQU ZZ2ITR 00688000 @NM00048 EQU ZZ2+1544 00689000 ZZ2PGM EQU ZZ2+1536 00690000 @NM00047 EQU ZZ2+1526 00691000 ZZ2CW EQU ZZ2+1524 00692000 @NM00046 EQU ZZ2+1504 00693000 @NM00045 EQU ZZ2+1352 00694000 ZZ2FFSYP EQU ZZ2+1348 00695000 ZZ2SASYP EQU ZZ2+1344 00696000 ZZ2RDSYP EQU ZZ2+1340 00697000 ZZ2RASYP EQU ZZ2+1336 00698000 ZZ2PHSYP EQU ZZ2+1332 00699000 ZZ2ESSYP EQU ZZ2+1328 00700000 ZZ200SYP EQU ZZ2+1324 00701000 ZZ2SCWP EQU ZZ2+1320 00702000 ZZ2TTLP EQU ZZ2+1316 00703000 ZZ2LOADP EQU ZZ2+1312 00704000 ZZ2VRESP EQU ZZ2+1308 00705000 ZZ2CPPLE EQU ZZ2CPPL+12 00706000 ZZ2CPPLP EQU ZZ2CPPL+8 00707000 ZZ2CPPLU EQU ZZ2CPPL+4 00708000 ZZ2VRSAP EQU ZZ2+1288 00709000 ZZ2RVTP EQU ZZ2+1284 00710000 @NM00044 EQU ZZ2+1272 00711000 @NM00043 EQU ZZ2+1268 00712000 ZZ2RPLP EQU ZZ2+1260 00713000 ZZ2TCBP EQU ZZ2+1256 00714000 @NM00042 EQU ZZ2+1252 00715000 ZZ2ZZ2P EQU ZZ2+1248 00716000 @NM00041 EQU ZZ2+1112 00717000 @NM00040 EQU ZZ2+1080 00718000 ZZ2FT25P EQU ZZ2+1072 00719000 @NM00039 EQU ZZ2+976 00720000 ZZ2TOD EQU ZZ2+968 00721000 ZZ2STGN EQU ZZ2STG+4 00722000 ZZ2STGP EQU ZZ2STG 00723000 @NM00038 EQU ZZ2+952 00724000 ZZ2SCMDE EQU ZZ2+944 00725000 ZZ2SCMDN EQU ZZ2+936 00726000 ZZ2IDENT EQU ZZ2+928 00727000 ZZ2A9999 EQU ZZ2A+656 00728000 @NM00037 EQU ZZ2A+224 00729000 @NM00036 EQU ZZ2A+220 00730000 ZZ2AQD99 EQU ZZ2AQD+60 00731000 @NM00035 EQU ZZ2AQD+56 00732000 @NM00034 EQU ZZ2AQDF 00733000 ZZ2AQDFA EQU ZZ2AQDF 00734000 ZZ2AQDIL EQU ZZ2AQD+48 00735000 ZZ2AQDIM EQU ZZ2AQD+44 00736000 ZZ2AQDT9 EQU ZZ2AQDT+34 00737000 ZZ2AQDTE EQU ZZ2AQDT+33 00738000 ZZ2AQDTD EQU ZZ2AQDT+2 00739000 @NM00033 EQU ZZ2AQDT+1 00740000 ZZ2AQDTY EQU ZZ2AQDT 00741000 ZZ2AQDT0 EQU ZZ2AQDT 00742000 ZZ2AQDLB EQU ZZ2AQD+9 00743000 ZZ2AQDOB EQU ZZ2AQD+8 00744000 ZZ2AQDLE EQU ZZ2AQD+4 00745000 ZZ2AQDOF EQU ZZ2AQD 00746000 ZZ2AQD00 EQU ZZ2AQD 00747000 ZZ2AQAS9 EQU ZZ2AQAS+16 00748000 @NM00032 EQU ZZ2AQAS+12 00749000 ZZ2AQAS2 EQU ZZ2AQAS+8 00750000 ZZ2AQAS1 EQU ZZ2AQAS+4 00751000 @NM00031 EQU ZZ2AQAS+2 00752000 ZZ2AQAST EQU ZZ2AQAS 00753000 ZZ2AQAS0 EQU ZZ2AQAS 00754000 ZZ2AZZ6P EQU ZZ2A+140 00755000 ZZ2ADPTA EQU ZZ2ADPT 00756000 ZZ2ADPL EQU ZZ2ADP 00757000 ZZ2ADMTA EQU ZZ2ADMT 00758000 ZZ2ADML EQU ZZ2ADM 00759000 ZZ2ADDTA EQU ZZ2ADDT 00760000 ZZ2ADDL EQU ZZ2ADD 00761000 @NM00030 EQU ZZ2A+72 00762000 ZZ2APIDB EQU ZZ2APID+3 00763000 ZZ2APIDA EQU ZZ2APID 00764000 @NM00029 EQU ZZ2A+24 00765000 @NM00028 EQU ZZ2AF+5 00766000 ZZ2AFX EQU ZZ2AF+5 00767000 @NM00027 EQU ZZ2AF+3 00768000 ZZ2AFS EQU ZZ2AF+2 00769000 ZZ2AFD EQU ZZ2AF+2 00770000 ZZ2AFQ EQU ZZ2AF+2 00771000 ZZ2AF$ EQU ZZ2AF+2 00772000 @NM00026 EQU ZZ2AF+2 00773000 ZZ2AFM EQU ZZ2AF+2 00774000 @NM00025 EQU ZZ2AF+2 00775000 @NM00024 EQU ZZ2AF+1 00776000 ZZ2AFV EQU ZZ2AF+1 00777000 @NM00023 EQU ZZ2AF+1 00778000 ZZ2AFC EQU ZZ2AF+1 00779000 @NM00022 EQU ZZ2AF 00780000 ZZ2AFFS EQU ZZ2AF 00781000 ZZ2AFT EQU ZZ2AF 00782000 ZZ2AFP EQU ZZ2AF 00783000 @NM00021 EQU ZZ2A+8 00784000 ZZ2ALINE EQU ZZ2A+4 00785000 @NM00020 EQU ZZ2A+3 00786000 ZZ2ASE EQU ZZ2A+2 00787000 ZZ2ACH EQU ZZ2A 00788000 @NM00019 EQU ZZ2+264 00789000 @NM00018 EQU ZZ2+263 00790000 ZZ2PRTT0 EQU ZZ2PRTT 00791000 ZZ2PRTO EQU ZZ2PRT+2 00792000 ZZ2PRTL EQU ZZ2PRT 00793000 @NM00017 EQU ZZ2AMD+56 00794000 ZZ2AMDXP EQU ZZ2AMD+52 00795000 ZZ2AMDD EQU ZZ2AMD+48 00796000 ZZ2AMDL EQU ZZ2AMD+44 00797000 ZZ2AMDU EQU ZZ2AMD+28 00798000 ZZ2AMDF EQU ZZ2AMD+24 00799000 ZZ2AMDS EQU ZZ2AMD+20 00800000 ZZ2AMDC EQU ZZ2AMD+16 00801000 ZZ2AMDP EQU ZZ2AMD+12 00802000 ZZ2AMDB EQU ZZ2AMD+8 00803000 @NM00016 EQU @NM00015 00804000 ZZ2AMD2 EQU @NM00015 00805000 ZZ2AMD1 EQU @NM00015 00806000 ZZ2AMD0 EQU ZZ2AMD+6 00807000 ZZ2AMDA EQU ZZ2AMD+4 00808000 ZZ2AMDT EQU ZZ2AMD 00809000 ZZ199999 EQU ZZ1+3072 00810000 @NM00014 EQU ZZ1+2160 00811000 ZZ1TRTAS EQU ZZ1+1904 00812000 ZZ1TRUPC EQU ZZ1+1648 00813000 ZZ1TRCTX EQU ZZ1+1392 00814000 ZZ1NASID EQU ZZ1N+274 00815000 ZZ1NSTRL EQU ZZ1N+272 00816000 ZZ1NOFF EQU ZZ1N+268 00817000 ZZ1NBDY EQU ZZ1N+264 00818000 ZZ1NADE EQU ZZ1N+260 00819000 ZZ1NADB EQU ZZ1N+256 00820000 ZZ1NSTR EQU ZZ1N 00821000 @NM00013 EQU ZZ1+1080 00822000 ZZ1TREBC EQU ZZ1+824 00823000 ZZ1TRHEX EQU ZZ1+568 00824000 @NM00012 EQU ZZ1+377 00825000 ZZ1USTAE EQU ZZ1+376 00826000 @NM00011 EQU ZZ1F+1 00827000 @NM00010 EQU ZZ1F 00828000 ZZ1FM EQU ZZ1F 00829000 ZZ1FX EQU ZZ1F 00830000 ZZ1FU EQU ZZ1F 00831000 ZZ1EVEC EQU ZZ1EVE+1 00832000 @NM00009 EQU ZZ1EVE 00833000 ZZ1EVEP EQU ZZ1EVE 00834000 ZZ1EVEW EQU ZZ1EVE 00835000 ZZ1ACMP EQU ZZ1ATTN 00836000 @NM00008 EQU ZZ1+144 00837000 ZZ1FPP EQU ZZ1+140 00838000 ZZ1ZZ6P EQU ZZ1+136 00839000 @NM00007 EQU ZZ1+84 00840000 ZZ1PLINE EQU ZZ1+80 00841000 ZZ1PGSZ EQU ZZ1+76 00842000 ZZ1PCNT EQU ZZ1+72 00843000 @NM00006 EQU ZZ1+68 00844000 ZZ1TPAGE EQU ZZ1+64 00845000 ZZ1TLINE EQU ZZ1+60 00846000 @NM00005 EQU ZZ1+52 00847000 ZZ1DMCBP EQU ZZ1+48 00848000 ZZ1DSDP EQU ZZ1+44 00849000 ZZ1PDRP EQU ZZ1+40 00850000 ZZ1ZZ2P EQU ZZ1+36 00851000 ZZ1327WP EQU ZZ1+32 00852000 ZZ1ACBP EQU ZZ1+28 00853000 @NM00004 EQU ZZ1+24 00854000 ZZ1PDCBP EQU ZZ1+20 00855000 ZZ1BLRBL EQU ZZ1+16 00856000 @NM00003 EQU ZZ1+12 00857000 ZZ1PNULL EQU ZZ1+8 00858000 ZZ1NULL EQU ZZ1+4 00859000 ZZ1IDE EQU ZZ1 00860000 BPRXP EQU BPRX+16 00861000 @NM00002 EQU @NM00001+7 00862000 BPRIF8 EQU BPRIF 00863000 BPRIF7 EQU BPRIF 00864000 BPRIF6 EQU BPRIF 00865000 BPRIF5 EQU BPRIF 00866000 BPRIF4 EQU BPRIF 00867000 BPRIF3 EQU BPRIF 00868000 BPRIF2 EQU BPRIF 00869000 * END UNREFERENCED COMPONENTS 00870000 @ENDDATA EQU * 00871000 END BLSDPC00,(C'PLS2102',0701,78062) 00872000