FCVT TITLE 'BLSSCVT--FIND COMMUNICATIONS VECTOR TABLE (CVT) *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPRW */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSSCVT CSECT , 01S0002 00006000 @MAINENT DS 0H 01S0002 00007000 USING *,@15 01S0002 00008000 B @PROLOG 01S0002 00009000 DC AL1(16) 01S0002 00010000 DC C'BLSSCVT 78.059' 01S0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 01S0002 00013000 BALR @12,0 01S0002 00014000 @PSTART DS 0H 01S0002 00015000 USING @PSTART,@12 01S0002 00016000 L @00,@SIZDATD 01S0002 00017000 BLSUALLS R,LV=(0) 00018000 LR @11,@01 01S0002 00019000 USING @DATD,@11 01S0002 00020000 ST @13,@SA00001+4 01S0002 00021000 LM @00,@01,20(@13) 01S0002 00022000 ST @11,8(,@13) 01S0002 00023000 LR @13,@11 01S0002 00024000 MVC @PC00001(8),0(@01) 01S0002 00025000 * 01S0157 00026000 */*------------------------------------------------------------------*/ 00027000 */* BLSSCVT--FIND COMMUNICATIONS VECTOR TABLE (CVT) */ 00028000 */*------------------------------------------------------------------*/ 00029000 * 01S0158 00030000 * ESBAPTR=ADDR(ESPA); /* ->ESBA (ALIAS FOR ESPA) */ 00031000 L ESBAPTR,@PC00001+4 01S0158 00032000 * ESAU(1:ESAULRL)=ESBA(1:ESBALRL);/* PREPARE ESAU */ 00033000 MVC ESAU(182),ESBA(ESBAPTR) 01S0159 00034000 * ESAUD=DATC; /* STORAGE ATTRIBUTES */ 00035000 MVC ESAUD(60),DATC 01S0160 00036000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00037000 SLR RETC,RETC 01S0161 00038000 * IF ZZ6DFAB='0'B THEN /* VIRTUAL STORAGE DUMP */ 00039000 * 01S0162 00040000 L @10,ZZ2AZZ6P(,R9) 01S0162 00041000 TM ZZ6DFAB(@10),B'00010000' 01S0162 00042000 BNZ @RF00162 01S0162 00043000 * /***************************************************************/ 00044000 * /* */ 00045000 * /* VIRTUAL STORAGE DUMP */ 00046000 * /* */ 00047000 * /***************************************************************/ 00048000 * 01S0163 00049000 * DO; /* VIRTUAL STORAGE DUMP */ 00050000 * ESAUAS=DATSH; /* HEADER RECORD */ 00051000 MVC ESAUAS(16),DATSH 01S0164 00052000 * ESAULAD=ADDR(HSDHVCVT)-ADDR(HSDHV);/* OFFSET */ 00053000 MVC ESAULAD(4),@CF00508 01S0165 00054000 * ESBAAS=DATSCV; /* DEFAULT ADDRESS SPACE */ 00055000 MVC ESBAAS(16,ESBAPTR),DATSCV 01S0166 00056000 * CALL E100; /* PROCESS ONE CVT ADDRESS */ 00057000 BAL @14,E100 01S0167 00058000 * END; /* VIRTUAL STORAGE DUMP */ 00059000 * ELSE /* ABSOLUTE STORAGE DUMP */ 00060000 * 01S0169 00061000 * /***************************************************************/ 00062000 * /* */ 00063000 * /* ABSOLUTE STORAGE DUMP */ 00064000 * /* */ 00065000 * /***************************************************************/ 00066000 * 01S0169 00067000 * DO; /* ABSOLUTE STORAGE DUMP */ 00068000 B @RC00162 01S0169 00069000 @RF00162 DS 0H 01S0170 00070000 * ESAUAS=DATSA; /* ABSOLUTE STORAGE */ 00071000 MVC ESAUAS(16),DATSA 01S0170 00072000 * ESAULAD=ADDR(FLCCVT2); /* LOCATION 4C. */ 00073000 LA @10,FLCCVT2 01S0171 00074000 ST @10,ESAULAD 01S0171 00075000 * ESBAAS=DATSA; /* ADDRESS SPACE */ 00076000 MVC ESBAAS(16,ESBAPTR),DATSA 01S0172 00077000 * CALL E100; /* PROCESS ->CVT */ 00078000 BAL @14,E100 01S0173 00079000 * IF RETC>ZZZFLAGE THEN /* UNSATISFACTORY CVT ADDRESS */ 00080000 * 01S0174 00081000 CH RETC,@CH00054 01S0174 00082000 BNH @RF00174 01S0174 00083000 * /***********************************************************/ 00084000 * /* */ 00085000 * /* UNSATISFACTORY CVT ADDRESS */ 00086000 * /* */ 00087000 * /***********************************************************/ 00088000 * 01S0175 00089000 * DO; /* UNSATISFACTORY CVT ADDRESS */ 00090000 * ESAU(1:ESAULRL)=ESBA(1:ESBALRL);/* PREPARE ESAU */ 00091000 MVC ESAU(182),ESBA(ESBAPTR) 01S0176 00092000 * ESAUD=DATC; /* STORAGE ATTRIBUTES */ 00093000 MVC ESAUD(60),DATC 01S0177 00094000 * ESAULAD=ADDR(FLCCVT); /* LOCATION 10. */ 00095000 LA @10,FLCCVT 01S0178 00096000 ST @10,ESAULAD 01S0178 00097000 * CALL E100; /* PROCESS ONE CVT ADDRESS */ 00098000 BAL @14,E100 01S0179 00099000 * END; /* UNSATISFACTORY CVT ADDRESS */ 00100000 * IF RETCRECORD */ 00120000 LA @10,ESAC 01S0186 00121000 ST @10,ARESRCDP 01S0186 00122000 * ARESARQP=ZZ2VRESP; /* ->PREVIOUS ELEMENT */ 00123000 MVC ARESARQP(4),ZZ2VRESP(R9) 01S0187 00124000 * ZZ2VRESP=ADDR(ARES); /* ADD ELEMENT */ 00125000 LA @10,ARES 01S0188 00126000 ST @10,ZZ2VRESP(,R9) 01S0188 00127000 * END; /* BLSRARQ(ADD) RECORD(ESAC)ANCHO 00128000 * R(ZZ2VRESP)MF(EXECUTE,ARES,COM 00129000 * PLETE) */ 00130000 * ESBAAS=DATSCV; /* MASTER ADDRESS SPACE */ 00131000 MVC ESBAAS(16,ESBAPTR),DATSCV 01S0190 00132000 * ESBAAS1=ZZ6DQA1; /* PREFERRED ADDRESS SPACE */ 00133000 L @10,ZZ2AZZ6P(,R9) 01S0191 00134000 MVC ESBAAS1(4,ESBAPTR),ZZ6DQA1(@10) 01S0191 00135000 * ESBASYM=ZZZSYM40; /* NO SYMBOL */ 00136000 MVC ESBASYM(31,ESBAPTR),@CC00178 01S0192 00137000 * RESPECIFY 01S0193 00138000 * (RF) RESTRICTED; /* RETURN CODE */ 00139000 * CALL BLSRSAGU(ZZ2,SAAU,ESBA);/* SCAN PREFERRED CVT */ 00140000 ST R9,@AL00001 01S0194 00141000 LA @14,SAAU 01S0194 00142000 ST @14,@AL00001+4 01S0194 00143000 ST ESBAPTR,@AL00001+8 01S0194 00144000 L @10,ZZ2RVTP(,R9) 01S0194 00145000 L @15,RVTSAGUP(,@10) 01S0194 00146000 LA @01,@AL00001 01S0194 00147000 BALR @14,@15 01S0194 00148000 * IF RF<=RETC THEN /* PREFERRED CVT ACCEPTABLE */ 00149000 CR RF,RETC 01S0195 00150000 BH @RF00195 01S0195 00151000 * RETC=RF; /* RETURN CODE */ 00152000 LR RETC,RF 01S0196 00153000 * ELSE /* USE ABSOLUTE STORAGE CVT */ 00154000 * 01S0197 00155000 * /*******************************************************/ 00156000 * /* */ 00157000 * /* USE ABSOLUTE STORAGE CVT DEFINITION */ 00158000 * /* */ 00159000 * /*******************************************************/ 00160000 * 01S0197 00161000 * DO; /* USE ABSOLUTE STORAGE CVT */ 00162000 B @RC00195 01S0197 00163000 @RF00195 DS 0H 01S0198 00164000 * ESACRL=ESBARL; /* LENGTH OF REMARK */ 00165000 MVC ESACRL(2),ESBARL(ESBAPTR) 01S0198 00166000 * ESBA(1:LENGTH(ESAC))=ESAC;/* ABSOLUTE DEFINITION */ 00167000 MVC ESBA(182,ESBAPTR),ESAC 01S0199 00168000 * END; /* USE ABSOLUTE STORAGE CVT */ 00169000 * RESPECIFY 01S0201 00170000 * (RF) UNRESTRICTED; /* RETURN CODE */ 00171000 @RC00195 DS 0H 01S0202 00172000 * DO; /* BLSRARQ(DELETE) ANCHOR(ZZ2VRES 00173000 * P)MF(EXECUTE,ARES) */ 00174000 * ZZ2VRESP=ARESARQP; /* DELETE ELEMENT */ 00175000 MVC ZZ2VRESP(4,R9),ARESARQP 01S0203 00176000 * END; /* BLSRARQ(DELETE) ANCHOR(ZZ2VRES 00177000 * P)MF(EXECUTE,ARES) */ 00178000 * ESBASYM=ESACSYM; /* SYMBOL */ 00179000 MVC ESBASYM(31,ESBAPTR),ESACSYM 01S0205 00180000 * END; /* ABSOLUTE STORAGE CVT USABLE */ 00181000 * END; /* ABSOLUTE STORAGE DUMP */ 00182000 @RF00181 DS 0H 01S0208 00183000 * IF RETCCVT */ 00204000 * PROCEDURE; 01S0211 00205000 E100 STM @14,@03,@SA00002 01S0211 00206000 STM @05,@12,@SA00002+24 01S0211 00207000 * RESPECIFY 01S0212 00208000 * (RF) RESTRICTED; /* RETURN CODES */ 00209000 * CALL BLSRACC(ZZ2,ESAU,ESBALAD); /* RETRIEVE ->CVT */ 00210000 ST R9,@AL00001 01S0213 00211000 LA @14,ESAU 01S0213 00212000 ST @14,@AL00001+4 01S0213 00213000 LA @14,ESBALAD(,ESBAPTR) 01S0213 00214000 ST @14,@AL00001+8 01S0213 00215000 L @10,ZZ2RVTP(,R9) 01S0213 00216000 L @15,RVTRACCP(,@10) 01S0213 00217000 LA @01,@AL00001 01S0213 00218000 BALR @14,@15 01S0213 00219000 * IF /* CVT ADDRESS NOT USABLE */ 00220000 * RF^=ZZZFLAGI| /* POINTER NOT RETRIEVED */ 00221000 * ESBALAD=(ZZZLENS6*16)| /* RIDICULOUSLY HIGH ADDRESS */ 00223000 * ESBALAD//ZZZBDY8^=0 THEN /* NOT A DOUBLEWORD ADDRESS */ 00224000 SLR @14,@14 01S0214 00225000 CR RF,@14 01S0214 00226000 BNE @RT00214 01S0214 00227000 L @10,ESBALAD(,ESBAPTR) 01S0214 00228000 CL @10,@CF00094 01S0214 00229000 BL @RT00214 01S0214 00230000 CL @10,@CF01707 01S0214 00231000 BNL @RT00214 01S0214 00232000 N @10,@CF00246 01S0214 00233000 CLR @10,@14 01S0214 00234000 BE @RF00214 01S0214 00235000 @RT00214 DS 0H 01S0215 00236000 * RETC=ZZZFLAGS; /* RETURN CODE */ 00237000 LA RETC,12 01S0215 00238000 * ELSE /* USABLE SYSTEM CVT ADDRESS */ 00239000 * 01S0216 00240000 * /***************************************************************/ 00241000 * /* */ 00242000 * /* USABLE SYSTEM CVT ADDRESS */ 00243000 * /* */ 00244000 * /***************************************************************/ 00245000 * 01S0216 00246000 * DO; /* USABLE SYSTEM CVT ADDRESS */ 00247000 B @RC00214 01S0216 00248000 @RF00214 DS 0H 01S0217 00249000 * CALL BLSRSAGU(ZZ2,SAAU,ESBA);/* SCAN ONE CVT */ 00250000 ST R9,@AL00001 01S0217 00251000 LA @14,SAAU 01S0217 00252000 ST @14,@AL00001+4 01S0217 00253000 ST ESBAPTR,@AL00001+8 01S0217 00254000 L @10,ZZ2RVTP(,R9) 01S0217 00255000 L @15,RVTSAGUP(,@10) 01S0217 00256000 LA @01,@AL00001 01S0217 00257000 BALR @14,@15 01S0217 00258000 * RETC=SAAUSRC; /* RETURN CODE */ 00259000 SLR RETC,RETC 01S0218 00260000 IC RETC,SAAUSRC 01S0218 00261000 * END; /* ABSURD SYSTEM CVT ADDRESS */ 00262000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00263000 @RC00214 CR RETC,RF 01S0220 00264000 BNL *+6 00265000 LR RETC,RF 01S0220 00266000 * RETURN; 01S0221 00267000 @EL00002 DS 0H 01S0221 00268000 @EF00002 DS 0H 01S0221 00269000 @ER00002 LM @14,@03,@SA00002 01S0221 00270000 LM @05,@12,@SA00002+24 01S0221 00271000 BR @14 01S0221 00272000 * END E100; 01S0222 00273000 * 01S0222 00274000 */*BLSSPEND--FIND EXIT */ 00275000 */*BLSRPEND--DEBUGGING MODULE */ 00276000 */*BLSUPEND--MVS IPCS MODULE */ 00277000 * 01S0223 00278000 * DECLARE /* COMMON VARIABLES */ 00279000 * I256C CHAR(256) BASED, 01S0223 00280000 * I031F FIXED(31) BASED, 01S0223 00281000 * I031P PTR(31) BASED, 01S0223 00282000 * I015F FIXED(15) BASED, 01S0223 00283000 * I015P PTR(15) BASED, 01S0223 00284000 * I008P PTR(8) BASED, 01S0223 00285000 * I001C CHAR(1) BASED; 01S0223 00286000 * GENERATE NODEFS NOREFS DATA; 01S0224 00287000 * END BLSSCVT /* BLRPEND(BLSSCVT) */ 00288000 * 01S0225 00289000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00290000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 00291000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00292000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00293000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00294000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00295000 */*%INCLUDE SYSLIB (IKJECT ) */ 00296000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00297000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00298000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00299000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00300000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00301000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00302000 */*%INCLUDE SYSLIB (BLSRHSD ) */ 00303000 * 01S0225 00304000 * ; 01S0225 00305000 @EL00001 L @13,4(,@13) 01S0225 00306000 @EF00001 L @00,@SIZDATD 01S0225 00307000 LR @01,@11 01S0225 00308000 BLSUFRES R,LV=(0),A=(1) 00309000 @ER00001 LM @14,@12,12(@13) 01S0225 00310000 BR @14 01S0225 00311000 @DATA DS 0H 00312000 @CH00054 DC H'8' 00313000 @CH00036 DC H'12' 00314000 @DATD DSECT 00315000 DS 0F 00316000 @SA00001 DS 18F 00317000 @PC00001 DS 2F 00318000 @SA00002 DS 14F 00319000 @AL00001 DS 3A 00320000 BLSSCVT CSECT 00321000 DS 0F 00322000 @CF00246 DC F'7' 00323000 @CF00508 DC F'288' 00324000 @CF00094 DC F'4096' 00325000 @CF01707 DC F'1048576' 00326000 @DATD DSECT 00327000 DS 0D 00328000 VSAMBUFR DS CL3072 00329000 ARES DS CL8 00330000 ORG ARES 00331000 ARESARQP DS AL4 00332000 ARESRCDP DS AL4 00333000 ARES9999 DS 0C 00334000 ORG ARES+8 00335000 ESAC DS CL182 00336000 ORG ESAC 00337000 ESACRID DS CL2 00338000 @NM00177 DS BL6 00339000 @NM00178 DS CL8 00340000 @NM00179 DS BL8 00341000 ESACRDX DS FL4 00342000 ESACSYM DS CL31 00343000 ESACELK DS 0C 00344000 ESACRV1 DS CL1 00345000 ESACAS DS CL16 00346000 ORG ESACAS 00347000 ESACAS0 DS 0C 00348000 ESACAST DS CL2 00349000 @NM00180 DS BL2 00350000 ESACAS1 DS FL4 00351000 ESACAS2 DS FL4 00352000 @NM00181 DS BL4 00353000 ESACAS9 DS 0C 00354000 ORG ESAC+76 00355000 ESACLAD DS AL4 00356000 ESACD DS CL60 00357000 ORG ESACD 00358000 ESACD00 DS 0C 00359000 ESACDOF DS FL4 00360000 ESACDLE DS FL4 00361000 ESACDOB DS FL1 00362000 ESACDLB DS FL1 00363000 ESACDT DS CL34 00364000 ORG ESACDT 00365000 ESACDT0 DS 0C 00366000 ESACDTY DS CL1 00367000 @NM00182 DS BL1 00368000 ESACDTD DS CL31 00369000 ESACDTE DS CL1 00370000 ESACDT9 DS 0C 00371000 ORG ESACD+44 00372000 ESACDIM DS FL4 00373000 ESACDIL DS FL4 00374000 ESACDF DS BL4 00375000 ORG ESACDF 00376000 ESACDFA DS BL1 00377000 @NM00183 EQU ESACDF+0 00378000 ORG ESACD+56 00379000 @NM00184 DS BL4 00380000 ESACD99 DS 0C 00381000 ORG ESAC+140 00382000 ESACMAD DS AL4 00383000 @NM00185 DS BL16 00384000 ESACKEY DS BL1 00385000 ESACF DS BL3 00386000 ORG ESACF 00387000 ESACFS DS BL1 00388000 ORG ESACFS 00389000 ESACFSC DS BL1 00390000 ESACFS2 EQU ESACFS+0 00391000 ESACFSM EQU ESACFS+0 00392000 ESACFSA EQU ESACFS+0 00393000 ESACFSP EQU ESACFS+0 00394000 ESACFSR EQU ESACFS+0 00395000 ESACFSX EQU ESACFS+0 00396000 ESACFSS EQU ESACFS+0 00397000 ORG ESACF+1 00398000 ESACFC DS BL1 00399000 ORG ESACFC 00400000 ESACFCD DS BL1 00401000 @NM00186 EQU ESACFC+0 00402000 ORG ESACF+2 00403000 @NM00187 DS BL1 00404000 ORG ESAC+164 00405000 ESACABS DS FL4 00406000 @NM00188 DS BL12 00407000 ESACR DS CL2 00408000 ORG ESACR 00409000 ESACRL DS FL2 00410000 ESACRT DS 0C 00411000 ORG ESACRT 00412000 ESACRT1 DS 0C 00413000 ORG ESAC+182 00414000 ESAC999 DS 0C 00415000 ORG ESAC+182 00416000 BLSSCVT CSECT 00417000 DS 0F 00418000 @SIZDATD DC AL1(0) 00419000 DC AL3(@ENDDATD-@DATD) 00420000 DS 0D 00421000 @CC00178 DC C' ' 00422000 DS CL1 00423000 RMKS DS CL29 00424000 ORG RMKS 00425000 RMKSL DC AL2(27) 00426000 RMKST DS CL27 00427000 ORG RMKST 00428000 RMKSTA DC CL27'COMMUNICATIONS VECTOR TABLE' 00429000 ORG RMKS+29 00430000 DS CL3 00431000 DATC DS CL60 00432000 ORG DATC 00433000 DATC00 DS 0C 00434000 DATCOF DC F'0' 00435000 DATCLE DC A(4) 00436000 DATCOB DC AL1(0) 00437000 DATCLB DC AL1(0) 00438000 DATCT DS CL34 00439000 ORG DATCT 00440000 DATCT0 DS 0C 00441000 DATCTY DC CL1'A' 00442000 @NM00168 DC X'00' 00443000 DATCTD DC CL31' ' 00444000 DATCTE DC CL1' ' 00445000 DATCT9 DS 0C 00446000 ORG DATC+44 00447000 DATCIM DC A(0) 00448000 DATCIL DC F'0' 00449000 DATCF DC X'00000000' 00450000 ORG DATCF 00451000 DATCFA DS BL1 00452000 @NM00169 EQU DATCF+0 00453000 ORG DATC+56 00454000 @NM00170 DC X'00' 00455000 DC XL3'0' 00456000 DATC99 DS 0C 00457000 ORG DATC+60 00458000 DATSA DS CL16 00459000 ORG DATSA 00460000 DATSA0 DS 0C 00461000 DATSAT DC CL2'A ' 00462000 @NM00171 DC X'0000' 00463000 DATSA1 DC A(0) 00464000 DATSA2 DC A(0) 00465000 @NM00172 DC X'00' 00466000 DC XL3'0' 00467000 DATSA9 DS 0C 00468000 ORG DATSA+16 00469000 DATSCV DS CL16 00470000 ORG DATSCV 00471000 DATSCV0 DS 0C 00472000 DATSCVT DC CL2'CV' 00473000 @NM00173 DC X'0000' 00474000 DATSCV1 DC A(0) 00475000 DATSCV2 DC A(1) 00476000 @NM00174 DC X'00' 00477000 DC XL3'0' 00478000 DATSCV9 DS 0C 00479000 ORG DATSCV+16 00480000 DATSH DS CL16 00481000 ORG DATSH 00482000 DATSH0 DS 0C 00483000 DATSHT DC CL2'H ' 00484000 @NM00175 DC X'0000' 00485000 DATSH1 DC A(0) 00486000 DATSH2 DC A(0) 00487000 @NM00176 DC X'00' 00488000 DC XL3'0' 00489000 DATSH9 DS 0C 00490000 ORG DATSH+16 00491000 @DATD DSECT 00492000 SPACE 2 00493000 *********************************************************************** 00494000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00495000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00496000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00497000 *********************************************************************** 00498000 SPACE 00499000 BLSSCVT CSECT 00500000 ORG 00501000 DS 0D 00502000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSSCVT+19)/20+7)/8)CL8'BLSSCVT' 00503000 @DATD DSECT 00504000 DS 0H 00505000 @DATD DSECT 00506000 SPACE 2 00507000 *********************************************************************** 00508000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00509000 *********************************************************************** 00510000 SPACE 00511000 DS 0D 00512000 @DATD DSECT 00513000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00514000 @ENDDATD EQU * 00515000 BLSSCVT CSECT 00516000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00517000 @01 EQU 01 00518000 @02 EQU 02 00519000 @03 EQU 03 00520000 @04 EQU 04 00521000 @05 EQU 05 00522000 @06 EQU 06 00523000 @07 EQU 07 00524000 @08 EQU 08 00525000 @09 EQU 09 00526000 @10 EQU 10 00527000 @11 EQU 11 00528000 @12 EQU 12 00529000 @13 EQU 13 00530000 @14 EQU 14 00531000 @15 EQU 15 00532000 RETC EQU @04 00533000 ESBAPTR EQU @03 00534000 R9 EQU @09 00535000 R0 EQU @00 00536000 R1 EQU @01 00537000 R2 EQU @02 00538000 R3 EQU @03 00539000 R4 EQU @04 00540000 R5 EQU @05 00541000 RB EQU @11 00542000 RD EQU @13 00543000 RE EQU @14 00544000 RF EQU @15 00545000 RA EQU @10 00546000 RC EQU @12 00547000 R6 EQU @06 00548000 R7 EQU @07 00549000 R8 EQU @08 00550000 PSA EQU 0 00551000 FLCRNPSW EQU PSA 00552000 FLCROPSW EQU PSA+8 00553000 FLCICCW2 EQU PSA+16 00554000 FLCCVT EQU FLCICCW2 00555000 FLCCVT2 EQU PSA+76 00556000 PSAEEPSW EQU PSA+132 00557000 PSAESPSW EQU PSA+136 00558000 FLCSVILC EQU PSAESPSW+1 00559000 PSAEPPSW EQU PSA+140 00560000 FLCPIILC EQU PSAEPPSW+1 00561000 FLCPICOD EQU PSAEPPSW+2 00562000 PSAPICOD EQU FLCPICOD+1 00563000 FLCTEA EQU PSAEPPSW+4 00564000 FLCPER EQU PSA+152 00565000 FLCMCLA EQU PSA+168 00566000 FLCIOEL EQU FLCMCLA+4 00567000 FLCIOA EQU FLCMCLA+16 00568000 FLCFSA EQU FLCMCLA+80 00569000 PSASUPER EQU PSA+552 00570000 PSASUP1 EQU PSASUPER 00571000 PSASUP2 EQU PSASUPER+1 00572000 PSASUP3 EQU PSASUPER+2 00573000 PSASUP4 EQU PSASUPER+3 00574000 PSACLHT EQU PSA+640 00575000 PSALKSA EQU PSA+696 00576000 PSAHLHI EQU PSA+760 00577000 PSADSSFL EQU PSA+836 00578000 PSADSSF1 EQU PSADSSFL 00579000 PSADSSF3 EQU PSADSSFL+2 00580000 PSADSSF4 EQU PSADSSFL+3 00581000 PSARSVT EQU PSA+896 00582000 HSD EQU 0 00583000 ESBA EQU 0 00584000 ESBASYM EQU ESBA+28 00585000 ESBAAS EQU ESBA+60 00586000 ESBAAS1 EQU ESBAAS+4 00587000 ESBALAD EQU ESBA+76 00588000 ESBAD EQU ESBA+80 00589000 ESBADT EQU ESBAD+10 00590000 ESBADF EQU ESBAD+52 00591000 ESBAF EQU ESBA+161 00592000 ESBAFS EQU ESBAF 00593000 ESBAFC EQU ESBAF+1 00594000 ESBAR EQU ESBA+180 00595000 ESBARL EQU ESBAR 00596000 ESBART EQU ESBAR+2 00597000 ZZ1 EQU 0 00598000 ZZ1ATTN EQU ZZ1+360 00599000 ZZ1EVE EQU ZZ1ATTN+4 00600000 ZZ1F EQU ZZ1+368 00601000 ZZ1N EQU ZZ1+1116 00602000 ZZ2 EQU 0 00603000 ZZ2AMD EQU ZZ2 00604000 @NM00059 EQU ZZ2AMD+7 00605000 ZZ2PRT EQU ZZ2+138 00606000 ZZ2PRTT EQU ZZ2PRT+4 00607000 ZZ2PRTT1 EQU ZZ2PRTT+1 00608000 ZZ2A EQU ZZ2+272 00609000 ZZ2AF EQU ZZ2A+16 00610000 ZZ2APID EQU ZZ2A+64 00611000 ZZ2AD EQU ZZ2A+74 00612000 ZZ2ADD EQU ZZ2AD 00613000 ZZ2ADDT EQU ZZ2ADD+2 00614000 ZZ2ADM EQU ZZ2AD+46 00615000 ZZ2ADMT EQU ZZ2ADM+2 00616000 ZZ2ADP EQU ZZ2AD+56 00617000 ZZ2ADPT EQU ZZ2ADP+2 00618000 ZZ2AZZ6P EQU ZZ2A+140 00619000 ZZ2AQAS EQU ZZ2A+144 00620000 ZZ2AQD EQU ZZ2A+160 00621000 ZZ2AQDT EQU ZZ2AQD+10 00622000 ZZ2AQDF EQU ZZ2AQD+52 00623000 ZZ2STG EQU ZZ2+960 00624000 ZZ2ALLOP EQU ZZ2+992 00625000 ZZ2FREEP EQU ZZ2+996 00626000 ZZ2FF19P EQU ZZ2+1000 00627000 ZZ2FRE1P EQU ZZ2+1004 00628000 ZZ2FF18P EQU ZZ2+1008 00629000 ZZ2DYNAP EQU ZZ2+1012 00630000 ZZ2ZZ2CP EQU ZZ2+1016 00631000 ZZ2ZZ2DP EQU ZZ2+1020 00632000 ZZ2STAIP EQU ZZ2+1024 00633000 ZZ2FF02P EQU ZZ2+1028 00634000 ZZ2GETLP EQU ZZ2+1032 00635000 ZZ2PARSP EQU ZZ2+1036 00636000 ZZ2PTGTP EQU ZZ2+1040 00637000 ZZ2PUTLP EQU ZZ2+1044 00638000 ZZ2SCANP EQU ZZ2+1048 00639000 ZZ2STCKP EQU ZZ2+1052 00640000 ZZ2TRMOP EQU ZZ2+1064 00641000 ZZ2TRMVP EQU ZZ2+1068 00642000 ZZ2PUTNP EQU ZZ2+1084 00643000 ZZ2TRMNP EQU ZZ2+1088 00644000 ZZ2ZZ1P EQU ZZ2+1264 00645000 ZZ2BVTP EQU ZZ2+1280 00646000 ZZ2RVTP EQU ZZ2+1284 00647000 ZZ2CPPL EQU ZZ2+1292 00648000 ZZ2CPPLC EQU ZZ2CPPL 00649000 ZZ2VRESP EQU ZZ2+1308 00650000 ZZ2ITR EQU ZZ2+2840 00651000 ZZ2ITRE EQU ZZ2ITR+16 00652000 ZZ2ITSE EQU ZZ2+2864 00653000 ZZ2ES EQU ZZ2+2872 00654000 ZZ2AMDX EQU ZZ2+7160 00655000 ZZ2AXO EQU ZZ2+7934 00656000 ZZ2AXOT EQU ZZ2AXO+2 00657000 CMD EQU 0 00658000 CMDT EQU CMD+4 00659000 PSCB EQU 0 00660000 PSCBATR1 EQU PSCB+16 00661000 ECT EQU 0 00662000 ECTSWS EQU ECT+28 00663000 ECTSWS2 EQU ECT+40 00664000 ECTSWS21 EQU ECTSWS2 00665000 UPT EQU 0 00666000 UPTSWS EQU UPT+12 00667000 SA EQU 0 00668000 SA1 EQU SA 00669000 SAR EQU SA+12 00670000 SAR1 EQU SAR+12 00671000 BVT EQU 0 00672000 BVTPUTLP EQU BVT+4 00673000 BVTPUTOP EQU BVT+12 00674000 BVTPUTTP EQU BVT+16 00675000 BVTPUTVP EQU BVT+20 00676000 BVTPUTAP EQU BVT+24 00677000 BVTPRTTP EQU BVT+28 00678000 BVTPRTAP EQU BVT+32 00679000 BVTPUTDP EQU BVT+36 00680000 BVTMONP EQU BVT+40 00681000 BVTMON2P EQU BVT+44 00682000 BVTVSARP EQU BVT+48 00683000 BVTVSENP EQU BVT+64 00684000 BVTVSERP EQU BVT+68 00685000 BVTVSGEP EQU BVT+72 00686000 BVTVSGUP EQU BVT+76 00687000 BVTVSPOP EQU BVT+80 00688000 BVTVSPUP EQU BVT+84 00689000 BVTMPKNP EQU BVT+104 00690000 BVTMONLP EQU BVT+108 00691000 BVTPUTCP EQU BVT+132 00692000 BVTMPK1P EQU BVT+136 00693000 BVTZZ2RP EQU BVT+140 00694000 BVTPGMRP EQU BVT+144 00695000 BVTMONAP EQU BVT+148 00696000 BVTBLDDP EQU BVT+152 00697000 BVTBLDLP EQU BVT+156 00698000 BVTPGMCP EQU BVT+160 00699000 BVTPGMDP EQU BVT+164 00700000 BVTPGMLP EQU BVT+168 00701000 BVTMONCP EQU BVT+180 00702000 BVTMONDP EQU BVT+184 00703000 BVTMONTP EQU BVT+188 00704000 BVTPARIP EQU BVT+192 00705000 BVTPARUP EQU BVT+196 00706000 BVTPRTNP EQU BVT+204 00707000 BVTVSCRP EQU BVT+208 00708000 BVTVSMRP EQU BVT+212 00709000 BVTMONXP EQU BVT+216 00710000 BVTTRMAP EQU BVT+228 00711000 ZZ6 EQU 0 00712000 ZZ6D EQU ZZ6+128 00713000 ZZ6DD EQU ZZ6D+8 00714000 ZZ6DDT EQU ZZ6DD+4 00715000 ZZ6DQA EQU ZZ6D+68 00716000 ZZ6DQA1 EQU ZZ6DQA+4 00717000 ZZ6DF EQU ZZ6D+92 00718000 ZZ6DFAB EQU ZZ6DF 00719000 ZZ6B EQU ZZ6+768 00720000 BLSRACC EQU 0 00721000 BLSRSAGU EQU 0 00722000 RVT EQU 0 00723000 RVTADDRP EQU RVT 00724000 RVTT01P EQU RVT+4 00725000 RVTTAP EQU RVT+8 00726000 RVTTBP EQU RVT+12 00727000 RVTTCP EQU RVT+16 00728000 RVTTFP EQU RVT+24 00729000 RVTTYP EQU RVT+40 00730000 RVTT02P EQU RVT+48 00731000 RVTT03P EQU RVT+52 00732000 RVTT04P EQU RVT+56 00733000 RVTACCLP EQU RVT+60 00734000 RVTRACCP EQU RVT+64 00735000 RVTTLP EQU RVT+68 00736000 RVTTMP EQU RVT+72 00737000 RVTTUP EQU RVT+80 00738000 RVTESGEP EQU RVT+84 00739000 RVTESGUP EQU RVT+88 00740000 RVTESARP EQU RVT+92 00741000 RVTRAARP EQU RVT+96 00742000 RVTRAGEP EQU RVT+100 00743000 RVTADDPP EQU RVT+104 00744000 RVTACCQP EQU RVT+108 00745000 RVTSAGUP EQU RVT+124 00746000 RVTSAGEP EQU RVT+128 00747000 RVTESCKP EQU RVT+132 00748000 RVTMSGAP EQU RVT+136 00749000 RVTMSGDP EQU RVT+140 00750000 RVTADDTP EQU RVT+160 00751000 RVTADDUP EQU RVT+164 00752000 RVTADD1P EQU RVT+176 00753000 RVTADD2P EQU RVT+180 00754000 RVTRSAGP EQU RVT+184 00755000 RVTMSGBP EQU RVT+188 00756000 RVTADDSP EQU RVT+192 00757000 RVTADD3P EQU RVT+196 00758000 RVTT05P EQU RVT+200 00759000 RVTPADSP EQU RVT+204 00760000 RVTTRP EQU RVT+228 00761000 RVTADD4P EQU RVT+232 00762000 RVTSAPCP EQU RVT+236 00763000 RVTSAARP EQU RVT+240 00764000 RVTSAGNP EQU RVT+244 00765000 RVTT06P EQU RVT+248 00766000 RVTSAGCP EQU RVT+252 00767000 RVTSAGQP EQU RVT+256 00768000 RVTESGCP EQU RVT+260 00769000 RVTESGQP EQU RVT+264 00770000 RVTDUCKP EQU RVT+276 00771000 RVTDUCCP EQU RVT+280 00772000 BLSRACCL EQU 0 00773000 BLSRACCQ EQU 0 00774000 BLSRADDP EQU 0 00775000 BLSRADDR EQU 0 00776000 BLSRADDS EQU 0 00777000 BLSRADDT EQU 0 00778000 BLSRADDU EQU 0 00779000 BLSRADD1 EQU 0 00780000 BLSRADD2 EQU 0 00781000 BLSRADD3 EQU 0 00782000 BLSRADD4 EQU 0 00783000 BLSRDUCC EQU 0 00784000 BLSRDUCK EQU 0 00785000 BLSRESAR EQU 0 00786000 BLSRESCK EQU 0 00787000 BLSRESGC EQU 0 00788000 BLSRESGE EQU 0 00789000 BLSRESGQ EQU 0 00790000 BLSRESGU EQU 0 00791000 BLSRMSGA EQU 0 00792000 BLSRMSGB EQU 0 00793000 BLSRMSGD EQU 0 00794000 BLSRPADS EQU 0 00795000 BLSRRAAR EQU 0 00796000 BLSRRAGE EQU 0 00797000 BLSRSAAR EQU 0 00798000 BLSRSAG EQU 0 00799000 BLSRSAGC EQU 0 00800000 BLSRSAGE EQU 0 00801000 BLSRSAGN EQU 0 00802000 BLSRSAGQ EQU 0 00803000 BLSRSAPC EQU 0 00804000 BLSTA EQU 0 00805000 BLSTB EQU 0 00806000 BLSTC EQU 0 00807000 BLSTF EQU 0 00808000 BLSTL EQU 0 00809000 BLSTM EQU 0 00810000 BLSTR EQU 0 00811000 BLSTU EQU 0 00812000 BLSTY EQU 0 00813000 BLST01 EQU 0 00814000 BLST02 EQU 0 00815000 BLST03 EQU 0 00816000 BLST04 EQU 0 00817000 BLST05 EQU 0 00818000 BLST06 EQU 0 00819000 BLSUALLO EQU 0 00820000 BLSUBLDD EQU 0 00821000 BLSUBLDL EQU 0 00822000 BLSUDYNA EQU 0 00823000 BLSUFREE EQU 0 00824000 BLSUFRE1 EQU 0 00825000 BLSUMON EQU 0 00826000 BLSUMONA EQU 0 00827000 BLSUMONC EQU 0 00828000 BLSUMOND EQU 0 00829000 BLSUMONL EQU 0 00830000 BLSUMONT EQU 0 00831000 BLSUMONX EQU 0 00832000 BLSUMON2 EQU 0 00833000 BLSUMPKN EQU 0 00834000 BLSUMPK1 EQU 0 00835000 BLSUPARI EQU 0 00836000 BLSUPARU EQU 0 00837000 BLSUPGMC EQU 0 00838000 BLSUPGMD EQU 0 00839000 BLSUPGML EQU 0 00840000 BLSUPGMR EQU 0 00841000 BLSUPRTA EQU 0 00842000 BLSUPRTN EQU 0 00843000 BLSUPRTT EQU 0 00844000 BLSUPUTA EQU 0 00845000 BLSUPUTC EQU 0 00846000 BLSUPUTD EQU 0 00847000 BLSUPUTL EQU 0 00848000 BLSUPUTN EQU 0 00849000 BLSUPUTO EQU 0 00850000 BLSUPUTT EQU 0 00851000 BLSUPUTV EQU 0 00852000 BLSUSTAI EQU 0 00853000 BLSUTRMA EQU 0 00854000 BLSUTRMN EQU 0 00855000 BLSUTRMO EQU 0 00856000 BLSUTRMV EQU 0 00857000 BLSUVSAR EQU 0 00858000 BLSUVSCR EQU 0 00859000 BLSUVSEN EQU 0 00860000 BLSUVSER EQU 0 00861000 BLSUVSGE EQU 0 00862000 BLSUVSGU EQU 0 00863000 BLSUVSMR EQU 0 00864000 BLSUVSPO EQU 0 00865000 BLSUVSPU EQU 0 00866000 BLSUZZ2C EQU 0 00867000 BLSUZZ2D EQU 0 00868000 BLSUZZ2R EQU 0 00869000 IKJEFF02 EQU 0 00870000 IKJEFF18 EQU 0 00871000 IKJEFF19 EQU 0 00872000 IKJGETL EQU 0 00873000 IKJPARS EQU 0 00874000 IKJPTGT EQU 0 00875000 IKJPUTL EQU 0 00876000 IKJSCAN EQU 0 00877000 IKJSTCK EQU 0 00878000 I001C EQU 0 00879000 I008P EQU 0 00880000 I015F EQU 0 00881000 I015P EQU 0 00882000 I031F EQU 0 00883000 I031P EQU 0 00884000 I256C EQU 0 00885000 PZ2 EQU 0 00886000 ESPA EQU 0 00887000 ESPAAS EQU ESPA+60 00888000 ESPAD EQU ESPA+80 00889000 ESPADT EQU ESPAD+10 00890000 ESPADF EQU ESPAD+52 00891000 ESPAF EQU ESPA+161 00892000 ESPAFS EQU ESPAF 00893000 ESPAFC EQU ESPAF+1 00894000 ESPAR EQU ESPA+180 00895000 ESPART EQU ESPAR+2 00896000 ESAU EQU VSAMBUFR 00897000 ESAUAS EQU ESAU+60 00898000 ESAULAD EQU ESAU+76 00899000 ESAUD EQU ESAU+80 00900000 ESAUDT EQU ESAUD+10 00901000 ESAUDF EQU ESAUD+52 00902000 ESAUF EQU ESAU+161 00903000 ESAUFS EQU ESAUF 00904000 ESAUFC EQU ESAUF+1 00905000 ESAUR EQU ESAU+180 00906000 ESAURT EQU ESAUR+2 00907000 SAAU EQU VSAMBUFR 00908000 SAAUAS EQU SAAU+12 00909000 SAAUDT EQU SAAU+32 00910000 SAAUF EQU SAAU+68 00911000 SAAUFT EQU SAAUF+10 00912000 SAAUFF EQU SAAUF+52 00913000 SAAUSF EQU SAAU+128 00914000 SAAUSRC EQU SAAU+152 00915000 SAAUC EQU SAAU+254 00916000 SAAUCT EQU SAAUC+2 00917000 CPPL EQU ZZ2CPPL 00918000 CPPLUPT EQU CPPL+4 00919000 CPPLPSCB EQU CPPL+8 00920000 CPPLECT EQU CPPL+12 00921000 PSARSVTE EQU PSARSVT 00922000 HSDH EQU HSD 00923000 HSDHV EQU HSD 00924000 HSDHVCVT EQU HSDHV+288 00925000 HSDHA EQU HSD 00926000 HSDC EQU HSD 00927000 HSDCSF EQU HSDC+2 00928000 HSDCPSA EQU HSDC+8 00929000 HSDS EQU HSD 00930000 RMKB EQU ESBAR 00931000 RMKBT EQU RMKB+2 00932000 FLC EQU PSA 00933000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00934000 RMKBTA EQU RMKBT 00935000 RMKBL EQU RMKB 00936000 HSDSC EQU HSDS+8 00937000 HSDSP EQU HSDS+4 00938000 HSDSASI EQU HSDS+2 00939000 HSDSK2 EQU HSDS+1 00940000 HSDSK1 EQU HSDS 00941000 @NM00167 EQU HSDCPSA+552 00942000 HSDCASCO EQU HSDCPSA+548 00943000 HSDCASCN EQU HSDCPSA+544 00944000 HSDCTCBO EQU HSDCPSA+540 00945000 HSDCTCBN EQU HSDCPSA+536 00946000 HSDCLCCR EQU HSDCPSA+532 00947000 HSDCLCCV EQU HSDCPSA+528 00948000 HSDCPCCR EQU HSDCPSA+524 00949000 HSDCPCCV EQU HSDCPSA+520 00950000 HSDCLADD EQU HSDCPSA+518 00951000 HSDCPADD EQU HSDCPSA+516 00952000 HSDCPSID EQU HSDCPSA+512 00953000 HSDCTLR EQU HSDCPSA+448 00954000 HSDCGPR EQU HSDCPSA+384 00955000 HSDCFPR EQU HSDCPSA+352 00956000 HSDCADDR EQU HSDCPSA+350 00957000 @NM00166 EQU HSDCPSA+268 00958000 HSDCPREF EQU HSDCPSA+264 00959000 HSDCLPSW EQU HSDCPSA+256 00960000 @NM00165 EQU HSDCPSA 00961000 HSDCSCPU EQU HSDC+6 00962000 @NM00164 EQU HSDC+4 00963000 @NM00163 EQU HSDCSF 00964000 HSDCSFR EQU HSDCSF 00965000 HSDCSFI EQU HSDCSF 00966000 HSDCSFU EQU HSDCSF 00967000 HSDCCLA EQU HSDC+1 00968000 HSDCTYPE EQU HSDC 00969000 @NM00162 EQU HSDHA+132 00970000 HSDHACAW EQU HSDHA+128 00971000 HSDHACSW EQU HSDHA+120 00972000 @NM00161 EQU HSDHA+20 00973000 @NM00160 EQU HSDHA+12 00974000 @NM00159 EQU HSDHA+4 00975000 @NM00158 EQU HSDHA+2 00976000 @NM00157 EQU HSDHA+1 00977000 @NM00156 EQU HSDHA 00978000 @NM00155 EQU HSDHV+292 00979000 HSDHVPSW EQU HSDHV+280 00980000 HSDHVCR EQU HSDHV+216 00981000 HSDHVGPR EQU HSDHV+152 00982000 HSDHVFPR EQU HSDHV+120 00983000 @NM00154 EQU HSDHV+20 00984000 @NM00153 EQU HSDHV+12 00985000 @NM00152 EQU HSDHV+4 00986000 @NM00151 EQU HSDHV+2 00987000 @NM00150 EQU HSDHV+1 00988000 @NM00149 EQU HSDHV 00989000 @NM00148 EQU HSDH+120 00990000 HSDHTITL EQU HSDH+20 00991000 HSDHTOD EQU HSDH+12 00992000 HSDHPROG EQU HSDH+4 00993000 HSDHASI EQU HSDH+2 00994000 HSDHCLA EQU HSDH+1 00995000 HSDHTYPE EQU HSDH 00996000 PSARSAV EQU PSARSVTE+60 00997000 PSARSTK EQU PSARSVTE+56 00998000 PSAESAV3 EQU PSARSVTE+52 00999000 PSAESTK3 EQU PSARSVTE+48 01000000 PSAESAV2 EQU PSARSVTE+44 01001000 PSAESTK2 EQU PSARSVTE+40 01002000 PSAESAV1 EQU PSARSVTE+36 01003000 PSAESTK1 EQU PSARSVTE+32 01004000 PSAPSAV EQU PSARSVTE+28 01005000 PSAPSTK EQU PSARSVTE+24 01006000 PSAMSAV EQU PSARSVTE+20 01007000 PSAMSTK EQU PSARSVTE+16 01008000 PSASSAV EQU PSARSVTE+12 01009000 PSASSTK EQU PSARSVTE+8 01010000 PSANSTK EQU PSARSVTE+4 01011000 PSACSTK EQU PSARSVTE 01012000 CPPLCBUF EQU CPPL 01013000 SAAU999 EQU SAAU+3072 01014000 SAAUCT1 EQU SAAUCT 01015000 SAAUCL EQU SAAUC 01016000 @NM00046 EQU SAAU+153 01017000 SAAUPGV EQU SAAU+144 01018000 SAAUGMT EQU SAAU+136 01019000 @NM00045 EQU SAAUSF 01020000 SAAUSFS EQU SAAUSF 01021000 SAAUSFI EQU SAAUSF 01022000 SAAUSF9 EQU SAAUSF 01023000 SAAUSF1 EQU SAAUSF 01024000 SAAUF99 EQU SAAUF+60 01025000 @NM00044 EQU SAAUF+56 01026000 @NM00043 EQU SAAUFF 01027000 SAAUFFA EQU SAAUFF 01028000 SAAUFIL EQU SAAUF+48 01029000 SAAUFIM EQU SAAUF+44 01030000 SAAUFT9 EQU SAAUFT+34 01031000 SAAUFTE EQU SAAUFT+33 01032000 SAAUFTD EQU SAAUFT+2 01033000 @NM00042 EQU SAAUFT+1 01034000 SAAUFTY EQU SAAUFT 01035000 SAAUFT0 EQU SAAUFT 01036000 SAAUFLB EQU SAAUF+9 01037000 SAAUFOB EQU SAAUF+8 01038000 SAAUFLE EQU SAAUF+4 01039000 SAAUFOF EQU SAAUF 01040000 SAAUF00 EQU SAAUF 01041000 @NM00041 EQU SAAU+66 01042000 SAAUELK EQU SAAU+66 01043000 SAAUDT9 EQU SAAUDT+34 01044000 SAAUDTE EQU SAAUDT+33 01045000 SAAUDTD EQU SAAUDT+2 01046000 @NM00040 EQU SAAUDT+1 01047000 SAAUDTY EQU SAAUDT 01048000 SAAUDT0 EQU SAAUDT 01049000 SAAULAD EQU SAAU+28 01050000 SAAUAS9 EQU SAAUAS+16 01051000 @NM00039 EQU SAAUAS+12 01052000 SAAUAS2 EQU SAAUAS+8 01053000 SAAUAS1 EQU SAAUAS+4 01054000 @NM00038 EQU SAAUAS+2 01055000 SAAUAST EQU SAAUAS 01056000 SAAUAS0 EQU SAAUAS 01057000 SAAURDX EQU SAAU+8 01058000 @NM00037 EQU SAAU+2 01059000 SAAURID EQU SAAU 01060000 ESAU999 EQU ESAU+694 01061000 ESAURT1 EQU ESAURT 01062000 ESAURL EQU ESAUR 01063000 @NM00036 EQU ESAU+168 01064000 ESAUABS EQU ESAU+164 01065000 @NM00035 EQU ESAUF+2 01066000 @NM00034 EQU ESAUFC 01067000 ESAUFCD EQU ESAUFC 01068000 ESAUFSS EQU ESAUFS 01069000 ESAUFSX EQU ESAUFS 01070000 ESAUFSR EQU ESAUFS 01071000 ESAUFSP EQU ESAUFS 01072000 ESAUFSA EQU ESAUFS 01073000 ESAUFSM EQU ESAUFS 01074000 ESAUFS2 EQU ESAUFS 01075000 ESAUFSC EQU ESAUFS 01076000 ESAUKEY EQU ESAU+160 01077000 @NM00033 EQU ESAU+144 01078000 ESAUMAD EQU ESAU+140 01079000 ESAUD99 EQU ESAUD+60 01080000 @NM00032 EQU ESAUD+56 01081000 @NM00031 EQU ESAUDF 01082000 ESAUDFA EQU ESAUDF 01083000 ESAUDIL EQU ESAUD+48 01084000 ESAUDIM EQU ESAUD+44 01085000 ESAUDT9 EQU ESAUDT+34 01086000 ESAUDTE EQU ESAUDT+33 01087000 ESAUDTD EQU ESAUDT+2 01088000 @NM00030 EQU ESAUDT+1 01089000 ESAUDTY EQU ESAUDT 01090000 ESAUDT0 EQU ESAUDT 01091000 ESAUDLB EQU ESAUD+9 01092000 ESAUDOB EQU ESAUD+8 01093000 ESAUDLE EQU ESAUD+4 01094000 ESAUDOF EQU ESAUD 01095000 ESAUD00 EQU ESAUD 01096000 ESAUAS9 EQU ESAUAS+16 01097000 @NM00029 EQU ESAUAS+12 01098000 ESAUAS2 EQU ESAUAS+8 01099000 ESAUAS1 EQU ESAUAS+4 01100000 @NM00028 EQU ESAUAS+2 01101000 ESAUAST EQU ESAUAS 01102000 ESAUAS0 EQU ESAUAS 01103000 ESAURV1 EQU ESAU+59 01104000 ESAUELK EQU ESAU+59 01105000 ESAUSYM EQU ESAU+28 01106000 ESAURDX EQU ESAU+24 01107000 @NM00027 EQU ESAU+16 01108000 @NM00026 EQU ESAU+8 01109000 @NM00025 EQU ESAU+2 01110000 ESAURID EQU ESAU 01111000 ESPA999 EQU ESPA+694 01112000 ESPART1 EQU ESPART 01113000 ESPARL EQU ESPAR 01114000 @NM00012 EQU ESPA+168 01115000 ESPAABS EQU ESPA+164 01116000 @NM00011 EQU ESPAF+2 01117000 @NM00010 EQU ESPAFC 01118000 ESPAFCD EQU ESPAFC 01119000 ESPAFSS EQU ESPAFS 01120000 ESPAFSX EQU ESPAFS 01121000 ESPAFSR EQU ESPAFS 01122000 ESPAFSP EQU ESPAFS 01123000 ESPAFSA EQU ESPAFS 01124000 ESPAFSM EQU ESPAFS 01125000 ESPAFS2 EQU ESPAFS 01126000 ESPAFSC EQU ESPAFS 01127000 ESPAKEY EQU ESPA+160 01128000 @NM00009 EQU ESPA+144 01129000 ESPAMAD EQU ESPA+140 01130000 ESPAD99 EQU ESPAD+60 01131000 @NM00008 EQU ESPAD+56 01132000 @NM00007 EQU ESPADF 01133000 ESPADFA EQU ESPADF 01134000 ESPADIL EQU ESPAD+48 01135000 ESPADIM EQU ESPAD+44 01136000 ESPADT9 EQU ESPADT+34 01137000 ESPADTE EQU ESPADT+33 01138000 ESPADTD EQU ESPADT+2 01139000 @NM00006 EQU ESPADT+1 01140000 ESPADTY EQU ESPADT 01141000 ESPADT0 EQU ESPADT 01142000 ESPADLB EQU ESPAD+9 01143000 ESPADOB EQU ESPAD+8 01144000 ESPADLE EQU ESPAD+4 01145000 ESPADOF EQU ESPAD 01146000 ESPAD00 EQU ESPAD 01147000 ESPALAD EQU ESPA+76 01148000 ESPAAS9 EQU ESPAAS+16 01149000 @NM00005 EQU ESPAAS+12 01150000 ESPAAS2 EQU ESPAAS+8 01151000 ESPAAS1 EQU ESPAAS+4 01152000 @NM00004 EQU ESPAAS+2 01153000 ESPAAST EQU ESPAAS 01154000 ESPAAS0 EQU ESPAAS 01155000 ESPARV1 EQU ESPA+59 01156000 ESPAELK EQU ESPA+59 01157000 ESPASYM EQU ESPA+28 01158000 ESPARDX EQU ESPA+24 01159000 @NM00003 EQU ESPA+16 01160000 @NM00002 EQU ESPA+8 01161000 @NM00001 EQU ESPA+2 01162000 ESPARID EQU ESPA 01163000 RVT99999 EQU RVT+384 01164000 RVT0096P EQU RVT+380 01165000 RVT0095P EQU RVT+376 01166000 RVT0094P EQU RVT+372 01167000 RVT0093P EQU RVT+368 01168000 RVT0092P EQU RVT+364 01169000 RVT0091P EQU RVT+360 01170000 RVT0090P EQU RVT+356 01171000 RVT0089P EQU RVT+352 01172000 RVT0088P EQU RVT+348 01173000 RVT0087P EQU RVT+344 01174000 RVT0086P EQU RVT+340 01175000 RVT0085P EQU RVT+336 01176000 RVT0084P EQU RVT+332 01177000 RVT0083P EQU RVT+328 01178000 RVT0082P EQU RVT+324 01179000 RVT0081P EQU RVT+320 01180000 RVT0080P EQU RVT+316 01181000 RVT0079P EQU RVT+312 01182000 RVT0078P EQU RVT+308 01183000 RVT0077P EQU RVT+304 01184000 RVT0076P EQU RVT+300 01185000 RVT0075P EQU RVT+296 01186000 RVT0074P EQU RVT+292 01187000 RVT0073P EQU RVT+288 01188000 RVT0072P EQU RVT+284 01189000 RVTDTUTP EQU RVT+272 01190000 RVTDTMTP EQU RVT+268 01191000 RVT0057P EQU RVT+224 01192000 RVT0056P EQU RVT+220 01193000 RVT0055P EQU RVT+216 01194000 RVT0054P EQU RVT+212 01195000 RVT0053P EQU RVT+208 01196000 RVT0044P EQU RVT+172 01197000 RVT0043P EQU RVT+168 01198000 RVT0040P EQU RVT+156 01199000 RVT0039P EQU RVT+152 01200000 RVT0038P EQU RVT+148 01201000 RVT0037P EQU RVT+144 01202000 RVT0031P EQU RVT+120 01203000 RVT0030P EQU RVT+116 01204000 RVT0029P EQU RVT+112 01205000 RVT0020P EQU RVT+76 01206000 RVT0012P EQU RVT+44 01207000 RVT0010P EQU RVT+36 01208000 RVT0009P EQU RVT+32 01209000 RVT0008P EQU RVT+28 01210000 RVT0006P EQU RVT+20 01211000 ZZ69999 EQU ZZ6+1792 01212000 ZZ6BRB EQU ZZ6B+12 01213000 ZZ6BRC EQU ZZ6B+8 01214000 @NM00122 EQU ZZ6B+6 01215000 ZZ6BFL EQU ZZ6B+4 01216000 ZZ6BDA EQU ZZ6B 01217000 @NM00121 EQU ZZ6+540 01218000 ZZ6BUFI EQU ZZ6+536 01219000 ZZ6BUFP EQU ZZ6+532 01220000 ZZ6FILE EQU ZZ6+524 01221000 ZZ6BUFB EQU ZZ6+520 01222000 ZZ6BUFL EQU ZZ6+518 01223000 ZZ6BUFN EQU ZZ6+516 01224000 ZZ6ZZ6P EQU ZZ6+512 01225000 @NM00120 EQU ZZ6+256 01226000 ZZ6D999 EQU ZZ6D+128 01227000 @NM00119 EQU ZZ6D+116 01228000 ZZ6DCAP EQU ZZ6D+112 01229000 ZZ6DPRP EQU ZZ6D+108 01230000 ZZ6DDA2 EQU ZZ6D+104 01231000 ZZ6DDA1 EQU ZZ6D+100 01232000 @NM00118 EQU ZZ6DF 01233000 ZZ6DFSU EQU ZZ6DF 01234000 ZZ6DFST EQU ZZ6DF 01235000 ZZ6DFMP EQU ZZ6DF 01236000 ZZ6DFDU EQU ZZ6DF 01237000 ZZ6DFBS EQU ZZ6DF 01238000 ZZ6DQ2 EQU ZZ6D+88 01239000 ZZ6DQ1 EQU ZZ6D+84 01240000 ZZ6DQA9 EQU ZZ6DQA+16 01241000 @NM00117 EQU ZZ6DQA+12 01242000 ZZ6DQA2 EQU ZZ6DQA+8 01243000 @NM00116 EQU ZZ6DQA+2 01244000 ZZ6DQAT EQU ZZ6DQA 01245000 ZZ6DQA0 EQU ZZ6DQA 01246000 ZZ6DRDX EQU ZZ6D+64 01247000 ZZ6DELK EQU ZZ6D+64 01248000 ZZ6DMEM EQU ZZ6D+56 01249000 ZZ6DDT1 EQU ZZ6DDT 01250000 ZZ6DDO EQU ZZ6DD+2 01251000 ZZ6DDL EQU ZZ6DD 01252000 @NM00115 EQU ZZ6D+2 01253000 ZZ6DRID EQU ZZ6D 01254000 ZZ6RDCB EQU ZZ6 01255000 ZZ60000 EQU ZZ6 01256000 BVT99999 EQU BVT+256 01257000 BVT0064P EQU BVT+252 01258000 BVT0063P EQU BVT+248 01259000 BVT0062P EQU BVT+244 01260000 BVT0061P EQU BVT+240 01261000 BVT0060P EQU BVT+236 01262000 BVT0059P EQU BVT+232 01263000 BVT0057P EQU BVT+224 01264000 BVT0056P EQU BVT+220 01265000 BVTSTBLP EQU BVT+200 01266000 BVT0045P EQU BVT+176 01267000 BVT0044P EQU BVT+172 01268000 BVT0033P EQU BVT+128 01269000 BVT0032P EQU BVT+124 01270000 BVT0031P EQU BVT+120 01271000 BVT0030P EQU BVT+116 01272000 BVT0029P EQU BVT+112 01273000 BVT0026P EQU BVT+100 01274000 BVT0025P EQU BVT+96 01275000 BVT0024P EQU BVT+92 01276000 BVT0023P EQU BVT+88 01277000 BVT0016P EQU BVT+60 01278000 BVT0015P EQU BVT+56 01279000 BVT0014P EQU BVT+52 01280000 BVT0003P EQU BVT+8 01281000 BVT0001P EQU BVT 01282000 SA99 EQU SA+72 01283000 SARC EQU SAR+56 01284000 SARB EQU SAR+52 01285000 SARA EQU SAR+48 01286000 SAR9 EQU SAR+44 01287000 SAR8 EQU SAR+40 01288000 SAR7 EQU SAR+36 01289000 SAR6 EQU SAR+32 01290000 SAR5 EQU SAR+28 01291000 SAR4 EQU SAR+24 01292000 SAR3 EQU SAR+20 01293000 SAR2 EQU SAR+16 01294000 SAR0 EQU SAR+8 01295000 SARF EQU SAR+4 01296000 SARE EQU SAR 01297000 SAFWD EQU SA+8 01298000 SABAK EQU SA+4 01299000 SA1L EQU SA1+1 01300000 SA1P EQU SA1 01301000 UPTPREFL EQU UPT+23 01302000 UPTPREFX EQU UPT+16 01303000 @NM00114 EQU UPT+15 01304000 UPTLDEL EQU UPT+14 01305000 UPTCDEL EQU UPT+13 01306000 UPTWTP EQU UPTSWS 01307000 UPTMODE EQU UPTSWS 01308000 UPTALD EQU UPTSWS 01309000 UPTPAUS EQU UPTSWS 01310000 UPTNCOM EQU UPTSWS 01311000 UPTMID EQU UPTSWS 01312000 UPTNPRM EQU UPTSWS 01313000 UPTRCVR EQU UPTSWS 01314000 UPTUSER EQU UPT+2 01315000 @NM00113 EQU UPT 01316000 @NM00112 EQU ECT+52 01317000 @NM00111 EQU ECT+48 01318000 @NM00110 EQU ECT+44 01319000 @NM00109 EQU ECTSWS2+1 01320000 @NM00108 EQU ECTSWS21 01321000 ECTTABND EQU ECTSWS21 01322000 ECTDEFCS EQU ECTSWS21 01323000 ECTBKPB EQU ECT+36 01324000 ECTUSER EQU ECT+32 01325000 ECTDDNUM EQU ECT+29 01326000 ECTATTN EQU ECTSWS 01327000 ECTBKGRD EQU ECTSWS 01328000 ECTNNOT EQU ECTSWS 01329000 ECTNMAL EQU ECTSWS 01330000 ECTLOGF EQU ECTSWS 01331000 ECTATRM EQU ECTSWS 01332000 @NM00107 EQU ECTSWS 01333000 ECTNOPD EQU ECTSWS 01334000 ECTSCMD EQU ECT+20 01335000 ECTPCMD EQU ECT+12 01336000 ECTSMSG EQU ECT+9 01337000 ECTMSGF EQU ECT+8 01338000 ECTIOWA EQU ECT+4 01339000 ECTRTCD EQU ECT+1 01340000 ECTRCDF EQU ECT 01341000 PSCBU EQU PSCB+64 01342000 PSCBRSZ EQU PSCB+60 01343000 PSCBLINE EQU PSCB+59 01344000 PSCBCHAR EQU PSCB+58 01345000 PSCBUPTL EQU PSCB+56 01346000 PSCBUPT EQU PSCB+52 01347000 PSCBRLGB EQU PSCB+48 01348000 PSCBDEST EQU PSCB+40 01349000 @NM00106 EQU PSCB+36 01350000 @NM00105 EQU PSCB+32 01351000 @NM00104 EQU PSCB+28 01352000 PSCBLTI2 EQU PSCB+24 01353000 PSCBLTIM EQU PSCB+20 01354000 PSCBATR2 EQU PSCB+18 01355000 @NM00103 EQU PSCBATR1 01356000 @NM00102 EQU PSCBATR1 01357000 @NM00101 EQU PSCBATR1 01358000 PSCBATTN EQU PSCBATR1 01359000 PSCBVMNT EQU PSCBATR1 01360000 PSCBJCL EQU PSCBATR1 01361000 PSCBACCT EQU PSCBATR1 01362000 PSCBCTRL EQU PSCBATR1 01363000 PSCBGPNM EQU PSCB+8 01364000 PSCBUSRL EQU PSCB+7 01365000 PSCBUSER EQU PSCB 01366000 CMDT1 EQU CMDT 01367000 CMDO EQU CMD+2 01368000 CMDL EQU CMD 01369000 ZZ299999 EQU ZZ2+8192 01370000 ZZ2AXOT1 EQU ZZ2AXOT 01371000 ZZ2AXOL EQU ZZ2AXO 01372000 @NM00100 EQU ZZ2+7288 01373000 @NM00099 EQU ZZ2AMDX+4 01374000 ZZ2AMDXC EQU ZZ2AMDX 01375000 ZZ2HSD EQU ZZ2+3056 01376000 @NM00098 EQU ZZ2ES 01377000 @NM00097 EQU ZZ2+2868 01378000 ZZ2ITSEC EQU ZZ2ITSE+1 01379000 @NM00096 EQU ZZ2ITSE 01380000 ZZ2ITSEP EQU ZZ2ITSE 01381000 ZZ2ITSEW EQU ZZ2ITSE 01382000 @NM00095 EQU ZZ2ITR+20 01383000 ZZ2ITREC EQU ZZ2ITRE+1 01384000 @NM00094 EQU ZZ2ITRE 01385000 ZZ2ITREP EQU ZZ2ITRE 01386000 ZZ2ITREW EQU ZZ2ITRE 01387000 @NM00093 EQU ZZ2ITR+9 01388000 ZZ2ITRRC EQU ZZ2ITR+8 01389000 ZZ2ITR2P EQU ZZ2ITR+4 01390000 ZZ2ITRPP EQU ZZ2ITR 01391000 @NM00092 EQU ZZ2+1544 01392000 ZZ2PGM EQU ZZ2+1536 01393000 @NM00091 EQU ZZ2+1526 01394000 ZZ2CW EQU ZZ2+1524 01395000 @NM00090 EQU ZZ2+1504 01396000 @NM00089 EQU ZZ2+1352 01397000 ZZ2FFSYP EQU ZZ2+1348 01398000 ZZ2SASYP EQU ZZ2+1344 01399000 ZZ2RDSYP EQU ZZ2+1340 01400000 ZZ2RASYP EQU ZZ2+1336 01401000 ZZ2PHSYP EQU ZZ2+1332 01402000 ZZ2ESSYP EQU ZZ2+1328 01403000 ZZ200SYP EQU ZZ2+1324 01404000 ZZ2SCWP EQU ZZ2+1320 01405000 ZZ2TTLP EQU ZZ2+1316 01406000 ZZ2LOADP EQU ZZ2+1312 01407000 ZZ2CPPLE EQU ZZ2CPPL+12 01408000 ZZ2CPPLP EQU ZZ2CPPL+8 01409000 ZZ2CPPLU EQU ZZ2CPPL+4 01410000 ZZ2VRSAP EQU ZZ2+1288 01411000 ZZ2DVTP EQU ZZ2+1276 01412000 @NM00088 EQU ZZ2+1272 01413000 @NM00087 EQU ZZ2+1268 01414000 ZZ2RPLP EQU ZZ2+1260 01415000 ZZ2TCBP EQU ZZ2+1256 01416000 @NM00086 EQU ZZ2+1252 01417000 ZZ2ZZ2P EQU ZZ2+1248 01418000 @NM00085 EQU ZZ2+1112 01419000 ZZ2FPDRP EQU ZZ2+1108 01420000 ZZ2FDSDP EQU ZZ2+1104 01421000 ZZ2APDRP EQU ZZ2+1100 01422000 ZZ2ADSDP EQU ZZ2+1096 01423000 ZZ2ENQ0P EQU ZZ2+1092 01424000 @NM00084 EQU ZZ2+1080 01425000 ZZ2MSG0P EQU ZZ2+1076 01426000 ZZ2FT25P EQU ZZ2+1072 01427000 ZZ2MSGSP EQU ZZ2+1060 01428000 ZZ2ALOCP EQU ZZ2+1056 01429000 @NM00083 EQU ZZ2+976 01430000 ZZ2TOD EQU ZZ2+968 01431000 ZZ2STGN EQU ZZ2STG+4 01432000 ZZ2STGP EQU ZZ2STG 01433000 @NM00082 EQU ZZ2+952 01434000 ZZ2SCMDE EQU ZZ2+944 01435000 ZZ2SCMDN EQU ZZ2+936 01436000 ZZ2IDENT EQU ZZ2+928 01437000 ZZ2A9999 EQU ZZ2A+656 01438000 @NM00081 EQU ZZ2A+224 01439000 @NM00080 EQU ZZ2A+220 01440000 ZZ2AQD99 EQU ZZ2AQD+60 01441000 @NM00079 EQU ZZ2AQD+56 01442000 @NM00078 EQU ZZ2AQDF 01443000 ZZ2AQDFA EQU ZZ2AQDF 01444000 ZZ2AQDIL EQU ZZ2AQD+48 01445000 ZZ2AQDIM EQU ZZ2AQD+44 01446000 ZZ2AQDT9 EQU ZZ2AQDT+34 01447000 ZZ2AQDTE EQU ZZ2AQDT+33 01448000 ZZ2AQDTD EQU ZZ2AQDT+2 01449000 @NM00077 EQU ZZ2AQDT+1 01450000 ZZ2AQDTY EQU ZZ2AQDT 01451000 ZZ2AQDT0 EQU ZZ2AQDT 01452000 ZZ2AQDLB EQU ZZ2AQD+9 01453000 ZZ2AQDOB EQU ZZ2AQD+8 01454000 ZZ2AQDLE EQU ZZ2AQD+4 01455000 ZZ2AQDOF EQU ZZ2AQD 01456000 ZZ2AQD00 EQU ZZ2AQD 01457000 ZZ2AQAS9 EQU ZZ2AQAS+16 01458000 @NM00076 EQU ZZ2AQAS+12 01459000 ZZ2AQAS2 EQU ZZ2AQAS+8 01460000 ZZ2AQAS1 EQU ZZ2AQAS+4 01461000 @NM00075 EQU ZZ2AQAS+2 01462000 ZZ2AQAST EQU ZZ2AQAS 01463000 ZZ2AQAS0 EQU ZZ2AQAS 01464000 ZZ2ADPTA EQU ZZ2ADPT 01465000 ZZ2ADPL EQU ZZ2ADP 01466000 ZZ2ADMTA EQU ZZ2ADMT 01467000 ZZ2ADML EQU ZZ2ADM 01468000 ZZ2ADDTA EQU ZZ2ADDT 01469000 ZZ2ADDL EQU ZZ2ADD 01470000 @NM00074 EQU ZZ2A+72 01471000 ZZ2APIDB EQU ZZ2APID+3 01472000 ZZ2APIDA EQU ZZ2APID 01473000 @NM00073 EQU ZZ2A+24 01474000 @NM00072 EQU ZZ2AF+5 01475000 ZZ2AFX EQU ZZ2AF+5 01476000 @NM00071 EQU ZZ2AF+3 01477000 ZZ2AFS EQU ZZ2AF+2 01478000 ZZ2AFD EQU ZZ2AF+2 01479000 ZZ2AFQ EQU ZZ2AF+2 01480000 ZZ2AF$ EQU ZZ2AF+2 01481000 @NM00070 EQU ZZ2AF+2 01482000 ZZ2AFM EQU ZZ2AF+2 01483000 @NM00069 EQU ZZ2AF+2 01484000 @NM00068 EQU ZZ2AF+1 01485000 ZZ2AFV EQU ZZ2AF+1 01486000 @NM00067 EQU ZZ2AF+1 01487000 ZZ2AFC EQU ZZ2AF+1 01488000 @NM00066 EQU ZZ2AF 01489000 ZZ2AFFS EQU ZZ2AF 01490000 ZZ2AFT EQU ZZ2AF 01491000 ZZ2AFP EQU ZZ2AF 01492000 @NM00065 EQU ZZ2A+8 01493000 ZZ2ALINE EQU ZZ2A+4 01494000 @NM00064 EQU ZZ2A+3 01495000 ZZ2ASE EQU ZZ2A+2 01496000 ZZ2ACH EQU ZZ2A 01497000 @NM00063 EQU ZZ2+264 01498000 @NM00062 EQU ZZ2+263 01499000 ZZ2PRTT0 EQU ZZ2PRTT 01500000 ZZ2PRTO EQU ZZ2PRT+2 01501000 ZZ2PRTL EQU ZZ2PRT 01502000 @NM00061 EQU ZZ2AMD+56 01503000 ZZ2AMDXP EQU ZZ2AMD+52 01504000 ZZ2AMDD EQU ZZ2AMD+48 01505000 ZZ2AMDL EQU ZZ2AMD+44 01506000 ZZ2AMDU EQU ZZ2AMD+28 01507000 ZZ2AMDF EQU ZZ2AMD+24 01508000 ZZ2AMDS EQU ZZ2AMD+20 01509000 ZZ2AMDC EQU ZZ2AMD+16 01510000 ZZ2AMDP EQU ZZ2AMD+12 01511000 ZZ2AMDB EQU ZZ2AMD+8 01512000 @NM00060 EQU @NM00059 01513000 ZZ2AMD2 EQU @NM00059 01514000 ZZ2AMD1 EQU @NM00059 01515000 ZZ2AMD0 EQU ZZ2AMD+6 01516000 ZZ2AMDA EQU ZZ2AMD+4 01517000 ZZ2AMDT EQU ZZ2AMD 01518000 ZZ199999 EQU ZZ1+3072 01519000 @NM00058 EQU ZZ1+2160 01520000 ZZ1TRTAS EQU ZZ1+1904 01521000 ZZ1TRUPC EQU ZZ1+1648 01522000 ZZ1TRCTX EQU ZZ1+1392 01523000 ZZ1NASID EQU ZZ1N+274 01524000 ZZ1NSTRL EQU ZZ1N+272 01525000 ZZ1NOFF EQU ZZ1N+268 01526000 ZZ1NBDY EQU ZZ1N+264 01527000 ZZ1NADE EQU ZZ1N+260 01528000 ZZ1NADB EQU ZZ1N+256 01529000 ZZ1NSTR EQU ZZ1N 01530000 @NM00057 EQU ZZ1+1080 01531000 ZZ1TREBC EQU ZZ1+824 01532000 ZZ1TRHEX EQU ZZ1+568 01533000 @NM00056 EQU ZZ1+377 01534000 ZZ1USTAE EQU ZZ1+376 01535000 @NM00055 EQU ZZ1F+1 01536000 @NM00054 EQU ZZ1F 01537000 ZZ1FM EQU ZZ1F 01538000 ZZ1FX EQU ZZ1F 01539000 ZZ1FU EQU ZZ1F 01540000 ZZ1EVEC EQU ZZ1EVE+1 01541000 @NM00053 EQU ZZ1EVE 01542000 ZZ1EVEP EQU ZZ1EVE 01543000 ZZ1EVEW EQU ZZ1EVE 01544000 ZZ1ACMP EQU ZZ1ATTN 01545000 @NM00052 EQU ZZ1+144 01546000 ZZ1FPP EQU ZZ1+140 01547000 ZZ1ZZ6P EQU ZZ1+136 01548000 @NM00051 EQU ZZ1+84 01549000 ZZ1PLINE EQU ZZ1+80 01550000 ZZ1PGSZ EQU ZZ1+76 01551000 ZZ1PCNT EQU ZZ1+72 01552000 @NM00050 EQU ZZ1+68 01553000 ZZ1TPAGE EQU ZZ1+64 01554000 ZZ1TLINE EQU ZZ1+60 01555000 @NM00049 EQU ZZ1+48 01556000 ZZ1DSDP EQU ZZ1+44 01557000 ZZ1PDRP EQU ZZ1+40 01558000 ZZ1ZZ2P EQU ZZ1+36 01559000 ZZ1327WP EQU ZZ1+32 01560000 ZZ1ACBP EQU ZZ1+28 01561000 @NM00048 EQU ZZ1+24 01562000 ZZ1PDCBP EQU ZZ1+20 01563000 ZZ1BLRBL EQU ZZ1+16 01564000 @NM00047 EQU ZZ1+12 01565000 ZZ1PNULL EQU ZZ1+8 01566000 ZZ1NULL EQU ZZ1+4 01567000 ZZ1IDE EQU ZZ1 01568000 ESBA999 EQU ESBA+694 01569000 ESBART1 EQU ESBART 01570000 @NM00024 EQU ESBA+168 01571000 ESBAABS EQU ESBA+164 01572000 @NM00023 EQU ESBAF+2 01573000 @NM00022 EQU ESBAFC 01574000 ESBAFCD EQU ESBAFC 01575000 ESBAFSS EQU ESBAFS 01576000 ESBAFSX EQU ESBAFS 01577000 ESBAFSR EQU ESBAFS 01578000 ESBAFSP EQU ESBAFS 01579000 ESBAFSA EQU ESBAFS 01580000 ESBAFSM EQU ESBAFS 01581000 ESBAFS2 EQU ESBAFS 01582000 ESBAFSC EQU ESBAFS 01583000 ESBAKEY EQU ESBA+160 01584000 @NM00021 EQU ESBA+144 01585000 ESBAMAD EQU ESBA+140 01586000 ESBAD99 EQU ESBAD+60 01587000 @NM00020 EQU ESBAD+56 01588000 @NM00019 EQU ESBADF 01589000 ESBADFA EQU ESBADF 01590000 ESBADIL EQU ESBAD+48 01591000 ESBADIM EQU ESBAD+44 01592000 ESBADT9 EQU ESBADT+34 01593000 ESBADTE EQU ESBADT+33 01594000 ESBADTD EQU ESBADT+2 01595000 @NM00018 EQU ESBADT+1 01596000 ESBADTY EQU ESBADT 01597000 ESBADT0 EQU ESBADT 01598000 ESBADLB EQU ESBAD+9 01599000 ESBADOB EQU ESBAD+8 01600000 ESBADLE EQU ESBAD+4 01601000 ESBADOF EQU ESBAD 01602000 ESBAD00 EQU ESBAD 01603000 ESBAAS9 EQU ESBAAS+16 01604000 @NM00017 EQU ESBAAS+12 01605000 ESBAAS2 EQU ESBAAS+8 01606000 @NM00016 EQU ESBAAS+2 01607000 ESBAAST EQU ESBAAS 01608000 ESBAAS0 EQU ESBAAS 01609000 ESBARV1 EQU ESBA+59 01610000 ESBAELK EQU ESBA+59 01611000 ESBARDX EQU ESBA+24 01612000 @NM00015 EQU ESBA+16 01613000 @NM00014 EQU ESBA+8 01614000 @NM00013 EQU ESBA+2 01615000 ESBARID EQU ESBA 01616000 @NM00147 EQU HSD+2 01617000 HSDCLA EQU HSD+1 01618000 HSDTYPE EQU HSD 01619000 @NM00146 EQU PSA+3668 01620000 PSASTAK EQU PSA+3072 01621000 @NM00145 EQU PSA+1048 01622000 PSAUSEND EQU PSA+1048 01623000 PSARV062 EQU PSA+1044 01624000 PSACDAL EQU PSA+1040 01625000 PSAWTCOD EQU PSA+1036 01626000 PSAATCVT EQU PSA+1032 01627000 PSAPCPSW EQU PSA+1024 01628000 PSAPIR2 EQU PSA+1020 01629000 PSARV059 EQU PSA+1018 01630000 PSASVC13 EQU PSA+1016 01631000 PSALSFCC EQU PSA+1012 01632000 PSASFACC EQU PSA+1008 01633000 PSASTOP EQU PSA+992 01634000 PSASTART EQU PSA+976 01635000 PSARSPSW EQU PSA+968 01636000 PSASRPSW EQU PSA+960 01637000 PSARV045 EQU PSA+892 01638000 PSARV044 EQU PSA+888 01639000 PSARV043 EQU PSA+884 01640000 PSARV042 EQU PSA+880 01641000 PSARV041 EQU PSA+876 01642000 PSARV040 EQU PSA+872 01643000 PSARV025 EQU PSA+868 01644000 PSADSSED EQU PSA+868 01645000 PSADSSPR EQU PSA+864 01646000 PSADSSFW EQU PSA+860 01647000 PSADSS14 EQU PSA+856 01648000 PSADSSPP EQU PSA+848 01649000 PSADSSRP EQU PSA+840 01650000 PSADSS05 EQU PSADSSF4 01651000 PSADSS10 EQU PSADSSF4 01652000 PSADSSVE EQU PSADSSF4 01653000 PSADSSDE EQU PSADSSF4 01654000 PSADSSC0 EQU PSADSSF4 01655000 PSADSSIE EQU PSADSSF4 01656000 PSADSS12 EQU PSADSSF4 01657000 PSADSSRC EQU PSADSSF4 01658000 PSARV057 EQU PSADSSF3 01659000 PSARV056 EQU PSADSSF3 01660000 PSARV055 EQU PSADSSF3 01661000 PSADSSMC EQU PSADSSF3 01662000 PSADSSRW EQU PSADSSF3 01663000 PSADSSNM EQU PSADSSF3 01664000 PSADSSES EQU PSADSSF3 01665000 PSADSSGP EQU PSADSSF3 01666000 PSADSSF2 EQU PSADSSFL+1 01667000 PSADSSPI EQU PSADSSF1 01668000 PSADSSOI EQU PSADSSF1 01669000 PSADSSSP EQU PSADSSF1 01670000 PSADSSTP EQU PSADSSF1 01671000 PSADSSDW EQU PSADSSF1 01672000 PSADSSDD EQU PSADSSF1 01673000 PSADSSDM EQU PSADSSF1 01674000 PSADSSMV EQU PSADSSF1 01675000 PSADSSTS EQU PSA+816 01676000 PSADSSWK EQU PSA+812 01677000 PSADSSR3 EQU PSA+808 01678000 PSADSSR2 EQU PSA+804 01679000 PSADSSRS EQU PSA+800 01680000 PSASTOR EQU PSA+796 01681000 PSACPUSA EQU PSA+794 01682000 PSAVSTAP EQU PSA+792 01683000 PSAWKVAP EQU PSA+788 01684000 PSAWKRAP EQU PSA+784 01685000 PSAMCHIC EQU PSA+783 01686000 PSARV061 EQU PSA+782 01687000 PSASYMSK EQU PSA+781 01688000 PSAMCHFL EQU PSA+780 01689000 PSACR0 EQU PSA+776 01690000 PSAPSWSV EQU PSA+768 01691000 PSALITA EQU PSA+764 01692000 PSACLHS EQU PSAHLHI 01693000 PSALKR15 EQU PSALKSA+60 01694000 PSALKR14 EQU PSALKSA+56 01695000 PSALKR13 EQU PSALKSA+52 01696000 PSALKR12 EQU PSALKSA+48 01697000 PSALKR11 EQU PSALKSA+44 01698000 PSALKR10 EQU PSALKSA+40 01699000 PSALKR9 EQU PSALKSA+36 01700000 PSALKR8 EQU PSALKSA+32 01701000 PSALKR7 EQU PSALKSA+28 01702000 PSALKR6 EQU PSALKSA+24 01703000 PSALKR5 EQU PSALKSA+20 01704000 PSALKR4 EQU PSALKSA+16 01705000 PSALKR3 EQU PSALKSA+12 01706000 PSALKR2 EQU PSALKSA+8 01707000 PSALKR1 EQU PSALKSA+4 01708000 PSALKR0 EQU PSALKSA 01709000 PSARV023 EQU PSACLHT+52 01710000 PSALOCAL EQU PSACLHT+48 01711000 PSACMSL EQU PSACLHT+44 01712000 PSAOPTL EQU PSACLHT+40 01713000 PSATPACL EQU PSACLHT+36 01714000 PSATPDNL EQU PSACLHT+32 01715000 PSATPNCL EQU PSACLHT+28 01716000 PSAIOSLL EQU PSACLHT+24 01717000 PSAIOSUL EQU PSACLHT+20 01718000 PSAIOSCL EQU PSACLHT+16 01719000 PSAIOSSL EQU PSACLHT+12 01720000 PSASALCL EQU PSACLHT+8 01721000 PSAASML EQU PSACLHT+4 01722000 PSADISPL EQU PSACLHT 01723000 PSASRSA EQU PSA+636 01724000 PSARV050 EQU PSA+634 01725000 PSADSSGO EQU PSA+633 01726000 PSARECUR EQU PSA+632 01727000 PSAHLHIS EQU PSA+628 01728000 PSAIPCSA EQU PSA+624 01729000 @NM00144 EQU PSA+621 01730000 PSAIPCDM EQU PSA+620 01731000 PSAIPCD EQU PSA+616 01732000 @NM00143 EQU PSA+613 01733000 PSAIPCRM EQU PSA+612 01734000 PSAIPCR EQU PSA+608 01735000 PSAMCHEX EQU PSA+600 01736000 PSAMPSW EQU PSA+592 01737000 PSAEXPS2 EQU PSA+584 01738000 PSAEXPS1 EQU PSA+576 01739000 PSAPIREG EQU PSA+572 01740000 PSARSREG EQU PSA+568 01741000 PSAGPREG EQU PSA+556 01742000 PSARV022 EQU PSASUP4 01743000 PSARV021 EQU PSASUP4 01744000 PSARV020 EQU PSASUP4 01745000 PSARV019 EQU PSASUP4 01746000 PSARV018 EQU PSASUP4 01747000 PSARV017 EQU PSASUP4 01748000 PSARV016 EQU PSASUP4 01749000 PSARV015 EQU PSASUP4 01750000 PSARV014 EQU PSASUP3 01751000 PSARV013 EQU PSASUP3 01752000 PSARV012 EQU PSASUP3 01753000 PSAESTA EQU PSASUP3 01754000 PSASPR EQU PSASUP3 01755000 PSAPSREG EQU PSASUP3 01756000 PSAPI2 EQU PSASUP3 01757000 PSAIOSUP EQU PSASUP3 01758000 PSALCR EQU PSASUP2 01759000 PSARTM EQU PSASUP2 01760000 PSAACR EQU PSASUP2 01761000 PSAIPCE2 EQU PSASUP2 01762000 PSAIPCES EQU PSASUP2 01763000 PSAIPCEC EQU PSASUP2 01764000 PSAGTF EQU PSASUP2 01765000 PSAIPCRI EQU PSASUP2 01766000 PSATYPE6 EQU PSASUP1 01767000 PSATCTL EQU PSASUP1 01768000 PSADISP EQU PSASUP1 01769000 PSALOCK EQU PSASUP1 01770000 PSAPI EQU PSASUP1 01771000 PSAEXT EQU PSASUP1 01772000 PSASVC EQU PSASUP1 01773000 PSAIO EQU PSASUP1 01774000 PSAAOLD EQU PSA+548 01775000 PSAANEW EQU PSA+544 01776000 PSATOLD EQU PSA+540 01777000 PSATNEW EQU PSA+536 01778000 PSALCCAR EQU PSA+532 01779000 PSALCCAV EQU PSA+528 01780000 PSAPCCAR EQU PSA+524 01781000 PSAPCCAV EQU PSA+520 01782000 PSACPULA EQU PSA+518 01783000 PSACPUPA EQU PSA+516 01784000 PSAPSA EQU PSA+512 01785000 FLCHDEND EQU PSA+512 01786000 FLCCRSAV EQU FLCMCLA+280 01787000 FLCGRSAV EQU FLCMCLA+216 01788000 FLCFPSAV EQU FLCMCLA+184 01789000 FLCFLA EQU FLCMCLA+88 01790000 FLCRGNCD EQU FLCMCLA+84 01791000 FLCFSAA EQU FLCFSA+1 01792000 @NM00142 EQU FLCFSA 01793000 @NM00141 EQU FLCMCLA+72 01794000 FLCMCIC EQU FLCMCLA+64 01795000 @NM00140 EQU FLCMCLA+20 01796000 FLCIOAA EQU FLCIOA+1 01797000 @NM00139 EQU FLCIOA 01798000 @NM00138 EQU FLCMCLA+15 01799000 @NM00137 EQU FLCMCLA+14 01800000 @NM00136 EQU FLCMCLA+12 01801000 FLCLCL EQU FLCMCLA+8 01802000 FLCIOELA EQU FLCIOEL+1 01803000 @NM00135 EQU FLCIOEL 01804000 FLCCHNID EQU FLCMCLA 01805000 @NM00134 EQU PSA+160 01806000 FLCMTRCD EQU PSA+157 01807000 @NM00133 EQU PSA+156 01808000 FLCPERA EQU FLCPER+1 01809000 @NM00132 EQU FLCPER 01810000 @NM00131 EQU PSA+151 01811000 FLCPERCD EQU PSA+150 01812000 FLCMCNUM EQU PSA+149 01813000 @NM00130 EQU PSA+148 01814000 FLCTEAA EQU FLCTEA+1 01815000 @NM00129 EQU FLCTEA 01816000 PSAPIPC EQU PSAPICOD 01817000 PSAPIMC EQU PSAPICOD 01818000 PSAPIPER EQU PSAPICOD 01819000 PSARV049 EQU FLCPICOD 01820000 FLCPILCB EQU FLCPIILC 01821000 @NM00128 EQU FLCPIILC 01822000 @NM00127 EQU PSAEPPSW 01823000 FLCSVCN EQU PSAESPSW+2 01824000 FLCSILCB EQU FLCSVILC 01825000 @NM00126 EQU FLCSVILC 01826000 @NM00125 EQU PSAESPSW 01827000 FLCEICOD EQU PSAEEPSW+2 01828000 PSASPAD EQU PSAEEPSW 01829000 @NM00124 EQU PSA+128 01830000 FLCINPSW EQU PSA+120 01831000 FLCMNPSW EQU PSA+112 01832000 FLCPNPSW EQU PSA+104 01833000 FLCSNPSW EQU PSA+96 01834000 FLCENPSW EQU PSA+88 01835000 FLCTRACE EQU PSA+84 01836000 FLCTIMER EQU PSA+80 01837000 FLCCAW EQU PSA+72 01838000 FLCCSW EQU PSA+64 01839000 FLCIOPSW EQU PSA+56 01840000 FLCMOPSW EQU PSA+48 01841000 FLCPOPSW EQU PSA+40 01842000 FLCSOPSW EQU PSA+32 01843000 FLCEOPSW EQU PSA+24 01844000 @NM00123 EQU FLCICCW2+4 01845000 FLCICCW1 EQU FLCROPSW 01846000 FLCIPPSW EQU FLCRNPSW 01847000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01848000 @ENDDATA EQU * 01849000 END BLSSCVT,(C'PLS0355',0701,78059) 01850000