TITLE 'IECVHDET - HOT I/O DETECTION' 00001000 IECVHDET CSECT , 01S0001 00002000 @PROLOG BALR @12,0 01S0001 00003000 @PSTART DS 0H 01S0001 00004000 USING @PSTART,@12 01S0001 00005000 MODID BR=YES 00006000 * STM(R0,R15,SVAREA); /* SAVE REGS- REG 12 IS DESTROYED*/ 00007000 STM R0,R15,SVAREA(SVAREAP) 01S0059 00008000 * RFY 01S0060 00009000 * (R0, 01S0060 00010000 * R15) UNRSTD; 01S0060 00011000 * PCCAPTR=PSAPCCAV; /* ESTABLISH PCCA ADDRESSABILITY */ 00012000 L PCCAPTR,PSAPCCAV 01S0061 00013000 * RFY 01S0062 00014000 * R15 RSTD; 01S0062 00015000 * R15=ADDR(CR2CONT); 01S0063 00016000 LA R15,CR2CONT(,SVAREAP) 01S0063 00017000 * GEN SETS(CR2CONT); 01S0064 00018000 STCTL 2,2,0(R15) 00019000 * RFY 01S0065 00020000 * R15 UNRSTD; 01S0065 00021000 * 01S0065 00022000 */********************************************************************/ 00023000 */* */ 00024000 */* GET ADDRESSABILITY TO THE SCD WHICH CONTAINS INFORMATION ON THE */ 00025000 */* PREVIOUS INTERRUPT(S) FROM THE CURRENT CHANNEL */ 00026000 */* */ 00027000 */********************************************************************/ 00028000 * 01S0066 00029000 * IF IRTCRHIN=ON THEN /* CRH INTERRUPT */ 00030000 TM IRTCRHIN+736(LCCAPTR),B'00010000' 01S0066 00031000 BNO @RF00066 01S0066 00032000 * DO; 01S0067 00033000 * 01S0067 00034000 * /*************************************************************/ 00035000 * /* */ 00036000 * /* IF THE INTERRUPT BEING PROCESSED IS A CRH INTERRUPT, */ 00037000 * /* ADDRESSABILITY TO THE OTHER CPU'S PCCA MUST BE */ 00038000 * /* ESTABLISHED. THIS PTR IS USED TO GET ADDRESSABILITY TO THE*/ 00039000 * /* OTHER CPU'S CAT. */ 00040000 * /* */ 00041000 * /*************************************************************/ 00042000 * 01S0068 00043000 * IF PSACPUSA=0 THEN /* CPU 0? */ 00044000 ICM @02,3,PSACPUSA 01S0068 00045000 BNZ @RF00068 01S0068 00046000 * DO; /* GET PCCA AND SCD PTRS FOR CPU 00047000 * 1 */ 00048000 * PCCAPTR=PCCAT00P(2); /* LOAD PCCA PTR FOR CPU 1 */ 00049000 L @08,CVTPTR 01S0070 00050000 L @08,CVTPCCAT(,@08) 01S0070 00051000 L PCCAPTR,PCCAT00P+4(,@08) 01S0070 00052000 * SCDPTR=ADDR(SCDS1); /* LOAD SCD PTR FOR CPU 1 CHANNEL*/ 00053000 LA SCDPTR,SCDS1 01S0071 00054000 * END; 01S0072 00055000 * ELSE /* CPU 1 */ 00056000 * DO; /* GET PCCA AND SCD PTRS FOR CPU 00057000 * 0 */ 00058000 B @RC00068 01S0073 00059000 @RF00068 DS 0H 01S0074 00060000 * PCCAPTR=PCCAT00P(1); /* LOAD PCCA PTR FOR CPU 0 */ 00061000 L @08,CVTPTR 01S0074 00062000 L @08,CVTPCCAT(,@08) 01S0074 00063000 L PCCAPTR,PCCAT00P(,@08) 01S0074 00064000 * SCDPTR=ADDR(SCDS0); /* LOAD SCD PTR FOR CPU 0 CHANNEL*/ 00065000 LA SCDPTR,SCDS0 01S0075 00066000 * END; 01S0076 00067000 * END; 01S0077 00068000 * ELSE /* NOT CRH-PCCA PTR CORRECT AS IS*/ 00069000 * IF PSACPUSA=0 THEN /* CPU 0? */ 00070000 B @RC00066 01S0078 00071000 @RF00066 ICM @15,3,PSACPUSA 01S0078 00072000 BNZ @RF00078 01S0078 00073000 * SCDPTR=ADDR(SCDS0); /* POINT TO CPU 0'S SCDS */ 00074000 LA SCDPTR,SCDS0 01S0079 00075000 * ELSE /* CPU 1 */ 00076000 * SCDPTR=ADDR(SCDS1); /* POINT TO CPU 1'S SCDS */ 00077000 B @RC00078 01S0080 00078000 @RF00078 LA SCDPTR,SCDS1 01S0080 00079000 * IF SCDPTR^=0 THEN /* SCD EXISTS */ 00080000 @RC00078 DS 0H 01S0081 00081000 @RC00066 LTR SCDPTR,SCDPTR 01S0081 00082000 BZ @RF00081 01S0081 00083000 * DO; /* CONTINUE PROCESSING */ 00084000 * SCDPTR=SCDPTR+(EVAL(DEVAD/256)*LENGTH(SCD));/* GET SCD */ 00085000 * 01S0083 00086000 LR @00,DEVAD 01S0083 00087000 SRDA @00,32 01S0083 00088000 D @00,@CF00076 01S0083 00089000 MH @01,@CH00117 01S0083 00090000 ALR SCDPTR,@01 01S0083 00091000 * /*************************************************************/ 00092000 * /* */ 00093000 * /* ZERO SCD COUNTS IF SUCCESSFUL SIO (CC=0) DONE TO CHANNEL */ 00094000 * /* SINCE LAST INVOCATION OF THIS MODULE. */ 00095000 * /* */ 00096000 * /*************************************************************/ 00097000 * 01S0084 00098000 * WORKREG=DEVAD; /* GET DEVICE ADDRESS */ 00099000 LR WORKREG,DEVAD 01S0084 00100000 * SRL(WORKREG,8); /* ISOLATE CHANNEL ADDRESS */ 00101000 SRL WORKREG,8 01S0085 00102000 * RFY 01S0086 00103000 * CAT BASED(ADDR(PCCACAT)+WORKREG*LENGTH(CAT)); 01S0086 00104000 * IF CATSOL=ON THEN /* SIO CC=0 DONE */ 00105000 LA @08,PCCACAT(,PCCAPTR) 01S0087 00106000 LR @15,WORKREG 01S0087 00107000 SLA @15,3 01S0087 00108000 ALR @08,@15 01S0087 00109000 TM CATSOL(@08),B'00001000' 01S0087 00110000 BNO @RF00087 01S0087 00111000 * DO; 01S0088 00112000 * SCDCNTS=0; /* ZERO SCD COUNTERS */ 00113000 SLR @15,@15 01S0089 00114000 ST @15,SCDCNTS(,SCDPTR) 01S0089 00115000 * CATSOL=OFF; /* RESET SUCCESSFUL SIO BIT */ 00116000 NI CATSOL(@08),B'11110111' 01S0090 00117000 * END; 01S0091 00118000 * 01S0091 00119000 * /*************************************************************/ 00120000 * /* */ 00121000 * /* IF HOT DEVICE IS DASD, MODIFY TO LOOK LIKE HOT CHANNEL SO */ 00122000 * /* THAT RECOVERY WILL BE PERFORMED ON A FULL CHANNEL BASIS. */ 00123000 * /* THIS IS NECESSARY FOR SHARED DEVICES THAT ARE RESERVED. */ 00124000 * /* */ 00125000 * /*************************************************************/ 00126000 * 01S0092 00127000 * UCBPTR=UCBPTR+LENGTH(UCB); /* ADJUST UCB PTR PAST PREFIX */ 00128000 @RF00087 AH UCBPTR,@CH01644 01S0092 00129000 * 02S0093 00130000 */********************************************************************/ 00131000 */* */ 00132000 */* SEGMENT NAME - CHECKINT */ 00133000 */* */ 00134000 */* DESCRIPTIVE NAME - EXAMINE CURRENT INTERRUPT */ 00135000 */* */ 00136000 */* FUNCTION - */ 00137000 */* THIS SEGMENT DETERMINES IF THE CURRENT INTERRUPT IS A REPEAT */ 00138000 */* OF THE PREVIOUS INTERRUPT. IF NOT, THE SCD IS SET UP TO */ 00139000 */* REFLECT THE CURRENT INTERRUPT. IF SO, THE REPEAT COUNT FIELD */ 00140000 */* IN THE SCD IS INCREMENTED BY 1, THE TIMEOUT COUNT FIELD IS */ 00141000 */* INCREMENTED IF NECESSARY, AND THE SCD FLAGS AND STATUS ARE */ 00142000 */* ADJUSTED. IF EITHER THE REPEAT COUNT OR TIMEOUT COUNT */ 00143000 */* THRESHOLDS HAVE BEEN EXCEEDED, SEGMENT SCHEDREC IS USED TO */ 00144000 */* SET UP FOR AND SCHEDULE HOT I/O RECOVERY. */ 00145000 */* */ 00146000 */********************************************************************/ 00147000 * 02S0093 00148000 * IF(IRTHOTD=OFF& /* HOT CHANNEL AND */ 00149000 * SCDHOTD=OFF& /* PREVIOUS INTERRUPT ALSO HOT 00150000 * CHANNEL AND... */ 00151000 * SCDTIME1^=0)| /* SCD IS INITIALIZED OR... */ 00152000 * (IRTHOTD=ON& /* HOT DEVICE AND */ 00153000 * SCDHOTD=ON& /* PREVIOUS INTERRUPT ALSO HOT 00154000 * DEVICE AND */ 00155000 * DEVAD=SCDADDR) THEN /* DEVICE ADDRESSES MATCH */ 00156000 TM IRTHOTD+736(LCCAPTR),B'00001000' 02S0093 00157000 BNZ @GL00001 02S0093 00158000 TM SCDHOTD(SCDPTR),B'00001000' 02S0093 00159000 BNZ @GL00001 02S0093 00160000 ICM @08,15,SCDTIME1(SCDPTR) 02S0093 00161000 BNZ @RT00093 02S0093 00162000 @GL00001 TM IRTHOTD+736(LCCAPTR),B'00001000' 02S0093 00163000 BNO @RF00093 02S0093 00164000 TM SCDHOTD(SCDPTR),B'00001000' 02S0093 00165000 BNO @RF00093 02S0093 00166000 CH DEVAD,SCDADDR(,SCDPTR) 02S0093 00167000 BNE @RF00093 02S0093 00168000 @RT00093 DS 0H 02S0094 00169000 * DO; /* PROCESS REPEATED INTERRUPT */ 00170000 * SCDRCNT=SCDRCNT+1; /* INCREMENT REPEAT COUNT */ 00171000 LA @08,1 02S0095 00172000 AH @08,SCDRCNT(,SCDPTR) 02S0095 00173000 STH @08,SCDRCNT(,SCDPTR) 02S0095 00174000 * SCDRSC1=SCDRSC1|IRTDETEC;/* OR IN DETECTION FLAGS */ 00175000 OC SCDRSC1(1,SCDPTR),IRTDETEC+736(LCCAPTR) 02S0096 00176000 * RFY 02S0097 00177000 * WORKREG RSTD; 02S0097 00178000 * OLDTIME=SCDTIME1; /* SAVE TIME OF PREVIOUS 02S0098 00179000 * INTERRUPT */ 00180000 L OLDTIME,SCDTIME1(,SCDPTR) 02S0098 00181000 * WORKREG=ADDR(SCDTIME); /* SET UP FOR STCK INSTRUCTION */ 00182000 LA WORKREG,SCDTIME(,SCDPTR) 02S0099 00183000 * GEN SETS(SCDTIME); 02S0100 00184000 * /*STORE CURRENT TIME */ 00185000 STCK 0(WORKREG) 00186000 * IF SCDTIME1-OLDTIME>HIDTINTV THEN/* ELAPSED TIME INTERVAL 00187000 * EXCEEDED? */ 00188000 L @08,SCDTIME1(,SCDPTR) 02S0101 00189000 SLR @08,OLDTIME 02S0101 00190000 L @05,@CV00080 02S0101 00191000 LH @05,HIDTINTV(,@05) 02S0101 00192000 CLR @08,@05 02S0101 00193000 BNH @RF00101 02S0101 00194000 * SCDTRCNT=SCDTRCNT+1; /* YES-INCREMENT TIMEOUT COUNT */ 00195000 LA @08,1 02S0102 00196000 AH @08,SCDTRCNT(,SCDPTR) 02S0102 00197000 STH @08,SCDTRCNT(,SCDPTR) 02S0102 00198000 * RFY 02S0103 00199000 * WORKREG UNRSTD; 02S0103 00200000 @RF00101 DS 0H 02S0104 00201000 * IF(SCDHOTD=OFF& /* POSSIBLE HOT CHANNEL AND */ 00202000 * SCDRCNT>HIDTCHAN)| /* CHANNEL THRESHOLD EXCEEDED 00203000 * OR... */ 00204000 * (SCDHOTD=ON& /* POSSIBLE HOT DEVICE AND */ 00205000 * SCDRCNT>HIDTDEV)| /* DEVICE THRESHOLD EXCEEDED 00206000 * OR... */ 00207000 * (SCDTRCNT>HIDTTIME) THEN/* TIMEOUT COUNT THRESHOLD 00208000 * EXCEEDED */ 00209000 TM SCDHOTD(SCDPTR),B'00001000' 02S0104 00210000 BNZ @GL00007 02S0104 00211000 L @08,@CV00080 02S0104 00212000 LH @15,SCDRCNT(,SCDPTR) 02S0104 00213000 CH @15,HIDTCHAN(,@08) 02S0104 00214000 BH @RT00104 02S0104 00215000 @GL00007 TM SCDHOTD(SCDPTR),B'00001000' 02S0104 00216000 BNO @GL00006 02S0104 00217000 L @08,@CV00080 02S0104 00218000 LH @15,SCDRCNT(,SCDPTR) 02S0104 00219000 CH @15,HIDTDEV(,@08) 02S0104 00220000 BH @RT00104 02S0104 00221000 @GL00006 L @08,@CV00080 02S0104 00222000 LH @15,SCDTRCNT(,SCDPTR) 02S0104 00223000 CH @15,HIDTTIME(,@08) 02S0104 00224000 BNH @RF00104 02S0104 00225000 @RT00104 DS 0H 02S0105 00226000 * DO; /* PROCESS HOT I/O DETECTED */ 00227000 * IF SCDTRCNT>HIDTTIME THEN/* TIMEOUT THRESHOLD 02S0106 00228000 * EXCEEDED */ 00229000 L @08,@CV00080 02S0106 00230000 LH @15,SCDTRCNT(,SCDPTR) 02S0106 00231000 CH @15,HIDTTIME(,@08) 02S0106 00232000 BNH @RF00106 02S0106 00233000 * SCDTMOUT=ON; /* INDICATE TIMEOUT IN SCD */ 00234000 OI SCDTMOUT(SCDPTR),B'10000000' 02S0107 00235000 * SCDCSWST=FLCCSW(5:6);/* MOVE IN CSW STATUS */ 00236000 @RF00106 MVC SCDCSWST(2,SCDPTR),FLCCSW+4 02S0108 00237000 * 03S0109 00238000 */********************************************************************/ 00239000 */* */ 00240000 */* SEGMENT NAME - SCHEDREC */ 00241000 */* */ 00242000 */* DESCRIPTIVE NAME - SCHEDULE HOT I/O RECOVERY */ 00243000 */* */ 00244000 */* FUNCTION - */ 00245000 */* THIS SEGMENT SETS UP FOR AND SCHEDULES HOT I/O RECOVERY. */ 00246000 */* PROCESSING INCLUDES: */ 00247000 */* . DISABLING THE CHANNEL OVER WHICH THE HOT INTERRUPTS */ 00248000 */* HAVE BEEN RECEIVED. (THIS STEP IS BYPASSED FOR CRH */ 00249000 */* INTERRUPTS) */ 00250000 */* . SETTING THE CATNOP AND CATDSABL FLAGS FOR THE CHANNEL */ 00251000 */* . ISSUING SETFRR AND OBTAINING SALLOC LOCK */ 00252000 */* . GETTING STORAGE FOR AND BUILDING AN SRB */ 00253000 */* . FREEING SALLOC LOCK AND DELETING FRR */ 00254000 */* . SCHEDULING HOT I/O RECOVERY WITH CPU AFFINITY */ 00255000 */* */ 00256000 */********************************************************************/ 00257000 * 03S0109 00258000 * SRL(DEVAD,8); /* ISOLATE CHANNEL NUMBER */ 00259000 SRL DEVAD,8 03S0109 00260000 * RFY 03S0110 00261000 * WORKREG RSTD; 03S0110 00262000 * WORKREG=CR2MASK; /* INITIALIZE WORKREG MASK */ 00263000 L WORKREG,CR2MASK 03S0111 00264000 * SRL(WORKREG,DEVAD); /* GET MASK FOR DISABLING CHANNEL*/ 00265000 SRL WORKREG,0(DEVAD) 03S0112 00266000 * CR2CONT=CR2CONT&&WORKREG;/* MARK CHANNEL DISABLED IN 00267000 * PCCA */ 00268000 L @08,CR2CONT(,SVAREAP) 03S0113 00269000 XR @08,WORKREG 03S0113 00270000 ST @08,CR2CONT(,SVAREAP) 03S0113 00271000 * WORKREG=ADDR(CR2CONT);/* SET UP FOR LCTL INSTRUCTION */ 00272000 LA WORKREG,CR2CONT(,SVAREAP) 03S0114 00273000 * IF IRTCRHIN=OFF THEN/* NOT CRH INTERRUPT */ 00274000 TM IRTCRHIN+736(LCCAPTR),B'00010000' 03S0115 00275000 BNZ @RF00115 03S0115 00276000 * DO; /* DISABLE CHANNEL */ 00277000 * GEN REFS(CR2CONT); 03S0117 00278000 LCTL 2,2,0(WORKREG) 00279000 * END; 03S0118 00280000 * RFY 03S0119 00281000 * WORKREG UNRSTD; 03S0119 00282000 @RF00115 DS 0H 03S0120 00283000 * RFY 03S0120 00284000 * CAT BASED(ADDR(PCCACAT)+DEVAD*LENGTH(CAT)); 03S0120 00285000 * CATNOP=ON; /* SET INOPERATIVE FLAG */ 00286000 LA @08,PCCACAT(,PCCAPTR) 03S0121 00287000 LR @15,DEVAD 03S0121 00288000 SLA @15,3 03S0121 00289000 ALR @08,@15 03S0121 00290000 OI CATNOP(@08),B'01000000' 03S0121 00291000 * IF CATDSABL=OFF THEN/* CAT NOT ALREADY MARKED */ 00292000 TM CATDSABL(@08),B'00000001' 03S0122 00293000 BNZ @RF00122 03S0122 00294000 * DO; /* SET UP AND SCHEDULE RECOVERY */ 00295000 * CATDSABL=ON; /* SET DISABLED FLAG */ 00296000 OI CATDSABL(@08),B'00000001' 03S0124 00297000 * SCDCNTS=0; /* ZERO SCD REPEAT COUNTS */ 00298000 SLR @08,@08 03S0125 00299000 ST @08,SCDCNTS(,SCDPTR) 03S0125 00300000 * GEN REFS(ADDRFRR) SETS(R4,R7,R8) FLOWS(HDETFRR); 00301000 * /*ADD FRR */ 00302000 SETFRR A,FRRAD=ADDRFRR,WRKREGS=(R4,R7),PARMAD=(R8) 00303000 * GEN SETS(R0,R1,R14,R15) REFS(R11,R12,R13); 03S0127 00304000 * /*GET SALLOC LOCK */ 00305000 GETSAL SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND,DISABLED,REGS=USE, X00306000 RELATED=(FREESAL,'OBTAIN SALLOC LOCK') 00307000 * RFY 03S0128 00308000 * (R0, 03S0128 00309000 * R1, 03S0128 00310000 * R2, 03S0128 00311000 * R4) RSTD; 03S0128 00312000 * R2=LCCAPTR; /* SAVE LCCA PTR */ 00313000 LR R2,LCCAPTR 03S0129 00314000 * R0=LENGTH(SRB)+WORKLENG;/* LENGTH FOR GETMAIN */ 00315000 LA R0,300 03S0130 00316000 * GEN SETS(R0,R1,LCCAPTR,R4,R14,R15); 03S0131 00317000 * /*GET STORAGE FOR SRB */ 00318000 GETMAIN RU,LV=(0),BRANCH=(YES,GLOBAL),SP=245 00319000 * SRBPTR=R1; /* PTR TO STORAGE FOR SRB */ 00320000 LR SRBPTR,R1 03S0132 00321000 * LCCAPTR=R2; /* RESTORE LCCA PTR */ 00322000 LR LCCAPTR,R2 03S0133 00323000 * RFY 03S0134 00324000 * (R0, 03S0134 00325000 * R1, 03S0134 00326000 * R2, 03S0134 00327000 * R4) UNRSTD; 03S0134 00328000 * SRB=SRB&&SRB; /* CLEAR SRB */ 00329000 XC SRB(44,SRBPTR),SRB(SRBPTR) 03S0135 00330000 * SRBID='SRB '; /* IDENTIFY SRB */ 00331000 MVC SRBID(4,SRBPTR),@CC02424 03S0136 00332000 * SRBASCB=ADDR(IEAMASCB);/* MASTER ADDRESS SPACE */ 00333000 L @11,@CV00082 03S0137 00334000 ST @11,SRBASCB(,SRBPTR) 03S0137 00335000 * SRBCPAFF=PSAPCCAV->PCCACAFM;/* REQUEST CPU 03S0138 00336000 * AFFINITY */ 00337000 L @11,PSAPCCAV 03S0138 00338000 MVC SRBCPAFF(2,SRBPTR),PCCACAFM(@11) 03S0138 00339000 * SRBRMTR=ADDR(CVTBRET);/* RESOURCE MGR-BR 14 03S0139 00340000 * INSTRUCTION */ 00341000 L @11,CVTPTR 03S0139 00342000 LA @11,CVTBRET(,@11) 03S0139 00343000 ST @11,SRBRMTR(,SRBPTR) 03S0139 00344000 * SRBPARM=SCDPTR; /* PTR TO SCD IS PARM */ 00345000 ST SCDPTR,SRBPARM(,SRBPTR) 03S0140 00346000 * SRBEP=ADDR(IECVHREC);/* HOT I/O RECOVERY RTN */ 00347000 L @11,@CV00081 03S0141 00348000 ST @11,SRBEP(,SRBPTR) 03S0141 00349000 * RFY 03S0142 00350000 * WORKREG RSTD; 03S0142 00351000 * WORKREG=SRBPTR; /* SET UP FOR SCHEDULE */ 00352000 LR WORKREG,SRBPTR 03S0143 00353000 * GEN REFS(WORKREG) SETS(R0,R1,R15); 03S0144 00354000 * /*SCHEDULE HOT I/O RECOVERY */ 00355000 SCHEDULE SRB=(WORKREG),SCOPE=GLOBAL 00356000 * RFY 03S0145 00357000 * WORKREG UNRSTD; 03S0145 00358000 * GEN SETS(R0,R1,R14,R15) REFS(R11,R12,R13); 03S0146 00359000 * /*FREE SALLOC LOCK */ 00360000 FREESAL SETLOCK RELEASE,TYPE=SALLOC,DISABLED,REGS=USE, X00361000 RELATED=(GETSAL,'RELEASE SALLOC LOCK') 00362000 SETFRR D,WRKREGS=(R1,R15) DELETE FRR 00363000 * END; /* END SCHEDULE RECOVERY */ 00364000 * ELSE 03S0148 00365000 * ; /* CAT MARKED-RECOVERY DONE 03S0148 00366000 * EARLIER */ 00367000 @RF00122 DS 0H 03S0149 00368000 * END; 02S0149 00369000 * ELSE 02S0150 00370000 * ; /* THRESHOLD NOT EXCEEDED */ 00371000 @RF00104 DS 0H 02S0151 00372000 * END; /* END INTERRUPT IS REPEAT */ 00373000 * ELSE /* INTERRUPT IS NOT REPEAT */ 00374000 * DO; /* REFLECT CURRENT INTERRUPT IN 00375000 * SCD */ 00376000 B @RC00093 02S0152 00377000 @RF00093 DS 0H 02S0153 00378000 * SCDADDR=DEVAD; /* UPDATE DEVICE ADDRESS */ 00379000 STH DEVAD,SCDADDR(,SCDPTR) 02S0153 00380000 * SCDRSC1=IRTDETEC; /* UPDATE DETECTION FLAGS */ 00381000 MVC SCDRSC1(1,SCDPTR),IRTDETEC+736(LCCAPTR) 02S0154 00382000 * SCDCSWST=FLCCSW(5:6); /* UPDATE CSW STATUS */ 00383000 MVC SCDCSWST(2,SCDPTR),FLCCSW+4 02S0155 00384000 * SCDCNTS=0; /* ZERO REPEAT COUNTS */ 00385000 SLR @08,@08 02S0156 00386000 ST @08,SCDCNTS(,SCDPTR) 02S0156 00387000 * SCDCPUID=PCCACPUA; /* SET CPU ID */ 00388000 MVC SCDCPUID(2,SCDPTR),PCCACPUA(PCCAPTR) 02S0157 00389000 * RFY 02S0158 00390000 * WORKREG RSTD; 02S0158 00391000 * WORKREG=ADDR(SCDTIME); /* SET UP FOR STCK INSTRUCTION */ 00392000 LA WORKREG,SCDTIME(,SCDPTR) 02S0159 00393000 * GEN SETS(SCDTIME); 02S0160 00394000 * /*STORE NEW TIME */ 00395000 STCK 0(WORKREG) 00396000 * RFY 02S0161 00397000 * WORKREG UNRSTD; 02S0161 00398000 * END; 02S0162 00399000 * END; 01S0163 00400000 @RC00093 DS 0H 01S0164 00401000 * RFY 01S0164 00402000 * (R0, 01S0164 00403000 * R15) RSTD; 01S0164 00404000 @RF00081 DS 0H 01S0165 00405000 * LM(R0,R15,SVAREA); /* RESTORE REGISTERS */ 00406000 LM R0,R15,SVAREA(SVAREAP) 01S0165 00407000 * RFY 01S0166 00408000 * (R0, 01S0166 00409000 * R15) UNRSTD; 01S0166 00410000 * RETURN; /* RETURN TO CALLER */ 00411000 @EL00001 DS 0H 01S0167 00412000 @EF00001 DS 0H 01S0167 00413000 @ER00001 BR @14 01S0167 00414000 * 02S0168 00415000 */********************************************************************/ 00416000 */* */ 00417000 */* SEGMENT NAME - HDETFRR */ 00418000 */* */ 00419000 */* DESCRIPTIVE NAME - HOT I/O DETECTION FRR ROUTINE */ 00420000 */* */ 00421000 */* FUNCTION - */ 00422000 */* THIS ROUTINE PERCOLATES THE ERROR. IT REQUESTS RTM TO FREE */ 00423000 */* THE SALLOC LOCK. */ 00424000 */* */ 00425000 */********************************************************************/ 00426000 * 02S0168 00427000 *HDETFRR: 02S0168 00428000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0168 00429000 HDETFRR DS 0H 02S0169 00430000 * RFY 02S0169 00431000 * (SDWAPTR, 02S0169 00432000 * R14) RSTD; 02S0169 00433000 * GEN SETS(SDWAACF3); 02S0170 00434000 SETRP FRELOCK=(SALLOC) 00435000 * END HDETFRR; 02S0171 00436000 @EL00002 DS 0H 02S0171 00437000 @EF00002 DS 0H 02S0171 00438000 @ER00002 BR @14 02S0171 00439000 * END IECVHDET 01S0172 00440000 * 01S0172 00441000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00442000 */*%INCLUDE SYSUT5 (HDETSPEC) */ 00443000 */*%INCLUDE SYSUT5 (HDETDATA) */ 00444000 */*%INCLUDE SYSLIB (CVT ) */ 00445000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00446000 */*%INCLUDE SYSLIB (IHAPCCA ) */ 00447000 */*%INCLUDE SYSLIB (IHAPCCAT) */ 00448000 */*%INCLUDE SYSLIB (IECDCAT ) */ 00449000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00450000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00451000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 00452000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00453000 */*%INCLUDE SYSLIB (IHASRB ) */ 00454000 */*%INCLUDE SYSLIB (IHALCCA ) */ 00455000 */*%INCLUDE SYSLIB (IECDIRT ) */ 00456000 */*%INCLUDE SYSLIB (IECDHIDT) */ 00457000 */*%INCLUDE SYSLIB (IECDSCD ) */ 00458000 */*%INCLUDE SYSUT5 (CHECKINT) */ 00459000 */*%INCLUDE SYSUT5 (SCHEDREC) */ 00460000 */*%INCLUDE SYSUT5 (HDETFRR ) */ 00461000 * 01S0172 00462000 * ; 01S0172 00463000 @DATA DS 0H 00464000 @CH00117 DC H'24' 00465000 @CH01644 DC H'512' 00466000 @DATD DSECT 00467000 DS 0F 00468000 IECVHDET CSECT 00469000 DS 0F 00470000 @CF00076 DC F'256' 00471000 @DATD DSECT 00472000 DS 0D 00473000 IECVHDET CSECT 00474000 NOPR ((@ENDDATD-@DATD)*16) 00475000 DS 0F 00476000 @SIZDATD DC AL1(0) 00477000 DC AL3(@ENDDATD-@DATD) 00478000 @CV00080 DC V(IECVHIDT) 00479000 @CV00081 DC V(IECVHREC) 00480000 @CV00082 DC V(IEAMASCB) 00481000 DS 0D 00482000 ADDRFRR DC AL4(HDETFRR) 00483000 @CC02424 DC C'SRB ' 00484000 CR2MASK DC X'80000000' 00485000 SCDS0 DC 96F'0' 00486000 SCDS1 DC 96F'0' 00487000 IECVHDET CSECT 00488000 DS 0H 00489000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 00490000 @DATD DSECT 00491000 @ENDDATD EQU * 00492000 IECVHDET CSECT 00493000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00494000 @01 EQU 01 00495000 @02 EQU 02 00496000 @03 EQU 03 00497000 @04 EQU 04 00498000 @05 EQU 05 00499000 @06 EQU 06 00500000 @07 EQU 07 00501000 @08 EQU 08 00502000 @09 EQU 09 00503000 @10 EQU 10 00504000 @11 EQU 11 00505000 @12 EQU 12 00506000 @13 EQU 13 00507000 @14 EQU 14 00508000 @15 EQU 15 00509000 SRBPTR EQU @10 00510000 SCDPTR EQU @09 00511000 PCCAPTR EQU @02 00512000 OLDTIME EQU @04 00513000 R0 EQU @00 00514000 SDWAPTR EQU @01 00515000 R1 EQU @01 00516000 R2 EQU @02 00517000 LCCAPTR EQU @03 00518000 R4 EQU @04 00519000 DEVAD EQU @06 00520000 UCBPTR EQU @07 00521000 WORKREG EQU @07 00522000 R7 EQU @07 00523000 R8 EQU @08 00524000 R11 EQU @11 00525000 R12 EQU @12 00526000 SVAREAP EQU @13 00527000 R13 EQU @13 00528000 R14 EQU @14 00529000 R15 EQU @15 00530000 PSA EQU 0 00531000 FLCRNPSW EQU PSA 00532000 FLCROPSW EQU PSA+8 00533000 FLCICCW2 EQU PSA+16 00534000 FLCCVT EQU FLCICCW2 00535000 FLCCSW EQU PSA+64 00536000 PSAEEPSW EQU PSA+132 00537000 PSAESPSW EQU PSA+136 00538000 FLCSVILC EQU PSAESPSW+1 00539000 PSAEPPSW EQU PSA+140 00540000 FLCPIILC EQU PSAEPPSW+1 00541000 FLCPICOD EQU PSAEPPSW+2 00542000 PSAPICOD EQU FLCPICOD+1 00543000 FLCTEA EQU PSAEPPSW+4 00544000 FLCPER EQU PSA+152 00545000 FLCMCLA EQU PSA+168 00546000 FLCIOEL EQU FLCMCLA+4 00547000 FLCIOA EQU FLCMCLA+16 00548000 FLCFSA EQU FLCMCLA+80 00549000 PSAPCCAV EQU PSA+520 00550000 PSASUPER EQU PSA+552 00551000 PSASUP1 EQU PSASUPER 00552000 PSASUP2 EQU PSASUPER+1 00553000 PSASUP3 EQU PSASUPER+2 00554000 PSASUP4 EQU PSASUPER+3 00555000 PSACLHT EQU PSA+640 00556000 PSALKSA EQU PSA+696 00557000 PSAHLHI EQU PSA+760 00558000 PSACPUSA EQU PSA+794 00559000 PSADSSFL EQU PSA+836 00560000 PSADSSF1 EQU PSADSSFL 00561000 PSADSSF3 EQU PSADSSFL+2 00562000 PSADSSF4 EQU PSADSSFL+3 00563000 PSARSVT EQU PSA+896 00564000 CATPTR EQU 0 00565000 SVAREA EQU 0 00566000 FRREPTR EQU 0 00567000 FRRSPTR EQU 0 00568000 IRTPTR EQU 0 00569000 CVTMAP EQU 0 00570000 CVTDAR EQU CVTMAP+72 00571000 CVTFLGS1 EQU CVTDAR 00572000 CVTBRET EQU CVTMAP+82 00573000 CVTDCB EQU CVTMAP+116 00574000 CVTIOQET EQU CVTMAP+120 00575000 CVTIERLC EQU CVTMAP+144 00576000 CVTHEAD EQU CVTMAP+160 00577000 CVTSV76C EQU CVTHEAD 00578000 CVTOPTA EQU CVTMAP+182 00579000 CVTOPTB EQU CVTMAP+183 00580000 CVTGTF EQU CVTMAP+236 00581000 CVTGTFST EQU CVTGTF 00582000 CVTGTFS EQU CVTGTFST 00583000 CVTSTATE EQU CVTGTFST 00584000 CVTTMODE EQU CVTGTFST 00585000 CVTFORM EQU CVTGTFST 00586000 CVTAQAVT EQU CVTMAP+240 00587000 CVTTCMFG EQU CVTAQAVT 00588000 CVTVOLM2 EQU CVTMAP+244 00589000 CVTTATA EQU CVTVOLM2 00590000 CVTTSKS EQU CVTTATA 00591000 CVTVOLF2 EQU CVTTSKS 00592000 CVTTAT EQU CVTTATA+1 00593000 CVTATER EQU CVTMAP+248 00594000 CVTEXT1 EQU CVTMAP+252 00595000 CVTPURG EQU CVTMAP+260 00596000 CVTQMSG EQU CVTMAP+268 00597000 CVTDMSR EQU CVTMAP+272 00598000 CVTRSV37 EQU CVTDMSR 00599000 CVTDMSRF EQU CVTRSV37 00600000 CVTERPV EQU CVTMAP+316 00601000 CVTINTLA EQU CVTMAP+320 00602000 CVTAPF EQU CVTMAP+324 00603000 CVTEXT2 EQU CVTMAP+328 00604000 CVTHJES EQU CVTMAP+332 00605000 CVTPGSIA EQU CVTMAP+348 00606000 CVTA1F1 EQU CVTMAP+356 00607000 CVTSYSK EQU CVTMAP+357 00608000 CVTVOLM1 EQU CVTMAP+380 00609000 CVTVOLF1 EQU CVTVOLM1 00610000 CVTATMCT EQU CVTMAP+388 00611000 CVTXTNT1 EQU 0 00612000 CVTXTNT2 EQU 0 00613000 CVTDSSV EQU CVTXTNT2 00614000 CVTFLGBT EQU CVTXTNT2+5 00615000 CVTQID EQU CVTXTNT2+24 00616000 CVTRV400 EQU CVTXTNT2+52 00617000 CVTRV409 EQU CVTXTNT2+53 00618000 CVTATCVT EQU CVTXTNT2+64 00619000 CVTRV429 EQU CVTXTNT2+84 00620000 CVTRV438 EQU CVTXTNT2+85 00621000 CVTRV457 EQU CVTXTNT2+112 00622000 CVTRV466 EQU CVTXTNT2+113 00623000 CVTFIX EQU 0 00624000 CVTRELNO EQU CVTFIX+252 00625000 PCCA EQU 0 00626000 PCCACPUA EQU PCCA+16 00627000 PCCACAFM EQU PCCA+18 00628000 PCCATMST EQU PCCA+128 00629000 PCCATMFL EQU PCCATMST 00630000 PCCATODE EQU PCCATMST+1 00631000 PCCACCE EQU PCCATMST+2 00632000 PCCAINTE EQU PCCATMST+3 00633000 PCCAEMSB EQU PCCA+136 00634000 PCCAEMSI EQU PCCAEMSB 00635000 PCCARISP EQU PCCAEMSI 00636000 PCCAEMS2 EQU PCCAEMSI+1 00637000 PCCAEMS3 EQU PCCAEMSI+2 00638000 PCCARMSB EQU PCCAEMSI+3 00639000 PCCAWERP EQU PCCA+280 00640000 PCCACHPF EQU PCCAWERP+4 00641000 PCCACHBL EQU PCCAWERP+5 00642000 PCCACHVA EQU PCCAWERP+6 00643000 PCCACHTS EQU PCCAWERP+7 00644000 PCCACHS1 EQU PCCA+288 00645000 PCCACHS2 EQU PCCA+289 00646000 PCCACHRB EQU PCCA+290 00647000 PCCACHF1 EQU PCCA+308 00648000 PCCACHF2 EQU PCCA+309 00649000 PCCACHF3 EQU PCCA+310 00650000 PCCACHF4 EQU PCCA+311 00651000 PCCACAT EQU PCCA+384 00652000 PCCAVT EQU 0 00653000 PCCAT00P EQU PCCAVT 00654000 CAT EQU 0 00655000 CATENTRY EQU CAT 00656000 CATFLG EQU CATENTRY 00657000 CATNOP EQU CATFLG 00658000 CATDSABL EQU CATFLG 00659000 CATFLA EQU CAT+1 00660000 CATSOL EQU CATFLA 00661000 SDWA EQU 0 00662000 SDWAFIOB EQU SDWA+4 00663000 SDWAABCC EQU SDWAFIOB 00664000 SDWACMPF EQU SDWAABCC 00665000 SDWACTL1 EQU SDWA+8 00666000 SDWACMKA EQU SDWACTL1 00667000 SDWAMWPA EQU SDWACTL1+1 00668000 SDWAPMKA EQU SDWACTL1+4 00669000 SDWACTL2 EQU SDWA+16 00670000 SDWACMKP EQU SDWACTL2 00671000 SDWAMWPP EQU SDWACTL2+1 00672000 SDWAPMKP EQU SDWACTL2+4 00673000 SDWAGRSV EQU SDWA+24 00674000 SDWANAME EQU SDWA+88 00675000 SDWAEC1 EQU SDWA+104 00676000 SDWAEMK1 EQU SDWAEC1 00677000 SDWAMWP1 EQU SDWAEC1+1 00678000 SDWAINT1 EQU SDWAEC1+2 00679000 SDWANXT1 EQU SDWAEC1+4 00680000 SDWAAEC1 EQU SDWA+112 00681000 SDWAILC1 EQU SDWAAEC1+1 00682000 SDWAINC1 EQU SDWAAEC1+2 00683000 SDWAICD1 EQU SDWAINC1+1 00684000 SDWAEC2 EQU SDWA+120 00685000 SDWAEMK2 EQU SDWAEC2 00686000 SDWAMWP2 EQU SDWAEC2+1 00687000 SDWAINT2 EQU SDWAEC2+2 00688000 SDWANXT2 EQU SDWAEC2+4 00689000 SDWAAEC2 EQU SDWA+128 00690000 SDWAILC2 EQU SDWAAEC2+1 00691000 SDWAINC2 EQU SDWAAEC2+2 00692000 SDWAICD2 EQU SDWAINC2+1 00693000 SDWASRSV EQU SDWA+136 00694000 SDWAIDNT EQU SDWA+200 00695000 SDWAMCH EQU SDWA+204 00696000 SDWASTCK EQU SDWAMCH 00697000 SDWAMCHI EQU SDWAMCH+8 00698000 SDWAMCHS EQU SDWAMCHI 00699000 SDWAMCHD EQU SDWAMCHI+1 00700000 SDWARSR1 EQU SDWAMCH+12 00701000 SDWARSR2 EQU SDWAMCH+13 00702000 SDWAFLGS EQU SDWA+232 00703000 SDWAERRA EQU SDWAFLGS 00704000 SDWAERRB EQU SDWAFLGS+1 00705000 SDWAERRC EQU SDWAFLGS+2 00706000 SDWAERRD EQU SDWAFLGS+3 00707000 SDWAIOFS EQU SDWA+238 00708000 SDWACPUA EQU SDWA+248 00709000 SDWAPARQ EQU SDWA+252 00710000 SDWAACF2 EQU SDWAPARQ+1 00711000 SDWAACF3 EQU SDWAPARQ+2 00712000 SDWAACF4 EQU SDWAPARQ+3 00713000 SDWALKWA EQU SDWA+256 00714000 SDWALKWS EQU SDWALKWA 00715000 SDWARECP EQU SDWA+292 00716000 SDWASNPA EQU SDWA+320 00717000 SDWADUMP EQU SDWASNPA 00718000 SDWADPFS EQU SDWADUMP+1 00719000 SDWADDAT EQU SDWASNPA+4 00720000 SDWASDAT EQU SDWADDAT 00721000 SDWAPDAT EQU SDWADDAT+2 00722000 SDWADPSA EQU SDWA+328 00723000 SDWADPSL EQU SDWADPSA 00724000 SDWARA EQU SDWA+400 00725000 SDWADPVA EQU SDWARA+2 00726000 FRRS EQU 0 00727000 FRRSHEAD EQU FRRS 00728000 FRRSENTR EQU 0 00729000 FRRSFLGS EQU FRRSENTR+4 00730000 FRRSFLG1 EQU FRRSFLGS 00731000 WSAG EQU 0 00732000 WSAC EQU 0 00733000 UCB EQU 0 00734000 UCBOB EQU 0 00735000 UCBJBNR EQU UCBOB 00736000 UCBFL5 EQU UCBOB+1 00737000 UCBAF EQU UCBFL5 00738000 UCBSTAT EQU UCBOB+3 00739000 UCBCHAN EQU UCBOB+4 00740000 UCBSFLS EQU UCBOB+6 00741000 UCBFLA EQU UCBSFLS 00742000 UCBFL1 EQU UCBFLA 00743000 UCBBSY EQU UCBFL1 00744000 UCBNRY EQU UCBFL1 00745000 UCBPST EQU UCBFL1 00746000 UCBCUB EQU UCBFL1 00747000 UCBFLB EQU UCBSFLS+1 00748000 UCBCHM EQU UCBOB+8 00749000 UCBCHM1 EQU UCBCHM 00750000 UCBPTH0 EQU UCBCHM1 00751000 UCBPTH1 EQU UCBCHM1 00752000 UCBWGT EQU UCBOB+12 00753000 UCBTYP EQU UCBOB+16 00754000 UCBTBYT1 EQU UCBTYP 00755000 UCB1FEA5 EQU UCBTBYT1 00756000 UCB1FEA6 EQU UCBTBYT1 00757000 UCBTBYT2 EQU UCBTYP+1 00758000 UCB2OPT2 EQU UCBTBYT2 00759000 UCBDUDN1 EQU UCB2OPT2 00760000 UCB2OPT3 EQU UCBTBYT2 00761000 UCBDUDN2 EQU UCB2OPT3 00762000 UCB2OPT4 EQU UCBTBYT2 00763000 UCBRWTAU EQU UCB2OPT4 00764000 UCB2OPT6 EQU UCBTBYT2 00765000 UCB2OPT7 EQU UCBTBYT2 00766000 UCBTBYT3 EQU UCBTYP+2 00767000 UCBDVCLS EQU UCBTBYT3 00768000 UCBTBYT4 EQU UCBTYP+3 00769000 UCBEXTPT EQU UCBOB+20 00770000 UCBFLC EQU UCBEXTPT 00771000 UCBDEV EQU UCBOB+24 00772000 UCBCMEXT EQU 0 00773000 UCBATI EQU UCBCMEXT+3 00774000 @NM00081 EQU UCBATI 00775000 UCBFLP1 EQU UCBCMEXT+5 00776000 UCBMIHTI EQU UCBCMEXT+16 00777000 UCBMT EQU 0 00778000 UCBOCR EQU 0 00779000 UCB3540X EQU 0 00780000 UCBDKBYT EQU UCB3540X+6 00781000 UCB3800X EQU 0 00782000 UCBOPTNS EQU UCB3800X 00783000 UCBACTIV EQU UCB3800X+3 00784000 UCBMDRBF EQU UCB3800X+36 00785000 UCBUCS EQU 0 00786000 UCBUCSOP EQU UCBUCS+4 00787000 UCBFCBOP EQU UCBUCS+5 00788000 SRBSECT EQU 0 00789000 SRB EQU SRBSECT 00790000 SRBID EQU SRB 00791000 SRBASCB EQU SRB+8 00792000 SRBFLC EQU SRB+12 00793000 SRBCPAFF EQU SRBFLC 00794000 SRBEP EQU SRB+20 00795000 SRBRMTR EQU SRB+24 00796000 SRBPARM EQU SRB+28 00797000 LCCA EQU 0 00798000 LCCAIHRC EQU LCCA+520 00799000 LCCAIHR1 EQU LCCAIHRC 00800000 LCCAIHR2 EQU LCCAIHRC+1 00801000 LCCAIHR3 EQU LCCAIHRC+2 00802000 LCCAIHR4 EQU LCCAIHRC+3 00803000 LCCASPIN EQU LCCA+524 00804000 LCCASPN1 EQU LCCASPIN 00805000 LCCASPN2 EQU LCCASPIN+1 00806000 LCCASPN3 EQU LCCASPIN+2 00807000 LCCASPN4 EQU LCCASPIN+3 00808000 LCCACPUS EQU LCCA+536 00809000 LCCADSF1 EQU LCCA+540 00810000 LCCADSF2 EQU LCCA+541 00811000 LCCASPSA EQU LCCA+544 00812000 LCCACRFL EQU LCCA+692 00813000 LCCACREX EQU LCCA+693 00814000 LCCALKFG EQU LCCA+694 00815000 LCCASRBF EQU LCCA+720 00816000 LCCAIRT EQU LCCA+736 00817000 IRT EQU 0 00818000 IRTENTRY EQU IRT 00819000 IRTFLA EQU IRTENTRY 00820000 IRTFLB EQU IRTENTRY+1 00821000 IRTENVR EQU IRTENTRY+2 00822000 IRTCRHIN EQU IRTENVR 00823000 IRTDETEC EQU IRT+7 00824000 IRTHOTD EQU IRTDETEC 00825000 HIDT EQU 0 00826000 HIDTCHAN EQU HIDT 00827000 HIDTDEV EQU HIDT+2 00828000 HIDTTIME EQU HIDT+4 00829000 HIDTINTV EQU HIDT+6 00830000 SCD EQU 0 00831000 SCDCPUID EQU SCD 00832000 SCDADDR EQU SCD+2 00833000 SCDFLG1 EQU SCD+4 00834000 SCDRSCDE EQU SCD+5 00835000 SCDRSC1 EQU SCDRSCDE 00836000 SCDTMOUT EQU SCDRSC1 00837000 SCDHOTD EQU SCDRSC1 00838000 SCDCSWST EQU SCD+8 00839000 SCDCNTS EQU SCD+12 00840000 SCDRCNT EQU SCDCNTS 00841000 SCDTRCNT EQU SCDCNTS+2 00842000 SCDTIME EQU SCD+16 00843000 SCDTIME1 EQU SCDTIME 00844000 UCBBGN EQU 0 00845000 CVTPTR EQU FLCCVT 00846000 CR2CONT EQU SVAREA+48 00847000 CVTS01 EQU CVTPGSIA 00848000 CVTLPDIA EQU CVTS01+12 00849000 CVTDIRST EQU CVTLPDIA 00850000 CVTSLIDA EQU CVTS01+24 00851000 CVTCTLFG EQU CVTS01+50 00852000 CVTSPSA EQU CVTS01+336 00853000 CVTPCCAT EQU CVTS01+416 00854000 CVTRV210 EQU CVTS01+424 00855000 CVTRV219 EQU CVTS01+425 00856000 CVTRV228 EQU CVTS01+426 00857000 CVTRV237 EQU CVTS01+427 00858000 CVTMFRTR EQU CVTS01+452 00859000 CVTRV262 EQU CVTS01+468 00860000 CVTRV271 EQU CVTS01+469 00861000 CVTRV280 EQU CVTS01+470 00862000 CVTRV289 EQU CVTS01+471 00863000 CVTGSDA EQU CVTS01+600 00864000 PSARSVTE EQU PSARSVT 00865000 UCBOBS01 EQU UCBDEV 00866000 UCBSTAB EQU UCBOBS01+10 00867000 UCBBSVL EQU UCBSTAB 00868000 UCBPRSRS EQU UCBSTAB 00869000 UCBDMCT EQU UCBOBS01+11 00870000 UCBFL4 EQU UCBOBS01+13 00871000 UCBOBS02 EQU UCBDEV 00872000 UCBTFL1 EQU UCBOBS02+19 00873000 UCBXTN EQU UCBOBS02+20 00874000 UCBVOPT EQU UCBXTN 00875000 UCBOBS03 EQU UCBDEV 00876000 UCBXTADR EQU UCBOBS03 00877000 UCBOBS04 EQU UCBDEV 00878000 UCBBTA EQU UCBOBS04+12 00879000 UCBOBS06 EQU UCBDEV 00880000 UCBAOF EQU UCBOBS06 00881000 UCBAOF1 EQU UCBAOF 00882000 UCBAOF2 EQU UCBAOF+1 00883000 @NM00080 EQU UCBOBS06+3 00884000 UCBIRB EQU UCBOBS06+4 00885000 UCBGRAF EQU UCBIRB 00886000 UCBLDNCA EQU UCBOBS06+8 00887000 UCBRDYQ EQU UCBLDNCA 00888000 UCBIRLN EQU UCBRDYQ 00889000 UCBLDNCB EQU UCBRDYQ+1 00890000 UCBCTLNK EQU UCBOBS06+12 00891000 UCBOBS07 EQU UCBDEV 00892000 UCBOBS08 EQU UCBDEV 00893000 UCBCTCAD EQU UCBOBS08 00894000 UCBCTCF1 EQU UCBOBS08+4 00895000 UCBOBS09 EQU UCBDEV 00896000 FLC EQU PSA 00897000 * START UNREFERENCED COMPONENTS 00898000 UCBRV066 EQU UCBOBS09+4 00899000 UCBIOSBA EQU UCBOBS09 00900000 UCBRV042 EQU UCBOBS08+5 00901000 UCBRV082 EQU UCBCTCF1 00902000 UCBRV081 EQU UCBCTCF1 00903000 UCBRV080 EQU UCBCTCF1 00904000 UCBRV079 EQU UCBCTCF1 00905000 UCBRV078 EQU UCBCTCF1 00906000 UCBRV077 EQU UCBCTCF1 00907000 UCBRV076 EQU UCBCTCF1 00908000 UCBCTC80 EQU UCBCTCF1 00909000 UCBCTCAL EQU UCBCTCAD 00910000 UCBICNCB EQU UCBOBS07+4 00911000 UCBRV040 EQU UCBOBS07 00912000 UCBCTLNA EQU UCBCTLNK+1 00913000 UCBRLN EQU UCBCTLNK 00914000 UCBRDYQA EQU UCBLDNCB 00915000 UCBINRLN EQU UCBIRLN 00916000 UCBIRBA EQU UCBIRB+1 00917000 UCBRV039 EQU UCBGRAF 00918000 UCBDWNR EQU UCBGRAF 00919000 UCBRPND EQU UCBGRAF 00920000 UCBUPM EQU UCBGRAF 00921000 UCBBTAM EQU UCBGRAF 00922000 UCBDRNO EQU UCBGRAF 00923000 UCBDRO EQU UCBGRAF 00924000 UCBOIP EQU UCBGRAF 00925000 UCBATRCD EQU @NM00080 00926000 UCBSKPFG EQU @NM00080 00927000 UCBRIPND EQU @NM00080 00928000 UCBRTIAC EQU @NM00080 00929000 UCBRSV79 EQU @NM00080 00930000 UCBRSV78 EQU @NM00080 00931000 UCBRSV77 EQU @NM00080 00932000 UCBOLTEP EQU @NM00080 00933000 UCBATNCT EQU UCBOBS06+2 00934000 UCBRSV76 EQU UCBAOF2 00935000 UCBRSV75 EQU UCBAOF2 00936000 UCBRSV74 EQU UCBAOF2 00937000 UCBRSV73 EQU UCBAOF2 00938000 UCBRSV72 EQU UCBAOF2 00939000 UCBRSV71 EQU UCBAOF2 00940000 UCBRSV70 EQU UCBAOF2 00941000 UCBRSV69 EQU UCBAOF2 00942000 UCBRSV68 EQU UCBAOF1 00943000 UCBRSV67 EQU UCBAOF1 00944000 UCBRSV66 EQU UCBAOF1 00945000 UCBRSV65 EQU UCBAOF1 00946000 UCBRSV64 EQU UCBAOF1 00947000 UCBOFNL EQU UCBAOF1 00948000 UCBOFSP EQU UCBAOF1 00949000 UCBOFMCR EQU UCBAOF1 00950000 UCBBTB EQU UCBBTA+1 00951000 UCBDI EQU UCBBTA 00952000 UCBSNS EQU UCBOBS04+8 00953000 UCBTEB EQU UCBOBS04+4 00954000 UCBGCB EQU UCBOBS04+3 00955000 UCBOPEN EQU UCBOBS04+2 00956000 UCBSTART EQU UCBOBS04 00957000 UCBXTNB EQU UCBXTN+1 00958000 UCBRSV22 EQU UCBVOPT 00959000 UCBRSV21 EQU UCBVOPT 00960000 UCBRSV20 EQU UCBVOPT 00961000 UCBESVE EQU UCBVOPT 00962000 UCBERPC EQU UCBVOPT 00963000 UCBESVC EQU UCBVOPT 00964000 UCBEVA EQU UCBVOPT 00965000 UCBESV EQU UCBVOPT 00966000 UCBRV009 EQU UCBTFL1 00967000 UCBRV008 EQU UCBTFL1 00968000 UCBRV007 EQU UCBTFL1 00969000 UCBRV006 EQU UCBTFL1 00970000 UCBRV005 EQU UCBTFL1 00971000 UCBDQDSP EQU UCBTFL1 00972000 UCBNSLTP EQU UCBTFL1 00973000 UCBNLTP EQU UCBTFL1 00974000 UCBRES1B EQU UCBOBS02+18 00975000 UCBFSER EQU UCBOBS02+12 00976000 @NM00079 EQU UCBOBS02+4 00977000 UCBFSEQ EQU UCBOBS02+2 00978000 UCBFSCT EQU UCBOBS02 00979000 UCBNEXP EQU UCBOBS01+20 00980000 UCBBASE EQU UCBOBS01+16 00981000 UCBRES1A EQU UCBOBS01+15 00982000 UCBUSER EQU UCBOBS01+14 00983000 UCBFL47 EQU UCBFL4 00984000 UCBMAT EQU UCBFL4 00985000 UCBHOLD EQU UCBFL4 00986000 UCBATTN EQU UCBFL4 00987000 UCBDSS EQU UCBFL4 00988000 UCBRESVP EQU UCBFL4 00989000 UCBWDAV EQU UCBFL4 00990000 UCBDAVV EQU UCBFL4 00991000 UCBSQC EQU UCBOBS01+12 00992000 UCBDATP EQU UCBOBS01+12 00993000 UCBDMC EQU UCBDMCT 00994000 UCBMOUNT EQU UCBDMCT 00995000 UCBBNUL EQU UCBSTAB 00996000 UCBSHAR EQU UCBSTAB 00997000 UCBBSTR EQU UCBSTAB 00998000 UCBBPUB EQU UCBSTAB 00999000 UCBBPRV EQU UCBSTAB 01000000 UCBBALB EQU UCBPRSRS 01001000 UCBPGFL EQU UCBSTAB 01002000 UCBDVSHR EQU UCBBSVL 01003000 UCBVOLI EQU UCBOBS01+4 01004000 UCBVTOC EQU UCBOBS01 01005000 PSARSAV EQU PSARSVTE+60 01006000 PSARSTK EQU PSARSVTE+56 01007000 PSAESAV3 EQU PSARSVTE+52 01008000 PSAESTK3 EQU PSARSVTE+48 01009000 PSAESAV2 EQU PSARSVTE+44 01010000 PSAESTK2 EQU PSARSVTE+40 01011000 PSAESAV1 EQU PSARSVTE+36 01012000 PSAESTK1 EQU PSARSVTE+32 01013000 PSAPSAV EQU PSARSVTE+28 01014000 PSAPSTK EQU PSARSVTE+24 01015000 PSAMSAV EQU PSARSVTE+20 01016000 PSAMSTK EQU PSARSVTE+16 01017000 PSASSAV EQU PSARSVTE+12 01018000 PSASSTK EQU PSARSVTE+8 01019000 PSANSTK EQU PSARSVTE+4 01020000 PSACSTK EQU PSARSVTE 01021000 CVTRV628 EQU CVTS01+728 01022000 CVTRV627 EQU CVTS01+724 01023000 CVTRV626 EQU CVTS01+720 01024000 CVTRV625 EQU CVTS01+716 01025000 CVTRV624 EQU CVTS01+712 01026000 CVTRV623 EQU CVTS01+708 01027000 CVTRV622 EQU CVTS01+704 01028000 CVTRV621 EQU CVTS01+700 01029000 CVTIHASU EQU CVTS01+696 01030000 CVTSUSP EQU CVTS01+692 01031000 CVTT6SVC EQU CVTS01+688 01032000 CVTCDAL EQU CVTS01+684 01033000 CVTTCTL EQU CVTS01+680 01034000 CVTRSUME EQU CVTS01+676 01035000 CVTJTERM EQU CVTS01+672 01036000 CVTASMRM EQU CVTS01+668 01037000 CVTTCASP EQU CVTS01+664 01038000 CVT0PT03 EQU CVTS01+660 01039000 CVT0PT0E EQU CVTS01+656 01040000 CVTRV609 EQU CVTS01+652 01041000 CVTCGK EQU CVTS01+648 01042000 CVTRAC EQU CVTS01+644 01043000 CVTHSM EQU CVTS01+640 01044000 CVTRV605 EQU CVTS01+636 01045000 CVTRV604 EQU CVTS01+632 01046000 CVTEFF02 EQU CVTS01+628 01047000 CVTCBBR EQU CVTS01+624 01048000 CVTSSCR EQU CVTS01+620 01049000 CVTEVENT EQU CVTS01+616 01050000 CVTCRCA EQU CVTS01+612 01051000 CVTTPIO EQU CVTS01+608 01052000 CVTADV EQU CVTS01+604 01053000 CVTGSDAB EQU CVTGSDA 01054000 CVTQV3 EQU CVTS01+596 01055000 CVTQV2 EQU CVTS01+592 01056000 CVTQV1 EQU CVTS01+588 01057000 CVTRPT EQU CVTS01+584 01058000 CVTSSRB EQU CVTS01+580 01059000 CVTCSDRL EQU CVTS01+576 01060000 CVTEXP1 EQU CVTS01+572 01061000 CVTRMPMT EQU CVTS01+568 01062000 CVTRMPTT EQU CVTS01+564 01063000 CVTVPSA EQU CVTS01+560 01064000 CVTVSTOP EQU CVTS01+556 01065000 CVTGTFR8 EQU CVTS01+552 01066000 CVTQUIT EQU CVTS01+548 01067000 CVTVACR EQU CVTS01+544 01068000 CVTWTCB EQU CVTS01+540 01069000 CVTSTPRS EQU CVTS01+536 01070000 CVT0PT02 EQU CVTS01+532 01071000 CVTDARCM EQU CVTS01+528 01072000 CVTIRECM EQU CVTS01+524 01073000 CVTJRECM EQU CVTS01+520 01074000 CVTVEMS0 EQU CVTS01+516 01075000 CVTSPFRR EQU CVTS01+512 01076000 CVTRLSTG EQU CVTS01+508 01077000 CVT0TC0A EQU CVTS01+504 01078000 CVTGMBR EQU CVTS01+500 01079000 CVTLFRM EQU CVTS01+496 01080000 CVTRMBR EQU CVTS01+492 01081000 CVTVIOP EQU CVTS01+488 01082000 CVTRV307 EQU CVTS01+486 01083000 CVTRV306 EQU CVTS01+484 01084000 CVTRV305 EQU CVTS01+482 01085000 CVTRV304 EQU CVTS01+480 01086000 CVTRV303 EQU CVTS01+478 01087000 CVTRV302 EQU CVTS01+476 01088000 CVTTRCA EQU CVTS01+472 01089000 CVTRV297 EQU CVTRV289 01090000 CVTRV296 EQU CVTRV289 01091000 CVTRV295 EQU CVTRV289 01092000 CVTRV294 EQU CVTRV289 01093000 CVTRV293 EQU CVTRV289 01094000 CVTRV292 EQU CVTRV289 01095000 CVTRV291 EQU CVTRV289 01096000 CVTRV290 EQU CVTRV289 01097000 CVTRV288 EQU CVTRV280 01098000 CVTRV287 EQU CVTRV280 01099000 CVTRV286 EQU CVTRV280 01100000 CVTRV285 EQU CVTRV280 01101000 CVTRV284 EQU CVTRV280 01102000 CVTRV283 EQU CVTRV280 01103000 CVTRV282 EQU CVTRV280 01104000 CVTRV281 EQU CVTRV280 01105000 CVTRV279 EQU CVTRV271 01106000 CVTRV278 EQU CVTRV271 01107000 CVTRV277 EQU CVTRV271 01108000 CVTRV276 EQU CVTRV271 01109000 CVTRV275 EQU CVTRV271 01110000 CVTRV274 EQU CVTRV271 01111000 CVTRV273 EQU CVTRV271 01112000 CVTRV272 EQU CVTRV271 01113000 CVTRV270 EQU CVTRV262 01114000 CVTRV269 EQU CVTRV262 01115000 CVTRV268 EQU CVTRV262 01116000 CVTRV267 EQU CVTRV262 01117000 CVTRV266 EQU CVTRV262 01118000 CVTRV265 EQU CVTRV262 01119000 CVTRV264 EQU CVTRV262 01120000 CVTRV263 EQU CVTRV262 01121000 CVTVFP EQU CVTS01+464 01122000 CVTVSI EQU CVTS01+460 01123000 CVTVPSIB EQU CVTS01+456 01124000 CVTMFACT EQU CVTMFRTR 01125000 CVTMFCTL EQU CVTS01+448 01126000 CVTPVBP EQU CVTS01+444 01127000 CVTPWI EQU CVTS01+440 01128000 CVTRV254 EQU CVTS01+438 01129000 CVTRV253 EQU CVTS01+436 01130000 CVTRV252 EQU CVTS01+434 01131000 CVTRV251 EQU CVTS01+433 01132000 CVTRV250 EQU CVTS01+432 01133000 CVTRV249 EQU CVTS01+431 01134000 CVTRV248 EQU CVTS01+430 01135000 CVTRV247 EQU CVTS01+429 01136000 CVTRV246 EQU CVTS01+428 01137000 CVTRV245 EQU CVTRV237 01138000 CVTRV244 EQU CVTRV237 01139000 CVTRV243 EQU CVTRV237 01140000 CVTRV242 EQU CVTRV237 01141000 CVTRV241 EQU CVTRV237 01142000 CVTRV240 EQU CVTRV237 01143000 CVTRV239 EQU CVTRV237 01144000 CVTRV238 EQU CVTRV237 01145000 CVTRV236 EQU CVTRV228 01146000 CVTRV235 EQU CVTRV228 01147000 CVTRV234 EQU CVTRV228 01148000 CVTRV233 EQU CVTRV228 01149000 CVTRV232 EQU CVTRV228 01150000 CVTRV231 EQU CVTRV228 01151000 CVTRV230 EQU CVTRV228 01152000 CVTRV229 EQU CVTRV228 01153000 CVTRV227 EQU CVTRV219 01154000 CVTRV226 EQU CVTRV219 01155000 CVTRV225 EQU CVTRV219 01156000 CVTRV224 EQU CVTRV219 01157000 CVTRV223 EQU CVTRV219 01158000 CVTRV222 EQU CVTRV219 01159000 CVTRV221 EQU CVTRV219 01160000 CVTRV220 EQU CVTRV219 01161000 CVTRV218 EQU CVTRV210 01162000 CVTRV217 EQU CVTRV210 01163000 CVTRV216 EQU CVTRV210 01164000 CVTRV215 EQU CVTRV210 01165000 CVTRV214 EQU CVTRV210 01166000 CVTRV213 EQU CVTRV210 01167000 CVTRV212 EQU CVTRV210 01168000 CVTRV211 EQU CVTRV210 01169000 CVTLCCAT EQU CVTS01+420 01170000 CVTIPCRP EQU CVTS01+412 01171000 CVTIPCRI EQU CVTS01+408 01172000 CVTIPCDS EQU CVTS01+404 01173000 CVTAIDVT EQU CVTS01+400 01174000 CVTSSAP EQU CVTS01+396 01175000 CVTEHCIR EQU CVTS01+392 01176000 CVTEHDEF EQU CVTS01+388 01177000 CVTDAIR EQU CVTS01+384 01178000 CVTPERFM EQU CVTS01+380 01179000 CVT044R2 EQU CVTS01+376 01180000 CVTFETCH EQU CVTS01+372 01181000 CVTRSTWD EQU CVTS01+368 01182000 CVTSPOST EQU CVTS01+364 01183000 CVTIOBP EQU CVTS01+360 01184000 CVTASMVT EQU CVTS01+356 01185000 CVTRECRQ EQU CVTS01+352 01186000 CVTWSAC EQU CVTS01+348 01187000 CVTRV149 EQU CVTS01+344 01188000 CVTWSAL EQU CVTS01+340 01189000 CVTGLMN EQU CVTS01+332 01190000 CVTVEAC0 EQU CVTS01+328 01191000 CVT062R1 EQU CVTS01+324 01192000 CVTRPOST EQU CVTS01+320 01193000 CVTDQIQE EQU CVTS01+316 01194000 CVTCSD EQU CVTS01+312 01195000 CVTLKRMA EQU CVTS01+308 01196000 CVTRSPIE EQU CVTS01+304 01197000 CVTRENQ EQU CVTS01+300 01198000 CVTLQCB EQU CVTS01+296 01199000 CVTFQCB EQU CVTS01+292 01200000 CVTQCS01 EQU CVTS01+288 01201000 CVTAPFT EQU CVTS01+284 01202000 CVTPARRL EQU CVTS01+280 01203000 CVTVWAIT EQU CVTS01+276 01204000 CVTGSPL EQU CVTS01+272 01205000 CVTLSMQ EQU CVTS01+268 01206000 CVTGSMQ EQU CVTS01+264 01207000 CVTEXPRO EQU CVTS01+260 01208000 CVTOPCTP EQU CVTS01+256 01209000 CVTSIC EQU CVTS01+252 01210000 CVTTPIOS EQU CVTS01+248 01211000 CVTRTMS EQU CVTS01+244 01212000 CVTSDBF EQU CVTS01+240 01213000 CVTSCBP EQU CVTS01+236 01214000 CVTSDMP EQU CVTS01+232 01215000 CVTSV60 EQU CVTS01+228 01216000 CVTRTMCT EQU CVTS01+224 01217000 CVTASCBL EQU CVTS01+220 01218000 CVTASCBH EQU CVTS01+216 01219000 CVTGDA EQU CVTS01+212 01220000 CVTASVT EQU CVTS01+208 01221000 CVTVVMDI EQU CVTS01+204 01222000 CVTAQTOP EQU CVTS01+200 01223000 CVTIOSCS EQU CVTS01+196 01224000 CVTSDRM EQU CVTS01+192 01225000 CVTOPTE EQU CVTS01+188 01226000 CVTSTXU EQU CVTS01+184 01227000 CVTQUIS EQU CVTS01+180 01228000 CVTPARS EQU CVTS01+176 01229000 CVTS1EE EQU CVTS01+172 01230000 CVTFRAS EQU CVTS01+168 01231000 CVTQSAS EQU CVTS01+164 01232000 CVTCRAS EQU CVTS01+160 01233000 CVTCRMN EQU CVTS01+156 01234000 CVTDELCP EQU CVTS01+152 01235000 CVTFRECL EQU CVTS01+148 01236000 CVTGETCL EQU CVTS01+144 01237000 CVTBLDCP EQU CVTS01+140 01238000 CVTAUTHL EQU CVTS01+136 01239000 CVTSCAN EQU CVTS01+132 01240000 CVTRV144 EQU CVTS01+130 01241000 CVTMAXMP EQU CVTS01+128 01242000 CVTSTCK EQU CVTS01+124 01243000 CVTRV139 EQU CVTS01+123 01244000 CVTDSSAC EQU CVTS01+122 01245000 CVTRV513 EQU CVTS01+121 01246000 CVTIOSPL EQU CVTS01+120 01247000 CVTPTGT EQU CVTS01+116 01248000 CVTCSPIE EQU CVTS01+112 01249000 CVTSMFEX EQU CVTS01+108 01250000 CVTOLT0A EQU CVTS01+104 01251000 CVTSRBRT EQU CVTS01+100 01252000 CVTPUTL EQU CVTS01+96 01253000 CVTASCRL EQU CVTS01+92 01254000 CVTASCRF EQU CVTS01+88 01255000 CVTRV326 EQU CVTS01+84 01256000 CVTRV325 EQU CVTS01+80 01257000 CVTRV324 EQU CVTS01+76 01258000 CVT0VL01 EQU CVTS01+72 01259000 CVTSHRVM EQU CVTS01+68 01260000 CVTRV332 EQU CVTS01+64 01261000 CVTTAS EQU CVTS01+60 01262000 CVTRSCN EQU CVTS01+56 01263000 CVTTRAC2 EQU CVTS01+54 01264000 CVTTRACE EQU CVTS01+52 01265000 CVTAPG EQU CVTS01+51 01266000 CVTSDTRC EQU CVTCTLFG 01267000 CVTGTRCE EQU CVTCTLFG 01268000 CVTNOMP EQU CVTCTLFG 01269000 CVTRSV79 EQU CVTCTLFG 01270000 CVTDSTAT EQU CVTCTLFG 01271000 CVTRSV78 EQU CVTCTLFG 01272000 CVTRV333 EQU CVTCTLFG 01273000 CVTRV323 EQU CVTCTLFG 01274000 CVTSPVLK EQU CVTS01+49 01275000 CVTRSV77 EQU CVTS01+48 01276000 CVTRV331 EQU CVTS01+44 01277000 CVTRV330 EQU CVTS01+40 01278000 CVTRV329 EQU CVTS01+36 01279000 CVTRV328 EQU CVTS01+32 01280000 CVTRV322 EQU CVTS01+28 01281000 CVTSLID EQU CVTSLIDA+1 01282000 CVTSYLK EQU CVTSLIDA 01283000 CVTRV321 EQU CVTS01+20 01284000 CVTRV320 EQU CVTS01+16 01285000 CVTLPDIR EQU CVTLPDIA+1 01286000 CVTRSV69 EQU CVTDIRST 01287000 CVTRSV68 EQU CVTDIRST 01288000 CVTRSV67 EQU CVTDIRST 01289000 CVTRSV66 EQU CVTDIRST 01290000 CVTRSV65 EQU CVTDIRST 01291000 CVTRSV64 EQU CVTDIRST 01292000 CVTRSV63 EQU CVTDIRST 01293000 CVTDICOM EQU CVTDIRST 01294000 CVTPVTP EQU CVTS01+8 01295000 CVTLPDSR EQU CVTS01+4 01296000 CVTGETL EQU CVTS01 01297000 SCDTIME2 EQU SCDTIME+4 01298000 @NM00088 EQU SCD+10 01299000 @NM00087 EQU SCD+7 01300000 SCDRSC2 EQU SCDRSCDE+1 01301000 SCDCHERR EQU SCDRSC1 01302000 SCDCUERR EQU SCDRSC1 01303000 SCDINVDV EQU SCDRSC1 01304000 SCDNOSYS EQU SCDRSC1 01305000 SCDUNSOL EQU SCDRSC1 01306000 SCDAVAIL EQU SCDRSC1 01307000 @NM00086 EQU SCDFLG1 01308000 SCDRECUR EQU SCDFLG1 01309000 IRTEND EQU IRT+128 01310000 IRTRSV0B EQU IRT+124 01311000 IRTCHNSV EQU IRT+120 01312000 IRTSNSCT EQU IRT+116 01313000 IRTLCHAD EQU IRT+112 01314000 IRTSTSSV EQU IRT+108 01315000 IRTINTSV EQU IRT+104 01316000 IRTCCHSV EQU IRT+100 01317000 IRTATTSV EQU IRT+96 01318000 IRTFRRWA EQU IRT+92 01319000 IRTNSRB EQU IRT+88 01320000 IRTCSME EQU IRT+84 01321000 IRTPRGSV EQU IRT+80 01322000 IRTPCISV EQU IRT+76 01323000 IRTSENSV EQU IRT+72 01324000 IRTDIESV EQU IRT+68 01325000 IRTRSTSV EQU IRT+64 01326000 IRTSTASV EQU IRT+60 01327000 IRTSIOSV EQU IRT+56 01328000 IRTDDSV EQU IRT+52 01329000 IRTTCHSV EQU IRT+48 01330000 IRTRTNSV EQU IRT+40 01331000 IRTRSV01 EQU IRT+36 01332000 IRTCHMSK EQU IRT+32 01333000 IRTPSTSV EQU IRT+28 01334000 IRTNIOQ EQU IRT+24 01335000 IRTCHNL EQU IRT+20 01336000 IRTIOQ EQU IRT+16 01337000 IRTLCH EQU IRT+12 01338000 IRTUCB EQU IRT+8 01339000 IRTCHERR EQU IRTDETEC 01340000 IRTCUERR EQU IRTDETEC 01341000 IRTINVDV EQU IRTDETEC 01342000 IRTNOSYS EQU IRTDETEC 01343000 IRTUNSOL EQU IRTDETEC 01344000 IRTAVAIL EQU IRTDETEC 01345000 IRTDETR1 EQU IRTDETEC 01346000 IRTCMRST EQU IRT+6 01347000 IRTCCH EQU IRT+5 01348000 IRTSYMSK EQU IRT+4 01349000 @NM00085 EQU IRTENTRY+3 01350000 IRTCSINT EQU IRTENVR 01351000 IRTPINT EQU IRTENVR 01352000 IRTHIO EQU IRTENVR 01353000 IRTRSTI EQU IRTENVR 01354000 IRTSHTP EQU IRTENVR 01355000 IRTSLIHA EQU IRTENVR 01356000 IRTCHENT EQU IRTENVR 01357000 @NM00084 EQU IRTFLB 01358000 IRTCCHWA EQU IRTFLB 01359000 IRT12GT EQU IRTFLB 01360000 IRTSMGR EQU IRTFLB 01361000 IRTCHBSY EQU IRTFLB 01362000 IRTPCISW EQU IRTFLB 01363000 IRTSKRST EQU IRTFLB 01364000 IRTNRST EQU IRTFLB 01365000 IRTSSIGP EQU IRTFLA 01366000 IRTSLISN EQU IRTFLA 01367000 IRTIOQA EQU IRTFLA 01368000 IRTALCK EQU IRTFLA 01369000 IRTCLCK EQU IRTFLA 01370000 IRTSLCK EQU IRTFLA 01371000 IRTLLCK EQU IRTFLA 01372000 IRTULCK EQU IRTFLA 01373000 LCCAR125 EQU LCCA+964 01374000 LCCAR124 EQU LCCA+960 01375000 LCCASGPR EQU LCCA+896 01376000 LCCADRT2 EQU LCCA+888 01377000 LCCADRT1 EQU LCCA+880 01378000 LCCAR103 EQU LCCA+876 01379000 LCCAESS2 EQU LCCA+872 01380000 LCCASPLJ EQU LCCA+868 01381000 LCCASMQJ EQU LCCA+864 01382000 LCCAASID EQU LCCA+732 01383000 LCCARV89 EQU LCCA+728 01384000 LCCAPGTA EQU LCCASRBF+2 01385000 LCCASAFN EQU LCCASRBF 01386000 LCCAECSA EQU LCCA+716 01387000 LCCAICR0 EQU LCCA+712 01388000 LCCALWTM EQU LCCA+704 01389000 LCCARV78 EQU LCCA+700 01390000 LCCAPINV EQU LCCA+696 01391000 LCCARV88 EQU LCCA+695 01392000 LCCARV87 EQU LCCALKFG 01393000 LCCARV86 EQU LCCALKFG 01394000 LCCARV85 EQU LCCALKFG 01395000 LCCARV84 EQU LCCALKFG 01396000 LCCALKRD EQU LCCALKFG 01397000 LCCALKAQ EQU LCCALKFG 01398000 LCCALKSA EQU LCCALKFG 01399000 LCCALKDP EQU LCCALKFG 01400000 LCCACRST EQU LCCACREX 01401000 LCCACRDP EQU LCCACREX 01402000 LCCACRLM EQU LCCACREX 01403000 LCCACRIN EQU LCCACREX 01404000 LCCACRRT EQU LCCACREX 01405000 LCCACRLE EQU LCCACREX 01406000 LCCACRRM EQU LCCACREX 01407000 LCCACREF EQU LCCACREX 01408000 LCCAVARY EQU LCCACRFL 01409000 LCCARV73 EQU LCCACRFL 01410000 LCCARV72 EQU LCCACRFL 01411000 LCCARV71 EQU LCCACRFL 01412000 LCCARV70 EQU LCCACRFL 01413000 LCCARV69 EQU LCCACRFL 01414000 LCCACLMS EQU LCCACRFL 01415000 LCCACRTM EQU LCCACRFL 01416000 LCCALCR0 EQU LCCA+688 01417000 LCCACRLC EQU LCCA+684 01418000 LCCARCPU EQU LCCA+680 01419000 LCCADCPU EQU LCCA+676 01420000 LCCASRBJ EQU LCCA+672 01421000 LCCADSSR EQU LCCA+668 01422000 LCCADSSC EQU LCCA+660 01423000 LCCADSS3 EQU LCCA+648 01424000 LCCADSS2 EQU LCCA+636 01425000 LCCADSS1 EQU LCCA+624 01426000 LCCAWTIM EQU LCCA+616 01427000 LCCAITOD EQU LCCA+608 01428000 LCCADTOD EQU LCCA+600 01429000 LCCASTOD EQU LCCA+592 01430000 LCCARIR5 EQU LCCASPSA+44 01431000 LCCARIR4 EQU LCCASPSA+40 01432000 LCCARIR3 EQU LCCASPSA+36 01433000 LCCARIR2 EQU LCCASPSA+32 01434000 LCCARPR5 EQU LCCASPSA+28 01435000 LCCARPR4 EQU LCCASPSA+24 01436000 LCCARPR3 EQU LCCASPSA+20 01437000 LCCARPR2 EQU LCCASPSA+16 01438000 LCCADSR5 EQU LCCASPSA+12 01439000 LCCADSR4 EQU LCCASPSA+8 01440000 LCCADSR3 EQU LCCASPSA+4 01441000 LCCADSR2 EQU LCCASPSA 01442000 LCCARV68 EQU LCCA+543 01443000 LCCAPSMK EQU LCCA+542 01444000 LCCARV67 EQU LCCADSF2 01445000 LCCARV66 EQU LCCADSF2 01446000 LCCARV65 EQU LCCADSF2 01447000 LCCARV64 EQU LCCADSF2 01448000 LCCADSRW EQU LCCADSF2 01449000 LCCADSPL EQU LCCADSF2 01450000 LCCAGSRB EQU LCCADSF2 01451000 LCCASRBM EQU LCCADSF2 01452000 LCCARV61 EQU LCCADSF1 01453000 LCCARV60 EQU LCCADSF1 01454000 LCCARV59 EQU LCCADSF1 01455000 LCCARV58 EQU LCCADSF1 01456000 LCCATIMR EQU LCCADSF1 01457000 LCCADSS EQU LCCADSF1 01458000 LCCAVCPU EQU LCCADSF1 01459000 LCCAACR EQU LCCADSF1 01460000 LCCAASCP EQU LCCA+532 01461000 LCCAESSA EQU LCCA+528 01462000 LCCARV55 EQU LCCASPN4 01463000 LCCARV54 EQU LCCASPN4 01464000 LCCARV53 EQU LCCASPN4 01465000 LCCARV52 EQU LCCASPN4 01466000 LCCARV51 EQU LCCASPN4 01467000 LCCARV50 EQU LCCASPN4 01468000 LCCARV49 EQU LCCASPN4 01469000 LCCARV48 EQU LCCASPN4 01470000 LCCARV47 EQU LCCASPN3 01471000 LCCARV46 EQU LCCASPN3 01472000 LCCARV45 EQU LCCASPN3 01473000 LCCARV44 EQU LCCASPN3 01474000 LCCARV43 EQU LCCASPN3 01475000 LCCARV42 EQU LCCASPN3 01476000 LCCARV41 EQU LCCASPN3 01477000 LCCARV40 EQU LCCASPN3 01478000 LCCARV39 EQU LCCASPN2 01479000 LCCARV38 EQU LCCASPN2 01480000 LCCARV37 EQU LCCASPN2 01481000 LCCARV36 EQU LCCASPN2 01482000 LCCARV35 EQU LCCASPN2 01483000 LCCARV34 EQU LCCASPN2 01484000 LCCARV33 EQU LCCASPN2 01485000 LCCARV32 EQU LCCASPN2 01486000 LCCARV31 EQU LCCASPN1 01487000 LCCARV30 EQU LCCASPN1 01488000 LCCAMFIO EQU LCCASPN1 01489000 LCCARSTR EQU LCCASPN1 01490000 LCCATSPN EQU LCCASPN1 01491000 LCCALOCK EQU LCCASPN1 01492000 LCCASIGP EQU LCCASPN1 01493000 LCCAPTLB EQU LCCASPN1 01494000 LCCARV27 EQU LCCAIHR4 01495000 LCCARV26 EQU LCCAIHR4 01496000 LCCARV25 EQU LCCAIHR4 01497000 LCCARV24 EQU LCCAIHR4 01498000 LCCARV23 EQU LCCAIHR4 01499000 LCCARV22 EQU LCCAIHR4 01500000 LCCARV21 EQU LCCAIHR4 01501000 LCCARV20 EQU LCCAIHR4 01502000 LCCARV19 EQU LCCAIHR3 01503000 LCCARV18 EQU LCCAIHR3 01504000 LCCARV17 EQU LCCAIHR3 01505000 LCCARV16 EQU LCCAIHR3 01506000 LCCARV15 EQU LCCAIHR3 01507000 LCCARV14 EQU LCCAIHR3 01508000 LCCARV13 EQU LCCAIHR3 01509000 LCCARV12 EQU LCCAIHR3 01510000 LCCARV11 EQU LCCAIHR2 01511000 LCCARV10 EQU LCCAIHR2 01512000 LCCARV09 EQU LCCAIHR2 01513000 LCCARV08 EQU LCCAIHR2 01514000 LCCARV07 EQU LCCAIHR2 01515000 LCCARV06 EQU LCCAIHR2 01516000 LCCARV05 EQU LCCAIHR2 01517000 LCCARV04 EQU LCCAIHR2 01518000 LCCARV03 EQU LCCAIHR1 01519000 LCCARV02 EQU LCCAIHR1 01520000 LCCARV01 EQU LCCAIHR1 01521000 LCCAPPIE EQU LCCAIHR1 01522000 LCCAPSG1 EQU LCCAIHR1 01523000 LCCAPDAT EQU LCCAIHR1 01524000 LCCAXRC2 EQU LCCAIHR1 01525000 LCCAXRC1 EQU LCCAIHR1 01526000 LCCAIOPS EQU LCCA+512 01527000 LCCAGPGR EQU LCCA+448 01528000 LCCAR133 EQU LCCA+444 01529000 LCCAR132 EQU LCCA+440 01530000 LCCAR131 EQU LCCA+436 01531000 LCCAR130 EQU LCCA+432 01532000 LCCAR129 EQU LCCA+428 01533000 LCCAR128 EQU LCCA+424 01534000 LCCAR127 EQU LCCA+420 01535000 LCCAR126 EQU LCCA+416 01536000 LCCARSGR EQU LCCA+352 01537000 LCCAXGR3 EQU LCCA+288 01538000 LCCAXGR2 EQU LCCA+224 01539000 LCCAXGR1 EQU LCCA+160 01540000 LCCACR0 EQU LCCA+156 01541000 LCCAMCR1 EQU LCCA+152 01542000 LCCAPVAD EQU LCCA+148 01543000 LCCAPINT EQU LCCA+144 01544000 LCCAPPSW EQU LCCA+136 01545000 LCCAPGR2 EQU LCCA+72 01546000 LCCAPGR1 EQU LCCA+8 01547000 LCCARV77 EQU LCCA+6 01548000 LCCACPUA EQU LCCA+4 01549000 LCCALCCA EQU LCCA 01550000 @NM00083 EQU SRB+40 01551000 @NM00082 EQU SRB+38 01552000 SRBPRIOR EQU SRB+37 01553000 SRBPKF EQU SRB+36 01554000 SRBSAVE EQU SRB+32 01555000 SRBPTCB EQU SRBFLC+4 01556000 SRBPASID EQU SRBFLC+2 01557000 SRBFLNK EQU SRB+4 01558000 UCBERADR EQU UCBUCS+12 01559000 UCBFCBID EQU UCBUCS+8 01560000 UCBERCNT EQU UCBUCS+7 01561000 UCBRSV51 EQU UCBUCS+6 01562000 UCBFCBPE EQU UCBFCBOP 01563000 UCBRSV49 EQU UCBFCBOP 01564000 UCBRSV48 EQU UCBFCBOP 01565000 UCBRSV47 EQU UCBFCBOP 01566000 UCBRSV46 EQU UCBFCBOP 01567000 UCBRSV45 EQU UCBFCBOP 01568000 UCBRSV44 EQU UCBFCBOP 01569000 UCBFCBO1 EQU UCBFCBOP 01570000 UCBUCSPE EQU UCBUCSOP 01571000 UCBRSV43 EQU UCBUCSOP 01572000 UCBRSV42 EQU UCBUCSOP 01573000 UCBRSV41 EQU UCBUCSOP 01574000 UCBRSV40 EQU UCBUCSOP 01575000 UCBRSV39 EQU UCBUCSOP 01576000 UCBUCSO2 EQU UCBUCSOP 01577000 UCBUCSO1 EQU UCBUCSOP 01578000 UCBUCSID EQU UCBUCS 01579000 UCBMDRBA EQU UCBMDRBF+1 01580000 UCBRV075 EQU UCBMDRBF 01581000 UCBRV074 EQU UCB3800X+32 01582000 UCBIMAGE EQU UCB3800X+28 01583000 UCBFCBNM EQU UCB3800X+24 01584000 UCBCHAR4 EQU UCB3800X+20 01585000 UCBCHAR3 EQU UCB3800X+16 01586000 UCBCHAR2 EQU UCB3800X+12 01587000 UCBCHAR1 EQU UCB3800X+8 01588000 UCBCGMID EQU UCB3800X+4 01589000 UCBBRSTA EQU UCBACTIV 01590000 UCBRV063 EQU UCBACTIV 01591000 UCBRV062 EQU UCBACTIV 01592000 UCBRV061 EQU UCBACTIV 01593000 UCBRV060 EQU UCBACTIV 01594000 UCBRV059 EQU UCBACTIV 01595000 UCBRV058 EQU UCBACTIV 01596000 UCBRV057 EQU UCBACTIV 01597000 UCBRV050 EQU UCB3800X+2 01598000 UCBCGMNO EQU UCB3800X+1 01599000 UCBRV083 EQU UCBOPTNS 01600000 UCBBRSTR EQU UCBOPTNS 01601000 UCBRV056 EQU UCBOPTNS 01602000 UCBRV055 EQU UCBOPTNS 01603000 UCBRV054 EQU UCBOPTNS 01604000 UCBRV053 EQU UCBOPTNS 01605000 UCBRV052 EQU UCBOPTNS 01606000 UCBRV051 EQU UCBOPTNS 01607000 UCBRV073 EQU UCB3540X+7 01608000 UCBRV072 EQU UCBDKBYT 01609000 UCBRV071 EQU UCBDKBYT 01610000 UCBRV070 EQU UCBDKBYT 01611000 UCBRV069 EQU UCBDKBYT 01612000 UCBRV068 EQU UCBDKBYT 01613000 UCBRV067 EQU UCBDKBYT 01614000 UCBVLVER EQU UCBDKBYT 01615000 UCBDKAMX EQU UCBDKBYT 01616000 UCBVLSER EQU UCB3540X 01617000 UCBRDATA EQU UCBOCR+4 01618000 UCBFRID EQU UCBOCR 01619000 UCBCLN EQU UCBMT+14 01620000 UCBERG EQU UCBMT+12 01621000 UCBMS EQU UCBMT+11 01622000 UCBNB EQU UCBMT+10 01623000 UCBPW EQU UCBMT+9 01624000 UCBPR EQU UCBMT+8 01625000 UCBSIO EQU UCBMT+6 01626000 UCBTW EQU UCBMT+5 01627000 UCBTR EQU UCBMT+4 01628000 UCBTWT EQU UCBMT+3 01629000 UCBTRT EQU UCBMT+2 01630000 UCBCTD EQU UCBMT 01631000 UCBWTOID EQU UCBCMEXT+17 01632000 UCBMIHET EQU UCBMIHTI 01633000 UCBMIHT2 EQU UCBMIHTI 01634000 UCBMIHT1 EQU UCBMIHTI 01635000 UCBMIHPB EQU UCBMIHTI 01636000 UCBMIHSF EQU UCBMIHTI 01637000 UCBASID EQU UCBCMEXT+14 01638000 UCBMFCNT EQU UCBCMEXT+12 01639000 UCBPMSK EQU UCBCMEXT+10 01640000 UCBCCWOF EQU UCBCMEXT+8 01641000 UCBRV041 EQU UCBCMEXT+6 01642000 UCBRV036 EQU UCBFLP1 01643000 UCBRV035 EQU UCBFLP1 01644000 UCBERLOG EQU UCBFLP1 01645000 UCBSWAPF EQU UCBFLP1 01646000 UCBINHIO EQU UCBFLP1 01647000 UCBNSWAP EQU UCBFLP1 01648000 UCBSHRUP EQU UCBFLP1 01649000 UCBNSRCH EQU UCBFLP1 01650000 UCBSNSCT EQU UCBCMEXT+4 01651000 UCBHPDV EQU @NM00081 01652000 UCBHALI EQU @NM00081 01653000 UCBRSV09 EQU @NM00081 01654000 UCBRSV08 EQU @NM00081 01655000 UCBRSV07 EQU @NM00081 01656000 UCBRSV06 EQU @NM00081 01657000 UCBRSV05 EQU @NM00081 01658000 UCBRSV04 EQU @NM00081 01659000 UCBDTI EQU UCBCMEXT+2 01660000 UCBSTI EQU UCBCMEXT+1 01661000 UCBETI EQU UCBCMEXT 01662000 UCBEXTP EQU UCBEXTPT+1 01663000 UCBDDRSW EQU UCBFLC 01664000 UCBTICBT EQU UCBFLC 01665000 UCBIVRR EQU UCBFLC 01666000 UCBIVRS EQU UCBFLC 01667000 UCBITF EQU UCBFLC 01668000 UCBUDE EQU UCBFLC 01669000 UCBWAA EQU UCBFLC 01670000 UCBATTP EQU UCBFLC 01671000 UCBUNTYP EQU UCBTBYT4 01672000 UCBRSV11 EQU UCBDVCLS 01673000 UCBRSV10 EQU UCBDVCLS 01674000 UCB3CHAR EQU UCBDVCLS 01675000 UCB3UREC EQU UCBDVCLS 01676000 UCB3DISP EQU UCBDVCLS 01677000 UCB3DACC EQU UCBDVCLS 01678000 UCB3COMM EQU UCBDVCLS 01679000 UCB3TAPE EQU UCBDVCLS 01680000 UCBDVPWR EQU UCB2OPT7 01681000 UCBVLPWR EQU UCB2OPT6 01682000 UCB2OPT5 EQU UCBTBYT2 01683000 UCBRVDEV EQU UCBRWTAU 01684000 UCBRPS EQU UCBDUDN2 01685000 UCBRR EQU UCBDUDN1 01686000 UCB2OPT1 EQU UCBTBYT2 01687000 UCB2OPT0 EQU UCBTBYT2 01688000 UCB1FEA7 EQU UCBTBYT1 01689000 UCBD6250 EQU UCB1FEA6 01690000 UCBD1600 EQU UCB1FEA5 01691000 UCB1FEA4 EQU UCBTBYT1 01692000 UCB1FEA3 EQU UCBTBYT1 01693000 UCB1FEA2 EQU UCBTBYT1 01694000 UCB1FEA1 EQU UCBTBYT1 01695000 UCB1FEA0 EQU UCBTBYT1 01696000 UCBNAME EQU UCBOB+13 01697000 UCBRV029 EQU UCBWGT 01698000 UCBVHRSN EQU UCBWGT 01699000 UCBVORSN EQU UCBWGT 01700000 UCBMTPXP EQU UCBWGT 01701000 UCBREW EQU UCBWGT 01702000 UCBPUB EQU UCBWGT 01703000 UCBOUT EQU UCBWGT 01704000 UCBIN EQU UCBWGT 01705000 UCBCPU EQU UCBOB+11 01706000 UCBLCI EQU UCBOB+10 01707000 UCBCNT EQU UCBOB+9 01708000 UCBRV017 EQU UCBCHM1 01709000 UCBRV016 EQU UCBCHM1 01710000 UCBRV015 EQU UCBCHM1 01711000 UCBRV014 EQU UCBCHM1 01712000 UCBSPB EQU UCBPTH1 01713000 UCBPPB EQU UCBPTH1 01714000 UCBSPA EQU UCBPTH0 01715000 UCBPPA EQU UCBPTH0 01716000 UCBSIGP EQU UCBFLB 01717000 UCBVALPH EQU UCBFLB 01718000 UCBCRHSN EQU UCBFLB 01719000 UCBCRHRV EQU UCBFLB 01720000 UCBRESVH EQU UCBFLB 01721000 UCBSPST EQU UCBFLB 01722000 UCBASNS EQU UCBFLB 01723000 UCBIORST EQU UCBFLB 01724000 UCBQISCE EQU UCBFL1 01725000 UCBACTV EQU UCBFL1 01726000 UCBSAP EQU UCBFL1 01727000 UCBNOTRC EQU UCBCUB 01728000 UCBPSNS EQU UCBFL1 01729000 UCBUSING EQU UCBPST 01730000 UCBNOTRD EQU UCBNRY 01731000 UCBBUSYD EQU UCBBSY 01732000 UCBUA EQU UCBCHAN+1 01733000 UCBCHA EQU UCBCHAN 01734000 UCBDADI EQU UCBSTAT 01735000 UCBSYSR EQU UCBSTAT 01736000 UCBPRES EQU UCBSTAT 01737000 UCBALOC EQU UCBSTAT 01738000 UCBUNLD EQU UCBSTAT 01739000 UCBRESV EQU UCBSTAT 01740000 UCBCHGS EQU UCBSTAT 01741000 UCBONLI EQU UCBSTAT 01742000 UCBID EQU UCBOB+2 01743000 UCBALTPH EQU UCBFL5 01744000 UCBALTCU EQU UCBFL5 01745000 UCBNALOC EQU UCBFL5 01746000 UCBENVRD EQU UCBFL5 01747000 UCBVSDR EQU UCBFL5 01748000 UCBSASK EQU UCBFL5 01749000 UCBAMV EQU UCBAF 01750000 UCBDCC EQU UCBFL5 01751000 UCBMONT EQU UCBJBNR 01752000 UCBRV011 EQU UCBJBNR 01753000 UCBMMSGP EQU UCBJBNR 01754000 UCBOLDSM EQU UCBJBNR 01755000 UCBRV003 EQU UCBJBNR 01756000 UCBDUC EQU UCBJBNR 01757000 UCBJES3 EQU UCBJBNR 01758000 UCBVRDEV EQU UCBJBNR 01759000 UCBCMSEG EQU UCBOB 01760000 UCBPFXND EQU UCB+512 01761000 UCBIOQ EQU UCB+508 01762000 UCBLOCK EQU UCB+504 01763000 UCBPXST EQU UCB+504 01764000 @NM00078 EQU UCB 01765000 WSACASMS EQU WSAC+60 01766000 WSACASMD EQU WSAC+56 01767000 WSACCCH EQU WSAC+52 01768000 WSACRRSA EQU WSAC+48 01769000 WSACREST EQU WSAC+44 01770000 WSACRSTI EQU WSAC+40 01771000 WSACABTM EQU WSAC+36 01772000 WSACMF1 EQU WSAC+32 01773000 WSACEDS0 EQU WSAC+28 01774000 WSACIOS EQU WSAC+24 01775000 WSACRTMK EQU WSAC+20 01776000 WSACACR EQU WSAC+16 01777000 WSACTIME EQU WSAC+12 01778000 WSACOPTM EQU WSAC+8 01779000 WSACGTF EQU WSAC+4 01780000 WSACCWSA EQU WSAC 01781000 WSAGSCHE EQU WSAG+40 01782000 WSAGREST EQU WSAG+36 01783000 WSAGNQDQ EQU WSAG+32 01784000 WSAGMEMT EQU WSAG+28 01785000 WSAGOPTM EQU WSAG+24 01786000 WSAGSTAT EQU WSAG+20 01787000 WSAGEMS0 EQU WSAG+16 01788000 WSAGSSRS EQU WSAG+12 01789000 WSAGRSM EQU WSAG+8 01790000 WSAGGMFM EQU WSAG+4 01791000 WSAGPGIO EQU WSAG 01792000 FRRSPARM EQU FRRSENTR+8 01793000 @NM00077 EQU FRRSFLGS+1 01794000 @NM00076 EQU FRRSFLG1 01795000 FRRSNEST EQU FRRSFLG1 01796000 FRRSRCUR EQU FRRSFLG1 01797000 FRRSFRRA EQU FRRSENTR 01798000 FRRSENTS EQU FRRS+84 01799000 FRRSRTMW EQU FRRS+16 01800000 FRRSCURR EQU FRRSHEAD+12 01801000 FRRSELEN EQU FRRSHEAD+8 01802000 FRRSLAST EQU FRRSHEAD+4 01803000 FRRSEMP EQU FRRSHEAD 01804000 @NM00075 EQU SDWA+512 01805000 SDWAVRA EQU SDWARA+4 01806000 SDWAURAL EQU SDWARA+3 01807000 @NM00074 EQU SDWADPVA 01808000 SDWAEBC EQU SDWADPVA 01809000 SDWAHEX EQU SDWADPVA 01810000 SDWAVRAL EQU SDWARA 01811000 @NM00073 EQU SDWA+396 01812000 SDWACOMP EQU SDWA+392 01813000 SDWARCPL EQU SDWA+364 01814000 @NM00072 EQU SDWADPSA+32 01815000 SDWATO4 EQU SDWADPSL+28 01816000 SDWAFRM4 EQU SDWADPSL+24 01817000 SDWATO3 EQU SDWADPSL+20 01818000 SDWAFRM3 EQU SDWADPSL+16 01819000 SDWATO2 EQU SDWADPSL+12 01820000 SDWAFRM2 EQU SDWADPSL+8 01821000 SDWATO1 EQU SDWADPSL+4 01822000 SDWAFRM1 EQU SDWADPSL 01823000 @NM00071 EQU SDWADDAT+3 01824000 @NM00070 EQU SDWAPDAT 01825000 SDWAUSPL EQU SDWAPDAT 01826000 SDWADPSW EQU SDWAPDAT 01827000 SDWATJPA EQU SDWAPDAT 01828000 SDWATLPA EQU SDWAPDAT 01829000 SDWADREG EQU SDWAPDAT 01830000 SDWADSAH EQU SDWAPDAT 01831000 SDWADSAS EQU SDWAPDAT 01832000 @NM00069 EQU SDWADDAT+1 01833000 @NM00068 EQU SDWASDAT 01834000 SDWAQQS EQU SDWASDAT 01835000 SDWACBS EQU SDWASDAT 01836000 SDWAGTF EQU SDWASDAT 01837000 SDWASWA EQU SDWASDAT 01838000 SDWALSQA EQU SDWASDAT 01839000 SDWASQA EQU SDWASDAT 01840000 SDWANUC EQU SDWASDAT 01841000 @NM00067 EQU SDWADUMP+2 01842000 @NM00066 EQU SDWADPFS 01843000 SDWASLST EQU SDWADPFS 01844000 @NM00065 EQU SDWADPFS 01845000 SDWADLST EQU SDWADPFS 01846000 SDWADPT EQU SDWADPFS 01847000 SDWADPID EQU SDWADUMP 01848000 SDWADPLA EQU SDWA+316 01849000 SDWAREXN EQU SDWARECP+16 01850000 SDWACSCT EQU SDWARECP+8 01851000 SDWAMODN EQU SDWARECP 01852000 @NM00064 EQU SDWA+290 01853000 SDWAASID EQU SDWA+288 01854000 SDWATALW EQU SDWALKWS+28 01855000 SDWATDLW EQU SDWALKWS+24 01856000 SDWATNLW EQU SDWALKWS+20 01857000 SDWAAPLW EQU SDWALKWS+16 01858000 SDWAIPLW EQU SDWALKWS+12 01859000 SDWAILLW EQU SDWALKWS+8 01860000 SDWAIULW EQU SDWALKWS+4 01861000 SDWAICLW EQU SDWALKWS 01862000 SDWAFLLK EQU SDWAACF4 01863000 SDWACMS EQU SDWAACF4 01864000 SDWAOPTM EQU SDWAACF4 01865000 SDWATADB EQU SDWAACF4 01866000 SDWATDNB EQU SDWAACF4 01867000 SDWATNCB EQU SDWAACF4 01868000 SDWAILCH EQU SDWAACF4 01869000 SDWAIUCB EQU SDWAACF4 01870000 SDWAICAT EQU SDWAACF3 01871000 SDWAIPRG EQU SDWAACF3 01872000 SDWASALL EQU SDWAACF3 01873000 SDWAASMP EQU SDWAACF3 01874000 SDWADISP EQU SDWAACF3 01875000 @NM00063 EQU SDWAACF3 01876000 @NM00062 EQU SDWAACF2 01877000 SDWAFREE EQU SDWAACF2 01878000 SDWAUPRG EQU SDWAACF2 01879000 @NM00061 EQU SDWAACF2 01880000 SDWASPIN EQU SDWAACF2 01881000 @NM00060 EQU SDWAACF2 01882000 SDWARCRD EQU SDWAACF2 01883000 SDWARCDE EQU SDWAPARQ 01884000 SDWALCPU EQU SDWACPUA+2 01885000 @NM00059 EQU SDWACPUA 01886000 SDWARECA EQU SDWA+244 01887000 SDWARTYA EQU SDWA+240 01888000 @NM00058 EQU SDWA+239 01889000 @NM00057 EQU SDWAIOFS 01890000 SDWANIOP EQU SDWAIOFS 01891000 SDWANOIO EQU SDWAIOFS 01892000 SDWAIOHT EQU SDWAIOFS 01893000 SDWAIOQR EQU SDWAIOFS 01894000 SDWAFMID EQU SDWA+236 01895000 @NM00056 EQU SDWAERRD 01896000 SDWAMCIV EQU SDWAERRD 01897000 SDWARPIV EQU SDWAERRD 01898000 SDWAMABD EQU SDWAERRD 01899000 SDWACTS EQU SDWAERRD 01900000 SDWASTAE EQU SDWAERRD 01901000 SDWANRBE EQU SDWAERRD 01902000 SDWACLUP EQU SDWAERRD 01903000 @NM00055 EQU SDWAERRC 01904000 SDWAEAS EQU SDWAERRC 01905000 SDWAPERC EQU SDWAERRC 01906000 SDWAIRB EQU SDWAERRC 01907000 SDWASTAI EQU SDWAERRC 01908000 SDWASTAF EQU SDWAERRC 01909000 SDWASRBM EQU SDWAERRB 01910000 SDWALDIS EQU SDWAERRB 01911000 SDWAENRB EQU SDWAERRB 01912000 SDWATYP1 EQU SDWAERRB 01913000 @NM00054 EQU SDWAERRB 01914000 SDWAPGIO EQU SDWAERRA 01915000 SDWATEXC EQU SDWAERRA 01916000 SDWASVCE EQU SDWAERRA 01917000 SDWAABTM EQU SDWAERRA 01918000 SDWASVCD EQU SDWAERRA 01919000 SDWARKEY EQU SDWAERRA 01920000 SDWAPCHK EQU SDWAERRA 01921000 SDWAMCHK EQU SDWAERRA 01922000 SDWATIME EQU SDWAMCH+20 01923000 SDWARFSA EQU SDWAMCH+16 01924000 @NM00053 EQU SDWAMCH+14 01925000 SDWAVEQR EQU SDWARSR2 01926000 SDWAPGFX EQU SDWARSR2 01927000 SDWAFLSQ EQU SDWARSR2 01928000 SDWAFSQA EQU SDWARSR2 01929000 SDWANUCL EQU SDWARSR2 01930000 SDWASPER EQU SDWARSR2 01931000 SDWAINTC EQU SDWARSR2 01932000 SDWAOFLN EQU SDWARSR2 01933000 SDWACHNG EQU SDWARSR1 01934000 SDWAMSER EQU SDWARSR1 01935000 @NM00052 EQU SDWARSR1 01936000 SDWACPID EQU SDWAMCH+10 01937000 SDWATERR EQU SDWAMCHD 01938000 SDWAFPRX EQU SDWAMCHD 01939000 SDWAINSF EQU SDWAMCHD 01940000 SDWAACR EQU SDWAMCHD 01941000 SDWASCK EQU SDWAMCHD 01942000 SDWAPSWU EQU SDWAMCHD 01943000 SDWAREGU EQU SDWAMCHD 01944000 SDWASKYF EQU SDWAMCHD 01945000 @NM00051 EQU SDWAMCHS 01946000 SDWARSRF EQU SDWAMCHS 01947000 SDWARSRC EQU SDWAMCHS 01948000 SDWAINVP EQU SDWAMCHS 01949000 SDWATSVL EQU SDWAMCHS 01950000 SDWARCDF EQU SDWAMCHS 01951000 SDWASRVL EQU SDWAMCHS 01952000 SDWASCKE EQU SDWASTCK+4 01953000 SDWASCKB EQU SDWASTCK 01954000 SDWALNTH EQU SDWAIDNT+1 01955000 SDWASPID EQU SDWAIDNT 01956000 SDWASR15 EQU SDWASRSV+60 01957000 SDWASR14 EQU SDWASRSV+56 01958000 SDWASR13 EQU SDWASRSV+52 01959000 SDWASR12 EQU SDWASRSV+48 01960000 SDWASR11 EQU SDWASRSV+44 01961000 SDWASR10 EQU SDWASRSV+40 01962000 SDWASR09 EQU SDWASRSV+36 01963000 SDWASR08 EQU SDWASRSV+32 01964000 SDWASR07 EQU SDWASRSV+28 01965000 SDWASR06 EQU SDWASRSV+24 01966000 SDWASR05 EQU SDWASRSV+20 01967000 SDWASR04 EQU SDWASRSV+16 01968000 SDWASR03 EQU SDWASRSV+12 01969000 SDWASR02 EQU SDWASRSV+8 01970000 SDWASR01 EQU SDWASRSV+4 01971000 SDWASR00 EQU SDWASRSV 01972000 SDWATRN2 EQU SDWAAEC2+4 01973000 SDWAIPC2 EQU SDWAICD2 01974000 SDWAIMC2 EQU SDWAICD2 01975000 SDWAIPR2 EQU SDWAICD2 01976000 @NM00050 EQU SDWAINC2 01977000 @NM00049 EQU SDWAILC2 01978000 SDWAIL2 EQU SDWAILC2 01979000 @NM00048 EQU SDWAILC2 01980000 @NM00047 EQU SDWAAEC2 01981000 SDWAADD2 EQU SDWANXT2+1 01982000 @NM00046 EQU SDWANXT2 01983000 @NM00045 EQU SDWAEC2+3 01984000 SDWASGN2 EQU SDWAINT2 01985000 SDWAEXP2 EQU SDWAINT2 01986000 SDWADEC2 EQU SDWAINT2 01987000 SDWAFPO2 EQU SDWAINT2 01988000 SDWACC2 EQU SDWAINT2 01989000 @NM00044 EQU SDWAINT2 01990000 SDWAPGM2 EQU SDWAMWP2 01991000 SDWAWAT2 EQU SDWAMWP2 01992000 SDWAMCK2 EQU SDWAMWP2 01993000 SDWAECT2 EQU SDWAMWP2 01994000 SDWAKEY2 EQU SDWAMWP2 01995000 SDWAEXT2 EQU SDWAEMK2 01996000 SDWAIO2 EQU SDWAEMK2 01997000 SDWATRM2 EQU SDWAEMK2 01998000 @NM00043 EQU SDWAEMK2 01999000 SDWAPER2 EQU SDWAEMK2 02000000 @NM00042 EQU SDWAEMK2 02001000 SDWATRAN EQU SDWAAEC1+4 02002000 SDWAIPC1 EQU SDWAICD1 02003000 SDWAIMC1 EQU SDWAICD1 02004000 SDWAIPR1 EQU SDWAICD1 02005000 @NM00041 EQU SDWAINC1 02006000 @NM00040 EQU SDWAILC1 02007000 SDWAIL1 EQU SDWAILC1 02008000 @NM00039 EQU SDWAILC1 02009000 @NM00038 EQU SDWAAEC1 02010000 SDWAADD1 EQU SDWANXT1+1 02011000 @NM00037 EQU SDWANXT1 02012000 @NM00036 EQU SDWAEC1+3 02013000 SDWASGN1 EQU SDWAINT1 02014000 SDWAEXP1 EQU SDWAINT1 02015000 SDWADEC1 EQU SDWAINT1 02016000 SDWAFPO1 EQU SDWAINT1 02017000 SDWACC1 EQU SDWAINT1 02018000 @NM00035 EQU SDWAINT1 02019000 SDWAPGM1 EQU SDWAMWP1 02020000 SDWAWAT1 EQU SDWAMWP1 02021000 SDWAMCK1 EQU SDWAMWP1 02022000 SDWAECT1 EQU SDWAMWP1 02023000 SDWAKEY1 EQU SDWAMWP1 02024000 SDWAEXT1 EQU SDWAEMK1 02025000 SDWAIO1 EQU SDWAEMK1 02026000 SDWATRM1 EQU SDWAEMK1 02027000 @NM00034 EQU SDWAEMK1 02028000 SDWAPER1 EQU SDWAEMK1 02029000 @NM00033 EQU SDWAEMK1 02030000 SDWAIOBR EQU SDWA+100 02031000 SDWAEPA EQU SDWA+96 02032000 @NM00032 EQU SDWANAME+4 02033000 SDWARBAD EQU SDWANAME 02034000 SDWAGR15 EQU SDWAGRSV+60 02035000 SDWAGR14 EQU SDWAGRSV+56 02036000 SDWAGR13 EQU SDWAGRSV+52 02037000 SDWAGR12 EQU SDWAGRSV+48 02038000 SDWAGR11 EQU SDWAGRSV+44 02039000 SDWAGR10 EQU SDWAGRSV+40 02040000 SDWAGR09 EQU SDWAGRSV+36 02041000 SDWAGR08 EQU SDWAGRSV+32 02042000 SDWAGR07 EQU SDWAGRSV+28 02043000 SDWAGR06 EQU SDWAGRSV+24 02044000 SDWAGR05 EQU SDWAGRSV+20 02045000 SDWAGR04 EQU SDWAGRSV+16 02046000 SDWAGR03 EQU SDWAGRSV+12 02047000 SDWAGR02 EQU SDWAGRSV+8 02048000 SDWAGR01 EQU SDWAGRSV+4 02049000 SDWAGR00 EQU SDWAGRSV 02050000 SDWANXTP EQU SDWACTL2+5 02051000 SDWASGP EQU SDWAPMKP 02052000 SDWAEUP EQU SDWAPMKP 02053000 SDWADOP EQU SDWAPMKP 02054000 SDWAFPP EQU SDWAPMKP 02055000 SDWACCP EQU SDWAPMKP 02056000 SDWAILP EQU SDWAPMKP 02057000 SDWAINTP EQU SDWACTL2+2 02058000 SDWASPVP EQU SDWAMWPP 02059000 SDWAWATP EQU SDWAMWPP 02060000 SDWAMCKP EQU SDWAMWPP 02061000 @NM00031 EQU SDWAMWPP 02062000 SDWAKEYP EQU SDWAMWPP 02063000 SDWAEXTP EQU SDWACMKP 02064000 SDWAIOP EQU SDWACMKP 02065000 SDWANXTA EQU SDWACTL1+5 02066000 SDWASGA EQU SDWAPMKA 02067000 SDWAEUA EQU SDWAPMKA 02068000 SDWADOA EQU SDWAPMKA 02069000 SDWAFPA EQU SDWAPMKA 02070000 SDWACCA EQU SDWAPMKA 02071000 SDWAILA EQU SDWAPMKA 02072000 SDWAINTA EQU SDWACTL1+2 02073000 SDWASPVA EQU SDWAMWPA 02074000 SDWAWATA EQU SDWAMWPA 02075000 SDWAMCKA EQU SDWAMWPA 02076000 @NM00030 EQU SDWAMWPA 02077000 SDWAKEYA EQU SDWAMWPA 02078000 SDWAEXTA EQU SDWACMKA 02079000 SDWAIOA EQU SDWACMKA 02080000 SDWACMPC EQU SDWAABCC+1 02081000 @NM00029 EQU SDWACMPF 02082000 SDWASTCC EQU SDWACMPF 02083000 @NM00028 EQU SDWACMPF 02084000 SDWASTEP EQU SDWACMPF 02085000 SDWAREQ EQU SDWACMPF 02086000 SDWAPARM EQU SDWA 02087000 CATEND EQU CAT+8 02088000 CATCHID EQU CAT+4 02089000 CATSIOCT EQU CAT+2 02090000 CATFLARS EQU CATFLA 02091000 CATMCRST EQU CATFLA 02092000 CATCCRST EQU CATFLA 02093000 CATIORST EQU CATFLA 02094000 CATBSY EQU CATFLA 02095000 CATFLG6 EQU CATFLG 02096000 CATFLG5 EQU CATFLG 02097000 CATNID EQU CATFLG 02098000 CATNCPU EQU CATFLG 02099000 CATNGEN EQU CATFLG 02100000 CATRES1 EQU CATFLG 02101000 @NM00027 EQU PCCA+512 02102000 PCCARV36 EQU PCCA+380 02103000 PCCARV35 EQU PCCA+378 02104000 PCCARV01 EQU PCCA+377 02105000 PCCACPUM EQU PCCA+376 02106000 PCCARV63 EQU PCCA+372 02107000 PCCARV62 EQU PCCA+368 02108000 PCCARV61 EQU PCCA+364 02109000 PCCARV60 EQU PCCA+360 02110000 PCCARV59 EQU PCCA+356 02111000 PCCARV58 EQU PCCA+352 02112000 PCCARV57 EQU PCCA+348 02113000 PCCARV56 EQU PCCA+344 02114000 PCCARV55 EQU PCCA+340 02115000 PCCARV54 EQU PCCA+336 02116000 PCCALOGA EQU PCCA+332 02117000 PCCACHID EQU PCCA+324 02118000 PCCACHSV EQU PCCA+312 02119000 PCCARV79 EQU PCCACHF4 02120000 PCCARV78 EQU PCCACHF4 02121000 PCCARV77 EQU PCCACHF4 02122000 PCCARV76 EQU PCCACHF4 02123000 PCCARV75 EQU PCCACHF4 02124000 PCCARV74 EQU PCCACHF4 02125000 PCCARV73 EQU PCCACHF4 02126000 PCCARV72 EQU PCCACHF4 02127000 PCCARV71 EQU PCCACHF3 02128000 PCCARV70 EQU PCCACHF3 02129000 PCCARV69 EQU PCCACHF3 02130000 PCCARV68 EQU PCCACHF3 02131000 PCCARV67 EQU PCCACHF3 02132000 PCCARV66 EQU PCCACHF3 02133000 PCCARV65 EQU PCCACHF3 02134000 PCCARV64 EQU PCCACHF3 02135000 PCCACF28 EQU PCCACHF2 02136000 PCCACF27 EQU PCCACHF2 02137000 PCCACF26 EQU PCCACHF2 02138000 PCCACF25 EQU PCCACHF2 02139000 PCCACF24 EQU PCCACHF2 02140000 PCCACF23 EQU PCCACHF2 02141000 PCCACF22 EQU PCCACHF2 02142000 PCCACF21 EQU PCCACHF2 02143000 PCCACF18 EQU PCCACHF1 02144000 PCCACF17 EQU PCCACHF1 02145000 PCCACF16 EQU PCCACHF1 02146000 PCCACF15 EQU PCCACHF1 02147000 PCCACF14 EQU PCCACHF1 02148000 PCCACF13 EQU PCCACHF1 02149000 PCCACF12 EQU PCCACHF1 02150000 PCCACF11 EQU PCCACHF1 02151000 PCCARV05 EQU PCCA+306 02152000 PCCACHPB EQU PCCA+305 02153000 PCCALGP2 EQU PCCA+304 02154000 PCCALGP1 EQU PCCA+303 02155000 PCCALOGL EQU PCCA+302 02156000 PCCARV80 EQU PCCA+300 02157000 PCCACHW2 EQU PCCA+296 02158000 PCCACHW1 EQU PCCA+292 02159000 PCCAIOSI EQU PCCA+291 02160000 PCCACNRB EQU PCCACHRB 02161000 PCCACCVB EQU PCCACHRB 02162000 PCCACSNB EQU PCCACHRB 02163000 PCCARV52 EQU PCCACHRB 02164000 PCCACHIB EQU PCCACHRB 02165000 PCCACTIB EQU PCCACHRB 02166000 PCCACINB EQU PCCACHRB 02167000 PCCACSIB EQU PCCACHRB 02168000 PCCARV51 EQU PCCACHS2 02169000 PCCARV50 EQU PCCACHS2 02170000 PCCACCRA EQU PCCACHS2 02171000 PCCACURC EQU PCCACHS2 02172000 PCCACNLG EQU PCCACHS2 02173000 PCCACMOD EQU PCCACHS2 02174000 PCCACALT EQU PCCACHS2 02175000 PCCACIOR EQU PCCACHS2 02176000 PCCARV47 EQU PCCACHS1 02177000 PCCACUCB EQU PCCACHS1 02178000 PCCACIBC EQU PCCACHS1 02179000 PCCACAND EQU PCCACHS1 02180000 PCCACNLS EQU PCCACHS1 02181000 PCCACFRR EQU PCCACHS1 02182000 PCCACNRE EQU PCCACHS1 02183000 PCCACCMP EQU PCCACHS1 02184000 PCCACSEQ EQU PCCACHTS 02185000 PCCACDIN EQU PCCACHTS 02186000 PCCARV44 EQU PCCACHTS 02187000 PCCARV43 EQU PCCACHTS 02188000 PCCACTEC EQU PCCACHTS 02189000 PCCACDAV EQU PCCACHVA 02190000 PCCACCHV EQU PCCACHVA 02191000 PCCACCMD EQU PCCACHVA 02192000 PCCACUNS EQU PCCACHVA 02193000 PCCACSQV EQU PCCACHVA 02194000 PCCARV42 EQU PCCACHVA 02195000 PCCARV41 EQU PCCACHVA 02196000 PCCACITF EQU PCCACHVA 02197000 PCCARV40 EQU PCCACHBL 02198000 PCCARV39 EQU PCCACHBL 02199000 PCCARV38 EQU PCCACHBL 02200000 PCCACCUE EQU PCCACHBL 02201000 PCCACSTG EQU PCCACHBL 02202000 PCCACSCU EQU PCCACHBL 02203000 PCCACCHA EQU PCCACHBL 02204000 PCCACCPU EQU PCCACHBL 02205000 PCCACNOR EQU PCCACHPF 02206000 PCCACCNT EQU PCCACHPF 02207000 PCCACSNS EQU PCCACHPF 02208000 PCCARV37 EQU PCCACHPF 02209000 PCCACHIO EQU PCCACHPF 02210000 PCCACTIO EQU PCCACHPF 02211000 PCCACINT EQU PCCACHPF 02212000 PCCACSIO EQU PCCACHPF 02213000 PCCACHUB EQU PCCAWERP 02214000 PCCACHEL EQU PCCA+168 02215000 PCCALRBR EQU PCCA+164 02216000 PCCALRBV EQU PCCA+160 02217000 PCCAPWAR EQU PCCA+156 02218000 PCCAPWAV EQU PCCA+152 02219000 PCCAEMSA EQU PCCAEMSB+12 02220000 PCCAEMSE EQU PCCAEMSB+8 02221000 PCCAEMSP EQU PCCAEMSB+4 02222000 PCCARMS EQU PCCARMSB 02223000 PCCARV34 EQU PCCARMSB 02224000 PCCARV33 EQU PCCARMSB 02225000 PCCARV32 EQU PCCARMSB 02226000 PCCARV31 EQU PCCARMSB 02227000 PCCARV30 EQU PCCARMSB 02228000 PCCARV29 EQU PCCARMSB 02229000 PCCARV28 EQU PCCARMSB 02230000 PCCARV27 EQU PCCAEMS3 02231000 PCCARV26 EQU PCCAEMS3 02232000 PCCARV25 EQU PCCAEMS3 02233000 PCCARV24 EQU PCCAEMS3 02234000 PCCARV23 EQU PCCAEMS3 02235000 PCCARV22 EQU PCCAEMS3 02236000 PCCARV21 EQU PCCAEMS3 02237000 PCCARV20 EQU PCCAEMS3 02238000 PCCARV19 EQU PCCAEMS2 02239000 PCCARV18 EQU PCCAEMS2 02240000 PCCARV17 EQU PCCAEMS2 02241000 PCCARV16 EQU PCCAEMS2 02242000 PCCARV15 EQU PCCAEMS2 02243000 PCCARV14 EQU PCCAEMS2 02244000 PCCARV13 EQU PCCAEMS2 02245000 PCCARV12 EQU PCCAEMS2 02246000 PCCARV11 EQU PCCARISP 02247000 PCCARV10 EQU PCCARISP 02248000 PCCARV09 EQU PCCARISP 02249000 PCCARV08 EQU PCCARISP 02250000 PCCARV07 EQU PCCARISP 02251000 PCCARV06 EQU PCCARISP 02252000 PCCASERL EQU PCCARISP 02253000 PCCAPARL EQU PCCARISP 02254000 PCCARPB EQU PCCA+132 02255000 PCCACTIN EQU PCCAINTE 02256000 PCCANFIN EQU PCCAINTE 02257000 PCCANUIN EQU PCCAINTE 02258000 PCCACTCC EQU PCCACCE 02259000 PCCANFCC EQU PCCACCE 02260000 PCCANUCC EQU PCCACCE 02261000 PCCACTTD EQU PCCATODE 02262000 PCCANFTD EQU PCCATODE 02263000 PCCANUTD EQU PCCATODE 02264000 PCCARV04 EQU PCCATMFL 02265000 PCCARV03 EQU PCCATMFL 02266000 PCCARV02 EQU PCCATMFL 02267000 PCCAMINT EQU PCCATMFL 02268000 PCCAMCC EQU PCCATMFL 02269000 PCCAVKIL EQU PCCATMFL 02270000 PCCASYNC EQU PCCATMFL 02271000 PCCAINIT EQU PCCATMFL 02272000 PCCARV9E EQU PCCA+124 02273000 PCCARV9D EQU PCCA+120 02274000 PCCARV9C EQU PCCA+116 02275000 PCCARV9B EQU PCCA+112 02276000 PCCARV9A EQU PCCA+108 02277000 PCCARV99 EQU PCCA+104 02278000 PCCARV98 EQU PCCA+100 02279000 PCCARV97 EQU PCCA+96 02280000 PCCARV96 EQU PCCA+92 02281000 PCCARV95 EQU PCCA+88 02282000 PCCARV94 EQU PCCA+84 02283000 PCCARV93 EQU PCCA+80 02284000 PCCARV92 EQU PCCA+76 02285000 PCCARV91 EQU PCCA+72 02286000 PCCARV90 EQU PCCA+68 02287000 PCCARV89 EQU PCCA+64 02288000 PCCARV88 EQU PCCA+60 02289000 PCCARV87 EQU PCCA+56 02290000 PCCARV86 EQU PCCA+52 02291000 PCCARV85 EQU PCCA+48 02292000 PCCARV84 EQU PCCA+44 02293000 PCCARV83 EQU PCCA+40 02294000 PCCARV82 EQU PCCA+36 02295000 PCCARV81 EQU PCCA+32 02296000 PCCAPSAR EQU PCCA+28 02297000 PCCAPSAV EQU PCCA+24 02298000 PCCATQEP EQU PCCA+20 02299000 PCCACPID EQU PCCA+4 02300000 PCCAPCCA EQU PCCA 02301000 CVTLEVL EQU CVTRELNO+2 02302000 CVTNUMB EQU CVTRELNO 02303000 CVTMDL EQU CVTFIX+250 02304000 @NM00002 EQU CVTFIX+248 02305000 @NM00001 EQU CVTFIX 02306000 CVTRV482 EQU CVTXTNT2+128 02307000 CVTRV481 EQU CVTXTNT2+124 02308000 CVTRV480 EQU CVTXTNT2+120 02309000 CVTRV479 EQU CVTXTNT2+118 02310000 CVTRV478 EQU CVTXTNT2+117 02311000 CVTRV477 EQU CVTXTNT2+116 02312000 CVTRV476 EQU CVTXTNT2+115 02313000 CVTRV475 EQU CVTXTNT2+114 02314000 CVTRV474 EQU CVTRV466 02315000 CVTRV473 EQU CVTRV466 02316000 CVTRV472 EQU CVTRV466 02317000 CVTRV471 EQU CVTRV466 02318000 CVTRV470 EQU CVTRV466 02319000 CVTRV469 EQU CVTRV466 02320000 CVTRV468 EQU CVTRV466 02321000 CVTRV467 EQU CVTRV466 02322000 CVTRV465 EQU CVTRV457 02323000 CVTRV464 EQU CVTRV457 02324000 CVTRV463 EQU CVTRV457 02325000 CVTRV462 EQU CVTRV457 02326000 CVTRV461 EQU CVTRV457 02327000 CVTRV460 EQU CVTRV457 02328000 CVTRV459 EQU CVTRV457 02329000 CVTRV458 EQU CVTRV457 02330000 CVTRV456 EQU CVTXTNT2+108 02331000 CVTRV455 EQU CVTXTNT2+104 02332000 CVTRV454 EQU CVTXTNT2+100 02333000 CVTRV453 EQU CVTXTNT2+96 02334000 CVTRV452 EQU CVTXTNT2+94 02335000 CVTRV451 EQU CVTXTNT2+92 02336000 CVTRV450 EQU CVTXTNT2+90 02337000 CVTRV449 EQU CVTXTNT2+88 02338000 CVTRV448 EQU CVTXTNT2+87 02339000 CVTRV447 EQU CVTXTNT2+86 02340000 CVTRV446 EQU CVTRV438 02341000 CVTRV445 EQU CVTRV438 02342000 CVTRV444 EQU CVTRV438 02343000 CVTRV443 EQU CVTRV438 02344000 CVTRV442 EQU CVTRV438 02345000 CVTRV441 EQU CVTRV438 02346000 CVTRV440 EQU CVTRV438 02347000 CVTRV439 EQU CVTRV438 02348000 CVTRV437 EQU CVTRV429 02349000 CVTRV436 EQU CVTRV429 02350000 CVTRV435 EQU CVTRV429 02351000 CVTRV434 EQU CVTRV429 02352000 CVTRV433 EQU CVTRV429 02353000 CVTRV432 EQU CVTRV429 02354000 CVTRV431 EQU CVTRV429 02355000 CVTRV430 EQU CVTRV429 02356000 CVTRV428 EQU CVTXTNT2+80 02357000 CVTRV427 EQU CVTXTNT2+76 02358000 CVTRV426 EQU CVTXTNT2+72 02359000 CVTRV425 EQU CVTXTNT2+68 02360000 CVTATACT EQU CVTATCVT 02361000 CVTRV423 EQU CVTXTNT2+62 02362000 CVTRV422 EQU CVTXTNT2+60 02363000 CVTRV421 EQU CVTXTNT2+58 02364000 CVTRV420 EQU CVTXTNT2+56 02365000 CVTRV419 EQU CVTXTNT2+55 02366000 CVTRV418 EQU CVTXTNT2+54 02367000 CVTRV417 EQU CVTRV409 02368000 CVTRV416 EQU CVTRV409 02369000 CVTRV415 EQU CVTRV409 02370000 CVTRV414 EQU CVTRV409 02371000 CVTRV413 EQU CVTRV409 02372000 CVTRV412 EQU CVTRV409 02373000 CVTRV411 EQU CVTRV409 02374000 CVTRV410 EQU CVTRV409 02375000 CVTRV408 EQU CVTRV400 02376000 CVTRV407 EQU CVTRV400 02377000 CVTRV406 EQU CVTRV400 02378000 CVTRV405 EQU CVTRV400 02379000 CVTRV404 EQU CVTRV400 02380000 CVTRV403 EQU CVTRV400 02381000 CVTRV402 EQU CVTRV400 02382000 CVTRV401 EQU CVTRV400 02383000 CVTICB EQU CVTXTNT2+48 02384000 CVTSKTA EQU CVTXTNT2+44 02385000 CVTCCVT EQU CVTXTNT2+40 02386000 CVTRSV98 EQU CVTXTNT2+36 02387000 CVTRSV97 EQU CVTXTNT2+34 02388000 CVTRSV96 EQU CVTXTNT2+32 02389000 CVTOLTEP EQU CVTXTNT2+28 02390000 CVTQIDA EQU CVTQID+1 02391000 CVTRSV95 EQU CVTQID 02392000 CVTRSV94 EQU CVTXTNT2+20 02393000 CVTRSV93 EQU CVTXTNT2+16 02394000 CVTRSV92 EQU CVTXTNT2+12 02395000 CVTDEBVR EQU CVTXTNT2+8 02396000 CVTRSV91 EQU CVTXTNT2+6 02397000 CVTRSV9H EQU CVTFLGBT 02398000 CVTRSV9G EQU CVTFLGBT 02399000 CVTRSV9F EQU CVTFLGBT 02400000 CVTRSV9E EQU CVTFLGBT 02401000 CVTRSV9D EQU CVTFLGBT 02402000 CVTRSV9C EQU CVTFLGBT 02403000 CVTVME EQU CVTFLGBT 02404000 CVTNPE EQU CVTFLGBT 02405000 CVTNUCLS EQU CVTXTNT2+4 02406000 CVTDSSVA EQU CVTDSSV+1 02407000 CVTRSV89 EQU CVTDSSV 02408000 CVTRSV88 EQU CVTXTNT1+8 02409000 CVTRSV87 EQU CVTXTNT1+4 02410000 CVTFACHN EQU CVTXTNT1 02411000 CVTRV488 EQU CVTMAP+412 02412000 CVTRV487 EQU CVTMAP+408 02413000 CVTRV486 EQU CVTMAP+404 02414000 CVTRV485 EQU CVTMAP+400 02415000 CVTACTAP EQU CVTMAP+396 02416000 CVTAUTH EQU CVTMAP+392 02417000 CVTATMCA EQU CVTATMCT+1 02418000 CVTATMST EQU CVTATMCT 02419000 CVTRSV61 EQU CVTMAP+384 02420000 CVTVOLT1 EQU CVTVOLM1+1 02421000 CVTVOLI1 EQU CVTVOLF1 02422000 CVTSTOA EQU CVTMAP+376 02423000 CVTRSV58 EQU CVTMAP+374 02424000 CVTRSV57 EQU CVTMAP+372 02425000 CVTDDCE EQU CVTMAP+368 02426000 CVTPNWFR EQU CVTMAP+364 02427000 CVTSMF EQU CVTMAP+360 02428000 CVTSULK EQU CVTMAP+358 02429000 CVTSLKO EQU CVTSYSK 02430000 CVTSLKP EQU CVTSYSK 02431000 CVTSLKQ EQU CVTSYSK 02432000 CVTSLKR EQU CVTSYSK 02433000 CVTRSV56 EQU CVTSYSK 02434000 CVTRSV55 EQU CVTSYSK 02435000 CVTRSV54 EQU CVTSYSK 02436000 CVTRSV53 EQU CVTSYSK 02437000 CVTRSV52 EQU CVTA1F1 02438000 CVTRSV51 EQU CVTA1F1 02439000 CVTRSV50 EQU CVTA1F1 02440000 CVTRSV49 EQU CVTA1F1 02441000 CVTRSV48 EQU CVTA1F1 02442000 CVTRSV47 EQU CVTA1F1 02443000 CVTSRSW EQU CVTA1F1 02444000 CVTPFSW EQU CVTA1F1 02445000 CVTPCVT EQU CVTMAP+352 02446000 CVTRSV46 EQU CVTMAP+344 02447000 CVTRSV45 EQU CVTMAP+340 02448000 CVTRSV44 EQU CVTMAP+338 02449000 CVTRSV43 EQU CVTMAP+336 02450000 CVTHJESA EQU CVTHJES+1 02451000 CVTRSV42 EQU CVTHJES 02452000 CVTEXT2A EQU CVTEXT2+1 02453000 CVTRSV41 EQU CVTEXT2 02454000 CVTAPFA EQU CVTAPF+1 02455000 CVTRSV40 EQU CVTAPF 02456000 CVTRV518 EQU CVTINTLA 02457000 CVTRV517 EQU CVTERPV 02458000 CVTEORM EQU CVTMAP+312 02459000 CVTMCHPR EQU CVTMAP+308 02460000 CVTTZ EQU CVTMAP+304 02461000 CVTJEPS EQU CVTMAP+300 02462000 CVTJESCT EQU CVTMAP+296 02463000 CVTMODE EQU CVTMAP+292 02464000 CVTPTRV EQU CVTMAP+288 02465000 CVTREAL EQU CVTMAP+284 02466000 CVTRSV39 EQU CVTMAP+280 02467000 CVTRSV38 EQU CVTMAP+276 02468000 CVTDMSRA EQU CVTDMSR+1 02469000 CVTRV634 EQU CVTDMSRF 02470000 CVTRV633 EQU CVTDMSRF 02471000 CVTRV632 EQU CVTDMSRF 02472000 CVTRV631 EQU CVTDMSRF 02473000 CVTRV630 EQU CVTDMSRF 02474000 CVTRV629 EQU CVTDMSRF 02475000 CVTUDUMP EQU CVTDMSRF 02476000 CVTSDUMP EQU CVTDMSRF 02477000 CVTQMSGA EQU CVTQMSG+1 02478000 CVTRSV36 EQU CVTQMSG 02479000 CVTAMFF EQU CVTMAP+264 02480000 CVTPURGA EQU CVTPURG+1 02481000 CVTRSV35 EQU CVTPURG 02482000 CVTCBSP EQU CVTMAP+256 02483000 CVTATERA EQU CVTATER+1 02484000 CVTSYST EQU CVTATER 02485000 CVTVOLT2 EQU CVTTAT 02486000 CVTVOLI2 EQU CVTVOLF2 02487000 CVTAQAVB EQU CVTAQAVT+1 02488000 CVTRSV34 EQU CVTTCMFG 02489000 CVTRSV33 EQU CVTTCMFG 02490000 CVTRSV32 EQU CVTTCMFG 02491000 CVTRSV31 EQU CVTTCMFG 02492000 CVTRSV30 EQU CVTTCMFG 02493000 CVTRSV29 EQU CVTTCMFG 02494000 CVTLDEV EQU CVTTCMFG 02495000 CVTTCRDY EQU CVTTCMFG 02496000 CVTGTFA EQU CVTGTF+1 02497000 CVTRSV27 EQU CVTGTFST 02498000 CVTRNIO EQU CVTGTFST 02499000 CVTUSR EQU CVTGTFST 02500000 CVTRV318 EQU CVTFORM 02501000 CVTRV317 EQU CVTTMODE 02502000 CVTRV316 EQU CVTSTATE 02503000 CVTRV315 EQU CVTGTFS 02504000 CVTGTFAV EQU CVTGTFS 02505000 CVT0SCR1 EQU CVTMAP+232 02506000 CVTRV515 EQU CVTMAP+228 02507000 CVTRMS EQU CVTMAP+224 02508000 CVTPATCH EQU CVTMAP+220 02509000 CVTTSCE EQU CVTMAP+216 02510000 CVTLNKSC EQU CVTMAP+214 02511000 CVTQABST EQU CVTMAP+212 02512000 CVTMDLDS EQU CVTMAP+208 02513000 CVTUSER EQU CVTMAP+204 02514000 CVTABEND EQU CVTMAP+200 02515000 CVTSMCA EQU CVTMAP+196 02516000 CVTRSV18 EQU CVTMAP+192 02517000 CVTQLPAQ EQU CVTMAP+188 02518000 CVTQCDSR EQU CVTMAP+184 02519000 CVTRSV17 EQU CVTOPTB 02520000 CVTRSV16 EQU CVTOPTB 02521000 CVTFP EQU CVTOPTB 02522000 CVTAPTHR EQU CVTOPTB 02523000 CVTNLOG EQU CVTOPTB 02524000 CVTTOD EQU CVTOPTB 02525000 CVTCTIMS EQU CVTOPTB 02526000 CVTPROT EQU CVTOPTB 02527000 CVTXPFP EQU CVTOPTA 02528000 CVTASCII EQU CVTOPTA 02529000 CVTRSV13 EQU CVTOPTA 02530000 CVTRSV12 EQU CVTOPTA 02531000 CVTNIP EQU CVTOPTA 02532000 CVTDDR EQU CVTOPTA 02533000 CVTAPR EQU CVTOPTA 02534000 CVTCCH EQU CVTOPTA 02535000 CVTSNCTR EQU CVTMAP+180 02536000 CVTQMWR EQU CVTMAP+176 02537000 CVTQOCR EQU CVTMAP+172 02538000 CVT1EF00 EQU CVTMAP+168 02539000 CVTMZ00 EQU CVTMAP+164 02540000 CVTSV76Q EQU CVTSV76C 02541000 CVTRSV11 EQU CVTMAP+156 02542000 CVT0PT01 EQU CVTMAP+152 02543000 CVTMSER EQU CVTMAP+148 02544000 CVTRV516 EQU CVTIERLC 02545000 CVTILCH EQU CVTMAP+140 02546000 CVT0DS EQU CVTMAP+136 02547000 CVTFBOSV EQU CVTMAP+132 02548000 CVTNUCB EQU CVTMAP+128 02549000 CVTIXAVL EQU CVTMAP+124 02550000 CVTSV76M EQU CVTIOQET 02551000 CVTDCBA EQU CVTMAP+117 02552000 CVTMVS2 EQU CVTDCB 02553000 CVT6DAT EQU CVTDCB 02554000 CVT4MPS EQU CVTDCB 02555000 CVTRSV09 EQU CVTDCB 02556000 CVT4MS1 EQU CVTDCB 02557000 CVT2SPS EQU CVTDCB 02558000 CVT1SSS EQU CVTDCB 02559000 CVTRSV08 EQU CVTDCB 02560000 CVTSTB EQU CVTMAP+112 02561000 CVTQTD00 EQU CVTMAP+108 02562000 CVTQTE00 EQU CVTMAP+104 02563000 CVTCUCB EQU CVTMAP+100 02564000 CVTSJQ EQU CVTMAP+96 02565000 CVTPBLDL EQU CVTMAP+92 02566000 CVTTPC EQU CVTMAP+88 02567000 CVTSVDCB EQU CVTMAP+84 02568000 CVTEXIT EQU CVTMAP+80 02569000 CVT0FN00 EQU CVTMAP+76 02570000 CVTDARA EQU CVTDAR+1 02571000 CVTRSV07 EQU CVTFLGS1 02572000 CVTRSV06 EQU CVTFLGS1 02573000 CVTRSV05 EQU CVTFLGS1 02574000 CVTRSV04 EQU CVTFLGS1 02575000 CVTRSV03 EQU CVTFLGS1 02576000 CVTRSV02 EQU CVTFLGS1 02577000 CVTRSV01 EQU CVTFLGS1 02578000 CVTDMPLK EQU CVTFLGS1 02579000 CVTXITP EQU CVTMAP+68 02580000 CVTZDTAB EQU CVTMAP+64 02581000 CVTMSLT EQU CVTMAP+60 02582000 CVTDATE EQU CVTMAP+56 02583000 CVTBTERM EQU CVTMAP+52 02584000 CVTSYSAD EQU CVTMAP+48 02585000 CVTXTLER EQU CVTMAP+44 02586000 CVTILK2 EQU CVTMAP+40 02587000 CVTILK1 EQU CVTMAP+36 02588000 CVTPRLTV EQU CVTMAP+32 02589000 CVTPCNVT EQU CVTMAP+28 02590000 CVT0VL00 EQU CVTMAP+24 02591000 CVTXAPG EQU CVTMAP+20 02592000 CVTBUF EQU CVTMAP+16 02593000 CVTJOB EQU CVTMAP+12 02594000 CVTLINK EQU CVTMAP+8 02595000 CVT0EF00 EQU CVTMAP+4 02596000 CVTTCBP EQU CVTMAP 02597000 CVT EQU CVTMAP 02598000 @NM00026 EQU PSA+3668 02599000 PSASTAK EQU PSA+3072 02600000 @NM00025 EQU PSA+1048 02601000 PSAUSEND EQU PSA+1048 02602000 PSARV062 EQU PSA+1044 02603000 PSACDAL EQU PSA+1040 02604000 PSAWTCOD EQU PSA+1036 02605000 PSAATCVT EQU PSA+1032 02606000 PSAPCPSW EQU PSA+1024 02607000 PSAPIR2 EQU PSA+1020 02608000 PSARV059 EQU PSA+1018 02609000 PSASVC13 EQU PSA+1016 02610000 PSALSFCC EQU PSA+1012 02611000 PSASFACC EQU PSA+1008 02612000 PSASTOP EQU PSA+992 02613000 PSASTART EQU PSA+976 02614000 PSARSPSW EQU PSA+968 02615000 PSASRPSW EQU PSA+960 02616000 PSARV045 EQU PSA+892 02617000 PSARV044 EQU PSA+888 02618000 PSARV043 EQU PSA+884 02619000 PSARV042 EQU PSA+880 02620000 PSARV041 EQU PSA+876 02621000 PSARV040 EQU PSA+872 02622000 PSARV025 EQU PSA+868 02623000 PSADSSED EQU PSA+868 02624000 PSADSSPR EQU PSA+864 02625000 PSADSSFW EQU PSA+860 02626000 PSADSS14 EQU PSA+856 02627000 PSADSSPP EQU PSA+848 02628000 PSADSSRP EQU PSA+840 02629000 PSADSS05 EQU PSADSSF4 02630000 PSADSS10 EQU PSADSSF4 02631000 PSADSSVE EQU PSADSSF4 02632000 PSADSSDE EQU PSADSSF4 02633000 PSADSSC0 EQU PSADSSF4 02634000 PSADSSIE EQU PSADSSF4 02635000 PSADSS12 EQU PSADSSF4 02636000 PSADSSRC EQU PSADSSF4 02637000 PSARV057 EQU PSADSSF3 02638000 PSARV056 EQU PSADSSF3 02639000 PSARV055 EQU PSADSSF3 02640000 PSADSSMC EQU PSADSSF3 02641000 PSADSSRW EQU PSADSSF3 02642000 PSADSSNM EQU PSADSSF3 02643000 PSADSSES EQU PSADSSF3 02644000 PSADSSGP EQU PSADSSF3 02645000 PSADSSF2 EQU PSADSSFL+1 02646000 PSADSSPI EQU PSADSSF1 02647000 PSADSSOI EQU PSADSSF1 02648000 PSADSSSP EQU PSADSSF1 02649000 PSADSSTP EQU PSADSSF1 02650000 PSADSSDW EQU PSADSSF1 02651000 PSADSSDD EQU PSADSSF1 02652000 PSADSSDM EQU PSADSSF1 02653000 PSADSSMV EQU PSADSSF1 02654000 PSADSSTS EQU PSA+816 02655000 PSADSSWK EQU PSA+812 02656000 PSADSSR3 EQU PSA+808 02657000 PSADSSR2 EQU PSA+804 02658000 PSADSSRS EQU PSA+800 02659000 PSASTOR EQU PSA+796 02660000 PSAVSTAP EQU PSA+792 02661000 PSAWKVAP EQU PSA+788 02662000 PSAWKRAP EQU PSA+784 02663000 PSAMCHIC EQU PSA+783 02664000 PSARV061 EQU PSA+782 02665000 PSASYMSK EQU PSA+781 02666000 PSAMCHFL EQU PSA+780 02667000 PSACR0 EQU PSA+776 02668000 PSAPSWSV EQU PSA+768 02669000 PSALITA EQU PSA+764 02670000 PSACLHS EQU PSAHLHI 02671000 PSALKR15 EQU PSALKSA+60 02672000 PSALKR14 EQU PSALKSA+56 02673000 PSALKR13 EQU PSALKSA+52 02674000 PSALKR12 EQU PSALKSA+48 02675000 PSALKR11 EQU PSALKSA+44 02676000 PSALKR10 EQU PSALKSA+40 02677000 PSALKR9 EQU PSALKSA+36 02678000 PSALKR8 EQU PSALKSA+32 02679000 PSALKR7 EQU PSALKSA+28 02680000 PSALKR6 EQU PSALKSA+24 02681000 PSALKR5 EQU PSALKSA+20 02682000 PSALKR4 EQU PSALKSA+16 02683000 PSALKR3 EQU PSALKSA+12 02684000 PSALKR2 EQU PSALKSA+8 02685000 PSALKR1 EQU PSALKSA+4 02686000 PSALKR0 EQU PSALKSA 02687000 PSARV023 EQU PSACLHT+52 02688000 PSALOCAL EQU PSACLHT+48 02689000 PSACMSL EQU PSACLHT+44 02690000 PSAOPTL EQU PSACLHT+40 02691000 PSATPACL EQU PSACLHT+36 02692000 PSATPDNL EQU PSACLHT+32 02693000 PSATPNCL EQU PSACLHT+28 02694000 PSAIOSLL EQU PSACLHT+24 02695000 PSAIOSUL EQU PSACLHT+20 02696000 PSAIOSCL EQU PSACLHT+16 02697000 PSAIOSSL EQU PSACLHT+12 02698000 PSASALCL EQU PSACLHT+8 02699000 PSAASML EQU PSACLHT+4 02700000 PSADISPL EQU PSACLHT 02701000 PSASRSA EQU PSA+636 02702000 PSARV050 EQU PSA+634 02703000 PSADSSGO EQU PSA+633 02704000 PSARECUR EQU PSA+632 02705000 PSAHLHIS EQU PSA+628 02706000 PSAIPCSA EQU PSA+624 02707000 @NM00024 EQU PSA+621 02708000 PSAIPCDM EQU PSA+620 02709000 PSAIPCD EQU PSA+616 02710000 @NM00023 EQU PSA+613 02711000 PSAIPCRM EQU PSA+612 02712000 PSAIPCR EQU PSA+608 02713000 PSAMCHEX EQU PSA+600 02714000 PSAMPSW EQU PSA+592 02715000 PSAEXPS2 EQU PSA+584 02716000 PSAEXPS1 EQU PSA+576 02717000 PSAPIREG EQU PSA+572 02718000 PSARSREG EQU PSA+568 02719000 PSAGPREG EQU PSA+556 02720000 PSARV022 EQU PSASUP4 02721000 PSARV021 EQU PSASUP4 02722000 PSARV020 EQU PSASUP4 02723000 PSARV019 EQU PSASUP4 02724000 PSARV018 EQU PSASUP4 02725000 PSARV017 EQU PSASUP4 02726000 PSARV016 EQU PSASUP4 02727000 PSARV015 EQU PSASUP4 02728000 PSARV014 EQU PSASUP3 02729000 PSAULCMS EQU PSASUP3 02730000 PSARV012 EQU PSASUP3 02731000 PSAESTA EQU PSASUP3 02732000 PSASPR EQU PSASUP3 02733000 PSAPSREG EQU PSASUP3 02734000 PSAPI2 EQU PSASUP3 02735000 PSAIOSUP EQU PSASUP3 02736000 PSALCR EQU PSASUP2 02737000 PSARTM EQU PSASUP2 02738000 PSAACR EQU PSASUP2 02739000 PSAIPCE2 EQU PSASUP2 02740000 PSAIPCES EQU PSASUP2 02741000 PSAIPCEC EQU PSASUP2 02742000 PSAGTF EQU PSASUP2 02743000 PSAIPCRI EQU PSASUP2 02744000 PSATYPE6 EQU PSASUP1 02745000 PSATCTL EQU PSASUP1 02746000 PSADISP EQU PSASUP1 02747000 PSALOCK EQU PSASUP1 02748000 PSAPI EQU PSASUP1 02749000 PSAEXT EQU PSASUP1 02750000 PSASVC EQU PSASUP1 02751000 PSAIO EQU PSASUP1 02752000 PSAAOLD EQU PSA+548 02753000 PSAANEW EQU PSA+544 02754000 PSATOLD EQU PSA+540 02755000 PSATNEW EQU PSA+536 02756000 PSALCCAR EQU PSA+532 02757000 PSALCCAV EQU PSA+528 02758000 PSAPCCAR EQU PSA+524 02759000 PSACPULA EQU PSA+518 02760000 PSACPUPA EQU PSA+516 02761000 PSAPSA EQU PSA+512 02762000 FLCHDEND EQU PSA+512 02763000 FLCCRSAV EQU FLCMCLA+280 02764000 FLCGRSAV EQU FLCMCLA+216 02765000 FLCFPSAV EQU FLCMCLA+184 02766000 FLCFLA EQU FLCMCLA+88 02767000 FLCRGNCD EQU FLCMCLA+84 02768000 FLCFSAA EQU FLCFSA+1 02769000 @NM00022 EQU FLCFSA 02770000 @NM00021 EQU FLCMCLA+72 02771000 FLCMCIC EQU FLCMCLA+64 02772000 @NM00020 EQU FLCMCLA+20 02773000 FLCIOAA EQU FLCIOA+1 02774000 @NM00019 EQU FLCIOA 02775000 @NM00018 EQU FLCMCLA+15 02776000 @NM00017 EQU FLCMCLA+14 02777000 @NM00016 EQU FLCMCLA+12 02778000 FLCLCL EQU FLCMCLA+8 02779000 FLCIOELA EQU FLCIOEL+1 02780000 @NM00015 EQU FLCIOEL 02781000 FLCCHNID EQU FLCMCLA 02782000 @NM00014 EQU PSA+160 02783000 FLCMTRCD EQU PSA+157 02784000 @NM00013 EQU PSA+156 02785000 FLCPERA EQU FLCPER+1 02786000 @NM00012 EQU FLCPER 02787000 @NM00011 EQU PSA+151 02788000 FLCPERCD EQU PSA+150 02789000 FLCMCNUM EQU PSA+149 02790000 @NM00010 EQU PSA+148 02791000 FLCTEAA EQU FLCTEA+1 02792000 @NM00009 EQU FLCTEA 02793000 PSAPIPC EQU PSAPICOD 02794000 PSAPIMC EQU PSAPICOD 02795000 PSAPIPER EQU PSAPICOD 02796000 PSARV049 EQU FLCPICOD 02797000 FLCPILCB EQU FLCPIILC 02798000 @NM00008 EQU FLCPIILC 02799000 @NM00007 EQU PSAEPPSW 02800000 FLCSVCN EQU PSAESPSW+2 02801000 FLCSILCB EQU FLCSVILC 02802000 @NM00006 EQU FLCSVILC 02803000 @NM00005 EQU PSAESPSW 02804000 FLCEICOD EQU PSAEEPSW+2 02805000 PSASPAD EQU PSAEEPSW 02806000 @NM00004 EQU PSA+128 02807000 FLCINPSW EQU PSA+120 02808000 FLCMNPSW EQU PSA+112 02809000 FLCPNPSW EQU PSA+104 02810000 FLCSNPSW EQU PSA+96 02811000 FLCENPSW EQU PSA+88 02812000 FLCTRACE EQU PSA+84 02813000 FLCTIMER EQU PSA+80 02814000 FLCCVT2 EQU PSA+76 02815000 FLCCAW EQU PSA+72 02816000 FLCIOPSW EQU PSA+56 02817000 FLCMOPSW EQU PSA+48 02818000 FLCPOPSW EQU PSA+40 02819000 FLCSOPSW EQU PSA+32 02820000 FLCEOPSW EQU PSA+24 02821000 @NM00003 EQU FLCICCW2+4 02822000 FLCICCW1 EQU FLCROPSW 02823000 FLCIPPSW EQU FLCRNPSW 02824000 * END UNREFERENCED COMPONENTS 02825000 @RC00068 EQU @RC00066 02826000 @ENDDATA EQU * 02827000 END IECVHDET,(C'PLS1319',0801,78237) 02828000