TITLE 'ISTINM01 - HOST INTERFACE ROUTINE *00001000 ' 00002000 ISTINM01 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTINM01 76.018' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @12,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@12 0001 00013000 ST @13,@SA00001+4 0001 00014000 LA @11,@SA00001 0001 00015000 ST @11,8(,@13) 0001 00016000 LR @13,@11 0001 00017000 JSCBDISP EQU 188 00018000 JSCBAOS1 EQU 72 00019000 JSCBAOS2 EQU 192 00020000 MODESET MODE=SUP 00021000 ENQ (M01MAJ,M01MIN,E,5,SYSTEM) 00022000 * SKELPSA=0; /* BASE PSA ON LOCATION 0 */ 00023000 SLR SKELPSA,SKELPSA 0237 00024000 * GEN(MODESET EXTKEY=ZERO); /* MODESET TO REF JSCB AND CSCB */ 00025000 MODESET EXTKEY=ZERO 00026000 * CSCBPTR=JSCBCSCB; /* INIT CSCB POINTER */ 00027000 L @09,CVTPTR 0239 00028000 L @09,CVTTCBP(,@09) 0239 00029000 L @09,TCBPTR(,@09) 0239 00030000 L @09,TCBJSCB(,@09) 0239 00031000 L CSCBPTR,JSCBCSCB(,@09) 0239 00032000 * WTOCONID=CHUCMP; /* ID OF CONSOLE THAT ISSUED 0240 00033000 * START VTAM - USED IN WTO */ 00034000 MVC WTOCONID(1),CHUCMP(CSCBPTR) 0240 00035000 * GEN(MODESET EXTKEY=VTAM); /* MODSET BACK FROM KEY ZERO */ 00036000 MODESET EXTKEY=VTAM 00037000 * IF CVTATCVT=0 THEN /* IS AVT PTR IN CVT */ 00038000 L @09,CVTPTR 0242 00039000 L @09,CVTEXT2(,@09) 0242 00040000 L @09,CVTATCVT(,@09) 0242 00041000 LTR @09,@09 0242 00042000 BNZ @RF00242 0242 00043000 * DO; /* NO - CONTINUE INIT */ 00044000 * CALL LOADRTM; /* LOAD TRAMA MODS */ 00045000 BAL @14,LOADRTM 0244 00046000 * IF M01R15=0 THEN /* WERE LOADS SUCCESSFUL */ 00047000 LTR M01R15,M01R15 0245 00048000 BNZ @RF00245 0245 00049000 * DO; /* YES */ 00050000 * CALL INITVTAM; /* GET STORAGE FOR 0247 00051000 * AVT,ATCVT,CONFIGT */ 00052000 BAL @14,INITVTAM 0247 00053000 * IF M01R15^=0 THEN /* WERE GETMAINS SUCCESSFUL */ 00054000 LTR M01R15,M01R15 0248 00055000 BNZ @RT00248 0248 00056000 * GOTO PREEXIT; /* NO - PREPARE TO RETURN TO 0249 00057000 * SYSTEM */ 00058000 * CALL LOADMODS; /* LOAD OTHER MODULES */ 00059000 BAL @14,LOADMODS 0250 00060000 * IF M01R15^=0 THEN /* WERE LOADS SUCCESSFUL */ 00061000 LTR M01R15,M01R15 0251 00062000 BNZ @RT00251 0251 00063000 * GOTO LOADFAIL; /* NO - ISSUE MESSAGE */ 00064000 * CALL GETPIOSV; /* GETMAIN AND INIT TWO SAVE 0253 00065000 * AREAS FOR TPIOS */ 00066000 BAL @14,GETPIOSV 0253 00067000 * IF M01R15^=0 THEN /* WERE GETMAINS SUCCESSFUL */ 00068000 LTR M01R15,M01R15 0254 00069000 BNZ @RT00254 0254 00070000 * GOTO PREEXIT; /* NO - TERMINATE */ 00071000 * CALL SETPSA; /* INIT ATCVT ADDR IN ALL PSA'S */ 00072000 BAL @14,SETPSA 0256 00073000 * IF M01R15^=0 THEN /* WAS INIT SUCCESSFUL */ 00074000 LTR M01R15,M01R15 0257 00075000 BNZ @RT00257 0257 00076000 * GOTO PREEXIT; /* NO - TERMINATE */ 00077000 * CALL ISTINFIC; /* INIT ATCVT AND CONFT */ 00078000 L @15,@CV03666 0259 00079000 BALR @14,@15 0259 00080000 * M01R15=0; /* INDICATE INIT SUCCESSFUL */ 00081000 SLR M01R15,M01R15 0260 00082000 * END; 0261 00083000 * ELSE 0262 00084000 * DO; /* NO - ISSUE MSG AND TERMINATE */ 00085000 B @RC00245 0262 00086000 @RF00245 DS 0H 0263 00087000 * GEN(DEQ (M01MAJ,M01MIN,5,SYSTEM));/* DEQ TO ALLOW RESTART*/ 00088000 DEQ (M01MAJ,M01MIN,5,SYSTEM) 00089000 * LDPRMPTR=ADDR(ALOADLST);/* ADDR OF LOAD LIST FOR MSG */ 00090000 LA LDPRMPTR,ALOADLST 0264 00091000 *LOADFAIL: 0265 00092000 * MODNAME=LDPMBR; /* NAME OF MODULE THAT FAILED TO 00093000 * LOAD */ 00094000 LOADFAIL LA @10,MSG012I 0265 00095000 MVC MODNAME+51(8,@10),LDPMBR(LDPRMPTR) 0265 00096000 * M01R0=WTOCONID; /* CONSOLE ID FOR WTO */ 00097000 SLR M01R0,M01R0 0266 00098000 IC M01R0,WTOCONID 0266 00099000 * GEN REFS(MSG012I); 0267 00100000 MSG012I WTO 'IST012I VTAM START REJECTED--CANNOT LOCATE XXXXXXXX', X00101000 MCSFLAG=(REG0,RESP),ROUTCDE=(10),DESC=4 00102000 * GO TO PREEXIT; 0268 00103000 B PREEXIT 0268 00104000 * END; 0269 00105000 * END; 0270 00106000 * ELSE 0271 00107000 * DO; /* YES - AVT PTR IS IN CVT */ 00108000 B @RC00242 0271 00109000 @RF00242 DS 0H 0272 00110000 * M01R0=WTOCONID; /* CONSOLE ID FOR WTO */ 00111000 SLR M01R0,M01R0 0272 00112000 IC M01R0,WTOCONID 0272 00113000 * GEN; 0273 00114000 WTO 'IST009I VTAM IS ALREADY ACTIVE--START REJECTED', X00115000 MCSFLAG=(REG0,RESP),ROUTCDE=(10),DESC=4 00116000 * GEN(DEQ (M01MAJ,M01MIN,5,SYSTEM));/* DEQ TO ALLOW RESTART */ 00117000 DEQ (M01MAJ,M01MIN,5,SYSTEM) 00118000 * M01R15=4; /* INDICATE INIT FAILED */ 00119000 LA M01R15,4 0275 00120000 * END; 0276 00121000 * IF M01R15^=0 THEN /* HAS INIT BEEN SUCCESSFUL */ 00122000 @RC00242 LTR M01R15,M01R15 0277 00123000 BNZ @RT00277 0277 00124000 * GOTO EXIT; /* NO-RETURN TO SYSTEM VS33607 */ 00125000 * CONCSCB=CSCBPTR; /* SET CSCB PTR IN CONFT */ 00126000 L @09,M01ATCAD 0279 00127000 L @09,ATCCONFT(,@09) 0279 00128000 ST CSCBPTR,CONCSCB(,@09) 0279 00129000 * GEN(MODESET EXTKEY=ZERO); /* MODESET TO MODIFY CSCB */ 00130000 MODESET EXTKEY=ZERO 00131000 * CHECBP=ADDR(ATCECMOD); /* ECB ADDR FOR MODIFY PROC */ 00132000 L @09,M01ATCAD 0281 00133000 LA @08,ATCECMOD(,@09) 0281 00134000 ST @08,CHECBP(,CSCBPTR) 0281 00135000 * CONSTCIB=CHCIBP; /* PTR TO CIB */ 00136000 L @09,ATCCONFT(,@09) 0282 00137000 L @08,CHCIBP(,CSCBPTR) 0282 00138000 ST @08,CONSTCIB(,@09) 0282 00139000 * RESPECIFY 0283 00140000 * M01R2 RSTD; 0283 00141000 * M01R2=ADDR(CHCIBP); /* CIB PTR FOR QEDIT */ 00142000 LA M01R2,CHCIBP(,CSCBPTR) 0284 00143000 * GEN(QEDIT ORIGIN=(2),CIBCTR=4); /* MODIFY COUNT */ 00144000 QEDIT ORIGIN=(2),CIBCTR=4 00145000 * RESPECIFY 0286 00146000 * M01R2 UNRSTD; 0286 00147000 * ATCASCB=PSAAOLD; /* VTAM ASCB ADDR */ 00148000 L @09,PSAAOLD(,SKELPSA) 0287 00149000 L @08,M01ATCAD 0287 00150000 ST @09,ATCASCB(,@08) 0287 00151000 * GEN(MODESET EXTKEY=VTAM); /* MODSET BACK FROM KEY ZERO */ 00152000 * 0288 00153000 MODESET EXTKEY=VTAM 00154000 * /*****************************************************************/ 00155000 * /* */ 00156000 * /* INIT PAB FOR CFMTM */ 00157000 * /* */ 00158000 * /*****************************************************************/ 00159000 * 0289 00160000 * ATCTPMMI=ADDR(ISTCFMMI); /* INIT ATCVT WITH CFMMI ADDR */ 00161000 L @10,M01ATCAD 0289 00162000 L @09,@CV03667 0289 00163000 ST @09,ATCTPMMI(,@10) 0289 00164000 * RESPECIFY 0290 00165000 * (M01R2, 0290 00166000 * M01R3) RESTRICTED; 0290 00167000 * M01R2=ADDR(ATCTPMPB); /* ADDR OF TPMSG PAB */ 00168000 LA M01R2,ATCTPMPB(,@10) 0291 00169000 * RESPECIFY 0292 00170000 * ISTDYPAB BASED(M01R2); 0292 00171000 * M01R3=ADDR(DYPPAB); 0293 00172000 LA @09,DYPPAB(,M01R2) 0293 00173000 LR M01R3,@09 0293 00174000 * RESPECIFY 0294 00175000 * ISTPAB BASED(M01R3); 0294 00176000 * DYPTYPE=DYTYP; 0295 00177000 MVI DYPTYPE(M01R2),X'11' 0295 00178000 * PABDVTA=ADDR(ATCTPMMI); 0296 00179000 LA @10,ATCTPMMI(,@10) 0296 00180000 STCM @10,7,PABDVTA(M01R3) 0296 00181000 * PABDYNAM='1'B; 0297 00182000 * PABSSN='1'B; 0298 00183000 OI PABDYNAM(M01R3),B'00011000' 0298 00184000 * PABOFFST=ADDR(DYPPAB)-ADDR(ISTDYPAB); 0299 00185000 SLR @09,M01R2 0299 00186000 STC @09,PABOFFST(,M01R3) 0299 00187000 * RESPECIFY 0300 00188000 * (M01R2, 0300 00189000 * M01R3) UNRESTRICTED; 0300 00190000 * CALL ISTINCIT; /* INCIT COMPLETES INITIALIZATION*/ 00191000 L @15,@CV03665 0301 00192000 BALR @14,@15 0301 00193000 *PREEXIT: 0302 00194000 * CALL CLEANUP; /* FREE STORAGE THAT WAS 0302 00195000 * GETMAIN'D */ 00196000 PREEXIT BAL @14,CLEANUP 0302 00197000 * CALL UNLOADER; /* UNLOAD MODULES PREVIOUSLY 0303 00198000 * LOADED */ 00199000 BAL @14,UNLOADER 0303 00200000 *EXIT: /* RETURN TO SYSTEM VS33607 */ 00201000 * RETURN CODE(0); 0304 00202000 EXIT SLR @15,@15 0304 00203000 L @13,4(,@13) 0304 00204000 L @14,12(,@13) 0304 00205000 LM @00,@12,20(@13) 0304 00206000 BR @14 0304 00207000 *LOADRTM: 0305 00208000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0305 00209000 * 0305 00210000 LOADRTM DS 0H 0306 00211000 */********************************************************************/ 00212000 */* */ 00213000 */* THIS ROUTINE GETS THE ADDRESSES IF THE RECOVERY/TERMINATION */ 00214000 */* MODULES AND PUTS THEM IN THE SYSTEM CVT. */ 00215000 */* */ 00216000 */********************************************************************/ 00217000 * 0306 00218000 * M01SAVE=M01R14; /* SAVE CALLER'S RETURN ADDR */ 00219000 ST M01R14,M01SAVE 0306 00220000 * ALOADLST=ALOADLST&&ALOADLST; /* ZERO OUT ALOAD LIST - THIS 0307 00221000 * WILL SET THE DCB ADDR TO 0 0307 00222000 * CAUSING BLDL TO SEARCH LPALIB */ 00223000 XC ALOADLST(28),ALOADLST 0307 00224000 * LDPRMPTR=ADDR(ALOADLST); /* ADDR OF ALOAD LIST FOR INMAL */ 00225000 LA LDPRMPTR,ALOADLST 0308 00226000 * LDPPDS='LPALIB '; /* LIBRARY MOD TO BE LOADED FROM */ 00227000 MVC LDPPDS(8,LDPRMPTR),@CC03737 0309 00228000 * LDPMBR='ISTRAMA1'; /* NAME OF MODULE TO BE LOADED */ 00229000 MVC LDPMBR(8,LDPRMPTR),@CC03738 0310 00230000 * CALL ISTINMAL; /* LOAD MODULE */ 00231000 L @15,@CV03664 0311 00232000 BALR @14,@15 0311 00233000 * IF M01R15=0 THEN /* WAS LOAD SUCCESSFUL */ 00234000 LTR M01R15,M01R15 0312 00235000 BNZ @RF00312 0312 00236000 * DO; /* YES */ 00237000 * GEN(MODESET EXTKEY=ZERO); /* MODESET TO MODIFY CVT */ 00238000 MODESET EXTKEY=ZERO 00239000 * CVTRMPTT=M01R0; /* INIT ADDR OF RAMA1 IN CVT */ 00240000 L @09,CVTPTR 0315 00241000 ST M01R0,CVTRMPTT(,@09) 0315 00242000 * LDPMBR='ISTRAMA2'; /* NAME OF MODULE TO BE LOADED */ 00243000 MVC LDPMBR(8,LDPRMPTR),@CC03739 0316 00244000 * CALL ISTINMAL; /* LOAD MODULE */ 00245000 L @15,@CV03664 0317 00246000 BALR @14,@15 0317 00247000 * IF M01R15=0 THEN /* WAS LOAD SUCCESSFUL */ 00248000 LTR M01R15,M01R15 0318 00249000 BNZ @RF00318 0318 00250000 * CVTRMPMT=M01R0; /* YES-INIT ADDR OF RAMA2 IN CVT */ 00251000 L @09,CVTPTR 0319 00252000 ST M01R0,CVTRMPMT(,@09) 0319 00253000 * GEN(MODESET EXTKEY=VTAM); /* MODESET BACK FROM KEY ZERO */ 00254000 @RF00318 DS 0H 0320 00255000 MODESET EXTKEY=VTAM 00256000 * END; 0321 00257000 * M01R14=M01SAVE; /* RESTORE CALLER'S RETURN ADDR */ 00258000 @RF00312 L M01R14,M01SAVE 0322 00259000 * END LOADRTM; 0323 00260000 @EL00002 DS 0H 0323 00261000 @EF00002 DS 0H 0323 00262000 @ER00002 BR @14 0323 00263000 *LOADMODS: 0324 00264000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0324 00265000 * 0324 00266000 LOADMODS DS 0H 0325 00267000 */********************************************************************/ 00268000 */* */ 00269000 */* THIS ROUTINE LOADS THE TP MESSAGE MODULES AND THE STORAGE */ 00270000 */* MANAGEMENT MODULE AND INITIALIZES THEIR ADDRESSES IN THE ATCVT. */ 00271000 */* */ 00272000 */********************************************************************/ 00273000 * 0325 00274000 * M01SAVE=M01R14; /* SAVE CALLER'S RETURN ADDR */ 00275000 ST M01R14,M01SAVE 0325 00276000 * ALOADLST=ALOADLST&&ALOADLST; /* ZERO OUT ALOAD LIST - THIS 0326 00277000 * WILL SET THE DCB ADDR TO 0 0326 00278000 * CAUSING BLDL TO SEARCH LPALIB */ 00279000 XC ALOADLST(28),ALOADLST 0326 00280000 * LDPRMPTR=ADDR(ALOADLST); /* ADDR OF ALOAD LIST FOR INMAL */ 00281000 LA LDPRMPTR,ALOADLST 0327 00282000 * LDPPDS='LPALIB '; /* LIBRARY MOD TO BE LOADED FROM */ 00283000 MVC LDPPDS(8,LDPRMPTR),@CC03737 0328 00284000 * LDPMBR='ISTCFMTM'; /* NAME OF MODULE TO BE LOADED */ 00285000 MVC LDPMBR(8,LDPRMPTR),@CC03743 0329 00286000 * CALL ISTINMAL; /* LOAD MODULE */ 00287000 L @15,@CV03664 0330 00288000 BALR @14,@15 0330 00289000 * IF M01R15=0 THEN /* WAS LOAD SUCCESSFUL */ 00290000 LTR M01R15,M01R15 0331 00291000 BNZ @RF00331 0331 00292000 * DO; /* YES */ 00293000 * ATCMSGP=M01R0; /* ADDR OF ISTCFMTM FROM LOAD */ 00294000 L @09,M01ATCAD 0333 00295000 ST M01R0,ATCMSGP(,@09) 0333 00296000 * LDPMBR='ISTCFCMM'; /* NAME OF MODULE TO BE LOADED */ 00297000 MVC LDPMBR(8,LDPRMPTR),@CC03744 0334 00298000 * CALL ISTINMAL; /* LOAD MODULE */ 00299000 L @15,@CV03664 0335 00300000 BALR @14,@15 0335 00301000 * IF M01R15=0 THEN /* WAS LOAD SUCCESSFUL */ 00302000 LTR M01R15,M01R15 0336 00303000 BNZ @RF00336 0336 00304000 * DO; /* YES */ 00305000 * ATCMSGM=M01R0; /* INIT ADDR OF CFCMM IN ATCVT */ 00306000 L @09,M01ATCAD 0338 00307000 ST M01R0,ATCMSGM(,@09) 0338 00308000 * LDPMBR='ISTORFSR'; /* GETSTORE MODULE */ 00309000 MVC LDPMBR(8,LDPRMPTR),@CC03745 0339 00310000 * CALL ISTINMAL; /* LOAD MODULE */ 00311000 L @15,@CV03664 0340 00312000 BALR @14,@15 0340 00313000 * IF M01R15=0 THEN /* WAS LOAD SUCCESSFUL */ 00314000 LTR M01R15,M01R15 0341 00315000 BNZ @RF00341 0341 00316000 * ATCGTSTR=M01R0; /* YES - INIT ADDR OF ORFSR IN 0342 00317000 * ATCVT */ 00318000 L @09,M01ATCAD 0342 00319000 ST M01R0,ATCGTSTR(,@09) 0342 00320000 * END; 0343 00321000 @RF00341 DS 0H 0344 00322000 * END; 0344 00323000 @RF00336 DS 0H 0345 00324000 * M01R14=M01SAVE; /* RESTORE CALLER'S RETURN ADDR */ 00325000 @RF00331 L M01R14,M01SAVE 0345 00326000 * END LOADMODS; 0346 00327000 @EL00003 DS 0H 0346 00328000 @EF00003 DS 0H 0346 00329000 @ER00003 BR @14 0346 00330000 *UNLOADER: 0347 00331000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0347 00332000 * 0347 00333000 UNLOADER DS 0H 0348 00334000 */********************************************************************/ 00335000 */* */ 00336000 */* THIS ROUTINE RESETS THE CIB COUNT, CSCBPTR AND UNLOADS THE */ 00337000 */* TP MESSAGE MODULES AND STORAGE MANAGEMENT MODULE. */ 00338000 */* */ 00339000 */********************************************************************/ 00340000 * 0348 00341000 * M01SAVE=M01R14; /* SAVE CALLER'S RETURN ADDR */ 00342000 ST M01R14,M01SAVE 0348 00343000 * GEN(MODESET EXTKEY=ZERO); /* MODESET TO MODIFY CVT/CSCB */ 00344000 MODESET EXTKEY=ZERO 00345000 * RESPECIFY 0350 00346000 * M01R2 RSTD; 0350 00347000 * M01R2=ADDR(CHCIBP); /* CIB PTR FOR QEDIT */ 00348000 LA M01R2,CHCIBP(,CSCBPTR) 0351 00349000 * GEN(QEDIT ORIGIN=(2),CIBCTR=0); /* RESET MODIFY COUNT */ 00350000 QEDIT ORIGIN=(2),CIBCTR=0 00351000 * RESPECIFY 0353 00352000 * M01R2 UNRSTD; 0353 00353000 * CHECBP=0; /* RESET ADDR OF ECB FOR MODIFY 00354000 * PROC */ 00355000 SLR @10,@10 0354 00356000 ST @10,CHECBP(,CSCBPTR) 0354 00357000 * GEN(MODESET EXTKEY=VTAM); /* MODESET BACK FROM KEY ZERO */ 00358000 MODESET EXTKEY=VTAM 00359000 * LDPRMPTR=ADDR(ALOADLST); /* ADDR OF ALOAD LIST FOR INMAD */ 00360000 LA LDPRMPTR,ALOADLST 0356 00361000 * LDPMBR='ISTORFSR'; /* NAME OF MOD TO BE DELETED */ 00362000 MVC LDPMBR(8,LDPRMPTR),@CC03745 0357 00363000 * CALL ISTINMAD; /* DELETE MODULE */ 00364000 L @15,@CV03663 0358 00365000 BALR @14,@15 0358 00366000 * LDPMBR='ISTCFMTM'; /* NAME OF MOD TO BE DELETED */ 00367000 MVC LDPMBR(8,LDPRMPTR),@CC03743 0359 00368000 * CALL ISTINMAD; /* DELETE MODULE */ 00369000 L @15,@CV03663 0360 00370000 BALR @14,@15 0360 00371000 * LDPMBR='ISTCFCMM'; /* NAME OF MOD TO BE DELETED */ 00372000 MVC LDPMBR(8,LDPRMPTR),@CC03744 0361 00373000 * CALL ISTINMAD; /* DELETE MODULE */ 00374000 L @15,@CV03663 0362 00375000 BALR @14,@15 0362 00376000 * M01R14=M01SAVE; /* RESTORE CALLER'S RETURN ADDR */ 00377000 L M01R14,M01SAVE 0363 00378000 * END UNLOADER; 0364 00379000 @EL00004 DS 0H 0364 00380000 @EF00004 DS 0H 0364 00381000 @ER00004 BR @14 0364 00382000 *INITVTAM: 0365 00383000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0365 00384000 INITVTAM DS 0H 0366 00385000 * M01SAVE=M01R14; /* SAVE CALLER'S RETURN ADDR */ 00386000 * 0366 00387000 ST M01R14,M01SAVE 0366 00388000 * /*****************************************************************/ 00389000 * /* */ 00390000 * /* GET CORE FOR AVT, INIT TO ZEROS, PUT VTAM'S ASID IN AVT, AND */ 00391000 * /* PUT AVT ADDRESS IN THE SYSTEM CVT */ 00392000 * /* */ 00393000 * /*****************************************************************/ 00394000 * 0367 00395000 * RESPECIFY 0367 00396000 * M01R2 RESTRICTED; 0367 00397000 * ASCBPTR=PSAAOLD; /* GET VTAM'S ASCB ADDRESS */ 00398000 L ASCBPTR,PSAAOLD(,SKELPSA) 0368 00399000 * M01R2=ASCBASID; /* GET ASID */ 00400000 LH M01R2,ASCBASID(,ASCBPTR) 0369 00401000 N M01R2,@CF03784 0369 00402000 * M01R0=LENGTH(ISTAVT); /* GET LENGTH OF AVT */ 00403000 LA M01R0,44 0370 00404000 * GEN SETS(M01AVTAD)(GETMAIN EC,LV=(0),A=M01AVTAD,SP=241); 0371 00405000 GETMAIN EC,LV=(0),A=M01AVTAD,SP=241 00406000 * IF M01R15^=0 THEN /* WAS GETMAIN SUCCESSFUL */ 00407000 LTR M01R15,M01R15 0372 00408000 BZ @RF00372 0372 00409000 * DO; /* NO - GETMAIN FAILED */ 00410000 * GEN(DEQ (M01MAJ,M01MIN,5,SYSTEM));/* DEQ TO ALLOW RESTART */ 00411000 DEQ (M01MAJ,M01MIN,5,SYSTEM) 00412000 * GOTO GETFAIL; /* ISSUE MSG AND GO TO CLEANUP */ 00413000 B GETFAIL 0375 00414000 * END; 0376 00415000 * ISTAVT=ISTAVT&&ISTAVT; /* ZERO OUT AVT */ 00416000 @RF00372 L @03,M01AVTAD 0377 00417000 XC ISTAVT(44,@03),ISTAVT(@03) 0377 00418000 * AVTASID=M01R2; /* PUT VTAM'S ASID IN AVT */ 00419000 STH M01R2,AVTASID(,@03) 0378 00420000 * RESPECIFY 0379 00421000 * M01R2 UNRESTRICTED; 0379 00422000 * GEN(MODESET EXTKEY=ZERO); /* MODESET TO MODIFY CVT */ 00423000 MODESET EXTKEY=ZERO 00424000 * CVTATCVT=M01AVTAD; /* PUT AVT ADDRESS IN SYSTEM CVT */ 00425000 L @09,CVTPTR 0381 00426000 L @09,CVTEXT2(,@09) 0381 00427000 L @08,M01AVTAD 0381 00428000 ST @08,CVTATCVT(,@09) 0381 00429000 * GEN(MODESET EXTKEY=VTAM); /* MODESET BACK FROM KEY ZERO */ 00430000 MODESET EXTKEY=VTAM 00431000 * GEN(DEQ (M01MAJ,M01MIN,5,SYSTEM));/* NO NEED TO SERIALIZE NOW */ 00432000 * 0383 00433000 DEQ (M01MAJ,M01MIN,5,SYSTEM) 00434000 * /*****************************************************************/ 00435000 * /* */ 00436000 * /* GET CORE FOR ATCVT AND INIT TO ZEROS */ 00437000 * /* */ 00438000 * /*****************************************************************/ 00439000 * 0384 00440000 * M01R0=LENGTH(ISTATCVT); /* ATCVT LENGTH FOR GETMAIN */ 00441000 LA M01R0,1584 0384 00442000 * GEN SETS(M01ATCAD)(GETMAIN EC,LV=(0),A=M01ATCAD,SP=241); 0385 00443000 GETMAIN EC,LV=(0),A=M01ATCAD,SP=241 00444000 * IF M01R15^=0 THEN /* WAS GETMAIN SUCCESSFUL */ 00445000 LTR M01R15,M01R15 0386 00446000 BNZ @RT00386 0386 00447000 * GOTO GETFAIL; /* NO - GETMAIN FAILED */ 00448000 * FLDLNTH=LENGTH(ISTATCVT); /* LENGTH OF ATCVT */ 00449000 LA FLDLNTH,1584 0388 00450000 * FLDADDR=M01ATCAD; /* ADDR OF ATCVT */ 00451000 L FLDADDR,M01ATCAD 0389 00452000 * DO WHILE FLDLNTH>256; /* INIT ATCVT TO ZERO */ 00453000 B @DE00390 0390 00454000 @DL00390 DS 0H 0391 00455000 * FIELD=''B; /* ZERO OUT 256 BYTES */ 00456000 XC FIELD(256,FLDADDR),FIELD(FLDADDR) 0391 00457000 * FLDLNTH=FLDLNTH-256; /* DECREMENT LENGTH */ 00458000 LA @07,256 0392 00459000 SLR FLDLNTH,@07 0392 00460000 * FLDADDR=FLDADDR+256; /* INCREMENT ADDR OF ATCVT */ 00461000 ALR FLDADDR,@07 0393 00462000 * END; 0394 00463000 @DE00390 C FLDLNTH,@CF00681 0394 00464000 BH @DL00390 0394 00465000 * FIELD(1:FLDLNTH)=FIELD(1:FLDLNTH)&&FIELD(1:FLDLNTH);/* ZERO OUT 00466000 * REMAINDER OF ATCVT */ 00467000 LR @07,FLDLNTH 0395 00468000 BCTR @07,0 0395 00469000 EX @07,@SX03785 0395 00470000 * ISTACVT=M01ATCAD; /* INIT ATCVT PTR IN AVT */ 00471000 * 0396 00472000 L @09,M01ATCAD 0396 00473000 L @08,M01AVTAD 0396 00474000 ST @09,ISTACVT(,@08) 0396 00475000 * /*****************************************************************/ 00476000 * /* */ 00477000 * /* GET CORE FOR CONFIGURATION TABLE - IT WILL BE ZEROED OUT BY */ 00478000 * /* ISTINFIC */ 00479000 * /* */ 00480000 * /*****************************************************************/ 00481000 * 0397 00482000 * M01R0=LENGTH(ISTCONFT); /* CONFT LENGTH FOR GETMAIN */ 00483000 LA M01R0,1374 0397 00484000 * GEN REFS(M01CONAD)(GETMAIN EC,LV=(0),A=M01CONAD,SP=231); 0398 00485000 GETMAIN EC,LV=(0),A=M01CONAD,SP=231 00486000 * IF M01R15^=0 THEN /* WAS GETMAIN SUCCESSFUL */ 00487000 LTR M01R15,M01R15 0399 00488000 BZ @RF00399 0399 00489000 * DO; /* NO - GETMAIN FAILED */ 00490000 *GETFAIL: 0401 00491000 * M01R0=WTOCONID; /* CONSOLE ID FOR WTO */ 00492000 GETFAIL SLR M01R0,M01R0 0401 00493000 IC M01R0,WTOCONID 0401 00494000 * M01R1=ADDR(MSG006I); /* LIST FORM OF WTO */ 00495000 LA M01R1,MSG006I 0402 00496000 * GEN REFS(MSG006I)(WTO MF=(E,(1))); 0403 00497000 WTO MF=(E,(1)) 00498000 * M01R15=4; 0404 00499000 LA M01R15,4 0404 00500000 * GOTO ENDINIT; /* RETURN TO MAINLINE */ 00501000 B ENDINIT 0405 00502000 * END; 0406 00503000 * ATCCONFT=M01CONAD; /* INIT CONFT PTR IN ATCVT */ 00504000 @RF00399 L @09,M01CONAD 0407 00505000 L @08,M01ATCAD 0407 00506000 ST @09,ATCCONFT(,@08) 0407 00507000 * M01CB1=0; /* CLEAR ECB FOR PAGEFIX */ 00508000 SLR @09,@09 0408 00509000 ST @09,M01CB1 0408 00510000 * RESPECIFY 0409 00511000 * (M01R2, 0409 00512000 * M01R3) RESTRICTED; 0409 00513000 * M01R2=M01AVTAD; /* START ADDR OF AVT */ 00514000 L @09,M01AVTAD 0410 00515000 LR M01R2,@09 0410 00516000 * M01R3=M01AVTAD+LENGTH(ISTAVT); /* END ADDR OF AVT */ 00517000 AL @09,@CF01418 0411 00518000 LR M01R3,@09 0411 00519000 * GEN REFS(M01R2,M01R3,M01CB1) 0412 00520000 * (PGFIX R,A=(M01R2),EA=(M01R3),ECB=M01CB1); 0412 00521000 PGFIX R,A=(M01R2),EA=(M01R3),ECB=M01CB1 00522000 * GEN SETS(M01CB1)(WAIT 1,ECB=M01CB1); 0413 00523000 WAIT 1,ECB=M01CB1 00524000 * IF M01ECBCD^='0'B THEN /* WAS PAGEFIX SUCCESSFUL */ 00525000 TM M01ECBCD,B'00000100' 0414 00526000 BZ @RF00414 0414 00527000 * M01R15=4; /* NO - PAGEFIX FAILED */ 00528000 LA M01R15,4 0415 00529000 * ELSE 0416 00530000 * DO; /* YES - SUCCESSFUL */ 00531000 B @RC00414 0416 00532000 @RF00414 DS 0H 0417 00533000 * M01R2=M01ATCAD; /* START ADDR OF ATCVT */ 00534000 L @09,M01ATCAD 0417 00535000 LR M01R2,@09 0417 00536000 * M01R3=M01ATCAD+LENGTH(ISTATCVT);/* END ADDR OF ATCVT */ 00537000 AL @09,@CF03778 0418 00538000 LR M01R3,@09 0418 00539000 * M01CB1=0; /* CLEAR ECB FOR PAGEFIX */ 00540000 SLR @09,@09 0419 00541000 ST @09,M01CB1 0419 00542000 * GEN REFS(M01R2,M01R3,M01CB1) 0420 00543000 * (PGFIX R,A=(M01R2),EA=(M01R3),ECB=M01CB1); 0420 00544000 PGFIX R,A=(M01R2),EA=(M01R3),ECB=M01CB1 00545000 * GEN SETS(M01CB1)(WAIT 1,ECB=M01CB1); 0421 00546000 WAIT 1,ECB=M01CB1 00547000 * IF M01ECBCD='0'B THEN /* WAS PAGEFIX SUCCESSFUL */ 00548000 TM M01ECBCD,B'00000100' 0422 00549000 BNZ @RF00422 0422 00550000 * M01R15=0; /* YES */ 00551000 SLR M01R15,M01R15 0423 00552000 * ELSE /* NO - PGFIX FAILED */ 00553000 * M01R15=4; /* INDICATE TO TERMINATE */ 00554000 B @RC00422 0424 00555000 @RF00422 LA M01R15,4 0424 00556000 * END; 0425 00557000 @RC00422 DS 0H 0426 00558000 * RESPECIFY 0426 00559000 * (M01R2, 0426 00560000 * M01R3) UNRESTRICTED; 0426 00561000 @RC00414 DS 0H 0427 00562000 * IF M01R15^=0 THEN /* WAS PAGEFIX OF AVT, ATCVT 0427 00563000 * SUCCESSFUL */ 00564000 LTR M01R15,M01R15 0427 00565000 BZ @RF00427 0427 00566000 * DO; /* NO - PAGEFIX FAILED */ 00567000 * M01R0=WTOCONID; /* CONSOLE ID FOR WTO */ 00568000 SLR M01R0,M01R0 0429 00569000 IC M01R0,WTOCONID 0429 00570000 * M01R1=ADDR(MSG001I); /* ADDR OF LIST FORM OF WTO */ 00571000 LA M01R1,MSG001I 0430 00572000 * GEN REFS(MSG001I)(WTO MF=(E,(1))); 0431 00573000 WTO MF=(E,(1)) 00574000 * M01R15=4; 0432 00575000 LA M01R15,4 0432 00576000 * END; 0433 00577000 *ENDINIT: 0434 00578000 * M01R14=M01SAVE; /* RESTORE CALLER'S RETURN ADDR */ 00579000 @RF00427 DS 0H 0434 00580000 ENDINIT L M01R14,M01SAVE 0434 00581000 * END INITVTAM; 0435 00582000 @EL00005 DS 0H 0435 00583000 @EF00005 DS 0H 0435 00584000 @ER00005 BR @14 0435 00585000 *CLEANUP: 0436 00586000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0436 00587000 * 0436 00588000 CLEANUP DS 0H 0437 00589000 */********************************************************************/ 00590000 */* */ 00591000 */* THIS ROUTINE FREES ANY STORAGE ACQUIRED BY M01. */ 00592000 */* */ 00593000 */********************************************************************/ 00594000 * 0437 00595000 * M01SAVE=M01R14; /* SAVE CALLER'S RETURN ADDR */ 00596000 ST M01R14,M01SAVE 0437 00597000 * IF CVTATCVT^=0 THEN /* IS THERE AN AVT */ 00598000 SLR @10,@10 0438 00599000 L @09,CVTPTR 0438 00600000 L @09,CVTEXT2(,@09) 0438 00601000 C @10,CVTATCVT(,@09) 0438 00602000 BE @RF00438 0438 00603000 * DO; /* YES - PGFREE AVT */ 00604000 * IF ISTACVT^=0 THEN /* IS THERE AN ATCVT */ 00605000 L @09,M01AVTAD 0440 00606000 C @10,ISTACVT(,@09) 0440 00607000 BE @RF00440 0440 00608000 * DO; /* YES - PGFREE ATCVT */ 00609000 * RESPECIFY 0442 00610000 * (M01R2, 0442 00611000 * M01R3) RSTD; 0442 00612000 * IF ATCTPCP0^=0 THEN /* IS THERE A TPIOS SAVE AREA */ 00613000 L @09,M01ATCAD 0443 00614000 C @10,ATCTPCP0(,@09) 0443 00615000 BE @RF00443 0443 00616000 * DO; /* YES */ 00617000 * M01R2=TPIOSSV1; /* START ADDR OF FIRST SAVE AREA */ 00618000 L @10,TPIOSSV1 0445 00619000 LR M01R2,@10 0445 00620000 * M01R3=TPIOSSV1+SVAREASZ;/* END ADDR OF FIRST SAVE 0446 00621000 * AREA */ 00622000 AL @10,SVAREASZ 0446 00623000 LR M01R3,@10 0446 00624000 * GEN REFS(M01R2,M01R3)(PGFREE R,A=(M01R2),EA=(M01R3)); 00625000 PGFREE R,A=(M01R2),EA=(M01R3) 00626000 * M01R0=SVAREASZ; /* LENGTH FOR FREEMAIN */ 00627000 L M01R0,SVAREASZ 0448 00628000 * GEN(FREEMAIN E,LV=(0),A=TPIOSSV1,SP=231); 0449 00629000 FREEMAIN E,LV=(0),A=TPIOSSV1,SP=231 00630000 * ATCTPCP0=0; /* ZERO OUT POINTER IN ATCVT */ 00631000 SLR @10,@10 0450 00632000 L @09,M01ATCAD 0450 00633000 ST @10,ATCTPCP0(,@09) 0450 00634000 * IF ATCTPCP1^=0 THEN /* IS THERE A TPIOS SAVE AREA */ 00635000 C @10,ATCTPCP1(,@09) 0451 00636000 BE @RF00451 0451 00637000 * DO; /* YES */ 00638000 * M01R2=TPIOSSV2; /* START ADDR OF SECOND SAVE AREA*/ 00639000 L @10,TPIOSSV2 0453 00640000 LR M01R2,@10 0453 00641000 * M01R3=TPIOSSV2+SVAREASZ;/* END ADDR OF SECOND 0454 00642000 * SAVE AREA */ 00643000 AL @10,SVAREASZ 0454 00644000 LR M01R3,@10 0454 00645000 * GEN REFS(M01R2,M01R3) 0455 00646000 * (PGFREE R,A=(M01R2),EA=(M01R3)); 0455 00647000 PGFREE R,A=(M01R2),EA=(M01R3) 00648000 * M01R0=SVAREASZ; /* LENGTH FOR FREEMAIN */ 00649000 L M01R0,SVAREASZ 0456 00650000 * GEN(FREEMAIN E,LV=(0),A=TPIOSSV2,SP=231); 0457 00651000 FREEMAIN E,LV=(0),A=TPIOSSV2,SP=231 00652000 * ATCTPCP1=0; /* ZERO OUT POINTER IN ATCVT */ 00653000 L @10,M01ATCAD 0458 00654000 SLR @09,@09 0458 00655000 ST @09,ATCTPCP1(,@10) 0458 00656000 * END; 0459 00657000 * END; 0460 00658000 @RF00451 DS 0H 0461 00659000 * RESPECIFY 0461 00660000 * (M01R2, 0461 00661000 * M01R3) UNRESTRICTED; 0461 00662000 @RF00443 DS 0H 0462 00663000 * END; 0462 00664000 * END; 0463 00665000 @RF00440 DS 0H 0464 00666000 * M01R14=M01SAVE; /* RESTORE CALLER'S RETURN ADDR */ 00667000 @RF00438 L M01R14,M01SAVE 0464 00668000 * END CLEANUP; 0465 00669000 @EL00006 DS 0H 0465 00670000 @EF00006 DS 0H 0465 00671000 @ER00006 BR @14 0465 00672000 *SETPSA: 0466 00673000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0466 00674000 * 0466 00675000 SETPSA DS 0H 0467 00676000 */********************************************************************/ 00677000 */* */ 00678000 */* THIS ROUTINE INITIALIZES THE PSAATCVT FIELD TO THE ADDRESS OF */ 00679000 */* THE ATCVT. IF THE SYSTEM IS A U.P. ONLY ONE PSA MUST BE MODIFIED*/ 00680000 */* IF THE SYSTEM IS AN M.P. THE FOLLOWING ARE DONE: */ 00681000 */* 1) ADDITIONAL CPUS ARE PREVENTED FROM BEING VARIED ON BY */ 00682000 */* ENQUEING ON THE 'VARY CPU' RESOURCE. */ 00683000 */* 2) THE SKELETON PSA COPY IS MODIFIED. */ 00684000 */* 3) THE GLOBAL DISPATCHER LOCK IS OBTAINED TO PREVENT M01 */ 00685000 */* FROM BEING DISPATCHED ON ANOTHER CPU. */ 00686000 */* NOTE: THE SKELETON PSA MUST BE MODIFIED PRIOR TO GETTING */ 00687000 */* THE LOCK SINCE THE SKELETON PSA IS NOT PAGED FIXED. */ 00688000 */* 4) M01'S PSA IS MODIFIED */ 00689000 */* 5) THE CPU ALIVE BITS IN THE CSD ARE CHECKED AND THE PSA FOR*/ 00690000 */* EACH ALIVE CPU IS MODIFIED. */ 00691000 */* 6) THE GLOBAL LOCK IS THEN FREED AND THE 'VARY CPU' RESOURCE*/ 00692000 */* IS DEQUEUED. */ 00693000 */* */ 00694000 */********************************************************************/ 00695000 * 0467 00696000 * M01SAVE=M01R14; /* SAVE CALLER'S RETURN ADDR */ 00697000 ST M01R14,M01SAVE 0467 00698000 * GEN(MODESET EXTKEY=ZERO); /* MODESET TO MODIFY PSA */ 00699000 MODESET EXTKEY=ZERO 00700000 * IF CSDMP='0'B THEN /* IS THIS A UP MACHINE */ 00701000 L @09,CVTPTR 0469 00702000 L @09,CVTCSD(,@09) 0469 00703000 TM CSDMP(@09),B'10000000' 0469 00704000 BNZ @RF00469 0469 00705000 * DO; /* YES - ONLY ONE PSA TO MODIFY */ 00706000 * PSAATCVT=M01ATCAD; /* INIT ADDR OF ATCVT */ 00707000 L @09,M01ATCAD 0471 00708000 ST @09,PSAATCVT(,SKELPSA) 0471 00709000 * RTNCDE=0; /* INDICATE PSA INIT SUCCESSFUL */ 00710000 SLR RTNCDE,RTNCDE 0472 00711000 * END; 0473 00712000 * ELSE 0474 00713000 * DO; /* NO - ITS MP */ 00714000 B @RC00469 0474 00715000 @RF00469 DS 0H 0475 00716000 * GEN(ENQ (SYSMAJ,SYSMIN,E,3,SYSTEM));/* LOCK OUT VARY CPU */ 00717000 ENQ (SYSMAJ,SYSMIN,E,3,SYSTEM) 00718000 * M01CB1=0; /* CLEAR ECB FOR PGFIX */ 00719000 SLR @09,@09 0476 00720000 ST @09,M01CB1 0476 00721000 * RESPECIFY 0477 00722000 * (M01R2, 0477 00723000 * M01R3) RESTRICTED; 0477 00724000 * M01R2=ADDR(ISTINM01); /* M01 CSECT WILL BE FIXED */ 00725000 L M01R2,@CA00028 0478 00726000 * M01R3=M01R2+M01END; /* LENGTH OF M01 FOR PGFIX */ 00727000 LR M01R3,M01R2 0479 00728000 AL M01R3,M01END 0479 00729000 * GEN REFS(M01R2,M01R3,M01CB1) 0480 00730000 * (PGFIX R,A=(M01R2),EA=(M01R3),ECB=M01CB1); 0480 00731000 PGFIX R,A=(M01R2),EA=(M01R3),ECB=M01CB1 00732000 * RESPECIFY 0481 00733000 * (M01R2, 0481 00734000 * M01R3) UNRESTRICTED; 0481 00735000 * GEN SETS(M01CB1)(WAIT 1,ECB=M01CB1); 0482 00736000 WAIT 1,ECB=M01CB1 00737000 * IF M01ECBCD^='0'B THEN /* WAS PGFIX SUCCESSFUL */ 00738000 TM M01ECBCD,B'00000100' 0483 00739000 BZ @RF00483 0483 00740000 * DO; /* NO - PGFIX FAILED */ 00741000 * M01R0=WTOCONID; /* CONSOLE ID FOR WTO */ 00742000 SLR M01R0,M01R0 0485 00743000 IC M01R0,WTOCONID 0485 00744000 * M01R1=ADDR(MSG001I); /* ADDR OF LIST FORM OF WTO */ 00745000 LA M01R1,MSG001I 0486 00746000 * GEN REFS(MSG001I)(WTO MF=(E,(1))); 0487 00747000 WTO MF=(E,(1)) 00748000 * RTNCDE=4; 0488 00749000 LA RTNCDE,4 0488 00750000 * END; 0489 00751000 * ELSE 0490 00752000 * DO; /* YES - SUCCESSFUL */ 00753000 * 0490 00754000 B @RC00483 0490 00755000 @RF00483 DS 0H 0491 00756000 * /*********************************************************/ 00757000 * /* */ 00758000 * /* MODIFY SKELETON PSA BEFORE DISABLING */ 00759000 * /* */ 00760000 * /*********************************************************/ 00761000 * 0491 00762000 * SKELPSA=CVTVPSA; /* SKEL COPY OF PSA */ 00763000 L @02,CVTPTR 0491 00764000 L SKELPSA,CVTVPSA(,@02) 0491 00765000 * PSAATCVT=M01ATCAD; /* ADDR OF ATCVT */ 00766000 * 0492 00767000 L @02,M01ATCAD 0492 00768000 ST @02,PSAATCVT(,SKELPSA) 0492 00769000 * /*********************************************************/ 00770000 * /* */ 00771000 * /* DISABLE TO PREVENT BEING DISPATCHED ON ANOTHER CPU */ 00772000 * /* */ 00773000 * /*********************************************************/ 00774000 * 0493 00775000 * GEN REFS(PSALITA,FLC) SETS(M01R0,M01R1,M01R2,M01R3,M01R4); 00776000 * 0493 00777000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND,REGS=USE, X00778000 RELATED=('DISABLE') 00779000 * /*********************************************************/ 00780000 * /* */ 00781000 * /* MODIFY VTAM'S PSA */ 00782000 * /* */ 00783000 * /*********************************************************/ 00784000 * 0494 00785000 * SKELPSA=0; /* PREFIXING WILL RESULT */ 00786000 SLR SKELPSA,SKELPSA 0494 00787000 * PSAATCVT=M01ATCAD; 0495 00788000 * 0495 00789000 L @02,M01ATCAD 0495 00790000 ST @02,PSAATCVT(,SKELPSA) 0495 00791000 * /*********************************************************/ 00792000 * /* */ 00793000 * /* SEARCH FOR OTHER PSA'S - CHECK THE CSD TO SEE IF THE */ 00794000 * /* CPU IS ALIVE BEFORE UPDATING PSA */ 00795000 * /* */ 00796000 * /*********************************************************/ 00797000 * 0496 00798000 * RESPECIFY 0496 00799000 * CPUMSK RESTRICTED; 0496 00800000 * RESPECIFY 0497 00801000 * PSA BASED(PCCAPSAV); /* PSA ADDR IN PCCA */ 00802000 * CPUMSK=CSDCPUAL; /* LOAD ALIVE CPU MASK INTO REG */ 00803000 L @09,CVTPTR 0498 00804000 L @08,CVTCSD(,@09) 0498 00805000 LH CPUMSK,CSDCPUAL(,@08) 0498 00806000 N CPUMSK,@CF03784 0498 00807000 * PAVTPTR=CVTPCCAT; /* ADDR OF PCCAVT */ 00808000 L PAVTPTR,CVTPCCAT(,@09) 0499 00809000 * GEN(SLL CPUMSK,16); /* SHIFT TO CORRECT PLACE */ 00810000 SLL CPUMSK,16 00811000 * DO WHILE CPUMSK^=0; /* PROCESS WHILE THERE ARE BITS 00812000 * REMAINING IN THE REG, 0501 00813000 * INDICATING ALIVE CPUS */ 00814000 B @DE00501 0501 00815000 @DL00501 DS 0H 0502 00816000 * GEN(ALR CPUMSK,CPUMSK);/* THIS WILL SHIFT REG ONE BIT 00817000 * AND CAUSE OVERFLOW IF THE 0502 00818000 * HI-ORDER BIT WAS ON */ 00819000 ALR CPUMSK,CPUMSK 00820000 * BC(12,UPDATPTR); /* BRANCH IF CPU ISN'T ALIVE */ 00821000 BC 12,UPDATPTR 0503 00822000 * PSAATCVT=M01ATCAD; /* YES - SET ADDR OF ATCVT */ 00823000 L @09,PCCAPTR(,PAVTPTR) 0504 00824000 L @09,PCCAPSAV(,@09) 0504 00825000 L @08,M01ATCAD 0504 00826000 ST @08,PSAATCVT(,@09) 0504 00827000 *UPDATPTR: 0505 00828000 * PAVTPTR=PAVTPTR+4; /* NEXT ENTRY IN PCCAVT */ 00829000 UPDATPTR AL PAVTPTR,@CF00053 0505 00830000 * END; 0506 00831000 @DE00501 LTR CPUMSK,CPUMSK 0506 00832000 BNZ @DL00501 0506 00833000 * GEN REFS(PSALITA,FLC) SETS(M01R1,M01R2,M01R3,M01R4) 0507 00834000 * (SETLOCK RELEASE,TYPE=DISP,REGS=USE,RELATED=('ENABLE')) 00835000 * ; 0507 00836000 SETLOCK RELEASE,TYPE=DISP,REGS=USE,RELATED=('ENABLE') 00837000 * RTNCDE=0; /* INDICATE PSA INIT SUCCESS */ 00838000 SLR RTNCDE,RTNCDE 0508 00839000 * END; 0509 00840000 * GEN(DEQ (SYSMAJ,SYSMIN,3,SYSTEM));/* DEQ TO ALLOW VARY CPU IN*/ 00841000 @RC00483 DS 0H 0510 00842000 DEQ (SYSMAJ,SYSMIN,3,SYSTEM) 00843000 * RESPECIFY 0511 00844000 * (M01R2, 0511 00845000 * M01R3) RESTRICTED; 0511 00846000 * M01R2=ADDR(ISTINM01); /* PREPARE TO PGFREE M01 CSECT */ 00847000 L M01R2,@CA00028 0512 00848000 * M01R3=M01R2+M01END; /* LENGTH OF M01 FOR PGFIX */ 00849000 LR M01R3,M01R2 0513 00850000 AL M01R3,M01END 0513 00851000 * GEN REFS(M01R2,M01R3)(PGFREE R,A=(M01R2),EA=(M01R3)); 0514 00852000 PGFREE R,A=(M01R2),EA=(M01R3) 00853000 * RESPECIFY 0515 00854000 * (M01R2, 0515 00855000 * M01R3) UNRESTRICTED; 0515 00856000 * END; 0516 00857000 * GEN(MODESET EXTKEY=VTAM); /* MODESET BACK FROM KEY ZERO */ 00858000 @RC00469 DS 0H 0517 00859000 MODESET EXTKEY=VTAM 00860000 * M01R14=M01SAVE; /* RESTORE CALLER'S RETURN ADDR */ 00861000 L M01R14,M01SAVE 0518 00862000 * M01R15=RTNCDE; /* RETURN CODE FOR MAIN LINE 0519 00863000 * CHECK */ 00864000 LR M01R15,RTNCDE 0519 00865000 * END SETPSA; 0520 00866000 @EL00007 DS 0H 0520 00867000 @EF00007 DS 0H 0520 00868000 @ER00007 BR @14 0520 00869000 *GETPIOSV: 0521 00870000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0521 00871000 * 0521 00872000 GETPIOSV DS 0H 0522 00873000 */********************************************************************/ 00874000 */* */ 00875000 */* THIS ROUTINE GETMAINS, PGFIXES, AND INITIALIZES TWO WORK */ 00876000 */* AREAS FOR TPIOS. IT PUTS THE ADDRESS OF EACH AREA IN THE ATCVT. */ 00877000 */* */ 00878000 */********************************************************************/ 00879000 * 0522 00880000 * M01SAVE=M01R14; /* SAVE CALLER'S RETURN ADDR */ 00881000 ST M01R14,M01SAVE 0522 00882000 * SVAREASZ=(5*ZSAFSVSZ)+LENGTH(ISTZ19SV);/* SIZE FOR GETMAIN */ 00883000 LA @03,296 0523 00884000 ST @03,SVAREASZ 0523 00885000 * M01R0=SVAREASZ; 0524 00886000 LR M01R0,@03 0524 00887000 * GEN SETS(TPIOSSV1)(GETMAIN EC,LV=(0),A=TPIOSSV1,SP=231); 0525 00888000 GETMAIN EC,LV=(0),A=TPIOSSV1,SP=231 00889000 * IF M01R15^=0 THEN /* WAS GETMAIN SUCCESSFUL */ 00890000 LTR M01R15,M01R15 0526 00891000 BNZ @RT00526 0526 00892000 * GOTO FAILMSG; /* NO - ISSUE MSG */ 00893000 * M01R0=SVAREASZ; /* REESTABLISH SIZE FOR GETMAIN */ 00894000 L M01R0,SVAREASZ 0528 00895000 * GEN SETS(TPIOSSV2)(GETMAIN EC,LV=(0),A=TPIOSSV2,SP=231); 0529 00896000 GETMAIN EC,LV=(0),A=TPIOSSV2,SP=231 00897000 * IF M01R15^=0 THEN /* WAS GETMAIN SUCCESSFUL */ 00898000 SLR @03,@03 0530 00899000 CR M01R15,@03 0530 00900000 BNE @RT00530 0530 00901000 * GOTO FAILMSG; /* NO - ISSUE MSG */ 00902000 * RESPECIFY 0532 00903000 * (M01R2, 0532 00904000 * M01R3) RSTD; 0532 00905000 * M01CB1=0; /* CLEAR ECB FOR PGFIX */ 00906000 SLR @09,@09 0533 00907000 ST @09,M01CB1 0533 00908000 * M01R2=TPIOSSV1; /* START OF AREA FOR PGFIX */ 00909000 L @09,TPIOSSV1 0534 00910000 LR M01R2,@09 0534 00911000 * M01R3=TPIOSSV1+SVAREASZ; /* END ADDR FOR PGFIX */ 00912000 AL @09,SVAREASZ 0535 00913000 LR M01R3,@09 0535 00914000 * GEN REFS(M01R2,M01R3,M01CB1) 0536 00915000 * (PGFIX R,A=(M01R2),EA=(M01R3),ECB=M01CB1); 0536 00916000 PGFIX R,A=(M01R2),EA=(M01R3),ECB=M01CB1 00917000 * GEN SETS(M01CB1)(WAIT 1,ECB=M01CB1); 0537 00918000 WAIT 1,ECB=M01CB1 00919000 * IF M01ECBCD^='0'B THEN /* WAS PGFIX SUCCESSFUL */ 00920000 TM M01ECBCD,B'00000100' 0538 00921000 BNZ @RT00538 0538 00922000 * GOTO FAILMSG2; 0539 00923000 * M01CB1=0; /* CLEAR ECB FOR PGFIX */ 00924000 SLR @09,@09 0540 00925000 ST @09,M01CB1 0540 00926000 * M01R2=TPIOSSV2; /* START OF AREA FOR PGFIX */ 00927000 L @09,TPIOSSV2 0541 00928000 LR M01R2,@09 0541 00929000 * M01R3=TPIOSSV2+SVAREASZ; /* END ADDR FOR PGFIX */ 00930000 AL @09,SVAREASZ 0542 00931000 LR M01R3,@09 0542 00932000 * GEN REFS(M01R2,M01R3,M01CB1) 0543 00933000 * (PGFIX R,A=(M01R2),EA=(M01R3),ECB=M01CB1); 0543 00934000 PGFIX R,A=(M01R2),EA=(M01R3),ECB=M01CB1 00935000 * GEN SETS(M01CB1)(WAIT 1,ECB=M01CB1); 0544 00936000 WAIT 1,ECB=M01CB1 00937000 * IF M01ECBCD^='0'B THEN /* WAS PGFIX SUCCESSFUL */ 00938000 TM M01ECBCD,B'00000100' 0545 00939000 BNZ @RT00545 0545 00940000 * GOTO FAILMSG2; 0546 00941000 * FLDLNTH=SVAREASZ; /* LENGTH OF AREA TO BE CLEARED */ 00942000 L FLDLNTH,SVAREASZ 0547 00943000 * FLDADDR=TPIOSSV1; /* ADDR OF AREA TO BE CLEARED */ 00944000 L FLDADDR,TPIOSSV1 0548 00945000 * DO I=1 TO 2; /* CLEAR BOTH AREAS */ 00946000 LA @07,1 0549 00947000 STC @07,I 0549 00948000 @DL00549 DS 0H 0550 00949000 * DO WHILE FLDLNTH>256; 0550 00950000 B @DE00550 0550 00951000 @DL00550 DS 0H 0551 00952000 * FIELD=''B; 0551 00953000 XC FIELD(256,FLDADDR),FIELD(FLDADDR) 0551 00954000 * FLDLNTH=FLDLNTH-256; /* DECREMENT LENGTH */ 00955000 LA @07,256 0552 00956000 SLR FLDLNTH,@07 0552 00957000 * FLDADDR=FLDADDR+256; /* INCREMENT POINTER TO AREA */ 00958000 ALR FLDADDR,@07 0553 00959000 * END; 0554 00960000 @DE00550 C FLDLNTH,@CF00681 0554 00961000 BH @DL00550 0554 00962000 * FIELD(1:FLDLNTH)=FIELD(1:FLDLNTH)&&FIELD(1:FLDLNTH); 0555 00963000 LR @07,FLDLNTH 0555 00964000 BCTR @07,0 0555 00965000 EX @07,@SX03785 0555 00966000 * FLDLNTH=SVAREASZ; /* REESTABLISH AREA SIZE */ 00967000 L FLDLNTH,SVAREASZ 0556 00968000 * FLDADDR=TPIOSSV2; /* POINT TO SECOND AREA */ 00969000 L FLDADDR,TPIOSSV2 0557 00970000 * END; 0558 00971000 LA @07,1 0558 00972000 SLR @06,@06 0558 00973000 IC @06,I 0558 00974000 ALR @07,@06 0558 00975000 STC @07,I 0558 00976000 C @07,@CF00073 0558 00977000 BNH @DL00549 0558 00978000 * FLDADDR=TPIOSSV1; /* POINT TO FIRST AREA */ 00979000 L @07,TPIOSSV1 0559 00980000 LR FLDADDR,@07 0559 00981000 * TP19SVAD=TPIOSSV1+(5*ZSAFSVSZ); /* ADDR OF 19 WD SAVE AREA */ 00982000 AL @07,@CF03780 0560 00983000 LR TP19SVAD,@07 0560 00984000 * RESPECIFY 0561 00985000 * ISTZFSAV BASED(FLDADDR); 0561 00986000 * DO I=1 TO 2; /* INIT SAVE AREAS */ 00987000 LA @07,1 0562 00988000 STC @07,I 0562 00989000 @DL00562 DS 0H 0563 00990000 * ZSAFSVBC=0; /* BACK CHAIN PTR */ 00991000 SLR @07,@07 0563 00992000 ST @07,ZSAFSVBC(,FLDADDR) 0563 00993000 * ZSAFSVFC=FLDADDR+ZSAFSVSZ; /* NEXT SAVE AREA */ 00994000 LA @07,44 0564 00995000 ALR @07,FLDADDR 0564 00996000 ST @07,ZSAFSVFC(,FLDADDR) 0564 00997000 * ZSAFSV19=TP19SVAD; /* PTR TO 19 WD SAVE AREA */ 00998000 ST TP19SVAD,ZSAFSV19(,FLDADDR) 0565 00999000 * DO J=1 TO 3; 0566 01000000 LA @07,1 0566 01001000 STC @07,J 0566 01002000 @DL00566 DS 0H 0567 01003000 * FLDADDR=FLDADDR+ZSAFSVSZ; /* POINT TO NEXT SAVE AREA */ 01004000 LA @06,44 0567 01005000 ALR FLDADDR,@06 0567 01006000 * ZSAFSVBC=FLDADDR-ZSAFSVSZ; /* PTR TO LAST SAVE AREA */ 01007000 LR @05,FLDADDR 0568 01008000 SLR @05,@06 0568 01009000 ST @05,ZSAFSVBC(,FLDADDR) 0568 01010000 * ZSAFSVFC=FLDADDR+ZSAFSVSZ; /* PTR TO NEXT SAVE AREA */ 01011000 ALR @06,FLDADDR 0569 01012000 ST @06,ZSAFSVFC(,FLDADDR) 0569 01013000 * ZSAFSV19=TP19SVAD; /* PTR TO 19 WD SAVE AREA */ 01014000 ST TP19SVAD,ZSAFSV19(,FLDADDR) 0570 01015000 * END; 0571 01016000 AL @07,@CF00061 0571 01017000 STC @07,J 0571 01018000 C @07,@CF00288 0571 01019000 BNH @DL00566 0571 01020000 * FLDADDR=FLDADDR+ZSAFSVSZ; /* POINT TO LAST SAVE AREA */ 01021000 LA @07,44 0572 01022000 ALR FLDADDR,@07 0572 01023000 * ZSAFSVBC=FLDADDR-ZSAFSVSZ; /* PTR TO LAST SAVE AREA */ 01024000 LCR @07,@07 0573 01025000 ALR @07,FLDADDR 0573 01026000 ST @07,ZSAFSVBC(,FLDADDR) 0573 01027000 * ZSAFSVFC=0; /* INDICATE END OF CHAIN */ 01028000 SLR @07,@07 0574 01029000 ST @07,ZSAFSVFC(,FLDADDR) 0574 01030000 * ZSAFSV19=TP19SVAD; /* PTR TO 19 WD SAVE AREA */ 01031000 ST TP19SVAD,ZSAFSV19(,FLDADDR) 0575 01032000 * FLDADDR=TPIOSSV2; /* POINT TO 2ND AREA TO INIT */ 01033000 L @07,TPIOSSV2 0576 01034000 LR FLDADDR,@07 0576 01035000 * TP19SVAD=TPIOSSV2+(5*ZSAFSVSZ);/* ADDR OF 19 WD SAVE AREA */ 01036000 AL @07,@CF03780 0577 01037000 LR TP19SVAD,@07 0577 01038000 * END; 0578 01039000 LA @07,1 0578 01040000 SLR @06,@06 0578 01041000 IC @06,I 0578 01042000 ALR @07,@06 0578 01043000 STC @07,I 0578 01044000 C @07,@CF00073 0578 01045000 BNH @DL00562 0578 01046000 * ATCTPCP0=TPIOSSV1; /* ADDR OF FIRST SAVE AREA */ 01047000 L @09,M01ATCAD 0579 01048000 L @07,TPIOSSV1 0579 01049000 ST @07,ATCTPCP0(,@09) 0579 01050000 * ATCTPCP1=TPIOSSV2; /* ADDR OF SECOND SAVE AREA */ 01051000 L @07,TPIOSSV2 0580 01052000 ST @07,ATCTPCP1(,@09) 0580 01053000 * RTNCDE=0; /* INDICATE SETUP SUCCESSFUL */ 01054000 SLR RTNCDE,RTNCDE 0581 01055000 * GOTO ENDTPIOS; 0582 01056000 B ENDTPIOS 0582 01057000 *FAILMSG: 0583 01058000 * M01R0=WTOCONID; /* CONSOLE ID FOR WTO */ 01059000 FAILMSG SLR M01R0,M01R0 0583 01060000 IC M01R0,WTOCONID 0583 01061000 * M01R1=ADDR(MSG006I); /* ADDR OF LIST FORM OF WTO */ 01062000 LA M01R1,MSG006I 0584 01063000 * GEN REFS(MSG006I)(WTO MF=(E,(1))); 0585 01064000 WTO MF=(E,(1)) 01065000 * RTNCDE=4; /* INDICATE SETUP FAILED */ 01066000 LA RTNCDE,4 0586 01067000 * GOTO ENDTPIOS; 0587 01068000 B ENDTPIOS 0587 01069000 *FAILMSG2: 0588 01070000 * M01R0=WTOCONID; /* CONSOLE ID FOR WTO */ 01071000 FAILMSG2 SLR M01R0,M01R0 0588 01072000 IC M01R0,WTOCONID 0588 01073000 * M01R1=ADDR(MSG001I); /* ADDR OF LIST FORM OF WTO */ 01074000 LA M01R1,MSG001I 0589 01075000 * GEN REFS(MSG001I)(WTO MF=(E,(1))); 0590 01076000 WTO MF=(E,(1)) 01077000 * RTNCDE=4; /* INDICATE SETUP FAILED */ 01078000 LA RTNCDE,4 0591 01079000 *ENDTPIOS: 0592 01080000 * M01R14=M01SAVE; /* RESTORE CALLER&S RETURN ADDR */ 01081000 ENDTPIOS L M01R14,M01SAVE 0592 01082000 * M01R15=RTNCDE; /* SET RETURN CODE */ 01083000 LR M01R15,RTNCDE 0593 01084000 * END GETPIOSV; 0594 01085000 @EL00008 DS 0H 0594 01086000 @EF00008 DS 0H 0594 01087000 @ER00008 BR @14 0594 01088000 * END ISTINM01 0595 01089000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 01090000 */*%INCLUDE SYSLIB (CVT ) * 01091000 */*%INCLUDE SYSLIB (IKJTCB ) * 01092000 */*%INCLUDE SYSLIB (IEECHAIN) * 01093000 */*%INCLUDE SYSLIB (IEZJSCB ) * 01094000 */*%INCLUDE SYSLIB (IHAPSA ) * 01095000 */*%INCLUDE SYSLIB (IHAPCCAT) * 01096000 */*%INCLUDE SYSLIB (IHAPCCA ) * 01097000 */*%INCLUDE SYSLIB (IHACSD ) * 01098000 */*%INCLUDE SYSLIB (IHAASCB ) * 01099000 *; 0595 01100000 @DATA DS 0H 01101000 @SX03785 XC FIELD(0,FLDADDR),FIELD(FLDADDR) 01102000 DS 0F 01103000 @SA00001 DS 18F 01104000 DS 0F 01105000 @CF00061 DC F'1' 01106000 @CF00073 DC F'2' 01107000 @CF00288 DC F'3' 01108000 @CF00053 DC F'4' 01109000 @CF01418 DC F'44' 01110000 @CF03780 DC F'220' 01111000 @CF00681 DC F'256' 01112000 @CF03778 DC F'1584' 01113000 @CF03784 DC XL4'0000FFFF' 01114000 @CA00028 DC A(ISTINM01) 01115000 @CV03663 DC V(ISTINMAD) 01116000 @CV03664 DC V(ISTINMAL) 01117000 @CV03665 DC V(ISTINCIT) 01118000 @CV03666 DC V(ISTINFIC) 01119000 @CV03667 DC V(ISTCFMMI) 01120000 DS 0D 01121000 M01AVTAD DS A 01122000 M01ATCAD DS A 01123000 M01SAVE DC A(0) 01124000 M01CONAD DS A 01125000 TPIOSSV1 DS A 01126000 TPIOSSV2 DS A 01127000 SVAREASZ DS F 01128000 I DS FL1 01129000 J DS FL1 01130000 @CC03737 DC C'LPALIB ' 01131000 @CC03738 DC C'ISTRAMA1' 01132000 @CC03739 DC C'ISTRAMA2' 01133000 @CC03743 DC C'ISTCFMTM' 01134000 @CC03744 DC C'ISTCFCMM' 01135000 @CC03745 DC C'ISTORFSR' 01136000 DS CL2 01137000 ALOADLST DS CL28 01138000 M01CB1 DS CL4 01139000 ORG M01CB1 01140000 @NM00071 DS BL3 01141000 @NM00072 DS BL1 01142000 ORG @NM00072 01143000 @NM00073 DS BL1 01144000 M01ECBCD EQU @NM00072+0 01145000 @NM00074 EQU @NM00072+0 01146000 ORG M01CB1+4 01147000 SYSMAJ DC CL8'SYSZVARY' 01148000 SYSMIN DC CL3'CPU' 01149000 M01MAJ DC CL8'SYSZNM01' 01150000 M01MIN DC CL5'START' 01151000 SRBCNT DC X'0003' 01152000 CRACNT DC X'0003' 01153000 RPLCNT DC X'000A' 01154000 WTOCONID DS CL1 01155000 ISTINM01 CSECT 01156000 MSG001I WTO 'IST001I VTAM START REJECTED--PAGEFIX FAILED', X01157000 MCSFLAG=(REG0,RESP),ROUTCDE=(10),DESC=4,MF=L 01158000 MSG006I WTO 'IST006I VTAM START REJECTED - GETMAIN FAILED', X01159000 MCSFLAG=(REG0,RESP),ROUTCDE=(10),DESC=4,MF=L 01160000 ISTINM01 CSECT 01161000 M01END DC A(@ENDDATA-ISTINM01) COMPUTE LENGTH OF CSECT 01162000 ISTINM01 CSECT 01163000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01164000 @01 EQU 01 01165000 @02 EQU 02 01166000 @03 EQU 03 01167000 @04 EQU 04 01168000 @05 EQU 05 01169000 @06 EQU 06 01170000 @07 EQU 07 01171000 @08 EQU 08 01172000 @09 EQU 09 01173000 @10 EQU 10 01174000 @11 EQU 11 01175000 @12 EQU 12 01176000 @13 EQU 13 01177000 @14 EQU 14 01178000 @15 EQU 15 01179000 RTNCDE EQU @08 01180000 FLDADDR EQU @08 01181000 FLDLNTH EQU @09 01182000 TP19SVAD EQU @09 01183000 PAVTPTR EQU @03 01184000 ASCBPTR EQU @03 01185000 SKELPSA EQU @10 01186000 CSCBPTR EQU @11 01187000 RPHPTR EQU @01 01188000 LDPRMPTR EQU @01 01189000 M01R0 EQU @00 01190000 M01R1 EQU @01 01191000 M01R2 EQU @02 01192000 CPUMSK EQU @02 01193000 M01R3 EQU @03 01194000 M01R4 EQU @04 01195000 M01R14 EQU @14 01196000 M01R15 EQU @15 01197000 CVTPTR EQU 16 01198000 ATCLCPTR EQU 1032 01199000 CVTMAP EQU 0 01200000 CVTTCBP EQU CVTMAP 01201000 CVTDAR EQU CVTMAP+72 01202000 CVTFLGS1 EQU CVTDAR 01203000 CVTDCB EQU CVTMAP+116 01204000 CVTIERLC EQU CVTMAP+144 01205000 CVTOPTA EQU CVTMAP+182 01206000 CVTOPTB EQU CVTMAP+183 01207000 CVTGTF EQU CVTMAP+236 01208000 CVTGTFST EQU CVTGTF 01209000 CVTGTFS EQU CVTGTFST 01210000 CVTSTATE EQU CVTGTFST 01211000 CVTTMODE EQU CVTGTFST 01212000 CVTFORM EQU CVTGTFST 01213000 CVTAQAVT EQU CVTMAP+240 01214000 CVTTCMFG EQU CVTAQAVT 01215000 CVTVOLM2 EQU CVTMAP+244 01216000 CVTTATA EQU CVTVOLM2 01217000 CVTTSKS EQU CVTTATA 01218000 CVTVOLF2 EQU CVTTSKS 01219000 CVTTAT EQU CVTTATA+1 01220000 CVTATER EQU CVTMAP+248 01221000 CVTEXT1 EQU CVTMAP+252 01222000 CVTPURG EQU CVTMAP+260 01223000 CVTQMSG EQU CVTMAP+268 01224000 CVTDMSR EQU CVTMAP+272 01225000 CVTRSV37 EQU CVTDMSR 01226000 CVTDMSRF EQU CVTRSV37 01227000 CVTERPV EQU CVTMAP+316 01228000 CVTINTLA EQU CVTMAP+320 01229000 CVTAPF EQU CVTMAP+324 01230000 CVTEXT2 EQU CVTMAP+328 01231000 CVTHJES EQU CVTMAP+332 01232000 CVTPGSIA EQU CVTMAP+348 01233000 CVTA1F1 EQU CVTMAP+356 01234000 CVTSYSK EQU CVTMAP+357 01235000 CVTVOLM1 EQU CVTMAP+380 01236000 CVTVOLF1 EQU CVTVOLM1 01237000 CVTATMCT EQU CVTMAP+388 01238000 CVTXTNT1 EQU 0 01239000 CVTXTNT2 EQU 0 01240000 CVTDSSV EQU CVTXTNT2 01241000 CVTFLGBT EQU CVTXTNT2+5 01242000 CVTQID EQU CVTXTNT2+24 01243000 CVTSHS EQU CVTXTNT2+40 01244000 CVTRV400 EQU CVTXTNT2+52 01245000 CVTRV409 EQU CVTXTNT2+53 01246000 CVTATCVT EQU CVTXTNT2+64 01247000 CVTRV429 EQU CVTXTNT2+84 01248000 CVTRV438 EQU CVTXTNT2+85 01249000 CVTRV457 EQU CVTXTNT2+112 01250000 CVTRV466 EQU CVTXTNT2+113 01251000 CVTFIX EQU 0 01252000 CVTRELNO EQU CVTFIX+252 01253000 TCBFIX EQU 0 01254000 TCBFRS EQU TCBFIX 01255000 TCB EQU 0 01256000 TCBPIE EQU TCB+4 01257000 TCBPMASK EQU TCBPIE 01258000 TCBCMP EQU TCB+16 01259000 TCBCMPF EQU TCBCMP 01260000 TCBCPP EQU TCBCMPF 01261000 TCBSTCC EQU TCBCMPF 01262000 TCBCDBL EQU TCBCMPF 01263000 TCBCWTO EQU TCBCMPF 01264000 TCBCIND EQU TCBCMPF 01265000 TCBCMSG EQU TCBCMPF 01266000 TCBTRN EQU TCB+20 01267000 TCBABF EQU TCBTRN 01268000 TCBMSS EQU TCB+24 01269000 TCBPKF EQU TCB+28 01270000 TCBFLGS EQU TCB+29 01271000 TCBFLGS1 EQU TCBFLGS 01272000 TCBFLGS2 EQU TCBFLGS+1 01273000 TCBFLGS3 EQU TCBFLGS+2 01274000 TCBFLGS4 EQU TCBFLGS+3 01275000 TCBFLGS5 EQU TCBFLGS+4 01276000 TCBABWF EQU TCBFLGS5 01277000 TCBJPQ EQU TCB+44 01278000 TCBPURGE EQU TCBJPQ 01279000 TCBGRS EQU TCB+48 01280000 TCBFSA EQU TCB+112 01281000 TCBTME EQU TCB+120 01282000 TCBJSTCB EQU TCB+124 01283000 TCBTSFLG EQU TCB+148 01284000 TCBTSTSK EQU TCBTSFLG 01285000 TCBSTAB EQU TCB+160 01286000 TCBNSTAE EQU TCBSTAB 01287000 TCBTCT EQU TCB+164 01288000 TCBTCTGF EQU TCBTCT 01289000 TCBSCNDY EQU TCB+172 01290000 TCBNDSP EQU TCBSCNDY 01291000 TCBNDSP1 EQU TCBNDSP+1 01292000 TCBNDSP2 EQU TCBNDSP+2 01293000 TCBNDSP3 EQU TCBNDSP+3 01294000 TCBJSCB EQU TCB+180 01295000 TCBRECDE EQU TCBJSCB 01296000 TCBEXT1 EQU TCB+196 01297000 TCBBITS EQU TCB+200 01298000 TCBNDSP4 EQU TCBBITS 01299000 TCBNDSP5 EQU TCBBITS+1 01300000 TCBFLGS6 EQU TCBBITS+2 01301000 TCBFLGS7 EQU TCBBITS+3 01302000 TCBDAR EQU TCB+204 01303000 TCBDARC EQU TCBDAR 01304000 TCBEXT2 EQU TCB+208 01305000 TCBFOE EQU TCB+244 01306000 TCBESTAE EQU TCB+264 01307000 TCBESTRM EQU TCBESTAE+1 01308000 TCBFBYT1 EQU TCB+276 01309000 TCBFBYT2 EQU TCB+277 01310000 TCBRV124 EQU TCB+278 01311000 TCBRV133 EQU TCB+279 01312000 TCBXTNT2 EQU 0 01313000 TCBGTF EQU TCBXTNT2 01314000 TCBTFLG EQU TCBGTF 01315000 TCBRV146 EQU TCBXTNT2+28 01316000 TCBRV155 EQU TCBXTNT2+29 01317000 TCBRV164 EQU TCBXTNT2+30 01318000 TCBRV173 EQU TCBXTNT2+31 01319000 CHAIN EQU 0 01320000 CHFLG EQU CHAIN+4 01321000 CHSTS EQU CHFLG+2 01322000 CHACT EQU CHFLG+3 01323000 CHKEY EQU CHAIN+8 01324000 CHPARM EQU CHKEY 01325000 CHPKE EQU CHAIN+28 01326000 CHUCMP EQU CHAIN+29 01327000 CHTJID EQU CHAIN+30 01328000 CHPROCSN EQU CHAIN+32 01329000 CHACT1 EQU CHPROCSN+3 01330000 CHASM EQU CHAIN+40 01331000 CHECBP EQU CHASM 01332000 CHCIBP EQU CHASM+4 01333000 CHRGNSZ EQU CHASM+8 01334000 CHSTEP EQU CHASM+24 01335000 CHSWT EQU CHSTEP 01336000 CHSHORT EQU CHASM+32 01337000 IEZJSCB EQU 0 01338000 JSCBSEC1 EQU IEZJSCB+188 01339000 JSCHPCE EQU JSCBSEC1+4 01340000 JSCBDCB EQU JSCBSEC1+36 01341000 JSCBOPTS EQU JSCBSEC1+48 01342000 JSCBSWT1 EQU JSCBSEC1+55 01343000 JSCBWTP EQU JSCBSEC1+64 01344000 JSCBWTFG EQU JSCBWTP 01345000 JSCBCSCB EQU JSCBSEC1+68 01346000 JSCBEND1 EQU IEZJSCB+260 01347000 PSA EQU 0 01348000 FLCRNPSW EQU PSA 01349000 FLCROPSW EQU PSA+8 01350000 FLCICCW2 EQU PSA+16 01351000 PSAEEPSW EQU PSA+132 01352000 PSAESPSW EQU PSA+136 01353000 FLCSVILC EQU PSAESPSW+1 01354000 PSAEPPSW EQU PSA+140 01355000 FLCPIILC EQU PSAEPPSW+1 01356000 FLCPICOD EQU PSAEPPSW+2 01357000 PSAPICOD EQU FLCPICOD+1 01358000 FLCTEA EQU PSAEPPSW+4 01359000 FLCPER EQU PSA+152 01360000 FLCMCLA EQU PSA+168 01361000 FLCIOEL EQU FLCMCLA+4 01362000 FLCIOA EQU FLCMCLA+16 01363000 FLCFSA EQU FLCMCLA+80 01364000 PSAAOLD EQU PSA+548 01365000 PSASUPER EQU PSA+552 01366000 PSASUP1 EQU PSASUPER 01367000 PSASUP2 EQU PSASUPER+1 01368000 PSASUP3 EQU PSASUPER+2 01369000 PSASUP4 EQU PSASUPER+3 01370000 PSACLHT EQU PSA+640 01371000 PSALKSA EQU PSA+696 01372000 PSAHLHI EQU PSA+760 01373000 PSALITA EQU PSA+764 01374000 PSADSSFL EQU PSA+836 01375000 PSADSSF1 EQU PSADSSFL 01376000 PSADSSF3 EQU PSADSSFL+2 01377000 PSADSSF4 EQU PSADSSFL+3 01378000 PSARSVT EQU PSA+896 01379000 PSAATCVT EQU PSA+1032 01380000 PCCAVT EQU 0 01381000 PCCA EQU 0 01382000 PCCAPSAV EQU PCCA+24 01383000 PCCATMST EQU PCCA+128 01384000 PCCATMFL EQU PCCATMST 01385000 PCCATODE EQU PCCATMST+1 01386000 PCCACCE EQU PCCATMST+2 01387000 PCCAINTE EQU PCCATMST+3 01388000 PCCAEMSB EQU PCCA+136 01389000 PCCAEMSI EQU PCCAEMSB 01390000 PCCARISP EQU PCCAEMSI 01391000 PCCAEMS2 EQU PCCAEMSI+1 01392000 PCCAEMS3 EQU PCCAEMSI+2 01393000 PCCARMSB EQU PCCAEMSI+3 01394000 PCCAWERP EQU PCCA+280 01395000 PCCACHPF EQU PCCAWERP+4 01396000 PCCACHBL EQU PCCAWERP+5 01397000 PCCACHVA EQU PCCAWERP+6 01398000 PCCACHTS EQU PCCAWERP+7 01399000 PCCACHS1 EQU PCCA+288 01400000 PCCACHS2 EQU PCCA+289 01401000 PCCACHRB EQU PCCA+290 01402000 PCCACHF1 EQU PCCA+308 01403000 PCCACHF2 EQU PCCA+309 01404000 PCCACHF3 EQU PCCA+310 01405000 PCCACHF4 EQU PCCA+311 01406000 PCCAPTR EQU 0 01407000 CSD EQU 0 01408000 CSDCPUAL EQU CSD+8 01409000 CSDSCWRD EQU CSD+12 01410000 CSDSCFL1 EQU CSDSCWRD 01411000 CSDSCFL2 EQU CSDSCWRD+1 01412000 CSDSCFL3 EQU CSDSCWRD+2 01413000 CSDSCFL4 EQU CSDSCWRD+3 01414000 CSDFLAGS EQU CSD+23 01415000 CSDMP EQU CSDFLAGS 01416000 ASCB EQU 0 01417000 ASCBSUPC EQU ASCB+16 01418000 ASCBASID EQU ASCB+36 01419000 ASCBFW1 EQU ASCB+100 01420000 ASCBRCTF EQU ASCBFW1+2 01421000 ASCBFLG1 EQU ASCBFW1+3 01422000 ASCBDSP1 EQU ASCB+114 01423000 ASCBFLG2 EQU ASCB+115 01424000 ASCBLKGP EQU ASCB+128 01425000 ASCBSRQ EQU ASCB+180 01426000 ASCBSRQ1 EQU ASCBSRQ 01427000 ASCBSRQ2 EQU ASCBSRQ+1 01428000 ASCBSRQ3 EQU ASCBSRQ+2 01429000 ASCBSRQ4 EQU ASCBSRQ+3 01430000 ISTPAB EQU 0 01431000 PABWQCHN EQU ISTPAB 01432000 PABWEQA EQU PABWQCHN 01433000 PABCHAIN EQU PABWQCHN+4 01434000 PABOFFST EQU ISTPAB+8 01435000 PABDVTA EQU ISTPAB+9 01436000 PABRPHFG EQU ISTPAB+12 01437000 PABFLAGS EQU PABRPHFG 01438000 PABDYNAM EQU PABFLAGS 01439000 PABSSN EQU PABFLAGS 01440000 PABERLCK EQU PABFLAGS 01441000 PABERRLK EQU PABERLCK 01442000 ISTDEVCH EQU 0 01443000 DEVSHCH EQU ISTDEVCH 01444000 DEVCHAR EQU DEVSHCH 01445000 DEVTCODE EQU ISTDEVCH+1 01446000 DEVFLAGS EQU ISTDEVCH+3 01447000 DEVFCCTL EQU DEVFLAGS 01448000 DEVCHAR3 EQU DEVFLAGS 01449000 ISTLOK EQU 0 01450000 LOKCHN EQU ISTLOK+1 01451000 LOKCHNG EQU LOKCHN 01452000 @NM00042 EQU LOKCHNG+2 01453000 ISTRPRE EQU 0 01454000 RPRCOMID EQU ISTRPRE+8 01455000 RPRFLAGA EQU ISTRPRE+21 01456000 RPRFLAGB EQU ISTRPRE+22 01457000 RPRCAUSE EQU ISTRPRE+23 01458000 RPRFLAGD EQU ISTRPRE+61 01459000 RPRFLAGC EQU ISTRPRE+62 01460000 ISTRCPRE EQU 0 01461000 RCPPMODE EQU ISTRCPRE+91 01462000 RCPLGNIN EQU ISTRCPRE+92 01463000 ISTRDT EQU 0 01464000 RDTPLEN EQU ISTRDT+72 01465000 RDTPRIOR EQU RDTPLEN 01466000 RDTFLAGB EQU ISTRDT+91 01467000 RDTVYRPH EQU ISTRDT+108 01468000 RDTSTCNT EQU ISTRDT+112 01469000 ISTRAP EQU 0 01470000 RAPFLG EQU ISTRAP+108 01471000 RAPFLGB EQU ISTRAP+109 01472000 RAPFLGC EQU ISTRAP+110 01473000 ISTRLC EQU 0 01474000 RLCADR EQU ISTRLC+72 01475000 RLCFLAG EQU RLCADR 01476000 ISTRRN EQU 0 01477000 RRNADR EQU ISTRRN+136 01478000 RRNFLAG EQU RRNADR 01479000 RRNUCBAD EQU RRNADR+1 01480000 RRNRDF EQU ISTRRN+172 01481000 RRNRDFA EQU RRNRDF 01482000 RRNRDFB EQU RRNRDF+1 01483000 RRNCMF EQU ISTRRN+176 01484000 RRNCMFA EQU RRNCMF 01485000 RRNCMFB EQU RRNCMF+1 01486000 RRNCMFC EQU RRNCMF+2 01487000 RRNCMFD EQU RRNCMF+3 01488000 RRNNMDPD EQU ISTRRN+192 01489000 RRNHPRE EQU ISTRRN+216 01490000 ISTRGP EQU 0 01491000 RGPFLG EQU ISTRGP+72 01492000 ISTRLN EQU 0 01493000 RLNADR EQU ISTRLN+72 01494000 RLNFLAG EQU RLNADR 01495000 RLNUCBAD EQU RLNADR+1 01496000 RLNSTAT1 EQU ISTRLN+86 01497000 RLNSTAT2 EQU ISTRLN+87 01498000 RLNRDF EQU ISTRLN+88 01499000 RLNRDFA EQU RLNRDF 01500000 RLNRACNT EQU RLNRDFA 01501000 RLNRDFB EQU RLNRDF+1 01502000 RLNCRFLG EQU ISTRLN+102 01503000 RLNLSCMD EQU RLNCRFLG 01504000 ISTRPT EQU 0 01505000 RPTLNCID EQU ISTRPT+116 01506000 RPTDITT EQU ISTRPT+128 01507000 RPTFLAG1 EQU ISTRPT+140 01508000 ISTRCL EQU 0 01509000 RCLADR EQU ISTRCL+72 01510000 RCLFLAG EQU RCLADR 01511000 ISTRTR EQU 0 01512000 RTRADR EQU ISTRTR+124 01513000 RTRFLAG EQU RTRADR 01514000 RTRRDFA EQU ISTRTR+136 01515000 RTRRAALL EQU RTRRDFA 01516000 RTRRDFB EQU ISTRTR+137 01517000 RTRRDFC EQU ISTRTR+138 01518000 RTRRDFD EQU ISTRTR+139 01519000 RTRRDFE EQU ISTRTR+140 01520000 RTRRDFF EQU ISTRTR+141 01521000 RTRCRFLG EQU ISTRTR+143 01522000 RTRLSCMD EQU RTRCRFLG 01523000 RTRBSCID EQU ISTRTR+188 01524000 ISTRIN EQU 0 01525000 RINDFD EQU ISTRIN+124 01526000 RINREMPO EQU RINDFD 01527000 RINNODEF EQU RINDFD 01528000 RINLDISC EQU RINDFD 01529000 RINNODID EQU ISTRIN+125 01530000 RINRLDAF EQU ISTRIN+126 01531000 RINREMOT EQU ISTRIN+128 01532000 RINVPAB EQU ISTRIN+132 01533000 RINRPHCN EQU ISTRIN+136 01534000 RINNCSPL EQU ISTRIN+140 01535000 RINCNCNT EQU ISTRIN+144 01536000 ISTRDS EQU 0 01537000 ISTDOT EQU 0 01538000 ISTRCC EQU 0 01539000 RCCFLAG EQU ISTRCC+73 01540000 RCCFLAGB EQU ISTRCC+74 01541000 RCCSTAID EQU ISTRCC+78 01542000 RCCID48 EQU RCCSTAID+2 01543000 RCCCRFLG EQU ISTRCC+108 01544000 ISTRLU EQU 0 01545000 RLUFLAG EQU ISTRLU+125 01546000 RLUCRFLG EQU ISTRLU+126 01547000 RLUPACE EQU ISTRLU+132 01548000 RLUNCPPC EQU ISTRLU+134 01549000 RLUUSSTB EQU ISTRLU+140 01550000 RLUMODET EQU ISTRLU+152 01551000 ISTRPX EQU 0 01552000 ISTRLX EQU 0 01553000 RLXFLAGA EQU ISTRLX+76 01554000 ISTRSW EQU 0 01555000 ISTRDA EQU 0 01556000 RDAADR EQU ISTRDA+72 01557000 RDAFLAG EQU RDAADR 01558000 RDAUCBAD EQU RDAADR+1 01559000 ISTRLS EQU 0 01560000 ISTDNT EQU 0 01561000 ISTGNT EQU 0 01562000 ISTPAT EQU 0 01563000 PATFLAGA EQU ISTPAT+7 01564000 ISTDYPAB EQU 0 01565000 DYPTYPE EQU ISTDYPAB 01566000 DYPPAB EQU ISTDYPAB+16 01567000 ISTAVT EQU 0 01568000 ISTACVT EQU ISTAVT 01569000 ISTAS49 EQU ISTAVT+4 01570000 AVTASID EQU ISTAVT+16 01571000 ISTRPH EQU 0 01572000 RPHCNTL EQU ISTRPH 01573000 RPHFLAGS EQU RPHCNTL+2 01574000 RPHAPTYP EQU RPHFLAGS 01575000 RPHFSTLC EQU RPHFLAGS 01576000 RPHFLGB EQU RPHCNTL+3 01577000 RPHRPHA EQU ISTRPH+4 01578000 RPHTSKID EQU ISTRPH+8 01579000 RPHRESMA EQU ISTRPH+16 01580000 RPHWPFLG EQU RPHRESMA 01581000 RPHWEA EQU ISTRPH+24 01582000 RPHCSPA EQU RPHWEA 01583000 RPHSRPRM EQU ISTRPH+28 01584000 RPHPABQA EQU ISTRPH+36 01585000 RPHWORK EQU ISTRPH+40 01586000 RPHSAVE1 EQU RPHWORK 01587000 RPHSBITS EQU RPHSAVE1+1 01588000 ISTATCVT EQU 0 01589000 ATCCOM EQU ISTATCVT 01590000 ATCSTAT EQU ATCCOM 01591000 ATCSTAT1 EQU ATCSTAT 01592000 ATCSTFLG EQU ATCSTAT+1 01593000 ATCPOFLG EQU ATCSTAT+2 01594000 ATCSTAT4 EQU ATCSTAT+3 01595000 ATCECMOD EQU ATCCOM+24 01596000 ATCCONFT EQU ATCCOM+112 01597000 ATCIOTRC EQU ATCCOM+140 01598000 ATCTHTRC EQU ATCIOTRC 01599000 ATCGTSTR EQU ATCCOM+164 01600000 ATCCSMR EQU ISTATCVT+296 01601000 ATCSHRFG EQU ISTATCVT+316 01602000 ATCMSGP EQU ISTATCVT+344 01603000 ATCMSGM EQU ISTATCVT+348 01604000 ATCHPGM EQU ISTATCVT+384 01605000 ATCVLCNT EQU ISTATCVT+772 01606000 ATCRNO EQU ISTATCVT+788 01607000 ATCSOPD EQU ISTATCVT+792 01608000 ATCSIPD EQU ISTATCVT+800 01609000 ATCSECST EQU ISTATCVT+812 01610000 ATCSTAT2 EQU ISTATCVT+818 01611000 ATCVTBAM EQU ISTATCVT+908 01612000 @NM00059 EQU ATCVTBAM+3 01613000 ATCAOSM EQU ISTATCVT+912 01614000 ATCGSRBQ EQU ATCAOSM+4 01615000 ATCGSRBG EQU ATCGSRBQ 01616000 ATCICAPP EQU ATCAOSM+100 01617000 ATCLDAPP EQU ATCAOSM+120 01618000 ATCDAPVT EQU ATCAOSM+140 01619000 ATCCRA EQU ATCAOSM+280 01620000 ATCCRACN EQU ATCCRA+4 01621000 ATCSRB EQU ATCAOSM+288 01622000 ATCSRBCN EQU ATCSRB+4 01623000 ATCCRPL EQU ATCAOSM+296 01624000 ATCRPLCN EQU ATCCRPL+4 01625000 ATCVTFLG EQU ATCAOSM+392 01626000 ATCASCB EQU ATCAOSM+564 01627000 ATCTPCP0 EQU ATCAOSM+580 01628000 ATCTPCP1 EQU ATCAOSM+584 01629000 ATCZFLAG EQU ATCAOSM+588 01630000 ATCTPMPB EQU ATCAOSM+600 01631000 ATCTPMMI EQU ATCAOSM+632 01632000 ISTLDPRM EQU 0 01633000 LDPMBR EQU ISTLDPRM 01634000 LDPPDS EQU ISTLDPRM+8 01635000 LDPFG EQU ISTLDPRM+20 01636000 LDPFB2 EQU ISTLDPRM+21 01637000 ISTCONFT EQU 0 01638000 CONSTCIB EQU ISTCONFT+72 01639000 CONHALT EQU ISTCONFT+106 01640000 CONFLAGS EQU ISTCONFT+110 01641000 CONDSFLG EQU CONFLAGS 01642000 CONOPTFL EQU CONFLAGS+1 01643000 CONSTAT EQU CONFLAGS+2 01644000 CONBUFF EQU CONFLAGS+3 01645000 CONFLG01 EQU ISTCONFT+416 01646000 CONCSCB EQU ISTCONFT+1168 01647000 CONSCPID EQU ISTCONFT+1356 01648000 CONSTAID EQU CONSCPID+3 01649000 ISTZFSAV EQU 0 01650000 ZSAFSVBC EQU ISTZFSAV 01651000 ZSAFSVFC EQU ISTZFSAV+4 01652000 ZSAFSV19 EQU ISTZFSAV+40 01653000 ISTZ19SV EQU 0 01654000 ZSAF19FG EQU ISTZ19SV 01655000 MODNAME EQU 0 01656000 M01TCBW EQU 0 01657000 M01TCBC EQU M01TCBW+4 01658000 FIELD EQU 0 01659000 CVTS01 EQU CVTPGSIA 01660000 CVTLPDIA EQU CVTS01+12 01661000 CVTDIRST EQU CVTLPDIA 01662000 CVTSLIDA EQU CVTS01+24 01663000 CVTCTLFG EQU CVTS01+50 01664000 CVTCSD EQU CVTS01+312 01665000 CVTPCCAT EQU CVTS01+416 01666000 CVTRV210 EQU CVTS01+424 01667000 CVTRV219 EQU CVTS01+425 01668000 CVTRV228 EQU CVTS01+426 01669000 CVTRV237 EQU CVTS01+427 01670000 CVTMFRTR EQU CVTS01+452 01671000 CVTRV262 EQU CVTS01+468 01672000 CVTRV271 EQU CVTS01+469 01673000 CVTRV280 EQU CVTS01+470 01674000 CVTRV289 EQU CVTS01+471 01675000 CVTVPSA EQU CVTS01+560 01676000 CVTRMPTT EQU CVTS01+564 01677000 CVTRMPMT EQU CVTS01+568 01678000 CVTGSDA EQU CVTS01+600 01679000 TCBPTR EQU M01TCBC 01680000 CHAINS01 EQU CHASM 01681000 CHTYPE EQU CHAINS01+124 01682000 CHTRSTAT EQU CHAINS01+125 01683000 CHCSYSO EQU CHAINS01+134 01684000 JSCBSEC2 EQU JSCBEND1 01685000 JSCBSEC3 EQU JSCBEND1 01686000 JSCBJCT EQU JSCBSEC3 01687000 JSCBJCTA EQU JSCBJCT+1 01688000 JSCBASID EQU JSCBSEC3+8 01689000 JSCBJNL EQU JSCBSEC3+28 01690000 JSCBJJSB EQU JSCBJNL 01691000 JSCBSUB EQU JSCBSEC3+40 01692000 JSCSCT EQU JSCBSEC3+68 01693000 JSCRSV45 EQU JSCBSEC3+112 01694000 JSCRSV46 EQU JSCRSV45 01695000 JSCRSV47 EQU JSCRSV45+2 01696000 FLC EQU PSA 01697000 PSARSVTE EQU PSARSVT 01698000 RTRDNCBA EQU ISTRTR+40 01699000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01700000 PSARSAV EQU PSARSVTE+60 01701000 PSARSTK EQU PSARSVTE+56 01702000 PSAESAV3 EQU PSARSVTE+52 01703000 PSAESTK3 EQU PSARSVTE+48 01704000 PSAESAV2 EQU PSARSVTE+44 01705000 PSAESTK2 EQU PSARSVTE+40 01706000 PSAESAV1 EQU PSARSVTE+36 01707000 PSAESTK1 EQU PSARSVTE+32 01708000 PSAPSAV EQU PSARSVTE+28 01709000 PSAPSTK EQU PSARSVTE+24 01710000 PSAMSAV EQU PSARSVTE+20 01711000 PSAMSTK EQU PSARSVTE+16 01712000 PSASSAV EQU PSARSVTE+12 01713000 PSASSTK EQU PSARSVTE+8 01714000 PSANSTK EQU PSARSVTE+4 01715000 PSACSTK EQU PSARSVTE 01716000 JSCBEND3 EQU JSCBSEC3+120 01717000 JSCRSV52 EQU JSCBSEC3+116 01718000 JSCRSV51 EQU JSCRSV47+1 01719000 JSCRSV50 EQU JSCRSV47 01720000 JSCRSV49 EQU JSCRSV46+1 01721000 JSCRSV48 EQU JSCRSV46 01722000 JSCRSV44 EQU JSCBSEC3+108 01723000 JSCRSV43 EQU JSCBSEC3+104 01724000 JSCRSV42 EQU JSCBSEC3+100 01725000 JSCBASWA EQU JSCBSEC3+96 01726000 JSCBUFPT EQU JSCBSEC3+92 01727000 JSCBACT EQU JSCBSEC3+88 01728000 JSCBSWSP EQU JSCBSEC3+87 01729000 JSCRSV33 EQU JSCBSEC3+86 01730000 JSCDDNUM EQU JSCBSEC3+84 01731000 JSCRSV53 EQU JSCBSEC3+82 01732000 JSCDDNNO EQU JSCBSEC3+80 01733000 JSCBVATA EQU JSCBSEC3+76 01734000 JSCTMCOR EQU JSCBSEC3+72 01735000 JSCSCTP EQU JSCSCT+1 01736000 JSCRSV55 EQU JSCSCT 01737000 JSCRSV54 EQU JSCBSEC3+64 01738000 JSCDSABQ EQU JSCBSEC3+60 01739000 JSCBSSIB EQU JSCBSEC3+56 01740000 JSCBFRBA EQU JSCBSEC3+48 01741000 JSCRSV28 EQU JSCBSEC3+46 01742000 JSCBSONO EQU JSCBSEC3+44 01743000 JSCBSUBA EQU JSCBSUB+1 01744000 JSCRSV31 EQU JSCBSUB 01745000 JSCBSMLR EQU JSCBSEC3+36 01746000 JSCBJNLR EQU JSCBSEC3+32 01747000 JSCBJNLA EQU JSCBJNL+1 01748000 JSCBJSBT EQU JSCBJJSB 01749000 JSCBJSBX EQU JSCBJJSB 01750000 JSCBJSBA EQU JSCBJJSB 01751000 JSCBJSBI EQU JSCBJJSB 01752000 @NM00014 EQU JSCBJJSB 01753000 JSCBJNLE EQU JSCBJJSB 01754000 JSCBJNLF EQU JSCBJJSB 01755000 JSCBJNLN EQU JSCBJJSB 01756000 @NM00013 EQU JSCBSEC3+24 01757000 JSCBJRBA EQU JSCBSEC3+16 01758000 JSCBIECB EQU JSCBSEC3+12 01759000 JSCRSV25 EQU JSCBSEC3+10 01760000 JSCBTJID EQU JSCBASID 01761000 JSCBPSCB EQU JSCBSEC3+4 01762000 JSCJCTP EQU JSCBJCTA 01763000 JSCRSV24 EQU JSCBJCT 01764000 JSCBEND2 EQU JSCBSEC2 01765000 CHLAST EQU CHAINS01+136 01766000 CHSPA EQU CHAINS01+135 01767000 CHUSERID EQU CHCSYSO 01768000 CHJB EQU CHCSYSO 01769000 CHDUMP EQU CHCSYSO 01770000 CHQUE EQU CHCSYSO 01771000 CHHOLD EQU CHCSYSO 01772000 CHOUT EQU CHCSYSO 01773000 CHINN EQU CHCSYSO 01774000 CHALL EQU CHCSYSO 01775000 CHINC EQU CHAINS01+132 01776000 CHPEND EQU CHAINS01+128 01777000 CHARID EQU CHAINS01+127 01778000 CHCNID EQU CHAINS01+126 01779000 @NM00010 EQU CHTRSTAT 01780000 CHTSL EQU CHTRSTAT 01781000 CHTS EQU CHTRSTAT 01782000 CHINITL EQU CHTRSTAT 01783000 CHINIT EQU CHTRSTAT 01784000 CHJOBSL EQU CHTRSTAT 01785000 CHJOBS EQU CHTRSTAT 01786000 CHDEF EQU CHTYPE 01787000 CHHIAR EQU CHTYPE 01788000 CHARSV29 EQU CHTYPE 01789000 CHARSV28 EQU CHTYPE 01790000 CHARSV27 EQU CHTYPE 01791000 CHARSV26 EQU CHTYPE 01792000 CHARSV25 EQU CHTYPE 01793000 CHDSTAT EQU CHTYPE 01794000 CHBUF EQU CHAINS01 01795000 CVTRV628 EQU CVTS01+728 01796000 CVTRV627 EQU CVTS01+724 01797000 CVTRV626 EQU CVTS01+720 01798000 CVTRV625 EQU CVTS01+716 01799000 CVTRV624 EQU CVTS01+712 01800000 CVTRV623 EQU CVTS01+708 01801000 CVTRV622 EQU CVTS01+704 01802000 CVTRV621 EQU CVTS01+700 01803000 CVTRV620 EQU CVTS01+696 01804000 CVTRV619 EQU CVTS01+692 01805000 CVTRV618 EQU CVTS01+688 01806000 CVTRV617 EQU CVTS01+684 01807000 CVTRV616 EQU CVTS01+680 01808000 CVTRV615 EQU CVTS01+676 01809000 CVTRV614 EQU CVTS01+672 01810000 CVTRV613 EQU CVTS01+668 01811000 CVTTCASP EQU CVTS01+664 01812000 CVT0PT03 EQU CVTS01+660 01813000 CVT0PT0E EQU CVTS01+656 01814000 CVTIRM EQU CVTS01+652 01815000 CVTCGK EQU CVTS01+648 01816000 CVTRV607 EQU CVTS01+644 01817000 CVTRV606 EQU CVTS01+640 01818000 CVTRV605 EQU CVTS01+636 01819000 CVTRV604 EQU CVTS01+632 01820000 CVTEFF02 EQU CVTS01+628 01821000 CVTCBBR EQU CVTS01+624 01822000 CVTSSCR EQU CVTS01+620 01823000 CVTEVENT EQU CVTS01+616 01824000 CVTCRCA EQU CVTS01+612 01825000 CVTTPIO EQU CVTS01+608 01826000 CVTADV EQU CVTS01+604 01827000 CVTGSDAB EQU CVTGSDA 01828000 CVTQV3 EQU CVTS01+596 01829000 CVTQV2 EQU CVTS01+592 01830000 CVTQV1 EQU CVTS01+588 01831000 CVTRPT EQU CVTS01+584 01832000 CVTSSRB EQU CVTS01+580 01833000 CVTCSDRL EQU CVTS01+576 01834000 CVTEXP1 EQU CVTS01+572 01835000 CVTVSTOP EQU CVTS01+556 01836000 CVTGTFR8 EQU CVTS01+552 01837000 CVTQUIT EQU CVTS01+548 01838000 CVTVACR EQU CVTS01+544 01839000 CVTWTCB EQU CVTS01+540 01840000 CVTSTPRS EQU CVTS01+536 01841000 CVT0PT02 EQU CVTS01+532 01842000 CVTDARCM EQU CVTS01+528 01843000 CVTIRECM EQU CVTS01+524 01844000 CVTJRECM EQU CVTS01+520 01845000 CVTVEMS0 EQU CVTS01+516 01846000 CVTSPFRR EQU CVTS01+512 01847000 CVTRLSTG EQU CVTS01+508 01848000 CVT0TC0A EQU CVTS01+504 01849000 CVTGMBR EQU CVTS01+500 01850000 CVTLFRM EQU CVTS01+496 01851000 CVTRMBR EQU CVTS01+492 01852000 CVTVIOP EQU CVTS01+488 01853000 CVTRV307 EQU CVTS01+486 01854000 CVTRV306 EQU CVTS01+484 01855000 CVTRV305 EQU CVTS01+482 01856000 CVTRV304 EQU CVTS01+480 01857000 CVTRV303 EQU CVTS01+478 01858000 CVTRV302 EQU CVTS01+476 01859000 CVTTRCA EQU CVTS01+472 01860000 CVTRV297 EQU CVTRV289 01861000 CVTRV296 EQU CVTRV289 01862000 CVTRV295 EQU CVTRV289 01863000 CVTRV294 EQU CVTRV289 01864000 CVTRV293 EQU CVTRV289 01865000 CVTRV292 EQU CVTRV289 01866000 CVTRV291 EQU CVTRV289 01867000 CVTRV290 EQU CVTRV289 01868000 CVTRV288 EQU CVTRV280 01869000 CVTRV287 EQU CVTRV280 01870000 CVTRV286 EQU CVTRV280 01871000 CVTRV285 EQU CVTRV280 01872000 CVTRV284 EQU CVTRV280 01873000 CVTRV283 EQU CVTRV280 01874000 CVTRV282 EQU CVTRV280 01875000 CVTRV281 EQU CVTRV280 01876000 CVTRV279 EQU CVTRV271 01877000 CVTRV278 EQU CVTRV271 01878000 CVTRV277 EQU CVTRV271 01879000 CVTRV276 EQU CVTRV271 01880000 CVTRV275 EQU CVTRV271 01881000 CVTRV274 EQU CVTRV271 01882000 CVTRV273 EQU CVTRV271 01883000 CVTRV272 EQU CVTRV271 01884000 CVTRV270 EQU CVTRV262 01885000 CVTRV269 EQU CVTRV262 01886000 CVTRV268 EQU CVTRV262 01887000 CVTRV267 EQU CVTRV262 01888000 CVTRV266 EQU CVTRV262 01889000 CVTRV265 EQU CVTRV262 01890000 CVTRV264 EQU CVTRV262 01891000 CVTRV263 EQU CVTRV262 01892000 CVTVFP EQU CVTS01+464 01893000 CVTVSI EQU CVTS01+460 01894000 CVTVPSIB EQU CVTS01+456 01895000 CVTMFACT EQU CVTMFRTR 01896000 CVTMFCTL EQU CVTS01+448 01897000 CVTPVBP EQU CVTS01+444 01898000 CVTPWI EQU CVTS01+440 01899000 CVTRV254 EQU CVTS01+438 01900000 CVTRV253 EQU CVTS01+436 01901000 CVTRV252 EQU CVTS01+434 01902000 CVTRV251 EQU CVTS01+433 01903000 CVTRV250 EQU CVTS01+432 01904000 CVTRV249 EQU CVTS01+431 01905000 CVTRV248 EQU CVTS01+430 01906000 CVTRV247 EQU CVTS01+429 01907000 CVTRV246 EQU CVTS01+428 01908000 CVTRV245 EQU CVTRV237 01909000 CVTRV244 EQU CVTRV237 01910000 CVTRV243 EQU CVTRV237 01911000 CVTRV242 EQU CVTRV237 01912000 CVTRV241 EQU CVTRV237 01913000 CVTRV240 EQU CVTRV237 01914000 CVTRV239 EQU CVTRV237 01915000 CVTRV238 EQU CVTRV237 01916000 CVTRV236 EQU CVTRV228 01917000 CVTRV235 EQU CVTRV228 01918000 CVTRV234 EQU CVTRV228 01919000 CVTRV233 EQU CVTRV228 01920000 CVTRV232 EQU CVTRV228 01921000 CVTRV231 EQU CVTRV228 01922000 CVTRV230 EQU CVTRV228 01923000 CVTRV229 EQU CVTRV228 01924000 CVTRV227 EQU CVTRV219 01925000 CVTRV226 EQU CVTRV219 01926000 CVTRV225 EQU CVTRV219 01927000 CVTRV224 EQU CVTRV219 01928000 CVTRV223 EQU CVTRV219 01929000 CVTRV222 EQU CVTRV219 01930000 CVTRV221 EQU CVTRV219 01931000 CVTRV220 EQU CVTRV219 01932000 CVTRV218 EQU CVTRV210 01933000 CVTRV217 EQU CVTRV210 01934000 CVTRV216 EQU CVTRV210 01935000 CVTRV215 EQU CVTRV210 01936000 CVTRV214 EQU CVTRV210 01937000 CVTRV213 EQU CVTRV210 01938000 CVTRV212 EQU CVTRV210 01939000 CVTRV211 EQU CVTRV210 01940000 CVTLCCAT EQU CVTS01+420 01941000 CVTIPCRP EQU CVTS01+412 01942000 CVTIPCRI EQU CVTS01+408 01943000 CVTIPCDS EQU CVTS01+404 01944000 CVTAIDVT EQU CVTS01+400 01945000 CVTSSAP EQU CVTS01+396 01946000 CVTEHCIR EQU CVTS01+392 01947000 CVTEHDEF EQU CVTS01+388 01948000 CVTDAIR EQU CVTS01+384 01949000 CVTPERFM EQU CVTS01+380 01950000 CVT044R2 EQU CVTS01+376 01951000 CVTFETCH EQU CVTS01+372 01952000 CVTRSTWD EQU CVTS01+368 01953000 CVTSPOST EQU CVTS01+364 01954000 CVTIOBP EQU CVTS01+360 01955000 CVTASMVT EQU CVTS01+356 01956000 CVTRECRQ EQU CVTS01+352 01957000 CVTWSAC EQU CVTS01+348 01958000 CVTRV149 EQU CVTS01+344 01959000 CVTWSAL EQU CVTS01+340 01960000 CVTSPSA EQU CVTS01+336 01961000 CVTGLMN EQU CVTS01+332 01962000 CVTVEAC0 EQU CVTS01+328 01963000 CVT062R1 EQU CVTS01+324 01964000 CVTRPOST EQU CVTS01+320 01965000 CVTDQIQE EQU CVTS01+316 01966000 CVTLKRMA EQU CVTS01+308 01967000 CVTRSPIE EQU CVTS01+304 01968000 CVTRENQ EQU CVTS01+300 01969000 CVTLQCB EQU CVTS01+296 01970000 CVTFQCB EQU CVTS01+292 01971000 CVTQCS01 EQU CVTS01+288 01972000 CVTAPFT EQU CVTS01+284 01973000 CVTPARRL EQU CVTS01+280 01974000 CVTVWAIT EQU CVTS01+276 01975000 CVTGSPL EQU CVTS01+272 01976000 CVTLSMQ EQU CVTS01+268 01977000 CVTGSMQ EQU CVTS01+264 01978000 CVTEXPRO EQU CVTS01+260 01979000 CVTOPCTP EQU CVTS01+256 01980000 CVTSIC EQU CVTS01+252 01981000 CVTTPIOS EQU CVTS01+248 01982000 CVTRTMS EQU CVTS01+244 01983000 CVTSDBF EQU CVTS01+240 01984000 CVTSCBP EQU CVTS01+236 01985000 CVTSDMP EQU CVTS01+232 01986000 CVTSV60 EQU CVTS01+228 01987000 CVTRTMCT EQU CVTS01+224 01988000 CVTASCBL EQU CVTS01+220 01989000 CVTASCBH EQU CVTS01+216 01990000 CVTGDA EQU CVTS01+212 01991000 CVTASVT EQU CVTS01+208 01992000 CVTVVMDI EQU CVTS01+204 01993000 CVTAQTOP EQU CVTS01+200 01994000 CVTIOSCS EQU CVTS01+196 01995000 CVTSDRM EQU CVTS01+192 01996000 CVTOPTE EQU CVTS01+188 01997000 CVTSTXU EQU CVTS01+184 01998000 CVTQUIS EQU CVTS01+180 01999000 CVTPARS EQU CVTS01+176 02000000 CVTS1EE EQU CVTS01+172 02001000 CVTFRAS EQU CVTS01+168 02002000 CVTQSAS EQU CVTS01+164 02003000 CVTCRAS EQU CVTS01+160 02004000 CVTCRMN EQU CVTS01+156 02005000 CVTDELCP EQU CVTS01+152 02006000 CVTFRECL EQU CVTS01+148 02007000 CVTGETCL EQU CVTS01+144 02008000 CVTBLDCP EQU CVTS01+140 02009000 CVTAUTHL EQU CVTS01+136 02010000 CVTSCAN EQU CVTS01+132 02011000 CVTRV144 EQU CVTS01+130 02012000 CVTMAXMP EQU CVTS01+128 02013000 CVTSTCK EQU CVTS01+124 02014000 CVTRV139 EQU CVTS01+123 02015000 CVTDSSAC EQU CVTS01+122 02016000 CVTRV513 EQU CVTS01+121 02017000 CVTIOSPL EQU CVTS01+120 02018000 CVTPTGT EQU CVTS01+116 02019000 CVTCSPIE EQU CVTS01+112 02020000 CVTSMFEX EQU CVTS01+108 02021000 CVTOLT0A EQU CVTS01+104 02022000 CVTSRBRT EQU CVTS01+100 02023000 CVTPUTL EQU CVTS01+96 02024000 CVTASCRL EQU CVTS01+92 02025000 CVTASCRF EQU CVTS01+88 02026000 CVTRV326 EQU CVTS01+84 02027000 CVTRV325 EQU CVTS01+80 02028000 CVTRV324 EQU CVTS01+76 02029000 CVT0VL01 EQU CVTS01+72 02030000 CVTSHRVM EQU CVTS01+68 02031000 CVTRV332 EQU CVTS01+64 02032000 CVTTAS EQU CVTS01+60 02033000 CVTRSCN EQU CVTS01+56 02034000 CVTTRAC2 EQU CVTS01+54 02035000 CVTTRACE EQU CVTS01+52 02036000 CVTAPG EQU CVTS01+51 02037000 CVTSDTRC EQU CVTCTLFG 02038000 CVTGTRCE EQU CVTCTLFG 02039000 CVTNOMP EQU CVTCTLFG 02040000 CVTRSV79 EQU CVTCTLFG 02041000 CVTDSTAT EQU CVTCTLFG 02042000 CVTRSV78 EQU CVTCTLFG 02043000 CVTRV333 EQU CVTCTLFG 02044000 CVTRV323 EQU CVTCTLFG 02045000 CVTSPVLK EQU CVTS01+49 02046000 CVTRSV77 EQU CVTS01+48 02047000 CVTRV331 EQU CVTS01+44 02048000 CVTRV330 EQU CVTS01+40 02049000 CVTRV329 EQU CVTS01+36 02050000 CVTRV328 EQU CVTS01+32 02051000 CVTRV322 EQU CVTS01+28 02052000 CVTSLID EQU CVTSLIDA+1 02053000 CVTSYLK EQU CVTSLIDA 02054000 CVTRV321 EQU CVTS01+20 02055000 CVTRV320 EQU CVTS01+16 02056000 CVTLPDIR EQU CVTLPDIA+1 02057000 CVTRSV69 EQU CVTDIRST 02058000 CVTRSV68 EQU CVTDIRST 02059000 CVTRSV67 EQU CVTDIRST 02060000 CVTRSV66 EQU CVTDIRST 02061000 CVTRSV65 EQU CVTDIRST 02062000 CVTRSV64 EQU CVTDIRST 02063000 CVTRSV63 EQU CVTDIRST 02064000 CVTDICOM EQU CVTDIRST 02065000 CVTPVTP EQU CVTS01+8 02066000 CVTLPDSR EQU CVTS01+4 02067000 CVTGETL EQU CVTS01 02068000 M01TCBN EQU M01TCBW 02069000 ZSAF19IO EQU ISTZ19SV+12 02070000 ZSAF19RD EQU ISTZ19SV+8 02071000 ZSAF19R1 EQU ISTZ19SV+4 02072000 ZSAF19RV EQU ISTZ19SV+1 02073000 ZSAFRSVS EQU ZSAF19FG 02074000 ZSAFLOCK EQU ZSAF19FG 02075000 ZSAFSVR2 EQU ISTZFSAV+36 02076000 ZSAFSVVR EQU ISTZFSAV+12 02077000 ZSAFSVRR EQU ISTZFSAV+8 02078000 CONUESBF EQU ISTCONFT+1362 02079000 CONSTVAR EQU CONSTAID+1 02080000 CONSTFIL EQU CONSTAID 02081000 CONBLKNO EQU CONSCPID+2 02082000 CONFILL EQU CONSCPID+1 02083000 CONFCNL EQU CONSCPID 02084000 CONF01SV EQU ISTCONFT+1352 02085000 CONSDMLC EQU ISTCONFT+1348 02086000 CONSDECB EQU ISTCONFT+1344 02087000 CONUNITS EQU ISTCONFT+1342 02088000 CONRVPT1 EQU ISTCONFT+1341 02089000 CONGLBBH EQU ISTCONFT+1340 02090000 CONRSV24 EQU ISTCONFT+1312 02091000 CONFTTAT EQU ISTCONFT+1284 02092000 CONFXXAT EQU ISTCONFT+1256 02093000 CONFLDAT EQU ISTCONFT+1228 02094000 CONFTRAT EQU ISTCONFT+1200 02095000 CONFNSAT EQU ISTCONFT+1172 02096000 CONRSV50 EQU ISTCONFT+1166 02097000 CONLIST EQU ISTCONFT+1164 02098000 CONSTAFP EQU ISTCONFT+1160 02099000 CONECDET EQU ISTCONFT+1156 02100000 CONRECON EQU ISTCONFT+1036 02101000 CONNTSOL EQU ISTCONFT+916 02102000 CONTRACE EQU ISTCONFT+796 02103000 CONTOLTP EQU ISTCONFT+676 02104000 CONVVTAM EQU ISTCONFT+556 02105000 CONVTHDR EQU ISTCONFT+420 02106000 CONRSV01 EQU ISTCONFT+417 02107000 CONNSNEC EQU CONFLG01 02108000 CONFTPSA EQU CONFLG01 02109000 CONFTTA EQU CONFLG01 02110000 CONFTNSA EQU CONFLG01 02111000 CONFTNAC EQU CONFLG01 02112000 CONFTEXS EQU CONFLG01 02113000 CONFTTMR EQU CONFLG01 02114000 CONFTSTM EQU CONFLG01 02115000 CONCRPLD EQU ISTCONFT+404 02116000 CONPPDBF EQU ISTCONFT+392 02117000 CONNPDBF EQU ISTCONFT+380 02118000 CONAPDBF EQU ISTCONFT+368 02119000 CONWPDBF EQU ISTCONFT+356 02120000 CONIODBF EQU ISTCONFT+344 02121000 CONUEDBF EQU ISTCONFT+332 02122000 CONVPDBF EQU ISTCONFT+320 02123000 CONVFDBF EQU ISTCONFT+308 02124000 CONLPDBF EQU ISTCONFT+296 02125000 CONLFDBF EQU ISTCONFT+284 02126000 CONSPDBF EQU ISTCONFT+272 02127000 CONSFDBF EQU ISTCONFT+260 02128000 CONCRPLS EQU ISTCONFT+248 02129000 CONPPSBF EQU ISTCONFT+236 02130000 CONNPSBF EQU ISTCONFT+224 02131000 CONAPSBF EQU ISTCONFT+212 02132000 CONWPSBF EQU ISTCONFT+200 02133000 CONIOSBF EQU ISTCONFT+188 02134000 CONVPSBF EQU ISTCONFT+176 02135000 CONVFSBF EQU ISTCONFT+164 02136000 CONLPSBF EQU ISTCONFT+152 02137000 CONLFSBF EQU ISTCONFT+140 02138000 CONSPSBF EQU ISTCONFT+128 02139000 CONSFSBF EQU ISTCONFT+116 02140000 CONRSV17 EQU ISTCONFT+115 02141000 CONCRPL EQU CONBUFF+1 02142000 CONPPEX EQU CONBUFF+1 02143000 CONNPEX EQU CONBUFF+1 02144000 CONAPEX EQU CONBUFF+1 02145000 CONWPEX EQU CONBUFF+1 02146000 CONIOEX EQU CONBUFF 02147000 CONUECB EQU CONBUFF 02148000 CONVPEX EQU CONBUFF 02149000 CONVFEX EQU CONBUFF 02150000 CONLPEX EQU CONBUFF 02151000 CONLFEX EQU CONBUFF 02152000 CONSPEX EQU CONBUFF 02153000 CONSFEX EQU CONBUFF 02154000 CONACTV EQU CONSTAT 02155000 CONVRYIN EQU CONSTAT 02156000 CONLODED EQU CONSTAT 02157000 CONDSOPN EQU CONSTAT 02158000 CONSTOR EQU CONSTAT 02159000 @NM00070 EQU CONSTAT 02160000 @NM00069 EQU CONSTAT 02161000 @NM00068 EQU CONSTAT 02162000 CONIOTR EQU CONOPTFL 02163000 CONMODTR EQU CONOPTFL 02164000 CONBTUTR EQU CONOPTFL 02165000 CONBUFTR EQU CONOPTFL 02166000 @NM00067 EQU CONOPTFL 02167000 @NM00066 EQU CONOPTFL 02168000 @NM00065 EQU CONOPTFL 02169000 CONWRMST EQU CONOPTFL 02170000 CONSYLST EQU CONDSFLG 02171000 CONSYLIB EQU CONDSFLG 02172000 CONSYOBJ EQU CONDSFLG 02173000 @NM00064 EQU CONDSFLG 02174000 @NM00063 EQU CONDSFLG 02175000 @NM00062 EQU CONDSFLG 02176000 CONMODFY EQU ISTCONFT+109 02177000 CONDISPL EQU ISTCONFT+108 02178000 CONVARY EQU ISTCONFT+107 02179000 CONHLTS EQU CONHALT 02180000 CONHLTQ EQU CONHALT 02181000 CONLAST EQU ISTCONFT+105 02182000 CONRES2 EQU ISTCONFT+104 02183000 CONCID EQU ISTCONFT+102 02184000 CONBUFSZ EQU ISTCONFT+100 02185000 CONRSV02 EQU ISTCONFT+96 02186000 CONDCBBA EQU ISTCONFT+92 02187000 CONDCBLA EQU ISTCONFT+88 02188000 CONDCBOA EQU ISTCONFT+84 02189000 CONLDPRM EQU ISTCONFT+80 02190000 CONRDBUF EQU ISTCONFT+76 02191000 CONENDLA EQU ISTCONFT+68 02192000 CONVARLA EQU ISTCONFT+64 02193000 CONMODLA EQU ISTCONFT+60 02194000 CONHLTLA EQU ISTCONFT+56 02195000 CONNCSLA EQU ISTCONFT+52 02196000 CONDISLA EQU ISTCONFT+48 02197000 CONCIBAD EQU ISTCONFT+44 02198000 CONACB EQU ISTCONFT+40 02199000 CONFBPNM EQU ISTCONFT+32 02200000 CONDMNM EQU ISTCONFT+24 02201000 CONAPSNM EQU ISTCONFT+16 02202000 CONAPINM EQU ISTCONFT+8 02203000 CONCONFG EQU ISTCONFT 02204000 LDPTCEP EQU ISTLDPRM+24 02205000 LDPRSV02 EQU ISTLDPRM+22 02206000 LDPRSV01 EQU LDPFB2 02207000 LDPACTIF EQU LDPFB2 02208000 LDPATACH EQU LDPFB2 02209000 LDPFLAST EQU LDPFB2 02210000 LDPRSV03 EQU LDPFG 02211000 LDPPB EQU LDPFG 02212000 LDPFX EQU LDPFG 02213000 LDPDCBA EQU ISTLDPRM+16 02214000 ATCAOS EQU ISTATCVT+1584 02215000 ATCPOPAB EQU ATCAOSM+640 02216000 ATCVIOPM EQU ATCAOSM+636 02217000 ATCRSV88 EQU ATCAOSM+596 02218000 ATCRPLCT EQU ATCAOSM+594 02219000 ATCCRACT EQU ATCAOSM+592 02220000 ATCSRBCT EQU ATCAOSM+590 02221000 ATCRSV75 EQU ATCAOSM+589 02222000 ATCRSV66 EQU ATCZFLAG 02223000 ATCZF001 EQU ATCZFLAG 02224000 ATCAICTN EQU ATCAOSM+576 02225000 ATCZR01 EQU ATCAOSM+572 02226000 ATCMPLTA EQU ATCAOSM+568 02227000 ATCAP86 EQU ATCAOSM+560 02228000 ATCAP85 EQU ATCAOSM+556 02229000 ATCAP84 EQU ATCAOSM+552 02230000 ATCAP83 EQU ATCAOSM+548 02231000 ATCAP82 EQU ATCAOSM+544 02232000 ATCAP69 EQU ATCAOSM+540 02233000 ATCAP66 EQU ATCAOSM+536 02234000 ATCAP62 EQU ATCAOSM+532 02235000 ATCAPC59 EQU ATCAOSM+528 02236000 ATCAP56 EQU ATCAOSM+524 02237000 ATCAP55 EQU ATCAOSM+520 02238000 ATCRCFY0 EQU ATCAOSM+516 02239000 ATCAP41 EQU ATCAOSM+512 02240000 ATCAPC25 EQU ATCAOSM+508 02241000 ATCAP23 EQU ATCAOSM+504 02242000 ATCTPSPB EQU ATCAOSM+472 02243000 ATCTRMPB EQU ATCAOSM+440 02244000 ATCAPBE EQU ATCAOSM+436 02245000 ATCPSTA EQU ATCAOSM+432 02246000 ATCSMABF EQU ATCAOSM+428 02247000 ATCSMAPR EQU ATCAOSM+424 02248000 ATCTPWQA EQU ATCAOSM+420 02249000 ATCSMAID EQU ATCAOSM+416 02250000 ATCSMARA EQU ATCAOSM+412 02251000 ATCCACXA EQU ATCAOSM+408 02252000 ATCZLAAB EQU ATCAOSM+404 02253000 ATCATA10 EQU ATCAOSM+400 02254000 ATCHLTCB EQU ATCAOSM+396 02255000 @NM00061 EQU ATCVTFLG 02256000 ATCVTACT EQU ATCVTFLG 02257000 ATCRPT40 EQU ATCAOSM+388 02258000 ATCRPT39 EQU ATCAOSM+384 02259000 ATCRPT38 EQU ATCAOSM+380 02260000 ATCRPT37 EQU ATCAOSM+376 02261000 ATCRPT36 EQU ATCAOSM+372 02262000 ATCRPT35 EQU ATCAOSM+368 02263000 ATCRPT34 EQU ATCAOSM+364 02264000 ATCRPT33 EQU ATCAOSM+360 02265000 ATCRPT32 EQU ATCAOSM+356 02266000 ATCRPT31 EQU ATCAOSM+352 02267000 ATCRPT30 EQU ATCAOSM+348 02268000 ATCRPT29 EQU ATCAOSM+344 02269000 ATCRPT28 EQU ATCAOSM+340 02270000 ATCRPT27 EQU ATCAOSM+336 02271000 ATCRPT26 EQU ATCAOSM+332 02272000 ATCRPT25 EQU ATCAOSM+328 02273000 ATCRPT24 EQU ATCAOSM+324 02274000 ATCRPT23 EQU ATCAOSM+320 02275000 ATCRPT22 EQU ATCAOSM+316 02276000 ATCRPT21 EQU ATCAOSM+312 02277000 ATCRPT20 EQU ATCAOSM+308 02278000 ATCRPT19 EQU ATCAOSM+304 02279000 ATCRPLAC EQU ATCRPLCN+2 02280000 ATCRPLRC EQU ATCRPLCN 02281000 ATCCRPLQ EQU ATCCRPL 02282000 ATCSRBAC EQU ATCSRBCN+2 02283000 ATCSRBRC EQU ATCSRBCN 02284000 ATCSRBQ EQU ATCSRB 02285000 ATCCRAAC EQU ATCCRACN+2 02286000 ATCCRARC EQU ATCCRACN 02287000 ATCCRAQ EQU ATCCRA 02288000 ATCRPT12 EQU ATCAOSM+276 02289000 ATCDMAPP EQU ATCAOSM+272 02290000 ATCAP38 EQU ATCAOSM+268 02291000 ATCAP37 EQU ATCAOSM+264 02292000 ATCZDFJ0 EQU ATCAOSM+260 02293000 ATCAP51 EQU ATCAOSM+256 02294000 ATCZPAB2 EQU ATCAOSM+224 02295000 ATCZPAB1 EQU ATCAOSM+192 02296000 ATCZLFVT EQU ATCAOSM+188 02297000 ATCZLPVT EQU ATCAOSM+184 02298000 ATCZDVTX EQU ATCAOSM+180 02299000 ATCZDVTA EQU ATCAOSM+176 02300000 ATCZDVT9 EQU ATCAOSM+172 02301000 ATCZDVT8 EQU ATCAOSM+168 02302000 ATCZDVT7 EQU ATCAOSM+164 02303000 ATCRSV56 EQU ATCDAPVT+22 02304000 ATCDAPDG EQU ATCDAPVT+20 02305000 ATCDXCEA EQU ATCDAPVT+16 02306000 ATCDCEA EQU ATCDAPVT+12 02307000 ATCDPCIA EQU ATCDAPVT+8 02308000 ATCDSIOA EQU ATCDAPVT+4 02309000 ATCDEOEA EQU ATCDAPVT 02310000 ATCZLAEA EQU ATCLDAPP+16 02311000 ATCZLCEA EQU ATCLDAPP+12 02312000 ATCRSV17 EQU ATCLDAPP+8 02313000 ATCSMFRR EQU ATCLDAPP+4 02314000 ATCCDTID EQU ATCLDAPP 02315000 ATCZAEA EQU ATCICAPP+16 02316000 ATCZCEA EQU ATCICAPP+12 02317000 ATCCDTCB EQU ATCICAPP+8 02318000 ATCZSIOA EQU ATCICAPP+4 02319000 ATCCDRPH EQU ATCICAPP 02320000 ATCAP65 EQU ATCAOSM+96 02321000 ATCZDVT6 EQU ATCAOSM+92 02322000 ATCZDVT4 EQU ATCAOSM+88 02323000 ATCZDVT3 EQU ATCAOSM+84 02324000 ATCZDVT1 EQU ATCAOSM+80 02325000 ATCICNCB EQU ATCAOSM+76 02326000 ATCZPSVT EQU ATCAOSM+72 02327000 ATCZFSVT EQU ATCAOSM+68 02328000 ATCAP64 EQU ATCAOSM+64 02329000 ATCAP63 EQU ATCAOSM+60 02330000 ATCAP61 EQU ATCAOSM+56 02331000 ATCAP58 EQU ATCAOSM+52 02332000 ATCAP57 EQU ATCAOSM+48 02333000 ATCAP54 EQU ATCAOSM+44 02334000 ATCAP53 EQU ATCAOSM+40 02335000 ATCAP52 EQU ATCAOSM+36 02336000 ATCAP34 EQU ATCAOSM+32 02337000 ATCAP32 EQU ATCAOSM+28 02338000 ATCAP31 EQU ATCAOSM+24 02339000 ATCAP12 EQU ATCAOSM+20 02340000 ATCAP11 EQU ATCAOSM+16 02341000 ATCCMTCB EQU ATCAOSM+12 02342000 ATCPRPH EQU ATCAOSM+8 02343000 ATCGSRBF EQU ATCGSRBG 02344000 ATCSRBRT EQU ATCAOSM 02345000 @NM00060 EQU @NM00059 02346000 ATCVTMAB EQU @NM00059 02347000 @NM00058 EQU ATCVTBAM 02348000 ATCVDLOK EQU ISTATCVT+904 02349000 ATCVFPAB EQU ISTATCVT+872 02350000 ATCVDPAB EQU ISTATCVT+840 02351000 ATCIOECB EQU ISTATCVT+836 02352000 ATCINCW3 EQU ISTATCVT+832 02353000 ATCMODTB EQU ISTATCVT+828 02354000 ATCUSSPT EQU ISTATCVT+824 02355000 ATCSRTAB EQU ISTATCVT+820 02356000 @NM00057 EQU ISTATCVT+819 02357000 @NM00056 EQU ATCSTAT2 02358000 ATCTRSMS EQU ATCSTAT2 02359000 ATCTRLOK EQU ATCSTAT2 02360000 ATCTRPSS EQU ATCSTAT2 02361000 ATCTRESC EQU ATCSTAT2 02362000 ATCTRAPI EQU ATCSTAT2 02363000 ATCNMCTR EQU ISTATCVT+816 02364000 ATCSEC51 EQU ATCSECST 02365000 ATCSEC40 EQU ATCSIPD+8 02366000 ATCSEC30 EQU ATCSIPD+4 02367000 ATCSEC21 EQU ATCSIPD 02368000 ATCSEC10 EQU ATCSOPD+4 02369000 ATCSEC01 EQU ATCSOPD 02370000 ATCPOIA EQU ATCRNO+1 02371000 @NM00055 EQU ATCRNO 02372000 ATCPODVT EQU ISTATCVT+784 02373000 ATCS49XL EQU ISTATCVT+780 02374000 ATCS49XI EQU ISTATCVT+776 02375000 ATCLCLCT EQU ATCVLCNT+2 02376000 ATCRNCNT EQU ATCVLCNT 02377000 ATCCFEAD EQU ISTATCVT+768 02378000 ATCPTR00 EQU ISTATCVT+736 02379000 ATCRSV10 EQU ISTATCVT+704 02380000 ATCTACB EQU ISTATCVT+700 02381000 ATCVTINM EQU ISTATCVT+696 02382000 ATCTCLIM EQU ISTATCVT+692 02383000 ATCTCLOM EQU ISTATCVT+688 02384000 ATCVTIPB EQU ISTATCVT+656 02385000 ATCTCIPB EQU ISTATCVT+624 02386000 ATCTIPAB EQU ISTATCVT+592 02387000 ATCOCCCB EQU ISTATCVT+588 02388000 ATCOCCOB EQU ISTATCVT+584 02389000 ATCCDLAD EQU ISTATCVT+580 02390000 ATCCCLAD EQU ISTATCVT+576 02391000 ATCDLRPB EQU ISTATCVT+544 02392000 ATCPGPAB EQU ISTATCVT+512 02393000 ATCVPAB1 EQU ISTATCVT+480 02394000 ATCRSV97 EQU ISTATCVT+476 02395000 ATCRDTLK EQU ISTATCVT+472 02396000 ATCVOCLK EQU ISTATCVT+468 02397000 ATCCDFDN EQU ISTATCVT+464 02398000 ATCCDFIN EQU ISTATCVT+460 02399000 ATCDVTLK EQU ISTATCVT+456 02400000 ATCAP36 EQU ISTATCVT+452 02401000 ATCAP35 EQU ISTATCVT+448 02402000 ATCAP33 EQU ISTATCVT+444 02403000 ATCRSV99 EQU ISTATCVT+440 02404000 ATCONFIG EQU ISTATCVT+432 02405000 ATCNODDS EQU ISTATCVT+428 02406000 ATCNODEL EQU ISTATCVT+420 02407000 ATCRSV69 EQU ISTATCVT+416 02408000 ATCAPCR5 EQU ISTATCVT+412 02409000 ATCLDECB EQU ISTATCVT+408 02410000 ATCLDNCS EQU ISTATCVT+404 02411000 ATCCDPTR EQU ISTATCVT+400 02412000 ATCADEL EQU ISTATCVT+396 02413000 ATCTODVT EQU ISTATCVT+392 02414000 ATCDEBCH EQU ISTATCVT+388 02415000 ATCHBSIZ EQU ATCHPGM+2 02416000 ATCHBFNO EQU ATCHPGM 02417000 ATCCRME EQU ISTATCVT+380 02418000 ATCRVCHS EQU ISTATCVT+372 02419000 ATCECTLP EQU ISTATCVT+368 02420000 ATCZDVTB EQU ISTATCVT+364 02421000 ATCECPRT EQU ISTATCVT+360 02422000 ATCVTLOD EQU ISTATCVT+356 02423000 ATCTRPAB EQU ISTATCVT+352 02424000 ATCEPT EQU ISTATCVT+340 02425000 ATCDVT EQU ISTATCVT+336 02426000 ATCTRCPT EQU ISTATCVT+332 02427000 ATCDVLOD EQU ISTATCVT+328 02428000 ATCALERT EQU ISTATCVT+324 02429000 ATCEPA EQU ISTATCVT+320 02430000 ATCSAF EQU ISTATCVT+318 02431000 ATCXRANG EQU ISTATCVT+317 02432000 ATCLAST EQU ATCSHRFG 02433000 ATCSHRTN EQU ISTATCVT+308 02434000 ATCUEP EQU ISTATCVT+304 02435000 ATCOCRT EQU ISTATCVT+300 02436000 ATCCSMA EQU ATCCSMR 02437000 ATCESC02 EQU ISTATCVT+292 02438000 ATCESC01 EQU ISTATCVT+288 02439000 ATCCDFND EQU ISTATCVT+284 02440000 ATCCDDEL EQU ISTATCVT+280 02441000 ATCCDADD EQU ISTATCVT+276 02442000 ATCMNT EQU ISTATCVT+272 02443000 ATCRSV16 EQU ISTATCVT+270 02444000 ATCMAXID EQU ISTATCVT+269 02445000 ATCMSGSP EQU ATCCOM+268 02446000 ATCCIDM EQU ATCCOM+266 02447000 ATCACTRM EQU ATCCOM+264 02448000 ATCNERAP EQU ATCCOM+260 02449000 ATCNESAL EQU ATCCOM+256 02450000 ATCRCC65 EQU ATCCOM+252 02451000 ATCRCC26 EQU ATCCOM+248 02452000 ATCRCC63 EQU ATCCOM+244 02453000 ATCRSV11 EQU ATCCOM+242 02454000 ATCVTMID EQU ATCCOM+240 02455000 ATCAPOST EQU ATCCOM+236 02456000 ATCNERFN EQU ATCCOM+232 02457000 ATCNERNE EQU ATCCOM+228 02458000 ATCNERCV EQU ATCCOM+224 02459000 ATCNERST EQU ATCCOM+220 02460000 ATCDCC61 EQU ATCCOM+216 02461000 ATCDCC60 EQU ATCCOM+212 02462000 ATCSRTDF EQU ATCCOM+208 02463000 ATCSRTAD EQU ATCCOM+204 02464000 ATCFIRA EQU ATCCOM+200 02465000 ATCSMBQ EQU ATCCOM+196 02466000 ATCSMRC EQU ATCCOM+192 02467000 ATCSMRS EQU ATCCOM+188 02468000 ATCSMQU EQU ATCCOM+184 02469000 ATCSMRQ EQU ATCCOM+180 02470000 ATCACDA EQU ATCCOM+176 02471000 ATCSTMA EQU ATCCOM+172 02472000 ATCFRSTR EQU ATCCOM+168 02473000 ATCREADA EQU ATCCOM+160 02474000 ATCALOAD EQU ATCCOM+156 02475000 ATCBLDLA EQU ATCCOM+152 02476000 ATCFBRPH EQU ATCCOM+148 02477000 ATCBFTRC EQU ATCCOM+144 02478000 ATCTPBUF EQU ATCTHTRC 02479000 ATCREMOV EQU ATCCOM+136 02480000 ATCADD EQU ATCCOM+132 02481000 ATCBPDA EQU ATCCOM+128 02482000 ATCDVTPT EQU ATCCOM+124 02483000 ATCFEPT EQU ATCCOM+120 02484000 ATCFDVT EQU ATCCOM+116 02485000 ATCPTCHA EQU ATCCOM+108 02486000 ATCAUTHA EQU ATCCOM+104 02487000 ATCACCTA EQU ATCCOM+100 02488000 ATCRDTH EQU ATCCOM+96 02489000 ATCFRSCH EQU ATCCOM+92 02490000 ATCFSB EQU ATCCOM+88 02491000 ATCHLTMS EQU ATCCOM+84 02492000 ATCECPRM EQU ATCCOM+80 02493000 ATCECNET EQU ATCCOM+76 02494000 ATCECOPC EQU ATCCOM+72 02495000 ATCVPARM EQU ATCCOM+68 02496000 ATCECVRQ EQU ATCCOM+64 02497000 ATCECSES EQU ATCCOM+60 02498000 ATCOCHA EQU ATCCOM+56 02499000 ATCDSPLQ EQU ATCCOM+52 02500000 ATCECDSP EQU ATCCOM+48 02501000 ATCVARYQ EQU ATCCOM+44 02502000 ATCECVRY EQU ATCCOM+40 02503000 ATCHALTQ EQU ATCCOM+36 02504000 ATCECHLT EQU ATCCOM+32 02505000 ATCMODQ EQU ATCCOM+28 02506000 ATCASCHD EQU ATCCOM+20 02507000 ATCSRT EQU ATCCOM+16 02508000 ATCRDT EQU ATCCOM+12 02509000 ATCDCFRR EQU ATCCOM+8 02510000 ATCAPI EQU ATCCOM+4 02511000 ATCRSV04 EQU ATCSTAT4 02512000 ATCVTTRC EQU ATCSTAT4 02513000 ATCNCSD EQU ATCSTAT4 02514000 ATCMTST EQU ATCSTAT4 02515000 ATCTPRT EQU ATCSTAT4 02516000 ATCPRTAT EQU ATCSTAT4 02517000 @NM00054 EQU ATCPOFLG 02518000 ATCPOUNS EQU ATCPOFLG 02519000 ATCHSDMF EQU ATCSTFLG 02520000 @NM00053 EQU ATCSTAT1 02521000 ATCMDHLT EQU ATCSTAT1 02522000 ATCINHLT EQU ATCSTAT1 02523000 ATCNETSL EQU ATCSTAT1 02524000 ATCQKHLT EQU ATCSTAT1 02525000 ATCSNHLT EQU ATCSTAT1 02526000 ATCACTIV EQU ATCSTAT1 02527000 ATCSTART EQU ATCSTAT1 02528000 RPHNEXPO EQU ISTRPH+104 02529000 RPHSAV16 EQU RPHWORK+60 02530000 RPHSAV15 EQU RPHWORK+56 02531000 RPHSAV14 EQU RPHWORK+52 02532000 RPHSAV13 EQU RPHWORK+48 02533000 RPHSAV12 EQU RPHWORK+44 02534000 RPHSAV11 EQU RPHWORK+40 02535000 RPHSAV10 EQU RPHWORK+36 02536000 RPHSAVE9 EQU RPHWORK+32 02537000 RPHSAVE8 EQU RPHWORK+28 02538000 RPHSAVE7 EQU RPHWORK+24 02539000 RPHSAVE6 EQU RPHWORK+20 02540000 RPHSAVE5 EQU RPHWORK+16 02541000 RPHSAVE4 EQU RPHWORK+12 02542000 RPHSAVE3 EQU RPHWORK+8 02543000 RPHSAVE2 EQU RPHWORK+4 02544000 RPHSHALF EQU RPHSAVE1+2 02545000 RPHSBIT8 EQU RPHSBITS 02546000 RPHSBIT7 EQU RPHSBITS 02547000 RPHSBIT6 EQU RPHSBITS 02548000 RPHSBIT5 EQU RPHSBITS 02549000 RPHSBIT4 EQU RPHSBITS 02550000 RPHSBIT3 EQU RPHSBITS 02551000 RPHSBIT2 EQU RPHSBITS 02552000 RPHSBIT1 EQU RPHSBITS 02553000 RPHSBYTE EQU RPHSAVE1 02554000 RPHPABQP EQU RPHPABQA+1 02555000 RPHPABFG EQU RPHPABQA 02556000 RPHCRR EQU ISTRPH+32 02557000 RPHSRP34 EQU RPHSRPRM+2 02558000 RPHSRP12 EQU RPHSRPRM 02559000 RPHWEGT EQU RPHCSPA 02560000 RPHMAJCB EQU ISTRPH+21 02561000 RPHPABOF EQU ISTRPH+20 02562000 RPHRESUM EQU RPHRESMA+1 02563000 RPHRSV01 EQU RPHWPFLG 02564000 RPHPURGE EQU RPHWPFLG 02565000 RPHPT EQU RPHWPFLG 02566000 RPHWT EQU RPHWPFLG 02567000 RPHRSKEY EQU RPHWPFLG 02568000 RPHDVTA EQU ISTRPH+12 02569000 RPHTIK EQU RPHTSKID+3 02570000 @NM00052 EQU RPHTSKID 02571000 RPHRPHAP EQU RPHRPHA+1 02572000 @NM00051 EQU RPHRPHA 02573000 RPHGATE EQU RPHRPHA 02574000 @NM00050 EQU RPHFLGB 02575000 RPHRLCRA EQU RPHFLGB 02576000 RPHNRSAV EQU RPHFLGB 02577000 RPHPGCMP EQU RPHFLGB 02578000 RPHFBAPS EQU RPHFLGB 02579000 RPHBSSP EQU RPHFLGB 02580000 RPHLOCK EQU RPHFLGB 02581000 RPHFNFLG EQU RPHFSTLC 02582000 RPHMLTCP EQU RPHFLAGS 02583000 RPHSMCLR EQU RPHFLAGS 02584000 RPHSMTYP EQU RPHFLAGS 02585000 RPHSMQ EQU RPHFLAGS 02586000 RPHAUTEX EQU RPHAPTYP 02587000 RPHSPGIN EQU RPHFLAGS 02588000 RPHOGIND EQU RPHFLAGS 02589000 RPHLNGTH EQU RPHCNTL+1 02590000 RPHTYPE EQU RPHCNTL 02591000 ISTPDAVP EQU ISTAVT+40 02592000 ISTAVR01 EQU ISTAVT+38 02593000 ISTVTTP EQU ISTAVT+36 02594000 ISTAGTWT EQU ISTAVT+34 02595000 ISTATRT EQU ISTAVT+32 02596000 ISTARID EQU ISTAVT+30 02597000 ISTX1 EQU ISTAVT+29 02598000 ISTPHNM EQU ISTAVT+24 02599000 ISTAPSEX EQU ISTAVT+20 02600000 ISTVTTIK EQU ISTAVT+18 02601000 ISTAPSTA EQU ISTAVT+12 02602000 ISTAS53 EQU ISTAVT+8 02603000 ISTAHIP EQU ISTAS49 02604000 DYPRSV01 EQU ISTDYPAB+12 02605000 DYPTSKID EQU ISTDYPAB+8 02606000 DYPCHAIN EQU ISTDYPAB+4 02607000 DYPFLGS EQU ISTDYPAB+2 02608000 DYPLNGTH EQU ISTDYPAB+1 02609000 PATRSV01 EQU PATFLAGA 02610000 PATUSEFG EQU PATFLAGA 02611000 PATRDCNT EQU ISTPAT+6 02612000 PATGRPID EQU ISTPAT+5 02613000 PATPTHID EQU ISTPAT+4 02614000 PATDINDX EQU ISTPAT+2 02615000 PATGINDX EQU ISTPAT 02616000 GNTGRPNM EQU ISTGNT 02617000 DNTTELNO EQU ISTDNT+1 02618000 DNTCTDIG EQU ISTDNT 02619000 RLSRSV02 EQU ISTRLS+140 02620000 RLSRSV01 EQU ISTRLS+138 02621000 RLSCTELU EQU ISTRLS+136 02622000 RLSPRE EQU ISTRLS 02623000 RDARSVPT EQU ISTRDA+84 02624000 RDAPUBI EQU ISTRDA+83 02625000 RDADFCUA EQU ISTRDA+80 02626000 RDACTPCC EQU ISTRDA+79 02627000 RDADACUA EQU ISTRDA+76 02628000 RDALUBA EQU RDAUCBAD+1 02629000 RDACHQI EQU RDAUCBAD 02630000 RDARSV01 EQU RDAFLAG 02631000 RDARBISA EQU RDAFLAG 02632000 RDAPRE EQU ISTRDA 02633000 RSWRSV01 EQU ISTRSW+152 02634000 RSWRSV02 EQU ISTRSW+150 02635000 RSWCTELU EQU ISTRSW+148 02636000 RSWGRUPZ EQU ISTRSW+146 02637000 RSWDIALZ EQU ISTRSW+144 02638000 RSWGRUPT EQU ISTRSW+140 02639000 RSWDIALT EQU ISTRSW+136 02640000 RSWPRE EQU ISTRSW 02641000 RLXRSV03 EQU ISTRLX+80 02642000 RLXRSV02 EQU ISTRLX+77 02643000 RLXRSV01 EQU RLXFLAGA 02644000 RLXINUSE EQU RLXFLAGA 02645000 RLXNLUX EQU ISTRLX+72 02646000 RLXPRE EQU ISTRLX 02647000 RPXRSV01 EQU ISTRPX+80 02648000 RPXRSV02 EQU ISTRPX+77 02649000 RPXMAXLU EQU ISTRPX+76 02650000 RPXFLUX EQU ISTRPX+72 02651000 RPXPRE EQU ISTRPX 02652000 RLURSV02 EQU ISTRLU+172 02653000 RLULGMOD EQU ISTRLU+164 02654000 RLUMODEP EQU RLUMODET+8 02655000 RLUMODEN EQU RLUMODET 02656000 RLUUSSPT EQU RLUUSSTB+8 02657000 RLUUSSNM EQU RLUUSSTB 02658000 RLURSV01 EQU ISTRLU+137 02659000 RLULOCAD EQU ISTRLU+136 02660000 RLUNCPPM EQU RLUNCPPC+1 02661000 RLUNCPPN EQU RLUNCPPC 02662000 RLUPACEM EQU RLUPACE+1 02663000 RLUPACEN EQU RLUPACE 02664000 RLUINTA EQU ISTRLU+128 02665000 RLUSSCFM EQU ISTRLU+127 02666000 RLUCRRSV EQU RLUCRFLG 02667000 RLUACTLU EQU RLUCRFLG 02668000 RLURSV00 EQU RLUFLAG 02669000 RLUNDSES EQU RLUFLAG 02670000 RLUGSTAT EQU RLUFLAG 02671000 RLUBATCH EQU RLUFLAG 02672000 RLURBISA EQU RLUFLAG 02673000 RLUTYPE EQU ISTRLU+124 02674000 RLUCRPR EQU ISTRLU 02675000 RCCRVPT2 EQU ISTRCC+144 02676000 RCCXTOSW EQU ISTRCC+140 02677000 RCCSWTOX EQU ISTRCC+136 02678000 RCCRSPT2 EQU ISTRCC+133 02679000 RCCADDR EQU ISTRCC+132 02680000 RCCPASSL EQU ISTRCC+131 02681000 RCCMXOUT EQU ISTRCC+130 02682000 RCCMXDAT EQU ISTRCC+128 02683000 RCCINDEX EQU ISTRCC+126 02684000 RCCPATHZ EQU ISTRCC+124 02685000 RCCPATHT EQU ISTRCC+120 02686000 RCCDPQ EQU ISTRCC+116 02687000 RCCTPAB EQU ISTRCC+112 02688000 RCCRSV02 EQU ISTRCC+109 02689000 RCCCRRSV EQU RCCCRFLG 02690000 RCCCTCFL EQU RCCCRFLG 02691000 RCCACTPU EQU RCCCRFLG 02692000 RCCNCSPL EQU ISTRCC+104 02693000 RCCRPHCN EQU ISTRCC+100 02694000 RCCEPAB EQU ISTRCC+96 02695000 RCCDPAB EQU ISTRCC+92 02696000 RCCVPAB EQU ISTRCC+88 02697000 @NM00049 EQU ISTRCC+87 02698000 RCCSESCT EQU ISTRCC+86 02699000 RCCIDNUM EQU RCCID48+3 02700000 RCCIDBLK EQU RCCID48+2 02701000 RCCIDPA2 EQU RCCID48+1 02702000 RCCIDPUT EQU RCCID48 02703000 RCCIDPA1 EQU RCCSTAID 02704000 RCCCTELU EQU ISTRCC+76 02705000 RCCCNCNT EQU ISTRCC+75 02706000 RCCRTGOH EQU RCCFLAGB 02707000 RCCBRKCN EQU RCCFLAGB 02708000 RCCRESET EQU RCCFLAGB 02709000 RCCFINAL EQU RCCFLAGB 02710000 RCCBNNSP EQU RCCFLAGB 02711000 RCCIRETR EQU RCCFLAGB 02712000 RCCDIALP EQU RCCFLAGB 02713000 RCCDSTCT EQU RCCFLAGB 02714000 RCCCTPGD EQU RCCFLAG 02715000 RCCPRGDN EQU RCCFLAG 02716000 RCCOUERP EQU RCCFLAG 02717000 RCCOHIMM EQU RCCFLAG 02718000 RCCLDISC EQU RCCFLAG 02719000 RCCERPIP EQU RCCFLAG 02720000 RCCCUDIE EQU RCCFLAG 02721000 RCCRBISA EQU RCCFLAG 02722000 RCCTYPE EQU ISTRCC+72 02723000 RCCPRE EQU ISTRCC 02724000 DOTADTRM EQU ISTDOT 02725000 RDSADDOT EQU ISTRDS+76 02726000 RDSCTATR EQU ISTRDS+74 02727000 RDSCTTRM EQU ISTRDS+72 02728000 RDSPRE EQU ISTRDS 02729000 RINRSV05 EQU ISTRIN+156 02730000 RINRSV04 EQU ISTRIN+152 02731000 RINLOCRN EQU ISTRIN+148 02732000 RINRSV02 EQU ISTRIN+145 02733000 RTRCNCNT EQU RINCNCNT 02734000 RTRNCSPL EQU RINNCSPL 02735000 RTRRPHCN EQU RINRPHCN 02736000 RTRVPAB EQU RINVPAB 02737000 RTRREMOT EQU RINREMOT 02738000 RTRRLDAF EQU RINRLDAF 02739000 RTRNODID EQU RINNODID 02740000 RINRSV01 EQU RINDFD 02741000 RTRLDISC EQU RINLDISC 02742000 RTRNODEF EQU RINNODEF 02743000 RTRREMPO EQU RINREMPO 02744000 RINCRPRE EQU ISTRIN 02745000 RTRRSV04 EQU ISTRTR+210 02746000 RTRLCTI EQU ISTRTR+209 02747000 RTRIDCAS EQU RTRBSCID+1 02748000 RTRIDLEN EQU RTRBSCID 02749000 RTRRSVDD EQU ISTRTR+181 02750000 RTRRDFG EQU ISTRTR+180 02751000 RTRDIAA EQU ISTRTR+176 02752000 RTRPOLA EQU ISTRTR+172 02753000 RTRCADDR EQU ISTRTR+164 02754000 RTRCTADR EQU ISTRTR+162 02755000 RTRCTPOL EQU ISTRTR+160 02756000 RTRCTDIA EQU ISTRTR+158 02757000 RTRRSV03 EQU ISTRTR+156 02758000 RTRRVPT1 EQU ISTRTR+152 02759000 RTRBHSN1 EQU ISTRTR+144 02760000 RTRCRSV2 EQU RTRCRFLG 02761000 RTRDTRLM EQU RTRLSCMD 02762000 RTRCRSV1 EQU RTRCRFLG 02763000 RTRTRMAX EQU ISTRTR+142 02764000 RTRRSV24 EQU RTRRDFF 02765000 RTRRFDEK EQU RTRRDFF 02766000 RTRRFANK EQU RTRRDFF 02767000 RTRRFPFK EQU RTRRDFF 02768000 RTRRFPEN EQU RTRRDFF 02769000 RTRRFXCT EQU RTRRDFF 02770000 RTRRESCT EQU RTRRDFE 02771000 RTRRESUP EQU RTRRDFE 02772000 RTRREATT EQU RTRRDFE 02773000 RTRRECHK EQU RTRRDFE 02774000 RTRREACR EQU RTRRDFE 02775000 RTRRSV0A EQU RTRRDFE 02776000 RTRREBRK EQU RTRRDFE 02777000 RTRRSV11 EQU RTRRDFD 02778000 RTRRSV10 EQU RTRRDFD 02779000 RTRRDBHI EQU RTRRDFD 02780000 RTRRDBHD EQU RTRRDFD 02781000 RTRRDBHN EQU RTRRDFD 02782000 RTRRSV23 EQU RTRRDFC 02783000 RTRRCXMS EQU RTRRDFC 02784000 RTRRCMSG EQU RTRRDFC 02785000 RTRRCBLK EQU RTRRDFC 02786000 RTRRCPT3 EQU RTRRDFC 02787000 RTRRCIT2 EQU RTRRDFC 02788000 RTRRCIT1 EQU RTRRDFC 02789000 RTRRSV32 EQU RTRRDFB 02790000 RTRRBEND EQU RTRRDFB 02791000 RTRRBECT EQU RTRRDFB 02792000 RTRRSV02 EQU RTRRDFA 02793000 RTRRACTR EQU RTRRDFA 02794000 RTRRSV60 EQU RTRRDFA 02795000 RTRRACDT EQU RTRRDFA 02796000 RTRRAPT3 EQU RTRRAALL 02797000 RTRRAPT2 EQU RTRRAALL 02798000 RTRRAPT1 EQU RTRRAALL 02799000 RTRRAATN EQU RTRRDFA 02800000 RTRRSV45 EQU ISTRTR+132 02801000 RTRRSV01 EQU ISTRTR+130 02802000 RTRCTECM EQU ISTRTR+128 02803000 RTRADRPT EQU RTRADR+1 02804000 RTRRSV22 EQU RTRFLAG 02805000 RTRVTERM EQU RTRFLAG 02806000 RTRRSV51 EQU RTRFLAG 02807000 RTRRBISA EQU RTRFLAG 02808000 RTRRSV21 EQU RTRFLAG 02809000 RTRCRPR EQU ISTRTR 02810000 RCLRVPT2 EQU ISTRCL+92 02811000 RCLRVPT1 EQU ISTRCL+88 02812000 RCLGPOLA EQU ISTRCL+84 02813000 RCLCTNGP EQU ISTRCL+82 02814000 RCLRSV01 EQU ISTRCL+80 02815000 RCLCTECM EQU ISTRCL+78 02816000 RCLCTETR EQU ISTRCL+76 02817000 RCLGPADR EQU RCLADR+1 02818000 RCLRSV33 EQU RCLFLAG 02819000 RCLBATCH EQU RCLFLAG 02820000 RCLRBISA EQU RCLFLAG 02821000 RCLRSV22 EQU RCLFLAG 02822000 RCLPRE EQU ISTRCL 02823000 RPTRSV03 EQU ISTRPT+156 02824000 RPTRSV02 EQU ISTRPT+152 02825000 RPTNSNSV EQU ISTRPT+148 02826000 RPTPTHCT EQU ISTRPT+146 02827000 RPTPEPCT EQU ISTRPT+144 02828000 RPTDAFSV EQU ISTRPT+142 02829000 RPTRSV01 EQU ISTRPT+141 02830000 RPTISTAT EQU RPTFLAG1 02831000 RPTDYNAM EQU RPTFLAG1 02832000 RPTVYIMM EQU RPTFLAG1 02833000 RPTVIODN EQU RPTFLAG1 02834000 RPTONLIN EQU RPTFLAG1 02835000 RPTHLVPD EQU RPTFLAG1 02836000 RPTVRYPD EQU RPTFLAG1 02837000 RPTASLEP EQU RPTFLAG1 02838000 RPTUTERM EQU ISTRPT+136 02839000 RPTATERM EQU ISTRPT+132 02840000 RPTDIVT EQU RPTDITT 02841000 RPTCTNM EQU ISTRPT+120 02842000 RPTLNDAF EQU RPTLNCID+2 02843000 RPTLNSAF EQU RPTLNCID 02844000 RPTLN EQU ISTRPT 02845000 RLNRVPT2 EQU ISTRLN+112 02846000 RLNNCSPL EQU ISTRLN+108 02847000 RLNX2SW EQU ISTRLN+104 02848000 @NM00048 EQU ISTRLN+103 02849000 RLNCRRSV EQU RLNCRFLG 02850000 RLNSWEP EQU RLNCRFLG 02851000 RLNSVSKP EQU RLNLSCMD 02852000 RLNSESLM EQU RLNLSCMD 02853000 RLNNPRLM EQU RLNLSCMD 02854000 RLNSWNCP EQU RLNCRFLG 02855000 RLNACTLN EQU RLNCRFLG 02856000 RLNPAUSE EQU ISTRLN+101 02857000 RLNPOLMT EQU ISTRLN+100 02858000 RLNACTSN EQU ISTRLN+98 02859000 RLNRESV1 EQU ISTRLN+97 02860000 RLNACTRM EQU ISTRLN+96 02861000 RLNCTSES EQU ISTRLN+95 02862000 RLNRDSLM EQU ISTRLN+94 02863000 RLNAUTOA EQU ISTRLN+92 02864000 RLNRDFD EQU RLNRDF+3 02865000 RLNRDFC EQU RLNRDF+2 02866000 RLNMULTP EQU RLNRDFB 02867000 RLNRATRN EQU RLNRDFB 02868000 RLNRAPOL EQU RLNRDFB 02869000 RLNTTV EQU RLNRDFB 02870000 RLNRSV0B EQU RLNRDFB 02871000 RLNAUTOD EQU RLNRDFB 02872000 RLNANSWR EQU RLNRDFB 02873000 RLNRBUSE EQU RLNRDFB 02874000 RLNRAPEP EQU RLNRDFA 02875000 RLNRANCP EQU RLNRDFA 02876000 RLNRAEP EQU RLNRDFA 02877000 RLNIDV EQU RLNRDFA 02878000 RLNPORT EQU RLNRDFA 02879000 RLNGANSW EQU RLNRDFA 02880000 RLNRACAN EQU RLNRACNT 02881000 RLNRACAT EQU RLNRACNT 02882000 RLNRSV04 EQU RLNSTAT2 02883000 RLNINUSE EQU RLNSTAT2 02884000 RLNOHIN EQU RLNSTAT2 02885000 RLNRSV03 EQU RLNSTAT1 02886000 RLNVD EQU RLNSTAT1 02887000 RLNINOPP EQU RLNSTAT1 02888000 RLNINOPL EQU RLNSTAT1 02889000 RLNLRST EQU RLNSTAT1 02890000 RLNTRAP EQU RLNSTAT1 02891000 RLNACTCT EQU ISTRLN+84 02892000 RLNCTECM EQU ISTRLN+82 02893000 RLNCTEIN EQU ISTRLN+80 02894000 RLNCTETR EQU ISTRLN+78 02895000 RLNCTECL EQU ISTRLN+76 02896000 RLNCUA EQU RLNUCBAD 02897000 RLNRSV01 EQU RLNFLAG 02898000 RLNRBISA EQU RLNFLAG 02899000 RLNEAM EQU RLNFLAG 02900000 RLNPRE EQU ISTRLN 02901000 RGPRVPT2 EQU ISTRGP+88 02902000 RGPRVPT1 EQU ISTRGP+84 02903000 RGPCTECM EQU ISTRGP+82 02904000 RGPCTEIN EQU ISTRGP+80 02905000 RGPCTETR EQU ISTRGP+78 02906000 RGPCTECL EQU ISTRGP+76 02907000 RGPCTELN EQU ISTRGP+74 02908000 RGPRSV03 EQU ISTRGP+73 02909000 RGPRSV02 EQU RGPFLG 02910000 RGPASDLC EQU RGPFLG 02911000 RGPABSC EQU RGPFLG 02912000 RGPASS EQU RGPFLG 02913000 RGPADIL EQU RGPFLG 02914000 RGPPRE EQU ISTRGP 02915000 RRNRINNM EQU ISTRRN+248 02916000 @NM00047 EQU ISTRRN+247 02917000 RRNRDCUA EQU ISTRRN+244 02918000 RRNLASTE EQU ISTRRN+240 02919000 RRNNCSPL EQU ISTRRN+236 02920000 RRNRPLPT EQU ISTRRN+232 02921000 RRNMSIZE EQU ISTRRN+228 02922000 RRNNCPNM EQU ISTRRN+221 02923000 RRNCTPCC EQU ISTRRN+220 02924000 RRNHBUFS EQU ISTRRN+218 02925000 RRNHLENT EQU RRNHPRE+1 02926000 RRNHLENH EQU RRNHPRE 02927000 RRNNMNCP EQU ISTRRN+208 02928000 RRNDELAY EQU ISTRRN+206 02929000 RRNRSV04 EQU ISTRRN+200 02930000 RRNRSV88 EQU RRNNMDPD+7 02931000 RRNPUBI EQU RRNNMDPD+6 02932000 RRNDPLUB EQU RRNNMDPD 02933000 RRNEPADR EQU ISTRRN+190 02934000 RRNCPLUB EQU ISTRRN+184 02935000 RRNFLUX EQU ISTRRN+180 02936000 RRNRSV05 EQU RRNCMFD 02937000 RRNREMPO EQU RRNCMFD 02938000 RRNCDREC EQU RRNCMFD 02939000 RRNCDDSI EQU RRNCMFD 02940000 RRNCDBCK EQU RRNCMFD 02941000 RRNCDDTL EQU RRNCMFD 02942000 RRNCDSTD EQU RRNCMFD 02943000 RRNCDCSP EQU RRNCMFD 02944000 RRNCCCSL EQU RRNCMFC 02945000 RRNCCSIM EQU RRNCMFC 02946000 RRNCCRCM EQU RRNCMFC 02947000 RRNCCRIM EQU RRNCMFC 02948000 RRNCCCRC EQU RRNCMFC 02949000 RRNCCRST EQU RRNCMFC 02950000 RRNCCRDQ EQU RRNCMFC 02951000 RRNCCRCN EQU RRNCMFC 02952000 RRNCBALT EQU RRNCMFB 02953000 RRNCBMOD EQU RRNCMFB 02954000 RRNCBNPL EQU RRNCMFB 02955000 RRNCBRLS EQU RRNCMFB 02956000 RRNCBRDS EQU RRNCMFB 02957000 RRNCBDLR EQU RRNCMFB 02958000 RRNCBDLH EQU RRNCMFB 02959000 RRNCBDLO EQU RRNCMFB 02960000 RRNCADGO EQU RRNCMFA 02961000 RRNCADTD EQU RRNCMFA 02962000 RRNCACDT EQU RRNCMFA 02963000 RRNCAMBH EQU RRNCMFA 02964000 RRNCAATI EQU RRNCMFA 02965000 RRNCAATG EQU RRNCMFA 02966000 RRNCAATD EQU RRNCMFA 02967000 RRNCAALL EQU RRNCMFA 02968000 RRNRSV55 EQU RRNRDF+3 02969000 RRNPTASL EQU RRNRDFB+1 02970000 RRNRSV01 EQU RRNRDFB+1 02971000 RRNVYDON EQU RRNRDFB+1 02972000 RRNRBBUP EQU RRNRDFB+1 02973000 RRNRSV03 EQU RRNRDFB 02974000 RRNRBCT2 EQU RRNRDFB 02975000 RRNRBCT1 EQU RRNRDFB 02976000 RRNRBSEC EQU RRNRDFB 02977000 RRNRBCCT EQU RRNRDFB 02978000 RRNRBCCL EQU RRNRDFB 02979000 RRNRSV02 EQU RRNRDFB 02980000 RRNRBMDL EQU RRNRDFB 02981000 RRNRAPEP EQU RRNRDFA 02982000 RRNRANCP EQU RRNRDFA 02983000 RRNRBREM EQU RRNRDFA 02984000 RRNRAOLT EQU RRNRDFA 02985000 RRNRASYN EQU RRNRDFA 02986000 RRNRADMP EQU RRNRDFA 02987000 RRNRAIPL EQU RRNRDFA 02988000 RRNRASHT EQU RRNRDFA 02989000 RRNCTENT EQU ISTRRN+170 02990000 RRNCTECM EQU ISTRRN+168 02991000 RRNCTEIN EQU ISTRRN+166 02992000 RRNCTETR EQU ISTRRN+164 02993000 RRNCTECL EQU ISTRRN+162 02994000 RRNCTELI EQU ISTRRN+160 02995000 RRNCTEGP EQU ISTRRN+158 02996000 RRNCTBHS EQU ISTRRN+156 02997000 RRNBHSET EQU ISTRRN+152 02998000 RRNTRENT EQU ISTRRN+148 02999000 RRNRLDIP EQU ISTRRN+147 03000000 RRNRNCUA EQU ISTRRN+144 03001000 RRNGRPA EQU ISTRRN+140 03002000 RRNLUBA EQU RRNUCBAD+1 03003000 RRNCHQI EQU RRNUCBAD 03004000 RRNRSV11 EQU RRNFLAG 03005000 RRNDSTCT EQU RRNFLAG 03006000 RRNERPIP EQU RRNFLAG 03007000 RRNLCDIP EQU RRNFLAG 03008000 RRNLCDIE EQU RRNFLAG 03009000 RRNLCSIP EQU RRNFLAG 03010000 RRNRBISA EQU RRNFLAG 03011000 RRNRSV89 EQU RRNFLAG 03012000 RRNPRE EQU ISTRRN 03013000 RLCRVPT2 EQU ISTRLC+80 03014000 RLCRVPT1 EQU ISTRLC+79 03015000 RLCLCCUA EQU ISTRLC+76 03016000 RLCUCBAD EQU RLCADR+1 03017000 RLCRSVDE EQU RLCFLAG 03018000 RLCACNT EQU RLCFLAG 03019000 RLCRSV14 EQU RLCFLAG 03020000 RLCRBISA EQU RLCFLAG 03021000 RLCRSV22 EQU RLCFLAG 03022000 RLCPRE EQU ISTRLC 03023000 RAPRVPT2 EQU ISTRAP+116 03024000 RAPRVPT1 EQU ISTRAP+112 03025000 RAPBFACT EQU ISTRAP+111 03026000 RAPRSV17 EQU RAPFLGC 03027000 RAPRSV16 EQU RAPFLGC 03028000 RAPRSV15 EQU RAPFLGC 03029000 RAPRSV14 EQU RAPFLGC 03030000 RAPRSV13 EQU RAPFLGC 03031000 RAPRSV12 EQU RAPFLGC 03032000 RAPRSV11 EQU RAPFLGC 03033000 RAPRSV10 EQU RAPFLGC 03034000 RAPANVPC EQU RAPFLGB 03035000 RAPASPO EQU RAPFLGB 03036000 RAPAPPO EQU RAPFLGB 03037000 RAPAACQ EQU RAPFLGB 03038000 RAPAPRMT EQU RAPFLGB 03039000 RAPAPASS EQU RAPFLGB 03040000 RAPABLCK EQU RAPFLGB 03041000 RAPALLF EQU RAPFLGB 03042000 RAPRSV06 EQU RAPFLG 03043000 RAPRSV05 EQU RAPFLG 03044000 RAPRSV04 EQU RAPFLG 03045000 RAPRSV03 EQU RAPFLG 03046000 RAPATLGN EQU RAPFLG 03047000 RAPASLGI EQU RAPFLG 03048000 RAPAQUI EQU RAPFLG 03049000 RAPABLGN EQU RAPFLG 03050000 RAPACEQD EQU ISTRAP+106 03051000 RAPTRPRE EQU ISTRAP+104 03052000 RAPACEAP EQU ISTRAP+100 03053000 RAPICEAQ EQU ISTRAP+96 03054000 RAPICEAC EQU ISTRAP+92 03055000 RAPICELG EQU ISTRAP+88 03056000 RAPAPPWD EQU ISTRAP+80 03057000 RAPACDEB EQU ISTRAP+76 03058000 RAPACBA EQU ISTRAP+72 03059000 RAPPRE EQU ISTRAP 03060000 RDTVSRPL EQU ISTRDT+132 03061000 RDTCRSPW EQU ISTRDT+124 03062000 RDTCRSDS EQU ISTRDT+116 03063000 @NM00046 EQU ISTRDT+113 03064000 RRNSTCNT EQU RDTSTCNT 03065000 RRNVYRPH EQU RDTVYRPH 03066000 RDTTPAB EQU ISTRDT+104 03067000 RDTDPAB EQU ISTRDT+100 03068000 RDTEPAB EQU ISTRDT+96 03069000 RDTVPAB EQU ISTRDT+92 03070000 RDTRSV01 EQU RDTFLAGB 03071000 RDTBHSET EQU RDTFLAGB 03072000 RDTCTCFL EQU RDTFLAGB 03073000 RDTCTPGD EQU RDTFLAGB 03074000 RDTPRGDN EQU RDTFLAGB 03075000 RDTOUERP EQU RDTFLAGB 03076000 RDTLGCT EQU ISTRDT+90 03077000 RDTNODID EQU ISTRDT+89 03078000 RDTMAXID EQU ISTRDT+88 03079000 RDTCTSNT EQU ISTRDT+86 03080000 RDTFLAGS EQU ISTRDT+84 03081000 RDTBACK EQU ISTRDT+80 03082000 RDTFORW EQU ISTRDT+76 03083000 RDTLEN EQU RDTPLEN+1 03084000 RDTPRILS EQU RDTPRIOR 03085000 RDTPRISW EQU RDTPRIOR 03086000 RDTPRIRN EQU RDTPRIOR 03087000 RDTPRILC EQU RDTPRIOR 03088000 RDTPRIAP EQU RDTPRIOR 03089000 @NM00045 EQU RDTPRIOR 03090000 RDTPRE EQU ISTRDT 03091000 RCPRSV05 EQU ISTRCPRE+120 03092000 RCPRSV04 EQU ISTRCPRE+116 03093000 RCPRSV03 EQU ISTRCPRE+112 03094000 RCPINTA EQU RCPLGNIN+16 03095000 RCPLGNCT EQU RCPLGNIN+8 03096000 RCPLGNAP EQU RCPLGNIN 03097000 @NM00044 EQU RCPPMODE 03098000 RCPRRECD EQU RCPPMODE 03099000 RCPRBASC EQU RCPPMODE 03100000 RCPBFLIM EQU ISTRCPRE+90 03101000 RCPBHSI2 EQU ISTRCPRE+89 03102000 RCPBHSI1 EQU ISTRCPRE+88 03103000 RCPACETR EQU ISTRCPRE+84 03104000 RCPICEAQ EQU ISTRCPRE+80 03105000 RCPLNAPA EQU ISTRCPRE+76 03106000 RCPICELN EQU ISTRCPRE+72 03107000 RCPPRE EQU ISTRCPRE 03108000 RPRCONID EQU ISTRPRE+63 03109000 RPRCLVPD EQU RPRFLAGC 03110000 RPRINIMM EQU RPRFLAGD 03111000 RPRRSV05 EQU RPRFLAGD 03112000 RPRCONP EQU RPRFLAGD 03113000 RPRACTP EQU RPRFLAGD 03114000 RPRRSON EQU RPRFLAGD 03115000 RPRCONCT EQU RPRFLAGD 03116000 RPRLTASN EQU RPRFLAGD 03117000 RPRPTHCT EQU ISTRPRE+60 03118000 RPRSWDAF EQU ISTRPRE+58 03119000 RPRSTPCT EQU ISTRPRE+56 03120000 RPRRVPT1 EQU ISTRPRE+52 03121000 RPRDEVCH EQU ISTRPRE+44 03122000 RPRNCBA EQU ISTRPRE+40 03123000 RPRNSNEA EQU ISTRPRE+36 03124000 RPRLGONB EQU ISTRPRE+32 03125000 RPRLGONF EQU ISTRPRE+28 03126000 RPRHDTYP EQU ISTRPRE+27 03127000 RPRTIOCT EQU ISTRPRE+26 03128000 RPRPEPCT EQU ISTRPRE+24 03129000 RPRRSV03 EQU RPRCAUSE 03130000 RPRRSYNC EQU RPRCAUSE 03131000 RPRCRCPT EQU RPRCAUSE 03132000 RPRNOSRT EQU RPRCAUSE 03133000 RPRINTST EQU RPRFLAGB 03134000 RPRVYIMM EQU RPRFLAGB 03135000 RPRHLVPD EQU RPRFLAGB 03136000 RPRONLIN EQU RPRFLAGB 03137000 RPRVIODN EQU RPRFLAGB 03138000 RPRAOPN EQU RPRFLAGB 03139000 RPRENTVT EQU RPRFLAGB 03140000 RPRENTVH EQU RPRFLAGB 03141000 RPRLIVE EQU RPRFLAGA 03142000 RPRVRYPD EQU RPRFLAGA 03143000 RPRENTED EQU RPRFLAGA 03144000 RPRENTIO EQU RPRFLAGA 03145000 RPRENTBF EQU RPRFLAGA 03146000 RPRTIED EQU RPRFLAGA 03147000 RPRINV EQU RPRFLAGA 03148000 RPRACT EQU RPRFLAGA 03149000 RPRENTRY EQU ISTRPRE+20 03150000 RPRPELEN EQU ISTRPRE+18 03151000 RPRELEN EQU ISTRPRE+16 03152000 RPRRLOCK EQU ISTRPRE+12 03153000 RPRDAF EQU RPRCOMID+2 03154000 RPRSAF EQU RPRCOMID 03155000 RPRNAME EQU ISTRPRE 03156000 LOKXCL EQU @NM00042 03157000 LOKPRY EQU @NM00042 03158000 @NM00043 EQU @NM00042 03159000 @NM00041 EQU LOKCHNG 03160000 LOKCT EQU ISTLOK 03161000 DEVRSV03 EQU ISTDEVCH+5 03162000 DEVPHYSA EQU ISTDEVCH+4 03163000 DEVCSLPN EQU DEVCHAR3 03164000 DEVCSTCL EQU DEVCHAR3 03165000 DEVCCHEK EQU DEVCHAR3 03166000 DEVCATTN EQU DEVCHAR3 03167000 DEVCSWL EQU DEVFCCTL 03168000 DEVCRVB EQU DEVFCCTL 03169000 DEVCSSL EQU DEVFCCTL 03170000 DEVCBSC EQU DEVFCCTL 03171000 DEVMCODE EQU ISTDEVCH+2 03172000 DEVCHAR2 EQU DEVTCODE 03173000 DEVRSV01 EQU DEVCHAR 03174000 DEVCCTL EQU DEVCHAR 03175000 DEVNNSPT EQU DEVCHAR 03176000 DEVSPS EQU DEVCHAR 03177000 DEVSUBND EQU DEVCHAR 03178000 DEVCONVR EQU DEVCHAR 03179000 DEVOTPUT EQU DEVCHAR 03180000 DEVINPUT EQU DEVCHAR 03181000 PABRPHA EQU PABRPHFG+1 03182000 PABNODQ EQU PABFLAGS 03183000 PABINHBT EQU PABFLAGS 03184000 PABERLOK EQU PABERRLK 03185000 PABNORPR EQU PABFLAGS 03186000 PABPRIOR EQU PABFLAGS 03187000 PABAPYP EQU PABFLAGS 03188000 PABCHNGP EQU PABCHAIN+1 03189000 PABRSV02 EQU PABCHAIN 03190000 PABDELAY EQU PABCHAIN 03191000 PABRUNNG EQU PABCHAIN 03192000 PABRESET EQU PABCHAIN 03193000 PABUNCON EQU PABCHAIN 03194000 PABCDP EQU PABCHAIN 03195000 PABRESCH EQU PABCHAIN 03196000 PABCHNG EQU PABCHAIN 03197000 PABWEQP EQU PABWEQA+1 03198000 PABRSV01 EQU PABWEQA 03199000 PABWEQG EQU PABWEQA 03200000 ASCBEND EQU ASCB+208 03201000 ASCBSRBT EQU ASCB+200 03202000 ASCBSWTL EQU ASCB+196 03203000 ASCBRS14 EQU ASCB+195 03204000 ASCBSMCT EQU ASCB+194 03205000 ASCBRS12 EQU ASCB+192 03206000 ASCBPCTT EQU ASCB+188 03207000 ASCBVGTT EQU ASCB+184 03208000 ASCBRV43 EQU ASCBSRQ4 03209000 ASCBRV42 EQU ASCBSRQ4 03210000 ASCBRV41 EQU ASCBSRQ4 03211000 ASCBRV40 EQU ASCBSRQ4 03212000 ASCBRV39 EQU ASCBSRQ4 03213000 ASCBRV38 EQU ASCBSRQ4 03214000 ASCBRV37 EQU ASCBSRQ4 03215000 ASCBRV36 EQU ASCBSRQ4 03216000 ASCBRV35 EQU ASCBSRQ3 03217000 ASCBRV34 EQU ASCBSRQ3 03218000 ASCBRV33 EQU ASCBSRQ3 03219000 ASCBRV32 EQU ASCBSRQ3 03220000 ASCBRV31 EQU ASCBSRQ3 03221000 ASCBRV30 EQU ASCBSRQ3 03222000 ASCBRV29 EQU ASCBSRQ3 03223000 ASCBRV28 EQU ASCBSRQ3 03224000 ASCBRV27 EQU ASCBSRQ2 03225000 ASCBRV26 EQU ASCBSRQ2 03226000 ASCBRV25 EQU ASCBSRQ2 03227000 ASCBRV24 EQU ASCBSRQ2 03228000 ASCBRV23 EQU ASCBSRQ2 03229000 ASCBRV22 EQU ASCBSRQ2 03230000 ASCBRV21 EQU ASCBSRQ2 03231000 ASCBRV20 EQU ASCBSRQ2 03232000 ASCBRV19 EQU ASCBSRQ1 03233000 ASCBRV18 EQU ASCBSRQ1 03234000 ASCBRV17 EQU ASCBSRQ1 03235000 ASCBRV16 EQU ASCBSRQ1 03236000 ASCBRV15 EQU ASCBSRQ1 03237000 ASCBRV14 EQU ASCBSRQ1 03238000 ASCBRV13 EQU ASCBSRQ1 03239000 ASCBSTA EQU ASCBSRQ1 03240000 ASCBJBNS EQU ASCB+176 03241000 ASCBJBNI EQU ASCB+172 03242000 ASCBMCC EQU ASCB+168 03243000 ASCBRTWA EQU ASCB+164 03244000 ASCBIQEA EQU ASCB+160 03245000 ASCBXMPQ EQU ASCB+156 03246000 ASCBRS01 EQU ASCB+154 03247000 ASCBFMCT EQU ASCB+152 03248000 ASCBOUXB EQU ASCB+148 03249000 ASCBOUCB EQU ASCB+144 03250000 ASCBMECB EQU ASCB+140 03251000 ASCBQECB EQU ASCB+136 03252000 ASCBLSQH EQU ASCBLKGP+4 03253000 ASCBLOCK EQU ASCBLKGP 03254000 ASCBTCBS EQU ASCB+124 03255000 ASCBNVSC EQU ASCB+122 03256000 ASCBVSC EQU ASCB+120 03257000 ASCBSRBS EQU ASCB+118 03258000 ASCBSSRB EQU ASCB+116 03259000 ASCBRV06 EQU ASCBFLG2 03260000 ASCBRV05 EQU ASCBFLG2 03261000 ASCBRV04 EQU ASCBFLG2 03262000 ASCBSNQS EQU ASCBFLG2 03263000 ASCBS2S EQU ASCBFLG2 03264000 ASCBCEXT EQU ASCBFLG2 03265000 ASCBPXMT EQU ASCBFLG2 03266000 ASCBXMPT EQU ASCBFLG2 03267000 ASCBRF07 EQU ASCBDSP1 03268000 ASCBRF06 EQU ASCBDSP1 03269000 ASCBRF05 EQU ASCBDSP1 03270000 ASCBRF04 EQU ASCBDSP1 03271000 ASCBRF03 EQU ASCBDSP1 03272000 ASCBRF02 EQU ASCBDSP1 03273000 ASCBFAIL EQU ASCBDSP1 03274000 ASCBNOQ EQU ASCBDSP1 03275000 ASCBSWCT EQU ASCB+112 03276000 ASCBASXB EQU ASCB+108 03277000 ASCBTMCH EQU ASCB+104 03278000 ASCBNSWP EQU ASCBFLG1 03279000 ASCBTYP1 EQU ASCBFLG1 03280000 ASCBSTND EQU ASCBFLG1 03281000 ASCBABNT EQU ASCBFLG1 03282000 ASCBTERM EQU ASCBFLG1 03283000 ASCBS3S EQU ASCBFLG1 03284000 ASCBCMSH EQU ASCBFLG1 03285000 ASCBTOFF EQU ASCBFLG1 03286000 ASCBRF01 EQU ASCBRCTF 03287000 ASCBTMLW EQU ASCBRCTF 03288000 ASCBOUT EQU ASCBRCTF 03289000 ASCBWAIT EQU ASCBRCTF 03290000 ASCBRV08 EQU ASCBRCTF 03291000 ASCBFQU EQU ASCBRCTF 03292000 ASCBFRS EQU ASCBRCTF 03293000 ASCBTMNO EQU ASCBRCTF 03294000 ASCBAFFN EQU ASCBFW1 03295000 ASCBDUMP EQU ASCB+96 03296000 ASCBQSVC EQU ASCB+92 03297000 ASCBUBET EQU ASCB+88 03298000 ASCBECB EQU ASCB+84 03299000 ASCBJSTL EQU ASCB+80 03300000 ASCBEWST EQU ASCB+72 03301000 ASCBEJST EQU ASCB+64 03302000 ASCBTSB EQU ASCB+60 03303000 ASCBCSCB EQU ASCB+56 03304000 ASCBRSM EQU ASCB+52 03305000 ASCBLDA EQU ASCB+48 03306000 ASCBSTOR EQU ASCB+44 03307000 ASCBDP EQU ASCB+43 03308000 ASCBRV07 EQU ASCB+42 03309000 ASCBIOSM EQU ASCB+40 03310000 ASCBSEQN EQU ASCB+38 03311000 ASCBCPUS EQU ASCB+32 03312000 ASCBSPL EQU ASCB+28 03313000 ASCBIOSP EQU ASCB+24 03314000 ASCBSYNC EQU ASCBSUPC+4 03315000 ASCBSVRB EQU ASCBSUPC 03316000 ASCBCMSF EQU ASCB+12 03317000 ASCBBWDP EQU ASCB+8 03318000 ASCBFWDP EQU ASCB+4 03319000 ASCBASCB EQU ASCB 03320000 ASCBEGIN EQU ASCB 03321000 @NM00040 EQU CSD+160 03322000 CSDMASK EQU CSD+128 03323000 CSDUCNT EQU CSD+124 03324000 CSDTCNT EQU CSD+120 03325000 CSDGDTOD EQU CSD+116 03326000 CSDGDINT EQU CSD+112 03327000 CSDGDCC EQU CSD+108 03328000 CSDDDRCT EQU CSD+106 03329000 CSDRV044 EQU CSD+104 03330000 CSDMAFF EQU CSD+24 03331000 CSDRV038 EQU CSDFLAGS 03332000 CSDRV037 EQU CSDFLAGS 03333000 CSDRV036 EQU CSDFLAGS 03334000 CSDRV035 EQU CSDFLAGS 03335000 CSDRV034 EQU CSDFLAGS 03336000 CSDRV033 EQU CSDFLAGS 03337000 CSDRV032 EQU CSDFLAGS 03338000 CSDACR EQU CSD+22 03339000 CSDMF1CP EQU CSD+20 03340000 CSDRV043 EQU CSD+16 03341000 CSDRV030 EQU CSDSCFL4 03342000 CSDRV029 EQU CSDSCFL4 03343000 CSDRV028 EQU CSDSCFL4 03344000 CSDRV027 EQU CSDSCFL4 03345000 CSDRV026 EQU CSDSCFL4 03346000 CSDRV025 EQU CSDSCFL4 03347000 CSDRV024 EQU CSDSCFL4 03348000 CSDRV023 EQU CSDSCFL4 03349000 CSDRV022 EQU CSDSCFL3 03350000 CSDRV021 EQU CSDSCFL3 03351000 CSDRV020 EQU CSDSCFL3 03352000 CSDRV019 EQU CSDSCFL3 03353000 CSDRV018 EQU CSDSCFL3 03354000 CSDRV017 EQU CSDSCFL3 03355000 CSDRV016 EQU CSDSCFL3 03356000 CSDRV015 EQU CSDSCFL3 03357000 CSDRV014 EQU CSDSCFL2 03358000 CSDRV013 EQU CSDSCFL2 03359000 CSDRV012 EQU CSDSCFL2 03360000 CSDRV011 EQU CSDSCFL2 03361000 CSDRV010 EQU CSDSCFL2 03362000 CSDRV009 EQU CSDSCFL2 03363000 CSDRV008 EQU CSDSCFL2 03364000 CSDRV007 EQU CSDSCFL2 03365000 CSDRV006 EQU CSDSCFL1 03366000 CSDRV005 EQU CSDSCFL1 03367000 CSDRV004 EQU CSDSCFL1 03368000 CSDRV003 EQU CSDSCFL1 03369000 CSDRV002 EQU CSDSCFL1 03370000 CSDRV001 EQU CSDSCFL1 03371000 CSDSYSND EQU CSDSCFL1 03372000 CSDRV042 EQU CSDSCFL1 03373000 CSDCPUOL EQU CSD+10 03374000 CSDSAFF EQU CSDCPUAL 03375000 CSDCHAD EQU CSD+6 03376000 CSDCPUJS EQU CSD+4 03377000 CSDCSD EQU CSD 03378000 @NM00039 EQU PCCA+512 03379000 PCCACAT EQU PCCA+384 03380000 PCCARV36 EQU PCCA+380 03381000 PCCARV35 EQU PCCA+378 03382000 PCCARV01 EQU PCCA+377 03383000 PCCACPUM EQU PCCA+376 03384000 PCCARV63 EQU PCCA+372 03385000 PCCARV62 EQU PCCA+368 03386000 PCCARV61 EQU PCCA+364 03387000 PCCARV60 EQU PCCA+360 03388000 PCCARV59 EQU PCCA+356 03389000 PCCARV58 EQU PCCA+352 03390000 PCCARV57 EQU PCCA+348 03391000 PCCARV56 EQU PCCA+344 03392000 PCCARV55 EQU PCCA+340 03393000 PCCARV54 EQU PCCA+336 03394000 PCCALOGA EQU PCCA+332 03395000 PCCACHID EQU PCCA+324 03396000 PCCACHSV EQU PCCA+312 03397000 PCCARV79 EQU PCCACHF4 03398000 PCCARV78 EQU PCCACHF4 03399000 PCCARV77 EQU PCCACHF4 03400000 PCCARV76 EQU PCCACHF4 03401000 PCCARV75 EQU PCCACHF4 03402000 PCCARV74 EQU PCCACHF4 03403000 PCCARV73 EQU PCCACHF4 03404000 PCCARV72 EQU PCCACHF4 03405000 PCCARV71 EQU PCCACHF3 03406000 PCCARV70 EQU PCCACHF3 03407000 PCCARV69 EQU PCCACHF3 03408000 PCCARV68 EQU PCCACHF3 03409000 PCCARV67 EQU PCCACHF3 03410000 PCCARV66 EQU PCCACHF3 03411000 PCCARV65 EQU PCCACHF3 03412000 PCCARV64 EQU PCCACHF3 03413000 PCCACF28 EQU PCCACHF2 03414000 PCCACF27 EQU PCCACHF2 03415000 PCCACF26 EQU PCCACHF2 03416000 PCCACF25 EQU PCCACHF2 03417000 PCCACF24 EQU PCCACHF2 03418000 PCCACF23 EQU PCCACHF2 03419000 PCCACF22 EQU PCCACHF2 03420000 PCCACF21 EQU PCCACHF2 03421000 PCCACF18 EQU PCCACHF1 03422000 PCCACF17 EQU PCCACHF1 03423000 PCCACF16 EQU PCCACHF1 03424000 PCCACF15 EQU PCCACHF1 03425000 PCCACF14 EQU PCCACHF1 03426000 PCCACF13 EQU PCCACHF1 03427000 PCCACF12 EQU PCCACHF1 03428000 PCCACF11 EQU PCCACHF1 03429000 PCCARV05 EQU PCCA+306 03430000 PCCACHPB EQU PCCA+305 03431000 PCCALGP2 EQU PCCA+304 03432000 PCCALGP1 EQU PCCA+303 03433000 PCCALOGL EQU PCCA+302 03434000 PCCARV80 EQU PCCA+300 03435000 PCCACHW2 EQU PCCA+296 03436000 PCCACHW1 EQU PCCA+292 03437000 PCCAIOSI EQU PCCA+291 03438000 PCCACNRB EQU PCCACHRB 03439000 PCCACCVB EQU PCCACHRB 03440000 PCCACSNB EQU PCCACHRB 03441000 PCCARV52 EQU PCCACHRB 03442000 PCCACHIB EQU PCCACHRB 03443000 PCCACTIB EQU PCCACHRB 03444000 PCCACINB EQU PCCACHRB 03445000 PCCACSIB EQU PCCACHRB 03446000 PCCARV51 EQU PCCACHS2 03447000 PCCARV50 EQU PCCACHS2 03448000 PCCACCRA EQU PCCACHS2 03449000 PCCACURC EQU PCCACHS2 03450000 PCCACNLG EQU PCCACHS2 03451000 PCCACMOD EQU PCCACHS2 03452000 PCCACALT EQU PCCACHS2 03453000 PCCACIOR EQU PCCACHS2 03454000 PCCARV47 EQU PCCACHS1 03455000 PCCACUCB EQU PCCACHS1 03456000 PCCACIBC EQU PCCACHS1 03457000 PCCACAND EQU PCCACHS1 03458000 PCCACNLS EQU PCCACHS1 03459000 PCCACFRR EQU PCCACHS1 03460000 PCCACNRE EQU PCCACHS1 03461000 PCCACCMP EQU PCCACHS1 03462000 PCCACSEQ EQU PCCACHTS 03463000 PCCACDIN EQU PCCACHTS 03464000 PCCARV44 EQU PCCACHTS 03465000 PCCARV43 EQU PCCACHTS 03466000 PCCACTEC EQU PCCACHTS 03467000 PCCACDAV EQU PCCACHVA 03468000 PCCACCHV EQU PCCACHVA 03469000 PCCACCMD EQU PCCACHVA 03470000 PCCACUNS EQU PCCACHVA 03471000 PCCACSQV EQU PCCACHVA 03472000 PCCARV42 EQU PCCACHVA 03473000 PCCARV41 EQU PCCACHVA 03474000 PCCACITF EQU PCCACHVA 03475000 PCCARV40 EQU PCCACHBL 03476000 PCCARV39 EQU PCCACHBL 03477000 PCCARV38 EQU PCCACHBL 03478000 PCCACCUE EQU PCCACHBL 03479000 PCCACSTG EQU PCCACHBL 03480000 PCCACSCU EQU PCCACHBL 03481000 PCCACCHA EQU PCCACHBL 03482000 PCCACCPU EQU PCCACHBL 03483000 PCCACNOR EQU PCCACHPF 03484000 PCCACCNT EQU PCCACHPF 03485000 PCCACSNS EQU PCCACHPF 03486000 PCCARV37 EQU PCCACHPF 03487000 PCCACHIO EQU PCCACHPF 03488000 PCCACTIO EQU PCCACHPF 03489000 PCCACINT EQU PCCACHPF 03490000 PCCACSIO EQU PCCACHPF 03491000 PCCACHUB EQU PCCAWERP 03492000 PCCACHEL EQU PCCA+168 03493000 PCCALRBR EQU PCCA+164 03494000 PCCALRBV EQU PCCA+160 03495000 PCCAPWAR EQU PCCA+156 03496000 PCCAPWAV EQU PCCA+152 03497000 PCCAEMSA EQU PCCAEMSB+12 03498000 PCCAEMSE EQU PCCAEMSB+8 03499000 PCCAEMSP EQU PCCAEMSB+4 03500000 PCCARMS EQU PCCARMSB 03501000 PCCARV34 EQU PCCARMSB 03502000 PCCARV33 EQU PCCARMSB 03503000 PCCARV32 EQU PCCARMSB 03504000 PCCARV31 EQU PCCARMSB 03505000 PCCARV30 EQU PCCARMSB 03506000 PCCARV29 EQU PCCARMSB 03507000 PCCARV28 EQU PCCARMSB 03508000 PCCARV27 EQU PCCAEMS3 03509000 PCCARV26 EQU PCCAEMS3 03510000 PCCARV25 EQU PCCAEMS3 03511000 PCCARV24 EQU PCCAEMS3 03512000 PCCARV23 EQU PCCAEMS3 03513000 PCCARV22 EQU PCCAEMS3 03514000 PCCARV21 EQU PCCAEMS3 03515000 PCCARV20 EQU PCCAEMS3 03516000 PCCARV19 EQU PCCAEMS2 03517000 PCCARV18 EQU PCCAEMS2 03518000 PCCARV17 EQU PCCAEMS2 03519000 PCCARV16 EQU PCCAEMS2 03520000 PCCARV15 EQU PCCAEMS2 03521000 PCCARV14 EQU PCCAEMS2 03522000 PCCARV13 EQU PCCAEMS2 03523000 PCCARV12 EQU PCCAEMS2 03524000 PCCARV11 EQU PCCARISP 03525000 PCCARV10 EQU PCCARISP 03526000 PCCARV09 EQU PCCARISP 03527000 PCCARV08 EQU PCCARISP 03528000 PCCARV07 EQU PCCARISP 03529000 PCCARV06 EQU PCCARISP 03530000 PCCASERL EQU PCCARISP 03531000 PCCAPARL EQU PCCARISP 03532000 PCCARPB EQU PCCA+132 03533000 PCCACTIN EQU PCCAINTE 03534000 PCCANFIN EQU PCCAINTE 03535000 PCCANUIN EQU PCCAINTE 03536000 PCCACTCC EQU PCCACCE 03537000 PCCANFCC EQU PCCACCE 03538000 PCCANUCC EQU PCCACCE 03539000 PCCACTTD EQU PCCATODE 03540000 PCCANFTD EQU PCCATODE 03541000 PCCANUTD EQU PCCATODE 03542000 PCCARV04 EQU PCCATMFL 03543000 PCCARV03 EQU PCCATMFL 03544000 PCCARV02 EQU PCCATMFL 03545000 PCCAMINT EQU PCCATMFL 03546000 PCCAMCC EQU PCCATMFL 03547000 PCCAVKIL EQU PCCATMFL 03548000 PCCASYNC EQU PCCATMFL 03549000 PCCAINIT EQU PCCATMFL 03550000 PCCARV9E EQU PCCA+124 03551000 PCCARV9D EQU PCCA+120 03552000 PCCARV9C EQU PCCA+116 03553000 PCCARV9B EQU PCCA+112 03554000 PCCARV9A EQU PCCA+108 03555000 PCCARV99 EQU PCCA+104 03556000 PCCARV98 EQU PCCA+100 03557000 PCCARV97 EQU PCCA+96 03558000 PCCARV96 EQU PCCA+92 03559000 PCCARV95 EQU PCCA+88 03560000 PCCARV94 EQU PCCA+84 03561000 PCCARV93 EQU PCCA+80 03562000 PCCARV92 EQU PCCA+76 03563000 PCCARV91 EQU PCCA+72 03564000 PCCARV90 EQU PCCA+68 03565000 PCCARV89 EQU PCCA+64 03566000 PCCARV88 EQU PCCA+60 03567000 PCCARV87 EQU PCCA+56 03568000 PCCARV86 EQU PCCA+52 03569000 PCCARV85 EQU PCCA+48 03570000 PCCARV84 EQU PCCA+44 03571000 PCCARV83 EQU PCCA+40 03572000 PCCARV82 EQU PCCA+36 03573000 PCCARV81 EQU PCCA+32 03574000 PCCAPSAR EQU PCCA+28 03575000 PCCATQEP EQU PCCA+20 03576000 PCCACAFM EQU PCCA+18 03577000 PCCACPUA EQU PCCA+16 03578000 PCCACPID EQU PCCA+4 03579000 PCCAPCCA EQU PCCA 03580000 PCCAT00P EQU PCCAVT 03581000 @NM00038 EQU PSA+3668 03582000 PSASTAK EQU PSA+3072 03583000 @NM00037 EQU PSA+1048 03584000 PSAUSEND EQU PSA+1048 03585000 PSARV062 EQU PSA+1044 03586000 PSACDAL EQU PSA+1040 03587000 PSAWTCOD EQU PSA+1036 03588000 PSAPCPSW EQU PSA+1024 03589000 PSAPIR2 EQU PSA+1020 03590000 PSARV059 EQU PSA+1018 03591000 PSASVC13 EQU PSA+1016 03592000 PSALSFCC EQU PSA+1012 03593000 PSASFACC EQU PSA+1008 03594000 PSASTOP EQU PSA+992 03595000 PSASTART EQU PSA+976 03596000 PSARSPSW EQU PSA+968 03597000 PSASRPSW EQU PSA+960 03598000 PSARV045 EQU PSA+892 03599000 PSARV044 EQU PSA+888 03600000 PSARV043 EQU PSA+884 03601000 PSARV042 EQU PSA+880 03602000 PSARV041 EQU PSA+876 03603000 PSARV040 EQU PSA+872 03604000 PSARV025 EQU PSA+868 03605000 PSADSSED EQU PSA+868 03606000 PSADSSPR EQU PSA+864 03607000 PSADSSFW EQU PSA+860 03608000 PSADSS14 EQU PSA+856 03609000 PSADSSPP EQU PSA+848 03610000 PSADSSRP EQU PSA+840 03611000 PSADSS05 EQU PSADSSF4 03612000 PSADSS10 EQU PSADSSF4 03613000 PSADSSVE EQU PSADSSF4 03614000 PSADSSDE EQU PSADSSF4 03615000 PSADSSC0 EQU PSADSSF4 03616000 PSADSSIE EQU PSADSSF4 03617000 PSADSS12 EQU PSADSSF4 03618000 PSADSSRC EQU PSADSSF4 03619000 PSARV057 EQU PSADSSF3 03620000 PSARV056 EQU PSADSSF3 03621000 PSARV055 EQU PSADSSF3 03622000 PSADSSMC EQU PSADSSF3 03623000 PSADSSRW EQU PSADSSF3 03624000 PSADSSNM EQU PSADSSF3 03625000 PSADSSES EQU PSADSSF3 03626000 PSADSSGP EQU PSADSSF3 03627000 PSADSSF2 EQU PSADSSFL+1 03628000 PSADSSPI EQU PSADSSF1 03629000 PSADSSOI EQU PSADSSF1 03630000 PSADSSSP EQU PSADSSF1 03631000 PSADSSTP EQU PSADSSF1 03632000 PSADSSDW EQU PSADSSF1 03633000 PSADSSDD EQU PSADSSF1 03634000 PSADSSDM EQU PSADSSF1 03635000 PSADSSMV EQU PSADSSF1 03636000 PSADSSTS EQU PSA+816 03637000 PSADSSWK EQU PSA+812 03638000 PSADSSR3 EQU PSA+808 03639000 PSADSSR2 EQU PSA+804 03640000 PSADSSRS EQU PSA+800 03641000 PSASTOR EQU PSA+796 03642000 PSACPUSA EQU PSA+794 03643000 PSAVSTAP EQU PSA+792 03644000 PSAWKVAP EQU PSA+788 03645000 PSAWKRAP EQU PSA+784 03646000 PSAMCHIC EQU PSA+783 03647000 PSARV061 EQU PSA+782 03648000 PSASYMSK EQU PSA+781 03649000 PSAMCHFL EQU PSA+780 03650000 PSACR0 EQU PSA+776 03651000 PSAPSWSV EQU PSA+768 03652000 PSACLHS EQU PSAHLHI 03653000 PSALKR15 EQU PSALKSA+60 03654000 PSALKR14 EQU PSALKSA+56 03655000 PSALKR13 EQU PSALKSA+52 03656000 PSALKR12 EQU PSALKSA+48 03657000 PSALKR11 EQU PSALKSA+44 03658000 PSALKR10 EQU PSALKSA+40 03659000 PSALKR9 EQU PSALKSA+36 03660000 PSALKR8 EQU PSALKSA+32 03661000 PSALKR7 EQU PSALKSA+28 03662000 PSALKR6 EQU PSALKSA+24 03663000 PSALKR5 EQU PSALKSA+20 03664000 PSALKR4 EQU PSALKSA+16 03665000 PSALKR3 EQU PSALKSA+12 03666000 PSALKR2 EQU PSALKSA+8 03667000 PSALKR1 EQU PSALKSA+4 03668000 PSALKR0 EQU PSALKSA 03669000 PSARV023 EQU PSACLHT+52 03670000 PSALOCAL EQU PSACLHT+48 03671000 PSACMSL EQU PSACLHT+44 03672000 PSAOPTL EQU PSACLHT+40 03673000 PSATPACL EQU PSACLHT+36 03674000 PSATPDNL EQU PSACLHT+32 03675000 PSATPNCL EQU PSACLHT+28 03676000 PSAIOSLL EQU PSACLHT+24 03677000 PSAIOSUL EQU PSACLHT+20 03678000 PSAIOSCL EQU PSACLHT+16 03679000 PSAIOSSL EQU PSACLHT+12 03680000 PSASALCL EQU PSACLHT+8 03681000 PSAASML EQU PSACLHT+4 03682000 PSADISPL EQU PSACLHT 03683000 PSASRSA EQU PSA+636 03684000 PSARV050 EQU PSA+634 03685000 PSADSSGO EQU PSA+633 03686000 PSARECUR EQU PSA+632 03687000 PSAHLHIS EQU PSA+628 03688000 PSAIPCSA EQU PSA+624 03689000 @NM00036 EQU PSA+621 03690000 PSAIPCDM EQU PSA+620 03691000 PSAIPCD EQU PSA+616 03692000 @NM00035 EQU PSA+613 03693000 PSAIPCRM EQU PSA+612 03694000 PSAIPCR EQU PSA+608 03695000 PSAMCHEX EQU PSA+600 03696000 PSAMPSW EQU PSA+592 03697000 PSAEXPS2 EQU PSA+584 03698000 PSAEXPS1 EQU PSA+576 03699000 PSAPIREG EQU PSA+572 03700000 PSARSREG EQU PSA+568 03701000 PSAGPREG EQU PSA+556 03702000 PSARV022 EQU PSASUP4 03703000 PSARV021 EQU PSASUP4 03704000 PSARV020 EQU PSASUP4 03705000 PSARV019 EQU PSASUP4 03706000 PSARV018 EQU PSASUP4 03707000 PSARV017 EQU PSASUP4 03708000 PSARV016 EQU PSASUP4 03709000 PSARV015 EQU PSASUP4 03710000 PSARV014 EQU PSASUP3 03711000 PSARV013 EQU PSASUP3 03712000 PSARV012 EQU PSASUP3 03713000 PSARV011 EQU PSASUP3 03714000 PSASPR EQU PSASUP3 03715000 PSAPSREG EQU PSASUP3 03716000 PSAPI2 EQU PSASUP3 03717000 PSAIOSUP EQU PSASUP3 03718000 PSALCR EQU PSASUP2 03719000 PSARTM EQU PSASUP2 03720000 PSAACR EQU PSASUP2 03721000 PSAIPCE2 EQU PSASUP2 03722000 PSAIPCES EQU PSASUP2 03723000 PSAIPCEC EQU PSASUP2 03724000 PSAGTF EQU PSASUP2 03725000 PSAIPCRI EQU PSASUP2 03726000 PSARV063 EQU PSASUP1 03727000 PSATCTL EQU PSASUP1 03728000 PSADISP EQU PSASUP1 03729000 PSALOCK EQU PSASUP1 03730000 PSAPI EQU PSASUP1 03731000 PSAEXT EQU PSASUP1 03732000 PSASVC EQU PSASUP1 03733000 PSAIO EQU PSASUP1 03734000 PSAANEW EQU PSA+544 03735000 PSATOLD EQU PSA+540 03736000 PSATNEW EQU PSA+536 03737000 PSALCCAR EQU PSA+532 03738000 PSALCCAV EQU PSA+528 03739000 PSAPCCAR EQU PSA+524 03740000 PSAPCCAV EQU PSA+520 03741000 PSACPULA EQU PSA+518 03742000 PSACPUPA EQU PSA+516 03743000 PSAPSA EQU PSA+512 03744000 FLCHDEND EQU PSA+512 03745000 FLCCRSAV EQU FLCMCLA+280 03746000 FLCGRSAV EQU FLCMCLA+216 03747000 FLCFPSAV EQU FLCMCLA+184 03748000 FLCFLA EQU FLCMCLA+88 03749000 FLCRGNCD EQU FLCMCLA+84 03750000 FLCFSAA EQU FLCFSA+1 03751000 @NM00034 EQU FLCFSA 03752000 @NM00033 EQU FLCMCLA+72 03753000 FLCMCIC EQU FLCMCLA+64 03754000 @NM00032 EQU FLCMCLA+20 03755000 FLCIOAA EQU FLCIOA+1 03756000 @NM00031 EQU FLCIOA 03757000 @NM00030 EQU FLCMCLA+15 03758000 @NM00029 EQU FLCMCLA+14 03759000 @NM00028 EQU FLCMCLA+12 03760000 FLCLCL EQU FLCMCLA+8 03761000 FLCIOELA EQU FLCIOEL+1 03762000 @NM00027 EQU FLCIOEL 03763000 FLCCHNID EQU FLCMCLA 03764000 @NM00026 EQU PSA+160 03765000 FLCMTRCD EQU PSA+157 03766000 @NM00025 EQU PSA+156 03767000 FLCPERA EQU FLCPER+1 03768000 @NM00024 EQU FLCPER 03769000 @NM00023 EQU PSA+151 03770000 FLCPERCD EQU PSA+150 03771000 FLCMCNUM EQU PSA+149 03772000 @NM00022 EQU PSA+148 03773000 FLCTEAA EQU FLCTEA+1 03774000 @NM00021 EQU FLCTEA 03775000 PSAPIPC EQU PSAPICOD 03776000 PSAPIMC EQU PSAPICOD 03777000 PSAPIPER EQU PSAPICOD 03778000 PSARV049 EQU FLCPICOD 03779000 FLCPILCB EQU FLCPIILC 03780000 @NM00020 EQU FLCPIILC 03781000 @NM00019 EQU PSAEPPSW 03782000 FLCSVCN EQU PSAESPSW+2 03783000 FLCSILCB EQU FLCSVILC 03784000 @NM00018 EQU FLCSVILC 03785000 @NM00017 EQU PSAESPSW 03786000 FLCEICOD EQU PSAEEPSW+2 03787000 PSASPAD EQU PSAEEPSW 03788000 @NM00016 EQU PSA+128 03789000 FLCINPSW EQU PSA+120 03790000 FLCMNPSW EQU PSA+112 03791000 FLCPNPSW EQU PSA+104 03792000 FLCSNPSW EQU PSA+96 03793000 FLCENPSW EQU PSA+88 03794000 FLCTRACE EQU PSA+84 03795000 FLCTIMER EQU PSA+80 03796000 FLCCVT2 EQU PSA+76 03797000 FLCCAW EQU PSA+72 03798000 FLCCSW EQU PSA+64 03799000 FLCIOPSW EQU PSA+56 03800000 FLCMOPSW EQU PSA+48 03801000 FLCPOPSW EQU PSA+40 03802000 FLCSOPSW EQU PSA+32 03803000 FLCEOPSW EQU PSA+24 03804000 @NM00015 EQU FLCICCW2+4 03805000 FLCCVT EQU FLCICCW2 03806000 FLCICCW1 EQU FLCROPSW 03807000 FLCIPPSW EQU FLCRNPSW 03808000 JSCBPMG EQU JSCBWTP+2 03809000 JSCBWTSP EQU JSCBWTP+1 03810000 JSCRSV23 EQU JSCBWTFG 03811000 JSCRSV22 EQU JSCBWTFG 03812000 JSCRSV21 EQU JSCBWTFG 03813000 JSCRSV20 EQU JSCBWTFG 03814000 JSCRSV19 EQU JSCBWTFG 03815000 JSCRSV18 EQU JSCBWTFG 03816000 JSCBRET EQU JSCBWTFG 03817000 JSCBIOFG EQU JSCBWTFG 03818000 @NM00012 EQU JSCBSEC1+60 03819000 JSCBQMPI EQU JSCBSEC1+56 03820000 JSCBPMSG EQU JSCBSWT1 03821000 JSCRSV16 EQU JSCBSWT1 03822000 JSCRSV15 EQU JSCBSWT1 03823000 JSCRSV14 EQU JSCBSWT1 03824000 JSCRSV13 EQU JSCBSWT1 03825000 JSCRSV12 EQU JSCBSWT1 03826000 JSCRSV11 EQU JSCBSWT1 03827000 JSCBPASS EQU JSCBSWT1 03828000 JSCBTTTR EQU JSCBSEC1+52 03829000 JSCRSV10 EQU JSCBSEC1+49 03830000 JSCBAUTH EQU JSCBOPTS 03831000 JSCSIOTS EQU JSCBOPTS 03832000 JSCRSV08 EQU JSCBOPTS 03833000 JSCRSV07 EQU JSCBOPTS 03834000 JSCRSV06 EQU JSCBOPTS 03835000 JSCBLONG EQU JSCBOPTS 03836000 JSCRSV05 EQU JSCBOPTS 03837000 JSCRSV04 EQU JSCBOPTS 03838000 JSCBSECB EQU JSCBSEC1+44 03839000 JSCRSV03 EQU JSCBSEC1+41 03840000 JSCBSTEP EQU JSCBSEC1+40 03841000 JSCBDCBA EQU JSCBDCB+1 03842000 JSCRSV02 EQU JSCBDCB 03843000 JSCBID EQU JSCBSEC1+32 03844000 JSCBDBTB EQU JSCBSEC1+28 03845000 JSCBIJSC EQU JSCBSEC1+24 03846000 JSCBTCBP EQU JSCBSEC1+20 03847000 JSCBPCC EQU JSCBSEC1+16 03848000 JSCBTCP EQU JSCBSEC1+12 03849000 JSCBSHR EQU JSCBSEC1+8 03850000 JSCHPCEA EQU JSCHPCE+1 03851000 JSCRSV32 EQU JSCHPCE 03852000 JSCRSV01 EQU JSCBSEC1 03853000 @NM00011 EQU IEZJSCB 03854000 CHARSV16 EQU CHSHORT+100 03855000 CHARSV15 EQU CHSHORT+96 03856000 CHJSCBVS EQU CHSHORT+92 03857000 CHUSCVS EQU CHSHORT+88 03858000 @NM00009 EQU CHSHORT+84 03859000 @NM00008 EQU CHSHORT+80 03860000 CHSQA EQU CHSHORT+44 03861000 CHQPA EQU CHSHORT+8 03862000 CHJCL EQU CHSHORT+4 03863000 CHSPC EQU CHSHORT 03864000 CHSPB EQU CHSTEP+4 03865000 CHTCB EQU CHSTEP+1 03866000 CHARSV23 EQU CHSWT 03867000 CHARSV22 EQU CHSWT 03868000 CHARSV21 EQU CHSWT 03869000 CHAC EQU CHSWT 03870000 CHPSF EQU CHSWT 03871000 CHPSD EQU CHSWT 03872000 CHJCT EQU CHSWT 03873000 CHARSV20 EQU CHSWT 03874000 CHCECB EQU CHASM+20 03875000 CHECB EQU CHASM+16 03876000 CHRGNAD EQU CHASM+12 03877000 CHARSV18 EQU CHRGNSZ+1 03878000 CHRPRTY EQU CHRGNSZ 03879000 @NM00007 EQU CHCIBP 03880000 CHEND EQU CHCIBP 03881000 CHDER EQU CHPROCSN+4 03882000 CHARSV10 EQU CHACT1 03883000 CHARSV09 EQU CHACT1 03884000 CHARSV08 EQU CHACT1 03885000 CHARSV07 EQU CHACT1 03886000 CHARSV06 EQU CHACT1 03887000 CHARSV05 EQU CHACT1 03888000 CHARSV04 EQU CHACT1 03889000 CHRDWTR EQU CHACT1 03890000 CHARSV30 EQU CHPROCSN+2 03891000 CHQID EQU CHPROCSN 03892000 CHASID EQU CHTJID 03893000 CHTRKID EQU CHPKE 03894000 CHCIBCTR EQU CHAIN+27 03895000 CHUNIT EQU CHAIN+24 03896000 CHCLS EQU CHAIN+16 03897000 CHPCOI EQU CHPARM 03898000 CHIFY EQU CHACT 03899000 CHAIFX EQU CHACT 03900000 CHCLD EQU CHACT 03901000 CHCL EQU CHACT 03902000 CHDSI EQU CHACT 03903000 CHDISC EQU CHACT 03904000 CHTERM EQU CHACT 03905000 CHSWAP EQU CHACT 03906000 CHABTERM EQU CHSTS 03907000 CHFC EQU CHSTS 03908000 CHDL EQU CHSTS 03909000 CHAD EQU CHSTS 03910000 CHQSPC EQU CHSTS 03911000 CHSOUT EQU CHSTS 03912000 CHSYS EQU CHSTS 03913000 CHAP EQU CHSTS 03914000 CHSZE EQU CHFLG+1 03915000 CHVCD EQU CHFLG 03916000 CHPTR EQU CHAIN 03917000 @NM00006 EQU TCBXTNT2+32 03918000 TCBRV181 EQU TCBRV173 03919000 TCBRV180 EQU TCBRV173 03920000 TCBRV179 EQU TCBRV173 03921000 TCBRV178 EQU TCBRV173 03922000 TCBRV177 EQU TCBRV173 03923000 TCBRV176 EQU TCBRV173 03924000 TCBRV175 EQU TCBRV173 03925000 TCBRV174 EQU TCBRV173 03926000 TCBRV172 EQU TCBRV164 03927000 TCBRV171 EQU TCBRV164 03928000 TCBRV170 EQU TCBRV164 03929000 TCBRV169 EQU TCBRV164 03930000 TCBRV168 EQU TCBRV164 03931000 TCBRV167 EQU TCBRV164 03932000 TCBRV166 EQU TCBRV164 03933000 TCBRV165 EQU TCBRV164 03934000 TCBRV163 EQU TCBRV155 03935000 TCBRV162 EQU TCBRV155 03936000 TCBRV161 EQU TCBRV155 03937000 TCBRV160 EQU TCBRV155 03938000 TCBRV159 EQU TCBRV155 03939000 TCBRV158 EQU TCBRV155 03940000 TCBRV157 EQU TCBRV155 03941000 TCBRV156 EQU TCBRV155 03942000 TCBRV154 EQU TCBRV146 03943000 TCBRV153 EQU TCBRV146 03944000 TCBRV152 EQU TCBRV146 03945000 TCBRV151 EQU TCBRV146 03946000 TCBRV150 EQU TCBRV146 03947000 TCBRV149 EQU TCBRV146 03948000 TCBRV148 EQU TCBRV146 03949000 TCBRV147 EQU TCBRV146 03950000 TCBRV145 EQU TCBXTNT2+26 03951000 TCBRV144 EQU TCBXTNT2+24 03952000 TCBRV143 EQU TCBXTNT2+20 03953000 TCBRV142 EQU TCBXTNT2+16 03954000 TCBRSV49 EQU TCBXTNT2+12 03955000 TCBEVENT EQU TCBXTNT2+8 03956000 TCBRCMP EQU TCBXTNT2+5 03957000 TCBRSVAB EQU TCBXTNT2+4 03958000 TCBGTFA EQU TCBGTF+1 03959000 TCBRSV47 EQU TCBTFLG 03960000 TCBRSV46 EQU TCBTFLG 03961000 TCBRSV45 EQU TCBTFLG 03962000 TCBRSV44 EQU TCBTFLG 03963000 TCBRSV43 EQU TCBTFLG 03964000 TCBDSPIT EQU TCBTFLG 03965000 TCBERRTN EQU TCBTFLG 03966000 TCBASYNC EQU TCBTFLG 03967000 @NM00005 EQU TCB+296 03968000 TCBSVCA2 EQU TCB+292 03969000 TCBSWASA EQU TCB+288 03970000 TCBDBTB EQU TCB+284 03971000 TCBRPT EQU TCB+280 03972000 TCBRV141 EQU TCBRV133 03973000 TCBRV140 EQU TCBRV133 03974000 TCBRV139 EQU TCBRV133 03975000 TCBRV138 EQU TCBRV133 03976000 TCBRV137 EQU TCBRV133 03977000 TCBRV136 EQU TCBRV133 03978000 TCBRV135 EQU TCBRV133 03979000 TCBRV134 EQU TCBRV133 03980000 TCBRV132 EQU TCBRV124 03981000 TCBRV131 EQU TCBRV124 03982000 TCBRV130 EQU TCBRV124 03983000 TCBRV129 EQU TCBRV124 03984000 TCBRV128 EQU TCBRV124 03985000 TCBRV127 EQU TCBRV124 03986000 TCBRV126 EQU TCBRV124 03987000 TCBRV125 EQU TCBRV124 03988000 TCBRV123 EQU TCBFBYT2 03989000 TCBRV122 EQU TCBFBYT2 03990000 TCBECBNV EQU TCBFBYT2 03991000 TCBSSSYN EQU TCBFBYT2 03992000 TCBFPRAP EQU TCBFBYT2 03993000 TCBFDW EQU TCBFBYT2 03994000 TCBFMW EQU TCBFBYT2 03995000 TCBCNCB EQU TCBFBYT2 03996000 TCBLLH EQU TCBFBYT1 03997000 TCBRV113 EQU TCBFBYT1 03998000 TCBEOT EQU TCBFBYT1 03999000 TCBRTM2 EQU TCBFBYT1 04000000 TCBPGNLY EQU TCBFBYT1 04001000 TCBNDIOS EQU TCBFBYT1 04002000 TCBACTIV EQU TCBFBYT1 04003000 TCBEOTFM EQU TCBFBYT1 04004000 TCBAFFN EQU TCB+274 04005000 TCBCCPVI EQU TCB+272 04006000 TCBUKYSP EQU TCB+268 04007000 TCBMODE EQU TCBESTAE+3 04008000 TCBERTYP EQU TCBESTAE+2 04009000 TCBRV314 EQU TCBESTRM 04010000 TCBRV313 EQU TCBESTRM 04011000 TCBRV312 EQU TCBESTRM 04012000 TCBRV311 EQU TCBESTRM 04013000 TCBRV310 EQU TCBESTRM 04014000 TCBRV309 EQU TCBESTRM 04015000 TCBRV308 EQU TCBESTRM 04016000 TCBETERM EQU TCBESTRM 04017000 TCBSCBKY EQU TCBESTAE 04018000 TCBRTM12 EQU TCB+260 04019000 TCBTCBID EQU TCB+256 04020000 TCBRSV96 EQU TCB+252 04021000 TCBSWA EQU TCB+248 04022000 TCBFOEA EQU TCBFOE+1 04023000 TCBRSV42 EQU TCBFOE 04024000 TCBRV306 EQU TCB+240 04025000 TCBRSV41 EQU TCB+239 04026000 TCBTID EQU TCB+238 04027000 TCBRSVAA EQU TCB+237 04028000 TCBABCUR EQU TCB+236 04029000 TCBTMSAV EQU TCB+232 04030000 TCBIOTIM EQU TCB+228 04031000 TCBRTWA EQU TCB+224 04032000 TCBBACK EQU TCB+220 04033000 TCBTIRB EQU TCB+216 04034000 TCBAECB EQU TCB+212 04035000 TCBEXT2A EQU TCBEXT2+1 04036000 TCBRSV39 EQU TCBEXT2 04037000 TCBSTMCT EQU TCB+207 04038000 TCBSYSCT EQU TCB+206 04039000 TCBRSV37 EQU TCB+205 04040000 TCBEXSVC EQU TCBDAR 04041000 TCBDARMS EQU TCBDAR 04042000 TCBDARWT EQU TCBDAR 04043000 TCBDARO EQU TCBDAR 04044000 TCBDARMC EQU TCBDARC 04045000 TCBDARD EQU TCBDAR 04046000 TCBDARS EQU TCBDAR 04047000 TCBDARP EQU TCBDAR 04048000 TCBGTOFM EQU TCBFLGS7 04049000 TCBADMP EQU TCBFLGS7 04050000 TCBRSTSK EQU TCBFLGS7 04051000 TCBSVCS EQU TCBFLGS7 04052000 TCBSTACK EQU TCBFLGS7 04053000 TCBRSV34 EQU TCBFLGS7 04054000 TCBRSV33 EQU TCBFLGS7 04055000 TCBGPECB EQU TCBFLGS7 04056000 TCBNTJS EQU TCBFLGS6 04057000 TCBAPG EQU TCBFLGS6 04058000 TCBMIGR EQU TCBFLGS6 04059000 TCBRV303 EQU TCBFLGS6 04060000 TCBSPVLK EQU TCBFLGS6 04061000 TCBCPU EQU TCBFLGS6 04062000 TCBPIE17 EQU TCBFLGS6 04063000 TCBRV EQU TCBFLGS6 04064000 TCBRSV79 EQU TCBNDSP5 04065000 TCBRSV78 EQU TCBNDSP5 04066000 TCBRSV77 EQU TCBNDSP5 04067000 TCBRSV76 EQU TCBNDSP5 04068000 TCBRSV75 EQU TCBNDSP5 04069000 TCBRSV74 EQU TCBNDSP5 04070000 TCBRSV95 EQU TCBNDSP5 04071000 TCBRSV94 EQU TCBNDSP5 04072000 TCBRSV93 EQU TCBNDSP4 04073000 TCBRSV92 EQU TCBNDSP4 04074000 TCBRSV91 EQU TCBNDSP4 04075000 TCBRSV90 EQU TCBNDSP4 04076000 TCBRSV89 EQU TCBNDSP4 04077000 TCBRSV88 EQU TCBNDSP4 04078000 TCBRSV87 EQU TCBNDSP4 04079000 TCBRSV86 EQU TCBNDSP4 04080000 TCBEXT1A EQU TCBEXT1+1 04081000 TCBRSV32 EQU TCBEXT1 04082000 TCBEXCPD EQU TCB+192 04083000 TCBIOBRC EQU TCB+188 04084000 TCBDDWTC EQU TCB+186 04085000 TCBDDEXC EQU TCB+184 04086000 TCBJSCBB EQU TCBJSCB+1 04087000 @NM00004 EQU TCBRECDE 04088000 TCBREC EQU TCBRECDE 04089000 TCBMDIDS EQU TCB+176 04090000 TCBNDINT EQU TCBNDSP3 04091000 TCBRSV27 EQU TCBNDSP3 04092000 TCBRSV26 EQU TCBNDSP3 04093000 TCBRSV25 EQU TCBNDSP3 04094000 TCBRSV24 EQU TCBNDSP3 04095000 TCBSRBND EQU TCBNDSP3 04096000 TCBRV302 EQU TCBNDSP3 04097000 TCBLJSND EQU TCBNDSP3 04098000 TCBABE EQU TCBNDSP2 04099000 TCBDSS EQU TCBNDSP2 04100000 TCBOWAIT EQU TCBNDSP2 04101000 TCBIWAIT EQU TCBNDSP2 04102000 TCBNDTS EQU TCBNDSP2 04103000 TCBNDSVC EQU TCBNDSP2 04104000 TCBSTPP EQU TCBNDSP2 04105000 TCBABD EQU TCBNDSP2 04106000 TCBRSV22 EQU TCBNDSP1 04107000 TCBPIEND EQU TCBNDSP1 04108000 TCBTPSP EQU TCBNDSP1 04109000 TCBDDRND EQU TCBNDSP1 04110000 TCBRSPND EQU TCBNDSP1 04111000 TCBRSTND EQU TCBNDSP1 04112000 TCBDARPN EQU TCBNDSP1 04113000 TCBDARTN EQU TCBNDSP1 04114000 TCBNDSP0 EQU TCBNDSP 04115000 TCBUSER EQU TCB+168 04116000 TCBTCTB EQU TCBTCT+1 04117000 TCBRSV9C EQU TCBTCTGF 04118000 TCBRSV9B EQU TCBTCTGF 04119000 TCBRSV9A EQU TCBTCTGF 04120000 TCBRSV99 EQU TCBTCTGF 04121000 TCBRSV98 EQU TCBTCTGF 04122000 TCBRSV97 EQU TCBTCTGF 04123000 TCBRSV20 EQU TCBTCTGF 04124000 TCBSMFGF EQU TCBTCTGF 04125000 TCBSTABB EQU TCBSTAB+1 04126000 TCBSTCUR EQU TCBNSTAE 04127000 TCBRV301 EQU TCBNSTAE 04128000 TCBSYNCH EQU TCBNSTAE 04129000 TCBHALT EQU TCBNSTAE 04130000 TCBPPSUP EQU TCBNSTAE 04131000 TCB33E EQU TCBNSTAE 04132000 TCBQUIES EQU TCBNSTAE 04133000 TCBSTABE EQU TCBNSTAE 04134000 TCBAQE EQU TCB+156 04135000 TCBPQE EQU TCB+152 04136000 TCBTSDP EQU TCB+151 04137000 TCBTSLP EQU TCB+150 04138000 TCBSTPCT EQU TCB+149 04139000 TCBCPUBN EQU TCBTSFLG 04140000 TCBDYDSP EQU TCBTSFLG 04141000 TCBRSV18 EQU TCBTSFLG 04142000 TCBRSV17 EQU TCBTSFLG 04143000 TCBTIOTG EQU TCBTSFLG 04144000 TCBATT EQU TCBTSFLG 04145000 TCBSTPPR EQU TCBTSFLG 04146000 TCBRV300 EQU TCBTSTSK 04147000 TCBECB EQU TCB+144 04148000 TCBIQE EQU TCB+140 04149000 TCBLTC EQU TCB+136 04150000 TCBOTC EQU TCB+132 04151000 TCBNTC EQU TCB+128 04152000 TCBJSTCA EQU TCBJSTCB+1 04153000 TCBRSV16 EQU TCBJSTCB 04154000 TCBTQET EQU TCBTME 04155000 TCBTCB EQU TCB+116 04156000 TCBFSAB EQU TCBFSA+1 04157000 TCBQEL EQU TCBFSA 04158000 TCBGRS15 EQU TCBGRS+60 04159000 TCBGRS14 EQU TCBGRS+56 04160000 TCBGRS13 EQU TCBGRS+52 04161000 TCBGRS12 EQU TCBGRS+48 04162000 TCBGRS11 EQU TCBGRS+44 04163000 TCBGRS10 EQU TCBGRS+40 04164000 TCBGRS9 EQU TCBGRS+36 04165000 TCBGRS8 EQU TCBGRS+32 04166000 TCBGRS7 EQU TCBGRS+28 04167000 TCBGRS6 EQU TCBGRS+24 04168000 TCBGRS5 EQU TCBGRS+20 04169000 TCBGRS4 EQU TCBGRS+16 04170000 TCBGRS3 EQU TCBGRS+12 04171000 TCBGRS2 EQU TCBGRS+8 04172000 TCBGRS1 EQU TCBGRS+4 04173000 TCBGRS0 EQU TCBGRS 04174000 TCBJPQB EQU TCBJPQ+1 04175000 TCBRSV15 EQU TCBPURGE 04176000 TCBRSV14 EQU TCBPURGE 04177000 TCBRSV13 EQU TCBPURGE 04178000 TCBRSV12 EQU TCBPURGE 04179000 TCBRSV11 EQU TCBPURGE 04180000 TCBRSV10 EQU TCBPURGE 04181000 TCBRSV09 EQU TCBPURGE 04182000 TCBJPQF EQU TCBPURGE 04183000 TCBJLB EQU TCB+40 04184000 TCBLLS EQU TCB+36 04185000 TCBDSP EQU TCB+35 04186000 TCBLMP EQU TCB+34 04187000 TCBPNDSP EQU TCBFLGS5 04188000 TCBFCD1 EQU TCBFLGS5 04189000 TCBSTP EQU TCBFLGS5 04190000 TCBSYS EQU TCBFLGS5 04191000 TCBANDSP EQU TCBFLGS5 04192000 TCBPAGE EQU TCBFLGS5 04193000 TCBUXNDF EQU TCBABWF 04194000 TCBFC EQU TCBFLGS5 04195000 TCBONDSP EQU TCBFLGS4 04196000 TCBMPCND EQU TCBFLGS4 04197000 TCBMPCVQ EQU TCBFLGS4 04198000 TCBUXNDV EQU TCBFLGS4 04199000 TCBHNDSP EQU TCBFLGS4 04200000 TCBRQENA EQU TCBFLGS4 04201000 TCBSER EQU TCBFLGS4 04202000 TCBNDUMP EQU TCBFLGS4 04203000 TCBDWSTA EQU TCBFLGS3 04204000 TCBRSV08 EQU TCBFLGS3 04205000 TCBRSV07 EQU TCBFLGS3 04206000 TCBRSV06 EQU TCBFLGS3 04207000 TCBABGM EQU TCBFLGS3 04208000 TCBABTRM EQU TCBFLGS3 04209000 TCBADINP EQU TCBFLGS3 04210000 TCBFSM EQU TCBFLGS3 04211000 TCBFTS EQU TCBFLGS2 04212000 TCBFETXR EQU TCBFLGS2 04213000 TCBFDSOP EQU TCBFLGS2 04214000 TCBFJMC EQU TCBFLGS2 04215000 TCBFSMC EQU TCBFLGS2 04216000 TCBFABOP EQU TCBFLGS2 04217000 TCBFSTI EQU TCBFLGS2 04218000 TCBFOINP EQU TCBFLGS2 04219000 TCBFX EQU TCBFLGS1 04220000 TCBFS EQU TCBFLGS1 04221000 TCBFT EQU TCBFLGS1 04222000 TCBPDUMP EQU TCBFLGS1 04223000 TCBNONPR EQU TCBFLGS1 04224000 TCBFERA EQU TCBFLGS1 04225000 TCBFE EQU TCBFLGS1 04226000 TCBFA EQU TCBFLGS1 04227000 TCBZERO EQU TCBPKF 04228000 TCBFLAG EQU TCBPKF 04229000 TCBMSSB EQU TCBMSS+1 04230000 TCBRSV03 EQU TCBMSS 04231000 TCBTRNB EQU TCBTRN+1 04232000 TCBRSV02 EQU TCBABF 04233000 TCBOLTEP EQU TCBABF 04234000 TCBTCP EQU TCBABF 04235000 TCBTCPP EQU TCBABF 04236000 TCBRSV01 EQU TCBABF 04237000 TCBGRPH EQU TCBABF 04238000 TCBNOCHK EQU TCBABF 04239000 TCBMOD91 EQU TCBABF 04240000 TCBCMPC EQU TCBCMP+1 04241000 TCBRV318 EQU TCBCMSG 04242000 TCBRV317 EQU TCBCIND 04243000 TCBRV316 EQU TCBCWTO 04244000 TCBCASID EQU TCBCDBL 04245000 TCBNOCC EQU TCBSTCC 04246000 TCBDMPO EQU TCBCPP 04247000 TCBCSTEP EQU TCBCMPF 04248000 TCBCREQ EQU TCBCMPF 04249000 TCBTIO EQU TCB+12 04250000 TCBDEB EQU TCB+8 04251000 TCBPIEA EQU TCBPIE+1 04252000 TCBPM EQU TCBPMASK 04253000 @NM00003 EQU TCBPMASK 04254000 TCBRBP EQU TCB 04255000 TCBFRS6 EQU TCBFRS+24 04256000 TCBFRS4 EQU TCBFRS+16 04257000 TCBFRS2 EQU TCBFRS+8 04258000 TCBFRS0 EQU TCBFRS 04259000 CVTLEVL EQU CVTRELNO+2 04260000 CVTNUMB EQU CVTRELNO 04261000 CVTMDL EQU CVTFIX+250 04262000 @NM00002 EQU CVTFIX+248 04263000 @NM00001 EQU CVTFIX 04264000 CVTRV482 EQU CVTXTNT2+128 04265000 CVTRV481 EQU CVTXTNT2+124 04266000 CVTRV480 EQU CVTXTNT2+120 04267000 CVTRV479 EQU CVTXTNT2+118 04268000 CVTRV478 EQU CVTXTNT2+117 04269000 CVTRV477 EQU CVTXTNT2+116 04270000 CVTRV476 EQU CVTXTNT2+115 04271000 CVTRV475 EQU CVTXTNT2+114 04272000 CVTRV474 EQU CVTRV466 04273000 CVTRV473 EQU CVTRV466 04274000 CVTRV472 EQU CVTRV466 04275000 CVTRV471 EQU CVTRV466 04276000 CVTRV470 EQU CVTRV466 04277000 CVTRV469 EQU CVTRV466 04278000 CVTRV468 EQU CVTRV466 04279000 CVTRV467 EQU CVTRV466 04280000 CVTRV465 EQU CVTRV457 04281000 CVTRV464 EQU CVTRV457 04282000 CVTRV463 EQU CVTRV457 04283000 CVTRV462 EQU CVTRV457 04284000 CVTRV461 EQU CVTRV457 04285000 CVTRV460 EQU CVTRV457 04286000 CVTRV459 EQU CVTRV457 04287000 CVTRV458 EQU CVTRV457 04288000 CVTRV456 EQU CVTXTNT2+108 04289000 CVTRV455 EQU CVTXTNT2+104 04290000 CVTRV454 EQU CVTXTNT2+100 04291000 CVTRV453 EQU CVTXTNT2+96 04292000 CVTRV452 EQU CVTXTNT2+94 04293000 CVTRV451 EQU CVTXTNT2+92 04294000 CVTRV450 EQU CVTXTNT2+90 04295000 CVTRV449 EQU CVTXTNT2+88 04296000 CVTRV448 EQU CVTXTNT2+87 04297000 CVTRV447 EQU CVTXTNT2+86 04298000 CVTRV446 EQU CVTRV438 04299000 CVTRV445 EQU CVTRV438 04300000 CVTRV444 EQU CVTRV438 04301000 CVTRV443 EQU CVTRV438 04302000 CVTRV442 EQU CVTRV438 04303000 CVTRV441 EQU CVTRV438 04304000 CVTRV440 EQU CVTRV438 04305000 CVTRV439 EQU CVTRV438 04306000 CVTRV437 EQU CVTRV429 04307000 CVTRV436 EQU CVTRV429 04308000 CVTRV435 EQU CVTRV429 04309000 CVTRV434 EQU CVTRV429 04310000 CVTRV433 EQU CVTRV429 04311000 CVTRV432 EQU CVTRV429 04312000 CVTRV431 EQU CVTRV429 04313000 CVTRV430 EQU CVTRV429 04314000 CVTRV428 EQU CVTXTNT2+80 04315000 CVTRV427 EQU CVTXTNT2+76 04316000 CVTRV426 EQU CVTXTNT2+72 04317000 CVTRV425 EQU CVTXTNT2+68 04318000 CVTATACT EQU CVTATCVT 04319000 CVTRV423 EQU CVTXTNT2+62 04320000 CVTRV422 EQU CVTXTNT2+60 04321000 CVTRV421 EQU CVTXTNT2+58 04322000 CVTRV420 EQU CVTXTNT2+56 04323000 CVTRV419 EQU CVTXTNT2+55 04324000 CVTRV418 EQU CVTXTNT2+54 04325000 CVTRV417 EQU CVTRV409 04326000 CVTRV416 EQU CVTRV409 04327000 CVTRV415 EQU CVTRV409 04328000 CVTRV414 EQU CVTRV409 04329000 CVTRV413 EQU CVTRV409 04330000 CVTRV412 EQU CVTRV409 04331000 CVTRV411 EQU CVTRV409 04332000 CVTRV410 EQU CVTRV409 04333000 CVTRV408 EQU CVTRV400 04334000 CVTRV407 EQU CVTRV400 04335000 CVTRV406 EQU CVTRV400 04336000 CVTRV405 EQU CVTRV400 04337000 CVTRV404 EQU CVTRV400 04338000 CVTRV403 EQU CVTRV400 04339000 CVTRV402 EQU CVTRV400 04340000 CVTRV401 EQU CVTRV400 04341000 CVTICB EQU CVTXTNT2+48 04342000 CVTSKTA EQU CVTXTNT2+44 04343000 CVTSHSB EQU CVTSHS 04344000 CVTRSV98 EQU CVTXTNT2+36 04345000 CVTRSV97 EQU CVTXTNT2+34 04346000 CVTRSV96 EQU CVTXTNT2+32 04347000 CVTOLTEP EQU CVTXTNT2+28 04348000 CVTQIDA EQU CVTQID+1 04349000 CVTRSV95 EQU CVTQID 04350000 CVTRSV94 EQU CVTXTNT2+20 04351000 CVTRSV93 EQU CVTXTNT2+16 04352000 CVTRSV92 EQU CVTXTNT2+12 04353000 CVTDEBVR EQU CVTXTNT2+8 04354000 CVTRSV91 EQU CVTXTNT2+6 04355000 CVTRSV9H EQU CVTFLGBT 04356000 CVTRSV9G EQU CVTFLGBT 04357000 CVTRSV9F EQU CVTFLGBT 04358000 CVTRSV9E EQU CVTFLGBT 04359000 CVTRSV9D EQU CVTFLGBT 04360000 CVTRSV9C EQU CVTFLGBT 04361000 CVTVME EQU CVTFLGBT 04362000 CVTNPE EQU CVTFLGBT 04363000 CVTNUCLS EQU CVTXTNT2+4 04364000 CVTDSSVA EQU CVTDSSV+1 04365000 CVTRSV89 EQU CVTDSSV 04366000 CVTRSV88 EQU CVTXTNT1+8 04367000 CVTRSV87 EQU CVTXTNT1+4 04368000 CVTFACHN EQU CVTXTNT1 04369000 CVTRV488 EQU CVTMAP+412 04370000 CVTRV487 EQU CVTMAP+408 04371000 CVTRV486 EQU CVTMAP+404 04372000 CVTRV485 EQU CVTMAP+400 04373000 CVTACTAP EQU CVTMAP+396 04374000 CVTAUTH EQU CVTMAP+392 04375000 CVTATMCA EQU CVTATMCT+1 04376000 CVTATMST EQU CVTATMCT 04377000 CVTRSV61 EQU CVTMAP+384 04378000 CVTVOLT1 EQU CVTVOLM1+1 04379000 CVTVOLI1 EQU CVTVOLF1 04380000 CVTSTOA EQU CVTMAP+376 04381000 CVTRSV58 EQU CVTMAP+374 04382000 CVTRSV57 EQU CVTMAP+372 04383000 CVTDDCE EQU CVTMAP+368 04384000 CVTPNWFR EQU CVTMAP+364 04385000 CVTSMF EQU CVTMAP+360 04386000 CVTSULK EQU CVTMAP+358 04387000 CVTSLKO EQU CVTSYSK 04388000 CVTSLKP EQU CVTSYSK 04389000 CVTSLKQ EQU CVTSYSK 04390000 CVTSLKR EQU CVTSYSK 04391000 CVTRSV56 EQU CVTSYSK 04392000 CVTRSV55 EQU CVTSYSK 04393000 CVTRSV54 EQU CVTSYSK 04394000 CVTRSV53 EQU CVTSYSK 04395000 CVTRSV52 EQU CVTA1F1 04396000 CVTRSV51 EQU CVTA1F1 04397000 CVTRSV50 EQU CVTA1F1 04398000 CVTRSV49 EQU CVTA1F1 04399000 CVTRSV48 EQU CVTA1F1 04400000 CVTRSV47 EQU CVTA1F1 04401000 CVTSRSW EQU CVTA1F1 04402000 CVTPFSW EQU CVTA1F1 04403000 CVTPCVT EQU CVTMAP+352 04404000 CVTRSV46 EQU CVTMAP+344 04405000 CVTRSV45 EQU CVTMAP+340 04406000 CVTRSV44 EQU CVTMAP+338 04407000 CVTRSV43 EQU CVTMAP+336 04408000 CVTHJESA EQU CVTHJES+1 04409000 CVTRSV42 EQU CVTHJES 04410000 CVTEXT2A EQU CVTEXT2+1 04411000 CVTRSV41 EQU CVTEXT2 04412000 CVTAPFA EQU CVTAPF+1 04413000 CVTRSV40 EQU CVTAPF 04414000 CVTRV518 EQU CVTINTLA 04415000 CVTRV517 EQU CVTERPV 04416000 CVTEORM EQU CVTMAP+312 04417000 CVTMCHPR EQU CVTMAP+308 04418000 CVTTZ EQU CVTMAP+304 04419000 CVTJEPS EQU CVTMAP+300 04420000 CVTJESCT EQU CVTMAP+296 04421000 CVTMODE EQU CVTMAP+292 04422000 CVTPTRV EQU CVTMAP+288 04423000 CVTREAL EQU CVTMAP+284 04424000 CVTRSV39 EQU CVTMAP+280 04425000 CVTRSV38 EQU CVTMAP+276 04426000 CVTDMSRA EQU CVTDMSR+1 04427000 CVTRV634 EQU CVTDMSRF 04428000 CVTRV633 EQU CVTDMSRF 04429000 CVTRV632 EQU CVTDMSRF 04430000 CVTRV631 EQU CVTDMSRF 04431000 CVTRV630 EQU CVTDMSRF 04432000 CVTRV629 EQU CVTDMSRF 04433000 CVTUDUMP EQU CVTDMSRF 04434000 CVTSDUMP EQU CVTDMSRF 04435000 CVTQMSGA EQU CVTQMSG+1 04436000 CVTRSV36 EQU CVTQMSG 04437000 CVTAMFF EQU CVTMAP+264 04438000 CVTPURGA EQU CVTPURG+1 04439000 CVTRSV35 EQU CVTPURG 04440000 CVTCBSP EQU CVTMAP+256 04441000 CVTATERA EQU CVTATER+1 04442000 CVTSYST EQU CVTATER 04443000 CVTVOLT2 EQU CVTTAT 04444000 CVTVOLI2 EQU CVTVOLF2 04445000 CVTAQAVB EQU CVTAQAVT+1 04446000 CVTRSV34 EQU CVTTCMFG 04447000 CVTRSV33 EQU CVTTCMFG 04448000 CVTRSV32 EQU CVTTCMFG 04449000 CVTRSV31 EQU CVTTCMFG 04450000 CVTRSV30 EQU CVTTCMFG 04451000 CVTRSV29 EQU CVTTCMFG 04452000 CVTRSV28 EQU CVTTCMFG 04453000 CVTTCRDY EQU CVTTCMFG 04454000 CVTGTFA EQU CVTGTF+1 04455000 CVTRSV27 EQU CVTGTFST 04456000 CVTRNIO EQU CVTGTFST 04457000 CVTUSR EQU CVTGTFST 04458000 CVTRV318 EQU CVTFORM 04459000 CVTRV317 EQU CVTTMODE 04460000 CVTRV316 EQU CVTSTATE 04461000 CVTRV315 EQU CVTGTFS 04462000 CVTGTFAV EQU CVTGTFS 04463000 CVT0SCR1 EQU CVTMAP+232 04464000 CVTRV515 EQU CVTMAP+228 04465000 CVTRMS EQU CVTMAP+224 04466000 CVTPATCH EQU CVTMAP+220 04467000 CVTTSCE EQU CVTMAP+216 04468000 CVTLNKSC EQU CVTMAP+214 04469000 CVTQABST EQU CVTMAP+212 04470000 CVTMDLDS EQU CVTMAP+208 04471000 CVTUSER EQU CVTMAP+204 04472000 CVTABEND EQU CVTMAP+200 04473000 CVTSMCA EQU CVTMAP+196 04474000 CVTRSV18 EQU CVTMAP+192 04475000 CVTQLPAQ EQU CVTMAP+188 04476000 CVTQCDSR EQU CVTMAP+184 04477000 CVTRSV17 EQU CVTOPTB 04478000 CVTRSV16 EQU CVTOPTB 04479000 CVTFP EQU CVTOPTB 04480000 CVTAPTHR EQU CVTOPTB 04481000 CVTNLOG EQU CVTOPTB 04482000 CVTTOD EQU CVTOPTB 04483000 CVTCTIMS EQU CVTOPTB 04484000 CVTPROT EQU CVTOPTB 04485000 CVTXPFP EQU CVTOPTA 04486000 CVTASCII EQU CVTOPTA 04487000 CVTRSV13 EQU CVTOPTA 04488000 CVTRSV12 EQU CVTOPTA 04489000 CVTNIP EQU CVTOPTA 04490000 CVTDDR EQU CVTOPTA 04491000 CVTAPR EQU CVTOPTA 04492000 CVTCCH EQU CVTOPTA 04493000 CVTSNCTR EQU CVTMAP+180 04494000 CVTQMWR EQU CVTMAP+176 04495000 CVTQOCR EQU CVTMAP+172 04496000 CVT1EF00 EQU CVTMAP+168 04497000 CVTMZ00 EQU CVTMAP+164 04498000 CVTHEAD EQU CVTMAP+160 04499000 CVTRSV11 EQU CVTMAP+156 04500000 CVT0PT01 EQU CVTMAP+152 04501000 CVTMSER EQU CVTMAP+148 04502000 CVTRV516 EQU CVTIERLC 04503000 CVTILCH EQU CVTMAP+140 04504000 CVT0DS EQU CVTMAP+136 04505000 CVTFBOSV EQU CVTMAP+132 04506000 CVTNUCB EQU CVTMAP+128 04507000 CVTIXAVL EQU CVTMAP+124 04508000 CVTIOQET EQU CVTMAP+120 04509000 CVTDCBA EQU CVTMAP+117 04510000 CVTMVS2 EQU CVTDCB 04511000 CVT6DAT EQU CVTDCB 04512000 CVT4MPS EQU CVTDCB 04513000 CVTRSV09 EQU CVTDCB 04514000 CVT4MS1 EQU CVTDCB 04515000 CVT2SPS EQU CVTDCB 04516000 CVT1SSS EQU CVTDCB 04517000 CVTRSV08 EQU CVTDCB 04518000 CVTSTB EQU CVTMAP+112 04519000 CVTQTD00 EQU CVTMAP+108 04520000 CVTQTE00 EQU CVTMAP+104 04521000 CVTCUCB EQU CVTMAP+100 04522000 CVTSJQ EQU CVTMAP+96 04523000 CVTPBLDL EQU CVTMAP+92 04524000 CVTTPC EQU CVTMAP+88 04525000 CVTSVDCB EQU CVTMAP+84 04526000 CVTBRET EQU CVTMAP+82 04527000 CVTEXIT EQU CVTMAP+80 04528000 CVT0FN00 EQU CVTMAP+76 04529000 CVTDARA EQU CVTDAR+1 04530000 CVTRSV07 EQU CVTFLGS1 04531000 CVTRSV06 EQU CVTFLGS1 04532000 CVTRSV05 EQU CVTFLGS1 04533000 CVTRSV04 EQU CVTFLGS1 04534000 CVTRSV03 EQU CVTFLGS1 04535000 CVTRSV02 EQU CVTFLGS1 04536000 CVTRSV01 EQU CVTFLGS1 04537000 CVTDMPLK EQU CVTFLGS1 04538000 CVTXITP EQU CVTMAP+68 04539000 CVTZDTAB EQU CVTMAP+64 04540000 CVTMSLT EQU CVTMAP+60 04541000 CVTDATE EQU CVTMAP+56 04542000 CVTBTERM EQU CVTMAP+52 04543000 CVTSYSAD EQU CVTMAP+48 04544000 CVTXTLER EQU CVTMAP+44 04545000 CVTILK2 EQU CVTMAP+40 04546000 CVTILK1 EQU CVTMAP+36 04547000 CVTPRLTV EQU CVTMAP+32 04548000 CVTPCNVT EQU CVTMAP+28 04549000 CVT0VL00 EQU CVTMAP+24 04550000 CVTXAPG EQU CVTMAP+20 04551000 CVTBUF EQU CVTMAP+16 04552000 CVTJOB EQU CVTMAP+12 04553000 CVTLINK EQU CVTMAP+8 04554000 CVT0EF00 EQU CVTMAP+4 04555000 CVT EQU CVTMAP 04556000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04557000 @RT00248 EQU PREEXIT 04558000 @RT00251 EQU LOADFAIL 04559000 @RT00254 EQU PREEXIT 04560000 @RT00257 EQU PREEXIT 04561000 @RC00245 EQU @RC00242 04562000 @RT00277 EQU EXIT 04563000 @RT00386 EQU GETFAIL 04564000 @RT00526 EQU FAILMSG 04565000 @RT00530 EQU FAILMSG 04566000 @RT00538 EQU FAILMSG2 04567000 @RT00545 EQU FAILMSG2 04568000 @ENDDATA EQU * 04569000 END ISTINM01,(C'PLS0441',0603,76018) 04570000