TITLE '***IEAVGPRR---IEAVPRT0 FUNCTIONAL RECOVERY RTN*** *00001000 ' 00002000 * /* @ZA01896*/ 00003000 IEAVGPRR CSECT 00004000 BALR RBASE,@00 SET UP ADDRESSABILITY 00005000 USING *,RBASE 00006000 MODID 00007000 * GPR02F=GPR00F; /* SAVE FRR WORKAREA PTR IN 0083 00008000 * USEABLE REG @ZA01896*/ 00009000 LR GPR02F,GPR00F 0083 00010000 * GPR03F=GPR01F->SDWAPARM->LDAADD;/* GET LDA ADDRESS @ZA01896*/ 00011000 L @12,SDWAPARM(,GPR01F) 0084 00012000 L GPR03F,LDAADD(,@12) 0084 00013000 * IF GPR03F=0 THEN /* IF THERE IS NO LDA ADDRESS, 0085 00014000 * THEN THE ERROR OCCURRED IN THE 00015000 * MAINLINE BEFORE THE FRR 6 0085 00016000 * WORDS COULD BE INITIALIZED, OR 00017000 * THEY WERE CLOBBERED @ZA01896*/ 00018000 LTR GPR03F,GPR03F 0085 00019000 BNZ @RF00085 0085 00020000 * DO; /* PERCOLATE IF THIS IS SO 0086 00021000 * @ZA01896*/ 00022000 * RFY 0087 00023000 * SDWA BASED(GPR01F); /* @ZA01896*/ 00024000 * SDWARCDE=SDWACWT; /* @ZA01896*/ 00025000 MVI SDWARCDE(GPR01F),X'00' 0088 00026000 * RFY 0089 00027000 * SDWA BASED(SDWAPTR); /* @ZA01896*/ 00028000 * GOTO RET1; /* RETURN PROCESSING @ZA01896*/ 00029000 B RET1 0090 00030000 * END; /* @ZA01896*/ 00031000 */********************************************************************/ 00032000 */* */ 00033000 */* SAVE LDA FIELDS USED BY GETPART/FREEPART MAINLINE SO THEY WONT */ 00034000 */* BE CLOBBERED BY THE GETMAIN AND FREEMAIN IN THIS MODULE. */ 00035000 */* */ 00036000 */********************************************************************/ 00037000 * 0092 00038000 * RFY 0092 00039000 * FRRSAVE BASED(GPR02F); /* @ZA01896*/ 00040000 @RF00085 DS 0H 0093 00041000 * RFY 0093 00042000 * LDA BASED(GPR03F); /* @ZA01896*/ 00043000 * SAVBRSV=BRANCHSV; /* @ZA01896*/ 00044000 MVC SAVBRSV(64,GPR02F),BRANCHSV(GPR03F) 0094 00045000 * SAVTCB=LDATCB; /* @ZA01896*/ 00046000 L @12,LDATCB(,GPR03F) 0095 00047000 ST @12,SAVTCB(,GPR02F) 0095 00048000 * SAVRQSTA=LDARQSTA; /* @ZA01896*/ 00049000 L @12,LDARQSTA(,GPR03F) 0096 00050000 ST @12,SAVRQSTA(,GPR02F) 0096 00051000 * SAVFLAG=LVSMFLAG; /* @ZA01896*/ 00052000 MVC SAVFLAG(4,GPR02F),LVSMFLAG(GPR03F) 0097 00053000 * SAVCBSP=LDACBSP; /* @ZA01896*/ 00054000 IC @12,LDACBSP(,GPR03F) 0098 00055000 STC @12,SAVCBSP(,GPR02F) 0098 00056000 * RFY 0099 00057000 * LDA BASED(LDAPTR); /* @ZA01896*/ 00058000 * GENERATE REFS(SCVTRMBR,SCVTSECT,PSAAOLD,PSATOLD); 0100 00059000 * /* @ZA01896*/ 00060000 L @00,@SIZDATD SIZE FOR DYNAMIC STG 00061000 ICM @00,B'1000',XFF SUBPOOL 255 00062000 LR @05,@01 00063000 L GPR04F,PSATOLD TCB ADDRESS 00064000 L GPR07F,PSAAOLD ASCB ADDRESS 00065000 LR @06,@14 SAVE RETURN REG 00066000 GETMAIN R,LV=(0),BRANCH=YES GET DYNAMIC STORAGE 00067000 LR @08,@01 DATA REGISTER 00068000 USING @DATD,@08 00069000 ST @05,SDWAPTR INPUT PARAMETER 00070000 ST @06,R14SAVE 00071000 * WRKPTR=GPR02F; /* SAVE FRR WORKAREA PTR @ZA01896*/ 00072000 ST GPR02F,WRKPTR 0101 00073000 * PARMBASE=SDWAPARM; /* FRR PARM AREA BASE */ 00074000 L @12,SDWAPTR 0102 00075000 L @11,SDWAPARM(,@12) 0102 00076000 ST @11,PARMBASE 0102 00077000 * SDWAMODN=MODN; /* MODULE NAME @YM07262*/ 00078000 MVC SDWAMODN(8,@12),MODN 0103 00079000 * SDWACSCT=MODN; /* CSECT NAME @YM07262*/ 00080000 MVC SDWACSCT(8,@12),MODN 0104 00081000 * SDWAREXN=REXN; /* FRR ROUTINE NAME @YM07262*/ 00082000 MVC SDWAREXN(8,@12),REXN 0105 00083000 * LDAPTR=LDAADD; /* LDA BASE */ 00084000 L @11,LDAADD(,@11) 0106 00085000 ST @11,LDAPTR 0106 00086000 * TCBPTR=LDATCB; /* TCB ADDRESS */ 00087000 L TCBPTR,LDATCB(,@11) 0107 00088000 * GDAPTR=CVTGDA; /* GDA BASE */ 00089000 L @05,CVTPTR 0108 00090000 L @05,CVTGDA(,@05) 0108 00091000 ST @05,GDAPTR 0108 00092000 * RASCB=PASCBSV; /* ASCB ADDRESS */ 00093000 L RASCB,PASCBSV(,@11) 0109 00094000 * SDWARCRD='1'B; /* INDICATE RECORDING DESIRED */ 00095000 OI SDWARCRD(@12),B'10000000' 0110 00096000 * IF SDWAFMID^=SAME THEN /* IF THIS MEMORY NOT FAILING 0111 00097000 * MEMORY, PERCOLATE */ 00098000 LH @11,SDWAFMID(,@12) 0111 00099000 N @11,@CF02485 0111 00100000 CH @11,SAME 0111 00101000 BE @RF00111 0111 00102000 * DO; 0112 00103000 * SDWARCDE=SDWACWT; /* NO RETRY */ 00104000 MVI SDWARCDE(@12),X'00' 0113 00105000 * GOTO RET; /* RETURN PROCESSING */ 00106000 B RET 0114 00107000 * END; 0115 00108000 * SDWAUPRG='1'B; /* REGS UPDATED FOR RETRY */ 00109000 @RF00111 L @12,SDWAPTR 0116 00110000 OI SDWAUPRG(@12),B'00001000' 0116 00111000 * IF GPFPFLG='1'B THEN /* IF GETPART REQUEST,BRANCH */ 00112000 L @11,PARMBASE 0117 00113000 TM GPFPFLG(@11),B'00000001' 0117 00114000 BO @RT00117 0117 00115000 * GOTO GPFRR; /* GO TO GETPART PROCESS */ 00116000 * IF RECURSE='1'B THEN /* IF THIS IS RECURSION ENTRY, */ 00117000 TM RECURSE(@11),B'00001000' 0119 00118000 BO @RT00119 0119 00119000 * GOTO RECRS1; /* DO NOT RETRY */ 00120000 * ELSE /* NON-RECURSION */ 00121000 * RECURSE='1'B; /* SET ON BIT FOR RECURSION */ 00122000 OI RECURSE(@11),B'00001000' 0121 00123000 * IF SDWAPERC='0'B THEN /* ONLY IF NOT PERCOLATION */ 00124000 TM SDWAPERC(@12),B'00010000' 0122 00125000 BNZ @RF00122 0122 00126000 * IF SDWAMCHK='1'B|SDWAPCHK='1'B THEN/* THESE ARE RETRYABLE 0123 00127000 * ERRORS */ 00128000 TM SDWAMCHK(@12),B'11000000' 0123 00129000 BNZ @RT00123 0123 00130000 * GOTO RETRY; /* RETRY */ 00131000 * IF SDWACMPC=O82 THEN /* IF ERROR IS BAD RETURN FROM 0125 00132000 * SETLOCK, DO NOT FREE SALLOC */ 00133000 @RF00122 L @12,SDWAPTR 0125 00134000 CLC SDWACMPC(3,@12),O82 0125 00135000 BE @RT00125 0125 00136000 * GOTO RECRSION; /* DO NOT RETRY ABENDS */ 00137000 *RECRS1: 0127 00138000 * SDWASALL='1'B; /* INDICATE TO FREE LOCKS */ 00139000 RECRS1 L @12,SDWAPTR 0127 00140000 OI SDWASALL(@12),B'00000100' 0127 00141000 *RECRSION: 0128 00142000 * IF SDWAPCHK='1'B THEN /* IF PGM CHECK, SET UP TO ISSUE 00143000 * SDUMP */ 00144000 RECRSION L @12,SDWAPTR 0128 00145000 TM SDWAPCHK(@12),B'01000000' 0128 00146000 BNO @RF00128 0128 00147000 * DO; 0129 00148000 * GPR13F=ADDR(SAVEAR); 0130 00149000 L GPR13F,LDAPTR 0130 00150000 LA GPR13F,SAVEAR(,GPR13F) 0130 00151000 * GPR15F=PSAAOLD; 0131 00152000 L GPR15F,PSAAOLD 0131 00153000 * GPR01F=ADDR(LFSDUMP2); 0132 00154000 LA GPR01F,LFSDUMP2 0132 00155000 * LFSDUMP2=LFSDUMP; 0133 00156000 MVC LFSDUMP2(24),LFSDUMP 0133 00157000 * GENERATE; 0134 00158000 SDUMP ASID=ASCBASID(15),SDATA=(PSA,NUC,LSQA),BRANCH=YES,MF=(E,(1)) 00159000 * END; 0135 00160000 * TCBPQE=ZERO; /* CLEAN UP */ 00161000 @RF00128 L @12,ZERO 0136 00162000 ST @12,TCBPQE(,TCBPTR) 0136 00163000 * TCBMSS=ZERO; /* ZERO SUBPOOLS PTR */ 00164000 ST @12,TCBMSS(,TCBPTR) 0137 00165000 * SDWARCDE=SDWACWT; /* DO NOT RETRY */ 00166000 L @12,SDWAPTR 0138 00167000 MVI SDWARCDE(@12),X'00' 0138 00168000 *RET: /* @ZA01896*/ 00169000 * WORKREG=WRKPTR; /* RETURN PROCESSING. RESTORE FRR 00170000 * WORKAREA POINTER. @ZA01896*/ 00171000 RET L WORKREG,WRKPTR 0139 00172000 * RFY 0140 00173000 * FRRSAVE BASED(WORKREG); /* @ZA01896*/ 00174000 * GENERATE REFS(SCVTRMBR,SCVTSECT,PSAAOLD,PSATOLD); 0141 00175000 L @00,@SIZDATD 00176000 L @04,PSATOLD 00177000 L @05,SDWAPTR RESTORE SDWA POINTER 00178000 L @07,PSAAOLD 00179000 L @02,R14SAVE RETURN ADDRESS 00180000 FREEMAIN RC,LV=(0),A=(REG8),SP=255,BRANCH=YES FREE DYNAMIC STG 00181000 * GPR01F=RDATASAV; /* RESTORE REG 1 */ 00182000 LR GPR01F,RDATASAV 0142 00183000 * RRETURN=GPR02F; 0143 00184000 * 0143 00185000 LR RRETURN,GPR02F 0143 00186000 */********************************************************************/ 00187000 */* */ 00188000 */* RESTORE LDA FIELDS SAVED PREVIOUSLY. */ 00189000 */* */ 00190000 */********************************************************************/ 00191000 * 0144 00192000 * GPR03F=GPR01F->SDWAPARM->LDAADD;/* GET LDA PTR @ZA01896*/ 00193000 L @12,SDWAPARM(,GPR01F) 0144 00194000 L GPR03F,LDAADD(,@12) 0144 00195000 * RFY 0145 00196000 * LDA BASED(GPR03F); /* @ZA01896*/ 00197000 * BRANCHSV=SAVBRSV; /* @ZA01896*/ 00198000 MVC BRANCHSV(64,GPR03F),SAVBRSV(WORKREG) 0146 00199000 * LDATCB=SAVTCB; /* @ZA01896*/ 00200000 L @12,SAVTCB(,WORKREG) 0147 00201000 ST @12,LDATCB(,GPR03F) 0147 00202000 * LDARQSTA=SAVRQSTA; /* @ZA01896*/ 00203000 L @12,SAVRQSTA(,WORKREG) 0148 00204000 ST @12,LDARQSTA(,GPR03F) 0148 00205000 * LVSMFLAG=SAVFLAG; /* @ZA01896*/ 00206000 MVC LVSMFLAG(4,GPR03F),SAVFLAG(WORKREG) 0149 00207000 * LDACBSP=SAVCBSP; /* @ZA01896*/ 00208000 IC @12,SAVCBSP(,WORKREG) 0150 00209000 STC @12,LDACBSP(,GPR03F) 0150 00210000 * RFY 0151 00211000 * LDA BASED(LDAPTR); /* @ZA01896*/ 00212000 *RET1: 0152 00213000 * GENERATE; 0152 00214000 * 0152 00215000 RET1 DS 0H 0152 00216000 * /* BRANCH HERE IF NO LDA @ZA01896*/ 00217000 BR RRETURN RETURN 00218000 */********************************************************************/ 00219000 */* RETRYABLE V=V FREEPART'S */ 00220000 */* PROGRAM CHECKS, MACHINE CHECKS */ 00221000 */********************************************************************/ 00222000 * 0153 00223000 *RETRY: 0153 00224000 * IF VERREQ='1'B THEN /* IF REQUEST WAS V=R, */ 00225000 RETRY L @12,LDAPTR 0153 00226000 TM VERREQ(@12),B'00000010' 0153 00227000 BO @RT00153 0153 00228000 * GOTO FREERL; /* PROCEED TO V=R FP PROCESSING */ 00229000 */* */ 00230000 */********************************************************************/ 00231000 */* IF THIS IS A RETRYABLE V=V FREEPART, THEN IF REGION SPACE */ 00232000 */* HAS NOT ALREADY BEEN FREED, RETRY AT BEGINNING OF ROUTINE */ 00233000 */********************************************************************/ 00234000 * 0155 00235000 * IF ZPFLG='0'B THEN 0155 00236000 L @12,PARMBASE 0155 00237000 TM ZPFLG(@12),B'00000010' 0155 00238000 BZ @RT00155 0155 00239000 * GO TO GPRETSET; /* GO SETUP FOR RETRY AT GPRETRY */ 00240000 */********************************************************************/ 00241000 */* IF REGION SPACE ALREADY FREED, REENTER ROUTINE TO RESTORE */ 00242000 */* ADDRESS SPACE CONTROL BLOCKS */ 00243000 */********************************************************************/ 00244000 * 0157 00245000 * ELSE 0157 00246000 * SDWARTYA=ADDR(ZEROPTRS); /* RETRY ADDRESS */ 00247000 L @12,SDWAPTR 0157 00248000 L @11,@CV02262 0157 00249000 ST @11,SDWARTYA(,@12) 0157 00250000 * SDWARCDE=SDWARETY; /* INDICATE RETRY */ 00251000 MVI SDWARCDE(@12),X'04' 0158 00252000 * GOTO RET; /* RETURN PROCESSING */ 00253000 B RET 0159 00254000 */* */ 00255000 */********************************************************************/ 00256000 */* RETRYABLE V=R FREEPART'S */ 00257000 */* DETERMINE THE STEP OF THE FREEPART PROCESSING THAT CONTAINED */ 00258000 */* THE ERROR BY CHECKING FOOTPRINTS IN THE FRR PARAMETER AREA, */ 00259000 */* AND RETRY AT BEGINNING OF THAT STEP. LOGICAL STEPS ARE */ 00260000 */* (1)ADDING REGION SPACE BACK TO V=R STORAGE Q'S (2)ADDING */ 00261000 */* REGION SPACE BACK TO RSM'S STORAGE Q'S (3)ADDING REGION SPACE*/ 00262000 */* BACK TO ADDRESS SPACE Q'S (4) ZERO APPROPRIATE TCB AND */ 00263000 */* LDA FIELDS (5)CHECK FOR WAITING REQUESTS WHICH MIGHT */ 00264000 */* BE HONORED (6)DEQUEUE A WAITING REQUEST FROM VRWAITQ. */ 00265000 */********************************************************************/ 00266000 * 0160 00267000 *FREERL: 0160 00268000 * IF VEQRDONE='1'B THEN 0160 00269000 FREERL L @12,PARMBASE 0160 00270000 TM VEQRDONE(@12),B'00010000' 0160 00271000 BNO @RF00160 0160 00272000 * IF RSMDONE='1'B THEN 0161 00273000 TM RSMDONE(@12),B'10000000' 0161 00274000 BNO @RF00161 0161 00275000 * IF ASDONE='1'B THEN 0162 00276000 TM ASDONE(@12),B'01000000' 0162 00277000 BNO @RF00162 0162 00278000 * IF ZPFLG='1'B THEN 0163 00279000 TM ZPFLG(@12),B'00000010' 0163 00280000 BNO @RF00163 0163 00281000 * IF FPFLG='1'B THEN 0164 00282000 TM FPFLG(@12),B'00000100' 0164 00283000 BNO @RF00164 0164 00284000 * IF DEQFLG='1'B THEN 0165 00285000 TM DEQFLG(@12),B'10000000' 0165 00286000 BNO @RF00165 0165 00287000 * SDWARTYA=ADDR(DEQUEUE); 0166 00288000 L @12,@CV02263 0166 00289000 L @11,SDWAPTR 0166 00290000 ST @12,SDWARTYA(,@11) 0166 00291000 * ELSE 0167 00292000 * DO; 0167 00293000 B @RC00165 0167 00294000 @RF00165 DS 0H 0168 00295000 * SDWASR04=LDAADD; 0168 00296000 L @12,SDWAPTR 0168 00297000 L @11,PARMBASE 0168 00298000 L @11,LDAADD(,@11) 0168 00299000 ST @11,SDWASR04(,@12) 0168 00300000 * SDWASR14=ADDR(WORKAREA); 0169 00301000 L @11,LDAPTR 0169 00302000 LA @11,WORKAREA(,@11) 0169 00303000 ST @11,SDWASR14(,@12) 0169 00304000 * SDWARTYA=ADDR(GPRETURN); 0170 00305000 L @11,@CV02264 0170 00306000 ST @11,SDWARTYA(,@12) 0170 00307000 * END; 0171 00308000 * ELSE 0172 00309000 * SDWARTYA=ADDR(ZEROPTRS); 0172 00310000 B @RC00164 0172 00311000 @RF00164 L @12,@CV02262 0172 00312000 L @11,SDWAPTR 0172 00313000 ST @12,SDWARTYA(,@11) 0172 00314000 * ELSE 0173 00315000 * DO; 0173 00316000 B @RC00163 0173 00317000 @RF00163 DS 0H 0174 00318000 * SDWASR04=LDAADD; 0174 00319000 L @12,SDWAPTR 0174 00320000 L @11,PARMBASE 0174 00321000 L @11,LDAADD(,@11) 0174 00322000 ST @11,SDWASR04(,@12) 0174 00323000 * SDWASR08=LDATCB; 0175 00324000 L @11,LDAPTR 0175 00325000 L @05,LDATCB(,@11) 0175 00326000 ST @05,SDWASR08(,@12) 0175 00327000 * SDWASR07=VRPQEP; 0176 00328000 L @05,GDAPTR 0176 00329000 L @05,VRPQEP(,@05) 0176 00330000 ST @05,SDWASR07(,@12) 0176 00331000 * SDWASR14=ADDR(WORKAREA); 0177 00332000 LA @11,WORKAREA(,@11) 0177 00333000 ST @11,SDWASR14(,@12) 0177 00334000 * SDWARTYA=ADDR(ZEROPTRS); 0178 00335000 L @11,@CV02262 0178 00336000 ST @11,SDWARTYA(,@12) 0178 00337000 * END; 0179 00338000 * ELSE 0180 00339000 * SDWARTYA=ADDR(FREEASQ); 0180 00340000 B @RC00162 0180 00341000 @RF00162 L @12,@CV02261 0180 00342000 L @11,SDWAPTR 0180 00343000 ST @12,SDWARTYA(,@11) 0180 00344000 * ELSE 0181 00345000 * SDWARTYA=ADDR(FREERSM); 0181 00346000 B @RC00161 0181 00347000 @RF00161 L @12,@CV02260 0181 00348000 L @11,SDWAPTR 0181 00349000 ST @12,SDWARTYA(,@11) 0181 00350000 * ELSE 0182 00351000 * IF DEQFLG='1'B THEN /* IF DEQUEUE IN PROCESS FOR 0182 00352000 * ELEMENT ON VRWAITQ OR VRPOSTQ, 00353000 * RETRY AT DEQUEUE STEP */ 00354000 B @RC00160 0182 00355000 @RF00160 L @12,PARMBASE 0182 00356000 TM DEQFLG(@12),B'10000000' 0182 00357000 BNO @RF00182 0182 00358000 * SDWARTYA=ADDR(DEQUEUE); 0183 00359000 L @12,@CV02263 0183 00360000 L @11,SDWAPTR 0183 00361000 ST @12,SDWARTYA(,@11) 0183 00362000 * ELSE 0184 00363000 * GO TO GPRETSET; /* GO SETUP FOR RETRY AT GPRETRY */ 00364000 * SDWARCDE=SDWARETY; /* INDICATE RETRY */ 00365000 @RC00160 L @12,SDWAPTR 0185 00366000 MVI SDWARCDE(@12),X'04' 0185 00367000 * GOTO RET; /* RETURN PROCESS */ 00368000 B RET 0186 00369000 */* */ 00370000 */********************************************************************/ 00371000 */* GETPART ERRORS */ 00372000 */********************************************************************/ 00373000 * 0187 00374000 *GPFRR: 0187 00375000 * IF VERREQ='1'B THEN /* IF REQUEST WAS V=R, */ 00376000 GPFRR L @12,LDAPTR 0187 00377000 TM VERREQ(@12),B'00000010' 0187 00378000 BO @RT00187 0187 00379000 * GOTO GETRL; /* PROCEED TO V=R GP ACTION */ 00380000 * IF GPSSW='1'B THEN /* IF SPECIFIC V=V GETPART 0189 00381000 * REQUEST, READJUST ADDRESS 0189 00382000 * SPACE CONTROL BLOCKS TO TIME 0*/ 00383000 TM GPSSW(@12),B'00001000' 0189 00384000 BNO @RF00189 0189 00385000 * DO; 0190 00386000 * TCBRV='0'B; 0191 00387000 NI TCBRV(TCBPTR),B'01111111' 0191 00388000 * VVREGSZ=ZERO; 0192 00389000 L @11,ZERO 0192 00390000 ST @11,VVREGSZ(,@12) 0192 00391000 * PQESEPTR=LDASRPQE; 0193 00392000 L @11,LDASRPQE(,@12) 0193 00393000 ST @11,PQESEPTR 0193 00394000 * SRSIZE=PQESIZE; 0194 00395000 L SRSIZE,PQESIZE(,@11) 0194 00396000 * PQESEPTR=ASDPQE; 0195 00397000 L @12,ASDPQE(,@12) 0195 00398000 ST @12,PQESEPTR 0195 00399000 * PQESIZE=PASIZE-SRSIZE; 0196 00400000 L @11,GDAPTR 0196 00401000 L @07,PASIZE(,@11) 0196 00402000 SLR @07,SRSIZE 0196 00403000 ST @07,PQESIZE(,@12) 0196 00404000 * PQEREGN=PASTRT+SRSIZE; 0197 00405000 L @11,PASTRT(,@11) 0197 00406000 LR @07,SRSIZE 0197 00407000 ALR @07,@11 0197 00408000 ST @07,PQEREGN(,@12) 0197 00409000 * FBQESPTR=PQEFFBQE; 0198 00410000 L FBQESPTR,PQEFFBQE(,@12) 0198 00411000 * SIZE=FBQAREA-PASTRT-SRSIZE+SIZE; 0199 00412000 LCR @11,@11 0199 00413000 AL @11,FBQAREA(,FBQESPTR) 0199 00414000 SLR @11,SRSIZE 0199 00415000 AL @11,SIZE(,FBQESPTR) 0199 00416000 ST @11,SIZE(,FBQESPTR) 0199 00417000 * FBQAREA=PASTRT+SRSIZE; 0200 00418000 ST @07,FBQAREA(,FBQESPTR) 0200 00419000 * END; 0201 00420000 * IF RECURSE='1'B|SDWAPERC='1'B THEN/* ENTERED FOR RECURSION? */ 00421000 @RF00189 L @12,PARMBASE 0202 00422000 TM RECURSE(@12),B'00001000' 0202 00423000 BO @RT00202 0202 00424000 L @12,SDWAPTR 0202 00425000 TM SDWAPERC(@12),B'00010000' 0202 00426000 BO @RT00202 0202 00427000 * GOTO RECRSION; /* HANDLE RECURSION ENTRY */ 00428000 * IF SDWAPCHK='0'B&SDWAMCHK='0'B THEN/* IF NOT A PGM CHK AND NOT A 00429000 * MACHINE CHK */ 00430000 TM SDWAPCHK(@12),B'11000000' 0204 00431000 BZ @RT00204 0204 00432000 * GOTO RECRSION; /* ERROR NOT RETRYABLE */ 00433000 * TCBPQE=ZERO; /* IF RETRYABLE, RESTORE ORIGINAL 00434000 * ENVIRONMENT AND RETRY AT 0206 00435000 * BEGINNING */ 00436000 @RF00204 L @12,ZERO 0206 00437000 ST @12,TCBPQE(,TCBPTR) 0206 00438000 * RECURSE='1'B; /* SET FLAG TO STOP RECURSIONS */ 00439000 * 0207 00440000 L @12,PARMBASE 0207 00441000 OI RECURSE(@12),B'00001000' 0207 00442000 * /*****************************************************************/ 00443000 * /* */ 00444000 * /* SETUP TO RETRY AT LOCATION GPRETRY IN IEAVPRT0 */ 00445000 * /* */ 00446000 * /*****************************************************************/ 00447000 * 0208 00448000 *GPRETSET: 0208 00449000 * SDWASR04=LDAADD; /* GET ADDRESS OF LDA YM07262*/ 00450000 GPRETSET L @12,SDWAPTR 0208 00451000 L @11,PARMBASE 0208 00452000 L @05,LDAADD(,@11) 0208 00453000 ST @05,SDWASR04(,@12) 0208 00454000 * SDWASR09=PRT0BASE; /* GET R9 FOR GPRETRY YM07262*/ 00455000 L @11,PRT0BASE(,@11) 0209 00456000 ST @11,SDWASR09(,@12) 0209 00457000 * SDWASR14=ADDR(WORKAREA); /* GET WORK AREA ADDRESS YM07262*/ 00458000 L @11,LDAPTR 0210 00459000 LA @11,WORKAREA(,@11) 0210 00460000 ST @11,SDWASR14(,@12) 0210 00461000 * SDWASR13=SDWASR04->GMBASE2; /* GET GETMAINS R13 YM07262*/ 00462000 L @11,GMBASE2(,@05) 0211 00463000 ST @11,SDWASR13(,@12) 0211 00464000 * SDWASR01=SDWASR04->SAVE1FRR; /* GET R1 AS IT WAS ON INPUT TO 00465000 * GETPART YM07262*/ 00466000 L @05,SAVE1FRR(,@05) 0212 00467000 ST @05,SDWASR01(,@12) 0212 00468000 * SDWASR08=SDWASR13-4096; /* ADJUST TO OTHER BASE REG 0213 00469000 * YM07262*/ 00470000 SL @11,@CF02438 0213 00471000 ST @11,SDWASR08(,@12) 0213 00472000 * SDWASR03=CVTPTR; /* GET R3 FOR RETRY YM07262*/ 00473000 L @11,CVTPTR 0214 00474000 ST @11,SDWASR03(,@12) 0214 00475000 * SDWARTYA=ADDR(GPRETRY); /* ADDRESS TO RETRY AT YM07262*/ 00476000 L @11,@CV02271 0215 00477000 ST @11,SDWARTYA(,@12) 0215 00478000 * SDWARCDE=SDWARETY; /* INDICATE RETRY */ 00479000 MVI SDWARCDE(@12),X'04' 0216 00480000 * GOTO RET; /* RETURN PROCESSING */ 00481000 B RET 0217 00482000 */* */ 00483000 */********************************************************************/ 00484000 */* V=R GETPART RETRYABLE ERRORS */ 00485000 */* FOR RETRYABLE ERRORS, DETERMINE STEP THAT ALLOCATION STOPPED */ 00486000 */* AT, CLEAN UP PARTIAL PROCESSING OF THE ERROR STEP, AND RETRY */ 00487000 */* AT THAT STEP. THE LOGICAL STEPS ARE (1)ELEMENT IN PROCESS */ 00488000 */* OF BEING ENQUEUED ON VRWAITQ, (2)REGION ALLOCATION PERFORMED */ 00489000 */* FROM RSM QUEUES, (3)REGION SPACE SUBTRACTED FROM ADDRESS */ 00490000 */* SPACE QUEUES, (4)REGION SPACE SUBTRACTED FROM V=R QUEUES, */ 00491000 */* (5)FBQE, DPQE, PQE BUILT FOR V=R REGION, (6)CHECK MADE FOR */ 00492000 */* WAITING V=R REQUESTS WHICH MIGHT NOW BE HONORED, (7)DEQUEUE OF*/ 00493000 */* ELEMENT FROM VRWAITQ IN PROCESS. */ 00494000 */********************************************************************/ 00495000 * 0218 00496000 *GETRL: 0218 00497000 * IF SDWAMCHK='1'B|SDWAPCHK='1'B THEN/* ONLY RETRY PGM CHKS OR 0218 00498000 * MACHINE CHKS */ 00499000 GETRL L @12,SDWAPTR 0218 00500000 TM SDWAMCHK(@12),B'11000000' 0218 00501000 BZ @RF00218 0218 00502000 * DO; 0219 00503000 * IF RECURSE='1'B|SDWAPERC='1'B THEN/* IF RECURSION, CAN'T ETRY 00504000 * AND IF PERCOLATION, DON'T 0220 00505000 * RETRY */ 00506000 L @11,PARMBASE 0220 00507000 TM RECURSE(@11),B'00001000' 0220 00508000 BO @RT00220 0220 00509000 TM SDWAPERC(@12),B'00010000' 0220 00510000 BNO @RF00220 0220 00511000 @RT00220 DS 0H 0221 00512000 * DO; 0221 00513000 * IF SDWAPCHK='1'B THEN /* ISSUE SDUMP FOR PGM CHECKS 0222 00514000 * THAT ARE NOT SUCCESSFULLY 0222 00515000 * RETRIED */ 00516000 L @12,SDWAPTR 0222 00517000 TM SDWAPCHK(@12),B'01000000' 0222 00518000 BNO @RF00222 0222 00519000 * DO; 0223 00520000 * GPR13F=ADDR(SAVEAR); 0224 00521000 L GPR13F,LDAPTR 0224 00522000 LA GPR13F,SAVEAR(,GPR13F) 0224 00523000 * GPR15F=PSAAOLD; 0225 00524000 L GPR15F,PSAAOLD 0225 00525000 * GPR01F=ADDR(LFSDUMP2); 0226 00526000 LA GPR01F,LFSDUMP2 0226 00527000 * LFSDUMP2=LFSDUMP; 0227 00528000 MVC LFSDUMP2(24),LFSDUMP 0227 00529000 * GENERATE; 0228 00530000 SDUMP ASID=ASCBASID(15),SDATA=(PSA,NUC,LSQA,SQA),BRANCH=YES, **00531000 MF=(E,(1)) 00532000 * END; 0229 00533000 * GOTO OTHRERRS; /* GO CLEAN UP ADDRESS SPACE */ 00534000 B OTHRERRS 0230 00535000 * END; 0231 00536000 * RECURSE='1'B; 0232 00537000 @RF00220 L @12,PARMBASE 0232 00538000 OI RECURSE(@12),B'00001000' 0232 00539000 * IF WENQFLG='1'B THEN /* PROCESSING WAS INTERRUPTED 0233 00540000 * WHILE ENQUEUING AN ELEMENT ON 00541000 * VRWAITQ */ 00542000 TM WENQFLG(@12),B'01000000' 0233 00543000 BNO @RF00233 0233 00544000 * DO; 0234 00545000 * SDWARCDE=SDWARETY; 0235 00546000 L @12,SDWAPTR 0235 00547000 MVI SDWARCDE(@12),X'04' 0235 00548000 *WENQFIX: 0236 00549000 * ELBASE=SDWASR01; /* REG 1 CONTAINS PTR TO ELEMENT 00550000 * THAT WAS BEING ENQUEUED */ 00551000 WENQFIX L @12,SDWAPTR 0236 00552000 L ELBASE,SDWASR01(,@12) 0236 00553000 *FIX: 0237 00554000 * IF VRWFEL=ELBASE THEN /* IF ELEMENT 1ST ON QUEUE, */ 00555000 FIX L @12,GDAPTR 0237 00556000 C ELBASE,VRWFEL(,@12) 0237 00557000 BNE @RF00237 0237 00558000 * DO; 0238 00559000 * IF ELBASE->WPNEXTEL^=ZERO THEN/* AND NOT ONLY 0239 00560000 * ELEMENT, */ 00561000 L @12,WPNEXTEL(,ELBASE) 0239 00562000 C @12,ZERO 0239 00563000 BE @RF00239 0239 00564000 * DO; /* CHAIN IT PROPERLY */ 00565000 * WPQLPTR=ELBASE->WPNEXTEL; 0241 00566000 LR WPQLPTR,@12 0241 00567000 * WPPREVEL=ELBASE; 0242 00568000 ST ELBASE,WPPREVEL(,WPQLPTR) 0242 00569000 * GOTO UNLRET; /* DETERMINE RETRY */ 00570000 B UNLRET 0243 00571000 * END; 0244 00572000 * ELSE /* IF IT IS ONLY EL ON Q, CHAIN 00573000 * IT AS LAST EL */ 00574000 * VRWLEL=ELBASE; 0245 00575000 @RF00239 L @12,GDAPTR 0245 00576000 ST ELBASE,VRWLEL(,@12) 0245 00577000 *UNLRET: 0246 00578000 * IF SDWARCDE^=SDWARETY THEN/* IF WENQFIX WAS ENTERED 00579000 * FROM OTHRERRS FOR CLEAN-UP, DO 00580000 * NOT RETRY */ 00581000 UNLRET L @12,SDWAPTR 0246 00582000 CLI SDWARCDE(@12),4 0246 00583000 BNE @RT00246 0246 00584000 * GOTO RET; /* RETURN */ 00585000 * SDWARTYA=ADDR(UNL); /* RETRY AT UNL */ 00586000 L @11,@CV02269 0248 00587000 ST @11,SDWARTYA(,@12) 0248 00588000 * GOTO RET; /* GO RETRY */ 00589000 B RET 0249 00590000 * END; 0250 00591000 * ELSE /* SEARCH QUEUE FOR ELEMENT AT 0251 00592000 * ELBASE */ 00593000 * DO; 0251 00594000 @RF00237 DS 0H 0252 00595000 * WPQLPTR=VRWFEL; 0252 00596000 L @12,GDAPTR 0252 00597000 L WPQLPTR,VRWFEL(,@12) 0252 00598000 *ZEROCHK: 0253 00599000 * IF WPQLPTR=ZERO THEN/* IS THIS LAST EL? */ 00600000 ZEROCHK L @12,ZERO 0253 00601000 CR WPQLPTR,@12 0253 00602000 BE @RT00253 0253 00603000 * GOTO LASTEL; /* CHECK IT */ 00604000 * IF WPNEXTEL=ELBASE THEN/* ELEMENT FOUND? */ 00605000 C ELBASE,WPNEXTEL(,WPQLPTR) 0255 00606000 BNE @RF00255 0255 00607000 * DO; 0256 00608000 * IF ELBASE->WPNEXTEL=ZERO THEN/* IF LAST EL ON 0257 00609000 * QUEUE, */ 00610000 C @12,WPNEXTEL(,ELBASE) 0257 00611000 BNE @RF00257 0257 00612000 * DO; /* CHAIN AS LAST ELEMENT */ 00613000 * VRWLEL=ELBASE; 0259 00614000 L @12,GDAPTR 0259 00615000 ST ELBASE,VRWLEL(,@12) 0259 00616000 * GOTO UNLRET;/* DETERMINE RETRY */ 00617000 B UNLRET 0260 00618000 * END; 0261 00619000 * ELSE /* IF IN MIDDLE OF QUEUE, CHAIN 00620000 * PROPERLY */ 00621000 * DO; 0262 00622000 @RF00257 DS 0H 0263 00623000 * WPQLPTR=ELBASE->WPNEXTEL; 0263 00624000 L WPQLPTR,WPNEXTEL(,ELBASE) 0263 00625000 * WPPREVEL=ELBASE; 0264 00626000 ST ELBASE,WPPREVEL(,WPQLPTR) 0264 00627000 * GOTO UNLRET;/* DETERMINE RETRY */ 00628000 B UNLRET 0265 00629000 * END; 0266 00630000 * END; 0267 00631000 * ELSE /* ELEMENT NOT FOUND */ 00632000 * DO; 0268 00633000 @RF00255 DS 0H 0269 00634000 * WPQLPTR=WPNEXTEL; 0269 00635000 L WPQLPTR,WPNEXTEL(,WPQLPTR) 0269 00636000 * GOTO ZEROCHK; /* KEEP SEARCHING */ 00637000 B ZEROCHK 0270 00638000 * END; 0271 00639000 * END; 0272 00640000 *LASTEL: 0273 00641000 * IF VRWLEL=ELBASE THEN /* IF ELEMENT IS LAST ON QUEUE, 00642000 * CHAIN PROPERLY */ 00643000 LASTEL L @12,GDAPTR 0273 00644000 C ELBASE,VRWLEL(,@12) 0273 00645000 BNE @RF00273 0273 00646000 * DO; 0274 00647000 * IF ELBASE->WPPREVEL=ZERO THEN/* IF SO, ONLY EL ON 0275 00648000 * QUEUE */ 00649000 CLC WPPREVEL(4,ELBASE),ZERO 0275 00650000 BNE @RF00275 0275 00651000 * DO; 0276 00652000 * VRWFEL=ELBASE; 0277 00653000 ST ELBASE,VRWFEL(,@12) 0277 00654000 * GOTO UNLRET; /* DETERMINE RETRY */ 00655000 B UNLRET 0278 00656000 * END; 0279 00657000 * ELSE /* NOT ONLY EL ON Q */ 00658000 * DO; 0280 00659000 @RF00275 DS 0H 0281 00660000 * WPQLPTR=ELBASE->WPPREVEL; 0281 00661000 L WPQLPTR,WPPREVEL(,ELBASE) 0281 00662000 * WPNEXTEL=ELBASE; 0282 00663000 ST ELBASE,WPNEXTEL(,WPQLPTR) 0282 00664000 * GOTO UNLRET; /* DETERMINE RETRY */ 00665000 B UNLRET 0283 00666000 * END; 0284 00667000 * END; 0285 00668000 * 0285 00669000 */********************************************************************/ 00670000 */* IF CHAINING HAD NOT BEGUN FOR ELEMENT, RETRY */ 00671000 */* AT LABEL ELBUILD */ 00672000 */********************************************************************/ 00673000 * 0286 00674000 * IF SDWARCDE=SDWARETY THEN 0286 00675000 @RF00273 L @12,SDWAPTR 0286 00676000 CLI SDWARCDE(@12),4 0286 00677000 BNE @RF00286 0286 00678000 * SDWARTYA=ADDR(ELBUILD); 0287 00679000 L @11,@CV02268 0287 00680000 ST @11,SDWARTYA(,@12) 0287 00681000 * GOTO RET; /* GO RETRY */ 00682000 B RET 0288 00683000 * END; 0289 00684000 * 0289 00685000 */* */ 00686000 */********************************************************************/ 00687000 */* DETERMINE STEP IN ERROR AND RETRY ADDRESS AS DESCRIBED ABOVE */ 00688000 */********************************************************************/ 00689000 * 0290 00690000 * IF RSMDONE='1'B THEN 0290 00691000 @RF00233 L @12,PARMBASE 0290 00692000 TM RSMDONE(@12),B'10000000' 0290 00693000 BNO @RF00290 0290 00694000 * IF ASDONE='1'B THEN 0291 00695000 TM ASDONE(@12),B'01000000' 0291 00696000 BNO @RF00291 0291 00697000 * IF VEQRDONE='1'B THEN 0292 00698000 TM VEQRDONE(@12),B'00010000' 0292 00699000 BNO @RF00292 0292 00700000 * IF CBGFLG='1'B THEN 0293 00701000 TM CBGFLG(@12),B'00100000' 0293 00702000 BNO @RF00293 0293 00703000 * IF FPFLG='1'B THEN 0294 00704000 TM FPFLG(@12),B'00000100' 0294 00705000 BNO @RF00294 0294 00706000 * IF DEQFLG='1'B THEN 0295 00707000 TM DEQFLG(@12),B'10000000' 0295 00708000 BNO @RF00295 0295 00709000 * SDWARTYA=ADDR(DEQUEUE); 0296 00710000 L @12,@CV02263 0296 00711000 L @11,SDWAPTR 0296 00712000 ST @12,SDWARTYA(,@11) 0296 00713000 * ELSE 0297 00714000 * DO; 0297 00715000 B @RC00295 0297 00716000 @RF00295 DS 0H 0298 00717000 * SDWARTYA=ADDR(GPRETURN); 0298 00718000 L @12,SDWAPTR 0298 00719000 L @11,@CV02264 0298 00720000 ST @11,SDWARTYA(,@12) 0298 00721000 * SDWASR04=LDAADD; 0299 00722000 L @11,PARMBASE 0299 00723000 L @11,LDAADD(,@11) 0299 00724000 ST @11,SDWASR04(,@12) 0299 00725000 * SDWASR14=ADDR(WORKAREA); 0300 00726000 L @11,LDAPTR 0300 00727000 LA @11,WORKAREA(,@11) 0300 00728000 ST @11,SDWASR14(,@12) 0300 00729000 * END; 0301 00730000 * ELSE 0302 00731000 * SDWARTYA=ADDR(CBGETS); 0302 00732000 B @RC00294 0302 00733000 @RF00294 L @12,@CV02265 0302 00734000 L @11,SDWAPTR 0302 00735000 ST @12,SDWARTYA(,@11) 0302 00736000 * ELSE 0303 00737000 * SDWARTYA=ADDR(CBGETS); 0303 00738000 B @RC00293 0303 00739000 @RF00293 L @12,@CV02265 0303 00740000 L @11,SDWAPTR 0303 00741000 ST @12,SDWARTYA(,@11) 0303 00742000 * ELSE 0304 00743000 * DO; 0304 00744000 B @RC00292 0304 00745000 @RF00292 DS 0H 0305 00746000 * PQESEPTR=VRPQEP; 0305 00747000 L @12,GDAPTR 0305 00748000 L @12,VRPQEP(,@12) 0305 00749000 ST @12,PQESEPTR 0305 00750000 * CALL QREBUILD; /* REBUILD QUEUES */ 00751000 BAL @14,QREBUILD 0306 00752000 * SDWARTYA=ADDR(ENDASQS); 0307 00753000 L @12,@CV02266 0307 00754000 L @11,SDWAPTR 0307 00755000 ST @12,SDWARTYA(,@11) 0307 00756000 * END; 0308 00757000 * ELSE 0309 00758000 * DO; 0309 00759000 B @RC00291 0309 00760000 @RF00291 DS 0H 0310 00761000 * PQESEPTR=ASDPQE; 0310 00762000 L @12,LDAPTR 0310 00763000 L @12,ASDPQE(,@12) 0310 00764000 ST @12,PQESEPTR 0310 00765000 * CALL QREBUILD; /* REBUILD QUEUES */ 00766000 BAL @14,QREBUILD 0311 00767000 * SDWARTYA=ADDR(SUCVR); 0312 00768000 L @12,@CV02267 0312 00769000 L @11,SDWAPTR 0312 00770000 ST @12,SDWARTYA(,@11) 0312 00771000 * END; 0313 00772000 * ELSE 0314 00773000 * GO TO GPRETSET; /* GO RETRY AT GPRETRY */ 00774000 * SDWARCDE=SDWARETY; 0315 00775000 @RC00290 L @12,SDWAPTR 0315 00776000 MVI SDWARCDE(@12),X'04' 0315 00777000 * GOTO RET; /* GO RETRY */ 00778000 B RET 0316 00779000 * END; 0317 00780000 * 0317 00781000 */* */ 00782000 */********************************************************************/ 00783000 */* V=R GETPART UNRETRYABLE ERRORS */ 00784000 */* CHECK IS MADE FOR THE STEP CONTAINING THE ERROR. CLEAN-UP */ 00785000 */* OF THAT STEP AND ALL PREVIOUS STEPS IS PERFORMED IN ORDER */ 00786000 */* TO PRESERVE THE VALIDITY OF THE STORAGE QUEUES. THE LOGICAL */ 00787000 */* PROCESSING STEPS ARE THE SAME AS DESCRIBED AT GETRL. */ 00788000 */********************************************************************/ 00789000 * 0318 00790000 *OTHRERRS: 0318 00791000 * ; 0318 00792000 @RF00218 DS 0H 0318 00793000 OTHRERRS DS 0H 0319 00794000 * IF SDWACMPC=O82 THEN /* IF ERROR IN SETLOCK, */ 00795000 L @12,SDWAPTR 0319 00796000 CLC SDWACMPC(3,@12),O82 0319 00797000 BNE @RF00319 0319 00798000 * SDWASALL='0'B; /* DO NOT ATTEMPT TO FREE SALLOC */ 00799000 NI SDWASALL(@12),B'11111011' 0320 00800000 * ELSE 0321 00801000 * SDWASALL='1'B; /* INDICATE TO FREE SALLOC LOCK */ 00802000 B @RC00319 0321 00803000 @RF00319 L @12,SDWAPTR 0321 00804000 OI SDWASALL(@12),B'00000100' 0321 00805000 * SDWARCDE=SDWACWT; /* CONTINUE WITH TERMINATION */ 00806000 @RC00319 L @12,SDWAPTR 0322 00807000 MVI SDWARCDE(@12),X'00' 0322 00808000 * IF SDWAPERC='1'B THEN /* DO NOT CLEAN UP ON PERCOLATION 00809000 * BECAUSE OF POSSIBLE FREEMAIN 00810000 * LOOP */ 00811000 TM SDWAPERC(@12),B'00010000' 0323 00812000 BO @RT00323 0323 00813000 * GOTO RET; /* RETURN TO RTM */ 00814000 * IF RSMDONE='1'B THEN 0325 00815000 L @12,PARMBASE 0325 00816000 TM RSMDONE(@12),B'10000000' 0325 00817000 BNO @RF00325 0325 00818000 * IF ASDONE='1'B THEN 0326 00819000 TM ASDONE(@12),B'01000000' 0326 00820000 BNO @RF00326 0326 00821000 * IF VEQRDONE='1'B THEN 0327 00822000 TM VEQRDONE(@12),B'00010000' 0327 00823000 BNO @RF00327 0327 00824000 * IF FPFLG='1'B THEN 0328 00825000 TM FPFLG(@12),B'00000100' 0328 00826000 BNO @RF00328 0328 00827000 * IF DEQFLG='1'B THEN 0329 00828000 TM DEQFLG(@12),B'10000000' 0329 00829000 BO @RT00329 0329 00830000 * GOTO RET; /* RETURN TO RTM */ 00831000 * ELSE 0331 00832000 * DO; 0331 00833000 *L4: 0332 00834000 * ; /* THE FOLLOWING CODE CLEANS UP 00835000 * ALL THAT AN UNSUCCESSFUL 0332 00836000 * GETPART WOULD HAVE DONE */ 00837000 L4 DS 0H 0333 00838000 * GENERATE; 0333 00839000 OBTS SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND,RELATED=(VRQS,IEAVGPRR(RE**00840000 LSS)) 00841000 * SIZEREG=REGSIZE; 0334 00842000 L @12,PARMBASE 0334 00843000 L SIZEREG,REGSIZE(,@12) 0334 00844000 * SEGREG=REGADD; 0335 00845000 L SEGREG,REGADD(,@12) 0335 00846000 * LDACBSP=245; 0336 00847000 L @12,LDAPTR 0336 00848000 MVI LDACBSP(@12),X'F5' 0336 00849000 * PQEREG=VRPQEP; 0337 00850000 L @11,GDAPTR 0337 00851000 L PQEREG,VRPQEP(,@11) 0337 00852000 * RGMBASE2=GMBASE2; /* SAVE TCB @ BASE REG AND DATA 00853000 * REG ACROSS MRELF */ 00854000 L RGMBASE2,GMBASE2(,@12) 0338 00855000 * W1=TCBPTR; 0339 00856000 ST TCBPTR,W1(,@12) 0339 00857000 * TCBPTR=LDAPTR; 0340 00858000 LR TCBPTR,@12 0340 00859000 * W2=RBASE; 0341 00860000 ST RBASE,W2(,@12) 0341 00861000 * RDATASAV=REG8; 0342 00862000 LR RDATASAV,REG8 0342 00863000 * RGMBASE=GMBASE; 0343 00864000 L RGMBASE,GMBASE(,@12) 0343 00865000 * CALL MRELEASF; /* RETURN V=R SPACE TO QUEUES VIA 00866000 * FREEMAIN */ 00867000 L @15,@CV02272 0344 00868000 BALR @14,@15 0344 00869000 * GENERATE; 0345 00870000 RELSS SETLOCK RELEASE,TYPE=SALLOC,RELATED=(VEQRS,IEAVGPRR(OBTS)) 00871000 * REG8=RDATASAV; 0346 00872000 LR REG8,RDATASAV 0346 00873000 * RBASE=W2; 0347 00874000 L @12,LDAPTR 0347 00875000 L RBASE,W2(,@12) 0347 00876000 * TCBPTR=W1; 0348 00877000 L TCBPTR,W1(,@12) 0348 00878000 *L5: 0349 00879000 * SIZEREG=REGSIZE; /* THIS BLOCK RETURNS THE 0349 00880000 * ALLOCATED SPACE TO THE ADDRESS 00881000 * SPACE CONTROL BLOCKS */ 00882000 L5 L @12,PARMBASE 0349 00883000 L SIZEREG,REGSIZE(,@12) 0349 00884000 * SEGREG=REGADD; 0350 00885000 L SEGREG,REGADD(,@12) 0350 00886000 * LDACBSP=255; 0351 00887000 L @12,LDAPTR 0351 00888000 MVI LDACBSP(@12),X'FF' 0351 00889000 * PQEREG=ASDPQE; 0352 00890000 L PQEREG,ASDPQE(,@12) 0352 00891000 * RGMBASE2=GMBASE2; /* SAVE TCB @ BASE REG AND DATA 00892000 * REG ACROSS MRELEASF */ 00893000 L RGMBASE2,GMBASE2(,@12) 0353 00894000 * W1=TCBPTR; 0354 00895000 ST TCBPTR,W1(,@12) 0354 00896000 * TCBPTR=LDAPTR; 0355 00897000 LR TCBPTR,@12 0355 00898000 * W2=RBASE; 0356 00899000 ST RBASE,W2(,@12) 0356 00900000 * RDATASAV=REG8; 0357 00901000 LR RDATASAV,REG8 0357 00902000 * RGMBASE=GMBASE; 0358 00903000 L RGMBASE,GMBASE(,@12) 0358 00904000 * CALL MRELEASF; /* RETURN SPACE TO ADDRESS SPACE 00905000 * QUEUES VIA FREEMAIN */ 00906000 L @15,@CV02272 0359 00907000 BALR @14,@15 0359 00908000 * REG8=RDATASAV; 0360 00909000 LR REG8,RDATASAV 0360 00910000 * RBASE=W2; 0361 00911000 L @12,LDAPTR 0361 00912000 L RBASE,W2(,@12) 0361 00913000 * TCBPTR=W1; 0362 00914000 L TCBPTR,W1(,@12) 0362 00915000 *L6: 0363 00916000 * VRPARMS1=REGADD; /* THIS BLOCK ALLOWS RSM A CHANCE 00917000 * TO CLEAN UP THE ALLOCATED 0363 00918000 * SPACE */ 00919000 L6 L @12,PARMBASE 0363 00920000 L @11,REGADD(,@12) 0363 00921000 ST @11,VRPARMS1 0363 00922000 * SIZEREG=REGSIZE; 0364 00923000 L SIZEREG,REGSIZE(,@12) 0364 00924000 * GENERATE; 0365 00925000 SRL SIZEREG,12 00926000 * VRPARMS2=SIZEREG; 0366 00927000 ST SIZEREG,VRPARMS2 0366 00928000 * GPR01F=ADDR(VRPARMS); 0367 00929000 LA GPR01F,VRPARMS 0367 00930000 * GENERATE; 0368 00931000 OBTS2 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND,RELATED=(VRQS,IEAVGPRR(**00932000 RELSS2)) 00933000 * GPR13F=ADDR(SAVEAR); 0369 00934000 L GPR13F,LDAPTR 0369 00935000 LA GPR13F,SAVEAR(,GPR13F) 0369 00936000 * CALL IEAVEQRF; /* GO TO RSM TO FREE UP V=R SPACE*/ 00937000 L @12,CVTPTR 0370 00938000 L @12,PVTPTR(,@12) 0370 00939000 L @15,PVTPVRLS(,@12) 0370 00940000 BALR @14,@15 0370 00941000 * GENERATE; 0371 00942000 RELSS2 SETLOCK RELEASE,TYPE=SALLOC,RELATED=(VRQS,IEAVGPRR(OBTS2)) 00943000 * TCBPQE=ZERO; 0372 00944000 L @12,ZERO 0372 00945000 ST @12,TCBPQE(,TCBPTR) 0372 00946000 * GOTO RET; /* RETURN PROCESSING */ 00947000 B RET 0373 00948000 * END; 0374 00949000 * ELSE 0375 00950000 * GOTO L4; /* CLEAN UP ADDRESS SPACE AND V=R 00951000 * QUEUES */ 00952000 * ELSE 0376 00953000 * DO; 0376 00954000 @RF00327 DS 0H 0377 00955000 * PQESEPTR=VRPQEP; 0377 00956000 L @12,GDAPTR 0377 00957000 L @12,VRPQEP(,@12) 0377 00958000 ST @12,PQESEPTR 0377 00959000 * CALL QREBUILD; /* REBUILD QUEUES */ 00960000 BAL @14,QREBUILD 0378 00961000 * GOTO L5; /* CLEAN UP ADDRESS SPACE QS */ 00962000 B L5 0379 00963000 * END; 0380 00964000 * ELSE 0381 00965000 * DO; 0381 00966000 @RF00326 DS 0H 0382 00967000 * PQESEPTR=ASDPQE; 0382 00968000 L @12,LDAPTR 0382 00969000 L @12,ASDPQE(,@12) 0382 00970000 ST @12,PQESEPTR 0382 00971000 * CALL QREBUILD; /* REBUILD QUEUES */ 00972000 BAL @14,QREBUILD 0383 00973000 * GOTO L6; /* GO TO RSM FOR CLEAN UP */ 00974000 B L6 0384 00975000 * END; 0385 00976000 * ELSE 0386 00977000 * ; /* ESSENTIALLY NOTHING WAS 0386 00978000 * DONE:NO CLEANUP */ 00979000 @RF00325 DS 0H 0387 00980000 * IF WENQFLG='1'B THEN /* IF AN ENQUEUE WAS IN PROCESS, */ 00981000 L @12,PARMBASE 0387 00982000 TM WENQFLG(@12),B'01000000' 0387 00983000 BNO @RF00387 0387 00984000 * IF RECURSE^='1'B THEN /* AND THIS NOT A RECURSION 0388 00985000 * ENTRY, */ 00986000 TM RECURSE(@12),B'00001000' 0388 00987000 BO @RF00388 0388 00988000 * DO; 0389 00989000 * TCBPQE=ZERO; 0390 00990000 L @12,ZERO 0390 00991000 ST @12,TCBPQE(,TCBPTR) 0390 00992000 * GOTO WENQFIX; /* GO TO COMMON CLEANUP CODE */ 00993000 B WENQFIX 0391 00994000 * END; 0392 00995000 * TCBPQE=ZERO; /* THE NEXT LOGICAL 0393 00996000 * INSTRUCTION--GOTORET--IS 0393 00997000 * LOCATED AFTER THE QREBUILD 0393 00998000 * PROC TO FIX A BUG IN THE PLS 00999000 * COMPILER WHICH WON'T ALLOW AN 01000000 * ENTRY STATEMENT TO FOLLOW AN 01001000 * END OF AN INTERNAL PROC. */ 01002000 @RF00388 DS 0H 0393 01003000 @RF00387 L @12,ZERO 0393 01004000 ST @12,TCBPQE(,TCBPTR) 0393 01005000 * 0394 01006000 */* */ 01007000 */****************************************************************** */ 01008000 */* THIS ROUTINE UNDOES THE PROCESSING PERFORMED IN THE */ 01009000 */* GETSPEC ROUTINE OF IEAVPRT0. IF THE ERROR OCCURED */ 01010000 */* IN A STEP WHICH SUBTRACTS REGION SPACE FROM V=R OR V=V */ 01011000 */* QUEUES, CLEAN-UP MUST BE PERFORMED BY THE FRR RATHER */ 01012000 */* THAN BY A FREEMAIN INTERFACE. IF THE SPACE WAS NOT */ 01013000 */* COMPLETELY OFF THE QUEUES WHEN THE ERROR OCCURED, */ 01014000 */* A BRANCH TO FREEMAIN TO RESTORE THE SPACE COULD RESULT */ 01015000 */* IN DUPLICATE SPACE ON THE FBQE QUEUES. */ 01016000 */* SOME SPACE MAY BE LOST FROM THE FBQE AS A RESULT OF THIS */ 01017000 */* CLEAN-UP; HOWEVER QUEUING SHOULD REMAIN VALID AS LONG */ 01018000 */* AS THE FRR ROUTINE DOES NOT FAIL. */ 01019000 */****************************************************************** */ 01020000 * 0394 01021000 *QREBUILD: 0394 01022000 * PROC; 0394 01023000 B @PB00002 0394 01024000 QREBUILD STM @14,@12,@SA00002 0394 01025000 * FBQESPTR=PQEFFBQE; 0395 01026000 L @12,PQESEPTR 0395 01027000 L FBQESPTR,PQEFFBQE(,@12) 0395 01028000 * FBQEBASE=RW1SAVE; /* RW1SAVE CONTAINS THE @ OF THE 01029000 * FBQE BEING WORKED UPON */ 01030000 L @12,PARMBASE 0396 01031000 L FBQEBASE,RW1SAVE(,@12) 0396 01032000 * IF FBQEBASE=ZERO THEN /* IF NO FBQE TO WORK ON, */ 01033000 C FBQEBASE,ZERO 0397 01034000 BE @RT00397 0397 01035000 * RETURN; /* RETURN TO CALLER */ 01036000 *LOOP: 0399 01037000 * IF FBQESPTR=PQESEPTR THEN /* IF THE FBQE NOT FOUND BY 0399 01038000 * SEARCH, */ 01039000 LOOP C FBQESPTR,PQESEPTR 0399 01040000 BE @RT00399 0399 01041000 * GOTO NEWFBQE; /* GO BUILD A NEW FBQE */ 01042000 * IF FBQESPTR^=FBQEBASE THEN /* IF THIS FBQE NOT THE ONE IN 0401 01043000 * QUESTION, */ 01044000 CR FBQESPTR,FBQEBASE 0401 01045000 BE @RF00401 0401 01046000 * DO; 0402 01047000 * FBQESPTR=FWDPTR; 0403 01048000 L FBQESPTR,FWDPTR(,FBQESPTR) 0403 01049000 * GOTO LOOP; /* KEEP SEARCHING THE FBQE CHAIN */ 01050000 B LOOP 0404 01051000 * END; 0405 01052000 * FBQEEND=FBQAREA+SIZE; 0406 01053000 @RF00401 L @12,FBQAREA(,FBQESPTR) 0406 01054000 LR FBQEEND,@12 0406 01055000 AL FBQEEND,SIZE(,FBQESPTR) 0406 01056000 * REGEND=REGADD+REGSIZE; /* END OF REG BEING ALLOCATED */ 01057000 L @15,PARMBASE 0407 01058000 L @14,REGADD(,@15) 0407 01059000 LR REGEND,@14 0407 01060000 AL REGEND,REGSIZE(,@15) 0407 01061000 * IF FBQAREA=REGADD THEN /* IF START @'S = */ 01062000 CR @12,@14 0408 01063000 BNE @RF00408 0408 01064000 * IF FBQEEND=REGEND THEN /* AND END ADDRESSES =, */ 01065000 CR FBQEEND,REGEND 0409 01066000 BNE @RF00409 0409 01067000 * DO; /* CHAIN FBQE PROPERLY */ 01068000 * FBQESPTR=FBQEBASE->FWDPTR; 0411 01069000 L FBQESPTR,FWDPTR(,FBQEBASE) 0411 01070000 * BCKPTR=FBQEBASE; 0412 01071000 ST FBQEBASE,BCKPTR(,FBQESPTR) 0412 01072000 * FBQESPTR=FBQEBASE->BCKPTR; 0413 01073000 L FBQESPTR,BCKPTR(,FBQEBASE) 0413 01074000 * FWDPTR=FBQEBASE; 0414 01075000 ST FBQEBASE,FWDPTR(,FBQESPTR) 0414 01076000 * RETURN; /* RETURN TO CALLER */ 01077000 @EL00002 DS 0H 0415 01078000 @EF00002 DS 0H 0415 01079000 @ER00002 LM @14,@12,@SA00002 0415 01080000 BR @14 0415 01081000 * END; 0416 01082000 * IF REGADDFBQEEND THEN /* IF REG START > FREE AREA END, */ 01101000 @RF00417 L @12,PARMBASE 0423 01102000 C FBQEEND,REGADD(,@12) 0423 01103000 BNL @RF00423 0423 01104000 * DO; /* ADD REG SIZE BACK INTO TOP OF 01105000 * FBQE AND COMBINE WITH NEXT 0424 01106000 * HIGHER FBQE IF CONTIGUOUS */ 01107000 * SIZE=SIZE+REGSIZE; 0425 01108000 L @11,SIZE(,FBQESPTR) 0425 01109000 AL @11,REGSIZE(,@12) 0425 01110000 ST @11,SIZE(,FBQESPTR) 0425 01111000 * FBQEEND=FBQAREA+SIZE; 0426 01112000 L FBQEEND,FBQAREA(,FBQESPTR) 0426 01113000 ALR FBQEEND,@11 0426 01114000 * IF FBQEEND=FWDPTR->FBQAREA THEN/* ARE THE TWO CONTIGUOUS? 0427 01115000 * @ZA02394*/ 01116000 L @15,FWDPTR(,FBQESPTR) 0427 01117000 C FBQEEND,FBQAREA(,@15) 0427 01118000 BNE @RF00427 0427 01119000 * DO; /* COMBINE AREAS AND REMOVE 0428 01120000 * HIGHER CONTIGUOUS FBQE */ 01121000 * RW1SAVE=FWDPTR; /* SAVE PTR TO NEXT FBQE */ 01122000 ST @15,RW1SAVE(,@12) 0429 01123000 * SIZE=SIZE+FWDPTR->SIZE; /* ADD AREA SIZES */ 01124000 AL @11,SIZE(,@15) 0430 01125000 ST @11,SIZE(,FBQESPTR) 0430 01126000 * FWDPTR=FWDPTR->DUMMYWRD;/* REMOVE HIGHER */ 01127000 L @12,DUMMYWRD(,@15) 0431 01128000 ST @12,FWDPTR(,FBQESPTR) 0431 01129000 * FWDPTR->BCKPTR=FBQEBASE;/* CONTIGUOUS FBQE */ 01130000 ST FBQEBASE,BCKPTR(,@12) 0432 01131000 * RETURN; /* RETURN TO CALLER */ 01132000 B @EL00002 0433 01133000 * END; 0434 01134000 * END; 0435 01135000 @RF00427 DS 0H 0436 01136000 * FWDPTR->BCKPTR=FBQEBASE; 0436 01137000 @RF00423 L @12,FWDPTR(,FBQESPTR) 0436 01138000 ST FBQEBASE,BCKPTR(,@12) 0436 01139000 * BCKPTR->DUMMYWRD=FBQEBASE; /* RECHAIN FBQE CORRECTLY */ 01140000 L @12,BCKPTR(,FBQESPTR) 0437 01141000 ST FBQEBASE,DUMMYWRD(,@12) 0437 01142000 * RETURN; 0438 01143000 * 0438 01144000 B @EL00002 0438 01145000 */* */ 01146000 */********************************************************************/ 01147000 */* IF NOT FOUND, GET A NEW FBQE, PUT REGION SPACE IN IT, */ 01148000 */* AND CHAIN IT PROPERLY ON FBQE CHAIN. */ 01149000 */********************************************************************/ 01150000 * 0439 01151000 * RESPECIFY 0439 01152000 * (GPR00F, 0439 01153000 * GPR01F, 0439 01154000 * GPR07F, 0439 01155000 * GPR14F, 0439 01156000 * GPR15F) RESTRICTED; 0439 01157000 * 0439 01158000 */* REGS USED BY GM @Z30ENYG*/ 01159000 * 0440 01160000 *NEWFBQE: 0440 01161000 * IF ASDONE='1'B THEN 0440 01162000 NEWFBQE L @12,PARMBASE 0440 01163000 TM ASDONE(@12),B'01000000' 0440 01164000 BNO @RF00440 0440 01165000 * GPR15F=245; /* IF V=R FBQE, SP 245 @Z30ENYG*/ 01166000 LA GPR15F,245 0441 01167000 * ELSE 0442 01168000 * GPR15F=255; /* IF A.S. FBQE, SP 255 @Z30ENYG*/ 01169000 B @RC00440 0442 01170000 @RF00440 LA GPR15F,255 0442 01171000 * GEN REFS(PASCBSV,LDAPTR); 0443 01172000 @RC00440 DS 0H 0443 01173000 * /*@Z30ENYG*/ 01174000 L RASCB,LDAPTR ASCB ADDR IS IN LDA @Z30ENYG 01175000 L RASCB,PASCBSV(RASCB) ADDR ASCB FOR CELL GM @Z30ENYG 01176000 GETMAIN P,BRANCH=YES,SP=(GPR15F) GM CELL FOR FBQE @Z30ENYG 01177000 * RESPECIFY 0444 01178000 * (GPR00F, 0444 01179000 * GPR01F, 0444 01180000 * GPR07F, 0444 01181000 * GPR14F, 0444 01182000 * GPR15F) UNRESTRICTED; 0444 01183000 * 0444 01184000 */* @Z30ENYG*/ 01185000 * 0445 01186000 * FBQESPTR=GPR01F; 0445 01187000 LR FBQESPTR,GPR01F 0445 01188000 * SIZE=REGSIZE; 0446 01189000 L @12,PARMBASE 0446 01190000 L @11,REGSIZE(,@12) 0446 01191000 ST @11,SIZE(,FBQESPTR) 0446 01192000 * FBQAREA=REGADD; 0447 01193000 L @12,REGADD(,@12) 0447 01194000 ST @12,FBQAREA(,FBQESPTR) 0447 01195000 * FBQEBASE=FBQESPTR; 0448 01196000 LR FBQEBASE,FBQESPTR 0448 01197000 * FBQESPTR=PQEFFBQE; 0449 01198000 L @12,PQESEPTR 0449 01199000 L FBQESPTR,PQEFFBQE(,@12) 0449 01200000 *LOOP2: 0450 01201000 * IF FBQESPTR=PQESEPTR THEN /* IS NEW FBQE ONLY ONE OR LAST 01202000 * ONE ON CHAIN? */ 01203000 LOOP2 L @12,PQESEPTR 0450 01204000 CR FBQESPTR,@12 0450 01205000 BNE @RF00450 0450 01206000 * DO; /* CHAIN IT PROPERLY */ 01207000 * FBQEBASE->DUMMYWRD=PQESEPTR; 0452 01208000 ST @12,DUMMYWRD(,FBQEBASE) 0452 01209000 * FBQEBASE->BCKPTR=PQESEPTR; 0453 01210000 ST @12,BCKPTR(,FBQEBASE) 0453 01211000 * PQEFFBQE=FBQEBASE; /* CHAIN PQE TO FBQE @Z30ENYG*/ 01212000 ST FBQEBASE,PQEFFBQE(,@12) 0454 01213000 * PQEBFBQE=FBQEBASE; /* @Z30ENYG*/ 01214000 ST FBQEBASE,PQEBFBQE(,@12) 0455 01215000 * RETURN; 0456 01216000 B @EL00002 0456 01217000 * END; 0457 01218000 * IF FBQEBASE->FBQAREADUMMYWRD=FBQEBASE; 0460 01224000 L @12,BCKPTR(,FBQESPTR) 0460 01225000 ST FBQEBASE,DUMMYWRD(,@12) 0460 01226000 * FBQEBASE->DUMMYWRD=FBQESPTR; 0461 01227000 ST FBQESPTR,DUMMYWRD(,FBQEBASE) 0461 01228000 * FBQEBASE->BCKPTR=BCKPTR; 0462 01229000 ST @12,BCKPTR(,FBQEBASE) 0462 01230000 * BCKPTR=FBQEBASE; 0463 01231000 ST FBQEBASE,BCKPTR(,FBQESPTR) 0463 01232000 * RETURN; /* RETURN TO CALLER */ 01233000 B @EL00002 0464 01234000 * END; 0465 01235000 * FBQESPTR=FWDPTR; 0466 01236000 @RF00458 L FBQESPTR,FWDPTR(,FBQESPTR) 0466 01237000 * GOTO LOOP2; /* CHAIN FBQE IN PROPER POSITION */ 01238000 B LOOP2 0467 01239000 * END QREBUILD; 0468 01240000 B @EL00002 0468 01241000 * GOTO RET; /* RETURN TO CALLER */ 01242000 B RET 0469 01243000 */* */ 01244000 */********************************************************************/ 01245000 */* THIS IS THE ASYNCHRONOUS ERROR EXIT ROUTINE USED BY XMPOST */ 01246000 */* FOR ERRORS DISCOVERED DURING POST PROCESSING. THE ROUTINE */ 01247000 */* SCHEDULES A SRB TO ABEND THE INITIATOR THAT COULD NOT BE */ 01248000 */* WITH AN ABEND CODE OF X'304'. */ 01249000 */********************************************************************/ 01250000 * 0470 01251000 *PRT0ERTN: 0470 01252000 * ENTRY; 0470 01253000 * GENERATE REFS(CVTCRMN,CVTMAP,PSATOLD,PSAAOLD); 0471 01254000 PRT0ERTN DS 0H 01255000 DROP @08 01256000 USING *,@09 01257000 LR @09,@15 01258000 B ENTPT BRANCH AROUND ENTRY INSTRUCTION 01259000 ENTRY PRT0ERTN 01260000 * RESPECIFY 0472 01261000 * (RDATASAV, 0472 01262000 * RETSAVE, 0472 01263000 * POSTASCB) RSTD; 0472 01264000 *ENTPT: 0473 01265000 * RETSAVE=RRETURN; /* SAVE RETURN REG */ 01266000 ENTPT LR RETSAVE,RRETURN 0473 01267000 * POSTASCB=ASCBPTR; /* SAVE ASCB ADDRESS */ 01268000 LR POSTASCB,ASCBPTR 0474 01269000 * R0=PVTSRBID; /* CELL POOL ID FOR SRB */ 01270000 L @12,CVTPTR 0475 01271000 L @12,PVTPTR(,@12) 0475 01272000 L R0,PVTSRBID(,@12) 0475 01273000 * GENERATE(GETCELL CPID=(R0),BRANCH=YES,SAVE=NO); 0476 01274000 GETCELL CPID=(R0),BRANCH=YES,SAVE=NO 01275000 * IF RRETREG=0 THEN 0477 01276000 LTR RRETREG,RRETREG 0477 01277000 BNZ @RF00477 0477 01278000 * DO; 0478 01279000 * SRBSECT='0'B; 0479 01280000 XC SRBSECT+1(43,SRBPTR),SRBSECT+1(SRBPTR) 0479 01281000 MVI SRBSECT(SRBPTR),B'00000000' 0479 01282000 * SRBID='SRB '; 0480 01283000 MVC SRBID(4,SRBPTR),@CC02475 0480 01284000 * SRBASCB=POSTASCB; 0481 01285000 ST POSTASCB,SRBASCB(,SRBPTR) 0481 01286000 * SRBEP=ADDR(IEAVGPRS); 0482 01287000 L @12,@CA02476 0482 01288000 ST @12,SRBEP(,SRBPTR) 0482 01289000 * SRBPARM=POSTASCB; 0483 01290000 ST POSTASCB,SRBPARM(,SRBPTR) 0483 01291000 * SRBRMTR=PVTPSRBP; 0484 01292000 L @12,CVTPTR 0484 01293000 L @12,PVTPTR(,@12) 0484 01294000 L @12,PVTPSRBP(,@12) 0484 01295000 ST @12,SRBRMTR(,SRBPTR) 0484 01296000 * GEN(SCHEDULE SRB=(SRBPTR),SCOPE=GLOBAL); 0485 01297000 SCHEDULE SRB=(SRBPTR),SCOPE=GLOBAL 01298000 * END; 0486 01299000 * RRETURN=RETSAVE; 0487 01300000 @RF00477 LR RRETURN,RETSAVE 0487 01301000 * GOTO RRETURN; 0488 01302000 BR RRETURN 0488 01303000 * 0489 01304000 * /*****************************************************************/ 01305000 * /* */ 01306000 * /* THIS IS THE ENTRY POINT FOR IEAVGPRS, THE SRB SCHEDULED BY */ 01307000 * /* PRT0ERTN (XMPOST ASYNCHRONOUS ERROR ROUTINE) TO CAUSE THE */ 01308000 * /* INITIATOR WHICH COULD NOT BE POSTED TO BE ABENDED WITH ABEND */ 01309000 * /* CODE X'304'. */ 01310000 * /* */ 01311000 * /*****************************************************************/ 01312000 * 0489 01313000 *IEAVGPRS: 0489 01314000 * ENTRY; 0489 01315000 * GENERATE; 0490 01316000 IEAVGPRS DS 0H 01317000 DROP @09 01318000 USING *,@09 01319000 LR @09,@15 01320000 B INITWAKE 01321000 ENTRY IEAVGPRS 01322000 *INITWAKE: 0491 01323000 * POSTASCB=PARM; 0491 01324000 INITWAKE LR POSTASCB,PARM 0491 01325000 * RETSAVE=RRETURN; 0492 01326000 LR RETSAVE,RRETURN 0492 01327000 * SRBPTR=R0; 0493 01328000 LR SRBPTR,R0 0493 01329000 * R0=PVTSRBID; 0494 01330000 L @12,CVTPTR 0494 01331000 L @12,PVTPTR(,@12) 0494 01332000 L R0,PVTSRBID(,@12) 0494 01333000 * GEN(FREECELL CPID=(R0),CELL=(SRBPTR),BRANCH=YES,SAVE=NO); 0495 01334000 FREECELL CPID=(R0),CELL=(SRBPTR),BRANCH=YES,SAVE=NO 01335000 * GENERATE; 0496 01336000 OBTL SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND,RELATED=(LDA,IEAVGPRR(REL)) 01337000 L @00,@SIZDATD SIZE FOR GETMAIN 01338000 ICM @00,B'1000',XFF SPACE FROM SUBPOOL 255 01339000 * TCBPTR=POSTASCB->ASCBLDA->LDATCB;/* GET INITS TCB @ */ 01340000 L @12,ASCBLDA(,POSTASCB) 0497 01341000 L TCBPTR,LDATCB(,@12) 0497 01342000 * GENERATE REFS(CVTCRMN,CVTMAP); 0498 01343000 GETMAIN R,LV=(R0),BRANCH=YES 01344000 * RDATASAV=PARM; 0499 01345000 LR RDATASAV,PARM 0499 01346000 * GEN(USING @DATD,@05); 0500 01347000 USING @DATD,@05 01348000 * SAVEREG=ADDR(SAV); 0501 01349000 LA SAVEREG,SAV 0501 01350000 * GEN(CALLRTM TYPE=ABTERM,COMPCOD=X'304',TCB=(TCBPTR)); 0502 01351000 CALLRTM TYPE=ABTERM,COMPCOD=X'304',TCB=(TCBPTR) 01352000 * GEN(L @00,@SIZDATD); 0503 01353000 L @00,@SIZDATD 01354000 * GEN(ICM @00,B'1000',XFF); 0504 01355000 ICM @00,B'1000',XFF 01356000 * GEN REFS(CVTCRMN,CVTMAP); 0505 01357000 FREEMAIN R,LV=(R0),A=(RDATASAV),BRANCH=YES 01358000 REL SETLOCK RELEASE,TYPE=LOCAL,RELATED=(LDA,IEAVGPRR(OBTL)) 01359000 * RRETURN=RETSAVE; 0506 01360000 LR RRETURN,RETSAVE 0506 01361000 * GOTO RRETURN; 0507 01362000 BR RRETURN 0507 01363000 * END IEAVGPRR 0508 01364000 * 0508 01365000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01366000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01367000 */*%INCLUDE SYSLIB (CVT ) */ 01368000 */*%INCLUDE SYSLIB (IHAPQE ) */ 01369000 */*%INCLUDE SYSLIB (IHAGDA ) */ 01370000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01371000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01372000 */*%INCLUDE SYSLIB (IHASDUMP) */ 01373000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01374000 */*%INCLUDE SYSLIB (IHAFBQE ) */ 01375000 */*%INCLUDE SYSLIB (FREEMAIN) */ 01376000 */*%INCLUDE SYSLIB (GETMAIN ) */ 01377000 */*%INCLUDE SYSLIB (IHAWPQEL) */ 01378000 */*%INCLUDE SYSLIB (IHASCVT ) */ 01379000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01380000 */*%INCLUDE SYSLIB (IHAPVT ) */ 01381000 */*%INCLUDE SYSLIB (IHALDA ) */ 01382000 */*%INCLUDE SYSLIB (IHASRB ) */ 01383000 * 0508 01384000 * ; 0508 01385000 @DATA DS 0H 01386000 @DATD DSECT 01387000 DS 0F 01388000 @SA00002 DS 15F 01389000 IEAVGPRR CSECT 01390000 DS 0F 01391000 @CF02438 DC F'4096' 01392000 @CF02485 DC XL4'0000FFFF' 01393000 @DATD DSECT 01394000 DS 0D 01395000 PQESEPTR DS A 01396000 GDAPTR DS A 01397000 SDWAPTR DS A 01398000 SDUMPPTR DS A 01399000 FRREPTR DS A 01400000 SCVTSPTR DS A 01401000 LDAPTR DS A 01402000 WRKPTR DS A 01403000 PARMBASE DS A 01404000 DPQEPTR DS A 01405000 R14 DS A 01406000 R14SAVE DS A 01407000 LFSDUMP2 DS CL24 01408000 VRPARMS DS CL8 01409000 ORG VRPARMS 01410000 VRPARMS1 DS AL4 01411000 VRPARMS2 DS AL4 01412000 ORG VRPARMS+8 01413000 ASIDVAL DS CL4 01414000 ORG ASIDVAL 01415000 @NM00131 DS CL2 01416000 ID DS FL2 01417000 ORG ASIDVAL+4 01418000 SAV DS CL72 01419000 IEAVGPRR CSECT 01420000 DS 0F 01421000 @SIZDATD DC AL1(0) 01422000 DC AL3(@ENDDATD-@DATD) 01423000 @CA02476 DC A(IEAVGPRS) 01424000 @CV02260 DC V(FREERSM) 01425000 @CV02261 DC V(FREEASQ) 01426000 @CV02262 DC V(ZEROPTRS) 01427000 @CV02263 DC V(DEQUEUE) 01428000 @CV02264 DC V(GPRETURN) 01429000 @CV02265 DC V(CBGETS) 01430000 @CV02266 DC V(ENDASQS) 01431000 @CV02267 DC V(SUCVR) 01432000 @CV02268 DC V(ELBUILD) 01433000 @CV02269 DC V(UNL) 01434000 @CV02271 DC V(GPRETRY) 01435000 @CV02272 DC V(MRELEASF) 01436000 @CV02270 DC V(FREEPART) 01437000 DS 0D 01438000 ZERO DC A(0) 01439000 CLEAR DC F'0' 01440000 SAME DC H'0' 01441000 XFF DC AL1(255) 01442000 @CC02475 DC C'SRB ' 01443000 DS CL1 01444000 ZEROES DS CL24 01445000 ORG ZEROES 01446000 @NM00122 DC 6F'0' 01447000 ORG ZEROES+24 01448000 O82 DC B'000010000010000000000000' 01449000 MODN DC CL8'IEAVPRT0' 01450000 REXN DC CL8'IEAVGPRR' 01451000 IEAVGPRR CSECT 01452000 LFSDUMP SDUMP HDR='PGM CHECK IN IEAVPRT0',MF=L 01453000 @DATD DSECT 01454000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01455000 @ENDDATD EQU * 01456000 IEAVGPRR CSECT 01457000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01458000 @01 EQU 01 01459000 @02 EQU 02 01460000 @03 EQU 03 01461000 @04 EQU 04 01462000 @05 EQU 05 01463000 @06 EQU 06 01464000 @07 EQU 07 01465000 @08 EQU 08 01466000 @09 EQU 09 01467000 @10 EQU 10 01468000 @11 EQU 11 01469000 @12 EQU 12 01470000 @13 EQU 13 01471000 @14 EQU 14 01472000 @15 EQU 15 01473000 FBQEBASE EQU @06 01474000 FBQEEND EQU @07 01475000 ELBASE EQU @05 01476000 REGEND EQU @11 01477000 SRSIZE EQU @06 01478000 WPQLPTR EQU @06 01479000 FBQESPTR EQU @05 01480000 TCBPTR EQU @04 01481000 ASCBPTR EQU @01 01482000 SRBPTR EQU @01 01483000 GPR00F EQU @00 01484000 GPR01F EQU @01 01485000 GPR02F EQU @02 01486000 GPR03F EQU @03 01487000 GPR07F EQU @07 01488000 GPR13F EQU @13 01489000 GPR14F EQU @14 01490000 GPR15F EQU @15 01491000 REG8 EQU @08 01492000 RBASE EQU @10 01493000 RDATASAV EQU @05 01494000 RGMBASE EQU @08 01495000 RGMBASE2 EQU @13 01496000 RRETURN EQU @14 01497000 RASCB EQU @07 01498000 PQEREG EQU @07 01499000 SIZEREG EQU @06 01500000 SEGREG EQU @09 01501000 WORKREG EQU @09 01502000 R0 EQU @00 01503000 PARM EQU @01 01504000 RETSAVE EQU @06 01505000 POSTASCB EQU @07 01506000 RRETREG EQU @15 01507000 SAVEREG EQU @13 01508000 GPR04F EQU @04 01509000 RCVT EQU @03 01510000 CVTPTR EQU 16 01511000 PSA EQU 0 01512000 FLCRNPSW EQU PSA 01513000 FLCROPSW EQU PSA+8 01514000 FLCICCW2 EQU PSA+16 01515000 PSAEEPSW EQU PSA+132 01516000 PSAESPSW EQU PSA+136 01517000 FLCSVILC EQU PSAESPSW+1 01518000 PSAEPPSW EQU PSA+140 01519000 FLCPIILC EQU PSAEPPSW+1 01520000 FLCPICOD EQU PSAEPPSW+2 01521000 PSAPICOD EQU FLCPICOD+1 01522000 FLCTEA EQU PSAEPPSW+4 01523000 FLCPER EQU PSA+152 01524000 FLCMCLA EQU PSA+168 01525000 FLCIOEL EQU FLCMCLA+4 01526000 FLCIOA EQU FLCMCLA+16 01527000 FLCFSA EQU FLCMCLA+80 01528000 PSATOLD EQU PSA+540 01529000 PSAAOLD EQU PSA+548 01530000 PSASUPER EQU PSA+552 01531000 PSASUP1 EQU PSASUPER 01532000 PSASUP2 EQU PSASUPER+1 01533000 PSASUP3 EQU PSASUPER+2 01534000 PSASUP4 EQU PSASUPER+3 01535000 PSACLHT EQU PSA+640 01536000 PSALKSA EQU PSA+696 01537000 PSAHLHI EQU PSA+760 01538000 PSADSSFL EQU PSA+836 01539000 PSADSSF1 EQU PSADSSFL 01540000 PSADSSF3 EQU PSADSSFL+2 01541000 PSADSSF4 EQU PSADSSFL+3 01542000 PSARSVT EQU PSA+896 01543000 TCBFIX EQU 0 01544000 TCBFRS EQU TCBFIX 01545000 TCB EQU 0 01546000 TCBPIE EQU TCB+4 01547000 TCBPMASK EQU TCBPIE 01548000 TCBCMP EQU TCB+16 01549000 TCBCMPF EQU TCBCMP 01550000 TCBCPP EQU TCBCMPF 01551000 TCBSTCC EQU TCBCMPF 01552000 TCBCDBL EQU TCBCMPF 01553000 TCBCWTO EQU TCBCMPF 01554000 TCBCIND EQU TCBCMPF 01555000 TCBCMSG EQU TCBCMPF 01556000 TCBTRN EQU TCB+20 01557000 TCBABF EQU TCBTRN 01558000 TCBMSS EQU TCB+24 01559000 TCBPKF EQU TCB+28 01560000 TCBFLGS EQU TCB+29 01561000 TCBFLGS1 EQU TCBFLGS 01562000 TCBFLGS2 EQU TCBFLGS+1 01563000 TCBFLGS3 EQU TCBFLGS+2 01564000 TCBFLGS4 EQU TCBFLGS+3 01565000 TCBFLGS5 EQU TCBFLGS+4 01566000 TCBABWF EQU TCBFLGS5 01567000 TCBJPQ EQU TCB+44 01568000 TCBPURGE EQU TCBJPQ 01569000 TCBGRS EQU TCB+48 01570000 TCBFSA EQU TCB+112 01571000 TCBTME EQU TCB+120 01572000 TCBJSTCB EQU TCB+124 01573000 TCBTSFLG EQU TCB+148 01574000 TCBTSTSK EQU TCBTSFLG 01575000 TCBPQE EQU TCB+152 01576000 TCBSTAB EQU TCB+160 01577000 TCBNSTAE EQU TCBSTAB 01578000 TCBTCT EQU TCB+164 01579000 TCBTCTGF EQU TCBTCT 01580000 TCBSCNDY EQU TCB+172 01581000 TCBNDSP EQU TCBSCNDY 01582000 TCBNDSP1 EQU TCBNDSP+1 01583000 TCBNDSP2 EQU TCBNDSP+2 01584000 TCBNDSP3 EQU TCBNDSP+3 01585000 TCBJSCB EQU TCB+180 01586000 TCBRECDE EQU TCBJSCB 01587000 TCBEXT1 EQU TCB+196 01588000 TCBBITS EQU TCB+200 01589000 TCBNDSP4 EQU TCBBITS 01590000 TCBNDSP5 EQU TCBBITS+1 01591000 TCBFLGS6 EQU TCBBITS+2 01592000 TCBRV EQU TCBFLGS6 01593000 TCBFLGS7 EQU TCBBITS+3 01594000 TCBDAR EQU TCB+204 01595000 TCBDARC EQU TCBDAR 01596000 TCBEXT2 EQU TCB+208 01597000 TCBXSCT EQU TCB+240 01598000 TCBXSCT1 EQU TCBXSCT 01599000 TCBFOE EQU TCB+244 01600000 TCBESTAE EQU TCB+264 01601000 TCBESTRM EQU TCBESTAE+1 01602000 TCBFBYT1 EQU TCB+276 01603000 TCBFBYT2 EQU TCB+277 01604000 TCBRV124 EQU TCB+278 01605000 TCBRV133 EQU TCB+279 01606000 TCBXTNT2 EQU 0 01607000 TCBGTF EQU TCBXTNT2 01608000 TCBTFLG EQU TCBGTF 01609000 TCBRV146 EQU TCBXTNT2+28 01610000 TCBRV155 EQU TCBXTNT2+29 01611000 TCBRV164 EQU TCBXTNT2+30 01612000 TCBRV173 EQU TCBXTNT2+31 01613000 CVTMAP EQU 0 01614000 CVTDAR EQU CVTMAP+72 01615000 CVTFLGS1 EQU CVTDAR 01616000 CVTDCB EQU CVTMAP+116 01617000 CVTIERLC EQU CVTMAP+144 01618000 CVTOPTA EQU CVTMAP+182 01619000 CVTOPTB EQU CVTMAP+183 01620000 CVTGTF EQU CVTMAP+236 01621000 CVTGTFST EQU CVTGTF 01622000 CVTGTFS EQU CVTGTFST 01623000 CVTSTATE EQU CVTGTFST 01624000 CVTTMODE EQU CVTGTFST 01625000 CVTFORM EQU CVTGTFST 01626000 CVTAQAVT EQU CVTMAP+240 01627000 CVTTCMFG EQU CVTAQAVT 01628000 CVTVOLM2 EQU CVTMAP+244 01629000 CVTTATA EQU CVTVOLM2 01630000 CVTTSKS EQU CVTTATA 01631000 CVTVOLF2 EQU CVTTSKS 01632000 CVTTAT EQU CVTTATA+1 01633000 CVTATER EQU CVTMAP+248 01634000 CVTEXT1 EQU CVTMAP+252 01635000 CVTPURG EQU CVTMAP+260 01636000 CVTQMSG EQU CVTMAP+268 01637000 CVTDMSR EQU CVTMAP+272 01638000 CVTRSV37 EQU CVTDMSR 01639000 CVTDMSRF EQU CVTRSV37 01640000 CVTERPV EQU CVTMAP+316 01641000 CVTINTLA EQU CVTMAP+320 01642000 CVTAPF EQU CVTMAP+324 01643000 CVTEXT2 EQU CVTMAP+328 01644000 CVTHJES EQU CVTMAP+332 01645000 CVTPGSIA EQU CVTMAP+348 01646000 CVTA1F1 EQU CVTMAP+356 01647000 CVTSYSK EQU CVTMAP+357 01648000 CVTVOLM1 EQU CVTMAP+380 01649000 CVTVOLF1 EQU CVTVOLM1 01650000 CVTATMCT EQU CVTMAP+388 01651000 CVTXTNT1 EQU 0 01652000 CVTXTNT2 EQU 0 01653000 CVTDSSV EQU CVTXTNT2 01654000 CVTFLGBT EQU CVTXTNT2+5 01655000 CVTQID EQU CVTXTNT2+24 01656000 CVTRV400 EQU CVTXTNT2+52 01657000 CVTRV409 EQU CVTXTNT2+53 01658000 CVTATCVT EQU CVTXTNT2+64 01659000 CVTRV429 EQU CVTXTNT2+84 01660000 CVTRV438 EQU CVTXTNT2+85 01661000 CVTRV457 EQU CVTXTNT2+112 01662000 CVTRV466 EQU CVTXTNT2+113 01663000 CVTFIX EQU 0 01664000 CVTRELNO EQU CVTFIX+252 01665000 PQESECT EQU 0 01666000 PQEFFBQE EQU PQESECT 01667000 PQEBFBQE EQU PQESECT+4 01668000 PQESIZE EQU PQESECT+20 01669000 PQEREGN EQU PQESECT+24 01670000 VMMFLGS EQU PQESECT+30 01671000 GDA EQU 0 01672000 GVSMFLAG EQU GDA 01673000 GDAFLAGS EQU GVSMFLAG 01674000 VRPQEP EQU GDA+12 01675000 PASTRT EQU GDA+16 01676000 PASIZE EQU GDA+20 01677000 VRPOSTQ EQU GDA+32 01678000 VRWAITQ EQU GDA+40 01679000 VRWFEL EQU VRWAITQ 01680000 VRWLEL EQU VRWAITQ+4 01681000 SDWA EQU 0 01682000 SDWAPARM EQU SDWA 01683000 SDWAFIOB EQU SDWA+4 01684000 SDWAABCC EQU SDWAFIOB 01685000 SDWACMPF EQU SDWAABCC 01686000 SDWACMPC EQU SDWAABCC+1 01687000 SDWACTL1 EQU SDWA+8 01688000 SDWACMKA EQU SDWACTL1 01689000 SDWAMWPA EQU SDWACTL1+1 01690000 SDWAPMKA EQU SDWACTL1+4 01691000 SDWACTL2 EQU SDWA+16 01692000 SDWACMKP EQU SDWACTL2 01693000 SDWAMWPP EQU SDWACTL2+1 01694000 SDWAPMKP EQU SDWACTL2+4 01695000 SDWAGRSV EQU SDWA+24 01696000 SDWANAME EQU SDWA+88 01697000 SDWAEC1 EQU SDWA+104 01698000 SDWAEMK1 EQU SDWAEC1 01699000 SDWAMWP1 EQU SDWAEC1+1 01700000 SDWAINT1 EQU SDWAEC1+2 01701000 SDWANXT1 EQU SDWAEC1+4 01702000 SDWAAEC1 EQU SDWA+112 01703000 SDWAILC1 EQU SDWAAEC1+1 01704000 SDWAINC1 EQU SDWAAEC1+2 01705000 SDWAICD1 EQU SDWAINC1+1 01706000 SDWAEC2 EQU SDWA+120 01707000 SDWAEMK2 EQU SDWAEC2 01708000 SDWAMWP2 EQU SDWAEC2+1 01709000 SDWAINT2 EQU SDWAEC2+2 01710000 SDWANXT2 EQU SDWAEC2+4 01711000 SDWAAEC2 EQU SDWA+128 01712000 SDWAILC2 EQU SDWAAEC2+1 01713000 SDWAINC2 EQU SDWAAEC2+2 01714000 SDWAICD2 EQU SDWAINC2+1 01715000 SDWASRSV EQU SDWA+136 01716000 SDWASR01 EQU SDWASRSV+4 01717000 SDWASR03 EQU SDWASRSV+12 01718000 SDWASR04 EQU SDWASRSV+16 01719000 SDWASR07 EQU SDWASRSV+28 01720000 SDWASR08 EQU SDWASRSV+32 01721000 SDWASR09 EQU SDWASRSV+36 01722000 SDWASR13 EQU SDWASRSV+52 01723000 SDWASR14 EQU SDWASRSV+56 01724000 SDWAIDNT EQU SDWA+200 01725000 SDWAMCH EQU SDWA+204 01726000 SDWASTCK EQU SDWAMCH 01727000 SDWAMCHI EQU SDWAMCH+8 01728000 SDWAMCHS EQU SDWAMCHI 01729000 SDWAMCHD EQU SDWAMCHI+1 01730000 SDWARSR1 EQU SDWAMCH+12 01731000 SDWARSR2 EQU SDWAMCH+13 01732000 SDWAFLGS EQU SDWA+232 01733000 SDWAERRA EQU SDWAFLGS 01734000 SDWAMCHK EQU SDWAERRA 01735000 SDWAPCHK EQU SDWAERRA 01736000 SDWAERRB EQU SDWAFLGS+1 01737000 SDWAERRC EQU SDWAFLGS+2 01738000 SDWAPERC EQU SDWAERRC 01739000 SDWAERRD EQU SDWAFLGS+3 01740000 SDWAFMID EQU SDWA+236 01741000 SDWAIOFS EQU SDWA+238 01742000 SDWARTYA EQU SDWA+240 01743000 SDWACPUA EQU SDWA+248 01744000 SDWAPARQ EQU SDWA+252 01745000 SDWARCDE EQU SDWAPARQ 01746000 SDWAACF2 EQU SDWAPARQ+1 01747000 SDWARCRD EQU SDWAACF2 01748000 SDWAUPRG EQU SDWAACF2 01749000 SDWAACF3 EQU SDWAPARQ+2 01750000 SDWASALL EQU SDWAACF3 01751000 SDWAACF4 EQU SDWAPARQ+3 01752000 SDWALKWA EQU SDWA+256 01753000 SDWALKWS EQU SDWALKWA 01754000 SDWARECP EQU SDWA+292 01755000 SDWAMODN EQU SDWARECP 01756000 SDWACSCT EQU SDWARECP+8 01757000 SDWAREXN EQU SDWARECP+16 01758000 SDWASNPA EQU SDWA+320 01759000 SDWADUMP EQU SDWASNPA 01760000 SDWADPFS EQU SDWADUMP+1 01761000 SDWADDAT EQU SDWASNPA+4 01762000 SDWASDAT EQU SDWADDAT 01763000 SDWAPDAT EQU SDWADDAT+2 01764000 SDWADPSA EQU SDWA+328 01765000 SDWADPSL EQU SDWADPSA 01766000 SDWARA EQU SDWA+400 01767000 SDWADPVA EQU SDWARA+2 01768000 SDUMP EQU 0 01769000 SDUSDAT1 EQU SDUMP+2 01770000 SDUSDAT2 EQU SDUMP+3 01771000 FRRS EQU 0 01772000 FRRSHEAD EQU FRRS 01773000 FRRSENTR EQU 0 01774000 FRRSFLGS EQU FRRSENTR+4 01775000 FRRSFLG1 EQU FRRSFLGS 01776000 FBQESECT EQU 0 01777000 FWDPTR EQU FBQESECT 01778000 BCKPTR EQU FBQESECT+4 01779000 SIZE EQU FBQESECT+8 01780000 FBQAREA EQU FBQESECT+12 01781000 VRWPQEL EQU 0 01782000 WPNEXTEL EQU VRWPQEL 01783000 WPPREVEL EQU VRWPQEL+4 01784000 SCVTSECT EQU 0 01785000 SCVTRMBR EQU SCVTSECT+28 01786000 ASCB EQU 0 01787000 ASCBSUPC EQU ASCB+16 01788000 ASCBLDA EQU ASCB+48 01789000 ASCBFW1 EQU ASCB+100 01790000 ASCBRCTF EQU ASCBFW1+2 01791000 ASCBFLG1 EQU ASCBFW1+3 01792000 ASCBDSP1 EQU ASCB+114 01793000 ASCBFLG2 EQU ASCB+115 01794000 ASCBLKGP EQU ASCB+128 01795000 ASCBSRQ EQU ASCB+180 01796000 ASCBSRQ1 EQU ASCBSRQ 01797000 ASCBSRQ2 EQU ASCBSRQ+1 01798000 ASCBSRQ3 EQU ASCBSRQ+2 01799000 ASCBSRQ4 EQU ASCBSRQ+3 01800000 PVT EQU 0 01801000 PVTFLAG1 EQU PVT 01802000 PVTSRBID EQU PVT+68 01803000 PVTPVRLS EQU PVT+136 01804000 PVTPSRBP EQU PVT+188 01805000 PVTQS EQU PVT+304 01806000 PVTWSAX EQU PVT+344 01807000 LDA EQU 0 01808000 LVSMFLAG EQU LDA 01809000 PASCBSV EQU LDA+4 01810000 ASDPQE EQU LDA+8 01811000 LDATCB EQU LDA+12 01812000 LDARQSTA EQU LDA+16 01813000 LDACBSP EQU LDA+20 01814000 BRANCHSV EQU LDA+524 01815000 CFAPWKAR EQU LDA+1164 01816000 VVREGSZ EQU LDA+1468 01817000 LDASRPQE EQU LDA+1476 01818000 SRBSECT EQU 0 01819000 SRB EQU SRBSECT 01820000 SRBID EQU SRB 01821000 SRBASCB EQU SRB+8 01822000 SRBFLC EQU SRB+12 01823000 SRBEP EQU SRB+20 01824000 SRBRMTR EQU SRB+24 01825000 SRBPARM EQU SRB+28 01826000 IEAVEQRF EQU 0 01827000 PARMS EQU 0 01828000 FLGS1 EQU PARMS 01829000 RSMDONE EQU FLGS1 01830000 ASDONE EQU FLGS1 01831000 CBGFLG EQU FLGS1 01832000 FPFLG EQU FLGS1 01833000 ZPFLG EQU FLGS1 01834000 GPFPFLG EQU FLGS1 01835000 FLGS2 EQU PARMS+1 01836000 DEQFLG EQU FLGS2 01837000 WENQFLG EQU FLGS2 01838000 VEQRDONE EQU FLGS2 01839000 RECURSE EQU FLGS2 01840000 REGSIZE EQU PARMS+4 01841000 REGADD EQU PARMS+8 01842000 LDAADD EQU PARMS+12 01843000 RW1SAVE EQU PARMS+16 01844000 PRT0BASE EQU PARMS+20 01845000 DUMMYWRD EQU 0 01846000 FRRSAVE EQU 0 01847000 SAVBRSV EQU FRRSAVE 01848000 SAVTCB EQU FRRSAVE+64 01849000 SAVRQSTA EQU FRRSAVE+68 01850000 SAVFLAG EQU FRRSAVE+72 01851000 SAVCBSP EQU FRRSAVE+76 01852000 CVTS01 EQU CVTPGSIA 01853000 CVTPVTP EQU CVTS01+8 01854000 CVTLPDIA EQU CVTS01+12 01855000 CVTDIRST EQU CVTLPDIA 01856000 CVTSLIDA EQU CVTS01+24 01857000 CVTCTLFG EQU CVTS01+50 01858000 CVTCRMN EQU CVTS01+156 01859000 CVTGDA EQU CVTS01+212 01860000 CVTRV210 EQU CVTS01+424 01861000 CVTRV219 EQU CVTS01+425 01862000 CVTRV228 EQU CVTS01+426 01863000 CVTRV237 EQU CVTS01+427 01864000 CVTMFRTR EQU CVTS01+452 01865000 CVTRV262 EQU CVTS01+468 01866000 CVTRV271 EQU CVTS01+469 01867000 CVTRV280 EQU CVTS01+470 01868000 CVTRV289 EQU CVTS01+471 01869000 CVTGSDA EQU CVTS01+600 01870000 PSARSVTE EQU PSARSVT 01871000 PSACSTK EQU PSARSVTE 01872000 FRRSPTR EQU PSACSTK 01873000 PVTPTR EQU CVTPVTP 01874000 WORKAREA EQU CFAPWKAR 01875000 SAVEAR EQU WORKAREA 01876000 VEQRWORK EQU WORKAREA+72 01877000 W1 EQU VEQRWORK 01878000 @NM00125 EQU WORKAREA+88 01879000 GMBASE2 EQU @NM00125+60 01880000 REGSAVE EQU WORKAREA+152 01881000 W2 EQU REGSAVE 01882000 GMBASE EQU REGSAVE+12 01883000 GPSW EQU WORKAREA+196 01884000 GPSSW EQU GPSW 01885000 VERREQ EQU GPSW 01886000 SAVE1FRR EQU WORKAREA+212 01887000 FLC EQU PSA 01888000 * START UNREFERENCED COMPONENTS 01889000 RSMFREE EQU WORKAREA+208 01890000 ALLOCUR EQU WORKAREA+204 01891000 SRREG EQU WORKAREA+200 01892000 @NM00130 EQU WORKAREA+198 01893000 BIT1 EQU GPSW 01894000 BITS4 EQU GPSW 01895000 FRRPARMS EQU WORKAREA+192 01896000 VRPARMSA EQU WORKAREA+180 01897000 @NM00129 EQU WORKAREA+178 01898000 RCSAVE EQU WORKAREA+176 01899000 @NM00128 EQU REGSAVE+16 01900000 @NM00127 EQU REGSAVE+4 01901000 @NM00126 EQU @NM00125 01902000 @NM00124 EQU VEQRWORK+4 01903000 @NM00123 EQU SAVEAR+64 01904000 RINSAV15 EQU SAVEAR+60 01905000 RINSAV14 EQU SAVEAR+56 01906000 RINSAV13 EQU SAVEAR+52 01907000 RINSAV12 EQU SAVEAR+48 01908000 RINSAV11 EQU SAVEAR+44 01909000 RINSAV10 EQU SAVEAR+40 01910000 RINSAV9 EQU SAVEAR+36 01911000 RINSAV8 EQU SAVEAR+32 01912000 RINSAV7 EQU SAVEAR+28 01913000 RINSAV6 EQU SAVEAR+24 01914000 RINSAV5 EQU SAVEAR+20 01915000 RINSAV4 EQU SAVEAR+16 01916000 RINSAV3 EQU SAVEAR+12 01917000 RINSAV2 EQU SAVEAR+8 01918000 RINSAV1 EQU SAVEAR+4 01919000 RINSAV0 EQU SAVEAR 01920000 PSARSAV EQU PSARSVTE+60 01921000 PSARSTK EQU PSARSVTE+56 01922000 PSAESAV3 EQU PSARSVTE+52 01923000 PSAESTK3 EQU PSARSVTE+48 01924000 PSAESAV2 EQU PSARSVTE+44 01925000 PSAESTK2 EQU PSARSVTE+40 01926000 PSAESAV1 EQU PSARSVTE+36 01927000 PSAESTK1 EQU PSARSVTE+32 01928000 PSAPSAV EQU PSARSVTE+28 01929000 PSAPSTK EQU PSARSVTE+24 01930000 PSAMSAV EQU PSARSVTE+20 01931000 PSAMSTK EQU PSARSVTE+16 01932000 PSASSAV EQU PSARSVTE+12 01933000 PSASSTK EQU PSARSVTE+8 01934000 PSANSTK EQU PSARSVTE+4 01935000 CVTRV628 EQU CVTS01+728 01936000 CVTRV627 EQU CVTS01+724 01937000 CVTRV626 EQU CVTS01+720 01938000 CVTRV625 EQU CVTS01+716 01939000 CVTRV624 EQU CVTS01+712 01940000 CVTRV623 EQU CVTS01+708 01941000 CVTRV622 EQU CVTS01+704 01942000 CVTRV621 EQU CVTS01+700 01943000 CVTIHASU EQU CVTS01+696 01944000 CVTSUSP EQU CVTS01+692 01945000 CVTT6SVC EQU CVTS01+688 01946000 CVTCDAL EQU CVTS01+684 01947000 CVTTCTL EQU CVTS01+680 01948000 CVTRSUME EQU CVTS01+676 01949000 CVTJTERM EQU CVTS01+672 01950000 CVTASMRM EQU CVTS01+668 01951000 CVTTCASP EQU CVTS01+664 01952000 CVT0PT03 EQU CVTS01+660 01953000 CVT0PT0E EQU CVTS01+656 01954000 CVTRV609 EQU CVTS01+652 01955000 CVTCGK EQU CVTS01+648 01956000 CVTRAC EQU CVTS01+644 01957000 CVTRV606 EQU CVTS01+640 01958000 CVTRV605 EQU CVTS01+636 01959000 CVTRV604 EQU CVTS01+632 01960000 CVTEFF02 EQU CVTS01+628 01961000 CVTCBBR EQU CVTS01+624 01962000 CVTSSCR EQU CVTS01+620 01963000 CVTEVENT EQU CVTS01+616 01964000 CVTCRCA EQU CVTS01+612 01965000 CVTTPIO EQU CVTS01+608 01966000 CVTADV EQU CVTS01+604 01967000 CVTGSDAB EQU CVTGSDA 01968000 CVTQV3 EQU CVTS01+596 01969000 CVTQV2 EQU CVTS01+592 01970000 CVTQV1 EQU CVTS01+588 01971000 CVTRPT EQU CVTS01+584 01972000 CVTSSRB EQU CVTS01+580 01973000 CVTCSDRL EQU CVTS01+576 01974000 CVTEXP1 EQU CVTS01+572 01975000 CVTRMPMT EQU CVTS01+568 01976000 CVTRMPTT EQU CVTS01+564 01977000 CVTVPSA EQU CVTS01+560 01978000 CVTVSTOP EQU CVTS01+556 01979000 CVTGTFR8 EQU CVTS01+552 01980000 CVTQUIT EQU CVTS01+548 01981000 CVTVACR EQU CVTS01+544 01982000 CVTWTCB EQU CVTS01+540 01983000 CVTSTPRS EQU CVTS01+536 01984000 CVT0PT02 EQU CVTS01+532 01985000 CVTDARCM EQU CVTS01+528 01986000 CVTIRECM EQU CVTS01+524 01987000 CVTJRECM EQU CVTS01+520 01988000 CVTVEMS0 EQU CVTS01+516 01989000 CVTSPFRR EQU CVTS01+512 01990000 CVTRLSTG EQU CVTS01+508 01991000 CVT0TC0A EQU CVTS01+504 01992000 CVTGMBR EQU CVTS01+500 01993000 CVTLFRM EQU CVTS01+496 01994000 CVTRMBR EQU CVTS01+492 01995000 CVTVIOP EQU CVTS01+488 01996000 CVTRV307 EQU CVTS01+486 01997000 CVTRV306 EQU CVTS01+484 01998000 CVTRV305 EQU CVTS01+482 01999000 CVTRV304 EQU CVTS01+480 02000000 CVTRV303 EQU CVTS01+478 02001000 CVTRV302 EQU CVTS01+476 02002000 CVTTRCA EQU CVTS01+472 02003000 CVTRV297 EQU CVTRV289 02004000 CVTRV296 EQU CVTRV289 02005000 CVTRV295 EQU CVTRV289 02006000 CVTRV294 EQU CVTRV289 02007000 CVTRV293 EQU CVTRV289 02008000 CVTRV292 EQU CVTRV289 02009000 CVTRV291 EQU CVTRV289 02010000 CVTRV290 EQU CVTRV289 02011000 CVTRV288 EQU CVTRV280 02012000 CVTRV287 EQU CVTRV280 02013000 CVTRV286 EQU CVTRV280 02014000 CVTRV285 EQU CVTRV280 02015000 CVTRV284 EQU CVTRV280 02016000 CVTRV283 EQU CVTRV280 02017000 CVTRV282 EQU CVTRV280 02018000 CVTRV281 EQU CVTRV280 02019000 CVTRV279 EQU CVTRV271 02020000 CVTRV278 EQU CVTRV271 02021000 CVTRV277 EQU CVTRV271 02022000 CVTRV276 EQU CVTRV271 02023000 CVTRV275 EQU CVTRV271 02024000 CVTRV274 EQU CVTRV271 02025000 CVTRV273 EQU CVTRV271 02026000 CVTRV272 EQU CVTRV271 02027000 CVTRV270 EQU CVTRV262 02028000 CVTRV269 EQU CVTRV262 02029000 CVTRV268 EQU CVTRV262 02030000 CVTRV267 EQU CVTRV262 02031000 CVTRV266 EQU CVTRV262 02032000 CVTRV265 EQU CVTRV262 02033000 CVTRV264 EQU CVTRV262 02034000 CVTRV263 EQU CVTRV262 02035000 CVTVFP EQU CVTS01+464 02036000 CVTVSI EQU CVTS01+460 02037000 CVTVPSIB EQU CVTS01+456 02038000 CVTMFACT EQU CVTMFRTR 02039000 CVTMFCTL EQU CVTS01+448 02040000 CVTPVBP EQU CVTS01+444 02041000 CVTPWI EQU CVTS01+440 02042000 CVTRV254 EQU CVTS01+438 02043000 CVTRV253 EQU CVTS01+436 02044000 CVTRV252 EQU CVTS01+434 02045000 CVTRV251 EQU CVTS01+433 02046000 CVTRV250 EQU CVTS01+432 02047000 CVTRV249 EQU CVTS01+431 02048000 CVTRV248 EQU CVTS01+430 02049000 CVTRV247 EQU CVTS01+429 02050000 CVTRV246 EQU CVTS01+428 02051000 CVTRV245 EQU CVTRV237 02052000 CVTRV244 EQU CVTRV237 02053000 CVTRV243 EQU CVTRV237 02054000 CVTRV242 EQU CVTRV237 02055000 CVTRV241 EQU CVTRV237 02056000 CVTRV240 EQU CVTRV237 02057000 CVTRV239 EQU CVTRV237 02058000 CVTRV238 EQU CVTRV237 02059000 CVTRV236 EQU CVTRV228 02060000 CVTRV235 EQU CVTRV228 02061000 CVTRV234 EQU CVTRV228 02062000 CVTRV233 EQU CVTRV228 02063000 CVTRV232 EQU CVTRV228 02064000 CVTRV231 EQU CVTRV228 02065000 CVTRV230 EQU CVTRV228 02066000 CVTRV229 EQU CVTRV228 02067000 CVTRV227 EQU CVTRV219 02068000 CVTRV226 EQU CVTRV219 02069000 CVTRV225 EQU CVTRV219 02070000 CVTRV224 EQU CVTRV219 02071000 CVTRV223 EQU CVTRV219 02072000 CVTRV222 EQU CVTRV219 02073000 CVTRV221 EQU CVTRV219 02074000 CVTRV220 EQU CVTRV219 02075000 CVTRV218 EQU CVTRV210 02076000 CVTRV217 EQU CVTRV210 02077000 CVTRV216 EQU CVTRV210 02078000 CVTRV215 EQU CVTRV210 02079000 CVTRV214 EQU CVTRV210 02080000 CVTRV213 EQU CVTRV210 02081000 CVTRV212 EQU CVTRV210 02082000 CVTRV211 EQU CVTRV210 02083000 CVTLCCAT EQU CVTS01+420 02084000 CVTPCCAT EQU CVTS01+416 02085000 CVTIPCRP EQU CVTS01+412 02086000 CVTIPCRI EQU CVTS01+408 02087000 CVTIPCDS EQU CVTS01+404 02088000 CVTAIDVT EQU CVTS01+400 02089000 CVTSSAP EQU CVTS01+396 02090000 CVTEHCIR EQU CVTS01+392 02091000 CVTEHDEF EQU CVTS01+388 02092000 CVTDAIR EQU CVTS01+384 02093000 CVTPERFM EQU CVTS01+380 02094000 CVT044R2 EQU CVTS01+376 02095000 CVTFETCH EQU CVTS01+372 02096000 CVTRSTWD EQU CVTS01+368 02097000 CVTSPOST EQU CVTS01+364 02098000 CVTIOBP EQU CVTS01+360 02099000 CVTASMVT EQU CVTS01+356 02100000 CVTRECRQ EQU CVTS01+352 02101000 CVTWSAC EQU CVTS01+348 02102000 CVTRV149 EQU CVTS01+344 02103000 CVTWSAL EQU CVTS01+340 02104000 CVTSPSA EQU CVTS01+336 02105000 CVTGLMN EQU CVTS01+332 02106000 CVTVEAC0 EQU CVTS01+328 02107000 CVT062R1 EQU CVTS01+324 02108000 CVTRPOST EQU CVTS01+320 02109000 CVTDQIQE EQU CVTS01+316 02110000 CVTCSD EQU CVTS01+312 02111000 CVTLKRMA EQU CVTS01+308 02112000 CVTRSPIE EQU CVTS01+304 02113000 CVTRENQ EQU CVTS01+300 02114000 CVTLQCB EQU CVTS01+296 02115000 CVTFQCB EQU CVTS01+292 02116000 CVTQCS01 EQU CVTS01+288 02117000 CVTAPFT EQU CVTS01+284 02118000 CVTPARRL EQU CVTS01+280 02119000 CVTVWAIT EQU CVTS01+276 02120000 CVTGSPL EQU CVTS01+272 02121000 CVTLSMQ EQU CVTS01+268 02122000 CVTGSMQ EQU CVTS01+264 02123000 CVTEXPRO EQU CVTS01+260 02124000 CVTOPCTP EQU CVTS01+256 02125000 CVTSIC EQU CVTS01+252 02126000 CVTTPIOS EQU CVTS01+248 02127000 CVTRTMS EQU CVTS01+244 02128000 CVTSDBF EQU CVTS01+240 02129000 CVTSCBP EQU CVTS01+236 02130000 CVTSDMP EQU CVTS01+232 02131000 CVTSV60 EQU CVTS01+228 02132000 CVTRTMCT EQU CVTS01+224 02133000 CVTASCBL EQU CVTS01+220 02134000 CVTASCBH EQU CVTS01+216 02135000 CVTASVT EQU CVTS01+208 02136000 CVTVVMDI EQU CVTS01+204 02137000 CVTAQTOP EQU CVTS01+200 02138000 CVTIOSCS EQU CVTS01+196 02139000 CVTSDRM EQU CVTS01+192 02140000 CVTOPTE EQU CVTS01+188 02141000 CVTSTXU EQU CVTS01+184 02142000 CVTQUIS EQU CVTS01+180 02143000 CVTPARS EQU CVTS01+176 02144000 CVTS1EE EQU CVTS01+172 02145000 CVTFRAS EQU CVTS01+168 02146000 CVTQSAS EQU CVTS01+164 02147000 CVTCRAS EQU CVTS01+160 02148000 CVTDELCP EQU CVTS01+152 02149000 CVTFRECL EQU CVTS01+148 02150000 CVTGETCL EQU CVTS01+144 02151000 CVTBLDCP EQU CVTS01+140 02152000 CVTAUTHL EQU CVTS01+136 02153000 CVTSCAN EQU CVTS01+132 02154000 CVTRV144 EQU CVTS01+130 02155000 CVTMAXMP EQU CVTS01+128 02156000 CVTSTCK EQU CVTS01+124 02157000 CVTRV139 EQU CVTS01+123 02158000 CVTDSSAC EQU CVTS01+122 02159000 CVTRV513 EQU CVTS01+121 02160000 CVTIOSPL EQU CVTS01+120 02161000 CVTPTGT EQU CVTS01+116 02162000 CVTCSPIE EQU CVTS01+112 02163000 CVTSMFEX EQU CVTS01+108 02164000 CVTOLT0A EQU CVTS01+104 02165000 CVTSRBRT EQU CVTS01+100 02166000 CVTPUTL EQU CVTS01+96 02167000 CVTASCRL EQU CVTS01+92 02168000 CVTASCRF EQU CVTS01+88 02169000 CVTRV326 EQU CVTS01+84 02170000 CVTRV325 EQU CVTS01+80 02171000 CVTRV324 EQU CVTS01+76 02172000 CVT0VL01 EQU CVTS01+72 02173000 CVTSHRVM EQU CVTS01+68 02174000 CVTRV332 EQU CVTS01+64 02175000 CVTTAS EQU CVTS01+60 02176000 CVTRSCN EQU CVTS01+56 02177000 CVTTRAC2 EQU CVTS01+54 02178000 CVTTRACE EQU CVTS01+52 02179000 CVTAPG EQU CVTS01+51 02180000 CVTSDTRC EQU CVTCTLFG 02181000 CVTGTRCE EQU CVTCTLFG 02182000 CVTNOMP EQU CVTCTLFG 02183000 CVTRSV79 EQU CVTCTLFG 02184000 CVTDSTAT EQU CVTCTLFG 02185000 CVTRSV78 EQU CVTCTLFG 02186000 CVTRV333 EQU CVTCTLFG 02187000 CVTRV323 EQU CVTCTLFG 02188000 CVTSPVLK EQU CVTS01+49 02189000 CVTRSV77 EQU CVTS01+48 02190000 CVTRV331 EQU CVTS01+44 02191000 CVTRV330 EQU CVTS01+40 02192000 CVTRV329 EQU CVTS01+36 02193000 CVTRV328 EQU CVTS01+32 02194000 CVTRV322 EQU CVTS01+28 02195000 CVTSLID EQU CVTSLIDA+1 02196000 CVTSYLK EQU CVTSLIDA 02197000 CVTRV321 EQU CVTS01+20 02198000 CVTRV320 EQU CVTS01+16 02199000 CVTLPDIR EQU CVTLPDIA+1 02200000 CVTRSV69 EQU CVTDIRST 02201000 CVTRSV68 EQU CVTDIRST 02202000 CVTRSV67 EQU CVTDIRST 02203000 CVTRSV66 EQU CVTDIRST 02204000 CVTRSV65 EQU CVTDIRST 02205000 CVTRSV64 EQU CVTDIRST 02206000 CVTRSV63 EQU CVTDIRST 02207000 CVTDICOM EQU CVTDIRST 02208000 CVTLPDSR EQU CVTS01+4 02209000 CVTGETL EQU CVTS01 02210000 @NM00121 EQU PARMS+2 02211000 PENQFLG EQU FLGS2 02212000 @NM00120 EQU FLGS1 02213000 @NM00119 EQU SRB+40 02214000 @NM00118 EQU SRB+38 02215000 SRBPRIOR EQU SRB+37 02216000 SRBPKF EQU SRB+36 02217000 SRBSAVE EQU SRB+32 02218000 SRBPTCB EQU SRBFLC+4 02219000 SRBPASID EQU SRBFLC+2 02220000 SRBCPAFF EQU SRBFLC 02221000 SRBFLNK EQU SRB+4 02222000 LDAEND EQU LDA+1496 02223000 LCLCELCT EQU LDA+1492 02224000 LCLCELL EQU LDA+1488 02225000 LDALIMIT EQU LDA+1484 02226000 LDARSVPT EQU LDA+1480 02227000 CURRGNTP EQU LDA+1472 02228000 LSQAPTR EQU LDA+1464 02229000 CSAVE EQU LDA+1100 02230000 OBFRSAVE EQU LDA+1036 02231000 GFRESAVE EQU LDA+972 02232000 GMREPSAV EQU LDA+908 02233000 FBQSAVE EQU LDA+844 02234000 G4KSAVE EQU LDA+780 02235000 FSAVE EQU LDA+716 02236000 BSAVE EQU LDA+652 02237000 SAVEREG2 EQU LDA+588 02238000 GMFMWKAR EQU LDA+24 02239000 LDARES2 EQU LDA+21 02240000 @NM00117 EQU LVSMFLAG+1 02241000 LDABRSW EQU LVSMFLAG 02242000 LDAFPFM EQU LVSMFLAG 02243000 LDAFLAGS EQU LVSMFLAG 02244000 LDASTART EQU LDA 02245000 PVTEND EQU PVT+1840 02246000 PVTSPARE EQU PVT+1838 02247000 PVTCHUIC EQU PVT+1836 02248000 PVTCOMFX EQU PVT+1834 02249000 PVTSQAFX EQU PVT+1832 02250000 PVTCNTFX EQU PVT+1830 02251000 PVTDEFFX EQU PVT+1828 02252000 PVTFIXOK EQU PVT+1826 02253000 PVTPEROK EQU PVT+1824 02254000 PVTMAXFX EQU PVT+1822 02255000 PVTPERFX EQU PVT+1820 02256000 PVTRSRB EQU PVT+1776 02257000 PVTRESV5 EQU PVT+1773 02258000 PVTSRBS EQU PVT+1772 02259000 PVTSSRB EQU PVT+1768 02260000 PVTACA EQU PVTWSAX+1400 02261000 PVTSAVE EQU PVTWSAX+1328 02262000 PVTWSA18 EQU PVTWSAX+1256 02263000 PVTWSA17 EQU PVTWSAX+1184 02264000 PVTWSA16 EQU PVTWSAX+1112 02265000 PVTWSA15 EQU PVTWSAX+1040 02266000 PVTWSA14 EQU PVTWSAX+968 02267000 PVTWSA13 EQU PVTWSAX+896 02268000 PVTWSA12 EQU PVTWSAX+824 02269000 PVTWSA11 EQU PVTWSAX+752 02270000 PVTWSA10 EQU PVTWSAX+672 02271000 PVTWSA9 EQU PVTWSAX+592 02272000 PVTWSA8 EQU PVTWSAX+504 02273000 PVTWSA7 EQU PVTWSAX+432 02274000 PVTWSA6 EQU PVTWSAX+360 02275000 PVTWSA5 EQU PVTWSAX+288 02276000 PVTWSA4 EQU PVTWSAX+216 02277000 PVTWSA3 EQU PVTWSAX+144 02278000 PVTWSA2 EQU PVTWSAX+72 02279000 PVTWSA1 EQU PVTWSAX 02280000 PVTCIOQL EQU PVTQS+36 02281000 PVTCIOQF EQU PVTQS+32 02282000 PVTGFADL EQU PVTQS+28 02283000 PVTGFADF EQU PVTQS+24 02284000 PVTFPCBL EQU PVTQS+20 02285000 PVTFPCBF EQU PVTQS+16 02286000 PVTSQAQL EQU PVTQS+14 02287000 PVTSQAQF EQU PVTQS+12 02288000 PVTCFQL EQU PVTQS+10 02289000 PVTCFQF EQU PVTQS+8 02290000 PVTRSRVL EQU PVTQS+6 02291000 PVTRSRVF EQU PVTQS+4 02292000 PVTAFQL EQU PVTQS+2 02293000 PVTAFQF EQU PVTQS 02294000 PVTSPFR EQU PVT+302 02295000 PVTCFMCT EQU PVT+300 02296000 PVTSPREC EQU PVT+296 02297000 PVTCAREC EQU PVT+292 02298000 PVTCAOUT EQU PVT+288 02299000 PVTCAIN EQU PVT+284 02300000 PVTNSWPS EQU PVT+280 02301000 PVTNPREC EQU PVT+276 02302000 PVTSPOUT EQU PVT+272 02303000 PVTSPIN EQU PVT+268 02304000 PVTVAMR EQU PVT+264 02305000 PVTVAMO EQU PVT+260 02306000 PVTVAMI EQU PVT+256 02307000 PVTNPOUT EQU PVT+252 02308000 PVTNPIN EQU PVT+248 02309000 PVTPRSET EQU PVT+244 02310000 PVTFRSLT EQU PVT+240 02311000 PVTPAGIO EQU PVT+236 02312000 PVTSWPIO EQU PVT+232 02313000 PVTPSWPP EQU PVT+228 02314000 PVTPPREF EQU PVT+224 02315000 PVTPOPBR EQU PVT+220 02316000 PVTPRELF EQU PVT+216 02317000 PVTPRELV EQU PVT+212 02318000 PVTPFREE EQU PVT+208 02319000 PVTPRELS EQU PVT+204 02320000 PVTPOUT EQU PVT+200 02321000 PVTPFXLD EQU PVT+196 02322000 PVTPITAS EQU PVT+192 02323000 PVTPDSEG EQU PVT+184 02324000 PVTPCSGB EQU PVT+180 02325000 PVTPCSEG EQU PVT+176 02326000 PVTPINV EQU PVT+172 02327000 PVTPSWPC EQU PVT+168 02328000 PVTPSOUT EQU PVT+164 02329000 PVTPSWIN EQU PVT+160 02330000 PVTPRCV EQU PVT+156 02331000 PVTPRCFI EQU PVT+152 02332000 PVTPRCF EQU PVT+148 02333000 PVTPVRC EQU PVT+144 02334000 PVTPVRIN EQU PVT+140 02335000 PVTPVEQR EQU PVT+132 02336000 PVTPPIOI EQU PVT+128 02337000 PVTPVRPO EQU PVT+124 02338000 PVTPRFR EQU PVT+120 02339000 PVTPFP2 EQU PVT+116 02340000 PVTPFP EQU PVT+112 02341000 PVTPFTE EQU PVT+108 02342000 PVTPCB EQU PVT+104 02343000 PVTREP2 EQU PVT+100 02344000 PVTPIOCP EQU PVT+96 02345000 PVTPIOP EQU PVT+92 02346000 PVTPGFAD EQU PVT+88 02347000 PVTPGFA EQU PVT+84 02348000 PVTPSQA EQU PVT+80 02349000 PVTPSINT EQU PVT+76 02350000 PVTPSIB EQU PVT+72 02351000 PVTPCIWA EQU PVT+64 02352000 PVTHQSA EQU PVT+62 02353000 PVTLQSA EQU PVT+60 02354000 PVTOROOT EQU PVT+56 02355000 PVTPRCA EQU PVT+52 02356000 PVTREUS EQU PVT+48 02357000 PVTRESV4 EQU PVT+46 02358000 PVTRSUS EQU PVT+44 02359000 PVTVROOT EQU PVT+40 02360000 PVTPCBLO EQU PVT+38 02361000 PVTPCBCT EQU PVT+36 02362000 PVTDFRS EQU PVT+34 02363000 PVTRSQA EQU PVT+32 02364000 PVTPTLB EQU PVT+31 02365000 PVTPCBNO EQU PVT+30 02366000 PVTSRBNO EQU PVT+29 02367000 PVTSQDC EQU PVT+28 02368000 PVTLCSA EQU PVT+26 02369000 PVTLPRIV EQU PVT+24 02370000 PVTLVR EQU PVT+22 02371000 PVTFVR EQU PVT+20 02372000 PVTLPFN EQU PVT+18 02373000 PVTFPFN EQU PVT+16 02374000 PVTPFTP EQU PVT+12 02375000 PVTSSPIN EQU PVT+11 02376000 PVTPCBS EQU PVT+10 02377000 PVTPOOL EQU PVT+8 02378000 PVTAFCOK EQU PVT+6 02379000 PVTAFCLO EQU PVT+4 02380000 PVTAFC EQU PVT+2 02381000 PVTFLAG2 EQU PVT+1 02382000 PVTDUMP EQU PVTFLAG1 02383000 PVTSIT EQU PVTFLAG1 02384000 PVTLSI EQU PVTFLAG1 02385000 PVTRESV1 EQU PVTFLAG1 02386000 PVTPCBLT EQU PVTFLAG1 02387000 PVTSRBIU EQU PVTFLAG1 02388000 PVTBGMS EQU PVTFLAG1 02389000 PVTPMSG EQU PVTFLAG1 02390000 ASCBEND EQU ASCB+208 02391000 ASCBSRBT EQU ASCB+200 02392000 ASCBSWTL EQU ASCB+196 02393000 ASCBRS14 EQU ASCB+195 02394000 ASCBSMCT EQU ASCB+194 02395000 ASCBRS12 EQU ASCB+192 02396000 ASCBPCTT EQU ASCB+188 02397000 ASCBVGTT EQU ASCB+184 02398000 ASCBRV43 EQU ASCBSRQ4 02399000 ASCBRV42 EQU ASCBSRQ4 02400000 ASCBRV41 EQU ASCBSRQ4 02401000 ASCBRV40 EQU ASCBSRQ4 02402000 ASCBRV39 EQU ASCBSRQ4 02403000 ASCBRV38 EQU ASCBSRQ4 02404000 ASCBRV37 EQU ASCBSRQ4 02405000 ASCBRV36 EQU ASCBSRQ4 02406000 ASCBRV35 EQU ASCBSRQ3 02407000 ASCBRV34 EQU ASCBSRQ3 02408000 ASCBRV33 EQU ASCBSRQ3 02409000 ASCBRV32 EQU ASCBSRQ3 02410000 ASCBRV31 EQU ASCBSRQ3 02411000 ASCBRV30 EQU ASCBSRQ3 02412000 ASCBRV29 EQU ASCBSRQ3 02413000 ASCBRV28 EQU ASCBSRQ3 02414000 ASCBRV27 EQU ASCBSRQ2 02415000 ASCBRV26 EQU ASCBSRQ2 02416000 ASCBRV25 EQU ASCBSRQ2 02417000 ASCBRV24 EQU ASCBSRQ2 02418000 ASCBRV23 EQU ASCBSRQ2 02419000 ASCBRV22 EQU ASCBSRQ2 02420000 ASCBRV21 EQU ASCBSRQ2 02421000 ASCBRV20 EQU ASCBSRQ2 02422000 ASCBRV19 EQU ASCBSRQ1 02423000 ASCBRV18 EQU ASCBSRQ1 02424000 ASCBRV17 EQU ASCBSRQ1 02425000 ASCBRV16 EQU ASCBSRQ1 02426000 ASCBRV15 EQU ASCBSRQ1 02427000 ASCBRV14 EQU ASCBSRQ1 02428000 ASCBRV13 EQU ASCBSRQ1 02429000 ASCBSTA EQU ASCBSRQ1 02430000 ASCBJBNS EQU ASCB+176 02431000 ASCBJBNI EQU ASCB+172 02432000 ASCBMCC EQU ASCB+168 02433000 ASCBRTWA EQU ASCB+164 02434000 ASCBIQEA EQU ASCB+160 02435000 ASCBXMPQ EQU ASCB+156 02436000 ASCBRS01 EQU ASCB+154 02437000 ASCBFMCT EQU ASCB+152 02438000 ASCBOUXB EQU ASCB+148 02439000 ASCBOUCB EQU ASCB+144 02440000 ASCBMECB EQU ASCB+140 02441000 ASCBQECB EQU ASCB+136 02442000 ASCBLSQH EQU ASCBLKGP+4 02443000 ASCBLOCK EQU ASCBLKGP 02444000 ASCBTCBS EQU ASCB+124 02445000 ASCBNVSC EQU ASCB+122 02446000 ASCBVSC EQU ASCB+120 02447000 ASCBSRBS EQU ASCB+118 02448000 ASCBSSRB EQU ASCB+116 02449000 ASCBRV06 EQU ASCBFLG2 02450000 ASCBRV05 EQU ASCBFLG2 02451000 ASCBRV04 EQU ASCBFLG2 02452000 ASCBSNQS EQU ASCBFLG2 02453000 ASCBS2S EQU ASCBFLG2 02454000 ASCBCEXT EQU ASCBFLG2 02455000 ASCBPXMT EQU ASCBFLG2 02456000 ASCBXMPT EQU ASCBFLG2 02457000 ASCBRF07 EQU ASCBDSP1 02458000 ASCBRF06 EQU ASCBDSP1 02459000 ASCBRF05 EQU ASCBDSP1 02460000 ASCBRF04 EQU ASCBDSP1 02461000 ASCBRF03 EQU ASCBDSP1 02462000 ASCBRF02 EQU ASCBDSP1 02463000 ASCBFAIL EQU ASCBDSP1 02464000 ASCBNOQ EQU ASCBDSP1 02465000 ASCBSWCT EQU ASCB+112 02466000 ASCBASXB EQU ASCB+108 02467000 ASCBTMCH EQU ASCB+104 02468000 ASCBNSWP EQU ASCBFLG1 02469000 ASCBTYP1 EQU ASCBFLG1 02470000 ASCBSTND EQU ASCBFLG1 02471000 ASCBABNT EQU ASCBFLG1 02472000 ASCBTERM EQU ASCBFLG1 02473000 ASCBS3S EQU ASCBFLG1 02474000 ASCBCMSH EQU ASCBFLG1 02475000 ASCBTOFF EQU ASCBFLG1 02476000 ASCBRF01 EQU ASCBRCTF 02477000 ASCBTMLW EQU ASCBRCTF 02478000 ASCBOUT EQU ASCBRCTF 02479000 ASCBWAIT EQU ASCBRCTF 02480000 ASCBRV08 EQU ASCBRCTF 02481000 ASCBFQU EQU ASCBRCTF 02482000 ASCBFRS EQU ASCBRCTF 02483000 ASCBTMNO EQU ASCBRCTF 02484000 ASCBAFFN EQU ASCBFW1 02485000 ASCBDUMP EQU ASCB+96 02486000 ASCBRV44 EQU ASCB+92 02487000 ASCBUBET EQU ASCB+88 02488000 ASCBECB EQU ASCB+84 02489000 ASCBJSTL EQU ASCB+80 02490000 ASCBEWST EQU ASCB+72 02491000 ASCBEJST EQU ASCB+64 02492000 ASCBTSB EQU ASCB+60 02493000 ASCBCSCB EQU ASCB+56 02494000 ASCBRSM EQU ASCB+52 02495000 ASCBSTOR EQU ASCB+44 02496000 ASCBDP EQU ASCB+43 02497000 ASCBRV07 EQU ASCB+42 02498000 ASCBIOSM EQU ASCB+40 02499000 ASCBSEQN EQU ASCB+38 02500000 ASCBASID EQU ASCB+36 02501000 ASCBCPUS EQU ASCB+32 02502000 ASCBSPL EQU ASCB+28 02503000 ASCBIOSP EQU ASCB+24 02504000 ASCBSYNC EQU ASCBSUPC+4 02505000 ASCBSVRB EQU ASCBSUPC 02506000 ASCBCMSF EQU ASCB+12 02507000 ASCBBWDP EQU ASCB+8 02508000 ASCBFWDP EQU ASCB+4 02509000 ASCBASCB EQU ASCB 02510000 ASCBEGIN EQU ASCB 02511000 @NM00116 EQU SCVTSECT+180 02512000 @NM00115 EQU SCVTSECT+176 02513000 SCVTPIQE EQU SCVTSECT+172 02514000 @NM00114 EQU SCVTSECT+168 02515000 SCVTPTRM EQU SCVTSECT+164 02516000 @NM00113 EQU SCVTSECT+160 02517000 @NM00112 EQU SCVTSECT+156 02518000 SCVTQCBR EQU SCVTSECT+152 02519000 SCVTSTAT EQU SCVTSECT+148 02520000 @NM00111 EQU SCVTSECT+144 02521000 SCVTTQE EQU SCVTSECT+140 02522000 @NM00110 EQU SCVTSECT+136 02523000 SCVTSVCT EQU SCVTSECT+132 02524000 @NM00109 EQU SCVTSECT+128 02525000 @NM00108 EQU SCVTSECT+124 02526000 SCVTRXLQ EQU SCVTSECT+120 02527000 @NM00107 EQU SCVTSECT+116 02528000 SCVTCTCB EQU SCVTSECT+112 02529000 @NM00106 EQU SCVTSECT+108 02530000 @NM00105 EQU SCVTSECT+104 02531000 @NM00104 EQU SCVTSECT+100 02532000 @NM00103 EQU SCVTSECT+96 02533000 SCVTCOMM EQU SCVTSECT+92 02534000 @NM00102 EQU SCVTSECT+88 02535000 @NM00101 EQU SCVTSECT+84 02536000 @NM00100 EQU SCVTSECT+80 02537000 @NM00099 EQU SCVTSECT+76 02538000 @NM00098 EQU SCVTSECT+72 02539000 SCVTGMBR EQU SCVTSECT+68 02540000 SCVTRPTR EQU SCVTSECT+64 02541000 SCVTHSKP EQU SCVTSECT+60 02542000 @NM00097 EQU SCVTSECT+56 02543000 @NM00096 EQU SCVTSECT+52 02544000 SCVTLFRM EQU SCVTSECT+48 02545000 SCVTCDCL EQU SCVTSECT+44 02546000 @NM00095 EQU SCVTSECT+40 02547000 SCVTRACE EQU SCVTSECT+36 02548000 @NM00094 EQU SCVTSECT+32 02549000 @NM00093 EQU SCVTSECT+24 02550000 @NM00092 EQU SCVTSECT+20 02551000 @NM00091 EQU SCVTSECT+16 02552000 @NM00090 EQU SCVTSECT+14 02553000 SCVTBR14 EQU SCVTSECT+12 02554000 SCVTSPET EQU SCVTSECT+8 02555000 SCVTPGWR EQU SCVTSECT+4 02556000 SCVTPGTM EQU SCVTSECT 02557000 WPSPADDR EQU VRWPQEL+24 02558000 WPELSIZE EQU VRWPQEL+20 02559000 WPELASCB EQU VRWPQEL+16 02560000 WPERRADD EQU VRWPQEL+12 02561000 WPECBADD EQU VRWPQEL+8 02562000 FRRSPARM EQU FRRSENTR+8 02563000 @NM00089 EQU FRRSFLGS+1 02564000 @NM00088 EQU FRRSFLG1 02565000 FRRSNEST EQU FRRSFLG1 02566000 FRRSRCUR EQU FRRSFLG1 02567000 FRRSFRRA EQU FRRSENTR 02568000 FRRSENTS EQU FRRS+84 02569000 FRRSRTMW EQU FRRS+16 02570000 FRRSCURR EQU FRRSHEAD+12 02571000 FRRSELEN EQU FRRSHEAD+8 02572000 FRRSLAST EQU FRRSHEAD+4 02573000 FRRSEMP EQU FRRSHEAD 02574000 @NM00087 EQU SDUMP+20 02575000 @NM00086 EQU SDUMP+16 02576000 @NM00085 EQU SDUMP+12 02577000 @NM00084 EQU SDUMP+8 02578000 @NM00083 EQU SDUMP+4 02579000 @NM00082 EQU SDUSDAT2 02580000 SDUSWA EQU SDUSDAT2 02581000 SDUCSA EQU SDUSDAT2 02582000 SDUTRT EQU SDUSDAT1 02583000 SDULPA EQU SDUSDAT1 02584000 SDURGN EQU SDUSDAT1 02585000 SDULSQA EQU SDUSDAT1 02586000 SDUSQA EQU SDUSDAT1 02587000 SDUNUC EQU SDUSDAT1 02588000 SDUPSA EQU SDUSDAT1 02589000 SDUALPSA EQU SDUSDAT1 02590000 @NM00081 EQU SDUMP 02591000 @NM00080 EQU SDWA+512 02592000 SDWAVRA EQU SDWARA+4 02593000 SDWAURAL EQU SDWARA+3 02594000 @NM00079 EQU SDWADPVA 02595000 SDWAEBC EQU SDWADPVA 02596000 SDWAHEX EQU SDWADPVA 02597000 SDWAVRAL EQU SDWARA 02598000 @NM00078 EQU SDWA+396 02599000 SDWACOMP EQU SDWA+392 02600000 SDWARCPL EQU SDWA+364 02601000 @NM00077 EQU SDWADPSA+32 02602000 SDWATO4 EQU SDWADPSL+28 02603000 SDWAFRM4 EQU SDWADPSL+24 02604000 SDWATO3 EQU SDWADPSL+20 02605000 SDWAFRM3 EQU SDWADPSL+16 02606000 SDWATO2 EQU SDWADPSL+12 02607000 SDWAFRM2 EQU SDWADPSL+8 02608000 SDWATO1 EQU SDWADPSL+4 02609000 SDWAFRM1 EQU SDWADPSL 02610000 @NM00076 EQU SDWADDAT+3 02611000 @NM00075 EQU SDWAPDAT 02612000 SDWAUSPL EQU SDWAPDAT 02613000 SDWADPSW EQU SDWAPDAT 02614000 SDWATJPA EQU SDWAPDAT 02615000 SDWATLPA EQU SDWAPDAT 02616000 SDWADREG EQU SDWAPDAT 02617000 SDWADSAH EQU SDWAPDAT 02618000 SDWADSAS EQU SDWAPDAT 02619000 @NM00074 EQU SDWADDAT+1 02620000 @NM00073 EQU SDWASDAT 02621000 SDWAQQS EQU SDWASDAT 02622000 SDWACBS EQU SDWASDAT 02623000 SDWAGTF EQU SDWASDAT 02624000 SDWASWA EQU SDWASDAT 02625000 SDWALSQA EQU SDWASDAT 02626000 SDWASQA EQU SDWASDAT 02627000 SDWANUC EQU SDWASDAT 02628000 @NM00072 EQU SDWADUMP+2 02629000 @NM00071 EQU SDWADPFS 02630000 SDWASLST EQU SDWADPFS 02631000 @NM00070 EQU SDWADPFS 02632000 SDWADLST EQU SDWADPFS 02633000 SDWADPT EQU SDWADPFS 02634000 SDWADPID EQU SDWADUMP 02635000 SDWADPLA EQU SDWA+316 02636000 @NM00069 EQU SDWA+290 02637000 SDWAASID EQU SDWA+288 02638000 SDWATALW EQU SDWALKWS+28 02639000 SDWATDLW EQU SDWALKWS+24 02640000 SDWATNLW EQU SDWALKWS+20 02641000 SDWAAPLW EQU SDWALKWS+16 02642000 SDWAIPLW EQU SDWALKWS+12 02643000 SDWAILLW EQU SDWALKWS+8 02644000 SDWAIULW EQU SDWALKWS+4 02645000 SDWAICLW EQU SDWALKWS 02646000 SDWAFLLK EQU SDWAACF4 02647000 SDWACMS EQU SDWAACF4 02648000 SDWAOPTM EQU SDWAACF4 02649000 SDWATADB EQU SDWAACF4 02650000 SDWATDNB EQU SDWAACF4 02651000 SDWATNCB EQU SDWAACF4 02652000 SDWAILCH EQU SDWAACF4 02653000 SDWAIUCB EQU SDWAACF4 02654000 SDWAICAT EQU SDWAACF3 02655000 SDWAIPRG EQU SDWAACF3 02656000 SDWAASMP EQU SDWAACF3 02657000 SDWADISP EQU SDWAACF3 02658000 @NM00068 EQU SDWAACF3 02659000 @NM00067 EQU SDWAACF2 02660000 SDWAFREE EQU SDWAACF2 02661000 @NM00066 EQU SDWAACF2 02662000 SDWASPIN EQU SDWAACF2 02663000 @NM00065 EQU SDWAACF2 02664000 SDWALCPU EQU SDWACPUA+2 02665000 @NM00064 EQU SDWACPUA 02666000 SDWARECA EQU SDWA+244 02667000 @NM00063 EQU SDWA+239 02668000 @NM00062 EQU SDWAIOFS 02669000 SDWANIOP EQU SDWAIOFS 02670000 SDWANOIO EQU SDWAIOFS 02671000 SDWAIOHT EQU SDWAIOFS 02672000 SDWAIOQR EQU SDWAIOFS 02673000 @NM00061 EQU SDWAERRD 02674000 SDWAMCIV EQU SDWAERRD 02675000 SDWARPIV EQU SDWAERRD 02676000 SDWAMABD EQU SDWAERRD 02677000 SDWACTS EQU SDWAERRD 02678000 SDWASTAE EQU SDWAERRD 02679000 SDWANRBE EQU SDWAERRD 02680000 SDWACLUP EQU SDWAERRD 02681000 @NM00060 EQU SDWAERRC 02682000 SDWAEAS EQU SDWAERRC 02683000 SDWAIRB EQU SDWAERRC 02684000 SDWASTAI EQU SDWAERRC 02685000 SDWASTAF EQU SDWAERRC 02686000 SDWASRBM EQU SDWAERRB 02687000 SDWALDIS EQU SDWAERRB 02688000 SDWAENRB EQU SDWAERRB 02689000 SDWATYP1 EQU SDWAERRB 02690000 @NM00059 EQU SDWAERRB 02691000 SDWAPGIO EQU SDWAERRA 02692000 SDWATEXC EQU SDWAERRA 02693000 SDWASVCE EQU SDWAERRA 02694000 SDWAABTM EQU SDWAERRA 02695000 SDWASVCD EQU SDWAERRA 02696000 SDWARKEY EQU SDWAERRA 02697000 SDWATIME EQU SDWAMCH+20 02698000 SDWARFSA EQU SDWAMCH+16 02699000 @NM00058 EQU SDWAMCH+14 02700000 SDWAVEQR EQU SDWARSR2 02701000 SDWAPGFX EQU SDWARSR2 02702000 SDWAFLSQ EQU SDWARSR2 02703000 SDWAFSQA EQU SDWARSR2 02704000 SDWANUCL EQU SDWARSR2 02705000 SDWASPER EQU SDWARSR2 02706000 SDWAINTC EQU SDWARSR2 02707000 SDWAOFLN EQU SDWARSR2 02708000 SDWACHNG EQU SDWARSR1 02709000 SDWAMSER EQU SDWARSR1 02710000 @NM00057 EQU SDWARSR1 02711000 SDWACPID EQU SDWAMCH+10 02712000 SDWATERR EQU SDWAMCHD 02713000 SDWAFPRX EQU SDWAMCHD 02714000 SDWAINSF EQU SDWAMCHD 02715000 SDWAACR EQU SDWAMCHD 02716000 SDWASCK EQU SDWAMCHD 02717000 SDWAPSWU EQU SDWAMCHD 02718000 SDWAREGU EQU SDWAMCHD 02719000 SDWASKYF EQU SDWAMCHD 02720000 @NM00056 EQU SDWAMCHS 02721000 SDWARSRF EQU SDWAMCHS 02722000 SDWARSRC EQU SDWAMCHS 02723000 SDWAINVP EQU SDWAMCHS 02724000 SDWATSVL EQU SDWAMCHS 02725000 SDWARCDF EQU SDWAMCHS 02726000 SDWASRVL EQU SDWAMCHS 02727000 SDWASCKE EQU SDWASTCK+4 02728000 SDWASCKB EQU SDWASTCK 02729000 SDWALNTH EQU SDWAIDNT+1 02730000 SDWASPID EQU SDWAIDNT 02731000 SDWASR15 EQU SDWASRSV+60 02732000 SDWASR12 EQU SDWASRSV+48 02733000 SDWASR11 EQU SDWASRSV+44 02734000 SDWASR10 EQU SDWASRSV+40 02735000 SDWASR06 EQU SDWASRSV+24 02736000 SDWASR05 EQU SDWASRSV+20 02737000 SDWASR02 EQU SDWASRSV+8 02738000 SDWASR00 EQU SDWASRSV 02739000 SDWATRN2 EQU SDWAAEC2+4 02740000 SDWAIPC2 EQU SDWAICD2 02741000 SDWAIMC2 EQU SDWAICD2 02742000 SDWAIPR2 EQU SDWAICD2 02743000 @NM00055 EQU SDWAINC2 02744000 @NM00054 EQU SDWAILC2 02745000 SDWAIL2 EQU SDWAILC2 02746000 @NM00053 EQU SDWAILC2 02747000 @NM00052 EQU SDWAAEC2 02748000 SDWAADD2 EQU SDWANXT2+1 02749000 @NM00051 EQU SDWANXT2 02750000 @NM00050 EQU SDWAEC2+3 02751000 SDWASGN2 EQU SDWAINT2 02752000 SDWAEXP2 EQU SDWAINT2 02753000 SDWADEC2 EQU SDWAINT2 02754000 SDWAFPO2 EQU SDWAINT2 02755000 SDWACC2 EQU SDWAINT2 02756000 @NM00049 EQU SDWAINT2 02757000 SDWAPGM2 EQU SDWAMWP2 02758000 SDWAWAT2 EQU SDWAMWP2 02759000 SDWAMCK2 EQU SDWAMWP2 02760000 SDWAECT2 EQU SDWAMWP2 02761000 SDWAKEY2 EQU SDWAMWP2 02762000 SDWAEXT2 EQU SDWAEMK2 02763000 SDWAIO2 EQU SDWAEMK2 02764000 SDWATRM2 EQU SDWAEMK2 02765000 @NM00048 EQU SDWAEMK2 02766000 SDWAPER2 EQU SDWAEMK2 02767000 @NM00047 EQU SDWAEMK2 02768000 SDWATRAN EQU SDWAAEC1+4 02769000 SDWAIPC1 EQU SDWAICD1 02770000 SDWAIMC1 EQU SDWAICD1 02771000 SDWAIPR1 EQU SDWAICD1 02772000 @NM00046 EQU SDWAINC1 02773000 @NM00045 EQU SDWAILC1 02774000 SDWAIL1 EQU SDWAILC1 02775000 @NM00044 EQU SDWAILC1 02776000 @NM00043 EQU SDWAAEC1 02777000 SDWAADD1 EQU SDWANXT1+1 02778000 @NM00042 EQU SDWANXT1 02779000 @NM00041 EQU SDWAEC1+3 02780000 SDWASGN1 EQU SDWAINT1 02781000 SDWAEXP1 EQU SDWAINT1 02782000 SDWADEC1 EQU SDWAINT1 02783000 SDWAFPO1 EQU SDWAINT1 02784000 SDWACC1 EQU SDWAINT1 02785000 @NM00040 EQU SDWAINT1 02786000 SDWAPGM1 EQU SDWAMWP1 02787000 SDWAWAT1 EQU SDWAMWP1 02788000 SDWAMCK1 EQU SDWAMWP1 02789000 SDWAECT1 EQU SDWAMWP1 02790000 SDWAKEY1 EQU SDWAMWP1 02791000 SDWAEXT1 EQU SDWAEMK1 02792000 SDWAIO1 EQU SDWAEMK1 02793000 SDWATRM1 EQU SDWAEMK1 02794000 @NM00039 EQU SDWAEMK1 02795000 SDWAPER1 EQU SDWAEMK1 02796000 @NM00038 EQU SDWAEMK1 02797000 SDWAIOBR EQU SDWA+100 02798000 SDWAEPA EQU SDWA+96 02799000 @NM00037 EQU SDWANAME+4 02800000 SDWARBAD EQU SDWANAME 02801000 SDWAGR15 EQU SDWAGRSV+60 02802000 SDWAGR14 EQU SDWAGRSV+56 02803000 SDWAGR13 EQU SDWAGRSV+52 02804000 SDWAGR12 EQU SDWAGRSV+48 02805000 SDWAGR11 EQU SDWAGRSV+44 02806000 SDWAGR10 EQU SDWAGRSV+40 02807000 SDWAGR09 EQU SDWAGRSV+36 02808000 SDWAGR08 EQU SDWAGRSV+32 02809000 SDWAGR07 EQU SDWAGRSV+28 02810000 SDWAGR06 EQU SDWAGRSV+24 02811000 SDWAGR05 EQU SDWAGRSV+20 02812000 SDWAGR04 EQU SDWAGRSV+16 02813000 SDWAGR03 EQU SDWAGRSV+12 02814000 SDWAGR02 EQU SDWAGRSV+8 02815000 SDWAGR01 EQU SDWAGRSV+4 02816000 SDWAGR00 EQU SDWAGRSV 02817000 SDWANXTP EQU SDWACTL2+5 02818000 SDWASGP EQU SDWAPMKP 02819000 SDWAEUP EQU SDWAPMKP 02820000 SDWADOP EQU SDWAPMKP 02821000 SDWAFPP EQU SDWAPMKP 02822000 SDWACCP EQU SDWAPMKP 02823000 SDWAILP EQU SDWAPMKP 02824000 SDWAINTP EQU SDWACTL2+2 02825000 SDWASPVP EQU SDWAMWPP 02826000 SDWAWATP EQU SDWAMWPP 02827000 SDWAMCKP EQU SDWAMWPP 02828000 @NM00036 EQU SDWAMWPP 02829000 SDWAKEYP EQU SDWAMWPP 02830000 SDWAEXTP EQU SDWACMKP 02831000 SDWAIOP EQU SDWACMKP 02832000 SDWANXTA EQU SDWACTL1+5 02833000 SDWASGA EQU SDWAPMKA 02834000 SDWAEUA EQU SDWAPMKA 02835000 SDWADOA EQU SDWAPMKA 02836000 SDWAFPA EQU SDWAPMKA 02837000 SDWACCA EQU SDWAPMKA 02838000 SDWAILA EQU SDWAPMKA 02839000 SDWAINTA EQU SDWACTL1+2 02840000 SDWASPVA EQU SDWAMWPA 02841000 SDWAWATA EQU SDWAMWPA 02842000 SDWAMCKA EQU SDWAMWPA 02843000 @NM00035 EQU SDWAMWPA 02844000 SDWAKEYA EQU SDWAMWPA 02845000 SDWAEXTA EQU SDWACMKA 02846000 SDWAIOA EQU SDWACMKA 02847000 @NM00034 EQU SDWACMPF 02848000 SDWASTCC EQU SDWACMPF 02849000 @NM00033 EQU SDWACMPF 02850000 SDWASTEP EQU SDWACMPF 02851000 SDWAREQ EQU SDWACMPF 02852000 GBLCELCT EQU GDA+60 02853000 GLBLCELL EQU GDA+56 02854000 CSASPQEP EQU GDA+52 02855000 PFSTCPAB EQU GDA+48 02856000 VRPLEL EQU VRPOSTQ+4 02857000 VRPFEL EQU VRPOSTQ 02858000 SQASPLFT EQU GDA+28 02859000 SQASPQEP EQU GDA+24 02860000 CSAPQEP EQU GDA+8 02861000 VRDREG EQU GDA+4 02862000 RESV EQU GVSMFLAG+1 02863000 @NM00008 EQU GDAFLAGS 02864000 WAITQUE EQU GDAFLAGS 02865000 SQATHRS2 EQU GDAFLAGS 02866000 SQATHRS1 EQU GDAFLAGS 02867000 GDAFLAG2 EQU GDAFLAGS 02868000 NIPFOURK EQU GDAFLAGS 02869000 GDAFLAG1 EQU GDAFLAGS 02870000 PQERSVD EQU PQESECT+31 02871000 VVVRFLG EQU VMMFLGS 02872000 @NM00007 EQU VMMFLGS 02873000 PQEHRID EQU PQESECT+29 02874000 PQERFLGS EQU PQESECT+28 02875000 PQETCB EQU PQESECT+16 02876000 PQEBPQE EQU PQESECT+12 02877000 PQEFPQE EQU PQESECT+8 02878000 CVTLEVL EQU CVTRELNO+2 02879000 CVTNUMB EQU CVTRELNO 02880000 CVTMDL EQU CVTFIX+250 02881000 @NM00006 EQU CVTFIX+248 02882000 @NM00005 EQU CVTFIX 02883000 CVTRV482 EQU CVTXTNT2+128 02884000 CVTRV481 EQU CVTXTNT2+124 02885000 CVTRV480 EQU CVTXTNT2+120 02886000 CVTRV479 EQU CVTXTNT2+118 02887000 CVTRV478 EQU CVTXTNT2+117 02888000 CVTRV477 EQU CVTXTNT2+116 02889000 CVTRV476 EQU CVTXTNT2+115 02890000 CVTRV475 EQU CVTXTNT2+114 02891000 CVTRV474 EQU CVTRV466 02892000 CVTRV473 EQU CVTRV466 02893000 CVTRV472 EQU CVTRV466 02894000 CVTRV471 EQU CVTRV466 02895000 CVTRV470 EQU CVTRV466 02896000 CVTRV469 EQU CVTRV466 02897000 CVTRV468 EQU CVTRV466 02898000 CVTRV467 EQU CVTRV466 02899000 CVTRV465 EQU CVTRV457 02900000 CVTRV464 EQU CVTRV457 02901000 CVTRV463 EQU CVTRV457 02902000 CVTRV462 EQU CVTRV457 02903000 CVTRV461 EQU CVTRV457 02904000 CVTRV460 EQU CVTRV457 02905000 CVTRV459 EQU CVTRV457 02906000 CVTRV458 EQU CVTRV457 02907000 CVTRV456 EQU CVTXTNT2+108 02908000 CVTRV455 EQU CVTXTNT2+104 02909000 CVTRV454 EQU CVTXTNT2+100 02910000 CVTRV453 EQU CVTXTNT2+96 02911000 CVTRV452 EQU CVTXTNT2+94 02912000 CVTRV451 EQU CVTXTNT2+92 02913000 CVTRV450 EQU CVTXTNT2+90 02914000 CVTRV449 EQU CVTXTNT2+88 02915000 CVTRV448 EQU CVTXTNT2+87 02916000 CVTRV447 EQU CVTXTNT2+86 02917000 CVTRV446 EQU CVTRV438 02918000 CVTRV445 EQU CVTRV438 02919000 CVTRV444 EQU CVTRV438 02920000 CVTRV443 EQU CVTRV438 02921000 CVTRV442 EQU CVTRV438 02922000 CVTRV441 EQU CVTRV438 02923000 CVTRV440 EQU CVTRV438 02924000 CVTRV439 EQU CVTRV438 02925000 CVTRV437 EQU CVTRV429 02926000 CVTRV436 EQU CVTRV429 02927000 CVTRV435 EQU CVTRV429 02928000 CVTRV434 EQU CVTRV429 02929000 CVTRV433 EQU CVTRV429 02930000 CVTRV432 EQU CVTRV429 02931000 CVTRV431 EQU CVTRV429 02932000 CVTRV430 EQU CVTRV429 02933000 CVTRV428 EQU CVTXTNT2+80 02934000 CVTRV427 EQU CVTXTNT2+76 02935000 CVTRV426 EQU CVTXTNT2+72 02936000 CVTRV425 EQU CVTXTNT2+68 02937000 CVTATACT EQU CVTATCVT 02938000 CVTRV423 EQU CVTXTNT2+62 02939000 CVTRV422 EQU CVTXTNT2+60 02940000 CVTRV421 EQU CVTXTNT2+58 02941000 CVTRV420 EQU CVTXTNT2+56 02942000 CVTRV419 EQU CVTXTNT2+55 02943000 CVTRV418 EQU CVTXTNT2+54 02944000 CVTRV417 EQU CVTRV409 02945000 CVTRV416 EQU CVTRV409 02946000 CVTRV415 EQU CVTRV409 02947000 CVTRV414 EQU CVTRV409 02948000 CVTRV413 EQU CVTRV409 02949000 CVTRV412 EQU CVTRV409 02950000 CVTRV411 EQU CVTRV409 02951000 CVTRV410 EQU CVTRV409 02952000 CVTRV408 EQU CVTRV400 02953000 CVTRV407 EQU CVTRV400 02954000 CVTRV406 EQU CVTRV400 02955000 CVTRV405 EQU CVTRV400 02956000 CVTRV404 EQU CVTRV400 02957000 CVTRV403 EQU CVTRV400 02958000 CVTRV402 EQU CVTRV400 02959000 CVTRV401 EQU CVTRV400 02960000 CVTICB EQU CVTXTNT2+48 02961000 CVTSKTA EQU CVTXTNT2+44 02962000 CVTRSV99 EQU CVTXTNT2+40 02963000 CVTRSV98 EQU CVTXTNT2+36 02964000 CVTRSV97 EQU CVTXTNT2+34 02965000 CVTRSV96 EQU CVTXTNT2+32 02966000 CVTOLTEP EQU CVTXTNT2+28 02967000 CVTQIDA EQU CVTQID+1 02968000 CVTRSV95 EQU CVTQID 02969000 CVTRSV94 EQU CVTXTNT2+20 02970000 CVTRSV93 EQU CVTXTNT2+16 02971000 CVTRSV92 EQU CVTXTNT2+12 02972000 CVTDEBVR EQU CVTXTNT2+8 02973000 CVTRSV91 EQU CVTXTNT2+6 02974000 CVTRSV9H EQU CVTFLGBT 02975000 CVTRSV9G EQU CVTFLGBT 02976000 CVTRSV9F EQU CVTFLGBT 02977000 CVTRSV9E EQU CVTFLGBT 02978000 CVTRSV9D EQU CVTFLGBT 02979000 CVTRSV9C EQU CVTFLGBT 02980000 CVTVME EQU CVTFLGBT 02981000 CVTNPE EQU CVTFLGBT 02982000 CVTNUCLS EQU CVTXTNT2+4 02983000 CVTDSSVA EQU CVTDSSV+1 02984000 CVTRSV89 EQU CVTDSSV 02985000 CVTRSV88 EQU CVTXTNT1+8 02986000 CVTRSV87 EQU CVTXTNT1+4 02987000 CVTFACHN EQU CVTXTNT1 02988000 CVTRV488 EQU CVTMAP+412 02989000 CVTRV487 EQU CVTMAP+408 02990000 CVTRV486 EQU CVTMAP+404 02991000 CVTRV485 EQU CVTMAP+400 02992000 CVTACTAP EQU CVTMAP+396 02993000 CVTAUTH EQU CVTMAP+392 02994000 CVTATMCA EQU CVTATMCT+1 02995000 CVTATMST EQU CVTATMCT 02996000 CVTRSV61 EQU CVTMAP+384 02997000 CVTVOLT1 EQU CVTVOLM1+1 02998000 CVTVOLI1 EQU CVTVOLF1 02999000 CVTSTOA EQU CVTMAP+376 03000000 CVTRSV58 EQU CVTMAP+374 03001000 CVTRSV57 EQU CVTMAP+372 03002000 CVTDDCE EQU CVTMAP+368 03003000 CVTPNWFR EQU CVTMAP+364 03004000 CVTSMF EQU CVTMAP+360 03005000 CVTSULK EQU CVTMAP+358 03006000 CVTSLKO EQU CVTSYSK 03007000 CVTSLKP EQU CVTSYSK 03008000 CVTSLKQ EQU CVTSYSK 03009000 CVTSLKR EQU CVTSYSK 03010000 CVTRSV56 EQU CVTSYSK 03011000 CVTRSV55 EQU CVTSYSK 03012000 CVTRSV54 EQU CVTSYSK 03013000 CVTRSV53 EQU CVTSYSK 03014000 CVTRSV52 EQU CVTA1F1 03015000 CVTRSV51 EQU CVTA1F1 03016000 CVTRSV50 EQU CVTA1F1 03017000 CVTRSV49 EQU CVTA1F1 03018000 CVTRSV48 EQU CVTA1F1 03019000 CVTRSV47 EQU CVTA1F1 03020000 CVTSRSW EQU CVTA1F1 03021000 CVTPFSW EQU CVTA1F1 03022000 CVTPCVT EQU CVTMAP+352 03023000 CVTRSV46 EQU CVTMAP+344 03024000 CVTRSV45 EQU CVTMAP+340 03025000 CVTRSV44 EQU CVTMAP+338 03026000 CVTRSV43 EQU CVTMAP+336 03027000 CVTHJESA EQU CVTHJES+1 03028000 CVTRSV42 EQU CVTHJES 03029000 CVTEXT2A EQU CVTEXT2+1 03030000 CVTRSV41 EQU CVTEXT2 03031000 CVTAPFA EQU CVTAPF+1 03032000 CVTRSV40 EQU CVTAPF 03033000 CVTRV518 EQU CVTINTLA 03034000 CVTRV517 EQU CVTERPV 03035000 CVTEORM EQU CVTMAP+312 03036000 CVTMCHPR EQU CVTMAP+308 03037000 CVTTZ EQU CVTMAP+304 03038000 CVTJEPS EQU CVTMAP+300 03039000 CVTJESCT EQU CVTMAP+296 03040000 CVTMODE EQU CVTMAP+292 03041000 CVTPTRV EQU CVTMAP+288 03042000 CVTREAL EQU CVTMAP+284 03043000 CVTRSV39 EQU CVTMAP+280 03044000 CVTRSV38 EQU CVTMAP+276 03045000 CVTDMSRA EQU CVTDMSR+1 03046000 CVTRV634 EQU CVTDMSRF 03047000 CVTRV633 EQU CVTDMSRF 03048000 CVTRV632 EQU CVTDMSRF 03049000 CVTRV631 EQU CVTDMSRF 03050000 CVTRV630 EQU CVTDMSRF 03051000 CVTRV629 EQU CVTDMSRF 03052000 CVTUDUMP EQU CVTDMSRF 03053000 CVTSDUMP EQU CVTDMSRF 03054000 CVTQMSGA EQU CVTQMSG+1 03055000 CVTRSV36 EQU CVTQMSG 03056000 CVTAMFF EQU CVTMAP+264 03057000 CVTPURGA EQU CVTPURG+1 03058000 CVTRSV35 EQU CVTPURG 03059000 CVTCBSP EQU CVTMAP+256 03060000 CVTATERA EQU CVTATER+1 03061000 CVTSYST EQU CVTATER 03062000 CVTVOLT2 EQU CVTTAT 03063000 CVTVOLI2 EQU CVTVOLF2 03064000 CVTAQAVB EQU CVTAQAVT+1 03065000 CVTRSV34 EQU CVTTCMFG 03066000 CVTRSV33 EQU CVTTCMFG 03067000 CVTRSV32 EQU CVTTCMFG 03068000 CVTRSV31 EQU CVTTCMFG 03069000 CVTRSV30 EQU CVTTCMFG 03070000 CVTRSV29 EQU CVTTCMFG 03071000 CVTRSV28 EQU CVTTCMFG 03072000 CVTTCRDY EQU CVTTCMFG 03073000 CVTGTFA EQU CVTGTF+1 03074000 CVTRSV27 EQU CVTGTFST 03075000 CVTRNIO EQU CVTGTFST 03076000 CVTUSR EQU CVTGTFST 03077000 CVTRV318 EQU CVTFORM 03078000 CVTRV317 EQU CVTTMODE 03079000 CVTRV316 EQU CVTSTATE 03080000 CVTRV315 EQU CVTGTFS 03081000 CVTGTFAV EQU CVTGTFS 03082000 CVT0SCR1 EQU CVTMAP+232 03083000 CVTRV515 EQU CVTMAP+228 03084000 CVTRMS EQU CVTMAP+224 03085000 CVTPATCH EQU CVTMAP+220 03086000 CVTTSCE EQU CVTMAP+216 03087000 CVTLNKSC EQU CVTMAP+214 03088000 CVTQABST EQU CVTMAP+212 03089000 CVTMDLDS EQU CVTMAP+208 03090000 CVTUSER EQU CVTMAP+204 03091000 CVTABEND EQU CVTMAP+200 03092000 CVTSMCA EQU CVTMAP+196 03093000 CVTRSV18 EQU CVTMAP+192 03094000 CVTQLPAQ EQU CVTMAP+188 03095000 CVTQCDSR EQU CVTMAP+184 03096000 CVTRSV17 EQU CVTOPTB 03097000 CVTRSV16 EQU CVTOPTB 03098000 CVTFP EQU CVTOPTB 03099000 CVTAPTHR EQU CVTOPTB 03100000 CVTNLOG EQU CVTOPTB 03101000 CVTTOD EQU CVTOPTB 03102000 CVTCTIMS EQU CVTOPTB 03103000 CVTPROT EQU CVTOPTB 03104000 CVTXPFP EQU CVTOPTA 03105000 CVTASCII EQU CVTOPTA 03106000 CVTRSV13 EQU CVTOPTA 03107000 CVTRSV12 EQU CVTOPTA 03108000 CVTNIP EQU CVTOPTA 03109000 CVTDDR EQU CVTOPTA 03110000 CVTAPR EQU CVTOPTA 03111000 CVTCCH EQU CVTOPTA 03112000 CVTSNCTR EQU CVTMAP+180 03113000 CVTQMWR EQU CVTMAP+176 03114000 CVTQOCR EQU CVTMAP+172 03115000 CVT1EF00 EQU CVTMAP+168 03116000 CVTMZ00 EQU CVTMAP+164 03117000 CVTHEAD EQU CVTMAP+160 03118000 CVTRSV11 EQU CVTMAP+156 03119000 CVT0PT01 EQU CVTMAP+152 03120000 CVTMSER EQU CVTMAP+148 03121000 CVTRV516 EQU CVTIERLC 03122000 CVTILCH EQU CVTMAP+140 03123000 CVT0DS EQU CVTMAP+136 03124000 CVTFBOSV EQU CVTMAP+132 03125000 CVTNUCB EQU CVTMAP+128 03126000 CVTIXAVL EQU CVTMAP+124 03127000 CVTIOQET EQU CVTMAP+120 03128000 CVTDCBA EQU CVTMAP+117 03129000 CVTMVS2 EQU CVTDCB 03130000 CVT6DAT EQU CVTDCB 03131000 CVT4MPS EQU CVTDCB 03132000 CVTRSV09 EQU CVTDCB 03133000 CVT4MS1 EQU CVTDCB 03134000 CVT2SPS EQU CVTDCB 03135000 CVT1SSS EQU CVTDCB 03136000 CVTRSV08 EQU CVTDCB 03137000 CVTSTB EQU CVTMAP+112 03138000 CVTQTD00 EQU CVTMAP+108 03139000 CVTQTE00 EQU CVTMAP+104 03140000 CVTCUCB EQU CVTMAP+100 03141000 CVTSJQ EQU CVTMAP+96 03142000 CVTPBLDL EQU CVTMAP+92 03143000 CVTTPC EQU CVTMAP+88 03144000 CVTSVDCB EQU CVTMAP+84 03145000 CVTBRET EQU CVTMAP+82 03146000 CVTEXIT EQU CVTMAP+80 03147000 CVT0FN00 EQU CVTMAP+76 03148000 CVTDARA EQU CVTDAR+1 03149000 CVTRSV07 EQU CVTFLGS1 03150000 CVTRSV06 EQU CVTFLGS1 03151000 CVTRSV05 EQU CVTFLGS1 03152000 CVTRSV04 EQU CVTFLGS1 03153000 CVTRSV03 EQU CVTFLGS1 03154000 CVTRSV02 EQU CVTFLGS1 03155000 CVTRSV01 EQU CVTFLGS1 03156000 CVTDMPLK EQU CVTFLGS1 03157000 CVTXITP EQU CVTMAP+68 03158000 CVTZDTAB EQU CVTMAP+64 03159000 CVTMSLT EQU CVTMAP+60 03160000 CVTDATE EQU CVTMAP+56 03161000 CVTBTERM EQU CVTMAP+52 03162000 CVTSYSAD EQU CVTMAP+48 03163000 CVTXTLER EQU CVTMAP+44 03164000 CVTILK2 EQU CVTMAP+40 03165000 CVTILK1 EQU CVTMAP+36 03166000 CVTPRLTV EQU CVTMAP+32 03167000 CVTPCNVT EQU CVTMAP+28 03168000 CVT0VL00 EQU CVTMAP+24 03169000 CVTXAPG EQU CVTMAP+20 03170000 CVTBUF EQU CVTMAP+16 03171000 CVTJOB EQU CVTMAP+12 03172000 CVTLINK EQU CVTMAP+8 03173000 CVT0EF00 EQU CVTMAP+4 03174000 CVTTCBP EQU CVTMAP 03175000 CVT EQU CVTMAP 03176000 @NM00004 EQU TCBXTNT2+32 03177000 TCBRV181 EQU TCBRV173 03178000 TCBRV180 EQU TCBRV173 03179000 TCBRV179 EQU TCBRV173 03180000 TCBRV178 EQU TCBRV173 03181000 TCBRV177 EQU TCBRV173 03182000 TCBRV176 EQU TCBRV173 03183000 TCBRV175 EQU TCBRV173 03184000 TCBRV174 EQU TCBRV173 03185000 TCBRV172 EQU TCBRV164 03186000 TCBRV171 EQU TCBRV164 03187000 TCBRV170 EQU TCBRV164 03188000 TCBRV169 EQU TCBRV164 03189000 TCBRV168 EQU TCBRV164 03190000 TCBRV167 EQU TCBRV164 03191000 TCBRV166 EQU TCBRV164 03192000 TCBRV165 EQU TCBRV164 03193000 TCBRV163 EQU TCBRV155 03194000 TCBRV162 EQU TCBRV155 03195000 TCBRV161 EQU TCBRV155 03196000 TCBRV160 EQU TCBRV155 03197000 TCBRV159 EQU TCBRV155 03198000 TCBRV158 EQU TCBRV155 03199000 TCBRV157 EQU TCBRV155 03200000 TCBRV156 EQU TCBRV155 03201000 TCBRV154 EQU TCBRV146 03202000 TCBRV153 EQU TCBRV146 03203000 TCBRV152 EQU TCBRV146 03204000 TCBRV151 EQU TCBRV146 03205000 TCBRV150 EQU TCBRV146 03206000 TCBRV149 EQU TCBRV146 03207000 TCBRV148 EQU TCBRV146 03208000 TCBRV147 EQU TCBRV146 03209000 TCBRV145 EQU TCBXTNT2+26 03210000 TCBRV144 EQU TCBXTNT2+24 03211000 TCBRV143 EQU TCBXTNT2+20 03212000 TCBRV142 EQU TCBXTNT2+16 03213000 TCBRSV49 EQU TCBXTNT2+12 03214000 TCBEVENT EQU TCBXTNT2+8 03215000 TCBRCMP EQU TCBXTNT2+5 03216000 TCBRSVAB EQU TCBXTNT2+4 03217000 TCBGTFA EQU TCBGTF+1 03218000 TCBRSV47 EQU TCBTFLG 03219000 TCBRSV46 EQU TCBTFLG 03220000 TCBRSV45 EQU TCBTFLG 03221000 TCBRSV44 EQU TCBTFLG 03222000 TCBRSV43 EQU TCBTFLG 03223000 TCBDSPIT EQU TCBTFLG 03224000 TCBERRTN EQU TCBTFLG 03225000 TCBASYNC EQU TCBTFLG 03226000 @NM00003 EQU TCB+296 03227000 TCBSVCA2 EQU TCB+292 03228000 TCBSWASA EQU TCB+288 03229000 TCBDBTB EQU TCB+284 03230000 TCBRPT EQU TCB+280 03231000 TCBRV141 EQU TCBRV133 03232000 TCBRV140 EQU TCBRV133 03233000 TCBRV139 EQU TCBRV133 03234000 TCBRV138 EQU TCBRV133 03235000 TCBRV137 EQU TCBRV133 03236000 TCBRV136 EQU TCBRV133 03237000 TCBRV135 EQU TCBRV133 03238000 TCBRV134 EQU TCBRV133 03239000 TCBRV132 EQU TCBRV124 03240000 TCBRV131 EQU TCBRV124 03241000 TCBRV130 EQU TCBRV124 03242000 TCBRV129 EQU TCBRV124 03243000 TCBRV128 EQU TCBRV124 03244000 TCBRV127 EQU TCBRV124 03245000 TCBRV126 EQU TCBRV124 03246000 TCBRV125 EQU TCBRV124 03247000 TCBRV123 EQU TCBFBYT2 03248000 TCBRV122 EQU TCBFBYT2 03249000 TCBECBNV EQU TCBFBYT2 03250000 TCBSSSYN EQU TCBFBYT2 03251000 TCBFPRAP EQU TCBFBYT2 03252000 TCBFDW EQU TCBFBYT2 03253000 TCBFMW EQU TCBFBYT2 03254000 TCBCNCB EQU TCBFBYT2 03255000 TCBLLH EQU TCBFBYT1 03256000 TCBRV113 EQU TCBFBYT1 03257000 TCBEOT EQU TCBFBYT1 03258000 TCBRTM2 EQU TCBFBYT1 03259000 TCBPGNLY EQU TCBFBYT1 03260000 TCBNDIOS EQU TCBFBYT1 03261000 TCBRV327 EQU TCBFBYT1 03262000 TCBEOTFM EQU TCBFBYT1 03263000 TCBAFFN EQU TCB+274 03264000 TCBRV326 EQU TCB+272 03265000 TCBUKYSP EQU TCB+268 03266000 TCBMODE EQU TCBESTAE+3 03267000 TCBERTYP EQU TCBESTAE+2 03268000 TCBRV314 EQU TCBESTRM 03269000 TCBRV313 EQU TCBESTRM 03270000 TCBRV312 EQU TCBESTRM 03271000 TCBRV311 EQU TCBESTRM 03272000 TCBRV310 EQU TCBESTRM 03273000 TCBRV309 EQU TCBESTRM 03274000 TCBRV308 EQU TCBESTRM 03275000 TCBETERM EQU TCBESTRM 03276000 TCBSCBKY EQU TCBESTAE 03277000 TCBRTM12 EQU TCB+260 03278000 TCBTCBID EQU TCB+256 03279000 TCBSTAWA EQU TCB+252 03280000 TCBSWA EQU TCB+248 03281000 TCBFOEA EQU TCBFOE+1 03282000 TCBRSV42 EQU TCBFOE 03283000 TCBCCPVI EQU TCBXSCT+2 03284000 TCBRV325 EQU TCBXSCT+1 03285000 TCBRV324 EQU TCBXSCT1 03286000 TCBRV323 EQU TCBXSCT1 03287000 TCBRV322 EQU TCBXSCT1 03288000 TCBRV321 EQU TCBXSCT1 03289000 TCBRV320 EQU TCBXSCT1 03290000 TCBRV319 EQU TCBXSCT1 03291000 TCBS3A EQU TCBXSCT1 03292000 TCBACTIV EQU TCBXSCT1 03293000 TCBRSV41 EQU TCB+239 03294000 TCBTID EQU TCB+238 03295000 TCBRSVAA EQU TCB+237 03296000 TCBABCUR EQU TCB+236 03297000 TCBTMSAV EQU TCB+232 03298000 TCBIOTIM EQU TCB+228 03299000 TCBRTWA EQU TCB+224 03300000 TCBBACK EQU TCB+220 03301000 TCBTIRB EQU TCB+216 03302000 TCBAECB EQU TCB+212 03303000 TCBEXT2A EQU TCBEXT2+1 03304000 TCBRSV39 EQU TCBEXT2 03305000 TCBSTMCT EQU TCB+207 03306000 TCBSYSCT EQU TCB+206 03307000 TCBRSV37 EQU TCB+205 03308000 TCBEXSVC EQU TCBDAR 03309000 TCBDARMS EQU TCBDAR 03310000 TCBDARWT EQU TCBDAR 03311000 TCBDARO EQU TCBDAR 03312000 TCBDARMC EQU TCBDARC 03313000 TCBDARD EQU TCBDAR 03314000 TCBDARS EQU TCBDAR 03315000 TCBDARP EQU TCBDAR 03316000 TCBGTOFM EQU TCBFLGS7 03317000 TCBADMP EQU TCBFLGS7 03318000 TCBRSTSK EQU TCBFLGS7 03319000 TCBSVCS EQU TCBFLGS7 03320000 TCBSTACK EQU TCBFLGS7 03321000 TCBRSV34 EQU TCBFLGS7 03322000 TCBRSV33 EQU TCBFLGS7 03323000 TCBGPECB EQU TCBFLGS7 03324000 TCBNTJS EQU TCBFLGS6 03325000 TCBAPG EQU TCBFLGS6 03326000 TCBMIGR EQU TCBFLGS6 03327000 TCBRV303 EQU TCBFLGS6 03328000 TCBSPVLK EQU TCBFLGS6 03329000 TCBCPU EQU TCBFLGS6 03330000 TCBPIE17 EQU TCBFLGS6 03331000 TCBRSV79 EQU TCBNDSP5 03332000 TCBRSV78 EQU TCBNDSP5 03333000 TCBRSV77 EQU TCBNDSP5 03334000 TCBRSV76 EQU TCBNDSP5 03335000 TCBRSV75 EQU TCBNDSP5 03336000 TCBRSV74 EQU TCBNDSP5 03337000 TCBRSV95 EQU TCBNDSP5 03338000 TCBRSV94 EQU TCBNDSP5 03339000 TCBRSV93 EQU TCBNDSP4 03340000 TCBRSV92 EQU TCBNDSP4 03341000 TCBRSV91 EQU TCBNDSP4 03342000 TCBRSV90 EQU TCBNDSP4 03343000 TCBRSV89 EQU TCBNDSP4 03344000 TCBRSV88 EQU TCBNDSP4 03345000 TCBRSV87 EQU TCBNDSP4 03346000 TCBRSV86 EQU TCBNDSP4 03347000 TCBEXT1A EQU TCBEXT1+1 03348000 TCBRSV32 EQU TCBEXT1 03349000 TCBEXCPD EQU TCB+192 03350000 TCBIOBRC EQU TCB+188 03351000 TCBDDWTC EQU TCB+186 03352000 TCBDDEXC EQU TCB+184 03353000 TCBJSCBB EQU TCBJSCB+1 03354000 @NM00002 EQU TCBRECDE 03355000 TCBREC EQU TCBRECDE 03356000 TCBMDIDS EQU TCB+176 03357000 TCBNDINT EQU TCBNDSP3 03358000 TCBRSV27 EQU TCBNDSP3 03359000 TCBRSV26 EQU TCBNDSP3 03360000 TCBRSV25 EQU TCBNDSP3 03361000 TCBRSV24 EQU TCBNDSP3 03362000 TCBSRBND EQU TCBNDSP3 03363000 TCBRV302 EQU TCBNDSP3 03364000 TCBLJSND EQU TCBNDSP3 03365000 TCBABE EQU TCBNDSP2 03366000 TCBDSS EQU TCBNDSP2 03367000 TCBOWAIT EQU TCBNDSP2 03368000 TCBIWAIT EQU TCBNDSP2 03369000 TCBNDTS EQU TCBNDSP2 03370000 TCBNDSVC EQU TCBNDSP2 03371000 TCBSTPP EQU TCBNDSP2 03372000 TCBABD EQU TCBNDSP2 03373000 TCBRSV22 EQU TCBNDSP1 03374000 TCBPIEND EQU TCBNDSP1 03375000 TCBTPSP EQU TCBNDSP1 03376000 TCBDDRND EQU TCBNDSP1 03377000 TCBRSPND EQU TCBNDSP1 03378000 TCBRSTND EQU TCBNDSP1 03379000 TCBDARPN EQU TCBNDSP1 03380000 TCBDARTN EQU TCBNDSP1 03381000 TCBNDSP0 EQU TCBNDSP 03382000 TCBUSER EQU TCB+168 03383000 TCBTCTB EQU TCBTCT+1 03384000 TCBRSV9C EQU TCBTCTGF 03385000 TCBRSV9B EQU TCBTCTGF 03386000 TCBRSV9A EQU TCBTCTGF 03387000 TCBRSV99 EQU TCBTCTGF 03388000 TCBRSV98 EQU TCBTCTGF 03389000 TCBRSV97 EQU TCBTCTGF 03390000 TCBRSV20 EQU TCBTCTGF 03391000 TCBSMFGF EQU TCBTCTGF 03392000 TCBSTABB EQU TCBSTAB+1 03393000 TCBSTCUR EQU TCBNSTAE 03394000 TCBRV301 EQU TCBNSTAE 03395000 TCBSYNCH EQU TCBNSTAE 03396000 TCBHALT EQU TCBNSTAE 03397000 TCBPPSUP EQU TCBNSTAE 03398000 TCB33E EQU TCBNSTAE 03399000 TCBQUIES EQU TCBNSTAE 03400000 TCBSTABE EQU TCBNSTAE 03401000 TCBAQE EQU TCB+156 03402000 TCBTSDP EQU TCB+151 03403000 TCBTSLP EQU TCB+150 03404000 TCBSTPCT EQU TCB+149 03405000 TCBCPUBN EQU TCBTSFLG 03406000 TCBDYDSP EQU TCBTSFLG 03407000 TCBRSV18 EQU TCBTSFLG 03408000 TCBRSV17 EQU TCBTSFLG 03409000 TCBTIOTG EQU TCBTSFLG 03410000 TCBATT EQU TCBTSFLG 03411000 TCBSTPPR EQU TCBTSFLG 03412000 TCBRV300 EQU TCBTSTSK 03413000 TCBECB EQU TCB+144 03414000 TCBIQE EQU TCB+140 03415000 TCBLTC EQU TCB+136 03416000 TCBOTC EQU TCB+132 03417000 TCBNTC EQU TCB+128 03418000 TCBJSTCA EQU TCBJSTCB+1 03419000 TCBRSV16 EQU TCBJSTCB 03420000 TCBTQET EQU TCBTME 03421000 TCBTCB EQU TCB+116 03422000 TCBFSAB EQU TCBFSA+1 03423000 TCBQEL EQU TCBFSA 03424000 TCBGRS15 EQU TCBGRS+60 03425000 TCBGRS14 EQU TCBGRS+56 03426000 TCBGRS13 EQU TCBGRS+52 03427000 TCBGRS12 EQU TCBGRS+48 03428000 TCBGRS11 EQU TCBGRS+44 03429000 TCBGRS10 EQU TCBGRS+40 03430000 TCBGRS9 EQU TCBGRS+36 03431000 TCBGRS8 EQU TCBGRS+32 03432000 TCBGRS7 EQU TCBGRS+28 03433000 TCBGRS6 EQU TCBGRS+24 03434000 TCBGRS5 EQU TCBGRS+20 03435000 TCBGRS4 EQU TCBGRS+16 03436000 TCBGRS3 EQU TCBGRS+12 03437000 TCBGRS2 EQU TCBGRS+8 03438000 TCBGRS1 EQU TCBGRS+4 03439000 TCBGRS0 EQU TCBGRS 03440000 TCBJPQB EQU TCBJPQ+1 03441000 TCBRSV15 EQU TCBPURGE 03442000 TCBRSV14 EQU TCBPURGE 03443000 TCBRSV13 EQU TCBPURGE 03444000 TCBRSV12 EQU TCBPURGE 03445000 TCBRSV11 EQU TCBPURGE 03446000 TCBRSV10 EQU TCBPURGE 03447000 TCBRSV09 EQU TCBPURGE 03448000 TCBJPQF EQU TCBPURGE 03449000 TCBJLB EQU TCB+40 03450000 TCBLLS EQU TCB+36 03451000 TCBDSP EQU TCB+35 03452000 TCBLMP EQU TCB+34 03453000 TCBPNDSP EQU TCBFLGS5 03454000 TCBFCD1 EQU TCBFLGS5 03455000 TCBSTP EQU TCBFLGS5 03456000 TCBSYS EQU TCBFLGS5 03457000 TCBANDSP EQU TCBFLGS5 03458000 TCBPAGE EQU TCBFLGS5 03459000 TCBUXNDF EQU TCBABWF 03460000 TCBFC EQU TCBFLGS5 03461000 TCBONDSP EQU TCBFLGS4 03462000 TCBMPCND EQU TCBFLGS4 03463000 TCBMPCVQ EQU TCBFLGS4 03464000 TCBUXNDV EQU TCBFLGS4 03465000 TCBHNDSP EQU TCBFLGS4 03466000 TCBRQENA EQU TCBFLGS4 03467000 TCBSER EQU TCBFLGS4 03468000 TCBNDUMP EQU TCBFLGS4 03469000 TCBDWSTA EQU TCBFLGS3 03470000 TCBRSV08 EQU TCBFLGS3 03471000 TCBRSV07 EQU TCBFLGS3 03472000 TCBRSV06 EQU TCBFLGS3 03473000 TCBABGM EQU TCBFLGS3 03474000 TCBABTRM EQU TCBFLGS3 03475000 TCBADINP EQU TCBFLGS3 03476000 TCBFSM EQU TCBFLGS3 03477000 TCBFTS EQU TCBFLGS2 03478000 TCBFETXR EQU TCBFLGS2 03479000 TCBFDSOP EQU TCBFLGS2 03480000 TCBFJMC EQU TCBFLGS2 03481000 TCBFSMC EQU TCBFLGS2 03482000 TCBFABOP EQU TCBFLGS2 03483000 TCBFSTI EQU TCBFLGS2 03484000 TCBFOINP EQU TCBFLGS2 03485000 TCBFX EQU TCBFLGS1 03486000 TCBFS EQU TCBFLGS1 03487000 TCBFT EQU TCBFLGS1 03488000 TCBPDUMP EQU TCBFLGS1 03489000 TCBNONPR EQU TCBFLGS1 03490000 TCBFERA EQU TCBFLGS1 03491000 TCBFE EQU TCBFLGS1 03492000 TCBFA EQU TCBFLGS1 03493000 TCBZERO EQU TCBPKF 03494000 TCBFLAG EQU TCBPKF 03495000 TCBMSSB EQU TCBMSS+1 03496000 TCBRSV03 EQU TCBMSS 03497000 TCBTRNB EQU TCBTRN+1 03498000 TCBRSV02 EQU TCBABF 03499000 TCBOLTEP EQU TCBABF 03500000 TCBTCP EQU TCBABF 03501000 TCBTCPP EQU TCBABF 03502000 TCBRSV01 EQU TCBABF 03503000 TCBGRPH EQU TCBABF 03504000 TCBNOCHK EQU TCBABF 03505000 TCBMOD91 EQU TCBABF 03506000 TCBCMPC EQU TCBCMP+1 03507000 TCBRV318 EQU TCBCMSG 03508000 TCBRV317 EQU TCBCIND 03509000 TCBRV316 EQU TCBCWTO 03510000 TCBCASID EQU TCBCDBL 03511000 TCBNOCC EQU TCBSTCC 03512000 TCBDMPO EQU TCBCPP 03513000 TCBCSTEP EQU TCBCMPF 03514000 TCBCREQ EQU TCBCMPF 03515000 TCBTIO EQU TCB+12 03516000 TCBDEB EQU TCB+8 03517000 TCBPIEA EQU TCBPIE+1 03518000 TCBPM EQU TCBPMASK 03519000 @NM00001 EQU TCBPMASK 03520000 TCBRBP EQU TCB 03521000 TCBFRS6 EQU TCBFRS+24 03522000 TCBFRS4 EQU TCBFRS+16 03523000 TCBFRS2 EQU TCBFRS+8 03524000 TCBFRS0 EQU TCBFRS 03525000 @NM00032 EQU PSA+3668 03526000 PSASTAK EQU PSA+3072 03527000 @NM00031 EQU PSA+1048 03528000 PSAUSEND EQU PSA+1048 03529000 PSARV062 EQU PSA+1044 03530000 PSACDAL EQU PSA+1040 03531000 PSAWTCOD EQU PSA+1036 03532000 PSAATCVT EQU PSA+1032 03533000 PSAPCPSW EQU PSA+1024 03534000 PSAPIR2 EQU PSA+1020 03535000 PSARV059 EQU PSA+1018 03536000 PSASVC13 EQU PSA+1016 03537000 PSALSFCC EQU PSA+1012 03538000 PSASFACC EQU PSA+1008 03539000 PSASTOP EQU PSA+992 03540000 PSASTART EQU PSA+976 03541000 PSARSPSW EQU PSA+968 03542000 PSASRPSW EQU PSA+960 03543000 PSARV045 EQU PSA+892 03544000 PSARV044 EQU PSA+888 03545000 PSARV043 EQU PSA+884 03546000 PSARV042 EQU PSA+880 03547000 PSARV041 EQU PSA+876 03548000 PSARV040 EQU PSA+872 03549000 PSARV025 EQU PSA+868 03550000 PSADSSED EQU PSA+868 03551000 PSADSSPR EQU PSA+864 03552000 PSADSSFW EQU PSA+860 03553000 PSADSS14 EQU PSA+856 03554000 PSADSSPP EQU PSA+848 03555000 PSADSSRP EQU PSA+840 03556000 PSADSS05 EQU PSADSSF4 03557000 PSADSS10 EQU PSADSSF4 03558000 PSADSSVE EQU PSADSSF4 03559000 PSADSSDE EQU PSADSSF4 03560000 PSADSSC0 EQU PSADSSF4 03561000 PSADSSIE EQU PSADSSF4 03562000 PSADSS12 EQU PSADSSF4 03563000 PSADSSRC EQU PSADSSF4 03564000 PSARV057 EQU PSADSSF3 03565000 PSARV056 EQU PSADSSF3 03566000 PSARV055 EQU PSADSSF3 03567000 PSADSSMC EQU PSADSSF3 03568000 PSADSSRW EQU PSADSSF3 03569000 PSADSSNM EQU PSADSSF3 03570000 PSADSSES EQU PSADSSF3 03571000 PSADSSGP EQU PSADSSF3 03572000 PSADSSF2 EQU PSADSSFL+1 03573000 PSADSSPI EQU PSADSSF1 03574000 PSADSSOI EQU PSADSSF1 03575000 PSADSSSP EQU PSADSSF1 03576000 PSADSSTP EQU PSADSSF1 03577000 PSADSSDW EQU PSADSSF1 03578000 PSADSSDD EQU PSADSSF1 03579000 PSADSSDM EQU PSADSSF1 03580000 PSADSSMV EQU PSADSSF1 03581000 PSADSSTS EQU PSA+816 03582000 PSADSSWK EQU PSA+812 03583000 PSADSSR3 EQU PSA+808 03584000 PSADSSR2 EQU PSA+804 03585000 PSADSSRS EQU PSA+800 03586000 PSASTOR EQU PSA+796 03587000 PSACPUSA EQU PSA+794 03588000 PSAVSTAP EQU PSA+792 03589000 PSAWKVAP EQU PSA+788 03590000 PSAWKRAP EQU PSA+784 03591000 PSAMCHIC EQU PSA+783 03592000 PSARV061 EQU PSA+782 03593000 PSASYMSK EQU PSA+781 03594000 PSAMCHFL EQU PSA+780 03595000 PSACR0 EQU PSA+776 03596000 PSAPSWSV EQU PSA+768 03597000 PSALITA EQU PSA+764 03598000 PSACLHS EQU PSAHLHI 03599000 PSALKR15 EQU PSALKSA+60 03600000 PSALKR14 EQU PSALKSA+56 03601000 PSALKR13 EQU PSALKSA+52 03602000 PSALKR12 EQU PSALKSA+48 03603000 PSALKR11 EQU PSALKSA+44 03604000 PSALKR10 EQU PSALKSA+40 03605000 PSALKR9 EQU PSALKSA+36 03606000 PSALKR8 EQU PSALKSA+32 03607000 PSALKR7 EQU PSALKSA+28 03608000 PSALKR6 EQU PSALKSA+24 03609000 PSALKR5 EQU PSALKSA+20 03610000 PSALKR4 EQU PSALKSA+16 03611000 PSALKR3 EQU PSALKSA+12 03612000 PSALKR2 EQU PSALKSA+8 03613000 PSALKR1 EQU PSALKSA+4 03614000 PSALKR0 EQU PSALKSA 03615000 PSARV023 EQU PSACLHT+52 03616000 PSALOCAL EQU PSACLHT+48 03617000 PSACMSL EQU PSACLHT+44 03618000 PSAOPTL EQU PSACLHT+40 03619000 PSATPACL EQU PSACLHT+36 03620000 PSATPDNL EQU PSACLHT+32 03621000 PSATPNCL EQU PSACLHT+28 03622000 PSAIOSLL EQU PSACLHT+24 03623000 PSAIOSUL EQU PSACLHT+20 03624000 PSAIOSCL EQU PSACLHT+16 03625000 PSAIOSSL EQU PSACLHT+12 03626000 PSASALCL EQU PSACLHT+8 03627000 PSAASML EQU PSACLHT+4 03628000 PSADISPL EQU PSACLHT 03629000 PSASRSA EQU PSA+636 03630000 PSARV050 EQU PSA+634 03631000 PSADSSGO EQU PSA+633 03632000 PSARECUR EQU PSA+632 03633000 PSAHLHIS EQU PSA+628 03634000 PSAIPCSA EQU PSA+624 03635000 @NM00030 EQU PSA+621 03636000 PSAIPCDM EQU PSA+620 03637000 PSAIPCD EQU PSA+616 03638000 @NM00029 EQU PSA+613 03639000 PSAIPCRM EQU PSA+612 03640000 PSAIPCR EQU PSA+608 03641000 PSAMCHEX EQU PSA+600 03642000 PSAMPSW EQU PSA+592 03643000 PSAEXPS2 EQU PSA+584 03644000 PSAEXPS1 EQU PSA+576 03645000 PSAPIREG EQU PSA+572 03646000 PSARSREG EQU PSA+568 03647000 PSAGPREG EQU PSA+556 03648000 PSARV022 EQU PSASUP4 03649000 PSARV021 EQU PSASUP4 03650000 PSARV020 EQU PSASUP4 03651000 PSARV019 EQU PSASUP4 03652000 PSARV018 EQU PSASUP4 03653000 PSARV017 EQU PSASUP4 03654000 PSARV016 EQU PSASUP4 03655000 PSARV015 EQU PSASUP4 03656000 PSARV014 EQU PSASUP3 03657000 PSARV013 EQU PSASUP3 03658000 PSARV012 EQU PSASUP3 03659000 PSAESTA EQU PSASUP3 03660000 PSASPR EQU PSASUP3 03661000 PSAPSREG EQU PSASUP3 03662000 PSAPI2 EQU PSASUP3 03663000 PSAIOSUP EQU PSASUP3 03664000 PSALCR EQU PSASUP2 03665000 PSARTM EQU PSASUP2 03666000 PSAACR EQU PSASUP2 03667000 PSAIPCE2 EQU PSASUP2 03668000 PSAIPCES EQU PSASUP2 03669000 PSAIPCEC EQU PSASUP2 03670000 PSAGTF EQU PSASUP2 03671000 PSAIPCRI EQU PSASUP2 03672000 PSATYPE6 EQU PSASUP1 03673000 PSATCTL EQU PSASUP1 03674000 PSADISP EQU PSASUP1 03675000 PSALOCK EQU PSASUP1 03676000 PSAPI EQU PSASUP1 03677000 PSAEXT EQU PSASUP1 03678000 PSASVC EQU PSASUP1 03679000 PSAIO EQU PSASUP1 03680000 PSAANEW EQU PSA+544 03681000 PSATNEW EQU PSA+536 03682000 PSALCCAR EQU PSA+532 03683000 PSALCCAV EQU PSA+528 03684000 PSAPCCAR EQU PSA+524 03685000 PSAPCCAV EQU PSA+520 03686000 PSACPULA EQU PSA+518 03687000 PSACPUPA EQU PSA+516 03688000 PSAPSA EQU PSA+512 03689000 FLCHDEND EQU PSA+512 03690000 FLCCRSAV EQU FLCMCLA+280 03691000 FLCGRSAV EQU FLCMCLA+216 03692000 FLCFPSAV EQU FLCMCLA+184 03693000 FLCFLA EQU FLCMCLA+88 03694000 FLCRGNCD EQU FLCMCLA+84 03695000 FLCFSAA EQU FLCFSA+1 03696000 @NM00028 EQU FLCFSA 03697000 @NM00027 EQU FLCMCLA+72 03698000 FLCMCIC EQU FLCMCLA+64 03699000 @NM00026 EQU FLCMCLA+20 03700000 FLCIOAA EQU FLCIOA+1 03701000 @NM00025 EQU FLCIOA 03702000 @NM00024 EQU FLCMCLA+15 03703000 @NM00023 EQU FLCMCLA+14 03704000 @NM00022 EQU FLCMCLA+12 03705000 FLCLCL EQU FLCMCLA+8 03706000 FLCIOELA EQU FLCIOEL+1 03707000 @NM00021 EQU FLCIOEL 03708000 FLCCHNID EQU FLCMCLA 03709000 @NM00020 EQU PSA+160 03710000 FLCMTRCD EQU PSA+157 03711000 @NM00019 EQU PSA+156 03712000 FLCPERA EQU FLCPER+1 03713000 @NM00018 EQU FLCPER 03714000 @NM00017 EQU PSA+151 03715000 FLCPERCD EQU PSA+150 03716000 FLCMCNUM EQU PSA+149 03717000 @NM00016 EQU PSA+148 03718000 FLCTEAA EQU FLCTEA+1 03719000 @NM00015 EQU FLCTEA 03720000 PSAPIPC EQU PSAPICOD 03721000 PSAPIMC EQU PSAPICOD 03722000 PSAPIPER EQU PSAPICOD 03723000 PSARV049 EQU FLCPICOD 03724000 FLCPILCB EQU FLCPIILC 03725000 @NM00014 EQU FLCPIILC 03726000 @NM00013 EQU PSAEPPSW 03727000 FLCSVCN EQU PSAESPSW+2 03728000 FLCSILCB EQU FLCSVILC 03729000 @NM00012 EQU FLCSVILC 03730000 @NM00011 EQU PSAESPSW 03731000 FLCEICOD EQU PSAEEPSW+2 03732000 PSASPAD EQU PSAEEPSW 03733000 @NM00010 EQU PSA+128 03734000 FLCINPSW EQU PSA+120 03735000 FLCMNPSW EQU PSA+112 03736000 FLCPNPSW EQU PSA+104 03737000 FLCSNPSW EQU PSA+96 03738000 FLCENPSW EQU PSA+88 03739000 FLCTRACE EQU PSA+84 03740000 FLCTIMER EQU PSA+80 03741000 FLCCVT2 EQU PSA+76 03742000 FLCCAW EQU PSA+72 03743000 FLCCSW EQU PSA+64 03744000 FLCIOPSW EQU PSA+56 03745000 FLCMOPSW EQU PSA+48 03746000 FLCPOPSW EQU PSA+40 03747000 FLCSOPSW EQU PSA+32 03748000 FLCEOPSW EQU PSA+24 03749000 @NM00009 EQU FLCICCW2+4 03750000 FLCCVT EQU FLCICCW2 03751000 FLCICCW1 EQU FLCROPSW 03752000 FLCIPPSW EQU FLCRNPSW 03753000 * END UNREFERENCED COMPONENTS 03754000 @RT00117 EQU GPFRR 03755000 @RT00119 EQU RECRS1 03756000 @RT00123 EQU RETRY 03757000 @RT00125 EQU RECRSION 03758000 @RT00153 EQU FREERL 03759000 @RT00155 EQU GPRETSET 03760000 @RC00161 EQU @RC00160 03761000 @RF00182 EQU GPRETSET 03762000 @RT00187 EQU GETRL 03763000 @RT00202 EQU RECRSION 03764000 @RT00204 EQU RECRSION 03765000 @RF00222 EQU OTHRERRS 03766000 @RT00246 EQU RET 03767000 @RT00253 EQU LASTEL 03768000 @RF00286 EQU RET 03769000 @RC00291 EQU @RC00290 03770000 @RF00290 EQU GPRETSET 03771000 @RT00323 EQU RET 03772000 @RT00329 EQU RET 03773000 @RF00328 EQU L4 03774000 @RT00397 EQU @EL00002 03775000 @RT00399 EQU NEWFBQE 03776000 @PB00002 EQU RET 03777000 @RC00162 EQU @RC00161 03778000 @RC00292 EQU @RC00291 03779000 @RC00163 EQU @RC00162 03780000 @RC00293 EQU @RC00292 03781000 @RC00164 EQU @RC00163 03782000 @RC00294 EQU @RC00293 03783000 @RC00165 EQU @RC00164 03784000 @RC00295 EQU @RC00294 03785000 @ENDDATA EQU * 03786000 END IEAVGPRR,(C'PLS1401',0701,76087) 03787000