TKBF TITLE 'IGTKBF -- VPSS I/O DRIVER PURGE *00001000 ' 00002000 IGTKBF CSECT , START OF CODE 00003000 * STM(R0F,R15F,R13P->I256C); /* SAVE INPUT REGISTERS */ 00004000 STM R0F,R15F,I256C(R13P) 01S0119 00005000 * RFY 01S0120 00006000 * APCODE RSTD; /* SAFE REGISTER */ 00007000 * APCODE=R15P; /* CHANGE BASE REGISTERS */ 00008000 LR APCODE,R15P 01S0121 00009000 * GEN(USING IGTKBF,APCODE) 01S0122 00010000 * NOSETS REFS(APCODE); /* TELL THE ASSEMBLER */ 00011000 USING IGTKBF,APCODE 00012000 * RFY 01S0123 00013000 * R15P UNRSTD; /* DONE WITH BASE REGISTER */ 00014000 * 01S0123 00015000 * /*****************************************************************/ 00016000 * /* */ 00017000 * /* DETERMINE IF PURGE PROCESSING REQUIRED */ 00018000 * /* */ 00019000 * /*****************************************************************/ 00020000 * 01S0124 00021000 * DO; /* START OF CODE SEGMENT */ 00022000 * 02S0124 00023000 * /***************************************************************/ 00024000 * /* */ 00025000 * /* CHECK INPUT IPIB TO DETERMINE IF ANY WORK REQUIRED. */ 00026000 * /* PROCESSING REQUIRED ONLY IF: (1) HALT REQUESTED, (2) NOT */ 00027000 * /* MEMORY PURGE, (3) IOS FOUND ACTIVE WORK (IPIBSRB^=0). IF ANY*/ 00028000 * /* OF THESE CONDITIONS FAIL, THEN RETURN TO CALLER. THIS */ 00029000 * /* PROCESSING CANNOT USE THE PL/S DYNAMIC SAVEAREA/WORKAREA */ 00030000 * /* SINCE IT DOES NOT YET EXIST. THIS IS "FAST-PATH" CODE TO */ 00031000 * /* PERFORM QUICK CHECK FOR FURTHER PURGE PROCESSING */ 00032000 * /* REQUIREMENTS. */ 00033000 * /* */ 00034000 * /***************************************************************/ 00035000 * 02S0125 00036000 * IF IPIBHALT=BOFF| /* IF QUIESCE OR */ 00037000 * IPIBMEM=BON| /* MEMORY PURGE, OR */ 00038000 * IPIBSRB=0 THEN /* NO WORK FOUND BY IOS, */ 00039000 TM IPIBMEM(R1P),B'10000000' 02S0125 00040000 BNZ @RT00125 02S0125 00041000 TM IPIBHALT(R1P),B'00000100' 02S0125 00042000 BNO @RT00125 02S0125 00043000 L @06,IPIBSRB(,R1P) 02S0125 00044000 LTR @06,@06 02S0125 00045000 BNZ @RF00125 02S0125 00046000 @RT00125 DS 0H 02S0126 00047000 * DO; /* THEN EXIT -- PURGE COMPLETE. */ 00048000 * LM(R0F,R15F,APSVPTR->I256C);/* RE-LOAD INPUT REGISTERS */ 00049000 LM R0F,R15F,I256C(APSVPTR) 02S0127 00050000 * RETURN; /* RETURN TO CALLER */ 00051000 @EL00001 DS 0H 02S0128 00052000 @EF00001 DS 0H 02S0128 00053000 @ER00001 BR @14 02S0128 00054000 * END; /* INITIAL CHECK COMPLETE */ 00055000 * END; /* PURGE PROCESSING REQUIRED */ 00056000 @RF00125 DS 0H 02S0131 00057000 * 01S0131 00058000 * /*****************************************************************/ 00059000 * /* */ 00060000 * /* IGTKBF PURGE PROCESSING REQUIRED */ 00061000 * /* */ 00062000 * /*****************************************************************/ 00063000 * 01S0131 00064000 * GEN(MODESET EXTKEY=DATAMGT) 01S0131 00065000 * NOREFS NOSETS; /* GET OUT OF KEY-0 */ 00066000 MODESET EXTKEY=DATAMGT 00067000 * RFY 01S0132 00068000 * RIPIBPTR RSTD; /* SAVE IPIB ADDRESS IN */ 00069000 * RIPIBPTR=ADDR(IPIB); /* IN NON-VOLITILE REGISTER */ 00070000 LR RIPIBPTR,R1P 01S0133 00071000 * RFY 01S0134 00072000 * IPIB BASED(RIPIBPTR); /* (REGISTER 1 DESTROYED). */ 00073000 * 01S0134 00074000 * /*****************************************************************/ 00075000 * /* */ 00076000 * /* OBTAIN AND INITIALIZE SAVEAREA/WORKAREA */ 00077000 * /* */ 00078000 * /*****************************************************************/ 00079000 * 01S0135 00080000 * DO; /* START OF CODE SEGMENT */ 00081000 * 02S0135 00082000 * /***************************************************************/ 00083000 * /* */ 00084000 * /* BUILD AND INITIALIZE A SAVEAREA/WORKAREA. ISSUE AN */ 00085000 * /* UNCONDITIONAL GETMAIN FOR THE REQUESTED SAVEAREA/WORKAREA */ 00086000 * /* SIZE. USE SP-230 (KEY-5). */ 00087000 * /* */ 00088000 * /***************************************************************/ 00089000 * 02S0136 00090000 * RFY 02S0136 00091000 * (R0F, 02S0136 00092000 * R1P) RSTD; /* REQUIRED REGISTERS */ 00093000 * R0F=(@SIZDATD+APSVOSLN) /* LENGTH (SAVEAREA + WORKAREA) */ 00094000 * |(CWORKSP*'01000000'X); /* USE SUBPOOL 230 */ 00095000 LA R0F,72 02S0137 00096000 AL R0F,@SIZDATD 02S0137 00097000 O R0F,@CF03115 02S0137 00098000 * GEN(GETMAIN R,LV=(0)); /* GET THE STORAGE */ 00099000 GETMAIN R,LV=(0) 00100000 * RFY 02S0139 00101000 * R0F RSTD; /* DONE WITH LENGTH REGISTER */ 00102000 * 02S0139 00103000 * /***************************************************************/ 00104000 * /* */ 00105000 * /* BUILD SAVEAREA. POINT TO DYNAMIC AREA. */ 00106000 * /* */ 00107000 * /***************************************************************/ 00108000 * 02S0140 00109000 * R1P->APSVPREV=APSVPTR; /* PREVIOUS SAVEAREA */ 00110000 ST APSVPTR,APSVPREV(,R1P) 02S0140 00111000 * APSVPTR=R1P; /* POINT TO NEW SAVEAREA */ 00112000 LR APSVPTR,R1P 02S0141 00113000 * RFY 02S0142 00114000 * R1P UNRSTD; /* FINISHED WITH REGISTER 1 */ 00115000 * RFY 02S0143 00116000 * APDATA RSTD; /* SET APDATA TO ADDRESS */ 00117000 * APDATA=ADDR(APSV)+APSVOSLN; /* OF PL/S DYNAMIC AREA */ 00118000 LA APDATA,72(,APSVPTR) 02S0144 00119000 * GEN(USING @DATD,APDATA) 02S0145 00120000 * NOSETS REFS(APDATA); /* (AFTER OS SAVEAREA). */ 00121000 USING @DATD,APDATA 00122000 * END; /* END OF CODE SEGMENT */ 00123000 * 01S0147 00124000 * /*****************************************************************/ 00125000 * /* */ 00126000 * /* PROVIDE RECOVERY (FRR) SUPPORT */ 00127000 * /* */ 00128000 * /*****************************************************************/ 00129000 * 01S0147 00130000 * DO; /* START OF CODE SEGMENT */ 00131000 * 02S0147 00132000 * /***************************************************************/ 00133000 * /* */ 00134000 * /* ESTABLISH RECOVERY ENVIRONMENT. THIS EXIT WILL GAIN CONTROL */ 00135000 * /* IF AN ABEND OCCURS. A DUMP IS TAKEN, THE APPROPRIATE ERROR */ 00136000 * /* FLAGS SET, AND CONTROL PASSED TO THE CLEANUP ROUTINE TO */ 00137000 * /* RELEASE RESOURCES BEFORE RETURNING TO THE CALLER. */ 00138000 * /* */ 00139000 * /***************************************************************/ 00140000 * 02S0148 00141000 * 02S0148 00142000 * /***************************************************************/ 00143000 * /* */ 00144000 * /* BUILD ESTAE/FRR EXIT PARAMETER LIST (APES). THE FRR EXIT */ 00145000 * /* WILL BRANCH TO THE ADDRESS IN APESEXRA. THIS WILL BE EITHER */ 00146000 * /* THE ADDRESS OF AN IMMEDIATE RETURN (XNOSTAE) OR MODULE */ 00147000 * /* 'IGTUKA' FOR THE SUBSYSTEM BEING PROCESSED. IT IS 'IGTUKA' */ 00148000 * /* WHEN THE APIO IS ACTUALLY BEING PROCESSED. */ 00149000 * /* */ 00150000 * /***************************************************************/ 00151000 * 02S0148 00152000 * RFY 02S0148 00153000 * (R0P, 02S0148 00154000 * R1F, 02S0148 00155000 * R14P, 02S0148 00156000 * R15F) RSTD; /* INITIALIZE APES BLOCK */ 00157000 * R0P=ADDR(APES); /* TO ZEROS */ 00158000 LA R0P,APES 02S0149 00159000 * R1F=LENGTH(APES); /* USE MVCL TO */ 00160000 LA R1F,648 02S0150 00161000 * R15F=0; /* CLEAR, SINCE FIELD */ 00162000 SLR R15F,R15F 02S0151 00163000 * MVCL(R0P,R14P); /* MORE THAN 256 BYTES LONG */ 00164000 MVCL R0P,R14P 02S0152 00165000 * RFY 02S0153 00166000 * (R0P, 02S0153 00167000 * R1F, 02S0153 00168000 * R14P, 02S0153 00169000 * R15F) UNRSTD; /* FINISHED WITH MVCL REGS */ 00170000 * APESID=APESIDC; /* IN-CORE ID */ 00171000 MVC APESID(4),@CC02952 02S0154 00172000 * APESADDR=ADDR(APES); /* ESTAE/SETFRR PARM VALUE */ 00173000 LA @10,APES 02S0155 00174000 ST @10,APESADDR 02S0155 00175000 * APESAPMV=ADDR(CMBRXZZZ); /* MESSAGE INDEX VALUES */ 00176000 LA @10,CMBRXZZZ 02S0156 00177000 ST @10,APESAPMV 02S0156 00178000 * APESFREC=BON; /* RECORD ON LOGREC */ 00179000 * APESFSDP=BON; /* SDUMP ON ERROR */ 00180000 OI APESFREC,B'01100000' 02S0158 00181000 * APESMXCD=CERRN99; /* NUMBER OF CMBRXZZZ ENTRIES */ 00182000 MVI APESMXCD,X'02' 02S0159 00183000 * APESMOD='IGTKBF '; /* MODULE IN CONTROL */ 00184000 MVC APESMOD(8),@CC03019 02S0160 00185000 * APESPROC='IGTKBF '; /* CSECT IN CONTROL */ 00186000 MVC APESPROC(8),@CC03019 02S0161 00187000 * APESFRR=' '; /* NO FRR ID */ 00188000 MVC APESFRR(8),@CC03020 02S0162 00189000 * APESREGP=ADDR(APESREGZ); /* DEFAULT REGISTER SAVEAREA */ 00190000 LA @10,APESREGZ 02S0163 00191000 ST @10,APESREGP 02S0163 00192000 * RFY 02S0164 00193000 * (R15P) RSTD; /* SET REGISTER 15 TO */ 00194000 * R15P=ADDR(EXIT); /* BACKOUT ROUTINE */ 00195000 LA R15P,EXIT 02S0165 00196000 * STM(R0F,R15F,APESREGZ); /* SAVE REGISTERS FOR RETRY */ 00197000 STM R0F,R15F,APESREGZ 02S0166 00198000 * RFY 02S0167 00199000 * R15P UNRSTD; /* FINISHED WITH 15 */ 00200000 * APESCODE=CERRN99; /* 'UNKNOWN' ERROR */ 00201000 MVI APESCODE,X'02' 02S0168 00202000 * CALL GETLLCK; /* GET LOCAL LOCK & ISSUE SETFRR */ 00203000 BAL @14,GETLLCK 02S0169 00204000 * END; /* RECOVERY ENVIRONMENT SET */ 00205000 * 01S0171 00206000 * /*****************************************************************/ 00207000 * /* */ 00208000 * /* FREE RESOURCES FOR PURGED VPSS I/O REQUESTS */ 00209000 * /* */ 00210000 * /*****************************************************************/ 00211000 * 01S0171 00212000 * DO; /* START OF CODE SEGMENT */ 00213000 * 02S0171 00214000 * /***************************************************************/ 00215000 * /* */ 00216000 * /* CALL IGTKBC TO FREE THE RESOURCES ASSOCIATED WITH THE 3838 */ 00217000 * /* SUBSYSTEM IOSB. DO NOT POST/RESUME THE USER. */ 00218000 * /* */ 00219000 * /***************************************************************/ 00220000 * 02S0172 00221000 * DIPIBSRB=IPIBSRB; /* FIRST SRB/IOSB ENTRY */ 00222000 L @10,IPIBSRB(,RIPIBPTR) 02S0172 00223000 ST @10,DIPIBSRB 02S0172 00224000 * GEN(MODESET EXTKEY=ZERO) 02S0173 00225000 * NOREFS NOSETS; /* IPIB KEY */ 00226000 MODESET EXTKEY=ZERO 00227000 * IPIBSRB=0; /* ZERO CHAIN */ 00228000 SLR @10,@10 02S0174 00229000 ST @10,IPIBSRB(,RIPIBPTR) 02S0174 00230000 * GEN(MODESET EXTKEY=DATAMGT) 02S0175 00231000 * NOREFS NOSETS; /* RESUME STANDARD PROCESSING KEY*/ 00232000 MODESET EXTKEY=DATAMGT 00233000 * DRETRY(01)=APESRTRY; /* SAVE CURRENT RETRY POINT */ 00234000 L @10,APESREGP 02S0176 00235000 L @10,APESRTRY(,@10) 02S0176 00236000 ST @10,DRETRY 02S0176 00237000 * DRETRY(02)=APESEXRA; /* SAVE CURRENT FRR EXIT POINT */ 00238000 L @10,APESEXRA 02S0177 00239000 ST @10,DRETRY+4 02S0177 00240000 * DO WHILE(DIPIBSRB^=0); /* PROCESS ALL SRB/IOSB ENTRIES */ 00241000 B @DE00178 02S0178 00242000 @DL00178 DS 0H 02S0179 00243000 * RFY 02S0179 00244000 * (R0P, 02S0179 00245000 * R1P) RSTD; /* IGTKBC INTERFACE REGISTERS */ 00246000 * R1P=DIPIBSRB->SRBPARM; /* POINT TO IOSB */ 00247000 L @10,DIPIBSRB 02S0180 00248000 L R1P,SRBPARM(,@10) 02S0180 00249000 * RFY 02S0181 00250000 * APIO BASED(R1P); /* (IOSB FIRST IN APIO) */ 00251000 * DIPIBSRB=DIPIBSRB->SRBFLNK; /* KEEP NEXT POINTER */ 00252000 L @10,SRBFLNK(,@10) 02S0182 00253000 ST @10,DIPIBSRB 02S0182 00254000 * R0P=-ADDR(APIOSRB); /* SRB ADDRESS (COMPLEMENTED 00255000 * MEANS LOCAL LOCK OWNED) */ 00256000 LA R0P,APIOSRB(,R1P) 02S0183 00257000 LCR R0P,R0P 02S0183 00258000 * APCTPTR=APIOAPCT; /* ESTABLISH APCT ADDRESS */ 00259000 L APCTPTR,APIOAPCT(,R1P) 02S0184 00260000 * APESREGC=APCTPTR; /* IGTUKA REQUIRES APCT ADDRESS */ 00261000 L @10,APESREGP 02S0185 00262000 ST APCTPTR,APESREGC(,@10) 02S0185 00263000 * APESRTRY=ADDR(PURGE1); /* RETRY POINT (TRY NEXT APIO) */ 00264000 LA @15,PURGE1 02S0186 00265000 ST @15,APESRTRY(,@10) 02S0186 00266000 * APESEXRA=APCTZUKA; /* ESTAE EXIT ADDRESS */ 00267000 L @10,APCTZUKA(,APCTPTR) 02S0187 00268000 ST @10,APESEXRA 02S0187 00269000 * APESMOD='IGTKBC '; /* MODULE IN CONTROL */ 00270000 MVC APESMOD(8),@CC03025 02S0188 00271000 * APESPROC='IGTKBC '; /* CSECT IN CONTROL */ 00272000 MVC APESPROC(8),@CC03025 02S0189 00273000 * APESCODE=CERRN01; /* ERROR CODE -- BAD APIO */ 00274000 MVI APESCODE,X'01' 02S0190 00275000 * APIORET=BON; /* IGTKBC RETURN WANTED */ 00276000 OI APIORET(R1P),B'00100000' 02S0191 00277000 * GEN(MODESET EXTKEY=ZERO) 02S0192 00278000 * NOREFS NOSETS; /* IGTKBC REQUIRES KEY 0 */ 00279000 MODESET EXTKEY=ZERO 00280000 * CALL APCVZKBC; /* FREE THE RESOURCES */ 00281000 L @15,APCTZKBC(,APCTPTR) 02S0193 00282000 BALR @14,@15 02S0193 00283000 * GEN(MODESET EXTKEY=DATAMGT) 02S0194 00284000 * NOREFS NOSETS; /* RESUME STANDARD KEY */ 00285000 MODESET EXTKEY=DATAMGT 00286000 * RFY 02S0195 00287000 * APIO; /* DONE WITH APIO */ 00288000 * RFY 02S0196 00289000 * (R0P, 02S0196 00290000 * R1P) UNRSTD; /* DONE WITH INTERFACE REGISTERS */ 00291000 *PURGE1: /* RETRY POINT IF IGTKBC FAILS */ 00292000 * DO; /* ENTRY FROM ESTAE/FRR RETRY */ 00293000 * 02S0197 00294000 PURGE1 DS 0H 02S0198 00295000 * /***********************************************************/ 00296000 * /* */ 00297000 * /* ENTRY FROM ESTAE/FRR RETRY (IGTUKA). RETRY DOES NOT */ 00298000 * /* INSURE REGISTERS 0-5, 8-11, 14-15 VALID SINCE NOT SAVED */ 00299000 * /* IN APESREGS. ISSUE DUMMY RESTRICT TO WIPE PL/S */ 00300000 * /* OPTIMIZATION MEMORY OF CURRENT REGISTER VALUES */ 00301000 * /* */ 00302000 * /***********************************************************/ 00303000 * 02S0198 00304000 * RFY 02S0198 00305000 * (R0RSTD, 02S0198 00306000 * R1RSTD, 02S0198 00307000 * R2RSTD, 02S0198 00308000 * R3RSTD, 02S0198 00309000 * R4RSTD, 02S0198 00310000 * R5RSTD, /* 6-7 BASES */ 00311000 * R8RSTD, 02S0198 00312000 * R9RSTD, 02S0198 00313000 * R10RSTD, 02S0198 00314000 * R11RSTD, /* 12-13 APCT/APSV PTRS */ 00315000 * R14RSTD, 02S0198 00316000 * R15RSTD) RSTD; /* KEEP PL/S FROM CARRYING DATA */ 00317000 * GEN(MODESET EXTKEY=DATAMGT);/* SWITCH TO STANDARD KEY (5) */ 00318000 MODESET EXTKEY=DATAMGT 00319000 * RFY 02S0200 00320000 * (R0RSTD, 02S0200 00321000 * R1RSTD, 02S0200 00322000 * R2RSTD, 02S0200 00323000 * R3RSTD, 02S0200 00324000 * R4RSTD, 02S0200 00325000 * R5RSTD, /* 6-7 BASES */ 00326000 * R8RSTD, 02S0200 00327000 * R9RSTD, 02S0200 00328000 * R10RSTD, 02S0200 00329000 * R11RSTD, /* 12-13 APCT/APSV PTRS */ 00330000 * R14RSTD, 02S0200 00331000 * R15RSTD) UNRSTD; /* ALLOW PL/S TO USE REGS AGAIN */ 00332000 * END; /* RETRY ENVIRONMENT SET */ 00333000 * APESEXRA=DRETRY(02); /* RESET EXIT ADDRESS */ 00334000 L @10,DRETRY+4 02S0202 00335000 ST @10,APESEXRA 02S0202 00336000 * APESRTRY=DRETRY(01); /* RESET RETRY ADDRESS */ 00337000 L @10,DRETRY 02S0203 00338000 L @01,APESREGP 02S0203 00339000 ST @10,APESRTRY(,@01) 02S0203 00340000 * APESMOD='IGTKBF '; /* MODULE IN CONTROL */ 00341000 MVC APESMOD(8),@CC03019 02S0204 00342000 * APESPROC='IGTKBF '; /* CSECT IN CONTROL */ 00343000 MVC APESPROC(8),@CC03019 02S0205 00344000 * DO; /* ERROR RECOVERY COMPLETE */ 00345000 * APESFPRV=BOFF; /* RESET RECURSION FLAG. */ 00346000 NI APESFPRV,B'10111111' 02S0207 00347000 * APESCODE=CERRN99; /* RESET ERROR CODE */ 00348000 MVI APESCODE,X'02' 02S0208 00349000 * APESFSDP=BON; /* RESET DUMP/LOG FLAGS */ 00350000 * APESFREC=BON; /* TO THEIR NORMAL VALUES */ 00351000 OI APESFSDP,B'01100000' 02S0210 00352000 * END; /* ALL INDICATORS RESET */ 00353000 * END; /* CONTINUE LOOP */ 00354000 @DE00178 L @10,DIPIBSRB 02S0212 00355000 LTR @10,@10 02S0212 00356000 BNZ @DL00178 02S0212 00357000 * END; /* APIO RESOURCES FREED */ 00358000 * 01S0214 00359000 * /*****************************************************************/ 00360000 * /* */ 00361000 * /* PROCESSING COMPLETE. CANCEL RECOVERY ENVIRONMENT. */ 00362000 * /* */ 00363000 * /*****************************************************************/ 00364000 * 01S0214 00365000 *EXIT: /* RETRY POINT */ 00366000 * DO; /* ENTRY FROM ESTAE/FRR RETRY */ 00367000 * 01S0214 00368000 EXIT DS 0H 01S0215 00369000 * /***************************************************************/ 00370000 * /* */ 00371000 * /* ENTRY FROM ESTAE/FRR RETRY (IGTUKA). RETRY DOES NOT INSURE */ 00372000 * /* REGISTERS 0-5, 8-11, 14-15 VALID SINCE NOT SAVED IN */ 00373000 * /* APESREGS. ISSUE DUMMY RESTRICT TO WIPE PL/S OPTIMIZATION */ 00374000 * /* MEMORY OF CURRENT REGISTER VALUES */ 00375000 * /* */ 00376000 * /***************************************************************/ 00377000 * 01S0215 00378000 * RFY 01S0215 00379000 * (R0RSTD, 01S0215 00380000 * R1RSTD, 01S0215 00381000 * R2RSTD, 01S0215 00382000 * R3RSTD, 01S0215 00383000 * R4RSTD, 01S0215 00384000 * R5RSTD, /* 6-7 BASES */ 00385000 * R8RSTD, 01S0215 00386000 * R9RSTD, 01S0215 00387000 * R10RSTD, 01S0215 00388000 * R11RSTD, /* 12-13 APCT/APSV PTRS */ 00389000 * R14RSTD, 01S0215 00390000 * R15RSTD) RSTD; /* KEEP PL/S FROM CARRYING DATA */ 00391000 * GEN(MODESET EXTKEY=DATAMGT); /* SWITCH TO STANDARD KEY (5) */ 00392000 MODESET EXTKEY=DATAMGT 00393000 * RFY 01S0217 00394000 * (R0RSTD, 01S0217 00395000 * R1RSTD, 01S0217 00396000 * R2RSTD, 01S0217 00397000 * R3RSTD, 01S0217 00398000 * R4RSTD, 01S0217 00399000 * R5RSTD, /* 6-7 BASES */ 00400000 * R8RSTD, 01S0217 00401000 * R9RSTD, 01S0217 00402000 * R10RSTD, 01S0217 00403000 * R11RSTD, /* 12-13 APCT/APSV PTRS */ 00404000 * R14RSTD, 01S0217 00405000 * R15RSTD) UNRSTD; /* ALLOW PL/S TO USE REGS AGAIN */ 00406000 * END; /* RETRY ENVIRONMENT SET */ 00407000 * 01S0219 00408000 * /*****************************************************************/ 00409000 * /* */ 00410000 * /* CANCEL RECOVERY SUPPORT */ 00411000 * /* */ 00412000 * /*****************************************************************/ 00413000 * 01S0219 00414000 * DO; /* START OF CODE SEGMENT */ 00415000 * 02S0219 00416000 * /***************************************************************/ 00417000 * /* */ 00418000 * /* CANCEL THE RECOVERY ENVIRONMENT AND RELEASE THE LOCAL LOCK. */ 00419000 * /* ALL PROCESSING NOW COMPLETE. */ 00420000 * /* */ 00421000 * /***************************************************************/ 00422000 * 02S0220 00423000 * CALL FREELLCK; /* FREE THE LOCAL LOCK */ 00424000 BAL @14,FREELLCK 02S0220 00425000 * END; /* RECOVERY ENVIRONMENT CANCELLED*/ 00426000 * 01S0222 00427000 * /*****************************************************************/ 00428000 * /* */ 00429000 * /* FREE SAVEAREA/WORKAREA */ 00430000 * /* */ 00431000 * /*****************************************************************/ 00432000 * 01S0222 00433000 * DO; /* START OF CODE SEGMENT */ 00434000 * 02S0222 00435000 * /***************************************************************/ 00436000 * /* */ 00437000 * /* FREE THE ACQUIRED PL/S SAVEAREA/WORKAREA. RESET REGISTER 13 */ 00438000 * /* TO THE ADDRESS OF THE INPUT SAVEAREA . */ 00439000 * /* */ 00440000 * /***************************************************************/ 00441000 * 02S0223 00442000 * RFY 02S0223 00443000 * (R0F, 02S0223 00444000 * R1P) RSTD; /* REQUIRED REGISTERS */ 00445000 * R0F=(@SIZDATD+APSVOSLN) /* LENGTH (SAVEAREA + WORKAREA) */ 00446000 * |(CWORKSP*'01000000'X); /* USE SUBPOOL 230 */ 00447000 LA R0F,72 02S0224 00448000 AL R0F,@SIZDATD 02S0224 00449000 O R0F,@CF03115 02S0224 00450000 * R1P=APSVPTR; /* ADDRESS OF ACQUIRED AREA */ 00451000 LR R1P,APSVPTR 02S0225 00452000 * APSVPTR=APSVPTR->APSVPREV; /* RESTORE INPUT REGISTER 13 */ 00453000 L APSVPTR,APSVPREV(,APSVPTR) 02S0226 00454000 * GEN(FREEMAIN R,LV=(0),A=(1)); /* FREE ACQUIRED STORAGE */ 00455000 FREEMAIN R,LV=(0),A=(1) 00456000 * RFY 02S0228 00457000 * (R0F, 02S0228 00458000 * R1P) UNRSTD; /* DONE WITH REGISTERS */ 00459000 * END; /* STORAGE RELEASED */ 00460000 * GEN(MODESET EXTKEY=ZERO) 01S0230 00461000 * NOREFS NOSETS; /* RESUME INPUT KEY (0) */ 00462000 MODESET EXTKEY=ZERO 00463000 * LM(R0F,R15F,APSVPTR->I256C); /* RELOAD INPUT REGISTERS */ 00464000 LM R0F,R15F,I256C(APSVPTR) 01S0231 00465000 * GEN(BR R14P) 01S0232 00466000 * REFS(R14P) NOSETS NOSEQFLOW FLOWS(*);/* RETURN TO CALLER */ 00467000 BR R14P 00468000 EJECT 00469000 * 01S0233 00470000 * /*****************************************************************/ 00471000 * /* */ 00472000 * /* INTERNAL SUBROUTINES */ 00473000 * /* */ 00474000 * /*****************************************************************/ 00475000 * 01S0233 00476000 *GETLLCK: /* GET THE LOCAL LOCK AND */ 00477000 * PROC OPTIONS(NOSAVEAREA); /* ESTABLISH FRR ENVIRONMENT */ 00478000 * 02S0233 00479000 GETLLCK STM @14,@12,12(@13) 02S0233 00480000 * /*****************************************************************/ 00481000 * /* */ 00482000 * /* GET THE LOCAL LOCK. THEN ISSUE A SETFRR TO PROVIDE RECOVERY */ 00483000 * /* SUPPORT. THE SAME PARAMETERS AS AVAILABLE TO AN ESTAE (IF ANY)*/ 00484000 * /* ARE PASSED ('APES' BLOCK) */ 00485000 * /* */ 00486000 * /*****************************************************************/ 00487000 * 02S0234 00488000 * 02S0234 00489000 * /*****************************************************************/ 00490000 * /* */ 00491000 * /* GET THE LOCAL LOCK */ 00492000 * /* */ 00493000 * /*****************************************************************/ 00494000 * 02S0234 00495000 * STM(R11F,R13F,DSUPVSVE); /* SAVE DESTROYED REGISTERS */ 00496000 STM R11F,R13F,DSUPVSVE 02S0234 00497000 * GEN REFS(PSALITA,FLC) SETS(R11F,R12F,R13F,R14F); 02S0235 00498000 * /* 00499000 MODESET EXTKEY=ZERO SETLOCK REQUIRES KEY-0 00500000 SETLOCK OBTAIN, ACQUIRE THE *00501000 TYPE=LOCAL, * LOCAL LOCK *00502000 MODE=UNCOND, * UNCONDITIONALLY. *00503000 RELATED=(FREELLCK,APESFLLK) * R13 HAS RETURN CODE 00504000 MODESET EXTKEY=DATAMGT RESUME STANDARD KEY 00505000 * LM(R11F,R13F,DSUPVSVE); /* RELOAD DESTROYED REGISTERS */ 00506000 LM R11F,R13F,DSUPVSVE 02S0236 00507000 * APESFLLK=BON; /* SHOW LOCAL LOCK OWNED */ 00508000 * 02S0237 00509000 OI APESFLLK,B'00100000' 02S0237 00510000 * /*****************************************************************/ 00511000 * /* */ 00512000 * /* ISSUE SETFRR TO COVER THE PROCESSING. PARAMETER LIST IS 'APES'*/ 00513000 * /* BLOCK. THE EXIT ROUTINE IS 'XERR' WHICH BRANCHES TO THE */ 00514000 * /* ADDRESS CONTAINED IN 'APESEXRA' (THE TRUE EXIT ROUTINE). THIS */ 00515000 * /* FIELD CONTAINS EITHER THE ADDRESS OF 'XNOSTAE' OF 'IGTUKA' FOR*/ 00516000 * /* THE APPROPRIATE 3838 SUBSYSTEM. */ 00517000 * /* */ 00518000 * /*****************************************************************/ 00519000 * 02S0238 00520000 * APESEXRA=ADDR(XNOSTAE); /* 'CONTINUE ABEND' EXIT */ 00521000 LA @10,XNOSTAE 02S0238 00522000 ST @10,APESEXRA 02S0238 00523000 * RFY 02S0239 00524000 * R15P RSTD; /* SETFRR SETS TO PARM LIST */ 00525000 * GEN REFS(PSA,PSACSTK,PSALSFCC,CXERR,FRRSFRRA,FRRSENTR,FRRSPARM, 00526000 * FRRSCURR,FRRSLAST,FRRS) SETS(R14F,R15F,R15P) SEQFLOW FLOWS(XERR 00527000 * ,XNOSTAE); 02S0240 00528000 * /* SHOW ERROR FLOW 00529000 MODESET EXTKEY=ZERO SETFRR REQUIRES KEY-0 00530000 SETFRR A,FRRAD=CXERR, 'XERR' IS EXIT ROUTINE *00531000 PARMAD=(R15P), * SAVE @ 6-WORD PARM FIELD HERE *00532000 CLEAR=NO, * DO NOT CLEAR PARM FIELD *00533000 WRKREGS=(R14F,R15F), * WORK REGISTERS *00534000 RELATED=(FREELLCK,APES) * APES IS INPUT 00535000 * R15P->I031P=ADDR(APES); /* 1ST WORD OF PARM LIST IS 02S0241 00536000 * ADDRESS OF 'APES' */ 00537000 LA @14,APES 02S0241 00538000 ST @14,I031P(,R15P) 02S0241 00539000 * RFY 02S0242 00540000 * R15P UNRSTD; /* SETFRR PARM FIELD SET */ 00541000 * GEN(MODESET EXTKEY=DATAMGT) 02S0243 00542000 * NOREFS NOSETS; /* RESUME STANDARD KEY */ 00543000 MODESET EXTKEY=DATAMGT 00544000 * APESFFRR=BON; /* SHOW SETFRR ISSUED */ 00545000 * 02S0244 00546000 OI APESFFRR,B'10000000' 02S0244 00547000 * /*****************************************************************/ 00548000 * /* */ 00549000 * /* PROCESSING COMPLETE. RETURN TO CALLER */ 00550000 * /* */ 00551000 * /*****************************************************************/ 00552000 * 02S0245 00553000 * RETURN; /* RETURN TO CALLER */ 00554000 @EL00002 DS 0H 02S0245 00555000 @EF00002 DS 0H 02S0245 00556000 @ER00002 LM @14,@12,12(@13) 02S0245 00557000 BR @14 02S0245 00558000 *XERR: 02S0246 00559000 * ; 02S0246 00560000 * 02S0246 00561000 XERR DS 0H 02S0247 00562000 * /*****************************************************************/ 00563000 * /* */ 00564000 * /* SETFRR EXIT ROUTINE (DEFINED TO SETFRR MACRO). LOAD 'APESEXRA'*/ 00565000 * /* ADDRESS (TRUE EXIT ROUTINE) AND GO TO IT WITHOUT CHANGING ANY */ 00566000 * /* OTHER REGISTERS. */ 00567000 * /* */ 00568000 * /*****************************************************************/ 00569000 * 02S0247 00570000 * GEN REFS(R1P,SDWAPARM,SDWA,APESEXRA,APES) SETS(R15P) FLOWS(XNOSTAE, 00571000 * APCVZUKA); 02S0247 00572000 * /* 00573000 PUSH USING SAVE USING STATUS 00574000 DROP , REGISTERS UNPREDICATBLE 00575000 L R15P,SDWAPARM-SDWA(,R1P) POINT TO 6-WORD RECOVERY AREA 00576000 L R15P,0(,R15P) FIRST WORD IS ADDRESS OF APES 00577000 L R15P,APESEXRA-APES(,R15P) TRUE EXIT ROUTINE ADDRESS 00578000 BR R15P GO TO 'XNOSTAE' OR 'IGTUKA' 00579000 POP USING RESTORE USING STATUS 00580000 *XNOSTAE: 02S0248 00581000 * PROC /* 'IGTUKA' NOT ESTABLISHED */ 00582000 * OPTIONS(NOSAVE,NOSAVEAREA); /* NO R13 SAVEAREA (FRR) */ 00583000 * 02S0248 00584000 B @PB00003 02S0248 00585000 XNOSTAE DS 0H 02S0249 00586000 * /*****************************************************************/ 00587000 * /* */ 00588000 * /* CANNOT ASSOCIATE ERROR WITH PARTICULAR 3838 SUBSYSTEM. THIS */ 00589000 * /* EXIT WILL RETURN IMMEDIATELY TO PERCOLATE THE ERROR TO THE */ 00590000 * /* NEXT HIGHER SETFRR/ESTAE. */ 00591000 * /* */ 00592000 * /*****************************************************************/ 00593000 * 02S0249 00594000 * RETURN CODE(0); /* RETURN TO CONTINUE THE ABEND */ 00595000 SLR @15,@15 02S0249 00596000 @EL00003 DS 0H 02S0249 00597000 @EF00003 DS 0H 02S0249 00598000 @ER00003 BR @14 02S0249 00599000 * END XNOSTAE; /* END OF DUMMY SETFRR EXIT */ 00600000 * END GETLLCK; /* END OF SUBROUTINE */ 00601000 B @EL00002 02S0251 00602000 EJECT 00603000 *FREELLCK: /* RELEASE THE LOCAL LOCK */ 00604000 * PROC OPTIONS(NOSAVEAREA); /* CANCEL THE FRR ENVIRONMENT */ 00605000 * 02S0252 00606000 FREELLCK STM @14,@12,12(@13) 02S0252 00607000 * /*****************************************************************/ 00608000 * /* */ 00609000 * /* CANCEL THE CURRENT FRR (SET BY GETLLCK). THEN RELEASE THE */ 00610000 * /* LOCAL LOCK. */ 00611000 * /* */ 00612000 * /*****************************************************************/ 00613000 * 02S0253 00614000 * 02S0253 00615000 * /*****************************************************************/ 00616000 * /* */ 00617000 * /* CANCEL THE RECOVERY ENVIRONMENT */ 00618000 * /* */ 00619000 * /*****************************************************************/ 00620000 * 02S0253 00621000 * IF APESFFRR=BON THEN /* IF SETFRR ISSUED, */ 00622000 TM APESFFRR,B'10000000' 02S0253 00623000 BNO @RF00253 02S0253 00624000 * DO; /* THEN CANCEL IT. */ 00625000 * APESFFRR=BOFF; /* SHOW NOT IN FRR */ 00626000 NI APESFFRR,B'01111111' 02S0255 00627000 * GEN REFS(PSA,PSACSTK,FRRS,FRRSCURR,FRRSEMP,FRRSELEN,FRRSCURR) 00628000 * SETS(R14F,R15F); 02S0256 00629000 * /* 00630000 MODESET EXTKEY=ZERO SETFRR REQUIRES KEY-0 00631000 SETFRR D, CANCEL THE CURRENT ENTRY *00632000 WRKREGS=(R14F,R15F), * WORK REGISTERS *00633000 RELATED=(GETLLCK,APES) * APES WAS INPUT 00634000 MODESET EXTKEY=DATAMGT RESUME STANDARD KEY 00635000 * END; /* FRR CANCELLED */ 00636000 * 02S0257 00637000 * /*****************************************************************/ 00638000 * /* */ 00639000 * /* RELEASE THE LOCAL LOCK */ 00640000 * /* */ 00641000 * /*****************************************************************/ 00642000 * 02S0258 00643000 * IF APESFLLK=BON THEN /* IF LOCAL LOCK OWNED, */ 00644000 @RF00253 TM APESFLLK,B'00100000' 02S0258 00645000 BNO @RF00258 02S0258 00646000 * DO; /* THEN RELEASE IT. */ 00647000 * STM(R11F,R13F,DSUPVSVE); /* SAVE DESTROYED REGISTERS */ 00648000 STM R11F,R13F,DSUPVSVE 02S0260 00649000 * GEN REFS(PSALITA,FLC) SETS(R11F,R12F,R13F,R14F); 02S0261 00650000 * /* 00651000 MODESET EXTKEY=ZERO SETLOCK REQUIRES KEY-0 00652000 SETLOCK RELEASE, RELEASE THE *00653000 TYPE=LOCAL, * LOCAL LOCK *00654000 RELATED=(GETLLCK,APESFLLK) * R13 HAS RETURN CODE 00655000 MODESET EXTKEY=DATAMGT RESUME STANDARD KEY 00656000 * LM(R11F,R13F,DSUPVSVE); /* RESTORE DESTROYED REGISTERS */ 00657000 LM R11F,R13F,DSUPVSVE 02S0262 00658000 * APESFLLK=BOFF; /* SHOW LOCK NOT OWNED */ 00659000 NI APESFLLK,B'11011111' 02S0263 00660000 * END; /* LOCK RELEASED */ 00661000 * 02S0264 00662000 * /*****************************************************************/ 00663000 * /* */ 00664000 * /* PROCESSING COMPLETE. RETURN TO THE CALLER. */ 00665000 * /* */ 00666000 * /*****************************************************************/ 00667000 * 02S0265 00668000 * RETURN; /* RETURN TO THE CALLER */ 00669000 @EL00004 DS 0H 02S0265 00670000 @EF00004 DS 0H 02S0265 00671000 @ER00004 LM @14,@12,12(@13) 02S0265 00672000 BR @14 02S0265 00673000 * END FREELLCK; /* END OF SUBROUTINE */ 00674000 B @EL00004 02S0266 00675000 EJECT 00676000 * /* IGTXEPLG */ 00677000 * 01S0267 00678000 * /*****************************************************************/ 00679000 * /* */ 00680000 * /* SYSTEM DECLARES */ 00681000 * /* */ 00682000 * /*****************************************************************/ 00683000 * 01S0267 00684000 * DECLARE /* COMMON VARIABLES */ 00685000 * I256C CHAR(256) BASED, 01S0267 00686000 * I031F FIXED(31) BASED, 01S0267 00687000 * I031P PTR(31) BASED, 01S0267 00688000 * I015F FIXED(15) BASED, 01S0267 00689000 * I015P PTR(15) BASED, 01S0267 00690000 * I008P PTR(8) BASED, 01S0267 00691000 * I001C CHAR(1) BASED; 01S0267 00692000 * 01S0268 00693000 * /*****************************************************************/ 00694000 * /* */ 00695000 * /* MODULE PATCH AREA */ 00696000 * /* */ 00697000 * /*****************************************************************/ 00698000 * 01S0268 00699000 * DCL 01S0268 00700000 * APPATCH CHAR(*) INT STATIC LOCAL GEND; 01S0268 00701000 * GENERATE DATA DEFS(APPATCH); 01S0269 00702000 * 01S0270 00703000 * /*****************************************************************/ 00704000 * /* */ 00705000 * /* GENERAL REGISTER DECLARES */ 00706000 * /* */ 00707000 * /*****************************************************************/ 00708000 * 01S0270 00709000 * DCL 01S0270 00710000 * R0F FIXED(31) REG(0), 01S0270 00711000 * R0P PTR(24) REG(0), 01S0270 00712000 * R0RSTD PTR(31) REG(0), 01S0270 00713000 * R1F FIXED(31) REG(1), 01S0270 00714000 * R1P PTR(24) REG(1), 01S0270 00715000 * R1RSTD PTR(31) REG(1), 01S0270 00716000 * R2F FIXED(31) REG(2), 01S0270 00717000 * R2P PTR(24) REG(2), 01S0270 00718000 * R2RSTD PTR(31) REG(2), 01S0270 00719000 * R3F FIXED(31) REG(3), 01S0270 00720000 * R3P PTR(24) REG(3), 01S0270 00721000 * R3RSTD PTR(31) REG(3), 01S0270 00722000 * R4F FIXED(31) REG(4), 01S0270 00723000 * R4P PTR(24) REG(4), 01S0270 00724000 * R4RSTD PTR(31) REG(4), 01S0270 00725000 * R5F FIXED(31) REG(5), 01S0270 00726000 * R5P PTR(24) REG(5), 01S0270 00727000 * R5RSTD PTR(31) REG(5), 01S0270 00728000 * R6F FIXED(31) REG(6), 01S0270 00729000 * R6P PTR(24) REG(6), 01S0270 00730000 * R6RSTD PTR(31) REG(6), 01S0270 00731000 * R7F FIXED(31) REG(7), 01S0270 00732000 * R7P PTR(24) REG(7), 01S0270 00733000 * R7RSTD PTR(31) REG(7), 01S0270 00734000 * R8F FIXED(31) REG(8), 01S0270 00735000 * R8P PTR(24) REG(8), 01S0270 00736000 * R8RSTD PTR(31) REG(8), 01S0270 00737000 * R9F FIXED(31) REG(9), 01S0270 00738000 * R9P PTR(24) REG(9), 01S0270 00739000 * R9RSTD PTR(31) REG(9), 01S0270 00740000 * R10F FIXED(31) REG(10), 01S0270 00741000 * R10P PTR(24) REG(10), 01S0270 00742000 * R10RSTD PTR(31) REG(10), 01S0270 00743000 * R11F FIXED(31) REG(11), 01S0270 00744000 * R11P PTR(24) REG(11), 01S0270 00745000 * R11RSTD PTR(31) REG(11), 01S0270 00746000 * R12F FIXED(31) REG(12), 01S0270 00747000 * R12P PTR(24) REG(12), 01S0270 00748000 * R12RSTD PTR(31) REG(12), 01S0270 00749000 * R13F FIXED(31) REG(13), 01S0270 00750000 * R13P PTR(24) REG(13), 01S0270 00751000 * R13RSTD PTR(31) REG(13), 01S0270 00752000 * R14F FIXED(31) REG(14), 01S0270 00753000 * R14P PTR(24) REG(14), 01S0270 00754000 * R14RSTD PTR(31) REG(14), 01S0270 00755000 * R15F FIXED(31) REG(15), 01S0270 00756000 * R15P PTR(24) REG(15), 01S0270 00757000 * R15RSTD PTR(31) REG(15), 01S0270 00758000 * 01S0270 00759000 * /***************************************************************/ 00760000 * /* */ 00761000 * /* VPSS CONTROL BLOCK POINTER DECLARES */ 00762000 * /* */ 00763000 * /***************************************************************/ 00764000 * 01S0270 00765000 * APSMPTR PTR(24) REG(01), /* STORAGE MANAGEMENT BLOCK 01S0270 00766000 * (SUGGESTED POINTER) */ 00767000 * APSCPTR PTR(24) REG(01), /* STORAGE MANAGEMENT CONTROL 00768000 * WORD (SUGGESTED POINTER) */ 00769000 * APINPTR PTR(24) REG(01), /* USER'S INPUT PARAMETER LIST 00770000 * (SUGGESTED POINTER) */ 00771000 */* */ 00772000 * 01S0270 00773000 * APDATA PTR(24) REG(06), /* ADDRESS OF DYNAMIC DATA 01S0270 00774000 * WORKAREA (DATAREG) */ 00775000 * APCODE PTR(24) REG(07), /* PROGRAM CODE BASE REGISTER 00776000 * (CODEREG) */ 00777000 * APDEBPTR PTR(24) REG(08), /* VPSS DEB (SUGGESTED POINTER) */ 00778000 * APNPPTR PTR(24) REG(08), /* SUBSYSTEM INITIALIZATION 01S0270 00779000 * WORKAREA BLOCK (ONLY USED BY 00780000 * SUBSYSTEM INITIALIZATION) */ 00781000 * APRLPTR PTR(24) REG(08), /* VPSS ACB REQUEST LIST 01S0270 00782000 * (SUGGESTED POINTER) */ 00783000 * APCIPTR PTR(24) REG(08), /* 3838 CONTROL TABLE (SUGGESTED 00784000 * POINTER) */ 00785000 * APCWPTR PTR(24) REG(08), /* CALL INTERFACE WORKAREA 01S0270 00786000 * (SUGGESTED POINTER) */ 00787000 * APERPTR PTR(24) REG(08), /* ERP/IO APPENDAGE WORKAREA 00788000 * (SUGGESTED POINTER) */ 00789000 * APACBPTR PTR(24) REG(09), /* VPSS ACB (SUGGESTED POINTER) */ 00790000 * APCQPTR PTR(24) REG(09), /* COMMAND QUEUE ELEMENT 01S0270 00791000 * (SUGGESTED POINTER) */ 00792000 * APOTPTR PTR(24) REG(09), /* OPTION TABLE (SUGGESTED 01S0270 00793000 * POINTER) */ 00794000 * APIOPTR PTR(24) REG(10), /* I/O ELEMENT (SUGGESTED 01S0270 00795000 * POINTER) */ 00796000 * APEXLPTR PTR(24) REG(10), /* VPSS EXLST (SUGGESTED POINTER)*/ 00797000 * APUBPTR PTR(24) REG(10), /* UNIT BLOCK (SUGGESTED POINTER)*/ 00798000 * APAXPTR PTR(24) REG(10), /* VPSS ACB EXTENSION (SUGGESTED 00799000 * POINTER) */ 00800000 * APCPPTR PTR(24) REG(10), /* VPSS CALL PROCESSING 01S0270 00801000 * INDICATORS (SUGGESTED POINTER)*/ 00802000 * APOCPTR PTR(24) REG(10), /* VPSS OPEN/CLOSE SUBSYSTEM 00803000 * WORKAREA (REQUIRED POINTER) */ 00804000 * APATPTR PTR(24) REG(11), /* VPSS ACB TABLE (SUGGESTED 00805000 * POINTER) */ 00806000 * APLBPTR PTR(24) REG(11), /* LABEL RESOLUTION TABLE 01S0270 00807000 * (SUGGESTED POINTER) */ 00808000 * APUTPTR PTR(24) REG(11), /* USER TABLE (SUGGESTED POINTER)*/ 00809000 * APDSPTR PTR(24) REG(11), /* VPSS DATASET ENTRY (SUGGESTED 00810000 * POINTER) */ 00811000 * APXLPTR PTR(24) REG(11), /* TRANSLATION TABLE (SUGGESTED 00812000 * POINTER) */ 00813000 * APDXPTR PTR(24) REG(11), /* VPSS DEB EXTENSION (SUGGESTED 00814000 * POINTER) */ 00815000 * APCTPTR PTR(24) REG(12) RSTD, /* CONTROL TABLE (REQUIRED 01S0270 00816000 * POINTER) */ 00817000 * APSVPTR PTR(24) REG(13) RSTD, /* OS/VPSS SAVEAREA/WORKAREA 00818000 * (REQUIRED POINTER) */ 00819000 * APRETURN PTR(24) REG(14), /* RETURN ADDRESS FOR SUBROUTINE 00820000 * LINKAGE */ 00821000 * APENTRY PTR(24) REG(15), /* SUBROUTINE ENTRY POINT LINKAGE*/ 00822000 * APRCODE PTR(24) REG(15); /* CONTAINS SUBROUTINE RETURN 00823000 * CODE */ 00824000 * 01S0271 00825000 * /*****************************************************************/ 00826000 * /* */ 00827000 * /* USER REGISTER DECLARES */ 00828000 * /* */ 00829000 * /*****************************************************************/ 00830000 * 01S0271 00831000 * DCL /* LOCAL REGISTERS */ 00832000 * RIPIBPTR PTR(24) REG(11); /* IPIB BASE REGISTER */ 00833000 * END IGTKBF /* END OF MODULE */ 00834000 * 01S0272 00835000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00836000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00837000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00838000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00839000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00840000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00841000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00842000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00843000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00844000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00845000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00846000 */*%INCLUDE SYSLIB (CVT ) */ 00847000 */*%INCLUDE SYSLIB (IHASUBIT) */ 00848000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00849000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00850000 */*%INCLUDE SYSLIB (IHASRB ) */ 00851000 */*%INCLUDE SYSLIB (IECDIPIB) */ 00852000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00853000 */*%INCLUDE SYSLIB (IGTXAPCC) */ 00854000 */*%INCLUDE SYSLIB (IGTXAPCM) */ 00855000 */*%INCLUDE SYSLIB (IGTXAPCT) */ 00856000 */*%INCLUDE SYSLIB (IGTXAPCV) */ 00857000 */*%INCLUDE SYSLIB (IGTXAPIO) */ 00858000 */*%INCLUDE SYSLIB (IGTXAPMV) */ 00859000 */*%INCLUDE SYSLIB (IGTXAPSV) */ 00860000 */*%INCLUDE SYSLIB (IGTXAPES) */ 00861000 */*%INCLUDE SYSUT5 (CHECKIN ) */ 00862000 */*%INCLUDE SYSUT5 (BSAWA ) */ 00863000 */*%INCLUDE SYSUT5 (INITSTAE) */ 00864000 */*%INCLUDE SYSUT5 (PURGE ) */ 00865000 */*%INCLUDE SYSUT5 (CLRREGS ) */ 00866000 */*%INCLUDE SYSUT5 (CLRREGS ) */ 00867000 */*%INCLUDE SYSUT5 (CLRSTAE ) */ 00868000 */*%INCLUDE SYSUT5 (FREESTAE) */ 00869000 */*%INCLUDE SYSUT5 (FSAWA ) */ 00870000 */*%INCLUDE SYSUT5 (SUBRTNS ) */ 00871000 */*%INCLUDE SYSUT5 (GETLLCK ) */ 00872000 */*%INCLUDE SYSUT5 (FREELLCK) */ 00873000 * 01S0272 00874000 * ; 01S0272 00875000 B @EL00001 01S0272 00876000 @DATA DS 0H 00877000 @DATD DSECT 00878000 DS 0F 00879000 IGTKBF CSECT 00880000 DS 0F 00881000 @CF03115 DC F'-436207616' 00882000 @DATD DSECT 00883000 DS 0D 00884000 DIPIBSRB DS A 00885000 DS CL4 00886000 APES DS CL648 00887000 ORG APES 00888000 APESID DS CL4 00889000 APESUSER DS FL4 00890000 APESADDR DS AL4 00891000 APESAPMV DS AL4 00892000 APESFLGS DS BL2 00893000 ORG APESFLGS 00894000 APESFLG0 DS BL1 00895000 ORG APESFLG0 00896000 APESFDMP DS BL1 00897000 APESFREC EQU APESFLG0+0 00898000 APESFSDP EQU APESFLG0+0 00899000 @NM00140 EQU APESFLG0+0 00900000 APESFRTY EQU APESFLG0+0 00901000 APESFEXR EQU APESFLG0+0 00902000 @NM00141 EQU APESFLG0+0 00903000 ORG APESFLGS+1 00904000 APESFLG1 DS BL1 00905000 ORG APESFLG1 00906000 APESFFRR DS BL1 00907000 APESFPRV EQU APESFLG1+0 00908000 APESFLLK EQU APESFLG1+0 00909000 APESFXLK EQU APESFLG1+0 00910000 APESFGM EQU APESFLG1+0 00911000 APESFSDI EQU APESFLG1+0 00912000 APESFSTE EQU APESFLG1+0 00913000 @NM00142 EQU APESFLG1+0 00914000 ORG APES+18 00915000 APESSUID DS BL1 00916000 ORG APESSUID 00917000 APESSU33 DS BL1 00918000 @NM00143 EQU APESSUID+0 00919000 ORG APES+19 00920000 APESCODE DS FL1 00921000 APESCOD1 DS FL1 00922000 APESCNTR DS FL1 00923000 APESMXCD DS FL1 00924000 @NM00144 DS FL1 00925000 @NM00145 DS AL4 00926000 @NM00146 DS AL4 00927000 @NM00147 DS AL4 00928000 APESEXRA DS AL4 00929000 APESR14S DS AL4 00930000 APESREGP DS AL4 00931000 APESREGZ DS CL64 00932000 APESMOD DS CL8 00933000 APESPROC DS CL8 00934000 APESFRR DS CL8 00935000 APESSDWA DS CL512 00936000 ORG APES+648 00937000 DSUPVSVE DS CL64 00938000 DRETRY DS 10A 00939000 IGTKBF CSECT 00940000 DS 0F 00941000 @SIZDATD DC AL1(0) 00942000 DC AL3(@ENDDATD-@DATD) 00943000 DS 0D 00944000 CXERR DC AL4(XERR) 00945000 @CC03019 DC C'IGTKBF ' 00946000 @CC03020 DC C' ' 00947000 @CC03025 DC C'IGTKBC ' 00948000 @CC02952 DC C'APES' 00949000 CMBRXZZZ DS CL16 00950000 ORG CMBRXZZZ 00951000 @NM00150 DS CL8 00952000 ORG @NM00150 00953000 @NM00151 DC H'21' 00954000 @NM00152 DC H'45' 00955000 @NM00153 DC AL1(0) 00956000 @NM00154 DC AL1(4) 00957000 @NM00155 DC H'10' 00958000 ORG CMBRXZZZ+8 00959000 @NM00156 DS CL8 00960000 ORG @NM00156 00961000 @NM00157 DC H'36' 00962000 @NM00158 DC H'0' 00963000 @NM00159 DC AL1(0) 00964000 @NM00160 DC AL1(8) 00965000 @NM00161 DC H'16' 00966000 ORG CMBRXZZZ+16 00967000 IGTKBF CSECT 00968000 * /* GENERATE PATCH 00969000 IGTXZAP , GENERATE PATCH AREA 00970000 @DATD DSECT 00971000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00972000 @ENDDATD EQU * 00973000 IGTKBF CSECT 00974000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00975000 @01 EQU 01 00976000 @02 EQU 02 00977000 @03 EQU 03 00978000 @04 EQU 04 00979000 @05 EQU 05 00980000 @06 EQU 06 00981000 @07 EQU 07 00982000 @08 EQU 08 00983000 @09 EQU 09 00984000 @10 EQU 10 00985000 @11 EQU 11 00986000 @12 EQU 12 00987000 @13 EQU 13 00988000 @14 EQU 14 00989000 @15 EQU 15 00990000 APCODE EQU @07 00991000 FRRSPTR EQU @00 00992000 FRREPTR EQU @00 00993000 IOSBPTR EQU @00 00994000 SRBPTR EQU @00 00995000 IPIBPTR EQU @00 00996000 SDWAPTR EQU @00 00997000 APCTPTR EQU @12 00998000 APSVPTR EQU @13 00999000 R15P EQU @15 01000000 R1P EQU @01 01001000 R0F EQU @00 01002000 R15F EQU @15 01003000 R13P EQU @13 01004000 RIPIBPTR EQU @11 01005000 APDATA EQU @06 01006000 R0P EQU @00 01007000 R1F EQU @01 01008000 R14P EQU @14 01009000 R0RSTD EQU @00 01010000 R1RSTD EQU @01 01011000 R2RSTD EQU @02 01012000 R3RSTD EQU @03 01013000 R4RSTD EQU @04 01014000 R5RSTD EQU @05 01015000 R8RSTD EQU @08 01016000 R9RSTD EQU @09 01017000 R10RSTD EQU @10 01018000 R11RSTD EQU @11 01019000 R14RSTD EQU @14 01020000 R15RSTD EQU @15 01021000 R11F EQU @11 01022000 R13F EQU @13 01023000 R12F EQU @12 01024000 R14F EQU @14 01025000 APACBPTR EQU @09 01026000 APATPTR EQU @11 01027000 APAXPTR EQU @10 01028000 APCIPTR EQU @08 01029000 APCPPTR EQU @10 01030000 APCQPTR EQU @09 01031000 APCWPTR EQU @08 01032000 APDEBPTR EQU @08 01033000 APDSPTR EQU @11 01034000 APDXPTR EQU @11 01035000 APENTRY EQU @15 01036000 APERPTR EQU @08 01037000 APEXLPTR EQU @10 01038000 APINPTR EQU @01 01039000 APIOPTR EQU @10 01040000 APLBPTR EQU @11 01041000 APNPPTR EQU @08 01042000 APOCPTR EQU @10 01043000 APOTPTR EQU @09 01044000 APRCODE EQU @15 01045000 APRETURN EQU @14 01046000 APRLPTR EQU @08 01047000 APSCPTR EQU @01 01048000 APSMPTR EQU @01 01049000 APUBPTR EQU @10 01050000 APUTPTR EQU @11 01051000 APXLPTR EQU @11 01052000 R10F EQU @10 01053000 R10P EQU @10 01054000 R11P EQU @11 01055000 R12P EQU @12 01056000 R12RSTD EQU @12 01057000 R13RSTD EQU @13 01058000 R2F EQU @02 01059000 R2P EQU @02 01060000 R3F EQU @03 01061000 R3P EQU @03 01062000 R4F EQU @04 01063000 R4P EQU @04 01064000 R5F EQU @05 01065000 R5P EQU @05 01066000 R6F EQU @06 01067000 R6P EQU @06 01068000 R6RSTD EQU @06 01069000 R7F EQU @07 01070000 R7P EQU @07 01071000 R7RSTD EQU @07 01072000 R8F EQU @08 01073000 R8P EQU @08 01074000 R9F EQU @09 01075000 R9P EQU @09 01076000 PSA EQU 0 01077000 FLCRNPSW EQU PSA 01078000 FLCROPSW EQU PSA+8 01079000 FLCICCW2 EQU PSA+16 01080000 FLCCVT EQU FLCICCW2 01081000 PSAEEPSW EQU PSA+132 01082000 PSAESPSW EQU PSA+136 01083000 FLCSVILC EQU PSAESPSW+1 01084000 PSAEPPSW EQU PSA+140 01085000 FLCPIILC EQU PSAEPPSW+1 01086000 FLCPICOD EQU PSAEPPSW+2 01087000 PSAPICOD EQU FLCPICOD+1 01088000 FLCTEA EQU PSAEPPSW+4 01089000 FLCPER EQU PSA+152 01090000 FLCMCLA EQU PSA+168 01091000 FLCIOEL EQU FLCMCLA+4 01092000 FLCIOA EQU FLCMCLA+16 01093000 FLCFSA EQU FLCMCLA+80 01094000 PSASUPER EQU PSA+552 01095000 PSASUP1 EQU PSASUPER 01096000 PSASUP2 EQU PSASUPER+1 01097000 PSASUP3 EQU PSASUPER+2 01098000 PSASUP4 EQU PSASUPER+3 01099000 PSACLHT EQU PSA+640 01100000 PSALKSA EQU PSA+696 01101000 PSAHLHI EQU PSA+760 01102000 PSALITA EQU PSA+764 01103000 PSADSSFL EQU PSA+836 01104000 PSADSSF1 EQU PSADSSFL 01105000 PSADSSF3 EQU PSADSSFL+2 01106000 PSADSSF4 EQU PSADSSFL+3 01107000 PSARSVT EQU PSA+896 01108000 PSALSFCC EQU PSA+1012 01109000 CVTMAP EQU 0 01110000 CVTDAR EQU CVTMAP+72 01111000 CVTFLGS1 EQU CVTDAR 01112000 CVTDCB EQU CVTMAP+116 01113000 CVTIERLC EQU CVTMAP+144 01114000 CVTOPTA EQU CVTMAP+182 01115000 CVTOPTB EQU CVTMAP+183 01116000 CVTGTF EQU CVTMAP+236 01117000 CVTGTFST EQU CVTGTF 01118000 CVTGTFS EQU CVTGTFST 01119000 CVTSTATE EQU CVTGTFST 01120000 CVTTMODE EQU CVTGTFST 01121000 CVTFORM EQU CVTGTFST 01122000 CVTAQAVT EQU CVTMAP+240 01123000 CVTTCMFG EQU CVTAQAVT 01124000 CVTVOLM2 EQU CVTMAP+244 01125000 CVTTATA EQU CVTVOLM2 01126000 CVTTSKS EQU CVTTATA 01127000 CVTVOLF2 EQU CVTTSKS 01128000 CVTTAT EQU CVTTATA+1 01129000 CVTATER EQU CVTMAP+248 01130000 CVTEXT1 EQU CVTMAP+252 01131000 CVTPURG EQU CVTMAP+260 01132000 CVTQMSG EQU CVTMAP+268 01133000 CVTDMSR EQU CVTMAP+272 01134000 CVTRSV37 EQU CVTDMSR 01135000 CVTDMSRF EQU CVTRSV37 01136000 CVTERPV EQU CVTMAP+316 01137000 CVTINTLA EQU CVTMAP+320 01138000 CVTAPF EQU CVTMAP+324 01139000 CVTEXT2 EQU CVTMAP+328 01140000 CVTHJES EQU CVTMAP+332 01141000 CVTPGSIA EQU CVTMAP+348 01142000 CVTA1F1 EQU CVTMAP+356 01143000 CVTSYSK EQU CVTMAP+357 01144000 CVTVOLM1 EQU CVTMAP+380 01145000 CVTVOLF1 EQU CVTVOLM1 01146000 CVTATMCT EQU CVTMAP+388 01147000 CVTXTNT1 EQU 0 01148000 CVTXTNT2 EQU 0 01149000 CVTDSSV EQU CVTXTNT2 01150000 CVTFLGBT EQU CVTXTNT2+5 01151000 CVTQID EQU CVTXTNT2+24 01152000 CVTRV400 EQU CVTXTNT2+52 01153000 CVTRV409 EQU CVTXTNT2+53 01154000 CVTATCVT EQU CVTXTNT2+64 01155000 CVTRV429 EQU CVTXTNT2+84 01156000 CVTRV438 EQU CVTXTNT2+85 01157000 CVTRV457 EQU CVTXTNT2+112 01158000 CVTRV466 EQU CVTXTNT2+113 01159000 CVTFIX EQU 0 01160000 CVTRELNO EQU CVTFIX+252 01161000 SUBITS EQU 0 01162000 SUBYTE1 EQU SUBITS 01163000 SUBYTE2 EQU SUBITS+1 01164000 SUBYTE3 EQU SUBITS+2 01165000 SUBYTE4 EQU SUBITS+3 01166000 SUBYTE5 EQU SUBITS+4 01167000 SUBYTE6 EQU SUBITS+5 01168000 SUBYTE7 EQU SUBITS+6 01169000 SUBYTE8 EQU SUBITS+7 01170000 SUBYTE9 EQU SUBITS+8 01171000 SUBYTE10 EQU SUBITS+9 01172000 SUBYTE11 EQU SUBITS+10 01173000 SUBYTE12 EQU SUBITS+11 01174000 SUBYTE13 EQU SUBITS+12 01175000 FRRS EQU 0 01176000 FRRSHEAD EQU FRRS 01177000 FRRSEMP EQU FRRSHEAD 01178000 FRRSLAST EQU FRRSHEAD+4 01179000 FRRSELEN EQU FRRSHEAD+8 01180000 FRRSCURR EQU FRRSHEAD+12 01181000 FRRSENTR EQU 0 01182000 FRRSFRRA EQU FRRSENTR 01183000 FRRSFLGS EQU FRRSENTR+4 01184000 FRRSFLG1 EQU FRRSFLGS 01185000 FRRSPARM EQU FRRSENTR+8 01186000 IOSB EQU 0 01187000 IOSFLA EQU IOSB 01188000 IOSACHN EQU IOSFLA 01189000 IOSFLB EQU IOSB+1 01190000 IOSFLC EQU IOSB+2 01191000 IOSDVALT EQU IOSFLC 01192000 IOSPKEY EQU IOSB+12 01193000 IOSOPT EQU IOSB+14 01194000 IOSOPT2 EQU IOSB+15 01195000 @NM00030 EQU IOSB+20 01196000 IOSCSW EQU @NM00030+1 01197000 IOSTATUS EQU IOSCSW+3 01198000 IOSIPIB EQU IOSB+44 01199000 IOSDIE EQU IOSB+68 01200000 IOSDIEFG EQU IOSDIE 01201000 IOSPATH EQU IOSB+86 01202000 IOSCHN EQU IOSPATH 01203000 IOSCKEY EQU IOSB+89 01204000 IOSEEKA EQU IOSB+100 01205000 IOSCCHH EQU IOSEEKA+3 01206000 IOSSKHH EQU IOSCCHH+2 01207000 SRBSECT EQU 0 01208000 SRB EQU SRBSECT 01209000 SRBFLNK EQU SRB+4 01210000 SRBFLC EQU SRB+12 01211000 SRBPARM EQU SRB+28 01212000 IPIB EQU 0 01213000 IPIBOPT EQU IPIB 01214000 IPIBMEM EQU IPIBOPT 01215000 IPIBHALT EQU IPIBOPT 01216000 IPIBFLG1 EQU IPIB+2 01217000 IPIBSRB EQU IPIB+16 01218000 SDWA EQU 0 01219000 SDWAPARM EQU SDWA 01220000 SDWAFIOB EQU SDWA+4 01221000 SDWAABCC EQU SDWAFIOB 01222000 SDWACMPF EQU SDWAABCC 01223000 SDWACTL1 EQU SDWA+8 01224000 SDWACMKA EQU SDWACTL1 01225000 SDWAMWPA EQU SDWACTL1+1 01226000 SDWAPMKA EQU SDWACTL1+4 01227000 SDWACTL2 EQU SDWA+16 01228000 SDWACMKP EQU SDWACTL2 01229000 SDWAMWPP EQU SDWACTL2+1 01230000 SDWAPMKP EQU SDWACTL2+4 01231000 SDWAGRSV EQU SDWA+24 01232000 SDWANAME EQU SDWA+88 01233000 SDWAEC1 EQU SDWA+104 01234000 SDWAEMK1 EQU SDWAEC1 01235000 SDWAMWP1 EQU SDWAEC1+1 01236000 SDWAINT1 EQU SDWAEC1+2 01237000 SDWANXT1 EQU SDWAEC1+4 01238000 SDWAAEC1 EQU SDWA+112 01239000 SDWAILC1 EQU SDWAAEC1+1 01240000 SDWAINC1 EQU SDWAAEC1+2 01241000 SDWAICD1 EQU SDWAINC1+1 01242000 SDWAEC2 EQU SDWA+120 01243000 SDWAEMK2 EQU SDWAEC2 01244000 SDWAMWP2 EQU SDWAEC2+1 01245000 SDWAINT2 EQU SDWAEC2+2 01246000 SDWANXT2 EQU SDWAEC2+4 01247000 SDWAAEC2 EQU SDWA+128 01248000 SDWAILC2 EQU SDWAAEC2+1 01249000 SDWAINC2 EQU SDWAAEC2+2 01250000 SDWAICD2 EQU SDWAINC2+1 01251000 SDWASRSV EQU SDWA+136 01252000 SDWAIDNT EQU SDWA+200 01253000 SDWAMCH EQU SDWA+204 01254000 SDWASTCK EQU SDWAMCH 01255000 SDWAMCHI EQU SDWAMCH+8 01256000 SDWAMCHS EQU SDWAMCHI 01257000 SDWAMCHD EQU SDWAMCHI+1 01258000 SDWARSR1 EQU SDWAMCH+12 01259000 SDWARSR2 EQU SDWAMCH+13 01260000 SDWAFLGS EQU SDWA+232 01261000 SDWAERRA EQU SDWAFLGS 01262000 SDWAERRB EQU SDWAFLGS+1 01263000 SDWAERRC EQU SDWAFLGS+2 01264000 SDWAERRD EQU SDWAFLGS+3 01265000 SDWAIOFS EQU SDWA+238 01266000 SDWACPUA EQU SDWA+248 01267000 SDWAPARQ EQU SDWA+252 01268000 SDWAACF2 EQU SDWAPARQ+1 01269000 SDWAACF3 EQU SDWAPARQ+2 01270000 SDWAACF4 EQU SDWAPARQ+3 01271000 SDWALKWA EQU SDWA+256 01272000 SDWALKWS EQU SDWALKWA 01273000 SDWARECP EQU SDWA+292 01274000 SDWASNPA EQU SDWA+320 01275000 SDWADUMP EQU SDWASNPA 01276000 SDWADPFS EQU SDWADUMP+1 01277000 SDWADDAT EQU SDWASNPA+4 01278000 SDWASDAT EQU SDWADDAT 01279000 SDWASDA0 EQU SDWASDAT 01280000 SDWASDA1 EQU SDWASDAT+1 01281000 SDWAPDAT EQU SDWADDAT+2 01282000 SDWADPSA EQU SDWA+328 01283000 SDWADPSL EQU SDWADPSA 01284000 SDWARA EQU SDWA+400 01285000 SDWADPVA EQU SDWARA+2 01286000 APCT EQU 0 01287000 APCTENQM EQU APCT+12 01288000 APCTSMIN EQU APCT+32 01289000 APCTSMAD EQU APCT+36 01290000 APCTZ@@@ EQU APCT+40 01291000 APCTU@@@ EQU APCT+440 01292000 APCTBR14 EQU APCT+840 01293000 APCTERRS EQU APCT+876 01294000 @NM00096 EQU APCT+936 01295000 APCTSTAT EQU @NM00096 01296000 APCTPRSW EQU @NM00096+1 01297000 APCTAPCQ EQU APCT+944 01298000 APCTCQAQ EQU APCT+952 01299000 APCTZ@@1 EQU APCT+1120 01300000 APCVZUKA EQU 0 01301000 APCVZKBC EQU 0 01302000 APIO EQU 0 01303000 APIOIOCB EQU APIO 01304000 APIOFLGS EQU APIO+248 01305000 APIOFLGA EQU APIOFLGS 01306000 APIOFLG0 EQU APIOFLGA 01307000 APIOFLG2 EQU APIOFLGA+2 01308000 APIOFLG3 EQU APIOFLGA+3 01309000 APIORET EQU APIOFLG3 01310000 APIOFLGB EQU APIOFLGS+4 01311000 APIOFLG7 EQU APIOFLGB+3 01312000 APIOINDX EQU APIO+288 01313000 APIOSAVE EQU APIOINDX 01314000 APIOTR EQU APIO+360 01315000 APIOGMSZ EQU APIO+376 01316000 APIOAPCT EQU APIO+380 01317000 APIONBR EQU APIO+384 01318000 APMV EQU 0 01319000 APMVHDR EQU APMV 01320000 APMVHKWD EQU APMVHDR+4 01321000 APMVHMSG EQU APMVHDR+8 01322000 APMVKWD EQU 0 01323000 APMVMSG EQU 0 01324000 APSV EQU 0 01325000 APSVPREV EQU APSV+4 01326000 APSVREGS EQU APSV+12 01327000 APESREGS EQU 0 01328000 APESREGC EQU APESREGS+48 01329000 APESREGF EQU APESREGS+60 01330000 APESRTRY EQU APESREGF 01331000 APESMV EQU 0 01332000 I256C EQU 0 01333000 I031P EQU 0 01334000 APCVZDAL EQU 0 01335000 APCVZDAP EQU 0 01336000 APCVZDBK EQU 0 01337000 APCVZDDA EQU 0 01338000 APCVZDDQ EQU 0 01339000 APCVZDEQ EQU 0 01340000 APCVZDID EQU 0 01341000 APCVZDIO EQU 0 01342000 APCVZDIP EQU 0 01343000 APCVZDMD EQU 0 01344000 APCVZDMM EQU 0 01345000 APCVZDQR EQU 0 01346000 APCVZDRI EQU 0 01347000 APCVZDUA EQU 0 01348000 APCVZDUL EQU 0 01349000 APCVZDWI EQU 0 01350000 APCVZDWT EQU 0 01351000 APCVZDX1 EQU 0 01352000 APCVZDX2 EQU 0 01353000 APCVZDX3 EQU 0 01354000 APCVZDX4 EQU 0 01355000 APCVZD10 EQU 0 01356000 APCVZD20 EQU 0 01357000 APCVZD4E EQU 0 01358000 APCVZD40 EQU 0 01359000 APCVZD41 EQU 0 01360000 APCVZD42 EQU 0 01361000 APCVZD43 EQU 0 01362000 APCVZD44 EQU 0 01363000 APCVZD45 EQU 0 01364000 APCVZD46 EQU 0 01365000 APCVZD47 EQU 0 01366000 APCVZD48 EQU 0 01367000 APCVZD49 EQU 0 01368000 APCVZD60 EQU 0 01369000 APCVZD80 EQU 0 01370000 APCVZD81 EQU 0 01371000 APCVZD82 EQU 0 01372000 APCVZD83 EQU 0 01373000 APCVZJAA EQU 0 01374000 APCVZJAD EQU 0 01375000 APCVZJAG EQU 0 01376000 APCVZJAJ EQU 0 01377000 APCVZJAM EQU 0 01378000 APCVZJAP EQU 0 01379000 APCVZJAX EQU 0 01380000 APCVZJAY EQU 0 01381000 APCVZJBA EQU 0 01382000 APCVZJBD EQU 0 01383000 APCVZJBG EQU 0 01384000 APCVZJBJ EQU 0 01385000 APCVZJBM EQU 0 01386000 APCVZJDA EQU 0 01387000 APCVZJDD EQU 0 01388000 APCVZJDG EQU 0 01389000 APCVZJDJ EQU 0 01390000 APCVZJDM EQU 0 01391000 APCVZJHC EQU 0 01392000 APCVZJHE EQU 0 01393000 APCVZJHF EQU 0 01394000 APCVZJHO EQU 0 01395000 APCVZJHQ EQU 0 01396000 APCVZJHR EQU 0 01397000 APCVZJHT EQU 0 01398000 APCVZJHW EQU 0 01399000 APCVZJH0 EQU 0 01400000 APCVZJH6 EQU 0 01401000 APCVZJI0 EQU 0 01402000 APCVZJI3 EQU 0 01403000 APCVZJJ0 EQU 0 01404000 APCVZKAA EQU 0 01405000 APCVZKBA EQU 0 01406000 APCVZKBB EQU 0 01407000 APCVZKBD EQU 0 01408000 APCVZKBE EQU 0 01409000 APCVZKBF EQU 0 01410000 APCVZKCA EQU 0 01411000 APCVZKDA EQU 0 01412000 APCVZKGA EQU 0 01413000 APCVZKGB EQU 0 01414000 APCVZKGC EQU 0 01415000 APCVZKGD EQU 0 01416000 APCVZLCA EQU 0 01417000 APCVZLCB EQU 0 01418000 APCVZMBA EQU 0 01419000 APCVZMBD EQU 0 01420000 APCVZMBG EQU 0 01421000 APCVZMBH EQU 0 01422000 APCVZMBK EQU 0 01423000 APCVZMBM EQU 0 01424000 APCVZMIB EQU 0 01425000 APCVZMIC EQU 0 01426000 APCVZMIF EQU 0 01427000 APCVZMJB EQU 0 01428000 APCVZMJC EQU 0 01429000 APCVZMJH EQU 0 01430000 APCVZMJI EQU 0 01431000 APCVZMMA EQU 0 01432000 APCVZUAA EQU 0 01433000 APCVZUAB EQU 0 01434000 APCVZUAC EQU 0 01435000 APCVZUAD EQU 0 01436000 APCVZUAE EQU 0 01437000 APCVZUAF EQU 0 01438000 APCVZUAG EQU 0 01439000 APCVZUBB EQU 0 01440000 APCVZUFA EQU 0 01441000 APCVZUHA EQU 0 01442000 APCVZUHB EQU 0 01443000 APCVZUJA EQU 0 01444000 APCV1CMD EQU 0 01445000 APCV1JAA EQU 0 01446000 APCV1JBJ EQU 0 01447000 APCV1JHC EQU 0 01448000 APCV1JHL EQU 0 01449000 APCV1JHT EQU 0 01450000 APCV1MAB EQU 0 01451000 APCV1MBD EQU 0 01452000 APCV2JHC EQU 0 01453000 APCV2JHL EQU 0 01454000 APCV2MBD EQU 0 01455000 I001C EQU 0 01456000 I008P EQU 0 01457000 I015F EQU 0 01458000 I015P EQU 0 01459000 I031F EQU 0 01460000 FLC EQU PSA 01461000 PSARSVTE EQU PSARSVT 01462000 PSACSTK EQU PSARSVTE 01463000 CVTPTR EQU FLCCVT 01464000 CVTS01 EQU CVTPGSIA 01465000 CVTLPDIA EQU CVTS01+12 01466000 CVTDIRST EQU CVTLPDIA 01467000 CVTSLIDA EQU CVTS01+24 01468000 CVTCTLFG EQU CVTS01+50 01469000 CVTRV210 EQU CVTS01+424 01470000 CVTRV219 EQU CVTS01+425 01471000 CVTRV228 EQU CVTS01+426 01472000 CVTRV237 EQU CVTS01+427 01473000 CVTMFRTR EQU CVTS01+452 01474000 CVTRV262 EQU CVTS01+468 01475000 CVTRV271 EQU CVTS01+469 01476000 CVTRV280 EQU CVTS01+470 01477000 CVTRV289 EQU CVTS01+471 01478000 CVTGSDA EQU CVTS01+600 01479000 CVTIHASU EQU CVTS01+696 01480000 IOSATTSC EQU IOSIPIB 01481000 IOSWTOWA EQU IOSIPIB 01482000 IOSPCISC EQU IOSIPIB 01483000 APCTZ EQU APCTZ@@@ 01484000 APCTZUAA EQU APCTZ 01485000 APCTZUAB EQU APCTZ+4 01486000 APCTZUAC EQU APCTZ+8 01487000 APCTZUAD EQU APCTZ+12 01488000 APCTZUAE EQU APCTZ+16 01489000 APCTZUBB EQU APCTZ+24 01490000 APCTZD10 EQU APCTZ+28 01491000 APCTZD20 EQU APCTZ+32 01492000 APCTZD40 EQU APCTZ+36 01493000 APCTZD41 EQU APCTZ+40 01494000 APCTZD42 EQU APCTZ+44 01495000 APCTZD43 EQU APCTZ+48 01496000 APCTZD44 EQU APCTZ+52 01497000 APCTZD45 EQU APCTZ+56 01498000 APCTZD46 EQU APCTZ+60 01499000 APCTZD47 EQU APCTZ+64 01500000 APCTZD48 EQU APCTZ+68 01501000 APCTZD49 EQU APCTZ+72 01502000 APCTZD60 EQU APCTZ+76 01503000 APCTZD80 EQU APCTZ+80 01504000 APCTZD4E EQU APCTZ+84 01505000 APCTZMBA EQU APCTZ+88 01506000 APCTZMBD EQU APCTZ+92 01507000 APCTZMBG EQU APCTZ+96 01508000 APCTZMBR EQU APCTZ+100 01509000 APCTZDX1 EQU APCTZ+104 01510000 APCTZDX2 EQU APCTZ+108 01511000 APCTZDX3 EQU APCTZ+112 01512000 APCTZDX4 EQU APCTZ+116 01513000 APCTZMBH EQU APCTZ+120 01514000 APCTZMBK EQU APCTZ+124 01515000 APCTZMBM EQU APCTZ+128 01516000 APCTZMJB EQU APCTZ+132 01517000 APCTZMJC EQU APCTZ+136 01518000 APCTZMJH EQU APCTZ+140 01519000 APCTZMMA EQU APCTZ+144 01520000 APCTZDMD EQU APCTZ+148 01521000 APCTZD81 EQU APCTZ+152 01522000 APCTZDID EQU APCTZ+156 01523000 APCTZDRI EQU APCTZ+160 01524000 APCTZMJI EQU APCTZ+164 01525000 APCTZDWT EQU APCTZ+168 01526000 APCTZDMM EQU APCTZ+172 01527000 APCTZDAL EQU APCTZ+176 01528000 APCTZDBK EQU APCTZ+180 01529000 APCTZDIP EQU APCTZ+184 01530000 APCTZDDA EQU APCTZ+188 01531000 APCTZDUL EQU APCTZ+192 01532000 APCTZDEQ EQU APCTZ+196 01533000 APCTZDDQ EQU APCTZ+200 01534000 APCTZDUA EQU APCTZ+204 01535000 APCTZUAF EQU APCTZ+208 01536000 APCTZUAG EQU APCTZ+212 01537000 APCTZDIO EQU APCTZ+216 01538000 APCTZUHA EQU APCTZ+220 01539000 APCTZUHB EQU APCTZ+224 01540000 APCTZJAA EQU APCTZ+232 01541000 APCTZJAD EQU APCTZ+236 01542000 APCTZJAG EQU APCTZ+240 01543000 APCTZJAJ EQU APCTZ+244 01544000 APCTZJAM EQU APCTZ+248 01545000 APCTZJAP EQU APCTZ+252 01546000 APCTZJAY EQU APCTZ+256 01547000 APCTZUFA EQU APCTZ+260 01548000 APCTZUJA EQU APCTZ+264 01549000 APCTZDAP EQU APCTZ+268 01550000 APCTZKAA EQU APCTZ+272 01551000 APCTZD82 EQU APCTZ+276 01552000 APCTZMIB EQU APCTZ+280 01553000 APCTZMIC EQU APCTZ+284 01554000 APCTZD83 EQU APCTZ+288 01555000 APCTZMIF EQU APCTZ+296 01556000 APCTZJH0 EQU APCTZ+300 01557000 APCTZJI0 EQU APCTZ+304 01558000 APCTZJI3 EQU APCTZ+308 01559000 APCTZJJ0 EQU APCTZ+312 01560000 APCTZJBA EQU APCTZ+316 01561000 APCTZJBD EQU APCTZ+320 01562000 APCTZJBG EQU APCTZ+324 01563000 APCTZJBJ EQU APCTZ+328 01564000 APCTZJBM EQU APCTZ+332 01565000 APCTZKCA EQU APCTZ+340 01566000 APCTZKDA EQU APCTZ+344 01567000 APCTZJDA EQU APCTZ+356 01568000 APCTZJDJ EQU APCTZ+360 01569000 APCTZJH6 EQU APCTZ+364 01570000 APCTZJHO EQU APCTZ+368 01571000 APCTZJHF EQU APCTZ+372 01572000 APCTZJHE EQU APCTZ+376 01573000 APCTZDQR EQU APCTZ+380 01574000 APCTZJHR EQU APCTZ+384 01575000 APCTZJHT EQU APCTZ+388 01576000 APCTZJHW EQU APCTZ+392 01577000 APCTZ1 EQU APCTZ@@1 01578000 APCTZKBA EQU APCTZ1 01579000 APCTZKBC EQU APCTZ1+4 01580000 APCTZKBB EQU APCTZ1+8 01581000 APCTZJHC EQU APCTZ1+20 01582000 APCTZJHQ EQU APCTZ1+24 01583000 APCTZKBD EQU APCTZ1+28 01584000 APCTZKBE EQU APCTZ1+40 01585000 APCTZUKA EQU APCTZ1+56 01586000 APCTZKBF EQU APCTZ1+60 01587000 APCTZJDD EQU APCTZ1+64 01588000 APCTZJDG EQU APCTZ1+68 01589000 APCTZJDM EQU APCTZ1+72 01590000 APCTZLCA EQU APCTZ1+76 01591000 APCTZLCB EQU APCTZ1+80 01592000 APCTZDWI EQU APCTZ1+84 01593000 APCTZJAX EQU APCTZ1+88 01594000 APCTZKGA EQU APCTZ1+92 01595000 APCTZKGB EQU APCTZ1+96 01596000 APCTZKGC EQU APCTZ1+100 01597000 APCTZKGD EQU APCTZ1+104 01598000 APCTU EQU APCTU@@@ 01599000 APCT1MAB EQU APCTU 01600000 APCT1MBD EQU APCTU+4 01601000 APCT2MBD EQU APCTU+8 01602000 APCT1CMD EQU APCTU+12 01603000 APCT1JAA EQU APCTU+20 01604000 APCT1JHC EQU APCTU+24 01605000 APCT2JHC EQU APCTU+28 01606000 APCT1JHT EQU APCTU+32 01607000 APCT1JHL EQU APCTU+36 01608000 APCT2JHL EQU APCTU+40 01609000 APCT1JBJ EQU APCTU+44 01610000 @NM00136 EQU APIOIOCB 01611000 APIOIOSB EQU @NM00136 01612000 APIOSRB EQU @NM00136+128 01613000 @NM00137 EQU APIOIOCB 01614000 CMBRX EQU CMBRXZZZ 01615000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01616000 CMBXRCN EQU CMBRX+6 01617000 CMBXRCT EQU CMBRX+5 01618000 @NM00162 EQU CMBRX+4 01619000 CMBRKT EQU CMBRX+2 01620000 CMBRMT EQU CMBRX 01621000 APIOIOB EQU @NM00137+160 01622000 @NM00138 EQU @NM00137 01623000 @NM00128 EQU APCTU+48 01624000 APCT1MBM EQU APCTU+16 01625000 @NM00127 EQU APCTZ1+108 01626000 @NM00126 EQU APCTZ1+52 01627000 @NM00125 EQU APCTZ1+48 01628000 @NM00124 EQU APCTZ1+44 01629000 @NM00123 EQU APCTZ1+36 01630000 @NM00122 EQU APCTZ1+32 01631000 @NM00121 EQU APCTZ1+16 01632000 @NM00120 EQU APCTZ1+12 01633000 @NM00119 EQU APCTZ+396 01634000 @NM00118 EQU APCTZ+352 01635000 @NM00117 EQU APCTZ+348 01636000 @NM00116 EQU APCTZ+336 01637000 @NM00115 EQU APCTZ+292 01638000 APCTZJFA EQU APCTZ+228 01639000 @NM00114 EQU APCTZ+20 01640000 IOSPCIWA EQU IOSPCISC+44 01641000 IOSPCIRS EQU IOSPCISC+8 01642000 @NM00035 EQU IOSPCISC+4 01643000 @NM00034 EQU IOSPCISC 01644000 IOSWRNDR EQU IOSWTOWA+4 01645000 IOSWTOPT EQU IOSWTOWA+3 01646000 IOSWTOCP EQU IOSWTOWA+2 01647000 IOSWTOCH EQU IOSWTOWA 01648000 IOSATTWA EQU IOSATTSC+40 01649000 @NM00033 EQU IOSATTSC+24 01650000 IOSATTSN EQU IOSATTSC 01651000 CVTRV628 EQU CVTS01+728 01652000 CVTRV627 EQU CVTS01+724 01653000 CVTRV626 EQU CVTS01+720 01654000 CVTRV625 EQU CVTS01+716 01655000 CVTRV624 EQU CVTS01+712 01656000 CVTRV623 EQU CVTS01+708 01657000 CVTRV622 EQU CVTS01+704 01658000 CVTRV621 EQU CVTS01+700 01659000 CVTSUSP EQU CVTS01+692 01660000 CVTT6SVC EQU CVTS01+688 01661000 CVTCDAL EQU CVTS01+684 01662000 CVTTCTL EQU CVTS01+680 01663000 CVTRSUME EQU CVTS01+676 01664000 CVTJTERM EQU CVTS01+672 01665000 CVTASMRM EQU CVTS01+668 01666000 CVTTCASP EQU CVTS01+664 01667000 CVT0PT03 EQU CVTS01+660 01668000 CVT0PT0E EQU CVTS01+656 01669000 CVTRV609 EQU CVTS01+652 01670000 CVTCGK EQU CVTS01+648 01671000 CVTRAC EQU CVTS01+644 01672000 CVTRV606 EQU CVTS01+640 01673000 CVTRV605 EQU CVTS01+636 01674000 CVTRV604 EQU CVTS01+632 01675000 CVTEFF02 EQU CVTS01+628 01676000 CVTCBBR EQU CVTS01+624 01677000 CVTSSCR EQU CVTS01+620 01678000 CVTEVENT EQU CVTS01+616 01679000 CVTCRCA EQU CVTS01+612 01680000 CVTTPIO EQU CVTS01+608 01681000 CVTADV EQU CVTS01+604 01682000 CVTGSDAB EQU CVTGSDA 01683000 CVTQV3 EQU CVTS01+596 01684000 CVTQV2 EQU CVTS01+592 01685000 CVTQV1 EQU CVTS01+588 01686000 CVTRPT EQU CVTS01+584 01687000 CVTSSRB EQU CVTS01+580 01688000 CVTCSDRL EQU CVTS01+576 01689000 CVTEXP1 EQU CVTS01+572 01690000 CVTRMPMT EQU CVTS01+568 01691000 CVTRMPTT EQU CVTS01+564 01692000 CVTVPSA EQU CVTS01+560 01693000 CVTVSTOP EQU CVTS01+556 01694000 CVTGTFR8 EQU CVTS01+552 01695000 CVTQUIT EQU CVTS01+548 01696000 CVTVACR EQU CVTS01+544 01697000 CVTWTCB EQU CVTS01+540 01698000 CVTSTPRS EQU CVTS01+536 01699000 CVT0PT02 EQU CVTS01+532 01700000 CVTDARCM EQU CVTS01+528 01701000 CVTIRECM EQU CVTS01+524 01702000 CVTJRECM EQU CVTS01+520 01703000 CVTVEMS0 EQU CVTS01+516 01704000 CVTSPFRR EQU CVTS01+512 01705000 CVTRLSTG EQU CVTS01+508 01706000 CVT0TC0A EQU CVTS01+504 01707000 CVTGMBR EQU CVTS01+500 01708000 CVTLFRM EQU CVTS01+496 01709000 CVTRMBR EQU CVTS01+492 01710000 CVTVIOP EQU CVTS01+488 01711000 CVTRV307 EQU CVTS01+486 01712000 CVTRV306 EQU CVTS01+484 01713000 CVTRV305 EQU CVTS01+482 01714000 CVTRV304 EQU CVTS01+480 01715000 CVTRV303 EQU CVTS01+478 01716000 CVTRV302 EQU CVTS01+476 01717000 CVTTRCA EQU CVTS01+472 01718000 CVTRV297 EQU CVTRV289 01719000 CVTRV296 EQU CVTRV289 01720000 CVTRV295 EQU CVTRV289 01721000 CVTRV294 EQU CVTRV289 01722000 CVTRV293 EQU CVTRV289 01723000 CVTRV292 EQU CVTRV289 01724000 CVTRV291 EQU CVTRV289 01725000 CVTRV290 EQU CVTRV289 01726000 CVTRV288 EQU CVTRV280 01727000 CVTRV287 EQU CVTRV280 01728000 CVTRV286 EQU CVTRV280 01729000 CVTRV285 EQU CVTRV280 01730000 CVTRV284 EQU CVTRV280 01731000 CVTRV283 EQU CVTRV280 01732000 CVTRV282 EQU CVTRV280 01733000 CVTRV281 EQU CVTRV280 01734000 CVTRV279 EQU CVTRV271 01735000 CVTRV278 EQU CVTRV271 01736000 CVTRV277 EQU CVTRV271 01737000 CVTRV276 EQU CVTRV271 01738000 CVTRV275 EQU CVTRV271 01739000 CVTRV274 EQU CVTRV271 01740000 CVTRV273 EQU CVTRV271 01741000 CVTRV272 EQU CVTRV271 01742000 CVTRV270 EQU CVTRV262 01743000 CVTRV269 EQU CVTRV262 01744000 CVTRV268 EQU CVTRV262 01745000 CVTRV267 EQU CVTRV262 01746000 CVTRV266 EQU CVTRV262 01747000 CVTRV265 EQU CVTRV262 01748000 CVTRV264 EQU CVTRV262 01749000 CVTRV263 EQU CVTRV262 01750000 CVTVFP EQU CVTS01+464 01751000 CVTVSI EQU CVTS01+460 01752000 CVTVPSIB EQU CVTS01+456 01753000 CVTMFACT EQU CVTMFRTR 01754000 CVTMFCTL EQU CVTS01+448 01755000 CVTPVBP EQU CVTS01+444 01756000 CVTPWI EQU CVTS01+440 01757000 CVTRV254 EQU CVTS01+438 01758000 CVTRV253 EQU CVTS01+436 01759000 CVTRV252 EQU CVTS01+434 01760000 CVTRV251 EQU CVTS01+433 01761000 CVTRV250 EQU CVTS01+432 01762000 CVTRV249 EQU CVTS01+431 01763000 CVTRV248 EQU CVTS01+430 01764000 CVTRV247 EQU CVTS01+429 01765000 CVTRV246 EQU CVTS01+428 01766000 CVTRV245 EQU CVTRV237 01767000 CVTRV244 EQU CVTRV237 01768000 CVTRV243 EQU CVTRV237 01769000 CVTRV242 EQU CVTRV237 01770000 CVTRV241 EQU CVTRV237 01771000 CVTRV240 EQU CVTRV237 01772000 CVTRV239 EQU CVTRV237 01773000 CVTRV238 EQU CVTRV237 01774000 CVTRV236 EQU CVTRV228 01775000 CVTRV235 EQU CVTRV228 01776000 CVTRV234 EQU CVTRV228 01777000 CVTRV233 EQU CVTRV228 01778000 CVTRV232 EQU CVTRV228 01779000 CVTRV231 EQU CVTRV228 01780000 CVTRV230 EQU CVTRV228 01781000 CVTRV229 EQU CVTRV228 01782000 CVTRV227 EQU CVTRV219 01783000 CVTRV226 EQU CVTRV219 01784000 CVTRV225 EQU CVTRV219 01785000 CVTRV224 EQU CVTRV219 01786000 CVTRV223 EQU CVTRV219 01787000 CVTRV222 EQU CVTRV219 01788000 CVTRV221 EQU CVTRV219 01789000 CVTRV220 EQU CVTRV219 01790000 CVTRV218 EQU CVTRV210 01791000 CVTRV217 EQU CVTRV210 01792000 CVTRV216 EQU CVTRV210 01793000 CVTRV215 EQU CVTRV210 01794000 CVTRV214 EQU CVTRV210 01795000 CVTRV213 EQU CVTRV210 01796000 CVTRV212 EQU CVTRV210 01797000 CVTRV211 EQU CVTRV210 01798000 CVTLCCAT EQU CVTS01+420 01799000 CVTPCCAT EQU CVTS01+416 01800000 CVTIPCRP EQU CVTS01+412 01801000 CVTIPCRI EQU CVTS01+408 01802000 CVTIPCDS EQU CVTS01+404 01803000 CVTAIDVT EQU CVTS01+400 01804000 CVTSSAP EQU CVTS01+396 01805000 CVTEHCIR EQU CVTS01+392 01806000 CVTEHDEF EQU CVTS01+388 01807000 CVTDAIR EQU CVTS01+384 01808000 CVTPERFM EQU CVTS01+380 01809000 CVT044R2 EQU CVTS01+376 01810000 CVTFETCH EQU CVTS01+372 01811000 CVTRSTWD EQU CVTS01+368 01812000 CVTSPOST EQU CVTS01+364 01813000 CVTIOBP EQU CVTS01+360 01814000 CVTASMVT EQU CVTS01+356 01815000 CVTRECRQ EQU CVTS01+352 01816000 CVTWSAC EQU CVTS01+348 01817000 CVTRV149 EQU CVTS01+344 01818000 CVTWSAL EQU CVTS01+340 01819000 CVTSPSA EQU CVTS01+336 01820000 CVTGLMN EQU CVTS01+332 01821000 CVTVEAC0 EQU CVTS01+328 01822000 CVT062R1 EQU CVTS01+324 01823000 CVTRPOST EQU CVTS01+320 01824000 CVTDQIQE EQU CVTS01+316 01825000 CVTCSD EQU CVTS01+312 01826000 CVTLKRMA EQU CVTS01+308 01827000 CVTRSPIE EQU CVTS01+304 01828000 CVTRENQ EQU CVTS01+300 01829000 CVTLQCB EQU CVTS01+296 01830000 CVTFQCB EQU CVTS01+292 01831000 CVTQCS01 EQU CVTS01+288 01832000 CVTAPFT EQU CVTS01+284 01833000 CVTPARRL EQU CVTS01+280 01834000 CVTVWAIT EQU CVTS01+276 01835000 CVTGSPL EQU CVTS01+272 01836000 CVTLSMQ EQU CVTS01+268 01837000 CVTGSMQ EQU CVTS01+264 01838000 CVTEXPRO EQU CVTS01+260 01839000 CVTOPCTP EQU CVTS01+256 01840000 CVTSIC EQU CVTS01+252 01841000 CVTTPIOS EQU CVTS01+248 01842000 CVTRTMS EQU CVTS01+244 01843000 CVTSDBF EQU CVTS01+240 01844000 CVTSCBP EQU CVTS01+236 01845000 CVTSDMP EQU CVTS01+232 01846000 CVTSV60 EQU CVTS01+228 01847000 CVTRTMCT EQU CVTS01+224 01848000 CVTASCBL EQU CVTS01+220 01849000 CVTASCBH EQU CVTS01+216 01850000 CVTGDA EQU CVTS01+212 01851000 CVTASVT EQU CVTS01+208 01852000 CVTVVMDI EQU CVTS01+204 01853000 CVTAQTOP EQU CVTS01+200 01854000 CVTIOSCS EQU CVTS01+196 01855000 CVTSDRM EQU CVTS01+192 01856000 CVTOPTE EQU CVTS01+188 01857000 CVTSTXU EQU CVTS01+184 01858000 CVTQUIS EQU CVTS01+180 01859000 CVTPARS EQU CVTS01+176 01860000 CVTS1EE EQU CVTS01+172 01861000 CVTFRAS EQU CVTS01+168 01862000 CVTQSAS EQU CVTS01+164 01863000 CVTCRAS EQU CVTS01+160 01864000 CVTCRMN EQU CVTS01+156 01865000 CVTDELCP EQU CVTS01+152 01866000 CVTFRECL EQU CVTS01+148 01867000 CVTGETCL EQU CVTS01+144 01868000 CVTBLDCP EQU CVTS01+140 01869000 CVTAUTHL EQU CVTS01+136 01870000 CVTSCAN EQU CVTS01+132 01871000 CVTRV144 EQU CVTS01+130 01872000 CVTMAXMP EQU CVTS01+128 01873000 CVTSTCK EQU CVTS01+124 01874000 CVTRV139 EQU CVTS01+123 01875000 CVTDSSAC EQU CVTS01+122 01876000 CVTRV513 EQU CVTS01+121 01877000 CVTIOSPL EQU CVTS01+120 01878000 CVTPTGT EQU CVTS01+116 01879000 CVTCSPIE EQU CVTS01+112 01880000 CVTSMFEX EQU CVTS01+108 01881000 CVTOLT0A EQU CVTS01+104 01882000 CVTSRBRT EQU CVTS01+100 01883000 CVTPUTL EQU CVTS01+96 01884000 CVTASCRL EQU CVTS01+92 01885000 CVTASCRF EQU CVTS01+88 01886000 CVTRV326 EQU CVTS01+84 01887000 CVTRV325 EQU CVTS01+80 01888000 CVTRV324 EQU CVTS01+76 01889000 CVT0VL01 EQU CVTS01+72 01890000 CVTSHRVM EQU CVTS01+68 01891000 CVTRV332 EQU CVTS01+64 01892000 CVTTAS EQU CVTS01+60 01893000 CVTRSCN EQU CVTS01+56 01894000 CVTTRAC2 EQU CVTS01+54 01895000 CVTTRACE EQU CVTS01+52 01896000 CVTAPG EQU CVTS01+51 01897000 CVTSDTRC EQU CVTCTLFG 01898000 CVTGTRCE EQU CVTCTLFG 01899000 CVTNOMP EQU CVTCTLFG 01900000 CVTRSV79 EQU CVTCTLFG 01901000 CVTDSTAT EQU CVTCTLFG 01902000 CVTRSV78 EQU CVTCTLFG 01903000 CVTRV333 EQU CVTCTLFG 01904000 CVTRV323 EQU CVTCTLFG 01905000 CVTSPVLK EQU CVTS01+49 01906000 CVTRSV77 EQU CVTS01+48 01907000 CVTRV331 EQU CVTS01+44 01908000 CVTRV330 EQU CVTS01+40 01909000 CVTRV329 EQU CVTS01+36 01910000 CVTRV328 EQU CVTS01+32 01911000 CVTRV322 EQU CVTS01+28 01912000 CVTSLID EQU CVTSLIDA+1 01913000 CVTSYLK EQU CVTSLIDA 01914000 CVTRV321 EQU CVTS01+20 01915000 CVTRV320 EQU CVTS01+16 01916000 CVTLPDIR EQU CVTLPDIA+1 01917000 CVTRSV69 EQU CVTDIRST 01918000 CVTRSV68 EQU CVTDIRST 01919000 CVTRSV67 EQU CVTDIRST 01920000 CVTRSV66 EQU CVTDIRST 01921000 CVTRSV65 EQU CVTDIRST 01922000 CVTRSV64 EQU CVTDIRST 01923000 CVTRSV63 EQU CVTDIRST 01924000 CVTDICOM EQU CVTDIRST 01925000 CVTPVTP EQU CVTS01+8 01926000 CVTLPDSR EQU CVTS01+4 01927000 CVTGETL EQU CVTS01 01928000 PSARSAV EQU PSARSVTE+60 01929000 PSARSTK EQU PSARSVTE+56 01930000 PSAESAV3 EQU PSARSVTE+52 01931000 PSAESTK3 EQU PSARSVTE+48 01932000 PSAESAV2 EQU PSARSVTE+44 01933000 PSAESTK2 EQU PSARSVTE+40 01934000 PSAESAV1 EQU PSARSVTE+36 01935000 PSAESTK1 EQU PSARSVTE+32 01936000 PSAPSAV EQU PSARSVTE+28 01937000 PSAPSTK EQU PSARSVTE+24 01938000 PSAMSAV EQU PSARSVTE+20 01939000 PSAMSTK EQU PSARSVTE+16 01940000 PSASSAV EQU PSARSVTE+12 01941000 PSASSTK EQU PSARSVTE+8 01942000 PSANSTK EQU PSARSVTE+4 01943000 @NM00149 EQU APESMV+6 01944000 @NM00148 EQU APESMV+4 01945000 APESMVKW EQU APESMV+2 01946000 APESMVMS EQU APESMV 01947000 APESREGE EQU APESREGS+56 01948000 APESREGD EQU APESREGS+52 01949000 APESREGB EQU APESREGS+44 01950000 APESREGA EQU APESREGS+40 01951000 APESREG9 EQU APESREGS+36 01952000 APESREG8 EQU APESREGS+32 01953000 APESREG7 EQU APESREGS+28 01954000 APESREG6 EQU APESREGS+24 01955000 APESREG5 EQU APESREGS+20 01956000 APESREG4 EQU APESREGS+16 01957000 APESREG3 EQU APESREGS+12 01958000 APESREG2 EQU APESREGS+8 01959000 APESREG1 EQU APESREGS+4 01960000 APESREG0 EQU APESREGS 01961000 APSVWORK EQU APSV+80 01962000 @NM00139 EQU APSV+80 01963000 APSVFREE EQU APSV+76 01964000 APSVAPSM EQU APSV+72 01965000 APSVRG12 EQU APSVREGS+56 01966000 APSVRG11 EQU APSVREGS+52 01967000 APSVRG10 EQU APSVREGS+48 01968000 APSVRG9 EQU APSVREGS+44 01969000 APSVRG8 EQU APSVREGS+40 01970000 APSVRG7 EQU APSVREGS+36 01971000 APSVRG6 EQU APSVREGS+32 01972000 APSVRG5 EQU APSVREGS+28 01973000 APSVRG4 EQU APSVREGS+24 01974000 APSVRG3 EQU APSVREGS+20 01975000 APSVRG2 EQU APSVREGS+16 01976000 APSVRG1 EQU APSVREGS+12 01977000 APSVRG0 EQU APSVREGS+8 01978000 APSVRG15 EQU APSVREGS+4 01979000 APSVRG14 EQU APSVREGS 01980000 APSVNEXT EQU APSV+8 01981000 APSVAPSC EQU APSV 01982000 APMVMMSG EQU APMVMSG+4 01983000 APMVMNBR EQU APMVMSG 01984000 APMVKKWD EQU APMVKWD+4 01985000 APMVKNBR EQU APMVKWD 01986000 APMVHEM EQU APMVHDR 01987000 @NM00135 EQU APIO+424 01988000 @NM00134 EQU APIO+400 01989000 APIOTMEE EQU APIO+396 01990000 APIOTMES EQU APIO+392 01991000 APIOXTME EQU APIO+388 01992000 APIONBRI EQU APIONBR+2 01993000 APIONBRX EQU APIONBR 01994000 APIOGMS1 EQU APIOGMSZ+2 01995000 @NM00133 EQU APIOGMSZ+1 01996000 APIOGMSP EQU APIOGMSZ 01997000 APIOGMAD EQU APIO+372 01998000 APIOCISZ EQU APIO+370 01999000 APIOSIZE EQU APIO+368 02000000 APIORB EQU APIOTR+4 02001000 APIOTCB EQU APIOTR 02002000 APIOECB EQU APIO+356 02003000 APIOTERM EQU APIO+352 02004000 APIOASCB EQU APIO+348 02005000 APIOTCSW EQU APIOSAVE 02006000 APIOSNSE EQU APIO+256 02007000 APIOACTV EQU APIOFLG7 02008000 APIOFLG6 EQU APIOFLGB+2 02009000 APIOFLG5 EQU APIOFLGB+1 02010000 APIOFLG4 EQU APIOFLGB 02011000 @NM00132 EQU APIOFLG3 02012000 APIOPGFS EQU APIOFLG3 02013000 APIOPGIP EQU APIOFLG3 02014000 APIORSME EQU APIOFLG3 02015000 APIONPST EQU APIOFLG3 02016000 APIOIOCT EQU APIOFLG3 02017000 @NM00131 EQU APIOFLG2 02018000 APIODMPT EQU APIOFLG2 02019000 APIODUMP EQU APIOFLG2 02020000 APIOCSWT EQU APIOFLG2 02021000 APIOVINX EQU APIOFLG2 02022000 APIOVSNS EQU APIOFLG2 02023000 APIOEXCL EQU APIOFLG2 02024000 APIOFLG1 EQU APIOFLGA+1 02025000 @NM00130 EQU APIOFLG0 02026000 APIOSU50 EQU APIOFLG0 02027000 APIOSYNC EQU APIOFLG0 02028000 APIOFXED EQU APIOFLG0 02029000 @NM00129 EQU APIO+246 02030000 APIOOLAP EQU APIO+244 02031000 APIOIOAP EQU APIO+240 02032000 APIORGN EQU APIO+236 02033000 APIOPGFL EQU APIO+232 02034000 APIOPGFX EQU APIO+228 02035000 APIOAPCI EQU APIO+224 02036000 APIOCCW EQU APIO+220 02037000 APIODEB EQU APIO+216 02038000 APIOAPXL EQU APIO+212 02039000 APIOVCSW EQU APIO+208 02040000 APIOAPUB EQU APIO+204 02041000 APIOAPIO EQU APIO+200 02042000 APIOUSER EQU APIO+196 02043000 APIOID EQU APIO+192 02044000 @NM00113 EQU APCT+1556 02045000 APCTSVCT EQU APCT+1552 02046000 APCTDAVT EQU APCT+1548 02047000 APCTLOGL EQU APCT+1544 02048000 @NM00112 EQU APCT+1540 02049000 APCTDMPU EQU APCT+1536 02050000 APCTDMPM EQU APCT+1532 02051000 APCTNDMP EQU APCT+1530 02052000 APCTASID EQU APCT+1528 02053000 APCTLGPG EQU APCT+1526 02054000 APCTLGLN EQU APCT+1524 02055000 APCTAPVU EQU APCT+1520 02056000 APCTABR EQU APCT+1116 02057000 APCTACTR EQU APCT+1112 02058000 APCTLOGD EQU APCT+1108 02059000 APCTDCLD EQU APCT+1104 02060000 APCTIOAP EQU APCT+1100 02061000 @NM00111 EQU APCT+1080 02062000 @NM00110 EQU APCT+1078 02063000 APCTKCAX EQU APCT+1076 02064000 APCTABND EQU APCT+1072 02065000 @NM00109 EQU APCT+1068 02066000 APCTAPIO EQU APCT+1064 02067000 APCTCSCT EQU APCT+1060 02068000 APCTSTDF EQU APCT+1056 02069000 APCTSTMX EQU APCT+1052 02070000 APCTRGMX EQU APCT+1048 02071000 APCTSIZE EQU APCT+1046 02072000 APCTCTUB EQU APCT+1045 02073000 APCTMFID EQU APCT+1044 02074000 APCTMFSZ EQU APCT+1040 02075000 APCTCRTN EQU APCT+1036 02076000 APCTAPCP EQU APCT+1032 02077000 APCTAMNA EQU APCT+1028 02078000 APCTEMNA EQU APCT+1024 02079000 APCTAALP EQU APCT+1020 02080000 APCTEALP EQU APCT+1016 02081000 @NM00108 EQU APCT+1012 02082000 @NM00107 EQU APCT+1008 02083000 @NM00106 EQU APCT+1004 02084000 APCTEIPL EQU APCT+1000 02085000 @NM00105 EQU APCT+996 02086000 @NM00104 EQU APCT+992 02087000 @NM00103 EQU APCT+988 02088000 @NM00102 EQU APCT+984 02089000 @NM00101 EQU APCT+980 02090000 APCTECPW EQU APCT+976 02091000 APCTEULD EQU APCT+972 02092000 APCTECPT EQU APCT+968 02093000 APCTEALC EQU APCT+964 02094000 APCTECBL EQU APCT+960 02095000 APCTECIT EQU APCT+956 02096000 APCTCQAF EQU APCTCQAQ 02097000 APCTCQL EQU APCTAPCQ+4 02098000 APCTCQF EQU APCTAPCQ 02099000 APCTCQLK EQU APCT+940 02100000 @NM00100 EQU @NM00096+2 02101000 @NM00099 EQU APCTPRSW 02102000 APCTAPST EQU APCTPRSW 02103000 @NM00098 EQU APCTPRSW 02104000 @NM00097 EQU APCTSTAT 02105000 APCTWARM EQU APCTSTAT 02106000 APCTTERM EQU APCTSTAT 02107000 APCTHALT EQU APCTSTAT 02108000 APCTQSCE EQU APCTSTAT 02109000 APCTSTRT EQU APCTSTAT 02110000 APCTACT EQU APCTSTAT 02111000 @NM00095 EQU APCT+935 02112000 APCTSOUT EQU APCT+934 02113000 APCTDAID EQU APCT+933 02114000 APCTSV34 EQU APCT+932 02115000 APCTMJOB EQU APCT+928 02116000 APCTTCB EQU APCT+924 02117000 APCTASCB EQU APCT+920 02118000 APCTDCNW EQU APCT+918 02119000 APCTDCNR EQU APCT+916 02120000 @NM00094 EQU APCT+912 02121000 @NM00093 EQU APCT+908 02122000 @NM00092 EQU APCT+904 02123000 @NM00091 EQU APCT+900 02124000 @NM00090 EQU APCTERRS+22 02125000 APCTERTJ EQU APCTERRS+20 02126000 APCTERTD EQU APCTERRS+18 02127000 APCTERTC EQU APCTERRS+16 02128000 APCTERTB EQU APCTERRS+14 02129000 APCTERTA EQU APCTERRS+12 02130000 APCTERT9 EQU APCTERRS+10 02131000 APCTERT3 EQU APCTERRS+8 02132000 APCTERT2 EQU APCTERRS+6 02133000 APCTERT1 EQU APCTERRS+4 02134000 APCTERT0 EQU APCTERRS+2 02135000 APCTERTT EQU APCTERRS 02136000 APCTDSAP EQU APCT+872 02137000 APCTISUB EQU APCT+868 02138000 APCTUBAP EQU APCT+864 02139000 APCTAPDS EQU APCT+860 02140000 APCTUBIC EQU APCT+856 02141000 APCTUBIS EQU APCT+852 02142000 APCTAPUB EQU APCT+848 02143000 APCTUBLK EQU APCT+844 02144000 APCTBR1A EQU APCTBR14+2 02145000 @NM00089 EQU APCTBR14 02146000 APCTSMSZ EQU APCTSMAD+2 02147000 @NM00088 EQU APCTSMAD+1 02148000 @NM00087 EQU APCTSMAD 02149000 APCTSMIS EQU APCTSMIN+2 02150000 @NM00086 EQU APCTSMIN+1 02151000 APCTSMSP EQU APCTSMIN 02152000 @NM00085 EQU APCT+30 02153000 APCTLINE EQU APCT+28 02154000 APCTLBSZ EQU APCT+24 02155000 APCTREG EQU APCT+20 02156000 APCTSSID EQU APCTENQM+4 02157000 @NM00084 EQU APCTENQM 02158000 APCTSSVT EQU APCT+8 02159000 APCTUSER EQU APCT+4 02160000 APCTID EQU APCT 02161000 @NM00083 EQU SDWA+512 02162000 SDWAVRA EQU SDWARA+4 02163000 SDWAURAL EQU SDWARA+3 02164000 @NM00082 EQU SDWADPVA 02165000 SDWAEBC EQU SDWADPVA 02166000 SDWAHEX EQU SDWADPVA 02167000 SDWAVRAL EQU SDWARA 02168000 SDWAERTM EQU SDWA+396 02169000 SDWACOMP EQU SDWA+392 02170000 SDWARCPL EQU SDWA+364 02171000 @NM00081 EQU SDWADPSA+32 02172000 SDWATO4 EQU SDWADPSL+28 02173000 SDWAFRM4 EQU SDWADPSL+24 02174000 SDWATO3 EQU SDWADPSL+20 02175000 SDWAFRM3 EQU SDWADPSL+16 02176000 SDWATO2 EQU SDWADPSL+12 02177000 SDWAFRM2 EQU SDWADPSL+8 02178000 SDWATO1 EQU SDWADPSL+4 02179000 SDWAFRM1 EQU SDWADPSL 02180000 @NM00080 EQU SDWADDAT+3 02181000 @NM00079 EQU SDWAPDAT 02182000 SDWAUSPL EQU SDWAPDAT 02183000 SDWADPSW EQU SDWAPDAT 02184000 SDWATJPA EQU SDWAPDAT 02185000 SDWATLPA EQU SDWAPDAT 02186000 SDWADREG EQU SDWAPDAT 02187000 SDWADSAH EQU SDWAPDAT 02188000 SDWADSAS EQU SDWAPDAT 02189000 @NM00078 EQU SDWASDA1 02190000 SDWAERR EQU SDWASDA1 02191000 SDWAIO EQU SDWASDA1 02192000 SDWADM EQU SDWASDA0 02193000 SDWAQQS EQU SDWASDA0 02194000 SDWACBS EQU SDWASDA0 02195000 SDWAGTF EQU SDWASDA0 02196000 SDWASWA EQU SDWASDA0 02197000 SDWALSQA EQU SDWASDA0 02198000 SDWASQA EQU SDWASDA0 02199000 SDWANUC EQU SDWASDA0 02200000 @NM00077 EQU SDWADUMP+2 02201000 @NM00076 EQU SDWADPFS 02202000 SDWASLST EQU SDWADPFS 02203000 @NM00075 EQU SDWADPFS 02204000 SDWAENSN EQU SDWADPFS 02205000 SDWADLST EQU SDWADPFS 02206000 SDWADPT EQU SDWADPFS 02207000 SDWADPID EQU SDWADUMP 02208000 SDWADPLA EQU SDWA+316 02209000 SDWAREXN EQU SDWARECP+16 02210000 SDWACSCT EQU SDWARECP+8 02211000 SDWAMODN EQU SDWARECP 02212000 SDWASEQ# EQU SDWA+290 02213000 SDWAASID EQU SDWA+288 02214000 SDWATALW EQU SDWALKWS+28 02215000 SDWATDLW EQU SDWALKWS+24 02216000 SDWATNLW EQU SDWALKWS+20 02217000 SDWAAPLW EQU SDWALKWS+16 02218000 SDWAIPLW EQU SDWALKWS+12 02219000 SDWAILLW EQU SDWALKWS+8 02220000 SDWAIULW EQU SDWALKWS+4 02221000 SDWAICLW EQU SDWALKWS 02222000 SDWAFLLK EQU SDWAACF4 02223000 SDWACMS EQU SDWAACF4 02224000 SDWAOPTM EQU SDWAACF4 02225000 SDWATADB EQU SDWAACF4 02226000 SDWATDNB EQU SDWAACF4 02227000 SDWATNCB EQU SDWAACF4 02228000 SDWAILCH EQU SDWAACF4 02229000 SDWAIUCB EQU SDWAACF4 02230000 SDWAICAT EQU SDWAACF3 02231000 SDWAIPRG EQU SDWAACF3 02232000 SDWASALL EQU SDWAACF3 02233000 SDWAASMP EQU SDWAACF3 02234000 SDWADISP EQU SDWAACF3 02235000 @NM00074 EQU SDWAACF3 02236000 @NM00073 EQU SDWAACF2 02237000 SDWAFREE EQU SDWAACF2 02238000 SDWAUPRG EQU SDWAACF2 02239000 @NM00072 EQU SDWAACF2 02240000 SDWASPIN EQU SDWAACF2 02241000 @NM00071 EQU SDWAACF2 02242000 SDWARCRD EQU SDWAACF2 02243000 SDWARCDE EQU SDWAPARQ 02244000 SDWALCPU EQU SDWACPUA+2 02245000 @NM00070 EQU SDWACPUA 02246000 SDWARECA EQU SDWA+244 02247000 SDWARTYA EQU SDWA+240 02248000 SDWACPUI EQU SDWA+239 02249000 @NM00069 EQU SDWAIOFS 02250000 SDWANIOP EQU SDWAIOFS 02251000 SDWANOIO EQU SDWAIOFS 02252000 SDWAIOHT EQU SDWAIOFS 02253000 SDWAIOQR EQU SDWAIOFS 02254000 SDWAFMID EQU SDWA+236 02255000 SDWAERFL EQU SDWAERRD 02256000 SDWAMCIV EQU SDWAERRD 02257000 SDWARPIV EQU SDWAERRD 02258000 SDWAMABD EQU SDWAERRD 02259000 SDWACTS EQU SDWAERRD 02260000 SDWASTAE EQU SDWAERRD 02261000 SDWANRBE EQU SDWAERRD 02262000 SDWACLUP EQU SDWAERRD 02263000 @NM00068 EQU SDWAERRC 02264000 SDWAEAS EQU SDWAERRC 02265000 SDWAPERC EQU SDWAERRC 02266000 SDWAIRB EQU SDWAERRC 02267000 SDWASTAI EQU SDWAERRC 02268000 SDWASTAF EQU SDWAERRC 02269000 SDWASRBM EQU SDWAERRB 02270000 SDWALDIS EQU SDWAERRB 02271000 SDWAENRB EQU SDWAERRB 02272000 SDWATYP1 EQU SDWAERRB 02273000 @NM00067 EQU SDWAERRB 02274000 SDWAPGIO EQU SDWAERRA 02275000 SDWATEXC EQU SDWAERRA 02276000 SDWASVCE EQU SDWAERRA 02277000 SDWAABTM EQU SDWAERRA 02278000 SDWASVCD EQU SDWAERRA 02279000 SDWARKEY EQU SDWAERRA 02280000 SDWAPCHK EQU SDWAERRA 02281000 SDWAMCHK EQU SDWAERRA 02282000 SDWATIME EQU SDWAMCH+20 02283000 SDWARFSA EQU SDWAMCH+16 02284000 @NM00066 EQU SDWAMCH+14 02285000 SDWAVEQR EQU SDWARSR2 02286000 SDWAPGFX EQU SDWARSR2 02287000 SDWAFLSQ EQU SDWARSR2 02288000 SDWAFSQA EQU SDWARSR2 02289000 SDWANUCL EQU SDWARSR2 02290000 SDWASPER EQU SDWARSR2 02291000 SDWAINTC EQU SDWARSR2 02292000 SDWAOFLN EQU SDWARSR2 02293000 SDWACHNG EQU SDWARSR1 02294000 SDWAMSER EQU SDWARSR1 02295000 @NM00065 EQU SDWARSR1 02296000 SDWACPID EQU SDWAMCH+10 02297000 SDWATERR EQU SDWAMCHD 02298000 SDWAFPRX EQU SDWAMCHD 02299000 SDWAINSF EQU SDWAMCHD 02300000 SDWAACR EQU SDWAMCHD 02301000 SDWASCK EQU SDWAMCHD 02302000 SDWAPSWU EQU SDWAMCHD 02303000 SDWAREGU EQU SDWAMCHD 02304000 SDWASKYF EQU SDWAMCHD 02305000 @NM00064 EQU SDWAMCHS 02306000 SDWARSRF EQU SDWAMCHS 02307000 SDWARSRC EQU SDWAMCHS 02308000 SDWAINVP EQU SDWAMCHS 02309000 SDWATSVL EQU SDWAMCHS 02310000 SDWARCDF EQU SDWAMCHS 02311000 SDWASRVL EQU SDWAMCHS 02312000 SDWASCKE EQU SDWASTCK+4 02313000 SDWASCKB EQU SDWASTCK 02314000 SDWALNTH EQU SDWAIDNT+1 02315000 SDWASPID EQU SDWAIDNT 02316000 SDWASR15 EQU SDWASRSV+60 02317000 SDWASR14 EQU SDWASRSV+56 02318000 SDWASR13 EQU SDWASRSV+52 02319000 SDWASR12 EQU SDWASRSV+48 02320000 SDWASR11 EQU SDWASRSV+44 02321000 SDWASR10 EQU SDWASRSV+40 02322000 SDWASR09 EQU SDWASRSV+36 02323000 SDWASR08 EQU SDWASRSV+32 02324000 SDWASR07 EQU SDWASRSV+28 02325000 SDWASR06 EQU SDWASRSV+24 02326000 SDWASR05 EQU SDWASRSV+20 02327000 SDWASR04 EQU SDWASRSV+16 02328000 SDWASR03 EQU SDWASRSV+12 02329000 SDWASR02 EQU SDWASRSV+8 02330000 SDWASR01 EQU SDWASRSV+4 02331000 SDWASR00 EQU SDWASRSV 02332000 SDWATRN2 EQU SDWAAEC2+4 02333000 SDWAIPC2 EQU SDWAICD2 02334000 SDWAIMC2 EQU SDWAICD2 02335000 SDWAIPR2 EQU SDWAICD2 02336000 @NM00063 EQU SDWAINC2 02337000 @NM00062 EQU SDWAILC2 02338000 SDWAIL2 EQU SDWAILC2 02339000 @NM00061 EQU SDWAILC2 02340000 @NM00060 EQU SDWAAEC2 02341000 SDWAADD2 EQU SDWANXT2+1 02342000 @NM00059 EQU SDWANXT2 02343000 @NM00058 EQU SDWAEC2+3 02344000 SDWASGN2 EQU SDWAINT2 02345000 SDWAEXP2 EQU SDWAINT2 02346000 SDWADEC2 EQU SDWAINT2 02347000 SDWAFPO2 EQU SDWAINT2 02348000 SDWACC2 EQU SDWAINT2 02349000 @NM00057 EQU SDWAINT2 02350000 SDWAPGM2 EQU SDWAMWP2 02351000 SDWAWAT2 EQU SDWAMWP2 02352000 SDWAMCK2 EQU SDWAMWP2 02353000 SDWAECT2 EQU SDWAMWP2 02354000 SDWAKEY2 EQU SDWAMWP2 02355000 SDWAEXT2 EQU SDWAEMK2 02356000 SDWAIO2 EQU SDWAEMK2 02357000 SDWATRM2 EQU SDWAEMK2 02358000 @NM00056 EQU SDWAEMK2 02359000 SDWAPER2 EQU SDWAEMK2 02360000 @NM00055 EQU SDWAEMK2 02361000 SDWATRAN EQU SDWAAEC1+4 02362000 SDWAIPC1 EQU SDWAICD1 02363000 SDWAIMC1 EQU SDWAICD1 02364000 SDWAIPR1 EQU SDWAICD1 02365000 @NM00054 EQU SDWAINC1 02366000 @NM00053 EQU SDWAILC1 02367000 SDWAIL1 EQU SDWAILC1 02368000 @NM00052 EQU SDWAILC1 02369000 @NM00051 EQU SDWAAEC1 02370000 SDWAADD1 EQU SDWANXT1+1 02371000 @NM00050 EQU SDWANXT1 02372000 @NM00049 EQU SDWAEC1+3 02373000 SDWASGN1 EQU SDWAINT1 02374000 SDWAEXP1 EQU SDWAINT1 02375000 SDWADEC1 EQU SDWAINT1 02376000 SDWAFPO1 EQU SDWAINT1 02377000 SDWACC1 EQU SDWAINT1 02378000 @NM00048 EQU SDWAINT1 02379000 SDWAPGM1 EQU SDWAMWP1 02380000 SDWAWAT1 EQU SDWAMWP1 02381000 SDWAMCK1 EQU SDWAMWP1 02382000 SDWAECT1 EQU SDWAMWP1 02383000 SDWAKEY1 EQU SDWAMWP1 02384000 SDWAEXT1 EQU SDWAEMK1 02385000 SDWAIO1 EQU SDWAEMK1 02386000 SDWATRM1 EQU SDWAEMK1 02387000 @NM00047 EQU SDWAEMK1 02388000 SDWAPER1 EQU SDWAEMK1 02389000 @NM00046 EQU SDWAEMK1 02390000 SDWAIOBR EQU SDWA+100 02391000 SDWAEPA EQU SDWA+96 02392000 @NM00045 EQU SDWANAME+4 02393000 SDWARBAD EQU SDWANAME 02394000 SDWAGR15 EQU SDWAGRSV+60 02395000 SDWAGR14 EQU SDWAGRSV+56 02396000 SDWAGR13 EQU SDWAGRSV+52 02397000 SDWAGR12 EQU SDWAGRSV+48 02398000 SDWAGR11 EQU SDWAGRSV+44 02399000 SDWAGR10 EQU SDWAGRSV+40 02400000 SDWAGR09 EQU SDWAGRSV+36 02401000 SDWAGR08 EQU SDWAGRSV+32 02402000 SDWAGR07 EQU SDWAGRSV+28 02403000 SDWAGR06 EQU SDWAGRSV+24 02404000 SDWAGR05 EQU SDWAGRSV+20 02405000 SDWAGR04 EQU SDWAGRSV+16 02406000 SDWAGR03 EQU SDWAGRSV+12 02407000 SDWAGR02 EQU SDWAGRSV+8 02408000 SDWAGR01 EQU SDWAGRSV+4 02409000 SDWAGR00 EQU SDWAGRSV 02410000 SDWANXTP EQU SDWACTL2+5 02411000 SDWASGP EQU SDWAPMKP 02412000 SDWAEUP EQU SDWAPMKP 02413000 SDWADOP EQU SDWAPMKP 02414000 SDWAFPP EQU SDWAPMKP 02415000 SDWACCP EQU SDWAPMKP 02416000 SDWAILP EQU SDWAPMKP 02417000 SDWAINTP EQU SDWACTL2+2 02418000 SDWASPVP EQU SDWAMWPP 02419000 SDWAWATP EQU SDWAMWPP 02420000 SDWAMCKP EQU SDWAMWPP 02421000 @NM00044 EQU SDWAMWPP 02422000 SDWAKEYP EQU SDWAMWPP 02423000 SDWAEXTP EQU SDWACMKP 02424000 SDWAIOP EQU SDWACMKP 02425000 SDWANXTA EQU SDWACTL1+5 02426000 SDWASGA EQU SDWAPMKA 02427000 SDWAEUA EQU SDWAPMKA 02428000 SDWADOA EQU SDWAPMKA 02429000 SDWAFPA EQU SDWAPMKA 02430000 SDWACCA EQU SDWAPMKA 02431000 SDWAILA EQU SDWAPMKA 02432000 SDWAINTA EQU SDWACTL1+2 02433000 SDWASPVA EQU SDWAMWPA 02434000 SDWAWATA EQU SDWAMWPA 02435000 SDWAMCKA EQU SDWAMWPA 02436000 @NM00043 EQU SDWAMWPA 02437000 SDWAKEYA EQU SDWAMWPA 02438000 SDWAEXTA EQU SDWACMKA 02439000 SDWAIOA EQU SDWACMKA 02440000 SDWACMPC EQU SDWAABCC+1 02441000 @NM00042 EQU SDWACMPF 02442000 SDWASTCC EQU SDWACMPF 02443000 @NM00041 EQU SDWACMPF 02444000 SDWASTEP EQU SDWACMPF 02445000 SDWAREQ EQU SDWACMPF 02446000 IPIBEND EQU IPIB+40 02447000 IPIBLNK EQU IPIB+36 02448000 IPIBPSQ EQU IPIB+32 02449000 IPIBPIRL EQU IPIB+28 02450000 IPIBDVRU EQU IPIB+24 02451000 IPIBIO EQU IPIB+20 02452000 IPIBARG EQU IPIB+12 02453000 IPIBECB EQU IPIB+8 02454000 IPIBCNT EQU IPIB+4 02455000 @NM00040 EQU IPIB+3 02456000 @NM00039 EQU IPIBFLG1 02457000 IPIBDQ EQU IPIBFLG1 02458000 IPIBDVID EQU IPIB+1 02459000 @NM00038 EQU IPIBOPT 02460000 IPIBOTCB EQU IPIBOPT 02461000 IPIBREL EQU IPIBOPT 02462000 IPIBPOST EQU IPIBOPT 02463000 IPIBRBP EQU IPIBOPT 02464000 IPIBTASK EQU IPIBOPT 02465000 @NM00037 EQU SRB+40 02466000 @NM00036 EQU SRB+38 02467000 SRBPRIOR EQU SRB+37 02468000 SRBPKF EQU SRB+36 02469000 SRBSAVE EQU SRB+32 02470000 SRBRMTR EQU SRB+24 02471000 SRBEP EQU SRB+20 02472000 SRBPTCB EQU SRBFLC+4 02473000 SRBPASID EQU SRBFLC+2 02474000 SRBCPAFF EQU SRBFLC 02475000 SRBASCB EQU SRB+8 02476000 SRBID EQU SRB 02477000 IOSEND EQU IOSB+108 02478000 IOSSKR EQU IOSEEKA+7 02479000 IOSSKH2 EQU IOSSKHH+1 02480000 IOSSKH1 EQU IOSSKHH 02481000 IOSSKCC EQU IOSCCHH 02482000 IOSSKBB EQU IOSEEKA+1 02483000 IOSSKM EQU IOSEEKA 02484000 IOSEEK EQU IOSB+92 02485000 IOSMDM EQU IOSB+91 02486000 IOSMDB EQU IOSB+90 02487000 IOSCKEY7 EQU IOSCKEY 02488000 IOSCKEY6 EQU IOSCKEY 02489000 IOSCKEY5 EQU IOSCKEY 02490000 IOSCKEY4 EQU IOSCKEY 02491000 @NM00032 EQU IOSCKEY 02492000 IOSFMSK EQU IOSB+88 02493000 IOSCUDEV EQU IOSPATH+1 02494000 @NM00031 EQU IOSCHN 02495000 IOSPATH3 EQU IOSCHN 02496000 IOSPATH2 EQU IOSCHN 02497000 IOSEXP EQU IOSCHN 02498000 IOSGDP EQU IOSCHN 02499000 IOSAFF EQU IOSB+85 02500000 IOSRSS1B EQU IOSB+84 02501000 IOSDSID EQU IOSB+80 02502000 IOSVST EQU IOSB+76 02503000 IOSRST EQU IOSB+72 02504000 IOSNOTRS EQU IOSDIEFG 02505000 IOSABN EQU IOSB+64 02506000 IOSNRM EQU IOSB+60 02507000 IOSPCI EQU IOSB+56 02508000 IOSERP EQU IOSB+52 02509000 IOSPCHN EQU IOSB+48 02510000 IOSSNS EQU IOSB+42 02511000 IOSAPMSK EQU IOSB+40 02512000 IOSRES4A EQU IOSB+36 02513000 IOSUSE EQU IOSB+32 02514000 IOSSRB EQU IOSB+28 02515000 IOSCSWRC EQU IOSCSW+5 02516000 IOSTSB EQU IOSTATUS+1 02517000 IOSTSA EQU IOSTATUS 02518000 IOSCSWCA EQU IOSCSW 02519000 IOSCC EQU @NM00030 02520000 IOSUCB EQU IOSB+16 02521000 IOSOPT2X EQU IOSOPT2 02522000 IOSHTP EQU IOSOPT2 02523000 IOSRELSE EQU IOSOPT 02524000 IOSAPR EQU IOSOPT 02525000 IOSTSLL EQU IOSOPT 02526000 IOSNERP EQU IOSOPT 02527000 IOSPSLL EQU IOSOPT 02528000 IOSQISCE EQU IOSOPT 02529000 IOSDEP EQU IOSOPT 02530000 IOSBYP EQU IOSOPT 02531000 IOSCOD EQU IOSB+13 02532000 IOSPKY7 EQU IOSPKEY 02533000 IOSPGDPX EQU IOSPKEY 02534000 IOSIDR EQU IOSPKEY 02535000 IOSLCL EQU IOSPKEY 02536000 @NM00029 EQU IOSPKEY 02537000 IOSPGAD EQU IOSB+8 02538000 IOSASID EQU IOSB+6 02539000 IOSPRLVL EQU IOSB+5 02540000 IOSDVRID EQU IOSB+4 02541000 IOSPROC EQU IOSB+3 02542000 IOSFLC7 EQU IOSFLC 02543000 IOSCTCNR EQU IOSFLC 02544000 IOSRWAIT EQU IOSFLC 02545000 IOSTP EQU IOSFLC 02546000 IOSCC3WE EQU IOSFLC 02547000 IOSVERIF EQU IOSDVALT 02548000 IOSDVMNT EQU IOSFLC 02549000 IOSLOG EQU IOSFLB 02550000 IOSBDCST EQU IOSFLB 02551000 IOSMSG EQU IOSFLB 02552000 IOSFLB4 EQU IOSFLB 02553000 IOSFLB3 EQU IOSFLB 02554000 IOSFLB2 EQU IOSFLB 02555000 IOSSDR EQU IOSFLB 02556000 IOSDIESE EQU IOSFLB 02557000 IOSIOSB EQU IOSFLA 02558000 IOSDOM EQU IOSFLA 02559000 IOSEX EQU IOSFLA 02560000 IOSSMDB EQU IOSFLA 02561000 IOSSMDA EQU IOSFLA 02562000 IOSERR EQU IOSFLA 02563000 IOSCCHN EQU IOSACHN 02564000 IOSDCHN EQU IOSACHN 02565000 @NM00028 EQU FRRSFLGS+1 02566000 @NM00027 EQU FRRSFLG1 02567000 FRRSNEST EQU FRRSFLG1 02568000 FRRSRCUR EQU FRRSFLG1 02569000 FRRSENTS EQU FRRS+84 02570000 FRRSRTMW EQU FRRS+16 02571000 SURV104 EQU SUBITS+13 02572000 SURV103 EQU SUBYTE13 02573000 SURV102 EQU SUBYTE13 02574000 SURV101 EQU SUBYTE13 02575000 SU100BT EQU SUBYTE13 02576000 SU99BIT EQU SUBYTE13 02577000 SU98BIT EQU SUBYTE13 02578000 SU97BIT EQU SUBYTE13 02579000 SU96BIT EQU SUBYTE13 02580000 SU95BIT EQU SUBYTE12 02581000 SU94BIT EQU SUBYTE12 02582000 SU93BIT EQU SUBYTE12 02583000 SU92BIT EQU SUBYTE12 02584000 SU91BIT EQU SUBYTE12 02585000 SU90BIT EQU SUBYTE12 02586000 SU89BIT EQU SUBYTE12 02587000 SU88BIT EQU SUBYTE12 02588000 SU87BIT EQU SUBYTE11 02589000 SU86BIT EQU SUBYTE11 02590000 SU85BIT EQU SUBYTE11 02591000 SU84BIT EQU SUBYTE11 02592000 SU83BIT EQU SUBYTE11 02593000 SU82BIT EQU SUBYTE11 02594000 SU81BIT EQU SUBYTE11 02595000 SU80BIT EQU SUBYTE11 02596000 SU79BIT EQU SUBYTE10 02597000 SU78BIT EQU SUBYTE10 02598000 SU77BIT EQU SUBYTE10 02599000 SU76BIT EQU SUBYTE10 02600000 SU75BIT EQU SUBYTE10 02601000 SU74BIT EQU SUBYTE10 02602000 SU73BIT EQU SUBYTE10 02603000 SU72BIT EQU SUBYTE10 02604000 SU71BIT EQU SUBYTE9 02605000 SU70BIT EQU SUBYTE9 02606000 SU69BIT EQU SUBYTE9 02607000 SU68BIT EQU SUBYTE9 02608000 SU67BIT EQU SUBYTE9 02609000 SU66BIT EQU SUBYTE9 02610000 SU65BIT EQU SUBYTE9 02611000 SU64BIT EQU SUBYTE9 02612000 SU63BIT EQU SUBYTE8 02613000 SU62BIT EQU SUBYTE8 02614000 SU61BIT EQU SUBYTE8 02615000 SU60BIT EQU SUBYTE8 02616000 SU59BIT EQU SUBYTE8 02617000 SU58BIT EQU SUBYTE8 02618000 SU57BIT EQU SUBYTE8 02619000 SU56BIT EQU SUBYTE8 02620000 SU55BIT EQU SUBYTE7 02621000 SU54BIT EQU SUBYTE7 02622000 SU53BIT EQU SUBYTE7 02623000 SU52BIT EQU SUBYTE7 02624000 SU51BIT EQU SUBYTE7 02625000 SU50BIT EQU SUBYTE7 02626000 SU49BIT EQU SUBYTE7 02627000 SU48BIT EQU SUBYTE7 02628000 SU47BIT EQU SUBYTE6 02629000 SU46BIT EQU SUBYTE6 02630000 SU45BIT EQU SUBYTE6 02631000 SU44BIT EQU SUBYTE6 02632000 SU43BIT EQU SUBYTE6 02633000 SU42BIT EQU SUBYTE6 02634000 SU41BIT EQU SUBYTE6 02635000 SU40BIT EQU SUBYTE6 02636000 SU39BIT EQU SUBYTE5 02637000 SU38BIT EQU SUBYTE5 02638000 SU37BIT EQU SUBYTE5 02639000 SU36BIT EQU SUBYTE5 02640000 SU35BIT EQU SUBYTE5 02641000 SU34BIT EQU SUBYTE5 02642000 SU33BIT EQU SUBYTE5 02643000 SU32BIT EQU SUBYTE5 02644000 SU31BIT EQU SUBYTE4 02645000 SU30BIT EQU SUBYTE4 02646000 SU29BIT EQU SUBYTE4 02647000 SU28BIT EQU SUBYTE4 02648000 SU27BIT EQU SUBYTE4 02649000 SU26BIT EQU SUBYTE4 02650000 SU25BIT EQU SUBYTE4 02651000 SU24BIT EQU SUBYTE4 02652000 SU23BIT EQU SUBYTE3 02653000 SU22BIT EQU SUBYTE3 02654000 SU21BIT EQU SUBYTE3 02655000 SU20BIT EQU SUBYTE3 02656000 SU19BIT EQU SUBYTE3 02657000 SU18BIT EQU SUBYTE3 02658000 SU17BIT EQU SUBYTE3 02659000 SU16BIT EQU SUBYTE3 02660000 SU15BIT EQU SUBYTE2 02661000 SU14BIT EQU SUBYTE2 02662000 SU13BIT EQU SUBYTE2 02663000 SU12BIT EQU SUBYTE2 02664000 SU11BIT EQU SUBYTE2 02665000 SU10BIT EQU SUBYTE2 02666000 SU9BIT EQU SUBYTE2 02667000 SU8BIT EQU SUBYTE2 02668000 SU7BIT EQU SUBYTE1 02669000 SU6BIT EQU SUBYTE1 02670000 SU5BIT EQU SUBYTE1 02671000 SU4BIT EQU SUBYTE1 02672000 SU3BIT EQU SUBYTE1 02673000 SU2BIT EQU SUBYTE1 02674000 SU1BIT EQU SUBYTE1 02675000 SU0BIT EQU SUBYTE1 02676000 CVTLEVL EQU CVTRELNO+2 02677000 CVTNUMB EQU CVTRELNO 02678000 CVTMDL EQU CVTFIX+250 02679000 @NM00026 EQU CVTFIX+248 02680000 @NM00025 EQU CVTFIX 02681000 CVTRV482 EQU CVTXTNT2+128 02682000 CVTRV481 EQU CVTXTNT2+124 02683000 CVTRV480 EQU CVTXTNT2+120 02684000 CVTRV479 EQU CVTXTNT2+118 02685000 CVTRV478 EQU CVTXTNT2+117 02686000 CVTRV477 EQU CVTXTNT2+116 02687000 CVTRV476 EQU CVTXTNT2+115 02688000 CVTRV475 EQU CVTXTNT2+114 02689000 CVTRV474 EQU CVTRV466 02690000 CVTRV473 EQU CVTRV466 02691000 CVTRV472 EQU CVTRV466 02692000 CVTRV471 EQU CVTRV466 02693000 CVTRV470 EQU CVTRV466 02694000 CVTRV469 EQU CVTRV466 02695000 CVTRV468 EQU CVTRV466 02696000 CVTRV467 EQU CVTRV466 02697000 CVTRV465 EQU CVTRV457 02698000 CVTRV464 EQU CVTRV457 02699000 CVTRV463 EQU CVTRV457 02700000 CVTRV462 EQU CVTRV457 02701000 CVTRV461 EQU CVTRV457 02702000 CVTRV460 EQU CVTRV457 02703000 CVTRV459 EQU CVTRV457 02704000 CVTRV458 EQU CVTRV457 02705000 CVTRV456 EQU CVTXTNT2+108 02706000 CVTRV455 EQU CVTXTNT2+104 02707000 CVTRV454 EQU CVTXTNT2+100 02708000 CVTRV453 EQU CVTXTNT2+96 02709000 CVTRV452 EQU CVTXTNT2+94 02710000 CVTRV451 EQU CVTXTNT2+92 02711000 CVTRV450 EQU CVTXTNT2+90 02712000 CVTRV449 EQU CVTXTNT2+88 02713000 CVTRV448 EQU CVTXTNT2+87 02714000 CVTRV447 EQU CVTXTNT2+86 02715000 CVTRV446 EQU CVTRV438 02716000 CVTRV445 EQU CVTRV438 02717000 CVTRV444 EQU CVTRV438 02718000 CVTRV443 EQU CVTRV438 02719000 CVTRV442 EQU CVTRV438 02720000 CVTRV441 EQU CVTRV438 02721000 CVTRV440 EQU CVTRV438 02722000 CVTRV439 EQU CVTRV438 02723000 CVTRV437 EQU CVTRV429 02724000 CVTRV436 EQU CVTRV429 02725000 CVTRV435 EQU CVTRV429 02726000 CVTRV434 EQU CVTRV429 02727000 CVTRV433 EQU CVTRV429 02728000 CVTRV432 EQU CVTRV429 02729000 CVTRV431 EQU CVTRV429 02730000 CVTRV430 EQU CVTRV429 02731000 CVTRV428 EQU CVTXTNT2+80 02732000 CVTRV427 EQU CVTXTNT2+76 02733000 CVTRV426 EQU CVTXTNT2+72 02734000 CVTRV425 EQU CVTXTNT2+68 02735000 CVTATACT EQU CVTATCVT 02736000 CVTRV423 EQU CVTXTNT2+62 02737000 CVTRV422 EQU CVTXTNT2+60 02738000 CVTRV421 EQU CVTXTNT2+58 02739000 CVTRV420 EQU CVTXTNT2+56 02740000 CVTRV419 EQU CVTXTNT2+55 02741000 CVTRV418 EQU CVTXTNT2+54 02742000 CVTRV417 EQU CVTRV409 02743000 CVTRV416 EQU CVTRV409 02744000 CVTRV415 EQU CVTRV409 02745000 CVTRV414 EQU CVTRV409 02746000 CVTRV413 EQU CVTRV409 02747000 CVTRV412 EQU CVTRV409 02748000 CVTRV411 EQU CVTRV409 02749000 CVTRV410 EQU CVTRV409 02750000 CVTRV408 EQU CVTRV400 02751000 CVTRV407 EQU CVTRV400 02752000 CVTRV406 EQU CVTRV400 02753000 CVTRV405 EQU CVTRV400 02754000 CVTRV404 EQU CVTRV400 02755000 CVTRV403 EQU CVTRV400 02756000 CVTRV402 EQU CVTRV400 02757000 CVTRV401 EQU CVTRV400 02758000 CVTICB EQU CVTXTNT2+48 02759000 CVTSKTA EQU CVTXTNT2+44 02760000 CVTRSV99 EQU CVTXTNT2+40 02761000 CVTRSV98 EQU CVTXTNT2+36 02762000 CVTRSV97 EQU CVTXTNT2+34 02763000 CVTRSV96 EQU CVTXTNT2+32 02764000 CVTOLTEP EQU CVTXTNT2+28 02765000 CVTQIDA EQU CVTQID+1 02766000 CVTRSV95 EQU CVTQID 02767000 CVTRSV94 EQU CVTXTNT2+20 02768000 CVTRSV93 EQU CVTXTNT2+16 02769000 CVTRSV92 EQU CVTXTNT2+12 02770000 CVTDEBVR EQU CVTXTNT2+8 02771000 CVTRSV91 EQU CVTXTNT2+6 02772000 CVTRSV9H EQU CVTFLGBT 02773000 CVTRSV9G EQU CVTFLGBT 02774000 CVTRSV9F EQU CVTFLGBT 02775000 CVTRSV9E EQU CVTFLGBT 02776000 CVTRSV9D EQU CVTFLGBT 02777000 CVTRSV9C EQU CVTFLGBT 02778000 CVTVME EQU CVTFLGBT 02779000 CVTNPE EQU CVTFLGBT 02780000 CVTNUCLS EQU CVTXTNT2+4 02781000 CVTDSSVA EQU CVTDSSV+1 02782000 CVTRSV89 EQU CVTDSSV 02783000 CVTRSV88 EQU CVTXTNT1+8 02784000 CVTRSV87 EQU CVTXTNT1+4 02785000 CVTFACHN EQU CVTXTNT1 02786000 CVTRV488 EQU CVTMAP+412 02787000 CVTRV487 EQU CVTMAP+408 02788000 CVTRV486 EQU CVTMAP+404 02789000 CVTRV485 EQU CVTMAP+400 02790000 CVTACTAP EQU CVTMAP+396 02791000 CVTAUTH EQU CVTMAP+392 02792000 CVTATMCA EQU CVTATMCT+1 02793000 CVTATMST EQU CVTATMCT 02794000 CVTRSV61 EQU CVTMAP+384 02795000 CVTVOLT1 EQU CVTVOLM1+1 02796000 CVTVOLI1 EQU CVTVOLF1 02797000 CVTSTOA EQU CVTMAP+376 02798000 CVTRSV58 EQU CVTMAP+374 02799000 CVTRSV57 EQU CVTMAP+372 02800000 CVTDDCE EQU CVTMAP+368 02801000 CVTPNWFR EQU CVTMAP+364 02802000 CVTSMF EQU CVTMAP+360 02803000 CVTSULK EQU CVTMAP+358 02804000 CVTSLKO EQU CVTSYSK 02805000 CVTSLKP EQU CVTSYSK 02806000 CVTSLKQ EQU CVTSYSK 02807000 CVTSLKR EQU CVTSYSK 02808000 CVTRSV56 EQU CVTSYSK 02809000 CVTRSV55 EQU CVTSYSK 02810000 CVTRSV54 EQU CVTSYSK 02811000 CVTRSV53 EQU CVTSYSK 02812000 CVTRSV52 EQU CVTA1F1 02813000 CVTRSV51 EQU CVTA1F1 02814000 CVTRSV50 EQU CVTA1F1 02815000 CVTRSV49 EQU CVTA1F1 02816000 CVTRSV48 EQU CVTA1F1 02817000 CVTRSV47 EQU CVTA1F1 02818000 CVTSRSW EQU CVTA1F1 02819000 CVTPFSW EQU CVTA1F1 02820000 CVTPCVT EQU CVTMAP+352 02821000 CVTRSV46 EQU CVTMAP+344 02822000 CVTRSV45 EQU CVTMAP+340 02823000 CVTRSV44 EQU CVTMAP+338 02824000 CVTRSV43 EQU CVTMAP+336 02825000 CVTHJESA EQU CVTHJES+1 02826000 CVTRSV42 EQU CVTHJES 02827000 CVTEXT2A EQU CVTEXT2+1 02828000 CVTRSV41 EQU CVTEXT2 02829000 CVTAPFA EQU CVTAPF+1 02830000 CVTRSV40 EQU CVTAPF 02831000 CVTRV518 EQU CVTINTLA 02832000 CVTRV517 EQU CVTERPV 02833000 CVTEORM EQU CVTMAP+312 02834000 CVTMCHPR EQU CVTMAP+308 02835000 CVTTZ EQU CVTMAP+304 02836000 CVTJEPS EQU CVTMAP+300 02837000 CVTJESCT EQU CVTMAP+296 02838000 CVTMODE EQU CVTMAP+292 02839000 CVTPTRV EQU CVTMAP+288 02840000 CVTREAL EQU CVTMAP+284 02841000 CVTRSV39 EQU CVTMAP+280 02842000 CVTRSV38 EQU CVTMAP+276 02843000 CVTDMSRA EQU CVTDMSR+1 02844000 CVTRV634 EQU CVTDMSRF 02845000 CVTRV633 EQU CVTDMSRF 02846000 CVTRV632 EQU CVTDMSRF 02847000 CVTRV631 EQU CVTDMSRF 02848000 CVTRV630 EQU CVTDMSRF 02849000 CVTRV629 EQU CVTDMSRF 02850000 CVTUDUMP EQU CVTDMSRF 02851000 CVTSDUMP EQU CVTDMSRF 02852000 CVTQMSGA EQU CVTQMSG+1 02853000 CVTRSV36 EQU CVTQMSG 02854000 CVTAMFF EQU CVTMAP+264 02855000 CVTPURGA EQU CVTPURG+1 02856000 CVTRSV35 EQU CVTPURG 02857000 CVTCBSP EQU CVTMAP+256 02858000 CVTATERA EQU CVTATER+1 02859000 CVTSYST EQU CVTATER 02860000 CVTVOLT2 EQU CVTTAT 02861000 CVTVOLI2 EQU CVTVOLF2 02862000 CVTAQAVB EQU CVTAQAVT+1 02863000 CVTRSV34 EQU CVTTCMFG 02864000 CVTRSV33 EQU CVTTCMFG 02865000 CVTRSV32 EQU CVTTCMFG 02866000 CVTRSV31 EQU CVTTCMFG 02867000 CVTRSV30 EQU CVTTCMFG 02868000 CVTRSV29 EQU CVTTCMFG 02869000 CVTLDEV EQU CVTTCMFG 02870000 CVTTCRDY EQU CVTTCMFG 02871000 CVTGTFA EQU CVTGTF+1 02872000 CVTRSV27 EQU CVTGTFST 02873000 CVTRNIO EQU CVTGTFST 02874000 CVTUSR EQU CVTGTFST 02875000 CVTRV318 EQU CVTFORM 02876000 CVTRV317 EQU CVTTMODE 02877000 CVTRV316 EQU CVTSTATE 02878000 CVTRV315 EQU CVTGTFS 02879000 CVTGTFAV EQU CVTGTFS 02880000 CVT0SCR1 EQU CVTMAP+232 02881000 CVTRV515 EQU CVTMAP+228 02882000 CVTRMS EQU CVTMAP+224 02883000 CVTPATCH EQU CVTMAP+220 02884000 CVTTSCE EQU CVTMAP+216 02885000 CVTLNKSC EQU CVTMAP+214 02886000 CVTQABST EQU CVTMAP+212 02887000 CVTMDLDS EQU CVTMAP+208 02888000 CVTUSER EQU CVTMAP+204 02889000 CVTABEND EQU CVTMAP+200 02890000 CVTSMCA EQU CVTMAP+196 02891000 CVTRSV18 EQU CVTMAP+192 02892000 CVTQLPAQ EQU CVTMAP+188 02893000 CVTQCDSR EQU CVTMAP+184 02894000 CVTRSV17 EQU CVTOPTB 02895000 CVTRSV16 EQU CVTOPTB 02896000 CVTFP EQU CVTOPTB 02897000 CVTAPTHR EQU CVTOPTB 02898000 CVTNLOG EQU CVTOPTB 02899000 CVTTOD EQU CVTOPTB 02900000 CVTCTIMS EQU CVTOPTB 02901000 CVTPROT EQU CVTOPTB 02902000 CVTXPFP EQU CVTOPTA 02903000 CVTASCII EQU CVTOPTA 02904000 CVTRSV13 EQU CVTOPTA 02905000 CVTRSV12 EQU CVTOPTA 02906000 CVTNIP EQU CVTOPTA 02907000 CVTDDR EQU CVTOPTA 02908000 CVTAPR EQU CVTOPTA 02909000 CVTCCH EQU CVTOPTA 02910000 CVTSNCTR EQU CVTMAP+180 02911000 CVTQMWR EQU CVTMAP+176 02912000 CVTQOCR EQU CVTMAP+172 02913000 CVT1EF00 EQU CVTMAP+168 02914000 CVTMZ00 EQU CVTMAP+164 02915000 CVTHEAD EQU CVTMAP+160 02916000 CVTRSV11 EQU CVTMAP+156 02917000 CVT0PT01 EQU CVTMAP+152 02918000 CVTMSER EQU CVTMAP+148 02919000 CVTRV516 EQU CVTIERLC 02920000 CVTILCH EQU CVTMAP+140 02921000 CVT0DS EQU CVTMAP+136 02922000 CVTFBOSV EQU CVTMAP+132 02923000 CVTNUCB EQU CVTMAP+128 02924000 CVTIXAVL EQU CVTMAP+124 02925000 CVTIOQET EQU CVTMAP+120 02926000 CVTDCBA EQU CVTMAP+117 02927000 CVTMVS2 EQU CVTDCB 02928000 CVT6DAT EQU CVTDCB 02929000 CVT4MPS EQU CVTDCB 02930000 CVTRSV09 EQU CVTDCB 02931000 CVT4MS1 EQU CVTDCB 02932000 CVT2SPS EQU CVTDCB 02933000 CVT1SSS EQU CVTDCB 02934000 CVTRSV08 EQU CVTDCB 02935000 CVTSTB EQU CVTMAP+112 02936000 CVTQTD00 EQU CVTMAP+108 02937000 CVTQTE00 EQU CVTMAP+104 02938000 CVTCUCB EQU CVTMAP+100 02939000 CVTSJQ EQU CVTMAP+96 02940000 CVTPBLDL EQU CVTMAP+92 02941000 CVTTPC EQU CVTMAP+88 02942000 CVTSVDCB EQU CVTMAP+84 02943000 CVTBRET EQU CVTMAP+82 02944000 CVTEXIT EQU CVTMAP+80 02945000 CVT0FN00 EQU CVTMAP+76 02946000 CVTDARA EQU CVTDAR+1 02947000 CVTRSV07 EQU CVTFLGS1 02948000 CVTRSV06 EQU CVTFLGS1 02949000 CVTRSV05 EQU CVTFLGS1 02950000 CVTRSV04 EQU CVTFLGS1 02951000 CVTRSV03 EQU CVTFLGS1 02952000 CVTRSV02 EQU CVTFLGS1 02953000 CVTRSV01 EQU CVTFLGS1 02954000 CVTDMPLK EQU CVTFLGS1 02955000 CVTXITP EQU CVTMAP+68 02956000 CVTZDTAB EQU CVTMAP+64 02957000 CVTMSLT EQU CVTMAP+60 02958000 CVTDATE EQU CVTMAP+56 02959000 CVTBTERM EQU CVTMAP+52 02960000 CVTSYSAD EQU CVTMAP+48 02961000 CVTXTLER EQU CVTMAP+44 02962000 CVTILK2 EQU CVTMAP+40 02963000 CVTILK1 EQU CVTMAP+36 02964000 CVTPRLTV EQU CVTMAP+32 02965000 CVTPCNVT EQU CVTMAP+28 02966000 CVT0VL00 EQU CVTMAP+24 02967000 CVTXAPG EQU CVTMAP+20 02968000 CVTBUF EQU CVTMAP+16 02969000 CVTJOB EQU CVTMAP+12 02970000 CVTLINK EQU CVTMAP+8 02971000 CVT0EF00 EQU CVTMAP+4 02972000 CVTTCBP EQU CVTMAP 02973000 CVT EQU CVTMAP 02974000 @NM00024 EQU PSA+3668 02975000 PSASTAK EQU PSA+3072 02976000 @NM00023 EQU PSA+1048 02977000 PSAUSEND EQU PSA+1048 02978000 PSARV062 EQU PSA+1044 02979000 PSACDAL EQU PSA+1040 02980000 PSAWTCOD EQU PSA+1036 02981000 PSAATCVT EQU PSA+1032 02982000 PSAPCPSW EQU PSA+1024 02983000 PSAPIR2 EQU PSA+1020 02984000 PSARV059 EQU PSA+1018 02985000 PSASVC13 EQU PSA+1016 02986000 PSASFACC EQU PSA+1008 02987000 PSASTOP EQU PSA+992 02988000 PSASTART EQU PSA+976 02989000 PSARSPSW EQU PSA+968 02990000 PSASRPSW EQU PSA+960 02991000 PSARV045 EQU PSA+892 02992000 PSARV044 EQU PSA+888 02993000 PSARV043 EQU PSA+884 02994000 PSARV042 EQU PSA+880 02995000 PSARV041 EQU PSA+876 02996000 PSARV040 EQU PSA+872 02997000 PSARV025 EQU PSA+868 02998000 PSADSSED EQU PSA+868 02999000 PSADSSPR EQU PSA+864 03000000 PSADSSFW EQU PSA+860 03001000 PSADSS14 EQU PSA+856 03002000 PSADSSPP EQU PSA+848 03003000 PSADSSRP EQU PSA+840 03004000 PSADSS05 EQU PSADSSF4 03005000 PSADSS10 EQU PSADSSF4 03006000 PSADSSVE EQU PSADSSF4 03007000 PSADSSDE EQU PSADSSF4 03008000 PSADSSC0 EQU PSADSSF4 03009000 PSADSSIE EQU PSADSSF4 03010000 PSADSS12 EQU PSADSSF4 03011000 PSADSSRC EQU PSADSSF4 03012000 PSARV057 EQU PSADSSF3 03013000 PSARV056 EQU PSADSSF3 03014000 PSARV055 EQU PSADSSF3 03015000 PSADSSMC EQU PSADSSF3 03016000 PSADSSRW EQU PSADSSF3 03017000 PSADSSNM EQU PSADSSF3 03018000 PSADSSES EQU PSADSSF3 03019000 PSADSSGP EQU PSADSSF3 03020000 PSADSSF2 EQU PSADSSFL+1 03021000 PSADSSPI EQU PSADSSF1 03022000 PSADSSOI EQU PSADSSF1 03023000 PSADSSSP EQU PSADSSF1 03024000 PSADSSTP EQU PSADSSF1 03025000 PSADSSDW EQU PSADSSF1 03026000 PSADSSDD EQU PSADSSF1 03027000 PSADSSDM EQU PSADSSF1 03028000 PSADSSMV EQU PSADSSF1 03029000 PSADSSTS EQU PSA+816 03030000 PSADSSWK EQU PSA+812 03031000 PSADSSR3 EQU PSA+808 03032000 PSADSSR2 EQU PSA+804 03033000 PSADSSRS EQU PSA+800 03034000 PSASTOR EQU PSA+796 03035000 PSACPUSA EQU PSA+794 03036000 PSAVSTAP EQU PSA+792 03037000 PSAWKVAP EQU PSA+788 03038000 PSAWKRAP EQU PSA+784 03039000 PSAMCHIC EQU PSA+783 03040000 PSARV061 EQU PSA+782 03041000 PSASYMSK EQU PSA+781 03042000 PSAMCHFL EQU PSA+780 03043000 PSACR0 EQU PSA+776 03044000 PSAPSWSV EQU PSA+768 03045000 PSACLHS EQU PSAHLHI 03046000 PSALKR15 EQU PSALKSA+60 03047000 PSALKR14 EQU PSALKSA+56 03048000 PSALKR13 EQU PSALKSA+52 03049000 PSALKR12 EQU PSALKSA+48 03050000 PSALKR11 EQU PSALKSA+44 03051000 PSALKR10 EQU PSALKSA+40 03052000 PSALKR9 EQU PSALKSA+36 03053000 PSALKR8 EQU PSALKSA+32 03054000 PSALKR7 EQU PSALKSA+28 03055000 PSALKR6 EQU PSALKSA+24 03056000 PSALKR5 EQU PSALKSA+20 03057000 PSALKR4 EQU PSALKSA+16 03058000 PSALKR3 EQU PSALKSA+12 03059000 PSALKR2 EQU PSALKSA+8 03060000 PSALKR1 EQU PSALKSA+4 03061000 PSALKR0 EQU PSALKSA 03062000 PSARV023 EQU PSACLHT+52 03063000 PSALOCAL EQU PSACLHT+48 03064000 PSACMSL EQU PSACLHT+44 03065000 PSAOPTL EQU PSACLHT+40 03066000 PSATPACL EQU PSACLHT+36 03067000 PSATPDNL EQU PSACLHT+32 03068000 PSATPNCL EQU PSACLHT+28 03069000 PSAIOSLL EQU PSACLHT+24 03070000 PSAIOSUL EQU PSACLHT+20 03071000 PSAIOSCL EQU PSACLHT+16 03072000 PSAIOSSL EQU PSACLHT+12 03073000 PSASALCL EQU PSACLHT+8 03074000 PSAASML EQU PSACLHT+4 03075000 PSADISPL EQU PSACLHT 03076000 PSASRSA EQU PSA+636 03077000 PSARV050 EQU PSA+634 03078000 PSADSSGO EQU PSA+633 03079000 PSARECUR EQU PSA+632 03080000 PSAHLHIS EQU PSA+628 03081000 PSAIPCSA EQU PSA+624 03082000 @NM00022 EQU PSA+621 03083000 PSAIPCDM EQU PSA+620 03084000 PSAIPCD EQU PSA+616 03085000 @NM00021 EQU PSA+613 03086000 PSAIPCRM EQU PSA+612 03087000 PSAIPCR EQU PSA+608 03088000 PSAMCHEX EQU PSA+600 03089000 PSAMPSW EQU PSA+592 03090000 PSAEXPS2 EQU PSA+584 03091000 PSAEXPS1 EQU PSA+576 03092000 PSAPIREG EQU PSA+572 03093000 PSARSREG EQU PSA+568 03094000 PSAGPREG EQU PSA+556 03095000 PSARV022 EQU PSASUP4 03096000 PSARV021 EQU PSASUP4 03097000 PSARV020 EQU PSASUP4 03098000 PSARV019 EQU PSASUP4 03099000 PSARV018 EQU PSASUP4 03100000 PSARV017 EQU PSASUP4 03101000 PSARV016 EQU PSASUP4 03102000 PSARV015 EQU PSASUP4 03103000 PSARV014 EQU PSASUP3 03104000 PSARV013 EQU PSASUP3 03105000 PSARV012 EQU PSASUP3 03106000 PSAESTA EQU PSASUP3 03107000 PSASPR EQU PSASUP3 03108000 PSAPSREG EQU PSASUP3 03109000 PSAPI2 EQU PSASUP3 03110000 PSAIOSUP EQU PSASUP3 03111000 PSALCR EQU PSASUP2 03112000 PSARTM EQU PSASUP2 03113000 PSAACR EQU PSASUP2 03114000 PSAIPCE2 EQU PSASUP2 03115000 PSAIPCES EQU PSASUP2 03116000 PSAIPCEC EQU PSASUP2 03117000 PSAGTF EQU PSASUP2 03118000 PSAIPCRI EQU PSASUP2 03119000 PSATYPE6 EQU PSASUP1 03120000 PSATCTL EQU PSASUP1 03121000 PSADISP EQU PSASUP1 03122000 PSALOCK EQU PSASUP1 03123000 PSAPI EQU PSASUP1 03124000 PSAEXT EQU PSASUP1 03125000 PSASVC EQU PSASUP1 03126000 PSAIO EQU PSASUP1 03127000 PSAAOLD EQU PSA+548 03128000 PSAANEW EQU PSA+544 03129000 PSATOLD EQU PSA+540 03130000 PSATNEW EQU PSA+536 03131000 PSALCCAR EQU PSA+532 03132000 PSALCCAV EQU PSA+528 03133000 PSAPCCAR EQU PSA+524 03134000 PSAPCCAV EQU PSA+520 03135000 PSACPULA EQU PSA+518 03136000 PSACPUPA EQU PSA+516 03137000 PSAPSA EQU PSA+512 03138000 FLCHDEND EQU PSA+512 03139000 FLCCRSAV EQU FLCMCLA+280 03140000 FLCGRSAV EQU FLCMCLA+216 03141000 FLCFPSAV EQU FLCMCLA+184 03142000 FLCFLA EQU FLCMCLA+88 03143000 FLCRGNCD EQU FLCMCLA+84 03144000 FLCFSAA EQU FLCFSA+1 03145000 @NM00020 EQU FLCFSA 03146000 @NM00019 EQU FLCMCLA+72 03147000 FLCMCIC EQU FLCMCLA+64 03148000 @NM00018 EQU FLCMCLA+20 03149000 FLCIOAA EQU FLCIOA+1 03150000 @NM00017 EQU FLCIOA 03151000 @NM00016 EQU FLCMCLA+15 03152000 @NM00015 EQU FLCMCLA+14 03153000 @NM00014 EQU FLCMCLA+12 03154000 FLCLCL EQU FLCMCLA+8 03155000 FLCIOELA EQU FLCIOEL+1 03156000 @NM00013 EQU FLCIOEL 03157000 FLCCHNID EQU FLCMCLA 03158000 @NM00012 EQU PSA+160 03159000 FLCMTRCD EQU PSA+157 03160000 @NM00011 EQU PSA+156 03161000 FLCPERA EQU FLCPER+1 03162000 @NM00010 EQU FLCPER 03163000 @NM00009 EQU PSA+151 03164000 FLCPERCD EQU PSA+150 03165000 FLCMCNUM EQU PSA+149 03166000 @NM00008 EQU PSA+148 03167000 FLCTEAA EQU FLCTEA+1 03168000 @NM00007 EQU FLCTEA 03169000 PSAPIPC EQU PSAPICOD 03170000 PSAPIMC EQU PSAPICOD 03171000 PSAPIPER EQU PSAPICOD 03172000 PSARV049 EQU FLCPICOD 03173000 FLCPILCB EQU FLCPIILC 03174000 @NM00006 EQU FLCPIILC 03175000 @NM00005 EQU PSAEPPSW 03176000 FLCSVCN EQU PSAESPSW+2 03177000 FLCSILCB EQU FLCSVILC 03178000 @NM00004 EQU FLCSVILC 03179000 @NM00003 EQU PSAESPSW 03180000 FLCEICOD EQU PSAEEPSW+2 03181000 PSASPAD EQU PSAEEPSW 03182000 @NM00002 EQU PSA+128 03183000 FLCINPSW EQU PSA+120 03184000 FLCMNPSW EQU PSA+112 03185000 FLCPNPSW EQU PSA+104 03186000 FLCSNPSW EQU PSA+96 03187000 FLCENPSW EQU PSA+88 03188000 FLCTRACE EQU PSA+84 03189000 FLCTIMER EQU PSA+80 03190000 FLCCVT2 EQU PSA+76 03191000 FLCCAW EQU PSA+72 03192000 FLCCSW EQU PSA+64 03193000 FLCIOPSW EQU PSA+56 03194000 FLCMOPSW EQU PSA+48 03195000 FLCPOPSW EQU PSA+40 03196000 FLCSOPSW EQU PSA+32 03197000 FLCEOPSW EQU PSA+24 03198000 @NM00001 EQU FLCICCW2+4 03199000 FLCICCW1 EQU FLCROPSW 03200000 FLCIPPSW EQU FLCRNPSW 03201000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03202000 @PB00003 EQU @EL00002 03203000 @RF00258 EQU @EL00004 03204000 @ENDDATA EQU * 03205000 END IGTKBF,(C'PLS2330',0701,77092) 03206000