TD10 TITLE 'IGTD10 - MONITOR MAIN ROUTINE. *00001000 ' 00002000 * /* DEFINE INITIAL GETMAIN MACRO. */ 00003000 MACRO 00004000 &LABEL IGTDGSV &R,&LV=,&SP=,&INITIAL=YES 00005000 &LABEL IGTYGSV &R,INITIAL=&INITIAL,SP=&SP,LV=&LV CALL GETMAIN RT. 00006000 MEND 00007000 IGTD10 CSECT , 01S0002 00008000 @MAINENT DS 0H 01S0002 00009000 USING *,@15 01S0002 00010000 B @PROLOG 01S0002 00011000 DC AL1(16) 01S0002 00012000 DC C'IGTD10 77.231' 01S0002 00013000 DROP @15 00014000 @PROLOG STM @14,@12,12(@13) 01S0002 00015000 BALR @07,0 01S0002 00016000 @PSTART DS 0H 01S0002 00017000 USING @PSTART,@07 01S0002 00018000 L @00,@SIZDATD 01S0002 00019000 IGTDGSV R,LV=(0) 00020000 LR @06,@01 01S0002 00021000 USING @DATD,@06 01S0002 00022000 ST @13,@SA00001+4 01S0002 00023000 LM @00,@01,20(@13) 01S0002 00024000 ST @06,8(,@13) 01S0002 00025000 LR @13,@06 01S0002 00026000 MVC @PC00001(4),0(@01) 01S0002 00027000 * MEMBID=INPARM1(1:8); /* COMMAND SET MEMBER NAME. */ 00028000 L @15,@PC00001 01S0225 00029000 MVC MEMBID(8),INPARM1(@15) 01S0225 00030000 * RESPECIFY 01S0226 00031000 * R1P UNRESTRICTED; /* RELEASE UNNEEDED REGISTER. */ 00032000 * 02S0227 00033000 */********************************************************************/ 00034000 */* ESTABLISH THE ERROR RECOVERY ENVIRONMENT. */ 00035000 */********************************************************************/ 00036000 * 02S0227 00037000 * DO; /* CREATE THE ESTAE. */ 00038000 * RFY 02S0228 00039000 * (R2P, 02S0228 00040000 * R15P) RSTD; /* NEEDED BY ESTAE. */ 00041000 * D10APCT=APCTPTR; /* SET ADDRESS OF THE APCT. */ 00042000 ST APCTPTR,D10APCT 02S0229 00043000 * D10CODE=10; /* INDICATE THIS IS D10 PARM 00044000 * LIST. */ 00045000 MVC D10CODE(2),@CH02928 02S0230 00046000 * D10FLAGS=''B; /* INIT FLAGS FIELD. */ 00047000 XC D10FLAGS(2),D10FLAGS 02S0231 00048000 * R2P=APCTZD4E; /* ADDRESS OF THE STAE EXIT RTN. */ 00049000 L R2P,APCTZD4E(,APCTPTR) 02S0232 00050000 * GEN REFS(DSTAE,SSTAE,R2P); 02S0233 00051000 * /* ISSUE THE STAE OR ESTAE. */ 00052000 MVC DSTAE,SSTAE MOVE IN THE SKELETON. 00053000 IGTYSTAE (R2P),MF=(E,DSTAE),PARAM=D10STAE ISSUE THE ESTAE. 00054000 * RFY 02S0234 00055000 * (R2P, 02S0234 00056000 * R15P) UNRSTD; /* RELEASE THE REGS. */ 00057000 * END; /* END OF ESTAE PROCESSING. */ 00058000 * IF R15P=0 THEN /* IF IT IS OK, PROCEED. */ 00059000 LTR R15P,R15P 01S0236 00060000 BNZ @RF00236 01S0236 00061000 * DO; 01S0237 00062000 * APOTNAME(1:4)='IGT0'; /* BUILD THE OPTION TABLE NAME. */ 00063000 MVC APOTNAME(4),@CC03884 01S0238 00064000 * APOTNAME(5:8)=APCTENQM(5:8);/* BUILD THE OPTION TABLE NAME. */ 00065000 MVC APOTNAME+4(4),APCTENQM+4(APCTPTR) 01S0239 00066000 * 02S0240 00067000 * /*************************************************************/ 00068000 * /* */ 00069000 * /* OPEN THE DCB FOR THE LOG DATA SET. */ 00070000 * /* */ 00071000 * /*************************************************************/ 00072000 * 02S0240 00073000 * GEN REFS(LOGDCBS,LOGOPENS) SETS(LOGDCBD,OPENIT); 02S0240 00074000 MVC LOGDCBD,LOGDCBS MOVE IN DCB SKELETON. 00075000 MVC OPENIT(4),LOGOPENS MOVE IN OPEN SKELETON. 00076000 OPEN (LOGDCBD),MF=(E,OPENIT) OPEN THE LOG DCB. 00077000 * APCTLOGD=ADDR(LOGDCBD); /* MAKE DCB ADDRESS AVAILABLE TO 00078000 * OTHER USERS. */ 00079000 LA @15,LOGDCBD 02S0241 00080000 ST @15,APCTLOGD(,APCTPTR) 02S0241 00081000 * APCTLGLN=255; /* INSURE THAT A TITLE IS PRINTE.*/ 00082000 MVC APCTLGLN(2,APCTPTR),@CH00947 02S0242 00083000 * APCTLGPG=0; /* INITIALIZE THE PAGE COUNT. */ 00084000 SLR @15,@15 02S0243 00085000 STH @15,APCTLGPG(,APCTPTR) 02S0243 00086000 * 02S0244 00087000 * /*************************************************************/ 00088000 * /* */ 00089000 * /* OPEN THE DCB FOR THE IPL LOAD MODULE LIBRARY. */ 00090000 * /* */ 00091000 * /*************************************************************/ 00092000 * 02S0244 00093000 * GEN REFS(STATLDCB,OPENLDCB) SETS(DYNLDCB,OPENIT); 02S0244 00094000 MVC DYNLDCB,STATLDCB GET COPY OF DCB 00095000 MVC OPENIT(4),OPENLDCB GET COPY OF OPEN 00096000 OPEN (DYNLDCB),MF=(E,OPENIT) OPEN SYS1.LOAD3838 00097000 * APCTDCLD=ADDR(DYNLDCB); /* SET DCB ADDRESS. */ 00098000 LA @15,DYNLDCB 02S0245 00099000 ST @15,APCTDCLD(,APCTPTR) 02S0245 00100000 * 02S0246 00101000 */* THIS SECTION OF CODE REINITALIZES THE APCT SO THAT THE */ 00102000 */* MONITOR CAN RESTART AFTER A PREVIOUS TERMINATION. */ 00103000 */* THE THINGS THAT NEED CLEAN UP MAY BE DIVIDED INTO */ 00104000 */* THREE CATEGORIES: */ 00105000 */* 1. THOSE THAT MUST BE INITIALIZED FOR BOTH WARM AND */ 00106000 */* COLD START. */ 00107000 */* 2. THOSE INITILIZED ONLY IF A WARM START IS IN */ 00108000 */* PROGRESS. */ 00109000 */* 3. THOSE INITIALIZED ONLY IF A COLD START IS IN */ 00110000 */* PROGRESS. */ 00111000 * 02S0246 00112000 * 02S0246 00113000 */* CATEGORY 1. INITIALIZE FOR BOTH COLD AND WARM START. */ 00114000 * 02S0246 00115000 * APCTCQLK=0; /* RESET APCQ LOCK. */ 00116000 SLR @15,@15 02S0246 00117000 ST @15,APCTCQLK(,APCTPTR) 02S0246 00118000 * APCTCQF=0; /* RESET ACTIVE APCQ FIRST PTR. */ 00119000 ST @15,APCTCQF(,APCTPTR) 02S0247 00120000 * APCTCQL=0; /* RESET ACTIVE APCQ LAST PTR. */ 00121000 ST @15,APCTCQL(,APCTPTR) 02S0248 00122000 * APCTCQAQ=0; /* RESET AVAILABLE APCQS PTR. */ 00123000 ST @15,APCTCQAQ(,APCTPTR) 02S0249 00124000 * APCTECIT=0; /* RESET COMMAND INTFACE TASK 00125000 * ECB. */ 00126000 ST @15,APCTECIT(,APCTPTR) 02S0250 00127000 * APCTEALC=0; /* RESET ALLOCATE RESOURCE ECB. */ 00128000 ST @15,APCTEALC(,APCTPTR) 02S0251 00129000 * APCTECPT=0; /* RESET COMMAND PROCESSOR ECB. */ 00130000 ST @15,APCTECPT(,APCTPTR) 02S0252 00131000 * APCTLOGL=0; /* RESET MESSAGE LOG LOCK. */ 00132000 ST @15,APCTLOGL(,APCTPTR) 02S0253 00133000 * APCTTCB=CURTCB; /* GET THE ADDRESS OF THE 02S0254 00134000 * MONITOR'S TCB. */ 00135000 L @01,CVTPTR 02S0254 00136000 L @15,CVTTCBP(,@01) 02S0254 00137000 L @14,CURTCB(,@15) 02S0254 00138000 ST @14,APCTTCB(,APCTPTR) 02S0254 00139000 * APCTASCB=CURASCB; /* GET THE ADDRESS OF THE 02S0255 00140000 * MONITOR'S ASCB. */ 00141000 L @15,CURASCB(,@15) 02S0255 00142000 ST @15,APCTASCB(,APCTPTR) 02S0255 00143000 * APCTASID=APCTASCB->ASCBASID;/* THE MONITORS ASID. */ 00144000 LH @15,ASCBASID(,@15) 02S0256 00145000 N @15,@CF04017 02S0256 00146000 STH @15,APCTASID(,APCTPTR) 02S0256 00147000 * IF APCTWARM='1'B THEN /* TEST FOR WARM START. */ 00148000 * 02S0257 00149000 TM APCTWARM(APCTPTR),B'00000100' 02S0257 00150000 BNO @RF00257 02S0257 00151000 * /***********************************************************/ 00152000 * /* */ 00153000 * /* CATEGORY 2: INITIALIZE FOR WARM START. */ 00154000 * /* */ 00155000 * /***********************************************************/ 00156000 * 02S0258 00157000 * DO; 02S0258 00158000 * APCTEULD='40000000'X; /* FAKE A POST FOR DISABLE/UNLOAD 00159000 * SCAN JUST IN CASE SOMETHING 00160000 * HAPPENED THAT WOULD ALLOW A 00161000 * DISABLE OR UNLOAD TO OCCUR 00162000 * NOW. */ 00163000 L @15,@CF03886 02S0259 00164000 ST @15,APCTEULD(,APCTPTR) 02S0259 00165000 * APCTECPW='40000000'X; /* FAKE A POST SO THAT THE 02S0260 00166000 * COMMAND PROCESSOR WILL PROCESS 00167000 * ANY COMMANDS STILL HANGING 00168000 * AROUND. */ 00169000 ST @15,APCTECPW(,APCTPTR) 02S0260 00170000 * APCTEIPL='40000000'X; /* FAKE A POST SO THAT ANY DUMPS 00171000 * AND/OR RE-IPLS RQUESTED WHILE 00172000 * WE WERE GONE CAN HAPPEN NOW. */ 00173000 ST @15,APCTEIPL(,APCTPTR) 02S0261 00174000 * DO; 03S0262 00175000 * 03S0262 00176000 * /*******************************************************/ 00177000 * /* */ 00178000 * /* DYNAMICALLY ALLOCATE THE PORTS TO THE MONITOR. SINCE*/ 00179000 * /* THIS IS A WARM START. */ 00180000 * /* */ 00181000 * /*******************************************************/ 00182000 * 03S0263 00183000 * RESPECIFY 03S0263 00184000 * APUBPTR RESTRICTED; 03S0263 00185000 * RESPECIFY 03S0264 00186000 * APUB BASED(APUBPTR); 03S0264 00187000 * APUBPTR=APCTAPUB; /* SET PTR TO FIRST APUB. */ 00188000 L APUBPTR,APCTAPUB(,APCTPTR) 03S0265 00189000 * CANWARM='0'B; /* RESET ABORT BIT. */ 00190000 NI CANWARM,B'10111111' 03S0266 00191000 * DO /* EXAMINE ALL MASTER APUBS */ 00192000 * WHILE APUBPTR^=0;/* LOOKING FOR IPLED 3838'S. */ 00193000 B @DE00267 03S0267 00194000 @DL00267 DS 0H 03S0268 00195000 * IF APUBIDWN='0'B THEN/* IF DEVICE WAS IPLED */ 00196000 TM APUBIDWN(APUBPTR),B'10000000' 03S0268 00197000 BNZ @RF00268 03S0268 00198000 * DO; 03S0269 00199000 * CALL APCVZDAL; /* DYN ALLOC THE 3838, PORT 0-7. */ 00200000 L @15,APCTZDAL(,APCTPTR) 03S0270 00201000 BALR @14,@15 03S0270 00202000 * IF R15P^=0 THEN /* IF ALLOCATION OR OPEN FAILED. */ 00203000 LTR R15P,R15P 03S0271 00204000 BZ @RF00271 03S0271 00205000 * DO; /* MUST ABORT THE WARM START. */ 00206000 * RFY 03S0273 00207000 * UCBOB BASED(APUBUCB);/* PTR TO THE UCB. */ 00208000 * CALL APCVZDWT(IGT253I,/* OUTPUT MESSAGE. */ 00209000 * 14,APCTSSID,4,20,UCBNAME,3); 03S0274 00210000 MVC @AL00001(28),@AL00274 03S0274 00211000 LA @11,APCTSSID(,APCTPTR) 03S0274 00212000 ST @11,@AL00001+8 03S0274 00213000 L @11,APUBUCB(,APUBPTR) 03S0274 00214000 LA @11,UCBNAME(,@11) 03S0274 00215000 ST @11,@AL00001+20 03S0274 00216000 L @15,APCTZDWT(,APCTPTR) 03S0274 00217000 LA @01,@AL00001 03S0274 00218000 BALR @14,@15 03S0274 00219000 * RFY 03S0275 00220000 * UCBOB BASED(UCBPTR); 03S0275 00221000 * CANWARM='1'B;/* INDICATE WARM START ABORTED. */ 00222000 OI CANWARM,B'01000000' 03S0276 00223000 * END; 03S0277 00224000 * END; 03S0278 00225000 @RF00271 DS 0H 03S0279 00226000 * APUBPTR=APUBMSTR; /* GO TO NEXT MASTER APUB. */ 00227000 @RF00268 L APUBPTR,APUBMSTR(,APUBPTR) 03S0279 00228000 * END; 03S0280 00229000 @DE00267 LTR APUBPTR,APUBPTR 03S0280 00230000 BNZ @DL00267 03S0280 00231000 * IF CANWARM='1'B THEN /* ENVIRONMENT OK FOR WARM START?*/ 00232000 TM CANWARM,B'01000000' 03S0281 00233000 BNO @RF00281 03S0281 00234000 * DO; /* IF ON THEN NOT OK. */ 00235000 * CALL APCVZDWT(IGT254I,/* OUTPUT ABORT MESSAGE. */ 00236000 * 14,APCTSSID,4); 03S0283 00237000 MVC @AL00001(16),@AL00283 03S0283 00238000 LA @11,APCTSSID(,APCTPTR) 03S0283 00239000 ST @11,@AL00001+8 03S0283 00240000 L @15,APCTZDWT(,APCTPTR) 03S0283 00241000 LA @01,@AL00001 03S0283 00242000 BALR @14,@15 03S0283 00243000 * GEN(IGTYSTAE 0); /* CANCEL THE ESTAE. */ 00244000 * 03S0284 00245000 IGTYSTAE 0 00246000 * /***************************************************/ 00247000 * /* */ 00248000 * /* CLOSE THE DCB FOR THE 3838 LOAD MODULES. */ 00249000 * /* */ 00250000 * /***************************************************/ 00251000 * 03S0285 00252000 * GEN SETS(CLOSEIT,DYNLDCB); 03S0285 00253000 * 03S0285 00254000 MVI CLOSEIT,X'80' MOVE IN THE VL INDICATOR. 00255000 CLOSE DYNLDCB,MF=(E,CLOSEIT) CLOSE THE MOTHER. 00256000 * /***************************************************/ 00257000 * /* */ 00258000 * /* CLOSE THE DCB FOR THE MESSAGE LOG. */ 00259000 * /* */ 00260000 * /***************************************************/ 00261000 * 03S0286 00262000 * GEN SETS(CLOSEIT,LOGDCBD); 03S0286 00263000 MVI CLOSEIT,X'80' MOVE IN THE VL INDICATOR. 00264000 CLOSE LOGDCBD,MF=(E,CLOSEIT) CLOSE THE MOTHER. 00265000 * APCTLOGD=0; /* ZERO THE LOG DCB ADDRESS SO NO 00266000 * FURTHER WRITES WILL BE 03S0287 00267000 * ATTEMPTED. */ 00268000 SLR @11,@11 03S0287 00269000 ST @11,APCTLOGD(,APCTPTR) 03S0287 00270000 * RETURN CODE(4); /* SET RETURN FOR IGTD00 */ 00271000 L @13,4(,@13) 03S0288 00272000 L @00,@SIZDATD 03S0288 00273000 LR @01,@06 03S0288 00274000 IGTYFSV R,LV=(0),A=(1) 00275000 LA @15,4 03S0288 00276000 L @14,12(,@13) 03S0288 00277000 LM @00,@12,20(@13) 03S0288 00278000 BR @14 03S0288 00279000 * END; /* END OF WARMSTART ABORT. */ 00280000 * ELSE /* EVERYTHING OK SO GEN WARMINIT.*/ 00281000 * DO; /* GENERATE WARM INIT COMMAND. */ 00282000 @RF00281 DS 0H 03S0291 00283000 * RESPECIFY 03S0291 00284000 * APCQPTR RESTRICTED;/* WILL HAVE PTR TO APCQ. */ 00285000 * RESPECIFY 03S0292 00286000 * APCQ BASED(APCQPTR);/* WILL HAVE PTR TO APCQ. */ 00287000 * CALL APCVZDX1; /* GET AN APCQ TO PUT THE COMMAND 00288000 * IN. */ 00289000 L @15,APCTZDX1(,APCTPTR) 03S0293 00290000 BALR @14,@15 03S0293 00291000 * APCQINT='1'B; /* INDICATE AN INTERNAL COMMAND. */ 00292000 OI APCQINT(APCQPTR),B'10000000' 03S0294 00293000 * APCQIINF=APCQWI; /* INDICATE COMMAND VERB. */ 00294000 MVC APCQIINF(4,APCQPTR),@CF02937 03S0295 00295000 * CALL APCVZDX2; /* QUEUE THE WARM INIT COMMAND 00296000 * FOR IGTD40. */ 00297000 L @15,APCTZDX2(,APCTPTR) 03S0296 00298000 BALR @14,@15 03S0296 00299000 * END; /* END OF WARM INIT. */ 00300000 * RESPECIFY 03S0298 00301000 * APUB; /* NO LONGER VALID BASE. */ 00302000 * RESPECIFY 03S0299 00303000 * APUBPTR UNRESTRICTED; 03S0299 00304000 * END; 03S0300 00305000 * END; 02S0301 00306000 * ELSE 02S0302 00307000 * 02S0302 00308000 * /***********************************************************/ 00309000 * /* */ 00310000 * /* CATEGORY 3: INITAILIZE FOR COLD START. */ 00311000 * /* */ 00312000 * /***********************************************************/ 00313000 * 02S0302 00314000 * DO; 02S0302 00315000 * 02S0302 00316000 B @RC00257 02S0302 00317000 @RF00257 DS 0H 02S0303 00318000 * /*********************************************************/ 00319000 * /* */ 00320000 * /* THESE NEXT FEW LINES REMOVE ALL TRACES OF APUBS THAT */ 00321000 * /* MIGHT STILL BE HANGING AROUND. DON'T TRY TO USE THEM. */ 00322000 * /* IF THEY WERE STILL GOOD, EITHER STAE WOULD HAVE */ 00323000 * /* RECOVERED OR A WARM START WOULD HAVE BEEN ATTEMPTED. */ 00324000 * /* */ 00325000 * /*********************************************************/ 00326000 * 02S0303 00327000 * APCTAPUB=0; 02S0303 00328000 SLR @08,@08 02S0303 00329000 ST @08,APCTAPUB(,APCTPTR) 02S0303 00330000 * APCTUBIS=0; 02S0304 00331000 ST @08,APCTUBIS(,APCTPTR) 02S0304 00332000 * APCTUBIC=0; 02S0305 00333000 ST @08,APCTUBIC(,APCTPTR) 02S0305 00334000 * APCTISUB=0; 02S0306 00335000 ST @08,APCTISUB(,APCTPTR) 02S0306 00336000 * APCTUBAP=0; 02S0307 00337000 ST @08,APCTUBAP(,APCTPTR) 02S0307 00338000 * APCTAPDS=0; /* CLEAR APDS PTRS. */ 00339000 ST @08,APCTAPDS(,APCTPTR) 02S0308 00340000 * APCTDSAP=0; 02S0309 00341000 * 02S0309 00342000 ST @08,APCTDSAP(,APCTPTR) 02S0309 00343000 * /*********************************************************/ 00344000 * /* */ 00345000 * /* INIT ECBS. */ 00346000 * /* */ 00347000 * /*********************************************************/ 00348000 * 02S0310 00349000 * APCTEULD=0; /* CLEAR THE DISABLE UNLOAD SCAN 00350000 * ECB. */ 00351000 ST @08,APCTEULD(,APCTPTR) 02S0310 00352000 * APCTEIPL=0; /* CLEAR THE DUMP/REIPL ECB. */ 00353000 ST @08,APCTEIPL(,APCTPTR) 02S0311 00354000 * APCTECPW=0; /* CLEAR THE COMMAND PROCESSOR 00355000 * ECB. */ 00356000 ST @08,APCTECPW(,APCTPTR) 02S0312 00357000 * APCTAPST='0'B; /* ALLOCATION DOESNT NEED TO POST 00358000 * US YET. */ 00359000 L @08,APCTAPST-1(,APCTPTR) 02S0313 00360000 @GL00001 LR @15,@08 02S0313 00361000 N @15,@CF04021 02S0313 00362000 CS @08,@15,APCTAPST-1(APCTPTR) 02S0313 00363000 BNE @GL00001 02S0313 00364000 * APCTAPIO=0; /* CLEAR THE APIO PTR. SAME 02S0314 00365000 * THEORY AS WITH APUBS. */ 00366000 SLR @08,@08 02S0314 00367000 ST @08,APCTAPIO(,APCTPTR) 02S0314 00368000 * APCTIOAP=0; /* ZERO THE APIO BACK PTR. */ 00369000 ST @08,APCTIOAP(,APCTPTR) 02S0315 00370000 * RFY 02S0316 00371000 * R1P RSTD; /* PARM REG FOR IGTUJA. */ 00372000 * R1P=2; /* FUNCTION CODE FOR SET PURBE 00373000 * RTN. */ 00374000 LA R1P,2 02S0317 00375000 * CALL APCVZUJA; /* GO SET FUNCTION CODE. */ 00376000 L @15,APCTZUJA(,APCTPTR) 02S0318 00377000 BALR @14,@15 02S0318 00378000 * RFY 02S0319 00379000 * R1P UNRSTD; /* RELEASE THE REG. */ 00380000 * DO; /* CREATE THE APVU. */ 00381000 * RFY 03S0321 00382000 * ASVT BASED(CVTASVT);/* BASE FOR THE ASVT. */ 00383000 * RFY 03S0322 00384000 * (R0P, 03S0322 00385000 * R3P) RSTD; /* REGS FOR THE GETMAIN. */ 00386000 * R3P=APVUHDLN+4*ASVTMAXU;/* SIZE OF THE APVU. */ 00387000 L @08,CVTPTR 03S0323 00388000 L @01,CVTASVT(,@08) 03S0323 00389000 L R3P,ASVTMAXU(,@01) 03S0323 00390000 SLA R3P,2 03S0323 00391000 LA R3P,3040(,R3P) 03S0323 00392000 * R0P=(APVUSP*16777216)|R3P;/* LENGTH AND SUBPOOL. */ 00393000 LR R0P,R3P 03S0324 00394000 O R0P,@CF04011 03S0324 00395000 * RFY 03S0325 00396000 * R1P RSTD; /* ADDRESS COMES BACK HERE. */ 00397000 * R3P=R0P; /* SAVE THE STUFF. */ 00398000 LR R3P,R0P 03S0326 00399000 * GEN SETS(R0P,R1P)(GETMAIN R,LV=(0));/* GET THE STORAGE.*/ 00400000 GETMAIN R,LV=(0) 00401000 * APCTAPVU=R1P; /* SET PTR TO THE APVU */ 00402000 ST R1P,APCTAPVU(,APCTPTR) 03S0328 00403000 * APVUSPLN=R3P; /* SUBPOOL AND LENGTH. */ 00404000 L @08,APCTAPVU(,APCTPTR) 03S0329 00405000 ST R3P,APVUSPLN(,@08) 03S0329 00406000 * APVUID=APVUIDC; /* IN CORE IDENTIFIER. */ 00407000 MVC APVUID(4,@08),@CC03793 03S0330 00408000 * APVUANUM=ASVTMAXU; /* NUMBER OF ADDRESS SPACES. */ 00409000 L @15,CVTPTR 03S0331 00410000 L @15,CVTASVT(,@15) 03S0331 00411000 L @15,ASVTMAXU(,@15) 03S0331 00412000 STH @15,APVUANUM(,@08) 03S0331 00413000 * RFY 03S0332 00414000 * (R2P, 03S0332 00415000 * R14P, 03S0332 00416000 * R15P) RSTD; /* NEEDED FOR THE CLEARING OF 00417000 * APVU. */ 00418000 * R2P=ADDR(APVUAUSE); /* START OF CLEARED AREA. */ 00419000 LA R2P,APVUAUSE(,@08) 03S0333 00420000 * R15P=0; /* WILL BE CLEARED BY PAD CHAR. */ 00421000 SLR R15P,R15P 03S0334 00422000 * R3P=APVULEN-APVUHDLN; /* LENGTH TO BE CLEARED. */ 00423000 L R3P,APVULEN-1(,@08) 03S0335 00424000 LA R3P,0(,R3P) 03S0335 00425000 SL R3P,@CF03787 03S0335 00426000 * GEN(MVCL R2P,R14P); /* CLEAR THE ASID PART. */ 00427000 MVCL R2P,R14P 00428000 * RFY 03S0337 00429000 * ASCB BASED(APCTASCB);/* BASE ADDRESS FOR THE ASCB. */ 00430000 * END; /* APVU IS BUILT. */ 00431000 * END; 02S0339 00432000 * APVUMON(APCTASID)='1'B; /* INDICATE THE MONITORS ADDR 00433000 * SPACE */ 00434000 @RC00257 LH @04,APCTASID(,APCTPTR) 02S0340 00435000 SLA @04,2 02S0340 00436000 ST @04,@TF00001 02S0340 00437000 L @04,APCTAPVU(,APCTPTR) 02S0340 00438000 AL @04,@TF00001 02S0340 00439000 LA @10,APVUMON-4(,@04) 02S0340 00440000 LR @05,@10 02S0340 00441000 LA @08,3 02S0340 00442000 NR @05,@08 02S0340 00443000 LCR @05,@05 02S0340 00444000 ALR @10,@05 02S0340 00445000 L @08,0(,@10) 02S0340 00446000 @GL00002 LR @11,@08 02S0340 00447000 O @11,@CB04024+3(@05) 02S0340 00448000 CS @08,@11,0(@10) 02S0340 00449000 BNE @GL00002 02S0340 00450000 * IF APCTWARM='0'B THEN /* TEST FOR COLD START. */ 00451000 TM APCTWARM(APCTPTR),B'00000100' 01S0341 00452000 BNZ @RF00341 01S0341 00453000 * DO; 01S0342 00454000 * 02S0343 00455000 */********************************************************************/ 00456000 */* FINISH INITIALIZATION OF SUBSYSTEM NOW. */ 00457000 */********************************************************************/ 00458000 * 02S0343 00459000 * APCTSTRT='1'B; /* SIGNAL STARTUP TO ALLOCATION */ 00460000 L @08,APCTSTRT(,APCTPTR) 02S0343 00461000 @GL00003 LR @11,@08 02S0343 00462000 O @11,@CF04028 02S0343 00463000 CS @08,@11,APCTSTRT(APCTPTR) 02S0343 00464000 BNE @GL00003 02S0343 00465000 * DYNENQ(1:4)='80000000'X;/* SET VL AND CLEAR AREA. */ 00466000 MVC DYNENQ(4),@CB03899 02S0344 00467000 * GEN SETS(DYNENQ) REFS(ALLOCATE,APCTENQM); 02S0345 00468000 ENQ (APCTENQM-APCT(,APCTPTR),ALLOCATE,E,8,SYSTEM),MF=(E,DYNENQ) 00469000 MODESET KEY=ZERO KEY = 0 TO MODIFY SSVT. 00470000 * GEN REFS(APOTNAME) 02S0346 00471000 * ( LOAD EPLOC=APOTNAME LOAD THE APOT. ); 00472000 LOAD EPLOC=APOTNAME LOAD THE APOT. 00473000 * RESPECIFY 02S0347 00474000 * (APOTPTR, 02S0347 00475000 * R11P, 02S0347 00476000 * R8P) RESTRICTED; 02S0347 00477000 * APOTPTR=R0P; /* ADDRESS OF LOADED APOT. */ 00478000 LR APOTPTR,R0P 02S0348 00479000 * RESPECIFY 02S0349 00480000 * APOT BASED(APOTPTR); /* ADDRESS OF THE OPTION TABLE */ 00481000 * R11P=APOTVTAD; /* ADDRESS OF ENTRIES TO ACTIVATE*/ 00482000 L R11P,APOTVTAD(,APOTPTR) 02S0350 00483000 * RESPECIFY 02S0351 00484000 * (APOTVT) BASED(R11P); /* BASE REG FOR THE ACTIVATE 00485000 * ENTRIES */ 00486000 * SSVTPTR=APCTSSVT; /* SET POINTER TO THE SSVT. */ 00487000 L @10,APCTSSVT(,APCTPTR) 02S0352 00488000 ST @10,SSVTPTR 02S0352 00489000 */*THIS NEXT DO LOOP SCANS THE ACTIVATION ENTRIES IN THE APOT. FOR */ 00490000 */*EVERY ENTRY THAT HAS A NONZERO FUNCTION CODE, THE CORRESPONDING */ 00491000 */*ENTRY IN THE SSVT MUST BE ACTIVATED IF THE MONITOR IS TO PERFORM */ 00492000 */*ACTIVATION. UNTIL ACTIVATION OCCURS, THE SUBSYSTEM EXIT WILL NOT */ 00493000 */*OCCUR. ACTIVATION OF A GIVEN EXIT IS CAUSED BY SETTING THE INDEX */ 00494000 */*BYTE TO A NONZERO VALUE WHICH IS IN TURN USED AS AN INDEX TO THE */ 00495000 */*ADDRESS IN THE LIST OF ADDRESSES WHICH FOLLOW THE INDEX BYTES. */ 00496000 */*IN OUR SCHEME, THE NUMBER OF THE ENTRY IN THE APOT ACTIVATION */ 00497000 */*IS THE INDEX NUMBER TO BE PLACED IN THE PROPER INDEX BYTE. THE */ 00498000 */*CODE IN THE APOT ENTRY IS THE BYTE NUMBER IN THE BYTE INDEX FIELD.*/ 00499000 * 02S0353 00500000 * DO I=1 TO APOTVTCT BY 1;/* PROCESS THE ACTIVATION 02S0353 00501000 * ENTRIES. */ 00502000 LA I,1 02S0353 00503000 B @DE00353 02S0353 00504000 @DL00353 DS 0H 02S0354 00505000 * IF APOTVTMN='1'B /* IF THE MONITOR IS RESPONSIBLE 00506000 * FOR ACTIVATION */ 00507000 * &APOTVTCD^=0 THEN /* AND IF THE ENTRY IS NOT A 00508000 * DUMMY */ 00509000 TM APOTVTMN(R11P),B'01000000' 02S0354 00510000 BNO @RF00354 02S0354 00511000 CLI APOTVTCD(R11P),0 02S0354 00512000 BE @RF00354 02S0354 00513000 * SSVTFCOD(APOTVTCD)=I;/* SET THE INDEX BYTE TO THE 00514000 * ADDRESS. */ 00515000 SLR @05,@05 02S0355 00516000 IC @05,APOTVTCD(,R11P) 02S0355 00517000 L @04,SSVTPTR 02S0355 00518000 STC I,SSVTFCOD-1(@05,@04) 02S0355 00519000 * R11P=R11P+APOTVTLN; /* BUMP TO NEXT ENTRY. */ 00520000 @RF00354 LA R11P,4(,R11P) 02S0356 00521000 * END; 02S0357 00522000 LA I,1(,I) 02S0357 00523000 @DE00353 C I,APOTVTCT(,APOTPTR) 02S0357 00524000 BNH @DL00353 02S0357 00525000 * RESPECIFY 02S0358 00526000 * (R11P, 02S0358 00527000 * R8P) UNRESTRICTED; /* RELEASE UNNEEDED REGS. */ 00528000 * GEN REFS(APOTNAME) 02S0359 00529000 * ( DELETE EPLOC=APOTNAME DELETE THE APOT.); 00530000 DELETE EPLOC=APOTNAME DELETE THE APOT. 00531000 * GEN(MODESET KEY=NZERO RETURN TO OWN KEY.); 00532000 MODESET KEY=NZERO RETURN TO OWN KEY. 00533000 * RESPECIFY 02S0361 00534000 * APOTPTR UNRESTRICTED; 02S0361 00535000 * 02S0362 00536000 */********************************************************************/ 00537000 */* BUILD THE APUBS */ 00538000 */********************************************************************/ 00539000 * 02S0362 00540000 * DO LUTPTR=CVTILK2 /* ADDRESS OFFIRST UCB LUT ENTRY.*/ 00541000 * BY LUTLN /* LENGTH OF A LUT ENTRY. */ 00542000 * WHILE UCBPTR^='FFFF'X;/* END OF LUT IS 'FFFF'X */ 00543000 L @08,CVTPTR 02S0362 00544000 L LUTPTR,CVTILK2(,@08) 02S0362 00545000 B @DE00362 02S0362 00546000 @DL00362 DS 0H 02S0363 00547000 * IF UCB3UREC='1'B /* IF IT IS A UNIT RECORD DEVICE */ 00548000 * &UCBUNTYP=UTYP3838 THEN/* AND IT IS A 3838 DEVICE */ 00549000 LH @10,UCBPTR(,LUTPTR) 02S0363 00550000 N @10,@CF04017 02S0363 00551000 TM UCB3UREC(@10),B'00001000' 02S0363 00552000 BNO @RF00363 02S0363 00553000 CLI UCBUNTYP(@10),X'4C' 02S0363 00554000 BNE @RF00363 02S0363 00555000 * DO; /* CONSTRUCT AN APUB FOR IT. */ 00556000 * RESPECIFY 02S0365 00557000 * (R0P, 02S0365 00558000 * APUBPTR) RESTRICTED;/* R0 USED IN GETMAIN, 02S0365 00559000 * APUBPTR USED FOR CURRENT APUB.*/ 00560000 * RESPECIFY 02S0366 00561000 * (R1P) RESTRICTED;/* ADDRESS OF APUB AREA RETURNED 00562000 * BY GETMAIN. */ 00563000 * R0P=DEFSP; /* IDENTIFIES SUBPOOL AND LENGTH.*/ 00564000 L R0P,DEFSP 02S0367 00565000 * GEN /* GET MEMORY FOR THE APUB. */ 00566000 * ( GETMAIN R,LV=(0) 0 HAS LENGTH AND SUBPOOL.); 00567000 GETMAIN R,LV=(0) 0 HAS LENGTH AND SUBPOOL. 00568000 * RESPECIFY 02S0369 00569000 * R0P UNRESTRICTED;/* RELEASE UNNEEDED REGISTER. */ 00570000 * APUBPTR=R1P; /* ADDRESS OF THE APUB. */ 00571000 LR APUBPTR,R1P 02S0370 00572000 * RESPECIFY 02S0371 00573000 * R1P UNRESTRICTED;/* RELEASE UNNEDDED REGISTER. */ 00574000 * RESPECIFY 02S0372 00575000 * APUB BASED(APUBPTR);/* SET BASE ADDRESS FOR APUB.*/ 00576000 * 02S0372 00577000 * /***************************************************/ 00578000 * /* */ 00579000 * /* CONSTRUCT THE COMMON PART OF THE APUB. */ 00580000 * /* */ 00581000 * /***************************************************/ 00582000 * 02S0373 00583000 * APUB=''X; /* ZERO THE WHOLE THING. */ 00584000 XC APUB(120,APUBPTR),APUB(APUBPTR) 02S0373 00585000 * APUBID='APUB'; /* IDENTIFY THE CONTROL BLOCK. */ 00586000 MVC APUBID(4,APUBPTR),@CC00870 02S0374 00587000 * APUBAPCT=APCTPTR; /* SET POINTER TO THE APCT. */ 00588000 ST APCTPTR,APUBAPCT(,APUBPTR) 02S0375 00589000 * APUBUCB=UCBPTR; /* SET POINTER TO THE UCB. */ 00590000 LH @08,UCBPTR(,LUTPTR) 02S0376 00591000 N @08,@CF04017 02S0376 00592000 ST @08,APUBUCB(,APUBPTR) 02S0376 00593000 * APUBDSBL='1'B; /* SET THE DISABLE INDICATOR */ 00594000 * APUBUNLD='1'B; /* SET THE UNLOADED INDICATOR. */ 00595000 L @08,APUBDSBL-1(,APUBPTR) 02S0378 00596000 @GL00006 LR @05,@08 02S0378 00597000 O @05,@CF04031 02S0378 00598000 CS @08,@05,APUBDSBL-1(APUBPTR) 02S0378 00599000 BNE @GL00006 02S0378 00600000 * APUBIDWN='1'B; /* INDICATE THE 3838 IS NOT 02S0379 00601000 * IPLED. */ 00602000 * APUBIDAB='1'B; /* INDICATE DEVICE IS DISABLED. */ 00603000 L @08,APUBIDWN(,APUBPTR) 02S0380 00604000 @GL00007 LR @05,@08 02S0380 00605000 O @05,@CF04034 02S0380 00606000 CS @08,@05,APUBIDWN(APUBPTR) 02S0380 00607000 BNE @GL00007 02S0380 00608000 * APUBSIZE=APUBLN; /* SIZE OF THE APUB. */ 00609000 MVC APUBSIZE(2,APUBPTR),@CH00867 02S0381 00610000 * IF(UCBUA&'0F'X)='00'X THEN/* IF THE UNIT ADDRESS IS 00611000 * ZERO, THEN WE HAVE A CONTROL 00612000 * CHANNEL. */ 00613000 LH @08,UCBPTR(,LUTPTR) 02S0382 00614000 N @08,@CF04017 02S0382 00615000 LA @05,15 02S0382 00616000 SLR @04,@04 02S0382 00617000 IC @04,UCBUA(,@08) 02S0382 00618000 NR @05,@04 02S0382 00619000 LTR @05,@05 02S0382 00620000 BNZ @RF00382 02S0382 00621000 * DO; /* PROCESS A CONTROL CHANNEL. */ 00622000 * IF APCTAPUB=0 THEN/* TEST FOR THIS BEING THE 00623000 * FIRST MASTER. */ 00624000 L @08,APCTAPUB(,APCTPTR) 02S0384 00625000 LTR @08,@08 02S0384 00626000 BNZ @RF00384 02S0384 00627000 * DO; /* PREPARE THE APCT. */ 00628000 * APCTAPUB=APUBPTR;/* SET THE POINTER TO THE 00629000 * FIRST. */ 00630000 ST APUBPTR,APCTAPUB(,APCTPTR) 02S0386 00631000 * APCTUBAP=APUBPTR;/* SET THE POINTER TO THE 00632000 * LAST. */ 00633000 ST APUBPTR,APCTUBAP(,APCTPTR) 02S0387 00634000 * END; 02S0388 00635000 * ELSE /* ADD IT TO THE END O F THE 00636000 * CHAIN. */ 00637000 * DO; 02S0389 00638000 B @RC00384 02S0389 00639000 @RF00384 DS 0H 02S0390 00640000 * APCTUBAP->APUBMSTR/* FIND THE LAST MASTER 00641000 * ON THE CHAIN. */ 00642000 * =APUBPTR;/* SET FORWARD IN OLD LAST 00643000 * MASTER. */ 00644000 L @08,APCTUBAP(,APCTPTR) 02S0390 00645000 ST APUBPTR,APUBMSTR(,@08) 02S0390 00646000 * APUBMSTP=APCTUBAP;/* SET THE BACK POINTER 00647000 * IN THE NEW APUB. */ 00648000 ST @08,APUBMSTP(,APUBPTR) 02S0391 00649000 * APCTUBAP=APUBPTR;/* SET APCT END OF CHAIN 00650000 * POINTER. */ 00651000 ST APUBPTR,APCTUBAP(,APCTPTR) 02S0392 00652000 * END; 02S0393 00653000 * APUBSBCH='1'B;/* INDICATE A CONTROL SUBCHANNEL.*/ 00654000 @RC00384 L @08,APUBSBCH(,APUBPTR) 02S0394 00655000 @GL00008 LR @05,@08 02S0394 00656000 O @05,@CF04037 02S0394 00657000 CS @08,@05,APUBSBCH(APUBPTR) 02S0394 00658000 BNE @GL00008 02S0394 00659000 * APUBICNL='1'B;/* INDICATE A CONTROL SUBCHANNEL.*/ 00660000 L @08,APUBICNL(,APUBPTR) 02S0395 00661000 @GL00009 LR @05,@08 02S0395 00662000 O @05,@CF04040 02S0395 00663000 CS @08,@05,APUBICNL(APUBPTR) 02S0395 00664000 BNE @GL00009 02S0395 00665000 * END; /* END OF CONTROL CHANNEL 02S0396 00666000 * PROCESS. */ 00667000 * ELSE /* IT IS A USER APUB AND MUST BE 00668000 * CHAINED ON THE PROPER MASTER. */ 00669000 * DO; 02S0397 00670000 B @RC00382 02S0397 00671000 @RF00382 DS 0H 02S0398 00672000 * MSTRAPTR=APCTAPUB;/* GET ADDRESS OF FIRST MSTR 00673000 * APUB. */ 00674000 L MSTRAPTR,APCTAPUB(,APCTPTR) 02S0398 00675000 * DO /* LOOK FOR THE MASTER APUB */ 00676000 * WHILE MSTRAPTR^=0/* STOP IF IT DOES NOT 00677000 * EXIST. */ 00678000 * &MSTRAPTR->APUBUCB->UCBNAME/* OR WHEN */ 00679000 * ^=(UCBNAME&'FFFFF0'X);/* THE MASTER'S 00680000 * UNIT NUMBER IS THE SAME AS 00681000 * THIS ONE'S UNIT NUMBER IF THE 00682000 * UNIT POSITION IS MASKED OUT. */ 00683000 B @DE00399 02S0399 00684000 @DL00399 DS 0H 02S0400 00685000 * MSTRAPTR=MSTRAPTR->APUBMSTR;/* BUMP TO THE 00686000 * NEXT MASTER. */ 00687000 L MSTRAPTR,APUBMSTR(,MSTRAPTR) 02S0400 00688000 * END; 02S0401 00689000 @DE00399 LTR MSTRAPTR,MSTRAPTR 02S0401 00690000 BZ @DC00399 02S0401 00691000 L @01,APUBUCB(,MSTRAPTR) 02S0401 00692000 LH @05,UCBPTR(,LUTPTR) 02S0401 00693000 N @05,@CF04017 02S0401 00694000 MVC @TS00001(3),UCBNAME(@05) 02S0401 00695000 NC @TS00001(3),@CB03910 02S0401 00696000 CLC UCBNAME(3,@01),@TS00001 02S0401 00697000 BNE @DL00399 02S0401 00698000 @DC00399 DS 0H 02S0402 00699000 * IF MSTRAPTR=0 THEN/* IF END OF CHAIN REACHED 00700000 * WITHOUT FINDING THE CORRECT 00701000 * MASTER, THEN SOMEBODY HAS 00702000 * SYSGENED A DUMMY UCB TO LOOK 00703000 * LIKE ONE OF 3838 (MOST 02S0402 00704000 * LIKELY). */ 00705000 LTR MSTRAPTR,MSTRAPTR 02S0402 00706000 BNZ @RF00402 02S0402 00707000 * DO; 02S0403 00708000 * UNIT(1:3)=UCBNAME;/* GET UNIT NAME FROM THE 00709000 * UCB. */ 00710000 * 02S0404 00711000 LH @08,UCBPTR(,LUTPTR) 02S0404 00712000 N @08,@CF04017 02S0404 00713000 MVC UNIT(3),UCBNAME(@08) 02S0404 00714000 * /*******************************************/ 00715000 * /* */ 00716000 * /* OUTPUT ERR MSG WITH THE SUBSYS ID AND */ 00717000 * /* AND THE UNIT IN ERROR. */ 00718000 * /* */ 00719000 * /*******************************************/ 00720000 * 02S0405 00721000 * CALL APCVZDWT(IGT203I,14,APCTSSID,4,20,UNIT,3 00722000 * ); 02S0405 00723000 MVC @AL00001(28),@AL00405 02S0405 00724000 LA @08,APCTSSID(,APCTPTR) 02S0405 00725000 ST @08,@AL00001+8 02S0405 00726000 LA @08,UNIT 02S0405 00727000 ST @08,@AL00001+20 02S0405 00728000 L @15,APCTZDWT(,APCTPTR) 02S0405 00729000 LA @01,@AL00001 02S0405 00730000 BALR @14,@15 02S0405 00731000 * RESPECIFY 02S0406 00732000 * R0P RESTRICTED; 02S0406 00733000 * R0P=DEFSP;/* LENGTH AND SUBPOOL OF THE 00734000 * APUB. */ 00735000 L R0P,DEFSP 02S0407 00736000 * GEN; 02S0408 00737000 * /* FREE THE APUB. */ 00738000 FREEMAIN R,LV=(0),A=(APUBPTR) 00739000 * RESPECIFY 02S0409 00740000 * R0P UNRESTRICTED; 02S0409 00741000 * END; 02S0410 00742000 * ELSE /* ADD THE APUB TO THE MASTER'S 00743000 * CHAIN AND COMPLETE 02S0411 00744000 * CONSTRUCTION. */ 00745000 * DO; /* FIRST ADD IT TO THE CHAIN. */ 00746000 B @RC00402 02S0411 00747000 @RF00402 DS 0H 02S0412 00748000 * APUBMSTR=MSTRAPTR;/* SET THE PTR TO THE 00749000 * MSTR APUB. */ 00750000 ST MSTRAPTR,APUBMSTR(,APUBPTR) 02S0412 00751000 * IF MSTRAPTR->APUBAPUB=0 THEN/* SEE IF THIS 00752000 * IS THE FIRST ONE TO BE ADDED. */ 00753000 L @05,APUBAPUB(,MSTRAPTR) 02S0413 00754000 LTR @05,@05 02S0413 00755000 BNZ @RF00413 02S0413 00756000 * DO; /* MUST POINT BOTH MASTER PTS TO 00757000 * IT */ 00758000 * MSTRAPTR->APUBAPUB=APUBPTR;/* SET PTR 00759000 * TO TOP. */ 00760000 ST APUBPTR,APUBAPUB(,MSTRAPTR) 02S0415 00761000 * MSTRAPTR->APUBUBAP=APUBPTR;/* SET PTR 00762000 * TO LAST. */ 00763000 ST APUBPTR,APUBUBAP(,MSTRAPTR) 02S0416 00764000 * END; 02S0417 00765000 * ELSE /* MUST ADD IT AT THE END. */ 00766000 * DO; /* FIND THE CURRENT LAST APUB ON 00767000 * THIS MASTER AND ADD THIS ONE 00768000 * TO IT. */ 00769000 B @RC00413 02S0418 00770000 @RF00413 DS 0H 02S0419 00771000 * MSTRAPTR->APUBUBAP->APUBAPUB/* THIS IS 00772000 * THE LAST */ 00773000 * =APUBPTR;/* SO POINT IT AT THE NEW 00774000 * ONE. */ 00775000 L @05,APUBUBAP(,MSTRAPTR) 02S0419 00776000 ST APUBPTR,APUBAPUB(,@05) 02S0419 00777000 * APUBUBAP=MSTRAPTR->APUBUBAP;/* MAKE NEW 00778000 * ONE POINT BACK AT THE OLD ONE.*/ 00779000 ST @05,APUBUBAP(,APUBPTR) 02S0420 00780000 * MSTRAPTR->APUBUBAP=APUBPTR;/* MAKE THE 00781000 * MASTER POINT AT THE NEW LAST 00782000 * ONE. */ 00783000 ST APUBPTR,APUBUBAP(,MSTRAPTR) 02S0421 00784000 * RESPECIFY 02S0422 00785000 * APUBPTR UNRESTRICTED;/* RELEASE REG. */ 00786000 * END; 02S0423 00787000 * END; 02S0424 00788000 @RC00413 DS 0H 02S0425 00789000 * END; 02S0425 00790000 @RC00402 DS 0H 02S0426 00791000 * END; 02S0426 00792000 @RC00382 DS 0H 02S0427 00793000 * END; 02S0427 00794000 @RF00363 AL LUTPTR,@CF00057 02S0427 00795000 @DE00362 CLC UCBPTR(2,LUTPTR),@CH03905 02S0427 00796000 BNE @DL00362 02S0427 00797000 * END; 01S0428 00798000 * IGTD20PM(2)=ADDR(APCTZD20); /* ADDRESS OF ROUTINE TO BE 01S0429 00799000 * ATTACHED. */ 00800000 @RF00341 LA @08,APCTZD20(,APCTPTR) 01S0429 00801000 ST @08,IGTD20PM+4 01S0429 00802000 * IGTD20PM(1)=APCTPTR; /* ADDRESS OF THE APCT FOR IGTDAA*/ 00803000 ST APCTPTR,IGTD20PM 01S0430 00804000 * RESPECIFY 01S0431 00805000 * R1P RESTRICTED; /* SET UP R1 FOR PASSING THE 00806000 * PARMS. */ 00807000 * R1P=ADDR(IGTD20PM); /* ADDRESS OF THE PARM FIELD. */ 00808000 LA R1P,IGTD20PM 01S0432 00809000 * R3P=ADDR(APCTECIT); /* ADDRESS OF THE ECB TO BE 01S0433 00810000 * POSTED WHEN THE COMMAND 01S0433 00811000 * INTERFACE TASK TERMINATES */ 00812000 LA R3P,APCTECIT(,APCTPTR) 01S0433 00813000 * R2P=CVTLINK; /* SET ADDRESS OF KNOWN RESIDENCE*/ 00814000 L @08,CVTPTR 01S0434 00815000 L R2P,CVTLINK(,@08) 01S0434 00816000 * GEN REFS(R1P,R2P,R3P,ATTSYSPM,ATTSYSP) SETS(R1P,APCTECIT, 00817000 * ATTSYSPL); 01S0435 00818000 MVC ATTSYSPL,ATTSYSPM MOVE THE ATTACH LIST TO DYNAMIC 00819000 ATTACH ECB=(R3P),DCB=(R2P),SF=(E,ATTSYSP) ATTACH IGTD20 00820000 * IGTD20T=R1P; /* SAVE THE TCB ADDRESS. */ 00821000 ST R1P,IGTD20T 01S0436 00822000 * RESPECIFY 01S0437 00823000 * R1P UNRESTRICTED; 01S0437 00824000 * IF APCTWARM='0'B THEN 01S0438 00825000 TM APCTWARM(APCTPTR),B'00000100' 01S0438 00826000 BNZ @RF00438 01S0438 00827000 * DO; 01S0439 00828000 * 02S0440 00829000 */********************************************************************/ 00830000 */* PROCESS THE INITIAL COMMAND SET. */ 00831000 */********************************************************************/ 00832000 */*FIRST BUILD THE DCB AND THE EXIT LIST. */ 00833000 */*THE WAY THIS ROUTINE WORKS IS TO READ THE JFCB AND FILL IN THE */ 00834000 */*MEMBER NAME OF THE INITIAL COMMAND SET. THEN IT CAN USE QSAM TO */ 00835000 */*HANDLE THE DEBLOCKING. THIS IS PREFERABLE TO USING BPAM AND */ 00836000 */*DOING THE DEBLOCKING INTERNALLY. */ 00837000 * 02S0440 00838000 * LISTEXA='11'X; /* INDICATE ABEND EXIT */ 00839000 MVI LISTEXA,X'11' 02S0440 00840000 * LISTEXB=ADDR(DCBABRT); /* DCB ABEND ROUTINE ADDRESS. */ 00841000 LA @08,DCBABRT 02S0441 00842000 STCM @08,7,LISTEXB 02S0441 00843000 * LISTEX1='87'X; /* INDICATE JFCB ENTRY IN EXLST. */ 00844000 MVI LISTEX1,X'87' 02S0442 00845000 * LISTEX2=ADDR(AREAJFCB); /* FILL IN THE JFCB READ IN AREA.*/ 00846000 LA @08,AREAJFCB 02S0443 00847000 STCM @08,7,LISTEX2 02S0443 00848000 * DCBPTR=ADDR(OPENDCB); /* SET POINTER OT THE DCB AREA. */ 00849000 LA DCBPTR,OPENDCB 02S0444 00850000 * GEN REFS(COMMDCB,COMMDCBL) SETS(OPENDCB); 02S0445 00851000 MVC OPENDCB(L'COMMDCBL),COMMDCB MOVE THE DCB TO DYN AREA. 00852000 * DCBABEND='0'B; /* INIT ABEND FLAG. */ 00853000 NI DCBABEND,B'01111111' 02S0446 00854000 * DCBEXLSA=ADDR(LISTEX); /* SET THE ADDRESS OF EXLST IN 00855000 * DCB. */ 00856000 LA @08,LISTEX 02S0447 00857000 STCM @08,7,DCBEXLSA+28(DCBPTR) 02S0447 00858000 * OPENIT(1:4)=GOODOPEN(1:4);/* MOVE IN L FORM OF MACRO. */ 00859000 MVC OPENIT(4),GOODOPEN 02S0448 00860000 * GEN SETS(OPENIT,OPENDCB,AREAJFCB) REFS(LISTEX); 02S0449 00861000 RDJFCB (OPENDCB,(INPUT,DISP)),MF=(E,OPENIT) READ THE JFCB. 00862000 * JFCBPTR=ADDR(AREAJFCB); /* SET POINTER TO JFCB. */ 00863000 LA JFCBPTR,AREAJFCB 02S0450 00864000 * JFCBELNM=MEMBID; /* PUT THE MEMBERNAME IN THE 00865000 * JFCB. */ 00866000 MVC JFCBELNM(8,JFCBPTR),MEMBID 02S0451 00867000 * JFCNWRIT='1'B; /* DON'T WRITE IT OUT. */ 00868000 OI JFCNWRIT(JFCBPTR),B'00001000' 02S0452 00869000 * JFCPDS='1'B; /* IT'S A MEMBER OF A PDS. */ 00870000 OI JFCPDS(JFCBPTR),B'00000001' 02S0453 00871000 * GEN SETS(OPENDCB) REFS(AREAJFCB); 02S0454 00872000 ST APDATA,SAVEDATA 00873000 OPEN TYPE=J,MF=(E,OPENIT) OPEN THE DATASET USING THE JFCB. 00874000 * RESPECIFY 02S0455 00875000 * APCQPTR RESTRICTED; 02S0455 00876000 * IF DCBABEND='0'B& /* SEE IF ABEND OCCURRED. */ 00877000 * DCBOFOPN='1'B THEN /* SEE IF THE OPEN WAS SUCESSFUL */ 00878000 TM DCBABEND,B'10000000' 02S0456 00879000 BNZ @RF00456 02S0456 00880000 TM DCBOFOPN+40(DCBPTR),B'00010000' 02S0456 00881000 BNO @RF00456 02S0456 00882000 *IGTD10LP: /* LABEL AND GO TO NECESSARY 00883000 * BECAUSE EODAD EXIT FROM GET 00884000 * CONTROLS LOOP. */ 00885000 * DO; 02S0457 00886000 IGTD10LP DS 0H 02S0458 00887000 * RESPECIFY 02S0458 00888000 * R1P RESTRICTED; 02S0458 00889000 * GEN SETS(OPENDCB) FLOWS(BLDINIT) 02S0459 00890000 *( GET OPENDCB READ THE NEXT INITIAL COMMAND.); 02S0459 00891000 GET OPENDCB READ THE NEXT INITIAL COMMAND. 00892000 * CARDPTR=R1P; /* SET POINTER OT THE COMMAND. */ 00893000 LR CARDPTR,R1P 02S0460 00894000 * RESPECIFY 02S0461 00895000 * R1P UNRESTRICTED; 02S0461 00896000 * CALL APCVZDX1; /* GET AN APCQ TO PUT THE COMMAND 00897000 * IN */ 00898000 L @15,APCTZDX1(,APCTPTR) 02S0462 00899000 BALR @14,@15 02S0462 00900000 * RESPECIFY 02S0463 00901000 * APCQ BASED(APCQPTR); 02S0463 00902000 * APCQTXLN=80; /* LENGTH OF THE INPUT. */ 00903000 MVC APCQTXLN(2,APCQPTR),@CH00121 02S0464 00904000 * APCQCMND(1:80)=CARD;/* MOVE THE COMMAND INTO THE 00905000 * APCQ. */ 00906000 MVC APCQCMND(80,APCQPTR),CARD(CARDPTR) 02S0465 00907000 * APCQSCID=UCMID; /* PRETEND THAT THE MASTER 02S0466 00908000 * CONSOLE ISSUED THE COMMAND. */ 00909000 L @08,CVTPTR 02S0466 00910000 L @08,UCMBASPT(,@08) 02S0466 00911000 AL @08,@CF04046 02S0466 00912000 L @08,UCMMCSPT(,@08) 02S0466 00913000 L @08,UCMDVEPT(,@08) 02S0466 00914000 IC @11,UCMID(,@08) 02S0466 00915000 STC @11,APCQSCID(,APCQPTR) 02S0466 00916000 * CALL APCVZDX2; /* QUEUE THE APCQ FOR IGTD40. */ 00917000 L @15,APCTZDX2(,APCTPTR) 02S0467 00918000 BALR @14,@15 02S0467 00919000 * GOTO IGTD10LP; /* FORGIVE ME, DR. MILLS. */ 00920000 B IGTD10LP 02S0468 00921000 *BLDINIT: 02S0469 00922000 * ; /* CONTROL GIVEN HERE WHEN EOD 00923000 * REACHED. */ 00924000 BLDINIT DS 0H 02S0470 00925000 * GEN SETS(OPENDCB); 02S0470 00926000 * /*CLOSE THE DCB CAUSE WE'RE ALL DONE. */ 00927000 MVI CLOSEIT,X'80' /* MARK THE END OF THE LIST. */ 00928000 CLOSE (OPENDCB,FREE),MF=(E,CLOSEIT) CLOSE THE PARMLIB DCB @ZA25496 00929000 FREEPOOL OPENDCB /* FREE THE BUFFER POOL. */ 00930000 * END; 02S0471 00931000 * ELSE 02S0472 00932000 * CALL APCVZDWT(IGT205I,14,APCTSSID,4);/* WRITE ERROR 00933000 * MESSAGE. */ 00934000 * 02S0472 00935000 B @RC00456 02S0472 00936000 @RF00456 MVC @AL00001(16),@AL00472 02S0472 00937000 LA @08,APCTSSID(,APCTPTR) 02S0472 00938000 ST @08,@AL00001+8 02S0472 00939000 L @15,APCTZDWT(,APCTPTR) 02S0472 00940000 LA @01,@AL00001 02S0472 00941000 BALR @14,@15 02S0472 00942000 * /*********************************************************/ 00943000 * /* */ 00944000 * /* CONTINUE BUT ASSUME NO INITIAL COMMANDS. */ 00945000 * /* */ 00946000 * /*********************************************************/ 00947000 * 02S0473 00948000 * RESPECIFY 02S0473 00949000 * APCQPTR UNRESTRICTED; /* RELEASE THE DARN THING. */ 00950000 @RC00456 DS 0H 02S0474 00951000 * END; 01S0474 00952000 * 01S0474 00953000 */*NOW ALL THAT NEEDS TO BE DONE IS TO BUILD AN INITIALIZATION COMMND*/ 00954000 */*COMMAND TO SIGNAL THE END OF THE INITIALIZATION PHASE. */ 00955000 * 01S0475 00956000 * RESPECIFY 01S0475 00957000 * APCQPTR RESTRICTED; /* WILL HAVE PTR TO APCQ. */ 00958000 @RF00438 DS 0H 01S0476 00959000 * CALL APCVZDX1; /* GET AN APCQ TO PUT THE COMMAND 00960000 * IN. */ 00961000 L @15,APCTZDX1(,APCTPTR) 01S0476 00962000 BALR @14,@15 01S0476 00963000 * APCQINT='1'B; /* INDICATE AN INTERNAL COMMAND. */ 00964000 OI APCQINT(APCQPTR),B'10000000' 01S0477 00965000 * APCQIINF=APCQIC; /* INDICATE COMMAND VERB. */ 00966000 MVC APCQIINF(4,APCQPTR),@CF00853 01S0478 00967000 * CALL APCVZDX2; /* QUEUE THE INITIALIZATION 01S0479 00968000 * COMPLETE FOR IGTD40. */ 00969000 L @15,APCTZDX2(,APCTPTR) 01S0479 00970000 BALR @14,@15 01S0479 00971000 * DO; /* IGTYWAIT 01S0480 00972000 * ECB(APCTECIT)LONG(YES) */ 00973000 * RFY 01S0481 00974000 * (GPR00F, 01S0481 00975000 * GPR01P) RSTD; /* REGISTERS USED */ 00976000 * DCL 01S0482 00977000 * BIT0015X BIT(8) BASED(ADDR(APCTECIT));/* OVERLAY BYTE-0 00978000 * OF ECB */ 00979000 * IF BIT0015X(2)='0'B THEN /* IF ECB NOT ALREADY POSTED */ 00980000 TM BIT0015X+956(APCTPTR),B'01000000' 01S0483 00981000 BNZ @RF00483 01S0483 00982000 * DO; /* THEN ISSUE WAIT SVC */ 00983000 * GPR01P=ADDR(APCTECIT);/* POINT TO ECB */ 00984000 LA GPR01P,APCTECIT(,APCTPTR) 01S0485 00985000 * GPR00F=1|'80000000'X; /* WAIT COUNT */ 00986000 L GPR00F,@CF04013 01S0486 00987000 * SVC(1); /* WAIT FOR ECB POSTING */ 00988000 SVC 1 01S0487 00989000 * END; /* ECB WAIT COMPLETE */ 00990000 * RFY 01S0489 00991000 * (GPR00F, 01S0489 00992000 * GPR01P) UNRSTD; /* FINISHED WITH REGISTERS */ 00993000 @RF00483 DS 0H 01S0490 00994000 * END; /* ECB WAIT COMPLETE WAIT FOR 00995000 * IGTD20 TO END. */ 00996000 * GEN REFS(IGTD20T); 01S0491 00997000 * /* DETACH THE TCB. */ 00998000 DETACH IGTD20T RELEASE THE TCB. 00999000 * 02S0492 01000000 */********************************************************************/ 01001000 */* PERFORM TERMINATION PROCESSING. */ 01002000 */********************************************************************/ 01003000 * 02S0492 01004000 * /*************************************************************/ 01005000 * /* */ 01006000 * /* CLOSE THE DCB FOR THE 3838 LOAD MODULES. */ 01007000 * /* */ 01008000 * /*************************************************************/ 01009000 * 02S0492 01010000 * GEN SETS(CLOSEIT,DYNLDCB); 02S0492 01011000 * 02S0492 01012000 MVI CLOSEIT,X'80' MOVE IN THE VL INDICATOR. 01013000 CLOSE DYNLDCB,MF=(E,CLOSEIT) CLOSE THE MOTHER. 01014000 */* DETERMINE IF WARM START MAY BE POSSIBLE. */ 01015000 * 02S0493 01016000 * IF APCTWARM='0'B& /* IF NOT SET BY LOWER LEVEL TASK*/ 01017000 * ADDR(APCTECIT)->ECBCCCNT=0 THEN/* AND TERM. WAS NORMAL. */ 01018000 TM APCTWARM(APCTPTR),B'00000100' 02S0493 01019000 BNZ @RF00493 02S0493 01020000 L @08,ECBCCCNT+955(,APCTPTR) 02S0493 01021000 LA @08,0(,@08) 02S0493 01022000 LTR @08,@08 02S0493 01023000 BNZ @RF00493 02S0493 01024000 * DO; /* THEN IGTD10 MUST CLEAN UP 01025000 * STUFF */ 01026000 */* THIS IS A NORMAL TERMINATION. */ 01027000 */* FIRST, TURN OFF SUBSYSTEM FUNCS. */ 01028000 * 02S0495 01029000 * RESPECIFY 02S0495 01030000 * R0P RESTRICTED; 02S0495 01031000 * GEN REFS(APOTNAME) SETS(R0P) 02S0496 01032000 * ( LOAD EPLOC=APOTNAME LOAD THE APOT.); 02S0496 01033000 LOAD EPLOC=APOTNAME LOAD THE APOT. 01034000 * GEN(MODESET KEY=ZERO PREPARE TO MODIFY THE SSVT.); 01035000 MODESET KEY=ZERO PREPARE TO MODIFY THE SSVT. 01036000 * RESPECIFY 02S0498 01037000 * (APOTPTR, 02S0498 01038000 * R11P) RESTRICTED; 02S0498 01039000 * APOTPTR=R0P; /* ADDRESS OF THE APOT. */ 01040000 LR APOTPTR,R0P 02S0499 01041000 * RESPECIFY 02S0500 01042000 * APOT BASED(APOTPTR); 02S0500 01043000 * R11P=APOTVTAD; /* ADDRESS OF ENTRIES TO 02S0501 01044000 * DEACTIVATE */ 01045000 L R11P,APOTVTAD(,APOTPTR) 02S0501 01046000 * RESPECIFY 02S0502 01047000 * APOTVT BASED(R11P); 02S0502 01048000 * SSVTPTR=APCTSSVT; /* ADDRESS OF THE SUBSYS VECTOR 01049000 * TBL */ 01050000 * 02S0503 01051000 L @10,APCTSSVT(,APCTPTR) 02S0503 01052000 ST @10,SSVTPTR 02S0503 01053000 * /*********************************************************/ 01054000 * /* */ 01055000 * /* THIS LOOP DEACTIVATES SELECTED SUBSYSTEM FUNCTIONS BY */ 01056000 * /* SETTING THE INDEX VALUES TO ZERO. THE ONES DEACTIVATED*/ 01057000 * /* ARE THE SAME ONES ACTIVATED DURING INITIALIZATION. */ 01058000 * /* */ 01059000 * /*********************************************************/ 01060000 * 02S0504 01061000 * DO I=1 TO APOTVTCT BY 1;/* SCAN THE ENTRIES. */ 01062000 LA I,1 02S0504 01063000 B @DE00504 02S0504 01064000 @DL00504 DS 0H 02S0505 01065000 * IF APOTVTMN='1'B /* IF MONITOR ACTIVATED THE ENTRY*/ 01066000 * &APOTVTCD^=0 THEN /* AND IT IS NOT A DUMMY ENTRY. */ 01067000 TM APOTVTMN(R11P),B'01000000' 02S0505 01068000 BNO @RF00505 02S0505 01069000 CLI APOTVTCD(R11P),0 02S0505 01070000 BE @RF00505 02S0505 01071000 * SSVTFCOD(APOTVTCD)=''X;/* ZERO THE INDEX BYTE. */ 01072000 SLR @01,@01 02S0506 01073000 IC @01,APOTVTCD(,R11P) 02S0506 01074000 SLR @08,@08 02S0506 01075000 L @05,SSVTPTR 02S0506 01076000 STC @08,SSVTFCOD-1(@01,@05) 02S0506 01077000 * R11P=R11P+APOTVTLN; /* STEP TO NEXT ENTRY. */ 01078000 @RF00505 LA R11P,4(,R11P) 02S0507 01079000 * END; 02S0508 01080000 LA I,1(,I) 02S0508 01081000 @DE00504 C I,APOTVTCT(,APOTPTR) 02S0508 01082000 BNH @DL00504 02S0508 01083000 * RESPECIFY 02S0509 01084000 * (APOTPTR, 02S0509 01085000 * R11P) UNRESTRICTED; 02S0509 01086000 * GEN(MODESET KEY=NZERO RETURN TO OWN KEY.); 02S0510 01087000 MODESET KEY=NZERO RETURN TO OWN KEY. 01088000 * GEN REFS(APOTNAME) 02S0511 01089000 * ( DELETE EPLOC=APOTNAME RELEASE THE APOT.); 01090000 * 02S0511 01091000 DELETE EPLOC=APOTNAME RELEASE THE APOT. 01092000 * /*********************************************************/ 01093000 * /* */ 01094000 * /* NEXT, FREE UP THE APIOS. */ 01095000 * /* */ 01096000 * /*********************************************************/ 01097000 * 02S0512 01098000 * DO; /* THE APIOS ARE FREED HERE 03S0512 01099000 * BECAUSE THEY ARE NOT DESTROYED 01100000 * DURING NORMAL EXECUTION. THEY 01101000 * ARE CREATED WHEN NEEDED BY THE 01102000 * VPSS ACCESS METHOD, AND ARE 01103000 * LEFT ON THE QUEUE WHEN NO 01104000 * LONGER NEEDED UNTIL NEEDED 01105000 * AGAIN. */ 01106000 * RFY 03S0513 01107000 * APIOPTR RSTD; /* PTR TO THE APIO. */ 01108000 * RFY 03S0514 01109000 * APIO BASED(APIOPTR);/* BASE FOR THE APIO. */ 01110000 * APIOPTR=APCTAPIO; /* PTR TO FIRST APIO. */ 01111000 L APIOPTR,APCTAPIO(,APCTPTR) 03S0515 01112000 * APCTAPIO=0; /* CLEAR THE POINTER. */ 01113000 SLR @11,@11 03S0516 01114000 ST @11,APCTAPIO(,APCTPTR) 03S0516 01115000 * APCTIOAP=0; /* CLEAR THE BACK PTR. */ 01116000 ST @11,APCTIOAP(,APCTPTR) 03S0517 01117000 * GEN NOEXIT SEQFLOW NOFLOWS; 03S0518 01118000 * /* GET INTO DATA MANAGEMENT KEY. */ 01119000 MODESET KEY=ZERO,MODE=SUP GET TO SUPERVISOR STATE. 01120000 MODESET EXTKEY=DATAMGT GO TO DATA MANAGEMENT KEY. 01121000 * DO WHILE APIOPTR^=0; /* FREE ALL THE APIOS ON THE 01122000 * QUEUE. */ 01123000 B @DE00519 03S0519 01124000 @DL00519 DS 0H 03S0520 01125000 * RFY 03S0520 01126000 * (R0P, 03S0520 01127000 * R1P) RSTD; /* NEED THESE REGS. */ 01128000 * R0P=APIOSP*'01000000'X/* SUBPOOL AND LENGTH OF THE 01129000 * APIO. */ 01130000 * +APIOSIZE; 03S0521 01131000 L R0P,@CF04014 03S0521 01132000 AH R0P,APIOSIZE(,APIOPTR) 03S0521 01133000 * R1P=APIOPTR; /* ADDRESS OF THE APIO TO FREE. */ 01134000 LR R1P,APIOPTR 03S0522 01135000 * APIOPTR=APIOAPIO; /* ADDRESS OF THE NEXT APIO. */ 01136000 L APIOPTR,APIOAPIO(,APIOPTR) 03S0523 01137000 * GEN REFS(R0P,R1P)(FREEMAIN R,LV=(0),A=(1));/* FREE 01138000 * THE APIO. */ 01139000 FREEMAIN R,LV=(0),A=(1) 01140000 * RFY 03S0525 01141000 * (R0P, 03S0525 01142000 * R1P) UNRSTD; /* RELEASE THE REGS. */ 01143000 * END; /* END OF THE APIO FREE LOOP. */ 01144000 @DE00519 LTR APIOPTR,APIOPTR 03S0526 01145000 BNZ @DL00519 03S0526 01146000 * GEN NOEXIT SEQFLOW NOFLOWS; 03S0527 01147000 * /* RETURN TO MY KEY. */ 01148000 MODESET KEY=NZERO,MODE=PROB GET TO KEY 1 (SCHEDULER). 01149000 * RFY 03S0528 01150000 * APIO BASED; /* NO PTR TO APIO. */ 01151000 * RFY 03S0529 01152000 * APIOPTR UNRSTD; /* RELEASE THE REG. */ 01153000 * END; /* END OF THE FREE APIO ROUTINE. */ 01154000 * 02S0531 01155000 * /*********************************************************/ 01156000 * /* */ 01157000 * /* NEXT, FREE UP THE APUBS. */ 01158000 * /* */ 01159000 * /*********************************************************/ 01160000 * 02S0531 01161000 * RESPECIFY 02S0531 01162000 * (R0P, 02S0531 01163000 * R1P) RESTRICTED; 02S0531 01164000 * MSTRAPTR=APCTAPUB; /* GET PTR TO FIRST MASTER. */ 01165000 L MSTRAPTR,APCTAPUB(,APCTPTR) 02S0532 01166000 * DO /* PROCESS ALL MASTER APUBS. */ 01167000 * WHILE MSTRAPTR^=0;/* END WHEN LAST MASTER IS DONE. */ 01168000 B @DE00533 02S0533 01169000 @DL00533 DS 0H 02S0534 01170000 * RESPECIFY 02S0534 01171000 * APUBPTR RESTRICTED; 02S0534 01172000 * RESPECIFY 02S0535 01173000 * APUB BASED(APUBPTR); 02S0535 01174000 * APUBPTR= /* SET POINTER TO THE FIRST USER */ 01175000 * MSTRAPTR->APUBAPUB;/* APUB. */ 01176000 L APUBPTR,APUBAPUB(,MSTRAPTR) 02S0536 01177000 * DO /* FREE USER PORT APUBS. */ 01178000 * WHILE APUBPTR^=0;/* QUIT WHEN LAST ONE IS DONE. */ 01179000 B @DE00537 02S0537 01180000 @DL00537 DS 0H 02S0538 01181000 * R0P=DEFSP; /* SET SUBPOOL AND LENGTH. */ 01182000 L R0P,DEFSP 02S0538 01183000 * R1P=APUBPTR; /* SET ADDRESS TO BE FREED. */ 01184000 LR R1P,APUBPTR 02S0539 01185000 * APUBPTR=APUBAPUB; /* GET POINTER TO NEXT APUB. */ 01186000 L APUBPTR,APUBAPUB(,APUBPTR) 02S0540 01187000 * GEN REFS(R0P,R1P) 02S0541 01188000 * ( FREEMAIN R,LV=(0),A=(1) FREE THE APUB. ); 01189000 FREEMAIN R,LV=(0),A=(1) FREE THE APUB. 01190000 * END; 02S0542 01191000 @DE00537 LTR APUBPTR,APUBPTR 02S0542 01192000 BNZ @DL00537 02S0542 01193000 * RESPECIFY 02S0543 01194000 * APUBPTR UNRESTRICTED; 02S0543 01195000 * RESPECIFY 02S0544 01196000 * APUB; 02S0544 01197000 * 02S0544 01198000 * /*******************************************************/ 01199000 * /* */ 01200000 * /* NOW GET RID OF THE MASTER APUB. */ 01201000 * /* */ 01202000 * /*******************************************************/ 01203000 * 02S0545 01204000 * R0P=DEFSP; /* SET SP AND LEN. */ 01205000 L R0P,DEFSP 02S0545 01206000 * R1P=MSTRAPTR; /* SET ADDRESS. */ 01207000 LR R1P,MSTRAPTR 02S0546 01208000 * MSTRAPTR=MSTRAPTR->APUBMSTR;/* SET POINTER TO NEXT 01209000 * MASTER. */ 01210000 L MSTRAPTR,APUBMSTR(,MSTRAPTR) 02S0547 01211000 * GEN REFS(R0P,R1P) 02S0548 01212000 * ( FREEMAIN R,LV=(0),A=(1) FREE THE APUB.) ; 02S0548 01213000 FREEMAIN R,LV=(0),A=(1) FREE THE APUB. 01214000 * END; 02S0549 01215000 @DE00533 SLR @11,@11 02S0549 01216000 CR MSTRAPTR,@11 02S0549 01217000 BNE @DL00533 02S0549 01218000 * RESPECIFY 02S0550 01219000 * (R0P, 02S0550 01220000 * R1P) UNRESTRICTED; 02S0550 01221000 * APCTAPUB=0; /* SET APUB POINTERS TO ZERO. */ 01222000 ST @11,APCTAPUB(,APCTPTR) 02S0551 01223000 * APCTUBAP=0; /* */ 01224000 ST @11,APCTUBAP(,APCTPTR) 02S0552 01225000 * RFY 02S0553 01226000 * (R0P, 02S0553 01227000 * R1P) RSTD; /* PREPARE TO GET RID OF THE 01228000 * APVU. */ 01229000 * R0P=APVUSPLN; /* SUBPOOL AND LENGTH. */ 01230000 L @08,APCTAPVU(,APCTPTR) 02S0554 01231000 L R0P,APVUSPLN(,@08) 02S0554 01232000 * R1P=APCTAPVU; /* ADDRESS OF THE STORAGE. */ 01233000 LR R1P,@08 02S0555 01234000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREE THE STORAGE. */ 01235000 FREEMAIN R,LV=(0),A=(1) 01236000 * RFY 02S0557 01237000 * (R0P, 02S0557 01238000 * R1P) UNRSTD; /* RELEASE THE REGS. */ 01239000 * APCTAPVU=0; /* ZERO APVU POINTER. */ 01240000 SLR @08,@08 02S0558 01241000 ST @08,APCTAPVU(,APCTPTR) 02S0558 01242000 * RFY 02S0559 01243000 * R1P RSTD; /* PARM REG FOR IGTUJA. */ 01244000 * R1P=3; /* FUNCTION CODE FOR SET PURGE 01245000 * RTN. */ 01246000 LA R1P,3 02S0560 01247000 * CALL APCVZUJA; /* GO SET FUNCTION CODE. */ 01248000 L @15,APCTZUJA(,APCTPTR) 02S0561 01249000 BALR @14,@15 02S0561 01250000 * RFY 02S0562 01251000 * R1P UNRSTD; /* RELEASE THE REG. */ 01252000 * END; 02S0563 01253000 * ELSE 02S0564 01254000 * IF APCTWARM='0'B /* IF WARM START NOT SET, */ 01255000 * &ADDR(APCTECIT)->ECBCCCNT^=0/* BUT IGTD20 ABENDED, */ 01256000 * THEN /* MUST ALLOW WARM START TRIAL. */ 01257000 B @RC00493 02S0564 01258000 @RF00493 TM APCTWARM(APCTPTR),B'00000100' 02S0564 01259000 BNZ @RF00564 02S0564 01260000 L @08,ECBCCCNT+955(,APCTPTR) 02S0564 01261000 LA @08,0(,@08) 02S0564 01262000 LTR @08,@08 02S0564 01263000 BZ @RF00564 02S0564 01264000 * DO; 02S0565 01265000 * APCTWARM='1'B; /* SET WARM START POSSIBLE */ 01266000 L @08,APCTWARM(,APCTPTR) 02S0566 01267000 @GL00015 LR @11,@08 02S0566 01268000 O @11,@CF04047 02S0566 01269000 CS @08,@11,APCTWARM(APCTPTR) 02S0566 01270000 BNE @GL00015 02S0566 01271000 * CALL APCVZDWT(IGT206I,14,APCTSSID,4);/* OUTPUT MSG 206I*/ 01272000 MVC @AL00001(16),@AL00567 02S0567 01273000 LA @08,APCTSSID(,APCTPTR) 02S0567 01274000 ST @08,@AL00001+8 02S0567 01275000 L @15,APCTZDWT(,APCTPTR) 02S0567 01276000 LA @01,@AL00001 02S0567 01277000 BALR @14,@15 02S0567 01278000 * END; 02S0568 01279000 * CALL APCVZDWT(IGT209I,14,APCTSSID,4);/* MONITOR HAS 02S0569 01280000 * TERMINATED */ 01281000 @RF00564 DS 0H 02S0569 01282000 @RC00493 MVC @AL00001(16),@AL00569 02S0569 01283000 LA @08,APCTSSID(,APCTPTR) 02S0569 01284000 ST @08,@AL00001+8 02S0569 01285000 L @15,APCTZDWT(,APCTPTR) 02S0569 01286000 LA @01,@AL00001 02S0569 01287000 BALR @14,@15 02S0569 01288000 * GEN(IGTYSTAE 0); /* CANCEL ESTAE. */ 01289000 IGTYSTAE 0 01290000 * 01S0571 01291000 * /*************************************************************/ 01292000 * /* */ 01293000 * /* CLOSE THE DCB FOR THE MESSAGE LOG. */ 01294000 * /* */ 01295000 * /*************************************************************/ 01296000 * 01S0571 01297000 * GEN SETS(CLOSEIT,LOGDCBD); 01S0571 01298000 MVI CLOSEIT,X'80' MOVE IN THE VL INDICATOR. 01299000 CLOSE LOGDCBD,MF=(E,CLOSEIT) CLOSE THE MOTHER. 01300000 * APCTLOGD=0; /* ZERO THE LOG DCB ADDRESS SO NO 01301000 * FURTHER WRITES WILL BE 01S0572 01302000 * ATTEMPTED. */ 01303000 SLR @08,@08 01S0572 01304000 ST @08,APCTLOGD(,APCTPTR) 01S0572 01305000 * END; 01S0573 01306000 * ELSE 01S0574 01307000 * CALL APCVZDWT(IGT204I,14,APCTSSID,4);/* CANNOT INITIALIZE. */ 01308000 B @RC00236 01S0574 01309000 @RF00236 MVC @AL00001(16),@AL00574 01S0574 01310000 LA @08,APCTSSID(,APCTPTR) 01S0574 01311000 ST @08,@AL00001+8 01S0574 01312000 L @15,APCTZDWT(,APCTPTR) 01S0574 01313000 LA @01,@AL00001 01S0574 01314000 BALR @14,@15 01S0574 01315000 * RETURN CODE(0); /* RETURN TO CALLER */ 01316000 @RC00236 L @13,4(,@13) 01S0575 01317000 L @00,@SIZDATD 01S0575 01318000 LR @01,@06 01S0575 01319000 IGTYFSV R,LV=(0),A=(1) 01320000 SLR @15,@15 01S0575 01321000 L @14,12(,@13) 01S0575 01322000 LM @00,@12,20(@13) 01S0575 01323000 BR @14 01S0575 01324000 EJECT 01325000 * 01S0576 01326000 */********************************************************************/ 01327000 */*THIS PROCEDURE GAINS CONTROL WHEN A DCB ABEND OCCURS. THIS HAPPENS*/ 01328000 */*WHEN THE INITIALIZATION DATA SET CAN NOT BE OPENED, FOR EXAMPLE */ 01329000 */*WHEN IT DOESN'T EXIST. THE ROUTINE HAS TO SET A FAILURE INDICATOR*/ 01330000 */*-DCBABEND- SO THAT THE OPENER WILL KNOW THE OPEN FAILED. IT THEN */ 01331000 */*TELLS THE SYSTEM TO IGNORE THE ABEND AND RETURNS TO THE CALLER. */ 01332000 */********************************************************************/ 01333000 * 01S0576 01334000 *DCBABRT: 01S0576 01335000 * PROC OPTIONS(DONTSAVE, /* THE DCB ABEND ROUTINE. */ 01336000 * PARMREG); /* PARAMETERS PASSED IN REG 1. */ 01337000 DCBABRT DS 0H 01S0577 01338000 * DCL 01S0577 01339000 * 1 IN1 BDY(WORD) BASED(R1P), /* DEFINE INPUT TO THIS ROUTINE. */ 01340000 * 2 SYSCODE PTR(15), /* ABEND CODE. */ 01341000 * 2 RTCODE CHAR(1), /* SPECIFY ACTION SYSTEM IS T O 01342000 * TAKE */ 01343000 * 2 OPMASK CHAR(1), /* OPTIONS THAT ROUTINE CAN 01S0577 01344000 * ELECT. */ 01345000 * 2 DCB PTR(31), /* PTR TO THE DCB. */ 01346000 * 2 EOVWA PTR(31), /* EOV WORK AREA. */ 01347000 * 2 RECWA PTR(31); /* WORK AREA. */ 01348000 * RESPECIFY 01S0578 01349000 * (R1P, 01S0578 01350000 * R14P) RESTRICTED; /* SAVE THESE TWO REGS. */ 01351000 * GEN REFS(OPENDCB,DCBABRT,APCODE,APDATA,DCB); 01S0579 01352000 USING DCBABRT,R15P BASE REG. 01353000 L APDATA,DCB(,R1P) ADDRESS OF THE DCB. 01354000 L APDATA,SAVEDATA-OPENDCB(,APDATA) /*RESTORE DATA REG */ 01355000 * DCBABEND='1'B; /* INDICATE THAT OPEN FAILED. */ 01356000 OI DCBABEND,B'10000000' 01S0580 01357000 * OPMASK='04'X; /* TELL SYSTEM TO IGNORE ABEND. */ 01358000 MVI OPMASK(R1P),X'04' 01S0581 01359000 * RETURN; /* RETURN TO CALLER. */ 01360000 @EL00002 DS 0H 01S0582 01361000 @EF00002 DS 0H 01S0582 01362000 @ER00002 BR @14 01S0582 01363000 * END; /* IGTXEPLG */ 01364000 * 01S0584 01365000 * /*****************************************************************/ 01366000 * /* */ 01367000 * /* SYSTEM DECLARES */ 01368000 * /* */ 01369000 * /*****************************************************************/ 01370000 * 01S0584 01371000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01372000 * GPR00F FIXED(31) REG(0), 01S0584 01373000 * GPR01P PTR(31) REG(1); 01S0584 01374000 * DECLARE /* COMMON VARIABLES */ 01375000 * I256C CHAR(256) BASED, 01S0585 01376000 * I031F FIXED(31) BASED, 01S0585 01377000 * I031P PTR(31) BASED, 01S0585 01378000 * I015F FIXED(15) BASED, 01S0585 01379000 * I015P PTR(15) BASED, 01S0585 01380000 * I008P PTR(8) BASED, 01S0585 01381000 * I001C CHAR(1) BASED; 01S0585 01382000 * 01S0586 01383000 * /*****************************************************************/ 01384000 * /* */ 01385000 * /* MODULE PATCH AREA */ 01386000 * /* */ 01387000 * /*****************************************************************/ 01388000 * 01S0586 01389000 * DCL 01S0586 01390000 * APPATCH CHAR(*) INT STATIC LOCAL GEND; 01S0586 01391000 * GENERATE DATA DEFS(APPATCH); 01S0587 01392000 * 01S0588 01393000 * /*****************************************************************/ 01394000 * /* */ 01395000 * /* GENERAL REGISTER DECLARES */ 01396000 * /* */ 01397000 * /*****************************************************************/ 01398000 * 01S0588 01399000 * DCL 01S0588 01400000 * R0F FIXED(31) REG(0), 01S0588 01401000 * R0P PTR(24) REG(0), 01S0588 01402000 * R0RSTD PTR(31) REG(0), 01S0588 01403000 * R1F FIXED(31) REG(1), 01S0588 01404000 * R1P PTR(24) REG(1), 01S0588 01405000 * R1RSTD PTR(31) REG(1), 01S0588 01406000 * R2F FIXED(31) REG(2), 01S0588 01407000 * R2P PTR(24) REG(2), 01S0588 01408000 * R2RSTD PTR(31) REG(2), 01S0588 01409000 * R3F FIXED(31) REG(3), 01S0588 01410000 * R3P PTR(24) REG(3), 01S0588 01411000 * R3RSTD PTR(31) REG(3), 01S0588 01412000 * R4F FIXED(31) REG(4), 01S0588 01413000 * R4P PTR(24) REG(4), 01S0588 01414000 * R4RSTD PTR(31) REG(4), 01S0588 01415000 * R5F FIXED(31) REG(5), 01S0588 01416000 * R5P PTR(24) REG(5), 01S0588 01417000 * R5RSTD PTR(31) REG(5), 01S0588 01418000 * R6F FIXED(31) REG(6), 01S0588 01419000 * R6P PTR(24) REG(6), 01S0588 01420000 * R6RSTD PTR(31) REG(6), 01S0588 01421000 * R7F FIXED(31) REG(7), 01S0588 01422000 * R7P PTR(24) REG(7), 01S0588 01423000 * R7RSTD PTR(31) REG(7), 01S0588 01424000 * R8F FIXED(31) REG(8), 01S0588 01425000 * R8P PTR(24) REG(8), 01S0588 01426000 * R8RSTD PTR(31) REG(8), 01S0588 01427000 * R9F FIXED(31) REG(9), 01S0588 01428000 * R9P PTR(24) REG(9), 01S0588 01429000 * R9RSTD PTR(31) REG(9), 01S0588 01430000 * R10F FIXED(31) REG(10), 01S0588 01431000 * R10P PTR(24) REG(10), 01S0588 01432000 * R10RSTD PTR(31) REG(10), 01S0588 01433000 * R11F FIXED(31) REG(11), 01S0588 01434000 * R11P PTR(24) REG(11), 01S0588 01435000 * R11RSTD PTR(31) REG(11), 01S0588 01436000 * R12F FIXED(31) REG(12), 01S0588 01437000 * R12P PTR(24) REG(12), 01S0588 01438000 * R12RSTD PTR(31) REG(12), 01S0588 01439000 * R13F FIXED(31) REG(13), 01S0588 01440000 * R13P PTR(24) REG(13), 01S0588 01441000 * R13RSTD PTR(31) REG(13), 01S0588 01442000 * R14F FIXED(31) REG(14), 01S0588 01443000 * R14P PTR(24) REG(14), 01S0588 01444000 * R14RSTD PTR(31) REG(14), 01S0588 01445000 * R15F FIXED(31) REG(15), 01S0588 01446000 * R15P PTR(24) REG(15), 01S0588 01447000 * R15RSTD PTR(31) REG(15), 01S0588 01448000 * 01S0588 01449000 * /***************************************************************/ 01450000 * /* */ 01451000 * /* VPSS CONTROL BLOCK POINTER DECLARES */ 01452000 * /* */ 01453000 * /***************************************************************/ 01454000 * 01S0588 01455000 * APSMPTR PTR(24) REG(01), /* STORAGE MANAGEMENT BLOCK 01S0588 01456000 * (SUGGESTED POINTER) */ 01457000 * APSCPTR PTR(24) REG(01), /* STORAGE MANAGEMENT CONTROL 01458000 * WORD (SUGGESTED POINTER) */ 01459000 * APINPTR PTR(24) REG(01), /* USER'S INPUT PARAMETER LIST 01460000 * (SUGGESTED POINTER) */ 01461000 */* */ 01462000 * 01S0588 01463000 * APDATA PTR(24) REG(06), /* ADDRESS OF DYNAMIC DATA 01S0588 01464000 * WORKAREA (DATAREG) */ 01465000 * APCODE PTR(24) REG(07), /* PROGRAM CODE BASE REGISTER 01466000 * (CODEREG) */ 01467000 * APDEBPTR PTR(24) REG(08), /* VPSS DEB (SUGGESTED POINTER) */ 01468000 * APNPPTR PTR(24) REG(08), /* SUBSYSTEM INITIALIZATION 01S0588 01469000 * WORKAREA BLOCK (ONLY USED BY 01470000 * SUBSYSTEM INITIALIZATION) */ 01471000 * APRLPTR PTR(24) REG(08), /* VPSS ACB REQUEST LIST 01S0588 01472000 * (SUGGESTED POINTER) */ 01473000 * APCIPTR PTR(24) REG(08), /* 3838 CONTROL TABLE (SUGGESTED 01474000 * POINTER) */ 01475000 * APCWPTR PTR(24) REG(08), /* CALL INTERFACE WORKAREA 01S0588 01476000 * (SUGGESTED POINTER) */ 01477000 * APERPTR PTR(24) REG(08), /* ERP/IO APPENDAGE WORKAREA 01478000 * (SUGGESTED POINTER) */ 01479000 * APACBPTR PTR(24) REG(09), /* VPSS ACB (SUGGESTED POINTER) */ 01480000 * APCQPTR PTR(24) REG(09), /* COMMAND QUEUE ELEMENT 01S0588 01481000 * (SUGGESTED POINTER) */ 01482000 * APOTPTR PTR(24) REG(09), /* OPTION TABLE (SUGGESTED 01S0588 01483000 * POINTER) */ 01484000 * APIOPTR PTR(24) REG(10), /* I/O ELEMENT (SUGGESTED 01S0588 01485000 * POINTER) */ 01486000 * APEXLPTR PTR(24) REG(10), /* VPSS EXLST (SUGGESTED POINTER)*/ 01487000 * APUBPTR PTR(24) REG(10), /* UNIT BLOCK (SUGGESTED POINTER)*/ 01488000 * APAXPTR PTR(24) REG(10), /* VPSS ACB EXTENSION (SUGGESTED 01489000 * POINTER) */ 01490000 * APCPPTR PTR(24) REG(10), /* VPSS CALL PROCESSING 01S0588 01491000 * INDICATORS (SUGGESTED POINTER)*/ 01492000 * APOCPTR PTR(24) REG(10), /* VPSS OPEN/CLOSE SUBSYSTEM 01493000 * WORKAREA (REQUIRED POINTER) */ 01494000 * APATPTR PTR(24) REG(11), /* VPSS ACB TABLE (SUGGESTED 01495000 * POINTER) */ 01496000 * APLBPTR PTR(24) REG(11), /* LABEL RESOLUTION TABLE 01S0588 01497000 * (SUGGESTED POINTER) */ 01498000 * APUTPTR PTR(24) REG(11), /* USER TABLE (SUGGESTED POINTER)*/ 01499000 * APDSPTR PTR(24) REG(11), /* VPSS DATASET ENTRY (SUGGESTED 01500000 * POINTER) */ 01501000 * APXLPTR PTR(24) REG(11), /* TRANSLATION TABLE (SUGGESTED 01502000 * POINTER) */ 01503000 * APDXPTR PTR(24) REG(11), /* VPSS DEB EXTENSION (SUGGESTED 01504000 * POINTER) */ 01505000 * APCTPTR PTR(24) REG(12) RSTD, /* CONTROL TABLE (REQUIRED 01S0588 01506000 * POINTER) */ 01507000 * APSVPTR PTR(24) REG(13) RSTD, /* OS/VPSS SAVEAREA/WORKAREA 01508000 * (REQUIRED POINTER) */ 01509000 * APRETURN PTR(24) REG(14), /* RETURN ADDRESS FOR SUBROUTINE 01510000 * LINKAGE */ 01511000 * APENTRY PTR(24) REG(15), /* SUBROUTINE ENTRY POINT LINKAGE*/ 01512000 * APRCODE PTR(24) REG(15); /* CONTAINS SUBROUTINE RETURN 01513000 * CODE */ 01514000 * 01S0589 01515000 * /*****************************************************************/ 01516000 * /* */ 01517000 * /* USER REGISTER DECLARES */ 01518000 * /* */ 01519000 * /*****************************************************************/ 01520000 * 01S0589 01521000 * END 01S0589 01522000 * 01S0589 01523000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01524000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01525000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01526000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01527000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01528000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01529000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01530000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01531000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01532000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01533000 */*%INCLUDE SYSLIB (IEECUCM ) */ 01534000 */*%INCLUDE SYSLIB (IGTXAPCT) */ 01535000 */*%INCLUDE SYSLIB (IGTXAPUB) */ 01536000 */*%INCLUDE SYSLIB (IGTXAPOT) */ 01537000 */*%INCLUDE SYSLIB (IGTXAPSV) */ 01538000 */*%INCLUDE SYSLIB (IEFJSSVT) */ 01539000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01540000 */*%INCLUDE SYSLIB (CVT ) */ 01541000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01542000 */*%INCLUDE SYSLIB (IHADCB ) */ 01543000 */*%INCLUDE SYSLIB (IHAECB ) */ 01544000 */*%INCLUDE SYSLIB (IEFJFCBN) */ 01545000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01546000 */*%INCLUDE SYSLIB (IGTXAPCQ) */ 01547000 */*%INCLUDE SYSLIB (IGTXAPCV) */ 01548000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01549000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 01550000 */*%INCLUDE SYSLIB (IGTXAPMM) */ 01551000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01552000 */*%INCLUDE SYSLIB (IHAASVT ) */ 01553000 */*%INCLUDE SYSLIB (IGTXAPVU) */ 01554000 */*%INCLUDE SYSLIB (IGTXAPIO) */ 01555000 */*%INCLUDE SYSUT5 (IGTD10ER) */ 01556000 */*%INCLUDE SYSUT5 (OPENLOG ) */ 01557000 */*%INCLUDE SYSUT5 (OPENLDCB) */ 01558000 */*%INCLUDE SYSUT5 (CLEANUP ) */ 01559000 */*%INCLUDE SYSUT5 (WARMALLC) */ 01560000 */*%INCLUDE SYSUT5 (INITAPVU) */ 01561000 */*%INCLUDE SYSUT5 (IGTD10AA) */ 01562000 */*%INCLUDE SYSUT5 (IGTD10AB) */ 01563000 */*%INCLUDE SYSUT5 (IGTD10AC) */ 01564000 */*%INCLUDE SYSUT5 (IGTD10AD) */ 01565000 */*%INCLUDE SYSUT5 (FREEAPIO) */ 01566000 * 01S0589 01567000 * ; 01S0589 01568000 @EL00001 L @13,4(,@13) 01S0589 01569000 @EF00001 L @00,@SIZDATD 01S0589 01570000 LR @01,@06 01S0589 01571000 IGTYFSV R,LV=(0),A=(1) 01572000 @ER00001 LM @14,@12,12(@13) 01S0589 01573000 BR @14 01S0589 01574000 @DATA DS 0H 01575000 @CH02928 DC H'10' 01576000 @CH00121 DC H'80' 01577000 @CH00867 DC H'120' 01578000 @CH00947 DC H'255' 01579000 @CH03905 DC XL2'FFFF' 01580000 DS 0F 01581000 @AL00274 DC A(@CF00117) LIST WITH 7 ARGUMENT(S) 01582000 DC A(@CF00293) 01583000 DS F 01584000 DC A(@CF00040) 01585000 DC A(@CF03557) 01586000 DS F 01587000 DC AL1(X'80') 01588000 DC AL3(@CF00044) 01589000 @AL00283 DC A(@CF03619) LIST WITH 4 ARGUMENT(S) 01590000 DC A(@CF00293) 01591000 DS F 01592000 DC AL1(X'80') 01593000 DC AL3(@CF00040) 01594000 @AL00405 DC A(@CF00055) LIST WITH 7 ARGUMENT(S) 01595000 DC A(@CF00293) 01596000 DS F 01597000 DC A(@CF00040) 01598000 DC A(@CF03557) 01599000 DS F 01600000 DC AL1(X'80') 01601000 DC AL3(@CF00044) 01602000 @AL00472 DC A(@CF00080) LIST WITH 4 ARGUMENT(S) 01603000 DC A(@CF00293) 01604000 DS F 01605000 DC AL1(X'80') 01606000 DC AL3(@CF00040) 01607000 @AL00567 DC A(@CF00488) LIST WITH 4 ARGUMENT(S) 01608000 DC A(@CF00293) 01609000 DS F 01610000 DC AL1(X'80') 01611000 DC AL3(@CF00040) 01612000 @AL00569 DC A(@CF02082) LIST WITH 4 ARGUMENT(S) 01613000 DC A(@CF00293) 01614000 DS F 01615000 DC AL1(X'80') 01616000 DC AL3(@CF00040) 01617000 @AL00574 DC A(@CF03557) LIST WITH 4 ARGUMENT(S) 01618000 DC A(@CF00293) 01619000 DS F 01620000 DC AL1(X'80') 01621000 DC AL3(@CF00040) 01622000 @DATD DSECT 01623000 DS 0F 01624000 @SA00001 DS 20F 01625000 @PC00001 DS 1F 01626000 @AL00001 DS 7A 01627000 @TF00001 DS F 01628000 IGTD10 CSECT 01629000 DS 0F 01630000 @CF00057 DC F'2' 01631000 @CF00044 DC F'3' 01632000 @CF00040 DC F'4' 01633000 @CF00853 DC F'7' 01634000 @CF00293 DC F'14' 01635000 @CF00055 DC F'16' 01636000 @CF02937 DC F'17' 01637000 @CF03557 DC F'20' 01638000 @CF00080 DC F'24' 01639000 @CF00488 DC F'28' 01640000 @CF02082 DC F'40' 01641000 @CF00117 DC F'176' 01642000 @CF03619 DC F'180' 01643000 @CF03787 DC F'3040' 01644000 @CF04013 DC F'-2147483647' 01645000 @CF04014 DC F'-469762048' 01646000 @CF04011 DC F'-251658240' 01647000 @CF04046 DC F'-4' 01648000 @CF03886 DC XL4'40000000' 01649000 @CF04017 DC XL4'0000FFFF' 01650000 @CF04021 DC BL4'11111111101111111111111111111111' 01651000 @CF04028 DC BL4'01000000000000000000000000000000' 01652000 @CF04031 DC BL4'00000000011000000000000000000000' 01653000 @CF04034 DC BL4'11000000000000000000000000000000' 01654000 @CF04037 DC BL4'10000000000000000000000000000000' 01655000 @CF04040 DC BL4'00010000000000000000000000000000' 01656000 @CF04047 DC BL4'00000100000000000000000000000000' 01657000 @DATD DSECT 01658000 DS 0D 01659000 IGTD20T DS A 01660000 SSVTPTR DS A 01661000 ECBPTR DS A 01662000 TCBPTR DS A 01663000 TIOTPTR DS A 01664000 @TS00001 DS CL3 01665000 UNIT DS CL4 01666000 MEMBID DS CL8 01667000 APOTNAME DS CL8 01668000 D10IFLGS DS CL1 01669000 ORG D10IFLGS 01670000 DCBABEND DS BL1 01671000 CANWARM EQU D10IFLGS+0 01672000 ORG D10IFLGS+1 01673000 LISTEX DS CL8 01674000 ORG LISTEX 01675000 LISTEXA DS AL1 01676000 LISTEXB DS AL3 01677000 LISTEX1 DS AL1 01678000 LISTEX2 DS AL3 01679000 ORG LISTEX+8 01680000 AREAJFCB DS CL176 01681000 D10STAE DS CL8 01682000 ORG D10STAE 01683000 D10APCT DS AL4 01684000 D10CODE DS FL2 01685000 D10FLAGS DS BL2 01686000 ORG D10STAE+8 01687000 IGTD20PM DS 3A 01688000 IGTD10 CSECT 01689000 DS 0F 01690000 @SIZDATD DC AL1(0) 01691000 DC AL3(@ENDDATD-@DATD) 01692000 DS 0D 01693000 DEFSP DS AL4 01694000 ORG DEFSP 01695000 SPAPUB DC AL1(228) 01696000 LNAPUB DC AL3(120) 01697000 ORG DEFSP+4 01698000 LVAPCQ DS AL4 01699000 ORG LVAPCQ 01700000 SPAPCQ DC AL1(0) 01701000 LNAPCQ DC AL3(176) 01702000 ORG LVAPCQ+4 01703000 APIOSPLN DS AL4 01704000 ORG APIOSPLN 01705000 @NM00003 DC AL1(228) 01706000 @NM00004 DC AL3(424) 01707000 ORG APIOSPLN+4 01708000 @CC00870 DC C'APUB' 01709000 @CC03793 DC C'APVU' 01710000 @CC03884 DC C'IGT0' 01711000 @CB03899 DC X'80000000' 01712000 @CB03910 DC X'FFFFF0' 01713000 @CB04024 DC B'000000000000000000000000010000000000000000000000000000C01714000 00' 01715000 ALLOCATE DC CL8'ALLOCATE' 01716000 @DATD DSECT 01717000 * /*GEN ATTACH SF LIST MACRO*/ 01718000 ATTSYSP ATTACH SF=L RESERVE SPACE IN THE DYNAMIC AREA 01719000 ATTSYSPL EQU ATTSYSP,*-ATTSYSP,C'C' DEFINE A CHAR STRING RIGHT LEN. 01720000 IGTD10 CSECT 01721000 ATTSYSPM ATTACH EP=IGTUEA,SF=L 01722000 IGTD10 CSECT 01723000 COMMDCB DCB DDNAME=INITCMD,DSORG=PS,EODAD=BLDINIT,MACRF=GL 01724000 COMMDCBL EQU COMMDCB,*-COMMDCB,C'C' DEFINE CHAR STRING, SIZE OF DCB 01725000 @DATD DSECT 01726000 OPENDCB DCB DSORG=PS,MACRF=GL RESERVE SPACE FOR DCB 01727000 SAVEDATA DS A SAVE THE DATA REG. 01728000 @DATD DSECT 01729000 * /* DEFINE THE ENQ BUILD AREA. */ 01730000 DYNENQ EQU OPENDCB USE THE DCB AREA. 01731000 @DATD DSECT 01732000 OPENIT OPEN (OPENDCB,(INPUT,DISP)),MF=L 01733000 CLOSEIT CLOSE OPENDCB,MF=L 01734000 IGTD10 CSECT 01735000 * /* DEFINE THE OPEN ,MF=L. */ 01736000 GOODOPEN OPEN (,(INPUT,DISP)),MF=L 01737000 IGTD10 CSECT 01738000 * /* DEFINE THE STATIC STAE. */ 01739000 SSTAE IGTYSTAE *-*,CT,PARAM=*-*,XCTL=NO,PURGE=NONE,ASYNCH=YES, X01740000 TERM=YES,RECORD=YES,MF=L 01741000 @DATD DSECT 01742000 * /* DEFINE THE DYNAMIC AREA. */ 01743000 DSTAEX IGTYSTAE *-*,CT,PARAM=*-*,XCTL=NO,PURGE=NONE,ASYNCH=YES, X01744000 TERM=YES,RECORD=YES,MF=L 01745000 DSTAE EQU DSTAEX,*-DSTAEX,C'C' 01746000 IGTD10 CSECT 01747000 OPENLDCB OPEN (*-*,(INPUT)),MF=L 01748000 STATLDCB DCB DDNAME=LOAD3838,DSORG=PO,MACRF=(R) 01749000 @DATD DSECT 01750000 DYNLDCBX DCB DDNAME=LOAD3838,DSORG=PO,MACRF=(R) 01751000 DYNLDCB EQU DYNLDCBX,*-DYNLDCBX,C'C' 01752000 IGTD10 CSECT 01753000 LOGDCBS DCB DDNAME=SYSPRINT,DSORG=PS,MACRF=(PM),RECFM=VBA, X01754000 BLKSIZE=1330 01755000 @DATD DSECT 01756000 LOGDCB DCB DDNAME=SYSPRINT,DSORG=PS,MACRF=(PM) 01757000 LOGDCBD EQU LOGDCB,*-LOGDCB,C'C' 01758000 IGTD10 CSECT 01759000 LOGOPENS OPEN (*-*,(OUTPUT)),MF=L 01760000 IGTD10 CSECT 01761000 * /* GENERATE PATCH 01762000 IGTXZAP , GENERATE PATCH AREA 01763000 @DATD DSECT 01764000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01765000 @ENDDATD EQU * 01766000 IGTD10 CSECT 01767000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01768000 @01 EQU 01 01769000 @02 EQU 02 01770000 @03 EQU 03 01771000 @04 EQU 04 01772000 @05 EQU 05 01773000 @06 EQU 06 01774000 @07 EQU 07 01775000 @08 EQU 08 01776000 @09 EQU 09 01777000 @10 EQU 10 01778000 @11 EQU 11 01779000 @12 EQU 12 01780000 @13 EQU 13 01781000 @14 EQU 14 01782000 @15 EQU 15 01783000 CARDPTR EQU @08 01784000 JFCBPTR EQU @04 01785000 DCBPTR EQU @05 01786000 LUTPTR EQU @11 01787000 MSTRAPTR EQU @08 01788000 I EQU @10 01789000 APDATA EQU @06 01790000 APCODE EQU @07 01791000 R3P EQU @03 01792000 ASCBPTR EQU @00 01793000 ASVTPTR EQU @00 01794000 UCMEXTPT EQU @00 01795000 UCMEILPT EQU @00 01796000 UCMUEWPT EQU @00 01797000 UCMFXPTR EQU @00 01798000 UCMPXPTR EQU @00 01799000 APCTPTR EQU @12 01800000 APSVPTR EQU @13 01801000 R2F EQU @02 01802000 R3F EQU @03 01803000 R1P EQU @01 01804000 R2P EQU @02 01805000 R15P EQU @15 01806000 APUBPTR EQU @10 01807000 APCQPTR EQU @09 01808000 R0P EQU @00 01809000 R14P EQU @14 01810000 APOTPTR EQU @09 01811000 R11P EQU @11 01812000 R8P EQU @08 01813000 GPR00F EQU @00 01814000 GPR01P EQU @01 01815000 APIOPTR EQU @10 01816000 APACBPTR EQU @09 01817000 APATPTR EQU @11 01818000 APAXPTR EQU @10 01819000 APCIPTR EQU @08 01820000 APCPPTR EQU @10 01821000 APCWPTR EQU @08 01822000 APDEBPTR EQU @08 01823000 APDSPTR EQU @11 01824000 APDXPTR EQU @11 01825000 APENTRY EQU @15 01826000 APERPTR EQU @08 01827000 APEXLPTR EQU @10 01828000 APINPTR EQU @01 01829000 APLBPTR EQU @11 01830000 APNPPTR EQU @08 01831000 APOCPTR EQU @10 01832000 APRCODE EQU @15 01833000 APRETURN EQU @14 01834000 APRLPTR EQU @08 01835000 APSCPTR EQU @01 01836000 APSMPTR EQU @01 01837000 APUTPTR EQU @11 01838000 APXLPTR EQU @11 01839000 R0F EQU @00 01840000 R0RSTD EQU @00 01841000 R1F EQU @01 01842000 R1RSTD EQU @01 01843000 R10F EQU @10 01844000 R10P EQU @10 01845000 R10RSTD EQU @10 01846000 R11F EQU @11 01847000 R11RSTD EQU @11 01848000 R12F EQU @12 01849000 R12P EQU @12 01850000 R12RSTD EQU @12 01851000 R13F EQU @13 01852000 R13P EQU @13 01853000 R13RSTD EQU @13 01854000 R14F EQU @14 01855000 R14RSTD EQU @14 01856000 R15F EQU @15 01857000 R15RSTD EQU @15 01858000 R2RSTD EQU @02 01859000 R3RSTD EQU @03 01860000 R4F EQU @04 01861000 R4P EQU @04 01862000 R4RSTD EQU @04 01863000 R5F EQU @05 01864000 R5P EQU @05 01865000 R5RSTD EQU @05 01866000 R6F EQU @06 01867000 R6P EQU @06 01868000 R6RSTD EQU @06 01869000 R7F EQU @07 01870000 R7P EQU @07 01871000 R7RSTD EQU @07 01872000 R8F EQU @08 01873000 R8RSTD EQU @08 01874000 R9F EQU @09 01875000 R9P EQU @09 01876000 R9RSTD EQU @09 01877000 PSA EQU 0 01878000 FLCRNPSW EQU PSA 01879000 FLCROPSW EQU PSA+8 01880000 FLCICCW2 EQU PSA+16 01881000 FLCCVT EQU FLCICCW2 01882000 PSAEEPSW EQU PSA+132 01883000 PSAESPSW EQU PSA+136 01884000 FLCSVILC EQU PSAESPSW+1 01885000 PSAEPPSW EQU PSA+140 01886000 FLCPIILC EQU PSAEPPSW+1 01887000 FLCPICOD EQU PSAEPPSW+2 01888000 PSAPICOD EQU FLCPICOD+1 01889000 FLCTEA EQU PSAEPPSW+4 01890000 FLCPER EQU PSA+152 01891000 FLCMCLA EQU PSA+168 01892000 FLCIOEL EQU FLCMCLA+4 01893000 FLCIOA EQU FLCMCLA+16 01894000 FLCFSA EQU FLCMCLA+80 01895000 PSASUPER EQU PSA+552 01896000 PSASUP1 EQU PSASUPER 01897000 PSASUP2 EQU PSASUPER+1 01898000 PSASUP3 EQU PSASUPER+2 01899000 PSASUP4 EQU PSASUPER+3 01900000 PSACLHT EQU PSA+640 01901000 PSALKSA EQU PSA+696 01902000 PSAHLHI EQU PSA+760 01903000 PSADSSFL EQU PSA+836 01904000 PSADSSF1 EQU PSADSSFL 01905000 PSADSSF3 EQU PSADSSFL+2 01906000 PSADSSF4 EQU PSADSSFL+3 01907000 PSARSVT EQU PSA+896 01908000 @NM00001 EQU 0 01909000 UCBPTR EQU 0 01910000 TASKINFO EQU 0 01911000 CURTCB EQU TASKINFO+4 01912000 CURASCB EQU TASKINFO+12 01913000 CARD EQU 0 01914000 UCMPRFXP EQU 0 01915000 UCM2EXT EQU 0 01916000 UCM2STA EQU UCM2EXT+8 01917000 UCM2SFLG EQU UCM2STA 01918000 UCMPRFX EQU 0 01919000 UCMMCENT EQU UCMPRFX 01920000 UCMSAVE0 EQU UCMPRFX+4 01921000 UCMSFLGS EQU UCMPRFX+84 01922000 UCMSFLG1 EQU UCMSFLGS 01923000 UCMSFLG2 EQU UCMSFLGS+1 01924000 UCMXSA EQU UCMPRFX+104 01925000 UCMSDS1 EQU UCMPRFX+156 01926000 UCM EQU 0 01927000 UCMDECB EQU UCM+12 01928000 UCMRPYI EQU UCM+32 01929000 UCMPXB EQU UCM+68 01930000 UCMMODE EQU UCMPXB 01931000 UCMVDATA EQU UCM+72 01932000 UCMRSV42 EQU UCM+300 01933000 UCMRSV51 EQU UCM+301 01934000 UCMEIL EQU 0 01935000 UCMRECBA EQU UCMEIL+24 01936000 UCMEXIT EQU 0 01937000 UCMLIST EQU 0 01938000 UCMSTS EQU UCMLIST+24 01939000 UCMATR EQU UCMLIST+25 01940000 UCMXA EQU UCMLIST+26 01941000 UCMID EQU UCMXA 01942000 UCMAUTH EQU UCMLIST+40 01943000 UCMAUTHA EQU UCMAUTH 01944000 UCMDISP EQU UCMLIST+42 01945000 UCMDISP1 EQU UCMDISP 01946000 UCMDISP2 EQU UCMDISP+1 01947000 UCMMSG EQU UCMLIST+60 01948000 UCMMSG1 EQU UCMMSG 01949000 UCMDEVC EQU UCMLIST+63 01950000 UCMRCT EQU UCMLIST+68 01951000 UCMSDS5 EQU UCMRCT 01952000 UCMFEXTA EQU 0 01953000 UCMFMGFS EQU UCMFEXTA+8 01954000 UCMFFLG1 EQU UCMFMGFS 01955000 UCMPEXTA EQU 0 01956000 UCMPDM1 EQU UCMPEXTA+4 01957000 APCT EQU 0 01958000 APCTSSVT EQU APCT+8 01959000 APCTENQM EQU APCT+12 01960000 APCTSSID EQU APCTENQM+4 01961000 APCTSMIN EQU APCT+32 01962000 APCTSMAD EQU APCT+36 01963000 APCTZ@@@ EQU APCT+40 01964000 APCTU@@@ EQU APCT+440 01965000 APCTBR14 EQU APCT+840 01966000 APCTAPUB EQU APCT+848 01967000 APCTUBIS EQU APCT+852 01968000 APCTUBIC EQU APCT+856 01969000 APCTAPDS EQU APCT+860 01970000 APCTUBAP EQU APCT+864 01971000 APCTISUB EQU APCT+868 01972000 APCTDSAP EQU APCT+872 01973000 APCTERRS EQU APCT+876 01974000 APCTASCB EQU APCT+920 01975000 APCTTCB EQU APCT+924 01976000 @NM00019 EQU APCT+936 01977000 APCTSTAT EQU @NM00019 01978000 APCTSTRT EQU APCTSTAT 01979000 APCTWARM EQU APCTSTAT 01980000 APCTPRSW EQU @NM00019+1 01981000 APCTAPST EQU APCTPRSW 01982000 APCTCQLK EQU APCT+940 01983000 APCTAPCQ EQU APCT+944 01984000 APCTCQF EQU APCTAPCQ 01985000 APCTCQL EQU APCTAPCQ+4 01986000 APCTCQAQ EQU APCT+952 01987000 APCTECIT EQU APCT+956 01988000 APCTEALC EQU APCT+964 01989000 APCTECPT EQU APCT+968 01990000 APCTEULD EQU APCT+972 01991000 APCTECPW EQU APCT+976 01992000 APCTEIPL EQU APCT+1000 01993000 APCTAPIO EQU APCT+1064 01994000 APCTIOAP EQU APCT+1100 01995000 APCTDCLD EQU APCT+1104 01996000 APCTLOGD EQU APCT+1108 01997000 APCTZ@@1 EQU APCT+1120 01998000 APCTAPVU EQU APCT+1520 01999000 APCTLGLN EQU APCT+1524 02000000 APCTLGPG EQU APCT+1526 02001000 APCTASID EQU APCT+1528 02002000 APCTLOGL EQU APCT+1544 02003000 APUB EQU 0 02004000 APUBID EQU APUB 02005000 APUBAPUB EQU APUB+4 02006000 APUBMSTR EQU APUB+8 02007000 APUBAPCT EQU APUB+20 02008000 APUBUCB EQU APUB+28 02009000 APUBUBAP EQU APUB+36 02010000 APUBMSTP EQU APUB+40 02011000 APUBERRS EQU APUB+52 02012000 APUBALFG EQU APUB+80 02013000 APUBALF0 EQU APUBALFG 02014000 APUBSBCH EQU APUBALF0 02015000 APUBALF1 EQU APUBALFG+1 02016000 APUBDSBL EQU APUBALF1 02017000 APUBUNLD EQU APUBALF1 02018000 APUBALF2 EQU APUBALFG+2 02019000 APUBALF3 EQU APUBALFG+3 02020000 APUBSTAT EQU APUB+84 02021000 APUBIOFG EQU APUB+88 02022000 APUBIOF0 EQU APUBIOFG 02023000 APUBIDWN EQU APUBIOF0 02024000 APUBIDAB EQU APUBIOF0 02025000 APUBICNL EQU APUBIOF0 02026000 APUBIOF1 EQU APUBIOFG+1 02027000 APUBIOF2 EQU APUBIOFG+2 02028000 APUBIOF3 EQU APUBIOFG+3 02029000 APUBDCB EQU APUB+96 02030000 APUBSIZE EQU APUB+102 02031000 APOT EQU 0 02032000 APOTNMAD EQU APOT+16 02033000 APOTVTAD EQU APOT+24 02034000 APOTVTCT EQU APOT+28 02035000 APOTADAD EQU APOT+32 02036000 APOTNM EQU 0 02037000 APOTNMFG EQU APOTNM+10 02038000 APOTNMF0 EQU APOTNMFG 02039000 APOTVT EQU 0 02040000 APOTVTCD EQU APOTVT 02041000 APOTVTIT EQU APOTVT+1 02042000 APOTVTMN EQU APOTVTIT 02043000 APOTAD EQU 0 02044000 APSV EQU 0 02045000 APSVREGS EQU APSV+12 02046000 SSVT EQU 0 02047000 SSVTFSIZ EQU SSVT 02048000 SSVTFCOD EQU SSVTFSIZ+4 02049000 UCB EQU 0 02050000 UCBOB EQU 0 02051000 UCBJBNR EQU UCBOB 02052000 UCBFL5 EQU UCBOB+1 02053000 UCBAF EQU UCBFL5 02054000 UCBSTAT EQU UCBOB+3 02055000 UCBCHAN EQU UCBOB+4 02056000 UCBUA EQU UCBCHAN+1 02057000 UCBSFLS EQU UCBOB+6 02058000 UCBFLA EQU UCBSFLS 02059000 UCBFL1 EQU UCBFLA 02060000 UCBBSY EQU UCBFL1 02061000 UCBNRY EQU UCBFL1 02062000 UCBPST EQU UCBFL1 02063000 UCBCUB EQU UCBFL1 02064000 UCBFLB EQU UCBSFLS+1 02065000 UCBCHM EQU UCBOB+8 02066000 UCBCHM1 EQU UCBCHM 02067000 UCBPTH0 EQU UCBCHM1 02068000 UCBPTH1 EQU UCBCHM1 02069000 UCBWGT EQU UCBOB+12 02070000 UCBNAME EQU UCBOB+13 02071000 UCBTYP EQU UCBOB+16 02072000 UCBTBYT1 EQU UCBTYP 02073000 UCB1FEA5 EQU UCBTBYT1 02074000 UCB1FEA6 EQU UCBTBYT1 02075000 UCBTBYT2 EQU UCBTYP+1 02076000 UCB2OPT2 EQU UCBTBYT2 02077000 UCBDUDN1 EQU UCB2OPT2 02078000 UCB2OPT3 EQU UCBTBYT2 02079000 UCBDUDN2 EQU UCB2OPT3 02080000 UCB2OPT4 EQU UCBTBYT2 02081000 UCBRWTAU EQU UCB2OPT4 02082000 UCB2OPT6 EQU UCBTBYT2 02083000 UCB2OPT7 EQU UCBTBYT2 02084000 UCBTBYT3 EQU UCBTYP+2 02085000 UCBDVCLS EQU UCBTBYT3 02086000 UCB3UREC EQU UCBDVCLS 02087000 UCBTBYT4 EQU UCBTYP+3 02088000 UCBUNTYP EQU UCBTBYT4 02089000 UCBEXTPT EQU UCBOB+20 02090000 UCBFLC EQU UCBEXTPT 02091000 UCBDEV EQU UCBOB+24 02092000 UCBCMEXT EQU 0 02093000 UCBATI EQU UCBCMEXT+3 02094000 @NM00078 EQU UCBATI 02095000 UCBFLP1 EQU UCBCMEXT+5 02096000 UCBMT EQU 0 02097000 UCBOCR EQU 0 02098000 UCB3540X EQU 0 02099000 UCBDKBYT EQU UCB3540X+6 02100000 UCB3800X EQU 0 02101000 UCBOPTNS EQU UCB3800X 02102000 UCBACTIV EQU UCB3800X+3 02103000 UCBMDRBF EQU UCB3800X+36 02104000 UCBUCS EQU 0 02105000 UCBUCSOP EQU UCBUCS+4 02106000 UCBFCBOP EQU UCBUCS+5 02107000 CVTMAP EQU 0 02108000 CVTTCBP EQU CVTMAP 02109000 CVTLINK EQU CVTMAP+8 02110000 CVTILK2 EQU CVTMAP+40 02111000 CVTDAR EQU CVTMAP+72 02112000 CVTFLGS1 EQU CVTDAR 02113000 CVTCUCB EQU CVTMAP+100 02114000 CVTDCB EQU CVTMAP+116 02115000 CVTIOQET EQU CVTMAP+120 02116000 CVTIERLC EQU CVTMAP+144 02117000 CVTHEAD EQU CVTMAP+160 02118000 CVTSV76C EQU CVTHEAD 02119000 CVTOPTA EQU CVTMAP+182 02120000 CVTOPTB EQU CVTMAP+183 02121000 CVTGTF EQU CVTMAP+236 02122000 CVTGTFST EQU CVTGTF 02123000 CVTGTFS EQU CVTGTFST 02124000 CVTSTATE EQU CVTGTFST 02125000 CVTTMODE EQU CVTGTFST 02126000 CVTFORM EQU CVTGTFST 02127000 CVTAQAVT EQU CVTMAP+240 02128000 CVTTCMFG EQU CVTAQAVT 02129000 CVTVOLM2 EQU CVTMAP+244 02130000 CVTTATA EQU CVTVOLM2 02131000 CVTTSKS EQU CVTTATA 02132000 CVTVOLF2 EQU CVTTSKS 02133000 CVTTAT EQU CVTTATA+1 02134000 CVTATER EQU CVTMAP+248 02135000 CVTEXT1 EQU CVTMAP+252 02136000 CVTPURG EQU CVTMAP+260 02137000 CVTQMSG EQU CVTMAP+268 02138000 CVTDMSR EQU CVTMAP+272 02139000 CVTRSV37 EQU CVTDMSR 02140000 CVTDMSRF EQU CVTRSV37 02141000 CVTERPV EQU CVTMAP+316 02142000 CVTINTLA EQU CVTMAP+320 02143000 CVTAPF EQU CVTMAP+324 02144000 CVTEXT2 EQU CVTMAP+328 02145000 CVTHJES EQU CVTMAP+332 02146000 CVTPGSIA EQU CVTMAP+348 02147000 CVTA1F1 EQU CVTMAP+356 02148000 CVTSYSK EQU CVTMAP+357 02149000 CVTVOLM1 EQU CVTMAP+380 02150000 CVTVOLF1 EQU CVTVOLM1 02151000 CVTATMCT EQU CVTMAP+388 02152000 CVTXTNT1 EQU 0 02153000 CVTXTNT2 EQU 0 02154000 CVTDSSV EQU CVTXTNT2 02155000 CVTFLGBT EQU CVTXTNT2+5 02156000 CVTQID EQU CVTXTNT2+24 02157000 CVTRV400 EQU CVTXTNT2+52 02158000 CVTRV409 EQU CVTXTNT2+53 02159000 CVTATCVT EQU CVTXTNT2+64 02160000 CVTRV429 EQU CVTXTNT2+84 02161000 CVTRV438 EQU CVTXTNT2+85 02162000 CVTRV457 EQU CVTXTNT2+112 02163000 CVTRV466 EQU CVTXTNT2+113 02164000 CVTFIX EQU 0 02165000 CVTRELNO EQU CVTFIX+252 02166000 IHADCB EQU 0 02167000 IHADCS00 EQU 0 02168000 DCBFDAD EQU IHADCS00+5 02169000 IHADCS01 EQU 0 02170000 DCBDVTBL EQU IHADCS01 02171000 IHADCS11 EQU 0 02172000 DCBRELB EQU IHADCS11 02173000 DCBREL EQU DCBRELB+1 02174000 DCBBUFCB EQU IHADCS11+4 02175000 DCBDSORG EQU IHADCS11+10 02176000 DCBDSRG1 EQU DCBDSORG 02177000 DCBDSRG2 EQU DCBDSORG+1 02178000 DCBIOBAD EQU IHADCS11+12 02179000 DCBODEB EQU DCBIOBAD 02180000 DCBLNP EQU DCBODEB 02181000 DCBQSLM EQU DCBLNP 02182000 DCBIOBAA EQU DCBODEB+1 02183000 IHADCS50 EQU 0 02184000 DCBSVCXL EQU IHADCS50 02185000 DCBEODAD EQU IHADCS50+4 02186000 DCBBFALN EQU DCBEODAD 02187000 DCBHIARC EQU DCBBFALN 02188000 DCBBFTEK EQU DCBHIARC 02189000 DCBBFT EQU DCBBFTEK 02190000 DCBEXLST EQU IHADCS50+8 02191000 DCBRECFM EQU DCBEXLST 02192000 DCBRECLA EQU DCBRECFM 02193000 DCBEXLSA EQU DCBEXLST+1 02194000 IHADCS24 EQU 0 02195000 DCBOFLGS EQU IHADCS24+8 02196000 DCBOFLWR EQU DCBOFLGS 02197000 DCBOFOPN EQU DCBOFLGS 02198000 DCBIFLG EQU IHADCS24+9 02199000 DCBIBPCT EQU DCBIFLG 02200000 DCBMACR EQU IHADCS24+10 02201000 DCBMACR1 EQU DCBMACR 02202000 DCBMRFE EQU DCBMACR1 02203000 DCBMRGET EQU DCBMRFE 02204000 DCBMRAPG EQU DCBMACR1 02205000 DCBMRRD EQU DCBMRAPG 02206000 DCBMRCI EQU DCBMACR1 02207000 DCBMRMVG EQU DCBMRCI 02208000 DCBMRLCG EQU DCBMACR1 02209000 DCBMRABC EQU DCBMACR1 02210000 DCBMRPT1 EQU DCBMRABC 02211000 DCBMRSBG EQU DCBMRPT1 02212000 DCBMRCRL EQU DCBMACR1 02213000 DCBMRCHK EQU DCBMRCRL 02214000 DCBMRRDX EQU DCBMRCHK 02215000 DCBMRDMG EQU DCBMACR1 02216000 DCBMACR2 EQU DCBMACR+1 02217000 DCBMRPUT EQU DCBMACR2 02218000 DCBMRWRT EQU DCBMACR2 02219000 DCBMRMVP EQU DCBMACR2 02220000 DCBMR5WD EQU DCBMACR2 02221000 DCBMRLDM EQU DCBMR5WD 02222000 DCBMRLCP EQU DCBMRLDM 02223000 DCBMR4WD EQU DCBMACR2 02224000 DCBMRPT2 EQU DCBMR4WD 02225000 DCBMRTMD EQU DCBMRPT2 02226000 DCBMR3WD EQU DCBMACR2 02227000 DCBMRCTL EQU DCBMR3WD 02228000 DCBMRSTK EQU DCBMRCTL 02229000 DCBMR1WD EQU DCBMACR2 02230000 DCBMRSWA EQU DCBMR1WD 02231000 DCBMRDMD EQU DCBMRSWA 02232000 IHADCS25 EQU 0 02233000 DCBMACRF EQU IHADCS25+2 02234000 DCBMACF1 EQU DCBMACRF 02235000 DCBMFFE EQU DCBMACF1 02236000 DCBMFGET EQU DCBMFFE 02237000 DCBMFAPG EQU DCBMACF1 02238000 DCBMFRD EQU DCBMFAPG 02239000 DCBMFCI EQU DCBMACF1 02240000 DCBMFMVG EQU DCBMFCI 02241000 DCBMFLCG EQU DCBMACF1 02242000 DCBMFABC EQU DCBMACF1 02243000 DCBMFPT1 EQU DCBMFABC 02244000 DCBMFSBG EQU DCBMFPT1 02245000 DCBMFCRL EQU DCBMACF1 02246000 DCBMFCHK EQU DCBMFCRL 02247000 DCBMFDMG EQU DCBMACF1 02248000 DCBMACF2 EQU DCBMACRF+1 02249000 DCBMFPUT EQU DCBMACF2 02250000 DCBMFWRT EQU DCBMACF2 02251000 DCBMFMVP EQU DCBMACF2 02252000 DCBMF5WD EQU DCBMACF2 02253000 DCBMFLDM EQU DCBMF5WD 02254000 DCBMFLCP EQU DCBMFLDM 02255000 DCBMF4WD EQU DCBMACF2 02256000 DCBMFPT2 EQU DCBMF4WD 02257000 DCBMFTMD EQU DCBMFPT2 02258000 DCBMF3WD EQU DCBMACF2 02259000 DCBMFCTL EQU DCBMF3WD 02260000 DCBMFSTK EQU DCBMFCTL 02261000 DCBMF1WD EQU DCBMACF2 02262000 DCBMFSWA EQU DCBMF1WD 02263000 DCBMFDMD EQU DCBMFSWA 02264000 DCBDEBAD EQU IHADCS25+4 02265000 DCBIFLGS EQU DCBDEBAD 02266000 DCBIFPCT EQU DCBIFLGS 02267000 IHADCS26 EQU 0 02268000 DCBWRITE EQU IHADCS26 02269000 DCBREAD EQU DCBWRITE 02270000 DCBWRITA EQU DCBREAD+1 02271000 IHADCS28 EQU 0 02272000 IHADCS44 EQU 0 02273000 IHADCS36 EQU 0 02274000 DCBGERR EQU IHADCS36 02275000 DCBPERR EQU DCBGERR 02276000 DCBCHECK EQU DCBPERR 02277000 DCBOPTCD EQU DCBCHECK 02278000 DCBOPTH EQU DCBOPTCD 02279000 DCBOPTO EQU DCBOPTH 02280000 DCBOPTZ EQU DCBOPTCD 02281000 DCBGERRA EQU DCBCHECK+1 02282000 DCBPERRA EQU DCBGERRA 02283000 DCBSYNAD EQU IHADCS36+4 02284000 DCBCIND1 EQU IHADCS36+8 02285000 DCBCIND2 EQU IHADCS36+9 02286000 DCBIOBA EQU IHADCS36+16 02287000 DCBCICB EQU DCBIOBA 02288000 IHADCS52 EQU 0 02289000 DCBDIRCT EQU IHADCS52 02290000 DCBQSWS EQU DCBDIRCT 02291000 DCBUSASI EQU DCBQSWS 02292000 DCBQADFS EQU DCBUSASI 02293000 DCBBUFOF EQU DCBDIRCT+1 02294000 IHADCS37 EQU 0 02295000 DCBFLAG1 EQU IHADCS37 02296000 IHADCS38 EQU 0 02297000 DCBEOBR EQU IHADCS38 02298000 DCBPOINT EQU IHADCS38+12 02299000 DCBCNTRL EQU DCBPOINT 02300000 ECB EQU 0 02301000 ECBRB EQU ECB 02302000 ECBEVTB EQU ECBRB 02303000 ECBEXTB EQU ECBEVTB 02304000 ECBCC EQU ECBEXTB 02305000 ECBCCCNT EQU ECBEXTB+1 02306000 ECBRBA EQU ECBCCCNT 02307000 ECBEVTBA EQU ECBRBA 02308000 ECBEXTBA EQU ECBEVTBA 02309000 ECBBYTE3 EQU ECBEXTBA+2 02310000 ECBEXTND EQU ECBBYTE3 02311000 INFMJFCB EQU 0 02312000 JFCBDSNM EQU INFMJFCB 02313000 JFCBELNM EQU INFMJFCB+44 02314000 JFCBTSDM EQU INFMJFCB+52 02315000 JFCNWRIT EQU JFCBTSDM 02316000 JFCFCBID EQU INFMJFCB+56 02317000 JFCBFRID EQU JFCFCBID 02318000 JFCBLTYP EQU INFMJFCB+66 02319000 JFCBOTTR EQU INFMJFCB+67 02320000 JFCBUFOF EQU JFCBOTTR 02321000 JFCBFLSQ EQU JFCBOTTR+1 02322000 JFCFUNC EQU JFCBFLSQ 02323000 JFCBMASK EQU INFMJFCB+72 02324000 JFCBFLG1 EQU JFCBMASK+5 02325000 JFCOPEN EQU JFCBFLG1 02326000 JFCBFLG2 EQU JFCBMASK+6 02327000 JFCDEFER EQU JFCBFLG2 02328000 JFCBIND1 EQU INFMJFCB+86 02329000 JFCPDS EQU JFCBIND1 02330000 JFCBIND2 EQU INFMJFCB+87 02331000 JFCAMPTR EQU INFMJFCB+88 02332000 JFCBUFRQ EQU JFCAMPTR 02333000 JFCBUFNO EQU JFCBUFRQ 02334000 JFCBGNCP EQU JFCAMPTR+1 02335000 JFCBHIAR EQU JFCBGNCP 02336000 JFCBFALN EQU JFCBHIAR 02337000 JFCBFTEK EQU JFCBFALN 02338000 JFCBBFTA EQU JFCBFTEK 02339000 JFCEROPT EQU INFMJFCB+92 02340000 JFCTRTCH EQU INFMJFCB+93 02341000 APCQ EQU 0 02342000 APCQIINF EQU APCQ+12 02343000 APCQSW EQU APCQ+24 02344000 APCQINT EQU APCQSW 02345000 APCQSCID EQU APCQ+25 02346000 APCQTXLN EQU APCQ+26 02347000 APCQCMND EQU APCQ+28 02348000 APCVZDX1 EQU 0 02349000 APCVZDX2 EQU 0 02350000 APCVZDWT EQU 0 02351000 APCVZDAL EQU 0 02352000 APCVZUJA EQU 0 02353000 TCBFIX EQU 0 02354000 TCBFRS EQU TCBFIX 02355000 TCB EQU 0 02356000 TCBPIE EQU TCB+4 02357000 TCBPMASK EQU TCBPIE 02358000 TCBCMP EQU TCB+16 02359000 TCBCMPF EQU TCBCMP 02360000 TCBCPP EQU TCBCMPF 02361000 TCBSTCC EQU TCBCMPF 02362000 TCBCDBL EQU TCBCMPF 02363000 TCBCWTO EQU TCBCMPF 02364000 TCBCIND EQU TCBCMPF 02365000 TCBCMSG EQU TCBCMPF 02366000 TCBTRN EQU TCB+20 02367000 TCBABF EQU TCBTRN 02368000 TCBMSS EQU TCB+24 02369000 TCBPKF EQU TCB+28 02370000 TCBFLGS EQU TCB+29 02371000 TCBFLGS1 EQU TCBFLGS 02372000 TCBFLGS2 EQU TCBFLGS+1 02373000 TCBFLGS3 EQU TCBFLGS+2 02374000 TCBFLGS4 EQU TCBFLGS+3 02375000 TCBFLGS5 EQU TCBFLGS+4 02376000 TCBABWF EQU TCBFLGS5 02377000 TCBJPQ EQU TCB+44 02378000 TCBPURGE EQU TCBJPQ 02379000 TCBGRS EQU TCB+48 02380000 TCBFSA EQU TCB+112 02381000 TCBTME EQU TCB+120 02382000 TCBJSTCB EQU TCB+124 02383000 TCBTSFLG EQU TCB+148 02384000 TCBTSTSK EQU TCBTSFLG 02385000 TCBSTAB EQU TCB+160 02386000 TCBNSTAE EQU TCBSTAB 02387000 TCBTCT EQU TCB+164 02388000 TCBTCTGF EQU TCBTCT 02389000 TCBSCNDY EQU TCB+172 02390000 TCBNDSP EQU TCBSCNDY 02391000 TCBNDSP1 EQU TCBNDSP+1 02392000 TCBNDSP2 EQU TCBNDSP+2 02393000 TCBNDSP3 EQU TCBNDSP+3 02394000 TCBJSCB EQU TCB+180 02395000 TCBRECDE EQU TCBJSCB 02396000 TCBEXT1 EQU TCB+196 02397000 TCBBITS EQU TCB+200 02398000 TCBNDSP4 EQU TCBBITS 02399000 TCBNDSP5 EQU TCBBITS+1 02400000 TCBFLGS6 EQU TCBBITS+2 02401000 TCBFLGS7 EQU TCBBITS+3 02402000 TCBDAR EQU TCB+204 02403000 TCBDARC EQU TCBDAR 02404000 TCBEXT2 EQU TCB+208 02405000 TCBXSCT EQU TCB+240 02406000 TCBXSCT1 EQU TCBXSCT 02407000 TCBFOE EQU TCB+244 02408000 TCBESTAE EQU TCB+264 02409000 TCBESTRM EQU TCBESTAE+1 02410000 TCBFBYT1 EQU TCB+276 02411000 TCBFBYT2 EQU TCB+277 02412000 TCBRV124 EQU TCB+278 02413000 TCBRV133 EQU TCB+279 02414000 TCBXTNT2 EQU 0 02415000 TCBGTF EQU TCBXTNT2 02416000 TCBTFLG EQU TCBGTF 02417000 TCBRV146 EQU TCBXTNT2+28 02418000 TCBRV155 EQU TCBXTNT2+29 02419000 TCBRV164 EQU TCBXTNT2+30 02420000 TCBRV173 EQU TCBXTNT2+31 02421000 TIOT1 EQU 0 02422000 ASCB EQU 0 02423000 ASCBSUPC EQU ASCB+16 02424000 ASCBASID EQU ASCB+36 02425000 ASCBFW1 EQU ASCB+100 02426000 ASCBRCTF EQU ASCBFW1+2 02427000 ASCBFLG1 EQU ASCBFW1+3 02428000 ASCBDSP1 EQU ASCB+114 02429000 ASCBFLG2 EQU ASCB+115 02430000 ASCBLKGP EQU ASCB+128 02431000 ASCBSRQ EQU ASCB+180 02432000 ASCBSRQ1 EQU ASCBSRQ 02433000 ASCBSRQ2 EQU ASCBSRQ+1 02434000 ASCBSRQ3 EQU ASCBSRQ+2 02435000 ASCBSRQ4 EQU ASCBSRQ+3 02436000 ASVT EQU 0 02437000 ASVTMAXU EQU ASVT+516 02438000 ASVTFRST EQU ASVT+524 02439000 ASVTENTY EQU ASVT+528 02440000 APVU EQU 0 02441000 APVUID EQU APVU 02442000 APVUSPLN EQU APVU+8 02443000 APVULEN EQU APVUSPLN+1 02444000 APVUANUM EQU APVU+12 02445000 APVUAUSE EQU APVU+3040 02446000 APVUMON EQU APVUAUSE 02447000 APIO EQU 0 02448000 APIOIOCB EQU APIO 02449000 APIOAPIO EQU APIO+200 02450000 APIOFLGS EQU APIO+248 02451000 APIOFLGA EQU APIOFLGS 02452000 APIOFLG0 EQU APIOFLGA 02453000 APIOFLG2 EQU APIOFLGA+2 02454000 APIOFLG3 EQU APIOFLGA+3 02455000 APIOFLGB EQU APIOFLGS+4 02456000 APIOFLG7 EQU APIOFLGB+3 02457000 APIOINDX EQU APIO+288 02458000 APIOSAVE EQU APIOINDX 02459000 APIOTR EQU APIO+360 02460000 APIOSIZE EQU APIO+368 02461000 APIOGMSZ EQU APIO+376 02462000 APIONBR EQU APIO+384 02463000 BIT0015X EQU 0 02464000 IN1 EQU 0 02465000 OPMASK EQU IN1+3 02466000 DCB EQU IN1+4 02467000 APCVZDAP EQU 0 02468000 APCVZDBK EQU 0 02469000 APCVZDDA EQU 0 02470000 APCVZDDQ EQU 0 02471000 APCVZDEQ EQU 0 02472000 APCVZDID EQU 0 02473000 APCVZDIO EQU 0 02474000 APCVZDIP EQU 0 02475000 APCVZDMD EQU 0 02476000 APCVZDMM EQU 0 02477000 APCVZDQR EQU 0 02478000 APCVZDRI EQU 0 02479000 APCVZDUA EQU 0 02480000 APCVZDUL EQU 0 02481000 APCVZDWI EQU 0 02482000 APCVZDX3 EQU 0 02483000 APCVZDX4 EQU 0 02484000 APCVZD10 EQU 0 02485000 APCVZD20 EQU 0 02486000 APCVZD4E EQU 0 02487000 APCVZD40 EQU 0 02488000 APCVZD41 EQU 0 02489000 APCVZD42 EQU 0 02490000 APCVZD43 EQU 0 02491000 APCVZD44 EQU 0 02492000 APCVZD45 EQU 0 02493000 APCVZD46 EQU 0 02494000 APCVZD47 EQU 0 02495000 APCVZD48 EQU 0 02496000 APCVZD49 EQU 0 02497000 APCVZD60 EQU 0 02498000 APCVZD80 EQU 0 02499000 APCVZD81 EQU 0 02500000 APCVZD82 EQU 0 02501000 APCVZD83 EQU 0 02502000 APCVZJAA EQU 0 02503000 APCVZJAD EQU 0 02504000 APCVZJAG EQU 0 02505000 APCVZJAJ EQU 0 02506000 APCVZJAM EQU 0 02507000 APCVZJAP EQU 0 02508000 APCVZJAX EQU 0 02509000 APCVZJAY EQU 0 02510000 APCVZJBA EQU 0 02511000 APCVZJBD EQU 0 02512000 APCVZJBG EQU 0 02513000 APCVZJBJ EQU 0 02514000 APCVZJBM EQU 0 02515000 APCVZJDA EQU 0 02516000 APCVZJDD EQU 0 02517000 APCVZJDG EQU 0 02518000 APCVZJDJ EQU 0 02519000 APCVZJDM EQU 0 02520000 APCVZJHC EQU 0 02521000 APCVZJHE EQU 0 02522000 APCVZJHF EQU 0 02523000 APCVZJHO EQU 0 02524000 APCVZJHQ EQU 0 02525000 APCVZJHR EQU 0 02526000 APCVZJHT EQU 0 02527000 APCVZJHW EQU 0 02528000 APCVZJH0 EQU 0 02529000 APCVZJH6 EQU 0 02530000 APCVZJI0 EQU 0 02531000 APCVZJI3 EQU 0 02532000 APCVZJJ0 EQU 0 02533000 APCVZKAA EQU 0 02534000 APCVZKBA EQU 0 02535000 APCVZKBB EQU 0 02536000 APCVZKBC EQU 0 02537000 APCVZKBD EQU 0 02538000 APCVZKBE EQU 0 02539000 APCVZKBF EQU 0 02540000 APCVZKCA EQU 0 02541000 APCVZKDA EQU 0 02542000 APCVZKGA EQU 0 02543000 APCVZKGB EQU 0 02544000 APCVZKGC EQU 0 02545000 APCVZKGD EQU 0 02546000 APCVZLCA EQU 0 02547000 APCVZLCB EQU 0 02548000 APCVZMBA EQU 0 02549000 APCVZMBD EQU 0 02550000 APCVZMBG EQU 0 02551000 APCVZMBH EQU 0 02552000 APCVZMBK EQU 0 02553000 APCVZMBM EQU 0 02554000 APCVZMIB EQU 0 02555000 APCVZMIC EQU 0 02556000 APCVZMIF EQU 0 02557000 APCVZMJB EQU 0 02558000 APCVZMJC EQU 0 02559000 APCVZMJH EQU 0 02560000 APCVZMJI EQU 0 02561000 APCVZMMA EQU 0 02562000 APCVZUAA EQU 0 02563000 APCVZUAB EQU 0 02564000 APCVZUAC EQU 0 02565000 APCVZUAD EQU 0 02566000 APCVZUAE EQU 0 02567000 APCVZUAF EQU 0 02568000 APCVZUAG EQU 0 02569000 APCVZUBB EQU 0 02570000 APCVZUFA EQU 0 02571000 APCVZUHA EQU 0 02572000 APCVZUHB EQU 0 02573000 APCVZUKA EQU 0 02574000 APCV1CMD EQU 0 02575000 APCV1JAA EQU 0 02576000 APCV1JBJ EQU 0 02577000 APCV1JHC EQU 0 02578000 APCV1JHL EQU 0 02579000 APCV1JHT EQU 0 02580000 APCV1MAB EQU 0 02581000 APCV1MBD EQU 0 02582000 APCV2JHC EQU 0 02583000 APCV2JHL EQU 0 02584000 APCV2MBD EQU 0 02585000 I001C EQU 0 02586000 I008P EQU 0 02587000 I015F EQU 0 02588000 I015P EQU 0 02589000 I031F EQU 0 02590000 I031P EQU 0 02591000 I256C EQU 0 02592000 UCBBGN EQU 0 02593000 UCM2PTR EQU 0 02594000 INPARM1 EQU 0 02595000 CVTPTR EQU FLCCVT 02596000 UCMBASPT EQU CVTCUCB 02597000 UCMMCSPT EQU UCMPRFXP 02598000 UCMDVEPT EQU UCMMCENT 02599000 UCMIECBA EQU UCMRECBA+4 02600000 APCTZ EQU APCTZ@@@ 02601000 APCTZUAA EQU APCTZ 02602000 APCTZUAB EQU APCTZ+4 02603000 APCTZUAC EQU APCTZ+8 02604000 APCTZUAD EQU APCTZ+12 02605000 APCTZUAE EQU APCTZ+16 02606000 APCTZUBB EQU APCTZ+24 02607000 APCTZD10 EQU APCTZ+28 02608000 APCTZD20 EQU APCTZ+32 02609000 APCTZD40 EQU APCTZ+36 02610000 APCTZD41 EQU APCTZ+40 02611000 APCTZD42 EQU APCTZ+44 02612000 APCTZD43 EQU APCTZ+48 02613000 APCTZD44 EQU APCTZ+52 02614000 APCTZD45 EQU APCTZ+56 02615000 APCTZD46 EQU APCTZ+60 02616000 APCTZD47 EQU APCTZ+64 02617000 APCTZD48 EQU APCTZ+68 02618000 APCTZD49 EQU APCTZ+72 02619000 APCTZD60 EQU APCTZ+76 02620000 APCTZD80 EQU APCTZ+80 02621000 APCTZD4E EQU APCTZ+84 02622000 APCTZMBA EQU APCTZ+88 02623000 APCTZMBD EQU APCTZ+92 02624000 APCTZMBG EQU APCTZ+96 02625000 APCTZDX1 EQU APCTZ+104 02626000 APCTZDX2 EQU APCTZ+108 02627000 APCTZDX3 EQU APCTZ+112 02628000 APCTZDX4 EQU APCTZ+116 02629000 APCTZMBH EQU APCTZ+120 02630000 APCTZMBK EQU APCTZ+124 02631000 APCTZMBM EQU APCTZ+128 02632000 APCTZMJB EQU APCTZ+132 02633000 APCTZMJC EQU APCTZ+136 02634000 APCTZMJH EQU APCTZ+140 02635000 APCTZMMA EQU APCTZ+144 02636000 APCTZDMD EQU APCTZ+148 02637000 APCTZD81 EQU APCTZ+152 02638000 APCTZDID EQU APCTZ+156 02639000 APCTZDRI EQU APCTZ+160 02640000 APCTZMJI EQU APCTZ+164 02641000 APCTZDWT EQU APCTZ+168 02642000 APCTZDMM EQU APCTZ+172 02643000 APCTZDAL EQU APCTZ+176 02644000 APCTZDBK EQU APCTZ+180 02645000 APCTZDIP EQU APCTZ+184 02646000 APCTZDDA EQU APCTZ+188 02647000 APCTZDUL EQU APCTZ+192 02648000 APCTZDEQ EQU APCTZ+196 02649000 APCTZDDQ EQU APCTZ+200 02650000 APCTZDUA EQU APCTZ+204 02651000 APCTZUAF EQU APCTZ+208 02652000 APCTZUAG EQU APCTZ+212 02653000 APCTZDIO EQU APCTZ+216 02654000 APCTZUHA EQU APCTZ+220 02655000 APCTZUHB EQU APCTZ+224 02656000 APCTZJAA EQU APCTZ+232 02657000 APCTZJAD EQU APCTZ+236 02658000 APCTZJAG EQU APCTZ+240 02659000 APCTZJAJ EQU APCTZ+244 02660000 APCTZJAM EQU APCTZ+248 02661000 APCTZJAP EQU APCTZ+252 02662000 APCTZJAY EQU APCTZ+256 02663000 APCTZUFA EQU APCTZ+260 02664000 APCTZUJA EQU APCTZ+264 02665000 APCTZDAP EQU APCTZ+268 02666000 APCTZKAA EQU APCTZ+272 02667000 APCTZD82 EQU APCTZ+276 02668000 APCTZMIB EQU APCTZ+280 02669000 APCTZMIC EQU APCTZ+284 02670000 APCTZD83 EQU APCTZ+288 02671000 APCTZMIF EQU APCTZ+296 02672000 APCTZJH0 EQU APCTZ+300 02673000 APCTZJI0 EQU APCTZ+304 02674000 APCTZJI3 EQU APCTZ+308 02675000 APCTZJJ0 EQU APCTZ+312 02676000 APCTZJBA EQU APCTZ+316 02677000 APCTZJBD EQU APCTZ+320 02678000 APCTZJBG EQU APCTZ+324 02679000 APCTZJBJ EQU APCTZ+328 02680000 APCTZJBM EQU APCTZ+332 02681000 APCTZKCA EQU APCTZ+340 02682000 APCTZKDA EQU APCTZ+344 02683000 APCTZJDA EQU APCTZ+356 02684000 APCTZJDJ EQU APCTZ+360 02685000 APCTZJH6 EQU APCTZ+364 02686000 APCTZJHO EQU APCTZ+368 02687000 APCTZJHF EQU APCTZ+372 02688000 APCTZJHE EQU APCTZ+376 02689000 APCTZDQR EQU APCTZ+380 02690000 APCTZJHR EQU APCTZ+384 02691000 APCTZJHT EQU APCTZ+388 02692000 APCTZJHW EQU APCTZ+392 02693000 APCTZ1 EQU APCTZ@@1 02694000 APCTZKBA EQU APCTZ1 02695000 APCTZKBC EQU APCTZ1+4 02696000 APCTZKBB EQU APCTZ1+8 02697000 APCTZJHC EQU APCTZ1+20 02698000 APCTZJHQ EQU APCTZ1+24 02699000 APCTZKBD EQU APCTZ1+28 02700000 APCTZKBE EQU APCTZ1+40 02701000 APCTZUKA EQU APCTZ1+56 02702000 APCTZKBF EQU APCTZ1+60 02703000 APCTZJDD EQU APCTZ1+64 02704000 APCTZJDG EQU APCTZ1+68 02705000 APCTZJDM EQU APCTZ1+72 02706000 APCTZLCA EQU APCTZ1+76 02707000 APCTZLCB EQU APCTZ1+80 02708000 APCTZDWI EQU APCTZ1+84 02709000 APCTZJAX EQU APCTZ1+88 02710000 APCTZKGA EQU APCTZ1+92 02711000 APCTZKGB EQU APCTZ1+96 02712000 APCTZKGC EQU APCTZ1+100 02713000 APCTZKGD EQU APCTZ1+104 02714000 APCTU EQU APCTU@@@ 02715000 APCT1MAB EQU APCTU 02716000 APCT1MBD EQU APCTU+4 02717000 APCT2MBD EQU APCTU+8 02718000 APCT1CMD EQU APCTU+12 02719000 APCT1JAA EQU APCTU+20 02720000 APCT1JHC EQU APCTU+24 02721000 APCT2JHC EQU APCTU+28 02722000 APCT1JHT EQU APCTU+32 02723000 APCT1JHL EQU APCTU+36 02724000 APCT2JHL EQU APCTU+40 02725000 APCT1JBJ EQU APCTU+44 02726000 UCBOBS01 EQU UCBDEV 02727000 UCBSTAB EQU UCBOBS01+10 02728000 UCBBSVL EQU UCBSTAB 02729000 UCBPRSRS EQU UCBSTAB 02730000 UCBDMCT EQU UCBOBS01+11 02731000 UCBFL4 EQU UCBOBS01+13 02732000 UCBOBS02 EQU UCBDEV 02733000 UCBTFL1 EQU UCBOBS02+19 02734000 UCBXTN EQU UCBOBS02+20 02735000 UCBVOPT EQU UCBXTN 02736000 UCBOBS03 EQU UCBDEV 02737000 UCBXTADR EQU UCBOBS03 02738000 UCBOBS04 EQU UCBDEV 02739000 UCBBTA EQU UCBOBS04+12 02740000 UCBOBS06 EQU UCBDEV 02741000 UCBAOF EQU UCBOBS06 02742000 UCBAOF1 EQU UCBAOF 02743000 UCBAOF2 EQU UCBAOF+1 02744000 @NM00077 EQU UCBOBS06+3 02745000 UCBIRB EQU UCBOBS06+4 02746000 UCBGRAF EQU UCBIRB 02747000 UCBLDNCA EQU UCBOBS06+8 02748000 UCBRDYQ EQU UCBLDNCA 02749000 UCBIRLN EQU UCBRDYQ 02750000 UCBLDNCB EQU UCBRDYQ+1 02751000 UCBCTLNK EQU UCBOBS06+12 02752000 UCBOBS07 EQU UCBDEV 02753000 UCBOBS08 EQU UCBDEV 02754000 UCBCTCAD EQU UCBOBS08 02755000 UCBCTCF1 EQU UCBOBS08+4 02756000 UCBOBS09 EQU UCBDEV 02757000 CVTS01 EQU CVTPGSIA 02758000 CVTLPDIA EQU CVTS01+12 02759000 CVTDIRST EQU CVTLPDIA 02760000 CVTSLIDA EQU CVTS01+24 02761000 CVTCTLFG EQU CVTS01+50 02762000 CVTASVT EQU CVTS01+208 02763000 CVTRV210 EQU CVTS01+424 02764000 CVTRV219 EQU CVTS01+425 02765000 CVTRV228 EQU CVTS01+426 02766000 CVTRV237 EQU CVTS01+427 02767000 CVTMFRTR EQU CVTS01+452 02768000 CVTRV262 EQU CVTS01+468 02769000 CVTRV271 EQU CVTS01+469 02770000 CVTRV280 EQU CVTS01+470 02771000 CVTRV289 EQU CVTS01+471 02772000 CVTGSDA EQU CVTS01+600 02773000 JFCKEYLE EQU JFCTRTCH 02774000 JFCCODE EQU JFCKEYLE 02775000 JFCSTACK EQU JFCTRTCH 02776000 JFCMODE EQU JFCSTACK 02777000 JFCSPPRT EQU JFCTRTCH 02778000 JFCBABFS EQU JFCSPPRT+2 02779000 JFCLIMCT EQU JFCBABFS 02780000 JFCDSORG EQU JFCSPPRT+5 02781000 JFCDSRG1 EQU JFCDSORG 02782000 JFCDSRG2 EQU JFCDSORG+1 02783000 JFCRECFM EQU JFCSPPRT+7 02784000 JFCRCFM EQU JFCRECFM 02785000 JFCOPTCD EQU JFCSPPRT+8 02786000 JFCWVCSP EQU JFCOPTCD 02787000 JFCWVCIS EQU JFCWVCSP 02788000 JFCWVCBD EQU JFCWVCIS 02789000 JFCALLOW EQU JFCOPTCD 02790000 JFCRSV17 EQU JFCALLOW 02791000 JFCOVER EQU JFCRSV17 02792000 JFCPCIBT EQU JFCOPTCD 02793000 JFCMAST EQU JFCPCIBT 02794000 JFCEXT EQU JFCMAST 02795000 JFCBCKPT EQU JFCOPTCD 02796000 JFCIND EQU JFCBCKPT 02797000 JFCRSV18 EQU JFCOPTCD 02798000 JFCCYL EQU JFCRSV18 02799000 JFCACT EQU JFCCYL 02800000 JFCREDUC EQU JFCOPTCD 02801000 JFCRSV19 EQU JFCREDUC 02802000 JFCRSV20 EQU JFCRSV19 02803000 JFCRSV21 EQU JFCOPTCD 02804000 JFCDEL EQU JFCRSV21 02805000 JFCOPTJ EQU JFCOPTCD 02806000 JFCREORG EQU JFCOPTJ 02807000 JFCBLKSI EQU JFCSPPRT+9 02808000 JFCBUFSI EQU JFCBLKSI 02809000 JFCAMSYN EQU JFCSPPRT+11 02810000 JFCNCP EQU JFCAMSYN+2 02811000 JFCNTM EQU JFCAMSYN+3 02812000 JFCBFSEQ EQU JFCNTM 02813000 JFCPCI EQU JFCBFSEQ 02814000 JFCRESRV EQU JFCAMSYN+4 02815000 JFCUCSEG EQU JFCRESRV 02816000 JFCUCSOP EQU JFCUCSEG+4 02817000 JFCOUTLI EQU JFCUCSEG+5 02818000 JFCTHRSH EQU JFCOUTLI 02819000 JFCCPRI EQU JFCTHRSH 02820000 JFCBVOLS EQU JFCUCSEG+10 02821000 JFCBS001 EQU JFCBVOLS 02822000 JFCBPQTY EQU JFCBS001+34 02823000 JFCBCTRI EQU JFCBS001+37 02824000 JFCBSQTY EQU JFCBS001+38 02825000 JFCFLGS1 EQU JFCBS001+41 02826000 JFCBSPNM EQU JFCBS001+45 02827000 JFCBFLG3 EQU JFCBSPNM 02828000 PSARSVTE EQU PSARSVT 02829000 TIOENTRY EQU TIOT1+24 02830000 TIOESTTA EQU TIOENTRY+1 02831000 TIOERLOC EQU TIOENTRY+2 02832000 TIOELINK EQU TIOERLOC+1 02833000 TIOESYOT EQU TIOELINK 02834000 TIOESTTC EQU TIOENTRY+15 02835000 TIOESTTB EQU TIOENTRY+16 02836000 POOLSTAR EQU TIOENTRY+20 02837000 TIOEDEVE EQU TIOESTTB 02838000 TIOSTTB EQU TIOEDEVE 02839000 @NM00158 EQU APIOIOCB 02840000 @NM00159 EQU APIOIOCB 02841000 FLC EQU PSA 02842000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02843000 APIOIOB EQU @NM00159+160 02844000 @NM00160 EQU @NM00159 02845000 APIOSRB EQU @NM00158+128 02846000 APIOIOSB EQU @NM00158 02847000 TIOUCBP EQU TIOEDEVE+1 02848000 TIOVERF EQU TIOSTTB 02849000 TIOUNLD EQU TIOSTTB 02850000 TIOMNTD EQU TIOSTTB 02851000 TIOSETU EQU TIOSTTB 02852000 TIOVLSR EQU TIOSTTB 02853000 TIOPVIO EQU TIOSTTB 02854000 TIOREQD EQU TIOSTTB 02855000 TIOUSED EQU TIOSTTB 02856000 TIOTFEND EQU POOLSTAR+16 02857000 TIOPSLOT EQU POOLSTAR+13 02858000 TIOPSTTB EQU POOLSTAR+12 02859000 TIOPPOOL EQU POOLSTAR+4 02860000 TIOPNSRT EQU POOLSTAR+3 02861000 @NM00145 EQU POOLSTAR+2 02862000 TIOPNSLT EQU POOLSTAR+1 02863000 @NM00144 EQU POOLSTAR 02864000 TIOEFSRT EQU TIOENTRY+17 02865000 TIOSVERF EQU TIOESTTB 02866000 TIOSUNLD EQU TIOESTTB 02867000 TIOSMNTD EQU TIOESTTB 02868000 TIOSSETU EQU TIOESTTB 02869000 TIOSVLSR EQU TIOESTTB 02870000 TIOSPVIO EQU TIOESTTB 02871000 TIOSREQD EQU TIOESTTB 02872000 TIOSUSED EQU TIOESTTB 02873000 TIOSBALS EQU TIOESTTC 02874000 TIOSBALP EQU TIOESTTC 02875000 TIOSVOLS EQU TIOESTTC 02876000 TIOSVOLP EQU TIOESTTC 02877000 TIOSAFFS EQU TIOESTTC 02878000 TIOSAFFP EQU TIOESTTC 02879000 TIOSDEFR EQU TIOESTTC 02880000 TIOSDKCR EQU TIOESTTC 02881000 TIOEJFCB EQU TIOENTRY+12 02882000 TIOEDDNM EQU TIOENTRY+4 02883000 TIOTREM EQU TIOELINK 02884000 TIOESSDS EQU TIOESYOT 02885000 TIOESYIN EQU TIOELINK 02886000 TIOEQNAM EQU TIOELINK 02887000 TIOEDYNM EQU TIOELINK 02888000 TIOTTERM EQU TIOELINK 02889000 TIOTRV01 EQU TIOELINK 02890000 TIOSYOUT EQU TIOELINK 02891000 TIOEWTCT EQU TIOERLOC 02892000 TIOSDSP2 EQU TIOESTTA 02893000 TIOSDSP1 EQU TIOESTTA 02894000 TIOSLABL EQU TIOESTTA 02895000 TIOSDADS EQU TIOESTTA 02896000 TIOSJBLB EQU TIOESTTA 02897000 TIOSPLTS EQU TIOESTTA 02898000 TIOSPLTP EQU TIOESTTA 02899000 TIOSLTYP EQU TIOESTTA 02900000 TIOELNGH EQU TIOENTRY 02901000 PSARSAV EQU PSARSVTE+60 02902000 PSARSTK EQU PSARSVTE+56 02903000 PSAESAV3 EQU PSARSVTE+52 02904000 PSAESTK3 EQU PSARSVTE+48 02905000 PSAESAV2 EQU PSARSVTE+44 02906000 PSAESTK2 EQU PSARSVTE+40 02907000 PSAESAV1 EQU PSARSVTE+36 02908000 PSAESTK1 EQU PSARSVTE+32 02909000 PSAPSAV EQU PSARSVTE+28 02910000 PSAPSTK EQU PSARSVTE+24 02911000 PSAMSAV EQU PSARSVTE+20 02912000 PSAMSTK EQU PSARSVTE+16 02913000 PSASSAV EQU PSARSVTE+12 02914000 PSASSTK EQU PSARSVTE+8 02915000 PSANSTK EQU PSARSVTE+4 02916000 PSACSTK EQU PSARSVTE 02917000 JFCBEND EQU JFCBS001+58 02918000 JFCBSPTN EQU JFCBS001+57 02919000 JFCBVLCT EQU JFCBS001+56 02920000 JFCBDRLH EQU JFCBS001+53 02921000 JFCBSBNM EQU JFCBS001+50 02922000 JFCBABST EQU JFCBS001+48 02923000 JFCBRV08 EQU JFCBSPNM+1 02924000 JFCBRV07 EQU JFCBFLG3 02925000 JFCBRV06 EQU JFCBFLG3 02926000 JFCBRV05 EQU JFCBFLG3 02927000 JFCBRV04 EQU JFCBFLG3 02928000 JFCBRV03 EQU JFCBFLG3 02929000 JFCBRV02 EQU JFCBFLG3 02930000 JFCBRV01 EQU JFCBFLG3 02931000 JFCDQDSP EQU JFCBFLG3 02932000 JFCBDQTY EQU JFCBS001+42 02933000 JFCBUAFF EQU JFCFLGS1 02934000 JFCRSV45 EQU JFCFLGS1 02935000 JFCVRDS EQU JFCFLGS1 02936000 JFCBCEOV EQU JFCFLGS1 02937000 JFCBPROT EQU JFCFLGS1 02938000 JFCBADSP EQU JFCFLGS1 02939000 JFCTOPEN EQU JFCFLGS1 02940000 JFCBDLET EQU JFCFLGS1 02941000 JFCRQID EQU JFCBSQTY 02942000 JFCROUND EQU JFCBCTRI 02943000 JFCALX EQU JFCBCTRI 02944000 JFCMIXG EQU JFCBCTRI 02945000 JFCONTIG EQU JFCBCTRI 02946000 JFCRSV29 EQU JFCBCTRI 02947000 JFCBMSGP EQU JFCBCTRI 02948000 JFCBSPAC EQU JFCBCTRI 02949000 JFCRUNIT EQU JFCBPQTY 02950000 JFCBEXAD EQU JFCBS001+31 02951000 JFCBEXTL EQU JFCBS001+30 02952000 JFCMSVGP EQU JFCBS001+22 02953000 @NM00111 EQU JFCBS001 02954000 JFCAVOLS EQU JFCBVOLS 02955000 JFCBNVOL EQU JFCUCSEG+9 02956000 JFCBNTCS EQU JFCUCSEG+8 02957000 JFCSOWA EQU JFCOUTLI+1 02958000 JFCSEND EQU JFCCPRI 02959000 JFCEQUAL EQU JFCCPRI 02960000 JFCRECV EQU JFCCPRI 02961000 JFCRSV34 EQU JFCCPRI 02962000 JFCRSV33 EQU JFCCPRI 02963000 JFCRSV55 EQU JFCCPRI 02964000 JFCRSV54 EQU JFCCPRI 02965000 JFCRSV53 EQU JFCCPRI 02966000 JFCRSV27 EQU JFCUCSOP 02967000 JFCRSV26 EQU JFCUCSOP 02968000 JFCFCBVR EQU JFCUCSOP 02969000 JFCFCBAL EQU JFCUCSOP 02970000 JFCVER EQU JFCUCSOP 02971000 JFCRSV25 EQU JFCUCSOP 02972000 JFCFOLD EQU JFCUCSOP 02973000 JFCBEXTP EQU JFCUCSOP 02974000 JFCUCSID EQU JFCUCSEG 02975000 JFCINTVL EQU JFCSPPRT+19 02976000 JFCDBUFN EQU JFCRESRV+3 02977000 JFCCYLOF EQU JFCRESRV+2 02978000 JFCRKP EQU JFCRESRV 02979000 JFCPCIR2 EQU JFCPCI 02980000 JFCPCIR1 EQU JFCPCI 02981000 JFCPCIN2 EQU JFCPCI 02982000 JFCPCIN1 EQU JFCPCI 02983000 JFCPCIA2 EQU JFCPCI 02984000 JFCPCIA1 EQU JFCPCI 02985000 JFCPCIX2 EQU JFCPCI 02986000 JFCPCIX1 EQU JFCPCI 02987000 JFCBUFMX EQU JFCNCP 02988000 JFCLRECL EQU JFCAMSYN 02989000 JFCBAXBF EQU JFCBUFSI 02990000 JFCREL EQU JFCREORG 02991000 JFCRSV22 EQU JFCDEL 02992000 JFCSRCHD EQU JFCRSV20 02993000 JFCOPTQ EQU JFCACT 02994000 JFCFEED EQU JFCIND 02995000 JFCCBWU EQU JFCEXT 02996000 JFCWUMSG EQU JFCOVER 02997000 JFCSDNAM EQU JFCWVCBD 02998000 @NM00110 EQU JFCRECFM 02999000 JFCCHAR EQU JFCRECFM 03000000 JFCRFS EQU JFCRECFM 03001000 JFCRFB EQU JFCRECFM 03002000 JFCRFO EQU JFCRCFM 03003000 JFCFMREC EQU JFCRCFM 03004000 JFCRSV16 EQU JFCDSRG2 03005000 JFCRSV15 EQU JFCDSRG2 03006000 JFCORGTR EQU JFCDSRG2 03007000 JFCORGAM EQU JFCDSRG2 03008000 JFCRSV13 EQU JFCDSRG2 03009000 JFCORGTQ EQU JFCDSRG2 03010000 JFCORGTX EQU JFCDSRG2 03011000 JFCORGGS EQU JFCDSRG2 03012000 JFCORGU EQU JFCDSRG1 03013000 JFCORGPO EQU JFCDSRG1 03014000 JFCORGMQ EQU JFCDSRG1 03015000 JFCORGCQ EQU JFCDSRG1 03016000 JFCORGCX EQU JFCDSRG1 03017000 JFCORGDA EQU JFCDSRG1 03018000 JFCORGPS EQU JFCDSRG1 03019000 JFCORGIS EQU JFCDSRG1 03020000 JFCTRKBL EQU JFCLIMCT+1 03021000 @NM00109 EQU JFCLIMCT 03022000 JFCDEN EQU JFCSPPRT+1 03023000 JFCPRTSP EQU JFCSPPRT 03024000 JFCONE EQU JFCMODE 03025000 JFCTWO EQU JFCMODE 03026000 JFCRSV07 EQU JFCMODE 03027000 JFCRSV06 EQU JFCMODE 03028000 JFCMODER EQU JFCMODE 03029000 JFCMODEO EQU JFCMODE 03030000 JFCEBCD EQU JFCMODE 03031000 JFCBIN EQU JFCMODE 03032000 JFCRSV32 EQU JFCCODE 03033000 JFCTTY EQU JFCCODE 03034000 JFCASCII EQU JFCCODE 03035000 JFCNCR EQU JFCCODE 03036000 JFCBUR EQU JFCCODE 03037000 JFCFRI EQU JFCCODE 03038000 JFCBCD EQU JFCCODE 03039000 JFCNOCON EQU JFCCODE 03040000 CVTRV628 EQU CVTS01+728 03041000 CVTRV627 EQU CVTS01+724 03042000 CVTRV626 EQU CVTS01+720 03043000 CVTRV625 EQU CVTS01+716 03044000 CVTRV624 EQU CVTS01+712 03045000 CVTRV623 EQU CVTS01+708 03046000 CVTRV622 EQU CVTS01+704 03047000 CVTRV621 EQU CVTS01+700 03048000 CVTIHASU EQU CVTS01+696 03049000 CVTSUSP EQU CVTS01+692 03050000 CVTT6SVC EQU CVTS01+688 03051000 CVTCDAL EQU CVTS01+684 03052000 CVTTCTL EQU CVTS01+680 03053000 CVTRSUME EQU CVTS01+676 03054000 CVTJTERM EQU CVTS01+672 03055000 CVTASMRM EQU CVTS01+668 03056000 CVTTCASP EQU CVTS01+664 03057000 CVT0PT03 EQU CVTS01+660 03058000 CVT0PT0E EQU CVTS01+656 03059000 CVTRV609 EQU CVTS01+652 03060000 CVTCGK EQU CVTS01+648 03061000 CVTRAC EQU CVTS01+644 03062000 CVTRV606 EQU CVTS01+640 03063000 CVTRV605 EQU CVTS01+636 03064000 CVTRV604 EQU CVTS01+632 03065000 CVTEFF02 EQU CVTS01+628 03066000 CVTCBBR EQU CVTS01+624 03067000 CVTSSCR EQU CVTS01+620 03068000 CVTEVENT EQU CVTS01+616 03069000 CVTCRCA EQU CVTS01+612 03070000 CVTTPIO EQU CVTS01+608 03071000 CVTADV EQU CVTS01+604 03072000 CVTGSDAB EQU CVTGSDA 03073000 CVTQV3 EQU CVTS01+596 03074000 CVTQV2 EQU CVTS01+592 03075000 CVTQV1 EQU CVTS01+588 03076000 CVTRPT EQU CVTS01+584 03077000 CVTSSRB EQU CVTS01+580 03078000 CVTCSDRL EQU CVTS01+576 03079000 CVTEXP1 EQU CVTS01+572 03080000 CVTRMPMT EQU CVTS01+568 03081000 CVTRMPTT EQU CVTS01+564 03082000 CVTVPSA EQU CVTS01+560 03083000 CVTVSTOP EQU CVTS01+556 03084000 CVTGTFR8 EQU CVTS01+552 03085000 CVTQUIT EQU CVTS01+548 03086000 CVTVACR EQU CVTS01+544 03087000 CVTWTCB EQU CVTS01+540 03088000 CVTSTPRS EQU CVTS01+536 03089000 CVT0PT02 EQU CVTS01+532 03090000 CVTDARCM EQU CVTS01+528 03091000 CVTIRECM EQU CVTS01+524 03092000 CVTJRECM EQU CVTS01+520 03093000 CVTVEMS0 EQU CVTS01+516 03094000 CVTSPFRR EQU CVTS01+512 03095000 CVTRLSTG EQU CVTS01+508 03096000 CVT0TC0A EQU CVTS01+504 03097000 CVTGMBR EQU CVTS01+500 03098000 CVTLFRM EQU CVTS01+496 03099000 CVTRMBR EQU CVTS01+492 03100000 CVTVIOP EQU CVTS01+488 03101000 CVTRV307 EQU CVTS01+486 03102000 CVTRV306 EQU CVTS01+484 03103000 CVTRV305 EQU CVTS01+482 03104000 CVTRV304 EQU CVTS01+480 03105000 CVTRV303 EQU CVTS01+478 03106000 CVTRV302 EQU CVTS01+476 03107000 CVTTRCA EQU CVTS01+472 03108000 CVTRV297 EQU CVTRV289 03109000 CVTRV296 EQU CVTRV289 03110000 CVTRV295 EQU CVTRV289 03111000 CVTRV294 EQU CVTRV289 03112000 CVTRV293 EQU CVTRV289 03113000 CVTRV292 EQU CVTRV289 03114000 CVTRV291 EQU CVTRV289 03115000 CVTRV290 EQU CVTRV289 03116000 CVTRV288 EQU CVTRV280 03117000 CVTRV287 EQU CVTRV280 03118000 CVTRV286 EQU CVTRV280 03119000 CVTRV285 EQU CVTRV280 03120000 CVTRV284 EQU CVTRV280 03121000 CVTRV283 EQU CVTRV280 03122000 CVTRV282 EQU CVTRV280 03123000 CVTRV281 EQU CVTRV280 03124000 CVTRV279 EQU CVTRV271 03125000 CVTRV278 EQU CVTRV271 03126000 CVTRV277 EQU CVTRV271 03127000 CVTRV276 EQU CVTRV271 03128000 CVTRV275 EQU CVTRV271 03129000 CVTRV274 EQU CVTRV271 03130000 CVTRV273 EQU CVTRV271 03131000 CVTRV272 EQU CVTRV271 03132000 CVTRV270 EQU CVTRV262 03133000 CVTRV269 EQU CVTRV262 03134000 CVTRV268 EQU CVTRV262 03135000 CVTRV267 EQU CVTRV262 03136000 CVTRV266 EQU CVTRV262 03137000 CVTRV265 EQU CVTRV262 03138000 CVTRV264 EQU CVTRV262 03139000 CVTRV263 EQU CVTRV262 03140000 CVTVFP EQU CVTS01+464 03141000 CVTVSI EQU CVTS01+460 03142000 CVTVPSIB EQU CVTS01+456 03143000 CVTMFACT EQU CVTMFRTR 03144000 CVTMFCTL EQU CVTS01+448 03145000 CVTPVBP EQU CVTS01+444 03146000 CVTPWI EQU CVTS01+440 03147000 CVTRV254 EQU CVTS01+438 03148000 CVTRV253 EQU CVTS01+436 03149000 CVTRV252 EQU CVTS01+434 03150000 CVTRV251 EQU CVTS01+433 03151000 CVTRV250 EQU CVTS01+432 03152000 CVTRV249 EQU CVTS01+431 03153000 CVTRV248 EQU CVTS01+430 03154000 CVTRV247 EQU CVTS01+429 03155000 CVTRV246 EQU CVTS01+428 03156000 CVTRV245 EQU CVTRV237 03157000 CVTRV244 EQU CVTRV237 03158000 CVTRV243 EQU CVTRV237 03159000 CVTRV242 EQU CVTRV237 03160000 CVTRV241 EQU CVTRV237 03161000 CVTRV240 EQU CVTRV237 03162000 CVTRV239 EQU CVTRV237 03163000 CVTRV238 EQU CVTRV237 03164000 CVTRV236 EQU CVTRV228 03165000 CVTRV235 EQU CVTRV228 03166000 CVTRV234 EQU CVTRV228 03167000 CVTRV233 EQU CVTRV228 03168000 CVTRV232 EQU CVTRV228 03169000 CVTRV231 EQU CVTRV228 03170000 CVTRV230 EQU CVTRV228 03171000 CVTRV229 EQU CVTRV228 03172000 CVTRV227 EQU CVTRV219 03173000 CVTRV226 EQU CVTRV219 03174000 CVTRV225 EQU CVTRV219 03175000 CVTRV224 EQU CVTRV219 03176000 CVTRV223 EQU CVTRV219 03177000 CVTRV222 EQU CVTRV219 03178000 CVTRV221 EQU CVTRV219 03179000 CVTRV220 EQU CVTRV219 03180000 CVTRV218 EQU CVTRV210 03181000 CVTRV217 EQU CVTRV210 03182000 CVTRV216 EQU CVTRV210 03183000 CVTRV215 EQU CVTRV210 03184000 CVTRV214 EQU CVTRV210 03185000 CVTRV213 EQU CVTRV210 03186000 CVTRV212 EQU CVTRV210 03187000 CVTRV211 EQU CVTRV210 03188000 CVTLCCAT EQU CVTS01+420 03189000 CVTPCCAT EQU CVTS01+416 03190000 CVTIPCRP EQU CVTS01+412 03191000 CVTIPCRI EQU CVTS01+408 03192000 CVTIPCDS EQU CVTS01+404 03193000 CVTAIDVT EQU CVTS01+400 03194000 CVTSSAP EQU CVTS01+396 03195000 CVTEHCIR EQU CVTS01+392 03196000 CVTEHDEF EQU CVTS01+388 03197000 CVTDAIR EQU CVTS01+384 03198000 CVTPERFM EQU CVTS01+380 03199000 CVT044R2 EQU CVTS01+376 03200000 CVTFETCH EQU CVTS01+372 03201000 CVTRSTWD EQU CVTS01+368 03202000 CVTSPOST EQU CVTS01+364 03203000 CVTIOBP EQU CVTS01+360 03204000 CVTASMVT EQU CVTS01+356 03205000 CVTRECRQ EQU CVTS01+352 03206000 CVTWSAC EQU CVTS01+348 03207000 CVTRV149 EQU CVTS01+344 03208000 CVTWSAL EQU CVTS01+340 03209000 CVTSPSA EQU CVTS01+336 03210000 CVTGLMN EQU CVTS01+332 03211000 CVTVEAC0 EQU CVTS01+328 03212000 CVT062R1 EQU CVTS01+324 03213000 CVTRPOST EQU CVTS01+320 03214000 CVTDQIQE EQU CVTS01+316 03215000 CVTCSD EQU CVTS01+312 03216000 CVTLKRMA EQU CVTS01+308 03217000 CVTRSPIE EQU CVTS01+304 03218000 CVTRENQ EQU CVTS01+300 03219000 CVTLQCB EQU CVTS01+296 03220000 CVTFQCB EQU CVTS01+292 03221000 CVTQCS01 EQU CVTS01+288 03222000 CVTAPFT EQU CVTS01+284 03223000 CVTPARRL EQU CVTS01+280 03224000 CVTVWAIT EQU CVTS01+276 03225000 CVTGSPL EQU CVTS01+272 03226000 CVTLSMQ EQU CVTS01+268 03227000 CVTGSMQ EQU CVTS01+264 03228000 CVTEXPRO EQU CVTS01+260 03229000 CVTOPCTP EQU CVTS01+256 03230000 CVTSIC EQU CVTS01+252 03231000 CVTTPIOS EQU CVTS01+248 03232000 CVTRTMS EQU CVTS01+244 03233000 CVTSDBF EQU CVTS01+240 03234000 CVTSCBP EQU CVTS01+236 03235000 CVTSDMP EQU CVTS01+232 03236000 CVTSV60 EQU CVTS01+228 03237000 CVTRTMCT EQU CVTS01+224 03238000 CVTASCBL EQU CVTS01+220 03239000 CVTASCBH EQU CVTS01+216 03240000 CVTGDA EQU CVTS01+212 03241000 CVTVVMDI EQU CVTS01+204 03242000 CVTAQTOP EQU CVTS01+200 03243000 CVTIOSCS EQU CVTS01+196 03244000 CVTSDRM EQU CVTS01+192 03245000 CVTOPTE EQU CVTS01+188 03246000 CVTSTXU EQU CVTS01+184 03247000 CVTQUIS EQU CVTS01+180 03248000 CVTPARS EQU CVTS01+176 03249000 CVTS1EE EQU CVTS01+172 03250000 CVTFRAS EQU CVTS01+168 03251000 CVTQSAS EQU CVTS01+164 03252000 CVTCRAS EQU CVTS01+160 03253000 CVTCRMN EQU CVTS01+156 03254000 CVTDELCP EQU CVTS01+152 03255000 CVTFRECL EQU CVTS01+148 03256000 CVTGETCL EQU CVTS01+144 03257000 CVTBLDCP EQU CVTS01+140 03258000 CVTAUTHL EQU CVTS01+136 03259000 CVTSCAN EQU CVTS01+132 03260000 CVTRV144 EQU CVTS01+130 03261000 CVTMAXMP EQU CVTS01+128 03262000 CVTSTCK EQU CVTS01+124 03263000 CVTRV139 EQU CVTS01+123 03264000 CVTDSSAC EQU CVTS01+122 03265000 CVTRV513 EQU CVTS01+121 03266000 CVTIOSPL EQU CVTS01+120 03267000 CVTPTGT EQU CVTS01+116 03268000 CVTCSPIE EQU CVTS01+112 03269000 CVTSMFEX EQU CVTS01+108 03270000 CVTOLT0A EQU CVTS01+104 03271000 CVTSRBRT EQU CVTS01+100 03272000 CVTPUTL EQU CVTS01+96 03273000 CVTASCRL EQU CVTS01+92 03274000 CVTASCRF EQU CVTS01+88 03275000 CVTRV326 EQU CVTS01+84 03276000 CVTRV325 EQU CVTS01+80 03277000 CVTRV324 EQU CVTS01+76 03278000 CVT0VL01 EQU CVTS01+72 03279000 CVTSHRVM EQU CVTS01+68 03280000 CVTRV332 EQU CVTS01+64 03281000 CVTTAS EQU CVTS01+60 03282000 CVTRSCN EQU CVTS01+56 03283000 CVTTRAC2 EQU CVTS01+54 03284000 CVTTRACE EQU CVTS01+52 03285000 CVTAPG EQU CVTS01+51 03286000 CVTSDTRC EQU CVTCTLFG 03287000 CVTGTRCE EQU CVTCTLFG 03288000 CVTNOMP EQU CVTCTLFG 03289000 CVTRSV79 EQU CVTCTLFG 03290000 CVTDSTAT EQU CVTCTLFG 03291000 CVTRSV78 EQU CVTCTLFG 03292000 CVTRV333 EQU CVTCTLFG 03293000 CVTRV323 EQU CVTCTLFG 03294000 CVTSPVLK EQU CVTS01+49 03295000 CVTRSV77 EQU CVTS01+48 03296000 CVTRV331 EQU CVTS01+44 03297000 CVTRV330 EQU CVTS01+40 03298000 CVTRV329 EQU CVTS01+36 03299000 CVTRV328 EQU CVTS01+32 03300000 CVTRV322 EQU CVTS01+28 03301000 CVTSLID EQU CVTSLIDA+1 03302000 CVTSYLK EQU CVTSLIDA 03303000 CVTRV321 EQU CVTS01+20 03304000 CVTRV320 EQU CVTS01+16 03305000 CVTLPDIR EQU CVTLPDIA+1 03306000 CVTRSV69 EQU CVTDIRST 03307000 CVTRSV68 EQU CVTDIRST 03308000 CVTRSV67 EQU CVTDIRST 03309000 CVTRSV66 EQU CVTDIRST 03310000 CVTRSV65 EQU CVTDIRST 03311000 CVTRSV64 EQU CVTDIRST 03312000 CVTRSV63 EQU CVTDIRST 03313000 CVTDICOM EQU CVTDIRST 03314000 CVTPVTP EQU CVTS01+8 03315000 CVTLPDSR EQU CVTS01+4 03316000 CVTGETL EQU CVTS01 03317000 UCBRV066 EQU UCBOBS09+4 03318000 UCBIOSBA EQU UCBOBS09 03319000 UCBRV042 EQU UCBOBS08+5 03320000 UCBRV082 EQU UCBCTCF1 03321000 UCBRV081 EQU UCBCTCF1 03322000 UCBRV080 EQU UCBCTCF1 03323000 UCBRV079 EQU UCBCTCF1 03324000 UCBRV078 EQU UCBCTCF1 03325000 UCBRV077 EQU UCBCTCF1 03326000 UCBRV076 EQU UCBCTCF1 03327000 UCBCTC80 EQU UCBCTCF1 03328000 UCBCTCAL EQU UCBCTCAD 03329000 UCBICNCB EQU UCBOBS07+4 03330000 UCBRV040 EQU UCBOBS07 03331000 UCBCTLNA EQU UCBCTLNK+1 03332000 UCBRLN EQU UCBCTLNK 03333000 UCBRDYQA EQU UCBLDNCB 03334000 UCBINRLN EQU UCBIRLN 03335000 UCBIRBA EQU UCBIRB+1 03336000 UCBRV039 EQU UCBGRAF 03337000 UCBDWNR EQU UCBGRAF 03338000 UCBRPND EQU UCBGRAF 03339000 UCBUPM EQU UCBGRAF 03340000 UCBBTAM EQU UCBGRAF 03341000 UCBDRNO EQU UCBGRAF 03342000 UCBDRO EQU UCBGRAF 03343000 UCBOIP EQU UCBGRAF 03344000 UCBATRCD EQU @NM00077 03345000 UCBSKPFG EQU @NM00077 03346000 UCBRIPND EQU @NM00077 03347000 UCBRTIAC EQU @NM00077 03348000 UCBRSV79 EQU @NM00077 03349000 UCBRSV78 EQU @NM00077 03350000 UCBRSV77 EQU @NM00077 03351000 UCBOLTEP EQU @NM00077 03352000 UCBATNCT EQU UCBOBS06+2 03353000 UCBRSV76 EQU UCBAOF2 03354000 UCBRSV75 EQU UCBAOF2 03355000 UCBRSV74 EQU UCBAOF2 03356000 UCBRSV73 EQU UCBAOF2 03357000 UCBRSV72 EQU UCBAOF2 03358000 UCBRSV71 EQU UCBAOF2 03359000 UCBRSV70 EQU UCBAOF2 03360000 UCBRSV69 EQU UCBAOF2 03361000 UCBRSV68 EQU UCBAOF1 03362000 UCBRSV67 EQU UCBAOF1 03363000 UCBRSV66 EQU UCBAOF1 03364000 UCBRSV65 EQU UCBAOF1 03365000 UCBRSV64 EQU UCBAOF1 03366000 UCBOFNL EQU UCBAOF1 03367000 UCBOFSP EQU UCBAOF1 03368000 UCBOFMCR EQU UCBAOF1 03369000 UCBBTB EQU UCBBTA+1 03370000 UCBDI EQU UCBBTA 03371000 UCBSNS EQU UCBOBS04+8 03372000 UCBTEB EQU UCBOBS04+4 03373000 UCBGCB EQU UCBOBS04+3 03374000 UCBOPEN EQU UCBOBS04+2 03375000 UCBSTART EQU UCBOBS04 03376000 UCBXTNB EQU UCBXTN+1 03377000 UCBRSV22 EQU UCBVOPT 03378000 UCBRSV21 EQU UCBVOPT 03379000 UCBRSV20 EQU UCBVOPT 03380000 UCBESVE EQU UCBVOPT 03381000 UCBERPC EQU UCBVOPT 03382000 UCBESVC EQU UCBVOPT 03383000 UCBEVA EQU UCBVOPT 03384000 UCBESV EQU UCBVOPT 03385000 UCBRV009 EQU UCBTFL1 03386000 UCBRV008 EQU UCBTFL1 03387000 UCBRV007 EQU UCBTFL1 03388000 UCBRV006 EQU UCBTFL1 03389000 UCBRV005 EQU UCBTFL1 03390000 UCBDQDSP EQU UCBTFL1 03391000 UCBNSLTP EQU UCBTFL1 03392000 UCBNLTP EQU UCBTFL1 03393000 UCBRES1B EQU UCBOBS02+18 03394000 UCBFSER EQU UCBOBS02+12 03395000 @NM00076 EQU UCBOBS02+4 03396000 UCBFSEQ EQU UCBOBS02+2 03397000 UCBFSCT EQU UCBOBS02 03398000 UCBNEXP EQU UCBOBS01+20 03399000 UCBBASE EQU UCBOBS01+16 03400000 UCBRES1A EQU UCBOBS01+15 03401000 UCBUSER EQU UCBOBS01+14 03402000 UCBFL47 EQU UCBFL4 03403000 UCBMAT EQU UCBFL4 03404000 UCBHOLD EQU UCBFL4 03405000 UCBATTN EQU UCBFL4 03406000 UCBDSS EQU UCBFL4 03407000 UCBRESVP EQU UCBFL4 03408000 UCBWDAV EQU UCBFL4 03409000 UCBDAVV EQU UCBFL4 03410000 UCBSQC EQU UCBOBS01+12 03411000 UCBDATP EQU UCBOBS01+12 03412000 UCBDMC EQU UCBDMCT 03413000 UCBMOUNT EQU UCBDMCT 03414000 UCBBNUL EQU UCBSTAB 03415000 UCBSHAR EQU UCBSTAB 03416000 UCBBSTR EQU UCBSTAB 03417000 UCBBPUB EQU UCBSTAB 03418000 UCBBPRV EQU UCBSTAB 03419000 UCBBALB EQU UCBPRSRS 03420000 UCBPGFL EQU UCBSTAB 03421000 UCBDVSHR EQU UCBBSVL 03422000 UCBVOLI EQU UCBOBS01+4 03423000 UCBVTOC EQU UCBOBS01 03424000 @NM00051 EQU APCTU+48 03425000 APCT1MBM EQU APCTU+16 03426000 @NM00050 EQU APCTZ1+108 03427000 @NM00049 EQU APCTZ1+52 03428000 @NM00048 EQU APCTZ1+48 03429000 @NM00047 EQU APCTZ1+44 03430000 @NM00046 EQU APCTZ1+36 03431000 @NM00045 EQU APCTZ1+32 03432000 @NM00044 EQU APCTZ1+16 03433000 @NM00043 EQU APCTZ1+12 03434000 @NM00042 EQU APCTZ+396 03435000 @NM00041 EQU APCTZ+352 03436000 @NM00040 EQU APCTZ+348 03437000 @NM00039 EQU APCTZ+336 03438000 @NM00038 EQU APCTZ+292 03439000 APCTZJFA EQU APCTZ+228 03440000 APCTZMBR EQU APCTZ+100 03441000 @NM00037 EQU APCTZ+20 03442000 UCMIECBP EQU UCMIECBA+1 03443000 UCMIECBF EQU UCMIECBA 03444000 RECWA EQU IN1+12 03445000 EOVWA EQU IN1+8 03446000 RTCODE EQU IN1+2 03447000 SYSCODE EQU IN1 03448000 @NM00157 EQU APIO+424 03449000 @NM00156 EQU APIO+400 03450000 APIOTMEE EQU APIO+396 03451000 APIOTMES EQU APIO+392 03452000 APIOXTME EQU APIO+388 03453000 APIONBRI EQU APIONBR+2 03454000 APIONBRX EQU APIONBR 03455000 APIOAPCT EQU APIO+380 03456000 APIOGMS1 EQU APIOGMSZ+2 03457000 @NM00155 EQU APIOGMSZ+1 03458000 APIOGMSP EQU APIOGMSZ 03459000 APIOGMAD EQU APIO+372 03460000 APIOCISZ EQU APIO+370 03461000 APIORB EQU APIOTR+4 03462000 APIOTCB EQU APIOTR 03463000 APIOECB EQU APIO+356 03464000 APIOTERM EQU APIO+352 03465000 APIOASCB EQU APIO+348 03466000 APIOTCSW EQU APIOSAVE 03467000 APIOSNSE EQU APIO+256 03468000 APIOACTV EQU APIOFLG7 03469000 APIOFLG6 EQU APIOFLGB+2 03470000 APIOFLG5 EQU APIOFLGB+1 03471000 APIOFLG4 EQU APIOFLGB 03472000 @NM00154 EQU APIOFLG3 03473000 APIOPGFS EQU APIOFLG3 03474000 APIOPGIP EQU APIOFLG3 03475000 APIORSME EQU APIOFLG3 03476000 APIORET EQU APIOFLG3 03477000 APIONPST EQU APIOFLG3 03478000 APIOIOCT EQU APIOFLG3 03479000 @NM00153 EQU APIOFLG2 03480000 APIODMPT EQU APIOFLG2 03481000 APIODUMP EQU APIOFLG2 03482000 APIOCSWT EQU APIOFLG2 03483000 APIOVINX EQU APIOFLG2 03484000 APIOVSNS EQU APIOFLG2 03485000 APIOEXCL EQU APIOFLG2 03486000 APIOFLG1 EQU APIOFLGA+1 03487000 @NM00152 EQU APIOFLG0 03488000 APIOSU50 EQU APIOFLG0 03489000 APIOSYNC EQU APIOFLG0 03490000 APIOFXED EQU APIOFLG0 03491000 @NM00151 EQU APIO+246 03492000 APIOOLAP EQU APIO+244 03493000 APIOIOAP EQU APIO+240 03494000 APIORGN EQU APIO+236 03495000 APIOPGFL EQU APIO+232 03496000 APIOPGFX EQU APIO+228 03497000 APIOAPCI EQU APIO+224 03498000 APIOCCW EQU APIO+220 03499000 APIODEB EQU APIO+216 03500000 APIOAPXL EQU APIO+212 03501000 APIOVCSW EQU APIO+208 03502000 APIOAPUB EQU APIO+204 03503000 APIOUSER EQU APIO+196 03504000 APIOID EQU APIO+192 03505000 @NM00150 EQU APVU+3040 03506000 @NM00149 EQU APVUAUSE 03507000 APVUAPIO EQU APVUAUSE 03508000 APVUVUSE EQU APVUAUSE 03509000 APVUWORK EQU APVU+40 03510000 @NM00148 EQU APVU+16 03511000 @NM00147 EQU APVU+14 03512000 APVUSPNO EQU APVUSPLN 03513000 APVUUSER EQU APVU+4 03514000 ASVTEND EQU ASVT+528 03515000 ASVTAVAL EQU ASVTENTY 03516000 ASVTAVAI EQU ASVTFRST 03517000 ASVTRS00 EQU ASVT+520 03518000 ASVTASVT EQU ASVT+512 03519000 ASVTBEGN EQU ASVT+512 03520000 @NM00146 EQU ASVT 03521000 ASCBEND EQU ASCB+208 03522000 ASCBSRBT EQU ASCB+200 03523000 ASCBSWTL EQU ASCB+196 03524000 ASCBRS14 EQU ASCB+195 03525000 ASCBSMCT EQU ASCB+194 03526000 ASCBRS12 EQU ASCB+192 03527000 ASCBPCTT EQU ASCB+188 03528000 ASCBVGTT EQU ASCB+184 03529000 ASCBRV43 EQU ASCBSRQ4 03530000 ASCBRV42 EQU ASCBSRQ4 03531000 ASCBRV41 EQU ASCBSRQ4 03532000 ASCBRV40 EQU ASCBSRQ4 03533000 ASCBRV39 EQU ASCBSRQ4 03534000 ASCBRV38 EQU ASCBSRQ4 03535000 ASCBRV37 EQU ASCBSRQ4 03536000 ASCBRV36 EQU ASCBSRQ4 03537000 ASCBRV35 EQU ASCBSRQ3 03538000 ASCBRV34 EQU ASCBSRQ3 03539000 ASCBRV33 EQU ASCBSRQ3 03540000 ASCBRV32 EQU ASCBSRQ3 03541000 ASCBRV31 EQU ASCBSRQ3 03542000 ASCBRV30 EQU ASCBSRQ3 03543000 ASCBRV29 EQU ASCBSRQ3 03544000 ASCBRV28 EQU ASCBSRQ3 03545000 ASCBRV27 EQU ASCBSRQ2 03546000 ASCBRV26 EQU ASCBSRQ2 03547000 ASCBRV25 EQU ASCBSRQ2 03548000 ASCBRV24 EQU ASCBSRQ2 03549000 ASCBRV23 EQU ASCBSRQ2 03550000 ASCBRV22 EQU ASCBSRQ2 03551000 ASCBRV21 EQU ASCBSRQ2 03552000 ASCBRV20 EQU ASCBSRQ2 03553000 ASCBRV19 EQU ASCBSRQ1 03554000 ASCBRV18 EQU ASCBSRQ1 03555000 ASCBRV17 EQU ASCBSRQ1 03556000 ASCBRV16 EQU ASCBSRQ1 03557000 ASCBRV15 EQU ASCBSRQ1 03558000 ASCBRV14 EQU ASCBSRQ1 03559000 ASCBRV13 EQU ASCBSRQ1 03560000 ASCBSTA EQU ASCBSRQ1 03561000 ASCBJBNS EQU ASCB+176 03562000 ASCBJBNI EQU ASCB+172 03563000 ASCBMCC EQU ASCB+168 03564000 ASCBRTWA EQU ASCB+164 03565000 ASCBIQEA EQU ASCB+160 03566000 ASCBXMPQ EQU ASCB+156 03567000 ASCBRS01 EQU ASCB+154 03568000 ASCBFMCT EQU ASCB+152 03569000 ASCBOUXB EQU ASCB+148 03570000 ASCBOUCB EQU ASCB+144 03571000 ASCBMECB EQU ASCB+140 03572000 ASCBQECB EQU ASCB+136 03573000 ASCBLSQH EQU ASCBLKGP+4 03574000 ASCBLOCK EQU ASCBLKGP 03575000 ASCBTCBS EQU ASCB+124 03576000 ASCBNVSC EQU ASCB+122 03577000 ASCBVSC EQU ASCB+120 03578000 ASCBSRBS EQU ASCB+118 03579000 ASCBSSRB EQU ASCB+116 03580000 ASCBRV06 EQU ASCBFLG2 03581000 ASCBRV05 EQU ASCBFLG2 03582000 ASCBRV04 EQU ASCBFLG2 03583000 ASCBSNQS EQU ASCBFLG2 03584000 ASCBS2S EQU ASCBFLG2 03585000 ASCBCEXT EQU ASCBFLG2 03586000 ASCBPXMT EQU ASCBFLG2 03587000 ASCBXMPT EQU ASCBFLG2 03588000 ASCBRF07 EQU ASCBDSP1 03589000 ASCBRF06 EQU ASCBDSP1 03590000 ASCBRF05 EQU ASCBDSP1 03591000 ASCBRF04 EQU ASCBDSP1 03592000 ASCBRF03 EQU ASCBDSP1 03593000 ASCBRF02 EQU ASCBDSP1 03594000 ASCBFAIL EQU ASCBDSP1 03595000 ASCBNOQ EQU ASCBDSP1 03596000 ASCBSWCT EQU ASCB+112 03597000 ASCBASXB EQU ASCB+108 03598000 ASCBTMCH EQU ASCB+104 03599000 ASCBNSWP EQU ASCBFLG1 03600000 ASCBTYP1 EQU ASCBFLG1 03601000 ASCBSTND EQU ASCBFLG1 03602000 ASCBABNT EQU ASCBFLG1 03603000 ASCBTERM EQU ASCBFLG1 03604000 ASCBS3S EQU ASCBFLG1 03605000 ASCBCMSH EQU ASCBFLG1 03606000 ASCBTOFF EQU ASCBFLG1 03607000 ASCBRF01 EQU ASCBRCTF 03608000 ASCBTMLW EQU ASCBRCTF 03609000 ASCBOUT EQU ASCBRCTF 03610000 ASCBWAIT EQU ASCBRCTF 03611000 ASCBRV08 EQU ASCBRCTF 03612000 ASCBFQU EQU ASCBRCTF 03613000 ASCBFRS EQU ASCBRCTF 03614000 ASCBTMNO EQU ASCBRCTF 03615000 ASCBAFFN EQU ASCBFW1 03616000 ASCBDUMP EQU ASCB+96 03617000 ASCBRV44 EQU ASCB+92 03618000 ASCBUBET EQU ASCB+88 03619000 ASCBECB EQU ASCB+84 03620000 ASCBJSTL EQU ASCB+80 03621000 ASCBEWST EQU ASCB+72 03622000 ASCBEJST EQU ASCB+64 03623000 ASCBTSB EQU ASCB+60 03624000 ASCBCSCB EQU ASCB+56 03625000 ASCBRSM EQU ASCB+52 03626000 ASCBLDA EQU ASCB+48 03627000 ASCBSTOR EQU ASCB+44 03628000 ASCBDP EQU ASCB+43 03629000 ASCBRV07 EQU ASCB+42 03630000 ASCBIOSM EQU ASCB+40 03631000 ASCBSEQN EQU ASCB+38 03632000 ASCBCPUS EQU ASCB+32 03633000 ASCBSPL EQU ASCB+28 03634000 ASCBIOSP EQU ASCB+24 03635000 ASCBSYNC EQU ASCBSUPC+4 03636000 ASCBSVRB EQU ASCBSUPC 03637000 ASCBCMSF EQU ASCB+12 03638000 ASCBBWDP EQU ASCB+8 03639000 ASCBFWDP EQU ASCB+4 03640000 ASCBASCB EQU ASCB 03641000 ASCBEGIN EQU ASCB 03642000 TIOCSTEP EQU TIOT1+8 03643000 TIOCNJOB EQU TIOT1 03644000 @NM00143 EQU TCBXTNT2+32 03645000 TCBRV181 EQU TCBRV173 03646000 TCBRV180 EQU TCBRV173 03647000 TCBRV179 EQU TCBRV173 03648000 TCBRV178 EQU TCBRV173 03649000 TCBRV177 EQU TCBRV173 03650000 TCBRV176 EQU TCBRV173 03651000 TCBRV175 EQU TCBRV173 03652000 TCBRV174 EQU TCBRV173 03653000 TCBRV172 EQU TCBRV164 03654000 TCBRV171 EQU TCBRV164 03655000 TCBRV170 EQU TCBRV164 03656000 TCBRV169 EQU TCBRV164 03657000 TCBRV168 EQU TCBRV164 03658000 TCBRV167 EQU TCBRV164 03659000 TCBRV166 EQU TCBRV164 03660000 TCBRV165 EQU TCBRV164 03661000 TCBRV163 EQU TCBRV155 03662000 TCBRV162 EQU TCBRV155 03663000 TCBRV161 EQU TCBRV155 03664000 TCBRV160 EQU TCBRV155 03665000 TCBRV159 EQU TCBRV155 03666000 TCBRV158 EQU TCBRV155 03667000 TCBRV157 EQU TCBRV155 03668000 TCBRV156 EQU TCBRV155 03669000 TCBRV154 EQU TCBRV146 03670000 TCBRV153 EQU TCBRV146 03671000 TCBRV152 EQU TCBRV146 03672000 TCBRV151 EQU TCBRV146 03673000 TCBRV150 EQU TCBRV146 03674000 TCBRV149 EQU TCBRV146 03675000 TCBRV148 EQU TCBRV146 03676000 TCBRV147 EQU TCBRV146 03677000 TCBRV145 EQU TCBXTNT2+26 03678000 TCBRV144 EQU TCBXTNT2+24 03679000 TCBRV143 EQU TCBXTNT2+20 03680000 TCBRV142 EQU TCBXTNT2+16 03681000 TCBRSV49 EQU TCBXTNT2+12 03682000 TCBEVENT EQU TCBXTNT2+8 03683000 TCBRCMP EQU TCBXTNT2+5 03684000 TCBRSVAB EQU TCBXTNT2+4 03685000 TCBGTFA EQU TCBGTF+1 03686000 TCBRSV47 EQU TCBTFLG 03687000 TCBRSV46 EQU TCBTFLG 03688000 TCBRSV45 EQU TCBTFLG 03689000 TCBRSV44 EQU TCBTFLG 03690000 TCBRSV43 EQU TCBTFLG 03691000 TCBDSPIT EQU TCBTFLG 03692000 TCBERRTN EQU TCBTFLG 03693000 TCBASYNC EQU TCBTFLG 03694000 @NM00142 EQU TCB+296 03695000 TCBSVCA2 EQU TCB+292 03696000 TCBSWASA EQU TCB+288 03697000 TCBDBTB EQU TCB+284 03698000 TCBRPT EQU TCB+280 03699000 TCBRV141 EQU TCBRV133 03700000 TCBRV140 EQU TCBRV133 03701000 TCBRV139 EQU TCBRV133 03702000 TCBRV138 EQU TCBRV133 03703000 TCBRV137 EQU TCBRV133 03704000 TCBRV136 EQU TCBRV133 03705000 TCBRV135 EQU TCBRV133 03706000 TCBRV134 EQU TCBRV133 03707000 TCBRV132 EQU TCBRV124 03708000 TCBRV131 EQU TCBRV124 03709000 TCBRV130 EQU TCBRV124 03710000 TCBRV129 EQU TCBRV124 03711000 TCBRV128 EQU TCBRV124 03712000 TCBRV127 EQU TCBRV124 03713000 TCBRV126 EQU TCBRV124 03714000 TCBRV125 EQU TCBRV124 03715000 TCBRV123 EQU TCBFBYT2 03716000 TCBRV122 EQU TCBFBYT2 03717000 TCBECBNV EQU TCBFBYT2 03718000 TCBSSSYN EQU TCBFBYT2 03719000 TCBFPRAP EQU TCBFBYT2 03720000 TCBFDW EQU TCBFBYT2 03721000 TCBFMW EQU TCBFBYT2 03722000 TCBCNCB EQU TCBFBYT2 03723000 TCBLLH EQU TCBFBYT1 03724000 TCBRV113 EQU TCBFBYT1 03725000 TCBEOT EQU TCBFBYT1 03726000 TCBRTM2 EQU TCBFBYT1 03727000 TCBPGNLY EQU TCBFBYT1 03728000 TCBNDIOS EQU TCBFBYT1 03729000 TCBRV327 EQU TCBFBYT1 03730000 TCBEOTFM EQU TCBFBYT1 03731000 TCBAFFN EQU TCB+274 03732000 TCBRV326 EQU TCB+272 03733000 TCBUKYSP EQU TCB+268 03734000 TCBMODE EQU TCBESTAE+3 03735000 TCBERTYP EQU TCBESTAE+2 03736000 TCBRV314 EQU TCBESTRM 03737000 TCBRV313 EQU TCBESTRM 03738000 TCBRV312 EQU TCBESTRM 03739000 TCBRV311 EQU TCBESTRM 03740000 TCBRV310 EQU TCBESTRM 03741000 TCBRV309 EQU TCBESTRM 03742000 TCBRV308 EQU TCBESTRM 03743000 TCBETERM EQU TCBESTRM 03744000 TCBSCBKY EQU TCBESTAE 03745000 TCBRTM12 EQU TCB+260 03746000 TCBTCBID EQU TCB+256 03747000 TCBSTAWA EQU TCB+252 03748000 TCBSWA EQU TCB+248 03749000 TCBFOEA EQU TCBFOE+1 03750000 TCBRSV42 EQU TCBFOE 03751000 TCBCCPVI EQU TCBXSCT+2 03752000 TCBRV325 EQU TCBXSCT+1 03753000 TCBRV324 EQU TCBXSCT1 03754000 TCBRV323 EQU TCBXSCT1 03755000 TCBRV322 EQU TCBXSCT1 03756000 TCBRV321 EQU TCBXSCT1 03757000 TCBRV320 EQU TCBXSCT1 03758000 TCBRV319 EQU TCBXSCT1 03759000 TCBS3A EQU TCBXSCT1 03760000 TCBACTIV EQU TCBXSCT1 03761000 TCBRSV41 EQU TCB+239 03762000 TCBTID EQU TCB+238 03763000 TCBRSVAA EQU TCB+237 03764000 TCBABCUR EQU TCB+236 03765000 TCBTMSAV EQU TCB+232 03766000 TCBIOTIM EQU TCB+228 03767000 TCBRTWA EQU TCB+224 03768000 TCBBACK EQU TCB+220 03769000 TCBTIRB EQU TCB+216 03770000 TCBAECB EQU TCB+212 03771000 TCBEXT2A EQU TCBEXT2+1 03772000 TCBRSV39 EQU TCBEXT2 03773000 TCBSTMCT EQU TCB+207 03774000 TCBSYSCT EQU TCB+206 03775000 TCBRSV37 EQU TCB+205 03776000 TCBEXSVC EQU TCBDAR 03777000 TCBDARMS EQU TCBDAR 03778000 TCBDARWT EQU TCBDAR 03779000 TCBDARO EQU TCBDAR 03780000 TCBDARMC EQU TCBDARC 03781000 TCBDARD EQU TCBDAR 03782000 TCBDARS EQU TCBDAR 03783000 TCBDARP EQU TCBDAR 03784000 TCBGTOFM EQU TCBFLGS7 03785000 TCBADMP EQU TCBFLGS7 03786000 TCBRSTSK EQU TCBFLGS7 03787000 TCBSVCS EQU TCBFLGS7 03788000 TCBSTACK EQU TCBFLGS7 03789000 TCBRSV34 EQU TCBFLGS7 03790000 TCBRSV33 EQU TCBFLGS7 03791000 TCBGPECB EQU TCBFLGS7 03792000 TCBNTJS EQU TCBFLGS6 03793000 TCBAPG EQU TCBFLGS6 03794000 TCBMIGR EQU TCBFLGS6 03795000 TCBRV303 EQU TCBFLGS6 03796000 TCBSPVLK EQU TCBFLGS6 03797000 TCBCPU EQU TCBFLGS6 03798000 TCBPIE17 EQU TCBFLGS6 03799000 TCBRV EQU TCBFLGS6 03800000 TCBRSV79 EQU TCBNDSP5 03801000 TCBRSV78 EQU TCBNDSP5 03802000 TCBRSV77 EQU TCBNDSP5 03803000 TCBRSV76 EQU TCBNDSP5 03804000 TCBRSV75 EQU TCBNDSP5 03805000 TCBRSV74 EQU TCBNDSP5 03806000 TCBRSV95 EQU TCBNDSP5 03807000 TCBRSV94 EQU TCBNDSP5 03808000 TCBRSV93 EQU TCBNDSP4 03809000 TCBRSV92 EQU TCBNDSP4 03810000 TCBRSV91 EQU TCBNDSP4 03811000 TCBRSV90 EQU TCBNDSP4 03812000 TCBRSV89 EQU TCBNDSP4 03813000 TCBRSV88 EQU TCBNDSP4 03814000 TCBRSV87 EQU TCBNDSP4 03815000 TCBRSV86 EQU TCBNDSP4 03816000 TCBEXT1A EQU TCBEXT1+1 03817000 TCBRSV32 EQU TCBEXT1 03818000 TCBEXCPD EQU TCB+192 03819000 TCBIOBRC EQU TCB+188 03820000 TCBDDWTC EQU TCB+186 03821000 TCBDDEXC EQU TCB+184 03822000 TCBJSCBB EQU TCBJSCB+1 03823000 @NM00141 EQU TCBRECDE 03824000 TCBREC EQU TCBRECDE 03825000 TCBMDIDS EQU TCB+176 03826000 TCBNDINT EQU TCBNDSP3 03827000 TCBRSV27 EQU TCBNDSP3 03828000 TCBRSV26 EQU TCBNDSP3 03829000 TCBRSV25 EQU TCBNDSP3 03830000 TCBRSV24 EQU TCBNDSP3 03831000 TCBSRBND EQU TCBNDSP3 03832000 TCBRV302 EQU TCBNDSP3 03833000 TCBLJSND EQU TCBNDSP3 03834000 TCBABE EQU TCBNDSP2 03835000 TCBDSS EQU TCBNDSP2 03836000 TCBOWAIT EQU TCBNDSP2 03837000 TCBIWAIT EQU TCBNDSP2 03838000 TCBNDTS EQU TCBNDSP2 03839000 TCBNDSVC EQU TCBNDSP2 03840000 TCBSTPP EQU TCBNDSP2 03841000 TCBABD EQU TCBNDSP2 03842000 TCBRSV22 EQU TCBNDSP1 03843000 TCBPIEND EQU TCBNDSP1 03844000 TCBTPSP EQU TCBNDSP1 03845000 TCBDDRND EQU TCBNDSP1 03846000 TCBRSPND EQU TCBNDSP1 03847000 TCBRSTND EQU TCBNDSP1 03848000 TCBDARPN EQU TCBNDSP1 03849000 TCBDARTN EQU TCBNDSP1 03850000 TCBNDSP0 EQU TCBNDSP 03851000 TCBUSER EQU TCB+168 03852000 TCBTCTB EQU TCBTCT+1 03853000 TCBRSV9C EQU TCBTCTGF 03854000 TCBRSV9B EQU TCBTCTGF 03855000 TCBRSV9A EQU TCBTCTGF 03856000 TCBRSV99 EQU TCBTCTGF 03857000 TCBRSV98 EQU TCBTCTGF 03858000 TCBRSV97 EQU TCBTCTGF 03859000 TCBRSV20 EQU TCBTCTGF 03860000 TCBSMFGF EQU TCBTCTGF 03861000 TCBSTABB EQU TCBSTAB+1 03862000 TCBSTCUR EQU TCBNSTAE 03863000 TCBRV301 EQU TCBNSTAE 03864000 TCBSYNCH EQU TCBNSTAE 03865000 TCBHALT EQU TCBNSTAE 03866000 TCBPPSUP EQU TCBNSTAE 03867000 TCB33E EQU TCBNSTAE 03868000 TCBQUIES EQU TCBNSTAE 03869000 TCBSTABE EQU TCBNSTAE 03870000 TCBAQE EQU TCB+156 03871000 TCBPQE EQU TCB+152 03872000 TCBTSDP EQU TCB+151 03873000 TCBTSLP EQU TCB+150 03874000 TCBSTPCT EQU TCB+149 03875000 TCBCPUBN EQU TCBTSFLG 03876000 TCBDYDSP EQU TCBTSFLG 03877000 TCBRSV18 EQU TCBTSFLG 03878000 TCBRSV17 EQU TCBTSFLG 03879000 TCBTIOTG EQU TCBTSFLG 03880000 TCBATT EQU TCBTSFLG 03881000 TCBSTPPR EQU TCBTSFLG 03882000 TCBRV300 EQU TCBTSTSK 03883000 TCBECB EQU TCB+144 03884000 TCBIQE EQU TCB+140 03885000 TCBLTC EQU TCB+136 03886000 TCBOTC EQU TCB+132 03887000 TCBNTC EQU TCB+128 03888000 TCBJSTCA EQU TCBJSTCB+1 03889000 TCBRSV16 EQU TCBJSTCB 03890000 TCBTQET EQU TCBTME 03891000 TCBTCB EQU TCB+116 03892000 TCBFSAB EQU TCBFSA+1 03893000 TCBQEL EQU TCBFSA 03894000 TCBGRS15 EQU TCBGRS+60 03895000 TCBGRS14 EQU TCBGRS+56 03896000 TCBGRS13 EQU TCBGRS+52 03897000 TCBGRS12 EQU TCBGRS+48 03898000 TCBGRS11 EQU TCBGRS+44 03899000 TCBGRS10 EQU TCBGRS+40 03900000 TCBGRS9 EQU TCBGRS+36 03901000 TCBGRS8 EQU TCBGRS+32 03902000 TCBGRS7 EQU TCBGRS+28 03903000 TCBGRS6 EQU TCBGRS+24 03904000 TCBGRS5 EQU TCBGRS+20 03905000 TCBGRS4 EQU TCBGRS+16 03906000 TCBGRS3 EQU TCBGRS+12 03907000 TCBGRS2 EQU TCBGRS+8 03908000 TCBGRS1 EQU TCBGRS+4 03909000 TCBGRS0 EQU TCBGRS 03910000 TCBJPQB EQU TCBJPQ+1 03911000 TCBRSV15 EQU TCBPURGE 03912000 TCBRSV14 EQU TCBPURGE 03913000 TCBRSV13 EQU TCBPURGE 03914000 TCBRSV12 EQU TCBPURGE 03915000 TCBRSV11 EQU TCBPURGE 03916000 TCBRSV10 EQU TCBPURGE 03917000 TCBRSV09 EQU TCBPURGE 03918000 TCBJPQF EQU TCBPURGE 03919000 TCBJLB EQU TCB+40 03920000 TCBLLS EQU TCB+36 03921000 TCBDSP EQU TCB+35 03922000 TCBLMP EQU TCB+34 03923000 TCBPNDSP EQU TCBFLGS5 03924000 TCBFCD1 EQU TCBFLGS5 03925000 TCBSTP EQU TCBFLGS5 03926000 TCBSYS EQU TCBFLGS5 03927000 TCBANDSP EQU TCBFLGS5 03928000 TCBPAGE EQU TCBFLGS5 03929000 TCBUXNDF EQU TCBABWF 03930000 TCBFC EQU TCBFLGS5 03931000 TCBONDSP EQU TCBFLGS4 03932000 TCBMPCND EQU TCBFLGS4 03933000 TCBMPCVQ EQU TCBFLGS4 03934000 TCBUXNDV EQU TCBFLGS4 03935000 TCBHNDSP EQU TCBFLGS4 03936000 TCBRQENA EQU TCBFLGS4 03937000 TCBSER EQU TCBFLGS4 03938000 TCBNDUMP EQU TCBFLGS4 03939000 TCBDWSTA EQU TCBFLGS3 03940000 TCBRSV08 EQU TCBFLGS3 03941000 TCBRSV07 EQU TCBFLGS3 03942000 TCBRSV06 EQU TCBFLGS3 03943000 TCBABGM EQU TCBFLGS3 03944000 TCBABTRM EQU TCBFLGS3 03945000 TCBADINP EQU TCBFLGS3 03946000 TCBFSM EQU TCBFLGS3 03947000 TCBFTS EQU TCBFLGS2 03948000 TCBFETXR EQU TCBFLGS2 03949000 TCBFDSOP EQU TCBFLGS2 03950000 TCBFJMC EQU TCBFLGS2 03951000 TCBFSMC EQU TCBFLGS2 03952000 TCBFABOP EQU TCBFLGS2 03953000 TCBFSTI EQU TCBFLGS2 03954000 TCBFOINP EQU TCBFLGS2 03955000 TCBFX EQU TCBFLGS1 03956000 TCBFS EQU TCBFLGS1 03957000 TCBFT EQU TCBFLGS1 03958000 TCBPDUMP EQU TCBFLGS1 03959000 TCBNONPR EQU TCBFLGS1 03960000 TCBFERA EQU TCBFLGS1 03961000 TCBFE EQU TCBFLGS1 03962000 TCBFA EQU TCBFLGS1 03963000 TCBZERO EQU TCBPKF 03964000 TCBFLAG EQU TCBPKF 03965000 TCBMSSB EQU TCBMSS+1 03966000 TCBRSV03 EQU TCBMSS 03967000 TCBTRNB EQU TCBTRN+1 03968000 TCBRSV02 EQU TCBABF 03969000 TCBOLTEP EQU TCBABF 03970000 TCBTCP EQU TCBABF 03971000 TCBTCPP EQU TCBABF 03972000 TCBRSV01 EQU TCBABF 03973000 TCBGRPH EQU TCBABF 03974000 TCBNOCHK EQU TCBABF 03975000 TCBMOD91 EQU TCBABF 03976000 TCBCMPC EQU TCBCMP+1 03977000 TCBRV318 EQU TCBCMSG 03978000 TCBRV317 EQU TCBCIND 03979000 TCBRV316 EQU TCBCWTO 03980000 TCBCASID EQU TCBCDBL 03981000 TCBNOCC EQU TCBSTCC 03982000 TCBDMPO EQU TCBCPP 03983000 TCBCSTEP EQU TCBCMPF 03984000 TCBCREQ EQU TCBCMPF 03985000 TCBTIO EQU TCB+12 03986000 TCBDEB EQU TCB+8 03987000 TCBPIEA EQU TCBPIE+1 03988000 TCBPM EQU TCBPMASK 03989000 @NM00140 EQU TCBPMASK 03990000 TCBRBP EQU TCB 03991000 TCBFRS6 EQU TCBFRS+24 03992000 TCBFRS4 EQU TCBFRS+16 03993000 TCBFRS2 EQU TCBFRS+8 03994000 TCBFRS0 EQU TCBFRS 03995000 @NM00139 EQU APCQ+176 03996000 @NM00138 EQU APCQ+172 03997000 @NM00137 EQU APCQ+168 03998000 APCQNEMG EQU APCQSW 03999000 APCQNMSG EQU APCQSW 04000000 @NM00136 EQU APCQSW 04001000 APCQPRTY EQU APCQSW 04002000 APCQPSTR EQU APCQ+22 04003000 APCQPLEN EQU APCQ+20 04004000 APCQCQAP EQU APCQ+16 04005000 APCQUSER EQU APCQ+8 04006000 APCQAPCQ EQU APCQ+4 04007000 APCQID EQU APCQ 04008000 JFCRSV05 EQU JFCEROPT 04009000 JFCRSV04 EQU JFCEROPT 04010000 JFCRSV03 EQU JFCEROPT 04011000 JFCRSV02 EQU JFCEROPT 04012000 JFCTOPT EQU JFCEROPT 04013000 JFCABN EQU JFCEROPT 04014000 JFCSKP EQU JFCEROPT 04015000 JFCACC EQU JFCEROPT 04016000 JFCBUFL EQU JFCAMPTR+2 04017000 JFCFWORD EQU JFCBFTEK 04018000 JFCDWORD EQU JFCBFTEK 04019000 JFCHIER1 EQU JFCBFTEK 04020000 JFCDYN EQU JFCBFTEK 04021000 JFCEXC EQU JFCBFTEK 04022000 JFCBBFTR EQU JFCBBFTA 04023000 JFCSIM EQU JFCBBFTA 04024000 JFCHIER EQU JFCBFTEK 04025000 JFCBFOUT EQU JFCBUFNO 04026000 JFCBUFIN EQU JFCBUFNO 04027000 JFCTEMP EQU JFCBIND2 04028000 JFCREQ EQU JFCBIND2 04029000 JFCENT EQU JFCBIND2 04030000 JFCSHARE EQU JFCBIND2 04031000 JFCSECUR EQU JFCBIND2 04032000 JFCDISP EQU JFCBIND2 04033000 JFCGDG EQU JFCBIND1 04034000 JFCADDED EQU JFCBIND1 04035000 JFCLOC EQU JFCBIND1 04036000 JFCRLSE EQU JFCBIND1 04037000 JFCBXPDT EQU INFMJFCB+83 04038000 JFCBCRDT EQU INFMJFCB+80 04039000 JFCBOPS2 EQU JFCBMASK+7 04040000 JFCRCTLG EQU JFCBFLG2 04041000 JFCBBUFF EQU JFCBFLG2 04042000 JFCTRACE EQU JFCBFLG2 04043000 JFCSDRPS EQU JFCBFLG2 04044000 JFCMODNW EQU JFCBFLG2 04045000 JFCNRPS EQU JFCDEFER 04046000 JFCOUTOP EQU JFCBFLG2 04047000 JFCINOP EQU JFCBFLG2 04048000 JFCBPWBP EQU JFCOPEN 04049000 @NM00108 EQU JFCOPEN 04050000 JFCDUAL EQU JFCBFLG1 04051000 JFCSLDES EQU JFCBFLG1 04052000 JFCSLCRE EQU JFCBFLG1 04053000 JFCSTAND EQU JFCBFLG1 04054000 JFCBOPS1 EQU JFCBMASK 04055000 JFCBVLSQ EQU INFMJFCB+70 04056000 JFCRSV31 EQU JFCFUNC 04057000 JFCFNCBT EQU JFCFUNC 04058000 JFCFNCBX EQU JFCFUNC 04059000 JFCFNCBD EQU JFCFUNC 04060000 JFCFNCBW EQU JFCFUNC 04061000 JFCFNCBP EQU JFCFUNC 04062000 JFCFNCBR EQU JFCFUNC 04063000 JFCFNCBI EQU JFCFUNC 04064000 JFCBFOFL EQU JFCBUFOF 04065000 JFCNL EQU JFCBLTYP 04066000 JFCSL EQU JFCBLTYP 04067000 JFCNSL EQU JFCBLTYP 04068000 JFCSUL EQU JFCBLTYP 04069000 JFCBLP EQU JFCBLTYP 04070000 JFCBLTM EQU JFCBLTYP 04071000 JFCBAL EQU JFCBLTYP 04072000 JFCRSV38 EQU JFCBLTYP 04073000 JFCVINDX EQU INFMJFCB+64 04074000 JFCNLREC EQU INFMJFCB+62 04075000 JFCBADBF EQU INFMJFCB+60 04076000 JFCAMSTR EQU JFCBFRID+2 04077000 JFCAMCRO EQU JFCBFRID 04078000 JFCBDSCB EQU INFMJFCB+53 04079000 JFCPAT EQU JFCBTSDM 04080000 JFCNDCB EQU JFCBTSDM 04081000 JFCNDSCB EQU JFCBTSDM 04082000 JFCTTR EQU JFCBTSDM 04083000 JFCSDS EQU JFCBTSDM 04084000 JFCVSL EQU JFCBTSDM 04085000 JFCCAT EQU JFCBTSDM 04086000 JFCIPLTX EQU JFCBELNM 04087000 JFCBQNAM EQU JFCBDSNM 04088000 ECBEVNT EQU ECBEXTND 04089000 @NM00107 EQU ECBEXTND 04090000 @NM00106 EQU ECBBYTE3 04091000 @NM00105 EQU ECBEXTBA 04092000 @NM00104 EQU ECBCC 04093000 ECBPOSTB EQU ECBCC 04094000 ECBWAITB EQU ECBCC 04095000 DCBNOTE EQU DCBCNTRL 04096000 DCBLRECL EQU IHADCS38+10 04097000 @NM00103 EQU IHADCS38+8 04098000 DCBEOBW EQU IHADCS38+4 04099000 DCBEOBRA EQU DCBEOBR+1 04100000 DCBNCP EQU DCBEOBR 04101000 @NM00102 EQU DCBFLAG1 04102000 DCBSTFLS EQU DCBFLAG1 04103000 DCBSTQCK EQU DCBFLAG1 04104000 DCBDIRCQ EQU DCBBUFOF 04105000 DCBQSTRU EQU DCBUSASI 04106000 @NM00101 EQU DCBUSASI 04107000 DCBQADF3 EQU DCBQADFS 04108000 DCBQADF2 EQU DCBQADFS 04109000 DCBQADF1 EQU DCBQADFS 04110000 DCBBLBP EQU DCBUSASI 04111000 @NM00100 EQU DCBUSASI 04112000 DCBCICBA EQU DCBCICB+1 04113000 @NM00099 EQU DCBCICB 04114000 DCBOFFSW EQU IHADCS36+15 04115000 DCBOFFSR EQU IHADCS36+14 04116000 DCBWCPL EQU IHADCS36+13 04117000 DCBWCPO EQU IHADCS36+12 04118000 DCBBLKSI EQU IHADCS36+10 04119000 DCBCNQSM EQU DCBCIND2 04120000 DCBCNFEO EQU DCBCIND2 04121000 DCBCNCHS EQU DCBCIND2 04122000 DCBCNBFP EQU DCBCIND2 04123000 DCBCNIOE EQU DCBCIND2 04124000 DCBCNCLO EQU DCBCIND2 04125000 DCBCNWRO EQU DCBCIND2 04126000 DCBCNSTO EQU DCBCIND2 04127000 DCBCNEXB EQU DCBCIND1 04128000 @NM00098 EQU DCBCIND1 04129000 DCBCNBRM EQU DCBCIND1 04130000 @NM00097 EQU DCBCIND1 04131000 DCBCNEVA EQU DCBCIND1 04132000 DCBCNEVB EQU DCBCIND1 04133000 DCBCNSRD EQU DCBCIND1 04134000 DCBCNTOV EQU DCBCIND1 04135000 DCBSYNA EQU DCBSYNAD+1 04136000 DCBIOBL EQU DCBSYNAD 04137000 DCBCHCKA EQU DCBPERRA 04138000 DCBOPTJ EQU DCBOPTCD 04139000 DCBOPTT EQU DCBOPTCD 04140000 DCBSRCHD EQU DCBOPTZ 04141000 DCBOPTQ EQU DCBOPTCD 04142000 DCBBCKPT EQU DCBOPTO 04143000 DCBOPTC EQU DCBOPTCD 04144000 DCBOPTU EQU DCBOPTCD 04145000 DCBOPTW EQU DCBOPTCD 04146000 @NM00096 EQU IHADCS44+10 04147000 DCBXENDA EQU IHADCS44+8 04148000 DCBCENDA EQU IHADCS44+6 04149000 DCBSIOA EQU IHADCS44+4 04150000 DCBPCIA EQU IHADCS44+2 04151000 DCBEOEA EQU IHADCS44 04152000 @NM00095 EQU IHADCS28+1 04153000 @NM00094 EQU IHADCS28 04154000 DCBREADA EQU DCBWRITA 04155000 @NM00093 EQU DCBREAD 04156000 DCBDEBA EQU DCBDEBAD+1 04157000 @NM00092 EQU DCBIFLGS 04158000 DCBIFIOE EQU DCBIFLGS 04159000 DCBCH12 EQU DCBIFPCT 04160000 DCBCH9 EQU DCBIFPCT 04161000 DCBIFEC EQU DCBIFLGS 04162000 DCBMFSTI EQU DCBMFDMD 04163000 DCBMFAWR EQU DCBMFSTK 04164000 DCBMFUIP EQU DCBMFTMD 04165000 DCBMFIDW EQU DCBMFLCP 04166000 DCBMFWRK EQU DCBMFMVP 04167000 DCBMFRDQ EQU DCBMFWRT 04168000 DCBMFGTQ EQU DCBMFPUT 04169000 DCBMFSTL EQU DCBMACF2 04170000 DCBMFCK EQU DCBMFDMG 04171000 DCBMFRDX EQU DCBMFCHK 04172000 DCBMFDBF EQU DCBMFSBG 04173000 DCBMFRDI EQU DCBMFLCG 04174000 DCBMFRDK EQU DCBMFMVG 04175000 DCBMFWRQ EQU DCBMFRD 04176000 DCBMFPTQ EQU DCBMFGET 04177000 DCBMFECP EQU DCBMACF1 04178000 DCBTIOT EQU IHADCS25 04179000 DCBMRSTI EQU DCBMRDMD 04180000 DCBMRAWR EQU DCBMRSTK 04181000 DCBMRUIP EQU DCBMRTMD 04182000 DCBMRIDW EQU DCBMRLCP 04183000 DCBMRWRK EQU DCBMRMVP 04184000 DCBMRRDQ EQU DCBMRWRT 04185000 DCBMRGTQ EQU DCBMRPUT 04186000 DCBMRSTL EQU DCBMACR2 04187000 DCBMRCK EQU DCBMRDMG 04188000 DCBPGFXA EQU DCBMRRDX 04189000 DCBMRDBF EQU DCBMRSBG 04190000 DCBMRRDI EQU DCBMRLCG 04191000 DCBMRRDK EQU DCBMRMVG 04192000 DCBMRWRQ EQU DCBMRRD 04193000 DCBMRPTQ EQU DCBMRGET 04194000 DCBMRECP EQU DCBMACR1 04195000 @NM00091 EQU DCBIFLG 04196000 DCBIBIOE EQU DCBIFLG 04197000 DCBICH12 EQU DCBIBPCT 04198000 DCBICH9 EQU DCBIBPCT 04199000 DCBIBEC EQU DCBIFLG 04200000 DCBOFIOF EQU DCBOFLGS 04201000 DCBOFUEX EQU DCBOFLGS 04202000 DCBOFTM EQU DCBOFLGS 04203000 DCBOFPPC EQU DCBOFLGS 04204000 DCBOFEOV EQU DCBOFLGS 04205000 DCBOFLRB EQU DCBOFLGS 04206000 DCBOFIOD EQU DCBOFLWR 04207000 DCBDDNAM EQU IHADCS24 04208000 DCBRECKL EQU DCBRECFM 04209000 DCBRECCC EQU DCBRECFM 04210000 DCBRECSB EQU DCBRECFM 04211000 DCBRECBR EQU DCBRECFM 04212000 DCBRECTO EQU DCBRECLA 04213000 DCBRECL EQU DCBRECLA 04214000 DCBEODA EQU DCBEODAD+1 04215000 DCBBFA EQU DCBBFTEK 04216000 DCBH0 EQU DCBBFTEK 04217000 DCBBFTKD EQU DCBBFTEK 04218000 DCBBFTE EQU DCBBFT 04219000 DCBBFTKR EQU DCBBFT 04220000 DCBBFTS EQU DCBBFT 04221000 DCBH1 EQU DCBBFTEK 04222000 DCBSVCXA EQU DCBSVCXL+1 04223000 @NM00090 EQU DCBSVCXL 04224000 DCBODEBA EQU DCBIOBAA 04225000 @NM00089 EQU DCBQSLM 04226000 DCBUPDBT EQU DCBQSLM 04227000 DCBUPDCM EQU DCBQSLM 04228000 DCB1DVDS EQU DCBQSLM 04229000 @NM00088 EQU DCBDSRG2 04230000 DCBDSGTR EQU DCBDSRG2 04231000 DCBACBM EQU DCBDSRG2 04232000 @NM00087 EQU DCBDSRG2 04233000 DCBDSGTQ EQU DCBDSRG2 04234000 DCBDSGTX EQU DCBDSRG2 04235000 DCBDSGGS EQU DCBDSRG2 04236000 DCBDSGU EQU DCBDSRG1 04237000 DCBDSGPO EQU DCBDSRG1 04238000 @NM00086 EQU DCBDSRG1 04239000 @NM00085 EQU DCBDSRG1 04240000 DCBDSGCX EQU DCBDSRG1 04241000 DCBDSGDA EQU DCBDSRG1 04242000 DCBDSGPS EQU DCBDSRG1 04243000 DCBDSGIS EQU DCBDSRG1 04244000 DCBBUFL EQU IHADCS11+8 04245000 DCBBUFCA EQU DCBBUFCB+1 04246000 DCBBUFNO EQU DCBBUFCB 04247000 DCBDEVT EQU DCBREL 04248000 DCBKEYLE EQU DCBRELB 04249000 DCBTRBAL EQU IHADCS01+6 04250000 @NM00084 EQU IHADCS01+5 04251000 @NM00083 EQU IHADCS01+4 04252000 DCBDVTBA EQU DCBDVTBL+1 04253000 @NM00082 EQU DCBDVTBL 04254000 DCBKEYCN EQU IHADCS00+4 04255000 DCBRELAD EQU IHADCS00 04256000 @NM00081 EQU IHADCB 04257000 CVTLEVL EQU CVTRELNO+2 04258000 CVTNUMB EQU CVTRELNO 04259000 CVTMDL EQU CVTFIX+250 04260000 @NM00080 EQU CVTFIX+248 04261000 @NM00079 EQU CVTFIX 04262000 CVTRV482 EQU CVTXTNT2+128 04263000 CVTRV481 EQU CVTXTNT2+124 04264000 CVTRV480 EQU CVTXTNT2+120 04265000 CVTRV479 EQU CVTXTNT2+118 04266000 CVTRV478 EQU CVTXTNT2+117 04267000 CVTRV477 EQU CVTXTNT2+116 04268000 CVTRV476 EQU CVTXTNT2+115 04269000 CVTRV475 EQU CVTXTNT2+114 04270000 CVTRV474 EQU CVTRV466 04271000 CVTRV473 EQU CVTRV466 04272000 CVTRV472 EQU CVTRV466 04273000 CVTRV471 EQU CVTRV466 04274000 CVTRV470 EQU CVTRV466 04275000 CVTRV469 EQU CVTRV466 04276000 CVTRV468 EQU CVTRV466 04277000 CVTRV467 EQU CVTRV466 04278000 CVTRV465 EQU CVTRV457 04279000 CVTRV464 EQU CVTRV457 04280000 CVTRV463 EQU CVTRV457 04281000 CVTRV462 EQU CVTRV457 04282000 CVTRV461 EQU CVTRV457 04283000 CVTRV460 EQU CVTRV457 04284000 CVTRV459 EQU CVTRV457 04285000 CVTRV458 EQU CVTRV457 04286000 CVTRV456 EQU CVTXTNT2+108 04287000 CVTRV455 EQU CVTXTNT2+104 04288000 CVTRV454 EQU CVTXTNT2+100 04289000 CVTRV453 EQU CVTXTNT2+96 04290000 CVTRV452 EQU CVTXTNT2+94 04291000 CVTRV451 EQU CVTXTNT2+92 04292000 CVTRV450 EQU CVTXTNT2+90 04293000 CVTRV449 EQU CVTXTNT2+88 04294000 CVTRV448 EQU CVTXTNT2+87 04295000 CVTRV447 EQU CVTXTNT2+86 04296000 CVTRV446 EQU CVTRV438 04297000 CVTRV445 EQU CVTRV438 04298000 CVTRV444 EQU CVTRV438 04299000 CVTRV443 EQU CVTRV438 04300000 CVTRV442 EQU CVTRV438 04301000 CVTRV441 EQU CVTRV438 04302000 CVTRV440 EQU CVTRV438 04303000 CVTRV439 EQU CVTRV438 04304000 CVTRV437 EQU CVTRV429 04305000 CVTRV436 EQU CVTRV429 04306000 CVTRV435 EQU CVTRV429 04307000 CVTRV434 EQU CVTRV429 04308000 CVTRV433 EQU CVTRV429 04309000 CVTRV432 EQU CVTRV429 04310000 CVTRV431 EQU CVTRV429 04311000 CVTRV430 EQU CVTRV429 04312000 CVTRV428 EQU CVTXTNT2+80 04313000 CVTRV427 EQU CVTXTNT2+76 04314000 CVTRV426 EQU CVTXTNT2+72 04315000 CVTRV425 EQU CVTXTNT2+68 04316000 CVTATACT EQU CVTATCVT 04317000 CVTRV423 EQU CVTXTNT2+62 04318000 CVTRV422 EQU CVTXTNT2+60 04319000 CVTRV421 EQU CVTXTNT2+58 04320000 CVTRV420 EQU CVTXTNT2+56 04321000 CVTRV419 EQU CVTXTNT2+55 04322000 CVTRV418 EQU CVTXTNT2+54 04323000 CVTRV417 EQU CVTRV409 04324000 CVTRV416 EQU CVTRV409 04325000 CVTRV415 EQU CVTRV409 04326000 CVTRV414 EQU CVTRV409 04327000 CVTRV413 EQU CVTRV409 04328000 CVTRV412 EQU CVTRV409 04329000 CVTRV411 EQU CVTRV409 04330000 CVTRV410 EQU CVTRV409 04331000 CVTRV408 EQU CVTRV400 04332000 CVTRV407 EQU CVTRV400 04333000 CVTRV406 EQU CVTRV400 04334000 CVTRV405 EQU CVTRV400 04335000 CVTRV404 EQU CVTRV400 04336000 CVTRV403 EQU CVTRV400 04337000 CVTRV402 EQU CVTRV400 04338000 CVTRV401 EQU CVTRV400 04339000 CVTICB EQU CVTXTNT2+48 04340000 CVTSKTA EQU CVTXTNT2+44 04341000 CVTRSV99 EQU CVTXTNT2+40 04342000 CVTRSV98 EQU CVTXTNT2+36 04343000 CVTRSV97 EQU CVTXTNT2+34 04344000 CVTRSV96 EQU CVTXTNT2+32 04345000 CVTOLTEP EQU CVTXTNT2+28 04346000 CVTQIDA EQU CVTQID+1 04347000 CVTRSV95 EQU CVTQID 04348000 CVTRSV94 EQU CVTXTNT2+20 04349000 CVTRSV93 EQU CVTXTNT2+16 04350000 CVTRSV92 EQU CVTXTNT2+12 04351000 CVTDEBVR EQU CVTXTNT2+8 04352000 CVTRSV91 EQU CVTXTNT2+6 04353000 CVTRSV9H EQU CVTFLGBT 04354000 CVTRSV9G EQU CVTFLGBT 04355000 CVTRSV9F EQU CVTFLGBT 04356000 CVTRSV9E EQU CVTFLGBT 04357000 CVTRSV9D EQU CVTFLGBT 04358000 CVTRSV9C EQU CVTFLGBT 04359000 CVTVME EQU CVTFLGBT 04360000 CVTNPE EQU CVTFLGBT 04361000 CVTNUCLS EQU CVTXTNT2+4 04362000 CVTDSSVA EQU CVTDSSV+1 04363000 CVTRSV89 EQU CVTDSSV 04364000 CVTRSV88 EQU CVTXTNT1+8 04365000 CVTRSV87 EQU CVTXTNT1+4 04366000 CVTFACHN EQU CVTXTNT1 04367000 CVTRV488 EQU CVTMAP+412 04368000 CVTRV487 EQU CVTMAP+408 04369000 CVTRV486 EQU CVTMAP+404 04370000 CVTRV485 EQU CVTMAP+400 04371000 CVTACTAP EQU CVTMAP+396 04372000 CVTAUTH EQU CVTMAP+392 04373000 CVTATMCA EQU CVTATMCT+1 04374000 CVTATMST EQU CVTATMCT 04375000 CVTRSV61 EQU CVTMAP+384 04376000 CVTVOLT1 EQU CVTVOLM1+1 04377000 CVTVOLI1 EQU CVTVOLF1 04378000 CVTSTOA EQU CVTMAP+376 04379000 CVTRSV58 EQU CVTMAP+374 04380000 CVTRSV57 EQU CVTMAP+372 04381000 CVTDDCE EQU CVTMAP+368 04382000 CVTPNWFR EQU CVTMAP+364 04383000 CVTSMF EQU CVTMAP+360 04384000 CVTSULK EQU CVTMAP+358 04385000 CVTSLKO EQU CVTSYSK 04386000 CVTSLKP EQU CVTSYSK 04387000 CVTSLKQ EQU CVTSYSK 04388000 CVTSLKR EQU CVTSYSK 04389000 CVTRSV56 EQU CVTSYSK 04390000 CVTRSV55 EQU CVTSYSK 04391000 CVTRSV54 EQU CVTSYSK 04392000 CVTRSV53 EQU CVTSYSK 04393000 CVTRSV52 EQU CVTA1F1 04394000 CVTRSV51 EQU CVTA1F1 04395000 CVTRSV50 EQU CVTA1F1 04396000 CVTRSV49 EQU CVTA1F1 04397000 CVTRSV48 EQU CVTA1F1 04398000 CVTRSV47 EQU CVTA1F1 04399000 CVTSRSW EQU CVTA1F1 04400000 CVTPFSW EQU CVTA1F1 04401000 CVTPCVT EQU CVTMAP+352 04402000 CVTRSV46 EQU CVTMAP+344 04403000 CVTRSV45 EQU CVTMAP+340 04404000 CVTRSV44 EQU CVTMAP+338 04405000 CVTRSV43 EQU CVTMAP+336 04406000 CVTHJESA EQU CVTHJES+1 04407000 CVTRSV42 EQU CVTHJES 04408000 CVTEXT2A EQU CVTEXT2+1 04409000 CVTRSV41 EQU CVTEXT2 04410000 CVTAPFA EQU CVTAPF+1 04411000 CVTRSV40 EQU CVTAPF 04412000 CVTRV518 EQU CVTINTLA 04413000 CVTRV517 EQU CVTERPV 04414000 CVTEORM EQU CVTMAP+312 04415000 CVTMCHPR EQU CVTMAP+308 04416000 CVTTZ EQU CVTMAP+304 04417000 CVTJEPS EQU CVTMAP+300 04418000 CVTJESCT EQU CVTMAP+296 04419000 CVTMODE EQU CVTMAP+292 04420000 CVTPTRV EQU CVTMAP+288 04421000 CVTREAL EQU CVTMAP+284 04422000 CVTRSV39 EQU CVTMAP+280 04423000 CVTRSV38 EQU CVTMAP+276 04424000 CVTDMSRA EQU CVTDMSR+1 04425000 CVTRV634 EQU CVTDMSRF 04426000 CVTRV633 EQU CVTDMSRF 04427000 CVTRV632 EQU CVTDMSRF 04428000 CVTRV631 EQU CVTDMSRF 04429000 CVTRV630 EQU CVTDMSRF 04430000 CVTRV629 EQU CVTDMSRF 04431000 CVTUDUMP EQU CVTDMSRF 04432000 CVTSDUMP EQU CVTDMSRF 04433000 CVTQMSGA EQU CVTQMSG+1 04434000 CVTRSV36 EQU CVTQMSG 04435000 CVTAMFF EQU CVTMAP+264 04436000 CVTPURGA EQU CVTPURG+1 04437000 CVTRSV35 EQU CVTPURG 04438000 CVTCBSP EQU CVTMAP+256 04439000 CVTATERA EQU CVTATER+1 04440000 CVTSYST EQU CVTATER 04441000 CVTVOLT2 EQU CVTTAT 04442000 CVTVOLI2 EQU CVTVOLF2 04443000 CVTAQAVB EQU CVTAQAVT+1 04444000 CVTRSV34 EQU CVTTCMFG 04445000 CVTRSV33 EQU CVTTCMFG 04446000 CVTRSV32 EQU CVTTCMFG 04447000 CVTRSV31 EQU CVTTCMFG 04448000 CVTRSV30 EQU CVTTCMFG 04449000 CVTRSV29 EQU CVTTCMFG 04450000 CVTLDEV EQU CVTTCMFG 04451000 CVTTCRDY EQU CVTTCMFG 04452000 CVTGTFA EQU CVTGTF+1 04453000 CVTRSV27 EQU CVTGTFST 04454000 CVTRNIO EQU CVTGTFST 04455000 CVTUSR EQU CVTGTFST 04456000 CVTRV318 EQU CVTFORM 04457000 CVTRV317 EQU CVTTMODE 04458000 CVTRV316 EQU CVTSTATE 04459000 CVTRV315 EQU CVTGTFS 04460000 CVTGTFAV EQU CVTGTFS 04461000 CVT0SCR1 EQU CVTMAP+232 04462000 CVTRV515 EQU CVTMAP+228 04463000 CVTRMS EQU CVTMAP+224 04464000 CVTPATCH EQU CVTMAP+220 04465000 CVTTSCE EQU CVTMAP+216 04466000 CVTLNKSC EQU CVTMAP+214 04467000 CVTQABST EQU CVTMAP+212 04468000 CVTMDLDS EQU CVTMAP+208 04469000 CVTUSER EQU CVTMAP+204 04470000 CVTABEND EQU CVTMAP+200 04471000 CVTSMCA EQU CVTMAP+196 04472000 CVTRSV18 EQU CVTMAP+192 04473000 CVTQLPAQ EQU CVTMAP+188 04474000 CVTQCDSR EQU CVTMAP+184 04475000 CVTRSV17 EQU CVTOPTB 04476000 CVTRSV16 EQU CVTOPTB 04477000 CVTFP EQU CVTOPTB 04478000 CVTAPTHR EQU CVTOPTB 04479000 CVTNLOG EQU CVTOPTB 04480000 CVTTOD EQU CVTOPTB 04481000 CVTCTIMS EQU CVTOPTB 04482000 CVTPROT EQU CVTOPTB 04483000 CVTXPFP EQU CVTOPTA 04484000 CVTASCII EQU CVTOPTA 04485000 CVTRSV13 EQU CVTOPTA 04486000 CVTRSV12 EQU CVTOPTA 04487000 CVTNIP EQU CVTOPTA 04488000 CVTDDR EQU CVTOPTA 04489000 CVTAPR EQU CVTOPTA 04490000 CVTCCH EQU CVTOPTA 04491000 CVTSNCTR EQU CVTMAP+180 04492000 CVTQMWR EQU CVTMAP+176 04493000 CVTQOCR EQU CVTMAP+172 04494000 CVT1EF00 EQU CVTMAP+168 04495000 CVTMZ00 EQU CVTMAP+164 04496000 CVTSV76Q EQU CVTSV76C 04497000 CVTRSV11 EQU CVTMAP+156 04498000 CVT0PT01 EQU CVTMAP+152 04499000 CVTMSER EQU CVTMAP+148 04500000 CVTRV516 EQU CVTIERLC 04501000 CVTILCH EQU CVTMAP+140 04502000 CVT0DS EQU CVTMAP+136 04503000 CVTFBOSV EQU CVTMAP+132 04504000 CVTNUCB EQU CVTMAP+128 04505000 CVTIXAVL EQU CVTMAP+124 04506000 CVTSV76M EQU CVTIOQET 04507000 CVTDCBA EQU CVTMAP+117 04508000 CVTMVS2 EQU CVTDCB 04509000 CVT6DAT EQU CVTDCB 04510000 CVT4MPS EQU CVTDCB 04511000 CVTRSV09 EQU CVTDCB 04512000 CVT4MS1 EQU CVTDCB 04513000 CVT2SPS EQU CVTDCB 04514000 CVT1SSS EQU CVTDCB 04515000 CVTRSV08 EQU CVTDCB 04516000 CVTSTB EQU CVTMAP+112 04517000 CVTQTD00 EQU CVTMAP+108 04518000 CVTQTE00 EQU CVTMAP+104 04519000 CVTSJQ EQU CVTMAP+96 04520000 CVTPBLDL EQU CVTMAP+92 04521000 CVTTPC EQU CVTMAP+88 04522000 CVTSVDCB EQU CVTMAP+84 04523000 CVTBRET EQU CVTMAP+82 04524000 CVTEXIT EQU CVTMAP+80 04525000 CVT0FN00 EQU CVTMAP+76 04526000 CVTDARA EQU CVTDAR+1 04527000 CVTRSV07 EQU CVTFLGS1 04528000 CVTRSV06 EQU CVTFLGS1 04529000 CVTRSV05 EQU CVTFLGS1 04530000 CVTRSV04 EQU CVTFLGS1 04531000 CVTRSV03 EQU CVTFLGS1 04532000 CVTRSV02 EQU CVTFLGS1 04533000 CVTRSV01 EQU CVTFLGS1 04534000 CVTDMPLK EQU CVTFLGS1 04535000 CVTXITP EQU CVTMAP+68 04536000 CVTZDTAB EQU CVTMAP+64 04537000 CVTMSLT EQU CVTMAP+60 04538000 CVTDATE EQU CVTMAP+56 04539000 CVTBTERM EQU CVTMAP+52 04540000 CVTSYSAD EQU CVTMAP+48 04541000 CVTXTLER EQU CVTMAP+44 04542000 CVTILK1 EQU CVTMAP+36 04543000 CVTPRLTV EQU CVTMAP+32 04544000 CVTPCNVT EQU CVTMAP+28 04545000 CVT0VL00 EQU CVTMAP+24 04546000 CVTXAPG EQU CVTMAP+20 04547000 CVTBUF EQU CVTMAP+16 04548000 CVTJOB EQU CVTMAP+12 04549000 CVT0EF00 EQU CVTMAP+4 04550000 CVT EQU CVTMAP 04551000 UCBERADR EQU UCBUCS+12 04552000 UCBFCBID EQU UCBUCS+8 04553000 UCBERCNT EQU UCBUCS+7 04554000 UCBRSV51 EQU UCBUCS+6 04555000 UCBRSV50 EQU UCBFCBOP 04556000 UCBRSV49 EQU UCBFCBOP 04557000 UCBRSV48 EQU UCBFCBOP 04558000 UCBRSV47 EQU UCBFCBOP 04559000 UCBRSV46 EQU UCBFCBOP 04560000 UCBRSV45 EQU UCBFCBOP 04561000 UCBRSV44 EQU UCBFCBOP 04562000 UCBFCBO1 EQU UCBFCBOP 04563000 UCBUCSPE EQU UCBUCSOP 04564000 UCBRSV43 EQU UCBUCSOP 04565000 UCBRSV42 EQU UCBUCSOP 04566000 UCBRSV41 EQU UCBUCSOP 04567000 UCBRSV40 EQU UCBUCSOP 04568000 UCBRSV39 EQU UCBUCSOP 04569000 UCBUCSO2 EQU UCBUCSOP 04570000 UCBUCSO1 EQU UCBUCSOP 04571000 UCBUCSID EQU UCBUCS 04572000 UCBMDRBA EQU UCBMDRBF+1 04573000 UCBRV075 EQU UCBMDRBF 04574000 UCBRV074 EQU UCB3800X+32 04575000 UCBIMAGE EQU UCB3800X+28 04576000 UCBFCBNM EQU UCB3800X+24 04577000 UCBCHAR4 EQU UCB3800X+20 04578000 UCBCHAR3 EQU UCB3800X+16 04579000 UCBCHAR2 EQU UCB3800X+12 04580000 UCBCHAR1 EQU UCB3800X+8 04581000 UCBCGMID EQU UCB3800X+4 04582000 UCBBRSTA EQU UCBACTIV 04583000 UCBRV063 EQU UCBACTIV 04584000 UCBRV062 EQU UCBACTIV 04585000 UCBRV061 EQU UCBACTIV 04586000 UCBRV060 EQU UCBACTIV 04587000 UCBRV059 EQU UCBACTIV 04588000 UCBRV058 EQU UCBACTIV 04589000 UCBRV057 EQU UCBACTIV 04590000 UCBRV050 EQU UCB3800X+2 04591000 UCBCGMNO EQU UCB3800X+1 04592000 UCBRV083 EQU UCBOPTNS 04593000 UCBBRSTR EQU UCBOPTNS 04594000 UCBRV056 EQU UCBOPTNS 04595000 UCBRV055 EQU UCBOPTNS 04596000 UCBRV054 EQU UCBOPTNS 04597000 UCBRV053 EQU UCBOPTNS 04598000 UCBRV052 EQU UCBOPTNS 04599000 UCBRV051 EQU UCBOPTNS 04600000 UCBRV073 EQU UCB3540X+7 04601000 UCBRV072 EQU UCBDKBYT 04602000 UCBRV071 EQU UCBDKBYT 04603000 UCBRV070 EQU UCBDKBYT 04604000 UCBRV069 EQU UCBDKBYT 04605000 UCBRV068 EQU UCBDKBYT 04606000 UCBRV067 EQU UCBDKBYT 04607000 UCBVLVER EQU UCBDKBYT 04608000 UCBDKAMX EQU UCBDKBYT 04609000 UCBVLSER EQU UCB3540X 04610000 UCBRDATA EQU UCBOCR+4 04611000 UCBFRID EQU UCBOCR 04612000 UCBCLN EQU UCBMT+14 04613000 UCBERG EQU UCBMT+12 04614000 UCBMS EQU UCBMT+11 04615000 UCBNB EQU UCBMT+10 04616000 UCBPW EQU UCBMT+9 04617000 UCBPR EQU UCBMT+8 04618000 UCBSIO EQU UCBMT+6 04619000 UCBTW EQU UCBMT+5 04620000 UCBTR EQU UCBMT+4 04621000 UCBTWT EQU UCBMT+3 04622000 UCBTRT EQU UCBMT+2 04623000 UCBCTD EQU UCBMT 04624000 UCBWTOID EQU UCBCMEXT+17 04625000 UCBMIHTI EQU UCBCMEXT+16 04626000 UCBASID EQU UCBCMEXT+14 04627000 UCBMFCNT EQU UCBCMEXT+12 04628000 UCBPMSK EQU UCBCMEXT+10 04629000 UCBCCWOF EQU UCBCMEXT+8 04630000 UCBRV041 EQU UCBCMEXT+6 04631000 UCBRV036 EQU UCBFLP1 04632000 UCBRV035 EQU UCBFLP1 04633000 UCBERLOG EQU UCBFLP1 04634000 UCBRV033 EQU UCBFLP1 04635000 UCBINHIO EQU UCBFLP1 04636000 UCBNSWAP EQU UCBFLP1 04637000 UCBSHRUP EQU UCBFLP1 04638000 UCBNSRCH EQU UCBFLP1 04639000 UCBSNSCT EQU UCBCMEXT+4 04640000 UCBHPDV EQU @NM00078 04641000 UCBHALI EQU @NM00078 04642000 UCBRSV09 EQU @NM00078 04643000 UCBRSV08 EQU @NM00078 04644000 UCBRSV07 EQU @NM00078 04645000 UCBRSV06 EQU @NM00078 04646000 UCBRSV05 EQU @NM00078 04647000 UCBRSV04 EQU @NM00078 04648000 UCBDTI EQU UCBCMEXT+2 04649000 UCBSTI EQU UCBCMEXT+1 04650000 UCBETI EQU UCBCMEXT 04651000 UCBEXTP EQU UCBEXTPT+1 04652000 UCBDDRSW EQU UCBFLC 04653000 UCBTICBT EQU UCBFLC 04654000 UCBIVRR EQU UCBFLC 04655000 UCBIVRS EQU UCBFLC 04656000 UCBITF EQU UCBFLC 04657000 UCBUDE EQU UCBFLC 04658000 UCBWAA EQU UCBFLC 04659000 UCBATTP EQU UCBFLC 04660000 UCBRSV11 EQU UCBDVCLS 04661000 UCBRSV10 EQU UCBDVCLS 04662000 UCB3CHAR EQU UCBDVCLS 04663000 UCB3DISP EQU UCBDVCLS 04664000 UCB3DACC EQU UCBDVCLS 04665000 UCB3COMM EQU UCBDVCLS 04666000 UCB3TAPE EQU UCBDVCLS 04667000 UCBDVPWR EQU UCB2OPT7 04668000 UCBVLPWR EQU UCB2OPT6 04669000 UCB2OPT5 EQU UCBTBYT2 04670000 UCBRVDEV EQU UCBRWTAU 04671000 UCBRPS EQU UCBDUDN2 04672000 UCBRR EQU UCBDUDN1 04673000 UCB2OPT1 EQU UCBTBYT2 04674000 UCB2OPT0 EQU UCBTBYT2 04675000 UCB1FEA7 EQU UCBTBYT1 04676000 UCBD6250 EQU UCB1FEA6 04677000 UCBD1600 EQU UCB1FEA5 04678000 UCB1FEA4 EQU UCBTBYT1 04679000 UCB1FEA3 EQU UCBTBYT1 04680000 UCB1FEA2 EQU UCBTBYT1 04681000 UCB1FEA1 EQU UCBTBYT1 04682000 UCB1FEA0 EQU UCBTBYT1 04683000 UCBRV029 EQU UCBWGT 04684000 UCBVHRSN EQU UCBWGT 04685000 UCBVORSN EQU UCBWGT 04686000 UCBMTPXP EQU UCBWGT 04687000 UCBREW EQU UCBWGT 04688000 UCBPUB EQU UCBWGT 04689000 UCBOUT EQU UCBWGT 04690000 UCBIN EQU UCBWGT 04691000 UCBCPU EQU UCBOB+11 04692000 UCBLCI EQU UCBOB+10 04693000 UCBCNT EQU UCBOB+9 04694000 UCBRV017 EQU UCBCHM1 04695000 UCBRV016 EQU UCBCHM1 04696000 UCBRV015 EQU UCBCHM1 04697000 UCBRV014 EQU UCBCHM1 04698000 UCBSPB EQU UCBPTH1 04699000 UCBPPB EQU UCBPTH1 04700000 UCBSPA EQU UCBPTH0 04701000 UCBPPA EQU UCBPTH0 04702000 UCBSIGP EQU UCBFLB 04703000 UCBVALPH EQU UCBFLB 04704000 UCBCRHSN EQU UCBFLB 04705000 UCBCRHRV EQU UCBFLB 04706000 UCBRESVH EQU UCBFLB 04707000 UCBSPST EQU UCBFLB 04708000 UCBASNS EQU UCBFLB 04709000 UCBIORST EQU UCBFLB 04710000 UCBQISCE EQU UCBFL1 04711000 UCBACTV EQU UCBFL1 04712000 UCBSAP EQU UCBFL1 04713000 UCBNOTRC EQU UCBCUB 04714000 UCBPSNS EQU UCBFL1 04715000 UCBUSING EQU UCBPST 04716000 UCBNOTRD EQU UCBNRY 04717000 UCBBUSYD EQU UCBBSY 04718000 UCBCHA EQU UCBCHAN 04719000 UCBDADI EQU UCBSTAT 04720000 UCBSYSR EQU UCBSTAT 04721000 UCBPRES EQU UCBSTAT 04722000 UCBALOC EQU UCBSTAT 04723000 UCBUNLD EQU UCBSTAT 04724000 UCBRESV EQU UCBSTAT 04725000 UCBCHGS EQU UCBSTAT 04726000 UCBONLI EQU UCBSTAT 04727000 UCBID EQU UCBOB+2 04728000 UCBALTPH EQU UCBFL5 04729000 UCBALTCU EQU UCBFL5 04730000 UCBNALOC EQU UCBFL5 04731000 UCBENVRD EQU UCBFL5 04732000 UCBVSDR EQU UCBFL5 04733000 UCBSASK EQU UCBFL5 04734000 UCBAMV EQU UCBAF 04735000 UCBDCC EQU UCBFL5 04736000 UCBMONT EQU UCBJBNR 04737000 UCBRV011 EQU UCBJBNR 04738000 UCBMMSGP EQU UCBJBNR 04739000 UCBOLDSM EQU UCBJBNR 04740000 UCBRV003 EQU UCBJBNR 04741000 UCBDUC EQU UCBJBNR 04742000 UCBJES3 EQU UCBJBNR 04743000 UCBVRDEV EQU UCBJBNR 04744000 UCBCMSEG EQU UCBOB 04745000 UCBPFXND EQU UCB+512 04746000 UCBIOQ EQU UCB+508 04747000 UCBLOCK EQU UCB+504 04748000 UCBPXST EQU UCB+504 04749000 @NM00075 EQU UCB 04750000 SSVTFRTN EQU SSVT+260 04751000 SSVTFNUM EQU SSVTFSIZ+2 04752000 SSVTRSV1 EQU SSVTFSIZ 04753000 APSVWORK EQU APSV+80 04754000 @NM00074 EQU APSV+80 04755000 APSVFREE EQU APSV+76 04756000 APSVAPSM EQU APSV+72 04757000 APSVRG12 EQU APSVREGS+56 04758000 APSVRG11 EQU APSVREGS+52 04759000 APSVRG10 EQU APSVREGS+48 04760000 APSVRG9 EQU APSVREGS+44 04761000 APSVRG8 EQU APSVREGS+40 04762000 APSVRG7 EQU APSVREGS+36 04763000 APSVRG6 EQU APSVREGS+32 04764000 APSVRG5 EQU APSVREGS+28 04765000 APSVRG4 EQU APSVREGS+24 04766000 APSVRG3 EQU APSVREGS+20 04767000 APSVRG2 EQU APSVREGS+16 04768000 APSVRG1 EQU APSVREGS+12 04769000 APSVRG0 EQU APSVREGS+8 04770000 APSVRG15 EQU APSVREGS+4 04771000 APSVRG14 EQU APSVREGS 04772000 APSVNEXT EQU APSV+8 04773000 APSVPREV EQU APSV+4 04774000 APSVAPSC EQU APSV 04775000 @NM00073 EQU APOTAD+2 04776000 APOTADOF EQU APOTAD 04777000 @NM00072 EQU APOTVT+4 04778000 APOTVTOF EQU APOTVT+2 04779000 @NM00071 EQU APOTVTIT 04780000 APOTVTSS EQU APOTVTIT 04781000 @NM00070 EQU APOTNM+12 04782000 APOTNMSU EQU APOTNM+11 04783000 @NM00069 EQU APOTNMF0 04784000 APOTNMSD EQU APOTNMF0 04785000 APOTNMSA EQU APOTNMF0 04786000 APOTNMFX EQU APOTNMF0 04787000 APOTNMOF EQU APOTNM+8 04788000 APOTNMLD EQU APOTNM 04789000 @NM00068 EQU APOT+64 04790000 @NM00067 EQU APOT+60 04791000 APOTCPLN EQU APOT+56 04792000 APOTCPPL EQU APOT+52 04793000 APOTCPCT EQU APOT+48 04794000 APOTCPAD EQU APOT+44 04795000 APOTBR14 EQU APOT+40 04796000 APOTADCT EQU APOT+36 04797000 APOTNMCT EQU APOT+20 04798000 APOTCTLN EQU APOT+12 04799000 APOTCTAD EQU APOT+8 04800000 APOTUSER EQU APOT+4 04801000 APOTID EQU APOT 04802000 @NM00066 EQU APUB+120 04803000 @NM00065 EQU APUB+112 04804000 APUBJBNM EQU APUB+104 04805000 APUBRSVD EQU APUB+100 04806000 APUBASCB EQU APUBDCB 04807000 @NM00064 EQU APUBIOFG+4 04808000 @NM00063 EQU APUBIOF3 04809000 APUBISHR EQU APUBIOF3 04810000 APUBIRIP EQU APUBIOF3 04811000 @NM00062 EQU APUBIOF2 04812000 APUBIEXC EQU APUBIOF2 04813000 @NM00061 EQU APUBIOF1 04814000 APUBIIPL EQU APUBIOF1 04815000 APUBIERR EQU APUBIOF1 04816000 @NM00060 EQU APUBIOF0 04817000 APUBINRG EQU APUBIOF0 04818000 @NM00059 EQU APUB+85 04819000 @NM00058 EQU APUBSTAT 04820000 APUBQISC EQU APUBSTAT 04821000 APUBPDMP EQU APUBSTAT 04822000 APUBFDMP EQU APUBSTAT 04823000 APUBRIPL EQU APUBSTAT 04824000 @NM00057 EQU APUBALF3 04825000 APUBSCAL EQU APUBALF3 04826000 APUBSCAV EQU APUBALF3 04827000 APUBBIST EQU APUBALF3 04828000 APUBBTST EQU APUBALF3 04829000 @NM00056 EQU APUBALF2 04830000 APUBBIER EQU APUBALF2 04831000 APUBBOPT EQU APUBALF2 04832000 APUBBREQ EQU APUBALF2 04833000 APUBBYT1 EQU APUBALF2 04834000 @NM00055 EQU APUBALF1 04835000 APUBUNLP EQU APUBALF1 04836000 APUBDSBP EQU APUBALF1 04837000 APUBBERR EQU APUBALF1 04838000 APUBZRGN EQU APUBALF1 04839000 @NM00054 EQU APUBALF0 04840000 APUBOWN EQU APUBALF0 04841000 APUBCPU EQU APUB+78 04842000 APUBINIT EQU APUB+76 04843000 APUBIPL EQU APUB+74 04844000 APUBERRJ EQU APUBERRS+20 04845000 APUBERRD EQU APUBERRS+18 04846000 APUBERRC EQU APUBERRS+16 04847000 APUBERRB EQU APUBERRS+14 04848000 APUBERRA EQU APUBERRS+12 04849000 APUBERR9 EQU APUBERRS+10 04850000 APUBERR3 EQU APUBERRS+8 04851000 APUBERR2 EQU APUBERRS+6 04852000 APUBERR1 EQU APUBERRS+4 04853000 APUBERR0 EQU APUBERRS+2 04854000 @NM00053 EQU APUBERRS 04855000 @NM00052 EQU APUB+50 04856000 APUBRGN EQU APUB+48 04857000 APUBERRT EQU APUB+44 04858000 APUBAPDS EQU APUB+32 04859000 APUBIOCT EQU APUB+24 04860000 APUBUSER EQU APUB+16 04861000 APUBNXIO EQU APUB+12 04862000 @NM00036 EQU APCT+1556 04863000 APCTSVCT EQU APCT+1552 04864000 APCTDAVT EQU APCT+1548 04865000 @NM00035 EQU APCT+1540 04866000 APCTDMPU EQU APCT+1536 04867000 APCTDMPM EQU APCT+1532 04868000 APCTNDMP EQU APCT+1530 04869000 APCTABR EQU APCT+1116 04870000 APCTACTR EQU APCT+1112 04871000 @NM00034 EQU APCT+1080 04872000 @NM00033 EQU APCT+1078 04873000 APCTKCAX EQU APCT+1076 04874000 APCTABND EQU APCT+1072 04875000 @NM00032 EQU APCT+1068 04876000 APCTCSCT EQU APCT+1060 04877000 APCTSTDF EQU APCT+1056 04878000 APCTSTMX EQU APCT+1052 04879000 APCTRGMX EQU APCT+1048 04880000 APCTSIZE EQU APCT+1046 04881000 APCTCTUB EQU APCT+1045 04882000 APCTMFID EQU APCT+1044 04883000 APCTMFSZ EQU APCT+1040 04884000 APCTCRTN EQU APCT+1036 04885000 APCTAPCP EQU APCT+1032 04886000 APCTAMNA EQU APCT+1028 04887000 APCTEMNA EQU APCT+1024 04888000 APCTAALP EQU APCT+1020 04889000 APCTEALP EQU APCT+1016 04890000 @NM00031 EQU APCT+1012 04891000 @NM00030 EQU APCT+1008 04892000 @NM00029 EQU APCT+1004 04893000 @NM00028 EQU APCT+996 04894000 @NM00027 EQU APCT+992 04895000 @NM00026 EQU APCT+988 04896000 @NM00025 EQU APCT+984 04897000 @NM00024 EQU APCT+980 04898000 APCTECBL EQU APCT+960 04899000 APCTCQAF EQU APCTCQAQ 04900000 @NM00023 EQU @NM00019+2 04901000 @NM00022 EQU APCTPRSW 04902000 @NM00021 EQU APCTPRSW 04903000 @NM00020 EQU APCTSTAT 04904000 APCTTERM EQU APCTSTAT 04905000 APCTHALT EQU APCTSTAT 04906000 APCTQSCE EQU APCTSTAT 04907000 APCTACT EQU APCTSTAT 04908000 APCTVUNX EQU APCT+935 04909000 APCTSOUT EQU APCT+934 04910000 APCTDAID EQU APCT+933 04911000 APCTSV34 EQU APCT+932 04912000 APCTMJOB EQU APCT+928 04913000 APCTDCNW EQU APCT+918 04914000 APCTDCNR EQU APCT+916 04915000 @NM00018 EQU APCT+912 04916000 @NM00017 EQU APCT+908 04917000 @NM00016 EQU APCT+904 04918000 @NM00015 EQU APCT+900 04919000 @NM00014 EQU APCTERRS+22 04920000 APCTERTJ EQU APCTERRS+20 04921000 APCTERTD EQU APCTERRS+18 04922000 APCTERTC EQU APCTERRS+16 04923000 APCTERTB EQU APCTERRS+14 04924000 APCTERTA EQU APCTERRS+12 04925000 APCTERT9 EQU APCTERRS+10 04926000 APCTERT3 EQU APCTERRS+8 04927000 APCTERT2 EQU APCTERRS+6 04928000 APCTERT1 EQU APCTERRS+4 04929000 APCTERT0 EQU APCTERRS+2 04930000 APCTERTT EQU APCTERRS 04931000 APCTUBLK EQU APCT+844 04932000 APCTBR1A EQU APCTBR14+2 04933000 @NM00013 EQU APCTBR14 04934000 APCTSMSZ EQU APCTSMAD+2 04935000 @NM00012 EQU APCTSMAD+1 04936000 @NM00011 EQU APCTSMAD 04937000 APCTSMIS EQU APCTSMIN+2 04938000 @NM00010 EQU APCTSMIN+1 04939000 APCTSMSP EQU APCTSMIN 04940000 @NM00009 EQU APCT+30 04941000 APCTLINE EQU APCT+28 04942000 APCTLBSZ EQU APCT+24 04943000 APCTREG EQU APCT+20 04944000 @NM00008 EQU APCTENQM 04945000 APCTUSER EQU APCT+4 04946000 APCTID EQU APCT 04947000 UCMPRSV2 EQU UCMPEXTA+20 04948000 UCMPRSV1 EQU UCMPDM1+8 04949000 UCMPNMCC EQU UCMPDM1+4 04950000 UCMPWQE EQU UCMPDM1 04951000 UCMPUCMP EQU UCMPEXTA 04952000 UCMFRSV3 EQU UCMFEXTA+20 04953000 UCMF80WQ EQU UCMFEXTA+18 04954000 UCMF60WQ EQU UCMFEXTA+16 04955000 UCMFRSV2 EQU UCMFMGFS+4 04956000 UCMFRSV1 EQU UCMFMGFS+2 04957000 UCMFFLG2 EQU UCMFMGFS+1 04958000 UCMFBR07 EQU UCMFFLG1 04959000 UCMFBR06 EQU UCMFFLG1 04960000 UCMFBR05 EQU UCMFFLG1 04961000 UCMFBR04 EQU UCMFFLG1 04962000 UCMFBR03 EQU UCMFFLG1 04963000 UCMFMSGN EQU UCMFFLG1 04964000 UCMFMSGA EQU UCMFFLG1 04965000 UCMFMSGE EQU UCMFFLG1 04966000 UCMFPPTR EQU UCMFEXTA+4 04967000 UCMFUCMF EQU UCMFEXTA 04968000 UCMRCTA EQU UCMRCT+1 04969000 UCMRSV31 EQU UCMSDS5 04970000 UCMSDS5G EQU UCMSDS5 04971000 UCMSDS5F EQU UCMSDS5 04972000 UCMRSV30 EQU UCMSDS5 04973000 UCMRSV29 EQU UCMSDS5 04974000 UCMSDS5C EQU UCMSDS5 04975000 UCMSDS5B EQU UCMSDS5 04976000 UCMSDS5A EQU UCMSDS5 04977000 UCMMLAST EQU UCMLIST+64 04978000 UCMVHRSN EQU UCMDEVC 04979000 UCMDEVG EQU UCMDEVC 04980000 UCMDEVF EQU UCMDEVC 04981000 UCMDEVE EQU UCMDEVC 04982000 UCMDEVD EQU UCMDEVC 04983000 UCMDEVCC EQU UCMDEVC 04984000 UCMDEVB EQU UCMDEVC 04985000 UCMDEVA EQU UCMDEVC 04986000 UCMXOR EQU UCMLIST+62 04987000 UCMMSG2 EQU UCMMSG+1 04988000 UCMRSV27 EQU UCMMSG1 04989000 UCMRSV26 EQU UCMMSG1 04990000 UCMMSGF EQU UCMMSG1 04991000 UCMMSGE EQU UCMMSG1 04992000 UCMMSGD EQU UCMMSG1 04993000 UCMMSGC EQU UCMMSG1 04994000 UCMMSGB EQU UCMMSG1 04995000 UCMMSGA EQU UCMMSG1 04996000 UCMCOMPC EQU UCMLIST+56 04997000 UCMWLAST EQU UCMLIST+52 04998000 UCMOAOEN EQU UCMLIST+48 04999000 UCMALTEN EQU UCMLIST+44 05000000 UCMRV007 EQU UCMDISP2 05001000 UCMRV006 EQU UCMDISP2 05002000 UCMRV005 EQU UCMDISP2 05003000 UCMRV004 EQU UCMDISP2 05004000 UCMRV003 EQU UCMDISP2 05005000 UCMDISPK EQU UCMDISP2 05006000 UCMDISPJ EQU UCMDISP2 05007000 UCMDISPI EQU UCMDISP2 05008000 UCMDISPH EQU UCMDISP1 05009000 UCMDISPG EQU UCMDISP1 05010000 UCMDISPF EQU UCMDISP1 05011000 UCMDISPE EQU UCMDISP1 05012000 UCMDISPD EQU UCMDISP1 05013000 UCMDISPC EQU UCMDISP1 05014000 UCMDISPB EQU UCMDISP1 05015000 UCMDISPA EQU UCMDISP1 05016000 UCMAUTHB EQU UCMAUTH+1 05017000 UCMRSV23 EQU UCMAUTHA 05018000 UCMRSV22 EQU UCMAUTHA 05019000 UCMRSV21 EQU UCMAUTHA 05020000 UCMRSV20 EQU UCMAUTHA 05021000 UCMRSV19 EQU UCMAUTHA 05022000 UCMAUTH3 EQU UCMAUTHA 05023000 UCMAUTH2 EQU UCMAUTHA 05024000 UCMAUTH1 EQU UCMAUTHA 05025000 UCMOUTQ EQU UCMLIST+36 05026000 UCMRSV18 EQU UCMLIST+34 05027000 UCMRTCD EQU UCMLIST+32 05028000 UCMXB EQU UCMLIST+28 05029000 @NM00007 EQU UCMXA+1 05030000 UCMRSV17 EQU UCMATR 05031000 UCMRSV16 EQU UCMATR 05032000 UCMAT04 EQU UCMATR 05033000 UCMLF EQU UCMATR 05034000 UCMUF EQU UCMATR 05035000 UCMXF EQU UCMATR 05036000 UCMIF EQU UCMATR 05037000 UCMOF EQU UCMATR 05038000 UCMTC EQU UCMSTS 05039000 UCMTD EQU UCMSTS 05040000 UCMTB EQU UCMSTS 05041000 UCMTA EQU UCMSTS 05042000 UCMCF EQU UCMSTS 05043000 UCMBF EQU UCMSTS 05044000 UCMPF EQU UCMSTS 05045000 UCMAF EQU UCMSTS 05046000 UCMNAME EQU UCMLIST+16 05047000 UCMUCB EQU UCMLIST+12 05048000 UCMDCB EQU UCMLIST+8 05049000 UCMSBR EQU UCMLIST+4 05050000 UCMECB EQU UCMLIST 05051000 UCMTPSAV EQU UCMEXIT+208 05052000 UCMXTSAV EQU UCMEXIT+136 05053000 UCMDESCD EQU UCMEXIT+132 05054000 UCMROUTC EQU UCMEXIT+128 05055000 UCMMSTXT EQU UCMEXIT 05056000 UCMDECBA EQU UCMEIL+20 05057000 UCMOECBA EQU UCMEIL+16 05058000 UCMAECBA EQU UCMEIL+12 05059000 UCMXECBA EQU UCMEIL+8 05060000 UCMNIPTR EQU UCMEIL+4 05061000 UCMRSV15 EQU UCMEIL+3 05062000 UCMRTCT EQU UCMEIL+2 05063000 UCMRPYL EQU UCMEIL+1 05064000 @NM00006 EQU UCMEIL 05065000 UCMRSV60 EQU UCM+302 05066000 UCMRSV59 EQU UCMRSV51 05067000 UCMRSV58 EQU UCMRSV51 05068000 UCMRSV57 EQU UCMRSV51 05069000 UCMRSV56 EQU UCMRSV51 05070000 UCMRSV55 EQU UCMRSV51 05071000 UCMRSV54 EQU UCMRSV51 05072000 UCMRSV53 EQU UCMRSV51 05073000 UCMRSV52 EQU UCMRSV51 05074000 UCMRSV50 EQU UCMRSV42 05075000 UCMRSV49 EQU UCMRSV42 05076000 UCMRSV48 EQU UCMRSV42 05077000 UCMRSV47 EQU UCMRSV42 05078000 UCMRSV46 EQU UCMRSV42 05079000 UCMRSV45 EQU UCMRSV42 05080000 UCMRSV44 EQU UCMRSV42 05081000 UCMRSV43 EQU UCMRSV42 05082000 UCMJES3T EQU UCM+296 05083000 UCMWAKUP EQU UCM+292 05084000 UCMFRRAD EQU UCM+288 05085000 UCMSWCH EQU UCM+284 05086000 UCMASCB EQU UCM+280 05087000 UCMWQECP EQU UCM+276 05088000 UCMORECP EQU UCM+272 05089000 UCMOECBT EQU UCM+268 05090000 UCMOECBH EQU UCM+264 05091000 UCMWECBT EQU UCM+260 05092000 UCMWECBH EQU UCM+256 05093000 UCMMBEND EQU UCM+252 05094000 UCMCTID EQU UCM+250 05095000 UCMRSV61 EQU UCM+248 05096000 UCMRP2AD EQU UCM+244 05097000 UCMCRAAD EQU UCM+240 05098000 UCMWQLM1 EQU UCM+238 05099000 UCMRV001 EQU UCM+237 05100000 UCMRQLM1 EQU UCM+236 05101000 UCMMBPTR EQU UCM+232 05102000 UCMMQNXT EQU UCM+228 05103000 UCMMQEND EQU UCM+224 05104000 UCMMQPTR EQU UCM+220 05105000 UCMTRECB EQU UCM+216 05106000 UCMMNECB EQU UCM+212 05107000 UCMMNTR EQU UCM+208 05108000 UCMR9SV EQU UCM+204 05109000 UCMSAVE4 EQU UCM+140 05110000 UCMSAVE3 EQU UCM+84 05111000 UCMVEL EQU UCMVDATA+8 05112000 UCMVEZ EQU UCMVDATA+4 05113000 UCMVEA EQU UCMVDATA 05114000 UCMINCR EQU UCM+71 05115000 UCMMODEL EQU UCM+70 05116000 UCMCORE EQU UCM+69 05117000 UCMFIX EQU UCMMODE 05118000 UCMMCS EQU UCMMODE 05119000 UCMOGCE EQU UCMMODE 05120000 UCMAMFA EQU UCMMODE 05121000 UCMRSV14 EQU UCMMODE 05122000 UCMTPUTA EQU UCMMODE 05123000 UCMNOCON EQU UCMMODE 05124000 UCMRSV11 EQU UCMMODE 05125000 UCMPXA EQU UCM+64 05126000 UCMWQEND EQU UCM+60 05127000 UCMWQNR EQU UCM+58 05128000 UCMRQNR EQU UCM+56 05129000 UCMWQECB EQU UCM+52 05130000 UCMRQECB EQU UCM+48 05131000 UCMWQLM EQU UCM+46 05132000 UCMRQLM EQU UCM+45 05133000 @NM00005 EQU UCMRPYI 05134000 UCMRPYQ EQU UCM+28 05135000 UCMWTOQ EQU UCM+24 05136000 UCMLSTP EQU UCM+20 05137000 UCMARECB EQU UCM+16 05138000 UCMLECB EQU UCMDECB 05139000 UCMOECB EQU UCM+8 05140000 UCMAECB EQU UCM+4 05141000 UCMXECB EQU UCM 05142000 UCMGMCNT EQU UCMPRFX+158 05143000 UCMSDS2 EQU UCMPRFX+157 05144000 UCMRSV09 EQU UCMSDS1 05145000 UCMRSV08 EQU UCMSDS1 05146000 UCMRSV07 EQU UCMSDS1 05147000 UCMRSV06 EQU UCMSDS1 05148000 UCMRSV05 EQU UCMSDS1 05149000 UCMRSV04 EQU UCMSDS1 05150000 UCMSDS1B EQU UCMSDS1 05151000 UCMSDS1A EQU UCMSDS1 05152000 UCMDTINT EQU UCMPRFX+152 05153000 UCMLOGAD EQU UCMPRFX+148 05154000 UCMNPECB EQU UCMPRFX+144 05155000 UCMTPPTR EQU UCMPRFX+140 05156000 UCMDOMRT EQU UCMPRFX+136 05157000 UCMRUTCK EQU UCMPRFX+132 05158000 UCMQRTN EQU UCMPRFX+128 05159000 UCM6WD EQU UCMXSA+20 05160000 UCM5WD EQU UCMXSA+16 05161000 UCM4WD EQU UCMXSA+12 05162000 UCM3WD EQU UCMXSA+8 05163000 UCM2WD EQU UCMXSA+4 05164000 UCM1WD EQU UCMXSA 05165000 UCMRSV03 EQU UCMPRFX+102 05166000 UCMHRDRT EQU UCMPRFX+100 05167000 UCMUEXIT EQU UCMPRFX+97 05168000 UCMXCT EQU UCMPRFX+96 05169000 UCMHCUCM EQU UCMPRFX+92 05170000 UCMCMID EQU UCMPRFX+88 05171000 UCMOWTOR EQU UCMPRFX+86 05172000 UCMRSV02 EQU UCMSFLG2 05173000 UCMSYSO EQU UCMSFLG2 05174000 UCMSYSN EQU UCMSFLG2 05175000 UCMSYSM EQU UCMSFLG2 05176000 UCMSYSL EQU UCMSFLG2 05177000 UCMSYSK EQU UCMSFLG2 05178000 UCMSYSJ EQU UCMSFLG2 05179000 UCMSYSI EQU UCMSFLG2 05180000 UCMRSV35 EQU UCMSFLG1 05181000 UCMSYSG EQU UCMSFLG1 05182000 UCMSYSF EQU UCMSFLG1 05183000 UCMSYSE EQU UCMSFLG1 05184000 UCMSYSD EQU UCMSFLG1 05185000 UCMSYSC EQU UCMSFLG1 05186000 UCMSYSB EQU UCMSFLG1 05187000 UCMRSV01 EQU UCMSFLG1 05188000 UCMWTOX EQU UCMPRFX+80 05189000 UCMDOME EQU UCMPRFX+76 05190000 UCMSVR0 EQU UCMSAVE0+68 05191000 UCMSVQ0 EQU UCMSAVE0+64 05192000 UCMSVP0 EQU UCMSAVE0+60 05193000 UCMSVO0 EQU UCMSAVE0+56 05194000 UCMSVN0 EQU UCMSAVE0+52 05195000 UCMSVM0 EQU UCMSAVE0+48 05196000 UCMSVL0 EQU UCMSAVE0+44 05197000 UCMSVK0 EQU UCMSAVE0+40 05198000 UCMSVJ0 EQU UCMSAVE0+36 05199000 UCMSVI0 EQU UCMSAVE0+32 05200000 UCMSVH0 EQU UCMSAVE0+28 05201000 UCMSVG0 EQU UCMSAVE0+24 05202000 UCMSVF0 EQU UCMSAVE0+20 05203000 UCMSVE0 EQU UCMSAVE0+16 05204000 UCMSVD0 EQU UCMSAVE0+12 05205000 UCMSVC0 EQU UCMSAVE0+8 05206000 UCMSVB0 EQU UCMSAVE0+4 05207000 UCMSVA0 EQU UCMSAVE0 05208000 UCM2FEXT EQU UCM2EXT+12 05209000 UCM2STAA EQU UCM2STA+1 05210000 UCMRV008 EQU UCM2SFLG 05211000 UCMRSV34 EQU UCM2SFLG 05212000 UCMRSV33 EQU UCM2SFLG 05213000 UCM2WTOI EQU UCM2SFLG 05214000 UCM2DSTR EQU UCM2SFLG 05215000 UCM2DTAK EQU UCM2SFLG 05216000 UCM2SENT EQU UCM2SFLG 05217000 UCM2SDWA EQU UCM2SFLG 05218000 UCM2PST EQU UCM2EXT+4 05219000 UCM2RID EQU UCM2EXT+2 05220000 UCM2WID EQU UCM2EXT 05221000 NEXTASCB EQU TASKINFO+8 05222000 NEXTTCB EQU TASKINFO 05223000 ENQRC EQU @NM00001+3 05224000 @NM00002 EQU @NM00001 05225000 @NM00135 EQU PSA+3668 05226000 PSASTAK EQU PSA+3072 05227000 @NM00134 EQU PSA+1048 05228000 PSAUSEND EQU PSA+1048 05229000 PSARV062 EQU PSA+1044 05230000 PSACDAL EQU PSA+1040 05231000 PSAWTCOD EQU PSA+1036 05232000 PSAATCVT EQU PSA+1032 05233000 PSAPCPSW EQU PSA+1024 05234000 PSAPIR2 EQU PSA+1020 05235000 PSARV059 EQU PSA+1018 05236000 PSASVC13 EQU PSA+1016 05237000 PSALSFCC EQU PSA+1012 05238000 PSASFACC EQU PSA+1008 05239000 PSASTOP EQU PSA+992 05240000 PSASTART EQU PSA+976 05241000 PSARSPSW EQU PSA+968 05242000 PSASRPSW EQU PSA+960 05243000 PSARV045 EQU PSA+892 05244000 PSARV044 EQU PSA+888 05245000 PSARV043 EQU PSA+884 05246000 PSARV042 EQU PSA+880 05247000 PSARV041 EQU PSA+876 05248000 PSARV040 EQU PSA+872 05249000 PSARV025 EQU PSA+868 05250000 PSADSSED EQU PSA+868 05251000 PSADSSPR EQU PSA+864 05252000 PSADSSFW EQU PSA+860 05253000 PSADSS14 EQU PSA+856 05254000 PSADSSPP EQU PSA+848 05255000 PSADSSRP EQU PSA+840 05256000 PSADSS05 EQU PSADSSF4 05257000 PSADSS10 EQU PSADSSF4 05258000 PSADSSVE EQU PSADSSF4 05259000 PSADSSDE EQU PSADSSF4 05260000 PSADSSC0 EQU PSADSSF4 05261000 PSADSSIE EQU PSADSSF4 05262000 PSADSS12 EQU PSADSSF4 05263000 PSADSSRC EQU PSADSSF4 05264000 PSARV057 EQU PSADSSF3 05265000 PSARV056 EQU PSADSSF3 05266000 PSARV055 EQU PSADSSF3 05267000 PSADSSMC EQU PSADSSF3 05268000 PSADSSRW EQU PSADSSF3 05269000 PSADSSNM EQU PSADSSF3 05270000 PSADSSES EQU PSADSSF3 05271000 PSADSSGP EQU PSADSSF3 05272000 PSADSSF2 EQU PSADSSFL+1 05273000 PSADSSPI EQU PSADSSF1 05274000 PSADSSOI EQU PSADSSF1 05275000 PSADSSSP EQU PSADSSF1 05276000 PSADSSTP EQU PSADSSF1 05277000 PSADSSDW EQU PSADSSF1 05278000 PSADSSDD EQU PSADSSF1 05279000 PSADSSDM EQU PSADSSF1 05280000 PSADSSMV EQU PSADSSF1 05281000 PSADSSTS EQU PSA+816 05282000 PSADSSWK EQU PSA+812 05283000 PSADSSR3 EQU PSA+808 05284000 PSADSSR2 EQU PSA+804 05285000 PSADSSRS EQU PSA+800 05286000 PSASTOR EQU PSA+796 05287000 PSACPUSA EQU PSA+794 05288000 PSAVSTAP EQU PSA+792 05289000 PSAWKVAP EQU PSA+788 05290000 PSAWKRAP EQU PSA+784 05291000 PSAMCHIC EQU PSA+783 05292000 PSARV061 EQU PSA+782 05293000 PSASYMSK EQU PSA+781 05294000 PSAMCHFL EQU PSA+780 05295000 PSACR0 EQU PSA+776 05296000 PSAPSWSV EQU PSA+768 05297000 PSALITA EQU PSA+764 05298000 PSACLHS EQU PSAHLHI 05299000 PSALKR15 EQU PSALKSA+60 05300000 PSALKR14 EQU PSALKSA+56 05301000 PSALKR13 EQU PSALKSA+52 05302000 PSALKR12 EQU PSALKSA+48 05303000 PSALKR11 EQU PSALKSA+44 05304000 PSALKR10 EQU PSALKSA+40 05305000 PSALKR9 EQU PSALKSA+36 05306000 PSALKR8 EQU PSALKSA+32 05307000 PSALKR7 EQU PSALKSA+28 05308000 PSALKR6 EQU PSALKSA+24 05309000 PSALKR5 EQU PSALKSA+20 05310000 PSALKR4 EQU PSALKSA+16 05311000 PSALKR3 EQU PSALKSA+12 05312000 PSALKR2 EQU PSALKSA+8 05313000 PSALKR1 EQU PSALKSA+4 05314000 PSALKR0 EQU PSALKSA 05315000 PSARV023 EQU PSACLHT+52 05316000 PSALOCAL EQU PSACLHT+48 05317000 PSACMSL EQU PSACLHT+44 05318000 PSAOPTL EQU PSACLHT+40 05319000 PSATPACL EQU PSACLHT+36 05320000 PSATPDNL EQU PSACLHT+32 05321000 PSATPNCL EQU PSACLHT+28 05322000 PSAIOSLL EQU PSACLHT+24 05323000 PSAIOSUL EQU PSACLHT+20 05324000 PSAIOSCL EQU PSACLHT+16 05325000 PSAIOSSL EQU PSACLHT+12 05326000 PSASALCL EQU PSACLHT+8 05327000 PSAASML EQU PSACLHT+4 05328000 PSADISPL EQU PSACLHT 05329000 PSASRSA EQU PSA+636 05330000 PSARV050 EQU PSA+634 05331000 PSADSSGO EQU PSA+633 05332000 PSARECUR EQU PSA+632 05333000 PSAHLHIS EQU PSA+628 05334000 PSAIPCSA EQU PSA+624 05335000 @NM00133 EQU PSA+621 05336000 PSAIPCDM EQU PSA+620 05337000 PSAIPCD EQU PSA+616 05338000 @NM00132 EQU PSA+613 05339000 PSAIPCRM EQU PSA+612 05340000 PSAIPCR EQU PSA+608 05341000 PSAMCHEX EQU PSA+600 05342000 PSAMPSW EQU PSA+592 05343000 PSAEXPS2 EQU PSA+584 05344000 PSAEXPS1 EQU PSA+576 05345000 PSAPIREG EQU PSA+572 05346000 PSARSREG EQU PSA+568 05347000 PSAGPREG EQU PSA+556 05348000 PSARV022 EQU PSASUP4 05349000 PSARV021 EQU PSASUP4 05350000 PSARV020 EQU PSASUP4 05351000 PSARV019 EQU PSASUP4 05352000 PSARV018 EQU PSASUP4 05353000 PSARV017 EQU PSASUP4 05354000 PSARV016 EQU PSASUP4 05355000 PSARV015 EQU PSASUP4 05356000 PSARV014 EQU PSASUP3 05357000 PSARV013 EQU PSASUP3 05358000 PSARV012 EQU PSASUP3 05359000 PSAESTA EQU PSASUP3 05360000 PSASPR EQU PSASUP3 05361000 PSAPSREG EQU PSASUP3 05362000 PSAPI2 EQU PSASUP3 05363000 PSAIOSUP EQU PSASUP3 05364000 PSALCR EQU PSASUP2 05365000 PSARTM EQU PSASUP2 05366000 PSAACR EQU PSASUP2 05367000 PSAIPCE2 EQU PSASUP2 05368000 PSAIPCES EQU PSASUP2 05369000 PSAIPCEC EQU PSASUP2 05370000 PSAGTF EQU PSASUP2 05371000 PSAIPCRI EQU PSASUP2 05372000 PSATYPE6 EQU PSASUP1 05373000 PSATCTL EQU PSASUP1 05374000 PSADISP EQU PSASUP1 05375000 PSALOCK EQU PSASUP1 05376000 PSAPI EQU PSASUP1 05377000 PSAEXT EQU PSASUP1 05378000 PSASVC EQU PSASUP1 05379000 PSAIO EQU PSASUP1 05380000 PSAAOLD EQU PSA+548 05381000 PSAANEW EQU PSA+544 05382000 PSATOLD EQU PSA+540 05383000 PSATNEW EQU PSA+536 05384000 PSALCCAR EQU PSA+532 05385000 PSALCCAV EQU PSA+528 05386000 PSAPCCAR EQU PSA+524 05387000 PSAPCCAV EQU PSA+520 05388000 PSACPULA EQU PSA+518 05389000 PSACPUPA EQU PSA+516 05390000 PSAPSA EQU PSA+512 05391000 FLCHDEND EQU PSA+512 05392000 FLCCRSAV EQU FLCMCLA+280 05393000 FLCGRSAV EQU FLCMCLA+216 05394000 FLCFPSAV EQU FLCMCLA+184 05395000 FLCFLA EQU FLCMCLA+88 05396000 FLCRGNCD EQU FLCMCLA+84 05397000 FLCFSAA EQU FLCFSA+1 05398000 @NM00131 EQU FLCFSA 05399000 @NM00130 EQU FLCMCLA+72 05400000 FLCMCIC EQU FLCMCLA+64 05401000 @NM00129 EQU FLCMCLA+20 05402000 FLCIOAA EQU FLCIOA+1 05403000 @NM00128 EQU FLCIOA 05404000 @NM00127 EQU FLCMCLA+15 05405000 @NM00126 EQU FLCMCLA+14 05406000 @NM00125 EQU FLCMCLA+12 05407000 FLCLCL EQU FLCMCLA+8 05408000 FLCIOELA EQU FLCIOEL+1 05409000 @NM00124 EQU FLCIOEL 05410000 FLCCHNID EQU FLCMCLA 05411000 @NM00123 EQU PSA+160 05412000 FLCMTRCD EQU PSA+157 05413000 @NM00122 EQU PSA+156 05414000 FLCPERA EQU FLCPER+1 05415000 @NM00121 EQU FLCPER 05416000 @NM00120 EQU PSA+151 05417000 FLCPERCD EQU PSA+150 05418000 FLCMCNUM EQU PSA+149 05419000 @NM00119 EQU PSA+148 05420000 FLCTEAA EQU FLCTEA+1 05421000 @NM00118 EQU FLCTEA 05422000 PSAPIPC EQU PSAPICOD 05423000 PSAPIMC EQU PSAPICOD 05424000 PSAPIPER EQU PSAPICOD 05425000 PSARV049 EQU FLCPICOD 05426000 FLCPILCB EQU FLCPIILC 05427000 @NM00117 EQU FLCPIILC 05428000 @NM00116 EQU PSAEPPSW 05429000 FLCSVCN EQU PSAESPSW+2 05430000 FLCSILCB EQU FLCSVILC 05431000 @NM00115 EQU FLCSVILC 05432000 @NM00114 EQU PSAESPSW 05433000 FLCEICOD EQU PSAEEPSW+2 05434000 PSASPAD EQU PSAEEPSW 05435000 @NM00113 EQU PSA+128 05436000 FLCINPSW EQU PSA+120 05437000 FLCMNPSW EQU PSA+112 05438000 FLCPNPSW EQU PSA+104 05439000 FLCSNPSW EQU PSA+96 05440000 FLCENPSW EQU PSA+88 05441000 FLCTRACE EQU PSA+84 05442000 FLCTIMER EQU PSA+80 05443000 FLCCVT2 EQU PSA+76 05444000 FLCCAW EQU PSA+72 05445000 FLCCSW EQU PSA+64 05446000 FLCIOPSW EQU PSA+56 05447000 FLCMOPSW EQU PSA+48 05448000 FLCPOPSW EQU PSA+40 05449000 FLCSOPSW EQU PSA+32 05450000 FLCEOPSW EQU PSA+24 05451000 @NM00112 EQU FLCICCW2+4 05452000 FLCICCW1 EQU FLCROPSW 05453000 FLCIPPSW EQU FLCRNPSW 05454000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05455000 @ENDDATA EQU * 05456000 END IGTD10,(C'PLS0016',0701,77231) 05457000