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