TITLE '****IEAVFREE----PAGE FREE ROUTINE**** *00001000 ' 00002000 IEAVFREE CSECT 00003000 USING *,15 00004000 MODID BR=NO 00005000 IEAVFRE2 DS 0H 00006000 ENTRY IEAVFRE2 00007000 * CIWWRK4=FIXBASE; /* SAVE BASE REG FOR PGFIX */ 00008000 ST FIXBASE,CIWWRK4(,CIWAPTR) 0036 00009000 * GENERATE; 0037 00010000 BALR BASEREG,0 00011000 USING *,BASEREG 00012000 * CIWRETRN=RRETURN; /* SAVE RETURN REG */ 00013000 ST RRETURN,CIWRETRN(,CIWAPTR) 0038 00014000 * RCAFREE='1'B; /* SET CSECT INFO IN RCA */ 00015000 L @06,RCAPTR(,PVTPTR) 0039 00016000 OI RCAFREE(@06),B'00000001' 0039 00017000 * RCACSECT=RCACPGFR; 0040 00018000 MVI RCACSECT(@06),X'15' 0040 00019000 * CIWCURPG=ZERO; /* CLEAR WORK AREAS */ 00020000 SLR @06,@06 0041 00021000 ST @06,CIWCURPG(,CIWAPTR) 0041 00022000 * CIWLSTPG=ZERO; 0042 00023000 * 0042 00024000 ST @06,CIWLSTPG(,CIWAPTR) 0042 00025000 * /*****************************************************************/ 00026000 * /* */ 00027000 * /* THIS LOOP CONTROLS THE PROCESSING OF MULTIPLE VSL ENTRIES */ 00028000 * /* */ 00029000 * /*****************************************************************/ 00030000 * 0043 00031000 *VSLLOOP: 0043 00032000 * IF CIWEND1A^>CIWSTRTA THEN /* CHECK FOR ADDRESS WRAPAROUND */ 00033000 VSLLOOP CLC CIWEND1A(3,CIWAPTR),CIWSTRTA(CIWAPTR) 0043 00034000 BNH @RT00043 0043 00035000 * GOTO NORC16; /* IF PAGFIX IS CALLER AND 0044 00036000 * CIWCUVSL= CIWWRK1, NO R.C.16 */ 00037000 * XOFFF=ANDMASK; /* PUT AND VALUE IN REG */ 00038000 L XOFFF,@CF01598 0045 00039000 * LASTPAGE=CIWEND1-1; /* GET TOP @ OF LAST PAGE IN 0046 00040000 * CURRENT VSL */ 00041000 L LASTPAGE,CIWEND1(,CIWAPTR) 0046 00042000 BCTR LASTPAGE,0 0046 00043000 * LASTPAGE=LASTPAGE&XOFFF; /* ZERO HIGH ORDER BYTE AND ROUND 00044000 * @ TO PAGE BDY */ 00045000 NR LASTPAGE,XOFFF 0047 00046000 * CIWLSTPG=LASTPAGE; /* STORE @ LAST PAGE IN CIWA */ 00047000 ST LASTPAGE,CIWLSTPG(,CIWAPTR) 0048 00048000 * TESTADDR=CIWSTRTA&XOFFF; /* START @ IN CURRENT VSL ENTRY, 00049000 * ROUNDED TO A PAGE BOUNDARY */ 00050000 L TESTADDR,CIWSTRTA-1(,CIWAPTR) 0049 00051000 LA TESTADDR,0(,TESTADDR) 0049 00052000 NR TESTADDR,XOFFF 0049 00053000 * CIWCURPG=TESTADDR; 0050 00054000 ST TESTADDR,CIWCURPG(,CIWAPTR) 0050 00055000 * 0051 00056000 * /*****************************************************************/ 00057000 * /* */ 00058000 * /* THIS LOOP PROCESSES ALL THE PAGES ENCOMPASSED BY CURRENT VSL. */ 00059000 * /* THEN, FOR LIST REQUESTS, THE VSLLOOP PROVIDES THE NEXT VSL TO */ 00060000 * /* BE PROCESSED. */ 00061000 * /* */ 00062000 * /*****************************************************************/ 00063000 * 0051 00064000 * DO WHILE(CIWCURPG^>CIWLSTPG); 0051 00065000 B @DE00051 0051 00066000 @DL00051 DS 0H 0052 00067000 * IF CIWFIXC='1'B THEN /* IF PGFIX IS CALLER, SPECIAL 0052 00068000 * PROCESSING IS NECESSARY */ 00069000 TM CIWFIXC(CIWAPTR),B'00000010' 0052 00070000 BNO @RF00052 0052 00071000 * DO; 0053 00072000 * 0053 00073000 * /***********************************************************/ 00074000 * /* */ 00075000 * /* CHECK TO SEE IF PGFREE HAS REACHED THE POINT WHERE PGFIX*/ 00076000 * /* PROCESSING WAS TERMINATED. IF SO, NO MORE PROCESSING */ 00077000 * /* REQUIRED. */ 00078000 * /* */ 00079000 * /***********************************************************/ 00080000 * 0054 00081000 * IF CIWCUVSL=CIWWRK1 THEN 0054 00082000 CLC CIWCUVSL(4,CIWAPTR),CIWWRK1(CIWAPTR) 0054 00083000 BNE @RF00054 0054 00084000 * IF CIWWRK2=ZERO|CIWCURPG=CIWWRK2 THEN 0055 00085000 L @06,CIWWRK2(,CIWAPTR) 0055 00086000 LTR @06,@06 0055 00087000 BZ @RT00055 0055 00088000 C @06,CIWCURPG(,CIWAPTR) 0055 00089000 BE @RT00055 0055 00090000 * GOTO FRERETRN; /* GO TO EXIT PROCESSING */ 00091000 * CURPG=CIWCURPG; /* IF PGFIX TERM PT. HAS NOT BEEN 00092000 * REACHED, SEE IF THE PAGE IS IN 00093000 * REAL STORAGE */ 00094000 @RF00054 L CURPG,CIWCURPG(,CIWAPTR) 0057 00095000 * GENERATE(LRA RBN,0(CURPG)); 0058 00096000 LRA RBN,0(CURPG) 00097000 * BC(7,PAGELOOP); /* IF PAGE NOT IN STORAGE, PGFIX 00098000 * HAS PERFORMED NECESSARY 0059 00099000 * CLEAN-UP. GET NEXT PAGE */ 00100000 BC 7,PAGELOOP 0059 00101000 * END; 0060 00102000 * ELSE /* OTHERWISE: */ 00103000 * DO; /* IF PGFIX IS NOT CALLER AND 0061 00104000 * PAGE NOT IN STORAGE, GO TO 0061 00105000 * PURGE PROCESSING */ 00106000 B @RC00052 0061 00107000 @RF00052 DS 0H 0062 00108000 * CURPG=CIWCURPG; 0062 00109000 L CURPG,CIWCURPG(,CIWAPTR) 0062 00110000 * GENERATE(LRA RBN,0(CURPG)); 0063 00111000 LRA RBN,0(CURPG) 00112000 * BC(8,INSTG); 0064 00113000 BC 8,INSTG 0064 00114000 * BC(2,PAGELOOP); 0065 00115000 BC 2,PAGELOOP 0065 00116000 * CIWRETC=RC4; /* IF CURRENT PAGE IN INVALID 0066 00117000 * SEGM ENT, TAKE ERROR EXIT */ 00118000 MVI CIWRETC(CIWAPTR),X'04' 0066 00119000 * GOTO FREERROR; /* ERROR PROCESSING */ 00120000 B FREERROR 0067 00121000 * END; 0068 00122000 * 0069 00123000 * /***************************************************************/ 00124000 * /* */ 00125000 * /* IN-STORAGE PROCESSING -- IF PAGE IS IN NUCLEUS, SQA, LSQA, */ 00126000 * /* OR V=R ALLOCATED, IT IS NOT PROCESSED. OTHERWISE, PROCESS */ 00127000 * /* THE PAGE. */ 00128000 * /* */ 00129000 * /***************************************************************/ 00130000 * 0069 00131000 *INSTG: 0069 00132000 * IF VBN^PCBFQP=UNQ;/* SET 0186 00541000 * FIELDS IN RELATED PCB FOR PCB 00542000 * MANAGER */ 00543000 MVC PCBFQP(4,@06),UNQ 0186 00544000 * PARMREG1=PCBRLPA; 0187 00545000 LR PARMREG1,@06 0187 00546000 * PARMREG0=PCBDEFRN; 0188 00547000 LA PARMREG0,24 0188 00548000 * CALL IEAVPCB;/* QUEUE RELATED 0189 00549000 * PCB TO GFA DEFER Q */ 00550000 L @15,PVTPCB(,PVTPTR) 0189 00551000 BALR @14,@15 0189 00552000 * END; 0190 00553000 * ELSE 0191 00554000 * ;/* NO RELATED PCB */ 00555000 @RF00183 DS 0H 0192 00556000 * ELSE/* IF FOUND PCB DOES NOT = QUEUED 00557000 * PCB: */ 00558000 * DO; 0192 00559000 B @RC00182 0192 00560000 @RF00182 DS 0H 0193 00561000 * RFY 0193 00562000 * SAVEDPCB RSTD; 0193 00563000 * SAVEDPCB=CURRPCB; 0194 00564000 LR SAVEDPCB,CURRPCB 0194 00565000 *TESTREL: 0195 00566000 * IF CURRPCB->PCBRLPA=PCBPTR THEN/* 00567000 * IF THIS RELATED PCB IS FOUND 00568000 * PCB */ 00569000 TESTREL L @06,PCBRLPA-1(,CURRPCB) 0195 00570000 LA @06,0(,@06) 0195 00571000 CR PCBPTR,@06 0195 00572000 BNE @RF00195 0195 00573000 * DO;/* SET UP FOUND PCB AS NOT 0196 00574000 * QUEUED */ 00575000 * CURRPCB->PCBRLPA=PCBRLPA; 0197 00576000 MVC PCBRLPA(3,CURRPCB),PCBRLPA(PCBPTR) 0197 00577000 * PCBFQP=UNQ; 0198 00578000 MVC PCBFQP(4,PCBPTR),UNQ 0198 00579000 * END; 0199 00580000 * ELSE/* IF NOT FOUND PCB YET, */ 00581000 * DO; 0200 00582000 B @RC00195 0200 00583000 @RF00195 DS 0H 0201 00584000 * CURRPCB=CURRPCB->PCBRLPA; 0201 00585000 L @06,PCBRLPA-1(,CURRPCB) 0201 00586000 LA @06,0(,@06) 0201 00587000 LR CURRPCB,@06 0201 00588000 * GOTO TESTREL;/* KEEP SEARCHING 00589000 * RELATED PCBS FOR FOUND PCB */ 00590000 B TESTREL 0202 00591000 * END; 0203 00592000 * CURRPCB=SAVEDPCB; 0204 00593000 @RC00195 LR CURRPCB,SAVEDPCB 0204 00594000 * RFY 0205 00595000 * SAVEDPCB UNRSTD; 0205 00596000 * END; 0206 00597000 * PARMREG1=PCBPTR; 0207 00598000 @RC00182 LR PARMREG1,PCBPTR 0207 00599000 * PARMREG0=PCBFREQN; 0208 00600000 LA PARMREG0,16 0208 00601000 * PCBPTR=CURRPCB->PCBFQPA; 0209 00602000 L PCBPTR,PCBFQPA-1(,CURRPCB) 0209 00603000 LA PCBPTR,0(,PCBPTR) 0209 00604000 * CALL IEAVPCB;/* GO TO PCB MGR TO SEND 00605000 * FOUND PCB TO FREE Q */ 00606000 L @15,PVTPCB(,PVTPTR) 0210 00607000 BALR @14,@15 0210 00608000 * IF STOPSRCH='0'B THEN/* IF NO 0211 00609000 * INDICATION TO STOP, */ 00610000 TM STOPSRCH(CIWAPTR),B'10000000' 0211 00611000 BZ @RT00211 0211 00612000 * GOTO PCBLOOP;/* REPEAT LOOP */ 00613000 * GOTO FRERETRN;/* OTHERWISE, RETURN 0213 00614000 * PROCESSING */ 00615000 B FRERETRN 0213 00616000 * END; 0214 00617000 * 0215 00618000 * /*****************************************/ 00619000 * /* */ 00620000 * /* IF PCB COUNT IN ROOT = 0, FREE THE ECB*/ 00621000 * /* IF NECESSARY AND RETURN ROOT PCB TO */ 00622000 * /* FREE QUEUE */ 00623000 * /* */ 00624000 * /*****************************************/ 00625000 * 0215 00626000 * ELSE 0215 00627000 * DO; /* IF INPUT ECB EXISTS, IS IN 0215 00628000 * STORAGE, IS NOT IN NUCLEUS, 0215 00629000 * SQA OR LSQA, IS NOT V=R 0215 00630000 * ALLOCATED--- FREE IT */ 00631000 @RF00180 DS 0H 0216 00632000 * STOPSRCH='1'B; 0216 00633000 OI STOPSRCH(CIWAPTR),B'10000000' 0216 00634000 * IF PCBRFECB='1'B THEN/* FREE THE ECB 00635000 * IF 'FREE ECB' FLAG IS ON */ 00636000 L @06,PCBRPTR-1(,PCBPTR) 0217 00637000 TM PCBRFECB(@06),B'00000010' 0217 00638000 BNO @RF00217 0217 00639000 * DO; 0218 00640000 * ECBPTR=CIWECB; 0219 00641000 L ECBPTR,CIWECB(,CIWAPTR) 0219 00642000 * GENERATE; 0220 00643000 LRA ECBPTR,0(ECBPTR) 00644000 * BC(7,FREEROOT); 0221 00645000 BC 7,FREEROOT 0221 00646000 * IF ECBVBN^PCBFQP=UNQ;/* MAKE ROOT PCB 00736000 * LOOK LIKE A REGULAR PCB */ 00737000 @RF00217 DS 0H 0246 00738000 FREEROOT L @06,PCBRPTR-1(,PCBPTR) 0246 00739000 LA @06,0(,@06) 0246 00740000 MVC PCBFQP(4,@06),UNQ 0246 00741000 * PARMREG1=PCBRPTR; 0247 00742000 LR PARMREG1,@06 0247 00743000 * PARMREG0=PCBFREQN; 0248 00744000 LA PARMREG0,16 0248 00745000 * CALL IEAVPCB;/* SEND ROOT PCB TO FREE 00746000 * Q */ 00747000 L @15,PVTPCB(,PVTPTR) 0249 00748000 BALR @14,@15 0249 00749000 * GOTO DEQPCB;/* DEQUEUE THE PCB */ 00750000 B DEQPCB 0250 00751000 * END; 0251 00752000 * END; 0252 00753000 * 0253 00754000 * /*********************************************/ 00755000 * /* */ 00756000 * /* PROCESS I/O ACTIVE QUEUE PCB */ 00757000 * /* */ 00758000 * /*********************************************/ 00759000 * 0253 00760000 * ELSE /* I/O QUEUE BEING PROCESSED */ 00761000 * DO; 0253 00762000 @RF00177 DS 0H 0254 00763000 * IF PCBVBN^=0 THEN/* IF PCBVBN HASN'T BEEN 00764000 * ZEROED */ 00765000 LH @06,PCBVBN(,PCBPTR) 0254 00766000 N @06,@CF01677 0254 00767000 LTR @06,@06 0254 00768000 BZ @RF00254 0254 00769000 * DO; 0255 00770000 * PFTEPTR=PCBRBN+PVTPFTP;/* GET 0256 00771000 * ASSOCIATED PFTE */ 00772000 LH PFTEPTR,PCBRBN(,PCBPTR) 0256 00773000 N PFTEPTR,@CF01677 0256 00774000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0256 00775000 * PFTFXCT=PFTFXCT-SVPCBFXC;/* DECREMENT 00776000 * PFTE FIX COUNT */ 00777000 LH @06,PFTFXCT(,PFTEPTR) 0257 00778000 SLR @06,SVPCBFXC 0257 00779000 STH @06,PFTFXCT(,PFTEPTR) 0257 00780000 * RFY 0258 00781000 * SVPCBFXC UNRSTD; 0258 00782000 * IF PFTFXCT=0 THEN/* IF PFTE FIX CT 0259 00783000 * WENT TO 0 */ 00784000 LTR @06,@06 0259 00785000 BNZ @RF00259 0259 00786000 * DO; 0260 00787000 * IF PFTQNDXPCBFQPA; 0282 00844000 NEXTPCB L PCBPTR,PCBFQPA-1(,CURRPCB) 0282 00845000 LA PCBPTR,0(,PCBPTR) 0282 00846000 * GOTO PCBLOOP; /* GO PROCESS PCB */ 00847000 B PCBLOOP 0283 00848000 * END; 0284 00849000 * 0285 00850000 * /*****************************************************************/ 00851000 * /* */ 00852000 * /* THIS IS THE EXIT CODE FOR NORMAL OR ERROR EXIT */ 00853000 * /* */ 00854000 * /*****************************************************************/ 00855000 * 0285 00856000 *FRERETRN: 0285 00857000 * CIWRETC=RC0; /* NORMAL RETURN */ 00858000 @RF00133 DS 0H 0285 00859000 @RF00132 DS 0H 0285 00860000 FRERETRN MVI CIWRETC(CIWAPTR),X'00' 0285 00861000 *FREERROR: 0286 00862000 * IF CIWRETC=RC4 THEN /* IF ERROR RETURN AND */ 00863000 FREERROR CLI CIWRETC(CIWAPTR),4 0286 00864000 BNE @RF00286 0286 00865000 * IF CIWINVSL^=ZERO THEN /* REQUEST NOT REGISTER FORM, */ 00866000 L @06,CIWINVSL(,CIWAPTR) 0287 00867000 LTR @06,@06 0287 00868000 BZ @RF00287 0287 00869000 * DO; 0288 00870000 * CIWIERR='1'B; /* SET ERROR FLAG IN CURRENT VSL 00871000 * ENTRY */ 00872000 OI CIWIERR(CIWAPTR),B'00010000' 0289 00873000 * CIWCUVSL->VSL=CIWVSL; /* STORE PROCESSED VSL OVER 0290 00874000 * CALLERS COPY @ZA26282*/ 00875000 L @06,CIWCUVSL(,CIWAPTR) 0290 00876000 MVC VSL(8,@06),CIWVSL(CIWAPTR) 0290 00877000 * END; 0291 00878000 * ELSE 0292 00879000 * ; /* REQUEST IN REG. FORM */ 00880000 @RF00287 DS 0H 0293 00881000 * ELSE 0293 00882000 * ; /* NON-ERROR RETURN */ 00883000 @RF00286 DS 0H 0294 00884000 * RCAFREE='0'B; /* RESET FRR FOOTPRINT */ 00885000 L @06,RCAPTR(,PVTPTR) 0294 00886000 NI RCAFREE(@06),B'11111110' 0294 00887000 * FIXBASE=CIWWRK4; /* RESTORE PGFIX BASE */ 00888000 L FIXBASE,CIWWRK4(,CIWAPTR) 0295 00889000 * RRETURN=CIWRETRN; /* RETURN REGISTER */ 00890000 L RRETURN,CIWRETRN(,CIWAPTR) 0296 00891000 * GOTO RRETURN; /* RETURN TO CALLER */ 00892000 BR RRETURN 0297 00893000 * 0298 00894000 * /*****************************************************************/ 00895000 * /* */ 00896000 * /* THIS IS THE PROCEDURE TO EXECUTE A DEFERRED RELEASE */ 00897000 * /* */ 00898000 * /*****************************************************************/ 00899000 * 0298 00900000 *RELSPROC: 0298 00901000 * PROC OPTIONS(NOSAVEAREA,DONTSAVE); 0298 00902000 RELSPROC DS 0H 0299 00903000 * CIWWRK5=RRETURN; /* SAVE RETURN REGISTER */ 00904000 ST RRETURN,CIWWRK5(,CIWAPTR) 0299 00905000 * CALL IEAVRELF; /* EXECUTE DEFERRED RELEASE */ 00906000 L @15,PVTPRELF(,PVTPTR) 0300 00907000 BALR @14,@15 0300 00908000 * RCACSECT=RCACPGFR; /* RESET RCA INFORMATION */ 00909000 L @06,RCAPTR(,PVTPTR) 0301 00910000 MVI RCACSECT(@06),X'15' 0301 00911000 * IF RELSRC^=ZERO THEN /* IF ERROR IN RELEASE, */ 00912000 LTR RELSRC,RELSRC 0302 00913000 BZ @RF00302 0302 00914000 * DO; /* RECORD INTERNAL RSM ERROR AND 00915000 * CONTINUE */ 00916000 * RCARCRD='0F'X; 0304 00917000 MVI RCARCRD(@06),X'0F' 0304 00918000 * GENERATE(ABEND X'C0D',,,SYSTEM); 0305 00919000 ABEND X'C0D',,,SYSTEM 00920000 * END; 0306 00921000 * RRETURN=CIWWRK5; /* RESTORE RETURN REGISTER */ 00922000 @RF00302 L RRETURN,CIWWRK5(,CIWAPTR) 0307 00923000 * END RELSPROC; 0308 00924000 @EL00002 DS 0H 0308 00925000 @EF00002 DS 0H 0308 00926000 @ER00002 BR @14 0308 00927000 * END IEAVFREE 0309 00928000 * 0309 00929000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00930000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00931000 */*%INCLUDE SYSLIB (IHARCA ) */ 00932000 */*%INCLUDE SYSLIB (IHAPCBR ) */ 00933000 */*%INCLUDE SYSLIB (IHAPCB ) */ 00934000 */*%INCLUDE SYSLIB (IHAPGTE ) */ 00935000 */*%INCLUDE SYSLIB (IHAXPTE ) */ 00936000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 00937000 */*%INCLUDE SYSLIB (IHAPVT ) */ 00938000 */*%INCLUDE SYSLIB (IEACIWA ) */ 00939000 */*%INCLUDE SYSLIB (IHARSMHD) */ 00940000 */*%INCLUDE SYSLIB (IHAVSL ) */ 00941000 */*%INCLUDE SYSLIB (FREEMAIN) */ 00942000 */*%INCLUDE SYSLIB (CVT ) */ 00943000 * 0309 00944000 * ; 0309 00945000 @DATA DS 0H 00946000 @CH01650 DC XL2'FFFF' 00947000 @DATD DSECT 00948000 DS 0F 00949000 IEAVFREE CSECT 00950000 DS 0F 00951000 @CF00036 DC F'8' 00952000 @CF01600 DC F'4096' 00953000 @CF01598 DC XL4'00FFF000' 00954000 @CF01677 DC XL4'0000FFFF' 00955000 @DATD DSECT 00956000 DS 0D 00957000 @ENDDATD EQU * 00958000 IEAVFREE CSECT 00959000 NOPR ((@ENDDATD-@DATD)*16) 00960000 DS 0F 00961000 @SIZDATD DC AL1(0) 00962000 DC AL3(@ENDDATD-@DATD) 00963000 @CV01629 DC V(NEXTVSL) 00964000 @CV01630 DC V(IEAVRFRA) 00965000 @CV01631 DC V(FOEDEL) 00966000 DS 0D 00967000 UNQ DS CL4 00968000 ORG UNQ 00969000 @NM00055 DC X'FF' 00970000 @NM00056 DC AL3(0) 00971000 ORG UNQ+4 00972000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00973000 @01 EQU 01 00974000 @02 EQU 02 00975000 @03 EQU 03 00976000 @04 EQU 04 00977000 @05 EQU 05 00978000 @06 EQU 06 00979000 @07 EQU 07 00980000 @08 EQU 08 00981000 @09 EQU 09 00982000 @10 EQU 10 00983000 @11 EQU 11 00984000 @12 EQU 12 00985000 @13 EQU 13 00986000 @14 EQU 14 00987000 @15 EQU 15 00988000 PFTLNGFX EQU @06 00989000 PCBPTR EQU @05 00990000 PTEPTR EQU @08 00991000 XPTEPTR EQU @12 00992000 PFTEPTR EQU @08 00993000 PVTPTR EQU @03 00994000 CIWAPTR EQU @04 00995000 RSMHDPTR EQU @02 00996000 VSLPTR EQU @09 00997000 PARMREG0 EQU @00 00998000 SVPCBFXC EQU @00 00999000 XOFFF EQU @00 01000000 SAVEDPCB EQU @01 01001000 PARMREG1 EQU @01 01002000 LASTPAGE EQU @07 01003000 TESTADDR EQU @07 01004000 CURPG EQU @07 01005000 RBN EQU @07 01006000 ECBPTR EQU @07 01007000 FIXBASE EQU @09 01008000 BASEREG EQU @09 01009000 RCAADD EQU @10 01010000 LEN EQU @11 01011000 CURRPCB EQU @12 01012000 RRETURN EQU @14 01013000 NVSLRC EQU @15 01014000 FOEDELRC EQU @15 01015000 RELSRC EQU @15 01016000 CIWASAV EQU @13 01017000 FINDPGRC EQU @15 01018000 PSAREG EQU @07 01019000 REG6 EQU @06 01020000 RGFAQ EQU @07 01021000 RIOACT EQU @08 01022000 PSA EQU 0 01023000 FLCRNPSW EQU PSA 01024000 FLCROPSW EQU PSA+8 01025000 FLCICCW2 EQU PSA+16 01026000 FLCCVT EQU FLCICCW2 01027000 PSAEEPSW EQU PSA+132 01028000 PSAESPSW EQU PSA+136 01029000 FLCSVILC EQU PSAESPSW+1 01030000 PSAEPPSW EQU PSA+140 01031000 FLCPIILC EQU PSAEPPSW+1 01032000 FLCPICOD EQU PSAEPPSW+2 01033000 PSAPICOD EQU FLCPICOD+1 01034000 FLCTEA EQU PSAEPPSW+4 01035000 FLCPER EQU PSA+152 01036000 FLCMCLA EQU PSA+168 01037000 FLCIOEL EQU FLCMCLA+4 01038000 FLCIOA EQU FLCMCLA+16 01039000 FLCFSA EQU FLCMCLA+80 01040000 PSAAOLD EQU PSA+548 01041000 PSASUPER EQU PSA+552 01042000 PSASUP1 EQU PSASUPER 01043000 PSASUP2 EQU PSASUPER+1 01044000 PSASUP3 EQU PSASUPER+2 01045000 PSASUP4 EQU PSASUPER+3 01046000 PSACLHT EQU PSA+640 01047000 PSALKSA EQU PSA+696 01048000 PSAHLHI EQU PSA+760 01049000 PSADSSFL EQU PSA+836 01050000 PSADSSF1 EQU PSADSSFL 01051000 PSADSSF3 EQU PSADSSFL+2 01052000 PSADSSF4 EQU PSADSSFL+3 01053000 PSARSVT EQU PSA+896 01054000 RCA EQU 0 01055000 RCANAME7 EQU RCA+8 01056000 RCACSECT EQU RCA+9 01057000 RCAFLAGS EQU RCA+10 01058000 RCARCRD EQU RCA+11 01059000 RCANAMES EQU RCA+12 01060000 RCANAME1 EQU RCANAMES 01061000 RCANAME2 EQU RCANAMES+1 01062000 RCANAME3 EQU RCANAMES+2 01063000 RCANAME4 EQU RCANAMES+3 01064000 RCANAME5 EQU RCANAMES+4 01065000 RCAFREE EQU RCANAME5 01066000 RCANAME6 EQU RCANAMES+5 01067000 PCBR EQU 0 01068000 PCBRTCB EQU PCBR 01069000 PCBRFLAG EQU PCBRTCB 01070000 PCBRINT EQU PCBRFLAG 01071000 PCBRLOAD EQU PCBRFLAG 01072000 PCBRFECB EQU PCBRFLAG 01073000 PCBRECB EQU PCBR+8 01074000 PCBRCNT EQU PCBR+16 01075000 PCB EQU 0 01076000 PCBFQP EQU PCB 01077000 PCBFQPA EQU PCBFQP+1 01078000 PCBBQP EQU PCB+4 01079000 PCBRTP EQU PCB+8 01080000 PCBFL1 EQU PCBRTP 01081000 PCBROOT EQU PCBFL1 01082000 PCBRTPA EQU PCBRTP+1 01083000 PCBRLP EQU PCB+12 01084000 PCBFXC EQU PCBRLP 01085000 PCBRLPA EQU PCBRLP+1 01086000 PCBXPT EQU PCB+16 01087000 PCBFL2 EQU PCBXPT 01088000 PCBPGT EQU PCB+20 01089000 PCBFL3 EQU PCBPGT 01090000 PCBRBN EQU PCB+24 01091000 PCBVBN EQU PCB+26 01092000 PCBBLOCK EQU PCB+28 01093000 PCBSRB EQU PCBBLOCK 01094000 PCBRB EQU PCBSRB 01095000 PCBASCB EQU PCB+32 01096000 PGTPTE EQU 0 01097000 PGTRSA EQU PGTPTE 01098000 PGTBITS EQU PGTRSA+1 01099000 XPTE EQU 0 01100000 XPTFLAGS EQU XPTE+2 01101000 XPTFLAG2 EQU XPTE+3 01102000 XPTLPID EQU XPTE+4 01103000 XPTLGN EQU XPTLPID 01104000 XPTLPN EQU XPTLPID+4 01105000 PFTE EQU 0 01106000 PFTPGID EQU PFTE 01107000 PFTASID EQU PFTPGID 01108000 PFTQPTRS EQU PFTE+4 01109000 PFTFXCT EQU PFTE+8 01110000 PFTFLAGS EQU PFTE+12 01111000 PFTFLAG1 EQU PFTFLAGS 01112000 PFTVRINT EQU PFTFLAG1 01113000 PFTLSQA EQU PFTFLAG1 01114000 PFTVRPLT EQU PFTFLAG1 01115000 PFTVRALC EQU PFTFLAG1 01116000 PFTOFINT EQU PFTFLAG1 01117000 PFTFLAG2 EQU PFTFLAGS+1 01118000 PFTDFRLS EQU PFTFLAG2 01119000 PFTVR EQU PFTFLAG2 01120000 PFTSTEAL EQU PFTFLAG2 01121000 PFTQNDX EQU PFTE+14 01122000 PVT EQU 0 01123000 PVTFLAG1 EQU PVT 01124000 PVTFLAG2 EQU PVT+1 01125000 PVTPFTP EQU PVT+12 01126000 PVTLPRIV EQU PVT+24 01127000 PVTPRCA EQU PVT+52 01128000 PVTPCIWA EQU PVT+64 01129000 PVTPCB EQU PVT+104 01130000 PVTPFP2 EQU PVT+116 01131000 PVTPRELF EQU PVT+216 01132000 PVTQS EQU PVT+304 01133000 PVTCFQF EQU PVTQS+8 01134000 PVTWSAX EQU PVT+344 01135000 PVTCNTFX EQU PVT+1830 01136000 PVTCOMFX EQU PVT+1834 01137000 PVTPCBQS EQU PVT+1852 01138000 PVTGFADF EQU PVTPCBQS+24 01139000 PVTCIOQF EQU PVTPCBQS+32 01140000 CIWA EQU 0 01141000 CIWFLG1 EQU CIWA 01142000 CIWFIXC EQU CIWFLG1 01143000 CIWOPFL1 EQU CIWA+2 01144000 CIWOPFL2 EQU CIWA+3 01145000 CIWRETC EQU CIWA+4 01146000 CIWINVSL EQU CIWA+8 01147000 CIWCUVSL EQU CIWA+12 01148000 CIWVSL EQU CIWA+16 01149000 CIWSTRT EQU CIWVSL 01150000 CIWIFLG1 EQU CIWSTRT 01151000 CIWSTRTA EQU CIWSTRT+1 01152000 CIWEND1 EQU CIWVSL+4 01153000 CIWIFLG2 EQU CIWEND1 01154000 CIWIERR EQU CIWIFLG2 01155000 CIWEND1A EQU CIWEND1+1 01156000 CIWTCB EQU CIWA+24 01157000 CIWECB EQU CIWA+28 01158000 CIWCURPG EQU CIWA+32 01159000 CIWLSTPG EQU CIWA+36 01160000 CIWRETRN EQU CIWA+40 01161000 CIWWRK1 EQU CIWA+44 01162000 CIWWRK2 EQU CIWA+48 01163000 CIWWRK4 EQU CIWA+56 01164000 CIWWRK5 EQU CIWA+60 01165000 RSMHD EQU 0 01166000 RSMFLG1 EQU RSMHD+12 01167000 RSMCNTFX EQU RSMHD+14 01168000 RSMQS EQU RSMHD+20 01169000 RSMLFQ EQU RSMQS 01170000 RSMLFQF EQU RSMLFQ 01171000 RSMLSQA EQU RSMQS+4 01172000 RSMLIOQ EQU RSMQS+8 01173000 RSMLIOQF EQU RSMLIOQ 01174000 VSL EQU 0 01175000 VSLSTRT EQU VSL 01176000 VSLFLAG1 EQU VSLSTRT 01177000 VSLEND EQU VSL+4 01178000 VSLFLAG2 EQU VSLEND 01179000 CVTMAP EQU 0 01180000 CVTDAR EQU CVTMAP+72 01181000 CVTFLGS1 EQU CVTDAR 01182000 CVTDCB EQU CVTMAP+116 01183000 CVTIOQET EQU CVTMAP+120 01184000 CVTIERLC EQU CVTMAP+144 01185000 CVTHEAD EQU CVTMAP+160 01186000 CVTSV76C EQU CVTHEAD 01187000 CVTOPTA EQU CVTMAP+182 01188000 CVTOPTB EQU CVTMAP+183 01189000 CVTGTF EQU CVTMAP+236 01190000 CVTGTFST EQU CVTGTF 01191000 CVTGTFS EQU CVTGTFST 01192000 CVTSTATE EQU CVTGTFST 01193000 CVTTMODE EQU CVTGTFST 01194000 CVTFORM EQU CVTGTFST 01195000 CVTAQAVT EQU CVTMAP+240 01196000 CVTTCMFG EQU CVTAQAVT 01197000 CVTVOLM2 EQU CVTMAP+244 01198000 CVTTATA EQU CVTVOLM2 01199000 CVTTSKS EQU CVTTATA 01200000 CVTVOLF2 EQU CVTTSKS 01201000 CVTTAT EQU CVTTATA+1 01202000 CVTATER EQU CVTMAP+248 01203000 CVTEXT1 EQU CVTMAP+252 01204000 CVTPURG EQU CVTMAP+260 01205000 CVTQMSG EQU CVTMAP+268 01206000 CVTDMSR EQU CVTMAP+272 01207000 CVTRSV37 EQU CVTDMSR 01208000 CVTDMSRF EQU CVTRSV37 01209000 CVTERPV EQU CVTMAP+316 01210000 CVTINTLA EQU CVTMAP+320 01211000 CVTAPF EQU CVTMAP+324 01212000 CVTEXT2 EQU CVTMAP+328 01213000 CVTHJES EQU CVTMAP+332 01214000 CVTPGSIA EQU CVTMAP+348 01215000 CVTA1F1 EQU CVTMAP+356 01216000 CVTSYSK EQU CVTMAP+357 01217000 CVTVOLM1 EQU CVTMAP+380 01218000 CVTVOLF1 EQU CVTVOLM1 01219000 CVTXTNT1 EQU 0 01220000 CVTXTNT2 EQU 0 01221000 CVTDSSV EQU CVTXTNT2 01222000 CVTFLGBT EQU CVTXTNT2+5 01223000 CVTQID EQU CVTXTNT2+24 01224000 CVTRV400 EQU CVTXTNT2+52 01225000 CVTRV409 EQU CVTXTNT2+53 01226000 CVTATCVT EQU CVTXTNT2+64 01227000 CVTRV429 EQU CVTXTNT2+84 01228000 CVTRV438 EQU CVTXTNT2+85 01229000 CVTRV457 EQU CVTXTNT2+112 01230000 CVTRV466 EQU CVTXTNT2+113 01231000 CVTFIX EQU 0 01232000 CVTRELNO EQU CVTFIX+252 01233000 IEAVPCB EQU 0 01234000 IEAVRELF EQU 0 01235000 IEAVPFP2 EQU 0 01236000 PGTEND EQU 0 01237000 PSARSVTE EQU PSARSVT 01238000 RCAPTR EQU PVTPRCA 01239000 PCBRPTR EQU PCBRTPA 01240000 CVTPTR EQU FLCCVT 01241000 CVTS01 EQU CVTPGSIA 01242000 CVTLPDIA EQU CVTS01+12 01243000 CVTDIRST EQU CVTLPDIA 01244000 CVTSLIDA EQU CVTS01+24 01245000 CVTCTLFG EQU CVTS01+50 01246000 CVTRV210 EQU CVTS01+424 01247000 CVTRV219 EQU CVTS01+425 01248000 CVTRV228 EQU CVTS01+426 01249000 CVTRV237 EQU CVTS01+427 01250000 CVTMFRTR EQU CVTS01+452 01251000 CVTRV262 EQU CVTS01+468 01252000 CVTRV271 EQU CVTS01+469 01253000 CVTRV280 EQU CVTS01+470 01254000 CVTRV289 EQU CVTS01+471 01255000 CVTGSDA EQU CVTS01+600 01256000 VBNS EQU CIWCURPG 01257000 VBN EQU VBNS+1 01258000 EVBN EQU CIWECB 01259000 ECBVBN EQU EVBN+1 01260000 WORKAREA EQU CIWWRK4 01261000 QBITS EQU WORKAREA 01262000 FREEFLGS EQU WORKAREA+1 01263000 STOPSRCH EQU FREEFLGS 01264000 FLC EQU PSA 01265000 * START UNREFERENCED COMPONENTS 01266000 H EQU EVBN+3 01267000 F EQU EVBN 01268000 D EQU VBNS+3 01269000 C EQU VBNS 01270000 CVTRV628 EQU CVTS01+728 01271000 CVTRV627 EQU CVTS01+724 01272000 CVTRV626 EQU CVTS01+720 01273000 CVTRV625 EQU CVTS01+716 01274000 CVTRV624 EQU CVTS01+712 01275000 CVTRV623 EQU CVTS01+708 01276000 CVTRV622 EQU CVTS01+704 01277000 CVTRV621 EQU CVTS01+700 01278000 CVTIHASU EQU CVTS01+696 01279000 CVTSUSP EQU CVTS01+692 01280000 CVTT6SVC EQU CVTS01+688 01281000 CVTCDAL EQU CVTS01+684 01282000 CVTTCTL EQU CVTS01+680 01283000 CVTRSUME EQU CVTS01+676 01284000 CVTJTERM EQU CVTS01+672 01285000 CVTASMRM EQU CVTS01+668 01286000 CVTTCASP EQU CVTS01+664 01287000 CVT0PT03 EQU CVTS01+660 01288000 CVT0PT0E EQU CVTS01+656 01289000 CVTRV609 EQU CVTS01+652 01290000 CVTCGK EQU CVTS01+648 01291000 CVTRAC EQU CVTS01+644 01292000 CVTHSM EQU CVTS01+640 01293000 CVTRV605 EQU CVTS01+636 01294000 CVTRV604 EQU CVTS01+632 01295000 CVTEFF02 EQU CVTS01+628 01296000 CVTCBBR EQU CVTS01+624 01297000 CVTSSCR EQU CVTS01+620 01298000 CVTEVENT EQU CVTS01+616 01299000 CVTCRCA EQU CVTS01+612 01300000 CVTTPIO EQU CVTS01+608 01301000 CVTADV EQU CVTS01+604 01302000 CVTGSDAB EQU CVTGSDA 01303000 CVTQV3 EQU CVTS01+596 01304000 CVTQV2 EQU CVTS01+592 01305000 CVTQV1 EQU CVTS01+588 01306000 CVTRPT EQU CVTS01+584 01307000 CVTSSRB EQU CVTS01+580 01308000 CVTCSDRL EQU CVTS01+576 01309000 CVTEXP1 EQU CVTS01+572 01310000 CVTRMPMT EQU CVTS01+568 01311000 CVTRMPTT EQU CVTS01+564 01312000 CVTVPSA EQU CVTS01+560 01313000 CVTVSTOP EQU CVTS01+556 01314000 CVTGTFR8 EQU CVTS01+552 01315000 CVTQUIT EQU CVTS01+548 01316000 CVTVACR EQU CVTS01+544 01317000 CVTWTCB EQU CVTS01+540 01318000 CVTSTPRS EQU CVTS01+536 01319000 CVT0PT02 EQU CVTS01+532 01320000 CVTDARCM EQU CVTS01+528 01321000 CVTIRECM EQU CVTS01+524 01322000 CVTJRECM EQU CVTS01+520 01323000 CVTVEMS0 EQU CVTS01+516 01324000 CVTSPFRR EQU CVTS01+512 01325000 CVTRLSTG EQU CVTS01+508 01326000 CVT0TC0A EQU CVTS01+504 01327000 CVTGMBR EQU CVTS01+500 01328000 CVTLFRM EQU CVTS01+496 01329000 CVTRMBR EQU CVTS01+492 01330000 CVTVIOP EQU CVTS01+488 01331000 CVTRV307 EQU CVTS01+486 01332000 CVTRV306 EQU CVTS01+484 01333000 CVTRV305 EQU CVTS01+482 01334000 CVTRV304 EQU CVTS01+480 01335000 CVTRV303 EQU CVTS01+478 01336000 CVTRV302 EQU CVTS01+476 01337000 CVTTRCA EQU CVTS01+472 01338000 CVTRV297 EQU CVTRV289 01339000 CVTRV296 EQU CVTRV289 01340000 CVTRV295 EQU CVTRV289 01341000 CVTRV294 EQU CVTRV289 01342000 CVTRV293 EQU CVTRV289 01343000 CVTRV292 EQU CVTRV289 01344000 CVTRV291 EQU CVTRV289 01345000 CVTRV290 EQU CVTRV289 01346000 CVTRV288 EQU CVTRV280 01347000 CVTRV287 EQU CVTRV280 01348000 CVTRV286 EQU CVTRV280 01349000 CVTRV285 EQU CVTRV280 01350000 CVTRV284 EQU CVTRV280 01351000 CVTRV283 EQU CVTRV280 01352000 CVTRV282 EQU CVTRV280 01353000 CVTRV281 EQU CVTRV280 01354000 CVTRV279 EQU CVTRV271 01355000 CVTRV278 EQU CVTRV271 01356000 CVTRV277 EQU CVTRV271 01357000 CVTRV276 EQU CVTRV271 01358000 CVTRV275 EQU CVTRV271 01359000 CVTRV274 EQU CVTRV271 01360000 CVTRV273 EQU CVTRV271 01361000 CVTRV272 EQU CVTRV271 01362000 CVTRV270 EQU CVTRV262 01363000 CVTRV269 EQU CVTRV262 01364000 CVTRV268 EQU CVTRV262 01365000 CVTRV267 EQU CVTRV262 01366000 CVTRV266 EQU CVTRV262 01367000 CVTRV265 EQU CVTRV262 01368000 CVTRV264 EQU CVTRV262 01369000 CVTRV263 EQU CVTRV262 01370000 CVTVFP EQU CVTS01+464 01371000 CVTVSI EQU CVTS01+460 01372000 CVTVPSIB EQU CVTS01+456 01373000 CVTMFACT EQU CVTMFRTR 01374000 CVTMFCTL EQU CVTS01+448 01375000 CVTPVBP EQU CVTS01+444 01376000 CVTPWI EQU CVTS01+440 01377000 CVTRV254 EQU CVTS01+438 01378000 CVTRV253 EQU CVTS01+436 01379000 CVTRV252 EQU CVTS01+434 01380000 CVTRV251 EQU CVTS01+433 01381000 CVTRV250 EQU CVTS01+432 01382000 CVTRV249 EQU CVTS01+431 01383000 CVTRV248 EQU CVTS01+430 01384000 CVTRV247 EQU CVTS01+429 01385000 CVTRV246 EQU CVTS01+428 01386000 CVTRV245 EQU CVTRV237 01387000 CVTRV244 EQU CVTRV237 01388000 CVTRV243 EQU CVTRV237 01389000 CVTRV242 EQU CVTRV237 01390000 CVTRV241 EQU CVTRV237 01391000 CVTRV240 EQU CVTRV237 01392000 CVTRV239 EQU CVTRV237 01393000 CVTRV238 EQU CVTRV237 01394000 CVTRV236 EQU CVTRV228 01395000 CVTRV235 EQU CVTRV228 01396000 CVTRV234 EQU CVTRV228 01397000 CVTRV233 EQU CVTRV228 01398000 CVTRV232 EQU CVTRV228 01399000 CVTRV231 EQU CVTRV228 01400000 CVTRV230 EQU CVTRV228 01401000 CVTRV229 EQU CVTRV228 01402000 CVTRV227 EQU CVTRV219 01403000 CVTRV226 EQU CVTRV219 01404000 CVTRV225 EQU CVTRV219 01405000 CVTRV224 EQU CVTRV219 01406000 CVTRV223 EQU CVTRV219 01407000 CVTRV222 EQU CVTRV219 01408000 CVTRV221 EQU CVTRV219 01409000 CVTRV220 EQU CVTRV219 01410000 CVTRV218 EQU CVTRV210 01411000 CVTRV217 EQU CVTRV210 01412000 CVTRV216 EQU CVTRV210 01413000 CVTRV215 EQU CVTRV210 01414000 CVTRV214 EQU CVTRV210 01415000 CVTRV213 EQU CVTRV210 01416000 CVTRV212 EQU CVTRV210 01417000 CVTRV211 EQU CVTRV210 01418000 CVTLCCAT EQU CVTS01+420 01419000 CVTPCCAT EQU CVTS01+416 01420000 CVTIPCRP EQU CVTS01+412 01421000 CVTIPCRI EQU CVTS01+408 01422000 CVTIPCDS EQU CVTS01+404 01423000 CVTAIDVT EQU CVTS01+400 01424000 CVTSSAP EQU CVTS01+396 01425000 CVTEHCIR EQU CVTS01+392 01426000 CVTEHDEF EQU CVTS01+388 01427000 CVTDAIR EQU CVTS01+384 01428000 CVTPERFM EQU CVTS01+380 01429000 CVT044R2 EQU CVTS01+376 01430000 CVTFETCH EQU CVTS01+372 01431000 CVTRSTWD EQU CVTS01+368 01432000 CVTSPOST EQU CVTS01+364 01433000 CVTIOBP EQU CVTS01+360 01434000 CVTASMVT EQU CVTS01+356 01435000 CVTRECRQ EQU CVTS01+352 01436000 CVTWSAC EQU CVTS01+348 01437000 CVTRV149 EQU CVTS01+344 01438000 CVTWSAL EQU CVTS01+340 01439000 CVTSPSA EQU CVTS01+336 01440000 CVTGLMN EQU CVTS01+332 01441000 CVTVEAC0 EQU CVTS01+328 01442000 CVT062R1 EQU CVTS01+324 01443000 CVTRPOST EQU CVTS01+320 01444000 CVTDQIQE EQU CVTS01+316 01445000 CVTCSD EQU CVTS01+312 01446000 CVTLKRMA EQU CVTS01+308 01447000 CVTRSPIE EQU CVTS01+304 01448000 CVTRENQ EQU CVTS01+300 01449000 CVTLQCB EQU CVTS01+296 01450000 CVTFQCB EQU CVTS01+292 01451000 CVTQCS01 EQU CVTS01+288 01452000 CVTAPFT EQU CVTS01+284 01453000 CVTPARRL EQU CVTS01+280 01454000 CVTVWAIT EQU CVTS01+276 01455000 CVTGSPL EQU CVTS01+272 01456000 CVTLSMQ EQU CVTS01+268 01457000 CVTGSMQ EQU CVTS01+264 01458000 CVTEXPRO EQU CVTS01+260 01459000 CVTOPCTP EQU CVTS01+256 01460000 CVTSIC EQU CVTS01+252 01461000 CVTTPIOS EQU CVTS01+248 01462000 CVTRTMS EQU CVTS01+244 01463000 CVTSDBF EQU CVTS01+240 01464000 CVTSCBP EQU CVTS01+236 01465000 CVTSDMP EQU CVTS01+232 01466000 CVTSV60 EQU CVTS01+228 01467000 CVTRTMCT EQU CVTS01+224 01468000 CVTASCBL EQU CVTS01+220 01469000 CVTASCBH EQU CVTS01+216 01470000 CVTGDA EQU CVTS01+212 01471000 CVTASVT EQU CVTS01+208 01472000 CVTVVMDI EQU CVTS01+204 01473000 CVTAQTOP EQU CVTS01+200 01474000 CVTIOSCS EQU CVTS01+196 01475000 CVTSDRM EQU CVTS01+192 01476000 CVTOPTE EQU CVTS01+188 01477000 CVTSTXU EQU CVTS01+184 01478000 CVTQUIS EQU CVTS01+180 01479000 CVTPARS EQU CVTS01+176 01480000 CVTS1EE EQU CVTS01+172 01481000 CVTFRAS EQU CVTS01+168 01482000 CVTQSAS EQU CVTS01+164 01483000 CVTCRAS EQU CVTS01+160 01484000 CVTCRMN EQU CVTS01+156 01485000 CVTDELCP EQU CVTS01+152 01486000 CVTFRECL EQU CVTS01+148 01487000 CVTGETCL EQU CVTS01+144 01488000 CVTBLDCP EQU CVTS01+140 01489000 CVTAUTHL EQU CVTS01+136 01490000 CVTSCAN EQU CVTS01+132 01491000 CVTRV144 EQU CVTS01+130 01492000 CVTMAXMP EQU CVTS01+128 01493000 CVTSTCK EQU CVTS01+124 01494000 CVTRV139 EQU CVTS01+123 01495000 CVTDSSAC EQU CVTS01+122 01496000 CVTRV513 EQU CVTS01+121 01497000 CVTIOSPL EQU CVTS01+120 01498000 CVTPTGT EQU CVTS01+116 01499000 CVTCSPIE EQU CVTS01+112 01500000 CVTSMFEX EQU CVTS01+108 01501000 CVTOLT0A EQU CVTS01+104 01502000 CVTSRBRT EQU CVTS01+100 01503000 CVTPUTL EQU CVTS01+96 01504000 CVTASCRL EQU CVTS01+92 01505000 CVTASCRF EQU CVTS01+88 01506000 CVTRV326 EQU CVTS01+84 01507000 CVTRV325 EQU CVTS01+80 01508000 CVTRV324 EQU CVTS01+76 01509000 CVT0VL01 EQU CVTS01+72 01510000 CVTSHRVM EQU CVTS01+68 01511000 CVTRV332 EQU CVTS01+64 01512000 CVTTAS EQU CVTS01+60 01513000 CVTRSCN EQU CVTS01+56 01514000 CVTTRAC2 EQU CVTS01+54 01515000 CVTTRACE EQU CVTS01+52 01516000 CVTAPG EQU CVTS01+51 01517000 CVTSDTRC EQU CVTCTLFG 01518000 CVTGTRCE EQU CVTCTLFG 01519000 CVTNOMP EQU CVTCTLFG 01520000 CVTRSV79 EQU CVTCTLFG 01521000 CVTDSTAT EQU CVTCTLFG 01522000 CVTRSV78 EQU CVTCTLFG 01523000 CVTRV333 EQU CVTCTLFG 01524000 CVTRV323 EQU CVTCTLFG 01525000 CVTSPVLK EQU CVTS01+49 01526000 CVTRSV77 EQU CVTS01+48 01527000 CVTRV331 EQU CVTS01+44 01528000 CVTRV330 EQU CVTS01+40 01529000 CVTRV329 EQU CVTS01+36 01530000 CVTRV328 EQU CVTS01+32 01531000 CVTRV322 EQU CVTS01+28 01532000 CVTSLID EQU CVTSLIDA+1 01533000 CVTSYLK EQU CVTSLIDA 01534000 CVTRV321 EQU CVTS01+20 01535000 CVTRV320 EQU CVTS01+16 01536000 CVTLPDIR EQU CVTLPDIA+1 01537000 CVTRSV69 EQU CVTDIRST 01538000 CVTRSV68 EQU CVTDIRST 01539000 CVTRSV67 EQU CVTDIRST 01540000 CVTRSV66 EQU CVTDIRST 01541000 CVTRSV65 EQU CVTDIRST 01542000 CVTRSV64 EQU CVTDIRST 01543000 CVTRSV63 EQU CVTDIRST 01544000 CVTDICOM EQU CVTDIRST 01545000 CVTPVTP EQU CVTS01+8 01546000 CVTLPDSR EQU CVTS01+4 01547000 CVTGETL EQU CVTS01 01548000 PSARSAV EQU PSARSVTE+60 01549000 PSARSTK EQU PSARSVTE+56 01550000 PSAESAV3 EQU PSARSVTE+52 01551000 PSAESTK3 EQU PSARSVTE+48 01552000 PSAESAV2 EQU PSARSVTE+44 01553000 PSAESTK2 EQU PSARSVTE+40 01554000 PSAESAV1 EQU PSARSVTE+36 01555000 PSAESTK1 EQU PSARSVTE+32 01556000 PSAPSAV EQU PSARSVTE+28 01557000 PSAPSTK EQU PSARSVTE+24 01558000 PSAMSAV EQU PSARSVTE+20 01559000 PSAMSTK EQU PSARSVTE+16 01560000 PSASSAV EQU PSARSVTE+12 01561000 PSASSTK EQU PSARSVTE+8 01562000 PSANSTK EQU PSARSVTE+4 01563000 PSACSTK EQU PSARSVTE 01564000 CVTLEVL EQU CVTRELNO+2 01565000 CVTNUMB EQU CVTRELNO 01566000 CVTMDL EQU CVTFIX+250 01567000 @NM00054 EQU CVTFIX+248 01568000 @NM00053 EQU CVTFIX 01569000 CVTRV482 EQU CVTXTNT2+128 01570000 CVTRV481 EQU CVTXTNT2+124 01571000 CVTRV480 EQU CVTXTNT2+120 01572000 CVTRV479 EQU CVTXTNT2+118 01573000 CVTRV478 EQU CVTXTNT2+117 01574000 CVTRV477 EQU CVTXTNT2+116 01575000 CVTRV476 EQU CVTXTNT2+115 01576000 CVTRV475 EQU CVTXTNT2+114 01577000 CVTRV474 EQU CVTRV466 01578000 CVTRV473 EQU CVTRV466 01579000 CVTRV472 EQU CVTRV466 01580000 CVTRV471 EQU CVTRV466 01581000 CVTRV470 EQU CVTRV466 01582000 CVTRV469 EQU CVTRV466 01583000 CVTRV468 EQU CVTRV466 01584000 CVTRV467 EQU CVTRV466 01585000 CVTRV465 EQU CVTRV457 01586000 CVTRV464 EQU CVTRV457 01587000 CVTRV463 EQU CVTRV457 01588000 CVTRV462 EQU CVTRV457 01589000 CVTRV461 EQU CVTRV457 01590000 CVTRV460 EQU CVTRV457 01591000 CVTRV459 EQU CVTRV457 01592000 CVTRV458 EQU CVTRV457 01593000 CVTRV456 EQU CVTXTNT2+108 01594000 CVTRV455 EQU CVTXTNT2+104 01595000 CVTRV454 EQU CVTXTNT2+100 01596000 CVTRV453 EQU CVTXTNT2+96 01597000 CVTRV452 EQU CVTXTNT2+94 01598000 CVTRV451 EQU CVTXTNT2+92 01599000 CVTRV450 EQU CVTXTNT2+90 01600000 CVTRV449 EQU CVTXTNT2+88 01601000 CVTRV448 EQU CVTXTNT2+87 01602000 CVTRV447 EQU CVTXTNT2+86 01603000 CVTRV446 EQU CVTRV438 01604000 CVTRV445 EQU CVTRV438 01605000 CVTRV444 EQU CVTRV438 01606000 CVTRV443 EQU CVTRV438 01607000 CVTRV442 EQU CVTRV438 01608000 CVTRV441 EQU CVTRV438 01609000 CVTRV440 EQU CVTRV438 01610000 CVTRV439 EQU CVTRV438 01611000 CVTRV437 EQU CVTRV429 01612000 CVTRV436 EQU CVTRV429 01613000 CVTRV435 EQU CVTRV429 01614000 CVTRV434 EQU CVTRV429 01615000 CVTRV433 EQU CVTRV429 01616000 CVTRV432 EQU CVTRV429 01617000 CVTRV431 EQU CVTRV429 01618000 CVTRV430 EQU CVTRV429 01619000 CVTRV428 EQU CVTXTNT2+80 01620000 CVTRV427 EQU CVTXTNT2+76 01621000 CVTRV426 EQU CVTXTNT2+72 01622000 CVTRV425 EQU CVTXTNT2+68 01623000 CVTATACT EQU CVTATCVT 01624000 CVTRV423 EQU CVTXTNT2+62 01625000 CVTRV422 EQU CVTXTNT2+60 01626000 CVTRV421 EQU CVTXTNT2+58 01627000 CVTRV420 EQU CVTXTNT2+56 01628000 CVTRV419 EQU CVTXTNT2+55 01629000 CVTRV418 EQU CVTXTNT2+54 01630000 CVTRV417 EQU CVTRV409 01631000 CVTRV416 EQU CVTRV409 01632000 CVTRV415 EQU CVTRV409 01633000 CVTRV414 EQU CVTRV409 01634000 CVTRV413 EQU CVTRV409 01635000 CVTRV412 EQU CVTRV409 01636000 CVTRV411 EQU CVTRV409 01637000 CVTRV410 EQU CVTRV409 01638000 CVTRV408 EQU CVTRV400 01639000 CVTRV407 EQU CVTRV400 01640000 CVTRV406 EQU CVTRV400 01641000 CVTRV405 EQU CVTRV400 01642000 CVTRV404 EQU CVTRV400 01643000 CVTRV403 EQU CVTRV400 01644000 CVTRV402 EQU CVTRV400 01645000 CVTRV401 EQU CVTRV400 01646000 CVTICB EQU CVTXTNT2+48 01647000 CVTSKTA EQU CVTXTNT2+44 01648000 CVTCCVT EQU CVTXTNT2+40 01649000 CVTRSV98 EQU CVTXTNT2+36 01650000 CVTRSV97 EQU CVTXTNT2+34 01651000 CVTRSV96 EQU CVTXTNT2+32 01652000 CVTOLTEP EQU CVTXTNT2+28 01653000 CVTQIDA EQU CVTQID+1 01654000 CVTRSV95 EQU CVTQID 01655000 CVTRSV94 EQU CVTXTNT2+20 01656000 CVTRSV93 EQU CVTXTNT2+16 01657000 CVTRSV92 EQU CVTXTNT2+12 01658000 CVTDEBVR EQU CVTXTNT2+8 01659000 CVTRSV91 EQU CVTXTNT2+6 01660000 CVTRSV9H EQU CVTFLGBT 01661000 CVTRSV9G EQU CVTFLGBT 01662000 CVTRSV9F EQU CVTFLGBT 01663000 CVTRSV9E EQU CVTFLGBT 01664000 CVTRSV9D EQU CVTFLGBT 01665000 CVTBAH EQU CVTFLGBT 01666000 CVTVME EQU CVTFLGBT 01667000 CVTNPE EQU CVTFLGBT 01668000 CVTNUCLS EQU CVTXTNT2+4 01669000 CVTDSSVA EQU CVTDSSV+1 01670000 CVTRSV89 EQU CVTDSSV 01671000 CVTRSV88 EQU CVTXTNT1+8 01672000 CVTRSV87 EQU CVTXTNT1+4 01673000 CVTFACHN EQU CVTXTNT1 01674000 CVTRV488 EQU CVTMAP+412 01675000 CVTRV487 EQU CVTMAP+408 01676000 CVTRV486 EQU CVTMAP+404 01677000 CVTRV485 EQU CVTMAP+400 01678000 CVTACTAP EQU CVTMAP+396 01679000 CVTAUTH EQU CVTMAP+392 01680000 CVTRV490 EQU CVTMAP+388 01681000 CVTSU EQU CVTMAP+384 01682000 CVTVOLT1 EQU CVTVOLM1+1 01683000 CVTVOLI1 EQU CVTVOLF1 01684000 CVTSTOA EQU CVTMAP+376 01685000 CVTRSV58 EQU CVTMAP+374 01686000 CVTRSV57 EQU CVTMAP+372 01687000 CVTDDCE EQU CVTMAP+368 01688000 CVTPNWFR EQU CVTMAP+364 01689000 CVTSMF EQU CVTMAP+360 01690000 CVTSULK EQU CVTMAP+358 01691000 CVTSLKO EQU CVTSYSK 01692000 CVTSLKP EQU CVTSYSK 01693000 CVTSLKQ EQU CVTSYSK 01694000 CVTSLKR EQU CVTSYSK 01695000 CVTRSV56 EQU CVTSYSK 01696000 CVTRSV55 EQU CVTSYSK 01697000 CVTRSV54 EQU CVTSYSK 01698000 CVTRSV53 EQU CVTSYSK 01699000 CVTRSV52 EQU CVTA1F1 01700000 CVTRSV51 EQU CVTA1F1 01701000 CVTRSV50 EQU CVTA1F1 01702000 CVTRSV49 EQU CVTA1F1 01703000 CVTRSV48 EQU CVTA1F1 01704000 CVTRSV47 EQU CVTA1F1 01705000 CVTSRSW EQU CVTA1F1 01706000 CVTPFSW EQU CVTA1F1 01707000 CVTPCVT EQU CVTMAP+352 01708000 CVTRSV46 EQU CVTMAP+344 01709000 CVTRSV45 EQU CVTMAP+340 01710000 CVTRSV44 EQU CVTMAP+338 01711000 CVTRSV43 EQU CVTMAP+336 01712000 CVTHJESA EQU CVTHJES+1 01713000 CVTRSV42 EQU CVTHJES 01714000 CVTEXT2A EQU CVTEXT2+1 01715000 CVTRSV41 EQU CVTEXT2 01716000 CVTAPFA EQU CVTAPF+1 01717000 CVTRSV40 EQU CVTAPF 01718000 CVTRV518 EQU CVTINTLA 01719000 CVTRV517 EQU CVTERPV 01720000 CVTEORM EQU CVTMAP+312 01721000 CVTMCHPR EQU CVTMAP+308 01722000 CVTTZ EQU CVTMAP+304 01723000 CVTJEPS EQU CVTMAP+300 01724000 CVTJESCT EQU CVTMAP+296 01725000 CVTMODE EQU CVTMAP+292 01726000 CVTPTRV EQU CVTMAP+288 01727000 CVTREAL EQU CVTMAP+284 01728000 CVTRSV39 EQU CVTMAP+280 01729000 CVTRSV38 EQU CVTMAP+276 01730000 CVTDMSRA EQU CVTDMSR+1 01731000 CVTRV634 EQU CVTDMSRF 01732000 CVTRV633 EQU CVTDMSRF 01733000 CVTRV632 EQU CVTDMSRF 01734000 CVTRV631 EQU CVTDMSRF 01735000 CVTRV630 EQU CVTDMSRF 01736000 CVTRV629 EQU CVTDMSRF 01737000 CVTUDUMP EQU CVTDMSRF 01738000 CVTSDUMP EQU CVTDMSRF 01739000 CVTQMSGA EQU CVTQMSG+1 01740000 CVTRSV36 EQU CVTQMSG 01741000 CVTAMFF EQU CVTMAP+264 01742000 CVTPURGA EQU CVTPURG+1 01743000 CVTRSV35 EQU CVTPURG 01744000 CVTCBSP EQU CVTMAP+256 01745000 CVTATERA EQU CVTATER+1 01746000 CVTSYST EQU CVTATER 01747000 CVTVOLT2 EQU CVTTAT 01748000 CVTVOLI2 EQU CVTVOLF2 01749000 CVTAQAVB EQU CVTAQAVT+1 01750000 CVTRSV34 EQU CVTTCMFG 01751000 CVTRSV33 EQU CVTTCMFG 01752000 CVTRSV32 EQU CVTTCMFG 01753000 CVTRSV31 EQU CVTTCMFG 01754000 CVTRSV30 EQU CVTTCMFG 01755000 CVTRSV29 EQU CVTTCMFG 01756000 CVTLDEV EQU CVTTCMFG 01757000 CVTTCRDY EQU CVTTCMFG 01758000 CVTGTFA EQU CVTGTF+1 01759000 CVTRSV27 EQU CVTGTFST 01760000 CVTRNIO EQU CVTGTFST 01761000 CVTUSR EQU CVTGTFST 01762000 CVTRV318 EQU CVTFORM 01763000 CVTRV317 EQU CVTTMODE 01764000 CVTRV316 EQU CVTSTATE 01765000 CVTRV315 EQU CVTGTFS 01766000 CVTGTFAV EQU CVTGTFS 01767000 CVT0SCR1 EQU CVTMAP+232 01768000 CVTRV515 EQU CVTMAP+228 01769000 CVTRMS EQU CVTMAP+224 01770000 CVTPATCH EQU CVTMAP+220 01771000 CVTTSCE EQU CVTMAP+216 01772000 CVTLNKSC EQU CVTMAP+214 01773000 CVTQABST EQU CVTMAP+212 01774000 CVTMDLDS EQU CVTMAP+208 01775000 CVTUSER EQU CVTMAP+204 01776000 CVTABEND EQU CVTMAP+200 01777000 CVTSMCA EQU CVTMAP+196 01778000 CVTRSV18 EQU CVTMAP+192 01779000 CVTQLPAQ EQU CVTMAP+188 01780000 CVTQCDSR EQU CVTMAP+184 01781000 CVTVS1B EQU CVTOPTB 01782000 CVTVS1A EQU CVTOPTB 01783000 CVTFP EQU CVTOPTB 01784000 CVTAPTHR EQU CVTOPTB 01785000 CVTNLOG EQU CVTOPTB 01786000 CVTTOD EQU CVTOPTB 01787000 CVTCTIMS EQU CVTOPTB 01788000 CVTPROT EQU CVTOPTB 01789000 CVTXPFP EQU CVTOPTA 01790000 CVTASCII EQU CVTOPTA 01791000 CVTRSV13 EQU CVTOPTA 01792000 CVTRSV12 EQU CVTOPTA 01793000 CVTNIP EQU CVTOPTA 01794000 CVTDDR EQU CVTOPTA 01795000 CVTAPR EQU CVTOPTA 01796000 CVTCCH EQU CVTOPTA 01797000 CVTSNCTR EQU CVTMAP+180 01798000 CVTQMWR EQU CVTMAP+176 01799000 CVTQOCR EQU CVTMAP+172 01800000 CVT1EF00 EQU CVTMAP+168 01801000 CVTMZ00 EQU CVTMAP+164 01802000 CVTSV76Q EQU CVTSV76C 01803000 CVTRSV11 EQU CVTMAP+156 01804000 CVT0PT01 EQU CVTMAP+152 01805000 CVTMSER EQU CVTMAP+148 01806000 CVTRV516 EQU CVTIERLC 01807000 CVTILCH EQU CVTMAP+140 01808000 CVT0DS EQU CVTMAP+136 01809000 CVTFBOSV EQU CVTMAP+132 01810000 CVTNUCB EQU CVTMAP+128 01811000 CVTIXAVL EQU CVTMAP+124 01812000 CVTSV76M EQU CVTIOQET 01813000 CVTDCBA EQU CVTMAP+117 01814000 CVTMVS2 EQU CVTDCB 01815000 CVT6DAT EQU CVTDCB 01816000 CVT4MPS EQU CVTDCB 01817000 CVTRSV09 EQU CVTDCB 01818000 CVT4MS1 EQU CVTDCB 01819000 CVT2SPS EQU CVTDCB 01820000 CVT1SSS EQU CVTDCB 01821000 CVTRSV08 EQU CVTDCB 01822000 CVTSTB EQU CVTMAP+112 01823000 CVTQTD00 EQU CVTMAP+108 01824000 CVTQTE00 EQU CVTMAP+104 01825000 CVTCUCB EQU CVTMAP+100 01826000 CVTSJQ EQU CVTMAP+96 01827000 CVTPBLDL EQU CVTMAP+92 01828000 CVTTPC EQU CVTMAP+88 01829000 CVTSVDCB EQU CVTMAP+84 01830000 CVTBRET EQU CVTMAP+82 01831000 CVTEXIT EQU CVTMAP+80 01832000 CVT0FN00 EQU CVTMAP+76 01833000 CVTDARA EQU CVTDAR+1 01834000 CVTRSV07 EQU CVTFLGS1 01835000 CVTRSV06 EQU CVTFLGS1 01836000 CVTRSV05 EQU CVTFLGS1 01837000 CVTRSV04 EQU CVTFLGS1 01838000 CVTRSV03 EQU CVTFLGS1 01839000 CVTRSV02 EQU CVTFLGS1 01840000 CVTRSV01 EQU CVTFLGS1 01841000 CVTDMPLK EQU CVTFLGS1 01842000 CVTXITP EQU CVTMAP+68 01843000 CVTZDTAB EQU CVTMAP+64 01844000 CVTMSLT EQU CVTMAP+60 01845000 CVTDATE EQU CVTMAP+56 01846000 CVTBTERM EQU CVTMAP+52 01847000 CVTSYSAD EQU CVTMAP+48 01848000 CVTXTLER EQU CVTMAP+44 01849000 CVTILK2 EQU CVTMAP+40 01850000 CVTILK1 EQU CVTMAP+36 01851000 CVTPRLTV EQU CVTMAP+32 01852000 CVTPCNVT EQU CVTMAP+28 01853000 CVT0VL00 EQU CVTMAP+24 01854000 CVTXAPG EQU CVTMAP+20 01855000 CVTBUF EQU CVTMAP+16 01856000 CVTJOB EQU CVTMAP+12 01857000 CVTLINK EQU CVTMAP+8 01858000 CVT0EF00 EQU CVTMAP+4 01859000 CVTTCBP EQU CVTMAP 01860000 CVT EQU CVTMAP 01861000 VSLEND1A EQU VSLEND+1 01862000 VSLEXTRS EQU VSLFLAG2 01863000 VSLKEPRL EQU VSLFLAG2 01864000 VSLPGOUT EQU VSLFLAG2 01865000 VSLRSV3 EQU VSLFLAG2 01866000 VSLERR EQU VSLFLAG2 01867000 VSLRAO EQU VSLFLAG2 01868000 VSLNULL EQU VSLFLAG2 01869000 VSLAST EQU VSLFLAG2 01870000 VSLSTRTA EQU VSLSTRT+1 01871000 VSLRSV2 EQU VSLFLAG1 01872000 VSLONG EQU VSLFLAG1 01873000 VSLRSV1 EQU VSLFLAG1 01874000 VSLRLS EQU VSLFLAG1 01875000 VSLOAD EQU VSLFLAG1 01876000 VSLFREE EQU VSLFLAG1 01877000 VSLFIX EQU VSLFLAG1 01878000 VSLCONT EQU VSLFLAG1 01879000 RSMASMHD EQU RSMHD+40 01880000 RSMFOEQ EQU RSMHD+36 01881000 RSMLIOQL EQU RSMLIOQ+4 01882000 RSMLSQAL EQU RSMLSQA+2 01883000 RSMLSQAF EQU RSMLSQA 01884000 RSMLFQL EQU RSMLFQ+2 01885000 RSMRSV2 EQU RSMHD+16 01886000 RSMRSV1 EQU RSMHD+13 01887000 @NM00052 EQU RSMFLG1 01888000 RSMFAIL EQU RSMFLG1 01889000 RSMGFADD EQU RSMFLG1 01890000 RSMCPNC EQU RSMFLG1 01891000 RSMCPNU EQU RSMFLG1 01892000 RSMGFAD EQU RSMFLG1 01893000 RSMIOCPC EQU RSMFLG1 01894000 RSMIOCPU EQU RSMFLG1 01895000 RSMASCB EQU RSMHD+8 01896000 RSMSPCT EQU RSMHD+4 01897000 RSMVSTO EQU RSMHD 01898000 CIWWRK3 EQU CIWA+52 01899000 @NM00051 EQU CIWIFLG2 01900000 CIWIKPRL EQU CIWIFLG2 01901000 CIWIOUT EQU CIWIFLG2 01902000 @NM00050 EQU CIWIFLG2 01903000 CIWIRAO EQU CIWIFLG2 01904000 CIWINULL EQU CIWIFLG2 01905000 CIWILAST EQU CIWIFLG2 01906000 @NM00049 EQU CIWIFLG1 01907000 CIWILONG EQU CIWIFLG1 01908000 @NM00048 EQU CIWIFLG1 01909000 CIWIRLS EQU CIWIFLG1 01910000 CIWILOAD EQU CIWIFLG1 01911000 CIWIFREE EQU CIWIFLG1 01912000 CIWIFIX EQU CIWIFLG1 01913000 CIWICONT EQU CIWIFLG1 01914000 @NM00047 EQU CIWA+7 01915000 CIWKEY EQU CIWA+6 01916000 CIWSAVRC EQU CIWA+5 01917000 CIWEXTRS EQU CIWOPFL2 01918000 CIWKEPRL EQU CIWOPFL2 01919000 CIWPGOUT EQU CIWOPFL2 01920000 @NM00046 EQU CIWOPFL2 01921000 CIWERR EQU CIWOPFL2 01922000 CIWRAO EQU CIWOPFL2 01923000 CIWNULL EQU CIWOPFL2 01924000 CIWLAST EQU CIWOPFL2 01925000 @NM00045 EQU CIWOPFL1 01926000 CIWLONG EQU CIWOPFL1 01927000 @NM00044 EQU CIWOPFL1 01928000 CIWRLS EQU CIWOPFL1 01929000 CIWLOAD EQU CIWOPFL1 01930000 CIWFREE EQU CIWOPFL1 01931000 CIWFIX EQU CIWOPFL1 01932000 CIWCONT EQU CIWOPFL1 01933000 CIWFLG2 EQU CIWA+1 01934000 CIWNOPST EQU CIWFLG1 01935000 CIWOUTKR EQU CIWFLG1 01936000 CIWBRIN EQU CIWFLG1 01937000 CIWBREX EQU CIWFLG1 01938000 @NM00043 EQU CIWFLG1 01939000 CIWSVC3 EQU CIWFLG1 01940000 CIWSVC2 EQU CIWFLG1 01941000 PVTEND EQU PVT+1944 01942000 PVTTASID EQU PVT+1942 01943000 PVTXXXXX EQU PVT+1940 01944000 PVTMVCLC EQU PVT+1936 01945000 PVTVCONS EQU PVT+1896 01946000 PVTPRSB EQU PVT+1892 01947000 PVTCIOQL EQU PVTPCBQS+36 01948000 PVTGFADL EQU PVTPCBQS+28 01949000 PVTFPCBL EQU PVTPCBQS+20 01950000 PVTFPCBF EQU PVTPCBQS+16 01951000 PVTPCBQR EQU PVTPCBQS 01952000 PVTLPAFX EQU PVT+1850 01953000 PVTLSQAF EQU PVT+1848 01954000 PVTLPAR EQU PVT+1844 01955000 PVTLPAI EQU PVT+1840 01956000 PVTLPAFC EQU PVT+1838 01957000 PVTCHUIC EQU PVT+1836 01958000 PVTSQAFX EQU PVT+1832 01959000 PVTDEFFX EQU PVT+1828 01960000 PVTFIXOK EQU PVT+1826 01961000 PVTPEROK EQU PVT+1824 01962000 PVTMAXFX EQU PVT+1822 01963000 PVTPERFX EQU PVT+1820 01964000 PVTRSRB EQU PVT+1776 01965000 PVTRESV5 EQU PVT+1773 01966000 PVTSRBS EQU PVT+1772 01967000 PVTSSRB EQU PVT+1768 01968000 PVTACA EQU PVTWSAX+1400 01969000 PVTSAVE EQU PVTWSAX+1328 01970000 PVTWSA18 EQU PVTWSAX+1256 01971000 PVTWSA17 EQU PVTWSAX+1184 01972000 PVTWSA16 EQU PVTWSAX+1112 01973000 PVTWSA15 EQU PVTWSAX+1040 01974000 PVTWSA14 EQU PVTWSAX+968 01975000 PVTWSA13 EQU PVTWSAX+896 01976000 PVTWSA12 EQU PVTWSAX+824 01977000 PVTWSA11 EQU PVTWSAX+752 01978000 PVTWSA10 EQU PVTWSAX+672 01979000 PVTWSA9 EQU PVTWSAX+592 01980000 PVTWSA8 EQU PVTWSAX+504 01981000 PVTWSA7 EQU PVTWSAX+432 01982000 PVTWSA6 EQU PVTWSAX+360 01983000 PVTWSA5 EQU PVTWSAX+288 01984000 PVTWSA4 EQU PVTWSAX+216 01985000 PVTWSA3 EQU PVTWSAX+144 01986000 PVTWSA2 EQU PVTWSAX+72 01987000 PVTWSA1 EQU PVTWSAX 01988000 PVTPFTQR EQU PVTQS+20 01989000 PVTRSBQL EQU PVTQS+18 01990000 PVTRSBQF EQU PVTQS+16 01991000 PVTSQAQL EQU PVTQS+14 01992000 PVTSQAQF EQU PVTQS+12 01993000 PVTCFQL EQU PVTQS+10 01994000 PVTRSRVL EQU PVTQS+6 01995000 PVTRSRVF EQU PVTQS+4 01996000 PVTAFQL EQU PVTQS+2 01997000 PVTAFQF EQU PVTQS 01998000 PVTSPFR EQU PVT+302 01999000 PVTCFMCT EQU PVT+300 02000000 PVTSPREC EQU PVT+296 02001000 PVTCAREC EQU PVT+292 02002000 PVTCAOUT EQU PVT+288 02003000 PVTCAIN EQU PVT+284 02004000 PVTNSWPS EQU PVT+280 02005000 PVTNPREC EQU PVT+276 02006000 PVTSPOUT EQU PVT+272 02007000 PVTSPIN EQU PVT+268 02008000 PVTVAMR EQU PVT+264 02009000 PVTVAMO EQU PVT+260 02010000 PVTVAMI EQU PVT+256 02011000 PVTNPOUT EQU PVT+252 02012000 PVTNPIN EQU PVT+248 02013000 PVTPRSET EQU PVT+244 02014000 PVTFRSLT EQU PVT+240 02015000 PVTPAGIO EQU PVT+236 02016000 PVTSWPIO EQU PVT+232 02017000 PVTPSWPP EQU PVT+228 02018000 PVTPPREF EQU PVT+224 02019000 PVTPOPBR EQU PVT+220 02020000 PVTPRELV EQU PVT+212 02021000 PVTPFREE EQU PVT+208 02022000 PVTPRELS EQU PVT+204 02023000 PVTPOUT EQU PVT+200 02024000 PVTPFXLD EQU PVT+196 02025000 PVTPITAS EQU PVT+192 02026000 PVTPSRBP EQU PVT+188 02027000 PVTPDSEG EQU PVT+184 02028000 PVTPCSGB EQU PVT+180 02029000 PVTPCSEG EQU PVT+176 02030000 PVTPINV EQU PVT+172 02031000 PVTPSWPC EQU PVT+168 02032000 PVTPSOUT EQU PVT+164 02033000 PVTPSWIN EQU PVT+160 02034000 PVTPRCV EQU PVT+156 02035000 PVTPRCFI EQU PVT+152 02036000 PVTPRCF EQU PVT+148 02037000 PVTPVRC EQU PVT+144 02038000 PVTPVRIN EQU PVT+140 02039000 PVTPVRLS EQU PVT+136 02040000 PVTPVEQR EQU PVT+132 02041000 PVTPPIOI EQU PVT+128 02042000 PVTPVRPO EQU PVT+124 02043000 PVTPRFR EQU PVT+120 02044000 PVTPFP EQU PVT+112 02045000 PVTPFTE EQU PVT+108 02046000 PVTREP2 EQU PVT+100 02047000 PVTPIOCP EQU PVT+96 02048000 PVTPIOP EQU PVT+92 02049000 PVTPGFAD EQU PVT+88 02050000 PVTPGFA EQU PVT+84 02051000 PVTPSQA EQU PVT+80 02052000 PVTPSINT EQU PVT+76 02053000 PVTPSIB EQU PVT+72 02054000 PVTSRBID EQU PVT+68 02055000 PVTHQSA EQU PVT+62 02056000 PVTLQSA EQU PVT+60 02057000 PVTOROOT EQU PVT+56 02058000 PVTREUS EQU PVT+48 02059000 PVTSQNPC EQU PVT+47 02060000 PVTSQVRC EQU PVT+46 02061000 PVTRSUS EQU PVT+44 02062000 PVTVROOT EQU PVT+40 02063000 PVTPCBLO EQU PVT+38 02064000 PVTPCBCT EQU PVT+36 02065000 PVTDFRS EQU PVT+34 02066000 PVTRSQA EQU PVT+32 02067000 PVTPTLB EQU PVT+31 02068000 PVTPCBNO EQU PVT+30 02069000 PVTSRBNO EQU PVT+29 02070000 PVTSQDC EQU PVT+28 02071000 PVTLCSA EQU PVT+26 02072000 PVTLVR EQU PVT+22 02073000 PVTFVR EQU PVT+20 02074000 PVTLPFN EQU PVT+18 02075000 PVTFPFN EQU PVT+16 02076000 PVTSSPIN EQU PVT+11 02077000 PVTPCBS EQU PVT+10 02078000 PVTPOOL EQU PVT+8 02079000 PVTAFCOK EQU PVT+6 02080000 PVTAFCLO EQU PVT+4 02081000 PVTAFC EQU PVT+2 02082000 @NM00042 EQU PVTFLAG2 02083000 PVTRSMGM EQU PVTFLAG2 02084000 PVTDUMP EQU PVTFLAG1 02085000 PVTSIT EQU PVTFLAG1 02086000 PVTLSI EQU PVTFLAG1 02087000 PVTAPREF EQU PVTFLAG1 02088000 PVTPCBLT EQU PVTFLAG1 02089000 PVTSRBIU EQU PVTFLAG1 02090000 PVTBGMS EQU PVTFLAG1 02091000 PVTPMSG EQU PVTFLAG1 02092000 PFTUIC EQU PFTE+15 02093000 @NM00041 EQU PFTFLAG2 02094000 @NM00040 EQU PFTFLAG2 02095000 PFTPREF EQU PFTFLAG2 02096000 PFTIRRG EQU PFTFLAG2 02097000 PFTOFFLN EQU PFTFLAG2 02098000 PFTBADPG EQU PFTFLAG1 02099000 PFTPCBSI EQU PFTFLAG1 02100000 PFTONAVQ EQU PFTFLAG1 02101000 PFTRSV1 EQU PFTE+10 02102000 PFTBQPTR EQU PFTQPTRS+2 02103000 PFTFQPTR EQU PFTQPTRS 02104000 PFTVBN EQU PFTPGID+2 02105000 XPTLSID2 EQU XPTLPN 02106000 XPTLSID EQU XPTLGN 02107000 @NM00039 EQU XPTFLAG2 02108000 XPTIOERR EQU XPTFLAG2 02109000 XPTPOINP EQU XPTFLAG2 02110000 XPTRES1 EQU XPTFLAG2 02111000 XPTVALID EQU XPTFLAG2 02112000 XPTRSV4 EQU XPTFLAGS 02113000 XPTDEFER EQU XPTFLAGS 02114000 XPTRES2 EQU XPTFLAGS 02115000 XPTVIO EQU XPTFLAGS 02116000 @NM00038 EQU XPTFLAGS 02117000 XPTCKF EQU XPTFLAGS 02118000 XPTXAV EQU XPTFLAGS 02119000 XPTVIOLP EQU XPTFLAGS 02120000 XPTRSV1 EQU XPTE+1 02121000 XPTPROT EQU XPTE 02122000 PGTPAM EQU PGTBITS 02123000 @NM00037 EQU PGTBITS 02124000 @NM00036 EQU PGTBITS 02125000 PGTPVM EQU PGTBITS 02126000 @NM00035 EQU PGTBITS 02127000 @NM00034 EQU PGTBITS 02128000 @NM00033 EQU PGTBITS 02129000 @NM00032 EQU PGTBITS 02130000 PGTREAL EQU PGTRSA 02131000 PCBEND EQU PCB+64 02132000 PCBAIA EQU PCB+36 02133000 PCBSPCTE EQU PCBRB 02134000 PCBPGTA EQU PCBPGT+1 02135000 PCBSWPS2 EQU PCBFL3 02136000 @NM00031 EQU PCBFL3 02137000 PCBNOREC EQU PCBFL3 02138000 PCBDFRLS EQU PCBFL3 02139000 PCBSWPLS EQU PCBFL3 02140000 PCBSWPS1 EQU PCBFL3 02141000 PCBSWPIN EQU PCBFL3 02142000 PCBSWPOT EQU PCBFL3 02143000 PCBXPTA EQU PCBXPT+1 02144000 @NM00030 EQU PCBFL2 02145000 @NM00029 EQU PCBFL2 02146000 PCBVIO EQU PCBFL2 02147000 PCBSUPRS EQU PCBFL2 02148000 PCBRESET EQU PCBFL2 02149000 PCBIOERR EQU PCBFL2 02150000 PCBGFAD EQU PCBFL2 02151000 PCBFREAL EQU PCBFL2 02152000 PCBIOCMP EQU PCBFL1 02153000 PCBIOI EQU PCBFL1 02154000 PCBLFR EQU PCBFL1 02155000 PCBLLHLD EQU PCBFL1 02156000 PCBSRBMD EQU PCBFL1 02157000 PCBPEX EQU PCBFL1 02158000 @NM00028 EQU PCBFL1 02159000 PCBBQPA EQU PCBBQP 02160000 PCBCQN EQU PCBFQP 02161000 PCBRWRKB EQU PCBR+60 02162000 PCBRWRKA EQU PCBR+56 02163000 PCBRWRK9 EQU PCBR+52 02164000 PCBRWRK8 EQU PCBR+48 02165000 PCBRWRK7 EQU PCBR+44 02166000 PCBRWRK6 EQU PCBR+40 02167000 PCBRWRK5 EQU PCBR+36 02168000 PCBRWRK4 EQU PCBR+32 02169000 PCBRWRK3 EQU PCBR+28 02170000 PCBRWRK2 EQU PCBR+24 02171000 PCBRWRK1 EQU PCBR+20 02172000 PCBRRSV1 EQU PCBR+18 02173000 PCBRASCB EQU PCBR+12 02174000 PCBRGOTO EQU PCBR+4 02175000 PCBRTCBA EQU PCBRTCB+1 02176000 PCBRPOF EQU PCBRFLAG 02177000 PCBRFAIL EQU PCBRFLAG 02178000 PCBRFPCB EQU PCBRFLAG 02179000 PCBRPB EQU PCBRFLAG 02180000 PCBRETRY EQU PCBRFLAG 02181000 RCARETAD EQU RCA+20 02182000 RCATASID EQU RCA+18 02183000 RCAREP1 EQU RCANAME6 02184000 RCAPSIF EQU RCANAME6 02185000 RCAPSIX EQU RCANAME6 02186000 RCAVEQRP EQU RCANAME6 02187000 RCARCFC EQU RCANAME6 02188000 RCACSGB EQU RCANAME6 02189000 RCAFXL EQU RCANAME6 02190000 RCAPS113 EQU RCANAME6 02191000 RCARFR2 EQU RCANAME5 02192000 RCACPBR EQU RCANAME5 02193000 RCAOPBR EQU RCANAME5 02194000 RCASORT EQU RCANAME5 02195000 RCASIRT EQU RCANAME5 02196000 RCARELV EQU RCANAME5 02197000 RCARELF EQU RCANAME5 02198000 RCAGFAD EQU RCANAME4 02199000 RCAVEQRI EQU RCANAME4 02200000 RCAVEQRF EQU RCANAME4 02201000 RCAVEQRC EQU RCANAME4 02202000 RCATERM EQU RCANAME4 02203000 RCASQA EQU RCANAME4 02204000 RCASWIN EQU RCANAME4 02205000 RCASOUT EQU RCANAME4 02206000 RCARFR EQU RCANAME3 02207000 RCARELS EQU RCANAME3 02208000 RCARCFI EQU RCANAME3 02209000 RCARCF EQU RCANAME3 02210000 RCAPSII EQU RCANAME3 02211000 RCAPSIB EQU RCANAME3 02212000 RCAPS112 EQU RCANAME3 02213000 RCAPIX EQU RCANAME3 02214000 RCAPIOP EQU RCANAME2 02215000 RCASWPC EQU RCANAME2 02216000 RCASWPP EQU RCANAME2 02217000 RCAPFTE EQU RCANAME2 02218000 RCAPCB EQU RCANAME2 02219000 RCAOUT EQU RCANAME2 02220000 RCAITAS EQU RCANAME2 02221000 RCAIOCP EQU RCANAME2 02222000 RCAINV EQU RCANAME1 02223000 RCAGFA EQU RCANAME1 02224000 RCAFXLD EQU RCANAME1 02225000 RCAVEQR EQU RCANAME1 02226000 RCADSEG EQU RCANAME1 02227000 RCADLAS EQU RCANAME1 02228000 RCACSEG EQU RCANAME1 02229000 RCAVAMSI EQU RCANAME1 02230000 @NM00027 EQU RCAFLAGS 02231000 RCADISP EQU RCAFLAGS 02232000 @NM00026 EQU RCAFLAGS 02233000 RCAQS EQU RCAFLAGS 02234000 RCAPSIER EQU RCAFLAGS 02235000 RCAABEND EQU RCAFLAGS 02236000 RCALL EQU RCAFLAGS 02237000 RCASAL EQU RCAFLAGS 02238000 @NM00025 EQU RCANAME7 02239000 RCAPRSS EQU RCANAME7 02240000 RCAPRSR EQU RCANAME7 02241000 RCAPRSB EQU RCANAME7 02242000 RCAPSIY EQU RCANAME7 02243000 RCAPIOI EQU RCANAME7 02244000 RCAPARM1 EQU RCA+4 02245000 RCAPARM0 EQU RCA 02246000 @NM00024 EQU PSA+3668 02247000 PSASTAK EQU PSA+3072 02248000 @NM00023 EQU PSA+1048 02249000 PSAUSEND EQU PSA+1048 02250000 PSARV062 EQU PSA+1044 02251000 PSACDAL EQU PSA+1040 02252000 PSAWTCOD EQU PSA+1036 02253000 PSAATCVT EQU PSA+1032 02254000 PSAPCPSW EQU PSA+1024 02255000 PSAPIR2 EQU PSA+1020 02256000 PSARV059 EQU PSA+1018 02257000 PSASVC13 EQU PSA+1016 02258000 PSALSFCC EQU PSA+1012 02259000 PSASFACC EQU PSA+1008 02260000 PSASTOP EQU PSA+992 02261000 PSASTART EQU PSA+976 02262000 PSARSPSW EQU PSA+968 02263000 PSASRPSW EQU PSA+960 02264000 PSARV045 EQU PSA+892 02265000 PSARV044 EQU PSA+888 02266000 PSARV043 EQU PSA+884 02267000 PSARV042 EQU PSA+880 02268000 PSARV041 EQU PSA+876 02269000 PSARV040 EQU PSA+872 02270000 PSARV025 EQU PSA+868 02271000 PSADSSED EQU PSA+868 02272000 PSADSSPR EQU PSA+864 02273000 PSADSSFW EQU PSA+860 02274000 PSADSS14 EQU PSA+856 02275000 PSADSSPP EQU PSA+848 02276000 PSADSSRP EQU PSA+840 02277000 PSADSS05 EQU PSADSSF4 02278000 PSADSS10 EQU PSADSSF4 02279000 PSADSSVE EQU PSADSSF4 02280000 PSADSSDE EQU PSADSSF4 02281000 PSADSSC0 EQU PSADSSF4 02282000 PSADSSIE EQU PSADSSF4 02283000 PSADSS12 EQU PSADSSF4 02284000 PSADSSRC EQU PSADSSF4 02285000 PSARV057 EQU PSADSSF3 02286000 PSARV056 EQU PSADSSF3 02287000 PSARV055 EQU PSADSSF3 02288000 PSADSSMC EQU PSADSSF3 02289000 PSADSSRW EQU PSADSSF3 02290000 PSADSSNM EQU PSADSSF3 02291000 PSADSSES EQU PSADSSF3 02292000 PSADSSGP EQU PSADSSF3 02293000 PSADSSF2 EQU PSADSSFL+1 02294000 PSADSSPI EQU PSADSSF1 02295000 PSADSSOI EQU PSADSSF1 02296000 PSADSSSP EQU PSADSSF1 02297000 PSADSSTP EQU PSADSSF1 02298000 PSADSSDW EQU PSADSSF1 02299000 PSADSSDD EQU PSADSSF1 02300000 PSADSSDM EQU PSADSSF1 02301000 PSADSSMV EQU PSADSSF1 02302000 PSADSSTS EQU PSA+816 02303000 PSADSSWK EQU PSA+812 02304000 PSADSSR3 EQU PSA+808 02305000 PSADSSR2 EQU PSA+804 02306000 PSADSSRS EQU PSA+800 02307000 PSASTOR EQU PSA+796 02308000 PSACPUSA EQU PSA+794 02309000 PSAVSTAP EQU PSA+792 02310000 PSAWKVAP EQU PSA+788 02311000 PSAWKRAP EQU PSA+784 02312000 PSAMCHIC EQU PSA+783 02313000 PSARV061 EQU PSA+782 02314000 PSASYMSK EQU PSA+781 02315000 PSAMCHFL EQU PSA+780 02316000 PSACR0 EQU PSA+776 02317000 PSAPSWSV EQU PSA+768 02318000 PSALITA EQU PSA+764 02319000 PSACLHS EQU PSAHLHI 02320000 PSALKR15 EQU PSALKSA+60 02321000 PSALKR14 EQU PSALKSA+56 02322000 PSALKR13 EQU PSALKSA+52 02323000 PSALKR12 EQU PSALKSA+48 02324000 PSALKR11 EQU PSALKSA+44 02325000 PSALKR10 EQU PSALKSA+40 02326000 PSALKR9 EQU PSALKSA+36 02327000 PSALKR8 EQU PSALKSA+32 02328000 PSALKR7 EQU PSALKSA+28 02329000 PSALKR6 EQU PSALKSA+24 02330000 PSALKR5 EQU PSALKSA+20 02331000 PSALKR4 EQU PSALKSA+16 02332000 PSALKR3 EQU PSALKSA+12 02333000 PSALKR2 EQU PSALKSA+8 02334000 PSALKR1 EQU PSALKSA+4 02335000 PSALKR0 EQU PSALKSA 02336000 PSARV023 EQU PSACLHT+52 02337000 PSALOCAL EQU PSACLHT+48 02338000 PSACMSL EQU PSACLHT+44 02339000 PSAOPTL EQU PSACLHT+40 02340000 PSATPACL EQU PSACLHT+36 02341000 PSATPDNL EQU PSACLHT+32 02342000 PSATPNCL EQU PSACLHT+28 02343000 PSAIOSLL EQU PSACLHT+24 02344000 PSAIOSUL EQU PSACLHT+20 02345000 PSAIOSCL EQU PSACLHT+16 02346000 PSAIOSSL EQU PSACLHT+12 02347000 PSASALCL EQU PSACLHT+8 02348000 PSAASML EQU PSACLHT+4 02349000 PSADISPL EQU PSACLHT 02350000 PSASRSA EQU PSA+636 02351000 PSARV050 EQU PSA+634 02352000 PSADSSGO EQU PSA+633 02353000 PSARECUR EQU PSA+632 02354000 PSAHLHIS EQU PSA+628 02355000 PSAIPCSA EQU PSA+624 02356000 @NM00022 EQU PSA+621 02357000 PSAIPCDM EQU PSA+620 02358000 PSAIPCD EQU PSA+616 02359000 @NM00021 EQU PSA+613 02360000 PSAIPCRM EQU PSA+612 02361000 PSAIPCR EQU PSA+608 02362000 PSAMCHEX EQU PSA+600 02363000 PSAMPSW EQU PSA+592 02364000 PSAEXPS2 EQU PSA+584 02365000 PSAEXPS1 EQU PSA+576 02366000 PSAPIREG EQU PSA+572 02367000 PSARSREG EQU PSA+568 02368000 PSAGPREG EQU PSA+556 02369000 PSARV022 EQU PSASUP4 02370000 PSARV021 EQU PSASUP4 02371000 PSARV020 EQU PSASUP4 02372000 PSARV019 EQU PSASUP4 02373000 PSARV018 EQU PSASUP4 02374000 PSARV017 EQU PSASUP4 02375000 PSARV016 EQU PSASUP4 02376000 PSARV015 EQU PSASUP4 02377000 PSARV014 EQU PSASUP3 02378000 PSAULCMS EQU PSASUP3 02379000 PSARV012 EQU PSASUP3 02380000 PSAESTA EQU PSASUP3 02381000 PSASPR EQU PSASUP3 02382000 PSAPSREG EQU PSASUP3 02383000 PSAPI2 EQU PSASUP3 02384000 PSAIOSUP EQU PSASUP3 02385000 PSALCR EQU PSASUP2 02386000 PSARTM EQU PSASUP2 02387000 PSAACR EQU PSASUP2 02388000 PSAIPCE2 EQU PSASUP2 02389000 PSAIPCES EQU PSASUP2 02390000 PSAIPCEC EQU PSASUP2 02391000 PSAGTF EQU PSASUP2 02392000 PSAIPCRI EQU PSASUP2 02393000 PSATYPE6 EQU PSASUP1 02394000 PSATCTL EQU PSASUP1 02395000 PSADISP EQU PSASUP1 02396000 PSALOCK EQU PSASUP1 02397000 PSAPI EQU PSASUP1 02398000 PSAEXT EQU PSASUP1 02399000 PSASVC EQU PSASUP1 02400000 PSAIO EQU PSASUP1 02401000 PSAANEW EQU PSA+544 02402000 PSATOLD EQU PSA+540 02403000 PSATNEW EQU PSA+536 02404000 PSALCCAR EQU PSA+532 02405000 PSALCCAV EQU PSA+528 02406000 PSAPCCAR EQU PSA+524 02407000 PSAPCCAV EQU PSA+520 02408000 PSACPULA EQU PSA+518 02409000 PSACPUPA EQU PSA+516 02410000 PSAPSA EQU PSA+512 02411000 FLCHDEND EQU PSA+512 02412000 FLCCRSAV EQU FLCMCLA+280 02413000 FLCGRSAV EQU FLCMCLA+216 02414000 FLCFPSAV EQU FLCMCLA+184 02415000 FLCFLA EQU FLCMCLA+88 02416000 FLCRGNCD EQU FLCMCLA+84 02417000 FLCFSAA EQU FLCFSA+1 02418000 @NM00020 EQU FLCFSA 02419000 @NM00019 EQU FLCMCLA+72 02420000 FLCMCIC EQU FLCMCLA+64 02421000 @NM00018 EQU FLCMCLA+20 02422000 FLCIOAA EQU FLCIOA+1 02423000 @NM00017 EQU FLCIOA 02424000 @NM00016 EQU FLCMCLA+15 02425000 @NM00015 EQU FLCMCLA+14 02426000 @NM00014 EQU FLCMCLA+12 02427000 FLCLCL EQU FLCMCLA+8 02428000 FLCIOELA EQU FLCIOEL+1 02429000 @NM00013 EQU FLCIOEL 02430000 FLCCHNID EQU FLCMCLA 02431000 @NM00012 EQU PSA+160 02432000 FLCMTRCD EQU PSA+157 02433000 @NM00011 EQU PSA+156 02434000 FLCPERA EQU FLCPER+1 02435000 @NM00010 EQU FLCPER 02436000 @NM00009 EQU PSA+151 02437000 FLCPERCD EQU PSA+150 02438000 FLCMCNUM EQU PSA+149 02439000 @NM00008 EQU PSA+148 02440000 FLCTEAA EQU FLCTEA+1 02441000 @NM00007 EQU FLCTEA 02442000 PSAPIPC EQU PSAPICOD 02443000 PSAPIMC EQU PSAPICOD 02444000 PSAPIPER EQU PSAPICOD 02445000 PSARV049 EQU FLCPICOD 02446000 FLCPILCB EQU FLCPIILC 02447000 @NM00006 EQU FLCPIILC 02448000 @NM00005 EQU PSAEPPSW 02449000 FLCSVCN EQU PSAESPSW+2 02450000 FLCSILCB EQU FLCSVILC 02451000 @NM00004 EQU FLCSVILC 02452000 @NM00003 EQU PSAESPSW 02453000 FLCEICOD EQU PSAEEPSW+2 02454000 PSASPAD EQU PSAEEPSW 02455000 @NM00002 EQU PSA+128 02456000 FLCINPSW EQU PSA+120 02457000 FLCMNPSW EQU PSA+112 02458000 FLCPNPSW EQU PSA+104 02459000 FLCSNPSW EQU PSA+96 02460000 FLCENPSW EQU PSA+88 02461000 FLCTRACE EQU PSA+84 02462000 FLCTIMER EQU PSA+80 02463000 FLCCVT2 EQU PSA+76 02464000 FLCCAW EQU PSA+72 02465000 FLCCSW EQU PSA+64 02466000 FLCIOPSW EQU PSA+56 02467000 FLCMOPSW EQU PSA+48 02468000 FLCPOPSW EQU PSA+40 02469000 FLCSOPSW EQU PSA+32 02470000 FLCEOPSW EQU PSA+24 02471000 @NM00001 EQU FLCICCW2+4 02472000 FLCICCW1 EQU FLCROPSW 02473000 FLCIPPSW EQU FLCRNPSW 02474000 * END UNREFERENCED COMPONENTS 02475000 @RT00043 EQU NORC16 02476000 @RT00055 EQU FRERETRN 02477000 @RT00079 EQU PAGELOOP 02478000 @RT00082 EQU PAGELOOP 02479000 @RT00086 EQU PAGELOOP 02480000 @RT00123 EQU VSLLOOP 02481000 @RF00145 EQU FRERETRN 02482000 @RT00211 EQU PCBLOOP 02483000 @RF00254 EQU NEXTPCB 02484000 @RF00259 EQU NEXTPCB 02485000 @RF00266 EQU NEXTPCB 02486000 @RF00155 EQU @RC00153 02487000 @RF00158 EQU @RC00153 02488000 @RF00157 EQU @RC00153 02489000 @RT00280 EQU ASCBTEST 02490000 @ENDDATA EQU * 02491000 END IEAVFREE,(C'PLS1235',0701,78164) 02492000