TITLE '****IEAVCARR--AOS2/REL2 IEAVGCAS FRR**** *00001000 ' 00002000 * /* @ZA07006*/ 00003000 IEAVCARR CSECT 00004000 USING *,R15 00005000 MODID 00006000 ENT1 DS 0H 00007000 BALR REG8,0 TEMP. ADDRESSABILITY 00008000 USING *,REG8 00009000 B COMMON GO SET UP COMMON ADDR. 00010000 DC AL2(EP1-ENT1-2) 00011000 IEAVTTRR DS 0H 00012000 BALR REG8,0 TEMP ADDR. 00013000 USING *,REG8 00014000 B COMMON SET UP COMMON ADDR. 00015000 DC AL2(EP2-IEAVTTRR-2) 00016000 ENTRY IEAVTTRR 00017000 IEAVFARR DS 0H 00018000 BALR REG8,0 TEMP ADDR. 00019000 USING *,REG8 00020000 B COMMON SET UP COMMON ADDR. 00021000 DC AL2(EP3-IEAVFARR-2) 00022000 ENTRY IEAVFARR 00023000 DROP REG8 00024000 COMMON BALR REG9,0 COMMON ADDRESSABILITY AND SETUP 00025000 PSTART DS 0H 00026000 USING PSTART,REG9 00027000 AH REG8,4(,REG8) GET @ OF PROPER ENTRY PT. 00028000 BR REG8 BRANCH TO PROPER ENTRY POINT 00029000 EP1 DS 0H 00030000 LR REG12,GPR00F BASE FOR DYNAMIC STORAGE 00031000 USING @DATD,REG12 00032000 * SDWAPTR=REG1; /* BASE FOR SDWA */ 00033000 LR SDWAPTR,REG1 0068 00034000 * R14SAVE=R14; 0069 00035000 ST R14,R14SAVE 0069 00036000 * RFY 0070 00037000 * (REG1, 0070 00038000 * R14) UNRSTD; /* @ZA07006*/ 00039000 * PARMBASE=SDWAPARM; /* PTR TO FRR PARM AREA */ 00040000 L PARMBASE,SDWAPARM(,SDWAPTR) 0071 00041000 * SDWARCRD='1'B; /* INDICATE RECORDING */ 00042000 OI SDWARCRD(SDWAPTR),B'10000000' 0072 00043000 * SDWAMODN=MODN; /* MODULE NAME */ 00044000 MVC SDWAMODN(8,SDWAPTR),MODN 0073 00045000 * SDWACSCT=MODN; /* CSECT NAME */ 00046000 MVC SDWACSCT(8,SDWAPTR),MODN 0074 00047000 * SDWAREXN=REXN1; /* FRR ROUTINE NAME */ 00048000 MVC SDWAREXN(8,SDWAPTR),REXN1 0075 00049000 * IF SDWAFMID^=SAME THEN /* IF NOT IN FAILING MEMORY */ 00050000 LH @08,SDWAFMID(,SDWAPTR) 0076 00051000 N @08,@CF01580 0076 00052000 CH @08,SAME 0076 00053000 BNE @RT00076 0076 00054000 * GOTO PERCOL; /* PERCOLATE */ 00055000 * SDWAUPRG='1'B; /* REGS UPDATED FOR RETRY */ 00056000 OI SDWAUPRG(SDWAPTR),B'00001000' 0078 00057000 * IF PAGEADD^=0 THEN /* IF PAGE WAS GETMAINED, */ 00058000 L @08,PAGEADD(,PARMBASE) 0079 00059000 LTR @08,@08 0079 00060000 BZ @RF00079 0079 00061000 * DO; /* FREE IT */ 00062000 * RFY 0081 00063000 * (RTCB, 0081 00064000 * RASCB, 0081 00065000 * R14, 0081 00066000 * R15) RSTD; /* @ZA07006*/ 00067000 * RTCB=PSATOLD; /* TCB ADDRESS FOR GM */ 00068000 L RTCB,PSATOLD 0082 00069000 * RASCB=PSAAOLD; /* ASCB @ FOR GM */ 00070000 L RASCB,PSAAOLD 0083 00071000 * DO; /* FREEMAIN(RC) 0084 00072000 * LV(4096)A(PAGEADD->PAGE) SP(0) 00073000 * BRANCH */ 00074000 * RESPECIFY 0085 00075000 * (GPR01F, 0085 00076000 * GPR03F, 0085 00077000 * GPR00F) RESTRICTED; 0085 00078000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 00079000 SLR GPR01F,GPR01F 0086 00080000 * GPR03F=1; /* SET TYPE */ 00081000 LA GPR03F,1 0087 00082000 * GPR00F=4096; /* LENGTH REQUESTED */ 00083000 L GPR00F,@CF01560 0088 00084000 * GPR01F=ADDR(PAGEADD->PAGE);/* SET REGISTER ONE */ 00085000 LR GPR01F,@08 0089 00086000 * GPR03F=GPR03F+((0)*256); /* SUBPOOL VALUE */ 00087000 * CALL CVTCRMN; /* BRANCH ENTRY POINT */ 00088000 L @08,CVTPTR 0091 00089000 L @15,CVTCRMN(,@08) 0091 00090000 BALR @14,@15 0091 00091000 * RESPECIFY 0092 00092000 * (GPR01F, 0092 00093000 * GPR03F, 0092 00094000 * GPR00F) UNRESTRICTED; 0092 00095000 * END; /* FREEMAIN(RC) 0093 00096000 * LV(4096)A(PAGEADD->PAGE) SP(0) 00097000 * BRANCH */ 00098000 * RFY 0094 00099000 * (RTCB, 0094 00100000 * RASCB, 0094 00101000 * R14, 0094 00102000 * R15) UNRSTD; /* @ZA07006*/ 00103000 * END; 0095 00104000 * IF RECURSE='1'B THEN /* IS THIS RECURSION ENTRY? */ 00105000 @RF00079 TM RECURSE(PARMBASE),B'00010000' 0096 00106000 BNO @RF00096 0096 00107000 * DO; 0097 00108000 * IF SDWAPCHK='1'B THEN /* IS THIS A PGM CHECK? */ 00109000 TM SDWAPCHK(SDWAPTR),B'01000000' 0098 00110000 BNO @RF00098 0098 00111000 * DO; 0099 00112000 * RFY 0100 00113000 * (GPR00F, 0100 00114000 * GPR01F, 0100 00115000 * R13, 0100 00116000 * R14, 0100 00117000 * R15) RSTD; /* @ZA07006*/ 00118000 * LDAPTR=PSAAOLD->ASCBLDA; 0101 00119000 L @10,PSAAOLD 0101 00120000 L LDAPTR,ASCBLDA(,@10) 0101 00121000 * R13=ADDR(CFAPWKAR); /* SAVE AREA */ 00122000 LA R13,CFAPWKAR(,LDAPTR) 0102 00123000 * R14=PSAAOLD; /* ASCB BASE */ 00124000 LR R14,@10 0103 00125000 * LFSDUMP2=LFSDUMP; 0104 00126000 MVC LFSDUMP2(24),LFSDUMP 0104 00127000 * GPR01F=ADDR(LFSDUMP2); /* SDUMP PARM AREA */ 00128000 LA GPR01F,LFSDUMP2 0105 00129000 * GENERATE; 0106 00130000 SDUMP ASID=ASCBASID(14),SDATA=(PSA,LSQA),BRANCH=YES,MF=(E,(1)) 00131000 * RFY 0107 00132000 * (GPR00F, 0107 00133000 * GPR01F, 0107 00134000 * R13, 0107 00135000 * R14, 0107 00136000 * R15) UNRSTD; /* @ZA07006*/ 00137000 * END; 0108 00138000 * SDWAFLLK='1'B; /* RELEASE LOCAL LOCK */ 00139000 @RF00098 OI SDWAFLLK(SDWAPTR),B'00000001' 0109 00140000 * GOTO PERCOL; /* PERCOLATE */ 00141000 B PERCOL 0110 00142000 * END; 0111 00143000 * RECURSE='1'B; /* SET RECURSION BIT ON */ 00144000 @RF00096 OI RECURSE(PARMBASE),B'00010000' 0112 00145000 * IF SDWAPERC='0'B THEN /* IF NOT A CASE OF PERCOLATION */ 00146000 TM SDWAPERC(SDWAPTR),B'00010000' 0113 00147000 BNZ @RF00113 0113 00148000 * IF SDWAPCHK='1'B|SDWAMCHK='1'B THEN/* IF ERROR IS A PGM CHECK 00149000 * OR A MACHINE CHK, TRY TO RETRY*/ 00150000 TM SDWAPCHK(SDWAPTR),B'11000000' 0114 00151000 BZ @RF00114 0114 00152000 * DO; 0115 00153000 *CONTINUE: 0116 00154000 * IF RSMBIT='0'B THEN /* IF RSM WAS NOT CALLED, */ 00155000 CONTINUE TM RSMBIT(PARMBASE),B'10000000' 0116 00156000 BNZ @RF00116 0116 00157000 * DO; /* RETRY FROM BEGINNING */ 00158000 * SDWARTYA=ADDR(CASRETRY);/* RETRY ADDRESS */ 00159000 L @08,@CV01514 0118 00160000 ST @08,SDWARTYA(,SDWAPTR) 0118 00161000 * SDWASR01=ASCBSAVE; /* RESTORE PARM */ 00162000 L @08,ASCBSAVE(,PARMBASE) 0119 00163000 ST @08,SDWASR01(,SDWAPTR) 0119 00164000 * SDWARCDE=RCDE4; /* INDICATE RETRY */ 00165000 MVI SDWARCDE(SDWAPTR),X'04' 0120 00166000 * GOTO RETRN; /* RETURN */ 00167000 B RETRN 0121 00168000 * END; 0122 00169000 * ELSE /* IF RSM CALLED, RETRY WITH 0123 00170000 * ERROR RETURN TO PROVIDE FOR 0123 00171000 * RSM CLEANUP */ 00172000 * DO; 0123 00173000 @RF00116 DS 0H 0124 00174000 * SDWARTYA=ADDR(NOTAUTH);/* ERROR RETURN FOR VGCAS */ 00175000 L @10,@CV01517 0124 00176000 ST @10,SDWARTYA(,SDWAPTR) 0124 00177000 * SDWARCDE=RCDE4; 0125 00178000 MVI SDWARCDE(SDWAPTR),X'04' 0125 00179000 * GOTO RETRN; /* RETURN */ 00180000 B RETRN 0126 00181000 * END; 0127 00182000 * END; 0128 00183000 * ELSE /* NOT PCHK OR MCHK */ 00184000 * SDWAFLLK='1'B; /* TELL RTM TO RELEASE LOCAL LOCK*/ 00185000 @RF00114 OI SDWAFLLK(SDWAPTR),B'00000001' 0129 00186000 * ELSE 0130 00187000 * ; /* THIS IS PERCOLATION */ 00188000 @RF00113 DS 0H 0131 00189000 *PERCOL: 0131 00190000 * SDWARCDE=RCDE0; /* CONTINUE WITH TERMINATION */ 00191000 PERCOL MVI SDWARCDE(SDWAPTR),X'00' 0131 00192000 * RFY 0132 00193000 * (REG1, 0132 00194000 * R14) RSTD; /* @ZA07006*/ 00195000 *RETRN: 0133 00196000 * R14=R14SAVE; /* RETURN TO CALLER */ 00197000 RETRN L R14,R14SAVE 0133 00198000 * REG1=SDWAPTR; /* PUT SDWA PTR IN REG 1 FOR RTM */ 00199000 LR REG1,SDWAPTR 0134 00200000 * GOTO R14; /* RETURN TO CALLER */ 00201000 BR R14 0135 00202000 * 0136 00203000 */* */ 00204000 */********************************************************************/ 00205000 */* IEAVTTRR */ 00206000 */* THIS IS THE ENTRY POINT IF THE FRR WAS ENTERED FOR ERRORS */ 00207000 */*IN THE TASK TERMINATION ROUTINE OF IEAVGCAS. */ 00208000 */********************************************************************/ 00209000 * 0136 00210000 *IEAVTTRR: 0136 00211000 * ENTRY; 0136 00212000 * GENERATE SETS(REG12); 0137 00213000 * /* @ZA07006*/ 00214000 EP2 DS 0H 00215000 LR REG12,GPR00F BASE FOR DYNAMIC STORAGE 00216000 USING @DATD,REG12 00217000 * SDWAPTR=REG1; /* BASE FOR SDWA */ 00218000 LR SDWAPTR,REG1 0138 00219000 * R14SAVE=R14; 0139 00220000 ST R14,R14SAVE 0139 00221000 * RFY 0140 00222000 * (REG1, 0140 00223000 * R14) UNRSTD; /* @ZA07006*/ 00224000 * PARMBASE=SDWAPARM; /* PTR TO FRR PARM AREA */ 00225000 L PARMBASE,SDWAPARM(,SDWAPTR) 0141 00226000 * SDWARCRD='1'B; /* INDICATE RECORDING */ 00227000 OI SDWARCRD(SDWAPTR),B'10000000' 0142 00228000 * SDWAMODN=MODN; /* MODULE NAME */ 00229000 MVC SDWAMODN(8,SDWAPTR),MODN 0143 00230000 * SDWACSCT=MODN; /* CSECT NAME */ 00231000 MVC SDWACSCT(8,SDWAPTR),MODN 0144 00232000 * SDWAREXN=REXN2; /* FRR ROUTINE NAME */ 00233000 MVC SDWAREXN(8,SDWAPTR),REXN2 0145 00234000 * IF SDWAFMID^=SAME THEN /* IF NOT IN FAILING MEMORY */ 00235000 LH @08,SDWAFMID(,SDWAPTR) 0146 00236000 N @08,@CF01580 0146 00237000 CH @08,SAME 0146 00238000 BNE @RT00146 0146 00239000 * GOTO PERCOL; /* PERCOLATE */ 00240000 * IF RECURSE='1'B THEN /* IF RECURSION ENTRY, INDICATE 00241000 * RETRY FAILED */ 00242000 TM RECURSE(PARMBASE),B'00010000' 0148 00243000 BNO @RF00148 0148 00244000 * DO; 0149 00245000 * IF SDWAPCHK='1'B THEN /* IS THIS A PGM CHECK? */ 00246000 TM SDWAPCHK(SDWAPTR),B'01000000' 0150 00247000 BNO @RF00150 0150 00248000 * DO; 0151 00249000 * RFY 0152 00250000 * (GPR00F, 0152 00251000 * GPR01F, 0152 00252000 * R13, 0152 00253000 * R14, 0152 00254000 * R15) RSTD; /* @ZA07006*/ 00255000 * LDAPTR=PSAAOLD->ASCBLDA; 0153 00256000 L @10,PSAAOLD 0153 00257000 L LDAPTR,ASCBLDA(,@10) 0153 00258000 * R13=ADDR(CFAPWKAR); /* SAVE AREA */ 00259000 LA R13,CFAPWKAR(,LDAPTR) 0154 00260000 * R14=PSAAOLD; /* ASCB BASE */ 00261000 LR R14,@10 0155 00262000 * LFSDUMP2=LFSDUMP; 0156 00263000 MVC LFSDUMP2(24),LFSDUMP 0156 00264000 * GPR01F=ADDR(LFSDUMP2); /* SDUMP PARM AREA */ 00265000 LA GPR01F,LFSDUMP2 0157 00266000 * GENERATE; 0158 00267000 SDUMP ASID=ASCBASID(14),SDATA=(PSA,LSQA),BRANCH=YES,MF=(E,(1)) 00268000 * RFY 0159 00269000 * (GPR00F, 0159 00270000 * GPR01F, 0159 00271000 * R13, 0159 00272000 * R14, 0159 00273000 * R15) UNRSTD; /* @ZA07006*/ 00274000 * END; 0160 00275000 * GOTO PERCOL; /* PERCOLATE */ 00276000 B PERCOL 0161 00277000 * END; /* RETURN */ 00278000 * IF SDWAPERC='0'B THEN /* THIS IS NOT A PERCOLATION */ 00279000 @RF00148 TM SDWAPERC(SDWAPTR),B'00010000' 0163 00280000 BNZ @RF00163 0163 00281000 * IF SDWAMCHK='1'B|SDWAPCHK='1'B THEN/* IF PGM CHK OR MACHINE 0164 00282000 * CHK-- */ 00283000 TM SDWAMCHK(SDWAPTR),B'11000000' 0164 00284000 BZ @RF00164 0164 00285000 * DO; 0165 00286000 * SDWARCDE=RCDE4; /* INDICATE RETRY */ 00287000 MVI SDWARCDE(SDWAPTR),X'04' 0166 00288000 * SDWARTYA=ADDR(TTRETRY); /* RETRY AT BEGINNING */ 00289000 L @08,@CV01512 0167 00290000 ST @08,SDWARTYA(,SDWAPTR) 0167 00291000 * SDWAUPRG='1'B; /* REGS UPDATED FOR RETRY */ 00292000 OI SDWAUPRG(SDWAPTR),B'00001000' 0168 00293000 * RECURSE='1'B; 0169 00294000 OI RECURSE(PARMBASE),B'00010000' 0169 00295000 * GOTO RETRN; 0170 00296000 B RETRN 0170 00297000 * END; 0171 00298000 * GOTO PERCOL; /* PERCOLATE ALL OTHER ERRORS */ 00299000 B PERCOL 0172 00300000 * RFY 0173 00301000 * (REG1, 0173 00302000 * R14) RSTD; /* @ZA07006*/ 00303000 * 0174 00304000 */* */ 00305000 */********************************************************************/ 00306000 */* IEAVFARR */ 00307000 */* THIS IS THE ENTRY POINT IF THE FRR WAS ENTERED DUE TO ERRORS IN*/ 00308000 */* THE FREE ADDRESS SPACE ROUTINE OF IEAVGCAS */ 00309000 */********************************************************************/ 00310000 * 0174 00311000 *IEAVFARR: 0174 00312000 * ENTRY; 0174 00313000 * GENERATE SETS(REG12); 0175 00314000 * /* @ZA07006*/ 00315000 EP3 DS 0H 00316000 LR REG12,GPR00F BASE FOR DYNAMIC STORAGE 00317000 USING @DATD,REG12 00318000 * SDWAPTR=REG1; /* BASE FOR SDWA */ 00319000 LR SDWAPTR,REG1 0176 00320000 * R14SAVE=R14; 0177 00321000 ST R14,R14SAVE 0177 00322000 * RFY 0178 00323000 * (REG1, 0178 00324000 * R14) UNRSTD; /* @ZA07006*/ 00325000 * PARMBASE=SDWAPARM; /* PTR TO FRR PARM AREA */ 00326000 L PARMBASE,SDWAPARM(,SDWAPTR) 0179 00327000 * SDWARCRD='1'B; /* INDICATE RECORDING */ 00328000 OI SDWARCRD(SDWAPTR),B'10000000' 0180 00329000 * SDWAMODN=MODN; /* MODULE NAME */ 00330000 MVC SDWAMODN(8,SDWAPTR),MODN 0181 00331000 * SDWACSCT=MODN; /* CSECT NAME */ 00332000 MVC SDWACSCT(8,SDWAPTR),MODN 0182 00333000 * SDWAREXN=REXN3; /* FRR ROUTINE NAME */ 00334000 MVC SDWAREXN(8,SDWAPTR),REXN3 0183 00335000 * IF SDWAFMID^=SAME THEN /* IF NOT IN FAILING MEMORY */ 00336000 LH @08,SDWAFMID(,SDWAPTR) 0184 00337000 N @08,@CF01580 0184 00338000 CH @08,SAME 0184 00339000 BNE @RT00184 0184 00340000 * GOTO PERCOL; /* PERCOLATE */ 00341000 * SDWAUPRG='1'B; /* REGS UPDATED FOR RETRY */ 00342000 OI SDWAUPRG(SDWAPTR),B'00001000' 0186 00343000 * IF RECURSE='1'B THEN /* IF RECURSION ENTRY-- */ 00344000 TM RECURSE(PARMBASE),B'00010000' 0187 00345000 BO @RT00187 0187 00346000 * GOTO FAILED; 0188 00347000 * IF SDWAPERC='0'B THEN /* THIS IS NOT A PERCOLATION */ 00348000 TM SDWAPERC(SDWAPTR),B'00010000' 0189 00349000 BNZ @RF00189 0189 00350000 * IF SDWAMCHK='1'B|SDWAPCHK='1'B THEN/* IF PGM CHK OR MACHINE 0190 00351000 * CHK-- */ 00352000 TM SDWAMCHK(SDWAPTR),B'11000000' 0190 00353000 BZ @RF00190 0190 00354000 * DO; 0191 00355000 * SDWARCDE=RCDE4; /* RETRY INDICATOR ON */ 00356000 MVI SDWARCDE(SDWAPTR),X'04' 0192 00357000 * RECURSE='1'B; 0193 00358000 OI RECURSE(PARMBASE),B'00010000' 0193 00359000 * IF WDEQ='1'B THEN /* IF WAIT EL DEQUEUE IN PROCESS 00360000 * RETRY AT DEQUEUE STEP */ 00361000 TM WDEQ(PARMBASE),B'01000000' 0194 00362000 BNO @RF00194 0194 00363000 * DO; /* RETURN */ 00364000 * SDWARTYA=ADDR(UNCHAINW); 0196 00365000 L @10,@CV01510 0196 00366000 ST @10,SDWARTYA(,SDWAPTR) 0196 00367000 * GOTO RETRN; 0197 00368000 B RETRN 0197 00369000 * END; 0198 00370000 * IF PDEQ='1'B THEN /* IF POST EL DEQUEUE IN PROCESS, 00371000 * RETRY AT DEQUEUE STEP */ 00372000 @RF00194 TM PDEQ(PARMBASE),B'00100000' 0199 00373000 BNO @RF00199 0199 00374000 * DO; 0200 00375000 * SDWARTYA=ADDR(UNCHAINP); 0201 00376000 L @10,@CV01511 0201 00377000 ST @10,SDWARTYA(,SDWAPTR) 0201 00378000 * GOTO RETRN; /* RETURN */ 00379000 B RETRN 0202 00380000 * END; 0203 00381000 * SDWARTYA=ADDR(FASRETRY); /* OTHERWISE,RETRY AT START */ 00382000 @RF00199 L @08,@CV01513 0204 00383000 ST @08,SDWARTYA(,SDWAPTR) 0204 00384000 * SDWASR01=ASCBSAVE; /* RESTORE PARM */ 00385000 L @08,ASCBSAVE(,PARMBASE) 0205 00386000 ST @08,SDWASR01(,SDWAPTR) 0205 00387000 * GOTO RETRN; /* RETURN */ 00388000 B RETRN 0206 00389000 * END; 0207 00390000 * 0207 00391000 * /*****************************************************************/ 00392000 * /* */ 00393000 * /* FOR RECURSION OR NON-RETRYABLE ERRORS, PERCOLATE */ 00394000 * /* */ 00395000 * /*****************************************************************/ 00396000 * 0208 00397000 *FAILED: 0208 00398000 * IF SDWAPCHK='1'B THEN /* IS THIS A PGM CHK? */ 00399000 @RF00190 DS 0H 0208 00400000 @RF00189 DS 0H 0208 00401000 FAILED TM SDWAPCHK(SDWAPTR),B'01000000' 0208 00402000 BNO @RF00208 0208 00403000 * DO; 0209 00404000 * RFY 0210 00405000 * (GPR00F, 0210 00406000 * GPR01F, 0210 00407000 * R13, 0210 00408000 * R14, 0210 00409000 * R15) RSTD; /* @ZA07006*/ 00410000 * LDAPTR=PSAAOLD->ASCBLDA; 0211 00411000 L @10,PSAAOLD 0211 00412000 L LDAPTR,ASCBLDA(,@10) 0211 00413000 * R13=ADDR(CFAPWKAR); 0212 00414000 LA R13,CFAPWKAR(,LDAPTR) 0212 00415000 * R14=PSAAOLD; 0213 00416000 LR R14,@10 0213 00417000 * LFSDUMP2=LFSDUMP; 0214 00418000 MVC LFSDUMP2(24),LFSDUMP 0214 00419000 * GPR01F=ADDR(LFSDUMP2); 0215 00420000 LA GPR01F,LFSDUMP2 0215 00421000 * GENERATE; 0216 00422000 SDUMP ASID=ASCBASID(14),SDATA=(PSA,SQA),BRANCH=YES,MF=(E,(1)) 00423000 * RFY 0217 00424000 * (GPR00F, 0217 00425000 * GPR01F, 0217 00426000 * R13, 0217 00427000 * R14, 0217 00428000 * R15) UNRSTD; /* @ZA07006*/ 00429000 * END; 0218 00430000 * SDWASALL='1'B; /* FREE SALLOC LOCK */ 00431000 @RF00208 OI SDWASALL(SDWAPTR),B'00000100' 0219 00432000 * SDWAFLLK='1'B; /* FREE LOCAL LOCK */ 00433000 OI SDWAFLLK(SDWAPTR),B'00000001' 0220 00434000 * GOTO PERCOL; /* PERCOLATE ALL ERRORS OTHER 0221 00435000 * THAN PGM AND MACHINE CHKS */ 00436000 B PERCOL 0221 00437000 * END IEAVCARR 0222 00438000 * 0222 00439000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00440000 */*%INCLUDE SYSLIB (AHAFMAIN) */ 00441000 */*%INCLUDE SYSLIB (FREEMAIN) */ 00442000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00443000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00444000 */*%INCLUDE SYSLIB (IHASDUMP) */ 00445000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00446000 */*%INCLUDE SYSLIB (IHALDA ) */ 00447000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00448000 */*%INCLUDE SYSLIB (CVT ) */ 00449000 * 0222 00450000 * ; 0222 00451000 @DATA DS 0H 00452000 @DATD DSECT 00453000 DS 0F 00454000 IEAVCARR CSECT 00455000 DS 0F 00456000 @CF01560 DC F'4096' 00457000 @CF01580 DC XL4'0000FFFF' 00458000 @DATD DSECT 00459000 DS 0D 00460000 SDUMPPTR DS A 00461000 FRREPTR DS A 00462000 R14SAVE DS A 00463000 DUMPRET DS A 00464000 LFSDUMP2 DS CL24 00465000 IEAVCARR CSECT 00466000 DS 0F 00467000 @SIZDATD DC AL1(0) 00468000 DC AL3(@ENDDATD-@DATD) 00469000 @CV01510 DC V(UNCHAINW) 00470000 @CV01511 DC V(UNCHAINP) 00471000 @CV01512 DC V(TTRETRY) 00472000 @CV01513 DC V(FASRETRY) 00473000 @CV01514 DC V(CASRETRY) 00474000 @CV01517 DC V(NOTAUTH) 00475000 @CV01515 DC V(IEAQSPET) 00476000 @CV01509 DC V(IEAVGCAS) 00477000 @CV01508 DC V(IEAVGFAS) 00478000 @CV01516 DC V(OUT) 00479000 DS 0D 00480000 SAME DC H'0' 00481000 MODN DC CL8'IEAVGCAS' 00482000 REXN1 DC CL8'IEAVCARR' 00483000 REXN2 DC CL8'IEAVTTRR' 00484000 REXN3 DC CL8'IEAVFARR' 00485000 IEAVCARR CSECT 00486000 LFSDUMP SDUMP HDR='PGM CHECK IN IEAVGCAS',MF=L 00487000 @DATD DSECT 00488000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00489000 @ENDDATD EQU * 00490000 IEAVCARR CSECT 00491000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00492000 @01 EQU 01 00493000 @02 EQU 02 00494000 @03 EQU 03 00495000 @04 EQU 04 00496000 @05 EQU 05 00497000 @06 EQU 06 00498000 @07 EQU 07 00499000 @08 EQU 08 00500000 @09 EQU 09 00501000 @10 EQU 10 00502000 @11 EQU 11 00503000 @12 EQU 12 00504000 @13 EQU 13 00505000 @14 EQU 14 00506000 @15 EQU 15 00507000 PARMBASE EQU @10 00508000 LDAPTR EQU @03 00509000 SDWAPTR EQU @02 00510000 ASCBPTR EQU @07 00511000 REG8 EQU @08 00512000 REG9 EQU @09 00513000 GPR01F EQU @01 00514000 GPR03F EQU @03 00515000 GPR00F EQU @00 00516000 R14 EQU @14 00517000 R15 EQU @15 00518000 REG1 EQU @01 00519000 RTCB EQU @04 00520000 RASCB EQU @07 00521000 REG12 EQU @12 00522000 R13 EQU @13 00523000 PSA EQU 0 00524000 FLCRNPSW EQU PSA 00525000 FLCROPSW EQU PSA+8 00526000 FLCICCW2 EQU PSA+16 00527000 PSAEEPSW EQU PSA+132 00528000 PSAESPSW EQU PSA+136 00529000 FLCSVILC EQU PSAESPSW+1 00530000 PSAEPPSW EQU PSA+140 00531000 FLCPIILC EQU PSAEPPSW+1 00532000 FLCPICOD EQU PSAEPPSW+2 00533000 PSAPICOD EQU FLCPICOD+1 00534000 FLCTEA EQU PSAEPPSW+4 00535000 FLCPER EQU PSA+152 00536000 FLCMCLA EQU PSA+168 00537000 FLCIOEL EQU FLCMCLA+4 00538000 FLCIOA EQU FLCMCLA+16 00539000 FLCFSA EQU FLCMCLA+80 00540000 PSATOLD EQU PSA+540 00541000 PSAAOLD EQU PSA+548 00542000 PSASUPER EQU PSA+552 00543000 PSASUP1 EQU PSASUPER 00544000 PSASUP2 EQU PSASUPER+1 00545000 PSASUP3 EQU PSASUPER+2 00546000 PSASUP4 EQU PSASUPER+3 00547000 PSACLHT EQU PSA+640 00548000 PSALKSA EQU PSA+696 00549000 PSAHLHI EQU PSA+760 00550000 PSADSSFL EQU PSA+836 00551000 PSADSSF1 EQU PSADSSFL 00552000 PSADSSF3 EQU PSADSSFL+2 00553000 PSADSSF4 EQU PSADSSFL+3 00554000 PSARSVT EQU PSA+896 00555000 CVTPTR EQU 16 00556000 SDWA EQU 0 00557000 SDWAPARM EQU SDWA 00558000 SDWAFIOB EQU SDWA+4 00559000 SDWAABCC EQU SDWAFIOB 00560000 SDWACMPF EQU SDWAABCC 00561000 SDWACTL1 EQU SDWA+8 00562000 SDWACMKA EQU SDWACTL1 00563000 SDWAMWPA EQU SDWACTL1+1 00564000 SDWAPMKA EQU SDWACTL1+4 00565000 SDWACTL2 EQU SDWA+16 00566000 SDWACMKP EQU SDWACTL2 00567000 SDWAMWPP EQU SDWACTL2+1 00568000 SDWAPMKP EQU SDWACTL2+4 00569000 SDWAGRSV EQU SDWA+24 00570000 SDWANAME EQU SDWA+88 00571000 SDWAEC1 EQU SDWA+104 00572000 SDWAEMK1 EQU SDWAEC1 00573000 SDWAMWP1 EQU SDWAEC1+1 00574000 SDWAINT1 EQU SDWAEC1+2 00575000 SDWANXT1 EQU SDWAEC1+4 00576000 SDWAAEC1 EQU SDWA+112 00577000 SDWAILC1 EQU SDWAAEC1+1 00578000 SDWAINC1 EQU SDWAAEC1+2 00579000 SDWAICD1 EQU SDWAINC1+1 00580000 SDWAEC2 EQU SDWA+120 00581000 SDWAEMK2 EQU SDWAEC2 00582000 SDWAMWP2 EQU SDWAEC2+1 00583000 SDWAINT2 EQU SDWAEC2+2 00584000 SDWANXT2 EQU SDWAEC2+4 00585000 SDWAAEC2 EQU SDWA+128 00586000 SDWAILC2 EQU SDWAAEC2+1 00587000 SDWAINC2 EQU SDWAAEC2+2 00588000 SDWAICD2 EQU SDWAINC2+1 00589000 SDWASRSV EQU SDWA+136 00590000 SDWASR01 EQU SDWASRSV+4 00591000 SDWAIDNT EQU SDWA+200 00592000 SDWAMCH EQU SDWA+204 00593000 SDWASTCK EQU SDWAMCH 00594000 SDWAMCHI EQU SDWAMCH+8 00595000 SDWAMCHS EQU SDWAMCHI 00596000 SDWAMCHD EQU SDWAMCHI+1 00597000 SDWARSR1 EQU SDWAMCH+12 00598000 SDWARSR2 EQU SDWAMCH+13 00599000 SDWAFLGS EQU SDWA+232 00600000 SDWAERRA EQU SDWAFLGS 00601000 SDWAMCHK EQU SDWAERRA 00602000 SDWAPCHK EQU SDWAERRA 00603000 SDWAERRB EQU SDWAFLGS+1 00604000 SDWAERRC EQU SDWAFLGS+2 00605000 SDWAPERC EQU SDWAERRC 00606000 SDWAERRD EQU SDWAFLGS+3 00607000 SDWAFMID EQU SDWA+236 00608000 SDWAIOFS EQU SDWA+238 00609000 SDWARTYA EQU SDWA+240 00610000 SDWACPUA EQU SDWA+248 00611000 SDWAPARQ EQU SDWA+252 00612000 SDWARCDE EQU SDWAPARQ 00613000 SDWAACF2 EQU SDWAPARQ+1 00614000 SDWARCRD EQU SDWAACF2 00615000 SDWAUPRG EQU SDWAACF2 00616000 SDWAACF3 EQU SDWAPARQ+2 00617000 SDWASALL EQU SDWAACF3 00618000 SDWAACF4 EQU SDWAPARQ+3 00619000 SDWAFLLK EQU SDWAACF4 00620000 SDWALKWA EQU SDWA+256 00621000 SDWALKWS EQU SDWALKWA 00622000 SDWARECP EQU SDWA+292 00623000 SDWAMODN EQU SDWARECP 00624000 SDWACSCT EQU SDWARECP+8 00625000 SDWAREXN EQU SDWARECP+16 00626000 SDWASNPA EQU SDWA+320 00627000 SDWADUMP EQU SDWASNPA 00628000 SDWADPFS EQU SDWADUMP+1 00629000 SDWADDAT EQU SDWASNPA+4 00630000 SDWASDAT EQU SDWADDAT 00631000 SDWAPDAT EQU SDWADDAT+2 00632000 SDWADPSA EQU SDWA+328 00633000 SDWADPSL EQU SDWADPSA 00634000 SDWARA EQU SDWA+400 00635000 SDWADPVA EQU SDWARA+2 00636000 ASCB EQU 0 00637000 ASCBLDA EQU ASCB+48 00638000 ASCBFW1 EQU ASCB+100 00639000 ASCBRCTF EQU ASCBFW1+2 00640000 ASCBFLG1 EQU ASCBFW1+3 00641000 ASCBDSP1 EQU ASCB+114 00642000 ASCBFLG2 EQU ASCB+115 00643000 SDUMP EQU 0 00644000 SDUSDAT1 EQU SDUMP+2 00645000 SDUSDAT2 EQU SDUMP+3 00646000 LDA EQU 0 00647000 LVSMFLAG EQU LDA 00648000 CFAPWKAR EQU LDA+1164 00649000 FRRS EQU 0 00650000 FRRSHEAD EQU FRRS 00651000 FRRSENTR EQU 0 00652000 FRRSFLGS EQU FRRSENTR+4 00653000 FRRSFLG1 EQU FRRSFLGS 00654000 CVTMAP EQU 0 00655000 CVTDAR EQU CVTMAP+72 00656000 CVTFLGS1 EQU CVTDAR 00657000 CVTDCB EQU CVTMAP+116 00658000 CVTIERLC EQU CVTMAP+144 00659000 CVTOPTA EQU CVTMAP+182 00660000 CVTOPTB EQU CVTMAP+183 00661000 CVTGTF EQU CVTMAP+236 00662000 CVTGTFST EQU CVTGTF 00663000 CVTGTFS EQU CVTGTFST 00664000 CVTSTATE EQU CVTGTFST 00665000 CVTTMODE EQU CVTGTFST 00666000 CVTFORM EQU CVTGTFST 00667000 CVTAQAVT EQU CVTMAP+240 00668000 CVTTCMFG EQU CVTAQAVT 00669000 CVTVOLM2 EQU CVTMAP+244 00670000 CVTTATA EQU CVTVOLM2 00671000 CVTTSKS EQU CVTTATA 00672000 CVTVOLF2 EQU CVTTSKS 00673000 CVTTAT EQU CVTTATA+1 00674000 CVTATER EQU CVTMAP+248 00675000 CVTEXT1 EQU CVTMAP+252 00676000 CVTPURG EQU CVTMAP+260 00677000 CVTQMSG EQU CVTMAP+268 00678000 CVTDMSR EQU CVTMAP+272 00679000 CVTERPV EQU CVTMAP+316 00680000 CVTINTLA EQU CVTMAP+320 00681000 CVTAPF EQU CVTMAP+324 00682000 CVTEXT2 EQU CVTMAP+328 00683000 CVTHJES EQU CVTMAP+332 00684000 CVTPGSIA EQU CVTMAP+348 00685000 CVTA1F1 EQU CVTMAP+356 00686000 CVTSYSK EQU CVTMAP+357 00687000 CVTVOLM1 EQU CVTMAP+380 00688000 CVTVOLF1 EQU CVTVOLM1 00689000 CVTATMCT EQU CVTMAP+388 00690000 CVTXTNT1 EQU 0 00691000 CVTXTNT2 EQU 0 00692000 CVTDSSV EQU CVTXTNT2 00693000 CVTFLGBT EQU CVTXTNT2+5 00694000 CVTQID EQU CVTXTNT2+24 00695000 CVTRV400 EQU CVTXTNT2+52 00696000 CVTRV409 EQU CVTXTNT2+53 00697000 CVTATCVT EQU CVTXTNT2+64 00698000 CVTRV429 EQU CVTXTNT2+84 00699000 CVTRV438 EQU CVTXTNT2+85 00700000 CVTRV457 EQU CVTXTNT2+112 00701000 CVTRV466 EQU CVTXTNT2+113 00702000 CVTFIX EQU 0 00703000 CVTRELNO EQU CVTFIX+252 00704000 PARMS EQU 0 00705000 RSMBIT EQU PARMS 00706000 WDEQ EQU PARMS 00707000 PDEQ EQU PARMS 00708000 RECURSE EQU PARMS 00709000 PAGEADD EQU PARMS+4 00710000 ASCBSAVE EQU PARMS+8 00711000 PAGE EQU 0 00712000 PSARSVTE EQU PSARSVT 00713000 PSACSTK EQU PSARSVTE 00714000 FRRSPTR EQU PSACSTK 00715000 CVTS01 EQU CVTPGSIA 00716000 CVTLPDIA EQU CVTS01+12 00717000 CVTDIRST EQU CVTLPDIA 00718000 CVTSLIDA EQU CVTS01+24 00719000 CVTCTLFG EQU CVTS01+50 00720000 CVTCRMN EQU CVTS01+156 00721000 CVTRV210 EQU CVTS01+424 00722000 CVTRV219 EQU CVTS01+425 00723000 CVTRV228 EQU CVTS01+426 00724000 CVTRV237 EQU CVTS01+427 00725000 CVTMFRTR EQU CVTS01+452 00726000 CVTRV262 EQU CVTS01+468 00727000 CVTRV271 EQU CVTS01+469 00728000 CVTRV280 EQU CVTS01+470 00729000 CVTRV289 EQU CVTS01+471 00730000 CVTGSDA EQU CVTS01+600 00731000 FLC EQU PSA 00732000 * START UNREFERENCED COMPONENTS 00733000 CVTRV628 EQU CVTS01+728 00734000 CVTRV627 EQU CVTS01+724 00735000 CVTRV626 EQU CVTS01+720 00736000 CVTRV625 EQU CVTS01+716 00737000 CVTRV624 EQU CVTS01+712 00738000 CVTRV623 EQU CVTS01+708 00739000 CVTRV622 EQU CVTS01+704 00740000 CVTRV621 EQU CVTS01+700 00741000 CVTRV620 EQU CVTS01+696 00742000 CVTRV619 EQU CVTS01+692 00743000 CVTRV618 EQU CVTS01+688 00744000 CVTRV617 EQU CVTS01+684 00745000 CVTRV616 EQU CVTS01+680 00746000 CVTRV615 EQU CVTS01+676 00747000 CVTRV614 EQU CVTS01+672 00748000 CVTRV613 EQU CVTS01+668 00749000 CVTRV612 EQU CVTS01+664 00750000 CVTRV611 EQU CVTS01+660 00751000 CVTRV610 EQU CVTS01+656 00752000 CVTRV609 EQU CVTS01+652 00753000 CVTRV608 EQU CVTS01+648 00754000 CVTRV607 EQU CVTS01+644 00755000 CVTRV606 EQU CVTS01+640 00756000 CVTRV605 EQU CVTS01+636 00757000 CVTRV604 EQU CVTS01+632 00758000 CVTEFF02 EQU CVTS01+628 00759000 CVTCBBR EQU CVTS01+624 00760000 CVTSSCR EQU CVTS01+620 00761000 CVTEVENT EQU CVTS01+616 00762000 CVTCRCA EQU CVTS01+612 00763000 CVTTPIO EQU CVTS01+608 00764000 CVTADV EQU CVTS01+604 00765000 CVTGSDAB EQU CVTGSDA 00766000 CVTQV3 EQU CVTS01+596 00767000 CVTQV2 EQU CVTS01+592 00768000 CVTQV1 EQU CVTS01+588 00769000 CVTRPT EQU CVTS01+584 00770000 CVTSSRB EQU CVTS01+580 00771000 CVTCSDRL EQU CVTS01+576 00772000 CVTEXP1 EQU CVTS01+572 00773000 CVTRMPMT EQU CVTS01+568 00774000 CVTRMPTT EQU CVTS01+564 00775000 CVTVPSA EQU CVTS01+560 00776000 CVTVSTOP EQU CVTS01+556 00777000 CVTGTFR8 EQU CVTS01+552 00778000 CVTQUIT EQU CVTS01+548 00779000 CVTVACR EQU CVTS01+544 00780000 CVTWTCB EQU CVTS01+540 00781000 CVTSTPRS EQU CVTS01+536 00782000 CVT0PT02 EQU CVTS01+532 00783000 CVTDARCM EQU CVTS01+528 00784000 CVTIRECM EQU CVTS01+524 00785000 CVTJRECM EQU CVTS01+520 00786000 CVTVEMS0 EQU CVTS01+516 00787000 CVTSPFRR EQU CVTS01+512 00788000 CVTRLSTG EQU CVTS01+508 00789000 CVT0TC0A EQU CVTS01+504 00790000 CVTGMBR EQU CVTS01+500 00791000 CVTLFRM EQU CVTS01+496 00792000 CVTRMBR EQU CVTS01+492 00793000 CVTVIOP EQU CVTS01+488 00794000 CVTRV307 EQU CVTS01+486 00795000 CVTRV306 EQU CVTS01+484 00796000 CVTRV305 EQU CVTS01+482 00797000 CVTRV304 EQU CVTS01+480 00798000 CVTRV303 EQU CVTS01+478 00799000 CVTRV302 EQU CVTS01+476 00800000 CVTTRCA EQU CVTS01+472 00801000 CVTRV297 EQU CVTRV289 00802000 CVTRV296 EQU CVTRV289 00803000 CVTRV295 EQU CVTRV289 00804000 CVTRV294 EQU CVTRV289 00805000 CVTRV293 EQU CVTRV289 00806000 CVTRV292 EQU CVTRV289 00807000 CVTRV291 EQU CVTRV289 00808000 CVTRV290 EQU CVTRV289 00809000 CVTRV288 EQU CVTRV280 00810000 CVTRV287 EQU CVTRV280 00811000 CVTRV286 EQU CVTRV280 00812000 CVTRV285 EQU CVTRV280 00813000 CVTRV284 EQU CVTRV280 00814000 CVTRV283 EQU CVTRV280 00815000 CVTRV282 EQU CVTRV280 00816000 CVTRV281 EQU CVTRV280 00817000 CVTRV279 EQU CVTRV271 00818000 CVTRV278 EQU CVTRV271 00819000 CVTRV277 EQU CVTRV271 00820000 CVTRV276 EQU CVTRV271 00821000 CVTRV275 EQU CVTRV271 00822000 CVTRV274 EQU CVTRV271 00823000 CVTRV273 EQU CVTRV271 00824000 CVTRV272 EQU CVTRV271 00825000 CVTRV270 EQU CVTRV262 00826000 CVTRV269 EQU CVTRV262 00827000 CVTRV268 EQU CVTRV262 00828000 CVTRV267 EQU CVTRV262 00829000 CVTRV266 EQU CVTRV262 00830000 CVTRV265 EQU CVTRV262 00831000 CVTRV264 EQU CVTRV262 00832000 CVTRV263 EQU CVTRV262 00833000 CVTVFP EQU CVTS01+464 00834000 CVTVSI EQU CVTS01+460 00835000 CVTVPSIB EQU CVTS01+456 00836000 CVTMFACT EQU CVTMFRTR 00837000 CVTMFCTL EQU CVTS01+448 00838000 CVTPVBP EQU CVTS01+444 00839000 CVTPWI EQU CVTS01+440 00840000 CVTRV254 EQU CVTS01+438 00841000 CVTRV253 EQU CVTS01+436 00842000 CVTRV252 EQU CVTS01+434 00843000 CVTRV251 EQU CVTS01+433 00844000 CVTRV250 EQU CVTS01+432 00845000 CVTRV249 EQU CVTS01+431 00846000 CVTRV248 EQU CVTS01+430 00847000 CVTRV247 EQU CVTS01+429 00848000 CVTRV246 EQU CVTS01+428 00849000 CVTRV245 EQU CVTRV237 00850000 CVTRV244 EQU CVTRV237 00851000 CVTRV243 EQU CVTRV237 00852000 CVTRV242 EQU CVTRV237 00853000 CVTRV241 EQU CVTRV237 00854000 CVTRV240 EQU CVTRV237 00855000 CVTRV239 EQU CVTRV237 00856000 CVTRV238 EQU CVTRV237 00857000 CVTRV236 EQU CVTRV228 00858000 CVTRV235 EQU CVTRV228 00859000 CVTRV234 EQU CVTRV228 00860000 CVTRV233 EQU CVTRV228 00861000 CVTRV232 EQU CVTRV228 00862000 CVTRV231 EQU CVTRV228 00863000 CVTRV230 EQU CVTRV228 00864000 CVTRV229 EQU CVTRV228 00865000 CVTRV227 EQU CVTRV219 00866000 CVTRV226 EQU CVTRV219 00867000 CVTRV225 EQU CVTRV219 00868000 CVTRV224 EQU CVTRV219 00869000 CVTRV223 EQU CVTRV219 00870000 CVTRV222 EQU CVTRV219 00871000 CVTRV221 EQU CVTRV219 00872000 CVTRV220 EQU CVTRV219 00873000 CVTRV218 EQU CVTRV210 00874000 CVTRV217 EQU CVTRV210 00875000 CVTRV216 EQU CVTRV210 00876000 CVTRV215 EQU CVTRV210 00877000 CVTRV214 EQU CVTRV210 00878000 CVTRV213 EQU CVTRV210 00879000 CVTRV212 EQU CVTRV210 00880000 CVTRV211 EQU CVTRV210 00881000 CVTLCCAT EQU CVTS01+420 00882000 CVTPCCAT EQU CVTS01+416 00883000 CVTIPCRP EQU CVTS01+412 00884000 CVTIPCRI EQU CVTS01+408 00885000 CVTIPCDS EQU CVTS01+404 00886000 CVTAIDVT EQU CVTS01+400 00887000 CVTSSAP EQU CVTS01+396 00888000 CVTEHCIR EQU CVTS01+392 00889000 CVTEHDEF EQU CVTS01+388 00890000 CVTDAIR EQU CVTS01+384 00891000 CVTPERFM EQU CVTS01+380 00892000 CVT044R2 EQU CVTS01+376 00893000 CVTFETCH EQU CVTS01+372 00894000 CVTRSTWD EQU CVTS01+368 00895000 CVTSPOST EQU CVTS01+364 00896000 CVTIOBP EQU CVTS01+360 00897000 CVTASMVT EQU CVTS01+356 00898000 CVTRECRQ EQU CVTS01+352 00899000 CVTWSAC EQU CVTS01+348 00900000 CVTRV149 EQU CVTS01+344 00901000 CVTWSAL EQU CVTS01+340 00902000 CVTSPSA EQU CVTS01+336 00903000 CVTGLMN EQU CVTS01+332 00904000 CVTVEAC0 EQU CVTS01+328 00905000 CVT062R1 EQU CVTS01+324 00906000 CVTRPOST EQU CVTS01+320 00907000 CVTDQIQE EQU CVTS01+316 00908000 CVTCSD EQU CVTS01+312 00909000 CVTLKRMA EQU CVTS01+308 00910000 CVTRSPIE EQU CVTS01+304 00911000 CVTRENQ EQU CVTS01+300 00912000 CVTLQCB EQU CVTS01+296 00913000 CVTFQCB EQU CVTS01+292 00914000 CVTQCS01 EQU CVTS01+288 00915000 CVTAPFT EQU CVTS01+284 00916000 CVTPARRL EQU CVTS01+280 00917000 CVTVWAIT EQU CVTS01+276 00918000 CVTGSPL EQU CVTS01+272 00919000 CVTLSMQ EQU CVTS01+268 00920000 CVTGSMQ EQU CVTS01+264 00921000 CVTEXPRO EQU CVTS01+260 00922000 CVTOPCTP EQU CVTS01+256 00923000 CVTSIC EQU CVTS01+252 00924000 CVTTPIOS EQU CVTS01+248 00925000 CVTRTMS EQU CVTS01+244 00926000 CVTSDBF EQU CVTS01+240 00927000 CVTSCBP EQU CVTS01+236 00928000 CVTSDMP EQU CVTS01+232 00929000 CVTSV60 EQU CVTS01+228 00930000 CVTRTMCT EQU CVTS01+224 00931000 CVTASCBL EQU CVTS01+220 00932000 CVTASCBH EQU CVTS01+216 00933000 CVTGDA EQU CVTS01+212 00934000 CVTASVT EQU CVTS01+208 00935000 CVTVVMDI EQU CVTS01+204 00936000 CVTAQTOP EQU CVTS01+200 00937000 CVTIOSCS EQU CVTS01+196 00938000 CVTSDRM EQU CVTS01+192 00939000 CVTOPTE EQU CVTS01+188 00940000 CVTSTXU EQU CVTS01+184 00941000 CVTQUIS EQU CVTS01+180 00942000 CVTPARS EQU CVTS01+176 00943000 CVTS1EE EQU CVTS01+172 00944000 CVTFRAS EQU CVTS01+168 00945000 CVTQSAS EQU CVTS01+164 00946000 CVTCRAS EQU CVTS01+160 00947000 CVTDELCP EQU CVTS01+152 00948000 CVTFRECL EQU CVTS01+148 00949000 CVTGETCL EQU CVTS01+144 00950000 CVTBLDCP EQU CVTS01+140 00951000 CVTAUTHL EQU CVTS01+136 00952000 CVTSCAN EQU CVTS01+132 00953000 CVTRV144 EQU CVTS01+130 00954000 CVTMAXMP EQU CVTS01+128 00955000 CVTSTCK EQU CVTS01+124 00956000 CVTRV139 EQU CVTS01+123 00957000 CVTDSSAC EQU CVTS01+122 00958000 CVTRV513 EQU CVTS01+121 00959000 CVTIOSPL EQU CVTS01+120 00960000 CVTPTGT EQU CVTS01+116 00961000 CVTCSPIE EQU CVTS01+112 00962000 CVTSMFEX EQU CVTS01+108 00963000 CVTOLT0A EQU CVTS01+104 00964000 CVTSRBRT EQU CVTS01+100 00965000 CVTPUTL EQU CVTS01+96 00966000 CVTRV519 EQU CVTS01+92 00967000 CVTRV327 EQU CVTS01+88 00968000 CVTRV326 EQU CVTS01+84 00969000 CVTRV325 EQU CVTS01+80 00970000 CVTRV324 EQU CVTS01+76 00971000 CVT0VL01 EQU CVTS01+72 00972000 CVTSHRVM EQU CVTS01+68 00973000 CVTRV332 EQU CVTS01+64 00974000 CVTTAS EQU CVTS01+60 00975000 CVTRSCN EQU CVTS01+56 00976000 CVTTRAC2 EQU CVTS01+54 00977000 CVTTRACE EQU CVTS01+52 00978000 CVTAPG EQU CVTS01+51 00979000 CVTSDTRC EQU CVTCTLFG 00980000 CVTGTRCE EQU CVTCTLFG 00981000 CVTNOMP EQU CVTCTLFG 00982000 CVTRSV79 EQU CVTCTLFG 00983000 CVTDSTAT EQU CVTCTLFG 00984000 CVTRSV78 EQU CVTCTLFG 00985000 CVTRV333 EQU CVTCTLFG 00986000 CVTRV323 EQU CVTCTLFG 00987000 CVTSPVLK EQU CVTS01+49 00988000 CVTRSV77 EQU CVTS01+48 00989000 CVTRV331 EQU CVTS01+44 00990000 CVTRV330 EQU CVTS01+40 00991000 CVTRV329 EQU CVTS01+36 00992000 CVTRV328 EQU CVTS01+32 00993000 CVTRV322 EQU CVTS01+28 00994000 CVTSLID EQU CVTSLIDA+1 00995000 CVTSYLK EQU CVTSLIDA 00996000 CVTRV321 EQU CVTS01+20 00997000 CVTRV320 EQU CVTS01+16 00998000 CVTLPDIR EQU CVTLPDIA+1 00999000 CVTRSV69 EQU CVTDIRST 01000000 CVTRSV68 EQU CVTDIRST 01001000 CVTRSV67 EQU CVTDIRST 01002000 CVTRSV66 EQU CVTDIRST 01003000 CVTRSV65 EQU CVTDIRST 01004000 CVTRSV64 EQU CVTDIRST 01005000 CVTRSV63 EQU CVTDIRST 01006000 CVTDICOM EQU CVTDIRST 01007000 CVTPVTP EQU CVTS01+8 01008000 CVTLPDSR EQU CVTS01+4 01009000 CVTGETL EQU CVTS01 01010000 PSARSAV EQU PSARSVTE+60 01011000 PSARSTK EQU PSARSVTE+56 01012000 PSAESAV3 EQU PSARSVTE+52 01013000 PSAESTK3 EQU PSARSVTE+48 01014000 PSAESAV2 EQU PSARSVTE+44 01015000 PSAESTK2 EQU PSARSVTE+40 01016000 PSAESAV1 EQU PSARSVTE+36 01017000 PSAESTK1 EQU PSARSVTE+32 01018000 PSAPSAV EQU PSARSVTE+28 01019000 PSAPSTK EQU PSARSVTE+24 01020000 PSAMSAV EQU PSARSVTE+20 01021000 PSAMSTK EQU PSARSVTE+16 01022000 PSASSAV EQU PSARSVTE+12 01023000 PSASSTK EQU PSARSVTE+8 01024000 PSANSTK EQU PSARSVTE+4 01025000 SAVESAVE EQU PARMS+12 01026000 @NM00085 EQU PARMS 01027000 CVTLEVL EQU CVTRELNO+2 01028000 CVTNUMB EQU CVTRELNO 01029000 CVTMDL EQU CVTFIX+250 01030000 @NM00084 EQU CVTFIX+248 01031000 @NM00083 EQU CVTFIX 01032000 CVTRV482 EQU CVTXTNT2+128 01033000 CVTRV481 EQU CVTXTNT2+124 01034000 CVTRV480 EQU CVTXTNT2+120 01035000 CVTRV479 EQU CVTXTNT2+118 01036000 CVTRV478 EQU CVTXTNT2+117 01037000 CVTRV477 EQU CVTXTNT2+116 01038000 CVTRV476 EQU CVTXTNT2+115 01039000 CVTRV475 EQU CVTXTNT2+114 01040000 CVTRV474 EQU CVTRV466 01041000 CVTRV473 EQU CVTRV466 01042000 CVTRV472 EQU CVTRV466 01043000 CVTRV471 EQU CVTRV466 01044000 CVTRV470 EQU CVTRV466 01045000 CVTRV469 EQU CVTRV466 01046000 CVTRV468 EQU CVTRV466 01047000 CVTRV467 EQU CVTRV466 01048000 CVTRV465 EQU CVTRV457 01049000 CVTRV464 EQU CVTRV457 01050000 CVTRV463 EQU CVTRV457 01051000 CVTRV462 EQU CVTRV457 01052000 CVTRV461 EQU CVTRV457 01053000 CVTRV460 EQU CVTRV457 01054000 CVTRV459 EQU CVTRV457 01055000 CVTRV458 EQU CVTRV457 01056000 CVTRV456 EQU CVTXTNT2+108 01057000 CVTRV455 EQU CVTXTNT2+104 01058000 CVTRV454 EQU CVTXTNT2+100 01059000 CVTRV453 EQU CVTXTNT2+96 01060000 CVTRV452 EQU CVTXTNT2+94 01061000 CVTRV451 EQU CVTXTNT2+92 01062000 CVTRV450 EQU CVTXTNT2+90 01063000 CVTRV449 EQU CVTXTNT2+88 01064000 CVTRV448 EQU CVTXTNT2+87 01065000 CVTRV447 EQU CVTXTNT2+86 01066000 CVTRV446 EQU CVTRV438 01067000 CVTRV445 EQU CVTRV438 01068000 CVTRV444 EQU CVTRV438 01069000 CVTRV443 EQU CVTRV438 01070000 CVTRV442 EQU CVTRV438 01071000 CVTRV441 EQU CVTRV438 01072000 CVTRV440 EQU CVTRV438 01073000 CVTRV439 EQU CVTRV438 01074000 CVTRV437 EQU CVTRV429 01075000 CVTRV436 EQU CVTRV429 01076000 CVTRV435 EQU CVTRV429 01077000 CVTRV434 EQU CVTRV429 01078000 CVTRV433 EQU CVTRV429 01079000 CVTRV432 EQU CVTRV429 01080000 CVTRV431 EQU CVTRV429 01081000 CVTRV430 EQU CVTRV429 01082000 CVTRV428 EQU CVTXTNT2+80 01083000 CVTRV427 EQU CVTXTNT2+76 01084000 CVTRV426 EQU CVTXTNT2+72 01085000 CVTRV425 EQU CVTXTNT2+68 01086000 CVTATACT EQU CVTATCVT 01087000 CVTRV423 EQU CVTXTNT2+62 01088000 CVTRV422 EQU CVTXTNT2+60 01089000 CVTRV421 EQU CVTXTNT2+58 01090000 CVTRV420 EQU CVTXTNT2+56 01091000 CVTRV419 EQU CVTXTNT2+55 01092000 CVTRV418 EQU CVTXTNT2+54 01093000 CVTRV417 EQU CVTRV409 01094000 CVTRV416 EQU CVTRV409 01095000 CVTRV415 EQU CVTRV409 01096000 CVTRV414 EQU CVTRV409 01097000 CVTRV413 EQU CVTRV409 01098000 CVTRV412 EQU CVTRV409 01099000 CVTRV411 EQU CVTRV409 01100000 CVTRV410 EQU CVTRV409 01101000 CVTRV408 EQU CVTRV400 01102000 CVTRV407 EQU CVTRV400 01103000 CVTRV406 EQU CVTRV400 01104000 CVTRV405 EQU CVTRV400 01105000 CVTRV404 EQU CVTRV400 01106000 CVTRV403 EQU CVTRV400 01107000 CVTRV402 EQU CVTRV400 01108000 CVTRV401 EQU CVTRV400 01109000 CVTICB EQU CVTXTNT2+48 01110000 CVTSKTA EQU CVTXTNT2+44 01111000 CVTRSV99 EQU CVTXTNT2+40 01112000 CVTRSV98 EQU CVTXTNT2+36 01113000 CVTRSV97 EQU CVTXTNT2+34 01114000 CVTRSV96 EQU CVTXTNT2+32 01115000 CVTOLTEP EQU CVTXTNT2+28 01116000 CVTQIDA EQU CVTQID+1 01117000 CVTRSV95 EQU CVTQID 01118000 CVTRSV94 EQU CVTXTNT2+20 01119000 CVTRSV93 EQU CVTXTNT2+16 01120000 CVTRSV92 EQU CVTXTNT2+12 01121000 CVTDEBVR EQU CVTXTNT2+8 01122000 CVTRSV91 EQU CVTXTNT2+6 01123000 CVTRSV9H EQU CVTFLGBT 01124000 CVTRSV9G EQU CVTFLGBT 01125000 CVTRSV9F EQU CVTFLGBT 01126000 CVTRSV9E EQU CVTFLGBT 01127000 CVTRSV9D EQU CVTFLGBT 01128000 CVTRSV9C EQU CVTFLGBT 01129000 CVTVME EQU CVTFLGBT 01130000 CVTNPE EQU CVTFLGBT 01131000 CVTNUCLS EQU CVTXTNT2+4 01132000 CVTDSSVA EQU CVTDSSV+1 01133000 CVTRSV89 EQU CVTDSSV 01134000 CVTRSV88 EQU CVTXTNT1+8 01135000 CVTRSV87 EQU CVTXTNT1+4 01136000 CVTFACHN EQU CVTXTNT1 01137000 CVTRV488 EQU CVTMAP+412 01138000 CVTRV487 EQU CVTMAP+408 01139000 CVTRV486 EQU CVTMAP+404 01140000 CVTRV485 EQU CVTMAP+400 01141000 CVTACTAP EQU CVTMAP+396 01142000 CVTAUTH EQU CVTMAP+392 01143000 CVTATMCA EQU CVTATMCT+1 01144000 CVTATMST EQU CVTATMCT 01145000 CVTRSV61 EQU CVTMAP+384 01146000 CVTVOLT1 EQU CVTVOLM1+1 01147000 CVTVOLI1 EQU CVTVOLF1 01148000 CVTSTOA EQU CVTMAP+376 01149000 CVTRSV58 EQU CVTMAP+374 01150000 CVTRSV57 EQU CVTMAP+372 01151000 CVTDDCE EQU CVTMAP+368 01152000 CVTPNWFR EQU CVTMAP+364 01153000 CVTSMF EQU CVTMAP+360 01154000 CVTSULK EQU CVTMAP+358 01155000 CVTSLKO EQU CVTSYSK 01156000 CVTSLKP EQU CVTSYSK 01157000 CVTSLKQ EQU CVTSYSK 01158000 CVTSLKR EQU CVTSYSK 01159000 CVTRSV56 EQU CVTSYSK 01160000 CVTRSV55 EQU CVTSYSK 01161000 CVTRSV54 EQU CVTSYSK 01162000 CVTRSV53 EQU CVTSYSK 01163000 CVTRSV52 EQU CVTA1F1 01164000 CVTRSV51 EQU CVTA1F1 01165000 CVTRSV50 EQU CVTA1F1 01166000 CVTRSV49 EQU CVTA1F1 01167000 CVTRSV48 EQU CVTA1F1 01168000 CVTRSV47 EQU CVTA1F1 01169000 CVTSRSW EQU CVTA1F1 01170000 CVTPFSW EQU CVTA1F1 01171000 CVTPCVT EQU CVTMAP+352 01172000 CVTRSV46 EQU CVTMAP+344 01173000 CVTRSV45 EQU CVTMAP+340 01174000 CVTRSV44 EQU CVTMAP+338 01175000 CVTRSV43 EQU CVTMAP+336 01176000 CVTHJESA EQU CVTHJES+1 01177000 CVTRSV42 EQU CVTHJES 01178000 CVTEXT2A EQU CVTEXT2+1 01179000 CVTRSV41 EQU CVTEXT2 01180000 CVTAPFA EQU CVTAPF+1 01181000 CVTRSV40 EQU CVTAPF 01182000 CVTRV518 EQU CVTINTLA 01183000 CVTRV517 EQU CVTERPV 01184000 CVTEORM EQU CVTMAP+312 01185000 CVTMCHPR EQU CVTMAP+308 01186000 CVTTZ EQU CVTMAP+304 01187000 CVTJEPS EQU CVTMAP+300 01188000 CVTJESCT EQU CVTMAP+296 01189000 CVTMODE EQU CVTMAP+292 01190000 CVTPTRV EQU CVTMAP+288 01191000 CVTREAL EQU CVTMAP+284 01192000 CVTRSV39 EQU CVTMAP+280 01193000 CVTRSV38 EQU CVTMAP+276 01194000 CVTDMSRA EQU CVTDMSR+1 01195000 CVTRSV37 EQU CVTDMSR 01196000 CVTQMSGA EQU CVTQMSG+1 01197000 CVTRSV36 EQU CVTQMSG 01198000 CVTAMFF EQU CVTMAP+264 01199000 CVTPURGA EQU CVTPURG+1 01200000 CVTRSV35 EQU CVTPURG 01201000 CVTCBSP EQU CVTMAP+256 01202000 CVTATERA EQU CVTATER+1 01203000 CVTSYST EQU CVTATER 01204000 CVTVOLT2 EQU CVTTAT 01205000 CVTVOLI2 EQU CVTVOLF2 01206000 CVTAQAVB EQU CVTAQAVT+1 01207000 CVTRSV34 EQU CVTTCMFG 01208000 CVTRSV33 EQU CVTTCMFG 01209000 CVTRSV32 EQU CVTTCMFG 01210000 CVTRSV31 EQU CVTTCMFG 01211000 CVTRSV30 EQU CVTTCMFG 01212000 CVTRSV29 EQU CVTTCMFG 01213000 CVTRSV28 EQU CVTTCMFG 01214000 CVTTCRDY EQU CVTTCMFG 01215000 CVTGTFA EQU CVTGTF+1 01216000 CVTRSV27 EQU CVTGTFST 01217000 CVTRNIO EQU CVTGTFST 01218000 CVTUSR EQU CVTGTFST 01219000 CVTRV318 EQU CVTFORM 01220000 CVTRV317 EQU CVTTMODE 01221000 CVTRV316 EQU CVTSTATE 01222000 CVTRV315 EQU CVTGTFS 01223000 CVTGTFAV EQU CVTGTFS 01224000 CVT0SCR1 EQU CVTMAP+232 01225000 CVTRV515 EQU CVTMAP+228 01226000 CVTRMS EQU CVTMAP+224 01227000 CVTPATCH EQU CVTMAP+220 01228000 CVTTSCE EQU CVTMAP+216 01229000 CVTLNKSC EQU CVTMAP+214 01230000 CVTQABST EQU CVTMAP+212 01231000 CVTMDLDS EQU CVTMAP+208 01232000 CVTUSER EQU CVTMAP+204 01233000 CVTABEND EQU CVTMAP+200 01234000 CVTSMCA EQU CVTMAP+196 01235000 CVTRSV18 EQU CVTMAP+192 01236000 CVTQLPAQ EQU CVTMAP+188 01237000 CVTQCDSR EQU CVTMAP+184 01238000 CVTRSV17 EQU CVTOPTB 01239000 CVTRSV16 EQU CVTOPTB 01240000 CVTFP EQU CVTOPTB 01241000 CVTAPTHR EQU CVTOPTB 01242000 CVTNLOG EQU CVTOPTB 01243000 CVTTOD EQU CVTOPTB 01244000 CVTCTIMS EQU CVTOPTB 01245000 CVTPROT EQU CVTOPTB 01246000 CVTXPFP EQU CVTOPTA 01247000 CVTASCII EQU CVTOPTA 01248000 CVTRSV13 EQU CVTOPTA 01249000 CVTRSV12 EQU CVTOPTA 01250000 CVTNIP EQU CVTOPTA 01251000 CVTDDR EQU CVTOPTA 01252000 CVTAPR EQU CVTOPTA 01253000 CVTCCH EQU CVTOPTA 01254000 CVTSNCTR EQU CVTMAP+180 01255000 CVTQMWR EQU CVTMAP+176 01256000 CVTQOCR EQU CVTMAP+172 01257000 CVT1EF00 EQU CVTMAP+168 01258000 CVTMZ00 EQU CVTMAP+164 01259000 CVTHEAD EQU CVTMAP+160 01260000 CVTRSV11 EQU CVTMAP+156 01261000 CVT0PT01 EQU CVTMAP+152 01262000 CVTMSER EQU CVTMAP+148 01263000 CVTRV516 EQU CVTIERLC 01264000 CVTILCH EQU CVTMAP+140 01265000 CVT0DS EQU CVTMAP+136 01266000 CVTFBOSV EQU CVTMAP+132 01267000 CVTNUCB EQU CVTMAP+128 01268000 CVTIXAVL EQU CVTMAP+124 01269000 CVTIOQET EQU CVTMAP+120 01270000 CVTDCBA EQU CVTMAP+117 01271000 CVTMVS2 EQU CVTDCB 01272000 CVT6DAT EQU CVTDCB 01273000 CVT4MPS EQU CVTDCB 01274000 CVTRSV09 EQU CVTDCB 01275000 CVT4MS1 EQU CVTDCB 01276000 CVT2SPS EQU CVTDCB 01277000 CVT1SSS EQU CVTDCB 01278000 CVTRSV08 EQU CVTDCB 01279000 CVTSTB EQU CVTMAP+112 01280000 CVTQTD00 EQU CVTMAP+108 01281000 CVTQTE00 EQU CVTMAP+104 01282000 CVTCUCB EQU CVTMAP+100 01283000 CVTSJQ EQU CVTMAP+96 01284000 CVTPBLDL EQU CVTMAP+92 01285000 CVTTPC EQU CVTMAP+88 01286000 CVTSVDCB EQU CVTMAP+84 01287000 CVTBRET EQU CVTMAP+82 01288000 CVTEXIT EQU CVTMAP+80 01289000 CVT0FN00 EQU CVTMAP+76 01290000 CVTDARA EQU CVTDAR+1 01291000 CVTRSV07 EQU CVTFLGS1 01292000 CVTRSV06 EQU CVTFLGS1 01293000 CVTRSV05 EQU CVTFLGS1 01294000 CVTRSV04 EQU CVTFLGS1 01295000 CVTRSV03 EQU CVTFLGS1 01296000 CVTRSV02 EQU CVTFLGS1 01297000 CVTRSV01 EQU CVTFLGS1 01298000 CVTDMPLK EQU CVTFLGS1 01299000 CVTXITP EQU CVTMAP+68 01300000 CVTZDTAB EQU CVTMAP+64 01301000 CVTMSLT EQU CVTMAP+60 01302000 CVTDATE EQU CVTMAP+56 01303000 CVTBTERM EQU CVTMAP+52 01304000 CVTSYSAD EQU CVTMAP+48 01305000 CVTXTLER EQU CVTMAP+44 01306000 CVTILK2 EQU CVTMAP+40 01307000 CVTILK1 EQU CVTMAP+36 01308000 CVTPRLTV EQU CVTMAP+32 01309000 CVTPCNVT EQU CVTMAP+28 01310000 CVT0VL00 EQU CVTMAP+24 01311000 CVTXAPG EQU CVTMAP+20 01312000 CVTBUF EQU CVTMAP+16 01313000 CVTJOB EQU CVTMAP+12 01314000 CVTLINK EQU CVTMAP+8 01315000 CVT0EF00 EQU CVTMAP+4 01316000 CVTTCBP EQU CVTMAP 01317000 CVT EQU CVTMAP 01318000 FRRSPARM EQU FRRSENTR+8 01319000 @NM00082 EQU FRRSFLGS+1 01320000 @NM00081 EQU FRRSFLG1 01321000 FRRSNEST EQU FRRSFLG1 01322000 FRRSRCUR EQU FRRSFLG1 01323000 FRRSFRRA EQU FRRSENTR 01324000 FRRSENTS EQU FRRS+84 01325000 FRRSRTMW EQU FRRS+16 01326000 FRRSCURR EQU FRRSHEAD+12 01327000 FRRSELEN EQU FRRSHEAD+8 01328000 FRRSLAST EQU FRRSHEAD+4 01329000 FRRSEMP EQU FRRSHEAD 01330000 LDAEND EQU LDA+1496 01331000 LCLCELCT EQU LDA+1492 01332000 LCLCELL EQU LDA+1488 01333000 LDALIMIT EQU LDA+1484 01334000 LDARSVPT EQU LDA+1480 01335000 LDASRPQE EQU LDA+1476 01336000 CURRGNTP EQU LDA+1472 01337000 VVREGSZ EQU LDA+1468 01338000 LSQAPTR EQU LDA+1464 01339000 CSAVE EQU LDA+1100 01340000 OBFRSAVE EQU LDA+1036 01341000 GFRESAVE EQU LDA+972 01342000 GMREPSAV EQU LDA+908 01343000 FBQSAVE EQU LDA+844 01344000 G4KSAVE EQU LDA+780 01345000 FSAVE EQU LDA+716 01346000 BSAVE EQU LDA+652 01347000 SAVEREG2 EQU LDA+588 01348000 BRANCHSV EQU LDA+524 01349000 GMFMWKAR EQU LDA+24 01350000 LDARES2 EQU LDA+21 01351000 LDACBSP EQU LDA+20 01352000 LDARQSTA EQU LDA+16 01353000 LDATCB EQU LDA+12 01354000 ASDPQE EQU LDA+8 01355000 PASCBSV EQU LDA+4 01356000 @NM00080 EQU LVSMFLAG+1 01357000 LDABRSW EQU LVSMFLAG 01358000 LDAFPFM EQU LVSMFLAG 01359000 LDAFLAGS EQU LVSMFLAG 01360000 LDASTART EQU LDA 01361000 @NM00055 EQU SDUMP+20 01362000 @NM00054 EQU SDUMP+16 01363000 @NM00053 EQU SDUMP+12 01364000 @NM00052 EQU SDUMP+8 01365000 @NM00051 EQU SDUMP+4 01366000 @NM00050 EQU SDUSDAT2 01367000 SDUSWA EQU SDUSDAT2 01368000 SDUCSA EQU SDUSDAT2 01369000 SDUTRT EQU SDUSDAT1 01370000 SDULPA EQU SDUSDAT1 01371000 SDURGN EQU SDUSDAT1 01372000 SDULSQA EQU SDUSDAT1 01373000 SDUSQA EQU SDUSDAT1 01374000 SDUNUC EQU SDUSDAT1 01375000 SDUPSA EQU SDUSDAT1 01376000 SDUALPSA EQU SDUSDAT1 01377000 @NM00049 EQU SDUMP 01378000 ASCBEND EQU ASCB+208 01379000 ASCBSRBT EQU ASCB+200 01380000 ASCBSWTL EQU ASCB+196 01381000 ASCBRS14 EQU ASCB+195 01382000 ASCBSMCT EQU ASCB+194 01383000 ASCBRS12 EQU ASCB+192 01384000 ASCBPCTT EQU ASCB+188 01385000 ASCBVGTT EQU ASCB+184 01386000 ASCBLGCB EQU ASCB+180 01387000 ASCBJBNS EQU ASCB+176 01388000 ASCBJBNI EQU ASCB+172 01389000 ASCBMCC EQU ASCB+168 01390000 ASCBRTWA EQU ASCB+164 01391000 ASCBIQEA EQU ASCB+160 01392000 ASCBXMPQ EQU ASCB+156 01393000 ASCBRS01 EQU ASCB+154 01394000 ASCBFMCT EQU ASCB+152 01395000 ASCBOUXB EQU ASCB+148 01396000 ASCBOUCB EQU ASCB+144 01397000 ASCBMECB EQU ASCB+140 01398000 ASCBQECB EQU ASCB+136 01399000 ASCBCMSB EQU ASCB+132 01400000 ASCBCMSF EQU ASCB+128 01401000 ASCBTCBS EQU ASCB+124 01402000 ASCBNVSC EQU ASCB+122 01403000 ASCBVSC EQU ASCB+120 01404000 ASCBSRBS EQU ASCB+118 01405000 ASCBSSRB EQU ASCB+116 01406000 ASCBRV06 EQU ASCBFLG2 01407000 ASCBRV05 EQU ASCBFLG2 01408000 ASCBRV04 EQU ASCBFLG2 01409000 ASCBSNQS EQU ASCBFLG2 01410000 ASCBS2S EQU ASCBFLG2 01411000 ASCBCEXT EQU ASCBFLG2 01412000 ASCBPXMT EQU ASCBFLG2 01413000 ASCBXMPT EQU ASCBFLG2 01414000 ASCBRF07 EQU ASCBDSP1 01415000 ASCBRF06 EQU ASCBDSP1 01416000 ASCBRF05 EQU ASCBDSP1 01417000 ASCBRF04 EQU ASCBDSP1 01418000 ASCBRF03 EQU ASCBDSP1 01419000 ASCBRF02 EQU ASCBDSP1 01420000 ASCBFAIL EQU ASCBDSP1 01421000 ASCBNOQ EQU ASCBDSP1 01422000 ASCBSWCT EQU ASCB+112 01423000 ASCBASXB EQU ASCB+108 01424000 ASCBTMCH EQU ASCB+104 01425000 ASCBNSWP EQU ASCBFLG1 01426000 ASCBTYP1 EQU ASCBFLG1 01427000 ASCBSTND EQU ASCBFLG1 01428000 ASCBABNT EQU ASCBFLG1 01429000 ASCBTERM EQU ASCBFLG1 01430000 ASCBS3S EQU ASCBFLG1 01431000 ASCBCMSH EQU ASCBFLG1 01432000 ASCBTOFF EQU ASCBFLG1 01433000 ASCBRF01 EQU ASCBRCTF 01434000 ASCBTMLW EQU ASCBRCTF 01435000 ASCBOUT EQU ASCBRCTF 01436000 ASCBWAIT EQU ASCBRCTF 01437000 ASCBRV08 EQU ASCBRCTF 01438000 ASCBFQU EQU ASCBRCTF 01439000 ASCBFRS EQU ASCBRCTF 01440000 ASCBTMNO EQU ASCBRCTF 01441000 ASCBAFFN EQU ASCBFW1 01442000 ASCBDUMP EQU ASCB+96 01443000 ASCBQSVC EQU ASCB+92 01444000 ASCBUBET EQU ASCB+88 01445000 ASCBECB EQU ASCB+84 01446000 ASCBJSTL EQU ASCB+80 01447000 ASCBEWST EQU ASCB+72 01448000 ASCBEJST EQU ASCB+64 01449000 ASCBTSB EQU ASCB+60 01450000 ASCBCSCB EQU ASCB+56 01451000 ASCBRSM EQU ASCB+52 01452000 ASCBSTOR EQU ASCB+44 01453000 ASCBDP EQU ASCB+43 01454000 ASCBRV07 EQU ASCB+42 01455000 ASCBIOSM EQU ASCB+40 01456000 ASCBSEQN EQU ASCB+38 01457000 ASCBASID EQU ASCB+36 01458000 ASCBCPUS EQU ASCB+32 01459000 ASCBSPL EQU ASCB+28 01460000 ASCBLSLQ EQU ASCB+24 01461000 ASCBFSLQ EQU ASCB+20 01462000 ASCBIOSP EQU ASCB+16 01463000 ASCBLOCK EQU ASCB+12 01464000 ASCBBWDP EQU ASCB+8 01465000 ASCBFWDP EQU ASCB+4 01466000 ASCBASCB EQU ASCB 01467000 ASCBEGIN EQU ASCB 01468000 @NM00048 EQU SDWA+512 01469000 SDWAVRA EQU SDWARA+4 01470000 SDWAURAL EQU SDWARA+3 01471000 @NM00047 EQU SDWADPVA 01472000 SDWAEBC EQU SDWADPVA 01473000 SDWAHEX EQU SDWADPVA 01474000 SDWAVRAL EQU SDWARA 01475000 @NM00046 EQU SDWA+396 01476000 SDWACOMP EQU SDWA+392 01477000 SDWARCPL EQU SDWA+364 01478000 @NM00045 EQU SDWADPSA+32 01479000 SDWATO4 EQU SDWADPSL+28 01480000 SDWAFRM4 EQU SDWADPSL+24 01481000 SDWATO3 EQU SDWADPSL+20 01482000 SDWAFRM3 EQU SDWADPSL+16 01483000 SDWATO2 EQU SDWADPSL+12 01484000 SDWAFRM2 EQU SDWADPSL+8 01485000 SDWATO1 EQU SDWADPSL+4 01486000 SDWAFRM1 EQU SDWADPSL 01487000 @NM00044 EQU SDWADDAT+3 01488000 @NM00043 EQU SDWAPDAT 01489000 SDWAUSPL EQU SDWAPDAT 01490000 SDWADPSW EQU SDWAPDAT 01491000 SDWATJPA EQU SDWAPDAT 01492000 SDWATLPA EQU SDWAPDAT 01493000 SDWADREG EQU SDWAPDAT 01494000 SDWADSAH EQU SDWAPDAT 01495000 SDWADSAS EQU SDWAPDAT 01496000 @NM00042 EQU SDWADDAT+1 01497000 @NM00041 EQU SDWASDAT 01498000 SDWAQQS EQU SDWASDAT 01499000 SDWACBS EQU SDWASDAT 01500000 SDWAGTF EQU SDWASDAT 01501000 SDWASWA EQU SDWASDAT 01502000 SDWALSQA EQU SDWASDAT 01503000 SDWASQA EQU SDWASDAT 01504000 SDWANUC EQU SDWASDAT 01505000 @NM00040 EQU SDWADUMP+2 01506000 @NM00039 EQU SDWADPFS 01507000 SDWASLST EQU SDWADPFS 01508000 @NM00038 EQU SDWADPFS 01509000 SDWADLST EQU SDWADPFS 01510000 SDWADPT EQU SDWADPFS 01511000 SDWADPID EQU SDWADUMP 01512000 SDWADPLA EQU SDWA+316 01513000 @NM00037 EQU SDWA+290 01514000 SDWAASID EQU SDWA+288 01515000 SDWATALW EQU SDWALKWS+28 01516000 SDWATDLW EQU SDWALKWS+24 01517000 SDWATNLW EQU SDWALKWS+20 01518000 SDWAAPLW EQU SDWALKWS+16 01519000 SDWAIPLW EQU SDWALKWS+12 01520000 SDWAILLW EQU SDWALKWS+8 01521000 SDWAIULW EQU SDWALKWS+4 01522000 SDWAICLW EQU SDWALKWS 01523000 SDWACMS EQU SDWAACF4 01524000 SDWAOPTM EQU SDWAACF4 01525000 SDWATADB EQU SDWAACF4 01526000 SDWATDNB EQU SDWAACF4 01527000 SDWATNCB EQU SDWAACF4 01528000 SDWAILCH EQU SDWAACF4 01529000 SDWAIUCB EQU SDWAACF4 01530000 SDWAICAT EQU SDWAACF3 01531000 SDWAIPRG EQU SDWAACF3 01532000 SDWAASMP EQU SDWAACF3 01533000 SDWADISP EQU SDWAACF3 01534000 @NM00036 EQU SDWAACF3 01535000 @NM00035 EQU SDWAACF2 01536000 SDWAFREE EQU SDWAACF2 01537000 @NM00034 EQU SDWAACF2 01538000 SDWASPIN EQU SDWAACF2 01539000 @NM00033 EQU SDWAACF2 01540000 SDWALCPU EQU SDWACPUA+2 01541000 @NM00032 EQU SDWACPUA 01542000 SDWARECA EQU SDWA+244 01543000 @NM00031 EQU SDWA+239 01544000 @NM00030 EQU SDWAIOFS 01545000 SDWANIOP EQU SDWAIOFS 01546000 SDWANOIO EQU SDWAIOFS 01547000 SDWAIOHT EQU SDWAIOFS 01548000 SDWAIOQR EQU SDWAIOFS 01549000 @NM00029 EQU SDWAERRD 01550000 SDWAMCIV EQU SDWAERRD 01551000 SDWARPIV EQU SDWAERRD 01552000 SDWAMABD EQU SDWAERRD 01553000 SDWACTS EQU SDWAERRD 01554000 SDWASTAE EQU SDWAERRD 01555000 SDWANRBE EQU SDWAERRD 01556000 SDWACLUP EQU SDWAERRD 01557000 @NM00028 EQU SDWAERRC 01558000 SDWAEAS EQU SDWAERRC 01559000 SDWAIRB EQU SDWAERRC 01560000 SDWASTAI EQU SDWAERRC 01561000 SDWASTAF EQU SDWAERRC 01562000 SDWASRBM EQU SDWAERRB 01563000 SDWALDIS EQU SDWAERRB 01564000 SDWAENRB EQU SDWAERRB 01565000 SDWATYP1 EQU SDWAERRB 01566000 @NM00027 EQU SDWAERRB 01567000 SDWAPGIO EQU SDWAERRA 01568000 SDWATEXC EQU SDWAERRA 01569000 SDWASVCE EQU SDWAERRA 01570000 SDWAABTM EQU SDWAERRA 01571000 SDWASVCD EQU SDWAERRA 01572000 SDWARKEY EQU SDWAERRA 01573000 SDWATIME EQU SDWAMCH+20 01574000 SDWARFSA EQU SDWAMCH+16 01575000 @NM00026 EQU SDWAMCH+14 01576000 SDWAVEQR EQU SDWARSR2 01577000 SDWAPGFX EQU SDWARSR2 01578000 SDWAFLSQ EQU SDWARSR2 01579000 SDWAFSQA EQU SDWARSR2 01580000 SDWANUCL EQU SDWARSR2 01581000 SDWASPER EQU SDWARSR2 01582000 SDWAINTC EQU SDWARSR2 01583000 SDWAOFLN EQU SDWARSR2 01584000 SDWACHNG EQU SDWARSR1 01585000 SDWAMSER EQU SDWARSR1 01586000 @NM00025 EQU SDWARSR1 01587000 SDWACPID EQU SDWAMCH+10 01588000 SDWATERR EQU SDWAMCHD 01589000 SDWAFPRX EQU SDWAMCHD 01590000 SDWAINSF EQU SDWAMCHD 01591000 SDWAACR EQU SDWAMCHD 01592000 SDWASCK EQU SDWAMCHD 01593000 SDWAPSWU EQU SDWAMCHD 01594000 SDWAREGU EQU SDWAMCHD 01595000 SDWASKYF EQU SDWAMCHD 01596000 @NM00024 EQU SDWAMCHS 01597000 SDWARSRF EQU SDWAMCHS 01598000 SDWARSRC EQU SDWAMCHS 01599000 SDWAINVP EQU SDWAMCHS 01600000 SDWATSVL EQU SDWAMCHS 01601000 SDWARCDF EQU SDWAMCHS 01602000 SDWASRVL EQU SDWAMCHS 01603000 SDWASCKE EQU SDWASTCK+4 01604000 SDWASCKB EQU SDWASTCK 01605000 SDWALNTH EQU SDWAIDNT+1 01606000 SDWASPID EQU SDWAIDNT 01607000 SDWASR15 EQU SDWASRSV+60 01608000 SDWASR14 EQU SDWASRSV+56 01609000 SDWASR13 EQU SDWASRSV+52 01610000 SDWASR12 EQU SDWASRSV+48 01611000 SDWASR11 EQU SDWASRSV+44 01612000 SDWASR10 EQU SDWASRSV+40 01613000 SDWASR09 EQU SDWASRSV+36 01614000 SDWASR08 EQU SDWASRSV+32 01615000 SDWASR07 EQU SDWASRSV+28 01616000 SDWASR06 EQU SDWASRSV+24 01617000 SDWASR05 EQU SDWASRSV+20 01618000 SDWASR04 EQU SDWASRSV+16 01619000 SDWASR03 EQU SDWASRSV+12 01620000 SDWASR02 EQU SDWASRSV+8 01621000 SDWASR00 EQU SDWASRSV 01622000 SDWATRN2 EQU SDWAAEC2+4 01623000 SDWAIPC2 EQU SDWAICD2 01624000 SDWAIMC2 EQU SDWAICD2 01625000 SDWAIPR2 EQU SDWAICD2 01626000 @NM00023 EQU SDWAINC2 01627000 @NM00022 EQU SDWAILC2 01628000 SDWAIL2 EQU SDWAILC2 01629000 @NM00021 EQU SDWAILC2 01630000 @NM00020 EQU SDWAAEC2 01631000 SDWAADD2 EQU SDWANXT2+1 01632000 @NM00019 EQU SDWANXT2 01633000 @NM00018 EQU SDWAEC2+3 01634000 SDWASGN2 EQU SDWAINT2 01635000 SDWAEXP2 EQU SDWAINT2 01636000 SDWADEC2 EQU SDWAINT2 01637000 SDWAFPO2 EQU SDWAINT2 01638000 SDWACC2 EQU SDWAINT2 01639000 @NM00017 EQU SDWAINT2 01640000 SDWAPGM2 EQU SDWAMWP2 01641000 SDWAWAT2 EQU SDWAMWP2 01642000 SDWAMCK2 EQU SDWAMWP2 01643000 SDWAECT2 EQU SDWAMWP2 01644000 SDWAKEY2 EQU SDWAMWP2 01645000 SDWAEXT2 EQU SDWAEMK2 01646000 SDWAIO2 EQU SDWAEMK2 01647000 SDWATRM2 EQU SDWAEMK2 01648000 @NM00016 EQU SDWAEMK2 01649000 SDWAPER2 EQU SDWAEMK2 01650000 @NM00015 EQU SDWAEMK2 01651000 SDWATRAN EQU SDWAAEC1+4 01652000 SDWAIPC1 EQU SDWAICD1 01653000 SDWAIMC1 EQU SDWAICD1 01654000 SDWAIPR1 EQU SDWAICD1 01655000 @NM00014 EQU SDWAINC1 01656000 @NM00013 EQU SDWAILC1 01657000 SDWAIL1 EQU SDWAILC1 01658000 @NM00012 EQU SDWAILC1 01659000 @NM00011 EQU SDWAAEC1 01660000 SDWAADD1 EQU SDWANXT1+1 01661000 @NM00010 EQU SDWANXT1 01662000 @NM00009 EQU SDWAEC1+3 01663000 SDWASGN1 EQU SDWAINT1 01664000 SDWAEXP1 EQU SDWAINT1 01665000 SDWADEC1 EQU SDWAINT1 01666000 SDWAFPO1 EQU SDWAINT1 01667000 SDWACC1 EQU SDWAINT1 01668000 @NM00008 EQU SDWAINT1 01669000 SDWAPGM1 EQU SDWAMWP1 01670000 SDWAWAT1 EQU SDWAMWP1 01671000 SDWAMCK1 EQU SDWAMWP1 01672000 SDWAECT1 EQU SDWAMWP1 01673000 SDWAKEY1 EQU SDWAMWP1 01674000 SDWAEXT1 EQU SDWAEMK1 01675000 SDWAIO1 EQU SDWAEMK1 01676000 SDWATRM1 EQU SDWAEMK1 01677000 @NM00007 EQU SDWAEMK1 01678000 SDWAPER1 EQU SDWAEMK1 01679000 @NM00006 EQU SDWAEMK1 01680000 SDWAIOBR EQU SDWA+100 01681000 SDWAEPA EQU SDWA+96 01682000 @NM00005 EQU SDWANAME+4 01683000 SDWARBAD EQU SDWANAME 01684000 SDWAGR15 EQU SDWAGRSV+60 01685000 SDWAGR14 EQU SDWAGRSV+56 01686000 SDWAGR13 EQU SDWAGRSV+52 01687000 SDWAGR12 EQU SDWAGRSV+48 01688000 SDWAGR11 EQU SDWAGRSV+44 01689000 SDWAGR10 EQU SDWAGRSV+40 01690000 SDWAGR09 EQU SDWAGRSV+36 01691000 SDWAGR08 EQU SDWAGRSV+32 01692000 SDWAGR07 EQU SDWAGRSV+28 01693000 SDWAGR06 EQU SDWAGRSV+24 01694000 SDWAGR05 EQU SDWAGRSV+20 01695000 SDWAGR04 EQU SDWAGRSV+16 01696000 SDWAGR03 EQU SDWAGRSV+12 01697000 SDWAGR02 EQU SDWAGRSV+8 01698000 SDWAGR01 EQU SDWAGRSV+4 01699000 SDWAGR00 EQU SDWAGRSV 01700000 SDWANXTP EQU SDWACTL2+5 01701000 SDWASGP EQU SDWAPMKP 01702000 SDWAEUP EQU SDWAPMKP 01703000 SDWADOP EQU SDWAPMKP 01704000 SDWAFPP EQU SDWAPMKP 01705000 SDWACCP EQU SDWAPMKP 01706000 SDWAILP EQU SDWAPMKP 01707000 SDWAINTP EQU SDWACTL2+2 01708000 SDWASPVP EQU SDWAMWPP 01709000 SDWAWATP EQU SDWAMWPP 01710000 SDWAMCKP EQU SDWAMWPP 01711000 @NM00004 EQU SDWAMWPP 01712000 SDWAKEYP EQU SDWAMWPP 01713000 SDWAEXTP EQU SDWACMKP 01714000 SDWAIOP EQU SDWACMKP 01715000 SDWANXTA EQU SDWACTL1+5 01716000 SDWASGA EQU SDWAPMKA 01717000 SDWAEUA EQU SDWAPMKA 01718000 SDWADOA EQU SDWAPMKA 01719000 SDWAFPA EQU SDWAPMKA 01720000 SDWACCA EQU SDWAPMKA 01721000 SDWAILA EQU SDWAPMKA 01722000 SDWAINTA EQU SDWACTL1+2 01723000 SDWASPVA EQU SDWAMWPA 01724000 SDWAWATA EQU SDWAMWPA 01725000 SDWAMCKA EQU SDWAMWPA 01726000 @NM00003 EQU SDWAMWPA 01727000 SDWAKEYA EQU SDWAMWPA 01728000 SDWAEXTA EQU SDWACMKA 01729000 SDWAIOA EQU SDWACMKA 01730000 SDWACMPC EQU SDWAABCC+1 01731000 @NM00002 EQU SDWACMPF 01732000 SDWASTCC EQU SDWACMPF 01733000 @NM00001 EQU SDWACMPF 01734000 SDWASTEP EQU SDWACMPF 01735000 SDWAREQ EQU SDWACMPF 01736000 @NM00079 EQU PSA+3668 01737000 PSASTAK EQU PSA+3072 01738000 @NM00078 EQU PSA+1040 01739000 PSAUSEND EQU PSA+1040 01740000 PSARV062 EQU PSA+1036 01741000 PSAATCVT EQU PSA+1032 01742000 PSAPCPSW EQU PSA+1024 01743000 PSAPIR2 EQU PSA+1020 01744000 PSARV059 EQU PSA+1018 01745000 PSASVC13 EQU PSA+1016 01746000 PSALSFCC EQU PSA+1012 01747000 PSASFACC EQU PSA+1008 01748000 PSASTOP EQU PSA+992 01749000 PSASTART EQU PSA+976 01750000 PSARSPSW EQU PSA+968 01751000 PSASRPSW EQU PSA+960 01752000 PSARV045 EQU PSA+892 01753000 PSARV044 EQU PSA+888 01754000 PSARV043 EQU PSA+884 01755000 PSARV042 EQU PSA+880 01756000 PSARV041 EQU PSA+876 01757000 PSARV040 EQU PSA+872 01758000 PSARV025 EQU PSA+868 01759000 PSADSSED EQU PSA+868 01760000 PSADSSPR EQU PSA+864 01761000 PSADSSFW EQU PSA+860 01762000 PSADSS14 EQU PSA+856 01763000 PSADSSPP EQU PSA+848 01764000 PSADSSRP EQU PSA+840 01765000 PSADSS05 EQU PSADSSF4 01766000 PSADSS10 EQU PSADSSF4 01767000 PSADSSVE EQU PSADSSF4 01768000 PSADSSDE EQU PSADSSF4 01769000 PSADSSC0 EQU PSADSSF4 01770000 PSADSSIE EQU PSADSSF4 01771000 PSADSS12 EQU PSADSSF4 01772000 PSADSSRC EQU PSADSSF4 01773000 PSARV057 EQU PSADSSF3 01774000 PSARV056 EQU PSADSSF3 01775000 PSARV055 EQU PSADSSF3 01776000 PSADSSMC EQU PSADSSF3 01777000 PSADSSRW EQU PSADSSF3 01778000 PSADSSNM EQU PSADSSF3 01779000 PSADSSES EQU PSADSSF3 01780000 PSADSSGP EQU PSADSSF3 01781000 PSADSSF2 EQU PSADSSFL+1 01782000 PSADSSPI EQU PSADSSF1 01783000 PSADSSOI EQU PSADSSF1 01784000 PSADSSSP EQU PSADSSF1 01785000 PSADSSTP EQU PSADSSF1 01786000 PSADSSDW EQU PSADSSF1 01787000 PSADSSDD EQU PSADSSF1 01788000 PSADSSDM EQU PSADSSF1 01789000 PSADSSMV EQU PSADSSF1 01790000 PSADSSTS EQU PSA+816 01791000 PSADSSWK EQU PSA+812 01792000 PSADSSR3 EQU PSA+808 01793000 PSADSSR2 EQU PSA+804 01794000 PSADSSRS EQU PSA+800 01795000 PSASTOR EQU PSA+796 01796000 PSACPUSA EQU PSA+794 01797000 PSAVSTAP EQU PSA+792 01798000 PSAWKVAP EQU PSA+788 01799000 PSAWKRAP EQU PSA+784 01800000 PSAMCHIC EQU PSA+783 01801000 PSARV061 EQU PSA+782 01802000 PSASYMSK EQU PSA+781 01803000 PSAMCHFL EQU PSA+780 01804000 PSACR0 EQU PSA+776 01805000 PSAPSWSV EQU PSA+768 01806000 PSALITA EQU PSA+764 01807000 PSACLHS EQU PSAHLHI 01808000 PSALKR15 EQU PSALKSA+60 01809000 PSALKR14 EQU PSALKSA+56 01810000 PSALKR13 EQU PSALKSA+52 01811000 PSALKR12 EQU PSALKSA+48 01812000 PSALKR11 EQU PSALKSA+44 01813000 PSALKR10 EQU PSALKSA+40 01814000 PSALKR9 EQU PSALKSA+36 01815000 PSALKR8 EQU PSALKSA+32 01816000 PSALKR7 EQU PSALKSA+28 01817000 PSALKR6 EQU PSALKSA+24 01818000 PSALKR5 EQU PSALKSA+20 01819000 PSALKR4 EQU PSALKSA+16 01820000 PSALKR3 EQU PSALKSA+12 01821000 PSALKR2 EQU PSALKSA+8 01822000 PSALKR1 EQU PSALKSA+4 01823000 PSALKR0 EQU PSALKSA 01824000 PSARV023 EQU PSACLHT+52 01825000 PSALOCAL EQU PSACLHT+48 01826000 PSACMSL EQU PSACLHT+44 01827000 PSAOPTL EQU PSACLHT+40 01828000 PSATPACL EQU PSACLHT+36 01829000 PSATPDNL EQU PSACLHT+32 01830000 PSATPNCL EQU PSACLHT+28 01831000 PSAIOSLL EQU PSACLHT+24 01832000 PSAIOSUL EQU PSACLHT+20 01833000 PSAIOSCL EQU PSACLHT+16 01834000 PSAIOSSL EQU PSACLHT+12 01835000 PSASALCL EQU PSACLHT+8 01836000 PSAASML EQU PSACLHT+4 01837000 PSADISPL EQU PSACLHT 01838000 PSASRSA EQU PSA+636 01839000 PSARV050 EQU PSA+634 01840000 PSADSSGO EQU PSA+633 01841000 PSARECUR EQU PSA+632 01842000 PSAHLHIS EQU PSA+628 01843000 PSAIPCSA EQU PSA+624 01844000 @NM00077 EQU PSA+621 01845000 PSAIPCDM EQU PSA+620 01846000 PSAIPCD EQU PSA+616 01847000 @NM00076 EQU PSA+613 01848000 PSAIPCRM EQU PSA+612 01849000 PSAIPCR EQU PSA+608 01850000 PSAMCHEX EQU PSA+600 01851000 PSAMPSW EQU PSA+592 01852000 PSAEXPS2 EQU PSA+584 01853000 PSAEXPS1 EQU PSA+576 01854000 PSAPIREG EQU PSA+572 01855000 PSARSREG EQU PSA+568 01856000 PSAGPREG EQU PSA+556 01857000 PSARV022 EQU PSASUP4 01858000 PSARV021 EQU PSASUP4 01859000 PSARV020 EQU PSASUP4 01860000 PSARV019 EQU PSASUP4 01861000 PSARV018 EQU PSASUP4 01862000 PSARV017 EQU PSASUP4 01863000 PSARV016 EQU PSASUP4 01864000 PSARV015 EQU PSASUP4 01865000 PSARV014 EQU PSASUP3 01866000 PSARV013 EQU PSASUP3 01867000 PSARV012 EQU PSASUP3 01868000 PSARV011 EQU PSASUP3 01869000 PSARV010 EQU PSASUP3 01870000 PSAPSREG EQU PSASUP3 01871000 PSAPI2 EQU PSASUP3 01872000 PSAIOSUP EQU PSASUP3 01873000 PSALCR EQU PSASUP2 01874000 PSARTM EQU PSASUP2 01875000 PSAACR EQU PSASUP2 01876000 PSAIPCE2 EQU PSASUP2 01877000 PSAIPCES EQU PSASUP2 01878000 PSAIPCEC EQU PSASUP2 01879000 PSAGTF EQU PSASUP2 01880000 PSAIPCRI EQU PSASUP2 01881000 PSAIPCRP EQU PSASUP1 01882000 PSAIPCDR EQU PSASUP1 01883000 PSADISP EQU PSASUP1 01884000 PSALOCK EQU PSASUP1 01885000 PSAPI EQU PSASUP1 01886000 PSAEXT EQU PSASUP1 01887000 PSASVC EQU PSASUP1 01888000 PSAIO EQU PSASUP1 01889000 PSAANEW EQU PSA+544 01890000 PSATNEW EQU PSA+536 01891000 PSALCCAR EQU PSA+532 01892000 PSALCCAV EQU PSA+528 01893000 PSAPCCAR EQU PSA+524 01894000 PSAPCCAV EQU PSA+520 01895000 PSACPULA EQU PSA+518 01896000 PSACPUPA EQU PSA+516 01897000 PSAPSA EQU PSA+512 01898000 FLCHDEND EQU PSA+512 01899000 FLCCRSAV EQU FLCMCLA+280 01900000 FLCGRSAV EQU FLCMCLA+216 01901000 FLCFPSAV EQU FLCMCLA+184 01902000 FLCFLA EQU FLCMCLA+88 01903000 FLCRGNCD EQU FLCMCLA+84 01904000 FLCFSAA EQU FLCFSA+1 01905000 @NM00075 EQU FLCFSA 01906000 @NM00074 EQU FLCMCLA+72 01907000 FLCMCIC EQU FLCMCLA+64 01908000 @NM00073 EQU FLCMCLA+20 01909000 FLCIOAA EQU FLCIOA+1 01910000 @NM00072 EQU FLCIOA 01911000 @NM00071 EQU FLCMCLA+15 01912000 @NM00070 EQU FLCMCLA+14 01913000 @NM00069 EQU FLCMCLA+12 01914000 FLCLCL EQU FLCMCLA+8 01915000 FLCIOELA EQU FLCIOEL+1 01916000 @NM00068 EQU FLCIOEL 01917000 FLCCHNID EQU FLCMCLA 01918000 @NM00067 EQU PSA+160 01919000 FLCMTRCD EQU PSA+157 01920000 @NM00066 EQU PSA+156 01921000 FLCPERA EQU FLCPER+1 01922000 @NM00065 EQU FLCPER 01923000 @NM00064 EQU PSA+151 01924000 FLCPERCD EQU PSA+150 01925000 FLCMCNUM EQU PSA+149 01926000 @NM00063 EQU PSA+148 01927000 FLCTEAA EQU FLCTEA+1 01928000 @NM00062 EQU FLCTEA 01929000 PSAPIPC EQU PSAPICOD 01930000 PSAPIMC EQU PSAPICOD 01931000 PSAPIPER EQU PSAPICOD 01932000 PSARV049 EQU FLCPICOD 01933000 FLCPILCB EQU FLCPIILC 01934000 @NM00061 EQU FLCPIILC 01935000 @NM00060 EQU PSAEPPSW 01936000 FLCSVCN EQU PSAESPSW+2 01937000 FLCSILCB EQU FLCSVILC 01938000 @NM00059 EQU FLCSVILC 01939000 @NM00058 EQU PSAESPSW 01940000 FLCEICOD EQU PSAEEPSW+2 01941000 PSASPAD EQU PSAEEPSW 01942000 @NM00057 EQU PSA+128 01943000 FLCINPSW EQU PSA+120 01944000 FLCMNPSW EQU PSA+112 01945000 FLCPNPSW EQU PSA+104 01946000 FLCSNPSW EQU PSA+96 01947000 FLCENPSW EQU PSA+88 01948000 FLCTRACE EQU PSA+84 01949000 FLCTIMER EQU PSA+80 01950000 FLCCVT2 EQU PSA+76 01951000 FLCCAW EQU PSA+72 01952000 FLCCSW EQU PSA+64 01953000 FLCIOPSW EQU PSA+56 01954000 FLCMOPSW EQU PSA+48 01955000 FLCPOPSW EQU PSA+40 01956000 FLCSOPSW EQU PSA+32 01957000 FLCEOPSW EQU PSA+24 01958000 @NM00056 EQU FLCICCW2+4 01959000 FLCCVT EQU FLCICCW2 01960000 FLCICCW1 EQU FLCROPSW 01961000 FLCIPPSW EQU FLCRNPSW 01962000 * END UNREFERENCED COMPONENTS 01963000 @RT00076 EQU PERCOL 01964000 @RT00146 EQU PERCOL 01965000 @RF00150 EQU PERCOL 01966000 @RF00164 EQU PERCOL 01967000 @RF00163 EQU PERCOL 01968000 @RT00184 EQU PERCOL 01969000 @RT00187 EQU FAILED 01970000 @ENDDATA EQU * 01971000 END IEAVCARR,(C'PLS2104',0701,75314) 01972000