TITLE 'IGFDE1, DDR ESTAE EXIT HANDLER *00001000 ' 00002000 IGFDE1 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IGFDE1 77.321' 0001 00008000 DROP @15 00009000 @PROLOG BALR @11,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@11 0001 00012000 * SDWAPTR=R1; /* SAVE REG 1 ACROSS MODULE AND 00013000 * INITIALIZE SDWA PTR */ 00014000 LR SDWAPTR,R1 0140 00015000 * SAVER14=R14; /* SAVE REG 14 ACROSS MODULE */ 00016000 LR SAVER14,R14 0141 00017000 * IF REG0='0C'X THEN /* IS A SDWA AVAILABLE? */ 00018000 C REG0,@CF01543 0142 00019000 BNE @RF00142 0142 00020000 */* NO SDWA - TERMINAL ERROR */ 00021000 */* THE DERPLIST PTR IS AN INPUT PARM (REG 2). */ 00022000 * 0143 00023000 * DERCRASH='1'B; /* DO NOT ISSUE A SETRP */ 00024000 OI DERCRASH(DERPTR),B'10000000' 0143 00025000 * ELSE 0144 00026000 * 0144 00027000 * /***************************************************************/ 00028000 * /* */ 00029000 * /* YES - A SDWA */ 00030000 * /* */ 00031000 * /***************************************************************/ 00032000 * 0144 00033000 * DERPTR=SDWAPARM; /* RESTORE DERPLIST PTR */ 00034000 B @RC00142 0144 00035000 @RF00142 L DERPTR,SDWAPARM(,SDWAPTR) 0144 00036000 * DERLRC=12; /* SET LOCAL RETURN CODE OF THE 00037000 * DDR MODULE EXPERIENCING THE 0145 00038000 * ERROR */ 00039000 @RC00142 MVI DERLRC(DERPTR),X'0C' 0145 00040000 * IF DERCRASH='0'B&SDWAEAS='0'B&(DERECALL='0'B|(DERRDDR->DDRRETRY='1' 00041000 * )) THEN /* SHOULD SDUMP BE ISSUED ? */ 00042000 * 0146 00043000 TM DERCRASH(DERPTR),B'10000000' 0146 00044000 BNZ @RF00146 0146 00045000 TM SDWAEAS(SDWAPTR),B'00001000' 0146 00046000 BNZ @RF00146 0146 00047000 TM DERECALL(DERPTR),B'00100000' 0146 00048000 BZ @RT00146 0146 00049000 L @15,DERRDDR(,DERPTR) 0146 00050000 CLI DDRRETRY(@15),1 0146 00051000 BNE @RF00146 0146 00052000 @RT00146 DS 0H 0147 00053000 * /***************************************************************/ 00054000 * /* */ 00055000 * /* YES - ISSUE SDUMP */ 00056000 * /* */ 00057000 * /***************************************************************/ 00058000 * 0147 00059000 * DO; 0147 00060000 * RESPECIFY 0148 00061000 * (LISTAD, 0148 00062000 * STENDAD) RSTD; 0148 00063000 * LOWAD=DERPTR; /* DUMP START ADDRESS */ 00064000 ST DERPTR,LOWAD(,SDWAPTR) 0149 00065000 * HIGHAD=LOWAD+(LENGTH(DERPLIST));/* DUMP END ADDRESS */ 00066000 L @15,LOWAD(,SDWAPTR) 0150 00067000 AL @15,@CF02139 0150 00068000 ST @15,HIGHAD(,SDWAPTR) 0150 00069000 * HIGHAD0='1'B; /* INDICATES THE END OF THE LIST */ 00070000 OI HIGHAD0(SDWAPTR),B'10000000' 0151 00071000 * LISTAD=ADDR(MFELIST); /* SDUMP LIST ADDR */ 00072000 LA LISTAD,MFELIST(,SDWAPTR) 0152 00073000 * STENDAD=ADDR(LOWAD); /* PARM LIST= START AND END 0153 00074000 * ADDRESSES FOR DUMP */ 00075000 LA STENDAD,LOWAD(,SDWAPTR) 0153 00076000 * MFELIST=SDUMP1; /* MOVE SDUMP LIST TO WORK AREA */ 00077000 MVC MFELIST(60,SDWAPTR),SDUMP1 0154 00078000 * GEN REFS(DUMPLIST,STENDAD,LISTAD); 0155 00079000 * /* EXECUTE DUMP */ 00080000 SDUMP LIST=(STENDAD),MF=(E,(LISTAD)) 00081000 * RESPECIFY 0156 00082000 * (LISTAD, 0156 00083000 * STENDAD) UNRSTD; 0156 00084000 * END; 0157 00085000 * ELSE 0158 00086000 * ; /* NO DUMP */ 00087000 @RF00146 DS 0H 0159 00088000 * IF DERRDDR^=0 THEN /* DOES A DDRCOM EXIST? */ 00089000 L @15,DERRDDR(,DERPTR) 0159 00090000 LTR @15,@15 0159 00091000 BZ @RF00159 0159 00092000 * DO; /* YES - A DDRCOM */ 00093000 * DDRPTR=DERRDDR; /* SET UP DDRCOM BASE */ 00094000 LR DDRPTR,@15 0161 00095000 * CALL DE1ALLOC; /* FREE ALLOC RESOURCE */ 00096000 BAL @14,DE1ALLOC 0162 00097000 * END; 0163 00098000 * ELSE 0164 00099000 * ; /* NO DDRCOM */ 00100000 @RF00159 DS 0H 0165 00101000 * IF DERGMLNG^=0 THEN /* HAS THE MODULE EXPERIENCING 0165 00102000 * THE ERROR ISSUED AN EXPLICIT 00103000 * GETMAIN ? */ 00104000 L @15,DERGMLNG-1(,DERPTR) 0165 00105000 LA @15,0(,@15) 0165 00106000 LTR @15,@15 0165 00107000 BZ @RF00165 0165 00108000 * DO; /* YES - A GETMAIN HAS BEEN 0166 00109000 * ISSUED */ 00110000 * 0166 00111000 * /*************************************************************/ 00112000 * /* */ 00113000 * /* FREE EXPLICIT GETMAIN STORAGE */ 00114000 * /* */ 00115000 * /*************************************************************/ 00116000 * 0167 00117000 * DO; /* FREEMAIN(R) LV(DERGMLNG)SP(DER 00118000 * GMSPN)A(DERGMADR->DUMFREAD) */ 00119000 * RESPECIFY 0168 00120000 * (GPR01F, 0168 00121000 * GPR00F) RESTRICTED; 0168 00122000 * GPR00F=DERGMLNG; /* LENGTH REQUESTED */ 00123000 LR GPR00F,@15 0169 00124000 * GPR01F=DERGMSPN; /* SP IN REG 1 */ 00125000 SLR GPR01F,GPR01F 0170 00126000 IC GPR01F,DERGMSPN(,DERPTR) 0170 00127000 * GEN(SLL GPR01F,24) 0171 00128000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0171 00129000 SLL GPR01F,24 00130000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00131000 OR GPR00F,GPR01F 0172 00132000 * GPR01F=ADDR(DERGMADR->DUMFREAD);/* SET REGISTER ONE */ 00133000 L GPR01F,DERGMADR(,DERPTR) 0173 00134000 * SVC(10); /* R-FORM OF GETMAIN */ 00135000 SVC 10 0174 00136000 * RESPECIFY 0175 00137000 * (GPR01F, 0175 00138000 * GPR00F) UNRESTRICTED; 0175 00139000 * END; /* FREEMAIN(R) LV(DERGMLNG)SP(DER 00140000 * GMSPN)A(DERGMADR->DUMFREAD) */ 00141000 * DERGMSPL=0; /* ZERO SUBPOOL , LENGTH, */ 00142000 SLR @15,@15 0177 00143000 ST @15,DERGMSPL(,DERPTR) 0177 00144000 * DERGMADR=0; /* AND ADDRESS FOR FREMAIN */ 00145000 ST @15,DERGMADR(,DERPTR) 0178 00146000 * END; 0179 00147000 * ELSE 0180 00148000 * ; /* NO - SKIP FREEMAIN */ 00149000 @RF00165 DS 0H 0181 00150000 * IF DERSPEC^=0 THEN /* HAS THE MODULE EXPERIENCING 0181 00151000 * THE ERROR SPECIFIED A SPECIAL 00152000 * EXIT ROUTINE ? */ 00153000 L @15,DERSPEC(,DERPTR) 0181 00154000 LTR @15,@15 0181 00155000 BZ @RF00181 0181 00156000 * DO; /* YES - CALL SPECIAL EXIT */ 00157000 * IF DERCRASH='0'B THEN /* A SDWA ? */ 00158000 TM DERCRASH(DERPTR),B'10000000' 0183 00159000 BNZ @RF00183 0183 00160000 * REG0=SDWAPTR; /* YES - SDWA ADDRESS */ 00161000 LR REG0,SDWAPTR 0184 00162000 * ELSE /* NO SDWA */ 00163000 * DO; /* @ZA26259*/ 00164000 B @RC00183 0185 00165000 @RF00183 DS 0H 0186 00166000 * RESPECIFY 0186 00167000 * REG9 RESTRICTED; /* @ZA26259*/ 00168000 * REG0=NEGONE; /* NEGATIVE ONE IN REG 0 */ 00169000 * 0187 00170000 SLR REG0,REG0 0187 00171000 BCTR REG0,0 0187 00172000 * /*********************************************************/ 00173000 * /* */ 00174000 * /* ESOTERIC EXIT */ 00175000 * /* */ 00176000 * /*********************************************************/ 00177000 * 0188 00178000 * R1=CURASCB; /* CURRENT ASCB ADDRESS */ 00179000 L @15,CVTPTR 0188 00180000 L @15,CVTTCBP(,@15) 0188 00181000 L R1,CURASCB(,@15) 0188 00182000 * ESOTBASE=DERRCODE; /* BASE ADDRESS OF THE DDR MODULE 00183000 * CONTAINING THE ESOTERIC EXIT */ 00184000 L ESOTBASE,DERRCODE(,DERPTR) 0189 00185000 * REG9=DERRDATA; /* MODULE WORKAREA ADDRESS */ 00186000 L REG9,DERRDATA(,DERPTR) 0190 00187000 * DDRPTR=DERRDDR; /* DDRCOM ADDRESS */ 00188000 L DDRPTR,DERRDDR(,DERPTR) 0191 00189000 * SAVEPTR=DERRSAVE; /* SAVE AREA ADDRESS */ 00190000 L SAVEPTR,DERRSAVE(,DERPTR) 0192 00191000 * CALL IGFDXXS; /* CALL ESOTERIC EXIT */ 00192000 L @15,DERSPEC(,DERPTR) 0193 00193000 BALR @14,@15 0193 00194000 * RESPECIFY 0194 00195000 * REG9 UNRESTRICTED; /* @ZA26259*/ 00196000 * END; /* @ZA26259*/ 00197000 * END; 0196 00198000 * ELSE 0197 00199000 * ; /* NO SPECIAL EXIT */ 00200000 @RF00181 DS 0H 0198 00201000 * IF DERCRASH='0'B THEN /* SDWA EXISTED? */ 00202000 @RC00181 TM DERCRASH(DERPTR),B'10000000' 0198 00203000 BNZ @RF00198 0198 00204000 * DO; /* YES - A SDWA */ 00205000 * IF SDWAEAS='0'B&(DERPERK='1'B|DERECALL='0'B|(DERRDDR->DDRRETRY= 00206000 * '01'X)) THEN /* ERROR RECORDING NECESSARY? */ 00207000 * 0200 00208000 TM SDWAEAS(SDWAPTR),B'00001000' 0200 00209000 BNZ @RF00200 0200 00210000 TM DERPERK(DERPTR),B'01000000' 0200 00211000 BNZ @RT00200 0200 00212000 TM DERECALL(DERPTR),B'00100000' 0200 00213000 BNO @RT00200 0200 00214000 L @15,DERRDDR(,DERPTR) 0200 00215000 CLI DDRRETRY(@15),1 0200 00216000 BNE @RF00200 0200 00217000 @RT00200 DS 0H 0201 00218000 * /***********************************************************/ 00219000 * /* */ 00220000 * /* YES - RECORD */ 00221000 * /* */ 00222000 * /***********************************************************/ 00223000 * 0201 00224000 * DO; 0201 00225000 * R1=SDWAPTR; /* INPUT REG1 FOR SETRP */ 00226000 LR R1,SDWAPTR 0202 00227000 * DO; /* SETRP RECORD(YES)DUMP(NO)RECPA 00228000 * RM(DERREC->RECPARMA)RC(0) */ 00229000 * RESPECIFY 0204 00230000 * (GPR00P, 0204 00231000 * GPR01P, 0204 00232000 * GPR14P, 0204 00233000 * GPR15P) RSTD; 0204 00234000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00235000 MVI SDWARCDE(GPR01P),X'00' 0205 00236000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 00237000 OI SDWARCRD(GPR01P),B'10000000' 0206 00238000 * GPR15P=ADDR(DERREC->RECPARMA);/* ACCESS RECORD 0207 00239000 * PARAMETER LIST */ 00240000 L GPR15P,DERREC(,DERPTR) 0207 00241000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 0208 00242000 * PARAMETERS */ 00243000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0208 00244000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 00245000 NI SDWAREQ(GPR01P),B'01111111' 0209 00246000 * RESPECIFY 0210 00247000 * (GPR00P, 0210 00248000 * GPR01P, 0210 00249000 * GPR14P, 0210 00250000 * GPR15P) UNRSTD; 0210 00251000 * END; /* YM02557 */ 00252000 * RESPECIFY 0212 00253000 * SDWA BASED(SDWAPTR); /* RESET SDWA BASE REG */ 00254000 * END; 0213 00255000 * ELSE 0214 00256000 * ; /* NO RECORDING */ 00257000 @RF00200 DS 0H 0215 00258000 * END; 0215 00259000 * ELSE 0216 00260000 * ; /* NO SDWA */ 00261000 @RF00198 DS 0H 0217 00262000 * IF DERCRASH='0'B&SDWAPERC='0'B&SDWACLUP='0'B&DERPERK='0'B THEN/* 00263000 * IS THE ERROR RETRYABLE ? */ 00264000 * 0217 00265000 TM DERCRASH(DERPTR),B'10000000' 0217 00266000 BNZ @RF00217 0217 00267000 TM SDWAPERC(SDWAPTR),B'00010000' 0217 00268000 BNZ @RF00217 0217 00269000 TM SDWACLUP(SDWAPTR),B'10000000' 0217 00270000 BNZ @RF00217 0217 00271000 TM DERPERK(DERPTR),B'01000000' 0217 00272000 BNZ @RF00217 0217 00273000 * /***************************************************************/ 00274000 * /* */ 00275000 * /* YES - RETRY ERROR CONDITION */ 00276000 * /* */ 00277000 * /***************************************************************/ 00278000 * 0218 00279000 * DO; 0218 00280000 * R1=SDWAPTR; /* INPUT REG1 FOR SETRP */ 00281000 LR R1,SDWAPTR 0219 00282000 * DO; /* SETRP RETADDR(DERRETRY->RETRYA 00283000 * )RUB(DERRUB)RETREGS(YES)FREESD 00284000 * WA(YES)RC(4)DUMP(NO) */ 00285000 * RESPECIFY 0221 00286000 * (GPR00P, 0221 00287000 * GPR01P, 0221 00288000 * GPR14P, 0221 00289000 * GPR15P) RSTD; 0221 00290000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 00291000 MVI SDWARCDE(GPR01P),X'04' 0222 00292000 * GPR01P->SDWARTYA=ADDR(DERRETRY->RETRYA);/* SAVE RETRY 0223 00293000 * ADDRESS */ 00294000 L @09,DERRETRY(,DERPTR) 0223 00295000 ST @09,SDWARTYA(,GPR01P) 0223 00296000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 00297000 NI SDWAREQ(GPR01P),B'01111111' 0224 00298000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 00299000 OI SDWAUPRG(GPR01P),B'00001000' 0225 00300000 * GPR15P=ADDR(DERRUB); /* GET PTR TO REG UPDATE BLOCK */ 00301000 LA GPR15P,DERRUB(,DERPTR) 0226 00302000 * GPR00P=GPR15P->I015F; /* ACCESS REGISTER BIT PATTERN */ 00303000 LH GPR00P,I015F(,GPR15P) 0227 00304000 * GPR15P=GPR15P+2; /* CREATE PTR TO USER REG VALUES */ 00305000 AL GPR15P,@CF00108 0228 00306000 * GPR14P=ADDR(GPR01P->SDWASRSV);/* CREATE PTR TO SDWA SAVE 0229 00307000 * AREA */ 00308000 LA GPR14P,SDWASRSV(,GPR01P) 0229 00309000 * GEN(SLL 0,16); /* SHIFT BIT PATTERN TO HIGH 0230 00310000 * ORDER */ 00311000 SLL 0,16 00312000 *R0010: 0231 00313000 * GEN FLOWS(I0010); 0231 00314000 R0010 DS 0H 0231 00315000 ALR 0,0 SHIFT BIT TO SIGN POSITION 00316000 BC 12,I0010 BRANCH IF BIT NOT ON 00317000 MVC 0(4,14),0(15) MODIFY REGISTER IN SDWA 00318000 LA 15,4(15) UPDATE POINTER 00319000 *I0010: 0232 00320000 * GENERATE FLOWS(R0010); 0232 00321000 I0010 DS 0H 0232 00322000 LA 14,4(14) UPDATE PTR IN SDWA 00323000 BC 5,R0010 TEST ALR CONDITION CODE TO TEST 00324000 * IF ALL BITS EXHAUSTED 00325000 * RESPECIFY 0233 00326000 * (GPR00P, 0233 00327000 * GPR01P, 0233 00328000 * GPR14P, 0233 00329000 * GPR15P) UNRSTD; 0233 00330000 * END; /* @YM02557*/ 00331000 * RESPECIFY 0235 00332000 * SDWA BASED(SDWAPTR); /* RESET SDWA BASE REG */ 00333000 * END; 0236 00334000 * ELSE /* NO RETRYABLE ERROR CONDITION */ 00335000 * 0237 00336000 * /***************************************************************/ 00337000 * /* */ 00338000 * /* FREE IMPLICIT GETMAINED STORAGE */ 00339000 * /* */ 00340000 * /***************************************************************/ 00341000 * 0237 00342000 * DO; /* FREE MODULE WORK AREA */ 00343000 B @RC00217 0237 00344000 @RF00217 DS 0H 0238 00345000 * DO; /* FREEMAIN(R) LV(DERDALNG)SP(DER 00346000 * DASPN)A(DERRDATA->DUMFREAD) */ 00347000 * RESPECIFY 0239 00348000 * (GPR01F, 0239 00349000 * GPR00F) RESTRICTED; 0239 00350000 * GPR00F=DERDALNG; /* LENGTH REQUESTED */ 00351000 L GPR00F,DERDALNG-1(,DERPTR) 0240 00352000 ICM GPR00F,8,@CB02162 0240 00353000 * GPR01F=DERDASPN; /* SP IN REG 1 */ 00354000 SLR GPR01F,GPR01F 0241 00355000 IC GPR01F,DERDASPN(,DERPTR) 0241 00356000 * GEN(SLL GPR01F,24) 0242 00357000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0242 00358000 SLL GPR01F,24 00359000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00360000 OR GPR00F,GPR01F 0243 00361000 * GPR01F=ADDR(DERRDATA->DUMFREAD);/* SET REGISTER ONE */ 00362000 L GPR01F,DERRDATA(,DERPTR) 0244 00363000 * SVC(10); /* R-FORM OF GETMAIN */ 00364000 SVC 10 0245 00365000 * RESPECIFY 0246 00366000 * (GPR01F, 0246 00367000 * GPR00F) UNRESTRICTED; 0246 00368000 * END; /* FREEMAIN(R) LV(DERDALNG)SP(DER 00369000 * DASPN)A(DERRDATA->DUMFREAD) */ 00370000 * END; 0248 00371000 * 0248 00372000 * /*****************************************************************/ 00373000 * /* */ 00374000 * /* RESTORE NECESSARY REGS FOR THE RTM */ 00375000 * /* */ 00376000 * /*****************************************************************/ 00377000 * 0249 00378000 * R1=SDWAPTR; /* RESTORE REG 1 */ 00379000 @RC00217 LR R1,SDWAPTR 0249 00380000 * R14=SAVER14; /* RESTORE REG 14 */ 00381000 LR R14,SAVER14 0250 00382000 * REG0=DERRETRY; /* RETRY ADDRESS */ 00383000 L REG0,DERRETRY(,DERPTR) 0251 00384000 * RETURN CODE(0); /* RETURN TO RTM */ 00385000 SLR @15,@15 0252 00386000 @EL00001 DS 0H 0252 00387000 @EF00001 DS 0H 0252 00388000 @ER00001 BR @14 0252 00389000 * 0253 00390000 * /*****************************************************************/ 00391000 * /* */ 00392000 * /* THIS SUBROUTINE WILL FREE THE ALLOCATED RESOURCES THAT ARE */ 00393000 * /* HELD BY THE DDR MODULE EXPERIENCING THE ERROR IF A DDRCOM */ 00394000 * /* EXISTED. */ 00395000 * /* */ 00396000 * /*****************************************************************/ 00397000 * 0253 00398000 *DE1ALLOC: 0253 00399000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0253 00400000 DE1ALLOC DS 0H 0254 00401000 * RESPECIFY 0254 00402000 * (R14, 0254 00403000 * COMPCODE, 0254 00404000 * SAVE14A) RESTRICTED; /* @ZA26259*/ 00405000 * SAVE14A=R14; /* SAVE RETURN ADDRESS FOR 0255 00406000 * DE1ALLOC @ZA26259*/ 00407000 LR SAVE14A,R14 0255 00408000 * IF DERCRASH='0'B THEN /* Q. SDWA EXISTS @Y02BKCI*/ 00409000 TM DERCRASH(DERPTR),B'10000000' 0256 00410000 BNZ @RF00256 0256 00411000 * COMPCODE=SDWAABCC; /* YES, GET COMP CODE FROM SDWA 00412000 * @Y02BKCI*/ 00413000 L COMPCODE,SDWAABCC(,SDWAPTR) 0257 00414000 * ELSE 0258 00415000 * COMPCODE=SDWAPTR; /* NO, GET COMP CODE SAVED ON 0258 00416000 * ENTRY @Y02BKCI*/ 00417000 B @RC00256 0258 00418000 @RF00256 LR COMPCODE,SDWAPTR 0258 00419000 * COMPCODE=COMPCODE&'00FFF000'X; /* ISOLATE SYSTEM CODE @Y02BKCI*/ 00420000 @RC00256 N COMPCODE,@CF02135 0259 00421000 * IF COMPCODE=JES3ABND THEN /* Q. ABEND IN JES3 @Y02BKCI*/ 00422000 CL COMPCODE,@CF02111 0260 00423000 BNE @RF00260 0260 00424000 * DDRTER1=DDRTJE; /* YES, INDICATE SO IN DDRCOM 0261 00425000 * @Y02BKCI*/ 00426000 MVI DDRTER1(DDRPTR),X'0A' 0261 00427000 * ELSE 0262 00428000 * DDRTER1=DDRTCE; /* NO, INDICATE DDR ERROR 0262 00429000 * @Y02BKCI*/ 00430000 B @RC00260 0262 00431000 @RF00260 MVI DDRTER1(DDRPTR),X'07' 0262 00432000 * RFY 0263 00433000 * COMPCODE UNRSTD; /* @Y02BKCI*/ 00434000 @RC00260 DS 0H 0264 00435000 * IF DERCRASH='0'B THEN /* DOES A SDWA EXIST ? */ 00436000 TM DERCRASH(DERPTR),B'10000000' 0264 00437000 BNZ @RF00264 0264 00438000 * DO; /* YES - A SDWA DOES EXIST */ 00439000 * IF DDRRTENQ='1'B&DERTAPE='1'B THEN/* DOES THE MODULE 0266 00440000 * EXPERIENCING THE ERROR OWNS A 00441000 * TAPE RESOURCE? */ 00442000 * 0266 00443000 TM DDRRTENQ(DDRPTR),B'10000000' 0266 00444000 BNO @RF00266 0266 00445000 TM DERTAPE(DERPTR),B'10000000' 0266 00446000 BNO @RF00266 0266 00447000 * /***********************************************************/ 00448000 * /* */ 00449000 * /* DEQ A TAPE */ 00450000 * /* */ 00451000 * /***********************************************************/ 00452000 * 0267 00453000 * DO; /* YES - A TAPE */ 00454000 * DO; /* DEQ (QNAME,RNAMETU,,SYSTEM) 0268 00455000 * RET(HAVE) 0268 00456000 * MF(E,MFELIS,COMPLETE) */ 00457000 * RFY 0269 00458000 * GPR01F RESTRICTED; 0269 00459000 * MFELIS(1:20)=MFELIS(1:20)&&MFELIS(1:20); 0270 00460000 LA @15,404 0270 00461000 ALR @15,SDWAPTR 0270 00462000 XC MFELIS(20,@15),MFELIS(@15) 0270 00463000 * MFELIS04(1)=LENGTH(RNAMETU);/* SET RNAME LENGTH */ 00464000 MVI MFELIS04(@15),X'07' 0271 00465000 * MFELIS05(1)=MFELIS05(1)|'01000001'B;/* TURN ON OPTIONS */ 00466000 OI MFELIS05(@15),B'01000001' 0272 00467000 * MFELIS06(1)=ADDR(QNAME); 0273 00468000 LA @09,QNAME 0273 00469000 ST @09,MFELIS06(,@15) 0273 00470000 * MFELIS07(1)=ADDR(RNAMETU); 0274 00471000 LA @09,RNAMETU 0274 00472000 ST @09,MFELIS07(,@15) 0274 00473000 * MFELIS03(1,1:2)='11'B;/* SET END OF LIST BITS */ 00474000 OI MFELIS03(@15),B'11000000' 0275 00475000 * GPR01F=ADDR(MFELIS02); 0276 00476000 LA GPR01F,MFELIS02(,@15) 0276 00477000 * SVC(48); 0277 00478000 SVC 48 0277 00479000 * RFY 0278 00480000 * GPR01F UNRESTRICTED; 0278 00481000 * END; /* DEQ (QNAME,RNAMETU,,SYSTEM) 0279 00482000 * RET(HAVE) 0279 00483000 * MF(E,MFELIS,COMPLETE) */ 00484000 * DDRRTENQ='0'B; /* CLEAR TAPE ENQ INDICATOR */ 00485000 NI DDRRTENQ(DDRPTR),B'01111111' 0280 00486000 * CALL E1IOSGEN; /* CHECK FOR UCB BITS LEFT ON 0281 00487000 * @OZ13168*/ 00488000 BAL @14,E1IOSGEN 0281 00489000 * RESPECIFY 0282 00490000 * (OLDVAL, 0282 00491000 * NEWVAL) RSTD; 0282 00492000 * OLDVAL=CSDTCNT; /* OBTAIN DSS COUNT */ 00493000 L @15,CVTPTR 0283 00494000 L @15,CVTCSD(,@15) 0283 00495000 L OLDVAL,CSDTCNT(,@15) 0283 00496000 *DELOOPT: 0284 00497000 * NEWVAL=MAX(OLDVAL-1,0); /* ZERO OR DECREMENT COUNT */ 00498000 DELOOPT LR NEWVAL,OLDVAL 0284 00499000 BCTR NEWVAL,0 0284 00500000 SLR @15,@15 0284 00501000 CR NEWVAL,@15 0284 00502000 BNL *+6 00503000 LR NEWVAL,@15 0284 00504000 * CS(OLDVAL,NEWVAL,CSDTCNT);/* IF OLD=CSD COUNT THEN STORE 00505000 * NEW VALUE INTO COUNT */ 00506000 L @15,CVTPTR 0285 00507000 L @15,CVTCSD(,@15) 0285 00508000 CS OLDVAL,@05,CSDTCNT(@15) 0285 00509000 * BC(7,DELOOPT); /* IF OLD^=CSD COUNT THEN LOOP */ 00510000 BC 7,DELOOPT 0286 00511000 * RESPECIFY 0287 00512000 * (OLDVAL, 0287 00513000 * NEWVAL) UNRSTD; 0287 00514000 * 0287 00515000 */* TAPE RESOURCE IS FREED */ 00516000 * 0288 00517000 * END; 0288 00518000 * ELSE 0289 00519000 * ; /* DOES NOT OWN A TAPE RESOURCE */ 00520000 @RF00266 DS 0H 0290 00521000 * IF DDRRDENQ='1'B&DERDISK='1'B THEN/* DOES THE MODULE 0290 00522000 * EXPERIENCING THE ERROR OWNS A 00523000 * DISK RESOURCE ? */ 00524000 * 0290 00525000 TM DDRRDENQ(DDRPTR),B'00100000' 0290 00526000 BNO @RF00290 0290 00527000 TM DERDISK(DERPTR),B'00100000' 0290 00528000 BNO @RF00290 0290 00529000 * /***********************************************************/ 00530000 * /* */ 00531000 * /* DEQ A DISK */ 00532000 * /* */ 00533000 * /***********************************************************/ 00534000 * 0291 00535000 * DO; /* YES - A DISK */ 00536000 * DO; /* DEQ (QNAME,RNAMED,,SYSTEM) 0292 00537000 * RET(HAVE) 0292 00538000 * MF(E,MFELIS,COMPLETE) */ 00539000 * RFY 0293 00540000 * GPR01F RESTRICTED; 0293 00541000 * MFELIS(1:20)=MFELIS(1:20)&&MFELIS(1:20); 0294 00542000 LA @15,404 0294 00543000 ALR @15,SDWAPTR 0294 00544000 XC MFELIS(20,@15),MFELIS(@15) 0294 00545000 * MFELIS04(1)=LENGTH(RNAMED);/* SET RNAME LENGTH */ 00546000 MVI MFELIS04(@15),X'05' 0295 00547000 * MFELIS05(1)=MFELIS05(1)|'01000001'B;/* TURN ON OPTIONS */ 00548000 OI MFELIS05(@15),B'01000001' 0296 00549000 * MFELIS06(1)=ADDR(QNAME); 0297 00550000 LA @09,QNAME 0297 00551000 ST @09,MFELIS06(,@15) 0297 00552000 * MFELIS07(1)=ADDR(RNAMED); 0298 00553000 LA @09,RNAMED 0298 00554000 ST @09,MFELIS07(,@15) 0298 00555000 * MFELIS03(1,1:2)='11'B;/* SET END OF LIST BITS */ 00556000 OI MFELIS03(@15),B'11000000' 0299 00557000 * GPR01F=ADDR(MFELIS02); 0300 00558000 LA GPR01F,MFELIS02(,@15) 0300 00559000 * SVC(48); 0301 00560000 SVC 48 0301 00561000 * RFY 0302 00562000 * GPR01F UNRESTRICTED; 0302 00563000 * END; /* DEQ (QNAME,RNAMED,,SYSTEM) 0303 00564000 * RET(HAVE) 0303 00565000 * MF(E,MFELIS,COMPLETE) */ 00566000 * DDRRDENQ='0'B; /* CLEAR TAPE ENQ INDICATOR */ 00567000 NI DDRRDENQ(DDRPTR),B'11011111' 0304 00568000 * CALL E1IOSGEN; /* CHECK FOR UCB BITS LEFT ON 0305 00569000 * @OZ13168*/ 00570000 BAL @14,E1IOSGEN 0305 00571000 * END; 0306 00572000 * ELSE 0307 00573000 * ; /* DOES NOT OWN A TAPE RESOURCE */ 00574000 @RF00290 DS 0H 0308 00575000 * IF DDRRUENQ='1'B&DERUREC='1'B THEN/* DOES THE MODULE 0308 00576000 * EXPERIENCING THE ERROR OWNS A 00577000 * UNIT RECORD RESOURCE? */ 00578000 * 0308 00579000 TM DDRRUENQ(DDRPTR),B'01000000' 0308 00580000 BNO @RF00308 0308 00581000 TM DERUREC(DERPTR),B'01000000' 0308 00582000 BNO @RF00308 0308 00583000 * /***********************************************************/ 00584000 * /* */ 00585000 * /* DEQ A UNIT RECORD */ 00586000 * /* */ 00587000 * /***********************************************************/ 00588000 * 0309 00589000 * DO; /* YES - A UNIT RECORD */ 00590000 * DO; /* DEQ (QNAME,RNAMETU,,SYSTEM) 0310 00591000 * RET(HAVE) 0310 00592000 * MF(E,MFELIS,COMPLETE) */ 00593000 * RFY 0311 00594000 * GPR01F RESTRICTED; 0311 00595000 * MFELIS(1:20)=MFELIS(1:20)&&MFELIS(1:20); 0312 00596000 LA @15,404 0312 00597000 ALR @15,SDWAPTR 0312 00598000 XC MFELIS(20,@15),MFELIS(@15) 0312 00599000 * MFELIS04(1)=LENGTH(RNAMETU);/* SET RNAME LENGTH */ 00600000 MVI MFELIS04(@15),X'07' 0313 00601000 * MFELIS05(1)=MFELIS05(1)|'01000001'B;/* TURN ON OPTIONS */ 00602000 OI MFELIS05(@15),B'01000001' 0314 00603000 * MFELIS06(1)=ADDR(QNAME); 0315 00604000 LA @09,QNAME 0315 00605000 ST @09,MFELIS06(,@15) 0315 00606000 * MFELIS07(1)=ADDR(RNAMETU); 0316 00607000 LA @09,RNAMETU 0316 00608000 ST @09,MFELIS07(,@15) 0316 00609000 * MFELIS03(1,1:2)='11'B;/* SET END OF LIST BITS */ 00610000 OI MFELIS03(@15),B'11000000' 0317 00611000 * GPR01F=ADDR(MFELIS02); 0318 00612000 LA GPR01F,MFELIS02(,@15) 0318 00613000 * SVC(48); 0319 00614000 SVC 48 0319 00615000 * RFY 0320 00616000 * GPR01F UNRESTRICTED; 0320 00617000 * END; /* DEQ (QNAME,RNAMETU,,SYSTEM) 0321 00618000 * RET(HAVE) 0321 00619000 * MF(E,MFELIS,COMPLETE) */ 00620000 * DDRRUENQ='0'B; /* CLEAR UNIT RECORD ENQ 0322 00621000 * INDICATOR */ 00622000 NI DDRRUENQ(DDRPTR),B'10111111' 0322 00623000 * RESPECIFY 0323 00624000 * (OLDVAL, 0323 00625000 * NEWVAL) RSTD; 0323 00626000 * OLDVAL=CSDUCNT; /* OBTAIN DSS COUNT */ 00627000 L @15,CVTPTR 0324 00628000 L @15,CVTCSD(,@15) 0324 00629000 L OLDVAL,CSDUCNT(,@15) 0324 00630000 *DELOOPU: 0325 00631000 * ; 0325 00632000 DELOOPU DS 0H 0326 00633000 * NEWVAL=MAX(OLDVAL-1,0); /* ZERO OR DECREMENT COUNT */ 00634000 LR NEWVAL,OLDVAL 0326 00635000 BCTR NEWVAL,0 0326 00636000 SLR @15,@15 0326 00637000 CR NEWVAL,@15 0326 00638000 BNL *+6 00639000 LR NEWVAL,@15 0326 00640000 * CS(OLDVAL,NEWVAL,CSDUCNT);/* IF OLD=CSD COUNT THEN STORE 00641000 * NEW VALUE INTO COUNT */ 00642000 L @15,CVTPTR 0327 00643000 L @15,CVTCSD(,@15) 0327 00644000 CS OLDVAL,@05,CSDUCNT(@15) 0327 00645000 * BC(7,DELOOPU); /* IF OLD^=CSD COUNT THEN LOOP */ 00646000 BC 7,DELOOPU 0328 00647000 * RESPECIFY 0329 00648000 * (OLDVAL, 0329 00649000 * NEWVAL) UNRSTD; 0329 00650000 * 0329 00651000 */* UNIT RECORD RESOURCE IS FREED */ 00652000 * 0330 00653000 * END; 0330 00654000 * ELSE 0331 00655000 * ; /* DOES NOT OWN AN UNIT RECORD 0331 00656000 * RESOURCE */ 00657000 @RF00308 DS 0H 0332 00658000 * END; 0332 00659000 * ELSE 0333 00660000 * ; /* NO SDWA */ 00661000 @RF00264 DS 0H 0334 00662000 * R14=SAVE14A; /* RESTORE RETURN REGISTER 0334 00663000 * @ZA26259*/ 00664000 LR R14,SAVE14A 0334 00665000 * RESPECIFY 0335 00666000 * (R14, 0335 00667000 * SAVE14A) UNRESTRICTED; /* @ZA26259*/ 00668000 * RETURN; /* RETURN TO CALLER */ 00669000 @EL00002 DS 0H 0336 00670000 @EF00002 DS 0H 0336 00671000 @ER00002 BR @14 0336 00672000 * END DE1ALLOC; 0337 00673000 * 0337 00674000 */* ******************************************************************/ 00675000 */* */ 00676000 */* THIS SUBROUTINE WILL USE THE IOSGEN MACRO TO RESET */ 00677000 */* THE UCBQISCE OR UCBDDRSW BITS, IF LEFT ON DUE TO */ 00678000 */* ERROR TERMINATION OF DDR. */ 00679000 */* @OZ13168 */ 00680000 */* ******************************************************************/ 00681000 * 0338 00682000 *E1IOSGEN: 0338 00683000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0338 00684000 E1IOSGEN DS 0H 0339 00685000 * RESPECIFY 0339 00686000 * (GPR00F, 0339 00687000 * GPR01F, 0339 00688000 * SAVEPTR) RESTRICTED; 0339 00689000 * GEN(GETMAIN R,LV=64) ; 0340 00690000 GETMAIN R,LV=64 00691000 * RESPECIFY 0341 00692000 * R1 RESTRICTED; 0341 00693000 * RESPECIFY 0342 00694000 * DE1SAVE BASED(SAVEPTR); 0342 00695000 * SAVEPTR=R1; 0343 00696000 LR SAVEPTR,R1 0343 00697000 * UCBPTR=DDRFMUCB; /* CHECK FROM UCB FIRST @OZ13168*/ 00698000 L UCBPTR,DDRFMUCB(,DDRPTR) 0344 00699000 * IF UCBQISCE='1'B THEN /* IS THE DEVICE QUISCED? 0345 00700000 * @OZ13168*/ 00701000 TM UCBQISCE(UCBPTR),B'00000001' 0345 00702000 BNO @RF00345 0345 00703000 * DO; /* IF SO, CLEAR UCB QUISCE BIT 0346 00704000 * @OZ13168*/ 00705000 * GEN REFS(UCBFLA,UCBFLB,UCBFLC,CVTPTR,UCBPTR,UCBQISCE,CVTIXAVL, 00706000 * /* @ZA25427*/ 00707000 * CVTIXAVL,IOCGENA,UCBBGN,UCBCCWOF,UCB3TAPE,UCBDDRSW); 0347 00708000 IOSGEN UCBFLG,UCB=(UCBPTR),VAR=OFF,TABLE=UCBQISCE @ZA25427 00709000 * END; 0348 00710000 * ELSE 0349 00711000 * ; 0349 00712000 @RF00345 DS 0H 0350 00713000 * IF UCBDDRSW='1'B THEN /* IS THE DDR SWITCH ON @OZ13168*/ 00714000 TM UCBDDRSW(UCBPTR),B'00000001' 0350 00715000 BNO @RF00350 0350 00716000 * DO; /* IF SO, CLEAR UCBDDRSW BIT 0351 00717000 * @OZ13168*/ 00718000 * GEN REFS(UCBFLA,UCBFLB,UCBFLC,CVTPTR,UCBPTR,UCBQISCE,CVTIXAVL, 00719000 * /* @ZA25427*/ 00720000 * CVTIXAVL,IOCGENA,UCBBGN,UCBCCWOF,UCB3TAPE,UCBDDRSW); 0352 00721000 IOSGEN UCBFLG,UCB=(UCBPTR),VAR=OFF,TABLE=UCBDDRSW @ZA25427 00722000 * END; 0353 00723000 * ELSE 0354 00724000 * ; /* ELSE CONTINUE @OZ13168*/ 00725000 @RF00350 DS 0H 0355 00726000 * IF DDRFMUCB^=DDRTOUCB THEN /* IF FROM AND TO DEVICES */ 00727000 L @09,DDRTOUCB(,DDRPTR) 0355 00728000 C @09,DDRFMUCB(,DDRPTR) 0355 00729000 BE @RF00355 0355 00730000 * DO; /* ARE NOT THE SAME - DO @OZ13168*/ 00731000 * UCBPTR=DDRTOUCB; /* CHECK TO UCB FIRST @OZ13168*/ 00732000 LR UCBPTR,@09 0357 00733000 * IF UCBQISCE='1'B THEN /* IS THE DEVICE QUISCED? 0358 00734000 * @OZ13168*/ 00735000 TM UCBQISCE(UCBPTR),B'00000001' 0358 00736000 BNO @RF00358 0358 00737000 * DO; /* IF SO, CLEAR UCB QUISCE BIT 0359 00738000 * @OZ13168*/ 00739000 * GEN REFS(UCBFLA,UCBFLB,UCBFLC,CVTPTR,UCBPTR,UCBQISCE,/* 00740000 * @ZA25427*/ 00741000 * CVTIXAVL,IOCGENA,UCBBGN,UCBCCWOF,UCB3TAPE,UCBDDRSW); 00742000 IOSGEN UCBFLG,UCB=(UCBPTR),VAR=OFF,TABLE=UCBQISCE @ZA25427 00743000 * END; 0361 00744000 * ELSE 0362 00745000 * ; 0362 00746000 @RF00358 DS 0H 0363 00747000 * IF UCBDDRSW='1'B THEN /* IS THE DDR SWITCH ON @OZ13168*/ 00748000 TM UCBDDRSW(UCBPTR),B'00000001' 0363 00749000 BNO @RF00363 0363 00750000 * DO; /* IF SO, CLEAR UCBDDRSW BIT 0364 00751000 * @OZ13168*/ 00752000 * GEN REFS(UCBFLA,UCBFLB,UCBFLC,CVTPTR,UCBPTR,UCBQISCE,/* 00753000 * @ZA25427*/ 00754000 * CVTIXAVL,IOCGENA,UCBBGN,UCBCCWOF,UCB3TAPE,UCBDDRSW); 00755000 IOSGEN UCBFLG,UCB=(UCBPTR),VAR=OFF,TABLE=UCBDDRSW @ZA25427 00756000 * END; 0366 00757000 * END; 0367 00758000 * ELSE 0368 00759000 * ; 0368 00760000 @RF00355 DS 0H 0369 00761000 * RESPECIFY 0369 00762000 * (GPR00F, 0369 00763000 * GPR01F, 0369 00764000 * SAVEPTR) RESTRICTED; 0369 00765000 @RC00355 DS 0H 0370 00766000 * R1=SAVEPTR; 0370 00767000 LR R1,SAVEPTR 0370 00768000 * GEN(FREEMAIN R,LV=64,A=(1)) ; 0371 00769000 FREEMAIN R,LV=64,A=(1) 00770000 * RESPECIFY 0372 00771000 * (GPR00F, 0372 00772000 * GPR01F, 0372 00773000 * SAVEPTR, 0372 00774000 * R1) UNRESTRICTED; 0372 00775000 * RETURN; 0373 00776000 @EL00003 DS 0H 0373 00777000 @EF00003 DS 0H 0373 00778000 @ER00003 BR @14 0373 00779000 * END E1IOSGEN; 0374 00780000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00781000 * GPR00F FIXED(31) REG(0), 0375 00782000 * GPR01F FIXED(31) REG(1), 0375 00783000 * GPR00P PTR(31) REG(0), 0375 00784000 * GPR01P PTR(31) REG(1), 0375 00785000 * GPR14P PTR(31) REG(14), 0375 00786000 * GPR15P PTR(31) REG(15); 0375 00787000 * DECLARE /* COMMON VARIABLES */ 00788000 * I256C CHAR(256) BASED, 0376 00789000 * I031F FIXED(31) BASED, 0376 00790000 * I031P PTR(31) BASED, 0376 00791000 * I015F FIXED(15) BASED, 0376 00792000 * I015P PTR(15) BASED, 0376 00793000 * I008P PTR(8) BASED, 0376 00794000 * I001C CHAR(1) BASED; 0376 00795000 * END IGFDE1 0377 00796000 * 0377 00797000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00798000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00799000 */*%INCLUDE SYSLIB (CVT ) */ 00800000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00801000 */*%INCLUDE SYSLIB (IHACSD ) */ 00802000 */*%INCLUDE SYSLIB (IHADDR ) */ 00803000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00804000 */*%INCLUDE SYSLIB (IECDIOCM) */ 00805000 * 0377 00806000 * ; 0377 00807000 @DATA DS 0H 00808000 @DATD DSECT 00809000 DS 0F 00810000 IGFDE1 CSECT 00811000 DS 0F 00812000 @CF00108 DC F'2' 00813000 @CF02139 DC F'48' 00814000 @CF02111 DC XL4'007FB000' 00815000 @CF02135 DC XL4'00FFF000' 00816000 @CF01543 DC XL4'0C' 00817000 @DATD DSECT 00818000 DS 0D 00819000 IGFDE1 CSECT 00820000 NOPR ((@ENDDATD-@DATD)*16) 00821000 DS 0F 00822000 @SIZDATD DC AL1(0) 00823000 DC AL3(@ENDDATD-@DATD) 00824000 @CV02070 DC V(IGFDE0) 00825000 DS 0D 00826000 @CB02162 DC X'00' 00827000 QNAME DC CL8'SYSIEFSD' 00828000 RNAMETU DC CL7'DDRTPUR' 00829000 RNAMED DC CL5'DDRDA' 00830000 DS CL3 00831000 IGFDE1P DC 13F'0' 00832000 IGFDE1 CSECT 00833000 SDUMP1 SDUMP HDR='DYNAMIC DEVICE RECOVERY ERROR DUMP', XX00834000 SDATA=(SQA,PSA,RGN,LPA,TRT,CSA),MF=L 00835000 @DATD DSECT 00836000 @ENDDATD EQU * 00837000 IGFDE1 CSECT 00838000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00839000 @01 EQU 01 00840000 @02 EQU 02 00841000 @03 EQU 03 00842000 @04 EQU 04 00843000 @05 EQU 05 00844000 @06 EQU 06 00845000 @07 EQU 07 00846000 @08 EQU 08 00847000 @09 EQU 09 00848000 @10 EQU 10 00849000 @11 EQU 11 00850000 @12 EQU 12 00851000 @13 EQU 13 00852000 @14 EQU 14 00853000 @15 EQU 15 00854000 CODEBASE EQU @11 00855000 SDWAPTR EQU @07 00856000 DDRPTR EQU @10 00857000 UCBPTR EQU @12 00858000 DERPTR EQU @02 00859000 REG0 EQU @00 00860000 R1 EQU @01 00861000 SAVE14A EQU @03 00862000 OLDVAL EQU @04 00863000 STENDAD EQU @04 00864000 COMPCODE EQU @04 00865000 LISTAD EQU @05 00866000 NEWVAL EQU @05 00867000 SAVER14 EQU @06 00868000 ESOTBASE EQU @08 00869000 REG9 EQU @09 00870000 SAVEPTR EQU @13 00871000 R14 EQU @14 00872000 GPR01F EQU @01 00873000 GPR00F EQU @00 00874000 GPR00P EQU @00 00875000 GPR01P EQU @01 00876000 GPR14P EQU @14 00877000 GPR15P EQU @15 00878000 PSA EQU 0 00879000 FLCRNPSW EQU PSA 00880000 FLCROPSW EQU PSA+8 00881000 FLCICCW2 EQU PSA+16 00882000 FLCCVT EQU FLCICCW2 00883000 PSAEEPSW EQU PSA+132 00884000 PSAESPSW EQU PSA+136 00885000 FLCSVILC EQU PSAESPSW+1 00886000 PSAEPPSW EQU PSA+140 00887000 FLCPIILC EQU PSAEPPSW+1 00888000 FLCPICOD EQU PSAEPPSW+2 00889000 PSAPICOD EQU FLCPICOD+1 00890000 FLCTEA EQU PSAEPPSW+4 00891000 FLCPER EQU PSA+152 00892000 FLCMCLA EQU PSA+168 00893000 FLCIOEL EQU FLCMCLA+4 00894000 FLCIOA EQU FLCMCLA+16 00895000 FLCFSA EQU FLCMCLA+80 00896000 PSASUPER EQU PSA+552 00897000 PSASUP1 EQU PSASUPER 00898000 PSASUP2 EQU PSASUPER+1 00899000 PSASUP3 EQU PSASUPER+2 00900000 PSASUP4 EQU PSASUPER+3 00901000 PSACLHT EQU PSA+640 00902000 PSALKSA EQU PSA+696 00903000 PSAHLHI EQU PSA+760 00904000 PSADSSFL EQU PSA+836 00905000 PSADSSF1 EQU PSADSSFL 00906000 PSADSSF3 EQU PSADSSFL+2 00907000 PSADSSF4 EQU PSADSSFL+3 00908000 PSARSVT EQU PSA+896 00909000 CVTMAP EQU 0 00910000 CVTTCBP EQU CVTMAP 00911000 CVTDAR EQU CVTMAP+72 00912000 CVTFLGS1 EQU CVTDAR 00913000 CVTDCB EQU CVTMAP+116 00914000 CVTIOQET EQU CVTMAP+120 00915000 CVTIXAVL EQU CVTMAP+124 00916000 CVTIERLC EQU CVTMAP+144 00917000 CVTHEAD EQU CVTMAP+160 00918000 CVTSV76C EQU CVTHEAD 00919000 CVTOPTA EQU CVTMAP+182 00920000 CVTOPTB EQU CVTMAP+183 00921000 CVTGTF EQU CVTMAP+236 00922000 CVTGTFST EQU CVTGTF 00923000 CVTGTFS EQU CVTGTFST 00924000 CVTSTATE EQU CVTGTFST 00925000 CVTTMODE EQU CVTGTFST 00926000 CVTFORM EQU CVTGTFST 00927000 CVTAQAVT EQU CVTMAP+240 00928000 CVTTCMFG EQU CVTAQAVT 00929000 CVTVOLM2 EQU CVTMAP+244 00930000 CVTTATA EQU CVTVOLM2 00931000 CVTTSKS EQU CVTTATA 00932000 CVTVOLF2 EQU CVTTSKS 00933000 CVTTAT EQU CVTTATA+1 00934000 CVTATER EQU CVTMAP+248 00935000 CVTEXT1 EQU CVTMAP+252 00936000 CVTPURG EQU CVTMAP+260 00937000 CVTQMSG EQU CVTMAP+268 00938000 CVTDMSR EQU CVTMAP+272 00939000 CVTRSV37 EQU CVTDMSR 00940000 CVTDMSRF EQU CVTRSV37 00941000 CVTERPV EQU CVTMAP+316 00942000 CVTINTLA EQU CVTMAP+320 00943000 CVTAPF EQU CVTMAP+324 00944000 CVTEXT2 EQU CVTMAP+328 00945000 CVTHJES EQU CVTMAP+332 00946000 CVTPGSIA EQU CVTMAP+348 00947000 CVTA1F1 EQU CVTMAP+356 00948000 CVTSYSK EQU CVTMAP+357 00949000 CVTVOLM1 EQU CVTMAP+380 00950000 CVTVOLF1 EQU CVTVOLM1 00951000 CVTATMCT EQU CVTMAP+388 00952000 CVTXTNT1 EQU 0 00953000 CVTXTNT2 EQU 0 00954000 CVTDSSV EQU CVTXTNT2 00955000 CVTFLGBT EQU CVTXTNT2+5 00956000 CVTQID EQU CVTXTNT2+24 00957000 CVTRV400 EQU CVTXTNT2+52 00958000 CVTRV409 EQU CVTXTNT2+53 00959000 CVTATCVT EQU CVTXTNT2+64 00960000 CVTRV429 EQU CVTXTNT2+84 00961000 CVTRV438 EQU CVTXTNT2+85 00962000 CVTRV457 EQU CVTXTNT2+112 00963000 CVTRV466 EQU CVTXTNT2+113 00964000 CVTFIX EQU 0 00965000 CVTRELNO EQU CVTFIX+252 00966000 SDWA EQU 0 00967000 SDWAPARM EQU SDWA 00968000 SDWAFIOB EQU SDWA+4 00969000 SDWAABCC EQU SDWAFIOB 00970000 SDWACMPF EQU SDWAABCC 00971000 SDWAREQ EQU SDWACMPF 00972000 SDWACTL1 EQU SDWA+8 00973000 SDWACMKA EQU SDWACTL1 00974000 SDWAMWPA EQU SDWACTL1+1 00975000 SDWAPMKA EQU SDWACTL1+4 00976000 SDWACTL2 EQU SDWA+16 00977000 SDWACMKP EQU SDWACTL2 00978000 SDWAMWPP EQU SDWACTL2+1 00979000 SDWAPMKP EQU SDWACTL2+4 00980000 SDWAGRSV EQU SDWA+24 00981000 SDWANAME EQU SDWA+88 00982000 SDWAEC1 EQU SDWA+104 00983000 SDWAEMK1 EQU SDWAEC1 00984000 SDWAMWP1 EQU SDWAEC1+1 00985000 SDWAINT1 EQU SDWAEC1+2 00986000 SDWANXT1 EQU SDWAEC1+4 00987000 SDWAAEC1 EQU SDWA+112 00988000 SDWAILC1 EQU SDWAAEC1+1 00989000 SDWAINC1 EQU SDWAAEC1+2 00990000 SDWAICD1 EQU SDWAINC1+1 00991000 SDWAEC2 EQU SDWA+120 00992000 SDWAEMK2 EQU SDWAEC2 00993000 SDWAMWP2 EQU SDWAEC2+1 00994000 SDWAINT2 EQU SDWAEC2+2 00995000 SDWANXT2 EQU SDWAEC2+4 00996000 SDWAAEC2 EQU SDWA+128 00997000 SDWAILC2 EQU SDWAAEC2+1 00998000 SDWAINC2 EQU SDWAAEC2+2 00999000 SDWAICD2 EQU SDWAINC2+1 01000000 SDWASRSV EQU SDWA+136 01001000 SDWAIDNT EQU SDWA+200 01002000 SDWAMCH EQU SDWA+204 01003000 SDWASTCK EQU SDWAMCH 01004000 SDWAMCHI EQU SDWAMCH+8 01005000 SDWAMCHS EQU SDWAMCHI 01006000 SDWAMCHD EQU SDWAMCHI+1 01007000 SDWARSR1 EQU SDWAMCH+12 01008000 SDWARSR2 EQU SDWAMCH+13 01009000 SDWAFLGS EQU SDWA+232 01010000 SDWAERRA EQU SDWAFLGS 01011000 SDWAERRB EQU SDWAFLGS+1 01012000 SDWAERRC EQU SDWAFLGS+2 01013000 SDWAPERC EQU SDWAERRC 01014000 SDWAEAS EQU SDWAERRC 01015000 SDWAERRD EQU SDWAFLGS+3 01016000 SDWACLUP EQU SDWAERRD 01017000 SDWAIOFS EQU SDWA+238 01018000 SDWARTYA EQU SDWA+240 01019000 SDWACPUA EQU SDWA+248 01020000 SDWAPARQ EQU SDWA+252 01021000 SDWARCDE EQU SDWAPARQ 01022000 SDWAACF2 EQU SDWAPARQ+1 01023000 SDWARCRD EQU SDWAACF2 01024000 SDWAUPRG EQU SDWAACF2 01025000 SDWAACF3 EQU SDWAPARQ+2 01026000 SDWAACF4 EQU SDWAPARQ+3 01027000 SDWALKWA EQU SDWA+256 01028000 SDWALKWS EQU SDWALKWA 01029000 SDWARECP EQU SDWA+292 01030000 SDWASNPA EQU SDWA+320 01031000 SDWADUMP EQU SDWASNPA 01032000 SDWADPFS EQU SDWADUMP+1 01033000 SDWADDAT EQU SDWASNPA+4 01034000 SDWASDAT EQU SDWADDAT 01035000 SDWAPDAT EQU SDWADDAT+2 01036000 SDWADPSA EQU SDWA+328 01037000 SDWADPSL EQU SDWADPSA 01038000 SDWARA EQU SDWA+400 01039000 SDWADPVA EQU SDWARA+2 01040000 SDWAVRA EQU SDWARA+4 01041000 CSD EQU 0 01042000 CSDCPUAL EQU CSD+8 01043000 CSDSCWRD EQU CSD+12 01044000 CSDSCFL1 EQU CSDSCWRD 01045000 CSDSCFL2 EQU CSDSCWRD+1 01046000 CSDSCFL3 EQU CSDSCWRD+2 01047000 CSDSCFL4 EQU CSDSCWRD+3 01048000 CSDFLAGS EQU CSD+23 01049000 CSDTCNT EQU CSD+120 01050000 CSDUCNT EQU CSD+124 01051000 DDRCOM EQU 0 01052000 DDRSHORT EQU DDRCOM 01053000 DDRCNTRL EQU DDRSHORT+8 01054000 DDRSRC EQU DDRCNTRL 01055000 DDRSTAT EQU DDRCNTRL+1 01056000 DDRDCHAR EQU DDRCNTRL+2 01057000 DDRDSTAT EQU DDRDCHAR+1 01058000 DDRLONG EQU DDRCOM+24 01059000 DDRTOUCB EQU DDRLONG 01060000 DDRFMUCB EQU DDRLONG+4 01061000 DDRROWN EQU DDRLONG+8 01062000 DDRRTENQ EQU DDRROWN 01063000 DDRRUENQ EQU DDRROWN 01064000 DDRRDENQ EQU DDRROWN 01065000 DDRMIHT EQU DDRLONG+12 01066000 DDRTER EQU DDRLONG+36 01067000 DDRTER1 EQU DDRTER 01068000 DDRINV EQU DDRLONG+38 01069000 DDRAPP EQU DDRLONG+40 01070000 DDRIOF EQU DDRLONG+52 01071000 DDRIOF2 EQU DDRIOF+1 01072000 DDRMSG EQU DDRLONG+54 01073000 DDRMSGP EQU DDRLONG+56 01074000 DDRLABEL EQU DDRLONG+64 01075000 DDRRETRY EQU DDRLONG+65 01076000 DDRREC EQU DDRLONG+66 01077000 DDRREC2 EQU DDRREC+1 01078000 DDRUSER EQU DDRLONG+68 01079000 UCB EQU 0 01080000 UCBOB EQU 0 01081000 UCBJBNR EQU UCBOB 01082000 UCBFL5 EQU UCBOB+1 01083000 UCBAF EQU UCBFL5 01084000 UCBSTAT EQU UCBOB+3 01085000 UCBCHAN EQU UCBOB+4 01086000 UCBSFLS EQU UCBOB+6 01087000 UCBFLA EQU UCBSFLS 01088000 UCBFL1 EQU UCBFLA 01089000 UCBBSY EQU UCBFL1 01090000 UCBNRY EQU UCBFL1 01091000 UCBPST EQU UCBFL1 01092000 UCBCUB EQU UCBFL1 01093000 UCBQISCE EQU UCBFL1 01094000 UCBFLB EQU UCBSFLS+1 01095000 UCBCHM EQU UCBOB+8 01096000 UCBCHM1 EQU UCBCHM 01097000 UCBPTH0 EQU UCBCHM1 01098000 UCBPTH1 EQU UCBCHM1 01099000 UCBWGT EQU UCBOB+12 01100000 UCBTYP EQU UCBOB+16 01101000 UCBTBYT1 EQU UCBTYP 01102000 UCB1FEA5 EQU UCBTBYT1 01103000 UCB1FEA6 EQU UCBTBYT1 01104000 UCBTBYT2 EQU UCBTYP+1 01105000 UCB2OPT2 EQU UCBTBYT2 01106000 UCBDUDN1 EQU UCB2OPT2 01107000 UCB2OPT3 EQU UCBTBYT2 01108000 UCBDUDN2 EQU UCB2OPT3 01109000 UCB2OPT4 EQU UCBTBYT2 01110000 UCBRWTAU EQU UCB2OPT4 01111000 UCB2OPT6 EQU UCBTBYT2 01112000 UCB2OPT7 EQU UCBTBYT2 01113000 UCBTBYT3 EQU UCBTYP+2 01114000 UCBDVCLS EQU UCBTBYT3 01115000 UCB3TAPE EQU UCBDVCLS 01116000 UCBTBYT4 EQU UCBTYP+3 01117000 UCBEXTPT EQU UCBOB+20 01118000 UCBFLC EQU UCBEXTPT 01119000 UCBDDRSW EQU UCBFLC 01120000 UCBDEV EQU UCBOB+24 01121000 UCBCMEXT EQU 0 01122000 UCBATI EQU UCBCMEXT+3 01123000 @NM00087 EQU UCBATI 01124000 UCBFLP1 EQU UCBCMEXT+5 01125000 UCBCCWOF EQU UCBCMEXT+8 01126000 UCBMT EQU 0 01127000 UCBOCR EQU 0 01128000 UCB3540X EQU 0 01129000 UCBDKBYT EQU UCB3540X+6 01130000 UCB3800X EQU 0 01131000 UCBOPTNS EQU UCB3800X 01132000 UCBACTIV EQU UCB3800X+3 01133000 UCBMDRBF EQU UCB3800X+36 01134000 UCBUCS EQU 0 01135000 UCBUCSOP EQU UCBUCS+4 01136000 UCBFCBOP EQU UCBUCS+5 01137000 UCBBGN EQU 0 01138000 IOCOM EQU 0 01139000 IOCGENA EQU IOCOM+84 01140000 DERPLIST EQU 0 01141000 DERSWCHS EQU DERPLIST+1 01142000 DERCRASH EQU DERSWCHS 01143000 DERPERK EQU DERSWCHS 01144000 DERECALL EQU DERSWCHS 01145000 DERREC EQU DERPLIST+4 01146000 DERSPEC EQU DERPLIST+8 01147000 DERRETRY EQU DERPLIST+12 01148000 DERDATD EQU DERPLIST+16 01149000 DERDASPN EQU DERDATD 01150000 DERDALNG EQU DERDATD+1 01151000 DERRSRC EQU DERPLIST+20 01152000 DERTAPE EQU DERRSRC 01153000 DERUREC EQU DERRSRC 01154000 DERDISK EQU DERRSRC 01155000 DERLRC EQU DERPLIST+21 01156000 DERRUB EQU DERPLIST+22 01157000 DERRCODE EQU DERRUB+2 01158000 DERRDATA EQU DERRUB+6 01159000 DERRDDR EQU DERRUB+10 01160000 DERRSAVE EQU DERRUB+14 01161000 DERGMSPL EQU DERPLIST+40 01162000 DERGMSPN EQU DERGMSPL 01163000 DERGMLNG EQU DERGMSPL+1 01164000 DERGMADR EQU DERPLIST+44 01165000 NEWOLD EQU 0 01166000 CURASCB EQU NEWOLD+12 01167000 DUMFREAD EQU 0 01168000 RETRYA EQU 0 01169000 RECPARMA EQU 0 01170000 IGFDXXS EQU 0 01171000 MFELIS EQU 0 01172000 MFELIS02 EQU MFELIS+4 01173000 MFELIS03 EQU MFELIS02 01174000 MFELIS04 EQU MFELIS02+1 01175000 MFELIS05 EQU MFELIS02+2 01176000 MFELIS06 EQU MFELIS02+4 01177000 MFELIS07 EQU MFELIS02+8 01178000 DE1SAVE EQU 0 01179000 I256C EQU 0 01180000 I015F EQU 0 01181000 I001C EQU 0 01182000 I008P EQU 0 01183000 I015P EQU 0 01184000 I031F EQU 0 01185000 I031P EQU 0 01186000 PSARSVTE EQU PSARSVT 01187000 CVTPTR EQU FLCCVT 01188000 CVTS01 EQU CVTPGSIA 01189000 CVTLPDIA EQU CVTS01+12 01190000 CVTDIRST EQU CVTLPDIA 01191000 CVTSLIDA EQU CVTS01+24 01192000 CVTCTLFG EQU CVTS01+50 01193000 CVTCSD EQU CVTS01+312 01194000 CVTRV210 EQU CVTS01+424 01195000 CVTRV219 EQU CVTS01+425 01196000 CVTRV228 EQU CVTS01+426 01197000 CVTRV237 EQU CVTS01+427 01198000 CVTMFRTR EQU CVTS01+452 01199000 CVTRV262 EQU CVTS01+468 01200000 CVTRV271 EQU CVTS01+469 01201000 CVTRV280 EQU CVTS01+470 01202000 CVTRV289 EQU CVTS01+471 01203000 CVTGSDA EQU CVTS01+600 01204000 UCBOBS01 EQU UCBDEV 01205000 UCBSTAB EQU UCBOBS01+10 01206000 UCBBSVL EQU UCBSTAB 01207000 UCBPRSRS EQU UCBSTAB 01208000 UCBDMCT EQU UCBOBS01+11 01209000 UCBFL4 EQU UCBOBS01+13 01210000 UCBOBS02 EQU UCBDEV 01211000 UCBTFL1 EQU UCBOBS02+19 01212000 UCBXTN EQU UCBOBS02+20 01213000 UCBVOPT EQU UCBXTN 01214000 UCBOBS03 EQU UCBDEV 01215000 UCBXTADR EQU UCBOBS03 01216000 UCBOBS04 EQU UCBDEV 01217000 UCBBTA EQU UCBOBS04+12 01218000 UCBOBS06 EQU UCBDEV 01219000 UCBAOF EQU UCBOBS06 01220000 UCBAOF1 EQU UCBAOF 01221000 UCBAOF2 EQU UCBAOF+1 01222000 @NM00086 EQU UCBOBS06+3 01223000 UCBIRB EQU UCBOBS06+4 01224000 UCBGRAF EQU UCBIRB 01225000 UCBLDNCA EQU UCBOBS06+8 01226000 UCBRDYQ EQU UCBLDNCA 01227000 UCBIRLN EQU UCBRDYQ 01228000 UCBLDNCB EQU UCBRDYQ+1 01229000 UCBCTLNK EQU UCBOBS06+12 01230000 UCBOBS07 EQU UCBDEV 01231000 UCBOBS08 EQU UCBDEV 01232000 UCBCTCAD EQU UCBOBS08 01233000 UCBCTCF1 EQU UCBOBS08+4 01234000 UCBOBS09 EQU UCBDEV 01235000 IOCOMPTR EQU CVTIXAVL 01236000 @NM00093 EQU SDWAVRA 01237000 DUMPLIST EQU @NM00093 01238000 LOWAD EQU DUMPLIST 01239000 HIGHAD EQU DUMPLIST+4 01240000 HIGHAD0 EQU HIGHAD 01241000 MFELIST EQU @NM00093+8 01242000 FLC EQU PSA 01243000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01244000 UCBRV066 EQU UCBOBS09+4 01245000 UCBIOSBA EQU UCBOBS09 01246000 UCBRV042 EQU UCBOBS08+5 01247000 UCBRV082 EQU UCBCTCF1 01248000 UCBRV081 EQU UCBCTCF1 01249000 UCBRV080 EQU UCBCTCF1 01250000 UCBRV079 EQU UCBCTCF1 01251000 UCBRV078 EQU UCBCTCF1 01252000 UCBRV077 EQU UCBCTCF1 01253000 UCBRV076 EQU UCBCTCF1 01254000 UCBCTC80 EQU UCBCTCF1 01255000 UCBCTCAL EQU UCBCTCAD 01256000 UCBICNCB EQU UCBOBS07+4 01257000 UCBRV040 EQU UCBOBS07 01258000 UCBCTLNA EQU UCBCTLNK+1 01259000 UCBRLN EQU UCBCTLNK 01260000 UCBRDYQA EQU UCBLDNCB 01261000 UCBINRLN EQU UCBIRLN 01262000 UCBIRBA EQU UCBIRB+1 01263000 UCBRV039 EQU UCBGRAF 01264000 UCBDWNR EQU UCBGRAF 01265000 UCBRPND EQU UCBGRAF 01266000 UCBUPM EQU UCBGRAF 01267000 UCBBTAM EQU UCBGRAF 01268000 UCBDRNO EQU UCBGRAF 01269000 UCBDRO EQU UCBGRAF 01270000 UCBOIP EQU UCBGRAF 01271000 UCBATRCD EQU @NM00086 01272000 UCBSKPFG EQU @NM00086 01273000 UCBRIPND EQU @NM00086 01274000 UCBRTIAC EQU @NM00086 01275000 UCBRSV79 EQU @NM00086 01276000 UCBRSV78 EQU @NM00086 01277000 UCBRSV77 EQU @NM00086 01278000 UCBOLTEP EQU @NM00086 01279000 UCBATNCT EQU UCBOBS06+2 01280000 UCBRSV76 EQU UCBAOF2 01281000 UCBRSV75 EQU UCBAOF2 01282000 UCBRSV74 EQU UCBAOF2 01283000 UCBRSV73 EQU UCBAOF2 01284000 UCBRSV72 EQU UCBAOF2 01285000 UCBRSV71 EQU UCBAOF2 01286000 UCBRSV70 EQU UCBAOF2 01287000 UCBRSV69 EQU UCBAOF2 01288000 UCBRSV68 EQU UCBAOF1 01289000 UCBRSV67 EQU UCBAOF1 01290000 UCBRSV66 EQU UCBAOF1 01291000 UCBRSV65 EQU UCBAOF1 01292000 UCBRSV64 EQU UCBAOF1 01293000 UCBOFNL EQU UCBAOF1 01294000 UCBOFSP EQU UCBAOF1 01295000 UCBOFMCR EQU UCBAOF1 01296000 UCBBTB EQU UCBBTA+1 01297000 UCBDI EQU UCBBTA 01298000 UCBSNS EQU UCBOBS04+8 01299000 UCBTEB EQU UCBOBS04+4 01300000 UCBGCB EQU UCBOBS04+3 01301000 UCBOPEN EQU UCBOBS04+2 01302000 UCBSTART EQU UCBOBS04 01303000 UCBXTNB EQU UCBXTN+1 01304000 UCBRSV22 EQU UCBVOPT 01305000 UCBRSV21 EQU UCBVOPT 01306000 UCBRSV20 EQU UCBVOPT 01307000 UCBESVE EQU UCBVOPT 01308000 UCBERPC EQU UCBVOPT 01309000 UCBESVC EQU UCBVOPT 01310000 UCBEVA EQU UCBVOPT 01311000 UCBESV EQU UCBVOPT 01312000 UCBRV009 EQU UCBTFL1 01313000 UCBRV008 EQU UCBTFL1 01314000 UCBRV007 EQU UCBTFL1 01315000 UCBRV006 EQU UCBTFL1 01316000 UCBRV005 EQU UCBTFL1 01317000 UCBDQDSP EQU UCBTFL1 01318000 UCBNSLTP EQU UCBTFL1 01319000 UCBNLTP EQU UCBTFL1 01320000 UCBRES1B EQU UCBOBS02+18 01321000 UCBFSER EQU UCBOBS02+12 01322000 @NM00085 EQU UCBOBS02+4 01323000 UCBFSEQ EQU UCBOBS02+2 01324000 UCBFSCT EQU UCBOBS02 01325000 UCBNEXP EQU UCBOBS01+20 01326000 UCBBASE EQU UCBOBS01+16 01327000 UCBRES1A EQU UCBOBS01+15 01328000 UCBUSER EQU UCBOBS01+14 01329000 UCBFL47 EQU UCBFL4 01330000 UCBFL46 EQU UCBFL4 01331000 UCBFL45 EQU UCBFL4 01332000 UCBRV065 EQU UCBFL4 01333000 UCBDSS EQU UCBFL4 01334000 UCBRESVP EQU UCBFL4 01335000 UCBWDAV EQU UCBFL4 01336000 UCBDAVV EQU UCBFL4 01337000 UCBSQC EQU UCBOBS01+12 01338000 UCBDATP EQU UCBOBS01+12 01339000 UCBDMC EQU UCBDMCT 01340000 UCBMOUNT EQU UCBDMCT 01341000 UCBBNUL EQU UCBSTAB 01342000 UCBSHAR EQU UCBSTAB 01343000 UCBBSTR EQU UCBSTAB 01344000 UCBBPUB EQU UCBSTAB 01345000 UCBBPRV EQU UCBSTAB 01346000 UCBBALB EQU UCBPRSRS 01347000 UCBPGFL EQU UCBSTAB 01348000 UCBDVSHR EQU UCBBSVL 01349000 UCBVOLI EQU UCBOBS01+4 01350000 UCBVTOC EQU UCBOBS01 01351000 CVTRV628 EQU CVTS01+728 01352000 CVTRV627 EQU CVTS01+724 01353000 CVTRV626 EQU CVTS01+720 01354000 CVTRV625 EQU CVTS01+716 01355000 CVTRV624 EQU CVTS01+712 01356000 CVTRV623 EQU CVTS01+708 01357000 CVTRV622 EQU CVTS01+704 01358000 CVTRV621 EQU CVTS01+700 01359000 CVTIHASU EQU CVTS01+696 01360000 CVTRV619 EQU CVTS01+692 01361000 CVTRV618 EQU CVTS01+688 01362000 CVTRV617 EQU CVTS01+684 01363000 CVTRV616 EQU CVTS01+680 01364000 CVTRV615 EQU CVTS01+676 01365000 CVTRV614 EQU CVTS01+672 01366000 CVTRV613 EQU CVTS01+668 01367000 CVTTCASP EQU CVTS01+664 01368000 CVT0PT03 EQU CVTS01+660 01369000 CVT0PT0E EQU CVTS01+656 01370000 CVTRV609 EQU CVTS01+652 01371000 CVTCGK EQU CVTS01+648 01372000 CVTRAC EQU CVTS01+644 01373000 CVTHSM EQU CVTS01+640 01374000 CVTRV605 EQU CVTS01+636 01375000 CVTRV604 EQU CVTS01+632 01376000 CVTEFF02 EQU CVTS01+628 01377000 CVTCBBR EQU CVTS01+624 01378000 CVTSSCR EQU CVTS01+620 01379000 CVTEVENT EQU CVTS01+616 01380000 CVTCRCA EQU CVTS01+612 01381000 CVTTPIO EQU CVTS01+608 01382000 CVTADV EQU CVTS01+604 01383000 CVTGSDAB EQU CVTGSDA 01384000 CVTQV3 EQU CVTS01+596 01385000 CVTQV2 EQU CVTS01+592 01386000 CVTQV1 EQU CVTS01+588 01387000 CVTRPT EQU CVTS01+584 01388000 CVTSSRB EQU CVTS01+580 01389000 CVTCSDRL EQU CVTS01+576 01390000 CVTEXP1 EQU CVTS01+572 01391000 CVTRMPMT EQU CVTS01+568 01392000 CVTRMPTT EQU CVTS01+564 01393000 CVTVPSA EQU CVTS01+560 01394000 CVTVSTOP EQU CVTS01+556 01395000 CVTGTFR8 EQU CVTS01+552 01396000 CVTQUIT EQU CVTS01+548 01397000 CVTVACR EQU CVTS01+544 01398000 CVTWTCB EQU CVTS01+540 01399000 CVTSTPRS EQU CVTS01+536 01400000 CVT0PT02 EQU CVTS01+532 01401000 CVTDARCM EQU CVTS01+528 01402000 CVTIRECM EQU CVTS01+524 01403000 CVTJRECM EQU CVTS01+520 01404000 CVTVEMS0 EQU CVTS01+516 01405000 CVTSPFRR EQU CVTS01+512 01406000 CVTRLSTG EQU CVTS01+508 01407000 CVT0TC0A EQU CVTS01+504 01408000 CVTGMBR EQU CVTS01+500 01409000 CVTLFRM EQU CVTS01+496 01410000 CVTRMBR EQU CVTS01+492 01411000 CVTVIOP EQU CVTS01+488 01412000 CVTRV307 EQU CVTS01+486 01413000 CVTRV306 EQU CVTS01+484 01414000 CVTRV305 EQU CVTS01+482 01415000 CVTRV304 EQU CVTS01+480 01416000 CVTRV303 EQU CVTS01+478 01417000 CVTRV302 EQU CVTS01+476 01418000 CVTTRCA EQU CVTS01+472 01419000 CVTRV297 EQU CVTRV289 01420000 CVTRV296 EQU CVTRV289 01421000 CVTRV295 EQU CVTRV289 01422000 CVTRV294 EQU CVTRV289 01423000 CVTRV293 EQU CVTRV289 01424000 CVTRV292 EQU CVTRV289 01425000 CVTRV291 EQU CVTRV289 01426000 CVTRV290 EQU CVTRV289 01427000 CVTRV288 EQU CVTRV280 01428000 CVTRV287 EQU CVTRV280 01429000 CVTRV286 EQU CVTRV280 01430000 CVTRV285 EQU CVTRV280 01431000 CVTRV284 EQU CVTRV280 01432000 CVTRV283 EQU CVTRV280 01433000 CVTRV282 EQU CVTRV280 01434000 CVTRV281 EQU CVTRV280 01435000 CVTRV279 EQU CVTRV271 01436000 CVTRV278 EQU CVTRV271 01437000 CVTRV277 EQU CVTRV271 01438000 CVTRV276 EQU CVTRV271 01439000 CVTRV275 EQU CVTRV271 01440000 CVTRV274 EQU CVTRV271 01441000 CVTRV273 EQU CVTRV271 01442000 CVTRV272 EQU CVTRV271 01443000 CVTRV270 EQU CVTRV262 01444000 CVTRV269 EQU CVTRV262 01445000 CVTRV268 EQU CVTRV262 01446000 CVTRV267 EQU CVTRV262 01447000 CVTRV266 EQU CVTRV262 01448000 CVTRV265 EQU CVTRV262 01449000 CVTRV264 EQU CVTRV262 01450000 CVTRV263 EQU CVTRV262 01451000 CVTVFP EQU CVTS01+464 01452000 CVTVSI EQU CVTS01+460 01453000 CVTVPSIB EQU CVTS01+456 01454000 CVTMFACT EQU CVTMFRTR 01455000 CVTMFCTL EQU CVTS01+448 01456000 CVTPVBP EQU CVTS01+444 01457000 CVTPWI EQU CVTS01+440 01458000 CVTRV254 EQU CVTS01+438 01459000 CVTRV253 EQU CVTS01+436 01460000 CVTRV252 EQU CVTS01+434 01461000 CVTRV251 EQU CVTS01+433 01462000 CVTRV250 EQU CVTS01+432 01463000 CVTRV249 EQU CVTS01+431 01464000 CVTRV248 EQU CVTS01+430 01465000 CVTRV247 EQU CVTS01+429 01466000 CVTRV246 EQU CVTS01+428 01467000 CVTRV245 EQU CVTRV237 01468000 CVTRV244 EQU CVTRV237 01469000 CVTRV243 EQU CVTRV237 01470000 CVTRV242 EQU CVTRV237 01471000 CVTRV241 EQU CVTRV237 01472000 CVTRV240 EQU CVTRV237 01473000 CVTRV239 EQU CVTRV237 01474000 CVTRV238 EQU CVTRV237 01475000 CVTRV236 EQU CVTRV228 01476000 CVTRV235 EQU CVTRV228 01477000 CVTRV234 EQU CVTRV228 01478000 CVTRV233 EQU CVTRV228 01479000 CVTRV232 EQU CVTRV228 01480000 CVTRV231 EQU CVTRV228 01481000 CVTRV230 EQU CVTRV228 01482000 CVTRV229 EQU CVTRV228 01483000 CVTRV227 EQU CVTRV219 01484000 CVTRV226 EQU CVTRV219 01485000 CVTRV225 EQU CVTRV219 01486000 CVTRV224 EQU CVTRV219 01487000 CVTRV223 EQU CVTRV219 01488000 CVTRV222 EQU CVTRV219 01489000 CVTRV221 EQU CVTRV219 01490000 CVTRV220 EQU CVTRV219 01491000 CVTRV218 EQU CVTRV210 01492000 CVTRV217 EQU CVTRV210 01493000 CVTRV216 EQU CVTRV210 01494000 CVTRV215 EQU CVTRV210 01495000 CVTRV214 EQU CVTRV210 01496000 CVTRV213 EQU CVTRV210 01497000 CVTRV212 EQU CVTRV210 01498000 CVTRV211 EQU CVTRV210 01499000 CVTLCCAT EQU CVTS01+420 01500000 CVTPCCAT EQU CVTS01+416 01501000 CVTIPCRP EQU CVTS01+412 01502000 CVTIPCRI EQU CVTS01+408 01503000 CVTIPCDS EQU CVTS01+404 01504000 CVTAIDVT EQU CVTS01+400 01505000 CVTSSAP EQU CVTS01+396 01506000 CVTEHCIR EQU CVTS01+392 01507000 CVTEHDEF EQU CVTS01+388 01508000 CVTDAIR EQU CVTS01+384 01509000 CVTPERFM EQU CVTS01+380 01510000 CVT044R2 EQU CVTS01+376 01511000 CVTFETCH EQU CVTS01+372 01512000 CVTRSTWD EQU CVTS01+368 01513000 CVTSPOST EQU CVTS01+364 01514000 CVTIOBP EQU CVTS01+360 01515000 CVTASMVT EQU CVTS01+356 01516000 CVTRECRQ EQU CVTS01+352 01517000 CVTWSAC EQU CVTS01+348 01518000 CVTRV149 EQU CVTS01+344 01519000 CVTWSAL EQU CVTS01+340 01520000 CVTSPSA EQU CVTS01+336 01521000 CVTGLMN EQU CVTS01+332 01522000 CVTVEAC0 EQU CVTS01+328 01523000 CVT062R1 EQU CVTS01+324 01524000 CVTRPOST EQU CVTS01+320 01525000 CVTDQIQE EQU CVTS01+316 01526000 CVTLKRMA EQU CVTS01+308 01527000 CVTRSPIE EQU CVTS01+304 01528000 CVTRENQ EQU CVTS01+300 01529000 CVTLQCB EQU CVTS01+296 01530000 CVTFQCB EQU CVTS01+292 01531000 CVTQCS01 EQU CVTS01+288 01532000 CVTAPFT EQU CVTS01+284 01533000 CVTPARRL EQU CVTS01+280 01534000 CVTVWAIT EQU CVTS01+276 01535000 CVTGSPL EQU CVTS01+272 01536000 CVTLSMQ EQU CVTS01+268 01537000 CVTGSMQ EQU CVTS01+264 01538000 CVTEXPRO EQU CVTS01+260 01539000 CVTOPCTP EQU CVTS01+256 01540000 CVTSIC EQU CVTS01+252 01541000 CVTTPIOS EQU CVTS01+248 01542000 CVTRTMS EQU CVTS01+244 01543000 CVTSDBF EQU CVTS01+240 01544000 CVTSCBP EQU CVTS01+236 01545000 CVTSDMP EQU CVTS01+232 01546000 CVTSV60 EQU CVTS01+228 01547000 CVTRTMCT EQU CVTS01+224 01548000 CVTASCBL EQU CVTS01+220 01549000 CVTASCBH EQU CVTS01+216 01550000 CVTGDA EQU CVTS01+212 01551000 CVTASVT EQU CVTS01+208 01552000 CVTVVMDI EQU CVTS01+204 01553000 CVTAQTOP EQU CVTS01+200 01554000 CVTIOSCS EQU CVTS01+196 01555000 CVTSDRM EQU CVTS01+192 01556000 CVTOPTE EQU CVTS01+188 01557000 CVTSTXU EQU CVTS01+184 01558000 CVTQUIS EQU CVTS01+180 01559000 CVTPARS EQU CVTS01+176 01560000 CVTS1EE EQU CVTS01+172 01561000 CVTFRAS EQU CVTS01+168 01562000 CVTQSAS EQU CVTS01+164 01563000 CVTCRAS EQU CVTS01+160 01564000 CVTCRMN EQU CVTS01+156 01565000 CVTDELCP EQU CVTS01+152 01566000 CVTFRECL EQU CVTS01+148 01567000 CVTGETCL EQU CVTS01+144 01568000 CVTBLDCP EQU CVTS01+140 01569000 CVTAUTHL EQU CVTS01+136 01570000 CVTSCAN EQU CVTS01+132 01571000 CVTRV144 EQU CVTS01+130 01572000 CVTMAXMP EQU CVTS01+128 01573000 CVTSTCK EQU CVTS01+124 01574000 CVTRV139 EQU CVTS01+123 01575000 CVTDSSAC EQU CVTS01+122 01576000 CVTRV513 EQU CVTS01+121 01577000 CVTIOSPL EQU CVTS01+120 01578000 CVTPTGT EQU CVTS01+116 01579000 CVTCSPIE EQU CVTS01+112 01580000 CVTSMFEX EQU CVTS01+108 01581000 CVTOLT0A EQU CVTS01+104 01582000 CVTSRBRT EQU CVTS01+100 01583000 CVTPUTL EQU CVTS01+96 01584000 CVTASCRL EQU CVTS01+92 01585000 CVTASCRF EQU CVTS01+88 01586000 CVTRV326 EQU CVTS01+84 01587000 CVTRV325 EQU CVTS01+80 01588000 CVTRV324 EQU CVTS01+76 01589000 CVT0VL01 EQU CVTS01+72 01590000 CVTSHRVM EQU CVTS01+68 01591000 CVTRV332 EQU CVTS01+64 01592000 CVTTAS EQU CVTS01+60 01593000 CVTRSCN EQU CVTS01+56 01594000 CVTTRAC2 EQU CVTS01+54 01595000 CVTTRACE EQU CVTS01+52 01596000 CVTAPG EQU CVTS01+51 01597000 CVTSDTRC EQU CVTCTLFG 01598000 CVTGTRCE EQU CVTCTLFG 01599000 CVTNOMP EQU CVTCTLFG 01600000 CVTRSV79 EQU CVTCTLFG 01601000 CVTDSTAT EQU CVTCTLFG 01602000 CVTRSV78 EQU CVTCTLFG 01603000 CVTRV333 EQU CVTCTLFG 01604000 CVTRV323 EQU CVTCTLFG 01605000 CVTSPVLK EQU CVTS01+49 01606000 CVTRSV77 EQU CVTS01+48 01607000 CVTRV331 EQU CVTS01+44 01608000 CVTRV330 EQU CVTS01+40 01609000 CVTRV329 EQU CVTS01+36 01610000 CVTRV328 EQU CVTS01+32 01611000 CVTRV322 EQU CVTS01+28 01612000 CVTSLID EQU CVTSLIDA+1 01613000 CVTSYLK EQU CVTSLIDA 01614000 CVTRV321 EQU CVTS01+20 01615000 CVTRV320 EQU CVTS01+16 01616000 CVTLPDIR EQU CVTLPDIA+1 01617000 CVTRSV69 EQU CVTDIRST 01618000 CVTRSV68 EQU CVTDIRST 01619000 CVTRSV67 EQU CVTDIRST 01620000 CVTRSV66 EQU CVTDIRST 01621000 CVTRSV65 EQU CVTDIRST 01622000 CVTRSV64 EQU CVTDIRST 01623000 CVTRSV63 EQU CVTDIRST 01624000 CVTDICOM EQU CVTDIRST 01625000 CVTPVTP EQU CVTS01+8 01626000 CVTLPDSR EQU CVTS01+4 01627000 CVTGETL EQU CVTS01 01628000 PSARSAV EQU PSARSVTE+60 01629000 PSARSTK EQU PSARSVTE+56 01630000 PSAESAV3 EQU PSARSVTE+52 01631000 PSAESTK3 EQU PSARSVTE+48 01632000 PSAESAV2 EQU PSARSVTE+44 01633000 PSAESTK2 EQU PSARSVTE+40 01634000 PSAESAV1 EQU PSARSVTE+36 01635000 PSAESTK1 EQU PSARSVTE+32 01636000 PSAPSAV EQU PSARSVTE+28 01637000 PSAPSTK EQU PSARSVTE+24 01638000 PSAMSAV EQU PSARSVTE+20 01639000 PSAMSTK EQU PSARSVTE+16 01640000 PSASSAV EQU PSARSVTE+12 01641000 PSASSTK EQU PSARSVTE+8 01642000 PSANSTK EQU PSARSVTE+4 01643000 PSACSTK EQU PSARSVTE 01644000 MFELIS08 EQU MFELIS+16 01645000 @NM00097 EQU MFELIS02+3 01646000 MFELIS01 EQU MFELIS 01647000 @NM00096 EQU NEWOLD+8 01648000 @NM00095 EQU NEWOLD+4 01649000 @NM00094 EQU NEWOLD 01650000 DERPFX EQU DERRUB 01651000 @NM00092 EQU DERRSRC 01652000 @NM00091 EQU DERPLIST+2 01653000 @NM00090 EQU DERSWCHS 01654000 DERESTAE EQU DERSWCHS 01655000 DERFUNK EQU DERPLIST 01656000 IOCOEND EQU IOCOM+128 01657000 IOCPATCH EQU IOCOM+124 01658000 IOCUCBBM EQU IOCOM+120 01659000 IOCQCNT EQU IOCOM+116 01660000 IOCIOSDQ EQU IOCOM+112 01661000 IOCIOSEQ EQU IOCOM+108 01662000 IOCSVCF EQU IOCOM+104 01663000 IOCTCCW EQU IOCOM+100 01664000 IOCRSVTB EQU IOCOM+96 01665000 IOCMFCNT EQU IOCOM+92 01666000 IOCMFHK EQU IOCOM+88 01667000 IOCCCH EQU IOCOM+80 01668000 IOCASYNQ EQU IOCOM+76 01669000 IOCLCHTB EQU IOCOM+72 01670000 IOCATTBL EQU IOCOM+68 01671000 IOCOMEX EQU IOCOM+64 01672000 IOCSYNCH EQU IOCOM+56 01673000 IOCCATLK EQU IOCOM+48 01674000 IOCPRGID EQU IOCOM+44 01675000 IOCIOSCP EQU IOCOM+40 01676000 IOCORMGT EQU IOCOM+36 01677000 IOCVOID EQU IOCOM+32 01678000 IOCSTIO EQU IOCOM+28 01679000 @NM00089 EQU IOCOM+24 01680000 @NM00088 EQU IOCOM+20 01681000 IOCINT EQU IOCOM+16 01682000 IOCCTBL EQU IOCOM+12 01683000 IOCHIO EQU IOCOM+8 01684000 IOCPST EQU IOCOM+4 01685000 IOCPGCT EQU IOCOM+2 01686000 IOCVOICT EQU IOCOM 01687000 UCBERADR EQU UCBUCS+12 01688000 UCBFCBID EQU UCBUCS+8 01689000 UCBERCNT EQU UCBUCS+7 01690000 UCBRSV51 EQU UCBUCS+6 01691000 UCBFCBPE EQU UCBFCBOP 01692000 UCBRSV49 EQU UCBFCBOP 01693000 UCBRSV48 EQU UCBFCBOP 01694000 UCBRSV47 EQU UCBFCBOP 01695000 UCBRSV46 EQU UCBFCBOP 01696000 UCBRSV45 EQU UCBFCBOP 01697000 UCBRSV44 EQU UCBFCBOP 01698000 UCBFCBO1 EQU UCBFCBOP 01699000 UCBUCSPE EQU UCBUCSOP 01700000 UCBRSV43 EQU UCBUCSOP 01701000 UCBRSV42 EQU UCBUCSOP 01702000 UCBRSV41 EQU UCBUCSOP 01703000 UCBRSV40 EQU UCBUCSOP 01704000 UCBRSV39 EQU UCBUCSOP 01705000 UCBUCSO2 EQU UCBUCSOP 01706000 UCBUCSO1 EQU UCBUCSOP 01707000 UCBUCSID EQU UCBUCS 01708000 UCBMDRBA EQU UCBMDRBF+1 01709000 UCBRV075 EQU UCBMDRBF 01710000 UCBRV074 EQU UCB3800X+32 01711000 UCBIMAGE EQU UCB3800X+28 01712000 UCBFCBNM EQU UCB3800X+24 01713000 UCBCHAR4 EQU UCB3800X+20 01714000 UCBCHAR3 EQU UCB3800X+16 01715000 UCBCHAR2 EQU UCB3800X+12 01716000 UCBCHAR1 EQU UCB3800X+8 01717000 UCBCGMID EQU UCB3800X+4 01718000 UCBBRSTA EQU UCBACTIV 01719000 UCBRV063 EQU UCBACTIV 01720000 UCBRV062 EQU UCBACTIV 01721000 UCBRV061 EQU UCBACTIV 01722000 UCBRV060 EQU UCBACTIV 01723000 UCBRV059 EQU UCBACTIV 01724000 UCBRV058 EQU UCBACTIV 01725000 UCBRV057 EQU UCBACTIV 01726000 UCBRV050 EQU UCB3800X+2 01727000 UCBCGMNO EQU UCB3800X+1 01728000 UCBRV083 EQU UCBOPTNS 01729000 UCBBRSTR EQU UCBOPTNS 01730000 UCBRV056 EQU UCBOPTNS 01731000 UCBRV055 EQU UCBOPTNS 01732000 UCBRV054 EQU UCBOPTNS 01733000 UCBRV053 EQU UCBOPTNS 01734000 UCBRV052 EQU UCBOPTNS 01735000 UCBRV051 EQU UCBOPTNS 01736000 UCBRV073 EQU UCB3540X+7 01737000 UCBRV072 EQU UCBDKBYT 01738000 UCBRV071 EQU UCBDKBYT 01739000 UCBRV070 EQU UCBDKBYT 01740000 UCBRV069 EQU UCBDKBYT 01741000 UCBRV068 EQU UCBDKBYT 01742000 UCBRV067 EQU UCBDKBYT 01743000 UCBVLVER EQU UCBDKBYT 01744000 UCBDKAMX EQU UCBDKBYT 01745000 UCBVLSER EQU UCB3540X 01746000 UCBRDATA EQU UCBOCR+4 01747000 UCBFRID EQU UCBOCR 01748000 UCBCLN EQU UCBMT+14 01749000 UCBERG EQU UCBMT+12 01750000 UCBMS EQU UCBMT+11 01751000 UCBNB EQU UCBMT+10 01752000 UCBPW EQU UCBMT+9 01753000 UCBPR EQU UCBMT+8 01754000 UCBSIO EQU UCBMT+6 01755000 UCBTW EQU UCBMT+5 01756000 UCBTR EQU UCBMT+4 01757000 UCBTWT EQU UCBMT+3 01758000 UCBTRT EQU UCBMT+2 01759000 UCBCTD EQU UCBMT 01760000 UCBWTOID EQU UCBCMEXT+17 01761000 UCBRV043 EQU UCBCMEXT+16 01762000 UCBASID EQU UCBCMEXT+14 01763000 UCBMFCNT EQU UCBCMEXT+12 01764000 UCBPMSK EQU UCBCMEXT+10 01765000 UCBRV041 EQU UCBCMEXT+6 01766000 UCBRV036 EQU UCBFLP1 01767000 UCBRV035 EQU UCBFLP1 01768000 UCBERLOG EQU UCBFLP1 01769000 UCBRV033 EQU UCBFLP1 01770000 UCBINHIO EQU UCBFLP1 01771000 UCBNSWAP EQU UCBFLP1 01772000 UCBSHRUP EQU UCBFLP1 01773000 UCBNSRCH EQU UCBFLP1 01774000 UCBSNSCT EQU UCBCMEXT+4 01775000 UCBHPDV EQU @NM00087 01776000 UCBHALI EQU @NM00087 01777000 UCBRSV09 EQU @NM00087 01778000 UCBRSV08 EQU @NM00087 01779000 UCBRSV07 EQU @NM00087 01780000 UCBRSV06 EQU @NM00087 01781000 UCBRSV05 EQU @NM00087 01782000 UCBRSV04 EQU @NM00087 01783000 UCBDTI EQU UCBCMEXT+2 01784000 UCBSTI EQU UCBCMEXT+1 01785000 UCBETI EQU UCBCMEXT 01786000 UCBEXTP EQU UCBEXTPT+1 01787000 UCBTICBT EQU UCBFLC 01788000 UCBIVRR EQU UCBFLC 01789000 UCBIVRS EQU UCBFLC 01790000 UCBITF EQU UCBFLC 01791000 UCBUDE EQU UCBFLC 01792000 UCBWAA EQU UCBFLC 01793000 UCBATTP EQU UCBFLC 01794000 UCBUNTYP EQU UCBTBYT4 01795000 UCBRSV11 EQU UCBDVCLS 01796000 UCBRSV10 EQU UCBDVCLS 01797000 UCB3CHAR EQU UCBDVCLS 01798000 UCB3UREC EQU UCBDVCLS 01799000 UCB3DISP EQU UCBDVCLS 01800000 UCB3DACC EQU UCBDVCLS 01801000 UCB3COMM EQU UCBDVCLS 01802000 UCBDVPWR EQU UCB2OPT7 01803000 UCBVLPWR EQU UCB2OPT6 01804000 UCB2OPT5 EQU UCBTBYT2 01805000 UCBRVDEV EQU UCBRWTAU 01806000 UCBRPS EQU UCBDUDN2 01807000 UCBRR EQU UCBDUDN1 01808000 UCB2OPT1 EQU UCBTBYT2 01809000 UCB2OPT0 EQU UCBTBYT2 01810000 UCB1FEA7 EQU UCBTBYT1 01811000 UCBD6250 EQU UCB1FEA6 01812000 UCBD1600 EQU UCB1FEA5 01813000 UCB1FEA4 EQU UCBTBYT1 01814000 UCB1FEA3 EQU UCBTBYT1 01815000 UCB1FEA2 EQU UCBTBYT1 01816000 UCB1FEA1 EQU UCBTBYT1 01817000 UCB1FEA0 EQU UCBTBYT1 01818000 UCBNAME EQU UCBOB+13 01819000 UCBRV029 EQU UCBWGT 01820000 UCBVHRSN EQU UCBWGT 01821000 UCBVORSN EQU UCBWGT 01822000 UCBMTPXP EQU UCBWGT 01823000 UCBREW EQU UCBWGT 01824000 UCBPUB EQU UCBWGT 01825000 UCBOUT EQU UCBWGT 01826000 UCBIN EQU UCBWGT 01827000 UCBCPU EQU UCBOB+11 01828000 UCBLCI EQU UCBOB+10 01829000 UCBCNT EQU UCBOB+9 01830000 UCBRV017 EQU UCBCHM1 01831000 UCBRV016 EQU UCBCHM1 01832000 UCBRV015 EQU UCBCHM1 01833000 UCBRV014 EQU UCBCHM1 01834000 UCBSPB EQU UCBPTH1 01835000 UCBPPB EQU UCBPTH1 01836000 UCBSPA EQU UCBPTH0 01837000 UCBPPA EQU UCBPTH0 01838000 UCBSIGP EQU UCBFLB 01839000 UCBVALPH EQU UCBFLB 01840000 UCBCRHSN EQU UCBFLB 01841000 UCBCRHRV EQU UCBFLB 01842000 UCBRESVH EQU UCBFLB 01843000 UCBSPST EQU UCBFLB 01844000 UCBASNS EQU UCBFLB 01845000 UCBIORST EQU UCBFLB 01846000 UCBACTV EQU UCBFL1 01847000 UCBSAP EQU UCBFL1 01848000 UCBNOTRC EQU UCBCUB 01849000 UCBPSNS EQU UCBFL1 01850000 UCBUSING EQU UCBPST 01851000 UCBNOTRD EQU UCBNRY 01852000 UCBBUSYD EQU UCBBSY 01853000 UCBUA EQU UCBCHAN+1 01854000 UCBCHA EQU UCBCHAN 01855000 UCBDADI EQU UCBSTAT 01856000 UCBSYSR EQU UCBSTAT 01857000 UCBPRES EQU UCBSTAT 01858000 UCBALOC EQU UCBSTAT 01859000 UCBUNLD EQU UCBSTAT 01860000 UCBRESV EQU UCBSTAT 01861000 UCBCHGS EQU UCBSTAT 01862000 UCBONLI EQU UCBSTAT 01863000 UCBID EQU UCBOB+2 01864000 UCBALTPH EQU UCBFL5 01865000 UCBALTCU EQU UCBFL5 01866000 UCBNALOC EQU UCBFL5 01867000 UCBENVRD EQU UCBFL5 01868000 UCBVSDR EQU UCBFL5 01869000 UCBSASK EQU UCBFL5 01870000 UCBAMV EQU UCBAF 01871000 UCBDCC EQU UCBFL5 01872000 UCBMONT EQU UCBJBNR 01873000 UCBRV011 EQU UCBJBNR 01874000 UCBMMSGP EQU UCBJBNR 01875000 UCBOLDSM EQU UCBJBNR 01876000 UCBRV003 EQU UCBJBNR 01877000 UCBDUC EQU UCBJBNR 01878000 UCBJES3 EQU UCBJBNR 01879000 UCBVRDEV EQU UCBJBNR 01880000 UCBCMSEG EQU UCBOB 01881000 UCBPFXND EQU UCB+512 01882000 UCBIOQ EQU UCB+508 01883000 UCBLOCK EQU UCB+504 01884000 UCBPXST EQU UCB+504 01885000 @NM00084 EQU UCB 01886000 DDRSSOB EQU DDRLONG+76 01887000 DDRUBCNT EQU DDRLONG+72 01888000 @NM00083 EQU DDRUSER+1 01889000 DDRUMODE EQU DDRUSER 01890000 @NM00082 EQU DDRREC2 01891000 DDRRFMTO EQU DDRREC2 01892000 DDRREC1 EQU DDRREC 01893000 DDRLNOP EQU DDRLABEL 01894000 @NM00081 EQU DDRLABEL 01895000 DDRLSD EQU DDRLABEL 01896000 DDRLNSL EQU DDRLABEL 01897000 DDRLNL EQU DDRLABEL 01898000 DDRLBLP EQU DDRLABEL 01899000 DDRLAL EQU DDRLABEL 01900000 DDRMSGPC EQU DDRMSGP+1 01901000 DDRMSGPN EQU DDRMSGP 01902000 DDRMSGCD EQU DDRMSG+1 01903000 DDRMSGOP EQU DDRMSG 01904000 @NM00080 EQU DDRIOF2 01905000 DDRICNT EQU DDRIOF2 01906000 DDRIMNT EQU DDRIOF2 01907000 DDRILAB EQU DDRIOF2 01908000 DDRITAKE EQU DDRIOF2 01909000 DDRWHICH EQU DDRIOF2 01910000 DDRIOF1 EQU DDRIOF 01911000 DDRCOUNT EQU DDRLONG+48 01912000 DDRIBUF EQU DDRLONG+44 01913000 DDRIBUFL EQU DDRLONG+42 01914000 DDRAPP2 EQU DDRAPP+1 01915000 DDRAPP1 EQU DDRAPP 01916000 DDRINV2 EQU DDRINV+1 01917000 DDRINV1 EQU DDRINV 01918000 DDRTER2 EQU DDRTER+1 01919000 DDRTEST EQU DDRLONG+32 01920000 DDRUASCB EQU DDRLONG+28 01921000 DDRUTCB EQU DDRLONG+24 01922000 DDRUIOB EQU DDRLONG+20 01923000 DDRUDEB EQU DDRMIHT+4 01924000 DDRUDCB EQU DDRMIHT 01925000 DDRASID EQU DDRLONG+10 01926000 DDRMIH EQU DDRLONG+9 01927000 DDRFIRST EQU DDRROWN 01928000 DDRJES3L EQU DDRROWN 01929000 @NM00079 EQU DDRROWN 01930000 DDRTOCUA EQU DDRSHORT+21 01931000 DDRFMCUA EQU DDRSHORT+18 01932000 DDRUASID EQU DDRSHORT+16 01933000 DDRUIOSB EQU DDRSHORT+12 01934000 @NM00078 EQU DDRDSTAT 01935000 DDRUR EQU DDRDSTAT 01936000 DDRMT EQU DDRDSTAT 01937000 DDRDA EQU DDRDSTAT 01938000 DDRBUFL EQU DDRDSTAT 01939000 DDRMDR EQU DDRDCHAR 01940000 @NM00077 EQU DDRSTAT 01941000 DDRSIRB EQU DDRSTAT 01942000 DDRPRG EQU DDRSTAT 01943000 DDRRMV EQU DDRSTAT 01944000 DDRHAMA EQU DDRSTAT 01945000 DDRQUE EQU DDRSTAT 01946000 DDRACTV EQU DDRSTAT 01947000 @NM00076 EQU DDRSRC 01948000 DDRPAGE EQU DDRSRC 01949000 DDRSYS EQU DDRSRC 01950000 DDROPER EQU DDRSRC 01951000 DDRNXT EQU DDRSHORT+4 01952000 DDRID EQU DDRSHORT 01953000 @NM00075 EQU CSD+160 01954000 CSDMASK EQU CSD+128 01955000 CSDGDTOD EQU CSD+116 01956000 CSDGDINT EQU CSD+112 01957000 CSDGDCC EQU CSD+108 01958000 CSDDDRCT EQU CSD+106 01959000 CSDRV044 EQU CSD+104 01960000 CSDMAFF EQU CSD+24 01961000 CSDRV038 EQU CSDFLAGS 01962000 CSDRV037 EQU CSDFLAGS 01963000 CSDRV036 EQU CSDFLAGS 01964000 CSDRV035 EQU CSDFLAGS 01965000 CSDRV034 EQU CSDFLAGS 01966000 CSDRV033 EQU CSDFLAGS 01967000 CSDRV032 EQU CSDFLAGS 01968000 CSDMP EQU CSDFLAGS 01969000 CSDACR EQU CSD+22 01970000 CSDMF1CP EQU CSD+20 01971000 CSDRV043 EQU CSD+16 01972000 CSDRV030 EQU CSDSCFL4 01973000 CSDRV029 EQU CSDSCFL4 01974000 CSDRV028 EQU CSDSCFL4 01975000 CSDRV027 EQU CSDSCFL4 01976000 CSDRV026 EQU CSDSCFL4 01977000 CSDRV025 EQU CSDSCFL4 01978000 CSDRV024 EQU CSDSCFL4 01979000 CSDRV023 EQU CSDSCFL4 01980000 CSDRV022 EQU CSDSCFL3 01981000 CSDRV021 EQU CSDSCFL3 01982000 CSDRV020 EQU CSDSCFL3 01983000 CSDRV019 EQU CSDSCFL3 01984000 CSDRV018 EQU CSDSCFL3 01985000 CSDRV017 EQU CSDSCFL3 01986000 CSDRV016 EQU CSDSCFL3 01987000 CSDRV015 EQU CSDSCFL3 01988000 CSDRV014 EQU CSDSCFL2 01989000 CSDRV013 EQU CSDSCFL2 01990000 CSDRV012 EQU CSDSCFL2 01991000 CSDRV011 EQU CSDSCFL2 01992000 CSDRV010 EQU CSDSCFL2 01993000 CSDRV009 EQU CSDSCFL2 01994000 CSDRV008 EQU CSDSCFL2 01995000 CSDRV007 EQU CSDSCFL2 01996000 CSDRV006 EQU CSDSCFL1 01997000 CSDRV005 EQU CSDSCFL1 01998000 CSDRV004 EQU CSDSCFL1 01999000 CSDRV003 EQU CSDSCFL1 02000000 CSDRV002 EQU CSDSCFL1 02001000 CSDRV001 EQU CSDSCFL1 02002000 CSDSYSND EQU CSDSCFL1 02003000 CSDRV042 EQU CSDSCFL1 02004000 CSDCPUOL EQU CSD+10 02005000 CSDSAFF EQU CSDCPUAL 02006000 CSDCHAD EQU CSD+6 02007000 CSDCPUJS EQU CSD+4 02008000 CSDCSD EQU CSD 02009000 @NM00074 EQU SDWA+512 02010000 SDWAURAL EQU SDWARA+3 02011000 @NM00073 EQU SDWADPVA 02012000 SDWAEBC EQU SDWADPVA 02013000 SDWAHEX EQU SDWADPVA 02014000 SDWAVRAL EQU SDWARA 02015000 @NM00072 EQU SDWA+396 02016000 SDWACOMP EQU SDWA+392 02017000 SDWARCPL EQU SDWA+364 02018000 @NM00071 EQU SDWADPSA+32 02019000 SDWATO4 EQU SDWADPSL+28 02020000 SDWAFRM4 EQU SDWADPSL+24 02021000 SDWATO3 EQU SDWADPSL+20 02022000 SDWAFRM3 EQU SDWADPSL+16 02023000 SDWATO2 EQU SDWADPSL+12 02024000 SDWAFRM2 EQU SDWADPSL+8 02025000 SDWATO1 EQU SDWADPSL+4 02026000 SDWAFRM1 EQU SDWADPSL 02027000 @NM00070 EQU SDWADDAT+3 02028000 @NM00069 EQU SDWAPDAT 02029000 SDWAUSPL EQU SDWAPDAT 02030000 SDWADPSW EQU SDWAPDAT 02031000 SDWATJPA EQU SDWAPDAT 02032000 SDWATLPA EQU SDWAPDAT 02033000 SDWADREG EQU SDWAPDAT 02034000 SDWADSAH EQU SDWAPDAT 02035000 SDWADSAS EQU SDWAPDAT 02036000 @NM00068 EQU SDWADDAT+1 02037000 @NM00067 EQU SDWASDAT 02038000 SDWAQQS EQU SDWASDAT 02039000 SDWACBS EQU SDWASDAT 02040000 SDWAGTF EQU SDWASDAT 02041000 SDWASWA EQU SDWASDAT 02042000 SDWALSQA EQU SDWASDAT 02043000 SDWASQA EQU SDWASDAT 02044000 SDWANUC EQU SDWASDAT 02045000 @NM00066 EQU SDWADUMP+2 02046000 @NM00065 EQU SDWADPFS 02047000 SDWASLST EQU SDWADPFS 02048000 @NM00064 EQU SDWADPFS 02049000 SDWADLST EQU SDWADPFS 02050000 SDWADPT EQU SDWADPFS 02051000 SDWADPID EQU SDWADUMP 02052000 SDWADPLA EQU SDWA+316 02053000 SDWAREXN EQU SDWARECP+16 02054000 SDWACSCT EQU SDWARECP+8 02055000 SDWAMODN EQU SDWARECP 02056000 @NM00063 EQU SDWA+290 02057000 SDWAASID EQU SDWA+288 02058000 SDWATALW EQU SDWALKWS+28 02059000 SDWATDLW EQU SDWALKWS+24 02060000 SDWATNLW EQU SDWALKWS+20 02061000 SDWAAPLW EQU SDWALKWS+16 02062000 SDWAIPLW EQU SDWALKWS+12 02063000 SDWAILLW EQU SDWALKWS+8 02064000 SDWAIULW EQU SDWALKWS+4 02065000 SDWAICLW EQU SDWALKWS 02066000 SDWAFLLK EQU SDWAACF4 02067000 SDWACMS EQU SDWAACF4 02068000 SDWAOPTM EQU SDWAACF4 02069000 SDWATADB EQU SDWAACF4 02070000 SDWATDNB EQU SDWAACF4 02071000 SDWATNCB EQU SDWAACF4 02072000 SDWAILCH EQU SDWAACF4 02073000 SDWAIUCB EQU SDWAACF4 02074000 SDWAICAT EQU SDWAACF3 02075000 SDWAIPRG EQU SDWAACF3 02076000 SDWASALL EQU SDWAACF3 02077000 SDWAASMP EQU SDWAACF3 02078000 SDWADISP EQU SDWAACF3 02079000 @NM00062 EQU SDWAACF3 02080000 @NM00061 EQU SDWAACF2 02081000 SDWAFREE EQU SDWAACF2 02082000 @NM00060 EQU SDWAACF2 02083000 SDWASPIN EQU SDWAACF2 02084000 @NM00059 EQU SDWAACF2 02085000 SDWALCPU EQU SDWACPUA+2 02086000 @NM00058 EQU SDWACPUA 02087000 SDWARECA EQU SDWA+244 02088000 @NM00057 EQU SDWA+239 02089000 @NM00056 EQU SDWAIOFS 02090000 SDWANIOP EQU SDWAIOFS 02091000 SDWANOIO EQU SDWAIOFS 02092000 SDWAIOHT EQU SDWAIOFS 02093000 SDWAIOQR EQU SDWAIOFS 02094000 SDWAFMID EQU SDWA+236 02095000 @NM00055 EQU SDWAERRD 02096000 SDWAMCIV EQU SDWAERRD 02097000 SDWARPIV EQU SDWAERRD 02098000 SDWAMABD EQU SDWAERRD 02099000 SDWACTS EQU SDWAERRD 02100000 SDWASTAE EQU SDWAERRD 02101000 SDWANRBE EQU SDWAERRD 02102000 @NM00054 EQU SDWAERRC 02103000 SDWAIRB EQU SDWAERRC 02104000 SDWASTAI EQU SDWAERRC 02105000 SDWASTAF EQU SDWAERRC 02106000 SDWASRBM EQU SDWAERRB 02107000 SDWALDIS EQU SDWAERRB 02108000 SDWAENRB EQU SDWAERRB 02109000 SDWATYP1 EQU SDWAERRB 02110000 @NM00053 EQU SDWAERRB 02111000 SDWAPGIO EQU SDWAERRA 02112000 SDWATEXC EQU SDWAERRA 02113000 SDWASVCE EQU SDWAERRA 02114000 SDWAABTM EQU SDWAERRA 02115000 SDWASVCD EQU SDWAERRA 02116000 SDWARKEY EQU SDWAERRA 02117000 SDWAPCHK EQU SDWAERRA 02118000 SDWAMCHK EQU SDWAERRA 02119000 SDWATIME EQU SDWAMCH+20 02120000 SDWARFSA EQU SDWAMCH+16 02121000 @NM00052 EQU SDWAMCH+14 02122000 SDWAVEQR EQU SDWARSR2 02123000 SDWAPGFX EQU SDWARSR2 02124000 SDWAFLSQ EQU SDWARSR2 02125000 SDWAFSQA EQU SDWARSR2 02126000 SDWANUCL EQU SDWARSR2 02127000 SDWASPER EQU SDWARSR2 02128000 SDWAINTC EQU SDWARSR2 02129000 SDWAOFLN EQU SDWARSR2 02130000 SDWACHNG EQU SDWARSR1 02131000 SDWAMSER EQU SDWARSR1 02132000 @NM00051 EQU SDWARSR1 02133000 SDWACPID EQU SDWAMCH+10 02134000 SDWATERR EQU SDWAMCHD 02135000 SDWAFPRX EQU SDWAMCHD 02136000 SDWAINSF EQU SDWAMCHD 02137000 SDWAACR EQU SDWAMCHD 02138000 SDWASCK EQU SDWAMCHD 02139000 SDWAPSWU EQU SDWAMCHD 02140000 SDWAREGU EQU SDWAMCHD 02141000 SDWASKYF EQU SDWAMCHD 02142000 @NM00050 EQU SDWAMCHS 02143000 SDWARSRF EQU SDWAMCHS 02144000 SDWARSRC EQU SDWAMCHS 02145000 SDWAINVP EQU SDWAMCHS 02146000 SDWATSVL EQU SDWAMCHS 02147000 SDWARCDF EQU SDWAMCHS 02148000 SDWASRVL EQU SDWAMCHS 02149000 SDWASCKE EQU SDWASTCK+4 02150000 SDWASCKB EQU SDWASTCK 02151000 SDWALNTH EQU SDWAIDNT+1 02152000 SDWASPID EQU SDWAIDNT 02153000 SDWASR15 EQU SDWASRSV+60 02154000 SDWASR14 EQU SDWASRSV+56 02155000 SDWASR13 EQU SDWASRSV+52 02156000 SDWASR12 EQU SDWASRSV+48 02157000 SDWASR11 EQU SDWASRSV+44 02158000 SDWASR10 EQU SDWASRSV+40 02159000 SDWASR09 EQU SDWASRSV+36 02160000 SDWASR08 EQU SDWASRSV+32 02161000 SDWASR07 EQU SDWASRSV+28 02162000 SDWASR06 EQU SDWASRSV+24 02163000 SDWASR05 EQU SDWASRSV+20 02164000 SDWASR04 EQU SDWASRSV+16 02165000 SDWASR03 EQU SDWASRSV+12 02166000 SDWASR02 EQU SDWASRSV+8 02167000 SDWASR01 EQU SDWASRSV+4 02168000 SDWASR00 EQU SDWASRSV 02169000 SDWATRN2 EQU SDWAAEC2+4 02170000 SDWAIPC2 EQU SDWAICD2 02171000 SDWAIMC2 EQU SDWAICD2 02172000 SDWAIPR2 EQU SDWAICD2 02173000 @NM00049 EQU SDWAINC2 02174000 @NM00048 EQU SDWAILC2 02175000 SDWAIL2 EQU SDWAILC2 02176000 @NM00047 EQU SDWAILC2 02177000 @NM00046 EQU SDWAAEC2 02178000 SDWAADD2 EQU SDWANXT2+1 02179000 @NM00045 EQU SDWANXT2 02180000 @NM00044 EQU SDWAEC2+3 02181000 SDWASGN2 EQU SDWAINT2 02182000 SDWAEXP2 EQU SDWAINT2 02183000 SDWADEC2 EQU SDWAINT2 02184000 SDWAFPO2 EQU SDWAINT2 02185000 SDWACC2 EQU SDWAINT2 02186000 @NM00043 EQU SDWAINT2 02187000 SDWAPGM2 EQU SDWAMWP2 02188000 SDWAWAT2 EQU SDWAMWP2 02189000 SDWAMCK2 EQU SDWAMWP2 02190000 SDWAECT2 EQU SDWAMWP2 02191000 SDWAKEY2 EQU SDWAMWP2 02192000 SDWAEXT2 EQU SDWAEMK2 02193000 SDWAIO2 EQU SDWAEMK2 02194000 SDWATRM2 EQU SDWAEMK2 02195000 @NM00042 EQU SDWAEMK2 02196000 SDWAPER2 EQU SDWAEMK2 02197000 @NM00041 EQU SDWAEMK2 02198000 SDWATRAN EQU SDWAAEC1+4 02199000 SDWAIPC1 EQU SDWAICD1 02200000 SDWAIMC1 EQU SDWAICD1 02201000 SDWAIPR1 EQU SDWAICD1 02202000 @NM00040 EQU SDWAINC1 02203000 @NM00039 EQU SDWAILC1 02204000 SDWAIL1 EQU SDWAILC1 02205000 @NM00038 EQU SDWAILC1 02206000 @NM00037 EQU SDWAAEC1 02207000 SDWAADD1 EQU SDWANXT1+1 02208000 @NM00036 EQU SDWANXT1 02209000 @NM00035 EQU SDWAEC1+3 02210000 SDWASGN1 EQU SDWAINT1 02211000 SDWAEXP1 EQU SDWAINT1 02212000 SDWADEC1 EQU SDWAINT1 02213000 SDWAFPO1 EQU SDWAINT1 02214000 SDWACC1 EQU SDWAINT1 02215000 @NM00034 EQU SDWAINT1 02216000 SDWAPGM1 EQU SDWAMWP1 02217000 SDWAWAT1 EQU SDWAMWP1 02218000 SDWAMCK1 EQU SDWAMWP1 02219000 SDWAECT1 EQU SDWAMWP1 02220000 SDWAKEY1 EQU SDWAMWP1 02221000 SDWAEXT1 EQU SDWAEMK1 02222000 SDWAIO1 EQU SDWAEMK1 02223000 SDWATRM1 EQU SDWAEMK1 02224000 @NM00033 EQU SDWAEMK1 02225000 SDWAPER1 EQU SDWAEMK1 02226000 @NM00032 EQU SDWAEMK1 02227000 SDWAIOBR EQU SDWA+100 02228000 SDWAEPA EQU SDWA+96 02229000 @NM00031 EQU SDWANAME+4 02230000 SDWARBAD EQU SDWANAME 02231000 SDWAGR15 EQU SDWAGRSV+60 02232000 SDWAGR14 EQU SDWAGRSV+56 02233000 SDWAGR13 EQU SDWAGRSV+52 02234000 SDWAGR12 EQU SDWAGRSV+48 02235000 SDWAGR11 EQU SDWAGRSV+44 02236000 SDWAGR10 EQU SDWAGRSV+40 02237000 SDWAGR09 EQU SDWAGRSV+36 02238000 SDWAGR08 EQU SDWAGRSV+32 02239000 SDWAGR07 EQU SDWAGRSV+28 02240000 SDWAGR06 EQU SDWAGRSV+24 02241000 SDWAGR05 EQU SDWAGRSV+20 02242000 SDWAGR04 EQU SDWAGRSV+16 02243000 SDWAGR03 EQU SDWAGRSV+12 02244000 SDWAGR02 EQU SDWAGRSV+8 02245000 SDWAGR01 EQU SDWAGRSV+4 02246000 SDWAGR00 EQU SDWAGRSV 02247000 SDWANXTP EQU SDWACTL2+5 02248000 SDWASGP EQU SDWAPMKP 02249000 SDWAEUP EQU SDWAPMKP 02250000 SDWADOP EQU SDWAPMKP 02251000 SDWAFPP EQU SDWAPMKP 02252000 SDWACCP EQU SDWAPMKP 02253000 SDWAILP EQU SDWAPMKP 02254000 SDWAINTP EQU SDWACTL2+2 02255000 SDWASPVP EQU SDWAMWPP 02256000 SDWAWATP EQU SDWAMWPP 02257000 SDWAMCKP EQU SDWAMWPP 02258000 @NM00030 EQU SDWAMWPP 02259000 SDWAKEYP EQU SDWAMWPP 02260000 SDWAEXTP EQU SDWACMKP 02261000 SDWAIOP EQU SDWACMKP 02262000 SDWANXTA EQU SDWACTL1+5 02263000 SDWASGA EQU SDWAPMKA 02264000 SDWAEUA EQU SDWAPMKA 02265000 SDWADOA EQU SDWAPMKA 02266000 SDWAFPA EQU SDWAPMKA 02267000 SDWACCA EQU SDWAPMKA 02268000 SDWAILA EQU SDWAPMKA 02269000 SDWAINTA EQU SDWACTL1+2 02270000 SDWASPVA EQU SDWAMWPA 02271000 SDWAWATA EQU SDWAMWPA 02272000 SDWAMCKA EQU SDWAMWPA 02273000 @NM00029 EQU SDWAMWPA 02274000 SDWAKEYA EQU SDWAMWPA 02275000 SDWAEXTA EQU SDWACMKA 02276000 SDWAIOA EQU SDWACMKA 02277000 SDWACMPC EQU SDWAABCC+1 02278000 @NM00028 EQU SDWACMPF 02279000 SDWASTCC EQU SDWACMPF 02280000 @NM00027 EQU SDWACMPF 02281000 SDWASTEP EQU SDWACMPF 02282000 CVTLEVL EQU CVTRELNO+2 02283000 CVTNUMB EQU CVTRELNO 02284000 CVTMDL EQU CVTFIX+250 02285000 @NM00026 EQU CVTFIX+248 02286000 @NM00025 EQU CVTFIX 02287000 CVTRV482 EQU CVTXTNT2+128 02288000 CVTRV481 EQU CVTXTNT2+124 02289000 CVTRV480 EQU CVTXTNT2+120 02290000 CVTRV479 EQU CVTXTNT2+118 02291000 CVTRV478 EQU CVTXTNT2+117 02292000 CVTRV477 EQU CVTXTNT2+116 02293000 CVTRV476 EQU CVTXTNT2+115 02294000 CVTRV475 EQU CVTXTNT2+114 02295000 CVTRV474 EQU CVTRV466 02296000 CVTRV473 EQU CVTRV466 02297000 CVTRV472 EQU CVTRV466 02298000 CVTRV471 EQU CVTRV466 02299000 CVTRV470 EQU CVTRV466 02300000 CVTRV469 EQU CVTRV466 02301000 CVTRV468 EQU CVTRV466 02302000 CVTRV467 EQU CVTRV466 02303000 CVTRV465 EQU CVTRV457 02304000 CVTRV464 EQU CVTRV457 02305000 CVTRV463 EQU CVTRV457 02306000 CVTRV462 EQU CVTRV457 02307000 CVTRV461 EQU CVTRV457 02308000 CVTRV460 EQU CVTRV457 02309000 CVTRV459 EQU CVTRV457 02310000 CVTRV458 EQU CVTRV457 02311000 CVTRV456 EQU CVTXTNT2+108 02312000 CVTRV455 EQU CVTXTNT2+104 02313000 CVTRV454 EQU CVTXTNT2+100 02314000 CVTRV453 EQU CVTXTNT2+96 02315000 CVTRV452 EQU CVTXTNT2+94 02316000 CVTRV451 EQU CVTXTNT2+92 02317000 CVTRV450 EQU CVTXTNT2+90 02318000 CVTRV449 EQU CVTXTNT2+88 02319000 CVTRV448 EQU CVTXTNT2+87 02320000 CVTRV447 EQU CVTXTNT2+86 02321000 CVTRV446 EQU CVTRV438 02322000 CVTRV445 EQU CVTRV438 02323000 CVTRV444 EQU CVTRV438 02324000 CVTRV443 EQU CVTRV438 02325000 CVTRV442 EQU CVTRV438 02326000 CVTRV441 EQU CVTRV438 02327000 CVTRV440 EQU CVTRV438 02328000 CVTRV439 EQU CVTRV438 02329000 CVTRV437 EQU CVTRV429 02330000 CVTRV436 EQU CVTRV429 02331000 CVTRV435 EQU CVTRV429 02332000 CVTRV434 EQU CVTRV429 02333000 CVTRV433 EQU CVTRV429 02334000 CVTRV432 EQU CVTRV429 02335000 CVTRV431 EQU CVTRV429 02336000 CVTRV430 EQU CVTRV429 02337000 CVTRV428 EQU CVTXTNT2+80 02338000 CVTRV427 EQU CVTXTNT2+76 02339000 CVTRV426 EQU CVTXTNT2+72 02340000 CVTRV425 EQU CVTXTNT2+68 02341000 CVTATACT EQU CVTATCVT 02342000 CVTRV423 EQU CVTXTNT2+62 02343000 CVTRV422 EQU CVTXTNT2+60 02344000 CVTRV421 EQU CVTXTNT2+58 02345000 CVTRV420 EQU CVTXTNT2+56 02346000 CVTRV419 EQU CVTXTNT2+55 02347000 CVTRV418 EQU CVTXTNT2+54 02348000 CVTRV417 EQU CVTRV409 02349000 CVTRV416 EQU CVTRV409 02350000 CVTRV415 EQU CVTRV409 02351000 CVTRV414 EQU CVTRV409 02352000 CVTRV413 EQU CVTRV409 02353000 CVTRV412 EQU CVTRV409 02354000 CVTRV411 EQU CVTRV409 02355000 CVTRV410 EQU CVTRV409 02356000 CVTRV408 EQU CVTRV400 02357000 CVTRV407 EQU CVTRV400 02358000 CVTRV406 EQU CVTRV400 02359000 CVTRV405 EQU CVTRV400 02360000 CVTRV404 EQU CVTRV400 02361000 CVTRV403 EQU CVTRV400 02362000 CVTRV402 EQU CVTRV400 02363000 CVTRV401 EQU CVTRV400 02364000 CVTICB EQU CVTXTNT2+48 02365000 CVTSKTA EQU CVTXTNT2+44 02366000 CVTCCVT EQU CVTXTNT2+40 02367000 CVTRSV98 EQU CVTXTNT2+36 02368000 CVTRSV97 EQU CVTXTNT2+34 02369000 CVTRSV96 EQU CVTXTNT2+32 02370000 CVTOLTEP EQU CVTXTNT2+28 02371000 CVTQIDA EQU CVTQID+1 02372000 CVTRSV95 EQU CVTQID 02373000 CVTRSV94 EQU CVTXTNT2+20 02374000 CVTRSV93 EQU CVTXTNT2+16 02375000 CVTRSV92 EQU CVTXTNT2+12 02376000 CVTDEBVR EQU CVTXTNT2+8 02377000 CVTRSV91 EQU CVTXTNT2+6 02378000 CVTRSV9H EQU CVTFLGBT 02379000 CVTRSV9G EQU CVTFLGBT 02380000 CVTRSV9F EQU CVTFLGBT 02381000 CVTRSV9E EQU CVTFLGBT 02382000 CVTRSV9D EQU CVTFLGBT 02383000 CVTRSV9C EQU CVTFLGBT 02384000 CVTVME EQU CVTFLGBT 02385000 CVTNPE EQU CVTFLGBT 02386000 CVTNUCLS EQU CVTXTNT2+4 02387000 CVTDSSVA EQU CVTDSSV+1 02388000 CVTRSV89 EQU CVTDSSV 02389000 CVTRSV88 EQU CVTXTNT1+8 02390000 CVTRSV87 EQU CVTXTNT1+4 02391000 CVTFACHN EQU CVTXTNT1 02392000 CVTRV488 EQU CVTMAP+412 02393000 CVTRV487 EQU CVTMAP+408 02394000 CVTRV486 EQU CVTMAP+404 02395000 CVTRV485 EQU CVTMAP+400 02396000 CVTACTAP EQU CVTMAP+396 02397000 CVTAUTH EQU CVTMAP+392 02398000 CVTATMCA EQU CVTATMCT+1 02399000 CVTATMST EQU CVTATMCT 02400000 CVTRSV61 EQU CVTMAP+384 02401000 CVTVOLT1 EQU CVTVOLM1+1 02402000 CVTVOLI1 EQU CVTVOLF1 02403000 CVTSTOA EQU CVTMAP+376 02404000 CVTRSV58 EQU CVTMAP+374 02405000 CVTRSV57 EQU CVTMAP+372 02406000 CVTDDCE EQU CVTMAP+368 02407000 CVTPNWFR EQU CVTMAP+364 02408000 CVTSMF EQU CVTMAP+360 02409000 CVTSULK EQU CVTMAP+358 02410000 CVTSLKO EQU CVTSYSK 02411000 CVTSLKP EQU CVTSYSK 02412000 CVTSLKQ EQU CVTSYSK 02413000 CVTSLKR EQU CVTSYSK 02414000 CVTRSV56 EQU CVTSYSK 02415000 CVTRSV55 EQU CVTSYSK 02416000 CVTRSV54 EQU CVTSYSK 02417000 CVTRSV53 EQU CVTSYSK 02418000 CVTRSV52 EQU CVTA1F1 02419000 CVTRSV51 EQU CVTA1F1 02420000 CVTRSV50 EQU CVTA1F1 02421000 CVTRSV49 EQU CVTA1F1 02422000 CVTRSV48 EQU CVTA1F1 02423000 CVTRSV47 EQU CVTA1F1 02424000 CVTSRSW EQU CVTA1F1 02425000 CVTPFSW EQU CVTA1F1 02426000 CVTPCVT EQU CVTMAP+352 02427000 CVTRSV46 EQU CVTMAP+344 02428000 CVTRSV45 EQU CVTMAP+340 02429000 CVTRSV44 EQU CVTMAP+338 02430000 CVTRSV43 EQU CVTMAP+336 02431000 CVTHJESA EQU CVTHJES+1 02432000 CVTRSV42 EQU CVTHJES 02433000 CVTEXT2A EQU CVTEXT2+1 02434000 CVTRSV41 EQU CVTEXT2 02435000 CVTAPFA EQU CVTAPF+1 02436000 CVTRSV40 EQU CVTAPF 02437000 CVTRV518 EQU CVTINTLA 02438000 CVTRV517 EQU CVTERPV 02439000 CVTEORM EQU CVTMAP+312 02440000 CVTMCHPR EQU CVTMAP+308 02441000 CVTTZ EQU CVTMAP+304 02442000 CVTJEPS EQU CVTMAP+300 02443000 CVTJESCT EQU CVTMAP+296 02444000 CVTMODE EQU CVTMAP+292 02445000 CVTPTRV EQU CVTMAP+288 02446000 CVTREAL EQU CVTMAP+284 02447000 CVTRSV39 EQU CVTMAP+280 02448000 CVTRSV38 EQU CVTMAP+276 02449000 CVTDMSRA EQU CVTDMSR+1 02450000 CVTRV634 EQU CVTDMSRF 02451000 CVTRV633 EQU CVTDMSRF 02452000 CVTRV632 EQU CVTDMSRF 02453000 CVTRV631 EQU CVTDMSRF 02454000 CVTRV630 EQU CVTDMSRF 02455000 CVTRV629 EQU CVTDMSRF 02456000 CVTUDUMP EQU CVTDMSRF 02457000 CVTSDUMP EQU CVTDMSRF 02458000 CVTQMSGA EQU CVTQMSG+1 02459000 CVTRSV36 EQU CVTQMSG 02460000 CVTAMFF EQU CVTMAP+264 02461000 CVTPURGA EQU CVTPURG+1 02462000 CVTRSV35 EQU CVTPURG 02463000 CVTCBSP EQU CVTMAP+256 02464000 CVTATERA EQU CVTATER+1 02465000 CVTSYST EQU CVTATER 02466000 CVTVOLT2 EQU CVTTAT 02467000 CVTVOLI2 EQU CVTVOLF2 02468000 CVTAQAVB EQU CVTAQAVT+1 02469000 CVTRSV34 EQU CVTTCMFG 02470000 CVTRSV33 EQU CVTTCMFG 02471000 CVTRSV32 EQU CVTTCMFG 02472000 CVTRSV31 EQU CVTTCMFG 02473000 CVTRSV30 EQU CVTTCMFG 02474000 CVTRSV29 EQU CVTTCMFG 02475000 CVTRSV28 EQU CVTTCMFG 02476000 CVTTCRDY EQU CVTTCMFG 02477000 CVTGTFA EQU CVTGTF+1 02478000 CVTRSV27 EQU CVTGTFST 02479000 CVTRNIO EQU CVTGTFST 02480000 CVTUSR EQU CVTGTFST 02481000 CVTRV318 EQU CVTFORM 02482000 CVTRV317 EQU CVTTMODE 02483000 CVTRV316 EQU CVTSTATE 02484000 CVTRV315 EQU CVTGTFS 02485000 CVTGTFAV EQU CVTGTFS 02486000 CVT0SCR1 EQU CVTMAP+232 02487000 CVTRV515 EQU CVTMAP+228 02488000 CVTRMS EQU CVTMAP+224 02489000 CVTPATCH EQU CVTMAP+220 02490000 CVTTSCE EQU CVTMAP+216 02491000 CVTLNKSC EQU CVTMAP+214 02492000 CVTQABST EQU CVTMAP+212 02493000 CVTMDLDS EQU CVTMAP+208 02494000 CVTUSER EQU CVTMAP+204 02495000 CVTABEND EQU CVTMAP+200 02496000 CVTSMCA EQU CVTMAP+196 02497000 CVTRSV18 EQU CVTMAP+192 02498000 CVTQLPAQ EQU CVTMAP+188 02499000 CVTQCDSR EQU CVTMAP+184 02500000 CVTRSV17 EQU CVTOPTB 02501000 CVTRSV16 EQU CVTOPTB 02502000 CVTFP EQU CVTOPTB 02503000 CVTAPTHR EQU CVTOPTB 02504000 CVTNLOG EQU CVTOPTB 02505000 CVTTOD EQU CVTOPTB 02506000 CVTCTIMS EQU CVTOPTB 02507000 CVTPROT EQU CVTOPTB 02508000 CVTXPFP EQU CVTOPTA 02509000 CVTASCII EQU CVTOPTA 02510000 CVTRSV13 EQU CVTOPTA 02511000 CVTRSV12 EQU CVTOPTA 02512000 CVTNIP EQU CVTOPTA 02513000 CVTDDR EQU CVTOPTA 02514000 CVTAPR EQU CVTOPTA 02515000 CVTCCH EQU CVTOPTA 02516000 CVTSNCTR EQU CVTMAP+180 02517000 CVTQMWR EQU CVTMAP+176 02518000 CVTQOCR EQU CVTMAP+172 02519000 CVT1EF00 EQU CVTMAP+168 02520000 CVTMZ00 EQU CVTMAP+164 02521000 CVTSV76Q EQU CVTSV76C 02522000 CVTRSV11 EQU CVTMAP+156 02523000 CVT0PT01 EQU CVTMAP+152 02524000 CVTMSER EQU CVTMAP+148 02525000 CVTRV516 EQU CVTIERLC 02526000 CVTILCH EQU CVTMAP+140 02527000 CVT0DS EQU CVTMAP+136 02528000 CVTFBOSV EQU CVTMAP+132 02529000 CVTNUCB EQU CVTMAP+128 02530000 CVTSV76M EQU CVTIOQET 02531000 CVTDCBA EQU CVTMAP+117 02532000 CVTMVS2 EQU CVTDCB 02533000 CVT6DAT EQU CVTDCB 02534000 CVT4MPS EQU CVTDCB 02535000 CVTRSV09 EQU CVTDCB 02536000 CVT4MS1 EQU CVTDCB 02537000 CVT2SPS EQU CVTDCB 02538000 CVT1SSS EQU CVTDCB 02539000 CVTRSV08 EQU CVTDCB 02540000 CVTSTB EQU CVTMAP+112 02541000 CVTQTD00 EQU CVTMAP+108 02542000 CVTQTE00 EQU CVTMAP+104 02543000 CVTCUCB EQU CVTMAP+100 02544000 CVTSJQ EQU CVTMAP+96 02545000 CVTPBLDL EQU CVTMAP+92 02546000 CVTTPC EQU CVTMAP+88 02547000 CVTSVDCB EQU CVTMAP+84 02548000 CVTBRET EQU CVTMAP+82 02549000 CVTEXIT EQU CVTMAP+80 02550000 CVT0FN00 EQU CVTMAP+76 02551000 CVTDARA EQU CVTDAR+1 02552000 CVTRSV07 EQU CVTFLGS1 02553000 CVTRSV06 EQU CVTFLGS1 02554000 CVTRSV05 EQU CVTFLGS1 02555000 CVTRSV04 EQU CVTFLGS1 02556000 CVTRSV03 EQU CVTFLGS1 02557000 CVTRSV02 EQU CVTFLGS1 02558000 CVTRSV01 EQU CVTFLGS1 02559000 CVTDMPLK EQU CVTFLGS1 02560000 CVTXITP EQU CVTMAP+68 02561000 CVTZDTAB EQU CVTMAP+64 02562000 CVTMSLT EQU CVTMAP+60 02563000 CVTDATE EQU CVTMAP+56 02564000 CVTBTERM EQU CVTMAP+52 02565000 CVTSYSAD EQU CVTMAP+48 02566000 CVTXTLER EQU CVTMAP+44 02567000 CVTILK2 EQU CVTMAP+40 02568000 CVTILK1 EQU CVTMAP+36 02569000 CVTPRLTV EQU CVTMAP+32 02570000 CVTPCNVT EQU CVTMAP+28 02571000 CVT0VL00 EQU CVTMAP+24 02572000 CVTXAPG EQU CVTMAP+20 02573000 CVTBUF EQU CVTMAP+16 02574000 CVTJOB EQU CVTMAP+12 02575000 CVTLINK EQU CVTMAP+8 02576000 CVT0EF00 EQU CVTMAP+4 02577000 CVT EQU CVTMAP 02578000 @NM00024 EQU PSA+3668 02579000 PSASTAK EQU PSA+3072 02580000 @NM00023 EQU PSA+1048 02581000 PSAUSEND EQU PSA+1048 02582000 PSARV062 EQU PSA+1044 02583000 PSACDAL EQU PSA+1040 02584000 PSAWTCOD EQU PSA+1036 02585000 PSAATCVT EQU PSA+1032 02586000 PSAPCPSW EQU PSA+1024 02587000 PSAPIR2 EQU PSA+1020 02588000 PSARV059 EQU PSA+1018 02589000 PSASVC13 EQU PSA+1016 02590000 PSALSFCC EQU PSA+1012 02591000 PSASFACC EQU PSA+1008 02592000 PSASTOP EQU PSA+992 02593000 PSASTART EQU PSA+976 02594000 PSARSPSW EQU PSA+968 02595000 PSASRPSW EQU PSA+960 02596000 PSARV045 EQU PSA+892 02597000 PSARV044 EQU PSA+888 02598000 PSARV043 EQU PSA+884 02599000 PSARV042 EQU PSA+880 02600000 PSARV041 EQU PSA+876 02601000 PSARV040 EQU PSA+872 02602000 PSARV025 EQU PSA+868 02603000 PSADSSED EQU PSA+868 02604000 PSADSSPR EQU PSA+864 02605000 PSADSSFW EQU PSA+860 02606000 PSADSS14 EQU PSA+856 02607000 PSADSSPP EQU PSA+848 02608000 PSADSSRP EQU PSA+840 02609000 PSADSS05 EQU PSADSSF4 02610000 PSADSS10 EQU PSADSSF4 02611000 PSADSSVE EQU PSADSSF4 02612000 PSADSSDE EQU PSADSSF4 02613000 PSADSSC0 EQU PSADSSF4 02614000 PSADSSIE EQU PSADSSF4 02615000 PSADSS12 EQU PSADSSF4 02616000 PSADSSRC EQU PSADSSF4 02617000 PSARV057 EQU PSADSSF3 02618000 PSARV056 EQU PSADSSF3 02619000 PSARV055 EQU PSADSSF3 02620000 PSADSSMC EQU PSADSSF3 02621000 PSADSSRW EQU PSADSSF3 02622000 PSADSSNM EQU PSADSSF3 02623000 PSADSSES EQU PSADSSF3 02624000 PSADSSGP EQU PSADSSF3 02625000 PSADSSF2 EQU PSADSSFL+1 02626000 PSADSSPI EQU PSADSSF1 02627000 PSADSSOI EQU PSADSSF1 02628000 PSADSSSP EQU PSADSSF1 02629000 PSADSSTP EQU PSADSSF1 02630000 PSADSSDW EQU PSADSSF1 02631000 PSADSSDD EQU PSADSSF1 02632000 PSADSSDM EQU PSADSSF1 02633000 PSADSSMV EQU PSADSSF1 02634000 PSADSSTS EQU PSA+816 02635000 PSADSSWK EQU PSA+812 02636000 PSADSSR3 EQU PSA+808 02637000 PSADSSR2 EQU PSA+804 02638000 PSADSSRS EQU PSA+800 02639000 PSASTOR EQU PSA+796 02640000 PSACPUSA EQU PSA+794 02641000 PSAVSTAP EQU PSA+792 02642000 PSAWKVAP EQU PSA+788 02643000 PSAWKRAP EQU PSA+784 02644000 PSAMCHIC EQU PSA+783 02645000 PSARV061 EQU PSA+782 02646000 PSASYMSK EQU PSA+781 02647000 PSAMCHFL EQU PSA+780 02648000 PSACR0 EQU PSA+776 02649000 PSAPSWSV EQU PSA+768 02650000 PSALITA EQU PSA+764 02651000 PSACLHS EQU PSAHLHI 02652000 PSALKR15 EQU PSALKSA+60 02653000 PSALKR14 EQU PSALKSA+56 02654000 PSALKR13 EQU PSALKSA+52 02655000 PSALKR12 EQU PSALKSA+48 02656000 PSALKR11 EQU PSALKSA+44 02657000 PSALKR10 EQU PSALKSA+40 02658000 PSALKR9 EQU PSALKSA+36 02659000 PSALKR8 EQU PSALKSA+32 02660000 PSALKR7 EQU PSALKSA+28 02661000 PSALKR6 EQU PSALKSA+24 02662000 PSALKR5 EQU PSALKSA+20 02663000 PSALKR4 EQU PSALKSA+16 02664000 PSALKR3 EQU PSALKSA+12 02665000 PSALKR2 EQU PSALKSA+8 02666000 PSALKR1 EQU PSALKSA+4 02667000 PSALKR0 EQU PSALKSA 02668000 PSARV023 EQU PSACLHT+52 02669000 PSALOCAL EQU PSACLHT+48 02670000 PSACMSL EQU PSACLHT+44 02671000 PSAOPTL EQU PSACLHT+40 02672000 PSATPACL EQU PSACLHT+36 02673000 PSATPDNL EQU PSACLHT+32 02674000 PSATPNCL EQU PSACLHT+28 02675000 PSAIOSLL EQU PSACLHT+24 02676000 PSAIOSUL EQU PSACLHT+20 02677000 PSAIOSCL EQU PSACLHT+16 02678000 PSAIOSSL EQU PSACLHT+12 02679000 PSASALCL EQU PSACLHT+8 02680000 PSAASML EQU PSACLHT+4 02681000 PSADISPL EQU PSACLHT 02682000 PSASRSA EQU PSA+636 02683000 PSARV050 EQU PSA+634 02684000 PSADSSGO EQU PSA+633 02685000 PSARECUR EQU PSA+632 02686000 PSAHLHIS EQU PSA+628 02687000 PSAIPCSA EQU PSA+624 02688000 @NM00022 EQU PSA+621 02689000 PSAIPCDM EQU PSA+620 02690000 PSAIPCD EQU PSA+616 02691000 @NM00021 EQU PSA+613 02692000 PSAIPCRM EQU PSA+612 02693000 PSAIPCR EQU PSA+608 02694000 PSAMCHEX EQU PSA+600 02695000 PSAMPSW EQU PSA+592 02696000 PSAEXPS2 EQU PSA+584 02697000 PSAEXPS1 EQU PSA+576 02698000 PSAPIREG EQU PSA+572 02699000 PSARSREG EQU PSA+568 02700000 PSAGPREG EQU PSA+556 02701000 PSARV022 EQU PSASUP4 02702000 PSARV021 EQU PSASUP4 02703000 PSARV020 EQU PSASUP4 02704000 PSARV019 EQU PSASUP4 02705000 PSARV018 EQU PSASUP4 02706000 PSARV017 EQU PSASUP4 02707000 PSARV016 EQU PSASUP4 02708000 PSARV015 EQU PSASUP4 02709000 PSARV014 EQU PSASUP3 02710000 PSARV013 EQU PSASUP3 02711000 PSARV012 EQU PSASUP3 02712000 PSAESTA EQU PSASUP3 02713000 PSASPR EQU PSASUP3 02714000 PSAPSREG EQU PSASUP3 02715000 PSAPI2 EQU PSASUP3 02716000 PSAIOSUP EQU PSASUP3 02717000 PSALCR EQU PSASUP2 02718000 PSARTM EQU PSASUP2 02719000 PSAACR EQU PSASUP2 02720000 PSAIPCE2 EQU PSASUP2 02721000 PSAIPCES EQU PSASUP2 02722000 PSAIPCEC EQU PSASUP2 02723000 PSAGTF EQU PSASUP2 02724000 PSAIPCRI EQU PSASUP2 02725000 PSATYPE6 EQU PSASUP1 02726000 PSATCTL EQU PSASUP1 02727000 PSADISP EQU PSASUP1 02728000 PSALOCK EQU PSASUP1 02729000 PSAPI EQU PSASUP1 02730000 PSAEXT EQU PSASUP1 02731000 PSASVC EQU PSASUP1 02732000 PSAIO EQU PSASUP1 02733000 PSAAOLD EQU PSA+548 02734000 PSAANEW EQU PSA+544 02735000 PSATOLD EQU PSA+540 02736000 PSATNEW EQU PSA+536 02737000 PSALCCAR EQU PSA+532 02738000 PSALCCAV EQU PSA+528 02739000 PSAPCCAR EQU PSA+524 02740000 PSAPCCAV EQU PSA+520 02741000 PSACPULA EQU PSA+518 02742000 PSACPUPA EQU PSA+516 02743000 PSAPSA EQU PSA+512 02744000 FLCHDEND EQU PSA+512 02745000 FLCCRSAV EQU FLCMCLA+280 02746000 FLCGRSAV EQU FLCMCLA+216 02747000 FLCFPSAV EQU FLCMCLA+184 02748000 FLCFLA EQU FLCMCLA+88 02749000 FLCRGNCD EQU FLCMCLA+84 02750000 FLCFSAA EQU FLCFSA+1 02751000 @NM00020 EQU FLCFSA 02752000 @NM00019 EQU FLCMCLA+72 02753000 FLCMCIC EQU FLCMCLA+64 02754000 @NM00018 EQU FLCMCLA+20 02755000 FLCIOAA EQU FLCIOA+1 02756000 @NM00017 EQU FLCIOA 02757000 @NM00016 EQU FLCMCLA+15 02758000 @NM00015 EQU FLCMCLA+14 02759000 @NM00014 EQU FLCMCLA+12 02760000 FLCLCL EQU FLCMCLA+8 02761000 FLCIOELA EQU FLCIOEL+1 02762000 @NM00013 EQU FLCIOEL 02763000 FLCCHNID EQU FLCMCLA 02764000 @NM00012 EQU PSA+160 02765000 FLCMTRCD EQU PSA+157 02766000 @NM00011 EQU PSA+156 02767000 FLCPERA EQU FLCPER+1 02768000 @NM00010 EQU FLCPER 02769000 @NM00009 EQU PSA+151 02770000 FLCPERCD EQU PSA+150 02771000 FLCMCNUM EQU PSA+149 02772000 @NM00008 EQU PSA+148 02773000 FLCTEAA EQU FLCTEA+1 02774000 @NM00007 EQU FLCTEA 02775000 PSAPIPC EQU PSAPICOD 02776000 PSAPIMC EQU PSAPICOD 02777000 PSAPIPER EQU PSAPICOD 02778000 PSARV049 EQU FLCPICOD 02779000 FLCPILCB EQU FLCPIILC 02780000 @NM00006 EQU FLCPIILC 02781000 @NM00005 EQU PSAEPPSW 02782000 FLCSVCN EQU PSAESPSW+2 02783000 FLCSILCB EQU FLCSVILC 02784000 @NM00004 EQU FLCSVILC 02785000 @NM00003 EQU PSAESPSW 02786000 FLCEICOD EQU PSAEEPSW+2 02787000 PSASPAD EQU PSAEEPSW 02788000 @NM00002 EQU PSA+128 02789000 FLCINPSW EQU PSA+120 02790000 FLCMNPSW EQU PSA+112 02791000 FLCPNPSW EQU PSA+104 02792000 FLCSNPSW EQU PSA+96 02793000 FLCENPSW EQU PSA+88 02794000 FLCTRACE EQU PSA+84 02795000 FLCTIMER EQU PSA+80 02796000 FLCCVT2 EQU PSA+76 02797000 FLCCAW EQU PSA+72 02798000 FLCCSW EQU PSA+64 02799000 FLCIOPSW EQU PSA+56 02800000 FLCMOPSW EQU PSA+48 02801000 FLCPOPSW EQU PSA+40 02802000 FLCSOPSW EQU PSA+32 02803000 FLCEOPSW EQU PSA+24 02804000 @NM00001 EQU FLCICCW2+4 02805000 FLCICCW1 EQU FLCROPSW 02806000 FLCIPPSW EQU FLCRNPSW 02807000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02808000 @RC00183 EQU @RC00181 02809000 @RF00363 EQU @RC00355 02810000 @ENDDATA EQU * 02811000 END IGFDE1,(C'PLS2014',0701,77321) 02812000