TITLE 'ISTRAMA3 - TASK TERMINATION ESTAE VS2-VTAM *00001000 ' 00002000 ISTRAMA3 CSECT 00003000 DS 0H 00004000 ENTRY ISTRAMA3 00005000 USING ISTRAMA3,R15 00006000 * IF SDWSWCH0^=RC12 /* IF SDWA EXISTS,SAVE REGS, */ 00007000 * THEN /* SET UP POINTERS TO RMWA */ 00008000 C SDWSWCH0,@CF02023 0263 00009000 BE @RF00263 0263 00010000 * DO; /* SDWA, MOVE RMWA FOR */ 00011000 * GEN(STM 14,12,12(13)); /* RECORDING */ 00012000 STM 14,12,12(13) 00013000 * SDWAPTR7=R1; 0266 00014000 LR SDWAPTR7,R1 0266 00015000 * RMWAPTR2=SDWAPARM; 0267 00016000 L RMWAPTR2,SDWAPARM(,SDWAPTR7) 0267 00017000 * MVC(SDWARECP,MODULEID); 0268 00018000 MVC SDWARECP(24,SDWAPTR7),@CC03441 0268 00019000 * SDWAURAL=LENGTH(RMWA); 0269 00020000 MVI SDWAURAL(SDWAPTR7),X'40' 0269 00021000 * GEN CODE REFS(SDWAPTR7,SDWAPARM,SDWAVRA,RMWA,RMWAPTR2); 0270 00022000 MVC SDWAVRA(64,7),RMWA(2) 00023000 * END; 0271 00024000 * ELSE 0272 00025000 * ; 0272 00026000 * 0272 00027000 @RF00263 DS 0H 0273 00028000 */* CHANGE BASE FOR MODULE NOW THAT REGS HAVE BEEN SAVED */ 00029000 * 0273 00030000 * GEN; 0273 00031000 * 0273 00032000 LR 9,15 00033000 USING ISTRAMA3,9 00034000 DROP 15 00035000 */* */ 00036000 * 0274 00037000 * RMWSV0=SDWSWCH0; /* SAVE REGISTERS 0,13 & 14 */ 00038000 ST SDWSWCH0,RMWSV0(,RMWAPTR2) 0274 00039000 * RFY 0275 00040000 * SDWSWCH0 UNRSTD; /* FOR USE AT RETURN */ 00041000 * RMWSV13=R13; 0276 00042000 ST R13,RMWSV13(,RMWAPTR2) 0276 00043000 * RMWSV14=R14; /* NOTE THAT RMWA IS NOW */ 00044000 ST R14,RMWSV14(,RMWAPTR2) 0277 00045000 * RFY 0278 00046000 * R13 UNRSTD; /* BASED ON RMWAPTR2, WHICH */ 00047000 * RFY 0279 00048000 * R14 UNRSTD; /* HAS BEEN SET IF NECESSARY */ 00049000 */* CODE FOR GETMAIN FOR AREA */ 00050000 * 0280 00051000 * RFY 0280 00052000 * (R0, 0280 00053000 * R1, 0280 00054000 * R15) RSTD; 0280 00055000 * R0=LENGTH(REGSAVE); 0281 00056000 LA R0,72 0281 00057000 * GEN CODE REFS(R0) SETS(R1,R15); 0282 00058000 GETMAIN RC,LV=(0) 00059000 * RFY 0283 00060000 * R12 RSTD; 0283 00061000 * IF R15^=0 THEN 0284 00062000 LTR R15,R15 0284 00063000 BZ @RF00284 0284 00064000 * R12=0; 0285 00065000 SLR R12,R12 0285 00066000 * ELSE 0286 00067000 * R12=R1; 0286 00068000 B @RC00284 0286 00069000 @RF00284 LR R12,R1 0286 00070000 * RFY 0287 00071000 * R15 UNRSTD; /* ADDRESS OF MAIN IN REG 12 */ 00072000 @RC00284 DS 0H 0288 00073000 */* */ 00074000 */* CODE FOR SDUMP */ 00075000 */* */ 00076000 * 0288 00077000 * IF R12^=0 THEN 0288 00078000 SLR @08,@08 0288 00079000 CR R12,@08 0288 00080000 BE @RF00288 0288 00081000 * DO; 0289 00082000 * RMWMSGW=ALLBLNK; 0290 00083000 MVC RMWMSGW(8,RMWAPTR2),@CC03437 0290 00084000 * RMWMSGX=ALLBLNK; 0291 00085000 MVC RMWMSGX(8,RMWAPTR2),@CC03437 0291 00086000 * IF RMWPSTA^=EMPTY THEN 0292 00087000 L @06,RMWPSTA(,RMWAPTR2) 0292 00088000 CR @06,@08 0292 00089000 BE @RF00292 0292 00090000 * DO; 0293 00091000 * RFY 0294 00092000 * TCBPTR RSTD; 0294 00093000 * TCBPTR=RMWPSTA->PSTTCBA; 0295 00094000 L TCBPTR,PSTTCBA(,@06) 0295 00095000 * RMWMSGW=TIOCNJOB; 0296 00096000 L @06,TCBTIO(,TCBPTR) 0296 00097000 MVC RMWMSGW(8,RMWAPTR2),TIOCNJOB(@06) 0296 00098000 * RMWMSGX=TIOCSTEP; 0297 00099000 MVC RMWMSGX(8,RMWAPTR2),TIOCSTEP(@06) 0297 00100000 * RFY 0298 00101000 * TCBPTR UNRSTD; 0298 00102000 * END; 0299 00103000 * ELSE 0300 00104000 * ; 0300 00105000 @RF00292 DS 0H 0301 00106000 * RFY 0301 00107000 * (R3, 0301 00108000 * R8, 0301 00109000 * R13) RSTD; 0301 00110000 * R3=ADDR(DMPMSG); 0302 00111000 LA R3,@CC03446 0302 00112000 * R13=R12; 0303 00113000 LR R13,R12 0303 00114000 * R8=ADDR(RMWMSGW); 0304 00115000 LA R8,RMWMSGW(,RMWAPTR2) 0304 00116000 * R12=ADDR(RMWPRMS); 0305 00117000 * 0305 00118000 LA R12,RMWPRMS(,RMWAPTR2) 0305 00119000 */*TPMSG MSGID((R3))MSG((R8))PLAREA((R12)) */ 00120000 * 0306 00121000 * DO; 0306 00122000 * DCL 0307 00123000 * REG1003 REG(1) PTR; 0307 00124000 * RFY 0308 00125000 * (REG1003) RSTD; 0308 00126000 * RFY 0309 00127000 * (EMCR13) RSTD; 0309 00128000 * DCL 0310 00129000 * 1 * BASED(REG1003), 0310 00130000 * 2 CMZID003 PTR(31), 0310 00131000 * 2 *, 0310 00132000 * 3 CMZRL003 PTR(8), 0310 00133000 * 3 CMZRA003 PTR(24) BDY(BYTE), 0310 00134000 * 2 CMZEA003 PTR(31), 0310 00135000 * 2 CMZVP003 PTR(31); 0310 00136000 * 0310 00137000 */*XREGSET PID('PLAREA')PPARM((R12))RREG(,REG1003) */ 00138000 * 0311 00139000 * DO; 0311 00140000 * REG1003=R12; /* SET RREG SYMBOL TO VALUE OF 0312 00141000 * PPARM OPERAND */ 00142000 LR REG1003,R12 0312 00143000 * END; /* XREGSET */ 00144000 * CMZID003=0; 0314 00145000 SLR @06,@06 0314 00146000 ST @06,CMZID003(,REG1003) 0314 00147000 * CMZRL003=0; 0315 00148000 MVI CMZRL003(REG1003),X'00' 0315 00149000 * CMZRA003=0; 0316 00150000 STCM @06,7,CMZRA003(REG1003) 0316 00151000 * CMZEA003=0; 0317 00152000 ST @06,CMZEA003(,REG1003) 0317 00153000 * CMZVP003=0; 0318 00154000 ST @06,CMZVP003(,REG1003) 0318 00155000 * CMZID003=R3; 0319 00156000 ST R3,CMZID003(,REG1003) 0319 00157000 * CMZVP003=R8; 0320 00158000 ST R8,CMZVP003(,REG1003) 0320 00159000 * DCL 0321 00160000 * CMZSA003(18) PTR(31) BASED(EMCR13); 0321 00161000 * DCL 0322 00162000 * CMZZO003(1) FIXED(31) INIT(0); 0322 00163000 * CMZSA003(5)=CMZZO003; 0323 00164000 L @06,CMZZO003 0323 00165000 ST @06,CMZSA003+16(,EMCR13) 0323 00166000 * DCL 0324 00167000 * REG15003 REG(15) PTR; 0324 00168000 * RFY 0325 00169000 * REG15003 RSTD; 0325 00170000 * DO; /* LISATCVT 0326 00171000 * CVTBASE(PAGEABLE,(REG15003)) */ 00172000 * REG15003=ATCLCPTR; /* SET UP ATCVT POINTER */ 00173000 L REG15003,ATCLCPTR 0327 00174000 * END; /* LISATCVT */ 00175000 * DCL 0329 00176000 * CMTA003 BASED(REG15003) ENTRY VALUERANGE(*); 0329 00177000 * REG15003=REG15003->ATCMSGP; 0330 00178000 L REG15003,ATCMSGP(,REG15003) 0330 00179000 * CALL CMTA003; 0331 00180000 BALR @14,@15 0331 00181000 * RESPECIFY 0332 00182000 * (REG1003, 0332 00183000 * REG15003) UNRESTRICTED; 0332 00184000 * RFY 0333 00185000 * (EMCR13) UNRSTD; 0333 00186000 * END; 0334 00187000 * R12=R13; 0335 00188000 LR R12,R13 0335 00189000 * RFY 0336 00190000 * (R3, 0336 00191000 * R8, 0336 00192000 * R13) UNRSTD; 0336 00193000 * END; 0337 00194000 * ELSE 0338 00195000 * DO; 0338 00196000 B @RC00288 0338 00197000 @RF00288 DS 0H 0339 00198000 * R1=ADDR(I04190); 0339 00199000 * 0339 00200000 LA R1,I04190 0339 00201000 */***** IWTO **** */ 00202000 * 0340 00203000 * DO; 0340 00204000 * GEN; 0341 00205000 WTO MF=(E,(1)) 00206000 * END; /* IWTO */ 00207000 * END; 0343 00208000 * R1=ADDR(DUMPPARM); 0344 00209000 @RC00288 LA R1,DUMPPARM 0344 00210000 * GEN CODE REFS(CVTPTR,CVTMAP,CVTSDMP,R1); 0345 00211000 SDUMP MF=(E,(1)) 00212000 * RFY 0346 00213000 * R1 UNRSTD; 0346 00214000 * 0346 00215000 */* */ 00216000 * 0347 00217000 * RFY 0347 00218000 * MPSTPTR6 RSTD; /* ESTABLISH MPST ADDRESSA- */ 00219000 * RFY 0348 00220000 * ISTMPST BASED(MPSTPTR6); /* BILITY AND INITIALIZE */ 00221000 * MPSTPTR6=RMWMPSA; /* ITS BASE REGISTER */ 00222000 L MPSTPTR6,RMWMPSA(,RMWAPTR2) 0349 00223000 */* */ 00224000 * 0350 00225000 * IF(RMWTPQD=ON)&(MPSTPTR6^=EMPTY)/* VTT STARTED & MPST EXIST? */ 00226000 * THEN 0350 00227000 TM RMWTPQD(RMWAPTR2),B'10000000' 0350 00228000 BNO @RF00350 0350 00229000 LTR MPSTPTR6,MPSTPTR6 0350 00230000 BZ @RF00350 0350 00231000 * DO; /* VTT HAS BEEN INITIATED */ 00232000 * IF RMWFREE=OFF /* IS MPST TO BE RELEASED? */ 00233000 * THEN /* IS MPST TO BE RELEASED ? */ 00234000 TM RMWFREE(RMWAPTR2),B'01000000' 0352 00235000 BNZ @RF00352 0352 00236000 * DO; 0353 00237000 * IF MPSRQUEG=OFF /* LOOK FOR MPST GATING */ 00238000 * THEN 0354 00239000 TM MPSRQUEG(MPSTPTR6),B'10000000' 0354 00240000 BZ @RT00354 0354 00241000 * ; /* IF NOT GATED, NO PROCESS */ 00242000 * ELSE /* TEST FOR GATED EMPTY */ 00243000 * DO; /* IF THAT CASE UNGATE QUEUE */ 00244000 * RFY 0357 00245000 * (SWAPREG4, 0357 00246000 * COMPREG5) RSTD; 0357 00247000 * IF RMWGTOWN=ON /* DO WE OWN MPST READY Q GATE ? 00248000 * @ZM42154*/ 00249000 * THEN 0358 00250000 TM RMWGTOWN(RMWAPTR2),B'00010000' 0358 00251000 BNO @RF00358 0358 00252000 * DO; /* YES, THEN WE CAN UNGATE IT 0359 00253000 * @ZM42154*/ 00254000 * COMPREG5=MPSFLGA;/* GET MPST FLAG TO CHANGE 0360 00255000 * @ZM42154*/ 00256000 L COMPREG5,MPSFLGA(,MPSTPTR6) 0360 00257000 *OWNLP: 0361 00258000 * SWAPREG4=COMPREG5&MPSRMGT0;/* TURN OFF INDICATOR 00259000 * THAT RESOURCE MANAGER GATED 0361 00260000 * THE READY Q @ZM42154*/ 00261000 OWNLP LR SWAPREG4,COMPREG5 0361 00262000 N SWAPREG4,@CF03508 0361 00263000 * CS(SWAPREG4,COMPREG5,MPSFLGA);/* TURN OFF IN MPST 00264000 * @ZM42154*/ 00265000 CS SWAPREG4,@05,MPSFLGA(MPSTPTR6) 0362 00266000 * BC(FAIL,OWNLP); /* IF FAIL, TRY AGAIN @ZM42154*/ 00267000 BC 7,OWNLP 0363 00268000 * RMWGTOWN=OFF; /* IND. WE NO LONGER OWN MPST 0364 00269000 * @ZM42154*/ 00270000 * RMWGTOWN=OFF; /* IND. WE NO LONGER OWN MPST 0365 00271000 * @ZM42154*/ 00272000 NI RMWGTOWN(RMWAPTR2),B'11101111' 0365 00273000 * SWAPREG4=EMPTY; 0366 00274000 SLR SWAPREG4,SWAPREG4 0366 00275000 * COMPREG5=GATEONLY;/* SET UP FOR CS TO UNGATE Q */ 00276000 L COMPREG5,@CF01865 0367 00277000 * CS(COMPREG5,SWAPREG4,MPSRQUE);/* AND DO CS */ 00278000 CS COMPREG5,@04,MPSRQUE(MPSTPTR6) 0368 00279000 * BC(SUCCESS,OUTLOOP);/* IF SUCCESS,SKIP SCHED */ 00280000 BC 8,OUTLOOP 0369 00281000 * RFY 0370 00282000 * (SWAPREG4, 0370 00283000 * COMPREG5) UNRSTD; 0370 00284000 * RFY 0371 00285000 * ADDSRB4 RSTD; 0371 00286000 * ADDSRB4=MPSSRB55; 0372 00287000 L ADDSRB4,MPSSRB55(,MPSTPTR6) 0372 00288000 * GEN CODE REFS(ADDSRB4,CVTLSMQ,SRBFLNK,SRBSECT, 0373 00289000 * CVTPTR); 0373 00290000 SCHEDULE SRB=(ADDSRB4),SCOPE=LOCAL 00291000 * END; /* END OF READY Q NOT EMPTY */ 00292000 * END; /* END WE CAN UNGATE THE READY Q 00293000 * @ZM42154*/ 00294000 @RF00358 DS 0H 0376 00295000 * RFY 0376 00296000 * ADDSRB4 UNRSTD; /* AND END OF MPST TO BE KEPT */ 00297000 @RT00354 DS 0H 0377 00298000 * END; /* IF MPST WAS TO BE RELEASED */ 00299000 * ELSE 0378 00300000 * ; /* NO ACTION NEEDED HERE */ 00301000 @RF00352 DS 0H 0379 00302000 *OUTLOOP: 0379 00303000 * END; /* END OF VTT INITIATED PATH */ 00304000 * ELSE /* IF SCHEDULING OF VTT NOT */ 00305000 * DO; /* YET DONE AND MPST EXISTS */ 00306000 B @RC00350 0380 00307000 @RF00350 DS 0H 0381 00308000 * IF MPSTPTR6^=EMPTY /* TRY TO REMOVE DEBS FOR AB- */ 00309000 * THEN /* ENDING TASK,MARK RDTES OFF */ 00310000 LTR MPSTPTR6,MPSTPTR6 0381 00311000 BZ @RF00381 0381 00312000 * DO; /* LINE AND NOTIFY SYSTEM NOT */ 00313000 *LOKIT: /* TO RESTART APPLS */ 00314000 * GEN CODE REFS(R0,R1,R15,R14,PSALITA,FLC); 0383 00315000 LOKIT DS 0H 0383 00316000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND,RELATED=(RAMA3(UNLK)), X00317000 REGS=USE 00318000 * RFY 0384 00319000 * (OLDDCE4, 0384 00320000 * PREVDCE5) RSTD; /* SET UP ADDRESSABILITY FOR */ 00321000 * RFY 0385 00322000 * ISTDCE BASED(OLDDCE4);/* VARIOUS CONTROL BLOCKS */ 00323000 * RFY 0386 00324000 * ISTACDEB BASED(DCEDBPTR);/* USED IN FINDING AND INACT- */ 00325000 * RFY 0387 00326000 * ISTRDT BASED(ACDRDTE);/* IVATING APPLS */ 00327000 * RFY 0388 00328000 * ISTRAP BASED(ACDRDTE); 0388 00329000 * RFY 0389 00330000 * ISTRPRE BASED(ACDRDTE); 0389 00331000 * 0389 00332000 */* */ 00333000 * 0390 00334000 * IF MPSDBTBL^=EMPTY /* TEST FOR ANY OPEN APPLS */ 00335000 * THEN /* IN THIS MEMORY */ 00336000 L @08,MPSDBTBL(,MPSTPTR6) 0390 00337000 LTR @08,@08 0390 00338000 BZ @RF00390 0390 00339000 * DO; /* AT LEAST ONE EXISTS */ 00340000 * PREVDCE5=ADDR(MPSDBTBL)-4;/* SET UP POINTER TO ANCHOR*/ 00341000 LA PREVDCE5,MPSDBTBL(,MPSTPTR6) 0392 00342000 SL PREVDCE5,@CF00035 0392 00343000 * OLDDCE4=MPSDBTBL; /* AND TO FIRST DCE */ 00344000 LR OLDDCE4,@08 0393 00345000 * DO UNTIL OLDDCE4=EMPTY;/* LOOP TO CHAIN THROUGH DCES */ 00346000 @DL00394 DS 0H 0395 00347000 * IF ACDTSKID=RMWPSTA/* IS DEB FOR ABENDING TASK */ 00348000 * THEN 0395 00349000 L @08,DCEDBPTR(,OLDDCE4) 0395 00350000 CLC ACDTSKID(4,@08),RMWPSTA(RMWAPTR2) 0395 00351000 BNE @RF00395 0395 00352000 * DO; /* DEB FOUND FOR TASK ABENDED */ 00353000 * RFY 0397 00354000 * TCBPTR RSTD; 0397 00355000 * TCBPTR=ACDTCBAD;/* GET POINTER TO TCB */ 00356000 L @03,DCEDBPTR(,OLDDCE4) 0398 00357000 L TCBPTR,ACDTCBAD(,@03) 0398 00358000 * MVC(RMWMSGV,ALLBLNK);/* CLEAR APPL NAME AND SET*/ 00359000 MVC RMWMSGV(8,RMWAPTR2),@CC03437 0399 00360000 * RMWMSFL=ON; /* FLAG SHOWING NO DEB */ 00361000 OI RMWMSFL(RMWAPTR2),B'00100000' 0400 00362000 * IF ACDRDTE^=0&/* CHECK THAT RDTE ACCESSIBLE 0401 00363000 * @ZM42035*/ 00364000 * RAPACDEB=DCEDBPTR&/* DEB/RDTE IN SYNCH AND 00365000 * @ZM42035*/ 00366000 * RPRONLIN=ON THEN/* RDTE IS ONLINE @ZM42035*/ 00367000 SLR @15,@15 0401 00368000 L @14,ACDRDTE(,@03) 0401 00369000 CR @14,@15 0401 00370000 BE @RF00401 0401 00371000 C @03,RAPACDEB(,@14) 0401 00372000 BNE @RF00401 0401 00373000 TM RPRONLIN(@14),B'00001000' 0401 00374000 BNO @RF00401 0401 00375000 * DO; /* RDTE ON-LINE,IN SYNCH PATH */ 00376000 * RPRONLIN=OFF;/* MARK IF OFF-LINE SO */ 00377000 NI RPRONLIN(@14),B'11110111' 0403 00378000 * RPRLGONF=EMPTY;/* HALT WONT HANG */ 00379000 ST @15,RPRLGONF(,@14) 0404 00380000 * RMWMSFL=OFF;/* MARK FLAG DEB FOUND */ 00381000 NI RMWMSFL(RMWAPTR2),B'11011111' 0405 00382000 * RMWMSGV=RPRNAME;/* MOVE APPL NAME TO 0406 00383000 * MESSAGE */ 00384000 MVC RMWMSGV(8,RMWAPTR2),RPRNAME(@14) 0406 00385000 * RMWMSGW=TIOCNJOB; 0407 00386000 L @03,TCBTIO(,TCBPTR) 0407 00387000 MVC RMWMSGW(8,RMWAPTR2),TIOCNJOB(@03) 0407 00388000 * RMWMSGX=TIOCSTEP; 0408 00389000 MVC RMWMSGX(8,RMWAPTR2),TIOCSTEP(@03) 0408 00390000 * END; /* END OF RDTE&DEB IN SYNCH */ 00391000 * ELSE 0410 00392000 * ; /* NULL PATH FOR OUT OF SYNCH */ 00393000 @RF00401 DS 0H 0411 00394000 */* */ 00395000 * 0411 00396000 * PREVDCE5->DCECHN=DCECHN;/* REMOVE DCE FROM 0411 00397000 * CHAIN */ 00398000 L @03,DCECHN(,OLDDCE4) 0411 00399000 ST @03,DCECHN(,PREVDCE5) 0411 00400000 * RFY 0412 00401000 * TCBPTR UNRSTD; 0412 00402000 * 0412 00403000 */* */ 00404000 * 0413 00405000 * IF RMWMSFL=OFF/* TEST TO SEE IF MESSAGE TO */ 00406000 * THEN /* BE PUT OUT */ 00407000 TM RMWMSFL(RMWAPTR2),B'00100000' 0413 00408000 BNZ @RF00413 0413 00409000 * DO; /* YES */ 00410000 *UNLK1: 0415 00411000 * ; 0415 00412000 UNLK1 DS 0H 0416 00413000 * GEN CODE REFS(R1,R0,R15,R14,PSALITA,FLC); 00414000 * 0416 00415000 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(RAMA3(LOKIT,RELOK)), X00416000 REGS=USE @ZA17844 00417000 */* */ 00418000 * 0417 00419000 * IF R12^=0 THEN 0417 00420000 SLR @08,@08 0417 00421000 CR R12,@08 0417 00422000 BE @RF00417 0417 00423000 * DO; 0418 00424000 * RFY 0419 00425000 * (R3, 0419 00426000 * R8, 0419 00427000 * R13) RSTD;/* SET UP POINTERS TO 0419 00428000 * MESSAGE */ 00429000 * R3=ADDR(NOTERM);/* NUMBER AND MESSAGE 00430000 * VARIABL */ 00431000 LA R3,@CC03444 0420 00432000 * R8=ADDR(RMWPRMS);/* FIELD AND */ 00433000 LA R8,RMWPRMS(,RMWAPTR2) 0421 00434000 * R13=R12;/* REQUIRED SAVE AREA AND */ 00435000 LR R13,R12 0422 00436000 * R12=ADDR(RMWMSGW);/* ISSUE */ 00437000 LA R12,RMWMSGW(,RMWAPTR2) 0423 00438000 */*TPMSG MSGID((R3))MSG((R8))PLAREA((R12)) */ 00439000 * 0424 00440000 * DO; 0424 00441000 * DCL 0425 00442000 * REG1013 REG(1) PTR; 0425 00443000 * RFY 0426 00444000 * (REG1013) RSTD; 0426 00445000 * RFY 0427 00446000 * (EMCR13) RSTD; 0427 00447000 * DCL 0428 00448000 * 1 * BASED(REG1013), 0428 00449000 * 2 CMZID013 PTR(31), 0428 00450000 * 2 *, 0428 00451000 * 3 CMZRL013 PTR(8), 0428 00452000 * 3 CMZRA013 PTR(24) BDY(BYTE), 0428 00453000 * 2 CMZEA013 PTR(31), 0428 00454000 * 2 CMZVP013 PTR(31); 0428 00455000 * 0428 00456000 */*XREGSET PID('PLAREA')PPARM((R12))RREG(,REG1013) */ 00457000 * 0429 00458000 * DO; 0429 00459000 * REG1013=R12;/* SET RREG SYMBOL TO 00460000 * VALUE OF PPARM OPERAND */ 00461000 LR REG1013,R12 0430 00462000 * END;/* XREGSET */ 00463000 * CMZID013=0; 0432 00464000 SLR @15,@15 0432 00465000 ST @15,CMZID013(,REG1013) 0432 00466000 * CMZRL013=0; 0433 00467000 MVI CMZRL013(REG1013),X'00' 0433 00468000 * CMZRA013=0; 0434 00469000 STCM @15,7,CMZRA013(REG1013) 0434 00470000 * CMZEA013=0; 0435 00471000 ST @15,CMZEA013(,REG1013) 0435 00472000 * CMZVP013=0; 0436 00473000 ST @15,CMZVP013(,REG1013) 0436 00474000 * CMZID013=R3; 0437 00475000 ST R3,CMZID013(,REG1013) 0437 00476000 * CMZVP013=R8; 0438 00477000 ST R8,CMZVP013(,REG1013) 0438 00478000 * DCL 0439 00479000 * CMZSA013(18) PTR(31) BASED(EMCR13); 00480000 * DCL 0440 00481000 * CMZZO013(1) FIXED(31) INIT(0); 0440 00482000 * CMZSA013(5)=CMZZO013; 0441 00483000 L @15,CMZZO013 0441 00484000 ST @15,CMZSA013+16(,EMCR13) 0441 00485000 * DCL 0442 00486000 * REG15013 REG(15) PTR; 0442 00487000 * RFY 0443 00488000 * REG15013 RSTD; 0443 00489000 * DO; /* LISATCVT 0444 00490000 * CVTBASE(PAGEABLE,(REG15013)) */ 00491000 * REG15013=ATCLCPTR;/* SET UP ATCVT 00492000 * POINTER */ 00493000 L REG15013,ATCLCPTR 0445 00494000 * END;/* LISATCVT */ 00495000 * DCL 0447 00496000 * CMTA013 BASED(REG15013) ENTRY 0447 00497000 * VALUERANGE(*); 0447 00498000 * REG15013=REG15013->ATCMSGP; 0448 00499000 L REG15013,ATCMSGP(,REG15013) 0448 00500000 * CALL CMTA013; 0449 00501000 BALR @14,@15 0449 00502000 * RESPECIFY 0450 00503000 * (REG1013, 0450 00504000 * REG15013) UNRESTRICTED; 0450 00505000 * RFY 0451 00506000 * (EMCR13) UNRSTD; 0451 00507000 * END; /* MESSAGE */ 00508000 * R12=R13;/* RESTORE AREA ADDRESS */ 00509000 LR R12,R13 0453 00510000 * RFY 0454 00511000 * (R3, 0454 00512000 * R8, 0454 00513000 * R13) UNRSTD;/* MACRO */ 00514000 * END; 0455 00515000 * ELSE /* NO STOR FOR TPMSG, DO WTO */ 00516000 * DO; 0456 00517000 B @RC00417 0456 00518000 @RF00417 DS 0H 0457 00519000 * R1=ADDR(I042000);/* WTO IF NO SPACE FOR 00520000 * TPMSG */ 00521000 LA R1,I042000 0457 00522000 */***** IWTO **** */ 00523000 * 0458 00524000 * DO; 0458 00525000 * GEN; 0459 00526000 WTO MF=(E,(1)) 00527000 * END; /* IWTO */ 00528000 * END; 0461 00529000 * 0461 00530000 */* */ 00531000 * 0462 00532000 * /* OBTAIN LOCAL LOCK AGAIN */ 00533000 *RELOK: 0462 00534000 * ; 0462 00535000 @RC00417 DS 0H 0462 00536000 RELOK DS 0H 0463 00537000 * GEN CODE REFS(R0,R1,R14,R15,PSALITA,FLC); 00538000 * 0463 00539000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND,REGS=USE, X00540000 RELATED=(RAMA3(UNLK1,UNLK2)) 00541000 */* */ 00542000 * 0464 00543000 * OLDDCE4=MPSDBTBL;/* SET POINTER REGS TO 0464 00544000 * START */ 00545000 L OLDDCE4,MPSDBTBL(,MPSTPTR6) 0464 00546000 * PREVDCE5=ADDR(MPSDBTBL)-4;/* SEARCH AT 0465 00547000 * START OF DCE CHN */ 00548000 LA PREVDCE5,MPSDBTBL(,MPSTPTR6) 0465 00549000 SL PREVDCE5,@CF00035 0465 00550000 * END; /* END OF DEB FOR ABENDING */ 00551000 * ELSE 0467 00552000 * DO; /* DEB NOT IN SYNCH, NO MSG */ 00553000 B @RC00413 0467 00554000 @RF00413 DS 0H 0468 00555000 * PREVDCE5=OLDDCE4;/* STEP TO NEXT DEB */ 00556000 LR PREVDCE5,OLDDCE4 0468 00557000 * OLDDCE4=DCECHN; 0469 00558000 L OLDDCE4,DCECHN(,OLDDCE4) 0469 00559000 * END; /* END OF STEP TO NEXT DEB */ 00560000 * END; /* END OF DEB FOR THIS TASK */ 00561000 * ELSE 0472 00562000 * DO; /* DEB FOR OTHER TASK */ 00563000 B @RC00395 0472 00564000 @RF00395 DS 0H 0473 00565000 * PREVDCE5=OLDDCE4;/* STEP TO NEXT DEB */ 00566000 LR PREVDCE5,OLDDCE4 0473 00567000 * OLDDCE4=DCECHN; 0474 00568000 L OLDDCE4,DCECHN(,OLDDCE4) 0474 00569000 * END; /* END OF PROCESS ONE DEB */ 00570000 * END; /* END OF DO-UNTIL PROCESS */ 00571000 @RC00395 DS 0H 0476 00572000 @DE00394 LTR OLDDCE4,OLDDCE4 0476 00573000 BNZ @DL00394 0476 00574000 * RFY 0477 00575000 * (PREVDCE5, 0477 00576000 * OLDDCE4) UNRSTD; 0477 00577000 * END; /* END OF ONLINE APPLS */ 00578000 */* */ 00579000 * 0479 00580000 * ELSE 0479 00581000 * ; /* NULL FOR NO OPEN APPLS */ 00582000 @RF00390 DS 0H 0480 00583000 *UNLK2: 0480 00584000 * ; 0480 00585000 UNLK2 DS 0H 0481 00586000 * GEN CODE REFS(R0,R1,R14,R15,PSALITA,FLC); 0481 00587000 * 0481 00588000 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(RAMA3(LOKIT,RELOK)), X00589000 REGS=USE 00590000 */* RELEASE MAIN STORAGE */ 00591000 * 0482 00592000 * IF R12^=0 THEN 0482 00593000 LTR R12,R12 0482 00594000 BZ @RF00482 0482 00595000 * DO; 0483 00596000 * RFY 0484 00597000 * R1 RSTD; 0484 00598000 * R1=LENGTH(REGSAVE); 0485 00599000 LA R1,72 0485 00600000 * GEN CODE REFS(R1,R12); 0486 00601000 FREEMAIN R,LV=(1),A=(12) 00602000 * END; 0487 00603000 * ELSE 0488 00604000 * ; 0488 00605000 @RF00482 DS 0H 0489 00606000 * RFY 0489 00607000 * (R1, 0489 00608000 * R12) UNRSTD; 0489 00609000 * 0489 00610000 */* */ 00611000 * 0490 00612000 * RFY 0490 00613000 * MPSTPTR6 UNRSTD; 0490 00614000 * RFY 0491 00615000 * ISTPST BASED(PSTPTR6); 0491 00616000 * RFY 0492 00617000 * PSTPTR6 RSTD; 0492 00618000 * PSTPTR6=RMWPSTA; 0493 00619000 L @12,RMWPSTA(,RMWAPTR2) 0493 00620000 LR PSTPTR6,@12 0493 00621000 * IF PSTPTR6^=EMPTY THEN 0494 00622000 SLR @08,@08 0494 00623000 CR PSTPTR6,@08 0494 00624000 BE @RF00494 0494 00625000 * DO; 0495 00626000 * IF PSTDEBP^=EMPTY /* IF DEBS QUEUED TO PST */ 00627000 * THEN 0496 00628000 C @08,PSTDEBP(,PSTPTR6) 0496 00629000 BE @RF00496 0496 00630000 * DO; /* QUEUE PST TO VTT PAB */ 00631000 * RFY 0498 00632000 * (R3, 0498 00633000 * R10, 0498 00634000 * R11) RSTD; 0498 00635000 * DO; /* LISATCVT 0499 00636000 * CVTBASE(PAGEABLE,(R3)) */ 00637000 * R3=ATCLCPTR; /* SET UP ATCVT POINTER */ 00638000 L @08,ATCLCPTR 0500 00639000 LR R3,@08 0500 00640000 * END; /* LISATCVT SET ATCVT BASE */ 00641000 * RFY 0502 00642000 * ISTATCVT BASED(R3); 0502 00643000 * R10=RMWAPTR2; 0503 00644000 LR R10,RMWAPTR2 0503 00645000 * R11=SDWAPTR7; 0504 00646000 * 0504 00647000 LR R11,SDWAPTR7 0504 00648000 */* TPQUE (RMWPSTA,ATCTRMPB) NORM NSTR */ 00649000 */* CMZVER = OS/VS2 */ 00650000 * 0505 00651000 * DO; 0505 00652000 * DCL 0506 00653000 * GPR00F FIXED(31) REG(00); 0506 00654000 * DCL 0507 00655000 * GPR00P PTR(31) REG(00); 0507 00656000 * DCL 0508 00657000 * GPR01F FIXED(31) REG(01); 0508 00658000 * DCL 0509 00659000 * GPR01P PTR(31) REG(01); 0509 00660000 * DCL 0510 00661000 * GPR04F FIXED(31) REG(04); 0510 00662000 * DCL 0511 00663000 * GPR04P PTR(31) REG(04); 0511 00664000 * DCL 0512 00665000 * GPR05F FIXED(31) REG(05); 0512 00666000 * DCL 0513 00667000 * GPR05P PTR(31) REG(05); 0513 00668000 * DCL 0514 00669000 * GPR15F FIXED(31) REG(15); 0514 00670000 * DCL 0515 00671000 * GPR15P PTR(31) REG(15); 0515 00672000 * RFY 0516 00673000 * (GPR00P, 0516 00674000 * GPR01P, 0516 00675000 * GPR04P, 0516 00676000 * GPR05P, 0516 00677000 * GPR15P) RSTD; 0516 00678000 * GPR00P=0; 0517 00679000 SLR GPR00P,GPR00P 0517 00680000 * GPR15P=ADDR(ATCTRMPB);/* HOLD PAB PTR */ 00681000 LA GPR15P,ATCTRMPB(,R3) 0518 00682000 * GPR04P=RMWPSTA;/* WORK ELE PTR */ 00683000 LR GPR04P,@12 0519 00684000 * GPR05P=GPR15P;/* PASS PAB PTR */ 00685000 LR GPR05P,GPR15P 0520 00686000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0521 00687000 L @15,ATCAP37(,@08) 0521 00688000 BALR @14,@15 0521 00689000 * GEN(NOPR 8) 0522 00690000 * NOSETS NOREFS; 0522 00691000 NOPR 8 00692000 * RFY 0523 00693000 * (GPR00P, 0523 00694000 * GPR01P, 0523 00695000 * GPR04P, 0523 00696000 * GPR05P, 0523 00697000 * GPR15P) UNRSTD; 0523 00698000 * END; /* *** END OF TPQUE GENERATION */ 00699000 * RMWAPTR2=R10; 0525 00700000 LR RMWAPTR2,R10 0525 00701000 * SDWAPTR7=R11; 0526 00702000 LR SDWAPTR7,R11 0526 00703000 * RFY 0527 00704000 * (R10, 0527 00705000 * R11) UNRSTD; 0527 00706000 * END; /* END OF QUEUING TO VTT PAB */ 00707000 * ELSE 0529 00708000 * ; /* NULL FOR NO DEBS QUEUED */ 00709000 @RF00496 DS 0H 0530 00710000 * END; /* END OF PST NOT ZERO LEG */ 00711000 * ELSE 0531 00712000 * ; /* NULL IF NO PST POINTER */ 00713000 @RF00494 DS 0H 0532 00714000 * END; /* END OF NON-ZERO MPST PTR */ 00715000 * ELSE 0533 00716000 * ; /* NULL IF NO MPST POINTER */ 00717000 @RF00381 DS 0H 0534 00718000 * END; /* END OF VTT NOT INITIATED */ 00719000 */* */ 00720000 * 0535 00721000 * RFY 0535 00722000 * (R1, 0535 00723000 * SDWSWCH0, 0535 00724000 * R13, 0535 00725000 * R14) RSTD; 0535 00726000 @RC00350 DS 0H 0536 00727000 * SDWSWCH0=RMWSV0; 0536 00728000 L SDWSWCH0,RMWSV0(,RMWAPTR2) 0536 00729000 * R13=RMWSV13; 0537 00730000 L R13,RMWSV13(,RMWAPTR2) 0537 00731000 * R14=RMWSV14; 0538 00732000 L R14,RMWSV14(,RMWAPTR2) 0538 00733000 * R1=SDWAPTR7; 0539 00734000 * 0539 00735000 LR R1,SDWAPTR7 0539 00736000 */* */ 00737000 * 0540 00738000 * IF SDWSWCH0^=RC12 THEN 0540 00739000 C SDWSWCH0,@CF02023 0540 00740000 BE @RF00540 0540 00741000 * DO; 0541 00742000 * DO; /* SETRP 0542 00743000 * RECORD(YES)RC(0)REGS(14,12) */ 00744000 * RESPECIFY 0543 00745000 * (GPR00P, 0543 00746000 * GPR01P, 0543 00747000 * GPR14P, 0543 00748000 * GPR15P) RSTD; 0543 00749000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00750000 MVI SDWARCDE(GPR01P),X'00' 0544 00751000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00752000 OI SDWARCRD(GPR01P),B'10000000' 0545 00753000 * GEN(RETURN (14,12)); 0546 00754000 RETURN (14,12) 00755000 * RESPECIFY 0547 00756000 * (GPR00P, 0547 00757000 * GPR01P, 0547 00758000 * GPR14P, 0547 00759000 * GPR15P) UNRSTD; 0547 00760000 * END; 0548 00761000 * END; 0549 00762000 * ELSE 0550 00763000 * DO; 0550 00764000 B @RC00540 0550 00765000 @RF00540 DS 0H 0551 00766000 * RFY 0551 00767000 * R15 RSTD; 0551 00768000 * R15=NORETRY; 0552 00769000 SLR R15,R15 0552 00770000 * GEN(BR 14); 0553 00771000 BR 14 00772000 * END; 0554 00773000 * RFY 0555 00774000 * (R1, 0555 00775000 * SDWSWCH0, 0555 00776000 * RMWAPTR2, 0555 00777000 * R3, 0555 00778000 * PSTPTR6, 0555 00779000 * SDWAPTR7, 0555 00780000 * R13, 0555 00781000 * R14) UNRSTD; 0555 00782000 @RC00540 DS 0H 0556 00783000 * GEN(DC C'END ISTRAMA3 77.048'); 0556 00784000 * 0556 00785000 DC C'END ISTRAMA3 77.048' 00786000 */* TPEPILOG */ 00787000 * 0557 00788000 * GEN(PRINT OFF); 0557 00789000 PRINT OFF 00790000 * DECLARE 0558 00791000 * EMCR0 PTR REG(0), 0558 00792000 * EMCR1 PTR REG(1), 0558 00793000 * EMCR2 PTR REG(2), 0558 00794000 * EMCR3 PTR REG(3), 0558 00795000 * EMCR4 PTR REG(4), 0558 00796000 * EMCR5 PTR REG(5), 0558 00797000 * EMCR6 PTR REG(6), 0558 00798000 * EMCR7 PTR REG(7), 0558 00799000 * EMCR8 PTR REG(8), 0558 00800000 * EMCR9 PTR REG(9), 0558 00801000 * EMCR10 PTR REG(10), 0558 00802000 * EMCR11 PTR REG(11), 0558 00803000 * EMCR12 PTR REG(12), 0558 00804000 * EMCR13 PTR REG(13), 0558 00805000 * EMCR14 PTR REG(14), 0558 00806000 * EMCR15 PTR REG(15); 0558 00807000 * DCL 0559 00808000 * ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*);/* RESET ROUTINE */ 00809000 * DCL 0560 00810000 * ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*);/* TPQUE ROUTINE */ 00811000 * GEN(PRINT ON); 0561 00812000 * 0561 00813000 PRINT ON 00814000 */* END OF TPEPILOG */ 00815000 * 0562 00816000 * END ISTRAMA3 0562 00817000 * 0562 00818000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00819000 */*%INCLUDE SYSLIB (IHASRB ) */ 00820000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00821000 */*%INCLUDE SYSLIB (CVT ) */ 00822000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00823000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00824000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 00825000 * 0562 00826000 * ; 0562 00827000 @DATA DS 0H 00828000 @DATD DSECT 00829000 DS 0F 00830000 ISTRAMA3 CSECT 00831000 DS 0F 00832000 @CF00035 DC F'4' 00833000 @CF02023 DC F'12' 00834000 @CF01865 DC XL4'80000000' 00835000 @CF03508 DC XL4'FF7FFFFF' 00836000 @DATD DSECT 00837000 DS 0D 00838000 ISTRAMA3 CSECT 00839000 NOPR ((@ENDDATD-@DATD)*16) 00840000 DS 0F 00841000 @SIZDATD DC AL1(0) 00842000 DC AL3(@ENDDATD-@DATD) 00843000 DS 0D 00844000 @CC03441 DC C'ISTRAMA3-ESTAE ROUTINE ' 00845000 @CC03437 DC C' ' 00846000 @CC03444 DC C'418I' 00847000 @CC03446 DC C'413I' 00848000 I04190 DS CL79 00849000 ORG I04190 00850000 I0419001 DC H'75' 00851000 I0419002 DC B'1000000000000000' 00852000 I0419003 DC CL71'IST419I SDUMP BEING TAKEN FOR TERMINATING APPLICATIC00853000 ON ' 00854000 I0419004 DC B'0001000000000000' 00855000 I0419005 DC B'0100000100000000' 00856000 ORG I04190+79 00857000 DS CL1 00858000 I042000 DS CL79 00859000 ORG I042000 00860000 I0420001 DC H'75' 00861000 I0420002 DC X'8000' 00862000 I0420003 DC CL71'IST420I CANNOT COMPLETE CLOSING OF TERMINATING APPLC00863000 ICATION ' 00864000 I0420004 DC X'1000' 00865000 I0420005 DC X'4100' 00866000 ORG I042000+79 00867000 DS CL1 00868000 CMZZO003 DC F'0' 00869000 CMZZO013 DC F'0' 00870000 ISTRAMA3 CSECT 00871000 DUMPPARM SDUMP SDATA=(SQA,LSQA,TRT,ALLPSA,CSA),MF=L, X00872000 HDR='ISTRAMA3-VTAM TASK TERM FAILS' 00873000 @DATD DSECT 00874000 @ENDDATD EQU * 00875000 ISTRAMA3 CSECT 00876000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00877000 @01 EQU 01 00878000 @02 EQU 02 00879000 @03 EQU 03 00880000 @04 EQU 04 00881000 @05 EQU 05 00882000 @06 EQU 06 00883000 @07 EQU 07 00884000 @08 EQU 08 00885000 @09 EQU 09 00886000 @10 EQU 10 00887000 @11 EQU 11 00888000 @12 EQU 12 00889000 @13 EQU 13 00890000 @14 EQU 14 00891000 @15 EQU 15 00892000 SRBPTR EQU @04 00893000 SDWAPTR EQU @07 00894000 TCBPTR EQU @08 00895000 RPHPTR EQU @01 00896000 R12 EQU @12 00897000 R0 EQU @00 00898000 SDWSWCH0 EQU @00 00899000 R1 EQU @01 00900000 RMWAPTR2 EQU @02 00901000 R3 EQU @03 00902000 ADDSRB4 EQU @04 00903000 SWAPREG4 EQU @04 00904000 OLDDCE4 EQU @04 00905000 COMPREG5 EQU @05 00906000 PREVDCE5 EQU @05 00907000 MPSTPTR6 EQU @06 00908000 PSTPTR6 EQU @06 00909000 SDWAPTR7 EQU @07 00910000 R8 EQU @08 00911000 BASER9 EQU @09 00912000 R10 EQU @10 00913000 R11 EQU @11 00914000 R13 EQU @13 00915000 R14 EQU @14 00916000 GPR14P EQU @14 00917000 R15 EQU @15 00918000 REG1003 EQU @01 00919000 EMCR13 EQU @13 00920000 REG15003 EQU @15 00921000 REG1013 EQU @01 00922000 REG15013 EQU @15 00923000 GPR00P EQU @00 00924000 GPR01P EQU @01 00925000 GPR04P EQU @04 00926000 GPR05P EQU @05 00927000 GPR15P EQU @15 00928000 EMCR0 EQU @00 00929000 EMCR1 EQU @01 00930000 EMCR10 EQU @10 00931000 EMCR11 EQU @11 00932000 EMCR12 EQU @12 00933000 EMCR14 EQU @14 00934000 EMCR15 EQU @15 00935000 EMCR2 EQU @02 00936000 EMCR3 EQU @03 00937000 EMCR4 EQU @04 00938000 EMCR5 EQU @05 00939000 EMCR6 EQU @06 00940000 EMCR7 EQU @07 00941000 EMCR8 EQU @08 00942000 EMCR9 EQU @09 00943000 GPR00F EQU @00 00944000 GPR01F EQU @01 00945000 GPR04F EQU @04 00946000 GPR05F EQU @05 00947000 GPR15F EQU @15 00948000 R2 EQU @02 00949000 R4 EQU @04 00950000 R5 EQU @05 00951000 R6 EQU @06 00952000 R7 EQU @07 00953000 CVTPTR EQU 16 00954000 PSA EQU 0 00955000 FLCRNPSW EQU PSA 00956000 FLCROPSW EQU PSA+8 00957000 FLCICCW2 EQU PSA+16 00958000 PSAEEPSW EQU PSA+132 00959000 PSAESPSW EQU PSA+136 00960000 FLCSVILC EQU PSAESPSW+1 00961000 PSAEPPSW EQU PSA+140 00962000 FLCPIILC EQU PSAEPPSW+1 00963000 FLCPICOD EQU PSAEPPSW+2 00964000 PSAPICOD EQU FLCPICOD+1 00965000 FLCTEA EQU PSAEPPSW+4 00966000 FLCPER EQU PSA+152 00967000 FLCMCLA EQU PSA+168 00968000 FLCIOEL EQU FLCMCLA+4 00969000 FLCIOA EQU FLCMCLA+16 00970000 FLCFSA EQU FLCMCLA+80 00971000 PSASUPER EQU PSA+552 00972000 PSASUP1 EQU PSASUPER 00973000 PSASUP2 EQU PSASUPER+1 00974000 PSASUP3 EQU PSASUPER+2 00975000 PSASUP4 EQU PSASUPER+3 00976000 PSACLHT EQU PSA+640 00977000 PSALKSA EQU PSA+696 00978000 PSAHLHI EQU PSA+760 00979000 PSALITA EQU PSA+764 00980000 PSADSSFL EQU PSA+836 00981000 PSADSSF1 EQU PSADSSFL 00982000 PSADSSF3 EQU PSADSSFL+2 00983000 PSADSSF4 EQU PSADSSFL+3 00984000 PSARSVT EQU PSA+896 00985000 ATCLCPTR EQU 1032 00986000 SRBSECT EQU 0 00987000 SRBFLNK EQU SRBSECT+4 00988000 SRBFLC EQU SRBSECT+12 00989000 SDWA EQU 0 00990000 SDWAPARM EQU SDWA 00991000 SDWAFIOB EQU SDWA+4 00992000 SDWAABCC EQU SDWAFIOB 00993000 SDWACMPF EQU SDWAABCC 00994000 SDWACTL1 EQU SDWA+8 00995000 SDWACMKA EQU SDWACTL1 00996000 SDWAMWPA EQU SDWACTL1+1 00997000 SDWAPMKA EQU SDWACTL1+4 00998000 SDWACTL2 EQU SDWA+16 00999000 SDWACMKP EQU SDWACTL2 01000000 SDWAMWPP EQU SDWACTL2+1 01001000 SDWAPMKP EQU SDWACTL2+4 01002000 SDWAGRSV EQU SDWA+24 01003000 SDWANAME EQU SDWA+88 01004000 SDWAEC1 EQU SDWA+104 01005000 SDWAEMK1 EQU SDWAEC1 01006000 SDWAMWP1 EQU SDWAEC1+1 01007000 SDWAINT1 EQU SDWAEC1+2 01008000 SDWANXT1 EQU SDWAEC1+4 01009000 SDWAAEC1 EQU SDWA+112 01010000 SDWAILC1 EQU SDWAAEC1+1 01011000 SDWAINC1 EQU SDWAAEC1+2 01012000 SDWAICD1 EQU SDWAINC1+1 01013000 SDWAEC2 EQU SDWA+120 01014000 SDWAEMK2 EQU SDWAEC2 01015000 SDWAMWP2 EQU SDWAEC2+1 01016000 SDWAINT2 EQU SDWAEC2+2 01017000 SDWANXT2 EQU SDWAEC2+4 01018000 SDWAAEC2 EQU SDWA+128 01019000 SDWAILC2 EQU SDWAAEC2+1 01020000 SDWAINC2 EQU SDWAAEC2+2 01021000 SDWAICD2 EQU SDWAINC2+1 01022000 SDWASRSV EQU SDWA+136 01023000 SDWAIDNT EQU SDWA+200 01024000 SDWAMCH EQU SDWA+204 01025000 SDWASTCK EQU SDWAMCH 01026000 SDWAMCHI EQU SDWAMCH+8 01027000 SDWAMCHS EQU SDWAMCHI 01028000 SDWAMCHD EQU SDWAMCHI+1 01029000 SDWARSR1 EQU SDWAMCH+12 01030000 SDWARSR2 EQU SDWAMCH+13 01031000 SDWAFLGS EQU SDWA+232 01032000 SDWAERRA EQU SDWAFLGS 01033000 SDWAERRB EQU SDWAFLGS+1 01034000 SDWAERRC EQU SDWAFLGS+2 01035000 SDWAERRD EQU SDWAFLGS+3 01036000 SDWAIOFS EQU SDWA+238 01037000 SDWACPUA EQU SDWA+248 01038000 SDWAPARQ EQU SDWA+252 01039000 SDWARCDE EQU SDWAPARQ 01040000 SDWAACF2 EQU SDWAPARQ+1 01041000 SDWARCRD EQU SDWAACF2 01042000 SDWAACF3 EQU SDWAPARQ+2 01043000 SDWAACF4 EQU SDWAPARQ+3 01044000 SDWALKWA EQU SDWA+256 01045000 SDWALKWS EQU SDWALKWA 01046000 SDWARECP EQU SDWA+292 01047000 SDWASNPA EQU SDWA+320 01048000 SDWADUMP EQU SDWASNPA 01049000 SDWADPFS EQU SDWADUMP+1 01050000 SDWADDAT EQU SDWASNPA+4 01051000 SDWASDAT EQU SDWADDAT 01052000 SDWAPDAT EQU SDWADDAT+2 01053000 SDWADPSA EQU SDWA+328 01054000 SDWADPSL EQU SDWADPSA 01055000 SDWARA EQU SDWA+400 01056000 SDWADPVA EQU SDWARA+2 01057000 SDWAURAL EQU SDWARA+3 01058000 SDWAVRA EQU SDWARA+4 01059000 CVTMAP EQU 0 01060000 CVTDAR EQU CVTMAP+72 01061000 CVTFLGS1 EQU CVTDAR 01062000 CVTDCB EQU CVTMAP+116 01063000 CVTIERLC EQU CVTMAP+144 01064000 CVTOPTA EQU CVTMAP+182 01065000 CVTOPTB EQU CVTMAP+183 01066000 CVTGTF EQU CVTMAP+236 01067000 CVTGTFST EQU CVTGTF 01068000 CVTGTFS EQU CVTGTFST 01069000 CVTSTATE EQU CVTGTFST 01070000 CVTTMODE EQU CVTGTFST 01071000 CVTFORM EQU CVTGTFST 01072000 CVTAQAVT EQU CVTMAP+240 01073000 CVTTCMFG EQU CVTAQAVT 01074000 CVTVOLM2 EQU CVTMAP+244 01075000 CVTTATA EQU CVTVOLM2 01076000 CVTTSKS EQU CVTTATA 01077000 CVTVOLF2 EQU CVTTSKS 01078000 CVTTAT EQU CVTTATA+1 01079000 CVTATER EQU CVTMAP+248 01080000 CVTEXT1 EQU CVTMAP+252 01081000 CVTPURG EQU CVTMAP+260 01082000 CVTQMSG EQU CVTMAP+268 01083000 CVTDMSR EQU CVTMAP+272 01084000 CVTRSV37 EQU CVTDMSR 01085000 CVTDMSRF EQU CVTRSV37 01086000 CVTERPV EQU CVTMAP+316 01087000 CVTINTLA EQU CVTMAP+320 01088000 CVTAPF EQU CVTMAP+324 01089000 CVTEXT2 EQU CVTMAP+328 01090000 CVTHJES EQU CVTMAP+332 01091000 CVTPGSIA EQU CVTMAP+348 01092000 CVTA1F1 EQU CVTMAP+356 01093000 CVTSYSK EQU CVTMAP+357 01094000 CVTVOLM1 EQU CVTMAP+380 01095000 CVTVOLF1 EQU CVTVOLM1 01096000 CVTATMCT EQU CVTMAP+388 01097000 CVTXTNT1 EQU 0 01098000 CVTXTNT2 EQU 0 01099000 CVTDSSV EQU CVTXTNT2 01100000 CVTFLGBT EQU CVTXTNT2+5 01101000 CVTQID EQU CVTXTNT2+24 01102000 CVTSHS EQU CVTXTNT2+40 01103000 CVTRV400 EQU CVTXTNT2+52 01104000 CVTRV409 EQU CVTXTNT2+53 01105000 CVTATCVT EQU CVTXTNT2+64 01106000 CVTRV429 EQU CVTXTNT2+84 01107000 CVTRV438 EQU CVTXTNT2+85 01108000 CVTRV457 EQU CVTXTNT2+112 01109000 CVTRV466 EQU CVTXTNT2+113 01110000 CVTFIX EQU 0 01111000 CVTRELNO EQU CVTFIX+252 01112000 TCBFIX EQU 0 01113000 TCBFRS EQU TCBFIX 01114000 TCB EQU 0 01115000 TCBPIE EQU TCB+4 01116000 TCBPMASK EQU TCBPIE 01117000 TCBTIO EQU TCB+12 01118000 TCBCMP EQU TCB+16 01119000 TCBCMPF EQU TCBCMP 01120000 TCBCPP EQU TCBCMPF 01121000 TCBSTCC EQU TCBCMPF 01122000 TCBCDBL EQU TCBCMPF 01123000 TCBCWTO EQU TCBCMPF 01124000 TCBCIND EQU TCBCMPF 01125000 TCBCMSG EQU TCBCMPF 01126000 TCBTRN EQU TCB+20 01127000 TCBABF EQU TCBTRN 01128000 TCBMSS EQU TCB+24 01129000 TCBPKF EQU TCB+28 01130000 TCBFLGS EQU TCB+29 01131000 TCBFLGS1 EQU TCBFLGS 01132000 TCBFLGS2 EQU TCBFLGS+1 01133000 TCBFLGS3 EQU TCBFLGS+2 01134000 TCBFLGS4 EQU TCBFLGS+3 01135000 TCBFLGS5 EQU TCBFLGS+4 01136000 TCBABWF EQU TCBFLGS5 01137000 TCBJPQ EQU TCB+44 01138000 TCBPURGE EQU TCBJPQ 01139000 TCBGRS EQU TCB+48 01140000 TCBFSA EQU TCB+112 01141000 TCBTME EQU TCB+120 01142000 TCBJSTCB EQU TCB+124 01143000 TCBTSFLG EQU TCB+148 01144000 TCBTSTSK EQU TCBTSFLG 01145000 TCBSTAB EQU TCB+160 01146000 TCBNSTAE EQU TCBSTAB 01147000 TCBTCT EQU TCB+164 01148000 TCBTCTGF EQU TCBTCT 01149000 TCBSCNDY EQU TCB+172 01150000 TCBNDSP EQU TCBSCNDY 01151000 TCBNDSP1 EQU TCBNDSP+1 01152000 TCBNDSP2 EQU TCBNDSP+2 01153000 TCBNDSP3 EQU TCBNDSP+3 01154000 TCBJSCB EQU TCB+180 01155000 TCBRECDE EQU TCBJSCB 01156000 TCBEXT1 EQU TCB+196 01157000 TCBBITS EQU TCB+200 01158000 TCBNDSP4 EQU TCBBITS 01159000 TCBNDSP5 EQU TCBBITS+1 01160000 TCBFLGS6 EQU TCBBITS+2 01161000 TCBFLGS7 EQU TCBBITS+3 01162000 TCBDAR EQU TCB+204 01163000 TCBDARC EQU TCBDAR 01164000 TCBEXT2 EQU TCB+208 01165000 TCBFOE EQU TCB+244 01166000 TCBESTAE EQU TCB+264 01167000 TCBESTRM EQU TCBESTAE+1 01168000 TCBFBYT1 EQU TCB+276 01169000 TCBFBYT2 EQU TCB+277 01170000 TCBRV124 EQU TCB+278 01171000 TCBRV133 EQU TCB+279 01172000 TCBXTNT2 EQU 0 01173000 TCBGTF EQU TCBXTNT2 01174000 TCBTFLG EQU TCBGTF 01175000 TCBRV146 EQU TCBXTNT2+28 01176000 TCBRV155 EQU TCBXTNT2+29 01177000 TCBRV164 EQU TCBXTNT2+30 01178000 TCBRV173 EQU TCBXTNT2+31 01179000 TIOT1 EQU 0 01180000 TIOCNJOB EQU TIOT1 01181000 TIOCSTEP EQU TIOT1+8 01182000 TIOTPTR EQU 0 01183000 ISTPAB EQU 0 01184000 PABWQCHN EQU ISTPAB 01185000 PABWEQA EQU PABWQCHN 01186000 PABCHAIN EQU PABWQCHN+4 01187000 PABRPHFG EQU ISTPAB+12 01188000 PABFLAGS EQU PABRPHFG 01189000 PABERLCK EQU PABFLAGS 01190000 PABERRLK EQU PABERLCK 01191000 ISTDYPAB EQU 0 01192000 ISTMPST EQU 0 01193000 MPSRSV07 EQU ISTMPST+4 01194000 MPSRQUE EQU ISTMPST+8 01195000 MPSRQUEG EQU MPSRQUE 01196000 MPSFLGA EQU ISTMPST+12 01197000 MPSCRA EQU ISTMPST+24 01198000 MPSCRACT EQU MPSCRA+4 01199000 MPSSRB EQU ISTMPST+32 01200000 MPSSRBCT EQU MPSSRB+4 01201000 MPSCRPL EQU ISTMPST+40 01202000 MPSRPLCT EQU MPSCRPL+4 01203000 MPSSRB55 EQU ISTMPST+48 01204000 MPSDBTBL EQU ISTMPST+124 01205000 ISTLOK EQU 0 01206000 LOKCHN EQU ISTLOK+1 01207000 LOKCHNG EQU LOKCHN 01208000 @NM00084 EQU LOKCHNG+2 01209000 ISTACDEB EQU 0 01210000 ACDVTPRX EQU ISTACDEB 01211000 ACDTSKID EQU ACDVTPRX+8 01212000 ACDDBPFX EQU ISTACDEB+16 01213000 ACDTBLOF EQU ACDDBPFX+6 01214000 ACDBASIC EQU ISTACDEB+24 01215000 ACDTCBAD EQU ACDBASIC 01216000 ACDNMSUB EQU ACDTCBAD 01217000 ACDDEBAD EQU ACDBASIC+4 01218000 ACDUSRPG EQU ACDBASIC+16 01219000 ACDACBAD EQU ACDBASIC+24 01220000 ACDAPPAD EQU ACDBASIC+28 01221000 ACDVTAM EQU ISTACDEB+56 01222000 ACDRDTE EQU ACDVTAM+4 01223000 ACDSSFLG EQU ACDVTAM+80 01224000 ACDAPDAT EQU ACDVTAM+83 01225000 ISTDCE EQU 0 01226000 DCEDBPTR EQU ISTDCE 01227000 DCECHN EQU ISTDCE+4 01228000 ISTDEVCH EQU 0 01229000 DEVSHCH EQU ISTDEVCH 01230000 DEVCHAR EQU DEVSHCH 01231000 DEVTCODE EQU ISTDEVCH+1 01232000 DEVFLAGS EQU ISTDEVCH+3 01233000 DEVFCCTL EQU DEVFLAGS 01234000 DEVCHAR3 EQU DEVFLAGS 01235000 ISTRPRE EQU 0 01236000 RPRNAME EQU ISTRPRE 01237000 RPRCOMID EQU ISTRPRE+8 01238000 RPRFLAGA EQU ISTRPRE+21 01239000 RPRFLAGB EQU ISTRPRE+22 01240000 RPRONLIN EQU RPRFLAGB 01241000 RPRCAUSE EQU ISTRPRE+23 01242000 RPRLGONF EQU ISTRPRE+28 01243000 RPRFLAGD EQU ISTRPRE+61 01244000 RPRFLAGC EQU ISTRPRE+62 01245000 ISTRCPRE EQU 0 01246000 RCPPMODE EQU ISTRCPRE+91 01247000 RCPLGNIN EQU ISTRCPRE+92 01248000 ISTRDT EQU 0 01249000 RDTPLEN EQU ISTRDT+72 01250000 RDTPRIOR EQU RDTPLEN 01251000 RDTFLAGB EQU ISTRDT+91 01252000 RDTVYRPH EQU ISTRDT+108 01253000 RDTSTCNT EQU ISTRDT+112 01254000 ISTRAP EQU 0 01255000 RAPACDEB EQU ISTRAP+76 01256000 RAPFLG EQU ISTRAP+108 01257000 RAPFLGB EQU ISTRAP+109 01258000 RAPFLGC EQU ISTRAP+110 01259000 ISTRLC EQU 0 01260000 RLCADR EQU ISTRLC+72 01261000 RLCFLAG EQU RLCADR 01262000 ISTRRN EQU 0 01263000 RRNADR EQU ISTRRN+136 01264000 RRNFLAG EQU RRNADR 01265000 RRNUCBAD EQU RRNADR+1 01266000 RRNRDF EQU ISTRRN+172 01267000 RRNRDFA EQU RRNRDF 01268000 RRNRDFB EQU RRNRDF+1 01269000 RRNCMF EQU ISTRRN+176 01270000 RRNCMFA EQU RRNCMF 01271000 RRNCMFB EQU RRNCMF+1 01272000 RRNCMFC EQU RRNCMF+2 01273000 RRNCMFD EQU RRNCMF+3 01274000 RRNNMDPD EQU ISTRRN+192 01275000 RRNHPRE EQU ISTRRN+216 01276000 ISTRGP EQU 0 01277000 RGPFLG EQU ISTRGP+72 01278000 ISTRLN EQU 0 01279000 RLNADR EQU ISTRLN+72 01280000 RLNFLAG EQU RLNADR 01281000 RLNUCBAD EQU RLNADR+1 01282000 RLNSTAT1 EQU ISTRLN+86 01283000 RLNSTAT2 EQU ISTRLN+87 01284000 RLNRDF EQU ISTRLN+88 01285000 RLNRDFA EQU RLNRDF 01286000 RLNRACNT EQU RLNRDFA 01287000 RLNRDFB EQU RLNRDF+1 01288000 RLNCRFLG EQU ISTRLN+102 01289000 RLNLSCMD EQU RLNCRFLG 01290000 ISTRPT EQU 0 01291000 RPTLNCID EQU ISTRPT+116 01292000 RPTDITT EQU ISTRPT+128 01293000 RPTFLAG1 EQU ISTRPT+140 01294000 ISTRCL EQU 0 01295000 RCLADR EQU ISTRCL+72 01296000 RCLFLAG EQU RCLADR 01297000 ISTRTR EQU 0 01298000 RTRADR EQU ISTRTR+124 01299000 RTRFLAG EQU RTRADR 01300000 RTRRDFA EQU ISTRTR+136 01301000 RTRRAALL EQU RTRRDFA 01302000 RTRRDFB EQU ISTRTR+137 01303000 RTRRDFC EQU ISTRTR+138 01304000 RTRRDFD EQU ISTRTR+139 01305000 RTRRDFE EQU ISTRTR+140 01306000 RTRRDFF EQU ISTRTR+141 01307000 RTRCRFLG EQU ISTRTR+143 01308000 RTRLSCMD EQU RTRCRFLG 01309000 RTRBSCID EQU ISTRTR+188 01310000 ISTRIN EQU 0 01311000 RINDFD EQU ISTRIN+124 01312000 RINREMPO EQU RINDFD 01313000 RINNODEF EQU RINDFD 01314000 RINLDISC EQU RINDFD 01315000 RINNODID EQU ISTRIN+125 01316000 RINRLDAF EQU ISTRIN+126 01317000 RINREMOT EQU ISTRIN+128 01318000 RINVPAB EQU ISTRIN+132 01319000 RINRPHCN EQU ISTRIN+136 01320000 RINNCSPL EQU ISTRIN+140 01321000 RINCNCNT EQU ISTRIN+144 01322000 ISTRDS EQU 0 01323000 ISTDOT EQU 0 01324000 ISTRCC EQU 0 01325000 RCCFLAG EQU ISTRCC+73 01326000 RCCFLAGB EQU ISTRCC+74 01327000 RCCSTAID EQU ISTRCC+78 01328000 RCCID48 EQU RCCSTAID+2 01329000 RCCCRFLG EQU ISTRCC+108 01330000 ISTRLU EQU 0 01331000 RLUFLAG EQU ISTRLU+125 01332000 RLUCRFLG EQU ISTRLU+126 01333000 RLUPACE EQU ISTRLU+132 01334000 RLUNCPPC EQU ISTRLU+134 01335000 RLUUSSTB EQU ISTRLU+140 01336000 RLUMODET EQU ISTRLU+152 01337000 ISTRPX EQU 0 01338000 ISTRLX EQU 0 01339000 RLXFLAGA EQU ISTRLX+76 01340000 ISTRSW EQU 0 01341000 ISTRDA EQU 0 01342000 RDAADR EQU ISTRDA+72 01343000 RDAFLAG EQU RDAADR 01344000 RDAUCBAD EQU RDAADR+1 01345000 ISTRLS EQU 0 01346000 ISTDNT EQU 0 01347000 ISTGNT EQU 0 01348000 ISTPAT EQU 0 01349000 PATFLAGA EQU ISTPAT+7 01350000 ISTRPH EQU 0 01351000 RPHCNTL EQU ISTRPH 01352000 RPHFLAGS EQU RPHCNTL+2 01353000 RPHAPTYP EQU RPHFLAGS 01354000 RPHFSTLC EQU RPHFLAGS 01355000 RPHFLGB EQU RPHCNTL+3 01356000 RPHRPHA EQU ISTRPH+4 01357000 RPHTSKID EQU ISTRPH+8 01358000 RPHRESMA EQU ISTRPH+16 01359000 RPHWPFLG EQU RPHRESMA 01360000 RPHWEA EQU ISTRPH+24 01361000 RPHCSPA EQU RPHWEA 01362000 RPHSRPRM EQU ISTRPH+28 01363000 RPHPABQA EQU ISTRPH+36 01364000 RPHWORK EQU ISTRPH+40 01365000 RPHSAVE1 EQU RPHWORK 01366000 RPHSBITS EQU RPHSAVE1+1 01367000 ISTPST EQU 0 01368000 PSTRQFGA EQU ISTPST+8 01369000 PSTRQUE EQU PSTRQFGA 01370000 PSTFLGA EQU PSTRQFGA+4 01371000 PSTABINP EQU PSTFLGA 01372000 PSTTCBA EQU ISTPST+16 01373000 PSTDEBP EQU ISTPST+128 01374000 PSTDMPS EQU ISTPST+132 01375000 ISTATCVT EQU 0 01376000 ATCCOM EQU ISTATCVT 01377000 ATCSTAT EQU ATCCOM 01378000 ATCSTAT1 EQU ATCSTAT 01379000 ATCSTFLG EQU ATCSTAT+1 01380000 ATCPOFLG EQU ATCSTAT+2 01381000 ATCSTAT4 EQU ATCSTAT+3 01382000 ATCIOTRC EQU ATCCOM+140 01383000 ATCTHTRC EQU ATCIOTRC 01384000 ATCCSMR EQU ISTATCVT+296 01385000 ATCSHRFG EQU ISTATCVT+316 01386000 ATCMSGP EQU ISTATCVT+344 01387000 ATCHPGM EQU ISTATCVT+384 01388000 ATCVLCNT EQU ISTATCVT+772 01389000 ATCRNO EQU ISTATCVT+788 01390000 ATCSOPD EQU ISTATCVT+792 01391000 ATCSIPD EQU ISTATCVT+800 01392000 ATCSECST EQU ISTATCVT+812 01393000 ATCSTAT2 EQU ISTATCVT+818 01394000 ATCVTBAM EQU ISTATCVT+908 01395000 @NM00103 EQU ATCVTBAM+3 01396000 ATCAOSM EQU ISTATCVT+912 01397000 ATCGSRBQ EQU ATCAOSM+4 01398000 ATCGSRBG EQU ATCGSRBQ 01399000 ATCAP34 EQU ATCAOSM+32 01400000 ATCICAPP EQU ATCAOSM+100 01401000 ATCLDAPP EQU ATCAOSM+120 01402000 ATCDAPVT EQU ATCAOSM+140 01403000 ATCAP37 EQU ATCAOSM+264 01404000 ATCCRA EQU ATCAOSM+280 01405000 ATCCRACN EQU ATCCRA+4 01406000 ATCSRB EQU ATCAOSM+288 01407000 ATCSRBCN EQU ATCSRB+4 01408000 ATCCRPL EQU ATCAOSM+296 01409000 ATCRPLCN EQU ATCCRPL+4 01410000 ATCVTFLG EQU ATCAOSM+392 01411000 ATCTRMPB EQU ATCAOSM+440 01412000 ATCZFLAG EQU ATCAOSM+588 01413000 REGSAVE EQU 0 01414000 RMWA EQU 0 01415000 RMWFLGS EQU RMWA 01416000 RMWTPQD EQU RMWFLGS 01417000 RMWFREE EQU RMWFLGS 01418000 RMWMSFL EQU RMWFLGS 01419000 RMWGTOWN EQU RMWFLGS 01420000 RMWPSTA EQU RMWA+4 01421000 RMWMPSA EQU RMWA+8 01422000 RMWSV13 EQU RMWA+12 01423000 RMWSV14 EQU RMWA+16 01424000 RMWSV0 EQU RMWA+20 01425000 RMWMSFLD EQU RMWA+24 01426000 RMWMSGV EQU RMWMSFLD 01427000 RMWMSGW EQU RMWMSFLD+8 01428000 RMWMSGX EQU RMWMSFLD+16 01429000 RMWPRMS EQU RMWA+48 01430000 @NM00110 EQU 0 01431000 CMZID003 EQU @NM00110 01432000 @NM00111 EQU @NM00110+4 01433000 CMZRL003 EQU @NM00111 01434000 CMZRA003 EQU @NM00111+1 01435000 CMZEA003 EQU @NM00110+8 01436000 CMZVP003 EQU @NM00110+12 01437000 CMZSA003 EQU 0 01438000 CMTA003 EQU 0 01439000 @NM00112 EQU 0 01440000 CMZID013 EQU @NM00112 01441000 @NM00113 EQU @NM00112+4 01442000 CMZRL013 EQU @NM00113 01443000 CMZRA013 EQU @NM00113+1 01444000 CMZEA013 EQU @NM00112+8 01445000 CMZVP013 EQU @NM00112+12 01446000 CMZSA013 EQU 0 01447000 CMTA013 EQU 0 01448000 ISTAPC37 EQU 0 01449000 ISTAPC34 EQU 0 01450000 CVTS01 EQU CVTPGSIA 01451000 CVTLPDIA EQU CVTS01+12 01452000 CVTDIRST EQU CVTLPDIA 01453000 CVTSLIDA EQU CVTS01+24 01454000 CVTCTLFG EQU CVTS01+50 01455000 CVTSDMP EQU CVTS01+232 01456000 CVTLSMQ EQU CVTS01+268 01457000 CVTRV210 EQU CVTS01+424 01458000 CVTRV219 EQU CVTS01+425 01459000 CVTRV228 EQU CVTS01+426 01460000 CVTRV237 EQU CVTS01+427 01461000 CVTMFRTR EQU CVTS01+452 01462000 CVTRV262 EQU CVTS01+468 01463000 CVTRV271 EQU CVTS01+469 01464000 CVTRV280 EQU CVTS01+470 01465000 CVTRV289 EQU CVTS01+471 01466000 CVTGSDA EQU CVTS01+600 01467000 FLC EQU PSA 01468000 PSARSVTE EQU PSARSVT 01469000 TIOENTRY EQU TIOT1+24 01470000 TIOESTTA EQU TIOENTRY+1 01471000 TIOERLOC EQU TIOENTRY+2 01472000 TIOELINK EQU TIOERLOC+1 01473000 TIOESYOT EQU TIOELINK 01474000 TIOESTTC EQU TIOENTRY+15 01475000 TIOESTTB EQU TIOENTRY+16 01476000 POOLSTAR EQU TIOENTRY+20 01477000 TIOEDEVE EQU TIOESTTB 01478000 TIOSTTB EQU TIOEDEVE 01479000 @NM00107 EQU MPSFLGA 01480000 RTRDNCBA EQU ISTRTR+40 01481000 SRB EQU SRBSECT 01482000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01483000 @NM00109 EQU @NM00107+1 01484000 MPSRMGAT EQU @NM00107+1 01485000 @NM00108 EQU @NM00107 01486000 TIOUCBP EQU TIOEDEVE+1 01487000 TIOVERF EQU TIOSTTB 01488000 TIOUNLD EQU TIOSTTB 01489000 TIOMNTD EQU TIOSTTB 01490000 TIOSETU EQU TIOSTTB 01491000 TIOVLSR EQU TIOSTTB 01492000 TIOPVIO EQU TIOSTTB 01493000 TIOREQD EQU TIOSTTB 01494000 TIOUSED EQU TIOSTTB 01495000 TIOTFEND EQU POOLSTAR+16 01496000 TIOPSLOT EQU POOLSTAR+13 01497000 TIOPSTTB EQU POOLSTAR+12 01498000 TIOPPOOL EQU POOLSTAR+4 01499000 TIOPNSRT EQU POOLSTAR+3 01500000 @NM00082 EQU POOLSTAR+2 01501000 TIOPNSLT EQU POOLSTAR+1 01502000 @NM00081 EQU POOLSTAR 01503000 TIOEFSRT EQU TIOENTRY+17 01504000 TIOSVERF EQU TIOESTTB 01505000 TIOSUNLD EQU TIOESTTB 01506000 TIOSMNTD EQU TIOESTTB 01507000 TIOSSETU EQU TIOESTTB 01508000 TIOSVLSR EQU TIOESTTB 01509000 TIOSPVIO EQU TIOESTTB 01510000 TIOSREQD EQU TIOESTTB 01511000 TIOSUSED EQU TIOESTTB 01512000 TIOSBALS EQU TIOESTTC 01513000 TIOSBALP EQU TIOESTTC 01514000 TIOSVOLS EQU TIOESTTC 01515000 TIOSVOLP EQU TIOESTTC 01516000 TIOSAFFS EQU TIOESTTC 01517000 TIOSAFFP EQU TIOESTTC 01518000 TIOSDEFR EQU TIOESTTC 01519000 TIOSDKCR EQU TIOESTTC 01520000 TIOEJFCB EQU TIOENTRY+12 01521000 TIOEDDNM EQU TIOENTRY+4 01522000 TIOTREM EQU TIOELINK 01523000 TIOESSDS EQU TIOESYOT 01524000 TIOESYIN EQU TIOELINK 01525000 TIOEQNAM EQU TIOELINK 01526000 TIOEDYNM EQU TIOELINK 01527000 TIOTTERM EQU TIOELINK 01528000 TIOTRV01 EQU TIOELINK 01529000 TIOSYOUT EQU TIOELINK 01530000 TIOEWTCT EQU TIOERLOC 01531000 TIOSDSP2 EQU TIOESTTA 01532000 TIOSDSP1 EQU TIOESTTA 01533000 TIOSLABL EQU TIOESTTA 01534000 TIOSDADS EQU TIOESTTA 01535000 TIOSJBLB EQU TIOESTTA 01536000 TIOSPLTS EQU TIOESTTA 01537000 TIOSPLTP EQU TIOESTTA 01538000 TIOSLTYP EQU TIOESTTA 01539000 TIOELNGH EQU TIOENTRY 01540000 PSARSAV EQU PSARSVTE+60 01541000 PSARSTK EQU PSARSVTE+56 01542000 PSAESAV3 EQU PSARSVTE+52 01543000 PSAESTK3 EQU PSARSVTE+48 01544000 PSAESAV2 EQU PSARSVTE+44 01545000 PSAESTK2 EQU PSARSVTE+40 01546000 PSAESAV1 EQU PSARSVTE+36 01547000 PSAESTK1 EQU PSARSVTE+32 01548000 PSAPSAV EQU PSARSVTE+28 01549000 PSAPSTK EQU PSARSVTE+24 01550000 PSAMSAV EQU PSARSVTE+20 01551000 PSAMSTK EQU PSARSVTE+16 01552000 PSASSAV EQU PSARSVTE+12 01553000 PSASSTK EQU PSARSVTE+8 01554000 PSANSTK EQU PSARSVTE+4 01555000 PSACSTK EQU PSARSVTE 01556000 CVTRV628 EQU CVTS01+728 01557000 CVTRV627 EQU CVTS01+724 01558000 CVTRV626 EQU CVTS01+720 01559000 CVTRV625 EQU CVTS01+716 01560000 CVTRV624 EQU CVTS01+712 01561000 CVTRV623 EQU CVTS01+708 01562000 CVTRV622 EQU CVTS01+704 01563000 CVTRV621 EQU CVTS01+700 01564000 CVTRV620 EQU CVTS01+696 01565000 CVTRV619 EQU CVTS01+692 01566000 CVTRV618 EQU CVTS01+688 01567000 CVTRV617 EQU CVTS01+684 01568000 CVTRV616 EQU CVTS01+680 01569000 CVTRV615 EQU CVTS01+676 01570000 CVTRV614 EQU CVTS01+672 01571000 CVTRV613 EQU CVTS01+668 01572000 CVTTCASP EQU CVTS01+664 01573000 CVT0PT03 EQU CVTS01+660 01574000 CVT0PT0E EQU CVTS01+656 01575000 CVTIRM EQU CVTS01+652 01576000 CVTCGK EQU CVTS01+648 01577000 CVTRV607 EQU CVTS01+644 01578000 CVTRV606 EQU CVTS01+640 01579000 CVTRV605 EQU CVTS01+636 01580000 CVTRV604 EQU CVTS01+632 01581000 CVTEFF02 EQU CVTS01+628 01582000 CVTCBBR EQU CVTS01+624 01583000 CVTSSCR EQU CVTS01+620 01584000 CVTEVENT EQU CVTS01+616 01585000 CVTCRCA EQU CVTS01+612 01586000 CVTTPIO EQU CVTS01+608 01587000 CVTADV EQU CVTS01+604 01588000 CVTGSDAB EQU CVTGSDA 01589000 CVTQV3 EQU CVTS01+596 01590000 CVTQV2 EQU CVTS01+592 01591000 CVTQV1 EQU CVTS01+588 01592000 CVTRPT EQU CVTS01+584 01593000 CVTSSRB EQU CVTS01+580 01594000 CVTCSDRL EQU CVTS01+576 01595000 CVTEXP1 EQU CVTS01+572 01596000 CVTRMPMT EQU CVTS01+568 01597000 CVTRMPTT EQU CVTS01+564 01598000 CVTVPSA EQU CVTS01+560 01599000 CVTVSTOP EQU CVTS01+556 01600000 CVTGTFR8 EQU CVTS01+552 01601000 CVTQUIT EQU CVTS01+548 01602000 CVTVACR EQU CVTS01+544 01603000 CVTWTCB EQU CVTS01+540 01604000 CVTSTPRS EQU CVTS01+536 01605000 CVT0PT02 EQU CVTS01+532 01606000 CVTDARCM EQU CVTS01+528 01607000 CVTIRECM EQU CVTS01+524 01608000 CVTJRECM EQU CVTS01+520 01609000 CVTVEMS0 EQU CVTS01+516 01610000 CVTSPFRR EQU CVTS01+512 01611000 CVTRLSTG EQU CVTS01+508 01612000 CVT0TC0A EQU CVTS01+504 01613000 CVTGMBR EQU CVTS01+500 01614000 CVTLFRM EQU CVTS01+496 01615000 CVTRMBR EQU CVTS01+492 01616000 CVTVIOP EQU CVTS01+488 01617000 CVTRV307 EQU CVTS01+486 01618000 CVTRV306 EQU CVTS01+484 01619000 CVTRV305 EQU CVTS01+482 01620000 CVTRV304 EQU CVTS01+480 01621000 CVTRV303 EQU CVTS01+478 01622000 CVTRV302 EQU CVTS01+476 01623000 CVTTRCA EQU CVTS01+472 01624000 CVTRV297 EQU CVTRV289 01625000 CVTRV296 EQU CVTRV289 01626000 CVTRV295 EQU CVTRV289 01627000 CVTRV294 EQU CVTRV289 01628000 CVTRV293 EQU CVTRV289 01629000 CVTRV292 EQU CVTRV289 01630000 CVTRV291 EQU CVTRV289 01631000 CVTRV290 EQU CVTRV289 01632000 CVTRV288 EQU CVTRV280 01633000 CVTRV287 EQU CVTRV280 01634000 CVTRV286 EQU CVTRV280 01635000 CVTRV285 EQU CVTRV280 01636000 CVTRV284 EQU CVTRV280 01637000 CVTRV283 EQU CVTRV280 01638000 CVTRV282 EQU CVTRV280 01639000 CVTRV281 EQU CVTRV280 01640000 CVTRV279 EQU CVTRV271 01641000 CVTRV278 EQU CVTRV271 01642000 CVTRV277 EQU CVTRV271 01643000 CVTRV276 EQU CVTRV271 01644000 CVTRV275 EQU CVTRV271 01645000 CVTRV274 EQU CVTRV271 01646000 CVTRV273 EQU CVTRV271 01647000 CVTRV272 EQU CVTRV271 01648000 CVTRV270 EQU CVTRV262 01649000 CVTRV269 EQU CVTRV262 01650000 CVTRV268 EQU CVTRV262 01651000 CVTRV267 EQU CVTRV262 01652000 CVTRV266 EQU CVTRV262 01653000 CVTRV265 EQU CVTRV262 01654000 CVTRV264 EQU CVTRV262 01655000 CVTRV263 EQU CVTRV262 01656000 CVTVFP EQU CVTS01+464 01657000 CVTVSI EQU CVTS01+460 01658000 CVTVPSIB EQU CVTS01+456 01659000 CVTMFACT EQU CVTMFRTR 01660000 CVTMFCTL EQU CVTS01+448 01661000 CVTPVBP EQU CVTS01+444 01662000 CVTPWI EQU CVTS01+440 01663000 CVTRV254 EQU CVTS01+438 01664000 CVTRV253 EQU CVTS01+436 01665000 CVTRV252 EQU CVTS01+434 01666000 CVTRV251 EQU CVTS01+433 01667000 CVTRV250 EQU CVTS01+432 01668000 CVTRV249 EQU CVTS01+431 01669000 CVTRV248 EQU CVTS01+430 01670000 CVTRV247 EQU CVTS01+429 01671000 CVTRV246 EQU CVTS01+428 01672000 CVTRV245 EQU CVTRV237 01673000 CVTRV244 EQU CVTRV237 01674000 CVTRV243 EQU CVTRV237 01675000 CVTRV242 EQU CVTRV237 01676000 CVTRV241 EQU CVTRV237 01677000 CVTRV240 EQU CVTRV237 01678000 CVTRV239 EQU CVTRV237 01679000 CVTRV238 EQU CVTRV237 01680000 CVTRV236 EQU CVTRV228 01681000 CVTRV235 EQU CVTRV228 01682000 CVTRV234 EQU CVTRV228 01683000 CVTRV233 EQU CVTRV228 01684000 CVTRV232 EQU CVTRV228 01685000 CVTRV231 EQU CVTRV228 01686000 CVTRV230 EQU CVTRV228 01687000 CVTRV229 EQU CVTRV228 01688000 CVTRV227 EQU CVTRV219 01689000 CVTRV226 EQU CVTRV219 01690000 CVTRV225 EQU CVTRV219 01691000 CVTRV224 EQU CVTRV219 01692000 CVTRV223 EQU CVTRV219 01693000 CVTRV222 EQU CVTRV219 01694000 CVTRV221 EQU CVTRV219 01695000 CVTRV220 EQU CVTRV219 01696000 CVTRV218 EQU CVTRV210 01697000 CVTRV217 EQU CVTRV210 01698000 CVTRV216 EQU CVTRV210 01699000 CVTRV215 EQU CVTRV210 01700000 CVTRV214 EQU CVTRV210 01701000 CVTRV213 EQU CVTRV210 01702000 CVTRV212 EQU CVTRV210 01703000 CVTRV211 EQU CVTRV210 01704000 CVTLCCAT EQU CVTS01+420 01705000 CVTPCCAT EQU CVTS01+416 01706000 CVTIPCRP EQU CVTS01+412 01707000 CVTIPCRI EQU CVTS01+408 01708000 CVTIPCDS EQU CVTS01+404 01709000 CVTAIDVT EQU CVTS01+400 01710000 CVTSSAP EQU CVTS01+396 01711000 CVTEHCIR EQU CVTS01+392 01712000 CVTEHDEF EQU CVTS01+388 01713000 CVTDAIR EQU CVTS01+384 01714000 CVTPERFM EQU CVTS01+380 01715000 CVT044R2 EQU CVTS01+376 01716000 CVTFETCH EQU CVTS01+372 01717000 CVTRSTWD EQU CVTS01+368 01718000 CVTSPOST EQU CVTS01+364 01719000 CVTIOBP EQU CVTS01+360 01720000 CVTASMVT EQU CVTS01+356 01721000 CVTRECRQ EQU CVTS01+352 01722000 CVTWSAC EQU CVTS01+348 01723000 CVTRV149 EQU CVTS01+344 01724000 CVTWSAL EQU CVTS01+340 01725000 CVTSPSA EQU CVTS01+336 01726000 CVTGLMN EQU CVTS01+332 01727000 CVTVEAC0 EQU CVTS01+328 01728000 CVT062R1 EQU CVTS01+324 01729000 CVTRPOST EQU CVTS01+320 01730000 CVTDQIQE EQU CVTS01+316 01731000 CVTCSD EQU CVTS01+312 01732000 CVTLKRMA EQU CVTS01+308 01733000 CVTRSPIE EQU CVTS01+304 01734000 CVTRENQ EQU CVTS01+300 01735000 CVTLQCB EQU CVTS01+296 01736000 CVTFQCB EQU CVTS01+292 01737000 CVTQCS01 EQU CVTS01+288 01738000 CVTAPFT EQU CVTS01+284 01739000 CVTPARRL EQU CVTS01+280 01740000 CVTVWAIT EQU CVTS01+276 01741000 CVTGSPL EQU CVTS01+272 01742000 CVTGSMQ EQU CVTS01+264 01743000 CVTEXPRO EQU CVTS01+260 01744000 CVTOPCTP EQU CVTS01+256 01745000 CVTSIC EQU CVTS01+252 01746000 CVTTPIOS EQU CVTS01+248 01747000 CVTRTMS EQU CVTS01+244 01748000 CVTSDBF EQU CVTS01+240 01749000 CVTSCBP EQU CVTS01+236 01750000 CVTSV60 EQU CVTS01+228 01751000 CVTRTMCT EQU CVTS01+224 01752000 CVTASCBL EQU CVTS01+220 01753000 CVTASCBH EQU CVTS01+216 01754000 CVTGDA EQU CVTS01+212 01755000 CVTASVT EQU CVTS01+208 01756000 CVTVVMDI EQU CVTS01+204 01757000 CVTAQTOP EQU CVTS01+200 01758000 CVTIOSCS EQU CVTS01+196 01759000 CVTSDRM EQU CVTS01+192 01760000 CVTOPTE EQU CVTS01+188 01761000 CVTSTXU EQU CVTS01+184 01762000 CVTQUIS EQU CVTS01+180 01763000 CVTPARS EQU CVTS01+176 01764000 CVTS1EE EQU CVTS01+172 01765000 CVTFRAS EQU CVTS01+168 01766000 CVTQSAS EQU CVTS01+164 01767000 CVTCRAS EQU CVTS01+160 01768000 CVTCRMN EQU CVTS01+156 01769000 CVTDELCP EQU CVTS01+152 01770000 CVTFRECL EQU CVTS01+148 01771000 CVTGETCL EQU CVTS01+144 01772000 CVTBLDCP EQU CVTS01+140 01773000 CVTAUTHL EQU CVTS01+136 01774000 CVTSCAN EQU CVTS01+132 01775000 CVTRV144 EQU CVTS01+130 01776000 CVTMAXMP EQU CVTS01+128 01777000 CVTSTCK EQU CVTS01+124 01778000 CVTRV139 EQU CVTS01+123 01779000 CVTDSSAC EQU CVTS01+122 01780000 CVTRV513 EQU CVTS01+121 01781000 CVTIOSPL EQU CVTS01+120 01782000 CVTPTGT EQU CVTS01+116 01783000 CVTCSPIE EQU CVTS01+112 01784000 CVTSMFEX EQU CVTS01+108 01785000 CVTOLT0A EQU CVTS01+104 01786000 CVTSRBRT EQU CVTS01+100 01787000 CVTPUTL EQU CVTS01+96 01788000 CVTASCRL EQU CVTS01+92 01789000 CVTASCRF EQU CVTS01+88 01790000 CVTRV326 EQU CVTS01+84 01791000 CVTRV325 EQU CVTS01+80 01792000 CVTRV324 EQU CVTS01+76 01793000 CVT0VL01 EQU CVTS01+72 01794000 CVTSHRVM EQU CVTS01+68 01795000 CVTRV332 EQU CVTS01+64 01796000 CVTTAS EQU CVTS01+60 01797000 CVTRSCN EQU CVTS01+56 01798000 CVTTRAC2 EQU CVTS01+54 01799000 CVTTRACE EQU CVTS01+52 01800000 CVTAPG EQU CVTS01+51 01801000 CVTSDTRC EQU CVTCTLFG 01802000 CVTGTRCE EQU CVTCTLFG 01803000 CVTNOMP EQU CVTCTLFG 01804000 CVTRSV79 EQU CVTCTLFG 01805000 CVTDSTAT EQU CVTCTLFG 01806000 CVTRSV78 EQU CVTCTLFG 01807000 CVTRV333 EQU CVTCTLFG 01808000 CVTRV323 EQU CVTCTLFG 01809000 CVTSPVLK EQU CVTS01+49 01810000 CVTRSV77 EQU CVTS01+48 01811000 CVTRV331 EQU CVTS01+44 01812000 CVTRV330 EQU CVTS01+40 01813000 CVTRV329 EQU CVTS01+36 01814000 CVTRV328 EQU CVTS01+32 01815000 CVTRV322 EQU CVTS01+28 01816000 CVTSLID EQU CVTSLIDA+1 01817000 CVTSYLK EQU CVTSLIDA 01818000 CVTRV321 EQU CVTS01+20 01819000 CVTRV320 EQU CVTS01+16 01820000 CVTLPDIR EQU CVTLPDIA+1 01821000 CVTRSV69 EQU CVTDIRST 01822000 CVTRSV68 EQU CVTDIRST 01823000 CVTRSV67 EQU CVTDIRST 01824000 CVTRSV66 EQU CVTDIRST 01825000 CVTRSV65 EQU CVTDIRST 01826000 CVTRSV64 EQU CVTDIRST 01827000 CVTRSV63 EQU CVTDIRST 01828000 CVTDICOM EQU CVTDIRST 01829000 CVTPVTP EQU CVTS01+8 01830000 CVTLPDSR EQU CVTS01+4 01831000 CVTGETL EQU CVTS01 01832000 RMWMSGNO EQU RMWA+1 01833000 @NM00106 EQU RMWFLGS 01834000 ATCAOS EQU ISTATCVT+1584 01835000 ATCPOPAB EQU ATCAOSM+640 01836000 ATCVIOPM EQU ATCAOSM+636 01837000 ATCTPMMI EQU ATCAOSM+632 01838000 ATCTPMPB EQU ATCAOSM+600 01839000 ATCRSV88 EQU ATCAOSM+596 01840000 ATCRPLCT EQU ATCAOSM+594 01841000 ATCCRACT EQU ATCAOSM+592 01842000 ATCSRBCT EQU ATCAOSM+590 01843000 ATCRSV75 EQU ATCAOSM+589 01844000 ATCRSV66 EQU ATCZFLAG 01845000 ATCZF001 EQU ATCZFLAG 01846000 ATCTPCP1 EQU ATCAOSM+584 01847000 ATCTPCP0 EQU ATCAOSM+580 01848000 ATCAICTN EQU ATCAOSM+576 01849000 ATCZR01 EQU ATCAOSM+572 01850000 ATCMPLTA EQU ATCAOSM+568 01851000 ATCASCB EQU ATCAOSM+564 01852000 ATCAP86 EQU ATCAOSM+560 01853000 ATCAP85 EQU ATCAOSM+556 01854000 ATCAP84 EQU ATCAOSM+552 01855000 ATCAP83 EQU ATCAOSM+548 01856000 ATCAP82 EQU ATCAOSM+544 01857000 ATCAP69 EQU ATCAOSM+540 01858000 ATCAP66 EQU ATCAOSM+536 01859000 ATCAP62 EQU ATCAOSM+532 01860000 ATCAPC59 EQU ATCAOSM+528 01861000 ATCAP56 EQU ATCAOSM+524 01862000 ATCAP55 EQU ATCAOSM+520 01863000 ATCRCFY0 EQU ATCAOSM+516 01864000 ATCAP41 EQU ATCAOSM+512 01865000 ATCAPC25 EQU ATCAOSM+508 01866000 ATCAP23 EQU ATCAOSM+504 01867000 ATCTPSPB EQU ATCAOSM+472 01868000 ATCAPBE EQU ATCAOSM+436 01869000 ATCPSTA EQU ATCAOSM+432 01870000 ATCSMABF EQU ATCAOSM+428 01871000 ATCSMAPR EQU ATCAOSM+424 01872000 ATCTPWQA EQU ATCAOSM+420 01873000 ATCSMAID EQU ATCAOSM+416 01874000 ATCSMARA EQU ATCAOSM+412 01875000 ATCCACXA EQU ATCAOSM+408 01876000 ATCZLAAB EQU ATCAOSM+404 01877000 ATCATA10 EQU ATCAOSM+400 01878000 ATCHLTCB EQU ATCAOSM+396 01879000 @NM00105 EQU ATCVTFLG 01880000 ATCVTACT EQU ATCVTFLG 01881000 ATCRPT40 EQU ATCAOSM+388 01882000 ATCRPT39 EQU ATCAOSM+384 01883000 ATCRPT38 EQU ATCAOSM+380 01884000 ATCRPT37 EQU ATCAOSM+376 01885000 ATCRPT36 EQU ATCAOSM+372 01886000 ATCRPT35 EQU ATCAOSM+368 01887000 ATCRPT34 EQU ATCAOSM+364 01888000 ATCRPT33 EQU ATCAOSM+360 01889000 ATCRPT32 EQU ATCAOSM+356 01890000 ATCRPT31 EQU ATCAOSM+352 01891000 ATCRPT30 EQU ATCAOSM+348 01892000 ATCRPT29 EQU ATCAOSM+344 01893000 ATCRPT28 EQU ATCAOSM+340 01894000 ATCRPT27 EQU ATCAOSM+336 01895000 ATCRPT26 EQU ATCAOSM+332 01896000 ATCRPT25 EQU ATCAOSM+328 01897000 ATCRPT24 EQU ATCAOSM+324 01898000 ATCRPT23 EQU ATCAOSM+320 01899000 ATCRPT22 EQU ATCAOSM+316 01900000 ATCRPT21 EQU ATCAOSM+312 01901000 ATCRPT20 EQU ATCAOSM+308 01902000 ATCRPT19 EQU ATCAOSM+304 01903000 ATCRPLAC EQU ATCRPLCN+2 01904000 ATCRPLRC EQU ATCRPLCN 01905000 ATCCRPLQ EQU ATCCRPL 01906000 ATCSRBAC EQU ATCSRBCN+2 01907000 ATCSRBRC EQU ATCSRBCN 01908000 ATCSRBQ EQU ATCSRB 01909000 ATCCRAAC EQU ATCCRACN+2 01910000 ATCCRARC EQU ATCCRACN 01911000 ATCCRAQ EQU ATCCRA 01912000 ATCRPT12 EQU ATCAOSM+276 01913000 ATCDMAPP EQU ATCAOSM+272 01914000 ATCAP38 EQU ATCAOSM+268 01915000 ATCZDFJ0 EQU ATCAOSM+260 01916000 ATCAP51 EQU ATCAOSM+256 01917000 ATCZPAB2 EQU ATCAOSM+224 01918000 ATCZPAB1 EQU ATCAOSM+192 01919000 ATCZLFVT EQU ATCAOSM+188 01920000 ATCZLPVT EQU ATCAOSM+184 01921000 ATCZDVTX EQU ATCAOSM+180 01922000 ATCZDVTA EQU ATCAOSM+176 01923000 ATCZDVT9 EQU ATCAOSM+172 01924000 ATCZDVT8 EQU ATCAOSM+168 01925000 ATCZDVT7 EQU ATCAOSM+164 01926000 ATCRSV56 EQU ATCDAPVT+22 01927000 ATCDAPDG EQU ATCDAPVT+20 01928000 ATCDXCEA EQU ATCDAPVT+16 01929000 ATCDCEA EQU ATCDAPVT+12 01930000 ATCDPCIA EQU ATCDAPVT+8 01931000 ATCDSIOA EQU ATCDAPVT+4 01932000 ATCDEOEA EQU ATCDAPVT 01933000 ATCZLAEA EQU ATCLDAPP+16 01934000 ATCZLCEA EQU ATCLDAPP+12 01935000 ATCRSV17 EQU ATCLDAPP+8 01936000 ATCSMFRR EQU ATCLDAPP+4 01937000 ATCCDTID EQU ATCLDAPP 01938000 ATCZAEA EQU ATCICAPP+16 01939000 ATCZCEA EQU ATCICAPP+12 01940000 ATCCDTCB EQU ATCICAPP+8 01941000 ATCZSIOA EQU ATCICAPP+4 01942000 ATCCDRPH EQU ATCICAPP 01943000 ATCAP65 EQU ATCAOSM+96 01944000 ATCZDVT6 EQU ATCAOSM+92 01945000 ATCZDVT4 EQU ATCAOSM+88 01946000 ATCZDVT3 EQU ATCAOSM+84 01947000 ATCZDVT1 EQU ATCAOSM+80 01948000 ATCICNCB EQU ATCAOSM+76 01949000 ATCZPSVT EQU ATCAOSM+72 01950000 ATCZFSVT EQU ATCAOSM+68 01951000 ATCAP64 EQU ATCAOSM+64 01952000 ATCAP63 EQU ATCAOSM+60 01953000 ATCAP61 EQU ATCAOSM+56 01954000 ATCAP58 EQU ATCAOSM+52 01955000 ATCAP57 EQU ATCAOSM+48 01956000 ATCAP54 EQU ATCAOSM+44 01957000 ATCAP53 EQU ATCAOSM+40 01958000 ATCAP52 EQU ATCAOSM+36 01959000 ATCAP32 EQU ATCAOSM+28 01960000 ATCAP31 EQU ATCAOSM+24 01961000 ATCAP12 EQU ATCAOSM+20 01962000 ATCAP11 EQU ATCAOSM+16 01963000 ATCCMTCB EQU ATCAOSM+12 01964000 ATCPRPH EQU ATCAOSM+8 01965000 ATCGSRBF EQU ATCGSRBG 01966000 ATCSRBRT EQU ATCAOSM 01967000 @NM00104 EQU @NM00103 01968000 ATCVTMAB EQU @NM00103 01969000 @NM00102 EQU ATCVTBAM 01970000 ATCVDLOK EQU ISTATCVT+904 01971000 ATCVFPAB EQU ISTATCVT+872 01972000 ATCVDPAB EQU ISTATCVT+840 01973000 ATCIOECB EQU ISTATCVT+836 01974000 ATCINCW3 EQU ISTATCVT+832 01975000 ATCMODTB EQU ISTATCVT+828 01976000 ATCUSSPT EQU ISTATCVT+824 01977000 ATCSRTAB EQU ISTATCVT+820 01978000 @NM00101 EQU ISTATCVT+819 01979000 @NM00100 EQU ATCSTAT2 01980000 ATCTRSMS EQU ATCSTAT2 01981000 ATCTRLOK EQU ATCSTAT2 01982000 ATCTRPSS EQU ATCSTAT2 01983000 ATCTRESC EQU ATCSTAT2 01984000 ATCTRAPI EQU ATCSTAT2 01985000 ATCNMCTR EQU ISTATCVT+816 01986000 ATCSEC51 EQU ATCSECST 01987000 ATCSEC40 EQU ATCSIPD+8 01988000 ATCSEC30 EQU ATCSIPD+4 01989000 ATCSEC21 EQU ATCSIPD 01990000 ATCSEC10 EQU ATCSOPD+4 01991000 ATCSEC01 EQU ATCSOPD 01992000 ATCPOIA EQU ATCRNO+1 01993000 @NM00099 EQU ATCRNO 01994000 ATCPODVT EQU ISTATCVT+784 01995000 ATCS49XL EQU ISTATCVT+780 01996000 ATCS49XI EQU ISTATCVT+776 01997000 ATCLCLCT EQU ATCVLCNT+2 01998000 ATCRNCNT EQU ATCVLCNT 01999000 ATCCFEAD EQU ISTATCVT+768 02000000 ATCPTR00 EQU ISTATCVT+736 02001000 ATCRSV10 EQU ISTATCVT+704 02002000 ATCTACB EQU ISTATCVT+700 02003000 ATCVTINM EQU ISTATCVT+696 02004000 ATCTCLIM EQU ISTATCVT+692 02005000 ATCTCLOM EQU ISTATCVT+688 02006000 ATCVTIPB EQU ISTATCVT+656 02007000 ATCTCIPB EQU ISTATCVT+624 02008000 ATCTIPAB EQU ISTATCVT+592 02009000 ATCOCCCB EQU ISTATCVT+588 02010000 ATCOCCOB EQU ISTATCVT+584 02011000 ATCCDLAD EQU ISTATCVT+580 02012000 ATCCCLAD EQU ISTATCVT+576 02013000 ATCDLRPB EQU ISTATCVT+544 02014000 ATCPGPAB EQU ISTATCVT+512 02015000 ATCVPAB1 EQU ISTATCVT+480 02016000 ATCRSV97 EQU ISTATCVT+476 02017000 ATCRDTLK EQU ISTATCVT+472 02018000 ATCVOCLK EQU ISTATCVT+468 02019000 ATCCDFDN EQU ISTATCVT+464 02020000 ATCCDFIN EQU ISTATCVT+460 02021000 ATCDVTLK EQU ISTATCVT+456 02022000 ATCAP36 EQU ISTATCVT+452 02023000 ATCAP35 EQU ISTATCVT+448 02024000 ATCAP33 EQU ISTATCVT+444 02025000 ATCRSV99 EQU ISTATCVT+440 02026000 ATCONFIG EQU ISTATCVT+432 02027000 ATCNODDS EQU ISTATCVT+428 02028000 ATCNODEL EQU ISTATCVT+420 02029000 ATCRSV69 EQU ISTATCVT+416 02030000 ATCAPCR5 EQU ISTATCVT+412 02031000 ATCLDECB EQU ISTATCVT+408 02032000 ATCLDNCS EQU ISTATCVT+404 02033000 ATCCDPTR EQU ISTATCVT+400 02034000 ATCADEL EQU ISTATCVT+396 02035000 ATCTODVT EQU ISTATCVT+392 02036000 ATCDEBCH EQU ISTATCVT+388 02037000 ATCHBSIZ EQU ATCHPGM+2 02038000 ATCHBFNO EQU ATCHPGM 02039000 ATCCRME EQU ISTATCVT+380 02040000 ATCRVCHS EQU ISTATCVT+372 02041000 ATCECTLP EQU ISTATCVT+368 02042000 ATCZDVTB EQU ISTATCVT+364 02043000 ATCECPRT EQU ISTATCVT+360 02044000 ATCVTLOD EQU ISTATCVT+356 02045000 ATCTRPAB EQU ISTATCVT+352 02046000 ATCMSGM EQU ISTATCVT+348 02047000 ATCEPT EQU ISTATCVT+340 02048000 ATCDVT EQU ISTATCVT+336 02049000 ATCTRCPT EQU ISTATCVT+332 02050000 ATCDVLOD EQU ISTATCVT+328 02051000 ATCALERT EQU ISTATCVT+324 02052000 ATCEPA EQU ISTATCVT+320 02053000 ATCSAF EQU ISTATCVT+318 02054000 ATCXRANG EQU ISTATCVT+317 02055000 ATCLAST EQU ATCSHRFG 02056000 ATCSHRTN EQU ISTATCVT+308 02057000 ATCUEP EQU ISTATCVT+304 02058000 ATCOCRT EQU ISTATCVT+300 02059000 ATCCSMA EQU ATCCSMR 02060000 ATCESC02 EQU ISTATCVT+292 02061000 ATCESC01 EQU ISTATCVT+288 02062000 ATCCDFND EQU ISTATCVT+284 02063000 ATCCDDEL EQU ISTATCVT+280 02064000 ATCCDADD EQU ISTATCVT+276 02065000 ATCMNT EQU ISTATCVT+272 02066000 ATCRSV16 EQU ISTATCVT+270 02067000 ATCMAXID EQU ISTATCVT+269 02068000 ATCMSGSP EQU ATCCOM+268 02069000 ATCCIDM EQU ATCCOM+266 02070000 ATCACTRM EQU ATCCOM+264 02071000 ATCNERAP EQU ATCCOM+260 02072000 ATCNESAL EQU ATCCOM+256 02073000 ATCRCC65 EQU ATCCOM+252 02074000 ATCRCC26 EQU ATCCOM+248 02075000 ATCRCC63 EQU ATCCOM+244 02076000 ATCRSV11 EQU ATCCOM+242 02077000 ATCVTMID EQU ATCCOM+240 02078000 ATCAPOST EQU ATCCOM+236 02079000 ATCNERFN EQU ATCCOM+232 02080000 ATCNERNE EQU ATCCOM+228 02081000 ATCNERCV EQU ATCCOM+224 02082000 ATCNERST EQU ATCCOM+220 02083000 ATCDCC61 EQU ATCCOM+216 02084000 ATCDCC60 EQU ATCCOM+212 02085000 ATCSRTDF EQU ATCCOM+208 02086000 ATCSRTAD EQU ATCCOM+204 02087000 ATCFIRA EQU ATCCOM+200 02088000 ATCSMBQ EQU ATCCOM+196 02089000 ATCSMRC EQU ATCCOM+192 02090000 ATCSMRS EQU ATCCOM+188 02091000 ATCSMQU EQU ATCCOM+184 02092000 ATCSMRQ EQU ATCCOM+180 02093000 ATCACDA EQU ATCCOM+176 02094000 ATCSTMA EQU ATCCOM+172 02095000 ATCFRSTR EQU ATCCOM+168 02096000 ATCGTSTR EQU ATCCOM+164 02097000 ATCREADA EQU ATCCOM+160 02098000 ATCALOAD EQU ATCCOM+156 02099000 ATCBLDLA EQU ATCCOM+152 02100000 ATCFBRPH EQU ATCCOM+148 02101000 ATCBFTRC EQU ATCCOM+144 02102000 ATCTPBUF EQU ATCTHTRC 02103000 ATCREMOV EQU ATCCOM+136 02104000 ATCADD EQU ATCCOM+132 02105000 ATCBPDA EQU ATCCOM+128 02106000 ATCDVTPT EQU ATCCOM+124 02107000 ATCFEPT EQU ATCCOM+120 02108000 ATCFDVT EQU ATCCOM+116 02109000 ATCCONFT EQU ATCCOM+112 02110000 ATCPTCHA EQU ATCCOM+108 02111000 ATCAUTHA EQU ATCCOM+104 02112000 ATCACCTA EQU ATCCOM+100 02113000 ATCRDTH EQU ATCCOM+96 02114000 ATCFRSCH EQU ATCCOM+92 02115000 ATCFSB EQU ATCCOM+88 02116000 ATCHLTMS EQU ATCCOM+84 02117000 ATCECPRM EQU ATCCOM+80 02118000 ATCECNET EQU ATCCOM+76 02119000 ATCECOPC EQU ATCCOM+72 02120000 ATCVPARM EQU ATCCOM+68 02121000 ATCECVRQ EQU ATCCOM+64 02122000 ATCECSES EQU ATCCOM+60 02123000 ATCOCHA EQU ATCCOM+56 02124000 ATCDSPLQ EQU ATCCOM+52 02125000 ATCECDSP EQU ATCCOM+48 02126000 ATCVARYQ EQU ATCCOM+44 02127000 ATCECVRY EQU ATCCOM+40 02128000 ATCHALTQ EQU ATCCOM+36 02129000 ATCECHLT EQU ATCCOM+32 02130000 ATCMODQ EQU ATCCOM+28 02131000 ATCECMOD EQU ATCCOM+24 02132000 ATCASCHD EQU ATCCOM+20 02133000 ATCSRT EQU ATCCOM+16 02134000 ATCRDT EQU ATCCOM+12 02135000 ATCDCFRR EQU ATCCOM+8 02136000 ATCAPI EQU ATCCOM+4 02137000 ATCRSV04 EQU ATCSTAT4 02138000 ATCVTTRC EQU ATCSTAT4 02139000 ATCNCSD EQU ATCSTAT4 02140000 ATCMTST EQU ATCSTAT4 02141000 ATCTPRT EQU ATCSTAT4 02142000 ATCPRTAT EQU ATCSTAT4 02143000 @NM00098 EQU ATCPOFLG 02144000 ATCPOUNS EQU ATCPOFLG 02145000 ATCHSDMF EQU ATCSTFLG 02146000 @NM00097 EQU ATCSTAT1 02147000 ATCMDHLT EQU ATCSTAT1 02148000 ATCINHLT EQU ATCSTAT1 02149000 ATCNETSL EQU ATCSTAT1 02150000 ATCQKHLT EQU ATCSTAT1 02151000 ATCSNHLT EQU ATCSTAT1 02152000 ATCACTIV EQU ATCSTAT1 02153000 ATCSTART EQU ATCSTAT1 02154000 PSTDRDYQ EQU PSTDMPS+1 02155000 @NM00096 EQU PSTDMPS 02156000 PSTDGATE EQU PSTDMPS 02157000 PSTSAVE EQU ISTPST+96 02158000 PSTSMDYP EQU ISTPST+64 02159000 PSTCRRS EQU ISTPST+60 02160000 PSTCRR1 EQU ISTPST+56 02161000 PSTIQE22 EQU ISTPST+52 02162000 PSTIQE21 EQU ISTPST+48 02163000 PSTIQE12 EQU ISTPST+44 02164000 PSTIQE11 EQU ISTPST+40 02165000 PSTUEQ EQU ISTPST+36 02166000 PSTNSSQ EQU ISTPST+32 02167000 PSTPSSQ EQU ISTPST+28 02168000 PSTACBCT EQU ISTPST+24 02169000 PSTMPSTP EQU ISTPST+20 02170000 PSTRSV08 EQU PSTFLGA+1 02171000 PSTDMPC EQU PSTFLGA+1 02172000 PSTABEND EQU PSTABINP 02173000 PSTAUTH EQU PSTFLGA 02174000 PSTSMCU EQU PSTFLGA 02175000 PSTSMQR EQU PSTFLGA 02176000 PSTIRBU2 EQU PSTFLGA 02177000 PSTIRBU1 EQU PSTFLGA 02178000 PSTUERN EQU PSTFLGA 02179000 PSTSSRN EQU PSTFLGA 02180000 PSTRQUEA EQU PSTRQUE+1 02181000 PSTRSV07 EQU PSTRQUE 02182000 PSTRSV06 EQU PSTRQUE 02183000 PSTRSV05 EQU PSTRQUE 02184000 PSTRSV04 EQU PSTRQUE 02185000 PSTRSV03 EQU PSTRQUE 02186000 PSTRSV02 EQU PSTRQUE 02187000 PSTRSV01 EQU PSTRQUE 02188000 PSTRQFLG EQU PSTRQUE 02189000 PSTCHAIN EQU ISTPST+4 02190000 @NM00095 EQU ISTPST+2 02191000 PSTLNGTH EQU ISTPST+1 02192000 PSTTYPE EQU ISTPST 02193000 RPHNEXPO EQU ISTRPH+104 02194000 RPHSAV16 EQU RPHWORK+60 02195000 RPHSAV15 EQU RPHWORK+56 02196000 RPHSAV14 EQU RPHWORK+52 02197000 RPHSAV13 EQU RPHWORK+48 02198000 RPHSAV12 EQU RPHWORK+44 02199000 RPHSAV11 EQU RPHWORK+40 02200000 RPHSAV10 EQU RPHWORK+36 02201000 RPHSAVE9 EQU RPHWORK+32 02202000 RPHSAVE8 EQU RPHWORK+28 02203000 RPHSAVE7 EQU RPHWORK+24 02204000 RPHSAVE6 EQU RPHWORK+20 02205000 RPHSAVE5 EQU RPHWORK+16 02206000 RPHSAVE4 EQU RPHWORK+12 02207000 RPHSAVE3 EQU RPHWORK+8 02208000 RPHSAVE2 EQU RPHWORK+4 02209000 RPHSHALF EQU RPHSAVE1+2 02210000 RPHSBIT8 EQU RPHSBITS 02211000 RPHSBIT7 EQU RPHSBITS 02212000 RPHSBIT6 EQU RPHSBITS 02213000 RPHSBIT5 EQU RPHSBITS 02214000 RPHSBIT4 EQU RPHSBITS 02215000 RPHSBIT3 EQU RPHSBITS 02216000 RPHSBIT2 EQU RPHSBITS 02217000 RPHSBIT1 EQU RPHSBITS 02218000 RPHSBYTE EQU RPHSAVE1 02219000 RPHPABQP EQU RPHPABQA+1 02220000 RPHPABFG EQU RPHPABQA 02221000 RPHCRR EQU ISTRPH+32 02222000 RPHSRP34 EQU RPHSRPRM+2 02223000 RPHSRP12 EQU RPHSRPRM 02224000 RPHWEGT EQU RPHCSPA 02225000 RPHMAJCB EQU ISTRPH+21 02226000 RPHPABOF EQU ISTRPH+20 02227000 RPHRESUM EQU RPHRESMA+1 02228000 RPHRSV01 EQU RPHWPFLG 02229000 RPHPURGE EQU RPHWPFLG 02230000 RPHPT EQU RPHWPFLG 02231000 RPHWT EQU RPHWPFLG 02232000 RPHRSKEY EQU RPHWPFLG 02233000 RPHDVTA EQU ISTRPH+12 02234000 RPHTIK EQU RPHTSKID+3 02235000 @NM00094 EQU RPHTSKID 02236000 RPHRPHAP EQU RPHRPHA+1 02237000 @NM00093 EQU RPHRPHA 02238000 RPHGATE EQU RPHRPHA 02239000 @NM00092 EQU RPHFLGB 02240000 RPHRLCRA EQU RPHFLGB 02241000 RPHNRSAV EQU RPHFLGB 02242000 RPHPGCMP EQU RPHFLGB 02243000 RPHFBAPS EQU RPHFLGB 02244000 RPHBSSP EQU RPHFLGB 02245000 RPHLOCK EQU RPHFLGB 02246000 RPHFNFLG EQU RPHFSTLC 02247000 RPHMLTCP EQU RPHFLAGS 02248000 RPHSMCLR EQU RPHFLAGS 02249000 RPHSMTYP EQU RPHFLAGS 02250000 RPHSMQ EQU RPHFLAGS 02251000 RPHAUTEX EQU RPHAPTYP 02252000 RPHSPGIN EQU RPHFLAGS 02253000 RPHOGIND EQU RPHFLAGS 02254000 RPHLNGTH EQU RPHCNTL+1 02255000 RPHTYPE EQU RPHCNTL 02256000 PATRSV01 EQU PATFLAGA 02257000 PATUSEFG EQU PATFLAGA 02258000 PATRDCNT EQU ISTPAT+6 02259000 PATGRPID EQU ISTPAT+5 02260000 PATPTHID EQU ISTPAT+4 02261000 PATDINDX EQU ISTPAT+2 02262000 PATGINDX EQU ISTPAT 02263000 GNTGRPNM EQU ISTGNT 02264000 DNTTELNO EQU ISTDNT+1 02265000 DNTCTDIG EQU ISTDNT 02266000 RLSRSV02 EQU ISTRLS+140 02267000 RLSRSV01 EQU ISTRLS+138 02268000 RLSCTELU EQU ISTRLS+136 02269000 RLSPRE EQU ISTRLS 02270000 RDARSVPT EQU ISTRDA+84 02271000 RDAPUBI EQU ISTRDA+83 02272000 RDADFCUA EQU ISTRDA+80 02273000 RDACTPCC EQU ISTRDA+79 02274000 RDADACUA EQU ISTRDA+76 02275000 RDALUBA EQU RDAUCBAD+1 02276000 RDACHQI EQU RDAUCBAD 02277000 RDARSV01 EQU RDAFLAG 02278000 RDARBISA EQU RDAFLAG 02279000 RDAPRE EQU ISTRDA 02280000 RSWRSV01 EQU ISTRSW+152 02281000 RSWRSV02 EQU ISTRSW+150 02282000 RSWCTELU EQU ISTRSW+148 02283000 RSWGRUPZ EQU ISTRSW+146 02284000 RSWDIALZ EQU ISTRSW+144 02285000 RSWGRUPT EQU ISTRSW+140 02286000 RSWDIALT EQU ISTRSW+136 02287000 RSWPRE EQU ISTRSW 02288000 RLXRSV03 EQU ISTRLX+80 02289000 RLXRSV02 EQU ISTRLX+77 02290000 RLXRSV01 EQU RLXFLAGA 02291000 RLXINUSE EQU RLXFLAGA 02292000 RLXNLUX EQU ISTRLX+72 02293000 RLXPRE EQU ISTRLX 02294000 RPXRSV01 EQU ISTRPX+80 02295000 RPXRSV02 EQU ISTRPX+77 02296000 RPXMAXLU EQU ISTRPX+76 02297000 RPXFLUX EQU ISTRPX+72 02298000 RPXPRE EQU ISTRPX 02299000 RLURSV02 EQU ISTRLU+172 02300000 RLULGMOD EQU ISTRLU+164 02301000 RLUMODEP EQU RLUMODET+8 02302000 RLUMODEN EQU RLUMODET 02303000 RLUUSSPT EQU RLUUSSTB+8 02304000 RLUUSSNM EQU RLUUSSTB 02305000 RLURSV01 EQU ISTRLU+137 02306000 RLULOCAD EQU ISTRLU+136 02307000 RLUNCPPM EQU RLUNCPPC+1 02308000 RLUNCPPN EQU RLUNCPPC 02309000 RLUPACEM EQU RLUPACE+1 02310000 RLUPACEN EQU RLUPACE 02311000 RLUINTA EQU ISTRLU+128 02312000 RLUSSCFM EQU ISTRLU+127 02313000 RLUCRRSV EQU RLUCRFLG 02314000 RLUACTLU EQU RLUCRFLG 02315000 RLURSV00 EQU RLUFLAG 02316000 RLUNDSES EQU RLUFLAG 02317000 RLUGSTAT EQU RLUFLAG 02318000 RLUBATCH EQU RLUFLAG 02319000 RLURBISA EQU RLUFLAG 02320000 RLUTYPE EQU ISTRLU+124 02321000 RLUCRPR EQU ISTRLU 02322000 RCCRVPT2 EQU ISTRCC+144 02323000 RCCXTOSW EQU ISTRCC+140 02324000 RCCSWTOX EQU ISTRCC+136 02325000 RCCRSPT2 EQU ISTRCC+133 02326000 RCCADDR EQU ISTRCC+132 02327000 RCCPASSL EQU ISTRCC+131 02328000 RCCMXOUT EQU ISTRCC+130 02329000 RCCMXDAT EQU ISTRCC+128 02330000 RCCINDEX EQU ISTRCC+126 02331000 RCCPATHZ EQU ISTRCC+124 02332000 RCCPATHT EQU ISTRCC+120 02333000 RCCDPQ EQU ISTRCC+116 02334000 RCCTPAB EQU ISTRCC+112 02335000 RCCRSV02 EQU ISTRCC+109 02336000 RCCCRRSV EQU RCCCRFLG 02337000 RCCCTCFL EQU RCCCRFLG 02338000 RCCACTPU EQU RCCCRFLG 02339000 RCCNCSPL EQU ISTRCC+104 02340000 RCCRPHCN EQU ISTRCC+100 02341000 RCCEPAB EQU ISTRCC+96 02342000 RCCDPAB EQU ISTRCC+92 02343000 RCCVPAB EQU ISTRCC+88 02344000 @NM00091 EQU ISTRCC+87 02345000 RCCSESCT EQU ISTRCC+86 02346000 RCCIDNUM EQU RCCID48+3 02347000 RCCIDBLK EQU RCCID48+2 02348000 RCCIDPA2 EQU RCCID48+1 02349000 RCCIDPUT EQU RCCID48 02350000 RCCIDPA1 EQU RCCSTAID 02351000 RCCCTELU EQU ISTRCC+76 02352000 RCCCNCNT EQU ISTRCC+75 02353000 RCCRTGOH EQU RCCFLAGB 02354000 RCCBRKCN EQU RCCFLAGB 02355000 RCCRESET EQU RCCFLAGB 02356000 RCCFINAL EQU RCCFLAGB 02357000 RCCBNNSP EQU RCCFLAGB 02358000 RCCIRETR EQU RCCFLAGB 02359000 RCCDIALP EQU RCCFLAGB 02360000 RCCDSTCT EQU RCCFLAGB 02361000 RCCCTPGD EQU RCCFLAG 02362000 RCCPRGDN EQU RCCFLAG 02363000 RCCOUERP EQU RCCFLAG 02364000 RCCOHIMM EQU RCCFLAG 02365000 RCCLDISC EQU RCCFLAG 02366000 RCCERPIP EQU RCCFLAG 02367000 RCCCUDIE EQU RCCFLAG 02368000 RCCRBISA EQU RCCFLAG 02369000 RCCTYPE EQU ISTRCC+72 02370000 RCCPRE EQU ISTRCC 02371000 DOTADTRM EQU ISTDOT 02372000 RDSADDOT EQU ISTRDS+76 02373000 RDSCTATR EQU ISTRDS+74 02374000 RDSCTTRM EQU ISTRDS+72 02375000 RDSPRE EQU ISTRDS 02376000 RINRSV05 EQU ISTRIN+156 02377000 RINRSV04 EQU ISTRIN+152 02378000 RINLOCRN EQU ISTRIN+148 02379000 RINRSV02 EQU ISTRIN+145 02380000 RTRCNCNT EQU RINCNCNT 02381000 RTRNCSPL EQU RINNCSPL 02382000 RTRRPHCN EQU RINRPHCN 02383000 RTRVPAB EQU RINVPAB 02384000 RTRREMOT EQU RINREMOT 02385000 RTRRLDAF EQU RINRLDAF 02386000 RTRNODID EQU RINNODID 02387000 RINRSV01 EQU RINDFD 02388000 RTRLDISC EQU RINLDISC 02389000 RTRNODEF EQU RINNODEF 02390000 RTRREMPO EQU RINREMPO 02391000 RINCRPRE EQU ISTRIN 02392000 RTRRSV04 EQU ISTRTR+210 02393000 RTRLCTI EQU ISTRTR+209 02394000 RTRIDCAS EQU RTRBSCID+1 02395000 RTRIDLEN EQU RTRBSCID 02396000 RTRRSVDD EQU ISTRTR+181 02397000 RTRRDFG EQU ISTRTR+180 02398000 RTRDIAA EQU ISTRTR+176 02399000 RTRPOLA EQU ISTRTR+172 02400000 RTRCADDR EQU ISTRTR+164 02401000 RTRCTADR EQU ISTRTR+162 02402000 RTRCTPOL EQU ISTRTR+160 02403000 RTRCTDIA EQU ISTRTR+158 02404000 RTRRSV03 EQU ISTRTR+156 02405000 RTRRVPT1 EQU ISTRTR+152 02406000 RTRBHSN1 EQU ISTRTR+144 02407000 RTRCRSV2 EQU RTRCRFLG 02408000 RTRDTRLM EQU RTRLSCMD 02409000 RTRCRSV1 EQU RTRCRFLG 02410000 RTRTRMAX EQU ISTRTR+142 02411000 RTRRSV24 EQU RTRRDFF 02412000 RTRRFDEK EQU RTRRDFF 02413000 RTRRFANK EQU RTRRDFF 02414000 RTRRFPFK EQU RTRRDFF 02415000 RTRRFPEN EQU RTRRDFF 02416000 RTRRFXCT EQU RTRRDFF 02417000 RTRRESCT EQU RTRRDFE 02418000 RTRRESUP EQU RTRRDFE 02419000 RTRREATT EQU RTRRDFE 02420000 RTRRECHK EQU RTRRDFE 02421000 RTRREACR EQU RTRRDFE 02422000 RTRRSV0A EQU RTRRDFE 02423000 RTRREBRK EQU RTRRDFE 02424000 RTRRSV11 EQU RTRRDFD 02425000 RTRRSV10 EQU RTRRDFD 02426000 RTRRDBHI EQU RTRRDFD 02427000 RTRRDBHD EQU RTRRDFD 02428000 RTRRDBHN EQU RTRRDFD 02429000 RTRRSV23 EQU RTRRDFC 02430000 RTRRCXMS EQU RTRRDFC 02431000 RTRRCMSG EQU RTRRDFC 02432000 RTRRCBLK EQU RTRRDFC 02433000 RTRRCPT3 EQU RTRRDFC 02434000 RTRRCIT2 EQU RTRRDFC 02435000 RTRRCIT1 EQU RTRRDFC 02436000 RTRRSV32 EQU RTRRDFB 02437000 RTRRBEND EQU RTRRDFB 02438000 RTRRBECT EQU RTRRDFB 02439000 RTRRSV02 EQU RTRRDFA 02440000 RTRRACTR EQU RTRRDFA 02441000 RTRRSV60 EQU RTRRDFA 02442000 RTRRACDT EQU RTRRDFA 02443000 RTRRAPT3 EQU RTRRAALL 02444000 RTRRAPT2 EQU RTRRAALL 02445000 RTRRAPT1 EQU RTRRAALL 02446000 RTRRAATN EQU RTRRDFA 02447000 RTRRSV45 EQU ISTRTR+132 02448000 RTRRSV01 EQU ISTRTR+130 02449000 RTRCTECM EQU ISTRTR+128 02450000 RTRADRPT EQU RTRADR+1 02451000 RTRRSV22 EQU RTRFLAG 02452000 RTRVTERM EQU RTRFLAG 02453000 RTRRSV51 EQU RTRFLAG 02454000 RTRRBISA EQU RTRFLAG 02455000 RTRRSV21 EQU RTRFLAG 02456000 RTRCRPR EQU ISTRTR 02457000 RCLRVPT2 EQU ISTRCL+92 02458000 RCLRVPT1 EQU ISTRCL+88 02459000 RCLGPOLA EQU ISTRCL+84 02460000 RCLCTNGP EQU ISTRCL+82 02461000 RCLRSV01 EQU ISTRCL+80 02462000 RCLCTECM EQU ISTRCL+78 02463000 RCLCTETR EQU ISTRCL+76 02464000 RCLGPADR EQU RCLADR+1 02465000 RCLRSV33 EQU RCLFLAG 02466000 RCLBATCH EQU RCLFLAG 02467000 RCLRBISA EQU RCLFLAG 02468000 RCLRSV22 EQU RCLFLAG 02469000 RCLPRE EQU ISTRCL 02470000 RPTRSV03 EQU ISTRPT+156 02471000 RPTRSV02 EQU ISTRPT+152 02472000 RPTNSNSV EQU ISTRPT+148 02473000 RPTPTHCT EQU ISTRPT+146 02474000 RPTPEPCT EQU ISTRPT+144 02475000 RPTDAFSV EQU ISTRPT+142 02476000 RPTRSV01 EQU ISTRPT+141 02477000 RPTISTAT EQU RPTFLAG1 02478000 RPTDYNAM EQU RPTFLAG1 02479000 RPTVYIMM EQU RPTFLAG1 02480000 RPTVIODN EQU RPTFLAG1 02481000 RPTONLIN EQU RPTFLAG1 02482000 RPTHLVPD EQU RPTFLAG1 02483000 RPTVRYPD EQU RPTFLAG1 02484000 RPTASLEP EQU RPTFLAG1 02485000 RPTUTERM EQU ISTRPT+136 02486000 RPTATERM EQU ISTRPT+132 02487000 RPTDIVT EQU RPTDITT 02488000 RPTCTNM EQU ISTRPT+120 02489000 RPTLNDAF EQU RPTLNCID+2 02490000 RPTLNSAF EQU RPTLNCID 02491000 RPTLN EQU ISTRPT 02492000 RLNRVPT2 EQU ISTRLN+112 02493000 RLNNCSPL EQU ISTRLN+108 02494000 RLNX2SW EQU ISTRLN+104 02495000 @NM00090 EQU ISTRLN+103 02496000 RLNCRRSV EQU RLNCRFLG 02497000 RLNSWEP EQU RLNCRFLG 02498000 RLNSVSKP EQU RLNLSCMD 02499000 RLNSESLM EQU RLNLSCMD 02500000 RLNNPRLM EQU RLNLSCMD 02501000 RLNSWNCP EQU RLNCRFLG 02502000 RLNACTLN EQU RLNCRFLG 02503000 RLNPAUSE EQU ISTRLN+101 02504000 RLNPOLMT EQU ISTRLN+100 02505000 RLNACTSN EQU ISTRLN+98 02506000 RLNRESV1 EQU ISTRLN+97 02507000 RLNACTRM EQU ISTRLN+96 02508000 RLNCTSES EQU ISTRLN+95 02509000 RLNRDSLM EQU ISTRLN+94 02510000 RLNAUTOA EQU ISTRLN+92 02511000 RLNRDFD EQU RLNRDF+3 02512000 RLNRDFC EQU RLNRDF+2 02513000 RLNMULTP EQU RLNRDFB 02514000 RLNRATRN EQU RLNRDFB 02515000 RLNRAPOL EQU RLNRDFB 02516000 RLNTTV EQU RLNRDFB 02517000 RLNRSV0B EQU RLNRDFB 02518000 RLNAUTOD EQU RLNRDFB 02519000 RLNANSWR EQU RLNRDFB 02520000 RLNRBUSE EQU RLNRDFB 02521000 RLNRAPEP EQU RLNRDFA 02522000 RLNRANCP EQU RLNRDFA 02523000 RLNRAEP EQU RLNRDFA 02524000 RLNIDV EQU RLNRDFA 02525000 RLNPORT EQU RLNRDFA 02526000 RLNGANSW EQU RLNRDFA 02527000 RLNRACAN EQU RLNRACNT 02528000 RLNRACAT EQU RLNRACNT 02529000 RLNRSV04 EQU RLNSTAT2 02530000 RLNINUSE EQU RLNSTAT2 02531000 RLNOHIN EQU RLNSTAT2 02532000 RLNRSV03 EQU RLNSTAT1 02533000 RLNVD EQU RLNSTAT1 02534000 RLNINOPP EQU RLNSTAT1 02535000 RLNINOPL EQU RLNSTAT1 02536000 RLNLRST EQU RLNSTAT1 02537000 RLNTRAP EQU RLNSTAT1 02538000 RLNACTCT EQU ISTRLN+84 02539000 RLNCTECM EQU ISTRLN+82 02540000 RLNCTEIN EQU ISTRLN+80 02541000 RLNCTETR EQU ISTRLN+78 02542000 RLNCTECL EQU ISTRLN+76 02543000 RLNCUA EQU RLNUCBAD 02544000 RLNRSV01 EQU RLNFLAG 02545000 RLNRBISA EQU RLNFLAG 02546000 RLNEAM EQU RLNFLAG 02547000 RLNPRE EQU ISTRLN 02548000 RGPRVPT2 EQU ISTRGP+88 02549000 RGPRVPT1 EQU ISTRGP+84 02550000 RGPCTECM EQU ISTRGP+82 02551000 RGPCTEIN EQU ISTRGP+80 02552000 RGPCTETR EQU ISTRGP+78 02553000 RGPCTECL EQU ISTRGP+76 02554000 RGPCTELN EQU ISTRGP+74 02555000 RGPRSV03 EQU ISTRGP+73 02556000 RGPRSV02 EQU RGPFLG 02557000 RGPASDLC EQU RGPFLG 02558000 RGPABSC EQU RGPFLG 02559000 RGPASS EQU RGPFLG 02560000 RGPADIL EQU RGPFLG 02561000 RGPPRE EQU ISTRGP 02562000 RRNRINNM EQU ISTRRN+248 02563000 @NM00089 EQU ISTRRN+247 02564000 RRNRDCUA EQU ISTRRN+244 02565000 RRNLASTE EQU ISTRRN+240 02566000 RRNNCSPL EQU ISTRRN+236 02567000 RRNRPLPT EQU ISTRRN+232 02568000 RRNMSIZE EQU ISTRRN+228 02569000 RRNNCPNM EQU ISTRRN+221 02570000 RRNCTPCC EQU ISTRRN+220 02571000 RRNHBUFS EQU ISTRRN+218 02572000 RRNHLENT EQU RRNHPRE+1 02573000 RRNHLENH EQU RRNHPRE 02574000 RRNNMNCP EQU ISTRRN+208 02575000 RRNDELAY EQU ISTRRN+206 02576000 RRNRSV04 EQU ISTRRN+200 02577000 RRNRSV88 EQU RRNNMDPD+7 02578000 RRNPUBI EQU RRNNMDPD+6 02579000 RRNDPLUB EQU RRNNMDPD 02580000 RRNEPADR EQU ISTRRN+190 02581000 RRNCPLUB EQU ISTRRN+184 02582000 RRNFLUX EQU ISTRRN+180 02583000 RRNRSV05 EQU RRNCMFD 02584000 RRNREMPO EQU RRNCMFD 02585000 RRNCDREC EQU RRNCMFD 02586000 RRNCDDSI EQU RRNCMFD 02587000 RRNCDBCK EQU RRNCMFD 02588000 RRNCDDTL EQU RRNCMFD 02589000 RRNCDSTD EQU RRNCMFD 02590000 RRNCDCSP EQU RRNCMFD 02591000 RRNCCCSL EQU RRNCMFC 02592000 RRNCCSIM EQU RRNCMFC 02593000 RRNCCRCM EQU RRNCMFC 02594000 RRNCCRIM EQU RRNCMFC 02595000 RRNCCCRC EQU RRNCMFC 02596000 RRNCCRST EQU RRNCMFC 02597000 RRNCCRDQ EQU RRNCMFC 02598000 RRNCCRCN EQU RRNCMFC 02599000 RRNCBALT EQU RRNCMFB 02600000 RRNCBMOD EQU RRNCMFB 02601000 RRNCBNPL EQU RRNCMFB 02602000 RRNCBRLS EQU RRNCMFB 02603000 RRNCBRDS EQU RRNCMFB 02604000 RRNCBDLR EQU RRNCMFB 02605000 RRNCBDLH EQU RRNCMFB 02606000 RRNCBDLO EQU RRNCMFB 02607000 RRNCADGO EQU RRNCMFA 02608000 RRNCADTD EQU RRNCMFA 02609000 RRNCACDT EQU RRNCMFA 02610000 RRNCAMBH EQU RRNCMFA 02611000 RRNCAATI EQU RRNCMFA 02612000 RRNCAATG EQU RRNCMFA 02613000 RRNCAATD EQU RRNCMFA 02614000 RRNCAALL EQU RRNCMFA 02615000 RRNRSV55 EQU RRNRDF+3 02616000 RRNPTASL EQU RRNRDFB+1 02617000 RRNRSV01 EQU RRNRDFB+1 02618000 RRNVYDON EQU RRNRDFB+1 02619000 RRNRBBUP EQU RRNRDFB+1 02620000 RRNRSV03 EQU RRNRDFB 02621000 RRNRBCT2 EQU RRNRDFB 02622000 RRNRBCT1 EQU RRNRDFB 02623000 RRNRBSEC EQU RRNRDFB 02624000 RRNRBCCT EQU RRNRDFB 02625000 RRNRBCCL EQU RRNRDFB 02626000 RRNRSV02 EQU RRNRDFB 02627000 RRNRBMDL EQU RRNRDFB 02628000 RRNRAPEP EQU RRNRDFA 02629000 RRNRANCP EQU RRNRDFA 02630000 RRNRBREM EQU RRNRDFA 02631000 RRNRAOLT EQU RRNRDFA 02632000 RRNRASYN EQU RRNRDFA 02633000 RRNRADMP EQU RRNRDFA 02634000 RRNRAIPL EQU RRNRDFA 02635000 RRNRASHT EQU RRNRDFA 02636000 RRNCTENT EQU ISTRRN+170 02637000 RRNCTECM EQU ISTRRN+168 02638000 RRNCTEIN EQU ISTRRN+166 02639000 RRNCTETR EQU ISTRRN+164 02640000 RRNCTECL EQU ISTRRN+162 02641000 RRNCTELI EQU ISTRRN+160 02642000 RRNCTEGP EQU ISTRRN+158 02643000 RRNCTBHS EQU ISTRRN+156 02644000 RRNBHSET EQU ISTRRN+152 02645000 RRNTRENT EQU ISTRRN+148 02646000 RRNRLDIP EQU ISTRRN+147 02647000 RRNRNCUA EQU ISTRRN+144 02648000 RRNGRPA EQU ISTRRN+140 02649000 RRNLUBA EQU RRNUCBAD+1 02650000 RRNCHQI EQU RRNUCBAD 02651000 RRNRSV11 EQU RRNFLAG 02652000 RRNDSTCT EQU RRNFLAG 02653000 RRNERPIP EQU RRNFLAG 02654000 RRNLCDIP EQU RRNFLAG 02655000 RRNLCDIE EQU RRNFLAG 02656000 RRNLCSIP EQU RRNFLAG 02657000 RRNRBISA EQU RRNFLAG 02658000 RRNRSV89 EQU RRNFLAG 02659000 RRNPRE EQU ISTRRN 02660000 RLCRVPT2 EQU ISTRLC+80 02661000 RLCRVPT1 EQU ISTRLC+79 02662000 RLCLCCUA EQU ISTRLC+76 02663000 RLCUCBAD EQU RLCADR+1 02664000 RLCRSVDE EQU RLCFLAG 02665000 RLCACNT EQU RLCFLAG 02666000 RLCRSV14 EQU RLCFLAG 02667000 RLCRBISA EQU RLCFLAG 02668000 RLCRSV22 EQU RLCFLAG 02669000 RLCPRE EQU ISTRLC 02670000 RAPRVPT2 EQU ISTRAP+116 02671000 RAPRVPT1 EQU ISTRAP+112 02672000 RAPBFACT EQU ISTRAP+111 02673000 RAPRSV17 EQU RAPFLGC 02674000 RAPRSV16 EQU RAPFLGC 02675000 RAPRSV15 EQU RAPFLGC 02676000 RAPRSV14 EQU RAPFLGC 02677000 RAPRSV13 EQU RAPFLGC 02678000 RAPRSV12 EQU RAPFLGC 02679000 RAPRSV11 EQU RAPFLGC 02680000 RAPRSV10 EQU RAPFLGC 02681000 RAPANVPC EQU RAPFLGB 02682000 RAPASPO EQU RAPFLGB 02683000 RAPAPPO EQU RAPFLGB 02684000 RAPAACQ EQU RAPFLGB 02685000 RAPAPRMT EQU RAPFLGB 02686000 RAPAPASS EQU RAPFLGB 02687000 RAPABLCK EQU RAPFLGB 02688000 RAPALLF EQU RAPFLGB 02689000 RAPRSV06 EQU RAPFLG 02690000 RAPRSV05 EQU RAPFLG 02691000 RAPRSV04 EQU RAPFLG 02692000 RAPRSV03 EQU RAPFLG 02693000 RAPATLGN EQU RAPFLG 02694000 RAPASLGI EQU RAPFLG 02695000 RAPAQUI EQU RAPFLG 02696000 RAPABLGN EQU RAPFLG 02697000 RAPACEQD EQU ISTRAP+106 02698000 RAPTRPRE EQU ISTRAP+104 02699000 RAPACEAP EQU ISTRAP+100 02700000 RAPICEAQ EQU ISTRAP+96 02701000 RAPICEAC EQU ISTRAP+92 02702000 RAPICELG EQU ISTRAP+88 02703000 RAPAPPWD EQU ISTRAP+80 02704000 RAPACBA EQU ISTRAP+72 02705000 RAPPRE EQU ISTRAP 02706000 RDTVSRPL EQU ISTRDT+132 02707000 RDTCRSPW EQU ISTRDT+124 02708000 RDTCRSDS EQU ISTRDT+116 02709000 @NM00088 EQU ISTRDT+113 02710000 RRNSTCNT EQU RDTSTCNT 02711000 RRNVYRPH EQU RDTVYRPH 02712000 RDTTPAB EQU ISTRDT+104 02713000 RDTDPAB EQU ISTRDT+100 02714000 RDTEPAB EQU ISTRDT+96 02715000 RDTVPAB EQU ISTRDT+92 02716000 RDTRSV01 EQU RDTFLAGB 02717000 RDTBHSET EQU RDTFLAGB 02718000 RDTCTCFL EQU RDTFLAGB 02719000 RDTCTPGD EQU RDTFLAGB 02720000 RDTPRGDN EQU RDTFLAGB 02721000 RDTOUERP EQU RDTFLAGB 02722000 RDTLGCT EQU ISTRDT+90 02723000 RDTNODID EQU ISTRDT+89 02724000 RDTMAXID EQU ISTRDT+88 02725000 RDTCTSNT EQU ISTRDT+86 02726000 RDTFLAGS EQU ISTRDT+84 02727000 RDTBACK EQU ISTRDT+80 02728000 RDTFORW EQU ISTRDT+76 02729000 RDTLEN EQU RDTPLEN+1 02730000 RDTPRILS EQU RDTPRIOR 02731000 RDTPRISW EQU RDTPRIOR 02732000 RDTPRIRN EQU RDTPRIOR 02733000 RDTPRILC EQU RDTPRIOR 02734000 RDTPRIAP EQU RDTPRIOR 02735000 @NM00087 EQU RDTPRIOR 02736000 RDTPRE EQU ISTRDT 02737000 RCPRSV05 EQU ISTRCPRE+120 02738000 RCPRSV04 EQU ISTRCPRE+116 02739000 RCPRSV03 EQU ISTRCPRE+112 02740000 RCPINTA EQU RCPLGNIN+16 02741000 RCPLGNCT EQU RCPLGNIN+8 02742000 RCPLGNAP EQU RCPLGNIN 02743000 @NM00086 EQU RCPPMODE 02744000 RCPRRECD EQU RCPPMODE 02745000 RCPRBASC EQU RCPPMODE 02746000 RCPBFLIM EQU ISTRCPRE+90 02747000 RCPBHSI2 EQU ISTRCPRE+89 02748000 RCPBHSI1 EQU ISTRCPRE+88 02749000 RCPACETR EQU ISTRCPRE+84 02750000 RCPICEAQ EQU ISTRCPRE+80 02751000 RCPLNAPA EQU ISTRCPRE+76 02752000 RCPICELN EQU ISTRCPRE+72 02753000 RCPPRE EQU ISTRCPRE 02754000 RPRCONID EQU ISTRPRE+63 02755000 RPRCLVPD EQU RPRFLAGC 02756000 RPRINIMM EQU RPRFLAGD 02757000 RPRRSV05 EQU RPRFLAGD 02758000 RPRCONP EQU RPRFLAGD 02759000 RPRACTP EQU RPRFLAGD 02760000 RPRRSON EQU RPRFLAGD 02761000 RPRCONCT EQU RPRFLAGD 02762000 RPRLTASN EQU RPRFLAGD 02763000 RPRPTHCT EQU ISTRPRE+60 02764000 RPRSWDAF EQU ISTRPRE+58 02765000 RPRSTPCT EQU ISTRPRE+56 02766000 RPRRVPT1 EQU ISTRPRE+52 02767000 RPRDEVCH EQU ISTRPRE+44 02768000 RPRNCBA EQU ISTRPRE+40 02769000 RPRNSNEA EQU ISTRPRE+36 02770000 RPRLGONB EQU ISTRPRE+32 02771000 RPRHDTYP EQU ISTRPRE+27 02772000 RPRTIOCT EQU ISTRPRE+26 02773000 RPRPEPCT EQU ISTRPRE+24 02774000 RPRRSV03 EQU RPRCAUSE 02775000 RPRRSYNC EQU RPRCAUSE 02776000 RPRCRCPT EQU RPRCAUSE 02777000 RPRNOSRT EQU RPRCAUSE 02778000 RPRINTST EQU RPRFLAGB 02779000 RPRVYIMM EQU RPRFLAGB 02780000 RPRHLVPD EQU RPRFLAGB 02781000 RPRVIODN EQU RPRFLAGB 02782000 RPRAOPN EQU RPRFLAGB 02783000 RPRENTVT EQU RPRFLAGB 02784000 RPRENTVH EQU RPRFLAGB 02785000 RPRLIVE EQU RPRFLAGA 02786000 RPRVRYPD EQU RPRFLAGA 02787000 RPRENTED EQU RPRFLAGA 02788000 RPRENTIO EQU RPRFLAGA 02789000 RPRENTBF EQU RPRFLAGA 02790000 RPRTIED EQU RPRFLAGA 02791000 RPRINV EQU RPRFLAGA 02792000 RPRACT EQU RPRFLAGA 02793000 RPRENTRY EQU ISTRPRE+20 02794000 RPRPELEN EQU ISTRPRE+18 02795000 RPRELEN EQU ISTRPRE+16 02796000 RPRRLOCK EQU ISTRPRE+12 02797000 RPRDAF EQU RPRCOMID+2 02798000 RPRSAF EQU RPRCOMID 02799000 DEVRSV03 EQU ISTDEVCH+5 02800000 DEVPHYSA EQU ISTDEVCH+4 02801000 DEVCSLPN EQU DEVCHAR3 02802000 DEVCSTCL EQU DEVCHAR3 02803000 DEVCCHEK EQU DEVCHAR3 02804000 DEVCATTN EQU DEVCHAR3 02805000 DEVCSWL EQU DEVFCCTL 02806000 DEVCRVB EQU DEVFCCTL 02807000 DEVCSSL EQU DEVFCCTL 02808000 DEVCBSC EQU DEVFCCTL 02809000 DEVMCODE EQU ISTDEVCH+2 02810000 DEVCHAR2 EQU DEVTCODE 02811000 DEVRSV01 EQU DEVCHAR 02812000 DEVCCTL EQU DEVCHAR 02813000 DEVNNSPT EQU DEVCHAR 02814000 DEVSPS EQU DEVCHAR 02815000 DEVSUBND EQU DEVCHAR 02816000 DEVCONVR EQU DEVCHAR 02817000 DEVOTPUT EQU DEVCHAR 02818000 DEVINPUT EQU DEVCHAR 02819000 DCERSV01 EQU ISTDCE+12 02820000 DCETERM EQU ISTDCE+8 02821000 ACDREFQ EQU ISTACDEB+204 02822000 ACDASFQ EQU ISTACDEB+200 02823000 ACDSOP EQU ISTACDEB+184 02824000 ACDSIP EQU ISTACDEB+168 02825000 ACDRSV24 EQU ACDVTAM+108 02826000 ACDRSV23 EQU ACDVTAM+104 02827000 ACDRSV22 EQU ACDVTAM+100 02828000 ACDOCWAD EQU ACDVTAM+96 02829000 ACDRSV10 EQU ACDVTAM+92 02830000 ACDAPDDT EQU ACDAPDAT+1 02831000 ACDAPDLN EQU ACDAPDAT 02832000 ACDRSV07 EQU ACDVTAM+82 02833000 ACDRSV06 EQU ACDVTAM+81 02834000 ACDRSV09 EQU ACDSSFLG 02835000 ACDAICLS EQU ACDSSFLG 02836000 ACDABEND EQU ACDSSFLG 02837000 ACDCACB EQU ACDSSFLG 02838000 ACDRSV21 EQU ACDVTAM+64 02839000 ACDSSPAB EQU ACDVTAM+48 02840000 ACDNEPAB EQU ACDVTAM+32 02841000 ACDRSV20 EQU ACDVTAM+20 02842000 ACDRARQ EQU ACDVTAM+16 02843000 ACDRAFQ EQU ACDVTAM+12 02844000 ACDFMCB EQU ACDVTAM+8 02845000 ACDLOCK EQU ACDVTAM 02846000 ACDAPP EQU ACDAPPAD+1 02847000 ACDEXSCL EQU ACDAPPAD 02848000 ACDACB EQU ACDACBAD+1 02849000 ACDDEBID EQU ACDACBAD 02850000 ACDPROTG EQU ACDACBAD 02851000 ACDECBAD EQU ACDBASIC+20 02852000 ACDUSRPB EQU ACDUSRPG+1 02853000 ACDNMEXT EQU ACDUSRPG 02854000 ACDPRLEN EQU ACDBASIC+15 02855000 ACDFLGS1 EQU ACDBASIC+14 02856000 ACDQSCNT EQU ACDBASIC+13 02857000 ACDOPATB EQU ACDBASIC+12 02858000 ACDIRBAD EQU ACDBASIC+8 02859000 ACDDEB EQU ACDDEBAD+1 02860000 ACDAMLNG EQU ACDDEBAD 02861000 ACDTCB EQU ACDTCBAD+1 02862000 ACDOPNAD EQU ACDNMSUB 02863000 ACDRSV03 EQU ACDTBLOF+1 02864000 ACDRSV02 EQU ACDTBLOF 02865000 ACDAMTYP EQU ACDDBPFX+5 02866000 ACDLENG EQU ACDDBPFX+4 02867000 ACDDEBX EQU ACDDBPFX 02868000 ACDRSV08 EQU ACDVTPRX+12 02869000 ACDCHN EQU ACDVTPRX+4 02870000 ACDSAF EQU ACDVTPRX+2 02871000 ACDLNGTH EQU ACDVTPRX+1 02872000 ACDTYPE EQU ACDVTPRX 02873000 LOKXCL EQU @NM00084 02874000 LOKPRY EQU @NM00084 02875000 @NM00085 EQU @NM00084 02876000 @NM00083 EQU LOKCHNG 02877000 LOKCT EQU ISTLOK 02878000 MPSSRB1 EQU ISTMPST+172 02879000 MPSSAVE EQU ISTMPST+140 02880000 MPSMQLBP EQU ISTMPST+136 02881000 MPSSYSRT EQU ISTMPST+132 02882000 MPSQEL EQU ISTMPST+128 02883000 MPSASCB EQU ISTMPST+120 02884000 MPSTPPAB EQU ISTMPST+88 02885000 MPSSMPAB EQU ISTMPST+56 02886000 MPSSMRPH EQU ISTMPST+52 02887000 MPSRPLAC EQU MPSRPLCT+2 02888000 MPSRPLRC EQU MPSRPLCT 02889000 MPSCRPLQ EQU MPSCRPL 02890000 MPSSRBAC EQU MPSSRBCT+2 02891000 MPSSRBRC EQU MPSSRBCT 02892000 MPSSRBQ EQU MPSSRB 02893000 MPSCRAAC EQU MPSCRACT+2 02894000 MPSCRARC EQU MPSCRACT 02895000 MPSCRAQ EQU MPSCRA 02896000 MPSMPSTP EQU ISTMPST+20 02897000 MPSPSTCT EQU ISTMPST+16 02898000 MPSASID EQU MPSFLGA+2 02899000 MPSRSV02 EQU MPSFLGA+1 02900000 MPSPSTAB EQU MPSFLGA 02901000 MPSRSV01 EQU MPSFLGA 02902000 MPSTPBU EQU MPSFLGA 02903000 MPMEMTRM EQU MPSFLGA 02904000 MPSAUTH EQU MPSFLGA 02905000 MPSCRAO EQU MPSFLGA 02906000 MPSSRBO EQU MPSFLGA 02907000 MPSTSOIW EQU MPSRSV07 02908000 MPSID EQU ISTMPST 02909000 DYPPAB EQU ISTDYPAB+16 02910000 DYPRSV01 EQU ISTDYPAB+12 02911000 DYPTSKID EQU ISTDYPAB+8 02912000 DYPCHAIN EQU ISTDYPAB+4 02913000 DYPFLGS EQU ISTDYPAB+2 02914000 DYPLNGTH EQU ISTDYPAB+1 02915000 DYPTYPE EQU ISTDYPAB 02916000 PABRPHA EQU PABRPHFG+1 02917000 PABNODQ EQU PABFLAGS 02918000 PABINHBT EQU PABFLAGS 02919000 PABERLOK EQU PABERRLK 02920000 PABSSN EQU PABFLAGS 02921000 PABDYNAM EQU PABFLAGS 02922000 PABNORPR EQU PABFLAGS 02923000 PABPRIOR EQU PABFLAGS 02924000 PABAPYP EQU PABFLAGS 02925000 PABDVTA EQU ISTPAB+9 02926000 PABOFFST EQU ISTPAB+8 02927000 PABCHNGP EQU PABCHAIN+1 02928000 PABRSV02 EQU PABCHAIN 02929000 PABDELAY EQU PABCHAIN 02930000 PABRUNNG EQU PABCHAIN 02931000 PABRESET EQU PABCHAIN 02932000 PABUNCON EQU PABCHAIN 02933000 PABCDP EQU PABCHAIN 02934000 PABRESCH EQU PABCHAIN 02935000 PABCHNG EQU PABCHAIN 02936000 PABWEQP EQU PABWEQA+1 02937000 PABRSV01 EQU PABWEQA 02938000 PABWEQG EQU PABWEQA 02939000 @NM00080 EQU TCBXTNT2+32 02940000 TCBRV181 EQU TCBRV173 02941000 TCBRV180 EQU TCBRV173 02942000 TCBRV179 EQU TCBRV173 02943000 TCBRV178 EQU TCBRV173 02944000 TCBRV177 EQU TCBRV173 02945000 TCBRV176 EQU TCBRV173 02946000 TCBRV175 EQU TCBRV173 02947000 TCBRV174 EQU TCBRV173 02948000 TCBRV172 EQU TCBRV164 02949000 TCBRV171 EQU TCBRV164 02950000 TCBRV170 EQU TCBRV164 02951000 TCBRV169 EQU TCBRV164 02952000 TCBRV168 EQU TCBRV164 02953000 TCBRV167 EQU TCBRV164 02954000 TCBRV166 EQU TCBRV164 02955000 TCBRV165 EQU TCBRV164 02956000 TCBRV163 EQU TCBRV155 02957000 TCBRV162 EQU TCBRV155 02958000 TCBRV161 EQU TCBRV155 02959000 TCBRV160 EQU TCBRV155 02960000 TCBRV159 EQU TCBRV155 02961000 TCBRV158 EQU TCBRV155 02962000 TCBRV157 EQU TCBRV155 02963000 TCBRV156 EQU TCBRV155 02964000 TCBRV154 EQU TCBRV146 02965000 TCBRV153 EQU TCBRV146 02966000 TCBRV152 EQU TCBRV146 02967000 TCBRV151 EQU TCBRV146 02968000 TCBRV150 EQU TCBRV146 02969000 TCBRV149 EQU TCBRV146 02970000 TCBRV148 EQU TCBRV146 02971000 TCBRV147 EQU TCBRV146 02972000 TCBRV145 EQU TCBXTNT2+26 02973000 TCBRV144 EQU TCBXTNT2+24 02974000 TCBRV143 EQU TCBXTNT2+20 02975000 TCBRV142 EQU TCBXTNT2+16 02976000 TCBRSV49 EQU TCBXTNT2+12 02977000 TCBEVENT EQU TCBXTNT2+8 02978000 TCBRCMP EQU TCBXTNT2+5 02979000 TCBRSVAB EQU TCBXTNT2+4 02980000 TCBGTFA EQU TCBGTF+1 02981000 TCBRSV47 EQU TCBTFLG 02982000 TCBRSV46 EQU TCBTFLG 02983000 TCBRSV45 EQU TCBTFLG 02984000 TCBRSV44 EQU TCBTFLG 02985000 TCBRSV43 EQU TCBTFLG 02986000 TCBDSPIT EQU TCBTFLG 02987000 TCBERRTN EQU TCBTFLG 02988000 TCBASYNC EQU TCBTFLG 02989000 @NM00079 EQU TCB+296 02990000 TCBSVCA2 EQU TCB+292 02991000 TCBSWASA EQU TCB+288 02992000 TCBDBTB EQU TCB+284 02993000 TCBRPT EQU TCB+280 02994000 TCBRV141 EQU TCBRV133 02995000 TCBRV140 EQU TCBRV133 02996000 TCBRV139 EQU TCBRV133 02997000 TCBRV138 EQU TCBRV133 02998000 TCBRV137 EQU TCBRV133 02999000 TCBRV136 EQU TCBRV133 03000000 TCBRV135 EQU TCBRV133 03001000 TCBRV134 EQU TCBRV133 03002000 TCBRV132 EQU TCBRV124 03003000 TCBRV131 EQU TCBRV124 03004000 TCBRV130 EQU TCBRV124 03005000 TCBRV129 EQU TCBRV124 03006000 TCBRV128 EQU TCBRV124 03007000 TCBRV127 EQU TCBRV124 03008000 TCBRV126 EQU TCBRV124 03009000 TCBRV125 EQU TCBRV124 03010000 TCBRV123 EQU TCBFBYT2 03011000 TCBRV122 EQU TCBFBYT2 03012000 TCBECBNV EQU TCBFBYT2 03013000 TCBSSSYN EQU TCBFBYT2 03014000 TCBFPRAP EQU TCBFBYT2 03015000 TCBFDW EQU TCBFBYT2 03016000 TCBFMW EQU TCBFBYT2 03017000 TCBCNCB EQU TCBFBYT2 03018000 TCBLLH EQU TCBFBYT1 03019000 TCBRV113 EQU TCBFBYT1 03020000 TCBEOT EQU TCBFBYT1 03021000 TCBRTM2 EQU TCBFBYT1 03022000 TCBPGNLY EQU TCBFBYT1 03023000 TCBNDIOS EQU TCBFBYT1 03024000 TCBACTIV EQU TCBFBYT1 03025000 TCBEOTFM EQU TCBFBYT1 03026000 TCBAFFN EQU TCB+274 03027000 TCBCCPVI EQU TCB+272 03028000 TCBUKYSP EQU TCB+268 03029000 TCBMODE EQU TCBESTAE+3 03030000 TCBERTYP EQU TCBESTAE+2 03031000 TCBRV314 EQU TCBESTRM 03032000 TCBRV313 EQU TCBESTRM 03033000 TCBRV312 EQU TCBESTRM 03034000 TCBRV311 EQU TCBESTRM 03035000 TCBRV310 EQU TCBESTRM 03036000 TCBRV309 EQU TCBESTRM 03037000 TCBRV308 EQU TCBESTRM 03038000 TCBETERM EQU TCBESTRM 03039000 TCBSCBKY EQU TCBESTAE 03040000 TCBRTM12 EQU TCB+260 03041000 TCBTCBID EQU TCB+256 03042000 TCBRSV96 EQU TCB+252 03043000 TCBSWA EQU TCB+248 03044000 TCBFOEA EQU TCBFOE+1 03045000 TCBRSV42 EQU TCBFOE 03046000 TCBRV306 EQU TCB+240 03047000 TCBRSV41 EQU TCB+239 03048000 TCBTID EQU TCB+238 03049000 TCBRSVAA EQU TCB+237 03050000 TCBABCUR EQU TCB+236 03051000 TCBTMSAV EQU TCB+232 03052000 TCBIOTIM EQU TCB+228 03053000 TCBRTWA EQU TCB+224 03054000 TCBBACK EQU TCB+220 03055000 TCBTIRB EQU TCB+216 03056000 TCBAECB EQU TCB+212 03057000 TCBEXT2A EQU TCBEXT2+1 03058000 TCBRSV39 EQU TCBEXT2 03059000 TCBSTMCT EQU TCB+207 03060000 TCBSYSCT EQU TCB+206 03061000 TCBRSV37 EQU TCB+205 03062000 TCBEXSVC EQU TCBDAR 03063000 TCBDARMS EQU TCBDAR 03064000 TCBDARWT EQU TCBDAR 03065000 TCBDARO EQU TCBDAR 03066000 TCBDARMC EQU TCBDARC 03067000 TCBDARD EQU TCBDAR 03068000 TCBDARS EQU TCBDAR 03069000 TCBDARP EQU TCBDAR 03070000 TCBGTOFM EQU TCBFLGS7 03071000 TCBADMP EQU TCBFLGS7 03072000 TCBRSTSK EQU TCBFLGS7 03073000 TCBSVCS EQU TCBFLGS7 03074000 TCBSTACK EQU TCBFLGS7 03075000 TCBRSV34 EQU TCBFLGS7 03076000 TCBRSV33 EQU TCBFLGS7 03077000 TCBGPECB EQU TCBFLGS7 03078000 TCBNTJS EQU TCBFLGS6 03079000 TCBAPG EQU TCBFLGS6 03080000 TCBMIGR EQU TCBFLGS6 03081000 TCBRV303 EQU TCBFLGS6 03082000 TCBSPVLK EQU TCBFLGS6 03083000 TCBCPU EQU TCBFLGS6 03084000 TCBPIE17 EQU TCBFLGS6 03085000 TCBRV EQU TCBFLGS6 03086000 TCBRSV79 EQU TCBNDSP5 03087000 TCBRSV78 EQU TCBNDSP5 03088000 TCBRSV77 EQU TCBNDSP5 03089000 TCBRSV76 EQU TCBNDSP5 03090000 TCBRSV75 EQU TCBNDSP5 03091000 TCBRSV74 EQU TCBNDSP5 03092000 TCBRSV95 EQU TCBNDSP5 03093000 TCBRSV94 EQU TCBNDSP5 03094000 TCBRSV93 EQU TCBNDSP4 03095000 TCBRSV92 EQU TCBNDSP4 03096000 TCBRSV91 EQU TCBNDSP4 03097000 TCBRSV90 EQU TCBNDSP4 03098000 TCBRSV89 EQU TCBNDSP4 03099000 TCBRSV88 EQU TCBNDSP4 03100000 TCBRSV87 EQU TCBNDSP4 03101000 TCBRSV86 EQU TCBNDSP4 03102000 TCBEXT1A EQU TCBEXT1+1 03103000 TCBRSV32 EQU TCBEXT1 03104000 TCBEXCPD EQU TCB+192 03105000 TCBIOBRC EQU TCB+188 03106000 TCBDDWTC EQU TCB+186 03107000 TCBDDEXC EQU TCB+184 03108000 TCBJSCBB EQU TCBJSCB+1 03109000 @NM00078 EQU TCBRECDE 03110000 TCBREC EQU TCBRECDE 03111000 TCBMDIDS EQU TCB+176 03112000 TCBNDINT EQU TCBNDSP3 03113000 TCBRSV27 EQU TCBNDSP3 03114000 TCBRSV26 EQU TCBNDSP3 03115000 TCBRSV25 EQU TCBNDSP3 03116000 TCBRSV24 EQU TCBNDSP3 03117000 TCBSRBND EQU TCBNDSP3 03118000 TCBRV302 EQU TCBNDSP3 03119000 TCBLJSND EQU TCBNDSP3 03120000 TCBABE EQU TCBNDSP2 03121000 TCBDSS EQU TCBNDSP2 03122000 TCBOWAIT EQU TCBNDSP2 03123000 TCBIWAIT EQU TCBNDSP2 03124000 TCBNDTS EQU TCBNDSP2 03125000 TCBNDSVC EQU TCBNDSP2 03126000 TCBSTPP EQU TCBNDSP2 03127000 TCBABD EQU TCBNDSP2 03128000 TCBRSV22 EQU TCBNDSP1 03129000 TCBPIEND EQU TCBNDSP1 03130000 TCBTPSP EQU TCBNDSP1 03131000 TCBDDRND EQU TCBNDSP1 03132000 TCBRSPND EQU TCBNDSP1 03133000 TCBRSTND EQU TCBNDSP1 03134000 TCBDARPN EQU TCBNDSP1 03135000 TCBDARTN EQU TCBNDSP1 03136000 TCBNDSP0 EQU TCBNDSP 03137000 TCBUSER EQU TCB+168 03138000 TCBTCTB EQU TCBTCT+1 03139000 TCBRSV9C EQU TCBTCTGF 03140000 TCBRSV9B EQU TCBTCTGF 03141000 TCBRSV9A EQU TCBTCTGF 03142000 TCBRSV99 EQU TCBTCTGF 03143000 TCBRSV98 EQU TCBTCTGF 03144000 TCBRSV97 EQU TCBTCTGF 03145000 TCBRSV20 EQU TCBTCTGF 03146000 TCBSMFGF EQU TCBTCTGF 03147000 TCBSTABB EQU TCBSTAB+1 03148000 TCBSTCUR EQU TCBNSTAE 03149000 TCBRV301 EQU TCBNSTAE 03150000 TCBSYNCH EQU TCBNSTAE 03151000 TCBHALT EQU TCBNSTAE 03152000 TCBPPSUP EQU TCBNSTAE 03153000 TCB33E EQU TCBNSTAE 03154000 TCBQUIES EQU TCBNSTAE 03155000 TCBSTABE EQU TCBNSTAE 03156000 TCBAQE EQU TCB+156 03157000 TCBPQE EQU TCB+152 03158000 TCBTSDP EQU TCB+151 03159000 TCBTSLP EQU TCB+150 03160000 TCBSTPCT EQU TCB+149 03161000 TCBCPUBN EQU TCBTSFLG 03162000 TCBDYDSP EQU TCBTSFLG 03163000 TCBRSV18 EQU TCBTSFLG 03164000 TCBRSV17 EQU TCBTSFLG 03165000 TCBTIOTG EQU TCBTSFLG 03166000 TCBATT EQU TCBTSFLG 03167000 TCBSTPPR EQU TCBTSFLG 03168000 TCBRV300 EQU TCBTSTSK 03169000 TCBECB EQU TCB+144 03170000 TCBIQE EQU TCB+140 03171000 TCBLTC EQU TCB+136 03172000 TCBOTC EQU TCB+132 03173000 TCBNTC EQU TCB+128 03174000 TCBJSTCA EQU TCBJSTCB+1 03175000 TCBRSV16 EQU TCBJSTCB 03176000 TCBTQET EQU TCBTME 03177000 TCBTCB EQU TCB+116 03178000 TCBFSAB EQU TCBFSA+1 03179000 TCBQEL EQU TCBFSA 03180000 TCBGRS15 EQU TCBGRS+60 03181000 TCBGRS14 EQU TCBGRS+56 03182000 TCBGRS13 EQU TCBGRS+52 03183000 TCBGRS12 EQU TCBGRS+48 03184000 TCBGRS11 EQU TCBGRS+44 03185000 TCBGRS10 EQU TCBGRS+40 03186000 TCBGRS9 EQU TCBGRS+36 03187000 TCBGRS8 EQU TCBGRS+32 03188000 TCBGRS7 EQU TCBGRS+28 03189000 TCBGRS6 EQU TCBGRS+24 03190000 TCBGRS5 EQU TCBGRS+20 03191000 TCBGRS4 EQU TCBGRS+16 03192000 TCBGRS3 EQU TCBGRS+12 03193000 TCBGRS2 EQU TCBGRS+8 03194000 TCBGRS1 EQU TCBGRS+4 03195000 TCBGRS0 EQU TCBGRS 03196000 TCBJPQB EQU TCBJPQ+1 03197000 TCBRSV15 EQU TCBPURGE 03198000 TCBRSV14 EQU TCBPURGE 03199000 TCBRSV13 EQU TCBPURGE 03200000 TCBRSV12 EQU TCBPURGE 03201000 TCBRSV11 EQU TCBPURGE 03202000 TCBRSV10 EQU TCBPURGE 03203000 TCBRSV09 EQU TCBPURGE 03204000 TCBJPQF EQU TCBPURGE 03205000 TCBJLB EQU TCB+40 03206000 TCBLLS EQU TCB+36 03207000 TCBDSP EQU TCB+35 03208000 TCBLMP EQU TCB+34 03209000 TCBPNDSP EQU TCBFLGS5 03210000 TCBFCD1 EQU TCBFLGS5 03211000 TCBSTP EQU TCBFLGS5 03212000 TCBSYS EQU TCBFLGS5 03213000 TCBANDSP EQU TCBFLGS5 03214000 TCBPAGE EQU TCBFLGS5 03215000 TCBUXNDF EQU TCBABWF 03216000 TCBFC EQU TCBFLGS5 03217000 TCBONDSP EQU TCBFLGS4 03218000 TCBMPCND EQU TCBFLGS4 03219000 TCBMPCVQ EQU TCBFLGS4 03220000 TCBUXNDV EQU TCBFLGS4 03221000 TCBHNDSP EQU TCBFLGS4 03222000 TCBRQENA EQU TCBFLGS4 03223000 TCBSER EQU TCBFLGS4 03224000 TCBNDUMP EQU TCBFLGS4 03225000 TCBDWSTA EQU TCBFLGS3 03226000 TCBRSV08 EQU TCBFLGS3 03227000 TCBRSV07 EQU TCBFLGS3 03228000 TCBRSV06 EQU TCBFLGS3 03229000 TCBABGM EQU TCBFLGS3 03230000 TCBABTRM EQU TCBFLGS3 03231000 TCBADINP EQU TCBFLGS3 03232000 TCBFSM EQU TCBFLGS3 03233000 TCBFTS EQU TCBFLGS2 03234000 TCBFETXR EQU TCBFLGS2 03235000 TCBFDSOP EQU TCBFLGS2 03236000 TCBFJMC EQU TCBFLGS2 03237000 TCBFSMC EQU TCBFLGS2 03238000 TCBFABOP EQU TCBFLGS2 03239000 TCBFSTI EQU TCBFLGS2 03240000 TCBFOINP EQU TCBFLGS2 03241000 TCBFX EQU TCBFLGS1 03242000 TCBFS EQU TCBFLGS1 03243000 TCBFT EQU TCBFLGS1 03244000 TCBPDUMP EQU TCBFLGS1 03245000 TCBNONPR EQU TCBFLGS1 03246000 TCBFERA EQU TCBFLGS1 03247000 TCBFE EQU TCBFLGS1 03248000 TCBFA EQU TCBFLGS1 03249000 TCBZERO EQU TCBPKF 03250000 TCBFLAG EQU TCBPKF 03251000 TCBMSSB EQU TCBMSS+1 03252000 TCBRSV03 EQU TCBMSS 03253000 TCBTRNB EQU TCBTRN+1 03254000 TCBRSV02 EQU TCBABF 03255000 TCBOLTEP EQU TCBABF 03256000 TCBTCP EQU TCBABF 03257000 TCBTCPP EQU TCBABF 03258000 TCBRSV01 EQU TCBABF 03259000 TCBGRPH EQU TCBABF 03260000 TCBNOCHK EQU TCBABF 03261000 TCBMOD91 EQU TCBABF 03262000 TCBCMPC EQU TCBCMP+1 03263000 TCBRV318 EQU TCBCMSG 03264000 TCBRV317 EQU TCBCIND 03265000 TCBRV316 EQU TCBCWTO 03266000 TCBCASID EQU TCBCDBL 03267000 TCBNOCC EQU TCBSTCC 03268000 TCBDMPO EQU TCBCPP 03269000 TCBCSTEP EQU TCBCMPF 03270000 TCBCREQ EQU TCBCMPF 03271000 TCBDEB EQU TCB+8 03272000 TCBPIEA EQU TCBPIE+1 03273000 TCBPM EQU TCBPMASK 03274000 @NM00077 EQU TCBPMASK 03275000 TCBRBP EQU TCB 03276000 TCBFRS6 EQU TCBFRS+24 03277000 TCBFRS4 EQU TCBFRS+16 03278000 TCBFRS2 EQU TCBFRS+8 03279000 TCBFRS0 EQU TCBFRS 03280000 CVTLEVL EQU CVTRELNO+2 03281000 CVTNUMB EQU CVTRELNO 03282000 CVTMDL EQU CVTFIX+250 03283000 @NM00052 EQU CVTFIX+248 03284000 @NM00051 EQU CVTFIX 03285000 CVTRV482 EQU CVTXTNT2+128 03286000 CVTRV481 EQU CVTXTNT2+124 03287000 CVTRV480 EQU CVTXTNT2+120 03288000 CVTRV479 EQU CVTXTNT2+118 03289000 CVTRV478 EQU CVTXTNT2+117 03290000 CVTRV477 EQU CVTXTNT2+116 03291000 CVTRV476 EQU CVTXTNT2+115 03292000 CVTRV475 EQU CVTXTNT2+114 03293000 CVTRV474 EQU CVTRV466 03294000 CVTRV473 EQU CVTRV466 03295000 CVTRV472 EQU CVTRV466 03296000 CVTRV471 EQU CVTRV466 03297000 CVTRV470 EQU CVTRV466 03298000 CVTRV469 EQU CVTRV466 03299000 CVTRV468 EQU CVTRV466 03300000 CVTRV467 EQU CVTRV466 03301000 CVTRV465 EQU CVTRV457 03302000 CVTRV464 EQU CVTRV457 03303000 CVTRV463 EQU CVTRV457 03304000 CVTRV462 EQU CVTRV457 03305000 CVTRV461 EQU CVTRV457 03306000 CVTRV460 EQU CVTRV457 03307000 CVTRV459 EQU CVTRV457 03308000 CVTRV458 EQU CVTRV457 03309000 CVTRV456 EQU CVTXTNT2+108 03310000 CVTRV455 EQU CVTXTNT2+104 03311000 CVTRV454 EQU CVTXTNT2+100 03312000 CVTRV453 EQU CVTXTNT2+96 03313000 CVTRV452 EQU CVTXTNT2+94 03314000 CVTRV451 EQU CVTXTNT2+92 03315000 CVTRV450 EQU CVTXTNT2+90 03316000 CVTRV449 EQU CVTXTNT2+88 03317000 CVTRV448 EQU CVTXTNT2+87 03318000 CVTRV447 EQU CVTXTNT2+86 03319000 CVTRV446 EQU CVTRV438 03320000 CVTRV445 EQU CVTRV438 03321000 CVTRV444 EQU CVTRV438 03322000 CVTRV443 EQU CVTRV438 03323000 CVTRV442 EQU CVTRV438 03324000 CVTRV441 EQU CVTRV438 03325000 CVTRV440 EQU CVTRV438 03326000 CVTRV439 EQU CVTRV438 03327000 CVTRV437 EQU CVTRV429 03328000 CVTRV436 EQU CVTRV429 03329000 CVTRV435 EQU CVTRV429 03330000 CVTRV434 EQU CVTRV429 03331000 CVTRV433 EQU CVTRV429 03332000 CVTRV432 EQU CVTRV429 03333000 CVTRV431 EQU CVTRV429 03334000 CVTRV430 EQU CVTRV429 03335000 CVTRV428 EQU CVTXTNT2+80 03336000 CVTRV427 EQU CVTXTNT2+76 03337000 CVTRV426 EQU CVTXTNT2+72 03338000 CVTRV425 EQU CVTXTNT2+68 03339000 CVTATACT EQU CVTATCVT 03340000 CVTRV423 EQU CVTXTNT2+62 03341000 CVTRV422 EQU CVTXTNT2+60 03342000 CVTRV421 EQU CVTXTNT2+58 03343000 CVTRV420 EQU CVTXTNT2+56 03344000 CVTRV419 EQU CVTXTNT2+55 03345000 CVTRV418 EQU CVTXTNT2+54 03346000 CVTRV417 EQU CVTRV409 03347000 CVTRV416 EQU CVTRV409 03348000 CVTRV415 EQU CVTRV409 03349000 CVTRV414 EQU CVTRV409 03350000 CVTRV413 EQU CVTRV409 03351000 CVTRV412 EQU CVTRV409 03352000 CVTRV411 EQU CVTRV409 03353000 CVTRV410 EQU CVTRV409 03354000 CVTRV408 EQU CVTRV400 03355000 CVTRV407 EQU CVTRV400 03356000 CVTRV406 EQU CVTRV400 03357000 CVTRV405 EQU CVTRV400 03358000 CVTRV404 EQU CVTRV400 03359000 CVTRV403 EQU CVTRV400 03360000 CVTRV402 EQU CVTRV400 03361000 CVTRV401 EQU CVTRV400 03362000 CVTICB EQU CVTXTNT2+48 03363000 CVTSKTA EQU CVTXTNT2+44 03364000 CVTSHSB EQU CVTSHS 03365000 CVTRSV98 EQU CVTXTNT2+36 03366000 CVTRSV97 EQU CVTXTNT2+34 03367000 CVTRSV96 EQU CVTXTNT2+32 03368000 CVTOLTEP EQU CVTXTNT2+28 03369000 CVTQIDA EQU CVTQID+1 03370000 CVTRSV95 EQU CVTQID 03371000 CVTRSV94 EQU CVTXTNT2+20 03372000 CVTRSV93 EQU CVTXTNT2+16 03373000 CVTRSV92 EQU CVTXTNT2+12 03374000 CVTDEBVR EQU CVTXTNT2+8 03375000 CVTRSV91 EQU CVTXTNT2+6 03376000 CVTRSV9H EQU CVTFLGBT 03377000 CVTRSV9G EQU CVTFLGBT 03378000 CVTRSV9F EQU CVTFLGBT 03379000 CVTRSV9E EQU CVTFLGBT 03380000 CVTRSV9D EQU CVTFLGBT 03381000 CVTRSV9C EQU CVTFLGBT 03382000 CVTVME EQU CVTFLGBT 03383000 CVTNPE EQU CVTFLGBT 03384000 CVTNUCLS EQU CVTXTNT2+4 03385000 CVTDSSVA EQU CVTDSSV+1 03386000 CVTRSV89 EQU CVTDSSV 03387000 CVTRSV88 EQU CVTXTNT1+8 03388000 CVTRSV87 EQU CVTXTNT1+4 03389000 CVTFACHN EQU CVTXTNT1 03390000 CVTRV488 EQU CVTMAP+412 03391000 CVTRV487 EQU CVTMAP+408 03392000 CVTRV486 EQU CVTMAP+404 03393000 CVTRV485 EQU CVTMAP+400 03394000 CVTACTAP EQU CVTMAP+396 03395000 CVTAUTH EQU CVTMAP+392 03396000 CVTATMCA EQU CVTATMCT+1 03397000 CVTATMST EQU CVTATMCT 03398000 CVTRSV61 EQU CVTMAP+384 03399000 CVTVOLT1 EQU CVTVOLM1+1 03400000 CVTVOLI1 EQU CVTVOLF1 03401000 CVTSTOA EQU CVTMAP+376 03402000 CVTRSV58 EQU CVTMAP+374 03403000 CVTRSV57 EQU CVTMAP+372 03404000 CVTDDCE EQU CVTMAP+368 03405000 CVTPNWFR EQU CVTMAP+364 03406000 CVTSMF EQU CVTMAP+360 03407000 CVTSULK EQU CVTMAP+358 03408000 CVTSLKO EQU CVTSYSK 03409000 CVTSLKP EQU CVTSYSK 03410000 CVTSLKQ EQU CVTSYSK 03411000 CVTSLKR EQU CVTSYSK 03412000 CVTRSV56 EQU CVTSYSK 03413000 CVTRSV55 EQU CVTSYSK 03414000 CVTRSV54 EQU CVTSYSK 03415000 CVTRSV53 EQU CVTSYSK 03416000 CVTRSV52 EQU CVTA1F1 03417000 CVTRSV51 EQU CVTA1F1 03418000 CVTRSV50 EQU CVTA1F1 03419000 CVTRSV49 EQU CVTA1F1 03420000 CVTRSV48 EQU CVTA1F1 03421000 CVTRSV47 EQU CVTA1F1 03422000 CVTSRSW EQU CVTA1F1 03423000 CVTPFSW EQU CVTA1F1 03424000 CVTPCVT EQU CVTMAP+352 03425000 CVTRSV46 EQU CVTMAP+344 03426000 CVTRSV45 EQU CVTMAP+340 03427000 CVTRSV44 EQU CVTMAP+338 03428000 CVTRSV43 EQU CVTMAP+336 03429000 CVTHJESA EQU CVTHJES+1 03430000 CVTRSV42 EQU CVTHJES 03431000 CVTEXT2A EQU CVTEXT2+1 03432000 CVTRSV41 EQU CVTEXT2 03433000 CVTAPFA EQU CVTAPF+1 03434000 CVTRSV40 EQU CVTAPF 03435000 CVTRV518 EQU CVTINTLA 03436000 CVTRV517 EQU CVTERPV 03437000 CVTEORM EQU CVTMAP+312 03438000 CVTMCHPR EQU CVTMAP+308 03439000 CVTTZ EQU CVTMAP+304 03440000 CVTJEPS EQU CVTMAP+300 03441000 CVTJESCT EQU CVTMAP+296 03442000 CVTMODE EQU CVTMAP+292 03443000 CVTPTRV EQU CVTMAP+288 03444000 CVTREAL EQU CVTMAP+284 03445000 CVTRSV39 EQU CVTMAP+280 03446000 CVTRSV38 EQU CVTMAP+276 03447000 CVTDMSRA EQU CVTDMSR+1 03448000 CVTRV634 EQU CVTDMSRF 03449000 CVTRV633 EQU CVTDMSRF 03450000 CVTRV632 EQU CVTDMSRF 03451000 CVTRV631 EQU CVTDMSRF 03452000 CVTRV630 EQU CVTDMSRF 03453000 CVTRV629 EQU CVTDMSRF 03454000 CVTUDUMP EQU CVTDMSRF 03455000 CVTSDUMP EQU CVTDMSRF 03456000 CVTQMSGA EQU CVTQMSG+1 03457000 CVTRSV36 EQU CVTQMSG 03458000 CVTAMFF EQU CVTMAP+264 03459000 CVTPURGA EQU CVTPURG+1 03460000 CVTRSV35 EQU CVTPURG 03461000 CVTCBSP EQU CVTMAP+256 03462000 CVTATERA EQU CVTATER+1 03463000 CVTSYST EQU CVTATER 03464000 CVTVOLT2 EQU CVTTAT 03465000 CVTVOLI2 EQU CVTVOLF2 03466000 CVTAQAVB EQU CVTAQAVT+1 03467000 CVTRSV34 EQU CVTTCMFG 03468000 CVTRSV33 EQU CVTTCMFG 03469000 CVTRSV32 EQU CVTTCMFG 03470000 CVTRSV31 EQU CVTTCMFG 03471000 CVTRSV30 EQU CVTTCMFG 03472000 CVTRSV29 EQU CVTTCMFG 03473000 CVTRSV28 EQU CVTTCMFG 03474000 CVTTCRDY EQU CVTTCMFG 03475000 CVTGTFA EQU CVTGTF+1 03476000 CVTRSV27 EQU CVTGTFST 03477000 CVTRNIO EQU CVTGTFST 03478000 CVTUSR EQU CVTGTFST 03479000 CVTRV318 EQU CVTFORM 03480000 CVTRV317 EQU CVTTMODE 03481000 CVTRV316 EQU CVTSTATE 03482000 CVTRV315 EQU CVTGTFS 03483000 CVTGTFAV EQU CVTGTFS 03484000 CVT0SCR1 EQU CVTMAP+232 03485000 CVTRV515 EQU CVTMAP+228 03486000 CVTRMS EQU CVTMAP+224 03487000 CVTPATCH EQU CVTMAP+220 03488000 CVTTSCE EQU CVTMAP+216 03489000 CVTLNKSC EQU CVTMAP+214 03490000 CVTQABST EQU CVTMAP+212 03491000 CVTMDLDS EQU CVTMAP+208 03492000 CVTUSER EQU CVTMAP+204 03493000 CVTABEND EQU CVTMAP+200 03494000 CVTSMCA EQU CVTMAP+196 03495000 CVTRSV18 EQU CVTMAP+192 03496000 CVTQLPAQ EQU CVTMAP+188 03497000 CVTQCDSR EQU CVTMAP+184 03498000 CVTRSV17 EQU CVTOPTB 03499000 CVTRSV16 EQU CVTOPTB 03500000 CVTFP EQU CVTOPTB 03501000 CVTAPTHR EQU CVTOPTB 03502000 CVTNLOG EQU CVTOPTB 03503000 CVTTOD EQU CVTOPTB 03504000 CVTCTIMS EQU CVTOPTB 03505000 CVTPROT EQU CVTOPTB 03506000 CVTXPFP EQU CVTOPTA 03507000 CVTASCII EQU CVTOPTA 03508000 CVTRSV13 EQU CVTOPTA 03509000 CVTRSV12 EQU CVTOPTA 03510000 CVTNIP EQU CVTOPTA 03511000 CVTDDR EQU CVTOPTA 03512000 CVTAPR EQU CVTOPTA 03513000 CVTCCH EQU CVTOPTA 03514000 CVTSNCTR EQU CVTMAP+180 03515000 CVTQMWR EQU CVTMAP+176 03516000 CVTQOCR EQU CVTMAP+172 03517000 CVT1EF00 EQU CVTMAP+168 03518000 CVTMZ00 EQU CVTMAP+164 03519000 CVTHEAD EQU CVTMAP+160 03520000 CVTRSV11 EQU CVTMAP+156 03521000 CVT0PT01 EQU CVTMAP+152 03522000 CVTMSER EQU CVTMAP+148 03523000 CVTRV516 EQU CVTIERLC 03524000 CVTILCH EQU CVTMAP+140 03525000 CVT0DS EQU CVTMAP+136 03526000 CVTFBOSV EQU CVTMAP+132 03527000 CVTNUCB EQU CVTMAP+128 03528000 CVTIXAVL EQU CVTMAP+124 03529000 CVTIOQET EQU CVTMAP+120 03530000 CVTDCBA EQU CVTMAP+117 03531000 CVTMVS2 EQU CVTDCB 03532000 CVT6DAT EQU CVTDCB 03533000 CVT4MPS EQU CVTDCB 03534000 CVTRSV09 EQU CVTDCB 03535000 CVT4MS1 EQU CVTDCB 03536000 CVT2SPS EQU CVTDCB 03537000 CVT1SSS EQU CVTDCB 03538000 CVTRSV08 EQU CVTDCB 03539000 CVTSTB EQU CVTMAP+112 03540000 CVTQTD00 EQU CVTMAP+108 03541000 CVTQTE00 EQU CVTMAP+104 03542000 CVTCUCB EQU CVTMAP+100 03543000 CVTSJQ EQU CVTMAP+96 03544000 CVTPBLDL EQU CVTMAP+92 03545000 CVTTPC EQU CVTMAP+88 03546000 CVTSVDCB EQU CVTMAP+84 03547000 CVTBRET EQU CVTMAP+82 03548000 CVTEXIT EQU CVTMAP+80 03549000 CVT0FN00 EQU CVTMAP+76 03550000 CVTDARA EQU CVTDAR+1 03551000 CVTRSV07 EQU CVTFLGS1 03552000 CVTRSV06 EQU CVTFLGS1 03553000 CVTRSV05 EQU CVTFLGS1 03554000 CVTRSV04 EQU CVTFLGS1 03555000 CVTRSV03 EQU CVTFLGS1 03556000 CVTRSV02 EQU CVTFLGS1 03557000 CVTRSV01 EQU CVTFLGS1 03558000 CVTDMPLK EQU CVTFLGS1 03559000 CVTXITP EQU CVTMAP+68 03560000 CVTZDTAB EQU CVTMAP+64 03561000 CVTMSLT EQU CVTMAP+60 03562000 CVTDATE EQU CVTMAP+56 03563000 CVTBTERM EQU CVTMAP+52 03564000 CVTSYSAD EQU CVTMAP+48 03565000 CVTXTLER EQU CVTMAP+44 03566000 CVTILK2 EQU CVTMAP+40 03567000 CVTILK1 EQU CVTMAP+36 03568000 CVTPRLTV EQU CVTMAP+32 03569000 CVTPCNVT EQU CVTMAP+28 03570000 CVT0VL00 EQU CVTMAP+24 03571000 CVTXAPG EQU CVTMAP+20 03572000 CVTBUF EQU CVTMAP+16 03573000 CVTJOB EQU CVTMAP+12 03574000 CVTLINK EQU CVTMAP+8 03575000 CVT0EF00 EQU CVTMAP+4 03576000 CVTTCBP EQU CVTMAP 03577000 CVT EQU CVTMAP 03578000 @NM00050 EQU SDWA+512 03579000 @NM00049 EQU SDWADPVA 03580000 SDWAEBC EQU SDWADPVA 03581000 SDWAHEX EQU SDWADPVA 03582000 SDWAVRAL EQU SDWARA 03583000 @NM00048 EQU SDWA+396 03584000 SDWACOMP EQU SDWA+392 03585000 SDWARCPL EQU SDWA+364 03586000 @NM00047 EQU SDWADPSA+32 03587000 SDWATO4 EQU SDWADPSL+28 03588000 SDWAFRM4 EQU SDWADPSL+24 03589000 SDWATO3 EQU SDWADPSL+20 03590000 SDWAFRM3 EQU SDWADPSL+16 03591000 SDWATO2 EQU SDWADPSL+12 03592000 SDWAFRM2 EQU SDWADPSL+8 03593000 SDWATO1 EQU SDWADPSL+4 03594000 SDWAFRM1 EQU SDWADPSL 03595000 @NM00046 EQU SDWADDAT+3 03596000 @NM00045 EQU SDWAPDAT 03597000 SDWAUSPL EQU SDWAPDAT 03598000 SDWADPSW EQU SDWAPDAT 03599000 SDWATJPA EQU SDWAPDAT 03600000 SDWATLPA EQU SDWAPDAT 03601000 SDWADREG EQU SDWAPDAT 03602000 SDWADSAH EQU SDWAPDAT 03603000 SDWADSAS EQU SDWAPDAT 03604000 @NM00044 EQU SDWADDAT+1 03605000 @NM00043 EQU SDWASDAT 03606000 SDWAQQS EQU SDWASDAT 03607000 SDWACBS EQU SDWASDAT 03608000 SDWAGTF EQU SDWASDAT 03609000 SDWASWA EQU SDWASDAT 03610000 SDWALSQA EQU SDWASDAT 03611000 SDWASQA EQU SDWASDAT 03612000 SDWANUC EQU SDWASDAT 03613000 @NM00042 EQU SDWADUMP+2 03614000 @NM00041 EQU SDWADPFS 03615000 SDWASLST EQU SDWADPFS 03616000 @NM00040 EQU SDWADPFS 03617000 SDWADLST EQU SDWADPFS 03618000 SDWADPT EQU SDWADPFS 03619000 SDWADPID EQU SDWADUMP 03620000 SDWADPLA EQU SDWA+316 03621000 SDWAREXN EQU SDWARECP+16 03622000 SDWACSCT EQU SDWARECP+8 03623000 SDWAMODN EQU SDWARECP 03624000 @NM00039 EQU SDWALKWA+32 03625000 SDWATALW EQU SDWALKWS+28 03626000 SDWATDLW EQU SDWALKWS+24 03627000 SDWATNLW EQU SDWALKWS+20 03628000 SDWAAPLW EQU SDWALKWS+16 03629000 SDWAIPLW EQU SDWALKWS+12 03630000 SDWAILLW EQU SDWALKWS+8 03631000 SDWAIULW EQU SDWALKWS+4 03632000 SDWAICLW EQU SDWALKWS 03633000 SDWAFLLK EQU SDWAACF4 03634000 SDWACMS EQU SDWAACF4 03635000 SDWAOPTM EQU SDWAACF4 03636000 SDWATADB EQU SDWAACF4 03637000 SDWATDNB EQU SDWAACF4 03638000 SDWATNCB EQU SDWAACF4 03639000 SDWAILCH EQU SDWAACF4 03640000 SDWAIUCB EQU SDWAACF4 03641000 SDWAICAT EQU SDWAACF3 03642000 SDWAIPRG EQU SDWAACF3 03643000 SDWASALL EQU SDWAACF3 03644000 SDWAASMP EQU SDWAACF3 03645000 SDWADISP EQU SDWAACF3 03646000 @NM00038 EQU SDWAACF3 03647000 @NM00037 EQU SDWAACF2 03648000 SDWAFREE EQU SDWAACF2 03649000 SDWAUPRG EQU SDWAACF2 03650000 @NM00036 EQU SDWAACF2 03651000 SDWASPIN EQU SDWAACF2 03652000 @NM00035 EQU SDWAACF2 03653000 SDWALCPU EQU SDWACPUA+2 03654000 @NM00034 EQU SDWACPUA 03655000 SDWARECA EQU SDWA+244 03656000 SDWARTYA EQU SDWA+240 03657000 @NM00033 EQU SDWA+239 03658000 @NM00032 EQU SDWAIOFS 03659000 SDWANIOP EQU SDWAIOFS 03660000 SDWANOIO EQU SDWAIOFS 03661000 SDWAIOHT EQU SDWAIOFS 03662000 SDWAIOQR EQU SDWAIOFS 03663000 SDWAFMID EQU SDWA+236 03664000 @NM00031 EQU SDWAERRD 03665000 SDWAMCIV EQU SDWAERRD 03666000 SDWARPIV EQU SDWAERRD 03667000 SDWAMABD EQU SDWAERRD 03668000 SDWACTS EQU SDWAERRD 03669000 SDWASTAE EQU SDWAERRD 03670000 SDWANRBE EQU SDWAERRD 03671000 SDWACLUP EQU SDWAERRD 03672000 @NM00030 EQU SDWAERRC 03673000 SDWAEAS EQU SDWAERRC 03674000 SDWAPERC EQU SDWAERRC 03675000 SDWAIRB EQU SDWAERRC 03676000 SDWASTAI EQU SDWAERRC 03677000 SDWASTAF EQU SDWAERRC 03678000 SDWASRBM EQU SDWAERRB 03679000 SDWALDIS EQU SDWAERRB 03680000 SDWAENRB EQU SDWAERRB 03681000 SDWATYP1 EQU SDWAERRB 03682000 @NM00029 EQU SDWAERRB 03683000 SDWAPGIO EQU SDWAERRA 03684000 SDWATEXC EQU SDWAERRA 03685000 SDWASVCE EQU SDWAERRA 03686000 SDWAABTM EQU SDWAERRA 03687000 SDWASVCD EQU SDWAERRA 03688000 SDWARKEY EQU SDWAERRA 03689000 SDWAPCHK EQU SDWAERRA 03690000 SDWAMCHK EQU SDWAERRA 03691000 SDWATIME EQU SDWAMCH+20 03692000 SDWARFSA EQU SDWAMCH+16 03693000 @NM00028 EQU SDWAMCH+14 03694000 SDWAVEQR EQU SDWARSR2 03695000 SDWAPGFX EQU SDWARSR2 03696000 SDWAFLSQ EQU SDWARSR2 03697000 SDWAFSQA EQU SDWARSR2 03698000 SDWANUCL EQU SDWARSR2 03699000 SDWASPER EQU SDWARSR2 03700000 SDWAINTC EQU SDWARSR2 03701000 SDWAOFLN EQU SDWARSR2 03702000 SDWACHNG EQU SDWARSR1 03703000 SDWAMSER EQU SDWARSR1 03704000 @NM00027 EQU SDWARSR1 03705000 SDWACPID EQU SDWAMCH+10 03706000 SDWATERR EQU SDWAMCHD 03707000 SDWAFPRX EQU SDWAMCHD 03708000 SDWAINSF EQU SDWAMCHD 03709000 SDWAACR EQU SDWAMCHD 03710000 SDWASCK EQU SDWAMCHD 03711000 SDWAPSWU EQU SDWAMCHD 03712000 SDWAREGU EQU SDWAMCHD 03713000 SDWASKYF EQU SDWAMCHD 03714000 @NM00026 EQU SDWAMCHS 03715000 SDWARSRF EQU SDWAMCHS 03716000 SDWARSRC EQU SDWAMCHS 03717000 SDWAINVP EQU SDWAMCHS 03718000 SDWATSVL EQU SDWAMCHS 03719000 SDWARCDF EQU SDWAMCHS 03720000 SDWASRVL EQU SDWAMCHS 03721000 SDWASCKE EQU SDWASTCK+4 03722000 SDWASCKB EQU SDWASTCK 03723000 SDWALNTH EQU SDWAIDNT+1 03724000 SDWASPID EQU SDWAIDNT 03725000 SDWASR15 EQU SDWASRSV+60 03726000 SDWASR14 EQU SDWASRSV+56 03727000 SDWASR13 EQU SDWASRSV+52 03728000 SDWASR12 EQU SDWASRSV+48 03729000 SDWASR11 EQU SDWASRSV+44 03730000 SDWASR10 EQU SDWASRSV+40 03731000 SDWASR09 EQU SDWASRSV+36 03732000 SDWASR08 EQU SDWASRSV+32 03733000 SDWASR07 EQU SDWASRSV+28 03734000 SDWASR06 EQU SDWASRSV+24 03735000 SDWASR05 EQU SDWASRSV+20 03736000 SDWASR04 EQU SDWASRSV+16 03737000 SDWASR03 EQU SDWASRSV+12 03738000 SDWASR02 EQU SDWASRSV+8 03739000 SDWASR01 EQU SDWASRSV+4 03740000 SDWASR00 EQU SDWASRSV 03741000 SDWATRN2 EQU SDWAAEC2+4 03742000 SDWAIPC2 EQU SDWAICD2 03743000 SDWAIMC2 EQU SDWAICD2 03744000 SDWAIPR2 EQU SDWAICD2 03745000 @NM00025 EQU SDWAINC2 03746000 @NM00024 EQU SDWAILC2 03747000 SDWAIL2 EQU SDWAILC2 03748000 @NM00023 EQU SDWAILC2 03749000 @NM00022 EQU SDWAAEC2 03750000 SDWAADD2 EQU SDWANXT2+1 03751000 @NM00021 EQU SDWANXT2 03752000 @NM00020 EQU SDWAEC2+3 03753000 SDWASGN2 EQU SDWAINT2 03754000 SDWAEXP2 EQU SDWAINT2 03755000 SDWADEC2 EQU SDWAINT2 03756000 SDWAFPO2 EQU SDWAINT2 03757000 SDWACC2 EQU SDWAINT2 03758000 @NM00019 EQU SDWAINT2 03759000 SDWAPGM2 EQU SDWAMWP2 03760000 SDWAWAT2 EQU SDWAMWP2 03761000 SDWAMCK2 EQU SDWAMWP2 03762000 SDWAECT2 EQU SDWAMWP2 03763000 SDWAKEY2 EQU SDWAMWP2 03764000 SDWAEXT2 EQU SDWAEMK2 03765000 SDWAIO2 EQU SDWAEMK2 03766000 SDWATRM2 EQU SDWAEMK2 03767000 @NM00018 EQU SDWAEMK2 03768000 SDWAPER2 EQU SDWAEMK2 03769000 @NM00017 EQU SDWAEMK2 03770000 SDWATRAN EQU SDWAAEC1+4 03771000 SDWAIPC1 EQU SDWAICD1 03772000 SDWAIMC1 EQU SDWAICD1 03773000 SDWAIPR1 EQU SDWAICD1 03774000 @NM00016 EQU SDWAINC1 03775000 @NM00015 EQU SDWAILC1 03776000 SDWAIL1 EQU SDWAILC1 03777000 @NM00014 EQU SDWAILC1 03778000 @NM00013 EQU SDWAAEC1 03779000 SDWAADD1 EQU SDWANXT1+1 03780000 @NM00012 EQU SDWANXT1 03781000 @NM00011 EQU SDWAEC1+3 03782000 SDWASGN1 EQU SDWAINT1 03783000 SDWAEXP1 EQU SDWAINT1 03784000 SDWADEC1 EQU SDWAINT1 03785000 SDWAFPO1 EQU SDWAINT1 03786000 SDWACC1 EQU SDWAINT1 03787000 @NM00010 EQU SDWAINT1 03788000 SDWAPGM1 EQU SDWAMWP1 03789000 SDWAWAT1 EQU SDWAMWP1 03790000 SDWAMCK1 EQU SDWAMWP1 03791000 SDWAECT1 EQU SDWAMWP1 03792000 SDWAKEY1 EQU SDWAMWP1 03793000 SDWAEXT1 EQU SDWAEMK1 03794000 SDWAIO1 EQU SDWAEMK1 03795000 SDWATRM1 EQU SDWAEMK1 03796000 @NM00009 EQU SDWAEMK1 03797000 SDWAPER1 EQU SDWAEMK1 03798000 @NM00008 EQU SDWAEMK1 03799000 SDWAIOBR EQU SDWA+100 03800000 SDWAEPA EQU SDWA+96 03801000 @NM00007 EQU SDWANAME+4 03802000 SDWARBAD EQU SDWANAME 03803000 SDWAGR15 EQU SDWAGRSV+60 03804000 SDWAGR14 EQU SDWAGRSV+56 03805000 SDWAGR13 EQU SDWAGRSV+52 03806000 SDWAGR12 EQU SDWAGRSV+48 03807000 SDWAGR11 EQU SDWAGRSV+44 03808000 SDWAGR10 EQU SDWAGRSV+40 03809000 SDWAGR09 EQU SDWAGRSV+36 03810000 SDWAGR08 EQU SDWAGRSV+32 03811000 SDWAGR07 EQU SDWAGRSV+28 03812000 SDWAGR06 EQU SDWAGRSV+24 03813000 SDWAGR05 EQU SDWAGRSV+20 03814000 SDWAGR04 EQU SDWAGRSV+16 03815000 SDWAGR03 EQU SDWAGRSV+12 03816000 SDWAGR02 EQU SDWAGRSV+8 03817000 SDWAGR01 EQU SDWAGRSV+4 03818000 SDWAGR00 EQU SDWAGRSV 03819000 SDWANXTP EQU SDWACTL2+5 03820000 SDWASGP EQU SDWAPMKP 03821000 SDWAEUP EQU SDWAPMKP 03822000 SDWADOP EQU SDWAPMKP 03823000 SDWAFPP EQU SDWAPMKP 03824000 SDWACCP EQU SDWAPMKP 03825000 SDWAILP EQU SDWAPMKP 03826000 SDWAINTP EQU SDWACTL2+2 03827000 SDWASPVP EQU SDWAMWPP 03828000 SDWAWATP EQU SDWAMWPP 03829000 SDWAMCKP EQU SDWAMWPP 03830000 @NM00006 EQU SDWAMWPP 03831000 SDWAKEYP EQU SDWAMWPP 03832000 SDWAEXTP EQU SDWACMKP 03833000 SDWAIOP EQU SDWACMKP 03834000 SDWANXTA EQU SDWACTL1+5 03835000 SDWASGA EQU SDWAPMKA 03836000 SDWAEUA EQU SDWAPMKA 03837000 SDWADOA EQU SDWAPMKA 03838000 SDWAFPA EQU SDWAPMKA 03839000 SDWACCA EQU SDWAPMKA 03840000 SDWAILA EQU SDWAPMKA 03841000 SDWAINTA EQU SDWACTL1+2 03842000 SDWASPVA EQU SDWAMWPA 03843000 SDWAWATA EQU SDWAMWPA 03844000 SDWAMCKA EQU SDWAMWPA 03845000 @NM00005 EQU SDWAMWPA 03846000 SDWAKEYA EQU SDWAMWPA 03847000 SDWAEXTA EQU SDWACMKA 03848000 SDWAIOA EQU SDWACMKA 03849000 SDWACMPC EQU SDWAABCC+1 03850000 @NM00004 EQU SDWACMPF 03851000 SDWASTCC EQU SDWACMPF 03852000 @NM00003 EQU SDWACMPF 03853000 SDWASTEP EQU SDWACMPF 03854000 SDWAREQ EQU SDWACMPF 03855000 @NM00002 EQU SRBSECT+40 03856000 @NM00001 EQU SRBSECT+38 03857000 SRBPRIOR EQU SRBSECT+37 03858000 SRBPKF EQU SRBSECT+36 03859000 SRBSAVE EQU SRBSECT+32 03860000 SRBPARM EQU SRBSECT+28 03861000 SRBRMTR EQU SRBSECT+24 03862000 SRBEP EQU SRBSECT+20 03863000 SRBPTCB EQU SRBFLC+4 03864000 SRBPASID EQU SRBFLC+2 03865000 SRBCPAFF EQU SRBFLC 03866000 SRBASCB EQU SRBSECT+8 03867000 SRBID EQU SRBSECT 03868000 @NM00076 EQU PSA+3668 03869000 PSASTAK EQU PSA+3072 03870000 @NM00075 EQU PSA+1048 03871000 PSAUSEND EQU PSA+1048 03872000 PSARV062 EQU PSA+1044 03873000 PSACDAL EQU PSA+1040 03874000 PSAWTCOD EQU PSA+1036 03875000 PSAATCVT EQU PSA+1032 03876000 PSAPCPSW EQU PSA+1024 03877000 PSAPIR2 EQU PSA+1020 03878000 PSARV059 EQU PSA+1018 03879000 PSASVC13 EQU PSA+1016 03880000 PSALSFCC EQU PSA+1012 03881000 PSASFACC EQU PSA+1008 03882000 PSASTOP EQU PSA+992 03883000 PSASTART EQU PSA+976 03884000 PSARSPSW EQU PSA+968 03885000 PSASRPSW EQU PSA+960 03886000 PSARV045 EQU PSA+892 03887000 PSARV044 EQU PSA+888 03888000 PSARV043 EQU PSA+884 03889000 PSARV042 EQU PSA+880 03890000 PSARV041 EQU PSA+876 03891000 PSARV040 EQU PSA+872 03892000 PSARV025 EQU PSA+868 03893000 PSADSSED EQU PSA+868 03894000 PSADSSPR EQU PSA+864 03895000 PSADSSFW EQU PSA+860 03896000 PSADSS14 EQU PSA+856 03897000 PSADSSPP EQU PSA+848 03898000 PSADSSRP EQU PSA+840 03899000 PSADSS05 EQU PSADSSF4 03900000 PSADSS10 EQU PSADSSF4 03901000 PSADSSVE EQU PSADSSF4 03902000 PSADSSDE EQU PSADSSF4 03903000 PSADSSC0 EQU PSADSSF4 03904000 PSADSSIE EQU PSADSSF4 03905000 PSADSS12 EQU PSADSSF4 03906000 PSADSSRC EQU PSADSSF4 03907000 PSARV057 EQU PSADSSF3 03908000 PSARV056 EQU PSADSSF3 03909000 PSARV055 EQU PSADSSF3 03910000 PSADSSMC EQU PSADSSF3 03911000 PSADSSRW EQU PSADSSF3 03912000 PSADSSNM EQU PSADSSF3 03913000 PSADSSES EQU PSADSSF3 03914000 PSADSSGP EQU PSADSSF3 03915000 PSADSSF2 EQU PSADSSFL+1 03916000 PSADSSPI EQU PSADSSF1 03917000 PSADSSOI EQU PSADSSF1 03918000 PSADSSSP EQU PSADSSF1 03919000 PSADSSTP EQU PSADSSF1 03920000 PSADSSDW EQU PSADSSF1 03921000 PSADSSDD EQU PSADSSF1 03922000 PSADSSDM EQU PSADSSF1 03923000 PSADSSMV EQU PSADSSF1 03924000 PSADSSTS EQU PSA+816 03925000 PSADSSWK EQU PSA+812 03926000 PSADSSR3 EQU PSA+808 03927000 PSADSSR2 EQU PSA+804 03928000 PSADSSRS EQU PSA+800 03929000 PSASTOR EQU PSA+796 03930000 PSACPUSA EQU PSA+794 03931000 PSAVSTAP EQU PSA+792 03932000 PSAWKVAP EQU PSA+788 03933000 PSAWKRAP EQU PSA+784 03934000 PSAMCHIC EQU PSA+783 03935000 PSARV061 EQU PSA+782 03936000 PSASYMSK EQU PSA+781 03937000 PSAMCHFL EQU PSA+780 03938000 PSACR0 EQU PSA+776 03939000 PSAPSWSV EQU PSA+768 03940000 PSACLHS EQU PSAHLHI 03941000 PSALKR15 EQU PSALKSA+60 03942000 PSALKR14 EQU PSALKSA+56 03943000 PSALKR13 EQU PSALKSA+52 03944000 PSALKR12 EQU PSALKSA+48 03945000 PSALKR11 EQU PSALKSA+44 03946000 PSALKR10 EQU PSALKSA+40 03947000 PSALKR9 EQU PSALKSA+36 03948000 PSALKR8 EQU PSALKSA+32 03949000 PSALKR7 EQU PSALKSA+28 03950000 PSALKR6 EQU PSALKSA+24 03951000 PSALKR5 EQU PSALKSA+20 03952000 PSALKR4 EQU PSALKSA+16 03953000 PSALKR3 EQU PSALKSA+12 03954000 PSALKR2 EQU PSALKSA+8 03955000 PSALKR1 EQU PSALKSA+4 03956000 PSALKR0 EQU PSALKSA 03957000 PSARV023 EQU PSACLHT+52 03958000 PSALOCAL EQU PSACLHT+48 03959000 PSACMSL EQU PSACLHT+44 03960000 PSAOPTL EQU PSACLHT+40 03961000 PSATPACL EQU PSACLHT+36 03962000 PSATPDNL EQU PSACLHT+32 03963000 PSATPNCL EQU PSACLHT+28 03964000 PSAIOSLL EQU PSACLHT+24 03965000 PSAIOSUL EQU PSACLHT+20 03966000 PSAIOSCL EQU PSACLHT+16 03967000 PSAIOSSL EQU PSACLHT+12 03968000 PSASALCL EQU PSACLHT+8 03969000 PSAASML EQU PSACLHT+4 03970000 PSADISPL EQU PSACLHT 03971000 PSASRSA EQU PSA+636 03972000 PSARV050 EQU PSA+634 03973000 PSADSSGO EQU PSA+633 03974000 PSARECUR EQU PSA+632 03975000 PSAHLHIS EQU PSA+628 03976000 PSAIPCSA EQU PSA+624 03977000 @NM00074 EQU PSA+621 03978000 PSAIPCDM EQU PSA+620 03979000 PSAIPCD EQU PSA+616 03980000 @NM00073 EQU PSA+613 03981000 PSAIPCRM EQU PSA+612 03982000 PSAIPCR EQU PSA+608 03983000 PSAMCHEX EQU PSA+600 03984000 PSAMPSW EQU PSA+592 03985000 PSAEXPS2 EQU PSA+584 03986000 PSAEXPS1 EQU PSA+576 03987000 PSAPIREG EQU PSA+572 03988000 PSARSREG EQU PSA+568 03989000 PSAGPREG EQU PSA+556 03990000 PSARV022 EQU PSASUP4 03991000 PSARV021 EQU PSASUP4 03992000 PSARV020 EQU PSASUP4 03993000 PSARV019 EQU PSASUP4 03994000 PSARV018 EQU PSASUP4 03995000 PSARV017 EQU PSASUP4 03996000 PSARV016 EQU PSASUP4 03997000 PSARV015 EQU PSASUP4 03998000 PSARV014 EQU PSASUP3 03999000 PSARV013 EQU PSASUP3 04000000 PSARV012 EQU PSASUP3 04001000 PSARV011 EQU PSASUP3 04002000 PSASPR EQU PSASUP3 04003000 PSAPSREG EQU PSASUP3 04004000 PSAPI2 EQU PSASUP3 04005000 PSAIOSUP EQU PSASUP3 04006000 PSALCR EQU PSASUP2 04007000 PSARTM EQU PSASUP2 04008000 PSAACR EQU PSASUP2 04009000 PSAIPCE2 EQU PSASUP2 04010000 PSAIPCES EQU PSASUP2 04011000 PSAIPCEC EQU PSASUP2 04012000 PSAGTF EQU PSASUP2 04013000 PSAIPCRI EQU PSASUP2 04014000 PSARV063 EQU PSASUP1 04015000 PSATCTL EQU PSASUP1 04016000 PSADISP EQU PSASUP1 04017000 PSALOCK EQU PSASUP1 04018000 PSAPI EQU PSASUP1 04019000 PSAEXT EQU PSASUP1 04020000 PSASVC EQU PSASUP1 04021000 PSAIO EQU PSASUP1 04022000 PSAAOLD EQU PSA+548 04023000 PSAANEW EQU PSA+544 04024000 PSATOLD EQU PSA+540 04025000 PSATNEW EQU PSA+536 04026000 PSALCCAR EQU PSA+532 04027000 PSALCCAV EQU PSA+528 04028000 PSAPCCAR EQU PSA+524 04029000 PSAPCCAV EQU PSA+520 04030000 PSACPULA EQU PSA+518 04031000 PSACPUPA EQU PSA+516 04032000 PSAPSA EQU PSA+512 04033000 FLCHDEND EQU PSA+512 04034000 FLCCRSAV EQU FLCMCLA+280 04035000 FLCGRSAV EQU FLCMCLA+216 04036000 FLCFPSAV EQU FLCMCLA+184 04037000 FLCFLA EQU FLCMCLA+88 04038000 FLCRGNCD EQU FLCMCLA+84 04039000 FLCFSAA EQU FLCFSA+1 04040000 @NM00072 EQU FLCFSA 04041000 @NM00071 EQU FLCMCLA+72 04042000 FLCMCIC EQU FLCMCLA+64 04043000 @NM00070 EQU FLCMCLA+20 04044000 FLCIOAA EQU FLCIOA+1 04045000 @NM00069 EQU FLCIOA 04046000 @NM00068 EQU FLCMCLA+15 04047000 @NM00067 EQU FLCMCLA+14 04048000 @NM00066 EQU FLCMCLA+12 04049000 FLCLCL EQU FLCMCLA+8 04050000 FLCIOELA EQU FLCIOEL+1 04051000 @NM00065 EQU FLCIOEL 04052000 FLCCHNID EQU FLCMCLA 04053000 @NM00064 EQU PSA+160 04054000 FLCMTRCD EQU PSA+157 04055000 @NM00063 EQU PSA+156 04056000 FLCPERA EQU FLCPER+1 04057000 @NM00062 EQU FLCPER 04058000 @NM00061 EQU PSA+151 04059000 FLCPERCD EQU PSA+150 04060000 FLCMCNUM EQU PSA+149 04061000 @NM00060 EQU PSA+148 04062000 FLCTEAA EQU FLCTEA+1 04063000 @NM00059 EQU FLCTEA 04064000 PSAPIPC EQU PSAPICOD 04065000 PSAPIMC EQU PSAPICOD 04066000 PSAPIPER EQU PSAPICOD 04067000 PSARV049 EQU FLCPICOD 04068000 FLCPILCB EQU FLCPIILC 04069000 @NM00058 EQU FLCPIILC 04070000 @NM00057 EQU PSAEPPSW 04071000 FLCSVCN EQU PSAESPSW+2 04072000 FLCSILCB EQU FLCSVILC 04073000 @NM00056 EQU FLCSVILC 04074000 @NM00055 EQU PSAESPSW 04075000 FLCEICOD EQU PSAEEPSW+2 04076000 PSASPAD EQU PSAEEPSW 04077000 @NM00054 EQU PSA+128 04078000 FLCINPSW EQU PSA+120 04079000 FLCMNPSW EQU PSA+112 04080000 FLCPNPSW EQU PSA+104 04081000 FLCSNPSW EQU PSA+96 04082000 FLCENPSW EQU PSA+88 04083000 FLCTRACE EQU PSA+84 04084000 FLCTIMER EQU PSA+80 04085000 FLCCVT2 EQU PSA+76 04086000 FLCCAW EQU PSA+72 04087000 FLCCSW EQU PSA+64 04088000 FLCIOPSW EQU PSA+56 04089000 FLCMOPSW EQU PSA+48 04090000 FLCPOPSW EQU PSA+40 04091000 FLCSOPSW EQU PSA+32 04092000 FLCEOPSW EQU PSA+24 04093000 @NM00053 EQU FLCICCW2+4 04094000 FLCCVT EQU FLCICCW2 04095000 FLCICCW1 EQU FLCROPSW 04096000 FLCIPPSW EQU FLCRNPSW 04097000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04098000 OUTLOOP EQU @RC00350 04099000 @RC00413 EQU @RC00395 04100000 @ENDDATA EQU * 04101000 END ISTRAMA3,(C'PLS0856',0701,77048) 04102000