TITLE 'ICB2SIOB: MSSC I/O DRIVER TERM (BACK END) *00001000 ' 00002000 * /*@ZM31126*/ 00003000 MACRO 00004000 DATEM 00005000 LCLC &FILL 00006000 &FILL SETC 'CL8'.''''.'&SYSDATE'.'''' 00007000 DC &FILL 00008000 MEND 00009000 ICB2SIOB CSECT 00010000 DS 0H @Y30LB02 00011000 USING *,R15 @Y30LB02 00012000 B SIOB BR AROUND EYE CATCHER @Y30LB02 00013000 DC C'ICB2SIOB' EYE CATCHER @Y30LB02 00014000 DATEM 00015000 DROP R15 @Y30LB02 00016000 SIOB BALR R12,0 @Y30LB02 00017000 @STARTP DS 0H @Y30LB02 00018000 USING @STARTP,R12 @Y30LB02 00019000 LR R2,R1 SAVE ADDRESS OF IOSB @ZA05092 00020000 LR R5,R14 SAVE RETURN ADDRESS @ZM02891 00021000 * SEE IF HAVE LOCAL LOCK @ZM02891 00022000 ISETLC0 SETLOCK TEST,TYPE=LOCAL,BRANCH=(HELD,HAVELL) @ZM02891 00023000 * OBTAIN LOCAL LOCK, NOT HELD @ZM02891 00024000 ISETLC1 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND,REGS=USE,RELATED=(LOCALLO*00025000 CK,ICB2SIOB(ISETLOC)) @ZM02891 00026000 * NOW MUST HAVE LOCAL LOCK @ZM02891 00027000 * /***********************************************************/ 00028000 * /* THE FOLLOWING GETMAIN REQUIRES */ 00029000 * /* REGISTER 4 = TCB ADDRESS */ 00030000 * /* REGISTER 7 = ASCB ADDRESS */ 00031000 * /***********************************************************/ 00032000 HAVELL L R9,IOSSRB(,R2) LOAD R9 OFF REG 2 @ZM02891 00033000 L R6,IOSUSE(,R2) LD R6 WITH SSCDATA ADDR @ZM02891 00034000 L R7,SRBASCB(,R9) STORE ASCB IN REG 7 @Y30LB02 00035000 L R4,TCBPTR(,R6) TCB ADDRESS @ZM02891 00036000 L R0,@SIZDATD SIZE OF DYNAMIC AREA @Y30LB02 00037000 IGETMAI GETMAIN RC,BRANCH=YES,LV=(0) @Y30LB02 00038000 LR R9,R1 SAVE ADDR OF DYN AREA @Y30LB02 00039000 USING @DATD,R9 SETUP ADDRESSABILITY @Y30LB02 00040000 * ORGNLR14=R5; /* SAVE RETURN ADDRESS @ZM31126*/ 00041000 ST R5,ORGNLR14 0124 00042000 * IOSBPTR=R2; /* SAVE IOSB POINTER @ZA05092*/ 00043000 ST R2,IOSBPTR 0125 00044000 * R2=ADDR(SIOBFRR); /* SET R2 TO ADDR OF FRR @Y30LB02*/ 00045000 LA R2,SIOBFRR 0126 00046000 * GEN REFS(PSA,PSARSVTE,FRRS,R2) /* @ZA05092*/ 00047000 * SETS(R6,R5); 0127 00048000 * /* @ZA05092*/ 00049000 ISETFR1 SETFRR A,FRRAD=(R2),PARMAD=(R6),WRKREGS=(R6,R5) 00050000 * RFY 0128 00051000 * (R2, 0128 00052000 * R5) UNRSTD; /* @ZA05092*/ 00053000 * BASEADDR=R12; /* SAVE OWN BASE REGISTER 0129 00054000 * @ZM02891*/ 00055000 ST R12,BASEADDR(,FRRSPTR) 0129 00056000 * AUTOADDR=R9; /* SAVE AUTO STOR ADDRESS 0130 00057000 * @ZA05092*/ 00058000 ST R9,AUTOADDR(,FRRSPTR) 0130 00059000 * UCBPTR=ICBPUCB; /* SET UCB POINTER @Y30LB02*/ 00060000 L @07,CVTPTR 0131 00061000 L @02,CVTEXT2(,@07) 0131 00062000 L @02,CVTICB(,@02) 0131 00063000 L @02,ICBPUCB(,@02) 0131 00064000 ST @02,UCBPTR 0131 00065000 * SRBPTR=IOSSRB; /* SET SRB POINTER @Y30LB02*/ 00066000 L @02,IOSBPTR 0132 00067000 L @15,IOSSRB(,@02) 0132 00068000 ST @15,SRBPTR 0132 00069000 * RCODE=ZERO; /* RETURN CODE @Y30LB02*/ 00070000 SLR @14,@14 0133 00071000 ST @14,RCODE 0133 00072000 * IOCOMPTR=CVTIXAVL; /* SET IOCOM POINTER @Y30LB02*/ 00073000 L @07,CVTIXAVL(,@07) 0134 00074000 ST @07,IOCOMPTR 0134 00075000 * ASCBPTR=SRBASCB; /* SAVE ASCB ADDRESS @ZA05091*/ 00076000 L @07,SRBASCB(,@15) 0135 00077000 ST @07,ASCBPTR 0135 00078000 * TCBSAVE=TCBPTR; /* SAVE TCB ADDRESS @ZA05091*/ 00079000 L @07,IOSUSE(,@02) 0136 00080000 L @15,TCBPTR(,@07) 0136 00081000 ST @15,TCBSAVE 0136 00082000 * FRSALLOC=OFF; /* NOTE NO SALLOC LOCK HELD 0137 00083000 * @ZM31126*/ 00084000 * 0137 00085000 NI FRSALLOC(FRRSPTR),B'01111111' 0137 00086000 * /*****************************************************************/ 00087000 * /* */ 00088000 * /* TEST FOR I/O SCHEDULED FROM ICB2ATTN. IF IT WAS NOT, THE ECB */ 00089000 * /* IS POSTED. IF IT WAS SCHEDULED BY THE ATTENTION ROUTINE */ 00090000 * /* ICB2ATTN, THE I/O CONTROL BLOCKS ARE FREED. @ZM31050*/ 00091000 * /* */ 00092000 * /*****************************************************************/ 00093000 * 0138 00094000 * IF ATTNSW^=ON THEN /* I/O FROM ICB2ATTN RTN @ZM31050*/ 00095000 TM ATTNSW(@07),B'00100000' 0138 00096000 BO @RF00138 0138 00097000 * DO; /* NO, NORMAL PROCESSING @ZM31050*/ 00098000 */******************************************************** @Y30LB02*/ 00099000 */* CHECK THE COMPLETION CODE RETURNED TO THE DRIVER. @Y30LB02*/ 00100000 */* SET THE APPROPRIATE ECB POST BASED ON THE VALUE OF @Y30LB02*/ 00101000 */* THE COMPLETION CODE @Y30LB02*/ 00102000 */******************************************************** @Y30LB02*/ 00103000 * 0140 00104000 * IF IOSCOD=IOSNRMC THEN /* GOOD COMPLETION CODE? @Y30LB02*/ 00105000 CLI IOSCOD(@02),X'7F' 0140 00106000 BNE @RF00140 0140 00107000 * DO; /* @Y30LB02*/ 00108000 * RFY 0142 00109000 * (R10) RSTD; /* RESTRICT REG 10 @Y30LB02*/ 00110000 * R10=POSTGD; /* POST WITH GOOD COMPLE @Y30LB02 00111000 * TION CODE '7F'X @Y30LB02*/ 00112000 L R10,@CF00098 0143 00113000 * END; /* @Y30LB02*/ 00114000 * ELSE /* UNSUCCESSFUL COMPL @Y30LB02*/ 00115000 * DO; /* @Y30LB02*/ 00116000 B @RC00140 0145 00117000 @RF00140 DS 0H 0146 00118000 * R10=POSTBD; /* UNSUCCESSFUL COMPLETION 0146 00119000 * @Y30LB02 00120000 * CODE FROM IOS @Y30LB02*/ 00121000 L R10,@CF00100 0146 00122000 * IF SSCDERR=ZERO THEN /* MSSC ERROR FIELD ZERO? 0147 00123000 * @Y30LB02*/ 00124000 L @11,IOSBPTR 0147 00125000 L @11,IOSUSE(,@11) 0147 00126000 LH @07,SSCDERR(,@11) 0147 00127000 LTR @07,@07 0147 00128000 BNZ @RF00147 0147 00129000 * SSCDERR=IOERROR; /* NOTIFICATION OF ERROR @Y30LB02 00130000 * OTHER THAN PERMANENT @Y30LB02 00131000 * ERROR. PERHAPS CONTROL BLKS 0148 00132000 * NOT ALIGNED, ETC @YD00150*/ 00133000 MVC SSCDERR(2,@11),@CH00096 0148 00134000 * END; /* @Y30LB02*/ 00135000 @RF00147 DS 0H 0150 00136000 * RFY 0150 00137000 * (R11, 0150 00138000 * R15) RSTD; /* RESTRICT REG 11 @ZM31126*/ 00139000 @RC00140 DS 0H 0151 00140000 * R11=ADDR(ECBCODE); /* ADDRESS OF ECB TO BE @Y30LB02 00141000 * POSTED @Y30LB02*/ 00142000 L @14,IOSBPTR 0151 00143000 L R11,IOSUSE(,@14) 0151 00144000 * R15=CVT0PT01; /* REGISTER 15 SET TO @Y30LB02 00145000 * POST BRANCH ENTRY @Y30LB02 00146000 * ADDRESS @Y30LB02*/ 00147000 L @07,CVTPTR 0152 00148000 L R15,CVT0PT01(,@07) 0152 00149000 *POST: /* MAKE USE OF POST @Y30LB02*/ 00150000 * GEN; 0153 00151000 POST DS 0H 0153 00152000 * /* @Y30LB02*/ 00153000 BALR R14,R15 BRANCH TO POST @Y30LB02 00154000 * RFY 0154 00155000 * (R10) UNRSTD; /* UNRESTRICT REG 10 @Y30LB02*/ 00156000 * RFY 0155 00157000 * (R11) UNRSTD; /* UNRESTRICT REG 11 @ZM31126*/ 00158000 * IF IOSIPIB^=ZERO THEN /* IS IOSIPIB SPECIFIED? @Y30LB02*/ 00159000 SLR @14,@14 0156 00160000 L @07,IOSBPTR 0156 00161000 L @07,IOSIPIB(,@07) 0156 00162000 CR @07,@14 0156 00163000 BE @RF00156 0156 00164000 * DO; /* @Y30LB02*/ 00165000 * RFY 0158 00166000 * (R0, 0158 00167000 * R1) RSTD; /* @ZM31126*/ 00168000 * R0=ZERO; /* SET REGISTER ZERO TO @Y30LB02 00169000 * ZERO TO INDICATE THAT @Y30LB02 00170000 * LOCAL LOCK IS HELD @Y30LB02*/ 00171000 LR R0,@14 0159 00172000 * R1=IOSIPIB; /* REG 1 POINTER TO THE @Y30LB02 00173000 * IPIB @Y30LB02*/ 00174000 LR R1,@07 0160 00175000 * R15=IOCQCNT; /* PLACE ADDRESS OF THE @Y30LB02 00176000 * QUIESCE COUNT SUBR IN @Y30LB02 00177000 * REGISTER 15 @Y30LB02*/ 00178000 L @07,IOCOMPTR 0161 00179000 L R15,IOCQCNT(,@07) 0161 00180000 *IECVQCN: /* USE IOS PURGE SUBROUTINE 0162 00181000 * @Y30LB02*/ 00182000 * 0162 00183000 * /*********************************************************/ 00184000 * /* */ 00185000 * /* THE PURGE SUBROUTINE ALTERS REGISTER 12. @ZA05090*/ 00186000 * /* THIS IS THE BASE REGISTER AND IT WILL BE @ZA05090*/ 00187000 * /* RESTORED ON RETURN @ZA05090*/ 00188000 * /* */ 00189000 * /*********************************************************/ 00190000 * 0162 00191000 * GEN; 0162 00192000 IECVQCN DS 0H 0162 00193000 * /* @Y30LB02*/ 00194000 BALR R14,R15 BRCH SUBROUTINE ADDRESS @Y30LB02 00195000 * R12=BASEADDR; /* RESTORE BASE ADDRESS @ZA05090*/ 00196000 L R12,BASEADDR(,FRRSPTR) 0163 00197000 * END; /* @Y30LB02*/ 00198000 * RFY 0165 00199000 * (R0, 0165 00200000 * R1, 0165 00201000 * R15) UNRSTD; /* @ZM31126*/ 00202000 @RF00156 DS 0H 0166 00203000 * END; 0166 00204000 * 0166 00205000 * /*****************************************************************/ 00206000 * /* */ 00207000 * /* IF THIS I/O WAS SCHEDULED BY THE ATTENTION ROUTINE (ICB2ATTN) */ 00208000 * /* THEN THE I/O CONTROL BLOCKS MUST BE FREED. NO WAIT IS ISSUED */ 00209000 * /* FOR I/O SCHEDULED BY THE ATTENTION ROUTINE @ZM31050*/ 00210000 * /* */ 00211000 * /*****************************************************************/ 00212000 * 0167 00213000 * ELSE /* YES, ICB2ATTN I/O @ZM31050*/ 00214000 * DO; /* @ZM31050*/ 00215000 B @RC00138 0167 00216000 @RF00138 DS 0H 0168 00217000 * FRATTNST=ON; /* TRACK ATTENTION STORAGE 0168 00218000 * @ZA05092*/ 00219000 * 0168 00220000 OI FRATTNST(FRRSPTR),B'01000000' 0168 00221000 * /*************************************************************/ 00222000 * /* */ 00223000 * /* GET THE SALLOC LOCK PRIOR TO BRANCH ENTERING THE @ZM31050*/ 00224000 * /* FREEMAIN ROUTINE. THE ADDRESS OF THE AREA TO BE FREED IS */ 00225000 * /* OBTAINED BY SUBTRACTING 4 FROM THE IOSB POINTER. THE */ 00226000 * /* LENGTH HAS BEEN STORED IN THIS WORD PRECEDING THE IOSB. */ 00227000 * /* @ZM31050*/ 00228000 * /* */ 00229000 * /*************************************************************/ 00230000 * 0169 00231000 * GENERATE CODE DEFS(SETLOCK1); 0169 00232000 * /*@ZM31050*/ 00233000 SETLOCK1 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND,REGS=USE, @ZM31050 *00234000 RELATED=(SALLOCK,ICB2SIOB(RELLOCK,ISETRP1)) @ZM31050 00235000 * FRSALLOC=ON; /* TRACK SALLOC LOCK @ZM31050*/ 00236000 OI FRSALLOC(FRRSPTR),B'10000000' 0170 00237000 * RFY 0171 00238000 * (R0, 0171 00239000 * R1) RSTD; /* @ZM31126*/ 00240000 * R1=IOSBPTR-4; /* SET ADDRESS TO BE FREED 0172 00241000 * @ZM31050*/ 00242000 L @07,IOSBPTR 0172 00243000 SL @07,@CF00057 0172 00244000 LR R1,@07 0172 00245000 * R0=SAVLEN; /* SET LENGTH TO BE FREED 0173 00246000 * @ZM31050*/ 00247000 * 0173 00248000 L R0,SAVLEN(,@07) 0173 00249000 * /*************************************************************/ 00250000 * /* */ 00251000 * /* FREEMAIN WILL ALTER REGS 3,4,15 */ 00252000 * /* */ 00253000 * /*************************************************************/ 00254000 * 0174 00255000 * GENERATE CODE; 0174 00256000 * /*@ZA05092*/ 00257000 FREEMAIN BRANCH=(YES,GLOBAL),RC,LV=(0),A=(1),SP=245 @ZM31050 00258000 * FRATTNST=OFF; /* ATTENTION STORAGE FREED 0175 00259000 * @ZA05092*/ 00260000 NI FRATTNST(FRRSPTR),B'10111111' 0175 00261000 * GENERATE CODE DEFS(RELLOCK); 0176 00262000 * /*@ZM31050*/ 00263000 RELLOCK SETLOCK RELEASE,TYPE=SALLOC,REGS=USE, @ZM31050 *00264000 RELATED=(SALLOCK,ICB2SIOB(SETLOCK1)) @ZM31050 00265000 * RFY 0177 00266000 * (R1) UNRSTD; /* @ZM31126*/ 00267000 * FRSALLOC=OFF; /* @ZM31050*/ 00268000 NI FRSALLOC(FRRSPTR),B'01111111' 0178 00269000 * END; /* @ZM31050*/ 00270000 */******************************************************** #Y30LB02*/ 00271000 */* (1) THE FREEMAIN MACRO WILL FREE DYNAMIC AREA @Y30LB02*/ 00272000 */* OBTAINED BY THIS MODULE @Y30LB02*/ 00273000 */* (2) THE SETLOCK MACRO WILL FREE THE LOCAL LOCK @Y30LB02*/ 00274000 */* OBTAINED BY POST STATUS. @Y30LB02*/ 00275000 */* (3) THE SETFRR MACRO WILL FREE UP THE FRR ENVIRONMENT @Y30LB02*/ 00276000 */* ESTABLISHED AT THE BEGINNING OF THIS MODULE @Y30LB02*/ 00277000 */******************************************************** @Y30LB02*/ 00278000 * 0180 00279000 * RFY 0180 00280000 * (R7, 0180 00281000 * R4, 0180 00282000 * R5) RSTD; /* @ZA05092*/ 00283000 @RC00138 DS 0H 0181 00284000 * R4=TCBSAVE; /* TCB ADDRESS IN R4 @ZA05091*/ 00285000 L R4,TCBSAVE 0181 00286000 * R5=ORGNLR14; /* PICK UP RETURN ADDRESS AGAIN 00287000 * @ZM31126*/ 00288000 L R5,ORGNLR14 0182 00289000 * R7=ASCBPTR; /* ASCB IN R7 @ZA05091*/ 00290000 L R7,ASCBPTR 0183 00291000 * R0=@SIZDATD; /* DYNAMIC AREA SIZE IN R0 0184 00292000 * @Y30LB02*/ 00293000 L R0,@SIZDATD 0184 00294000 * RFY 0185 00295000 * (R0, 0185 00296000 * R4, 0185 00297000 * R5, 0185 00298000 * R7) UNRSTD; /* @ZA05091*/ 00299000 * 0185 00300000 * /*****************************************************************/ 00301000 * /* */ 00302000 * /* THE FOLLOWING FREEMAIN REQUIRES @ZA05091*/ 00303000 * /* REGISTER 4 = TCBADRESS @ZA05091*/ 00304000 * /* REGISTER 7 = ASCB ADDRESS @ZA05091*/ 00305000 * /* ALSO REGS 1,3 AND 15 WILL BE ALTERED @ZA05091*/ 00306000 * /* */ 00307000 * /*****************************************************************/ 00308000 * 0186 00309000 *IFREEMA1: 0186 00310000 * GEN(FREEMAIN BRANCH=YES,RC,LV=(0),A=(R9));/* @Y30LB02*/ 00311000 IFREEMA1 FREEMAIN BRANCH=YES,RC,LV=(0),A=(R9) 00312000 * GEN REFS(PSA,PSARSVTE,FRRS); 0187 00313000 * @Y30LB02 00314000 ISETLOC SETLOCK RELEASE,TYPE=LOCAL,RELATED=(LOCAL, @Y30LB02*00315000 IECHNSCH),REGS=USE @Y30LB02 00316000 * GEN SETS(R3,R4); 0188 00317000 * @ZA05092 00318000 ISETFR2 SETFRR D,WRKREGS=(R3,R4) DELETE FRR ENVIRONMENT @Y30LB02 00319000 LR R14,R5 RESTORE REGISTER 14 @Y30LB02 00320000 BR R14 BRANCH TO RETURN @Y30LB02 00321000 *SIOBFRR: 0189 00322000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y30LB02*/ 00323000 SIOBFRR DS 0H 0190 00324000 */******************************************************** @Y30LB02*/ 00325000 */* SIOBFRR THE FUNCTION OF THE I/O DRIVER FUNCTIONAL @Y30LB02*/ 00326000 */* RECOVERY ROUTINE IS TO USE THE SETRP AND @ZA05092*/ 00327000 */* SETLOCK MACROS TO RELEASE THE LOCAL AND @ZA05092*/ 00328000 */* SALLOC LOCKS AS HELD @ZA05092*/ 00329000 */* ALSO SPECIFIES RECORD TO LOGREC & TAKE DUMP @ZM31050*/ 00330000 */* ALSO FREES ANY STORAGE OBTAINED IN SP245 @ZA05092*/ 00331000 */* IF REQUIRED @ZA05092*/ 00332000 */* @Y30LB02*/ 00333000 */* @Y30LB02*/ 00334000 */* INPUT INPUT FOR THIS ROUTINE WILL BE AS SPECI @Y30LB02*/ 00335000 */* FIED ON THE SETFRR MACRO INVOCATION. @Y30LB02*/ 00336000 */* @Y30LB02*/ 00337000 */* @Y30LB02*/ 00338000 */* PROCESSING USE SETRP AND SETLOCK TO ENSURE @ZA05092*/ 00339000 */* APPROPRIATE TERMINATION PROCEDURES. @ZA05092*/ 00340000 */* @Y30LB02*/ 00341000 */* @Y30LB02*/ 00342000 */* OUTPUT A BRANCH BACK TO THE ADDRESS PROVIDED IN @Y30LB02*/ 00343000 */* REGISTER 14 UPON ENTRY @Y30LB02*/ 00344000 */******************************************************** @Y30LB02*/ 00345000 * 0190 00346000 * DCL 0190 00347000 * (SETLOCK2, 0190 00348000 * RELLOCK2) LABEL GEND; /* @ZA05092*/ 00349000 * RFY 0191 00350000 * (R0, 0191 00351000 * R1, 0191 00352000 * R2, 0191 00353000 * R14) RSTD; /* RESTRICT USED REGS @ZA05092*/ 00354000 * GEN(USING *,R15); /* ESTABLISH ADDRESSABILITY 0192 00355000 * @ZA05092*/ 00356000 USING *,R15 00357000 * SDWAPTR=R1; /* R1 POINTS TO SDWA @ZA05092*/ 00358000 LR SDWAPTR,R1 0193 00359000 * FRRSPTR=SDWAPARM; /* POINTER TO FRR PARM @ZA05092*/ 00360000 L FRRSPTR,SDWAPARM(,SDWAPTR) 0194 00361000 * FRRETURN=R14; /* SAVE RETURN ADDRESS @ZA05092*/ 00362000 ST R14,FRRETURN(,FRRSPTR) 0195 00363000 * R12=BASEADDR; /* RESTORE OWN BASE REG @ZM02891*/ 00364000 L R12,BASEADDR(,FRRSPTR) 0196 00365000 * R9=AUTOADDR; /* FIND OWN DATA AREAS @ZM02891*/ 00366000 L R9,AUTOADDR(,FRRSPTR) 0197 00367000 * RFY 0198 00368000 * (R0, 0198 00369000 * R1, 0198 00370000 * R14) UNRSTD; /* @ZA05092*/ 00371000 * GEN(DROP R15); 0199 00372000 DROP R15 00373000 * IF FRATTNST=ON THEN /* FREE ATTN RTN STORAGE @ZA05092*/ 00374000 TM FRATTNST(FRRSPTR),B'01000000' 0200 00375000 BNO @RF00200 0200 00376000 * DO; /* @ZA05092*/ 00377000 * IF FRSALLOC^=ON THEN /* IF NO LOCK GET ONE @ZA05092*/ 00378000 TM FRSALLOC(FRRSPTR),B'10000000' 0202 00379000 BO @RF00202 0202 00380000 * GEN CODE DEFS(SETLOCK2); 0203 00381000 * /*@ZA05092*/ 00382000 SETLOCK2 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND,REGS=USE, *00383000 RELATED=(SALLOCK,ICB2SIOB(RELLOCK1)) @ZA05092 00384000 * FRSALLOC=ON; /* @ZA05092*/ 00385000 @RF00202 OI FRSALLOC(FRRSPTR),B'10000000' 0204 00386000 * RFY 0205 00387000 * (R0, 0205 00388000 * R1) RSTD; /* @ZA05092*/ 00389000 * R1=IOSBPTR-4; /* ADRESS OF ATTN RTN STORAGE 0206 00390000 * @ZA05092*/ 00391000 L @07,IOSBPTR 0206 00392000 SL @07,@CF00057 0206 00393000 LR R1,@07 0206 00394000 * R0=SAVLEN; /* LENGTH OF STORAGE @ZA05092*/ 00395000 L R0,SAVLEN(,@07) 0207 00396000 * GEN CODE; 0208 00397000 * /*@ZA05092*/ 00398000 FREEMAIN BRANCH=(YES,GLOBAL),RC,LV=(0),A=(1),SP=245 /*@ZA05092*/ 00399000 * RFY 0209 00400000 * (R0, 0209 00401000 * R1) UNRSTD; /* @ZA05092*/ 00402000 * FRATTNST=OFF; /* @ZA05092*/ 00403000 NI FRATTNST(FRRSPTR),B'10111111' 0210 00404000 * END; /* @ZA05092*/ 00405000 * ELSE 0212 00406000 * ; 0212 00407000 @RF00200 DS 0H 0213 00408000 * IF FRSALLOC=ON THEN /* @ZA05092*/ 00409000 TM FRSALLOC(FRRSPTR),B'10000000' 0213 00410000 BNO @RF00213 0213 00411000 * GEN CODE DEFS(RELLOCK2); 0214 00412000 * /*@ZA05092*/ 00413000 RELLOCK2 SETLOCK RELEASE,TYPE=SALLOC,REGS=USE, *00414000 RELATED=(SALLOCK,ICB2SIOB(SETLOCK1,SETLOCK2)) @ZA05092 00415000 * FRSALLOC=OFF; /* @ZA05092*/ 00416000 @RF00213 NI FRSALLOC(FRRSPTR),B'01111111' 0215 00417000 *ISETRP: 0216 00418000 * DO; /* SETRP WKAREA(R2)DUMP(YES)RC(SD 00419000 * WACWT)FRELOCK(LOCAL)RECORD(YES 00420000 * )RECPARM(RECLIST) */ 00421000 ISETRP DS 0H 0217 00422000 * RESPECIFY 0217 00423000 * (GPR00P, 0217 00424000 * GPR01P, 0217 00425000 * GPR14P, 0217 00426000 * GPR15P) RSTD; 0217 00427000 * GPR01P=R2; 0218 00428000 LR GPR01P,R2 0218 00429000 * GPR01P->SDWARCDE=SDWACWT; /* SAVE RC VALUE */ 00430000 MVI SDWARCDE(GPR01P),X'00' 0219 00431000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00432000 OI SDWARCRD(GPR01P),B'10000000' 0220 00433000 * GPR15P=ADDR(RECLIST); /* ACCESS RECORD PARAMETER LIST */ 00434000 LA GPR15P,RECLIST 0221 00435000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD PARAMETERS */ 00436000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0222 00437000 * GPR01P->SDWAREQ='1'B; /* TURN ON DUMP INDICATOR */ 00438000 OI SDWAREQ(GPR01P),B'10000000' 0223 00439000 * GPR01P->SDWAACF4=GPR01P->SDWAACF4|'00000001'B;/* INITIALIZE 0224 00440000 * LOCK FLAGS */ 00441000 OI SDWAACF4(GPR01P),B'00000001' 0224 00442000 * RESPECIFY 0225 00443000 * (GPR00P, 0225 00444000 * GPR01P, 0225 00445000 * GPR14P, 0225 00446000 * GPR15P) UNRSTD; 0225 00447000 * END; /* SET RECOVERY OPTIONS @ZM02891*/ 00448000 * RFY 0227 00449000 * (R14) RSTD; /* @ZA05092*/ 00450000 * R14=FRRETURN; /* RESTORE REGISTER 14 @ZA05092*/ 00451000 L R14,FRRETURN(,FRRSPTR) 0228 00452000 * RETURN; /* RETURN @Y30LB02*/ 00453000 @EL00002 DS 0H 0229 00454000 @EF00002 DS 0H 0229 00455000 @ER00002 BR @14 0229 00456000 * RFY 0230 00457000 * (R2, 0230 00458000 * R14) UNRSTD; /* @ZA05092*/ 00459000 * END SIOBFRR; /* @Y30LB02*/ 00460000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00461000 * GPR00P PTR(31) REG(0), 0232 00462000 * GPR01P PTR(31) REG(1), 0232 00463000 * GPR14P PTR(31) REG(14), 0232 00464000 * GPR15P PTR(31) REG(15); 0232 00465000 * DECLARE /* COMMON VARIABLES */ 00466000 * I256C CHAR(256) BASED, 0233 00467000 * I031F FIXED(31) BASED, 0233 00468000 * I031P PTR(31) BASED, 0233 00469000 * I015F FIXED(15) BASED, 0233 00470000 * I015P PTR(15) BASED, 0233 00471000 * I008P PTR(8) BASED, 0233 00472000 * I001C CHAR(1) BASED; /* INVOKE THE EPILOG MACRO 0233 00473000 * @Y30LB02*/ 00474000 * END ICB2SIOB /* @Y30LB02*/ 00475000 * 0234 00476000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00477000 */*%INCLUDE SYSLIB (IHASRB ) */ 00478000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00479000 */*%INCLUDE SYSLIB (CVT ) */ 00480000 */*%INCLUDE SYSLIB (IECDIOCM) */ 00481000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00482000 */*%INCLUDE SYSLIB (IEZSSC ) */ 00483000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00484000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00485000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00486000 */*%INCLUDE SYSLIB (ICB2IOBX) */ 00487000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 00488000 * 0234 00489000 * ; 0234 00490000 @DATA DS 0H 00491000 @CH00096 DC H'251' 00492000 @DATD DSECT 00493000 DS 0F 00494000 @SA00001 DS 18F 00495000 ICB2SIOB CSECT 00496000 DS 0F 00497000 @CF00057 DC F'4' 00498000 @CF00100 DC F'1090519040' 00499000 @CF00098 DC F'2130706432' 00500000 @DATD DSECT 00501000 DS 0D 00502000 RCODE DS F 00503000 UCBPTR DS A 00504000 SRBPTR DS A 00505000 IOSBPTR DS A 00506000 IOCOMPTR DS A 00507000 ORGNLR14 DS A 00508000 ASCBPTR DS A 00509000 TCBSAVE DS A 00510000 UCBDCPTR DS A 00511000 ICB2SIOB CSECT 00512000 DS 0F 00513000 @SIZDATD DC AL1(0) 00514000 DC AL3(@ENDDATD-@DATD) 00515000 DS 0D 00516000 RECLIST DS CL24 00517000 ORG RECLIST 00518000 SIOBNAM DC CL8'ICB2SIOB' 00519000 SIOBCSE DC CL8'ICB2SIOB' 00520000 SIOBFRI DC CL8'SIOBFRR ' 00521000 ORG RECLIST+24 00522000 ICBSBPTH DS CL50 00523000 ORG ICBSBPTH 00524000 PTCHNAM DC CL20'ICB2SIOB PATCH AREA ' 00525000 ORG ICBSBPTH+50 00526000 @DATD DSECT 00527000 * @Y30LB02 00528000 ZERO EQU 0 VALUE OF ZERO @Y30LB02 00529000 FOUR EQU 4 VALUE OF 4 @Y30LB02 00530000 SEVEN EQU 7 VALUE OF 7 @Y30LB02 00531000 TWELVE EQU 12 VALUE OF 12 @Y30LB02 00532000 @DATD DSECT 00533000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00534000 @ENDDATD EQU * 00535000 ICB2SIOB CSECT 00536000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00537000 @01 EQU 01 00538000 @02 EQU 02 00539000 @03 EQU 03 00540000 @04 EQU 04 00541000 @05 EQU 05 00542000 @06 EQU 06 00543000 @07 EQU 07 00544000 @08 EQU 08 00545000 @09 EQU 09 00546000 @10 EQU 10 00547000 @11 EQU 11 00548000 @12 EQU 12 00549000 @13 EQU 13 00550000 @14 EQU 14 00551000 @15 EQU 15 00552000 R0 EQU @00 00553000 R1 EQU @01 00554000 R2 EQU @02 00555000 R3 EQU @03 00556000 R4 EQU @04 00557000 R5 EQU @05 00558000 R6 EQU @06 00559000 R7 EQU @07 00560000 R9 EQU @09 00561000 R10 EQU @10 00562000 R11 EQU @11 00563000 R12 EQU @12 00564000 R13 EQU @13 00565000 R14 EQU @14 00566000 R15 EQU @15 00567000 FRRSPTR EQU @06 00568000 FRREPTR EQU @04 00569000 SDWAPTR EQU @02 00570000 GPR00P EQU @00 00571000 GPR01P EQU @01 00572000 GPR14P EQU @14 00573000 GPR15P EQU @15 00574000 R8 EQU @08 00575000 CVTPTR EQU 16 00576000 PSA EQU 0 00577000 FLCRNPSW EQU PSA 00578000 FLCROPSW EQU PSA+8 00579000 FLCICCW2 EQU PSA+16 00580000 PSAEEPSW EQU PSA+132 00581000 PSAESPSW EQU PSA+136 00582000 FLCSVILC EQU PSAESPSW+1 00583000 PSAEPPSW EQU PSA+140 00584000 FLCPIILC EQU PSAEPPSW+1 00585000 FLCPICOD EQU PSAEPPSW+2 00586000 PSAPICOD EQU FLCPICOD+1 00587000 FLCTEA EQU PSAEPPSW+4 00588000 FLCPER EQU PSA+152 00589000 FLCMCLA EQU PSA+168 00590000 FLCIOEL EQU FLCMCLA+4 00591000 FLCIOA EQU FLCMCLA+16 00592000 FLCFSA EQU FLCMCLA+80 00593000 PSASUPER EQU PSA+552 00594000 PSASUP1 EQU PSASUPER 00595000 PSASUP2 EQU PSASUPER+1 00596000 PSASUP3 EQU PSASUPER+2 00597000 PSASUP4 EQU PSASUPER+3 00598000 PSACLHT EQU PSA+640 00599000 PSALKSA EQU PSA+696 00600000 PSAHLHI EQU PSA+760 00601000 PSADSSFL EQU PSA+836 00602000 PSADSSF1 EQU PSADSSFL 00603000 PSADSSF3 EQU PSADSSFL+2 00604000 PSADSSF4 EQU PSADSSFL+3 00605000 PSARSVT EQU PSA+896 00606000 FRPARM EQU 0 00607000 BASEADDR EQU FRPARM 00608000 AUTOADDR EQU FRPARM+4 00609000 FRRETURN EQU FRPARM+8 00610000 FRFLGS EQU FRPARM+12 00611000 FRSALLOC EQU FRFLGS 00612000 FRATTNST EQU FRFLGS 00613000 SAVLEN EQU 0 00614000 SRBSECT EQU 0 00615000 SRB EQU SRBSECT 00616000 SRBASCB EQU SRB+8 00617000 SRBFLC EQU SRB+12 00618000 IOSB EQU 0 00619000 IOSFLA EQU IOSB 00620000 IOSACHN EQU IOSFLA 00621000 IOSFLB EQU IOSB+1 00622000 IOSFLC EQU IOSB+2 00623000 IOSDVALT EQU IOSFLC 00624000 IOSPKEY EQU IOSB+12 00625000 IOSCOD EQU IOSB+13 00626000 IOSOPT EQU IOSB+14 00627000 IOSOPT2 EQU IOSB+15 00628000 @NM00005 EQU IOSB+20 00629000 IOSCSW EQU @NM00005+1 00630000 IOSTATUS EQU IOSCSW+3 00631000 IOSSRB EQU IOSB+28 00632000 IOSUSE EQU IOSB+32 00633000 IOSIPIB EQU IOSB+44 00634000 IOSPATH EQU IOSB+86 00635000 IOSCHN EQU IOSPATH 00636000 IOSCKEY EQU IOSB+89 00637000 IOSEEKA EQU IOSB+100 00638000 IOSCCHH EQU IOSEEKA+3 00639000 IOSSKHH EQU IOSCCHH+2 00640000 CVTMAP EQU 0 00641000 CVTDAR EQU CVTMAP+72 00642000 CVTFLGS1 EQU CVTDAR 00643000 CVTDCB EQU CVTMAP+116 00644000 CVTIXAVL EQU CVTMAP+124 00645000 CVTIERLC EQU CVTMAP+144 00646000 CVT0PT01 EQU CVTMAP+152 00647000 CVTOPTA EQU CVTMAP+182 00648000 CVTOPTB EQU CVTMAP+183 00649000 CVTGTF EQU CVTMAP+236 00650000 CVTGTFST EQU CVTGTF 00651000 CVTGTFS EQU CVTGTFST 00652000 CVTSTATE EQU CVTGTFST 00653000 CVTTMODE EQU CVTGTFST 00654000 CVTFORM EQU CVTGTFST 00655000 CVTAQAVT EQU CVTMAP+240 00656000 CVTTCMFG EQU CVTAQAVT 00657000 CVTVOLM2 EQU CVTMAP+244 00658000 CVTTATA EQU CVTVOLM2 00659000 CVTTSKS EQU CVTTATA 00660000 CVTVOLF2 EQU CVTTSKS 00661000 CVTTAT EQU CVTTATA+1 00662000 CVTATER EQU CVTMAP+248 00663000 CVTEXT1 EQU CVTMAP+252 00664000 CVTPURG EQU CVTMAP+260 00665000 CVTQMSG EQU CVTMAP+268 00666000 CVTDMSR EQU CVTMAP+272 00667000 CVTERPV EQU CVTMAP+316 00668000 CVTINTLA EQU CVTMAP+320 00669000 CVTAPF EQU CVTMAP+324 00670000 CVTEXT2 EQU CVTMAP+328 00671000 CVTHJES EQU CVTMAP+332 00672000 CVTPGSIA EQU CVTMAP+348 00673000 CVTA1F1 EQU CVTMAP+356 00674000 CVTSYSK EQU CVTMAP+357 00675000 CVTVOLM1 EQU CVTMAP+380 00676000 CVTVOLF1 EQU CVTVOLM1 00677000 CVTATMCT EQU CVTMAP+388 00678000 CVTXTNT1 EQU 0 00679000 CVTXTNT2 EQU 0 00680000 CVTDSSV EQU CVTXTNT2 00681000 CVTFLGBT EQU CVTXTNT2+5 00682000 CVTQID EQU CVTXTNT2+24 00683000 CVTICB EQU CVTXTNT2+48 00684000 CVTRV400 EQU CVTXTNT2+52 00685000 CVTRV409 EQU CVTXTNT2+53 00686000 CVTATCVT EQU CVTXTNT2+64 00687000 CVTRV429 EQU CVTXTNT2+84 00688000 CVTRV438 EQU CVTXTNT2+85 00689000 CVTRV457 EQU CVTXTNT2+112 00690000 CVTRV466 EQU CVTXTNT2+113 00691000 CVTFIX EQU 0 00692000 CVTRELNO EQU CVTFIX+252 00693000 IOCOM EQU 0 00694000 IOCQCNT EQU IOCOM+116 00695000 UCB EQU 0 00696000 UCBOB EQU 0 00697000 UCBJBNR EQU UCBOB 00698000 UCBFL5 EQU UCBOB+1 00699000 UCBAF EQU UCBFL5 00700000 UCBSTAT EQU UCBOB+3 00701000 UCBCHAN EQU UCBOB+4 00702000 UCBSFLS EQU UCBOB+6 00703000 UCBFLA EQU UCBSFLS 00704000 UCBFL1 EQU UCBFLA 00705000 UCBBSY EQU UCBFL1 00706000 UCBNRY EQU UCBFL1 00707000 UCBPST EQU UCBFL1 00708000 UCBCUB EQU UCBFL1 00709000 UCBFLB EQU UCBSFLS+1 00710000 UCBCHM EQU UCBOB+8 00711000 UCBCHM1 EQU UCBCHM 00712000 UCBPTH0 EQU UCBCHM1 00713000 UCBPTH1 EQU UCBCHM1 00714000 UCBWGT EQU UCBOB+12 00715000 UCBTYP EQU UCBOB+16 00716000 UCBTBYT1 EQU UCBTYP 00717000 UCB1FEA5 EQU UCBTBYT1 00718000 UCB1FEA6 EQU UCBTBYT1 00719000 UCBTBYT2 EQU UCBTYP+1 00720000 UCB2OPT2 EQU UCBTBYT2 00721000 UCBDUDN1 EQU UCB2OPT2 00722000 UCB2OPT3 EQU UCBTBYT2 00723000 UCBDUDN2 EQU UCB2OPT3 00724000 UCB2OPT4 EQU UCBTBYT2 00725000 UCBRWTAU EQU UCB2OPT4 00726000 UCB2OPT6 EQU UCBTBYT2 00727000 UCB2OPT7 EQU UCBTBYT2 00728000 UCBTBYT3 EQU UCBTYP+2 00729000 UCBDVCLS EQU UCBTBYT3 00730000 UCBTBYT4 EQU UCBTYP+3 00731000 UCBEXTPT EQU UCBOB+20 00732000 UCBFLC EQU UCBEXTPT 00733000 UCBDEV EQU UCBOB+24 00734000 UCBCMEXT EQU 0 00735000 UCBATI EQU UCBCMEXT+3 00736000 @NM00018 EQU UCBATI 00737000 UCBFLP1 EQU UCBCMEXT+5 00738000 UCBMT EQU 0 00739000 UCBOCR EQU 0 00740000 UCB3540X EQU 0 00741000 UCBDKBYT EQU UCB3540X+6 00742000 UCBUCS EQU 0 00743000 UCBUCSOP EQU UCBUCS+4 00744000 UCBFCBOP EQU UCBUCS+5 00745000 ICB2SSCB EQU 0 00746000 ICBPUCB EQU ICB2SSCB+28 00747000 ICBOPT EQU ICB2SSCB+48 00748000 ICBFLG EQU ICB2SSCB+52 00749000 ICBFG1 EQU ICBFLG 00750000 FRRS EQU 0 00751000 FRRSHEAD EQU FRRS 00752000 FRRSENTR EQU 0 00753000 FRRSFLGS EQU FRRSENTR+4 00754000 FRRSFLG1 EQU FRRSFLGS 00755000 SDWA EQU 0 00756000 SDWAPARM EQU SDWA 00757000 SDWAFIOB EQU SDWA+4 00758000 SDWAABCC EQU SDWAFIOB 00759000 SDWACMPF EQU SDWAABCC 00760000 SDWAREQ EQU SDWACMPF 00761000 SDWACTL1 EQU SDWA+8 00762000 SDWACMKA EQU SDWACTL1 00763000 SDWAMWPA EQU SDWACTL1+1 00764000 SDWAPMKA EQU SDWACTL1+4 00765000 SDWACTL2 EQU SDWA+16 00766000 SDWACMKP EQU SDWACTL2 00767000 SDWAMWPP EQU SDWACTL2+1 00768000 SDWAPMKP EQU SDWACTL2+4 00769000 SDWAGRSV EQU SDWA+24 00770000 SDWANAME EQU SDWA+88 00771000 SDWAEC1 EQU SDWA+104 00772000 SDWAEMK1 EQU SDWAEC1 00773000 SDWAMWP1 EQU SDWAEC1+1 00774000 SDWAINT1 EQU SDWAEC1+2 00775000 SDWANXT1 EQU SDWAEC1+4 00776000 SDWAAEC1 EQU SDWA+112 00777000 SDWAILC1 EQU SDWAAEC1+1 00778000 SDWAINC1 EQU SDWAAEC1+2 00779000 SDWAICD1 EQU SDWAINC1+1 00780000 SDWAEC2 EQU SDWA+120 00781000 SDWAEMK2 EQU SDWAEC2 00782000 SDWAMWP2 EQU SDWAEC2+1 00783000 SDWAINT2 EQU SDWAEC2+2 00784000 SDWANXT2 EQU SDWAEC2+4 00785000 SDWAAEC2 EQU SDWA+128 00786000 SDWAILC2 EQU SDWAAEC2+1 00787000 SDWAINC2 EQU SDWAAEC2+2 00788000 SDWAICD2 EQU SDWAINC2+1 00789000 SDWASRSV EQU SDWA+136 00790000 SDWAIDNT EQU SDWA+200 00791000 SDWAMCH EQU SDWA+204 00792000 SDWASTCK EQU SDWAMCH 00793000 SDWAMCHI EQU SDWAMCH+8 00794000 SDWAMCHS EQU SDWAMCHI 00795000 SDWAMCHD EQU SDWAMCHI+1 00796000 SDWARSR1 EQU SDWAMCH+12 00797000 SDWARSR2 EQU SDWAMCH+13 00798000 SDWAFLGS EQU SDWA+232 00799000 SDWAERRA EQU SDWAFLGS 00800000 SDWAERRB EQU SDWAFLGS+1 00801000 SDWAERRC EQU SDWAFLGS+2 00802000 SDWAERRD EQU SDWAFLGS+3 00803000 SDWAIOFS EQU SDWA+238 00804000 SDWACPUA EQU SDWA+248 00805000 SDWAPARQ EQU SDWA+252 00806000 SDWARCDE EQU SDWAPARQ 00807000 SDWAACF2 EQU SDWAPARQ+1 00808000 SDWARCRD EQU SDWAACF2 00809000 SDWAACF3 EQU SDWAPARQ+2 00810000 SDWAACF4 EQU SDWAPARQ+3 00811000 SDWALKWA EQU SDWA+256 00812000 SDWALKWS EQU SDWALKWA 00813000 SDWARECP EQU SDWA+292 00814000 SDWASNPA EQU SDWA+320 00815000 SDWADUMP EQU SDWASNPA 00816000 SDWADPFS EQU SDWADUMP+1 00817000 SDWADDAT EQU SDWASNPA+4 00818000 SDWASDAT EQU SDWADDAT 00819000 SDWAPDAT EQU SDWADDAT+2 00820000 SDWADPSA EQU SDWA+328 00821000 SDWADPSL EQU SDWADPSA 00822000 SDWARA EQU SDWA+400 00823000 SDWADPVA EQU SDWARA+2 00824000 SSCDATA EQU 0 00825000 IOECB EQU SSCDATA 00826000 ECBCODE EQU IOECB 00827000 TCBADDR EQU SSCDATA+4 00828000 TCBPTR EQU TCBADDR 00829000 IOERRCD EQU SSCDATA+8 00830000 SSCDERR EQU IOERRCD 00831000 APPSW EQU SSCDATA+10 00832000 ATTNSW EQU APPSW 00833000 APGAREA EQU SSCDATA+12 00834000 WSAG EQU 0 00835000 I256C EQU 0 00836000 I001C EQU 0 00837000 I008P EQU 0 00838000 I015F EQU 0 00839000 I015P EQU 0 00840000 I031F EQU 0 00841000 I031P EQU 0 00842000 UCBBGN EQU 0 00843000 IOSATTSC EQU IOSIPIB 00844000 IOSWTOWA EQU IOSIPIB 00845000 IOSPCISC EQU IOSIPIB 00846000 CVTS01 EQU CVTPGSIA 00847000 CVTLPDIA EQU CVTS01+12 00848000 CVTDIRST EQU CVTLPDIA 00849000 CVTSLIDA EQU CVTS01+24 00850000 CVTCTLFG EQU CVTS01+50 00851000 CVTSPSA EQU CVTS01+336 00852000 CVTRV210 EQU CVTS01+424 00853000 CVTRV219 EQU CVTS01+425 00854000 CVTRV228 EQU CVTS01+426 00855000 CVTRV237 EQU CVTS01+427 00856000 CVTMFRTR EQU CVTS01+452 00857000 CVTRV262 EQU CVTS01+468 00858000 CVTRV271 EQU CVTS01+469 00859000 CVTRV280 EQU CVTS01+470 00860000 CVTRV289 EQU CVTS01+471 00861000 CVTGSDA EQU CVTS01+600 00862000 UCBOBS01 EQU UCBDEV 00863000 UCBSTAB EQU UCBOBS01+10 00864000 UCBBSVL EQU UCBSTAB 00865000 UCBPRSRS EQU UCBSTAB 00866000 UCBDMCT EQU UCBOBS01+11 00867000 UCBFL4 EQU UCBOBS01+13 00868000 UCBOBS02 EQU UCBDEV 00869000 UCBTFL1 EQU UCBOBS02+19 00870000 UCBXTN EQU UCBOBS02+20 00871000 UCBVOPT EQU UCBXTN 00872000 UCBOBS03 EQU UCBDEV 00873000 UCBXTADR EQU UCBOBS03 00874000 UCBOBS04 EQU UCBDEV 00875000 UCBBTA EQU UCBOBS04+12 00876000 UCBOBS06 EQU UCBDEV 00877000 UCBAOF EQU UCBOBS06 00878000 UCBAOF1 EQU UCBAOF 00879000 UCBAOF2 EQU UCBAOF+1 00880000 @NM00017 EQU UCBOBS06+3 00881000 UCBIRB EQU UCBOBS06+4 00882000 UCBGRAF EQU UCBIRB 00883000 UCBLDNCA EQU UCBOBS06+8 00884000 UCBRDYQ EQU UCBLDNCA 00885000 UCBIRLN EQU UCBRDYQ 00886000 UCBLDNCB EQU UCBRDYQ+1 00887000 UCBCTLNK EQU UCBOBS06+12 00888000 UCBOBS07 EQU UCBDEV 00889000 UCBOBS08 EQU UCBDEV 00890000 UCBOBS09 EQU UCBDEV 00891000 PSARSVTE EQU PSARSVT 00892000 FLC EQU PSA 00893000 * START UNREFERENCED COMPONENTS 00894000 PSARSAV EQU PSARSVTE+60 00895000 PSARSTK EQU PSARSVTE+56 00896000 PSAESAV3 EQU PSARSVTE+52 00897000 PSAESTK3 EQU PSARSVTE+48 00898000 PSAESAV2 EQU PSARSVTE+44 00899000 PSAESTK2 EQU PSARSVTE+40 00900000 PSAESAV1 EQU PSARSVTE+36 00901000 PSAESTK1 EQU PSARSVTE+32 00902000 PSAPSAV EQU PSARSVTE+28 00903000 PSAPSTK EQU PSARSVTE+24 00904000 PSAMSAV EQU PSARSVTE+20 00905000 PSAMSTK EQU PSARSVTE+16 00906000 PSASSAV EQU PSARSVTE+12 00907000 PSASSTK EQU PSARSVTE+8 00908000 PSANSTK EQU PSARSVTE+4 00909000 PSACSTK EQU PSARSVTE 00910000 UCBRV066 EQU UCBOBS09+4 00911000 UCBIOSBA EQU UCBOBS09 00912000 UCBRV042 EQU UCBOBS08+5 00913000 UCBCTCF1 EQU UCBOBS08+4 00914000 UCBCTCAD EQU UCBOBS08 00915000 UCBICNCB EQU UCBOBS07+4 00916000 UCBRV040 EQU UCBOBS07 00917000 UCBCTLNA EQU UCBCTLNK+1 00918000 UCBRLN EQU UCBCTLNK 00919000 UCBRDYQA EQU UCBLDNCB 00920000 UCBINRLN EQU UCBIRLN 00921000 UCBIRBA EQU UCBIRB+1 00922000 UCBRV039 EQU UCBGRAF 00923000 UCBDWNR EQU UCBGRAF 00924000 UCBRPND EQU UCBGRAF 00925000 UCBUPM EQU UCBGRAF 00926000 UCBBTAM EQU UCBGRAF 00927000 UCBDRNO EQU UCBGRAF 00928000 UCBDRO EQU UCBGRAF 00929000 UCBOIP EQU UCBGRAF 00930000 UCBATRCD EQU @NM00017 00931000 UCBSKPFG EQU @NM00017 00932000 UCBRIPND EQU @NM00017 00933000 UCBRTIAC EQU @NM00017 00934000 UCBRSV79 EQU @NM00017 00935000 UCBRSV78 EQU @NM00017 00936000 UCBRSV77 EQU @NM00017 00937000 UCBOLTEP EQU @NM00017 00938000 UCBATNCT EQU UCBOBS06+2 00939000 UCBRSV76 EQU UCBAOF2 00940000 UCBRSV75 EQU UCBAOF2 00941000 UCBRSV74 EQU UCBAOF2 00942000 UCBRSV73 EQU UCBAOF2 00943000 UCBRSV72 EQU UCBAOF2 00944000 UCBRSV71 EQU UCBAOF2 00945000 UCBRSV70 EQU UCBAOF2 00946000 UCBRSV69 EQU UCBAOF2 00947000 UCBRSV68 EQU UCBAOF1 00948000 UCBRSV67 EQU UCBAOF1 00949000 UCBRSV66 EQU UCBAOF1 00950000 UCBRSV65 EQU UCBAOF1 00951000 UCBRSV64 EQU UCBAOF1 00952000 UCBOFNL EQU UCBAOF1 00953000 UCBOFSP EQU UCBAOF1 00954000 UCBOFMCR EQU UCBAOF1 00955000 UCBBTB EQU UCBBTA+1 00956000 UCBDI EQU UCBBTA 00957000 UCBSNS EQU UCBOBS04+8 00958000 UCBTEB EQU UCBOBS04+4 00959000 UCBGCB EQU UCBOBS04+3 00960000 UCBOPEN EQU UCBOBS04+2 00961000 UCBSTART EQU UCBOBS04 00962000 UCBXTNB EQU UCBXTN+1 00963000 UCBRSV22 EQU UCBVOPT 00964000 UCBRSV21 EQU UCBVOPT 00965000 UCBRSV20 EQU UCBVOPT 00966000 UCBESVE EQU UCBVOPT 00967000 UCBERPC EQU UCBVOPT 00968000 UCBESVC EQU UCBVOPT 00969000 UCBEVA EQU UCBVOPT 00970000 UCBESV EQU UCBVOPT 00971000 UCBRV009 EQU UCBTFL1 00972000 UCBRV008 EQU UCBTFL1 00973000 UCBRV007 EQU UCBTFL1 00974000 UCBRV006 EQU UCBTFL1 00975000 UCBRV005 EQU UCBTFL1 00976000 UCBRV038 EQU UCBTFL1 00977000 UCBNSLTP EQU UCBTFL1 00978000 UCBNLTP EQU UCBTFL1 00979000 UCBRES1B EQU UCBOBS02+18 00980000 UCBFSER EQU UCBOBS02+12 00981000 @NM00016 EQU UCBOBS02+4 00982000 UCBFSEQ EQU UCBOBS02+2 00983000 UCBFSCT EQU UCBOBS02 00984000 UCBNEXP EQU UCBOBS01+20 00985000 UCBBASE EQU UCBOBS01+16 00986000 UCBRES1A EQU UCBOBS01+15 00987000 UCBUSER EQU UCBOBS01+14 00988000 UCBFL47 EQU UCBFL4 00989000 UCBFL46 EQU UCBFL4 00990000 UCBFL45 EQU UCBFL4 00991000 UCBRV065 EQU UCBFL4 00992000 UCBDSS EQU UCBFL4 00993000 UCBRV028 EQU UCBFL4 00994000 UCBWDAV EQU UCBFL4 00995000 UCBDAVV EQU UCBFL4 00996000 UCBSQC EQU UCBOBS01+12 00997000 UCBDATP EQU UCBOBS01+12 00998000 UCBDMC EQU UCBDMCT 00999000 UCBMOUNT EQU UCBDMCT 01000000 UCBBNUL EQU UCBSTAB 01001000 UCBSHAR EQU UCBSTAB 01002000 UCBBSTR EQU UCBSTAB 01003000 UCBBPUB EQU UCBSTAB 01004000 UCBBPRV EQU UCBSTAB 01005000 UCBBALB EQU UCBPRSRS 01006000 UCBPGFL EQU UCBSTAB 01007000 UCBDVSHR EQU UCBBSVL 01008000 UCBVOLI EQU UCBOBS01+4 01009000 UCBVTOC EQU UCBOBS01 01010000 CVTRV628 EQU CVTS01+728 01011000 CVTRV627 EQU CVTS01+724 01012000 CVTRV626 EQU CVTS01+720 01013000 CVTRV625 EQU CVTS01+716 01014000 CVTRV624 EQU CVTS01+712 01015000 CVTRV623 EQU CVTS01+708 01016000 CVTRV622 EQU CVTS01+704 01017000 CVTRV621 EQU CVTS01+700 01018000 CVTRV620 EQU CVTS01+696 01019000 CVTRV619 EQU CVTS01+692 01020000 CVTRV618 EQU CVTS01+688 01021000 CVTRV617 EQU CVTS01+684 01022000 CVTRV616 EQU CVTS01+680 01023000 CVTRV615 EQU CVTS01+676 01024000 CVTRV614 EQU CVTS01+672 01025000 CVTRV613 EQU CVTS01+668 01026000 CVTRV612 EQU CVTS01+664 01027000 CVTRV611 EQU CVTS01+660 01028000 CVTRV610 EQU CVTS01+656 01029000 CVTRV609 EQU CVTS01+652 01030000 CVTRV608 EQU CVTS01+648 01031000 CVTRV607 EQU CVTS01+644 01032000 CVTRV606 EQU CVTS01+640 01033000 CVTRV605 EQU CVTS01+636 01034000 CVTRV604 EQU CVTS01+632 01035000 CVTEFF02 EQU CVTS01+628 01036000 CVTCBBR EQU CVTS01+624 01037000 CVTSSCR EQU CVTS01+620 01038000 CVTEVENT EQU CVTS01+616 01039000 CVTCRCA EQU CVTS01+612 01040000 CVTTPIO EQU CVTS01+608 01041000 CVTADV EQU CVTS01+604 01042000 CVTGSDAB EQU CVTGSDA 01043000 CVTQV3 EQU CVTS01+596 01044000 CVTQV2 EQU CVTS01+592 01045000 CVTQV1 EQU CVTS01+588 01046000 CVTRPT EQU CVTS01+584 01047000 CVTSSRB EQU CVTS01+580 01048000 CVTCSDRL EQU CVTS01+576 01049000 CVTEXP1 EQU CVTS01+572 01050000 CVTRMPMT EQU CVTS01+568 01051000 CVTRMPTT EQU CVTS01+564 01052000 CVTVPSA EQU CVTS01+560 01053000 CVTVSTOP EQU CVTS01+556 01054000 CVTGTFR8 EQU CVTS01+552 01055000 CVTQUIT EQU CVTS01+548 01056000 CVTVACR EQU CVTS01+544 01057000 CVTWTCB EQU CVTS01+540 01058000 CVTSTPRS EQU CVTS01+536 01059000 CVT0PT02 EQU CVTS01+532 01060000 CVTDARCM EQU CVTS01+528 01061000 CVTIRECM EQU CVTS01+524 01062000 CVTJRECM EQU CVTS01+520 01063000 CVTVEMS0 EQU CVTS01+516 01064000 CVTSPFRR EQU CVTS01+512 01065000 CVTRLSTG EQU CVTS01+508 01066000 CVT0TC0A EQU CVTS01+504 01067000 CVTGMBR EQU CVTS01+500 01068000 CVTLFRM EQU CVTS01+496 01069000 CVTRMBR EQU CVTS01+492 01070000 CVTVIOP EQU CVTS01+488 01071000 CVTRV307 EQU CVTS01+486 01072000 CVTRV306 EQU CVTS01+484 01073000 CVTRV305 EQU CVTS01+482 01074000 CVTRV304 EQU CVTS01+480 01075000 CVTRV303 EQU CVTS01+478 01076000 CVTRV302 EQU CVTS01+476 01077000 CVTTRCA EQU CVTS01+472 01078000 CVTRV297 EQU CVTRV289 01079000 CVTRV296 EQU CVTRV289 01080000 CVTRV295 EQU CVTRV289 01081000 CVTRV294 EQU CVTRV289 01082000 CVTRV293 EQU CVTRV289 01083000 CVTRV292 EQU CVTRV289 01084000 CVTRV291 EQU CVTRV289 01085000 CVTRV290 EQU CVTRV289 01086000 CVTRV288 EQU CVTRV280 01087000 CVTRV287 EQU CVTRV280 01088000 CVTRV286 EQU CVTRV280 01089000 CVTRV285 EQU CVTRV280 01090000 CVTRV284 EQU CVTRV280 01091000 CVTRV283 EQU CVTRV280 01092000 CVTRV282 EQU CVTRV280 01093000 CVTRV281 EQU CVTRV280 01094000 CVTRV279 EQU CVTRV271 01095000 CVTRV278 EQU CVTRV271 01096000 CVTRV277 EQU CVTRV271 01097000 CVTRV276 EQU CVTRV271 01098000 CVTRV275 EQU CVTRV271 01099000 CVTRV274 EQU CVTRV271 01100000 CVTRV273 EQU CVTRV271 01101000 CVTRV272 EQU CVTRV271 01102000 CVTRV270 EQU CVTRV262 01103000 CVTRV269 EQU CVTRV262 01104000 CVTRV268 EQU CVTRV262 01105000 CVTRV267 EQU CVTRV262 01106000 CVTRV266 EQU CVTRV262 01107000 CVTRV265 EQU CVTRV262 01108000 CVTRV264 EQU CVTRV262 01109000 CVTRV263 EQU CVTRV262 01110000 CVTVFP EQU CVTS01+464 01111000 CVTVSI EQU CVTS01+460 01112000 CVTVPSIB EQU CVTS01+456 01113000 CVTMFACT EQU CVTMFRTR 01114000 CVTMFCTL EQU CVTS01+448 01115000 CVTPVBP EQU CVTS01+444 01116000 CVTPWI EQU CVTS01+440 01117000 CVTRV254 EQU CVTS01+438 01118000 CVTRV253 EQU CVTS01+436 01119000 CVTRV252 EQU CVTS01+434 01120000 CVTRV251 EQU CVTS01+433 01121000 CVTRV250 EQU CVTS01+432 01122000 CVTRV249 EQU CVTS01+431 01123000 CVTRV248 EQU CVTS01+430 01124000 CVTRV247 EQU CVTS01+429 01125000 CVTRV246 EQU CVTS01+428 01126000 CVTRV245 EQU CVTRV237 01127000 CVTRV244 EQU CVTRV237 01128000 CVTRV243 EQU CVTRV237 01129000 CVTRV242 EQU CVTRV237 01130000 CVTRV241 EQU CVTRV237 01131000 CVTRV240 EQU CVTRV237 01132000 CVTRV239 EQU CVTRV237 01133000 CVTRV238 EQU CVTRV237 01134000 CVTRV236 EQU CVTRV228 01135000 CVTRV235 EQU CVTRV228 01136000 CVTRV234 EQU CVTRV228 01137000 CVTRV233 EQU CVTRV228 01138000 CVTRV232 EQU CVTRV228 01139000 CVTRV231 EQU CVTRV228 01140000 CVTRV230 EQU CVTRV228 01141000 CVTRV229 EQU CVTRV228 01142000 CVTRV227 EQU CVTRV219 01143000 CVTRV226 EQU CVTRV219 01144000 CVTRV225 EQU CVTRV219 01145000 CVTRV224 EQU CVTRV219 01146000 CVTRV223 EQU CVTRV219 01147000 CVTRV222 EQU CVTRV219 01148000 CVTRV221 EQU CVTRV219 01149000 CVTRV220 EQU CVTRV219 01150000 CVTRV218 EQU CVTRV210 01151000 CVTRV217 EQU CVTRV210 01152000 CVTRV216 EQU CVTRV210 01153000 CVTRV215 EQU CVTRV210 01154000 CVTRV214 EQU CVTRV210 01155000 CVTRV213 EQU CVTRV210 01156000 CVTRV212 EQU CVTRV210 01157000 CVTRV211 EQU CVTRV210 01158000 CVTLCCAT EQU CVTS01+420 01159000 CVTPCCAT EQU CVTS01+416 01160000 CVTIPCRP EQU CVTS01+412 01161000 CVTIPCRI EQU CVTS01+408 01162000 CVTIPCDS EQU CVTS01+404 01163000 CVTAIDVT EQU CVTS01+400 01164000 CVTSSAP EQU CVTS01+396 01165000 CVTEHCIR EQU CVTS01+392 01166000 CVTEHDEF EQU CVTS01+388 01167000 CVTDAIR EQU CVTS01+384 01168000 CVTPERFM EQU CVTS01+380 01169000 CVT044R2 EQU CVTS01+376 01170000 CVTFETCH EQU CVTS01+372 01171000 CVTRSTWD EQU CVTS01+368 01172000 CVTSPOST EQU CVTS01+364 01173000 CVTIOBP EQU CVTS01+360 01174000 CVTASMVT EQU CVTS01+356 01175000 CVTRECRQ EQU CVTS01+352 01176000 CVTWSAC EQU CVTS01+348 01177000 CVTRV149 EQU CVTS01+344 01178000 CVTWSAL EQU CVTS01+340 01179000 CVTGLMN EQU CVTS01+332 01180000 CVTVEAC0 EQU CVTS01+328 01181000 CVT062R1 EQU CVTS01+324 01182000 CVTRPOST EQU CVTS01+320 01183000 CVTDQIQE EQU CVTS01+316 01184000 CVTCSD EQU CVTS01+312 01185000 CVTLKRMA EQU CVTS01+308 01186000 CVTRSPIE EQU CVTS01+304 01187000 CVTRENQ EQU CVTS01+300 01188000 CVTLQCB EQU CVTS01+296 01189000 CVTFQCB EQU CVTS01+292 01190000 CVTQCS01 EQU CVTS01+288 01191000 CVTAPFT EQU CVTS01+284 01192000 CVTPARRL EQU CVTS01+280 01193000 CVTVWAIT EQU CVTS01+276 01194000 CVTGSPL EQU CVTS01+272 01195000 CVTLSMQ EQU CVTS01+268 01196000 CVTGSMQ EQU CVTS01+264 01197000 CVTEXPRO EQU CVTS01+260 01198000 CVTOPCTP EQU CVTS01+256 01199000 CVTSIC EQU CVTS01+252 01200000 CVTTPIOS EQU CVTS01+248 01201000 CVTRTMS EQU CVTS01+244 01202000 CVTSDBF EQU CVTS01+240 01203000 CVTSCBP EQU CVTS01+236 01204000 CVTSDMP EQU CVTS01+232 01205000 CVTSV60 EQU CVTS01+228 01206000 CVTRTMCT EQU CVTS01+224 01207000 CVTASCBL EQU CVTS01+220 01208000 CVTASCBH EQU CVTS01+216 01209000 CVTGDA EQU CVTS01+212 01210000 CVTASVT EQU CVTS01+208 01211000 CVTVVMDI EQU CVTS01+204 01212000 CVTAQTOP EQU CVTS01+200 01213000 CVTIOSCS EQU CVTS01+196 01214000 CVTSDRM EQU CVTS01+192 01215000 CVTOPTE EQU CVTS01+188 01216000 CVTSTXU EQU CVTS01+184 01217000 CVTQUIS EQU CVTS01+180 01218000 CVTPARS EQU CVTS01+176 01219000 CVTS1EE EQU CVTS01+172 01220000 CVTFRAS EQU CVTS01+168 01221000 CVTQSAS EQU CVTS01+164 01222000 CVTCRAS EQU CVTS01+160 01223000 CVTCRMN EQU CVTS01+156 01224000 CVTDELCP EQU CVTS01+152 01225000 CVTFRECL EQU CVTS01+148 01226000 CVTGETCL EQU CVTS01+144 01227000 CVTBLDCP EQU CVTS01+140 01228000 CVTAUTHL EQU CVTS01+136 01229000 CVTSCAN EQU CVTS01+132 01230000 CVTRV144 EQU CVTS01+130 01231000 CVTMAXMP EQU CVTS01+128 01232000 CVTSTCK EQU CVTS01+124 01233000 CVTRV139 EQU CVTS01+123 01234000 CVTDSSAC EQU CVTS01+122 01235000 CVTRV513 EQU CVTS01+121 01236000 CVTIOSPL EQU CVTS01+120 01237000 CVTPTGT EQU CVTS01+116 01238000 CVTCSPIE EQU CVTS01+112 01239000 CVTSMFEX EQU CVTS01+108 01240000 CVTOLT0A EQU CVTS01+104 01241000 CVTSRBRT EQU CVTS01+100 01242000 CVTPUTL EQU CVTS01+96 01243000 CVTRV519 EQU CVTS01+92 01244000 CVTRV327 EQU CVTS01+88 01245000 CVTRV326 EQU CVTS01+84 01246000 CVTRV325 EQU CVTS01+80 01247000 CVTRV324 EQU CVTS01+76 01248000 CVT0VL01 EQU CVTS01+72 01249000 CVTSHRVM EQU CVTS01+68 01250000 CVTRV332 EQU CVTS01+64 01251000 CVTTAS EQU CVTS01+60 01252000 CVTRSCN EQU CVTS01+56 01253000 CVTTRAC2 EQU CVTS01+54 01254000 CVTTRACE EQU CVTS01+52 01255000 CVTAPG EQU CVTS01+51 01256000 CVTSDTRC EQU CVTCTLFG 01257000 CVTGTRCE EQU CVTCTLFG 01258000 CVTNOMP EQU CVTCTLFG 01259000 CVTRSV79 EQU CVTCTLFG 01260000 CVTDSTAT EQU CVTCTLFG 01261000 CVTRSV78 EQU CVTCTLFG 01262000 CVTRV333 EQU CVTCTLFG 01263000 CVTRV323 EQU CVTCTLFG 01264000 CVTSPVLK EQU CVTS01+49 01265000 CVTRSV77 EQU CVTS01+48 01266000 CVTRV331 EQU CVTS01+44 01267000 CVTRV330 EQU CVTS01+40 01268000 CVTRV329 EQU CVTS01+36 01269000 CVTRV328 EQU CVTS01+32 01270000 CVTRV322 EQU CVTS01+28 01271000 CVTSLID EQU CVTSLIDA+1 01272000 CVTSYLK EQU CVTSLIDA 01273000 CVTRV321 EQU CVTS01+20 01274000 CVTRV320 EQU CVTS01+16 01275000 CVTLPDIR EQU CVTLPDIA+1 01276000 CVTRSV69 EQU CVTDIRST 01277000 CVTRSV68 EQU CVTDIRST 01278000 CVTRSV67 EQU CVTDIRST 01279000 CVTRSV66 EQU CVTDIRST 01280000 CVTRSV65 EQU CVTDIRST 01281000 CVTRSV64 EQU CVTDIRST 01282000 CVTRSV63 EQU CVTDIRST 01283000 CVTDICOM EQU CVTDIRST 01284000 CVTPVTP EQU CVTS01+8 01285000 CVTLPDSR EQU CVTS01+4 01286000 CVTGETL EQU CVTS01 01287000 IOSPCIWA EQU IOSPCISC+44 01288000 IOSPCIRS EQU IOSPCISC+8 01289000 @NM00010 EQU IOSPCISC+4 01290000 @NM00009 EQU IOSPCISC 01291000 IOSWRNDR EQU IOSWTOWA+4 01292000 IOSWTOPT EQU IOSWTOWA+3 01293000 IOSWTOCP EQU IOSWTOWA+2 01294000 IOSWTOCH EQU IOSWTOWA 01295000 IOSATTWA EQU IOSATTSC+40 01296000 @NM00008 EQU IOSATTSC+24 01297000 IOSATTSN EQU IOSATTSC 01298000 WSAGSCHE EQU WSAG+40 01299000 WSAGREST EQU WSAG+36 01300000 WSAGNQDQ EQU WSAG+32 01301000 WSAGMEMT EQU WSAG+28 01302000 WSAGOPTM EQU WSAG+24 01303000 WSAGSTAT EQU WSAG+20 01304000 WSAGEMS0 EQU WSAG+16 01305000 WSAGSSRS EQU WSAG+12 01306000 WSAGRSM EQU WSAG+8 01307000 WSAGGMFM EQU WSAG+4 01308000 WSAGPGIO EQU WSAG 01309000 APPSAV EQU APGAREA 01310000 @NM00094 EQU APPSW 01311000 POSTSW EQU APPSW 01312000 ERPSW EQU APPSW 01313000 @NM00093 EQU SDWA+512 01314000 SDWAVRA EQU SDWARA+4 01315000 SDWAURAL EQU SDWARA+3 01316000 @NM00092 EQU SDWADPVA 01317000 SDWAEBC EQU SDWADPVA 01318000 SDWAHEX EQU SDWADPVA 01319000 SDWAVRAL EQU SDWARA 01320000 @NM00091 EQU SDWA+396 01321000 SDWACOMP EQU SDWA+392 01322000 SDWARCPL EQU SDWA+364 01323000 @NM00090 EQU SDWADPSA+32 01324000 SDWATO4 EQU SDWADPSL+28 01325000 SDWAFRM4 EQU SDWADPSL+24 01326000 SDWATO3 EQU SDWADPSL+20 01327000 SDWAFRM3 EQU SDWADPSL+16 01328000 SDWATO2 EQU SDWADPSL+12 01329000 SDWAFRM2 EQU SDWADPSL+8 01330000 SDWATO1 EQU SDWADPSL+4 01331000 SDWAFRM1 EQU SDWADPSL 01332000 @NM00089 EQU SDWADDAT+3 01333000 @NM00088 EQU SDWAPDAT 01334000 SDWAUSPL EQU SDWAPDAT 01335000 SDWADPSW EQU SDWAPDAT 01336000 SDWATJPA EQU SDWAPDAT 01337000 SDWATLPA EQU SDWAPDAT 01338000 SDWADREG EQU SDWAPDAT 01339000 SDWADSAH EQU SDWAPDAT 01340000 SDWADSAS EQU SDWAPDAT 01341000 @NM00087 EQU SDWADDAT+1 01342000 @NM00086 EQU SDWASDAT 01343000 SDWAQQS EQU SDWASDAT 01344000 SDWACBS EQU SDWASDAT 01345000 SDWAGTF EQU SDWASDAT 01346000 SDWASWA EQU SDWASDAT 01347000 SDWALSQA EQU SDWASDAT 01348000 SDWASQA EQU SDWASDAT 01349000 SDWANUC EQU SDWASDAT 01350000 @NM00085 EQU SDWADUMP+2 01351000 @NM00084 EQU SDWADPFS 01352000 SDWASLST EQU SDWADPFS 01353000 @NM00083 EQU SDWADPFS 01354000 SDWADLST EQU SDWADPFS 01355000 SDWADPT EQU SDWADPFS 01356000 SDWADPID EQU SDWADUMP 01357000 SDWADPLA EQU SDWA+316 01358000 SDWAREXN EQU SDWARECP+16 01359000 SDWACSCT EQU SDWARECP+8 01360000 SDWAMODN EQU SDWARECP 01361000 @NM00082 EQU SDWALKWA+32 01362000 SDWATALW EQU SDWALKWS+28 01363000 SDWATDLW EQU SDWALKWS+24 01364000 SDWATNLW EQU SDWALKWS+20 01365000 SDWAAPLW EQU SDWALKWS+16 01366000 SDWAIPLW EQU SDWALKWS+12 01367000 SDWAILLW EQU SDWALKWS+8 01368000 SDWAIULW EQU SDWALKWS+4 01369000 SDWAICLW EQU SDWALKWS 01370000 SDWAFLLK EQU SDWAACF4 01371000 SDWACMS EQU SDWAACF4 01372000 SDWAOPTM EQU SDWAACF4 01373000 SDWATADB EQU SDWAACF4 01374000 SDWATDNB EQU SDWAACF4 01375000 SDWATNCB EQU SDWAACF4 01376000 SDWAILCH EQU SDWAACF4 01377000 SDWAIUCB EQU SDWAACF4 01378000 SDWAICAT EQU SDWAACF3 01379000 SDWAIPRG EQU SDWAACF3 01380000 SDWASALL EQU SDWAACF3 01381000 SDWAASMP EQU SDWAACF3 01382000 SDWADISP EQU SDWAACF3 01383000 @NM00081 EQU SDWAACF3 01384000 @NM00080 EQU SDWAACF2 01385000 SDWAFREE EQU SDWAACF2 01386000 SDWAUPRG EQU SDWAACF2 01387000 @NM00079 EQU SDWAACF2 01388000 SDWASPIN EQU SDWAACF2 01389000 @NM00078 EQU SDWAACF2 01390000 SDWALCPU EQU SDWACPUA+2 01391000 @NM00077 EQU SDWACPUA 01392000 SDWARECA EQU SDWA+244 01393000 SDWARTYA EQU SDWA+240 01394000 @NM00076 EQU SDWA+239 01395000 @NM00075 EQU SDWAIOFS 01396000 SDWANIOP EQU SDWAIOFS 01397000 SDWANOIO EQU SDWAIOFS 01398000 SDWAIOHT EQU SDWAIOFS 01399000 SDWAIOQR EQU SDWAIOFS 01400000 SDWAFMID EQU SDWA+236 01401000 @NM00074 EQU SDWAERRD 01402000 SDWAMCIV EQU SDWAERRD 01403000 SDWARPIV EQU SDWAERRD 01404000 SDWAMABD EQU SDWAERRD 01405000 SDWACTS EQU SDWAERRD 01406000 SDWASTAE EQU SDWAERRD 01407000 SDWANRBE EQU SDWAERRD 01408000 SDWACLUP EQU SDWAERRD 01409000 @NM00073 EQU SDWAERRC 01410000 SDWAEAS EQU SDWAERRC 01411000 SDWAPERC EQU SDWAERRC 01412000 SDWAIRB EQU SDWAERRC 01413000 SDWASTAI EQU SDWAERRC 01414000 SDWASTAF EQU SDWAERRC 01415000 SDWASRBM EQU SDWAERRB 01416000 SDWALDIS EQU SDWAERRB 01417000 SDWAENRB EQU SDWAERRB 01418000 SDWATYP1 EQU SDWAERRB 01419000 @NM00072 EQU SDWAERRB 01420000 SDWAPGIO EQU SDWAERRA 01421000 SDWATEXC EQU SDWAERRA 01422000 SDWASVCE EQU SDWAERRA 01423000 SDWAABTM EQU SDWAERRA 01424000 SDWASVCD EQU SDWAERRA 01425000 SDWARKEY EQU SDWAERRA 01426000 SDWAPCHK EQU SDWAERRA 01427000 SDWAMCHK EQU SDWAERRA 01428000 SDWATIME EQU SDWAMCH+20 01429000 SDWARFSA EQU SDWAMCH+16 01430000 @NM00071 EQU SDWAMCH+14 01431000 SDWAVEQR EQU SDWARSR2 01432000 SDWAPGFX EQU SDWARSR2 01433000 SDWAFLSQ EQU SDWARSR2 01434000 SDWAFSQA EQU SDWARSR2 01435000 SDWANUCL EQU SDWARSR2 01436000 SDWASPER EQU SDWARSR2 01437000 SDWAINTC EQU SDWARSR2 01438000 SDWAOFLN EQU SDWARSR2 01439000 SDWACHNG EQU SDWARSR1 01440000 SDWAMSER EQU SDWARSR1 01441000 @NM00070 EQU SDWARSR1 01442000 SDWACPID EQU SDWAMCH+10 01443000 SDWATERR EQU SDWAMCHD 01444000 SDWAFPRX EQU SDWAMCHD 01445000 SDWAINSF EQU SDWAMCHD 01446000 SDWAACR EQU SDWAMCHD 01447000 SDWASCK EQU SDWAMCHD 01448000 SDWAPSWU EQU SDWAMCHD 01449000 SDWAREGU EQU SDWAMCHD 01450000 SDWASKYF EQU SDWAMCHD 01451000 @NM00069 EQU SDWAMCHS 01452000 SDWARSRF EQU SDWAMCHS 01453000 SDWARSRC EQU SDWAMCHS 01454000 SDWAINVP EQU SDWAMCHS 01455000 SDWATSVL EQU SDWAMCHS 01456000 SDWARCDF EQU SDWAMCHS 01457000 SDWASRVL EQU SDWAMCHS 01458000 SDWASCKE EQU SDWASTCK+4 01459000 SDWASCKB EQU SDWASTCK 01460000 SDWALNTH EQU SDWAIDNT+1 01461000 SDWASPID EQU SDWAIDNT 01462000 SDWASR15 EQU SDWASRSV+60 01463000 SDWASR14 EQU SDWASRSV+56 01464000 SDWASR13 EQU SDWASRSV+52 01465000 SDWASR12 EQU SDWASRSV+48 01466000 SDWASR11 EQU SDWASRSV+44 01467000 SDWASR10 EQU SDWASRSV+40 01468000 SDWASR09 EQU SDWASRSV+36 01469000 SDWASR08 EQU SDWASRSV+32 01470000 SDWASR07 EQU SDWASRSV+28 01471000 SDWASR06 EQU SDWASRSV+24 01472000 SDWASR05 EQU SDWASRSV+20 01473000 SDWASR04 EQU SDWASRSV+16 01474000 SDWASR03 EQU SDWASRSV+12 01475000 SDWASR02 EQU SDWASRSV+8 01476000 SDWASR01 EQU SDWASRSV+4 01477000 SDWASR00 EQU SDWASRSV 01478000 SDWATRN2 EQU SDWAAEC2+4 01479000 SDWAIPC2 EQU SDWAICD2 01480000 SDWAIMC2 EQU SDWAICD2 01481000 SDWAIPR2 EQU SDWAICD2 01482000 @NM00068 EQU SDWAINC2 01483000 @NM00067 EQU SDWAILC2 01484000 SDWAIL2 EQU SDWAILC2 01485000 @NM00066 EQU SDWAILC2 01486000 @NM00065 EQU SDWAAEC2 01487000 SDWAADD2 EQU SDWANXT2+1 01488000 @NM00064 EQU SDWANXT2 01489000 @NM00063 EQU SDWAEC2+3 01490000 SDWASGN2 EQU SDWAINT2 01491000 SDWAEXP2 EQU SDWAINT2 01492000 SDWADEC2 EQU SDWAINT2 01493000 SDWAFPO2 EQU SDWAINT2 01494000 SDWACC2 EQU SDWAINT2 01495000 @NM00062 EQU SDWAINT2 01496000 SDWAPGM2 EQU SDWAMWP2 01497000 SDWAWAT2 EQU SDWAMWP2 01498000 SDWAMCK2 EQU SDWAMWP2 01499000 SDWAECT2 EQU SDWAMWP2 01500000 SDWAKEY2 EQU SDWAMWP2 01501000 SDWAEXT2 EQU SDWAEMK2 01502000 SDWAIO2 EQU SDWAEMK2 01503000 SDWATRM2 EQU SDWAEMK2 01504000 @NM00061 EQU SDWAEMK2 01505000 SDWAPER2 EQU SDWAEMK2 01506000 @NM00060 EQU SDWAEMK2 01507000 SDWATRAN EQU SDWAAEC1+4 01508000 SDWAIPC1 EQU SDWAICD1 01509000 SDWAIMC1 EQU SDWAICD1 01510000 SDWAIPR1 EQU SDWAICD1 01511000 @NM00059 EQU SDWAINC1 01512000 @NM00058 EQU SDWAILC1 01513000 SDWAIL1 EQU SDWAILC1 01514000 @NM00057 EQU SDWAILC1 01515000 @NM00056 EQU SDWAAEC1 01516000 SDWAADD1 EQU SDWANXT1+1 01517000 @NM00055 EQU SDWANXT1 01518000 @NM00054 EQU SDWAEC1+3 01519000 SDWASGN1 EQU SDWAINT1 01520000 SDWAEXP1 EQU SDWAINT1 01521000 SDWADEC1 EQU SDWAINT1 01522000 SDWAFPO1 EQU SDWAINT1 01523000 SDWACC1 EQU SDWAINT1 01524000 @NM00053 EQU SDWAINT1 01525000 SDWAPGM1 EQU SDWAMWP1 01526000 SDWAWAT1 EQU SDWAMWP1 01527000 SDWAMCK1 EQU SDWAMWP1 01528000 SDWAECT1 EQU SDWAMWP1 01529000 SDWAKEY1 EQU SDWAMWP1 01530000 SDWAEXT1 EQU SDWAEMK1 01531000 SDWAIO1 EQU SDWAEMK1 01532000 SDWATRM1 EQU SDWAEMK1 01533000 @NM00052 EQU SDWAEMK1 01534000 SDWAPER1 EQU SDWAEMK1 01535000 @NM00051 EQU SDWAEMK1 01536000 SDWAIOBR EQU SDWA+100 01537000 SDWAEPA EQU SDWA+96 01538000 @NM00050 EQU SDWANAME+4 01539000 SDWARBAD EQU SDWANAME 01540000 SDWAGR15 EQU SDWAGRSV+60 01541000 SDWAGR14 EQU SDWAGRSV+56 01542000 SDWAGR13 EQU SDWAGRSV+52 01543000 SDWAGR12 EQU SDWAGRSV+48 01544000 SDWAGR11 EQU SDWAGRSV+44 01545000 SDWAGR10 EQU SDWAGRSV+40 01546000 SDWAGR09 EQU SDWAGRSV+36 01547000 SDWAGR08 EQU SDWAGRSV+32 01548000 SDWAGR07 EQU SDWAGRSV+28 01549000 SDWAGR06 EQU SDWAGRSV+24 01550000 SDWAGR05 EQU SDWAGRSV+20 01551000 SDWAGR04 EQU SDWAGRSV+16 01552000 SDWAGR03 EQU SDWAGRSV+12 01553000 SDWAGR02 EQU SDWAGRSV+8 01554000 SDWAGR01 EQU SDWAGRSV+4 01555000 SDWAGR00 EQU SDWAGRSV 01556000 SDWANXTP EQU SDWACTL2+5 01557000 SDWASGP EQU SDWAPMKP 01558000 SDWAEUP EQU SDWAPMKP 01559000 SDWADOP EQU SDWAPMKP 01560000 SDWAFPP EQU SDWAPMKP 01561000 SDWACCP EQU SDWAPMKP 01562000 SDWAILP EQU SDWAPMKP 01563000 SDWAINTP EQU SDWACTL2+2 01564000 SDWASPVP EQU SDWAMWPP 01565000 SDWAWATP EQU SDWAMWPP 01566000 SDWAMCKP EQU SDWAMWPP 01567000 @NM00049 EQU SDWAMWPP 01568000 SDWAKEYP EQU SDWAMWPP 01569000 SDWAEXTP EQU SDWACMKP 01570000 SDWAIOP EQU SDWACMKP 01571000 SDWANXTA EQU SDWACTL1+5 01572000 SDWASGA EQU SDWAPMKA 01573000 SDWAEUA EQU SDWAPMKA 01574000 SDWADOA EQU SDWAPMKA 01575000 SDWAFPA EQU SDWAPMKA 01576000 SDWACCA EQU SDWAPMKA 01577000 SDWAILA EQU SDWAPMKA 01578000 SDWAINTA EQU SDWACTL1+2 01579000 SDWASPVA EQU SDWAMWPA 01580000 SDWAWATA EQU SDWAMWPA 01581000 SDWAMCKA EQU SDWAMWPA 01582000 @NM00048 EQU SDWAMWPA 01583000 SDWAKEYA EQU SDWAMWPA 01584000 SDWAEXTA EQU SDWACMKA 01585000 SDWAIOA EQU SDWACMKA 01586000 SDWACMPC EQU SDWAABCC+1 01587000 @NM00047 EQU SDWACMPF 01588000 SDWASTCC EQU SDWACMPF 01589000 @NM00046 EQU SDWACMPF 01590000 SDWASTEP EQU SDWACMPF 01591000 FRRSPARM EQU FRRSENTR+8 01592000 @NM00021 EQU FRRSFLGS+1 01593000 @NM00020 EQU FRRSFLG1 01594000 FRRSNEST EQU FRRSFLG1 01595000 FRRSRCUR EQU FRRSFLG1 01596000 FRRSFRRA EQU FRRSENTR 01597000 FRRSENTS EQU FRRS+84 01598000 FRRSRTMW EQU FRRS+16 01599000 FRRSCURR EQU FRRSHEAD+12 01600000 FRRSELEN EQU FRRSHEAD+8 01601000 FRRSLAST EQU FRRSHEAD+4 01602000 FRRSEMP EQU FRRSHEAD 01603000 ICBFAB EQU ICB2SSCB+108 01604000 ICBRSV2P EQU ICB2SSCB+104 01605000 ICBRSVP EQU ICB2SSCB+100 01606000 ICBAEAP EQU ICB2SSCB+96 01607000 ICBSIOBP EQU ICB2SSCB+92 01608000 ICBIATNA EQU ICB2SSCB+88 01609000 ICBIPRGA EQU ICB2SSCB+84 01610000 ICBSRBP EQU ICB2SSCB+80 01611000 ICBVVICB EQU ICB2SSCB+76 01612000 ICBVVIC EQU ICB2SSCB+72 01613000 ICBSIOP EQU ICB2SSCB+68 01614000 ICBMEP EQU ICB2SSCB+64 01615000 ICBIORCI EQU ICB2SSCB+60 01616000 ICB2ACTP EQU ICB2SSCB+56 01617000 ICBSAMP EQU ICBFLG+2 01618000 ICBFG2 EQU ICBFLG+1 01619000 @NM00019 EQU ICBFG1 01620000 ICBV EQU ICBFG1 01621000 ICBR EQU ICBFG1 01622000 ICBI EQU ICBFG1 01623000 ICBNVT EQU ICBOPT 01624000 ICBVN02P EQU ICB2SSCB+44 01625000 ICBTCB EQU ICB2SSCB+40 01626000 ICBQHEAD EQU ICB2SSCB+36 01627000 ICBAUCB EQU ICB2SSCB+32 01628000 ICBCOMQ EQU ICB2SSCB+24 01629000 ICBIOR EQU ICB2SSCB+20 01630000 ICBCOM EQU ICB2SSCB+16 01631000 ICBACTV EQU ICB2SSCB+12 01632000 ICBECB EQU ICB2SSCB+8 01633000 ICBSSNAM EQU ICB2SSCB 01634000 UCBERADR EQU UCBUCS+12 01635000 UCBFCBID EQU UCBUCS+8 01636000 UCBERCNT EQU UCBUCS+7 01637000 UCBRSV51 EQU UCBUCS+6 01638000 UCBRSV50 EQU UCBFCBOP 01639000 UCBRSV49 EQU UCBFCBOP 01640000 UCBRSV48 EQU UCBFCBOP 01641000 UCBRSV47 EQU UCBFCBOP 01642000 UCBRSV46 EQU UCBFCBOP 01643000 UCBRSV45 EQU UCBFCBOP 01644000 UCBRSV44 EQU UCBFCBOP 01645000 UCBFCBO1 EQU UCBFCBOP 01646000 UCBUCSPE EQU UCBUCSOP 01647000 UCBRSV43 EQU UCBUCSOP 01648000 UCBRSV42 EQU UCBUCSOP 01649000 UCBRSV41 EQU UCBUCSOP 01650000 UCBRSV40 EQU UCBUCSOP 01651000 UCBRSV39 EQU UCBUCSOP 01652000 UCBUCSO2 EQU UCBUCSOP 01653000 UCBUCSO1 EQU UCBUCSOP 01654000 UCBUCSID EQU UCBUCS 01655000 UCBRV073 EQU UCB3540X+7 01656000 UCBRV072 EQU UCBDKBYT 01657000 UCBRV071 EQU UCBDKBYT 01658000 UCBRV070 EQU UCBDKBYT 01659000 UCBRV069 EQU UCBDKBYT 01660000 UCBRV068 EQU UCBDKBYT 01661000 UCBRV067 EQU UCBDKBYT 01662000 UCBVLVER EQU UCBDKBYT 01663000 UCBDKAMX EQU UCBDKBYT 01664000 UCBVLSER EQU UCB3540X 01665000 UCBRDATA EQU UCBOCR+4 01666000 UCBFRID EQU UCBOCR 01667000 UCBCLN EQU UCBMT+14 01668000 UCBERG EQU UCBMT+12 01669000 UCBMS EQU UCBMT+11 01670000 UCBNB EQU UCBMT+10 01671000 UCBPW EQU UCBMT+9 01672000 UCBPR EQU UCBMT+8 01673000 UCBSIO EQU UCBMT+6 01674000 UCBTW EQU UCBMT+5 01675000 UCBTR EQU UCBMT+4 01676000 UCBTWT EQU UCBMT+3 01677000 UCBTRT EQU UCBMT+2 01678000 UCBCTD EQU UCBMT 01679000 UCBWTOID EQU UCBCMEXT+17 01680000 UCBRV043 EQU UCBCMEXT+16 01681000 UCBASID EQU UCBCMEXT+14 01682000 UCBMFCNT EQU UCBCMEXT+12 01683000 UCBPMSK EQU UCBCMEXT+10 01684000 UCBCCWOF EQU UCBCMEXT+8 01685000 UCBRV041 EQU UCBCMEXT+6 01686000 UCBRV036 EQU UCBFLP1 01687000 UCBRV035 EQU UCBFLP1 01688000 UCBRV034 EQU UCBFLP1 01689000 UCBRV033 EQU UCBFLP1 01690000 UCBRV032 EQU UCBFLP1 01691000 UCBRV031 EQU UCBFLP1 01692000 UCBSHRUP EQU UCBFLP1 01693000 UCBNSRCH EQU UCBFLP1 01694000 UCBSNSCT EQU UCBCMEXT+4 01695000 UCBHPDV EQU @NM00018 01696000 UCBHALI EQU @NM00018 01697000 UCBRSV09 EQU @NM00018 01698000 UCBRSV08 EQU @NM00018 01699000 UCBRSV07 EQU @NM00018 01700000 UCBRSV06 EQU @NM00018 01701000 UCBRSV05 EQU @NM00018 01702000 UCBRSV04 EQU @NM00018 01703000 UCBDTI EQU UCBCMEXT+2 01704000 UCBSTI EQU UCBCMEXT+1 01705000 UCBETI EQU UCBCMEXT 01706000 UCBEXTP EQU UCBEXTPT+1 01707000 UCBDDRSW EQU UCBFLC 01708000 UCBTICBT EQU UCBFLC 01709000 UCBIVRR EQU UCBFLC 01710000 UCBIVRS EQU UCBFLC 01711000 UCBITF EQU UCBFLC 01712000 UCBUDE EQU UCBFLC 01713000 UCBWAA EQU UCBFLC 01714000 UCBATTP EQU UCBFLC 01715000 UCBUNTYP EQU UCBTBYT4 01716000 UCBRSV11 EQU UCBDVCLS 01717000 UCBRSV10 EQU UCBDVCLS 01718000 UCB3CHAR EQU UCBDVCLS 01719000 UCB3UREC EQU UCBDVCLS 01720000 UCB3DISP EQU UCBDVCLS 01721000 UCB3DACC EQU UCBDVCLS 01722000 UCB3COMM EQU UCBDVCLS 01723000 UCB3TAPE EQU UCBDVCLS 01724000 UCBDVPWR EQU UCB2OPT7 01725000 UCBVLPWR EQU UCB2OPT6 01726000 UCB2OPT5 EQU UCBTBYT2 01727000 UCBRVDEV EQU UCBRWTAU 01728000 UCBRPS EQU UCBDUDN2 01729000 UCBRR EQU UCBDUDN1 01730000 UCB2OPT1 EQU UCBTBYT2 01731000 UCB2OPT0 EQU UCBTBYT2 01732000 UCB1FEA7 EQU UCBTBYT1 01733000 UCBD6250 EQU UCB1FEA6 01734000 UCBD1600 EQU UCB1FEA5 01735000 UCB1FEA4 EQU UCBTBYT1 01736000 UCB1FEA3 EQU UCBTBYT1 01737000 UCB1FEA2 EQU UCBTBYT1 01738000 UCB1FEA1 EQU UCBTBYT1 01739000 UCB1FEA0 EQU UCBTBYT1 01740000 UCBNAME EQU UCBOB+13 01741000 UCBRV029 EQU UCBWGT 01742000 UCBVHRSN EQU UCBWGT 01743000 UCBVORSN EQU UCBWGT 01744000 UCBMTPXP EQU UCBWGT 01745000 UCBREW EQU UCBWGT 01746000 UCBPUB EQU UCBWGT 01747000 UCBOUT EQU UCBWGT 01748000 UCBIN EQU UCBWGT 01749000 UCBCPU EQU UCBOB+11 01750000 UCBLCI EQU UCBOB+10 01751000 UCBCNT EQU UCBOB+9 01752000 UCBRV017 EQU UCBCHM1 01753000 UCBRV016 EQU UCBCHM1 01754000 UCBRV015 EQU UCBCHM1 01755000 UCBRV014 EQU UCBCHM1 01756000 UCBSPB EQU UCBPTH1 01757000 UCBPPB EQU UCBPTH1 01758000 UCBSPA EQU UCBPTH0 01759000 UCBPPA EQU UCBPTH0 01760000 UCBFLB7 EQU UCBFLB 01761000 UCBVALPH EQU UCBFLB 01762000 UCBCRHSN EQU UCBFLB 01763000 UCBCRHRV EQU UCBFLB 01764000 UCBRESVH EQU UCBFLB 01765000 UCBSPST EQU UCBFLB 01766000 UCBASNS EQU UCBFLB 01767000 UCBIORST EQU UCBFLB 01768000 UCBQISCE EQU UCBFL1 01769000 UCBACTV EQU UCBFL1 01770000 UCBSAP EQU UCBFL1 01771000 UCBNOTRC EQU UCBCUB 01772000 UCBPSNS EQU UCBFL1 01773000 UCBUSING EQU UCBPST 01774000 UCBNOTRD EQU UCBNRY 01775000 UCBBUSYD EQU UCBBSY 01776000 UCBUA EQU UCBCHAN+1 01777000 UCBCHA EQU UCBCHAN 01778000 UCBDADI EQU UCBSTAT 01779000 UCBSYSR EQU UCBSTAT 01780000 UCBPRES EQU UCBSTAT 01781000 UCBALOC EQU UCBSTAT 01782000 UCBUNLD EQU UCBSTAT 01783000 UCBRESV EQU UCBSTAT 01784000 UCBCHGS EQU UCBSTAT 01785000 UCBONLI EQU UCBSTAT 01786000 UCBID EQU UCBOB+2 01787000 UCBALTPH EQU UCBFL5 01788000 UCBALTCU EQU UCBFL5 01789000 UCBNALOC EQU UCBFL5 01790000 UCBENVRD EQU UCBFL5 01791000 UCBVSDR EQU UCBFL5 01792000 UCBSASK EQU UCBFL5 01793000 UCBAMV EQU UCBAF 01794000 UCBDCC EQU UCBFL5 01795000 UCBMONT EQU UCBJBNR 01796000 UCBRV011 EQU UCBJBNR 01797000 UCBRSV02 EQU UCBJBNR 01798000 UCBOLDSM EQU UCBJBNR 01799000 UCBRV003 EQU UCBJBNR 01800000 UCBRV002 EQU UCBJBNR 01801000 UCBJES3 EQU UCBJBNR 01802000 UCBVRDEV EQU UCBJBNR 01803000 UCBCMSEG EQU UCBOB 01804000 UCBPFXND EQU UCB+512 01805000 UCBIOQ EQU UCB+508 01806000 UCBLOCK EQU UCB+504 01807000 UCBPXST EQU UCB+504 01808000 @NM00015 EQU UCB 01809000 IOCOEND EQU IOCOM+128 01810000 IOCPATCH EQU IOCOM+124 01811000 IOCUCBBM EQU IOCOM+120 01812000 IOCIOSDQ EQU IOCOM+112 01813000 IOCIOSEQ EQU IOCOM+108 01814000 IOCSVCF EQU IOCOM+104 01815000 IOCTCCW EQU IOCOM+100 01816000 IOCRSVTB EQU IOCOM+96 01817000 IOCMFCNT EQU IOCOM+92 01818000 IOCMFHK EQU IOCOM+88 01819000 IOCGENA EQU IOCOM+84 01820000 IOCCCH EQU IOCOM+80 01821000 IOCASYNQ EQU IOCOM+76 01822000 IOCLCHTB EQU IOCOM+72 01823000 IOCATTBL EQU IOCOM+68 01824000 IOCOMEX EQU IOCOM+64 01825000 IOCSYNCH EQU IOCOM+56 01826000 IOCCATLK EQU IOCOM+48 01827000 IOCPRGID EQU IOCOM+44 01828000 IOCIOSCP EQU IOCOM+40 01829000 IOCORMGT EQU IOCOM+36 01830000 IOCVOID EQU IOCOM+32 01831000 IOCSTIO EQU IOCOM+28 01832000 @NM00014 EQU IOCOM+24 01833000 @NM00013 EQU IOCOM+20 01834000 IOCINT EQU IOCOM+16 01835000 IOCCTBL EQU IOCOM+12 01836000 IOCHIO EQU IOCOM+8 01837000 IOCPST EQU IOCOM+4 01838000 IOCPGCT EQU IOCOM+2 01839000 IOCVOICT EQU IOCOM 01840000 CVTLEVL EQU CVTRELNO+2 01841000 CVTNUMB EQU CVTRELNO 01842000 CVTMDL EQU CVTFIX+250 01843000 @NM00012 EQU CVTFIX+248 01844000 @NM00011 EQU CVTFIX 01845000 CVTRV482 EQU CVTXTNT2+128 01846000 CVTRV481 EQU CVTXTNT2+124 01847000 CVTRV480 EQU CVTXTNT2+120 01848000 CVTRV479 EQU CVTXTNT2+118 01849000 CVTRV478 EQU CVTXTNT2+117 01850000 CVTRV477 EQU CVTXTNT2+116 01851000 CVTRV476 EQU CVTXTNT2+115 01852000 CVTRV475 EQU CVTXTNT2+114 01853000 CVTRV474 EQU CVTRV466 01854000 CVTRV473 EQU CVTRV466 01855000 CVTRV472 EQU CVTRV466 01856000 CVTRV471 EQU CVTRV466 01857000 CVTRV470 EQU CVTRV466 01858000 CVTRV469 EQU CVTRV466 01859000 CVTRV468 EQU CVTRV466 01860000 CVTRV467 EQU CVTRV466 01861000 CVTRV465 EQU CVTRV457 01862000 CVTRV464 EQU CVTRV457 01863000 CVTRV463 EQU CVTRV457 01864000 CVTRV462 EQU CVTRV457 01865000 CVTRV461 EQU CVTRV457 01866000 CVTRV460 EQU CVTRV457 01867000 CVTRV459 EQU CVTRV457 01868000 CVTRV458 EQU CVTRV457 01869000 CVTRV456 EQU CVTXTNT2+108 01870000 CVTRV455 EQU CVTXTNT2+104 01871000 CVTRV454 EQU CVTXTNT2+100 01872000 CVTRV453 EQU CVTXTNT2+96 01873000 CVTRV452 EQU CVTXTNT2+94 01874000 CVTRV451 EQU CVTXTNT2+92 01875000 CVTRV450 EQU CVTXTNT2+90 01876000 CVTRV449 EQU CVTXTNT2+88 01877000 CVTRV448 EQU CVTXTNT2+87 01878000 CVTRV447 EQU CVTXTNT2+86 01879000 CVTRV446 EQU CVTRV438 01880000 CVTRV445 EQU CVTRV438 01881000 CVTRV444 EQU CVTRV438 01882000 CVTRV443 EQU CVTRV438 01883000 CVTRV442 EQU CVTRV438 01884000 CVTRV441 EQU CVTRV438 01885000 CVTRV440 EQU CVTRV438 01886000 CVTRV439 EQU CVTRV438 01887000 CVTRV437 EQU CVTRV429 01888000 CVTRV436 EQU CVTRV429 01889000 CVTRV435 EQU CVTRV429 01890000 CVTRV434 EQU CVTRV429 01891000 CVTRV433 EQU CVTRV429 01892000 CVTRV432 EQU CVTRV429 01893000 CVTRV431 EQU CVTRV429 01894000 CVTRV430 EQU CVTRV429 01895000 CVTRV428 EQU CVTXTNT2+80 01896000 CVTRV427 EQU CVTXTNT2+76 01897000 CVTRV426 EQU CVTXTNT2+72 01898000 CVTRV425 EQU CVTXTNT2+68 01899000 CVTATACT EQU CVTATCVT 01900000 CVTRV423 EQU CVTXTNT2+62 01901000 CVTRV422 EQU CVTXTNT2+60 01902000 CVTRV421 EQU CVTXTNT2+58 01903000 CVTRV420 EQU CVTXTNT2+56 01904000 CVTRV419 EQU CVTXTNT2+55 01905000 CVTRV418 EQU CVTXTNT2+54 01906000 CVTRV417 EQU CVTRV409 01907000 CVTRV416 EQU CVTRV409 01908000 CVTRV415 EQU CVTRV409 01909000 CVTRV414 EQU CVTRV409 01910000 CVTRV413 EQU CVTRV409 01911000 CVTRV412 EQU CVTRV409 01912000 CVTRV411 EQU CVTRV409 01913000 CVTRV410 EQU CVTRV409 01914000 CVTRV408 EQU CVTRV400 01915000 CVTRV407 EQU CVTRV400 01916000 CVTRV406 EQU CVTRV400 01917000 CVTRV405 EQU CVTRV400 01918000 CVTRV404 EQU CVTRV400 01919000 CVTRV403 EQU CVTRV400 01920000 CVTRV402 EQU CVTRV400 01921000 CVTRV401 EQU CVTRV400 01922000 CVTSKTA EQU CVTXTNT2+44 01923000 CVTRSV99 EQU CVTXTNT2+40 01924000 CVTRSV98 EQU CVTXTNT2+36 01925000 CVTRSV97 EQU CVTXTNT2+34 01926000 CVTRSV96 EQU CVTXTNT2+32 01927000 CVTOLTEP EQU CVTXTNT2+28 01928000 CVTQIDA EQU CVTQID+1 01929000 CVTRSV95 EQU CVTQID 01930000 CVTRSV94 EQU CVTXTNT2+20 01931000 CVTRSV93 EQU CVTXTNT2+16 01932000 CVTRSV92 EQU CVTXTNT2+12 01933000 CVTDEBVR EQU CVTXTNT2+8 01934000 CVTRSV91 EQU CVTXTNT2+6 01935000 CVTRSV9H EQU CVTFLGBT 01936000 CVTRSV9G EQU CVTFLGBT 01937000 CVTRSV9F EQU CVTFLGBT 01938000 CVTRSV9E EQU CVTFLGBT 01939000 CVTRSV9D EQU CVTFLGBT 01940000 CVTRSV9C EQU CVTFLGBT 01941000 CVTVME EQU CVTFLGBT 01942000 CVTNPE EQU CVTFLGBT 01943000 CVTNUCLS EQU CVTXTNT2+4 01944000 CVTDSSVA EQU CVTDSSV+1 01945000 CVTRSV89 EQU CVTDSSV 01946000 CVTRSV88 EQU CVTXTNT1+8 01947000 CVTRSV87 EQU CVTXTNT1+4 01948000 CVTFACHN EQU CVTXTNT1 01949000 CVTRV488 EQU CVTMAP+412 01950000 CVTRV487 EQU CVTMAP+408 01951000 CVTRV486 EQU CVTMAP+404 01952000 CVTRV485 EQU CVTMAP+400 01953000 CVTACTAP EQU CVTMAP+396 01954000 CVTAUTH EQU CVTMAP+392 01955000 CVTATMCA EQU CVTATMCT+1 01956000 CVTATMST EQU CVTATMCT 01957000 CVTRSV61 EQU CVTMAP+384 01958000 CVTVOLT1 EQU CVTVOLM1+1 01959000 CVTVOLI1 EQU CVTVOLF1 01960000 CVTSTOA EQU CVTMAP+376 01961000 CVTRSV58 EQU CVTMAP+374 01962000 CVTRSV57 EQU CVTMAP+372 01963000 CVTDDCE EQU CVTMAP+368 01964000 CVTPNWFR EQU CVTMAP+364 01965000 CVTSMF EQU CVTMAP+360 01966000 CVTSULK EQU CVTMAP+358 01967000 CVTSLKO EQU CVTSYSK 01968000 CVTSLKP EQU CVTSYSK 01969000 CVTSLKQ EQU CVTSYSK 01970000 CVTSLKR EQU CVTSYSK 01971000 CVTRSV56 EQU CVTSYSK 01972000 CVTRSV55 EQU CVTSYSK 01973000 CVTRSV54 EQU CVTSYSK 01974000 CVTRSV53 EQU CVTSYSK 01975000 CVTRSV52 EQU CVTA1F1 01976000 CVTRSV51 EQU CVTA1F1 01977000 CVTRSV50 EQU CVTA1F1 01978000 CVTRSV49 EQU CVTA1F1 01979000 CVTRSV48 EQU CVTA1F1 01980000 CVTRSV47 EQU CVTA1F1 01981000 CVTSRSW EQU CVTA1F1 01982000 CVTPFSW EQU CVTA1F1 01983000 CVTPCVT EQU CVTMAP+352 01984000 CVTRSV46 EQU CVTMAP+344 01985000 CVTRSV45 EQU CVTMAP+340 01986000 CVTRSV44 EQU CVTMAP+338 01987000 CVTRSV43 EQU CVTMAP+336 01988000 CVTHJESA EQU CVTHJES+1 01989000 CVTRSV42 EQU CVTHJES 01990000 CVTEXT2A EQU CVTEXT2+1 01991000 CVTRSV41 EQU CVTEXT2 01992000 CVTAPFA EQU CVTAPF+1 01993000 CVTRSV40 EQU CVTAPF 01994000 CVTRV518 EQU CVTINTLA 01995000 CVTRV517 EQU CVTERPV 01996000 CVTEORM EQU CVTMAP+312 01997000 CVTMCHPR EQU CVTMAP+308 01998000 CVTTZ EQU CVTMAP+304 01999000 CVTJEPS EQU CVTMAP+300 02000000 CVTJESCT EQU CVTMAP+296 02001000 CVTMODE EQU CVTMAP+292 02002000 CVTPTRV EQU CVTMAP+288 02003000 CVTREAL EQU CVTMAP+284 02004000 CVTRSV39 EQU CVTMAP+280 02005000 CVTRSV38 EQU CVTMAP+276 02006000 CVTDMSRA EQU CVTDMSR+1 02007000 CVTRSV37 EQU CVTDMSR 02008000 CVTQMSGA EQU CVTQMSG+1 02009000 CVTRSV36 EQU CVTQMSG 02010000 CVTAMFF EQU CVTMAP+264 02011000 CVTPURGA EQU CVTPURG+1 02012000 CVTRSV35 EQU CVTPURG 02013000 CVTCBSP EQU CVTMAP+256 02014000 CVTATERA EQU CVTATER+1 02015000 CVTSYST EQU CVTATER 02016000 CVTVOLT2 EQU CVTTAT 02017000 CVTVOLI2 EQU CVTVOLF2 02018000 CVTAQAVB EQU CVTAQAVT+1 02019000 CVTRSV34 EQU CVTTCMFG 02020000 CVTRSV33 EQU CVTTCMFG 02021000 CVTRSV32 EQU CVTTCMFG 02022000 CVTRSV31 EQU CVTTCMFG 02023000 CVTRSV30 EQU CVTTCMFG 02024000 CVTRSV29 EQU CVTTCMFG 02025000 CVTRSV28 EQU CVTTCMFG 02026000 CVTTCRDY EQU CVTTCMFG 02027000 CVTGTFA EQU CVTGTF+1 02028000 CVTRSV27 EQU CVTGTFST 02029000 CVTRNIO EQU CVTGTFST 02030000 CVTUSR EQU CVTGTFST 02031000 CVTRV318 EQU CVTFORM 02032000 CVTRV317 EQU CVTTMODE 02033000 CVTRV316 EQU CVTSTATE 02034000 CVTRV315 EQU CVTGTFS 02035000 CVTGTFAV EQU CVTGTFS 02036000 CVT0SCR1 EQU CVTMAP+232 02037000 CVTRV515 EQU CVTMAP+228 02038000 CVTRMS EQU CVTMAP+224 02039000 CVTPATCH EQU CVTMAP+220 02040000 CVTTSCE EQU CVTMAP+216 02041000 CVTLNKSC EQU CVTMAP+214 02042000 CVTQABST EQU CVTMAP+212 02043000 CVTMDLDS EQU CVTMAP+208 02044000 CVTUSER EQU CVTMAP+204 02045000 CVTABEND EQU CVTMAP+200 02046000 CVTSMCA EQU CVTMAP+196 02047000 CVTRSV18 EQU CVTMAP+192 02048000 CVTQLPAQ EQU CVTMAP+188 02049000 CVTQCDSR EQU CVTMAP+184 02050000 CVTRSV17 EQU CVTOPTB 02051000 CVTRSV16 EQU CVTOPTB 02052000 CVTFP EQU CVTOPTB 02053000 CVTAPTHR EQU CVTOPTB 02054000 CVTNLOG EQU CVTOPTB 02055000 CVTTOD EQU CVTOPTB 02056000 CVTCTIMS EQU CVTOPTB 02057000 CVTPROT EQU CVTOPTB 02058000 CVTXPFP EQU CVTOPTA 02059000 CVTASCII EQU CVTOPTA 02060000 CVTRSV13 EQU CVTOPTA 02061000 CVTRSV12 EQU CVTOPTA 02062000 CVTNIP EQU CVTOPTA 02063000 CVTDDR EQU CVTOPTA 02064000 CVTAPR EQU CVTOPTA 02065000 CVTCCH EQU CVTOPTA 02066000 CVTSNCTR EQU CVTMAP+180 02067000 CVTQMWR EQU CVTMAP+176 02068000 CVTQOCR EQU CVTMAP+172 02069000 CVT1EF00 EQU CVTMAP+168 02070000 CVTMZ00 EQU CVTMAP+164 02071000 CVTHEAD EQU CVTMAP+160 02072000 CVTRSV11 EQU CVTMAP+156 02073000 CVTMSER EQU CVTMAP+148 02074000 CVTRV516 EQU CVTIERLC 02075000 CVTILCH EQU CVTMAP+140 02076000 CVT0DS EQU CVTMAP+136 02077000 CVTFBOSV EQU CVTMAP+132 02078000 CVTNUCB EQU CVTMAP+128 02079000 CVTIOQET EQU CVTMAP+120 02080000 CVTDCBA EQU CVTMAP+117 02081000 CVTMVS2 EQU CVTDCB 02082000 CVT6DAT EQU CVTDCB 02083000 CVT4MPS EQU CVTDCB 02084000 CVTRSV09 EQU CVTDCB 02085000 CVT4MS1 EQU CVTDCB 02086000 CVT2SPS EQU CVTDCB 02087000 CVT1SSS EQU CVTDCB 02088000 CVTRSV08 EQU CVTDCB 02089000 CVTSTB EQU CVTMAP+112 02090000 CVTQTD00 EQU CVTMAP+108 02091000 CVTQTE00 EQU CVTMAP+104 02092000 CVTCUCB EQU CVTMAP+100 02093000 CVTSJQ EQU CVTMAP+96 02094000 CVTPBLDL EQU CVTMAP+92 02095000 CVTTPC EQU CVTMAP+88 02096000 CVTSVDCB EQU CVTMAP+84 02097000 CVTBRET EQU CVTMAP+82 02098000 CVTEXIT EQU CVTMAP+80 02099000 CVT0FN00 EQU CVTMAP+76 02100000 CVTDARA EQU CVTDAR+1 02101000 CVTRSV07 EQU CVTFLGS1 02102000 CVTRSV06 EQU CVTFLGS1 02103000 CVTRSV05 EQU CVTFLGS1 02104000 CVTRSV04 EQU CVTFLGS1 02105000 CVTRSV03 EQU CVTFLGS1 02106000 CVTRSV02 EQU CVTFLGS1 02107000 CVTRSV01 EQU CVTFLGS1 02108000 CVTDMPLK EQU CVTFLGS1 02109000 CVTXITP EQU CVTMAP+68 02110000 CVTZDTAB EQU CVTMAP+64 02111000 CVTMSLT EQU CVTMAP+60 02112000 CVTDATE EQU CVTMAP+56 02113000 CVTBTERM EQU CVTMAP+52 02114000 CVTSYSAD EQU CVTMAP+48 02115000 CVTXTLER EQU CVTMAP+44 02116000 CVTILK2 EQU CVTMAP+40 02117000 CVTILK1 EQU CVTMAP+36 02118000 CVTPRLTV EQU CVTMAP+32 02119000 CVTPCNVT EQU CVTMAP+28 02120000 CVT0VL00 EQU CVTMAP+24 02121000 CVTXAPG EQU CVTMAP+20 02122000 CVTBUF EQU CVTMAP+16 02123000 CVTJOB EQU CVTMAP+12 02124000 CVTLINK EQU CVTMAP+8 02125000 CVT0EF00 EQU CVTMAP+4 02126000 CVTTCBP EQU CVTMAP 02127000 CVT EQU CVTMAP 02128000 IOSEND EQU IOSB+108 02129000 IOSSKR EQU IOSEEKA+7 02130000 IOSSKH2 EQU IOSSKHH+1 02131000 IOSSKH1 EQU IOSSKHH 02132000 IOSSKCC EQU IOSCCHH 02133000 IOSSKBB EQU IOSEEKA+1 02134000 IOSSKM EQU IOSEEKA 02135000 IOSEEK EQU IOSB+92 02136000 IOSMDM EQU IOSB+91 02137000 IOSMDB EQU IOSB+90 02138000 IOSCKEY7 EQU IOSCKEY 02139000 IOSCKEY6 EQU IOSCKEY 02140000 IOSCKEY5 EQU IOSCKEY 02141000 IOSCKEY4 EQU IOSCKEY 02142000 @NM00007 EQU IOSCKEY 02143000 IOSFMSK EQU IOSB+88 02144000 IOSCUDEV EQU IOSPATH+1 02145000 @NM00006 EQU IOSCHN 02146000 IOSPATH3 EQU IOSCHN 02147000 IOSPATH2 EQU IOSCHN 02148000 IOSEXP EQU IOSCHN 02149000 IOSGDP EQU IOSCHN 02150000 IOSAFF EQU IOSB+85 02151000 IOSRSS1B EQU IOSB+84 02152000 IOSDSID EQU IOSB+80 02153000 IOSVST EQU IOSB+76 02154000 IOSRST EQU IOSB+72 02155000 IOSDIE EQU IOSB+68 02156000 IOSABN EQU IOSB+64 02157000 IOSNRM EQU IOSB+60 02158000 IOSPCI EQU IOSB+56 02159000 IOSERP EQU IOSB+52 02160000 IOSPCHN EQU IOSB+48 02161000 IOSSNS EQU IOSB+42 02162000 IOSAPMSK EQU IOSB+40 02163000 IOSRES4A EQU IOSB+36 02164000 IOSCSWRC EQU IOSCSW+5 02165000 IOSTSB EQU IOSTATUS+1 02166000 IOSTSA EQU IOSTATUS 02167000 IOSCSWCA EQU IOSCSW 02168000 IOSCC EQU @NM00005 02169000 IOSUCB EQU IOSB+16 02170000 IOSOPT2X EQU IOSOPT2 02171000 IOSHTP EQU IOSOPT2 02172000 IOSRELSE EQU IOSOPT 02173000 IOSAPR EQU IOSOPT 02174000 IOSTSLL EQU IOSOPT 02175000 IOSNERP EQU IOSOPT 02176000 IOSPSLL EQU IOSOPT 02177000 IOSQISCE EQU IOSOPT 02178000 IOSDEP EQU IOSOPT 02179000 IOSBYP EQU IOSOPT 02180000 IOSPKY7 EQU IOSPKEY 02181000 IOSPGDPX EQU IOSPKEY 02182000 IOSIDR EQU IOSPKEY 02183000 IOSLCL EQU IOSPKEY 02184000 @NM00004 EQU IOSPKEY 02185000 IOSPGAD EQU IOSB+8 02186000 IOSASID EQU IOSB+6 02187000 IOSPRLVL EQU IOSB+5 02188000 IOSDVRID EQU IOSB+4 02189000 IOSPROC EQU IOSB+3 02190000 IOSFLC7 EQU IOSFLC 02191000 IOSFLC6 EQU IOSFLC 02192000 IOSGLC5 EQU IOSFLC 02193000 IOSFLC4 EQU IOSFLC 02194000 IOSTP EQU IOSFLC 02195000 IOSCC3WE EQU IOSFLC 02196000 IOSVERIF EQU IOSDVALT 02197000 IOSDVMNT EQU IOSFLC 02198000 IOSLOG EQU IOSFLB 02199000 IOSBDCST EQU IOSFLB 02200000 IOSMSG EQU IOSFLB 02201000 IOSFLB4 EQU IOSFLB 02202000 IOSFLB3 EQU IOSFLB 02203000 IOSFLB2 EQU IOSFLB 02204000 IOSFLB1 EQU IOSFLB 02205000 IOSDIESE EQU IOSFLB 02206000 IOSIOSB EQU IOSFLA 02207000 IOSDOM EQU IOSFLA 02208000 IOSEX EQU IOSFLA 02209000 IOSSMDB EQU IOSFLA 02210000 IOSSMDA EQU IOSFLA 02211000 IOSERR EQU IOSFLA 02212000 IOSCCHN EQU IOSACHN 02213000 IOSDCHN EQU IOSACHN 02214000 @NM00003 EQU SRB+40 02215000 @NM00002 EQU SRB+38 02216000 SRBPRIOR EQU SRB+37 02217000 SRBPKF EQU SRB+36 02218000 SRBSAVE EQU SRB+32 02219000 SRBPARM EQU SRB+28 02220000 SRBRMTR EQU SRB+24 02221000 SRBEP EQU SRB+20 02222000 SRBPTCB EQU SRBFLC+4 02223000 SRBPASID EQU SRBFLC+2 02224000 SRBCPAFF EQU SRBFLC 02225000 SRBFLNK EQU SRB+4 02226000 SRBID EQU SRB 02227000 FRFOURR EQU FRPARM+13 02228000 @NM00001 EQU FRFLGS 02229000 @NM00045 EQU PSA+3668 02230000 PSASTAK EQU PSA+3072 02231000 @NM00044 EQU PSA+1040 02232000 PSAUSEND EQU PSA+1040 02233000 PSARV062 EQU PSA+1036 02234000 PSAATCVT EQU PSA+1032 02235000 PSAPCPSW EQU PSA+1024 02236000 PSAPIR2 EQU PSA+1020 02237000 PSARV059 EQU PSA+1018 02238000 PSASVC13 EQU PSA+1016 02239000 PSALSFCC EQU PSA+1012 02240000 PSASFACC EQU PSA+1008 02241000 PSASTOP EQU PSA+992 02242000 PSASTART EQU PSA+976 02243000 PSARSPSW EQU PSA+968 02244000 PSASRPSW EQU PSA+960 02245000 PSARV045 EQU PSA+892 02246000 PSARV044 EQU PSA+888 02247000 PSARV043 EQU PSA+884 02248000 PSARV042 EQU PSA+880 02249000 PSARV041 EQU PSA+876 02250000 PSARV040 EQU PSA+872 02251000 PSARV025 EQU PSA+868 02252000 PSADSSED EQU PSA+868 02253000 PSADSSPR EQU PSA+864 02254000 PSADSSFW EQU PSA+860 02255000 PSADSS14 EQU PSA+856 02256000 PSADSSPP EQU PSA+848 02257000 PSADSSRP EQU PSA+840 02258000 PSADSS05 EQU PSADSSF4 02259000 PSADSS10 EQU PSADSSF4 02260000 PSADSSVE EQU PSADSSF4 02261000 PSADSSDE EQU PSADSSF4 02262000 PSADSSC0 EQU PSADSSF4 02263000 PSADSSIE EQU PSADSSF4 02264000 PSADSS12 EQU PSADSSF4 02265000 PSADSSRC EQU PSADSSF4 02266000 PSARV057 EQU PSADSSF3 02267000 PSARV056 EQU PSADSSF3 02268000 PSARV055 EQU PSADSSF3 02269000 PSADSSMC EQU PSADSSF3 02270000 PSADSSRW EQU PSADSSF3 02271000 PSADSSNM EQU PSADSSF3 02272000 PSADSSES EQU PSADSSF3 02273000 PSADSSGP EQU PSADSSF3 02274000 PSADSSF2 EQU PSADSSFL+1 02275000 PSADSSPI EQU PSADSSF1 02276000 PSADSSOI EQU PSADSSF1 02277000 PSADSSSP EQU PSADSSF1 02278000 PSADSSTP EQU PSADSSF1 02279000 PSADSSDW EQU PSADSSF1 02280000 PSADSSDD EQU PSADSSF1 02281000 PSADSSDM EQU PSADSSF1 02282000 PSADSSMV EQU PSADSSF1 02283000 PSADSSTS EQU PSA+816 02284000 PSADSSWK EQU PSA+812 02285000 PSADSSR3 EQU PSA+808 02286000 PSADSSR2 EQU PSA+804 02287000 PSADSSRS EQU PSA+800 02288000 PSASTOR EQU PSA+796 02289000 PSACPUSA EQU PSA+794 02290000 PSAVSTAP EQU PSA+792 02291000 PSAWKVAP EQU PSA+788 02292000 PSAWKRAP EQU PSA+784 02293000 PSAMCHIC EQU PSA+783 02294000 PSARV061 EQU PSA+782 02295000 PSASYMSK EQU PSA+781 02296000 PSAMCHFL EQU PSA+780 02297000 PSACR0 EQU PSA+776 02298000 PSAPSWSV EQU PSA+768 02299000 PSALITA EQU PSA+764 02300000 PSACLHS EQU PSAHLHI 02301000 PSALKR15 EQU PSALKSA+60 02302000 PSALKR14 EQU PSALKSA+56 02303000 PSALKR13 EQU PSALKSA+52 02304000 PSALKR12 EQU PSALKSA+48 02305000 PSALKR11 EQU PSALKSA+44 02306000 PSALKR10 EQU PSALKSA+40 02307000 PSALKR9 EQU PSALKSA+36 02308000 PSALKR8 EQU PSALKSA+32 02309000 PSALKR7 EQU PSALKSA+28 02310000 PSALKR6 EQU PSALKSA+24 02311000 PSALKR5 EQU PSALKSA+20 02312000 PSALKR4 EQU PSALKSA+16 02313000 PSALKR3 EQU PSALKSA+12 02314000 PSALKR2 EQU PSALKSA+8 02315000 PSALKR1 EQU PSALKSA+4 02316000 PSALKR0 EQU PSALKSA 02317000 PSARV023 EQU PSACLHT+52 02318000 PSALOCAL EQU PSACLHT+48 02319000 PSACMSL EQU PSACLHT+44 02320000 PSAOPTL EQU PSACLHT+40 02321000 PSATPACL EQU PSACLHT+36 02322000 PSATPDNL EQU PSACLHT+32 02323000 PSATPNCL EQU PSACLHT+28 02324000 PSAIOSLL EQU PSACLHT+24 02325000 PSAIOSUL EQU PSACLHT+20 02326000 PSAIOSCL EQU PSACLHT+16 02327000 PSAIOSSL EQU PSACLHT+12 02328000 PSASALCL EQU PSACLHT+8 02329000 PSAASML EQU PSACLHT+4 02330000 PSADISPL EQU PSACLHT 02331000 PSASRSA EQU PSA+636 02332000 PSARV050 EQU PSA+634 02333000 PSADSSGO EQU PSA+633 02334000 PSARECUR EQU PSA+632 02335000 PSAHLHIS EQU PSA+628 02336000 PSAIPCSA EQU PSA+624 02337000 @NM00043 EQU PSA+621 02338000 PSAIPCDM EQU PSA+620 02339000 PSAIPCD EQU PSA+616 02340000 @NM00042 EQU PSA+613 02341000 PSAIPCRM EQU PSA+612 02342000 PSAIPCR EQU PSA+608 02343000 PSAMCHEX EQU PSA+600 02344000 PSAMPSW EQU PSA+592 02345000 PSAEXPS2 EQU PSA+584 02346000 PSAEXPS1 EQU PSA+576 02347000 PSAPIREG EQU PSA+572 02348000 PSARSREG EQU PSA+568 02349000 PSAGPREG EQU PSA+556 02350000 PSARV022 EQU PSASUP4 02351000 PSARV021 EQU PSASUP4 02352000 PSARV020 EQU PSASUP4 02353000 PSARV019 EQU PSASUP4 02354000 PSARV018 EQU PSASUP4 02355000 PSARV017 EQU PSASUP4 02356000 PSARV016 EQU PSASUP4 02357000 PSARV015 EQU PSASUP4 02358000 PSARV014 EQU PSASUP3 02359000 PSARV013 EQU PSASUP3 02360000 PSARV012 EQU PSASUP3 02361000 PSARV011 EQU PSASUP3 02362000 PSARV010 EQU PSASUP3 02363000 PSAPSREG EQU PSASUP3 02364000 PSAPI2 EQU PSASUP3 02365000 PSAIOSUP EQU PSASUP3 02366000 PSALCR EQU PSASUP2 02367000 PSARTM EQU PSASUP2 02368000 PSAACR EQU PSASUP2 02369000 PSAIPCE2 EQU PSASUP2 02370000 PSAIPCES EQU PSASUP2 02371000 PSAIPCEC EQU PSASUP2 02372000 PSAGTF EQU PSASUP2 02373000 PSAIPCRI EQU PSASUP2 02374000 PSAIPCRP EQU PSASUP1 02375000 PSAIPCDR EQU PSASUP1 02376000 PSADISP EQU PSASUP1 02377000 PSALOCK EQU PSASUP1 02378000 PSAPI EQU PSASUP1 02379000 PSAEXT EQU PSASUP1 02380000 PSASVC EQU PSASUP1 02381000 PSAIO EQU PSASUP1 02382000 PSAAOLD EQU PSA+548 02383000 PSAANEW EQU PSA+544 02384000 PSATOLD EQU PSA+540 02385000 PSATNEW EQU PSA+536 02386000 PSALCCAR EQU PSA+532 02387000 PSALCCAV EQU PSA+528 02388000 PSAPCCAR EQU PSA+524 02389000 PSAPCCAV EQU PSA+520 02390000 PSACPULA EQU PSA+518 02391000 PSACPUPA EQU PSA+516 02392000 PSAPSA EQU PSA+512 02393000 FLCHDEND EQU PSA+512 02394000 FLCCRSAV EQU FLCMCLA+280 02395000 FLCGRSAV EQU FLCMCLA+216 02396000 FLCFPSAV EQU FLCMCLA+184 02397000 FLCFLA EQU FLCMCLA+88 02398000 FLCRGNCD EQU FLCMCLA+84 02399000 FLCFSAA EQU FLCFSA+1 02400000 @NM00041 EQU FLCFSA 02401000 @NM00040 EQU FLCMCLA+72 02402000 FLCMCIC EQU FLCMCLA+64 02403000 @NM00039 EQU FLCMCLA+20 02404000 FLCIOAA EQU FLCIOA+1 02405000 @NM00038 EQU FLCIOA 02406000 @NM00037 EQU FLCMCLA+15 02407000 @NM00036 EQU FLCMCLA+14 02408000 @NM00035 EQU FLCMCLA+12 02409000 FLCLCL EQU FLCMCLA+8 02410000 FLCIOELA EQU FLCIOEL+1 02411000 @NM00034 EQU FLCIOEL 02412000 FLCCHNID EQU FLCMCLA 02413000 @NM00033 EQU PSA+160 02414000 FLCMTRCD EQU PSA+157 02415000 @NM00032 EQU PSA+156 02416000 FLCPERA EQU FLCPER+1 02417000 @NM00031 EQU FLCPER 02418000 @NM00030 EQU PSA+151 02419000 FLCPERCD EQU PSA+150 02420000 FLCMCNUM EQU PSA+149 02421000 @NM00029 EQU PSA+148 02422000 FLCTEAA EQU FLCTEA+1 02423000 @NM00028 EQU FLCTEA 02424000 PSAPIPC EQU PSAPICOD 02425000 PSAPIMC EQU PSAPICOD 02426000 PSAPIPER EQU PSAPICOD 02427000 PSARV049 EQU FLCPICOD 02428000 FLCPILCB EQU FLCPIILC 02429000 @NM00027 EQU FLCPIILC 02430000 @NM00026 EQU PSAEPPSW 02431000 FLCSVCN EQU PSAESPSW+2 02432000 FLCSILCB EQU FLCSVILC 02433000 @NM00025 EQU FLCSVILC 02434000 @NM00024 EQU PSAESPSW 02435000 FLCEICOD EQU PSAEEPSW+2 02436000 PSASPAD EQU PSAEEPSW 02437000 @NM00023 EQU PSA+128 02438000 FLCINPSW EQU PSA+120 02439000 FLCMNPSW EQU PSA+112 02440000 FLCPNPSW EQU PSA+104 02441000 FLCSNPSW EQU PSA+96 02442000 FLCENPSW EQU PSA+88 02443000 FLCTRACE EQU PSA+84 02444000 FLCTIMER EQU PSA+80 02445000 FLCCVT2 EQU PSA+76 02446000 FLCCAW EQU PSA+72 02447000 FLCCSW EQU PSA+64 02448000 FLCIOPSW EQU PSA+56 02449000 FLCMOPSW EQU PSA+48 02450000 FLCPOPSW EQU PSA+40 02451000 FLCSOPSW EQU PSA+32 02452000 FLCEOPSW EQU PSA+24 02453000 @NM00022 EQU FLCICCW2+4 02454000 FLCCVT EQU FLCICCW2 02455000 FLCICCW1 EQU FLCROPSW 02456000 FLCIPPSW EQU FLCRNPSW 02457000 * END UNREFERENCED COMPONENTS 02458000 @ENDDATA EQU * 02459000 END ICB2SIOB,(C'PLS1243',0603,75287) 02460000