TITLE 'IGE0660A, DDR - ERP INTERFACE MODULE *00001000 ' 00002000 IGE0660A CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IGE0660A 77.322' 0001 00008000 DROP @15 00009000 @PROLOG BALR @08,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@08 0001 00012000 * IOSBPTR=RIOSBIN; /* COPY ADDRESS OF IOSB TO A SAFE 00013000 * REGISTER */ 00014000 * 0234 00015000 LR IOSBPTR,RIOSBIN 0234 00016000 * /*****************************************************************/ 00017000 * /* */ 00018000 * /* THE NORMAL PROLOG COULD NOT BE USED TO GETMAIN THE AUTOMATIC */ 00019000 * /* AREA SINCE GETMAIN DESTROYS REGISTER 1 (WHICH CONTAINS THE */ 00020000 * /* ADDRESS OF THE IOSB) AND PL/S CANNOT SAVE AND RESTORE REG 1 */ 00021000 * /* ACROSS THE GETMAIN BECAUSE THERE IS NO USEABLE SAVE AREA ON */ 00022000 * /* ENTRY TO THIS MODULE - THEREFORE, THE SPACE FOR THE AUTOMATIC */ 00023000 * /* AREA IS GETMAINED HERE */ 00024000 * /* */ 00025000 * /*****************************************************************/ 00026000 * 0235 00027000 * GENERATE; 0235 00028000 L @00,@SIZDATD PICK UP LENGTH OF AUTO AREA 00029000 GETMAIN R,LV=(0) GETMAIN SPACE FOR AUTOMATIC DATA 00030000 LR DATABASE,@01 PUT ADDRESS OF AREA INTO DATA REG 00031000 USING @DATD,DATABASE ESTABLISH ADDRESSABILITY TO 00032000 * AUTOMATIC DATA AREA 00033000 LR SAVEPTR,DATABASE POINT TO REGISTER SAVE AREA 00034000 * EWAPTR=IOSERP; /* PICK UP ADDRESS OF ERWA */ 00035000 L EWAPTR,IOSERP(,IOSBPTR) 0236 00036000 * DDRPTR=ADDR(EWDASNS)+LENGTH(EWDASNS);/* THE WORKING DDRCOM WILL 00037000 * BE WITHIN THE ERWA IMMEDIATELY 00038000 * FOLLOWING THE EWDASNS FIELD */ 00039000 LA DDRPTR,EWDASNS(,EWAPTR) 0237 00040000 AL DDRPTR,@CF01565 0237 00041000 * DDRCLR=DDRCLR&&DDRCLR; /* CLEAR THE WORKING DDRCOM 0238 00042000 * @ZA18592*/ 00043000 XC DDRCLR(100,DDRPTR),DDRCLR(DDRPTR) 0238 00044000 * DDRUIOSB=IOSBPTR; /* PUT THE IOSB ADDRESS INTO THE 00045000 * DDRCOM - THIS IS NEEDED IN 0239 00046000 * CASE THE ESTAE EXIT IS ENTERED*/ 00047000 ST IOSBPTR,DDRUIOSB(,DDRPTR) 0239 00048000 * DO; /* ?IGFDERR INIT */ 00049000 * 0240 00050000 * /***************************************************************/ 00051000 * /* */ 00052000 * /* IGFDERR - INITIALIZE RECOVERY ENVIRONMENT */ 00053000 * /* */ 00054000 * /***************************************************************/ 00055000 * 0241 00056000 * DERPLIST=DERPLIST&&DERPLIST; /* CLEAR PARAMETER LIST */ 00057000 XC DERPLIST(48),DERPLIST 0241 00058000 * DERFUNK=DERINIT; /* INDICATE INIT FUNCTION */ 00059000 MVI DERFUNK,X'01' 0242 00060000 * DERREC=ADDR(DERRECPM); /* POINT TO REC PARMS */ 00061000 LA @12,DERRECPM 0243 00062000 ST @12,DERREC 0243 00063000 * DERRETRY=ADDR(IGE0660R); /* POINT TO RETRY ROUTINE */ 00064000 LA @12,IGE0660R 0244 00065000 ST @12,DERRETRY 0244 00066000 * GEN SETS(DERDATD)(MVC DERDATD,@SIZDATD);/* SET UP SPN, SIZE */ 00067000 MVC DERDATD,@SIZDATD 00068000 * DERPFX=DERRMASK; /* SET UP RUB MASK */ 00069000 MVC DERPFX(2),@CB01278 0246 00070000 * DERRCODE=CODEBASE; /* SAVE CODEREG */ 00071000 ST CODEBASE,DERRCODE 0247 00072000 * DERRDATA=DATABASE; /* SAVE DATAREG */ 00073000 ST DATABASE,DERRDATA 0248 00074000 * DERRDDR=DDRPTR; /* SAVE DDRCOM POINTER */ 00075000 ST DDRPTR,DERRDDR 0249 00076000 * DERRSAVE=SAVEPTR; /* SAVE REGISTER 13 */ 00077000 ST SAVEPTR,DERRSAVE 0250 00078000 * CALL IGFDE0(DERPLIST); /* ISSUE ESTAE */ 00079000 LA @12,DERPLIST 0251 00080000 ST @12,@AL00001 0251 00081000 L @15,@CV00085 0251 00082000 LA @01,@AL00001 0251 00083000 BALR @14,@15 0251 00084000 * END; /* ?IGFDERR INIT */ 00085000 * DERLRC=PERMERR; /* INDICATE PERMANENT I/O ERROR 00086000 * IS TO BE POSTED */ 00087000 MVI DERLRC,X'04' 0253 00088000 * UCBPTR=IOSUCB; /* POINT TO UCB */ 00089000 * 0254 00090000 L UCBPTR,IOSUCB(,IOSBPTR) 0254 00091000 * /*****************************************************************/ 00092000 * /* */ 00093000 * /* SEE IF IT IS POSSIBLE TO USE DDR TO CORRECT THE I/O ERROR */ 00094000 * /* */ 00095000 * /*****************************************************************/ 00096000 * 0255 00097000 * IF CVTNIP='0'B /* THE SYSTEM MUST BE INITIALIZED*/ 00098000 * &CVTDDR='1'B /* SYSTEM SWAPS MUST BE ALLOWED */ 00099000 * &UCBQISCE='0'B /* THE DEVICE CANNOT ALREADY BE 00100000 * INVOLVED IN A SWAP */ 00101000 * &IOSQISCE='0'B /* THE I/O ERROR CANNOT BE FROM 00102000 * DDR */ 00103000 * &UCBDDRSW='0'B /* THE DEVICE CANNOT ALREADY BE 00104000 * INVOLVED IN A SWAP */ 00105000 * &IOSDVRID^=IOSOLTID /* OLTEP CANNOT OWN THE DEVICE */ 00106000 * &(IOSCOD=IOSNRMC|IOSCOD=IOSMIHC)/* THE COMPLETION CODE MUST 00107000 * BE A PERMANENT I/O ERROR OR A 00108000 * SIMULATED PERM I/O ERROR */ 00109000 * &(IOSDVRID^=IOSXCPID|TCBTID^='FC'X)/* DDR CANNOT BE 0255 00110000 * PROCESSING A REQUEST FOR THE 00111000 * SAME DEVICE ALREADY (EXCP 0255 00112000 * DRIVER AND THE DDR TASKS TCB 00113000 * INDICATES I/O REQUEST FROM 0255 00114000 * DDR) */ 00115000 * &(UCB3DACC='1'B|(UCB3TAPE='1'B&IOSDVRID=IOSXCPID))/* THE 0255 00116000 * DEVICE MUST BE DIRECT ACCESS 00117000 * OR A TAPE BEING USED WITH EXCP*/ 00118000 * THEN /* IF ALL THE ABOVE CONDITIONS 0255 00119000 * ARE SATISFIED, DDR MAY BE USED*/ 00120000 L @12,CVTPTR 0255 00121000 TM CVTDDR(@12),B'00100000' 0255 00122000 BNO @RF00255 0255 00123000 TM CVTNIP(@12),B'00010000' 0255 00124000 BNZ @RF00255 0255 00125000 TM UCBQISCE(UCBPTR),B'00000001' 0255 00126000 BNZ @RF00255 0255 00127000 TM IOSQISCE(IOSBPTR),B'00100000' 0255 00128000 BNZ @RF00255 0255 00129000 TM UCBDDRSW(UCBPTR),B'00000001' 0255 00130000 BNZ @RF00255 0255 00131000 CLI IOSDVRID(IOSBPTR),X'06' 0255 00132000 BE @RF00255 0255 00133000 CLI IOSCOD(IOSBPTR),X'7F' 0255 00134000 BE @GL00002 0255 00135000 CLI IOSCOD(IOSBPTR),X'74' 0255 00136000 BNE @RF00255 0255 00137000 @GL00002 CLI IOSDVRID(IOSBPTR),X'02' 0255 00138000 BNE @GL00001 0255 00139000 L @12,RQEPTR(,IOSBPTR) 0255 00140000 L @12,TCBPTR(,@12) 0255 00141000 CLI TCBTID(@12),X'FC' 0255 00142000 BE @RF00255 0255 00143000 @GL00001 TM UCB3DACC(UCBPTR),B'00100000' 0255 00144000 BO @RT00255 0255 00145000 TM UCB3TAPE(UCBPTR),B'10000000' 0255 00146000 BNO @RF00255 0255 00147000 CLI IOSDVRID(IOSBPTR),X'02' 0255 00148000 BNE @RF00255 0255 00149000 @RT00255 DS 0H 0256 00150000 * DO; /* ATTEMPT TO ACTIVATE DDR */ 00151000 * 0256 00152000 * /*************************************************************/ 00153000 * /* */ 00154000 * /* BUILD THE DDRCOM IN THE ERWA */ 00155000 * /* */ 00156000 * /*************************************************************/ 00157000 * 0257 00158000 * DDRID='DDR '; /* FILL IN THE ID FIELD */ 00159000 MVC DDRID(4,DDRPTR),@CC03006 0257 00160000 * DDRSYS='1'B; /* INDICATE SYSTEM SWAP */ 00161000 OI DDRSYS(DDRPTR),B'01000000' 0258 00162000 * DDRSIRB='1'B; /* INDICATE DDR RUNNING UNDER 0259 00163000 * SIRB */ 00164000 OI DDRSIRB(DDRPTR),B'00000100' 0259 00165000 * DDRUASID=IOSASID; /* PICK UP USERS ADDRESS SPACE ID*/ 00166000 LH @12,IOSASID(,IOSBPTR) 0260 00167000 N @12,@CF03037 0260 00168000 STH @12,DDRUASID(,DDRPTR) 0260 00169000 * IF UCB3TAPE='1'B THEN /* INDICATE TAPE IF APPROPRIATE */ 00170000 TM UCB3TAPE(UCBPTR),B'10000000' 0261 00171000 BNO @RF00261 0261 00172000 * DDRMT='1'B; 0262 00173000 OI DDRMT(DDRPTR),B'00100000' 0262 00174000 * ELSE /* IF NOT TAPE, MUST BE DISK */ 00175000 * DDRDA='1'B; 0263 00176000 B @RC00261 0263 00177000 @RF00261 OI DDRDA(DDRPTR),B'01000000' 0263 00178000 * DDRFMCUA=UCBNAME; /* COPY DEVICE ADDRESS TO DDRCOM */ 00179000 @RC00261 MVC DDRFMCUA(3,DDRPTR),UCBNAME(UCBPTR) 0264 00180000 * DDRFMUCB=IOSUCB; /* FILL IN UCB ADDRESS */ 00181000 L @12,IOSUCB(,IOSBPTR) 0265 00182000 ST @12,DDRFMUCB(,DDRPTR) 0265 00183000 * IF IOSPGDPX='1'B THEN /* SET PAGING I/O ERROR FLAG IF 00184000 * APPROPRIATE */ 00185000 TM IOSPGDPX(IOSBPTR),B'00000010' 0266 00186000 BNO @RF00266 0266 00187000 * DDRPAGE='1'B; 0267 00188000 OI DDRPAGE(DDRPTR),B'00100000' 0267 00189000 * DDRASID=MASTERID; /* DDR WILL RUN IN MASTER ADDRESS 00190000 * SPACE ID=1 @YM04069*/ 00191000 @RF00266 MVC DDRASID(2,DDRPTR),@CH00041 0268 00192000 * DDRUASCB=IOSSRB->SRBASCB; /* PICK UP THE ADDRESS OF THE 0269 00193000 * USERS ASCB */ 00194000 L @12,IOSSRB(,IOSBPTR) 0269 00195000 L @12,SRBASCB(,@12) 0269 00196000 ST @12,DDRUASCB(,DDRPTR) 0269 00197000 * IF IOSDVRID=IOSXCPID THEN /* FOR EXCP, AN RQE EXISTS */ 00198000 CLI IOSDVRID(IOSBPTR),X'02' 0270 00199000 BNE @RF00270 0270 00200000 * DO; /* EXCP - FILL IN OTHER FIELDS */ 00201000 * DDRUTCB=RQETCB; /* COPY USERS TCB ADDRESS */ 00202000 L @12,RQEPTR(,IOSBPTR) 0272 00203000 L @11,RQETCB(,@12) 0272 00204000 ST @11,DDRUTCB(,DDRPTR) 0272 00205000 * DDRUIOB=RQEIOB; /* COPY USERS IOB ADDRESS */ 00206000 L @11,RQEIOB(,@12) 0273 00207000 ST @11,DDRUIOB(,DDRPTR) 0273 00208000 * DDRUDEB=RQEDEB; /* COPY USERS DEB ADDRESS */ 00209000 L @12,RQEDEB(,@12) 0274 00210000 ST @12,DDRUDEB(,DDRPTR) 0274 00211000 * DDRUDCB=DEBDCBB; /* COPY USERS DCB ADDRESS */ 00212000 L @12,DEBPTR(,DDRPTR) 0275 00213000 L @11,DEBDCBB-1(,@12) 0275 00214000 LA @11,0(,@11) 0275 00215000 ST @11,DDRUDCB(,DDRPTR) 0275 00216000 * DDRUMODE=DEBSDVM; /* USER MODE SET @YM04069*/ 00217000 MVC DDRUMODE(1,DDRPTR),DEBSDVM(@12) 0276 00218000 * DDRUBCNT=DCBBLKCT; /* USER BLOCK COUNT @YM04069*/ 00219000 L @12,DCBPTR(,DDRPTR) 0277 00220000 L @12,DCBBLKCT(,@12) 0277 00221000 ST @12,DDRUBCNT(,DDRPTR) 0277 00222000 * END; 0278 00223000 * 0278 00224000 * /*************************************************************/ 00225000 * /* */ 00226000 * /* CHECK DEVICE STATUS AND SENSE TO DETERMINE WHETHER OR NOT */ 00227000 * /* DDR CAN BE USED TO CORRECT THE ERROR - IF SO, VALIDATE THE*/ 00228000 * /* 'FROM' DEVICE */ 00229000 * /* */ 00230000 * /*************************************************************/ 00231000 * 0279 00232000 * IF DDRMT='1'B /* IS THIS A TAPE DEVICE */ 00233000 * THEN /* YES, USE TAPE TESTS */ 00234000 @RF00270 TM DDRMT(DDRPTR),B'00100000' 0279 00235000 BNO @RF00279 0279 00236000 * IF CSTAT^='000'B /* THE ERROR MUST BE CAUSED BY 0280 00237000 * THE CHANNEL */ 00238000 * |(UCHK='1'B /* OR ONE OF THE FOLLOWING */ 00239000 * &(EWDBUSO='1'B /* BUS OUT PARITY CHECK */ 00240000 * |EWDEQU='1'B /* EQUIPMENT CHECK */ 00241000 * |EWDDATA='1'B /* DATA CHECK */ 00242000 * |EWDOVRN='1'B)) THEN /* OVERRUN */ 00243000 TM CSTAT(IOSBPTR),B'00001110' 0280 00244000 BNZ @RT00280 0280 00245000 TM UCHK(IOSBPTR),B'00000010' 0280 00246000 BNO @RF00280 0280 00247000 TM EWDBUSO(EWAPTR),B'00111100' 0280 00248000 BZ @RF00280 0280 00249000 @RT00280 DS 0H 0281 00250000 * DO; /* IF SO, DDR MAY BE ABLE TO HELP*/ 00251000 * DDRINV2=DDRVFM; /* INDICATE 'FROM' VALIDATION */ 00252000 MVI DDRINV2(DDRPTR),X'01' 0282 00253000 * CALL IGFDT1; /* VALIDATE THE 'FROM' DEVICE */ 00254000 L @15,@CV00087 0283 00255000 BALR @14,@15 0283 00256000 * DERLRC=RTNCODE; /* COPY RETURN CODE */ 00257000 STC RTNCODE,DERLRC 0284 00258000 * END; 0285 00259000 * ELSE 0286 00260000 * ; /* UNSUPPORTABLE TAPE I/O ERROR */ 00261000 @RF00280 DS 0H 0287 00262000 * ELSE /* NO, USE DISK TESTS */ 00263000 * IF CSTAT^='000'B /* THE ERROR MUST BE CAUSED BY 0287 00264000 * THE CHANNEL */ 00265000 * |(UCHK='1'B /* OR ONE OF THE FOLLOWING */ 00266000 * &((EWDBUSO='1'B /* BUS OUT PARITY CHECK */ 00267000 * |EWDEQU='1'B /* EQUIPMENT CHECK */ 00268000 * |EWDDATA='1'B /* DATA CHECK */ 00269000 * |EWDOVRN='1'B /* OVERRUN */ 00270000 * |EWDSKCK='1'B) /* SEEK CHECK */ 00271000 * &EWDCREJ='0'B)) THEN /* BUT NOT COMMAND REJECT */ 00272000 B @RC00279 0287 00273000 @RF00279 TM CSTAT(IOSBPTR),B'00001110' 0287 00274000 BNZ @RT00287 0287 00275000 TM UCHK(IOSBPTR),B'00000010' 0287 00276000 BNO @RF00287 0287 00277000 TM EWDBUSO(EWAPTR),B'00111101' 0287 00278000 BZ @RF00287 0287 00279000 TM EWDCREJ(EWAPTR),B'10000000' 0287 00280000 BNZ @RF00287 0287 00281000 @RT00287 DS 0H 0288 00282000 * DO; /* IF SO, DDR MAY BE ABLE TO HELP*/ 00283000 * DDRINV2=DDRVFM; /* INDICATE 'FROM' VALIDATION */ 00284000 MVI DDRINV2(DDRPTR),X'01' 0289 00285000 * CALL IGFDD1; /* VALIDATE THE 'FROM' DEVICE */ 00286000 L @15,@CV00084 0290 00287000 BALR @14,@15 0290 00288000 * DERLRC=RTNCODE; /* COPY RETURN CODE */ 00289000 STC RTNCODE,DERLRC 0291 00290000 * END; 0292 00291000 * IF DERLRC=VALID THEN /* IS DEVICE VALID FOR SWAP */ 00292000 @RF00287 DS 0H 0293 00293000 @RC00279 CLI DERLRC,0 0293 00294000 BNE @RF00293 0293 00295000 * DO; /* YES, SCHEDULE DDR */ 00296000 * 0294 00297000 * /*********************************************************/ 00298000 * /* */ 00299000 * /* GETMAIN SPACE FOR A SHORT DDRCOM AND AN SRB */ 00300000 * /* */ 00301000 * /*********************************************************/ 00302000 * 0295 00303000 * DO; /* GETMAIN (EU) LV(LENGTH(DDRSHOR 00304000 * T)+LENGTH(SRBSECT)) 0295 00305000 * A(DERGMADR) SP(SPN) */ 00306000 * RESPECIFY 0296 00307000 * (GPR01P) RESTRICTED; 0296 00308000 * I004=I004&&I004; /* INIT LIST */ 00309000 XC I004(10),I004 0297 00310000 * I00404='00'X; /* TYPE */ 00311000 MVI I00404,X'00' 0298 00312000 * I00401=LENGTH(DDRSHORT)+LENGTH(SRBSECT);/* LENGTH */ 00313000 MVC I00401(4),@CF03027 0299 00314000 * I00403=ADDR(DERGMADR);/* ADDR OF ADDR LIST */ 00315000 LA @12,DERGMADR 0300 00316000 STCM @12,7,I00403 0300 00317000 * I00405=SPN; /* SUBPOOL VALUE */ 00318000 MVI I00405,X'F5' 0301 00319000 * GPR01P=ADDR(I004); /* REG1 POINTS TO LIST */ 00320000 LA GPR01P,I004 0302 00321000 * SVC(4); /* STANDARD-FORM OF GETMAIN */ 00322000 SVC 4 0303 00323000 * RESPECIFY 0304 00324000 * (GPR01P) UNRESTRICTED; 0304 00325000 * END; /* GETMAIN (EU) LV(LENGTH(DDRSHOR 00326000 * T)+LENGTH(SRBSECT)) 0305 00327000 * A(DERGMADR) SP(SPN) */ 00328000 * DERGMLNG=LENGTH(DDRSHORT)+LENGTH(SRBSECT);/* INDICATE 0306 00329000 * SIZE OF AREA GETMAINED */ 00330000 MVC DERGMLNG(3),@CF03027+1 0306 00331000 * DERGMSPN=SPN; /* INDICATE SUBPOOL NUMBER */ 00332000 MVI DERGMSPN,X'F5' 0307 00333000 * SDDRPTR=DERGMADR; /* PICK UP ADDR OF SHORT DDRCOM */ 00334000 * 0308 00335000 L SDDRPTR,DERGMADR 0308 00336000 * /*********************************************************/ 00337000 * /* */ 00338000 * /* BUILD THE SRB REQUIRED TO SCHEDULE DDR */ 00339000 * /* */ 00340000 * /*********************************************************/ 00341000 * 0309 00342000 * SRBPTR=SDDRPTR+LENGTH(DDRSHORT);/* BUILD THE SRB RIGHT 0309 00343000 * PAST THE SHORT DDRCOM */ 00344000 LA SRBPTR,24 0309 00345000 ALR SRBPTR,SDDRPTR 0309 00346000 * SRBSECT=SRBSECT&&SRBSECT;/* CLEAR THE SRB */ 00347000 XC SRBSECT(44,SRBPTR),SRBSECT(SRBPTR) 0310 00348000 * SRBID='SRB '; /* FILL IN THE ID FIELD */ 00349000 MVC SRBID(4,SRBPTR),@CC03014 0311 00350000 * SRBASCB=ASVTENTY(DDRASID);/* FILL IN THE ADDRESS OF THE 00351000 * ASCB UNDER WHICH DDR IS TO RUN*/ 00352000 LH @12,DDRASID(,DDRPTR) 0312 00353000 SLA @12,2 0312 00354000 L @11,CVTPTR 0312 00355000 L @11,ASVTPTR(,@11) 0312 00356000 L @12,ASVTENTY-4(@12,@11) 0312 00357000 ST @12,SRBASCB(,SRBPTR) 0312 00358000 * SRBPARM=SDDRPTR; /* INDICATE THE SHORT DDRCOM IS A 00359000 * PARAMETER TO DDR */ 00360000 ST SDDRPTR,SRBPARM(,SRBPTR) 0313 00361000 * SRBEP=ADDR(IGFDS0); /* POINT TO DDR SRB ROUTINE */ 00362000 * 0314 00363000 L @12,@CV00086 0314 00364000 ST @12,SRBEP(,SRBPTR) 0314 00365000 * /*********************************************************/ 00366000 * /* */ 00367000 * /* SET UP THE SHORT DDRCOM */ 00368000 * /* */ 00369000 * /*********************************************************/ 00370000 * 0315 00371000 * SDDRPTR->DDRSHORT=DDRSHORT;/* COPY THE WORKING DDRCOM 0315 00372000 * INTO THE SHORT DDRCOM */ 00373000 MVC DDRSHORT(24,SDDRPTR),DDRSHORT(DDRPTR) 0315 00374000 * SDDRPTR->DDRID='DDRS'; /* CHANGE ID FOR SHORT DDRCOM */ 00375000 MVC DDRID(4,SDDRPTR),@CC03015 0316 00376000 * SDDRPTR->DDRSIRB='0'B; /* INDICATE NO LONGER RUNNING 0317 00377000 * UNDER SIRB */ 00378000 * 0317 00379000 NI DDRSIRB(SDDRPTR),B'11111011' 0317 00380000 * /*********************************************************/ 00381000 * /* */ 00382000 * /* SCHEDULE THE SRB TO ACTIVATE DDR */ 00383000 * /* */ 00384000 * /*********************************************************/ 00385000 * 0318 00386000 * GENERATE REFS(SRBPTR,CVTLSMQ,SRBFLNK) 0318 00387000 * (SCHEDULE SRB=(SRBPTR),SCOPE=LOCAL); 0318 00388000 SCHEDULE SRB=(SRBPTR),SCOPE=LOCAL 00389000 * DERGMLNG=0; /* INDICATE THE GETMAINED AREA IS 00390000 * NO LONGER OWNED BY IGE0660A */ 00391000 SLR @12,@12 0319 00392000 STCM @12,7,DERGMLNG 0319 00393000 * DERGMADR=0; /* CLEAR ADDRESS */ 00394000 ST @12,DERGMADR 0320 00395000 * DERGMSPN=0; /* CLEAR SUBPOOL NUMBER */ 00396000 MVI DERGMSPN,X'00' 0321 00397000 * END; 0322 00398000 * END; 0323 00399000 @RF00293 DS 0H 0324 00400000 *IGE0660R: /* ESTAE RETRY RETURN POINT */ 00401000 * IOSBPTR=DDRUIOSB; /* REFRESH IOSB ADDRESS */ 00402000 * 0324 00403000 @RF00255 DS 0H 0324 00404000 IGE0660R L IOSBPTR,DDRUIOSB(,DDRPTR) 0324 00405000 * /*****************************************************************/ 00406000 * /* */ 00407000 * /* IF DDR WAS NOT SCHEDULED, POST A PERMANENT I/O ERROR */ 00408000 * /* */ 00409000 * /*****************************************************************/ 00410000 * 0325 00411000 * IF DERLRC^=VALID THEN 0325 00412000 CLI DERLRC,0 0325 00413000 BE @RF00325 0325 00414000 * DO; /* POST PERMANENT ERROR */ 00415000 * IOSERR='0'B; /* RESET IOSERR FLAG */ 00416000 * IOSEX='1'B; /* SET IOSEX FLAG */ 00417000 OI IOSEX(IOSBPTR),B'00000100' 0328 00418000 NI IOSERR(IOSBPTR),B'11011111' 0328 00419000 * SVC15PM=IOSBPTR; /* POINT TO IOSB */ 00420000 LR SVC15PM,IOSBPTR 0329 00421000 * SVC(15); /* POST ERROR */ 00422000 SVC 15 0330 00423000 * END; 0331 00424000 * DO; /* ?IGFDERR CANCEL */ 00425000 * 0332 00426000 @RF00325 DS 0H 0333 00427000 * /***************************************************************/ 00428000 * /* */ 00429000 * /* IGFDERR - CANCEL RECOVERY ENVIRONMENT */ 00430000 * /* */ 00431000 * /***************************************************************/ 00432000 * 0333 00433000 * DERFUNK=DERCANC; /* INDICATE CANCEL */ 00434000 MVI DERFUNK,X'02' 0333 00435000 * CALL IGFDE0(DERPLIST); /* CANCEL ESTAE */ 00436000 LA @12,DERPLIST 0334 00437000 ST @12,@AL00001 0334 00438000 L @15,@CV00085 0334 00439000 LA @01,@AL00001 0334 00440000 BALR @14,@15 0334 00441000 * END; /* ?IGFDERR CANCEL */ 00442000 * 0335 00443000 * /*****************************************************************/ 00444000 * /* */ 00445000 * /* THE AUTOMATIC DATA AREA MUST NOW BE FREEMAINED */ 00446000 * /* */ 00447000 * /*****************************************************************/ 00448000 * 0336 00449000 * GENERATE; 0336 00450000 L @00,@SIZDATD PICK UP SPN/LENGTH 00451000 LR @01,DATABASE POINT TO AREA TO BE FREED 00452000 FREEMAIN R,LV=(0),A=(1) FREE WORK AREA 00453000 * SVC(3); /* EXIT FROM MODULE */ 00454000 SVC 3 0337 00455000 * 0338 00456000 * /*****************************************************************/ 00457000 * /* */ 00458000 * /* ?EPILOG - GENERATE DECLARES FOR SYSTEM MACROS */ 00459000 * /* */ 00460000 * /*****************************************************************/ 00461000 * 0338 00462000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00463000 * GPR01P PTR(31) REG(1); 0338 00464000 * DCL 0339 00465000 * 1 I004 DEF(ILIST) BDY(WORD), /* LIST FOR GETMAIN */ 00466000 * 2 I00401 PTR(31), /* LENGTH */ 00467000 * 2 I00402 CHAR(1), /* HIARCHY */ 00468000 * 2 I00403 PTR(24), /* ADDR OF ADDR LIST */ 00469000 * 2 I00404 CHAR(1), /* TYPE OF REQUEST */ 00470000 * 2 I00405 PTR(8); /* SUBPOOL VALUE */ 00471000 * DECLARE 0340 00472000 * ILIST CHAR(10) BDY(DWORD); /* STANDARD LIST */ 00473000 * DECLARE /* COMMON VARIABLES */ 00474000 * I256C CHAR(256) BASED, 0341 00475000 * I031F FIXED(31) BASED, 0341 00476000 * I031P PTR(31) BASED, 0341 00477000 * I015F FIXED(15) BASED, 0341 00478000 * I015P PTR(15) BASED, 0341 00479000 * I008P PTR(8) BASED, 0341 00480000 * I001C CHAR(1) BASED; 0341 00481000 * END IGE0660A /* END OF MODULE */ 00482000 * 0342 00483000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00484000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00485000 */*%INCLUDE SYSLIB (IHADCB ) */ 00486000 */*%INCLUDE SYSLIB (IHAASVT ) */ 00487000 */*%INCLUDE SYSLIB (CVT ) */ 00488000 */*%INCLUDE SYSLIB (IEZDEB ) */ 00489000 */*%INCLUDE SYSLIB (IHADDR ) */ 00490000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00491000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00492000 */*%INCLUDE SYSLIB (IECDRQE ) */ 00493000 */*%INCLUDE SYSLIB (IHASRB ) */ 00494000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00495000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00496000 * 0342 00497000 * ; 0342 00498000 @EL00001 L @13,4(,@13) 0342 00499000 @EF00001 DS 0H 0342 00500000 @ER00001 BR @14 0342 00501000 @DATA DS 0H 00502000 @CH00041 DC H'1' 00503000 @DATD DSECT 00504000 DS 0F 00505000 @SA00001 DS 18F 00506000 @AL00001 DS 1A 00507000 IGE0660A CSECT 00508000 DS 0F 00509000 @CF01565 DC F'28' 00510000 @CF03027 DC F'68' 00511000 @CF03037 DC XL4'0000FFFF' 00512000 @DATD DSECT 00513000 DS 0D 00514000 DERPLIST DS CL48 00515000 ORG DERPLIST 00516000 DERFUNK DS AL1 00517000 DERSWCHS DS BL1 00518000 ORG DERSWCHS 00519000 DERCRASH DS BL1 00520000 DERPERK EQU DERSWCHS+0 00521000 DERECALL EQU DERSWCHS+0 00522000 DERESTAE EQU DERSWCHS+0 00523000 @NM00029 EQU DERSWCHS+0 00524000 ORG DERPLIST+2 00525000 @NM00030 DS CL2 00526000 DERREC DS AL4 00527000 DERSPEC DS AL4 00528000 DERRETRY DS AL4 00529000 DERDATD DS CL4 00530000 ORG DERDATD 00531000 DERDASPN DS FL1 00532000 DERDALNG DS FL3 00533000 ORG DERPLIST+20 00534000 DERRSRC DS BL1 00535000 ORG DERRSRC 00536000 DERTAPE DS BL1 00537000 DERUREC EQU DERRSRC+0 00538000 DERDISK EQU DERRSRC+0 00539000 @NM00031 EQU DERRSRC+0 00540000 ORG DERPLIST+21 00541000 DERLRC DS AL1 00542000 DERRUB DS CL18 00543000 ORG DERRUB 00544000 DERPFX DS BL2 00545000 DERRCODE DS AL4 00546000 DERRDATA DS AL4 00547000 DERRDDR DS AL4 00548000 DERRSAVE DS AL4 00549000 ORG DERPLIST+40 00550000 DERGMSPL DS CL4 00551000 ORG DERGMSPL 00552000 DERGMSPN DS FL1 00553000 DERGMLNG DS FL3 00554000 ORG DERPLIST+44 00555000 DERGMADR DS AL4 00556000 ORG DERPLIST+48 00557000 ILIST DS CL10 00558000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00559000 @ENDDATD EQU * 00560000 IGE0660A CSECT 00561000 DS 0F 00562000 @SIZDATD DC AL1(245) 00563000 DC AL3(@ENDDATD-@DATD) 00564000 @CV00084 DC V(IGFDD1) 00565000 @CV00085 DC V(IGFDE0) 00566000 @CV00086 DC V(IGFDS0) 00567000 @CV00087 DC V(IGFDT1) 00568000 DS 0D 00569000 @CC03006 DC C'DDR ' 00570000 @CC03014 DC C'SRB ' 00571000 @CC03015 DC C'DDRS' 00572000 @CB01278 DC B'0000000011100100' 00573000 DERRECPM DS CL24 00574000 ORG DERRECPM 00575000 @NM00032 DC CL8'IGFDI0' 00576000 @NM00033 DC CL8'IGE0660A' 00577000 @NM00034 DC CL8'77322' 00578000 ORG DERRECPM+24 00579000 DS CL2 00580000 IGE0660P DC 13F'0' 00581000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00582000 @01 EQU 01 00583000 @02 EQU 02 00584000 @03 EQU 03 00585000 @04 EQU 04 00586000 @05 EQU 05 00587000 @06 EQU 06 00588000 @07 EQU 07 00589000 @08 EQU 08 00590000 @09 EQU 09 00591000 @10 EQU 10 00592000 @11 EQU 11 00593000 @12 EQU 12 00594000 @13 EQU 13 00595000 @14 EQU 14 00596000 @15 EQU 15 00597000 SDDRPTR EQU @07 00598000 UCBPTR EQU @11 00599000 EWAPTR EQU @07 00600000 CODEBASE EQU @08 00601000 RIOSBIN EQU @01 00602000 SVC15PM EQU @01 00603000 IOSBPTR EQU @02 00604000 SRBPTR EQU @03 00605000 DATABASE EQU @09 00606000 DDRPTR EQU @10 00607000 SAVEPTR EQU @13 00608000 RTNADDR EQU @14 00609000 RTNCODE EQU @15 00610000 GPR01P EQU @01 00611000 PSA EQU 0 00612000 FLCRNPSW EQU PSA 00613000 FLCROPSW EQU PSA+8 00614000 FLCICCW2 EQU PSA+16 00615000 FLCCVT EQU FLCICCW2 00616000 PSAEEPSW EQU PSA+132 00617000 PSAESPSW EQU PSA+136 00618000 FLCSVILC EQU PSAESPSW+1 00619000 PSAEPPSW EQU PSA+140 00620000 FLCPIILC EQU PSAEPPSW+1 00621000 FLCPICOD EQU PSAEPPSW+2 00622000 PSAPICOD EQU FLCPICOD+1 00623000 FLCTEA EQU PSAEPPSW+4 00624000 FLCPER EQU PSA+152 00625000 FLCMCLA EQU PSA+168 00626000 FLCIOEL EQU FLCMCLA+4 00627000 FLCIOA EQU FLCMCLA+16 00628000 FLCFSA EQU FLCMCLA+80 00629000 PSASUPER EQU PSA+552 00630000 PSASUP1 EQU PSASUPER 00631000 PSASUP2 EQU PSASUPER+1 00632000 PSASUP3 EQU PSASUPER+2 00633000 PSASUP4 EQU PSASUPER+3 00634000 PSACLHT EQU PSA+640 00635000 PSALKSA EQU PSA+696 00636000 PSAHLHI EQU PSA+760 00637000 PSADSSFL EQU PSA+836 00638000 PSADSSF1 EQU PSADSSFL 00639000 PSADSSF3 EQU PSADSSFL+2 00640000 PSADSSF4 EQU PSADSSFL+3 00641000 PSARSVT EQU PSA+896 00642000 DDRCLR EQU 0 00643000 IHADCB EQU 0 00644000 IHADCS02 EQU 0 00645000 DCBBLKCT EQU IHADCS02+12 00646000 IHADCS11 EQU 0 00647000 DCBRELB EQU IHADCS11 00648000 DCBREL EQU DCBRELB+1 00649000 DCBBUFCB EQU IHADCS11+4 00650000 DCBDSORG EQU IHADCS11+10 00651000 DCBDSRG1 EQU DCBDSORG 00652000 DCBDSRG2 EQU DCBDSORG+1 00653000 DCBIOBAD EQU IHADCS11+12 00654000 DCBODEB EQU DCBIOBAD 00655000 DCBLNP EQU DCBODEB 00656000 DCBQSLM EQU DCBLNP 00657000 DCBIOBAA EQU DCBODEB+1 00658000 IHADCS50 EQU 0 00659000 DCBSVCXL EQU IHADCS50 00660000 DCBEODAD EQU IHADCS50+4 00661000 DCBBFALN EQU DCBEODAD 00662000 DCBHIARC EQU DCBBFALN 00663000 DCBBFTEK EQU DCBHIARC 00664000 DCBBFT EQU DCBBFTEK 00665000 DCBEXLST EQU IHADCS50+8 00666000 DCBRECFM EQU DCBEXLST 00667000 DCBRECLA EQU DCBRECFM 00668000 IHADCS24 EQU 0 00669000 DCBOFLGS EQU IHADCS24+8 00670000 DCBOFLWR EQU DCBOFLGS 00671000 DCBIFLG EQU IHADCS24+9 00672000 DCBIBPCT EQU DCBIFLG 00673000 DCBMACR EQU IHADCS24+10 00674000 DCBMACR1 EQU DCBMACR 00675000 DCBMRFE EQU DCBMACR1 00676000 DCBMRGET EQU DCBMRFE 00677000 DCBMRAPG EQU DCBMACR1 00678000 DCBMRRD EQU DCBMRAPG 00679000 DCBMRCI EQU DCBMACR1 00680000 DCBMRMVG EQU DCBMRCI 00681000 DCBMRLCG EQU DCBMACR1 00682000 DCBMRABC EQU DCBMACR1 00683000 DCBMRPT1 EQU DCBMRABC 00684000 DCBMRSBG EQU DCBMRPT1 00685000 DCBMRCRL EQU DCBMACR1 00686000 DCBMRCHK EQU DCBMRCRL 00687000 DCBMRRDX EQU DCBMRCHK 00688000 DCBMRDMG EQU DCBMACR1 00689000 DCBMACR2 EQU DCBMACR+1 00690000 DCBMRPUT EQU DCBMACR2 00691000 DCBMRWRT EQU DCBMACR2 00692000 DCBMRMVP EQU DCBMACR2 00693000 DCBMR5WD EQU DCBMACR2 00694000 DCBMRLDM EQU DCBMR5WD 00695000 DCBMRLCP EQU DCBMRLDM 00696000 DCBMR4WD EQU DCBMACR2 00697000 DCBMRPT2 EQU DCBMR4WD 00698000 DCBMRTMD EQU DCBMRPT2 00699000 DCBMR3WD EQU DCBMACR2 00700000 DCBMRCTL EQU DCBMR3WD 00701000 DCBMRSTK EQU DCBMRCTL 00702000 DCBMR1WD EQU DCBMACR2 00703000 DCBMRSWA EQU DCBMR1WD 00704000 DCBMRDMD EQU DCBMRSWA 00705000 IHADCS25 EQU 0 00706000 DCBMACRF EQU IHADCS25+2 00707000 DCBMACF1 EQU DCBMACRF 00708000 DCBMFFE EQU DCBMACF1 00709000 DCBMFGET EQU DCBMFFE 00710000 DCBMFAPG EQU DCBMACF1 00711000 DCBMFRD EQU DCBMFAPG 00712000 DCBMFCI EQU DCBMACF1 00713000 DCBMFMVG EQU DCBMFCI 00714000 DCBMFLCG EQU DCBMACF1 00715000 DCBMFABC EQU DCBMACF1 00716000 DCBMFPT1 EQU DCBMFABC 00717000 DCBMFSBG EQU DCBMFPT1 00718000 DCBMFCRL EQU DCBMACF1 00719000 DCBMFCHK EQU DCBMFCRL 00720000 DCBMFDMG EQU DCBMACF1 00721000 DCBMACF2 EQU DCBMACRF+1 00722000 DCBMFPUT EQU DCBMACF2 00723000 DCBMFWRT EQU DCBMACF2 00724000 DCBMFMVP EQU DCBMACF2 00725000 DCBMF5WD EQU DCBMACF2 00726000 DCBMFLDM EQU DCBMF5WD 00727000 DCBMFLCP EQU DCBMFLDM 00728000 DCBMF4WD EQU DCBMACF2 00729000 DCBMFPT2 EQU DCBMF4WD 00730000 DCBMFTMD EQU DCBMFPT2 00731000 DCBMF3WD EQU DCBMACF2 00732000 DCBMFCTL EQU DCBMF3WD 00733000 DCBMFSTK EQU DCBMFCTL 00734000 DCBMF1WD EQU DCBMACF2 00735000 DCBMFSWA EQU DCBMF1WD 00736000 DCBMFDMD EQU DCBMFSWA 00737000 DCBDEBAD EQU IHADCS25+4 00738000 DCBIFLGS EQU DCBDEBAD 00739000 DCBIFPCT EQU DCBIFLGS 00740000 IHADCS28 EQU 0 00741000 DCBOPTCD EQU IHADCS28 00742000 DCBOPTZ EQU DCBOPTCD 00743000 ASVT EQU 0 00744000 ASVTFRST EQU ASVT+524 00745000 ASVTENTY EQU ASVT+528 00746000 CVTMAP EQU 0 00747000 CVTDAR EQU CVTMAP+72 00748000 CVTFLGS1 EQU CVTDAR 00749000 CVTDCB EQU CVTMAP+116 00750000 CVTIOQET EQU CVTMAP+120 00751000 CVTIERLC EQU CVTMAP+144 00752000 CVTHEAD EQU CVTMAP+160 00753000 CVTSV76C EQU CVTHEAD 00754000 CVTOPTA EQU CVTMAP+182 00755000 CVTDDR EQU CVTOPTA 00756000 CVTNIP EQU CVTOPTA 00757000 CVTOPTB EQU CVTMAP+183 00758000 CVTGTF EQU CVTMAP+236 00759000 CVTGTFST EQU CVTGTF 00760000 CVTGTFS EQU CVTGTFST 00761000 CVTSTATE EQU CVTGTFST 00762000 CVTTMODE EQU CVTGTFST 00763000 CVTFORM EQU CVTGTFST 00764000 CVTAQAVT EQU CVTMAP+240 00765000 CVTTCMFG EQU CVTAQAVT 00766000 CVTVOLM2 EQU CVTMAP+244 00767000 CVTTATA EQU CVTVOLM2 00768000 CVTTSKS EQU CVTTATA 00769000 CVTVOLF2 EQU CVTTSKS 00770000 CVTTAT EQU CVTTATA+1 00771000 CVTATER EQU CVTMAP+248 00772000 CVTEXT1 EQU CVTMAP+252 00773000 CVTPURG EQU CVTMAP+260 00774000 CVTQMSG EQU CVTMAP+268 00775000 CVTDMSR EQU CVTMAP+272 00776000 CVTRSV37 EQU CVTDMSR 00777000 CVTDMSRF EQU CVTRSV37 00778000 CVTERPV EQU CVTMAP+316 00779000 CVTINTLA EQU CVTMAP+320 00780000 CVTAPF EQU CVTMAP+324 00781000 CVTEXT2 EQU CVTMAP+328 00782000 CVTHJES EQU CVTMAP+332 00783000 CVTPGSIA EQU CVTMAP+348 00784000 CVTA1F1 EQU CVTMAP+356 00785000 CVTSYSK EQU CVTMAP+357 00786000 CVTVOLM1 EQU CVTMAP+380 00787000 CVTVOLF1 EQU CVTVOLM1 00788000 CVTATMCT EQU CVTMAP+388 00789000 CVTXTNT1 EQU 0 00790000 CVTXTNT2 EQU 0 00791000 CVTDSSV EQU CVTXTNT2 00792000 CVTFLGBT EQU CVTXTNT2+5 00793000 CVTQID EQU CVTXTNT2+24 00794000 CVTRV400 EQU CVTXTNT2+52 00795000 CVTRV409 EQU CVTXTNT2+53 00796000 CVTATCVT EQU CVTXTNT2+64 00797000 CVTRV429 EQU CVTXTNT2+84 00798000 CVTRV438 EQU CVTXTNT2+85 00799000 CVTRV457 EQU CVTXTNT2+112 00800000 CVTRV466 EQU CVTXTNT2+113 00801000 CVTFIX EQU 0 00802000 CVTRELNO EQU CVTFIX+252 00803000 DEBBASIC EQU 0 00804000 DEBTCBAD EQU DEBBASIC 00805000 DEBDEBAD EQU DEBBASIC+4 00806000 DEBIRBAD EQU DEBBASIC+8 00807000 DEBOFLGS EQU DEBIRBAD 00808000 DEBOPATB EQU DEBBASIC+12 00809000 DEBFLGS1 EQU DEBBASIC+14 00810000 DEBUSRPG EQU DEBBASIC+16 00811000 DEBRRQ EQU DEBBASIC+20 00812000 DEBECBAD EQU DEBRRQ 00813000 DEBDCBAD EQU DEBBASIC+24 00814000 DEBPROTG EQU DEBDCBAD 00815000 DEBDCBB EQU DEBDCBAD+1 00816000 DEBAPPAD EQU DEBBASIC+28 00817000 DEBBASND EQU DEBBASIC+32 00818000 DEBDASD EQU 0 00819000 DEBUCBAD EQU DEBDASD 00820000 DEBACSMD EQU 0 00821000 DEBVOLSQ EQU DEBACSMD 00822000 DEBVOLBT EQU DEBVOLSQ 00823000 DEBDSNM EQU DEBACSMD+4 00824000 DEBUTSAA EQU DEBDSNM 00825000 DEBACS01 EQU 0 00826000 DEBDSNAM EQU DEBACS01 00827000 DEBACS02 EQU 0 00828000 DEBDBLK EQU DEBACS02 00829000 DEBACS03 EQU 0 00830000 DEBACS04 EQU 0 00831000 DEBTBFRA EQU DEBACS04 00832000 DEBTCCWA EQU DEBACS04+4 00833000 DEBACS05 EQU 0 00834000 DEBFUCBA EQU DEBACS05 00835000 DEBLUCBA EQU DEBACS05+4 00836000 DEBACS06 EQU 0 00837000 DEBACS07 EQU 0 00838000 DEBACS08 EQU 0 00839000 DEBSUBNM EQU 0 00840000 DEB EQU 0 00841000 DEBAVT EQU DEB 00842000 DEBEOEA EQU DEBAVT 00843000 DEBEOEAB EQU DEBEOEA 00844000 DEBSIOA EQU DEBAVT+4 00845000 DEBSIOAB EQU DEBSIOA 00846000 DEBPCIA EQU DEBAVT+8 00847000 DEBPCIAB EQU DEBPCIA 00848000 DEBCEA EQU DEBAVT+12 00849000 DEBCEAB EQU DEBCEA 00850000 DEBXCEA EQU DEBAVT+16 00851000 DEBXCEAB EQU DEBXCEA 00852000 DEBPREFX EQU DEB+20 00853000 DEBXTNP EQU DEBPREFX+8 00854000 DEBXTN EQU 0 00855000 DEBXFLG1 EQU DEBXTN+2 00856000 DDRCOM EQU 0 00857000 DDRSHORT EQU DDRCOM 00858000 DDRID EQU DDRSHORT 00859000 DDRCNTRL EQU DDRSHORT+8 00860000 DDRSRC EQU DDRCNTRL 00861000 DDRSYS EQU DDRSRC 00862000 DDRPAGE EQU DDRSRC 00863000 DDRSTAT EQU DDRCNTRL+1 00864000 DDRSIRB EQU DDRSTAT 00865000 DDRDCHAR EQU DDRCNTRL+2 00866000 DDRDSTAT EQU DDRDCHAR+1 00867000 DDRDA EQU DDRDSTAT 00868000 DDRMT EQU DDRDSTAT 00869000 DDRUIOSB EQU DDRSHORT+12 00870000 DDRUASID EQU DDRSHORT+16 00871000 DDRFMCUA EQU DDRSHORT+18 00872000 DDRLONG EQU DDRCOM+24 00873000 DDRFMUCB EQU DDRLONG+4 00874000 DDRROWN EQU DDRLONG+8 00875000 DDRASID EQU DDRLONG+10 00876000 DDRMIHT EQU DDRLONG+12 00877000 DDRUDCB EQU DDRMIHT 00878000 DDRUDEB EQU DDRMIHT+4 00879000 DDRUIOB EQU DDRLONG+20 00880000 DDRUTCB EQU DDRLONG+24 00881000 DDRUASCB EQU DDRLONG+28 00882000 DDRTER EQU DDRLONG+36 00883000 DDRINV EQU DDRLONG+38 00884000 DDRINV2 EQU DDRINV+1 00885000 DDRAPP EQU DDRLONG+40 00886000 DDRIOF EQU DDRLONG+52 00887000 DDRIOF2 EQU DDRIOF+1 00888000 DDRMSG EQU DDRLONG+54 00889000 DDRMSGP EQU DDRLONG+56 00890000 DDRLABEL EQU DDRLONG+64 00891000 DDRREC EQU DDRLONG+66 00892000 DDRREC2 EQU DDRREC+1 00893000 DDRUSER EQU DDRLONG+68 00894000 DDRUMODE EQU DDRUSER 00895000 DDRUBCNT EQU DDRLONG+72 00896000 EWA EQU 0 00897000 EWAHDR EQU EWA 00898000 EWAFLAGS EQU EWA+4 00899000 EWAFLG1 EQU EWAFLAGS 00900000 EWASCCD EQU EWAFLG1 00901000 EWASCC3 EQU EWASCCD 00902000 EWAFLG2 EQU EWAFLAGS+1 00903000 EWAFLG3 EQU EWAFLAGS+2 00904000 EWASNSCT EQU EWAFLAGS+3 00905000 EWACNTRS EQU EWA+10 00906000 EWAERPIB EQU EWA+16 00907000 EWARGFG1 EQU EWAERPIB+4 00908000 EWARGFG2 EQU EWAERPIB+5 00909000 EWAXCSW1 EQU EWAERPIB+6 00910000 EWAXCSW2 EQU EWAERPIB+7 00911000 EWAFLGA EQU EWA+26 00912000 EWAIERP EQU EWA+32 00913000 IOSB EQU 0 00914000 IOSFLA EQU IOSB 00915000 IOSACHN EQU IOSFLA 00916000 IOSERR EQU IOSFLA 00917000 IOSEX EQU IOSFLA 00918000 IOSFLB EQU IOSB+1 00919000 IOSFLC EQU IOSB+2 00920000 IOSDVALT EQU IOSFLC 00921000 IOSDVRID EQU IOSB+4 00922000 IOSASID EQU IOSB+6 00923000 IOSPKEY EQU IOSB+12 00924000 IOSPGDPX EQU IOSPKEY 00925000 IOSCOD EQU IOSB+13 00926000 IOSOPT EQU IOSB+14 00927000 IOSQISCE EQU IOSOPT 00928000 IOSOPT2 EQU IOSB+15 00929000 IOSUCB EQU IOSB+16 00930000 @NM00054 EQU IOSB+20 00931000 IOSCSW EQU @NM00054+1 00932000 IOSTATUS EQU IOSCSW+3 00933000 IOSTSA EQU IOSTATUS 00934000 IOSTSB EQU IOSTATUS+1 00935000 IOSSRB EQU IOSB+28 00936000 IOSUSE EQU IOSB+32 00937000 IOSIPIB EQU IOSB+44 00938000 IOSERP EQU IOSB+52 00939000 IOSPATH EQU IOSB+86 00940000 IOSCHN EQU IOSPATH 00941000 IOSCKEY EQU IOSB+89 00942000 IOSEEKA EQU IOSB+100 00943000 IOSCCHH EQU IOSEEKA+3 00944000 IOSSKHH EQU IOSCCHH+2 00945000 RQE EQU 0 00946000 RQEIOB EQU RQE+4 00947000 RQEDEB EQU RQE+8 00948000 RQETCB EQU RQE+12 00949000 RQEPRT EQU RQE+36 00950000 RQETYPE EQU RQE+37 00951000 RQETYP3 EQU RQETYPE 00952000 RQEFLAG EQU RQE+38 00953000 RQEFLAG3 EQU RQE+39 00954000 SRBSECT EQU 0 00955000 SRB EQU SRBSECT 00956000 SRBID EQU SRB 00957000 SRBFLNK EQU SRB+4 00958000 SRBASCB EQU SRB+8 00959000 SRBFLC EQU SRB+12 00960000 SRBEP EQU SRB+20 00961000 SRBPARM EQU SRB+28 00962000 TCBFIX EQU 0 00963000 TCBFRS EQU TCBFIX 00964000 TCB EQU 0 00965000 TCBPIE EQU TCB+4 00966000 TCBPMASK EQU TCBPIE 00967000 TCBCMP EQU TCB+16 00968000 TCBCMPF EQU TCBCMP 00969000 TCBCPP EQU TCBCMPF 00970000 TCBSTCC EQU TCBCMPF 00971000 TCBCDBL EQU TCBCMPF 00972000 TCBCWTO EQU TCBCMPF 00973000 TCBCIND EQU TCBCMPF 00974000 TCBCMSG EQU TCBCMPF 00975000 TCBTRN EQU TCB+20 00976000 TCBABF EQU TCBTRN 00977000 TCBMSS EQU TCB+24 00978000 TCBPKF EQU TCB+28 00979000 TCBFLGS EQU TCB+29 00980000 TCBFLGS1 EQU TCBFLGS 00981000 TCBFLGS2 EQU TCBFLGS+1 00982000 TCBFLGS3 EQU TCBFLGS+2 00983000 TCBFLGS4 EQU TCBFLGS+3 00984000 TCBFLGS5 EQU TCBFLGS+4 00985000 TCBABWF EQU TCBFLGS5 00986000 TCBJPQ EQU TCB+44 00987000 TCBPURGE EQU TCBJPQ 00988000 TCBGRS EQU TCB+48 00989000 TCBFSA EQU TCB+112 00990000 TCBTME EQU TCB+120 00991000 TCBJSTCB EQU TCB+124 00992000 TCBTSFLG EQU TCB+148 00993000 TCBTSTSK EQU TCBTSFLG 00994000 TCBSTAB EQU TCB+160 00995000 TCBNSTAE EQU TCBSTAB 00996000 TCBTCT EQU TCB+164 00997000 TCBTCTGF EQU TCBTCT 00998000 TCBSCNDY EQU TCB+172 00999000 TCBNDSP EQU TCBSCNDY 01000000 TCBNDSP1 EQU TCBNDSP+1 01001000 TCBNDSP2 EQU TCBNDSP+2 01002000 TCBNDSP3 EQU TCBNDSP+3 01003000 TCBJSCB EQU TCB+180 01004000 TCBRECDE EQU TCBJSCB 01005000 TCBEXT1 EQU TCB+196 01006000 TCBBITS EQU TCB+200 01007000 TCBNDSP4 EQU TCBBITS 01008000 TCBNDSP5 EQU TCBBITS+1 01009000 TCBFLGS6 EQU TCBBITS+2 01010000 TCBFLGS7 EQU TCBBITS+3 01011000 TCBDAR EQU TCB+204 01012000 TCBDARC EQU TCBDAR 01013000 TCBEXT2 EQU TCB+208 01014000 TCBTID EQU TCB+238 01015000 TCBFOE EQU TCB+244 01016000 TCBESTAE EQU TCB+264 01017000 TCBESTRM EQU TCBESTAE+1 01018000 TCBFBYT1 EQU TCB+276 01019000 TCBFBYT2 EQU TCB+277 01020000 TCBRV124 EQU TCB+278 01021000 TCBRV133 EQU TCB+279 01022000 TCBXTNT2 EQU 0 01023000 TCBGTF EQU TCBXTNT2 01024000 TCBTFLG EQU TCBGTF 01025000 TCBRV146 EQU TCBXTNT2+28 01026000 TCBRV155 EQU TCBXTNT2+29 01027000 TCBRV164 EQU TCBXTNT2+30 01028000 TCBRV173 EQU TCBXTNT2+31 01029000 UCB EQU 0 01030000 UCBOB EQU 0 01031000 UCBJBNR EQU UCBOB 01032000 UCBFL5 EQU UCBOB+1 01033000 UCBAF EQU UCBFL5 01034000 UCBSTAT EQU UCBOB+3 01035000 UCBCHAN EQU UCBOB+4 01036000 UCBSFLS EQU UCBOB+6 01037000 UCBFLA EQU UCBSFLS 01038000 UCBFL1 EQU UCBFLA 01039000 UCBBSY EQU UCBFL1 01040000 UCBNRY EQU UCBFL1 01041000 UCBPST EQU UCBFL1 01042000 UCBCUB EQU UCBFL1 01043000 UCBQISCE EQU UCBFL1 01044000 UCBFLB EQU UCBSFLS+1 01045000 UCBCHM EQU UCBOB+8 01046000 UCBCHM1 EQU UCBCHM 01047000 UCBPTH0 EQU UCBCHM1 01048000 UCBPTH1 EQU UCBCHM1 01049000 UCBWGT EQU UCBOB+12 01050000 UCBNAME EQU UCBOB+13 01051000 UCBTYP EQU UCBOB+16 01052000 UCBTBYT1 EQU UCBTYP 01053000 UCB1FEA5 EQU UCBTBYT1 01054000 UCB1FEA6 EQU UCBTBYT1 01055000 UCBTBYT2 EQU UCBTYP+1 01056000 UCB2OPT2 EQU UCBTBYT2 01057000 UCBDUDN1 EQU UCB2OPT2 01058000 UCB2OPT3 EQU UCBTBYT2 01059000 UCBDUDN2 EQU UCB2OPT3 01060000 UCB2OPT4 EQU UCBTBYT2 01061000 UCBRWTAU EQU UCB2OPT4 01062000 UCB2OPT6 EQU UCBTBYT2 01063000 UCB2OPT7 EQU UCBTBYT2 01064000 UCBTBYT3 EQU UCBTYP+2 01065000 UCBDVCLS EQU UCBTBYT3 01066000 UCB3TAPE EQU UCBDVCLS 01067000 UCB3DACC EQU UCBDVCLS 01068000 UCBTBYT4 EQU UCBTYP+3 01069000 UCBEXTPT EQU UCBOB+20 01070000 UCBFLC EQU UCBEXTPT 01071000 UCBDDRSW EQU UCBFLC 01072000 UCBDEV EQU UCBOB+24 01073000 UCBCMEXT EQU 0 01074000 UCBATI EQU UCBCMEXT+3 01075000 @NM00095 EQU UCBATI 01076000 UCBFLP1 EQU UCBCMEXT+5 01077000 UCBMT EQU 0 01078000 UCBOCR EQU 0 01079000 UCB3540X EQU 0 01080000 UCBDKBYT EQU UCB3540X+6 01081000 UCB3800X EQU 0 01082000 UCBOPTNS EQU UCB3800X 01083000 UCBACTIV EQU UCB3800X+3 01084000 UCBMDRBF EQU UCB3800X+36 01085000 UCBUCS EQU 0 01086000 UCBUCSOP EQU UCBUCS+4 01087000 UCBFCBOP EQU UCBUCS+5 01088000 I001C EQU 0 01089000 I008P EQU 0 01090000 I015F EQU 0 01091000 I015P EQU 0 01092000 I031F EQU 0 01093000 I031P EQU 0 01094000 I256C EQU 0 01095000 UCBBGN EQU 0 01096000 CVTS01 EQU CVTPGSIA 01097000 CVTLPDIA EQU CVTS01+12 01098000 CVTDIRST EQU CVTLPDIA 01099000 CVTSLIDA EQU CVTS01+24 01100000 CVTCTLFG EQU CVTS01+50 01101000 CVTASVT EQU CVTS01+208 01102000 CVTLSMQ EQU CVTS01+268 01103000 CVTRV210 EQU CVTS01+424 01104000 CVTRV219 EQU CVTS01+425 01105000 CVTRV228 EQU CVTS01+426 01106000 CVTRV237 EQU CVTS01+427 01107000 CVTMFRTR EQU CVTS01+452 01108000 CVTRV262 EQU CVTS01+468 01109000 CVTRV271 EQU CVTS01+469 01110000 CVTRV280 EQU CVTS01+470 01111000 CVTRV289 EQU CVTS01+471 01112000 CVTGSDA EQU CVTS01+600 01113000 ASVTPTR EQU CVTASVT 01114000 CVTPTR EQU FLCCVT 01115000 DEBPTR EQU DDRUDEB 01116000 DCBPTR EQU DDRUDCB 01117000 RQEPTR EQU IOSUSE 01118000 TCBPTR EQU RQETCB 01119000 @NM00001 EQU IOSTSB 01120000 CSTAT EQU @NM00001 01121000 @NM00004 EQU IOSTSA 01122000 UCHK EQU @NM00004 01123000 DEBBAS02 EQU DEBBASND 01124000 DEBDDS1 EQU DEBBAS02 01125000 DEBSUCBA EQU DEBDDS1 01126000 DEBSDVM EQU DEBSUCBA 01127000 DEBDEVED EQU DEBDDS1+4 01128000 DEBRDCB EQU DEBDDS1+4 01129000 DEBPDCB EQU DEBDDS1+8 01130000 DEBWDCB EQU DEBDDS1+12 01131000 DEBACS09 EQU DEBDEVED 01132000 DEBASC09 EQU DEBACS09 01133000 DEBEAMFG EQU DEBASC09+3 01134000 DEBDSID EQU DEBASC09+4 01135000 DEBEOD EQU DEBASC09+12 01136000 DEBBOE EQU DEBEOD 01137000 DEBEODRV EQU DEBBOE 01138000 DEBEODTT EQU DEBBOE+1 01139000 DEBEOD0 EQU DEBBOE+2 01140000 DEBEODSS EQU DEBBOE+3 01141000 DEBBAS01 EQU DEBBASND 01142000 DEBISAM EQU DEBBAS01 01143000 DEBFIEAD EQU DEBISAM 01144000 DEBFPEAD EQU DEBISAM+4 01145000 DEBFOEAD EQU DEBISAM+8 01146000 DEBEXPT EQU DEBISAM+12 01147000 DEBRPSID EQU DEBEXPT 01148000 EWADDIOS EQU EWAIERP 01149000 EWADAREA EQU EWAIERP 01150000 EWDASNS EQU EWADAREA 01151000 EWDSNS0 EQU EWDASNS 01152000 EWDCREJ EQU EWDSNS0 01153000 EWDBUSO EQU EWDSNS0 01154000 EWDEQU EQU EWDSNS0 01155000 EWDDATA EQU EWDSNS0 01156000 EWDOVRN EQU EWDSNS0 01157000 EWDSKCK EQU EWDSNS0 01158000 EWDSNS1 EQU EWDASNS+1 01159000 EWDMAM EQU EWDSNS1 01160000 EWDSNS2 EQU EWDASNS+2 01161000 EWDZLOG EQU EWDSNS2 01162000 EWDWRPS EQU EWDZLOG 01163000 EWD22 EQU EWDSNS2 01164000 EWDSNS10 EQU EWDASNS+10 01165000 EWDSNS24 EQU EWDASNS+24 01166000 EWDHOMAD EQU EWADAREA+39 01167000 EWDHAFLG EQU EWDHOMAD 01168000 IOSATTSC EQU IOSIPIB 01169000 IOSWTOWA EQU IOSIPIB 01170000 IOSPCISC EQU IOSIPIB 01171000 PSARSVTE EQU PSARSVT 01172000 UCBOBS01 EQU UCBDEV 01173000 UCBSTAB EQU UCBOBS01+10 01174000 UCBBSVL EQU UCBSTAB 01175000 UCBPRSRS EQU UCBSTAB 01176000 UCBDMCT EQU UCBOBS01+11 01177000 UCBFL4 EQU UCBOBS01+13 01178000 UCBOBS02 EQU UCBDEV 01179000 UCBTFL1 EQU UCBOBS02+19 01180000 UCBXTN EQU UCBOBS02+20 01181000 UCBVOPT EQU UCBXTN 01182000 UCBOBS03 EQU UCBDEV 01183000 UCBXTADR EQU UCBOBS03 01184000 UCBOBS04 EQU UCBDEV 01185000 UCBBTA EQU UCBOBS04+12 01186000 UCBOBS06 EQU UCBDEV 01187000 UCBAOF EQU UCBOBS06 01188000 UCBAOF1 EQU UCBAOF 01189000 UCBAOF2 EQU UCBAOF+1 01190000 @NM00094 EQU UCBOBS06+3 01191000 UCBIRB EQU UCBOBS06+4 01192000 UCBGRAF EQU UCBIRB 01193000 UCBLDNCA EQU UCBOBS06+8 01194000 UCBRDYQ EQU UCBLDNCA 01195000 UCBIRLN EQU UCBRDYQ 01196000 UCBLDNCB EQU UCBRDYQ+1 01197000 UCBCTLNK EQU UCBOBS06+12 01198000 UCBOBS07 EQU UCBDEV 01199000 UCBOBS08 EQU UCBDEV 01200000 UCBCTCAD EQU UCBOBS08 01201000 UCBCTCF1 EQU UCBOBS08+4 01202000 UCBOBS09 EQU UCBDEV 01203000 I004 EQU ILIST 01204000 I00401 EQU I004 01205000 I00403 EQU I004+5 01206000 I00404 EQU I004+8 01207000 I00405 EQU I004+9 01208000 FLC EQU PSA 01209000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01210000 I00402 EQU I004+4 01211000 UCBRV066 EQU UCBOBS09+4 01212000 UCBIOSBA EQU UCBOBS09 01213000 UCBRV042 EQU UCBOBS08+5 01214000 UCBRV082 EQU UCBCTCF1 01215000 UCBRV081 EQU UCBCTCF1 01216000 UCBRV080 EQU UCBCTCF1 01217000 UCBRV079 EQU UCBCTCF1 01218000 UCBRV078 EQU UCBCTCF1 01219000 UCBRV077 EQU UCBCTCF1 01220000 UCBRV076 EQU UCBCTCF1 01221000 UCBCTC80 EQU UCBCTCF1 01222000 UCBCTCAL EQU UCBCTCAD 01223000 UCBICNCB EQU UCBOBS07+4 01224000 UCBRV040 EQU UCBOBS07 01225000 UCBCTLNA EQU UCBCTLNK+1 01226000 UCBRLN EQU UCBCTLNK 01227000 UCBRDYQA EQU UCBLDNCB 01228000 UCBINRLN EQU UCBIRLN 01229000 UCBIRBA EQU UCBIRB+1 01230000 UCBRV039 EQU UCBGRAF 01231000 UCBDWNR EQU UCBGRAF 01232000 UCBRPND EQU UCBGRAF 01233000 UCBUPM EQU UCBGRAF 01234000 UCBBTAM EQU UCBGRAF 01235000 UCBDRNO EQU UCBGRAF 01236000 UCBDRO EQU UCBGRAF 01237000 UCBOIP EQU UCBGRAF 01238000 UCBATRCD EQU @NM00094 01239000 UCBSKPFG EQU @NM00094 01240000 UCBRIPND EQU @NM00094 01241000 UCBRTIAC EQU @NM00094 01242000 UCBRSV79 EQU @NM00094 01243000 UCBRSV78 EQU @NM00094 01244000 UCBRSV77 EQU @NM00094 01245000 UCBOLTEP EQU @NM00094 01246000 UCBATNCT EQU UCBOBS06+2 01247000 UCBRSV76 EQU UCBAOF2 01248000 UCBRSV75 EQU UCBAOF2 01249000 UCBRSV74 EQU UCBAOF2 01250000 UCBRSV73 EQU UCBAOF2 01251000 UCBRSV72 EQU UCBAOF2 01252000 UCBRSV71 EQU UCBAOF2 01253000 UCBRSV70 EQU UCBAOF2 01254000 UCBRSV69 EQU UCBAOF2 01255000 UCBRSV68 EQU UCBAOF1 01256000 UCBRSV67 EQU UCBAOF1 01257000 UCBRSV66 EQU UCBAOF1 01258000 UCBRSV65 EQU UCBAOF1 01259000 UCBRSV64 EQU UCBAOF1 01260000 UCBOFNL EQU UCBAOF1 01261000 UCBOFSP EQU UCBAOF1 01262000 UCBOFMCR EQU UCBAOF1 01263000 UCBBTB EQU UCBBTA+1 01264000 UCBDI EQU UCBBTA 01265000 UCBSNS EQU UCBOBS04+8 01266000 UCBTEB EQU UCBOBS04+4 01267000 UCBGCB EQU UCBOBS04+3 01268000 UCBOPEN EQU UCBOBS04+2 01269000 UCBSTART EQU UCBOBS04 01270000 UCBXTNB EQU UCBXTN+1 01271000 UCBRSV22 EQU UCBVOPT 01272000 UCBRSV21 EQU UCBVOPT 01273000 UCBRSV20 EQU UCBVOPT 01274000 UCBESVE EQU UCBVOPT 01275000 UCBERPC EQU UCBVOPT 01276000 UCBESVC EQU UCBVOPT 01277000 UCBEVA EQU UCBVOPT 01278000 UCBESV EQU UCBVOPT 01279000 UCBRV009 EQU UCBTFL1 01280000 UCBRV008 EQU UCBTFL1 01281000 UCBRV007 EQU UCBTFL1 01282000 UCBRV006 EQU UCBTFL1 01283000 UCBRV005 EQU UCBTFL1 01284000 UCBDQDSP EQU UCBTFL1 01285000 UCBNSLTP EQU UCBTFL1 01286000 UCBNLTP EQU UCBTFL1 01287000 UCBRES1B EQU UCBOBS02+18 01288000 UCBFSER EQU UCBOBS02+12 01289000 @NM00093 EQU UCBOBS02+4 01290000 UCBFSEQ EQU UCBOBS02+2 01291000 UCBFSCT EQU UCBOBS02 01292000 UCBNEXP EQU UCBOBS01+20 01293000 UCBBASE EQU UCBOBS01+16 01294000 UCBRES1A EQU UCBOBS01+15 01295000 UCBUSER EQU UCBOBS01+14 01296000 UCBFL47 EQU UCBFL4 01297000 UCBFL46 EQU UCBFL4 01298000 UCBFL45 EQU UCBFL4 01299000 UCBRV065 EQU UCBFL4 01300000 UCBDSS EQU UCBFL4 01301000 UCBRESVP EQU UCBFL4 01302000 UCBWDAV EQU UCBFL4 01303000 UCBDAVV EQU UCBFL4 01304000 UCBSQC EQU UCBOBS01+12 01305000 UCBDATP EQU UCBOBS01+12 01306000 UCBDMC EQU UCBDMCT 01307000 UCBMOUNT EQU UCBDMCT 01308000 UCBBNUL EQU UCBSTAB 01309000 UCBSHAR EQU UCBSTAB 01310000 UCBBSTR EQU UCBSTAB 01311000 UCBBPUB EQU UCBSTAB 01312000 UCBBPRV EQU UCBSTAB 01313000 UCBBALB EQU UCBPRSRS 01314000 UCBPGFL EQU UCBSTAB 01315000 UCBDVSHR EQU UCBBSVL 01316000 UCBVOLI EQU UCBOBS01+4 01317000 UCBVTOC EQU UCBOBS01 01318000 PSARSAV EQU PSARSVTE+60 01319000 PSARSTK EQU PSARSVTE+56 01320000 PSAESAV3 EQU PSARSVTE+52 01321000 PSAESTK3 EQU PSARSVTE+48 01322000 PSAESAV2 EQU PSARSVTE+44 01323000 PSAESTK2 EQU PSARSVTE+40 01324000 PSAESAV1 EQU PSARSVTE+36 01325000 PSAESTK1 EQU PSARSVTE+32 01326000 PSAPSAV EQU PSARSVTE+28 01327000 PSAPSTK EQU PSARSVTE+24 01328000 PSAMSAV EQU PSARSVTE+20 01329000 PSAMSTK EQU PSARSVTE+16 01330000 PSASSAV EQU PSARSVTE+12 01331000 PSASSTK EQU PSARSVTE+8 01332000 PSANSTK EQU PSARSVTE+4 01333000 PSACSTK EQU PSARSVTE 01334000 IOSPCIWA EQU IOSPCISC+44 01335000 IOSPCIRS EQU IOSPCISC+8 01336000 @NM00059 EQU IOSPCISC+4 01337000 @NM00058 EQU IOSPCISC 01338000 IOSWRNDR EQU IOSWTOWA+4 01339000 IOSWTOPT EQU IOSWTOWA+3 01340000 IOSWTOCP EQU IOSWTOWA+2 01341000 IOSWTOCH EQU IOSWTOWA 01342000 IOSATTWA EQU IOSATTSC+40 01343000 @NM00057 EQU IOSATTSC+24 01344000 IOSATTSN EQU IOSATTSC 01345000 EWDEND EQU EWADAREA+128 01346000 EWDCCWA EQU EWADAREA+120 01347000 EWDCCW9 EQU EWADAREA+112 01348000 EWDCCW8 EQU EWADAREA+104 01349000 EWDCCW7 EQU EWADAREA+96 01350000 EWDCCW6 EQU EWADAREA+88 01351000 EWDCCW5 EQU EWADAREA+80 01352000 EWDCCW4 EQU EWADAREA+72 01353000 EWDCCW3 EQU EWADAREA+64 01354000 EWDCCW2 EQU EWADAREA+56 01355000 EWDCCW1 EQU EWADAREA+48 01356000 EWDDISP EQU EWADAREA+45 01357000 EWDHARNO EQU EWDHOMAD+5 01358000 EWDCCHH EQU EWDHOMAD+1 01359000 EWDHAALT EQU EWDHAFLG 01360000 EWDHADEF EQU EWDHAFLG 01361000 EWDHA5 EQU EWDHAFLG 01362000 EWDHA4 EQU EWDHAFLG 01363000 EWDHA3 EQU EWDHAFLG 01364000 EWDHA2 EQU EWDHAFLG 01365000 EWDHA1 EQU EWDHAFLG 01366000 EWDHA0 EQU EWDHAFLG 01367000 EWDSAVC EQU EWADAREA+32 01368000 EWDSAVS EQU EWADAREA+30 01369000 EWDSAVOP EQU EWADAREA+29 01370000 EWDSAVKY EQU EWADAREA+28 01371000 EWDSNS27 EQU EWDASNS+27 01372000 EWDSNS26 EQU EWDASNS+26 01373000 EWDSNS25 EQU EWDASNS+25 01374000 EWDRZRO EQU EWDSNS24 01375000 EWDSNS23 EQU EWDASNS+23 01376000 EWDSNS22 EQU EWDASNS+22 01377000 EWDSNS21 EQU EWDASNS+21 01378000 EWDSNS20 EQU EWDASNS+20 01379000 EWDSNS19 EQU EWDASNS+19 01380000 EWDSNS18 EQU EWDASNS+18 01381000 EWDSNS17 EQU EWDASNS+17 01382000 EWDSNS16 EQU EWDASNS+16 01383000 EWDSNS15 EQU EWDASNS+15 01384000 EWDSNS14 EQU EWDASNS+14 01385000 EWDSNS13 EQU EWDASNS+13 01386000 EWDSNS12 EQU EWDASNS+12 01387000 EWDSNS11 EQU EWDASNS+11 01388000 EWD107 EQU EWDSNS10 01389000 EWD106 EQU EWDSNS10 01390000 EWD105 EQU EWDSNS10 01391000 EWD104 EQU EWDSNS10 01392000 EWDSTAT EQU EWDSNS10 01393000 EWD100 EQU EWDSNS10 01394000 EWDSNS9 EQU EWDASNS+9 01395000 EWDSNS8 EQU EWDASNS+8 01396000 EWDSNS7 EQU EWDASNS+7 01397000 EWDSNS6 EQU EWDASNS+6 01398000 EWDSNS5 EQU EWDASNS+5 01399000 EWDSNS4 EQU EWDASNS+4 01400000 EWDSNS3 EQU EWDASNS+3 01401000 EWD27 EQU EWDSNS2 01402000 EWD26 EQU EWDSNS2 01403000 EWD25 EQU EWDSNS2 01404000 EWD24 EQU EWDSNS2 01405000 EWDEDAT EQU EWDSNS2 01406000 EWDMDA2 EQU EWD22 01407000 EWDCORR EQU EWDSNS2 01408000 EWDMDA1 EQU EWDWRPS 01409000 EWDOFLO EQU EWDSNS1 01410000 EWDINHI EQU EWDMAM 01411000 EWDFP EQU EWDSNS1 01412000 EWDNRF EQU EWDSNS1 01413000 EWD13 EQU EWDSNS1 01414000 EWDEOC EQU EWDSNS1 01415000 EWDTVRN EQU EWDSNS1 01416000 EWDPERM EQU EWDSNS1 01417000 EWDTCC EQU EWDSNS0 01418000 EWDINT EQU EWDSNS0 01419000 EWAEND EQU EWADDIOS+76 01420000 EWACHAIN EQU EWADDIOS+72 01421000 @NM00052 EQU EWADDIOS+71 01422000 EWASCSW EQU EWADDIOS+64 01423000 EWASNS EQU EWADDIOS 01424000 DEBEXPTA EQU DEBEXPT+1 01425000 DEBRSV12 EQU DEBRPSID 01426000 DEBRSV11 EQU DEBRPSID 01427000 DEBRSV10 EQU DEBRPSID 01428000 DEBRSV09 EQU DEBRPSID 01429000 DEBRPSAP EQU DEBRPSID 01430000 DEBRPSO EQU DEBRPSID 01431000 DEBRPSI EQU DEBRPSID 01432000 DEBRPSP EQU DEBRPSID 01433000 DEBFOEB EQU DEBFOEAD+1 01434000 DEBNOEE EQU DEBFOEAD 01435000 DEBFPEB EQU DEBFPEAD+1 01436000 DEBNPEE EQU DEBFPEAD 01437000 DEBFIEB EQU DEBFIEAD+1 01438000 DEBNIEE EQU DEBFIEAD 01439000 DEBBOESS EQU DEBEODSS 01440000 DEBBOE0 EQU DEBEOD0 01441000 DEBBOETT EQU DEBEODTT 01442000 DEBBOERV EQU DEBEODRV 01443000 DEBRV008 EQU DEBDSID+7 01444000 DEBWTPTI EQU DEBDSID+6 01445000 DEBEXDTE EQU DEBDSID 01446000 DEBRV007 EQU DEBEAMFG 01447000 DEBRV006 EQU DEBEAMFG 01448000 DEBRV005 EQU DEBEAMFG 01449000 DEBRV004 EQU DEBEAMFG 01450000 DEBSECVL EQU DEBEAMFG 01451000 DEBVAMSG EQU DEBEAMFG 01452000 DEBDSOPN EQU DEBEAMFG 01453000 DEBMULTI EQU DEBEAMFG 01454000 DEBVSEQU EQU DEBASC09+2 01455000 DEBDSSQL EQU DEBASC09+1 01456000 DEBVOLAC EQU DEBASC09 01457000 DEBWDCBA EQU DEBWDCB+1 01458000 DEBRSV08 EQU DEBWDCB 01459000 DEBPDCBA EQU DEBPDCB+1 01460000 DEBRSV07 EQU DEBPDCB 01461000 DEBRDCBA EQU DEBRDCB+1 01462000 DEBRSV06 EQU DEBRDCB 01463000 DEBSUCBB EQU DEBSUCBA+1 01464000 @NM00006 EQU @NM00004 01465000 @NM00005 EQU @NM00004 01466000 @NM00003 EQU @NM00001 01467000 @NM00002 EQU @NM00001 01468000 CVTRV628 EQU CVTS01+728 01469000 CVTRV627 EQU CVTS01+724 01470000 CVTRV626 EQU CVTS01+720 01471000 CVTRV625 EQU CVTS01+716 01472000 CVTRV624 EQU CVTS01+712 01473000 CVTRV623 EQU CVTS01+708 01474000 CVTRV622 EQU CVTS01+704 01475000 CVTRV621 EQU CVTS01+700 01476000 CVTIHASU EQU CVTS01+696 01477000 CVTRV619 EQU CVTS01+692 01478000 CVTRV618 EQU CVTS01+688 01479000 CVTRV617 EQU CVTS01+684 01480000 CVTRV616 EQU CVTS01+680 01481000 CVTRV615 EQU CVTS01+676 01482000 CVTRV614 EQU CVTS01+672 01483000 CVTRV613 EQU CVTS01+668 01484000 CVTTCASP EQU CVTS01+664 01485000 CVT0PT03 EQU CVTS01+660 01486000 CVT0PT0E EQU CVTS01+656 01487000 CVTRV609 EQU CVTS01+652 01488000 CVTCGK EQU CVTS01+648 01489000 CVTRAC EQU CVTS01+644 01490000 CVTHSM EQU CVTS01+640 01491000 CVTRV605 EQU CVTS01+636 01492000 CVTRV604 EQU CVTS01+632 01493000 CVTEFF02 EQU CVTS01+628 01494000 CVTCBBR EQU CVTS01+624 01495000 CVTSSCR EQU CVTS01+620 01496000 CVTEVENT EQU CVTS01+616 01497000 CVTCRCA EQU CVTS01+612 01498000 CVTTPIO EQU CVTS01+608 01499000 CVTADV EQU CVTS01+604 01500000 CVTGSDAB EQU CVTGSDA 01501000 CVTQV3 EQU CVTS01+596 01502000 CVTQV2 EQU CVTS01+592 01503000 CVTQV1 EQU CVTS01+588 01504000 CVTRPT EQU CVTS01+584 01505000 CVTSSRB EQU CVTS01+580 01506000 CVTCSDRL EQU CVTS01+576 01507000 CVTEXP1 EQU CVTS01+572 01508000 CVTRMPMT EQU CVTS01+568 01509000 CVTRMPTT EQU CVTS01+564 01510000 CVTVPSA EQU CVTS01+560 01511000 CVTVSTOP EQU CVTS01+556 01512000 CVTGTFR8 EQU CVTS01+552 01513000 CVTQUIT EQU CVTS01+548 01514000 CVTVACR EQU CVTS01+544 01515000 CVTWTCB EQU CVTS01+540 01516000 CVTSTPRS EQU CVTS01+536 01517000 CVT0PT02 EQU CVTS01+532 01518000 CVTDARCM EQU CVTS01+528 01519000 CVTIRECM EQU CVTS01+524 01520000 CVTJRECM EQU CVTS01+520 01521000 CVTVEMS0 EQU CVTS01+516 01522000 CVTSPFRR EQU CVTS01+512 01523000 CVTRLSTG EQU CVTS01+508 01524000 CVT0TC0A EQU CVTS01+504 01525000 CVTGMBR EQU CVTS01+500 01526000 CVTLFRM EQU CVTS01+496 01527000 CVTRMBR EQU CVTS01+492 01528000 CVTVIOP EQU CVTS01+488 01529000 CVTRV307 EQU CVTS01+486 01530000 CVTRV306 EQU CVTS01+484 01531000 CVTRV305 EQU CVTS01+482 01532000 CVTRV304 EQU CVTS01+480 01533000 CVTRV303 EQU CVTS01+478 01534000 CVTRV302 EQU CVTS01+476 01535000 CVTTRCA EQU CVTS01+472 01536000 CVTRV297 EQU CVTRV289 01537000 CVTRV296 EQU CVTRV289 01538000 CVTRV295 EQU CVTRV289 01539000 CVTRV294 EQU CVTRV289 01540000 CVTRV293 EQU CVTRV289 01541000 CVTRV292 EQU CVTRV289 01542000 CVTRV291 EQU CVTRV289 01543000 CVTRV290 EQU CVTRV289 01544000 CVTRV288 EQU CVTRV280 01545000 CVTRV287 EQU CVTRV280 01546000 CVTRV286 EQU CVTRV280 01547000 CVTRV285 EQU CVTRV280 01548000 CVTRV284 EQU CVTRV280 01549000 CVTRV283 EQU CVTRV280 01550000 CVTRV282 EQU CVTRV280 01551000 CVTRV281 EQU CVTRV280 01552000 CVTRV279 EQU CVTRV271 01553000 CVTRV278 EQU CVTRV271 01554000 CVTRV277 EQU CVTRV271 01555000 CVTRV276 EQU CVTRV271 01556000 CVTRV275 EQU CVTRV271 01557000 CVTRV274 EQU CVTRV271 01558000 CVTRV273 EQU CVTRV271 01559000 CVTRV272 EQU CVTRV271 01560000 CVTRV270 EQU CVTRV262 01561000 CVTRV269 EQU CVTRV262 01562000 CVTRV268 EQU CVTRV262 01563000 CVTRV267 EQU CVTRV262 01564000 CVTRV266 EQU CVTRV262 01565000 CVTRV265 EQU CVTRV262 01566000 CVTRV264 EQU CVTRV262 01567000 CVTRV263 EQU CVTRV262 01568000 CVTVFP EQU CVTS01+464 01569000 CVTVSI EQU CVTS01+460 01570000 CVTVPSIB EQU CVTS01+456 01571000 CVTMFACT EQU CVTMFRTR 01572000 CVTMFCTL EQU CVTS01+448 01573000 CVTPVBP EQU CVTS01+444 01574000 CVTPWI EQU CVTS01+440 01575000 CVTRV254 EQU CVTS01+438 01576000 CVTRV253 EQU CVTS01+436 01577000 CVTRV252 EQU CVTS01+434 01578000 CVTRV251 EQU CVTS01+433 01579000 CVTRV250 EQU CVTS01+432 01580000 CVTRV249 EQU CVTS01+431 01581000 CVTRV248 EQU CVTS01+430 01582000 CVTRV247 EQU CVTS01+429 01583000 CVTRV246 EQU CVTS01+428 01584000 CVTRV245 EQU CVTRV237 01585000 CVTRV244 EQU CVTRV237 01586000 CVTRV243 EQU CVTRV237 01587000 CVTRV242 EQU CVTRV237 01588000 CVTRV241 EQU CVTRV237 01589000 CVTRV240 EQU CVTRV237 01590000 CVTRV239 EQU CVTRV237 01591000 CVTRV238 EQU CVTRV237 01592000 CVTRV236 EQU CVTRV228 01593000 CVTRV235 EQU CVTRV228 01594000 CVTRV234 EQU CVTRV228 01595000 CVTRV233 EQU CVTRV228 01596000 CVTRV232 EQU CVTRV228 01597000 CVTRV231 EQU CVTRV228 01598000 CVTRV230 EQU CVTRV228 01599000 CVTRV229 EQU CVTRV228 01600000 CVTRV227 EQU CVTRV219 01601000 CVTRV226 EQU CVTRV219 01602000 CVTRV225 EQU CVTRV219 01603000 CVTRV224 EQU CVTRV219 01604000 CVTRV223 EQU CVTRV219 01605000 CVTRV222 EQU CVTRV219 01606000 CVTRV221 EQU CVTRV219 01607000 CVTRV220 EQU CVTRV219 01608000 CVTRV218 EQU CVTRV210 01609000 CVTRV217 EQU CVTRV210 01610000 CVTRV216 EQU CVTRV210 01611000 CVTRV215 EQU CVTRV210 01612000 CVTRV214 EQU CVTRV210 01613000 CVTRV213 EQU CVTRV210 01614000 CVTRV212 EQU CVTRV210 01615000 CVTRV211 EQU CVTRV210 01616000 CVTLCCAT EQU CVTS01+420 01617000 CVTPCCAT EQU CVTS01+416 01618000 CVTIPCRP EQU CVTS01+412 01619000 CVTIPCRI EQU CVTS01+408 01620000 CVTIPCDS EQU CVTS01+404 01621000 CVTAIDVT EQU CVTS01+400 01622000 CVTSSAP EQU CVTS01+396 01623000 CVTEHCIR EQU CVTS01+392 01624000 CVTEHDEF EQU CVTS01+388 01625000 CVTDAIR EQU CVTS01+384 01626000 CVTPERFM EQU CVTS01+380 01627000 CVT044R2 EQU CVTS01+376 01628000 CVTFETCH EQU CVTS01+372 01629000 CVTRSTWD EQU CVTS01+368 01630000 CVTSPOST EQU CVTS01+364 01631000 CVTIOBP EQU CVTS01+360 01632000 CVTASMVT EQU CVTS01+356 01633000 CVTRECRQ EQU CVTS01+352 01634000 CVTWSAC EQU CVTS01+348 01635000 CVTRV149 EQU CVTS01+344 01636000 CVTWSAL EQU CVTS01+340 01637000 CVTSPSA EQU CVTS01+336 01638000 CVTGLMN EQU CVTS01+332 01639000 CVTVEAC0 EQU CVTS01+328 01640000 CVT062R1 EQU CVTS01+324 01641000 CVTRPOST EQU CVTS01+320 01642000 CVTDQIQE EQU CVTS01+316 01643000 CVTCSD EQU CVTS01+312 01644000 CVTLKRMA EQU CVTS01+308 01645000 CVTRSPIE EQU CVTS01+304 01646000 CVTRENQ EQU CVTS01+300 01647000 CVTLQCB EQU CVTS01+296 01648000 CVTFQCB EQU CVTS01+292 01649000 CVTQCS01 EQU CVTS01+288 01650000 CVTAPFT EQU CVTS01+284 01651000 CVTPARRL EQU CVTS01+280 01652000 CVTVWAIT EQU CVTS01+276 01653000 CVTGSPL EQU CVTS01+272 01654000 CVTGSMQ EQU CVTS01+264 01655000 CVTEXPRO EQU CVTS01+260 01656000 CVTOPCTP EQU CVTS01+256 01657000 CVTSIC EQU CVTS01+252 01658000 CVTTPIOS EQU CVTS01+248 01659000 CVTRTMS EQU CVTS01+244 01660000 CVTSDBF EQU CVTS01+240 01661000 CVTSCBP EQU CVTS01+236 01662000 CVTSDMP EQU CVTS01+232 01663000 CVTSV60 EQU CVTS01+228 01664000 CVTRTMCT EQU CVTS01+224 01665000 CVTASCBL EQU CVTS01+220 01666000 CVTASCBH EQU CVTS01+216 01667000 CVTGDA EQU CVTS01+212 01668000 CVTVVMDI EQU CVTS01+204 01669000 CVTAQTOP EQU CVTS01+200 01670000 CVTIOSCS EQU CVTS01+196 01671000 CVTSDRM EQU CVTS01+192 01672000 CVTOPTE EQU CVTS01+188 01673000 CVTSTXU EQU CVTS01+184 01674000 CVTQUIS EQU CVTS01+180 01675000 CVTPARS EQU CVTS01+176 01676000 CVTS1EE EQU CVTS01+172 01677000 CVTFRAS EQU CVTS01+168 01678000 CVTQSAS EQU CVTS01+164 01679000 CVTCRAS EQU CVTS01+160 01680000 CVTCRMN EQU CVTS01+156 01681000 CVTDELCP EQU CVTS01+152 01682000 CVTFRECL EQU CVTS01+148 01683000 CVTGETCL EQU CVTS01+144 01684000 CVTBLDCP EQU CVTS01+140 01685000 CVTAUTHL EQU CVTS01+136 01686000 CVTSCAN EQU CVTS01+132 01687000 CVTRV144 EQU CVTS01+130 01688000 CVTMAXMP EQU CVTS01+128 01689000 CVTSTCK EQU CVTS01+124 01690000 CVTRV139 EQU CVTS01+123 01691000 CVTDSSAC EQU CVTS01+122 01692000 CVTRV513 EQU CVTS01+121 01693000 CVTIOSPL EQU CVTS01+120 01694000 CVTPTGT EQU CVTS01+116 01695000 CVTCSPIE EQU CVTS01+112 01696000 CVTSMFEX EQU CVTS01+108 01697000 CVTOLT0A EQU CVTS01+104 01698000 CVTSRBRT EQU CVTS01+100 01699000 CVTPUTL EQU CVTS01+96 01700000 CVTASCRL EQU CVTS01+92 01701000 CVTASCRF EQU CVTS01+88 01702000 CVTRV326 EQU CVTS01+84 01703000 CVTRV325 EQU CVTS01+80 01704000 CVTRV324 EQU CVTS01+76 01705000 CVT0VL01 EQU CVTS01+72 01706000 CVTSHRVM EQU CVTS01+68 01707000 CVTRV332 EQU CVTS01+64 01708000 CVTTAS EQU CVTS01+60 01709000 CVTRSCN EQU CVTS01+56 01710000 CVTTRAC2 EQU CVTS01+54 01711000 CVTTRACE EQU CVTS01+52 01712000 CVTAPG EQU CVTS01+51 01713000 CVTSDTRC EQU CVTCTLFG 01714000 CVTGTRCE EQU CVTCTLFG 01715000 CVTNOMP EQU CVTCTLFG 01716000 CVTRSV79 EQU CVTCTLFG 01717000 CVTDSTAT EQU CVTCTLFG 01718000 CVTRSV78 EQU CVTCTLFG 01719000 CVTRV333 EQU CVTCTLFG 01720000 CVTRV323 EQU CVTCTLFG 01721000 CVTSPVLK EQU CVTS01+49 01722000 CVTRSV77 EQU CVTS01+48 01723000 CVTRV331 EQU CVTS01+44 01724000 CVTRV330 EQU CVTS01+40 01725000 CVTRV329 EQU CVTS01+36 01726000 CVTRV328 EQU CVTS01+32 01727000 CVTRV322 EQU CVTS01+28 01728000 CVTSLID EQU CVTSLIDA+1 01729000 CVTSYLK EQU CVTSLIDA 01730000 CVTRV321 EQU CVTS01+20 01731000 CVTRV320 EQU CVTS01+16 01732000 CVTLPDIR EQU CVTLPDIA+1 01733000 CVTRSV69 EQU CVTDIRST 01734000 CVTRSV68 EQU CVTDIRST 01735000 CVTRSV67 EQU CVTDIRST 01736000 CVTRSV66 EQU CVTDIRST 01737000 CVTRSV65 EQU CVTDIRST 01738000 CVTRSV64 EQU CVTDIRST 01739000 CVTRSV63 EQU CVTDIRST 01740000 CVTDICOM EQU CVTDIRST 01741000 CVTPVTP EQU CVTS01+8 01742000 CVTLPDSR EQU CVTS01+4 01743000 CVTGETL EQU CVTS01 01744000 UCBERADR EQU UCBUCS+12 01745000 UCBFCBID EQU UCBUCS+8 01746000 UCBERCNT EQU UCBUCS+7 01747000 UCBRSV51 EQU UCBUCS+6 01748000 UCBFCBPE EQU UCBFCBOP 01749000 UCBRSV49 EQU UCBFCBOP 01750000 UCBRSV48 EQU UCBFCBOP 01751000 UCBRSV47 EQU UCBFCBOP 01752000 UCBRSV46 EQU UCBFCBOP 01753000 UCBRSV45 EQU UCBFCBOP 01754000 UCBRSV44 EQU UCBFCBOP 01755000 UCBFCBO1 EQU UCBFCBOP 01756000 UCBUCSPE EQU UCBUCSOP 01757000 UCBRSV43 EQU UCBUCSOP 01758000 UCBRSV42 EQU UCBUCSOP 01759000 UCBRSV41 EQU UCBUCSOP 01760000 UCBRSV40 EQU UCBUCSOP 01761000 UCBRSV39 EQU UCBUCSOP 01762000 UCBUCSO2 EQU UCBUCSOP 01763000 UCBUCSO1 EQU UCBUCSOP 01764000 UCBUCSID EQU UCBUCS 01765000 UCBMDRBA EQU UCBMDRBF+1 01766000 UCBRV075 EQU UCBMDRBF 01767000 UCBRV074 EQU UCB3800X+32 01768000 UCBIMAGE EQU UCB3800X+28 01769000 UCBFCBNM EQU UCB3800X+24 01770000 UCBCHAR4 EQU UCB3800X+20 01771000 UCBCHAR3 EQU UCB3800X+16 01772000 UCBCHAR2 EQU UCB3800X+12 01773000 UCBCHAR1 EQU UCB3800X+8 01774000 UCBCGMID EQU UCB3800X+4 01775000 UCBBRSTA EQU UCBACTIV 01776000 UCBRV063 EQU UCBACTIV 01777000 UCBRV062 EQU UCBACTIV 01778000 UCBRV061 EQU UCBACTIV 01779000 UCBRV060 EQU UCBACTIV 01780000 UCBRV059 EQU UCBACTIV 01781000 UCBRV058 EQU UCBACTIV 01782000 UCBRV057 EQU UCBACTIV 01783000 UCBRV050 EQU UCB3800X+2 01784000 UCBCGMNO EQU UCB3800X+1 01785000 UCBRV083 EQU UCBOPTNS 01786000 UCBBRSTR EQU UCBOPTNS 01787000 UCBRV056 EQU UCBOPTNS 01788000 UCBRV055 EQU UCBOPTNS 01789000 UCBRV054 EQU UCBOPTNS 01790000 UCBRV053 EQU UCBOPTNS 01791000 UCBRV052 EQU UCBOPTNS 01792000 UCBRV051 EQU UCBOPTNS 01793000 UCBRV073 EQU UCB3540X+7 01794000 UCBRV072 EQU UCBDKBYT 01795000 UCBRV071 EQU UCBDKBYT 01796000 UCBRV070 EQU UCBDKBYT 01797000 UCBRV069 EQU UCBDKBYT 01798000 UCBRV068 EQU UCBDKBYT 01799000 UCBRV067 EQU UCBDKBYT 01800000 UCBVLVER EQU UCBDKBYT 01801000 UCBDKAMX EQU UCBDKBYT 01802000 UCBVLSER EQU UCB3540X 01803000 UCBRDATA EQU UCBOCR+4 01804000 UCBFRID EQU UCBOCR 01805000 UCBCLN EQU UCBMT+14 01806000 UCBERG EQU UCBMT+12 01807000 UCBMS EQU UCBMT+11 01808000 UCBNB EQU UCBMT+10 01809000 UCBPW EQU UCBMT+9 01810000 UCBPR EQU UCBMT+8 01811000 UCBSIO EQU UCBMT+6 01812000 UCBTW EQU UCBMT+5 01813000 UCBTR EQU UCBMT+4 01814000 UCBTWT EQU UCBMT+3 01815000 UCBTRT EQU UCBMT+2 01816000 UCBCTD EQU UCBMT 01817000 UCBWTOID EQU UCBCMEXT+17 01818000 UCBRV043 EQU UCBCMEXT+16 01819000 UCBASID EQU UCBCMEXT+14 01820000 UCBMFCNT EQU UCBCMEXT+12 01821000 UCBPMSK EQU UCBCMEXT+10 01822000 UCBCCWOF EQU UCBCMEXT+8 01823000 UCBRV041 EQU UCBCMEXT+6 01824000 UCBRV036 EQU UCBFLP1 01825000 UCBRV035 EQU UCBFLP1 01826000 UCBERLOG EQU UCBFLP1 01827000 UCBRV033 EQU UCBFLP1 01828000 UCBINHIO EQU UCBFLP1 01829000 UCBNSWAP EQU UCBFLP1 01830000 UCBSHRUP EQU UCBFLP1 01831000 UCBNSRCH EQU UCBFLP1 01832000 UCBSNSCT EQU UCBCMEXT+4 01833000 UCBHPDV EQU @NM00095 01834000 UCBHALI EQU @NM00095 01835000 UCBRSV09 EQU @NM00095 01836000 UCBRSV08 EQU @NM00095 01837000 UCBRSV07 EQU @NM00095 01838000 UCBRSV06 EQU @NM00095 01839000 UCBRSV05 EQU @NM00095 01840000 UCBRSV04 EQU @NM00095 01841000 UCBDTI EQU UCBCMEXT+2 01842000 UCBSTI EQU UCBCMEXT+1 01843000 UCBETI EQU UCBCMEXT 01844000 UCBEXTP EQU UCBEXTPT+1 01845000 UCBTICBT EQU UCBFLC 01846000 UCBIVRR EQU UCBFLC 01847000 UCBIVRS EQU UCBFLC 01848000 UCBITF EQU UCBFLC 01849000 UCBUDE EQU UCBFLC 01850000 UCBWAA EQU UCBFLC 01851000 UCBATTP EQU UCBFLC 01852000 UCBUNTYP EQU UCBTBYT4 01853000 UCBRSV11 EQU UCBDVCLS 01854000 UCBRSV10 EQU UCBDVCLS 01855000 UCB3CHAR EQU UCBDVCLS 01856000 UCB3UREC EQU UCBDVCLS 01857000 UCB3DISP EQU UCBDVCLS 01858000 UCB3COMM EQU UCBDVCLS 01859000 UCBDVPWR EQU UCB2OPT7 01860000 UCBVLPWR EQU UCB2OPT6 01861000 UCB2OPT5 EQU UCBTBYT2 01862000 UCBRVDEV EQU UCBRWTAU 01863000 UCBRPS EQU UCBDUDN2 01864000 UCBRR EQU UCBDUDN1 01865000 UCB2OPT1 EQU UCBTBYT2 01866000 UCB2OPT0 EQU UCBTBYT2 01867000 UCB1FEA7 EQU UCBTBYT1 01868000 UCBD6250 EQU UCB1FEA6 01869000 UCBD1600 EQU UCB1FEA5 01870000 UCB1FEA4 EQU UCBTBYT1 01871000 UCB1FEA3 EQU UCBTBYT1 01872000 UCB1FEA2 EQU UCBTBYT1 01873000 UCB1FEA1 EQU UCBTBYT1 01874000 UCB1FEA0 EQU UCBTBYT1 01875000 UCBRV029 EQU UCBWGT 01876000 UCBVHRSN EQU UCBWGT 01877000 UCBVORSN EQU UCBWGT 01878000 UCBMTPXP EQU UCBWGT 01879000 UCBREW EQU UCBWGT 01880000 UCBPUB EQU UCBWGT 01881000 UCBOUT EQU UCBWGT 01882000 UCBIN EQU UCBWGT 01883000 UCBCPU EQU UCBOB+11 01884000 UCBLCI EQU UCBOB+10 01885000 UCBCNT EQU UCBOB+9 01886000 UCBRV017 EQU UCBCHM1 01887000 UCBRV016 EQU UCBCHM1 01888000 UCBRV015 EQU UCBCHM1 01889000 UCBRV014 EQU UCBCHM1 01890000 UCBSPB EQU UCBPTH1 01891000 UCBPPB EQU UCBPTH1 01892000 UCBSPA EQU UCBPTH0 01893000 UCBPPA EQU UCBPTH0 01894000 UCBSIGP EQU UCBFLB 01895000 UCBVALPH EQU UCBFLB 01896000 UCBCRHSN EQU UCBFLB 01897000 UCBCRHRV EQU UCBFLB 01898000 UCBRESVH EQU UCBFLB 01899000 UCBSPST EQU UCBFLB 01900000 UCBASNS EQU UCBFLB 01901000 UCBIORST EQU UCBFLB 01902000 UCBACTV EQU UCBFL1 01903000 UCBSAP EQU UCBFL1 01904000 UCBNOTRC EQU UCBCUB 01905000 UCBPSNS EQU UCBFL1 01906000 UCBUSING EQU UCBPST 01907000 UCBNOTRD EQU UCBNRY 01908000 UCBBUSYD EQU UCBBSY 01909000 UCBUA EQU UCBCHAN+1 01910000 UCBCHA EQU UCBCHAN 01911000 UCBDADI EQU UCBSTAT 01912000 UCBSYSR EQU UCBSTAT 01913000 UCBPRES EQU UCBSTAT 01914000 UCBALOC EQU UCBSTAT 01915000 UCBUNLD EQU UCBSTAT 01916000 UCBRESV EQU UCBSTAT 01917000 UCBCHGS EQU UCBSTAT 01918000 UCBONLI EQU UCBSTAT 01919000 UCBID EQU UCBOB+2 01920000 UCBALTPH EQU UCBFL5 01921000 UCBALTCU EQU UCBFL5 01922000 UCBNALOC EQU UCBFL5 01923000 UCBENVRD EQU UCBFL5 01924000 UCBVSDR EQU UCBFL5 01925000 UCBSASK EQU UCBFL5 01926000 UCBAMV EQU UCBAF 01927000 UCBDCC EQU UCBFL5 01928000 UCBMONT EQU UCBJBNR 01929000 UCBRV011 EQU UCBJBNR 01930000 UCBMMSGP EQU UCBJBNR 01931000 UCBOLDSM EQU UCBJBNR 01932000 UCBRV003 EQU UCBJBNR 01933000 UCBDUC EQU UCBJBNR 01934000 UCBJES3 EQU UCBJBNR 01935000 UCBVRDEV EQU UCBJBNR 01936000 UCBCMSEG EQU UCBOB 01937000 UCBPFXND EQU UCB+512 01938000 UCBIOQ EQU UCB+508 01939000 UCBLOCK EQU UCB+504 01940000 UCBPXST EQU UCB+504 01941000 @NM00092 EQU UCB 01942000 @NM00091 EQU TCBXTNT2+32 01943000 TCBRV181 EQU TCBRV173 01944000 TCBRV180 EQU TCBRV173 01945000 TCBRV179 EQU TCBRV173 01946000 TCBRV178 EQU TCBRV173 01947000 TCBRV177 EQU TCBRV173 01948000 TCBRV176 EQU TCBRV173 01949000 TCBRV175 EQU TCBRV173 01950000 TCBRV174 EQU TCBRV173 01951000 TCBRV172 EQU TCBRV164 01952000 TCBRV171 EQU TCBRV164 01953000 TCBRV170 EQU TCBRV164 01954000 TCBRV169 EQU TCBRV164 01955000 TCBRV168 EQU TCBRV164 01956000 TCBRV167 EQU TCBRV164 01957000 TCBRV166 EQU TCBRV164 01958000 TCBRV165 EQU TCBRV164 01959000 TCBRV163 EQU TCBRV155 01960000 TCBRV162 EQU TCBRV155 01961000 TCBRV161 EQU TCBRV155 01962000 TCBRV160 EQU TCBRV155 01963000 TCBRV159 EQU TCBRV155 01964000 TCBRV158 EQU TCBRV155 01965000 TCBRV157 EQU TCBRV155 01966000 TCBRV156 EQU TCBRV155 01967000 TCBRV154 EQU TCBRV146 01968000 TCBRV153 EQU TCBRV146 01969000 TCBRV152 EQU TCBRV146 01970000 TCBRV151 EQU TCBRV146 01971000 TCBRV150 EQU TCBRV146 01972000 TCBRV149 EQU TCBRV146 01973000 TCBRV148 EQU TCBRV146 01974000 TCBRV147 EQU TCBRV146 01975000 TCBRV145 EQU TCBXTNT2+26 01976000 TCBRV144 EQU TCBXTNT2+24 01977000 TCBCAUF EQU TCBXTNT2+20 01978000 TCBRV142 EQU TCBXTNT2+16 01979000 TCBRSV49 EQU TCBXTNT2+12 01980000 TCBEVENT EQU TCBXTNT2+8 01981000 TCBRCMP EQU TCBXTNT2+5 01982000 TCBRSVAB EQU TCBXTNT2+4 01983000 TCBGTFA EQU TCBGTF+1 01984000 TCBRSV47 EQU TCBTFLG 01985000 TCBRSV46 EQU TCBTFLG 01986000 TCBRSV45 EQU TCBTFLG 01987000 TCBRSV44 EQU TCBTFLG 01988000 TCBRSV43 EQU TCBTFLG 01989000 TCBDSPIT EQU TCBTFLG 01990000 TCBERRTN EQU TCBTFLG 01991000 TCBASYNC EQU TCBTFLG 01992000 @NM00090 EQU TCB+296 01993000 TCBSVCA2 EQU TCB+292 01994000 TCBSWASA EQU TCB+288 01995000 TCBDBTB EQU TCB+284 01996000 TCBRPT EQU TCB+280 01997000 TCBRV141 EQU TCBRV133 01998000 TCBRV140 EQU TCBRV133 01999000 TCBRV139 EQU TCBRV133 02000000 TCBRV138 EQU TCBRV133 02001000 TCBRV137 EQU TCBRV133 02002000 TCBRV136 EQU TCBRV133 02003000 TCBRV135 EQU TCBRV133 02004000 TCBRV134 EQU TCBRV133 02005000 TCBRV132 EQU TCBRV124 02006000 TCBRV131 EQU TCBRV124 02007000 TCBRV130 EQU TCBRV124 02008000 TCBRV129 EQU TCBRV124 02009000 TCBRV128 EQU TCBRV124 02010000 TCBRV127 EQU TCBRV124 02011000 TCBRV126 EQU TCBRV124 02012000 TCBRV125 EQU TCBRV124 02013000 TCBRV123 EQU TCBFBYT2 02014000 TCBRV122 EQU TCBFBYT2 02015000 TCBECBNV EQU TCBFBYT2 02016000 TCBSSSYN EQU TCBFBYT2 02017000 TCBFPRAP EQU TCBFBYT2 02018000 TCBFDW EQU TCBFBYT2 02019000 TCBFMW EQU TCBFBYT2 02020000 TCBCNCB EQU TCBFBYT2 02021000 TCBLLH EQU TCBFBYT1 02022000 TCBRV113 EQU TCBFBYT1 02023000 TCBEOT EQU TCBFBYT1 02024000 TCBRTM2 EQU TCBFBYT1 02025000 TCBPGNLY EQU TCBFBYT1 02026000 TCBNDIOS EQU TCBFBYT1 02027000 TCBACTIV EQU TCBFBYT1 02028000 TCBEOTFM EQU TCBFBYT1 02029000 TCBAFFN EQU TCB+274 02030000 TCBCCPVI EQU TCB+272 02031000 TCBUKYSP EQU TCB+268 02032000 TCBMODE EQU TCBESTAE+3 02033000 TCBERTYP EQU TCBESTAE+2 02034000 TCBRV314 EQU TCBESTRM 02035000 TCBRV313 EQU TCBESTRM 02036000 TCBRV312 EQU TCBESTRM 02037000 TCBRV311 EQU TCBESTRM 02038000 TCBRV310 EQU TCBESTRM 02039000 TCBRV309 EQU TCBESTRM 02040000 TCBRV308 EQU TCBESTRM 02041000 TCBETERM EQU TCBESTRM 02042000 TCBSCBKY EQU TCBESTAE 02043000 TCBRTM12 EQU TCB+260 02044000 TCBTCBID EQU TCB+256 02045000 TCBRSV96 EQU TCB+252 02046000 TCBSWA EQU TCB+248 02047000 TCBFOEA EQU TCBFOE+1 02048000 TCBRSV42 EQU TCBFOE 02049000 TCBRV306 EQU TCB+240 02050000 TCBRSV41 EQU TCB+239 02051000 TCBRSVAA EQU TCB+237 02052000 TCBABCUR EQU TCB+236 02053000 TCBTMSAV EQU TCB+232 02054000 TCBIOTIM EQU TCB+228 02055000 TCBRTWA EQU TCB+224 02056000 TCBBACK EQU TCB+220 02057000 TCBTIRB EQU TCB+216 02058000 TCBAECB EQU TCB+212 02059000 TCBEXT2A EQU TCBEXT2+1 02060000 TCBRSV39 EQU TCBEXT2 02061000 TCBSTMCT EQU TCB+207 02062000 TCBSYSCT EQU TCB+206 02063000 TCBRSV37 EQU TCB+205 02064000 TCBEXSVC EQU TCBDAR 02065000 TCBDARMS EQU TCBDAR 02066000 TCBDARWT EQU TCBDAR 02067000 TCBDARO EQU TCBDAR 02068000 TCBDARMC EQU TCBDARC 02069000 TCBDARD EQU TCBDAR 02070000 TCBDARS EQU TCBDAR 02071000 TCBDARP EQU TCBDAR 02072000 TCBGTOFM EQU TCBFLGS7 02073000 TCBADMP EQU TCBFLGS7 02074000 TCBRSTSK EQU TCBFLGS7 02075000 TCBSVCS EQU TCBFLGS7 02076000 TCBSTACK EQU TCBFLGS7 02077000 TCBRSV34 EQU TCBFLGS7 02078000 TCBRSV33 EQU TCBFLGS7 02079000 TCBGPECB EQU TCBFLGS7 02080000 TCBNTJS EQU TCBFLGS6 02081000 TCBAPG EQU TCBFLGS6 02082000 TCBMIGR EQU TCBFLGS6 02083000 TCBRV303 EQU TCBFLGS6 02084000 TCBSPVLK EQU TCBFLGS6 02085000 TCBCPU EQU TCBFLGS6 02086000 TCBPIE17 EQU TCBFLGS6 02087000 TCBRV EQU TCBFLGS6 02088000 TCBRSV79 EQU TCBNDSP5 02089000 TCBRSV78 EQU TCBNDSP5 02090000 TCBRSV77 EQU TCBNDSP5 02091000 TCBRSV76 EQU TCBNDSP5 02092000 TCBRSV75 EQU TCBNDSP5 02093000 TCBRSV74 EQU TCBNDSP5 02094000 TCBRSV95 EQU TCBNDSP5 02095000 TCBRSV94 EQU TCBNDSP5 02096000 TCBRSV93 EQU TCBNDSP4 02097000 TCBRSV92 EQU TCBNDSP4 02098000 TCBRSV91 EQU TCBNDSP4 02099000 TCBRSV90 EQU TCBNDSP4 02100000 TCBRSV89 EQU TCBNDSP4 02101000 TCBRSV88 EQU TCBNDSP4 02102000 TCBRSV87 EQU TCBNDSP4 02103000 TCBRSV86 EQU TCBNDSP4 02104000 TCBEXT1A EQU TCBEXT1+1 02105000 TCBRSV32 EQU TCBEXT1 02106000 TCBEXCPD EQU TCB+192 02107000 TCBIOBRC EQU TCB+188 02108000 TCBDDWTC EQU TCB+186 02109000 TCBDDEXC EQU TCB+184 02110000 TCBJSCBB EQU TCBJSCB+1 02111000 @NM00089 EQU TCBRECDE 02112000 TCBREC EQU TCBRECDE 02113000 TCBMDIDS EQU TCB+176 02114000 TCBNDINT EQU TCBNDSP3 02115000 TCBRSV27 EQU TCBNDSP3 02116000 TCBRSV26 EQU TCBNDSP3 02117000 TCBRSV25 EQU TCBNDSP3 02118000 TCBRSV24 EQU TCBNDSP3 02119000 TCBSRBND EQU TCBNDSP3 02120000 TCBRV302 EQU TCBNDSP3 02121000 TCBLJSND EQU TCBNDSP3 02122000 TCBABE EQU TCBNDSP2 02123000 TCBDSS EQU TCBNDSP2 02124000 TCBOWAIT EQU TCBNDSP2 02125000 TCBIWAIT EQU TCBNDSP2 02126000 TCBNDTS EQU TCBNDSP2 02127000 TCBNDSVC EQU TCBNDSP2 02128000 TCBSTPP EQU TCBNDSP2 02129000 TCBABD EQU TCBNDSP2 02130000 TCBRSV22 EQU TCBNDSP1 02131000 TCBPIEND EQU TCBNDSP1 02132000 TCBTPSP EQU TCBNDSP1 02133000 TCBDDRND EQU TCBNDSP1 02134000 TCBRSPND EQU TCBNDSP1 02135000 TCBRSTND EQU TCBNDSP1 02136000 TCBDARPN EQU TCBNDSP1 02137000 TCBDARTN EQU TCBNDSP1 02138000 TCBNDSP0 EQU TCBNDSP 02139000 TCBUSER EQU TCB+168 02140000 TCBTCTB EQU TCBTCT+1 02141000 TCBRSV9C EQU TCBTCTGF 02142000 TCBRSV9B EQU TCBTCTGF 02143000 TCBRSV9A EQU TCBTCTGF 02144000 TCBRSV99 EQU TCBTCTGF 02145000 TCBRSV98 EQU TCBTCTGF 02146000 TCBRSV97 EQU TCBTCTGF 02147000 TCBRSV20 EQU TCBTCTGF 02148000 TCBSMFGF EQU TCBTCTGF 02149000 TCBSTABB EQU TCBSTAB+1 02150000 TCBSTCUR EQU TCBNSTAE 02151000 TCBRV301 EQU TCBNSTAE 02152000 TCBSYNCH EQU TCBNSTAE 02153000 TCBHALT EQU TCBNSTAE 02154000 TCBPPSUP EQU TCBNSTAE 02155000 TCB33E EQU TCBNSTAE 02156000 TCBQUIES EQU TCBNSTAE 02157000 TCBSTABE EQU TCBNSTAE 02158000 TCBAQE EQU TCB+156 02159000 TCBPQE EQU TCB+152 02160000 TCBTSDP EQU TCB+151 02161000 TCBTSLP EQU TCB+150 02162000 TCBSTPCT EQU TCB+149 02163000 TCBCPUBN EQU TCBTSFLG 02164000 TCBDYDSP EQU TCBTSFLG 02165000 TCBRSV18 EQU TCBTSFLG 02166000 TCBRSV17 EQU TCBTSFLG 02167000 TCBTIOTG EQU TCBTSFLG 02168000 TCBATT EQU TCBTSFLG 02169000 TCBSTPPR EQU TCBTSFLG 02170000 TCBRV300 EQU TCBTSTSK 02171000 TCBECB EQU TCB+144 02172000 TCBIQE EQU TCB+140 02173000 TCBLTC EQU TCB+136 02174000 TCBOTC EQU TCB+132 02175000 TCBNTC EQU TCB+128 02176000 TCBJSTCA EQU TCBJSTCB+1 02177000 TCBRSV16 EQU TCBJSTCB 02178000 TCBTQET EQU TCBTME 02179000 TCBTCB EQU TCB+116 02180000 TCBFSAB EQU TCBFSA+1 02181000 TCBQEL EQU TCBFSA 02182000 TCBGRS15 EQU TCBGRS+60 02183000 TCBGRS14 EQU TCBGRS+56 02184000 TCBGRS13 EQU TCBGRS+52 02185000 TCBGRS12 EQU TCBGRS+48 02186000 TCBGRS11 EQU TCBGRS+44 02187000 TCBGRS10 EQU TCBGRS+40 02188000 TCBGRS9 EQU TCBGRS+36 02189000 TCBGRS8 EQU TCBGRS+32 02190000 TCBGRS7 EQU TCBGRS+28 02191000 TCBGRS6 EQU TCBGRS+24 02192000 TCBGRS5 EQU TCBGRS+20 02193000 TCBGRS4 EQU TCBGRS+16 02194000 TCBGRS3 EQU TCBGRS+12 02195000 TCBGRS2 EQU TCBGRS+8 02196000 TCBGRS1 EQU TCBGRS+4 02197000 TCBGRS0 EQU TCBGRS 02198000 TCBJPQB EQU TCBJPQ+1 02199000 TCBRSV15 EQU TCBPURGE 02200000 TCBRSV14 EQU TCBPURGE 02201000 TCBRSV13 EQU TCBPURGE 02202000 TCBRSV12 EQU TCBPURGE 02203000 TCBRSV11 EQU TCBPURGE 02204000 TCBRSV10 EQU TCBPURGE 02205000 TCBRSV09 EQU TCBPURGE 02206000 TCBJPQF EQU TCBPURGE 02207000 TCBJLB EQU TCB+40 02208000 TCBLLS EQU TCB+36 02209000 TCBDSP EQU TCB+35 02210000 TCBLMP EQU TCB+34 02211000 TCBPNDSP EQU TCBFLGS5 02212000 TCBFCD1 EQU TCBFLGS5 02213000 TCBSTP EQU TCBFLGS5 02214000 TCBSYS EQU TCBFLGS5 02215000 TCBANDSP EQU TCBFLGS5 02216000 TCBPAGE EQU TCBFLGS5 02217000 TCBUXNDF EQU TCBABWF 02218000 TCBFC EQU TCBFLGS5 02219000 TCBONDSP EQU TCBFLGS4 02220000 TCBMPCND EQU TCBFLGS4 02221000 TCBMPCVQ EQU TCBFLGS4 02222000 TCBUXNDV EQU TCBFLGS4 02223000 TCBHNDSP EQU TCBFLGS4 02224000 TCBRQENA EQU TCBFLGS4 02225000 TCBSER EQU TCBFLGS4 02226000 TCBNDUMP EQU TCBFLGS4 02227000 TCBDWSTA EQU TCBFLGS3 02228000 TCBRSV08 EQU TCBFLGS3 02229000 TCBRSV07 EQU TCBFLGS3 02230000 TCBRSV06 EQU TCBFLGS3 02231000 TCBABGM EQU TCBFLGS3 02232000 TCBABTRM EQU TCBFLGS3 02233000 TCBADINP EQU TCBFLGS3 02234000 TCBFSM EQU TCBFLGS3 02235000 TCBFTS EQU TCBFLGS2 02236000 TCBFETXR EQU TCBFLGS2 02237000 TCBFDSOP EQU TCBFLGS2 02238000 TCBFJMC EQU TCBFLGS2 02239000 TCBFSMC EQU TCBFLGS2 02240000 TCBFABOP EQU TCBFLGS2 02241000 TCBFSTI EQU TCBFLGS2 02242000 TCBFOINP EQU TCBFLGS2 02243000 TCBFX EQU TCBFLGS1 02244000 TCBFS EQU TCBFLGS1 02245000 TCBFT EQU TCBFLGS1 02246000 TCBPDUMP EQU TCBFLGS1 02247000 TCBNONPR EQU TCBFLGS1 02248000 TCBFERA EQU TCBFLGS1 02249000 TCBFE EQU TCBFLGS1 02250000 TCBFA EQU TCBFLGS1 02251000 TCBZERO EQU TCBPKF 02252000 TCBFLAG EQU TCBPKF 02253000 TCBMSSB EQU TCBMSS+1 02254000 TCBRSV03 EQU TCBMSS 02255000 TCBTRNB EQU TCBTRN+1 02256000 TCBRSV02 EQU TCBABF 02257000 TCBOLTEP EQU TCBABF 02258000 TCBTCP EQU TCBABF 02259000 TCBTCPP EQU TCBABF 02260000 TCBRSV01 EQU TCBABF 02261000 TCBGRPH EQU TCBABF 02262000 TCBNOCHK EQU TCBABF 02263000 TCBMOD91 EQU TCBABF 02264000 TCBCMPC EQU TCBCMP+1 02265000 TCBRV318 EQU TCBCMSG 02266000 TCBRV317 EQU TCBCIND 02267000 TCBRV316 EQU TCBCWTO 02268000 TCBCASID EQU TCBCDBL 02269000 TCBNOCC EQU TCBSTCC 02270000 TCBDMPO EQU TCBCPP 02271000 TCBCSTEP EQU TCBCMPF 02272000 TCBCREQ EQU TCBCMPF 02273000 TCBTIO EQU TCB+12 02274000 TCBDEB EQU TCB+8 02275000 TCBPIEA EQU TCBPIE+1 02276000 TCBPM EQU TCBPMASK 02277000 @NM00088 EQU TCBPMASK 02278000 TCBRBP EQU TCB 02279000 TCBFRS6 EQU TCBFRS+24 02280000 TCBFRS4 EQU TCBFRS+16 02281000 TCBFRS2 EQU TCBFRS+8 02282000 TCBFRS0 EQU TCBFRS 02283000 @NM00087 EQU SRB+40 02284000 @NM00086 EQU SRB+38 02285000 SRBPRIOR EQU SRB+37 02286000 SRBPKF EQU SRB+36 02287000 SRBSAVE EQU SRB+32 02288000 SRBRMTR EQU SRB+24 02289000 SRBPTCB EQU SRBFLC+4 02290000 SRBPASID EQU SRBFLC+2 02291000 SRBCPAFF EQU SRBFLC 02292000 RQEEND EQU RQE+40 02293000 @NM00085 EQU RQEFLAG3 02294000 RQEINIOS EQU RQEFLAG3 02295000 RQECHEAC EQU RQEFLAG 02296000 RQEPURGE EQU RQEFLAG 02297000 RQESRBS EQU RQEFLAG 02298000 RQESTBL EQU RQEFLAG 02299000 RQEFIXST EQU RQEFLAG 02300000 RQENOFRE EQU RQEFLAG 02301000 RQENOPST EQU RQEFLAG 02302000 RQERETRY EQU RQEFLAG 02303000 RQETYP1 EQU RQETYP3 02304000 RQETYP2 EQU RQETYP3 02305000 RQEDIE EQU RQETYPE 02306000 RQEEOEE EQU RQETYPE 02307000 RQEVAM EQU RQETYPE 02308000 RQE1TO1 EQU RQETYPE 02309000 RQEVIRT EQU RQETYPE 02310000 RQE114 EQU RQETYPE 02311000 RQESMFRQ EQU RQEPRT 02312000 @NM00084 EQU RQEPRT 02313000 RQEPKEY EQU RQEPRT 02314000 RQEIPIB EQU RQE+32 02315000 RQESRB EQU RQE+28 02316000 RQERRQ EQU RQE+24 02317000 RQENRQE EQU RQE+20 02318000 RQETCCW EQU RQE+16 02319000 RQEUCB EQU RQE 02320000 IOSEND EQU IOSB+108 02321000 IOSSKR EQU IOSEEKA+7 02322000 IOSSKH2 EQU IOSSKHH+1 02323000 IOSSKH1 EQU IOSSKHH 02324000 IOSSKCC EQU IOSCCHH 02325000 IOSSKBB EQU IOSEEKA+1 02326000 IOSSKM EQU IOSEEKA 02327000 IOSEEK EQU IOSB+92 02328000 IOSMDM EQU IOSB+91 02329000 IOSMDB EQU IOSB+90 02330000 IOSCKEY7 EQU IOSCKEY 02331000 IOSCKEY6 EQU IOSCKEY 02332000 IOSCKEY5 EQU IOSCKEY 02333000 IOSCKEY4 EQU IOSCKEY 02334000 @NM00056 EQU IOSCKEY 02335000 IOSFMSK EQU IOSB+88 02336000 IOSCUDEV EQU IOSPATH+1 02337000 @NM00055 EQU IOSCHN 02338000 IOSPATH3 EQU IOSCHN 02339000 IOSPATH2 EQU IOSCHN 02340000 IOSEXP EQU IOSCHN 02341000 IOSGDP EQU IOSCHN 02342000 IOSAFF EQU IOSB+85 02343000 IOSRSS1B EQU IOSB+84 02344000 IOSDSID EQU IOSB+80 02345000 IOSVST EQU IOSB+76 02346000 IOSRST EQU IOSB+72 02347000 IOSDIE EQU IOSB+68 02348000 IOSABN EQU IOSB+64 02349000 IOSNRM EQU IOSB+60 02350000 IOSPCI EQU IOSB+56 02351000 IOSPCHN EQU IOSB+48 02352000 IOSSNS EQU IOSB+42 02353000 IOSAPMSK EQU IOSB+40 02354000 IOSRES4A EQU IOSB+36 02355000 IOSCSWRC EQU IOSCSW+5 02356000 IOSCSWCA EQU IOSCSW 02357000 IOSCC EQU @NM00054 02358000 IOSOPT2X EQU IOSOPT2 02359000 IOSIGP EQU IOSOPT2 02360000 IOSHTP EQU IOSOPT2 02361000 IOSRELSE EQU IOSOPT 02362000 IOSAPR EQU IOSOPT 02363000 IOSTSLL EQU IOSOPT 02364000 IOSNERP EQU IOSOPT 02365000 IOSPSLL EQU IOSOPT 02366000 IOSDEP EQU IOSOPT 02367000 IOSBYP EQU IOSOPT 02368000 IOSPKY7 EQU IOSPKEY 02369000 IOSIDR EQU IOSPKEY 02370000 IOSLCL EQU IOSPKEY 02371000 @NM00053 EQU IOSPKEY 02372000 IOSPGAD EQU IOSB+8 02373000 IOSPRLVL EQU IOSB+5 02374000 IOSPROC EQU IOSB+3 02375000 IOSFLC7 EQU IOSFLC 02376000 IOSCTCNR EQU IOSFLC 02377000 IOSRWAIT EQU IOSFLC 02378000 IOSTP EQU IOSFLC 02379000 IOSCC3WE EQU IOSFLC 02380000 IOSVERIF EQU IOSDVALT 02381000 IOSDVMNT EQU IOSFLC 02382000 IOSLOG EQU IOSFLB 02383000 IOSBDCST EQU IOSFLB 02384000 IOSMSG EQU IOSFLB 02385000 IOSFLB4 EQU IOSFLB 02386000 IOSFLB3 EQU IOSFLB 02387000 IOSNOTRS EQU IOSFLB 02388000 IOSSDR EQU IOSFLB 02389000 IOSDIESE EQU IOSFLB 02390000 IOSIOSB EQU IOSFLA 02391000 IOSDOM EQU IOSFLA 02392000 IOSSMDB EQU IOSFLA 02393000 IOSSMDA EQU IOSFLA 02394000 IOSCCHN EQU IOSACHN 02395000 IOSDCHN EQU IOSACHN 02396000 EWADDISP EQU EWA+29 02397000 EWADCNT EQU EWA+28 02398000 EWACPU EQU EWA+27 02399000 EWAVLCHN EQU EWAFLGA 02400000 EWADONE EQU EWAFLGA 02401000 EWAINIT EQU EWAFLGA 02402000 EWACHA EQU EWA+24 02403000 EWACSEQ EQU EWAXCSW2 02404000 EWACDIN EQU EWAXCSW2 02405000 @NM00051 EQU EWAXCSW2 02406000 EWACTEC EQU EWAXCSW2 02407000 EWACDAV EQU EWAXCSW1 02408000 EWACCHV EQU EWAXCSW1 02409000 EWACCMD EQU EWAXCSW1 02410000 EWACUNS EQU EWAXCSW1 02411000 EWACSQV EQU EWAXCSW1 02412000 @NM00050 EQU EWAXCSW1 02413000 EWACITF EQU EWAXCSW1 02414000 @NM00049 EQU EWARGFG2 02415000 EWACCUE EQU EWARGFG2 02416000 EWACSTG EQU EWARGFG2 02417000 EWACSCU EQU EWARGFG2 02418000 EWACCHA EQU EWARGFG2 02419000 EWACCPU EQU EWARGFG2 02420000 EWANORTY EQU EWARGFG1 02421000 EWACCNT EQU EWARGFG1 02422000 EWACSNS EQU EWARGFG1 02423000 @NM00048 EQU EWARGFG1 02424000 EWACHIO EQU EWARGFG1 02425000 EWACTIO EQU EWARGFG1 02426000 EWACINT EQU EWARGFG1 02427000 EWACSIO EQU EWARGFG1 02428000 EWAUCB EQU EWAERPIB+1 02429000 @NM00047 EQU EWAERPIB 02430000 EWASTUP EQU EWA+14 02431000 EWACNTR4 EQU EWACNTRS+3 02432000 EWACNTR3 EQU EWACNTRS+2 02433000 EWACNTR2 EQU EWACNTRS+1 02434000 EWACNTR1 EQU EWACNTRS 02435000 EWASSTAT EQU EWA+8 02436000 EWASCTMX EQU EWASNSCT 02437000 EWAJAM EQU EWAFLG3 02438000 @NM00046 EQU EWAFLG2 02439000 EWADIR EQU EWAFLG2 02440000 EWACOVF EQU EWAFLG2 02441000 EWAWTEMP EQU EWAFLG2 02442000 EWAMDR EQU EWAFLG2 02443000 EWABDSNS EQU EWAFLG1 02444000 EWADDMSG EQU EWAFLG1 02445000 EWASCC1 EQU EWASCC3 02446000 EWASCC2 EQU EWASCC3 02447000 @NM00045 EQU EWAFLG1 02448000 @NM00044 EQU EWAFLG1 02449000 @NM00043 EQU EWAFLG1 02450000 EWASLIS EQU EWAFLG1 02451000 EWAEXT EQU EWAHDR 02452000 DDRSSOB EQU DDRLONG+76 02453000 @NM00042 EQU DDRUSER+1 02454000 @NM00041 EQU DDRREC2 02455000 DDRRFMTO EQU DDRREC2 02456000 DDRREC1 EQU DDRREC 02457000 DDRRETRY EQU DDRLONG+65 02458000 DDRLNOP EQU DDRLABEL 02459000 @NM00040 EQU DDRLABEL 02460000 DDRLSD EQU DDRLABEL 02461000 DDRLNSL EQU DDRLABEL 02462000 DDRLNL EQU DDRLABEL 02463000 DDRLBLP EQU DDRLABEL 02464000 DDRLAL EQU DDRLABEL 02465000 DDRMSGPC EQU DDRMSGP+1 02466000 DDRMSGPN EQU DDRMSGP 02467000 DDRMSGCD EQU DDRMSG+1 02468000 DDRMSGOP EQU DDRMSG 02469000 @NM00039 EQU DDRIOF2 02470000 DDRICNT EQU DDRIOF2 02471000 DDRIMNT EQU DDRIOF2 02472000 DDRILAB EQU DDRIOF2 02473000 DDRITAKE EQU DDRIOF2 02474000 DDRWHICH EQU DDRIOF2 02475000 DDRIOF1 EQU DDRIOF 02476000 DDRCOUNT EQU DDRLONG+48 02477000 DDRIBUF EQU DDRLONG+44 02478000 DDRIBUFL EQU DDRLONG+42 02479000 DDRAPP2 EQU DDRAPP+1 02480000 DDRAPP1 EQU DDRAPP 02481000 DDRINV1 EQU DDRINV 02482000 DDRTER2 EQU DDRTER+1 02483000 DDRTER1 EQU DDRTER 02484000 DDRTEST EQU DDRLONG+32 02485000 DDRMIH EQU DDRLONG+9 02486000 DDRFIRST EQU DDRROWN 02487000 DDRJES3L EQU DDRROWN 02488000 @NM00038 EQU DDRROWN 02489000 DDRRDENQ EQU DDRROWN 02490000 DDRRUENQ EQU DDRROWN 02491000 DDRRTENQ EQU DDRROWN 02492000 DDRTOUCB EQU DDRLONG 02493000 DDRTOCUA EQU DDRSHORT+21 02494000 @NM00037 EQU DDRDSTAT 02495000 DDRUR EQU DDRDSTAT 02496000 DDRBUFL EQU DDRDSTAT 02497000 DDRMDR EQU DDRDCHAR 02498000 @NM00036 EQU DDRSTAT 02499000 DDRPRG EQU DDRSTAT 02500000 DDRRMV EQU DDRSTAT 02501000 DDRHAMA EQU DDRSTAT 02502000 DDRQUE EQU DDRSTAT 02503000 DDRACTV EQU DDRSTAT 02504000 @NM00035 EQU DDRSRC 02505000 DDROPER EQU DDRSRC 02506000 DDRNXT EQU DDRSHORT+4 02507000 DEBXSAMB EQU DEBXTN+28 02508000 DEBXOPNJ EQU DEBXTN+24 02509000 DEBXXARG EQU DEBXTN+20 02510000 DEBXMCF2 EQU DEBXTN+19 02511000 DEBXMCF1 EQU DEBXTN+18 02512000 DEBXDSO2 EQU DEBXTN+17 02513000 DEBXDSO1 EQU DEBXTN+16 02514000 DEBXDBPR EQU DEBXTN+12 02515000 DEBXDCBM EQU DEBXTN+8 02516000 DEBXDSAB EQU DEBXTN+4 02517000 DEBXRV48 EQU DEBXTN+3 02518000 DEBXRV47 EQU DEBXFLG1 02519000 DEBXRV46 EQU DEBXFLG1 02520000 DEBXRV45 EQU DEBXFLG1 02521000 DEBXRV44 EQU DEBXFLG1 02522000 DEBXRV43 EQU DEBXFLG1 02523000 DEBXDSSI EQU DEBXFLG1 02524000 DEBXTSKC EQU DEBXFLG1 02525000 DEBXCDCB EQU DEBXFLG1 02526000 DEBXLNGH EQU DEBXTN 02527000 DEBTBLOF EQU DEBPREFX+14 02528000 DEBAMTYP EQU DEBPREFX+13 02529000 DEBLNGTH EQU DEBPREFX+12 02530000 DEBDCBMK EQU DEBXTNP 02531000 DEBDSCBA EQU DEBPREFX+1 02532000 DEBWKARA EQU DEBPREFX 02533000 DEBXCEAD EQU DEBXCEA+1 02534000 DEBXCENP EQU DEBXCEAB 02535000 DEBRSV35 EQU DEBXCEAB 02536000 DEBRSV34 EQU DEBXCEAB 02537000 DEBRSV33 EQU DEBXCEAB 02538000 DEBRSV32 EQU DEBXCEAB 02539000 DEBCEAD EQU DEBCEA+1 02540000 DEBCENP EQU DEBCEAB 02541000 DEBRSV31 EQU DEBCEAB 02542000 DEBRSV30 EQU DEBCEAB 02543000 DEBRSV29 EQU DEBCEAB 02544000 DEBRSV28 EQU DEBCEAB 02545000 DEBPCIAD EQU DEBPCIA+1 02546000 DEBPCINP EQU DEBPCIAB 02547000 DEBRSV27 EQU DEBPCIAB 02548000 DEBRSV26 EQU DEBPCIAB 02549000 DEBRSV25 EQU DEBPCIAB 02550000 DEBRSV24 EQU DEBPCIAB 02551000 DEBSIOAD EQU DEBSIOA+1 02552000 DEBSIONP EQU DEBSIOAB 02553000 DEBFIX EQU DEBSIOAB 02554000 DEBIOVR EQU DEBSIOAB 02555000 DEBSIOX EQU DEBSIOAB 02556000 DEBPGFX EQU DEBSIOAB 02557000 DEBEOEAD EQU DEBEOEA+1 02558000 DEBEOENP EQU DEBEOEAB 02559000 DEBRSV22 EQU DEBEOEAB 02560000 DEBRSV21 EQU DEBEOEAB 02561000 DEBRSV20 EQU DEBEOEAB 02562000 DEBESMVR EQU DEBEOEAB 02563000 DEBSUBID EQU DEBSUBNM 02564000 DEBSIOA2 EQU DEBACS08+24 02565000 DEBRPSIO EQU DEBACS08+20 02566000 DEBFREED EQU DEBACS08+16 02567000 @NM00028 EQU DEBACS08+12 02568000 @NM00027 EQU DEBACS08+8 02569000 DEBDISAD EQU DEBACS08+4 02570000 @NM00026 EQU DEBACS08 02571000 DEBRPSST EQU DEBACS07+64 02572000 DEBARECK EQU DEBACS07+60 02573000 DEBAREWT EQU DEBACS07+56 02574000 DEBACHK EQU DEBACS07+52 02575000 DEBAWRIT EQU DEBACS07+48 02576000 DEBASETL EQU DEBACS07+44 02577000 DEBAREAD EQU DEBACS07+40 02578000 DEBCRECK EQU DEBACS07+36 02579000 DEBCREWT EQU DEBACS07+32 02580000 DEBCCHK EQU DEBACS07+28 02581000 DEBCWRIT EQU DEBACS07+24 02582000 DEBCSETL EQU DEBACS07+20 02583000 DEBCREAD EQU DEBACS07+16 02584000 DEBWKPT5 EQU DEBACS07+12 02585000 DEBWKPT4 EQU DEBACS07+8 02586000 DEBGET EQU DEBACS07+4 02587000 @NM00025 EQU DEBACS07 02588000 DEBPUT EQU DEBACS06+4 02589000 DEBDCBFA EQU DEBACS06 02590000 DEBLUCBB EQU DEBLUCBA+1 02591000 DEBRSV18 EQU DEBLUCBA 02592000 DEBFUCBB EQU DEBFUCBA+1 02593000 DEBRSV17 EQU DEBFUCBA 02594000 DEBTCCWB EQU DEBTCCWA+1 02595000 DEBRSV16 EQU DEBTCCWA 02596000 DEBTBFRB EQU DEBTBFRA+1 02597000 DEBRSV15 EQU DEBTBFRA 02598000 DEBDBPEF EQU DEBACS03+8 02599000 DEBDBPP EQU DEBACS03+4 02600000 DEBDTPP EQU DEBACS03 02601000 DEBDBPE EQU DEBDBLK+1 02602000 DEBDBPT EQU DEBDBLK 02603000 DEBEXTNM EQU DEBDSNAM 02604000 DEBLRECL EQU DEBACSMD+14 02605000 DEBBLKSI EQU DEBACSMD+12 02606000 DEBRSV14 EQU DEBDSNM+4 02607000 DEBUTSAB EQU DEBUTSAA+1 02608000 DEBRSV13 EQU DEBUTSAA 02609000 DEBVOLNM EQU DEBACSMD+2 02610000 DEBVLSEQ EQU DEBVOLSQ+1 02611000 DEBRSV42 EQU DEBVOLBT 02612000 DEBRSV41 EQU DEBVOLBT 02613000 DEBRSV40 EQU DEBVOLBT 02614000 DEBRSV39 EQU DEBVOLBT 02615000 DEBRSV38 EQU DEBVOLBT 02616000 DEBRSV37 EQU DEBVOLBT 02617000 DEBRSV36 EQU DEBVOLBT 02618000 DEBEXFUL EQU DEBVOLBT 02619000 DEBNMTRK EQU DEBDASD+14 02620000 DEBENDHH EQU DEBDASD+12 02621000 DEBENDCC EQU DEBDASD+10 02622000 DEBSTRHH EQU DEBDASD+8 02623000 DEBSTRCC EQU DEBDASD+6 02624000 DEBBINUM EQU DEBDASD+4 02625000 DEBUCBA EQU DEBUCBAD+1 02626000 DEBDVMOD EQU DEBUCBAD 02627000 DEBAPPB EQU DEBAPPAD+1 02628000 DEBEXSCL EQU DEBAPPAD 02629000 DEBDEBID EQU DEBPROTG 02630000 DEBECBB EQU DEBECBAD+1 02631000 DEBPRIOR EQU DEBECBAD 02632000 DEBUSRPB EQU DEBUSRPG+1 02633000 DEBNMEXT EQU DEBUSRPG 02634000 DEBRSV05 EQU DEBBASIC+15 02635000 DEBXTNIN EQU DEBFLGS1 02636000 DEBAPFIN EQU DEBFLGS1 02637000 DEBF1CEV EQU DEBFLGS1 02638000 DEBCINDI EQU DEBFLGS1 02639000 DEBRSV02 EQU DEBFLGS1 02640000 DEBRSIOA EQU DEBFLGS1 02641000 DEBEOFDF EQU DEBFLGS1 02642000 DEBPWCKD EQU DEBFLGS1 02643000 DEBQSCNT EQU DEBBASIC+13 02644000 DEBACCS EQU DEBOPATB 02645000 DEBPOSIT EQU DEBOPATB 02646000 DEBZERO EQU DEBOPATB 02647000 DEBABEND EQU DEBOPATB 02648000 DEBIRBB EQU DEBIRBAD+1 02649000 DEBRERR EQU DEBOFLGS 02650000 DEBLABEL EQU DEBOFLGS 02651000 DEBSPLIT EQU DEBOFLGS 02652000 DEBDCB EQU DEBOFLGS 02653000 DEBRLSE EQU DEBOFLGS 02654000 DEBEOF EQU DEBOFLGS 02655000 DEBDISP EQU DEBOFLGS 02656000 DEBDEBB EQU DEBDEBAD+1 02657000 DEBAMLNG EQU DEBDEBAD 02658000 DEBTCBB EQU DEBTCBAD+1 02659000 DEBNMSUB EQU DEBTCBAD 02660000 CVTLEVL EQU CVTRELNO+2 02661000 CVTNUMB EQU CVTRELNO 02662000 CVTMDL EQU CVTFIX+250 02663000 @NM00024 EQU CVTFIX+248 02664000 @NM00023 EQU CVTFIX 02665000 CVTRV482 EQU CVTXTNT2+128 02666000 CVTRV481 EQU CVTXTNT2+124 02667000 CVTRV480 EQU CVTXTNT2+120 02668000 CVTRV479 EQU CVTXTNT2+118 02669000 CVTRV478 EQU CVTXTNT2+117 02670000 CVTRV477 EQU CVTXTNT2+116 02671000 CVTRV476 EQU CVTXTNT2+115 02672000 CVTRV475 EQU CVTXTNT2+114 02673000 CVTRV474 EQU CVTRV466 02674000 CVTRV473 EQU CVTRV466 02675000 CVTRV472 EQU CVTRV466 02676000 CVTRV471 EQU CVTRV466 02677000 CVTRV470 EQU CVTRV466 02678000 CVTRV469 EQU CVTRV466 02679000 CVTRV468 EQU CVTRV466 02680000 CVTRV467 EQU CVTRV466 02681000 CVTRV465 EQU CVTRV457 02682000 CVTRV464 EQU CVTRV457 02683000 CVTRV463 EQU CVTRV457 02684000 CVTRV462 EQU CVTRV457 02685000 CVTRV461 EQU CVTRV457 02686000 CVTRV460 EQU CVTRV457 02687000 CVTRV459 EQU CVTRV457 02688000 CVTRV458 EQU CVTRV457 02689000 CVTRV456 EQU CVTXTNT2+108 02690000 CVTRV455 EQU CVTXTNT2+104 02691000 CVTRV454 EQU CVTXTNT2+100 02692000 CVTRV453 EQU CVTXTNT2+96 02693000 CVTRV452 EQU CVTXTNT2+94 02694000 CVTRV451 EQU CVTXTNT2+92 02695000 CVTRV450 EQU CVTXTNT2+90 02696000 CVTRV449 EQU CVTXTNT2+88 02697000 CVTRV448 EQU CVTXTNT2+87 02698000 CVTRV447 EQU CVTXTNT2+86 02699000 CVTRV446 EQU CVTRV438 02700000 CVTRV445 EQU CVTRV438 02701000 CVTRV444 EQU CVTRV438 02702000 CVTRV443 EQU CVTRV438 02703000 CVTRV442 EQU CVTRV438 02704000 CVTRV441 EQU CVTRV438 02705000 CVTRV440 EQU CVTRV438 02706000 CVTRV439 EQU CVTRV438 02707000 CVTRV437 EQU CVTRV429 02708000 CVTRV436 EQU CVTRV429 02709000 CVTRV435 EQU CVTRV429 02710000 CVTRV434 EQU CVTRV429 02711000 CVTRV433 EQU CVTRV429 02712000 CVTRV432 EQU CVTRV429 02713000 CVTRV431 EQU CVTRV429 02714000 CVTRV430 EQU CVTRV429 02715000 CVTRV428 EQU CVTXTNT2+80 02716000 CVTRV427 EQU CVTXTNT2+76 02717000 CVTRV426 EQU CVTXTNT2+72 02718000 CVTRV425 EQU CVTXTNT2+68 02719000 CVTATACT EQU CVTATCVT 02720000 CVTRV423 EQU CVTXTNT2+62 02721000 CVTRV422 EQU CVTXTNT2+60 02722000 CVTRV421 EQU CVTXTNT2+58 02723000 CVTRV420 EQU CVTXTNT2+56 02724000 CVTRV419 EQU CVTXTNT2+55 02725000 CVTRV418 EQU CVTXTNT2+54 02726000 CVTRV417 EQU CVTRV409 02727000 CVTRV416 EQU CVTRV409 02728000 CVTRV415 EQU CVTRV409 02729000 CVTRV414 EQU CVTRV409 02730000 CVTRV413 EQU CVTRV409 02731000 CVTRV412 EQU CVTRV409 02732000 CVTRV411 EQU CVTRV409 02733000 CVTRV410 EQU CVTRV409 02734000 CVTRV408 EQU CVTRV400 02735000 CVTRV407 EQU CVTRV400 02736000 CVTRV406 EQU CVTRV400 02737000 CVTRV405 EQU CVTRV400 02738000 CVTRV404 EQU CVTRV400 02739000 CVTRV403 EQU CVTRV400 02740000 CVTRV402 EQU CVTRV400 02741000 CVTRV401 EQU CVTRV400 02742000 CVTICB EQU CVTXTNT2+48 02743000 CVTSKTA EQU CVTXTNT2+44 02744000 CVTCCVT EQU CVTXTNT2+40 02745000 CVTRSV98 EQU CVTXTNT2+36 02746000 CVTRSV97 EQU CVTXTNT2+34 02747000 CVTRSV96 EQU CVTXTNT2+32 02748000 CVTOLTEP EQU CVTXTNT2+28 02749000 CVTQIDA EQU CVTQID+1 02750000 CVTRSV95 EQU CVTQID 02751000 CVTRSV94 EQU CVTXTNT2+20 02752000 CVTRSV93 EQU CVTXTNT2+16 02753000 CVTRSV92 EQU CVTXTNT2+12 02754000 CVTDEBVR EQU CVTXTNT2+8 02755000 CVTRSV91 EQU CVTXTNT2+6 02756000 CVTRSV9H EQU CVTFLGBT 02757000 CVTRSV9G EQU CVTFLGBT 02758000 CVTRSV9F EQU CVTFLGBT 02759000 CVTRSV9E EQU CVTFLGBT 02760000 CVTRSV9D EQU CVTFLGBT 02761000 CVTRSV9C EQU CVTFLGBT 02762000 CVTVME EQU CVTFLGBT 02763000 CVTNPE EQU CVTFLGBT 02764000 CVTNUCLS EQU CVTXTNT2+4 02765000 CVTDSSVA EQU CVTDSSV+1 02766000 CVTRSV89 EQU CVTDSSV 02767000 CVTRSV88 EQU CVTXTNT1+8 02768000 CVTRSV87 EQU CVTXTNT1+4 02769000 CVTFACHN EQU CVTXTNT1 02770000 CVTRV488 EQU CVTMAP+412 02771000 CVTRV487 EQU CVTMAP+408 02772000 CVTRV486 EQU CVTMAP+404 02773000 CVTRV485 EQU CVTMAP+400 02774000 CVTACTAP EQU CVTMAP+396 02775000 CVTAUTH EQU CVTMAP+392 02776000 CVTATMCA EQU CVTATMCT+1 02777000 CVTATMST EQU CVTATMCT 02778000 CVTRSV61 EQU CVTMAP+384 02779000 CVTVOLT1 EQU CVTVOLM1+1 02780000 CVTVOLI1 EQU CVTVOLF1 02781000 CVTSTOA EQU CVTMAP+376 02782000 CVTRSV58 EQU CVTMAP+374 02783000 CVTRSV57 EQU CVTMAP+372 02784000 CVTDDCE EQU CVTMAP+368 02785000 CVTPNWFR EQU CVTMAP+364 02786000 CVTSMF EQU CVTMAP+360 02787000 CVTSULK EQU CVTMAP+358 02788000 CVTSLKO EQU CVTSYSK 02789000 CVTSLKP EQU CVTSYSK 02790000 CVTSLKQ EQU CVTSYSK 02791000 CVTSLKR EQU CVTSYSK 02792000 CVTRSV56 EQU CVTSYSK 02793000 CVTRSV55 EQU CVTSYSK 02794000 CVTRSV54 EQU CVTSYSK 02795000 CVTRSV53 EQU CVTSYSK 02796000 CVTRSV52 EQU CVTA1F1 02797000 CVTRSV51 EQU CVTA1F1 02798000 CVTRSV50 EQU CVTA1F1 02799000 CVTRSV49 EQU CVTA1F1 02800000 CVTRSV48 EQU CVTA1F1 02801000 CVTRSV47 EQU CVTA1F1 02802000 CVTSRSW EQU CVTA1F1 02803000 CVTPFSW EQU CVTA1F1 02804000 CVTPCVT EQU CVTMAP+352 02805000 CVTRSV46 EQU CVTMAP+344 02806000 CVTRSV45 EQU CVTMAP+340 02807000 CVTRSV44 EQU CVTMAP+338 02808000 CVTRSV43 EQU CVTMAP+336 02809000 CVTHJESA EQU CVTHJES+1 02810000 CVTRSV42 EQU CVTHJES 02811000 CVTEXT2A EQU CVTEXT2+1 02812000 CVTRSV41 EQU CVTEXT2 02813000 CVTAPFA EQU CVTAPF+1 02814000 CVTRSV40 EQU CVTAPF 02815000 CVTRV518 EQU CVTINTLA 02816000 CVTRV517 EQU CVTERPV 02817000 CVTEORM EQU CVTMAP+312 02818000 CVTMCHPR EQU CVTMAP+308 02819000 CVTTZ EQU CVTMAP+304 02820000 CVTJEPS EQU CVTMAP+300 02821000 CVTJESCT EQU CVTMAP+296 02822000 CVTMODE EQU CVTMAP+292 02823000 CVTPTRV EQU CVTMAP+288 02824000 CVTREAL EQU CVTMAP+284 02825000 CVTRSV39 EQU CVTMAP+280 02826000 CVTRSV38 EQU CVTMAP+276 02827000 CVTDMSRA EQU CVTDMSR+1 02828000 CVTRV634 EQU CVTDMSRF 02829000 CVTRV633 EQU CVTDMSRF 02830000 CVTRV632 EQU CVTDMSRF 02831000 CVTRV631 EQU CVTDMSRF 02832000 CVTRV630 EQU CVTDMSRF 02833000 CVTRV629 EQU CVTDMSRF 02834000 CVTUDUMP EQU CVTDMSRF 02835000 CVTSDUMP EQU CVTDMSRF 02836000 CVTQMSGA EQU CVTQMSG+1 02837000 CVTRSV36 EQU CVTQMSG 02838000 CVTAMFF EQU CVTMAP+264 02839000 CVTPURGA EQU CVTPURG+1 02840000 CVTRSV35 EQU CVTPURG 02841000 CVTCBSP EQU CVTMAP+256 02842000 CVTATERA EQU CVTATER+1 02843000 CVTSYST EQU CVTATER 02844000 CVTVOLT2 EQU CVTTAT 02845000 CVTVOLI2 EQU CVTVOLF2 02846000 CVTAQAVB EQU CVTAQAVT+1 02847000 CVTRSV34 EQU CVTTCMFG 02848000 CVTRSV33 EQU CVTTCMFG 02849000 CVTRSV32 EQU CVTTCMFG 02850000 CVTRSV31 EQU CVTTCMFG 02851000 CVTRSV30 EQU CVTTCMFG 02852000 CVTRSV29 EQU CVTTCMFG 02853000 CVTRSV28 EQU CVTTCMFG 02854000 CVTTCRDY EQU CVTTCMFG 02855000 CVTGTFA EQU CVTGTF+1 02856000 CVTRSV27 EQU CVTGTFST 02857000 CVTRNIO EQU CVTGTFST 02858000 CVTUSR EQU CVTGTFST 02859000 CVTRV318 EQU CVTFORM 02860000 CVTRV317 EQU CVTTMODE 02861000 CVTRV316 EQU CVTSTATE 02862000 CVTRV315 EQU CVTGTFS 02863000 CVTGTFAV EQU CVTGTFS 02864000 CVT0SCR1 EQU CVTMAP+232 02865000 CVTRV515 EQU CVTMAP+228 02866000 CVTRMS EQU CVTMAP+224 02867000 CVTPATCH EQU CVTMAP+220 02868000 CVTTSCE EQU CVTMAP+216 02869000 CVTLNKSC EQU CVTMAP+214 02870000 CVTQABST EQU CVTMAP+212 02871000 CVTMDLDS EQU CVTMAP+208 02872000 CVTUSER EQU CVTMAP+204 02873000 CVTABEND EQU CVTMAP+200 02874000 CVTSMCA EQU CVTMAP+196 02875000 CVTRSV18 EQU CVTMAP+192 02876000 CVTQLPAQ EQU CVTMAP+188 02877000 CVTQCDSR EQU CVTMAP+184 02878000 CVTRSV17 EQU CVTOPTB 02879000 CVTRSV16 EQU CVTOPTB 02880000 CVTFP EQU CVTOPTB 02881000 CVTAPTHR EQU CVTOPTB 02882000 CVTNLOG EQU CVTOPTB 02883000 CVTTOD EQU CVTOPTB 02884000 CVTCTIMS EQU CVTOPTB 02885000 CVTPROT EQU CVTOPTB 02886000 CVTXPFP EQU CVTOPTA 02887000 CVTASCII EQU CVTOPTA 02888000 CVTRSV13 EQU CVTOPTA 02889000 CVTRSV12 EQU CVTOPTA 02890000 CVTAPR EQU CVTOPTA 02891000 CVTCCH EQU CVTOPTA 02892000 CVTSNCTR EQU CVTMAP+180 02893000 CVTQMWR EQU CVTMAP+176 02894000 CVTQOCR EQU CVTMAP+172 02895000 CVT1EF00 EQU CVTMAP+168 02896000 CVTMZ00 EQU CVTMAP+164 02897000 CVTSV76Q EQU CVTSV76C 02898000 CVTRSV11 EQU CVTMAP+156 02899000 CVT0PT01 EQU CVTMAP+152 02900000 CVTMSER EQU CVTMAP+148 02901000 CVTRV516 EQU CVTIERLC 02902000 CVTILCH EQU CVTMAP+140 02903000 CVT0DS EQU CVTMAP+136 02904000 CVTFBOSV EQU CVTMAP+132 02905000 CVTNUCB EQU CVTMAP+128 02906000 CVTIXAVL EQU CVTMAP+124 02907000 CVTSV76M EQU CVTIOQET 02908000 CVTDCBA EQU CVTMAP+117 02909000 CVTMVS2 EQU CVTDCB 02910000 CVT6DAT EQU CVTDCB 02911000 CVT4MPS EQU CVTDCB 02912000 CVTRSV09 EQU CVTDCB 02913000 CVT4MS1 EQU CVTDCB 02914000 CVT2SPS EQU CVTDCB 02915000 CVT1SSS EQU CVTDCB 02916000 CVTRSV08 EQU CVTDCB 02917000 CVTSTB EQU CVTMAP+112 02918000 CVTQTD00 EQU CVTMAP+108 02919000 CVTQTE00 EQU CVTMAP+104 02920000 CVTCUCB EQU CVTMAP+100 02921000 CVTSJQ EQU CVTMAP+96 02922000 CVTPBLDL EQU CVTMAP+92 02923000 CVTTPC EQU CVTMAP+88 02924000 CVTSVDCB EQU CVTMAP+84 02925000 CVTBRET EQU CVTMAP+82 02926000 CVTEXIT EQU CVTMAP+80 02927000 CVT0FN00 EQU CVTMAP+76 02928000 CVTDARA EQU CVTDAR+1 02929000 CVTRSV07 EQU CVTFLGS1 02930000 CVTRSV06 EQU CVTFLGS1 02931000 CVTRSV05 EQU CVTFLGS1 02932000 CVTRSV04 EQU CVTFLGS1 02933000 CVTRSV03 EQU CVTFLGS1 02934000 CVTRSV02 EQU CVTFLGS1 02935000 CVTRSV01 EQU CVTFLGS1 02936000 CVTDMPLK EQU CVTFLGS1 02937000 CVTXITP EQU CVTMAP+68 02938000 CVTZDTAB EQU CVTMAP+64 02939000 CVTMSLT EQU CVTMAP+60 02940000 CVTDATE EQU CVTMAP+56 02941000 CVTBTERM EQU CVTMAP+52 02942000 CVTSYSAD EQU CVTMAP+48 02943000 CVTXTLER EQU CVTMAP+44 02944000 CVTILK2 EQU CVTMAP+40 02945000 CVTILK1 EQU CVTMAP+36 02946000 CVTPRLTV EQU CVTMAP+32 02947000 CVTPCNVT EQU CVTMAP+28 02948000 CVT0VL00 EQU CVTMAP+24 02949000 CVTXAPG EQU CVTMAP+20 02950000 CVTBUF EQU CVTMAP+16 02951000 CVTJOB EQU CVTMAP+12 02952000 CVTLINK EQU CVTMAP+8 02953000 CVT0EF00 EQU CVTMAP+4 02954000 CVTTCBP EQU CVTMAP 02955000 CVT EQU CVTMAP 02956000 ASVTEND EQU ASVT+528 02957000 ASVTAVAL EQU ASVTENTY 02958000 ASVTAVAI EQU ASVTFRST 02959000 ASVTRS00 EQU ASVT+520 02960000 ASVTMAXU EQU ASVT+516 02961000 ASVTASVT EQU ASVT+512 02962000 ASVTBEGN EQU ASVT+512 02963000 @NM00022 EQU ASVT 02964000 @NM00021 EQU IHADCS28+1 02965000 @NM00020 EQU DCBOPTCD 02966000 DCBSRCHD EQU DCBOPTZ 02967000 @NM00019 EQU DCBOPTCD 02968000 DCBDEBA EQU DCBDEBAD+1 02969000 @NM00018 EQU DCBIFLGS 02970000 DCBIFIOE EQU DCBIFLGS 02971000 DCBCH12 EQU DCBIFPCT 02972000 DCBCH9 EQU DCBIFPCT 02973000 DCBIFEC EQU DCBIFLGS 02974000 DCBMFSTI EQU DCBMFDMD 02975000 DCBMFAWR EQU DCBMFSTK 02976000 DCBMFUIP EQU DCBMFTMD 02977000 DCBMFIDW EQU DCBMFLCP 02978000 DCBMFWRK EQU DCBMFMVP 02979000 DCBMFRDQ EQU DCBMFWRT 02980000 DCBMFGTQ EQU DCBMFPUT 02981000 DCBMFSTL EQU DCBMACF2 02982000 DCBMFCK EQU DCBMFDMG 02983000 DCBMFRDX EQU DCBMFCHK 02984000 DCBMFDBF EQU DCBMFSBG 02985000 DCBMFRDI EQU DCBMFLCG 02986000 DCBMFRDK EQU DCBMFMVG 02987000 DCBMFWRQ EQU DCBMFRD 02988000 DCBMFPTQ EQU DCBMFGET 02989000 DCBMFECP EQU DCBMACF1 02990000 DCBTIOT EQU IHADCS25 02991000 DCBMRSTI EQU DCBMRDMD 02992000 DCBMRAWR EQU DCBMRSTK 02993000 DCBMRUIP EQU DCBMRTMD 02994000 DCBMRIDW EQU DCBMRLCP 02995000 DCBMRWRK EQU DCBMRMVP 02996000 DCBMRRDQ EQU DCBMRWRT 02997000 DCBMRGTQ EQU DCBMRPUT 02998000 DCBMRSTL EQU DCBMACR2 02999000 DCBMRCK EQU DCBMRDMG 03000000 DCBPGFXA EQU DCBMRRDX 03001000 DCBMRDBF EQU DCBMRSBG 03002000 DCBMRRDI EQU DCBMRLCG 03003000 DCBMRRDK EQU DCBMRMVG 03004000 DCBMRWRQ EQU DCBMRRD 03005000 DCBMRPTQ EQU DCBMRGET 03006000 DCBMRECP EQU DCBMACR1 03007000 @NM00017 EQU DCBIFLG 03008000 DCBIBIOE EQU DCBIFLG 03009000 DCBICH12 EQU DCBIBPCT 03010000 DCBICH9 EQU DCBIBPCT 03011000 DCBIBEC EQU DCBIFLG 03012000 DCBOFIOF EQU DCBOFLGS 03013000 DCBOFUEX EQU DCBOFLGS 03014000 DCBOFTM EQU DCBOFLGS 03015000 DCBOFPPC EQU DCBOFLGS 03016000 DCBOFOPN EQU DCBOFLGS 03017000 DCBOFEOV EQU DCBOFLGS 03018000 DCBOFLRB EQU DCBOFLGS 03019000 DCBOFIOD EQU DCBOFLWR 03020000 DCBDDNAM EQU IHADCS24 03021000 DCBEXLSA EQU DCBEXLST+1 03022000 DCBRECKL EQU DCBRECFM 03023000 DCBRECCC EQU DCBRECFM 03024000 DCBRECSB EQU DCBRECFM 03025000 DCBRECBR EQU DCBRECFM 03026000 DCBRECTO EQU DCBRECLA 03027000 DCBRECL EQU DCBRECLA 03028000 DCBEODA EQU DCBEODAD+1 03029000 DCBBFA EQU DCBBFTEK 03030000 DCBH0 EQU DCBBFTEK 03031000 DCBBFTKD EQU DCBBFTEK 03032000 DCBBFTE EQU DCBBFT 03033000 DCBBFTKR EQU DCBBFT 03034000 DCBBFTS EQU DCBBFT 03035000 DCBH1 EQU DCBBFTEK 03036000 DCBSVCXA EQU DCBSVCXL+1 03037000 @NM00016 EQU DCBSVCXL 03038000 DCBODEBA EQU DCBIOBAA 03039000 @NM00015 EQU DCBQSLM 03040000 DCBUPDBT EQU DCBQSLM 03041000 DCBUPDCM EQU DCBQSLM 03042000 DCB1DVDS EQU DCBQSLM 03043000 @NM00014 EQU DCBDSRG2 03044000 DCBDSGTR EQU DCBDSRG2 03045000 DCBACBM EQU DCBDSRG2 03046000 @NM00013 EQU DCBDSRG2 03047000 DCBDSGTQ EQU DCBDSRG2 03048000 DCBDSGTX EQU DCBDSRG2 03049000 DCBDSGGS EQU DCBDSRG2 03050000 DCBDSGU EQU DCBDSRG1 03051000 DCBDSGPO EQU DCBDSRG1 03052000 @NM00012 EQU DCBDSRG1 03053000 @NM00011 EQU DCBDSRG1 03054000 DCBDSGCX EQU DCBDSRG1 03055000 DCBDSGDA EQU DCBDSRG1 03056000 DCBDSGPS EQU DCBDSRG1 03057000 DCBDSGIS EQU DCBDSRG1 03058000 DCBBUFL EQU IHADCS11+8 03059000 DCBBUFCA EQU DCBBUFCB+1 03060000 DCBBUFNO EQU DCBBUFCB 03061000 DCBDEVT EQU DCBREL 03062000 DCBKEYLE EQU DCBRELB 03063000 @NM00010 EQU IHADCS02+19 03064000 DCBDEN EQU IHADCS02+18 03065000 @NM00009 EQU IHADCS02+17 03066000 DCBTRTCH EQU IHADCS02+16 03067000 @NM00008 EQU IHADCS02 03068000 @NM00007 EQU IHADCB 03069000 @NM00083 EQU PSA+3668 03070000 PSASTAK EQU PSA+3072 03071000 @NM00082 EQU PSA+1048 03072000 PSAUSEND EQU PSA+1048 03073000 PSARV062 EQU PSA+1044 03074000 PSACDAL EQU PSA+1040 03075000 PSAWTCOD EQU PSA+1036 03076000 PSAATCVT EQU PSA+1032 03077000 PSAPCPSW EQU PSA+1024 03078000 PSAPIR2 EQU PSA+1020 03079000 PSARV059 EQU PSA+1018 03080000 PSASVC13 EQU PSA+1016 03081000 PSALSFCC EQU PSA+1012 03082000 PSASFACC EQU PSA+1008 03083000 PSASTOP EQU PSA+992 03084000 PSASTART EQU PSA+976 03085000 PSARSPSW EQU PSA+968 03086000 PSASRPSW EQU PSA+960 03087000 PSARV045 EQU PSA+892 03088000 PSARV044 EQU PSA+888 03089000 PSARV043 EQU PSA+884 03090000 PSARV042 EQU PSA+880 03091000 PSARV041 EQU PSA+876 03092000 PSARV040 EQU PSA+872 03093000 PSARV025 EQU PSA+868 03094000 PSADSSED EQU PSA+868 03095000 PSADSSPR EQU PSA+864 03096000 PSADSSFW EQU PSA+860 03097000 PSADSS14 EQU PSA+856 03098000 PSADSSPP EQU PSA+848 03099000 PSADSSRP EQU PSA+840 03100000 PSADSS05 EQU PSADSSF4 03101000 PSADSS10 EQU PSADSSF4 03102000 PSADSSVE EQU PSADSSF4 03103000 PSADSSDE EQU PSADSSF4 03104000 PSADSSC0 EQU PSADSSF4 03105000 PSADSSIE EQU PSADSSF4 03106000 PSADSS12 EQU PSADSSF4 03107000 PSADSSRC EQU PSADSSF4 03108000 PSARV057 EQU PSADSSF3 03109000 PSARV056 EQU PSADSSF3 03110000 PSARV055 EQU PSADSSF3 03111000 PSADSSMC EQU PSADSSF3 03112000 PSADSSRW EQU PSADSSF3 03113000 PSADSSNM EQU PSADSSF3 03114000 PSADSSES EQU PSADSSF3 03115000 PSADSSGP EQU PSADSSF3 03116000 PSADSSF2 EQU PSADSSFL+1 03117000 PSADSSPI EQU PSADSSF1 03118000 PSADSSOI EQU PSADSSF1 03119000 PSADSSSP EQU PSADSSF1 03120000 PSADSSTP EQU PSADSSF1 03121000 PSADSSDW EQU PSADSSF1 03122000 PSADSSDD EQU PSADSSF1 03123000 PSADSSDM EQU PSADSSF1 03124000 PSADSSMV EQU PSADSSF1 03125000 PSADSSTS EQU PSA+816 03126000 PSADSSWK EQU PSA+812 03127000 PSADSSR3 EQU PSA+808 03128000 PSADSSR2 EQU PSA+804 03129000 PSADSSRS EQU PSA+800 03130000 PSASTOR EQU PSA+796 03131000 PSACPUSA EQU PSA+794 03132000 PSAVSTAP EQU PSA+792 03133000 PSAWKVAP EQU PSA+788 03134000 PSAWKRAP EQU PSA+784 03135000 PSAMCHIC EQU PSA+783 03136000 PSARV061 EQU PSA+782 03137000 PSASYMSK EQU PSA+781 03138000 PSAMCHFL EQU PSA+780 03139000 PSACR0 EQU PSA+776 03140000 PSAPSWSV EQU PSA+768 03141000 PSALITA EQU PSA+764 03142000 PSACLHS EQU PSAHLHI 03143000 PSALKR15 EQU PSALKSA+60 03144000 PSALKR14 EQU PSALKSA+56 03145000 PSALKR13 EQU PSALKSA+52 03146000 PSALKR12 EQU PSALKSA+48 03147000 PSALKR11 EQU PSALKSA+44 03148000 PSALKR10 EQU PSALKSA+40 03149000 PSALKR9 EQU PSALKSA+36 03150000 PSALKR8 EQU PSALKSA+32 03151000 PSALKR7 EQU PSALKSA+28 03152000 PSALKR6 EQU PSALKSA+24 03153000 PSALKR5 EQU PSALKSA+20 03154000 PSALKR4 EQU PSALKSA+16 03155000 PSALKR3 EQU PSALKSA+12 03156000 PSALKR2 EQU PSALKSA+8 03157000 PSALKR1 EQU PSALKSA+4 03158000 PSALKR0 EQU PSALKSA 03159000 PSARV023 EQU PSACLHT+52 03160000 PSALOCAL EQU PSACLHT+48 03161000 PSACMSL EQU PSACLHT+44 03162000 PSAOPTL EQU PSACLHT+40 03163000 PSATPACL EQU PSACLHT+36 03164000 PSATPDNL EQU PSACLHT+32 03165000 PSATPNCL EQU PSACLHT+28 03166000 PSAIOSLL EQU PSACLHT+24 03167000 PSAIOSUL EQU PSACLHT+20 03168000 PSAIOSCL EQU PSACLHT+16 03169000 PSAIOSSL EQU PSACLHT+12 03170000 PSASALCL EQU PSACLHT+8 03171000 PSAASML EQU PSACLHT+4 03172000 PSADISPL EQU PSACLHT 03173000 PSASRSA EQU PSA+636 03174000 PSARV050 EQU PSA+634 03175000 PSADSSGO EQU PSA+633 03176000 PSARECUR EQU PSA+632 03177000 PSAHLHIS EQU PSA+628 03178000 PSAIPCSA EQU PSA+624 03179000 @NM00081 EQU PSA+621 03180000 PSAIPCDM EQU PSA+620 03181000 PSAIPCD EQU PSA+616 03182000 @NM00080 EQU PSA+613 03183000 PSAIPCRM EQU PSA+612 03184000 PSAIPCR EQU PSA+608 03185000 PSAMCHEX EQU PSA+600 03186000 PSAMPSW EQU PSA+592 03187000 PSAEXPS2 EQU PSA+584 03188000 PSAEXPS1 EQU PSA+576 03189000 PSAPIREG EQU PSA+572 03190000 PSARSREG EQU PSA+568 03191000 PSAGPREG EQU PSA+556 03192000 PSARV022 EQU PSASUP4 03193000 PSARV021 EQU PSASUP4 03194000 PSARV020 EQU PSASUP4 03195000 PSARV019 EQU PSASUP4 03196000 PSARV018 EQU PSASUP4 03197000 PSARV017 EQU PSASUP4 03198000 PSARV016 EQU PSASUP4 03199000 PSARV015 EQU PSASUP4 03200000 PSARV014 EQU PSASUP3 03201000 PSARV013 EQU PSASUP3 03202000 PSARV012 EQU PSASUP3 03203000 PSAESTA EQU PSASUP3 03204000 PSASPR EQU PSASUP3 03205000 PSAPSREG EQU PSASUP3 03206000 PSAPI2 EQU PSASUP3 03207000 PSAIOSUP EQU PSASUP3 03208000 PSALCR EQU PSASUP2 03209000 PSARTM EQU PSASUP2 03210000 PSAACR EQU PSASUP2 03211000 PSAIPCE2 EQU PSASUP2 03212000 PSAIPCES EQU PSASUP2 03213000 PSAIPCEC EQU PSASUP2 03214000 PSAGTF EQU PSASUP2 03215000 PSAIPCRI EQU PSASUP2 03216000 PSATYPE6 EQU PSASUP1 03217000 PSATCTL EQU PSASUP1 03218000 PSADISP EQU PSASUP1 03219000 PSALOCK EQU PSASUP1 03220000 PSAPI EQU PSASUP1 03221000 PSAEXT EQU PSASUP1 03222000 PSASVC EQU PSASUP1 03223000 PSAIO EQU PSASUP1 03224000 PSAAOLD EQU PSA+548 03225000 PSAANEW EQU PSA+544 03226000 PSATOLD EQU PSA+540 03227000 PSATNEW EQU PSA+536 03228000 PSALCCAR EQU PSA+532 03229000 PSALCCAV EQU PSA+528 03230000 PSAPCCAR EQU PSA+524 03231000 PSAPCCAV EQU PSA+520 03232000 PSACPULA EQU PSA+518 03233000 PSACPUPA EQU PSA+516 03234000 PSAPSA EQU PSA+512 03235000 FLCHDEND EQU PSA+512 03236000 FLCCRSAV EQU FLCMCLA+280 03237000 FLCGRSAV EQU FLCMCLA+216 03238000 FLCFPSAV EQU FLCMCLA+184 03239000 FLCFLA EQU FLCMCLA+88 03240000 FLCRGNCD EQU FLCMCLA+84 03241000 FLCFSAA EQU FLCFSA+1 03242000 @NM00079 EQU FLCFSA 03243000 @NM00078 EQU FLCMCLA+72 03244000 FLCMCIC EQU FLCMCLA+64 03245000 @NM00077 EQU FLCMCLA+20 03246000 FLCIOAA EQU FLCIOA+1 03247000 @NM00076 EQU FLCIOA 03248000 @NM00075 EQU FLCMCLA+15 03249000 @NM00074 EQU FLCMCLA+14 03250000 @NM00073 EQU FLCMCLA+12 03251000 FLCLCL EQU FLCMCLA+8 03252000 FLCIOELA EQU FLCIOEL+1 03253000 @NM00072 EQU FLCIOEL 03254000 FLCCHNID EQU FLCMCLA 03255000 @NM00071 EQU PSA+160 03256000 FLCMTRCD EQU PSA+157 03257000 @NM00070 EQU PSA+156 03258000 FLCPERA EQU FLCPER+1 03259000 @NM00069 EQU FLCPER 03260000 @NM00068 EQU PSA+151 03261000 FLCPERCD EQU PSA+150 03262000 FLCMCNUM EQU PSA+149 03263000 @NM00067 EQU PSA+148 03264000 FLCTEAA EQU FLCTEA+1 03265000 @NM00066 EQU FLCTEA 03266000 PSAPIPC EQU PSAPICOD 03267000 PSAPIMC EQU PSAPICOD 03268000 PSAPIPER EQU PSAPICOD 03269000 PSARV049 EQU FLCPICOD 03270000 FLCPILCB EQU FLCPIILC 03271000 @NM00065 EQU FLCPIILC 03272000 @NM00064 EQU PSAEPPSW 03273000 FLCSVCN EQU PSAESPSW+2 03274000 FLCSILCB EQU FLCSVILC 03275000 @NM00063 EQU FLCSVILC 03276000 @NM00062 EQU PSAESPSW 03277000 FLCEICOD EQU PSAEEPSW+2 03278000 PSASPAD EQU PSAEEPSW 03279000 @NM00061 EQU PSA+128 03280000 FLCINPSW EQU PSA+120 03281000 FLCMNPSW EQU PSA+112 03282000 FLCPNPSW EQU PSA+104 03283000 FLCSNPSW EQU PSA+96 03284000 FLCENPSW EQU PSA+88 03285000 FLCTRACE EQU PSA+84 03286000 FLCTIMER EQU PSA+80 03287000 FLCCVT2 EQU PSA+76 03288000 FLCCAW EQU PSA+72 03289000 FLCCSW EQU PSA+64 03290000 FLCIOPSW EQU PSA+56 03291000 FLCMOPSW EQU PSA+48 03292000 FLCPOPSW EQU PSA+40 03293000 FLCSOPSW EQU PSA+32 03294000 FLCEOPSW EQU PSA+24 03295000 @NM00060 EQU FLCICCW2+4 03296000 FLCICCW1 EQU FLCROPSW 03297000 FLCIPPSW EQU FLCRNPSW 03298000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03299000 @ENDDATA EQU * 03300000 END IGE0660A,(C'PLS0945',0701,77322) 03301000