TITLE 'IEAVMFRR - FRR/ESTAE CONTROLLER *00001000 ' 00002000 * /*SET UP MODULE INDENTIFIER */ 00003000 IEAVMFRR CSECT MAIN ENTRY POINT 00004000 USING *,R15 ENTRY FROM RTM 00005000 MODID BR=YES MODULE ID 00006000 DROP R15 RELEASE REG 15 AS BASE 00007000 BALR BASEREG,0 SET REG12 AS BASE 00008000 L1 DS 0H BOUNDARY ALIGNMENT 00009000 USING *,BASEREG ADDRESSABILITY 00010000 * R8=R14; /* SAVE RETURN REGISTER */ 00011000 * 0077 00012000 LR R8,R14 0077 00013000 * /*****************************************************************/ 00014000 * /* */ 00015000 * /* EXAMINE THE CONTENTS OF REGISTER 0 TO DETERMINE IF THIS IS AN */ 00016000 * /* ESTAE OR FRR ENTRY. IF REGISTER 0 IS GREATER THAN 16, THIS */ 00017000 * /* MODULE WAS ENTERED FOR FRR RECOVERY. */ 00018000 * /* */ 00019000 * /*****************************************************************/ 00020000 * 0078 00021000 * IF R0>16 THEN /* FRR ENTRY ? */ 00022000 C R0,@CF00065 0078 00023000 BNH @RF00078 0078 00024000 * DO; /* IF YES, */ 00025000 * 0079 00026000 * /*************************************************************/ 00027000 * /* */ 00028000 * /* TEST FOR ENTRY IN SRB MODE */ 00029000 * /* */ 00030000 * /*************************************************************/ 00031000 * 0080 00032000 * IF PSATOLD=0 THEN /* SRB MODE IF ZERO */ 00033000 L @07,PSATOLD 0080 00034000 LTR @07,@07 0080 00035000 BNZ @RF00080 0080 00036000 * DO; /* IF YES */ 00037000 * R4=SRBMDTCB; /* GET TCB FROM LCCA */ 00038000 L @07,LCCAPTR 0082 00039000 L R4,SRBMDTCB(,@07) 0082 00040000 * END; /* END IF SRB MODE */ 00041000 * ELSE /* IF NOT SRB MODE */ 00042000 * R4=PSATOLD; /* GET CURRENT TCB ADDRESS */ 00043000 B @RC00080 0084 00044000 @RF00080 L R4,PSATOLD 0084 00045000 * R6=R1; /* SAVE REG1 ACROSS GETMAIN */ 00046000 @RC00080 LR R6,R1 0085 00047000 * R5=R0; /* SAVE REG0 ACROSS GETMAIN */ 00048000 LR R5,R0 0086 00049000 * R7=PSAAOLD; /* GET CURRENT ASCB ADDRESS */ 00050000 L R7,PSAAOLD 0087 00051000 * R1=0; /* GETMAIN INTERFACE */ 00052000 SLR R1,R1 0088 00053000 * GEN REFS(CVTCRMN); 0089 00054000 * /*GET CORE FOR DATA AREA */ 00055000 L R2,@SIZDATD SET SIZE OF GETMAIN 00056000 GETMAIN RU,LV=(R2),SP=229,BRANCH=YES ISSUE GETMAIN 00057000 LR R9,R1 SET DATA REGISTER 00058000 USING @DATD,R9 ADDRESSABILITY FOR DATA AREA 00059000 GETMAIN RU,LV=64,SP=229,BRANCH=YES GET SAVEAREA 00060000 * R13=R1; /* SET SAVEAREA ADDRESS */ 00061000 LR R13,R1 0090 00062000 * SAVTCB=R4; /* SAVE CONTENT OF REG 4 */ 00063000 ST R4,SAVTCB 0091 00064000 * R1=R6; /* RESTORE REGISTER 1 */ 00065000 LR R1,R6 0092 00066000 * R0=R5; /* RESTORE REGISTER 0 */ 00067000 LR R0,R5 0093 00068000 */********************************************************************/ 00069000 */* INITIAL FRR SEGMENT */ 00070000 */* THE FOLLOWING WILL CREATE A RECOVERY ENVIRONMENT TO */ 00071000 */* PROTECT THIS FRR ROUTINE FROM ERROR SITUATIONS WITHIN ITS */ 00072000 */* OWN CODE. */ 00073000 */**************************************************************** */ 00074000 * 0094 00075000 * RECEXADD=ADDR(RECOVEX); /* SET ADDR OF RECOVERY EXIT */ 00076000 LA @07,RECOVEX 0094 00077000 ST @07,RECEXADD 0094 00078000 * GEN REFS(PSACSTK,FRRSCURR,FRRSLAST,PSALSFCC,FRRSENTR,FRRSELEN, 00079000 * FRRSFRRA); 0095 00080000 * /*ISSUE SETFRR */ 00081000 SETFRR A,FRRAD=RECEXADD,WRKREGS=(R5,R6),PARMAD=(R5) FRR EXIT 00082000 * PARMPTR=R5; /* GET ADDR OF PARM AREA */ 00083000 LR PARMPTR,R5 0096 00084000 * PARMSYSR=0; /* INDICATE NO XMPOST ENTRY */ 00085000 MVI PARMSYSR(PARMPTR),X'00' 0097 00086000 * PARMID='MFRR'; /* SET FRR ID */ 00087000 MVC PARMID(4,PARMPTR),@CC02075 0098 00088000 * PARMRTAD=BASEREG; /* SET BASE REGISTER */ 00089000 ST BASEREG,PARMRTAD(,PARMPTR) 0099 00090000 * PARMRGAD=R9; /* SET DATA REGISTER */ 00091000 ST R9,PARMRGAD(,PARMPTR) 0100 00092000 * PARMPTR=SDWAPARM; /* GET ADDR OF PARM LIST */ 00093000 L PARMPTR,SDWAPARM(,SDWAPTR) 0101 00094000 * PARMFRID='1'B; /* INDICATE FRR ENTRY */ 00095000 OI PARMFRID(PARMPTR),B'00010000' 0102 00096000 * IF PARMNDMP^='1'B THEN /* IS NO-DUMP IND SET? @ZA19994*/ 00097000 TM PARMNDMP(PARMPTR),B'00000100' 0103 00098000 BO @RF00103 0103 00099000 * DO; /* IF NOT SET. @ZA19994*/ 00100000 * 0104 00101000 * /*********************************************************/ 00102000 * /* */ 00103000 * /* FRR ENTRY SDUMP SEGMENT @ZA10488*/ 00104000 * /* THIS SEGMENT ISSUES A BRANCH ENTRY SDUMP MACRO TO */ 00105000 * /* @ZA10488*/ 00106000 * /* OBTAIN A DUMP OF THE PROBLEM CAUSING ENTRY TO @ZA10488*/ 00107000 * /* IEAVMFRR. @ZA10488*/ 00108000 * /* */ 00109000 * /*********************************************************/ 00110000 * 0105 00111000 * RFY 0105 00112000 * (R5, 0105 00113000 * R6, 0105 00114000 * R10) RSTD; /* RESTRICT REGS @ZA10488*/ 00115000 * R5=R0; /* SAVE R0 ACROSS SDUMP @ZA10488*/ 00116000 LR R5,R0 0106 00117000 * R6=R1; /* SAVE R1 SDWA PTR @ZA10488*/ 00118000 LR R6,R1 0107 00119000 * DUMPBUF(1:DUMPLEN)=DUMPHEAD(1:DUMPLEN);/* MOVE DUMP 0108 00120000 * @ZA10488*/ 00121000 SLR @11,@11 0108 00122000 IC @11,DUMPLEN 0108 00123000 BCTR @11,0 0108 00124000 EX @11,@SM02104 0108 00125000 * R10=ADDR(DUMPBUF); /* BUFFER @ZA10488*/ 00126000 LA R10,DUMPBUF 0109 00127000 * GEN REFS(R10,ASID0,CVTSDMP); 0110 00128000 * /* EXECUTE SDUMP MACRO @ZA10488*/ 00129000 SDUMP HDR='IEAVMFRR FRR COMMUNICATIONS TASK DUMP', XX00130000 BRANCH=YES,ASID=ASID0,MF=(E,(10)) @ZA10488 00131000 * RFY 0111 00132000 * (R5, 0111 00133000 * R6, 0111 00134000 * R10) UNRSTD; /* RELEASE REGS @ZA10488*/ 00135000 * R0=R5; /* RESTORE R0 VALUE @ZA10488*/ 00136000 LR R0,R5 0112 00137000 * R1=R6; /* RESTORE R1 SDWA PTR @ZA10488*/ 00138000 LR R1,R6 0113 00139000 * END; /* END PROCESSING DUMP @ZA19994*/ 00140000 * END; /* END IF FRR ENTRY */ 00141000 * ELSE /* ESTAE ENTRY ? */ 00142000 * DO; /* IF YES, */ 00143000 B @RC00078 0116 00144000 @RF00078 DS 0H 0117 00145000 * R6=R1; /* SAVE REG 1 ACROSS GETMAIN */ 00146000 LR R6,R1 0117 00147000 * R5=R0; /* SAVE REG 0 ACROSS GETMAIN */ 00148000 LR R5,R0 0118 00149000 * GEN; 0119 00150000 * /*PREPARE TO ISSUE GETMAIN */ 00151000 L R3,@SIZDATD SIZE OF AREA 00152000 GETMAIN R,LV=(R3),SP=229 ISSUE GETMAIN 00153000 LR R9,R1 SET DATA REGISTER 00154000 USING @DATD,R9 ADDRESSABILITY FOR DATA AREA 00155000 GETMAIN RU,LV=64,SP=229 GET SAVEAREA 00156000 * R13=R1; /* SET SAVEAREA ADDRESS */ 00157000 LR R13,R1 0120 00158000 * R1=R6; /* RESTORE REGISTER 1 */ 00159000 LR R1,R6 0121 00160000 * R0=R5; /* RESTORE REGISTER 0 */ 00161000 LR R0,R5 0122 00162000 */********************************************************************/ 00163000 */* INITIAL ESTAE SEGMENT */ 00164000 */* THE FOLLOWING SEGMENT WILL CREATE A RECURSION COUNTER TO PROTECT */ 00165000 */* THIS ESTAE ROUTINE FROM ERRORS WITHIN ITS OWN CODE. */ 00166000 */********************************************************************/ 00167000 * 0123 00168000 * IF R0=12 THEN /* SDWA PRESENT ? */ 00169000 C R0,@CF01033 0123 00170000 BNE @RF00123 0123 00171000 * DO; /* IF NO, */ 00172000 * PARMSDWA='1'B; /* INDICATE NO SDWA */ 00173000 OI PARMSDWA(PARMPTR),B'10000000' 0125 00174000 * END; /* END IF NO SDWA */ 00175000 * ELSE /* IF SDWA IS PRESENT */ 00176000 * DO; /* SET UP ADDRESSABILITY */ 00177000 B @RC00123 0127 00178000 @RF00123 DS 0H 0128 00179000 * PARMPTR=SDWAPARM; /* GET ADDRESS OF PARM LIST */ 00180000 L PARMPTR,SDWAPARM(,SDWAPTR) 0128 00181000 * END; /* END IF SDWA PRESENT */ 00182000 * 0129 00183000 * /*************************************************************/ 00184000 * /* */ 00185000 * /* TEST USERS PARAMETER TO DETERMINE IF THIS IS A PERCOLATED */ 00186000 * /* ERROR FROM A LOWER LEVEL FRR RECOVERY. */ 00187000 * /* */ 00188000 * /*************************************************************/ 00189000 * 0130 00190000 * IF PARMFRID='1'B THEN /* FRR INDICATOR SET */ 00191000 @RC00123 TM PARMFRID(PARMPTR),B'00010000' 0130 00192000 BNO @RF00130 0130 00193000 * DO; /* IF YES, */ 00194000 * PARMCWT='1'B; /* SET CONTINUE WITH TERMINATIO */ 00195000 * PARMSDWA='1'B; /* SET NO SDWA (TO BYPASS REC) */ 00196000 * PARMFRID='0'B; /* TURN FRR INDIC. OFF YM05436*/ 00197000 OI PARMCWT(PARMPTR),B'11000000' 0134 00198000 NI PARMFRID(PARMPTR),B'11101111' 0134 00199000 * END; /* END IF PERCOLATED ERROR */ 00200000 * ELSE /* IF NOT PERCOLATED */ 00201000 * DO; /* TEST FOR RECURSION */ 00202000 * 0136 00203000 B @RC00130 0136 00204000 @RF00130 DS 0H 0137 00205000 * /*********************************************************/ 00206000 * /* */ 00207000 * /* EXAMINE RECURSION BIT IN USER'S PARAMETER AREA TO TEST*/ 00208000 * /* FOR RECOVERY RECURSION */ 00209000 * /* */ 00210000 * /*********************************************************/ 00211000 * 0137 00212000 * IF PARMRECU='1'B THEN /* RECURSION BIT ON ? */ 00213000 TM PARMRECU(PARMPTR),B'00100000' 0137 00214000 BNO @RF00137 0137 00215000 * DO; /* IF YES, */ 00216000 * PARMCWT='1'B; /* INDICATE CONT. WITH TERM. */ 00217000 OI PARMCWT(PARMPTR),B'01000000' 0139 00218000 * END; /* END IF RECURSION BIT SET */ 00219000 * ELSE /* IF RECURSION IS NOT SET */ 00220000 * DO; /* SETUP FOR RECURSION ERROR */ 00221000 B @RC00137 0141 00222000 @RF00137 DS 0H 0142 00223000 * PARMRECU='1'B; /* TURN RECURSION BIT ON */ 00224000 OI PARMRECU(PARMPTR),B'00100000' 0142 00225000 * IF PARMNDMP^='1'B THEN/* IS NO-DUMP IND SET? @ZA19994*/ 00226000 TM PARMNDMP(PARMPTR),B'00000100' 0143 00227000 BO @RF00143 0143 00228000 * DO; /* IF NOT SET. @ZA19994*/ 00229000 * 0144 00230000 * /*************************************************/ 00231000 * /* */ 00232000 * /* ESTAE ENTRY SDUMP SEGMENT @ZA10488*/ 00233000 * /* THIS SEGMENT ISSUES AN SVC ENTRY SDUMP */ 00234000 * /* @ZA10488*/ 00235000 * /* MACRO TO OBTAIN A DUMP OF THE PROBLEM @ZA10488*/ 00236000 * /* CAUSING ENTRY TO IEAVMFRR IF THIS IS NOT */ 00237000 * /* @ZA10488*/ 00238000 * /* A PERCOLATED OR RECURSIVE ENTRY. @ZA10488*/ 00239000 * /* */ 00240000 * /*************************************************/ 00241000 * 0145 00242000 * RFY 0145 00243000 * (R6, 0145 00244000 * R10) RSTD; /* RESTRICT REGS @ZA10488*/ 00245000 * R6=R1; /* SAVE R1 SDWA PTR SDUMP 0146 00246000 * @ZA10488*/ 00247000 LR R6,R1 0146 00248000 * DUMPBUF(1:DUMPLEN)=DUMPHEAD(1:DUMPLEN);/* MOVE 0147 00249000 * DUMP @ZA10488*/ 00250000 SLR @11,@11 0147 00251000 IC @11,DUMPLEN 0147 00252000 BCTR @11,0 0147 00253000 EX @11,@SM02104 0147 00254000 * R10=ADDR(DUMPBUF);/* BUFFER @ZA10488*/ 00255000 LA R10,DUMPBUF 0148 00256000 * GEN REFS(R10); 0149 00257000 * /* EXECUTE SDUMP MACRO @ZA10488*/ 00258000 SDUMP HDR='IEAVMFRR ESTAE COMMUNICATIONS TASK DUMP', XX00259000 MF=(E,(10)) @ZA10488 00260000 * RFY 0150 00261000 * (R6, 0150 00262000 * R10) UNRSTD; /* RELEASE REGS @ZA10488*/ 00263000 * R1=R6; /* RESTORE R1 SDWA PTR @ZA10488*/ 00264000 LR R1,R6 0151 00265000 * END; /* END PROCESSING DUMP @ZA19994*/ 00266000 * END; /* END IF RECURSION BIT SET */ 00267000 @RF00143 DS 0H 0154 00268000 * END; /* END IF NOT PERC. ERROR */ 00269000 @RC00137 DS 0H 0155 00270000 * END; /* END IF ESTEA RETRY */ 00271000 * 0155 00272000 @RC00130 DS 0H 0156 00273000 * /*****************************************************************/ 00274000 * /* */ 00275000 * /* TEST TO DETERMINE IF CONTINUE WITH TERMINATION HAS BEEN */ 00276000 * /* INDICATED. */ 00277000 * /* */ 00278000 * /*****************************************************************/ 00279000 * 0156 00280000 * SAVRTN=R8; /* SAVE RETURN ADDRESS */ 00281000 @RC00078 ST R8,SAVRTN 0156 00282000 * RFY 0157 00283000 * (R8) UNRSTD; /* RELEASE REG 8 */ 00284000 * IF PARMCWT='1'B THEN /* CONT. WITH TERMINATION SET ? */ 00285000 TM PARMCWT(PARMPTR),B'01000000' 0158 00286000 BNO @RF00158 0158 00287000 * DO; /* PROCESS USER CLEANUP */ 00288000 */********************************************************************/ 00289000 */* USER CLEANUP SEGMENT */ 00290000 */* THE FOLLOWING SEGMENT WILL DETERMINE IF THE DEVELOPER */ 00291000 */* HAS SPECIFIED THE ADDRESS OF A USER CLEANUP ROUTINE IN THE */ 00292000 */* RECOVERY PARAMETER LIST. IF ONE IS SPECIFIED, THIS ROUTINE */ 00293000 */*WILL CALL THE USER'S CLEANUP ROUTINE TO PERFORM MODULE CLEANUP. */ 00294000 */****************************************************************** */ 00295000 * 0160 00296000 * IF PARMCLAD^=0 THEN /* CLEANUP RTN SPECIFIED */ 00297000 SLR @08,@08 0160 00298000 L @05,PARMCLAD(,PARMPTR) 0160 00299000 CR @05,@08 0160 00300000 BE @RF00160 0160 00301000 * DO; /* IF YES, */ 00302000 * RFY 0162 00303000 * (R15) RSTD; /* RESTRICT R15 */ 00304000 * R15=PARMCLAD; /* GET ADDR OF CLEANUP RTN */ 00305000 LR R15,@05 0163 00306000 * PARMCLAD=0; /* ZERO CLEANUP ADDRESS */ 00307000 ST @08,PARMCLAD(,PARMPTR) 0164 00308000 * GEN(BALR R14,R15); /* BRANCH TO CLEANUP RTN */ 00309000 BALR R14,R15 00310000 * RFY 0166 00311000 * (R15) UNRSTD; /* RELEASE R15 */ 00312000 * END; /* END IF ADDRESS PRESENT */ 00313000 * END; /* END CLEANUP PROCESSING */ 00314000 * ELSE /* IF NO, */ 00315000 * DO; /* TEST FOR SDWA */ 00316000 * 0169 00317000 B @RC00158 0169 00318000 @RF00158 DS 0H 0170 00319000 * /*************************************************************/ 00320000 * /* */ 00321000 * /* TEST FOR PRESENCE OF SDWA BEFORE CHECKING FOR RESTART */ 00322000 * /* CONDITION. */ 00323000 * /* */ 00324000 * /*************************************************************/ 00325000 * 0170 00326000 * IF PARMSDWA^='1'B THEN /* SDWA PRESENT ? */ 00327000 TM PARMSDWA(PARMPTR),B'10000000' 0170 00328000 BO @RF00170 0170 00329000 * DO; /* IF YES, */ 00330000 * 0171 00331000 * /*********************************************************/ 00332000 * /* */ 00333000 * /* TEST TO DETERMINE IF RECOVERY ROUTINE WAS ENTERED */ 00334000 * /* BECAUSE OF A RESTART CONDITION. */ 00335000 * /* */ 00336000 * /*********************************************************/ 00337000 * 0172 00338000 * IF SDWARKEY='1'B THEN /* RESTART CONDITION PRESENT ? */ 00339000 TM SDWARKEY(SDWAPTR),B'00100000' 0172 00340000 BNO @RF00172 0172 00341000 * DO; /* IF YES, */ 00342000 * PARMCWT='1'B; /* SET CONT. WITH TERMINATION */ 00343000 OI PARMCWT(PARMPTR),B'01000000' 0174 00344000 * END; /* END OF RESTART CONDITION */ 00345000 * END; /* IF NO SDWA */ 00346000 * 0176 00347000 @RF00172 DS 0H 0177 00348000 * /*************************************************************/ 00349000 * /* */ 00350000 * /* TEST TO DETERMINE IF CONTINUE WITH TERMINATION HAS BEEN */ 00351000 * /* INDICATED. */ 00352000 * /* */ 00353000 * /*************************************************************/ 00354000 * 0177 00355000 * IF PARMCWT='1'B THEN /* CONT. WITH TERMINATION SET ? */ 00356000 @RF00170 TM PARMCWT(PARMPTR),B'01000000' 0177 00357000 BNO @RF00177 0177 00358000 * DO; /* PROCESS USER CLEANUP */ 00359000 */********************************************************************/ 00360000 */* USER CLEANUP SEGMENT */ 00361000 */* THE FOLLOWING SEGMENT WILL DETERMINE IF THE DEVELOPER */ 00362000 */* HAS SPECIFIED THE ADDRESS OF A USER CLEANUP ROUTINE IN THE */ 00363000 */* RECOVERY PARAMETER LIST. IF ONE IS SPECIFIED, THIS ROUTINE */ 00364000 */*WILL CALL THE USER'S CLEANUP ROUTINE TO PERFORM MODULE CLEANUP. */ 00365000 */****************************************************************** */ 00366000 * 0179 00367000 * IF PARMCLAD^=0 THEN /* CLEANUP RTN SPECIFIED */ 00368000 SLR @08,@08 0179 00369000 L @05,PARMCLAD(,PARMPTR) 0179 00370000 CR @05,@08 0179 00371000 BE @RF00179 0179 00372000 * DO; /* IF YES, */ 00373000 * RFY 0181 00374000 * (R15) RSTD; /* RESTRICT R15 */ 00375000 * R15=PARMCLAD; /* GET ADDR OF CLEANUP RTN */ 00376000 LR R15,@05 0182 00377000 * PARMCLAD=0; /* ZERO CLEANUP ADDRESS */ 00378000 ST @08,PARMCLAD(,PARMPTR) 0183 00379000 * GEN(BALR R14,R15); /* BRANCH TO CLEANUP RTN */ 00380000 BALR R14,R15 00381000 * RFY 0185 00382000 * (R15) UNRSTD; /* RELEASE R15 */ 00383000 * END; /* END IF ADDRESS PRESENT */ 00384000 * END; /* END CLEANUP PROCESSING */ 00385000 * ELSE /* IF CONT.WITH TERM. NOT SET */ 00386000 * DO; /* CONTINUE PROCESSING */ 00387000 B @RC00177 0188 00388000 @RF00177 DS 0H 0189 00389000 * ERRCDE=0; /* ZERO ERROR INDICATOR */ 00390000 SLR ERRCDE,ERRCDE 0189 00391000 */********************************************************************/ 00392000 */* ERROR HANDLER SEGMENT */ 00393000 */* THE FOLLOWING SEGMENT WILL CHECK FOR SPECIFIC ABEND CODES */ 00394000 */* FROM THE INTERRUPT HANDLER. IF AN INTERRUPT ABEND IS PRESENT, */ 00395000 */* A RETRY OF THE NEXT INSTRUCTION TO BE EXECUTED AT THE TIME */ 00396000 */* OF THE INTERRUPT WILL BE ATTEMPTED. IF THE USER HAS SPECIFIED */ 00397000 */* THE ADDRESS OF A SYSTEM SERVICE ROUTINE, THIS ROUTINE WILL */ 00398000 */* CALL THE SERVICE ROUTINE TO DO SERVICE PROCESSING. */ 00399000 */****************************************************************** */ 00400000 * 0190 00401000 * IF PARMSDWA^='1'B THEN /* SDWA PRESENT ? */ 00402000 TM PARMSDWA(PARMPTR),B'10000000' 0190 00403000 BO @RF00190 0190 00404000 * DO; /* IF YES, */ 00405000 * 0191 00406000 * /*****************************************************/ 00407000 * /* */ 00408000 * /* TEST FOR ESTAE ENTRY */ 00409000 * /* */ 00410000 * /*****************************************************/ 00411000 * 0192 00412000 * IF PARMFRID^='1'B THEN/* ESTAE ENTRY */ 00413000 TM PARMFRID(PARMPTR),B'00010000' 0192 00414000 BO @RF00192 0192 00415000 * DO; /* IF YES */ 00416000 * 0193 00417000 * /*************************************************/ 00418000 * /* */ 00419000 * /* TEST FOR SPECIFIC ABEND CODES (1FC - 6FC) */ 00420000 * /* */ 00421000 * /*************************************************/ 00422000 * 0194 00423000 * DO I=1 TO 6 BY 1 WHILE(ERRCDE=0); 0194 00424000 * 0194 00425000 LA I,1 0194 00426000 @DL00194 SLR @08,@08 0194 00427000 CR ERRCDE,@08 0194 00428000 BNE @DC00194 0194 00429000 * /***********************************************/ 00430000 * /* */ 00431000 * /* ABEND CODE MATCH ? */ 00432000 * /* */ 00433000 * /***********************************************/ 00434000 * 0195 00435000 * IF ABENDCDE(I)=SDWACMPC THEN/* INTERRUPT ABEND 00436000 * SPECIFIED */ 00437000 LR @15,I 0195 00438000 MH @15,@CH00062 0195 00439000 LA @14,ABENDCDE-3(@15) 0195 00440000 CLC 0(3,@14),SDWACMPC(SDWAPTR) 0195 00441000 BNE @RF00195 0195 00442000 * DO; /* IF YES, */ 00443000 * ERRCDE=1; /* SET LOOP CONTROL TO END LOOP */ 00444000 * 0197 00445000 LA ERRCDE,1 0197 00446000 * /*******************************************/ 00447000 * /* */ 00448000 * /* CHECK FOR ZERO RETRY ADDRESS IN @ZA12428*/ 00449000 * /* SDWA. IF ZERO SET CONTINUE WITH @ZA12428*/ 00450000 * /* TERMINATION. IF NOT ZERO @ZA12428*/ 00451000 * /* ATTEMPT TO RETRY. @ZA12428*/ 00452000 * /* */ 00453000 * /*******************************************/ 00454000 * 0198 00455000 * IF SDWANXT2=0 THEN/* @ZA12428*/ 00456000 C @08,SDWANXT2(,SDWAPTR) 0198 00457000 BNE @RF00198 0198 00458000 * PARMCWT='1'B;/* SET CONTINUE TERM 0199 00459000 * @ZA12428*/ 00460000 OI PARMCWT(PARMPTR),B'01000000' 0199 00461000 * ELSE /* @ZA12428*/ 00462000 * PARMWARG='1'B;/* INDICATE REGS RESTORED 00463000 * FOR RETRY @ZA12428*/ 00464000 B @RC00198 0200 00465000 @RF00198 OI PARMWARG(PARMPTR),B'00001000' 0200 00466000 * END; /* END IF INTERRUPT ABEND */ 00467000 @RC00198 DS 0H 0202 00468000 * END; /* END ABEND SCAN */ 00469000 @RF00195 AL I,@CF00123 0202 00470000 C I,@CF00075 0202 00471000 BNH @DL00194 0202 00472000 @DC00194 DS 0H 0203 00473000 * END; /* END IF FRR ENTRY */ 00474000 * END; /* END SDWA TEST */ 00475000 * 0204 00476000 @RF00192 DS 0H 0205 00477000 * /*********************************************************/ 00478000 * /* */ 00479000 * /* TEST FOR ABEND CODE MATCH */ 00480000 * /* */ 00481000 * /*********************************************************/ 00482000 * 0205 00483000 * IF ERRCDE=0 THEN /* INTERRUPT ABEND FOUND */ 00484000 @RF00190 SLR @08,@08 0205 00485000 CR ERRCDE,@08 0205 00486000 BNE @RF00205 0205 00487000 * DO; /* IF NO, */ 00488000 * 0206 00489000 * /*****************************************************/ 00490000 * /* */ 00491000 * /* TEST FOR SYSTEM SERVICE ADDRESS PRESENT */ 00492000 * /* */ 00493000 * /*****************************************************/ 00494000 * 0207 00495000 * IF PARMSYAD^=0 THEN /* SYSTEM SERVICE ADDR PRESENT */ 00496000 L @05,PARMSYAD(,PARMPTR) 0207 00497000 CR @05,@08 0207 00498000 BE @RF00207 0207 00499000 * DO; /* IF YES, */ 00500000 * RFY 0209 00501000 * (R15) RSTD; /* RESTRICT REG 15 */ 00502000 * R15=PARMSYAD; /* GET ADDR OF SYSTEM SERVICE */ 00503000 LR R15,@05 0210 00504000 * PARMSYAD=0; /* ZERO SERVICE ADDRESS */ 00505000 ST @08,PARMSYAD(,PARMPTR) 0211 00506000 * GEN(BALR R14,R15);/* BRANCH TO SERVICE ROUTINE */ 00507000 BALR R14,R15 00508000 * END; /* END IF NO SYSTEM SERVICE */ 00509000 * 0213 00510000 * /*****************************************************/ 00511000 * /* */ 00512000 * /* TEST FOR PRESENCE OF CLEANUP ROUTINE */ 00513000 * /* */ 00514000 * /*****************************************************/ 00515000 * 0214 00516000 * IF PARMCLAD^=0 THEN /* CLEANUP ADDR SPECIFIED */ 00517000 @RF00207 SLR @14,@14 0214 00518000 L @08,PARMCLAD(,PARMPTR) 0214 00519000 CR @08,@14 0214 00520000 BE @RF00214 0214 00521000 * DO; /* IF YES, */ 00522000 * R15=PARMCLAD; /* GET ADDR OF CLEANUP RTN */ 00523000 LR R15,@08 0216 00524000 * PARMCLAD=0; /* ZERO CLEANUP ADDR */ 00525000 ST @14,PARMCLAD(,PARMPTR) 0217 00526000 * GEN(BALR R14,R15);/* BRANCH TO CLEANUP RTN */ 00527000 BALR R14,R15 00528000 * RFY 0219 00529000 * (R15) UNRSTD; /* RELEASE REG 15 */ 00530000 * END; /* END IF ADDR PRESENT */ 00531000 * END; /* END IF NOT INTERRUPT ABEND */ 00532000 @RF00214 DS 0H 0222 00533000 * END; /* END ERROR PROCESSING */ 00534000 @RF00205 DS 0H 0223 00535000 * END; /* END AFTER TAKING USER EXIT */ 00536000 @RC00177 DS 0H 0224 00537000 */********************************************************************/ 00538000 */* RECORD AND RETURN SEGMENT */ 00539000 */* THE FOLLOWING CODE WILL HANDLE THE RECORDING OF THE ERROR */ 00540000 */* ENVIRONMENT AND RETURN CONTROL TO RTM INDICATING CONTINUE */ 00541000 */* WITH TERMINATION OR RETRY. */ 00542000 */****************************************************************** */ 00543000 * 0224 00544000 * RFY 0224 00545000 * (R11) RSTD; /* RESTRICT REG 11 */ 00546000 * 0224 00547000 @RC00158 DS 0H 0225 00548000 * /*****************************************************************/ 00549000 * /* */ 00550000 * /* TEST FOR FRR ENTRY */ 00551000 * /* */ 00552000 * /*****************************************************************/ 00553000 * 0225 00554000 * IF PARMFRID='1'B THEN /* FRR ENTRY ? */ 00555000 TM PARMFRID(PARMPTR),B'00010000' 0225 00556000 BNO @RF00225 0225 00557000 * SAVFRR=1; /* SET FRR INDICATOR */ 00558000 MVC SAVFRR(4),@CF00123 0226 00559000 * ELSE /* IF NOT FRR ENTRY */ 00560000 * SAVFRR=0; /* INDICATE NO FRR ENTRY */ 00561000 * 0227 00562000 B @RC00225 0227 00563000 @RF00225 SLR @10,@10 0227 00564000 ST @10,SAVFRR 0227 00565000 * /*****************************************************************/ 00566000 * /* */ 00567000 * /* TEST FOR SDWA PASSED */ 00568000 * /* */ 00569000 * /*****************************************************************/ 00570000 * 0228 00571000 * IF PARMSDWA^='1'B THEN /* SDWA PRESENT ? */ 00572000 @RC00225 TM PARMSDWA(PARMPTR),B'10000000' 0228 00573000 BO @RF00228 0228 00574000 * DO; /* IF YES */ 00575000 * SDWAHEX='1'B; /* INDICATE HEX DATA */ 00576000 OI SDWAHEX(SDWAPTR),B'10000000' 0230 00577000 * SDWAURAL=24; /* SET LENGTH OF DATA */ 00578000 MVI SDWAURAL(SDWAPTR),X'18' 0231 00579000 * SDWAVRA(1:24)=PARMLIST; /* MOVE PARMLIST TO SDWA */ 00580000 MVC SDWAVRA(24,SDWAPTR),PARMLIST(PARMPTR) 0232 00581000 * R5=PARMPTR; /* SAVE PARAMETER LIST PTR */ 00582000 LR R5,PARMPTR 0233 00583000 * R6=PARMID; /* SAVE MODULE ID */ 00584000 L R6,PARMID(,PARMPTR) 0234 00585000 * PARMPTR=ADDR(SDWAVRA)+70; /* POINT TO AREA IN SDWA */ 00586000 LA PARMPTR,SDWAVRA(,SDWAPTR) 0235 00587000 AL PARMPTR,@CF02078 0235 00588000 * PARMSTAT='IEAV'; /* SET MODULE PREFIX */ 00589000 MVC PARMSTAT(4,PARMPTR),@CC02079 0236 00590000 * PARMSYAD=R6; /* SET MODULE ID */ 00591000 ST R6,PARMSYAD(,PARMPTR) 0237 00592000 * PARMCLAD=PARMSTAT; /* DUPLICATE MOD ID */ 00593000 L @10,PARMSTAT(,PARMPTR) 0238 00594000 ST @10,PARMCLAD(,PARMPTR) 0238 00595000 * PARMRTAD=PARMSYAD; /* DUPLICATE MOD ID */ 00596000 L @10,PARMSYAD(,PARMPTR) 0239 00597000 ST @10,PARMRTAD(,PARMPTR) 0239 00598000 * PARMRGAD='IEAV'; /* SET MODULE PREFIX */ 00599000 MVC PARMRGAD(4,PARMPTR),@CF02079 0240 00600000 * PARMID='MFRR'; /* SET FRR IF */ 00601000 MVC PARMID(4,PARMPTR),@CC02075 0241 00602000 * DO; /* SETRP 0242 00603000 * RECORD(YES)RECPARM(PARMLIST) */ 00604000 * RESPECIFY 0243 00605000 * (GPR00P, 0243 00606000 * GPR01P, 0243 00607000 * GPR14P, 0243 00608000 * GPR15P) RSTD; 0243 00609000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00610000 MVI SDWARCDE(GPR01P),X'00' 0244 00611000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00612000 OI SDWARCRD(GPR01P),B'10000000' 0245 00613000 * GPR15P=ADDR(PARMLIST); /* ACCESS RECORD PARAMETER LIST */ 00614000 LR GPR15P,PARMPTR 0246 00615000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 0247 00616000 * PARAMETERS */ 00617000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0247 00618000 * RESPECIFY 0248 00619000 * (GPR00P, 0248 00620000 * GPR01P, 0248 00621000 * GPR14P, 0248 00622000 * GPR15P) UNRSTD; 0248 00623000 * END; /* DUMP SDWA */ 00624000 * PARMPTR=R5; /* RESTORE PARMLIST POINTER */ 00625000 * 0250 00626000 LR PARMPTR,R5 0250 00627000 * /*************************************************************/ 00628000 * /* */ 00629000 * /* TEST TO DETERMINE IF REGISTER MODIFICATION WAS DONE */ 00630000 * /* */ 00631000 * /*************************************************************/ 00632000 * 0251 00633000 * IF PARMWARG^='1'B THEN /* REG UPDATE INDICATOR SET */ 00634000 TM PARMWARG(PARMPTR),B'00001000' 0251 00635000 BO @RF00251 0251 00636000 * DO; /* IF NO, */ 00637000 * 0252 00638000 * /*********************************************************/ 00639000 * /* */ 00640000 * /* TEST FOR CONTINUE WITH TERMINATION INDICATOR SET */ 00641000 * /* */ 00642000 * /*********************************************************/ 00643000 * 0253 00644000 * IF PARMCWT^='1'B THEN /* CONTINUE WITH TERMINATION */ 00645000 TM PARMCWT(PARMPTR),B'01000000' 0253 00646000 BO @RF00253 0253 00647000 * DO; /* IF NO, */ 00648000 * 0254 00649000 * /*****************************************************/ 00650000 * /* */ 00651000 * /* TEST FOR RETRY ADDRESS SPECIFIED */ 00652000 * /* */ 00653000 * /*****************************************************/ 00654000 * 0255 00655000 * IF PARMRTAD^=0 THEN /* RETRY ADDRESS SPECIFIED */ 00656000 L @10,PARMRTAD(,PARMPTR) 0255 00657000 LTR @10,@10 0255 00658000 BZ @RF00255 0255 00659000 * DO; /* IF YES, */ 00660000 * R5=PARMRTAD; /* LOAD RETRY ADDRESS */ 00661000 LR R5,@10 0257 00662000 * R6=PARMRGAD; /* LOAD ADDRESS OF REGISTERS */ 00663000 * 0258 00664000 L @08,PARMRGAD(,PARMPTR) 0258 00665000 LR R6,@08 0258 00666000 * /*************************************************/ 00667000 * /* */ 00668000 * /* ISSUE SETRP MACRO */ 00669000 * /* */ 00670000 * /*************************************************/ 00671000 * 0259 00672000 * DO; /* SETRP RETADDR(RETRYAD)RUB(REGU 00673000 * PD)RC(4)RETREGS(YES)FRESDWA(YE 00674000 * S) */ 00675000 * RESPECIFY 0260 00676000 * (GPR00P, 0260 00677000 * GPR01P, 0260 00678000 * GPR14P, 0260 00679000 * GPR15P) RSTD; 0260 00680000 * GPR01P->SDWARCDE=4;/* STORE RC INTO SDWA */ 00681000 MVI SDWARCDE(GPR01P),X'04' 0261 00682000 * GPR01P->SDWARTYA=ADDR(RETRYAD);/* SAVE RETRY 0262 00683000 * ADDRESS */ 00684000 ST @10,SDWARTYA(,GPR01P) 0262 00685000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE SDWA */ 00686000 * GPR01P->SDWAUPRG='1'B;/* TURN ON RETREGS 0264 00687000 * INDICATOR */ 00688000 OI SDWAFREE(GPR01P),B'00001100' 0264 00689000 * GPR15P=ADDR(REGUPD);/* GET PTR TO REG UPDATE 0265 00690000 * BLOCK */ 00691000 LR GPR15P,@08 0265 00692000 * GPR00P=GPR15P->I015F;/* ACCESS REGISTER BIT 0266 00693000 * PATTERN */ 00694000 LH GPR00P,I015F(,GPR15P) 0266 00695000 * GPR15P=GPR15P+2;/* CREATE PTR TO USER REG 0267 00696000 * VALUES */ 00697000 AL GPR15P,@CF00094 0267 00698000 * GPR14P=ADDR(GPR01P->SDWASRSV);/* CREATE PTR TO 00699000 * SDWA SAVE AREA */ 00700000 LA GPR14P,SDWASRSV(,GPR01P) 0268 00701000 * GEN(SLL 0,16);/* SHIFT BIT PATTERN TO HIGH 0269 00702000 * ORDER */ 00703000 SLL 0,16 00704000 *R0004: 0270 00705000 * GEN FLOWS(I0004); 0270 00706000 R0004 DS 0H 0270 00707000 ALR 0,0 SHIFT BIT TO SIGN POSITION 00708000 BC 12,I0004 BRANCH IF BIT NOT ON 00709000 MVC 0(4,14),0(15) MODIFY REGISTER IN SDWA 00710000 LA 15,4(15) UPDATE POINTER 00711000 *I0004: 0271 00712000 * GENERATE FLOWS(R0004); 0271 00713000 I0004 DS 0H 0271 00714000 LA 14,4(14) UPDATE PTR IN SDWA 00715000 BC 5,R0004 TEST ALR CONDITION CODE TO TEST 00716000 * IF ALL BITS EXHAUSTED 00717000 * RESPECIFY 0272 00718000 * (GPR00P, 0272 00719000 * GPR01P, 0272 00720000 * GPR14P, 0272 00721000 * GPR15P) UNRSTD; 0272 00722000 * END; 0273 00723000 * END; /* END IF RETRY ADDRESS */ 00724000 * ELSE 0275 00725000 * ; /* IF RETRY ADDRESS */ 00726000 @RF00255 DS 0H 0276 00727000 * END; /* CONTINUE PROCESSING */ 00728000 * ELSE 0277 00729000 * ; /* IF CONT.WITH TERM. */ 00730000 @RF00253 DS 0H 0278 00731000 * END; /* CONTINUE PROCESSING */ 00732000 * ELSE /* IF REG UPDATE WAS DONE */ 00733000 * DO; /* SET SDWA */ 00734000 B @RC00251 0279 00735000 @RF00251 DS 0H 0280 00736000 * R5=SDWANXT2; /* SET ADDR OF NEXT INST. */ 00737000 L @10,SDWANXT2(,SDWAPTR) 0280 00738000 LR R5,@10 0280 00739000 * DO; /* SETRP RETREGS(YES)RETADDR(RETR 00740000 * YNT)RC(4)FRESDWA(YES) */ 00741000 * RESPECIFY 0282 00742000 * (GPR00P, 0282 00743000 * GPR01P, 0282 00744000 * GPR14P, 0282 00745000 * GPR15P) RSTD; 0282 00746000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 00747000 MVI SDWARCDE(GPR01P),X'04' 0283 00748000 * GPR01P->SDWARTYA=ADDR(RETRYNT);/* SAVE RETRY ADDRESS */ 00749000 ST @10,SDWARTYA(,GPR01P) 0284 00750000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE SDWA */ 00751000 * GPR01P->SDWAUPRG='1'B;/* TURN ON RETREGS INDICATOR */ 00752000 OI SDWAFREE(GPR01P),B'00001100' 0286 00753000 * RESPECIFY 0287 00754000 * (GPR00P, 0287 00755000 * GPR01P, 0287 00756000 * GPR14P, 0287 00757000 * GPR15P) UNRSTD; 0287 00758000 * END; 0288 00759000 * PARMWARG='0'B; /* TURN REG UPDATE BIT OFF */ 00760000 NI PARMWARG(PARMPTR),B'11110111' 0289 00761000 * END; /* END IF REG UPDATE */ 00762000 * END; /* END IF SDWA */ 00763000 * 0291 00764000 @RC00251 DS 0H 0292 00765000 * /*****************************************************************/ 00766000 * /* */ 00767000 * /* TEST FOR FRR ENTRY */ 00768000 * /* */ 00769000 * /*****************************************************************/ 00770000 * 0292 00771000 * IF SAVFRR=1 THEN /* IF FRR THEN LOCKS HELD */ 00772000 @RF00228 CLC SAVFRR(4),@CF00123 0292 00773000 BNE @RF00292 0292 00774000 * DO; /* IF YES */ 00775000 * R4=SAVTCB; /* GET TCB ADDR */ 00776000 L R4,SAVTCB 0294 00777000 * R7=PSAAOLD; /* GET ASCB ADDR */ 00778000 L R7,PSAAOLD 0295 00779000 * R1=R9; /* SET ADDR OF DATA AREA */ 00780000 LR R1,R9 0296 00781000 * R11=SAVRTN; /* SAVE RETURN ADDR */ 00782000 L R11,SAVRTN 0297 00783000 * GEN REFS(CVTRMBR); 0298 00784000 * /*FREE DATA AREA */ 00785000 L R3,@SIZDATD SET SIZE OF AREA 00786000 FREEMAIN R,LV=(R3),A=(R1),SP=229,BRANCH=YES ISSUE FREEMAIN 00787000 FREEMAIN R,LV=64,A=(R13),SP=229,BRANCH=YES FREE SAVEAREA 00788000 * GEN(SETFRR D,WRKREGS=(R5,R6));/* RELEASE FRR */ 00789000 SETFRR D,WRKREGS=(R5,R6) 00790000 * END; /* END IF FRR ENTRY */ 00791000 * ELSE /* IF NOT FRR ENTRY */ 00792000 * DO; /* NO LOCKS ARE HELD */ 00793000 B @RC00292 0301 00794000 @RF00292 DS 0H 0302 00795000 * R1=R9; /* SET ADDR OF DATA AREA */ 00796000 LR R1,R9 0302 00797000 * R11=SAVRTN; /* SAVE RETURN ADDR */ 00798000 L R11,SAVRTN 0303 00799000 * GEN; 0304 00800000 * /*FREE DATA AREA */ 00801000 L R3,@SIZDATD SET SIZE OF AREA 00802000 FREEMAIN R,LV=(R3),A=(R1),SP=229 ISSUE FREEMAIN 00803000 FREEMAIN R,LV=64,A=(R13),SP=229 FREE SAVEAREA 00804000 * END; /* END IF NOT FRR */ 00805000 * R14=R11; /* RESTORE RETURN ADDRESS */ 00806000 @RC00292 LR R14,R11 0306 00807000 * RFY 0307 00808000 * (R11) UNRSTD; /* RELEASE R11 */ 00809000 * R15=0; /* SET CONT. WITH TERM */ 00810000 SLR R15,R15 0308 00811000 * GEN(BR R14); /* RETURN TO CALLER */ 00812000 BR R14 00813000 */********************************************************************/ 00814000 */* RECOVERY EXIT */ 00815000 */* THIS IS THE RECOVERY ENTRY POINT FOR THE FRR/ESTAE CONTROLLER */ 00816000 */* MODULE. IT WILL BE ENTERED FOR FRR RECOVERY ONLY. UPON ENTRY, */ 00817000 */* REGISTER ONE POINTS TO A SDWA WHERE THE ADDRESS OF A USER */ 00818000 */* PARAMETER AREA CAN BE FOUND. */ 00819000 */********************************************************************/ 00820000 * 0310 00821000 *RECOVEX: /* REVOVERY ENTRY POINT */ 00822000 * PARMPTR=SDWAPARM; /* GET POINTER TO PARM LIST */ 00823000 RECOVEX L PARMPTR,SDWAPARM(,SDWAPTR) 0310 00824000 * BASEREG=PARMRTAD; /* RESTORE BASE REG */ 00825000 L BASEREG,PARMRTAD(,PARMPTR) 0311 00826000 * R9=PARMRGAD; /* RESTORE DATA REG */ 00827000 L R9,PARMRGAD(,PARMPTR) 0312 00828000 * R5=R14; /* SAVE RETURN REG */ 00829000 * 0313 00830000 LR R5,R14 0313 00831000 * /*****************************************************************/ 00832000 * /* */ 00833000 * /* TEST FOR XMPOST RECOVERY ENTRY */ 00834000 * /* */ 00835000 * /*****************************************************************/ 00836000 * 0314 00837000 * IF PARMSYSR='01'X THEN /* POST INDICATOR SET */ 00838000 CLI PARMSYSR(PARMPTR),1 0314 00839000 BNE @RF00314 0314 00840000 * DO; /* IF YES, */ 00841000 * SDWAHEX='1'B; /* INDICATE HEX DATA */ 00842000 OI SDWAHEX(SDWAPTR),B'10000000' 0316 00843000 * SDWAURAL=4; /* SET LENGTH OF DATA */ 00844000 MVI SDWAURAL(SDWAPTR),X'04' 0317 00845000 * SDWAVRA(1:4)='MEST'; /* MOVE PARMLIST TO SDWA */ 00846000 MVC SDWAVRA(4,SDWAPTR),@CC02092 0318 00847000 * DO; /* SETRP RECORD(YES) */ 00848000 * RESPECIFY 0320 00849000 * (GPR00P, 0320 00850000 * GPR01P, 0320 00851000 * GPR14P, 0320 00852000 * GPR15P) RSTD; 0320 00853000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00854000 MVI SDWARCDE(GPR01P),X'00' 0321 00855000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00856000 OI SDWARCRD(GPR01P),B'10000000' 0322 00857000 * RESPECIFY 0323 00858000 * (GPR00P, 0323 00859000 * GPR01P, 0323 00860000 * GPR14P, 0323 00861000 * GPR15P) UNRSTD; 0323 00862000 * END; /* DUMP SDWA */ 00863000 * END; /* END IF POST ENRET */ 00864000 * ELSE /* IF NOT POST ENTRY */ 00865000 * DO; /* SET UP FOR RTM */ 00866000 B @RC00314 0326 00867000 @RF00314 DS 0H 0327 00868000 * SDWAHEX='1'B; /* INDICATE HEX DATA */ 00869000 OI SDWAHEX(SDWAPTR),B'10000000' 0327 00870000 * SDWAURAL=24; /* SET LENGTH OF DATA */ 00871000 MVI SDWAURAL(SDWAPTR),X'18' 0328 00872000 * SDWAVRA(1:24)=PARMLIST; /* MOVE PARMLIST TO SDWA */ 00873000 MVC SDWAVRA(24,SDWAPTR),PARMLIST(PARMPTR) 0329 00874000 * PARMSTAT='IEAV'; /* SET MODULE PREFIX */ 00875000 MVC PARMSTAT(4,PARMPTR),@CC02079 0330 00876000 * PARMSYAD=PARMID; /* SET MODULE ID */ 00877000 L @08,PARMID(,PARMPTR) 0331 00878000 ST @08,PARMSYAD(,PARMPTR) 0331 00879000 * PARMCLAD=PARMSTAT; /* DUPLICATE MOD ID */ 00880000 L @05,PARMSTAT(,PARMPTR) 0332 00881000 ST @05,PARMCLAD(,PARMPTR) 0332 00882000 * PARMRTAD=PARMSYAD; /* DUPLICATE MOD ID */ 00883000 ST @08,PARMRTAD(,PARMPTR) 0333 00884000 * PARMRGAD='IEAV'; /* SET MODULE PREFIX */ 00885000 MVC PARMRGAD(4,PARMPTR),@CF02079 0334 00886000 * PARMID='MFRR'; /* SET FRR IF */ 00887000 MVC PARMID(4,PARMPTR),@CC02075 0335 00888000 * R6=ADDR(PARMLIST); /* GET ADDR OF PARMLIST */ 00889000 LR R6,PARMPTR 0336 00890000 * DO; /* SETRP 0337 00891000 * RECORD(YES)RECPARM(PARMLIST) */ 00892000 * RESPECIFY 0338 00893000 * (GPR00P, 0338 00894000 * GPR01P, 0338 00895000 * GPR14P, 0338 00896000 * GPR15P) RSTD; 0338 00897000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00898000 MVI SDWARCDE(GPR01P),X'00' 0339 00899000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00900000 OI SDWARCRD(GPR01P),B'10000000' 0340 00901000 * GPR15P=ADDR(PARMLIST); /* ACCESS RECORD PARAMETER LIST */ 00902000 LR GPR15P,PARMPTR 0341 00903000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 0342 00904000 * PARAMETERS */ 00905000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0342 00906000 * RESPECIFY 0343 00907000 * (GPR00P, 0343 00908000 * GPR01P, 0343 00909000 * GPR14P, 0343 00910000 * GPR15P) UNRSTD; 0343 00911000 * END; /* DUMP SDWA */ 00912000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00913000 * GPR00P PTR(31) REG(0), 0345 00914000 * GPR01P PTR(31) REG(1), 0345 00915000 * GPR14P PTR(31) REG(14), 0345 00916000 * GPR15P PTR(31) REG(15); 0345 00917000 * DECLARE /* COMMON VARIABLES */ 00918000 * I256C CHAR(256) BASED, 0346 00919000 * I031F FIXED(31) BASED, 0346 00920000 * I031P PTR(31) BASED, 0346 00921000 * I015F FIXED(15) BASED, 0346 00922000 * I015P PTR(15) BASED, 0346 00923000 * I008P PTR(8) BASED, 0346 00924000 * I001C CHAR(1) BASED; 0346 00925000 * END; /* END IF NOT POST IND. */ 00926000 * R14=R5; /* RESTORE RETURN REG */ 00927000 @RC00314 LR R14,R5 0348 00928000 * GEN(BR 14); /* RETURN TO CALLER */ 00929000 BR 14 00930000 */* XMPOST RECOVERY ENTRY POINT */ 00931000 * 0350 00932000 * GEN; 0350 00933000 * /*SET UP ADDRESSABILITY */ 00934000 IEAVMEST EQU * SECONDARY ENTRY POINT 00935000 ENTRY IEAVMEST ENTRY 00936000 USING *,R15 ENTRY ADDRESSABILITY 00937000 BALR BASEREG,0 00938000 L2 DS 0H 00939000 S R12,LAB1 ADDRESSABILITY FOR SEC. ENTRY 00940000 B *+8 BRANCH AROUND 00941000 LAB1 DC A(L2-L1) ENTRY OFFSET 00942000 DROP R15 00943000 * R2=R14; /* SAVE RETURN REG */ 00944000 LR R2,R14 0351 00945000 * R5=R12; /* SAVE BASE REGISTER */ 00946000 LR R5,R12 0352 00947000 * GEN REFS(PSALITA,FLC); 0353 00948000 * /*GET LOCKS */ 00949000 MESTOLOC SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, **00950000 RELATED=(ORE,IEAVMFRR(MESTRLOC)) 00951000 MESTOCMS SETLOCK OBTAIN,TYPE=CMS,MODE=UNCOND, **00952000 RELATED=(ORE,IEAVMFRR(MESTRCMS)) 00953000 * R12=R5; /* RESTORE BASE REGISTER */ 00954000 LR R12,R5 0354 00955000 * R9=ADDR(RECOVEX); /* SET ADDR OF RECOVERY EXIT */ 00956000 LA R9,RECOVEX 0355 00957000 * GEN REFS(PSACSTK,FRRSCURR,FRRSLAST,PSALSFCC,FRRSENTR,FRRSELEN, 0356 00958000 * FRRSFRRA,FRRSPARM); 0356 00959000 * /*ISSUE SETFRR */ 00960000 SETFRR A,FRRAD=(R9),WRKREGS=(R5,R6),PARMAD=(R5) 00961000 * RFY 0357 00962000 * (PARMLIST) BASED(R5); /* REBASE PARM LIST */ 00963000 * PARMSYSR='01'X; /* INDICATE XMPOST RECOVERY */ 00964000 MVI PARMSYSR(R5),X'01' 0358 00965000 * PARMRTAD=BASEREG; /* STORE BASE REG */ 00966000 * 0359 00967000 ST BASEREG,PARMRTAD(,R5) 0359 00968000 * /*****************************************************************/ 00969000 * /* */ 00970000 * /* COMPARE ECB ADDRESSES TO DETERMINE IF COMM TASK ECB WAS BEING */ 00971000 * /* POSTED. IF SO, A LOCAL POST WILL BE @ZA05368*/ 00972000 * /* */ 00973000 * /*****************************************************************/ 00974000 * 0360 00975000 */* GENERATED TO GIVE THE COMMTASK CONTROL. IF A @ZA05368*/ 00976000 */* COMMTASK ECB WAS NOT BEING POSTED, AN A23 ABEND @ZA05368*/ 00977000 */* WILL BE ISSUED. @ZA05368*/ 00978000 * 0360 00979000 * IF R0=ADDR(UCMOECB)|R0=ADDR(UCMDECB) THEN/* COMM TASK ECB */ 00980000 L @08,CVTPTR 0360 00981000 L @08,UCMBASPT(,@08) 0360 00982000 LA @05,UCMOECB(,@08) 0360 00983000 CR R0,@05 0360 00984000 BE @RT00360 0360 00985000 LA @08,UCMDECB(,@08) 0360 00986000 CR R0,@08 0360 00987000 BNE @RF00360 0360 00988000 @RT00360 DS 0H 0361 00989000 * DO; /* IF YES, */ 00990000 * R4=UCMPXA; /* SET COMTASK TCB ADDR @ZA03242*/ 00991000 L @08,CVTPTR 0362 00992000 L @03,UCMBASPT(,@08) 0362 00993000 L R4,UCMPXA(,@03) 0362 00994000 * R6=UCMCTID; /* ASID OF COMMTASK */ 00995000 LH R6,UCMCTID(,@03) 0363 00996000 * R11=R0; /* SET UP ECB REG @ZA05368*/ 00997000 LR R11,R0 0364 00998000 * R15=CVT0PT01; /* SET POST ADDRESS @ZA05368*/ 00999000 L R15,CVT0PT01(,@08) 0365 01000000 * R13=0; /* POST INTERFACE REG @ZA05368*/ 01001000 SLR R13,R13 0366 01002000 * R10=0; /* POST INTERFACE REG @ZA05368*/ 01003000 SLR R10,R10 0367 01004000 * R5=R12; /* SAVE BASE REG @ZA05368*/ 01005000 LR R5,R12 0368 01006000 * R12=0; /* POST INTERFACE REG @ZA05368*/ 01007000 SLR R12,R12 0369 01008000 * GEN(BALR R14,R15); /* LOCAL POST @ZA05368*/ 01009000 BALR R14,R15 01010000 * R12=R5; /* RESTORE BASE REG @ZA05368*/ 01011000 LR R12,R5 0371 01012000 * R7=UCMASCB; /* SET COMTASK ASCB ADDR @ZA03242*/ 01013000 L @08,CVTPTR 0372 01014000 L @08,UCMBASPT(,@08) 0372 01015000 L R7,UCMASCB(,@08) 0372 01016000 * END; /* END IF COMMTASK ECB */ 01017000 * ELSE /* IF NOT COMMTASK ECB */ 01018000 * DO; /* ABEND WWB TASK WAITING */ 01019000 B @RC00360 0374 01020000 @RF00360 DS 0H 0375 01021000 */********************************************************************/ 01022000 */* */ 01023000 */* IF NEITHER UCMOECB NOR UCMDECB WAS POSTED THEN IT MUST HAVE */ 01024000 */* BEEN THE ECB IN THE WWB. IN THIS CASE THE XMPOST WAS SCHEDULED */ 01025000 */* BY IEAVVRP2. R0 POINTS TO THE ECB IN THE WWB. */ 01026000 */* @ZA03242*/ 01027000 */********************************************************************/ 01028000 * 0375 01029000 * WWBPTR=R0-20; /* BACK UP TO BEGINNING OF WWB 0375 01030000 * @ZA03242*/ 01031000 LR WWBPTR,R0 0375 01032000 SL WWBPTR,@CF02099 0375 01033000 * R4=WWBTCBAD; /* SET R4 TO POINT TO TCB 0376 01034000 * @ZA03242*/ 01035000 L R4,WWBTCBAD(,WWBPTR) 0376 01036000 * R7=WWBASCB; /* SET R7 TO POINT TO ASCB 0377 01037000 * @ZA03242*/ 01038000 L R7,WWBASCB(,WWBPTR) 0377 01039000 * ASCBPTR=R7; /* SET UP ASCB BASE REG @ZA03242*/ 01040000 LR ASCBPTR,R7 0378 01041000 * R6=ASCBASID; /* GET ASID ADDR FOR CALLRTM 0379 01042000 * @ZA03242*/ 01043000 LH R6,ASCBASID(,ASCBPTR) 0379 01044000 N R6,@CF02111 0379 01045000 * R1=0; /* GETMAIN INTERFACE */ 01046000 SLR R1,R1 0380 01047000 * R8=R7; /* SAVE TCB ADDR AROUND BRANCH 0381 01048000 * ENTRY TO GETMAIN @ZA03242*/ 01049000 LR R8,R7 0381 01050000 * GEN REFS(FRRSEMP,CVTBTERM,ASCBASID); 0382 01051000 * /*ABEND POSTED TASK */ 01052000 GETMAIN R,LV=64,SP=229,BRANCH=YES GET SAVAREA 01053000 LR R13,R1 SET ADDR OF SAVEAREA 01054000 LR R5,R2 SAVE RETURN REG ACROSS CALLRTM 01055000 CALLRTM TYPE=ABTERM,COMPCOD=X'A23',TCB=(R4),ASID=(R6) 01056000 LR R2,R5 RESTORE RETURN REG 01057000 LR R7,R8 RESTORE ASCB ADDRESS **01058000 CLOBBERED BY GETMAIN @ZA03242 01059000 FREEMAIN R,LV=64,A=(R13),SP=229,BRANCH=YES RELEASE SAVEAREA 01060000 SETFRR D,WRKREGS=(R5,R6) RELEASE FRR 01061000 LR R5,R12 SAVE BASE REGISTER 01062000 MESTRCMS SETLOCK RELEASE,TYPE=CMS, **01063000 RELATED=(ORE,IEAVMFRR(MESTOCMS)) 01064000 MESTRLOC SETLOCK RELEASE,TYPE=LOCAL, **01065000 RELATED=(ORE,IEAVMFRR(MESTOLOC)) 01066000 * R12=R5; /* RESTORE BASE REG */ 01067000 LR R12,R5 0383 01068000 * END; /* END IF NOT COMMTASK @ZA05368*/ 01069000 * R14=R2; /* RESTORE RETURN REG */ 01070000 @RC00360 LR R14,R2 0385 01071000 * GEN(BR R14); /* RETURN TO CALLER */ 01072000 BR R14 01073000 * END IEAVMFRR /* END PROCESSING */ 01074000 * 0387 01075000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01076000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01077000 */*%INCLUDE SYSUT5 (DECLARES) */ 01078000 */*%INCLUDE SYSLIB (CVT ) */ 01079000 */*%INCLUDE SYSLIB (IHACTM ) */ 01080000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01081000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01082000 */*%INCLUDE SYSLIB (IEECUCM ) */ 01083000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01084000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01085000 */*%INCLUDE SYSLIB (IHALCCA ) */ 01086000 */*%INCLUDE SYSUT5 (INITFRR ) */ 01087000 */*%INCLUDE SYSUT5 (INITESTA) */ 01088000 */*%INCLUDE SYSUT5 (USERCLN ) */ 01089000 */*%INCLUDE SYSUT5 (USERCLN ) */ 01090000 */*%INCLUDE SYSUT5 (ERRORHAN) */ 01091000 */*%INCLUDE SYSUT5 (RECDRETU) */ 01092000 * 0387 01093000 * ; 0387 01094000 @DATA DS 0H 01095000 @CH00062 DC H'3' 01096000 @SM02104 MVC DUMPBUF(0),DUMPHEAD 01097000 @DATD DSECT 01098000 DS 0F 01099000 @SA00001 DS 18F 01100000 IEAVMFRR CSECT 01101000 DS 0F 01102000 @CF00123 DC F'1' 01103000 @CF00094 DC F'2' 01104000 @CF00075 DC F'6' 01105000 @CF01033 DC F'12' 01106000 @CF00065 DC F'16' 01107000 @CF02099 DC F'20' 01108000 @CF02078 DC F'70' 01109000 @CF02111 DC XL4'0000FFFF' 01110000 @CF02079 DC C'IEAV' 01111000 @DATD DSECT 01112000 DS 0D 01113000 SAVRTN DS A 01114000 SAVFRR DS A 01115000 SAVTCB DS A 01116000 RECEXADD DS A 01117000 FRRSPTR DS A 01118000 FRREPTR DS A 01119000 UCMEXTPT DS A 01120000 UCMMCSPT DS A 01121000 UCMEILPT DS A 01122000 UCMUEWPT DS A 01123000 UCMDVEPT DS A 01124000 UCMFXPTR DS A 01125000 UCMPXPTR DS A 01126000 DUMPBUF DS CL80 01127000 IEAVMFRR CSECT 01128000 DS 0F 01129000 @SIZDATD DC AL1(0) 01130000 DC AL3(@ENDDATD-@DATD) 01131000 DS 0D 01132000 @CC02075 DC C'MFRR' 01133000 @CC02079 DC C'IEAV' 01134000 @CC02092 DC C'MEST' 01135000 ASID0 DC X'0000' 01136000 ABENDCDE DC X'1FC000' 01137000 DC X'2FC000' 01138000 DC X'3FC000' 01139000 DC X'4FC000' 01140000 DC X'5FC000' 01141000 DC X'6FC000' 01142000 PATCHAR DC 4CL25'** IEAVMFRR PATCH AREA' 01143000 IEAVMFRR CSECT 01144000 * /* @ZA10488*/ 01145000 DUMPHEAD SDUMP HDR=' ',SDATA=(SQA,NUC,LSQA,LPA,SWA,CSA,ALLPSA,RGN, XX01146000 TRT),MF=L @ZA10488 01147000 DUMPLEN DC AL1(*-DUMPHEAD) 01148000 @DATD DSECT 01149000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01150000 @ENDDATD EQU * 01151000 IEAVMFRR CSECT 01152000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01153000 @01 EQU 01 01154000 @02 EQU 02 01155000 @03 EQU 03 01156000 @04 EQU 04 01157000 @05 EQU 05 01158000 @06 EQU 06 01159000 @07 EQU 07 01160000 @08 EQU 08 01161000 @09 EQU 09 01162000 @10 EQU 10 01163000 @11 EQU 11 01164000 @12 EQU 12 01165000 @13 EQU 13 01166000 @14 EQU 14 01167000 @15 EQU 15 01168000 I EQU @05 01169000 ERRCDE EQU @03 01170000 R0 EQU @00 01171000 R1 EQU @01 01172000 R2 EQU @02 01173000 R4 EQU @04 01174000 R5 EQU @05 01175000 R6 EQU @06 01176000 R7 EQU @07 01177000 R8 EQU @08 01178000 R9 EQU @09 01179000 R10 EQU @10 01180000 R11 EQU @11 01181000 R12 EQU @12 01182000 R13 EQU @13 01183000 R14 EQU @14 01184000 R15 EQU @15 01185000 BASEREG EQU @12 01186000 SDWAPTR EQU @01 01187000 PARMPTR EQU @02 01188000 ASCBPTR EQU @09 01189000 WWBPTR EQU @06 01190000 GPR00P EQU @00 01191000 GPR01P EQU @01 01192000 GPR14P EQU @14 01193000 GPR15P EQU @15 01194000 R3 EQU @03 01195000 CVTPTR EQU 16 01196000 PSA EQU 0 01197000 FLCRNPSW EQU PSA 01198000 FLCROPSW EQU PSA+8 01199000 FLCICCW2 EQU PSA+16 01200000 PSAEEPSW EQU PSA+132 01201000 PSAESPSW EQU PSA+136 01202000 FLCSVILC EQU PSAESPSW+1 01203000 PSAEPPSW EQU PSA+140 01204000 FLCPIILC EQU PSAEPPSW+1 01205000 FLCPICOD EQU PSAEPPSW+2 01206000 PSAPICOD EQU FLCPICOD+1 01207000 FLCTEA EQU PSAEPPSW+4 01208000 FLCPER EQU PSA+152 01209000 FLCMCLA EQU PSA+168 01210000 FLCIOEL EQU FLCMCLA+4 01211000 FLCIOA EQU FLCMCLA+16 01212000 FLCFSA EQU FLCMCLA+80 01213000 PSALCCAV EQU PSA+528 01214000 PSATOLD EQU PSA+540 01215000 PSAAOLD EQU PSA+548 01216000 PSASUPER EQU PSA+552 01217000 PSASUP1 EQU PSASUPER 01218000 PSASUP2 EQU PSASUPER+1 01219000 PSASUP3 EQU PSASUPER+2 01220000 PSASUP4 EQU PSASUPER+3 01221000 PSACLHT EQU PSA+640 01222000 PSALKSA EQU PSA+696 01223000 PSAHLHI EQU PSA+760 01224000 PSALITA EQU PSA+764 01225000 PSADSSFL EQU PSA+836 01226000 PSADSSF1 EQU PSADSSFL 01227000 PSADSSF3 EQU PSADSSFL+2 01228000 PSADSSF4 EQU PSADSSFL+3 01229000 PSARSVT EQU PSA+896 01230000 PSALSFCC EQU PSA+1012 01231000 RETRYAD EQU 0 01232000 REGUPD EQU 0 01233000 RETRYNT EQU 0 01234000 CVTMAP EQU 0 01235000 CVTBTERM EQU CVTMAP+52 01236000 CVTDAR EQU CVTMAP+72 01237000 CVTFLGS1 EQU CVTDAR 01238000 CVTCUCB EQU CVTMAP+100 01239000 CVTDCB EQU CVTMAP+116 01240000 CVTIOQET EQU CVTMAP+120 01241000 CVTIERLC EQU CVTMAP+144 01242000 CVT0PT01 EQU CVTMAP+152 01243000 CVTHEAD EQU CVTMAP+160 01244000 CVTSV76C EQU CVTHEAD 01245000 CVTOPTA EQU CVTMAP+182 01246000 CVTOPTB EQU CVTMAP+183 01247000 CVTGTF EQU CVTMAP+236 01248000 CVTGTFST EQU CVTGTF 01249000 CVTGTFS EQU CVTGTFST 01250000 CVTSTATE EQU CVTGTFST 01251000 CVTTMODE EQU CVTGTFST 01252000 CVTFORM EQU CVTGTFST 01253000 CVTAQAVT EQU CVTMAP+240 01254000 CVTTCMFG EQU CVTAQAVT 01255000 CVTVOLM2 EQU CVTMAP+244 01256000 CVTTATA EQU CVTVOLM2 01257000 CVTTSKS EQU CVTTATA 01258000 CVTVOLF2 EQU CVTTSKS 01259000 CVTTAT EQU CVTTATA+1 01260000 CVTATER EQU CVTMAP+248 01261000 CVTEXT1 EQU CVTMAP+252 01262000 CVTPURG EQU CVTMAP+260 01263000 CVTQMSG EQU CVTMAP+268 01264000 CVTDMSR EQU CVTMAP+272 01265000 CVTRSV37 EQU CVTDMSR 01266000 CVTDMSRF EQU CVTRSV37 01267000 CVTERPV EQU CVTMAP+316 01268000 CVTINTLA EQU CVTMAP+320 01269000 CVTAPF EQU CVTMAP+324 01270000 CVTEXT2 EQU CVTMAP+328 01271000 CVTHJES EQU CVTMAP+332 01272000 CVTPGSIA EQU CVTMAP+348 01273000 CVTA1F1 EQU CVTMAP+356 01274000 CVTSYSK EQU CVTMAP+357 01275000 CVTVOLM1 EQU CVTMAP+380 01276000 CVTVOLF1 EQU CVTVOLM1 01277000 CVTATMCT EQU CVTMAP+388 01278000 CVTXTNT1 EQU 0 01279000 CVTXTNT2 EQU 0 01280000 CVTDSSV EQU CVTXTNT2 01281000 CVTFLGBT EQU CVTXTNT2+5 01282000 CVTQID EQU CVTXTNT2+24 01283000 CVTRV400 EQU CVTXTNT2+52 01284000 CVTRV409 EQU CVTXTNT2+53 01285000 CVTATCVT EQU CVTXTNT2+64 01286000 CVTRV429 EQU CVTXTNT2+84 01287000 CVTRV438 EQU CVTXTNT2+85 01288000 CVTRV457 EQU CVTXTNT2+112 01289000 CVTRV466 EQU CVTXTNT2+113 01290000 CVTFIX EQU 0 01291000 CVTRELNO EQU CVTFIX+252 01292000 WWB EQU 0 01293000 WWBASCB EQU WWB+8 01294000 WWBTCBAD EQU WWB+12 01295000 WWBFLAGS EQU WWB+16 01296000 PARMLIST EQU 0 01297000 PARMSTAT EQU PARMLIST 01298000 PARMFLAG EQU PARMSTAT+1 01299000 PARMSDWA EQU PARMFLAG 01300000 PARMCWT EQU PARMFLAG 01301000 PARMRECU EQU PARMFLAG 01302000 PARMFRID EQU PARMFLAG 01303000 PARMWARG EQU PARMFLAG 01304000 PARMNDMP EQU PARMFLAG 01305000 PARMSYSR EQU PARMSTAT+2 01306000 PARMSYAD EQU PARMLIST+4 01307000 PARMCLAD EQU PARMLIST+8 01308000 PARMRTAD EQU PARMLIST+12 01309000 PARMRGAD EQU PARMLIST+16 01310000 PARMID EQU PARMLIST+20 01311000 ASCB EQU 0 01312000 ASCBASID EQU ASCB+36 01313000 ASCBFW1 EQU ASCB+100 01314000 ASCBRCTF EQU ASCBFW1+2 01315000 ASCBFLG1 EQU ASCBFW1+3 01316000 ASCBDSP1 EQU ASCB+114 01317000 ASCBFLG2 EQU ASCB+115 01318000 FRRS EQU 0 01319000 FRRSHEAD EQU FRRS 01320000 FRRSEMP EQU FRRSHEAD 01321000 FRRSLAST EQU FRRSHEAD+4 01322000 FRRSELEN EQU FRRSHEAD+8 01323000 FRRSCURR EQU FRRSHEAD+12 01324000 FRRSENTR EQU 0 01325000 FRRSFRRA EQU FRRSENTR 01326000 FRRSFLGS EQU FRRSENTR+4 01327000 FRRSFLG1 EQU FRRSFLGS 01328000 FRRSPARM EQU FRRSENTR+8 01329000 UCM2EXT EQU 0 01330000 UCM2STA EQU UCM2EXT+8 01331000 UCM2SFLG EQU UCM2STA 01332000 UCMPRFX EQU 0 01333000 UCMSAVE0 EQU UCMPRFX+4 01334000 UCMSFLGS EQU UCMPRFX+84 01335000 UCMSFLG1 EQU UCMSFLGS 01336000 UCMSFLG2 EQU UCMSFLGS+1 01337000 UCMXSA EQU UCMPRFX+104 01338000 UCMSDS1 EQU UCMPRFX+156 01339000 UCM EQU 0 01340000 UCMOECB EQU UCM+8 01341000 UCMDECB EQU UCM+12 01342000 UCMRPYI EQU UCM+32 01343000 UCMPXA EQU UCM+64 01344000 UCMPXB EQU UCM+68 01345000 UCMMODE EQU UCMPXB 01346000 UCMVDATA EQU UCM+72 01347000 UCMCTID EQU UCM+250 01348000 UCMASCB EQU UCM+280 01349000 UCMRSV42 EQU UCM+300 01350000 UCMRSV51 EQU UCM+301 01351000 UCMEIL EQU 0 01352000 UCMRECBA EQU UCMEIL+24 01353000 UCMEXIT EQU 0 01354000 UCMLIST EQU 0 01355000 UCMSTS EQU UCMLIST+24 01356000 UCMATR EQU UCMLIST+25 01357000 UCMXA EQU UCMLIST+26 01358000 UCMAUTH EQU UCMLIST+40 01359000 UCMAUTHA EQU UCMAUTH 01360000 UCMDISP EQU UCMLIST+42 01361000 UCMDISP1 EQU UCMDISP 01362000 UCMDISP2 EQU UCMDISP+1 01363000 UCMMSG EQU UCMLIST+60 01364000 UCMMSG1 EQU UCMMSG 01365000 UCMDEVC EQU UCMLIST+63 01366000 UCMRCT EQU UCMLIST+68 01367000 UCMSDS5 EQU UCMRCT 01368000 UCMFEXTA EQU 0 01369000 UCMFMGFS EQU UCMFEXTA+8 01370000 UCMFFLG1 EQU UCMFMGFS 01371000 UCMPEXTA EQU 0 01372000 UCMPDM1 EQU UCMPEXTA+4 01373000 SDWA EQU 0 01374000 SDWAPARM EQU SDWA 01375000 SDWAFIOB EQU SDWA+4 01376000 SDWAABCC EQU SDWAFIOB 01377000 SDWACMPF EQU SDWAABCC 01378000 SDWACMPC EQU SDWAABCC+1 01379000 SDWACTL1 EQU SDWA+8 01380000 SDWACMKA EQU SDWACTL1 01381000 SDWAMWPA EQU SDWACTL1+1 01382000 SDWAPMKA EQU SDWACTL1+4 01383000 SDWACTL2 EQU SDWA+16 01384000 SDWACMKP EQU SDWACTL2 01385000 SDWAMWPP EQU SDWACTL2+1 01386000 SDWAPMKP EQU SDWACTL2+4 01387000 SDWAGRSV EQU SDWA+24 01388000 SDWANAME EQU SDWA+88 01389000 SDWAEC1 EQU SDWA+104 01390000 SDWAEMK1 EQU SDWAEC1 01391000 SDWAMWP1 EQU SDWAEC1+1 01392000 SDWAINT1 EQU SDWAEC1+2 01393000 SDWANXT1 EQU SDWAEC1+4 01394000 SDWAAEC1 EQU SDWA+112 01395000 SDWAILC1 EQU SDWAAEC1+1 01396000 SDWAINC1 EQU SDWAAEC1+2 01397000 SDWAICD1 EQU SDWAINC1+1 01398000 SDWAEC2 EQU SDWA+120 01399000 SDWAEMK2 EQU SDWAEC2 01400000 SDWAMWP2 EQU SDWAEC2+1 01401000 SDWAINT2 EQU SDWAEC2+2 01402000 SDWANXT2 EQU SDWAEC2+4 01403000 SDWAAEC2 EQU SDWA+128 01404000 SDWAILC2 EQU SDWAAEC2+1 01405000 SDWAINC2 EQU SDWAAEC2+2 01406000 SDWAICD2 EQU SDWAINC2+1 01407000 SDWASRSV EQU SDWA+136 01408000 SDWAIDNT EQU SDWA+200 01409000 SDWAMCH EQU SDWA+204 01410000 SDWASTCK EQU SDWAMCH 01411000 SDWAMCHI EQU SDWAMCH+8 01412000 SDWAMCHS EQU SDWAMCHI 01413000 SDWAMCHD EQU SDWAMCHI+1 01414000 SDWARSR1 EQU SDWAMCH+12 01415000 SDWARSR2 EQU SDWAMCH+13 01416000 SDWAFLGS EQU SDWA+232 01417000 SDWAERRA EQU SDWAFLGS 01418000 SDWARKEY EQU SDWAERRA 01419000 SDWAERRB EQU SDWAFLGS+1 01420000 SDWAERRC EQU SDWAFLGS+2 01421000 SDWAERRD EQU SDWAFLGS+3 01422000 SDWAIOFS EQU SDWA+238 01423000 SDWARTYA EQU SDWA+240 01424000 SDWACPUA EQU SDWA+248 01425000 SDWAPARQ EQU SDWA+252 01426000 SDWARCDE EQU SDWAPARQ 01427000 SDWAACF2 EQU SDWAPARQ+1 01428000 SDWARCRD EQU SDWAACF2 01429000 SDWAUPRG EQU SDWAACF2 01430000 SDWAFREE EQU SDWAACF2 01431000 SDWAACF3 EQU SDWAPARQ+2 01432000 SDWAACF4 EQU SDWAPARQ+3 01433000 SDWALKWA EQU SDWA+256 01434000 SDWALKWS EQU SDWALKWA 01435000 SDWARECP EQU SDWA+292 01436000 SDWASNPA EQU SDWA+320 01437000 SDWADUMP EQU SDWASNPA 01438000 SDWADPFS EQU SDWADUMP+1 01439000 SDWADDAT EQU SDWASNPA+4 01440000 SDWASDAT EQU SDWADDAT 01441000 SDWAPDAT EQU SDWADDAT+2 01442000 SDWADPSA EQU SDWA+328 01443000 SDWADPSL EQU SDWADPSA 01444000 SDWARA EQU SDWA+400 01445000 SDWADPVA EQU SDWARA+2 01446000 SDWAHEX EQU SDWADPVA 01447000 SDWAURAL EQU SDWARA+3 01448000 SDWAVRA EQU SDWARA+4 01449000 LCCA EQU 0 01450000 LCCAIHRC EQU LCCA+520 01451000 LCCAIHR1 EQU LCCAIHRC 01452000 LCCAIHR2 EQU LCCAIHRC+1 01453000 LCCAIHR3 EQU LCCAIHRC+2 01454000 LCCAIHR4 EQU LCCAIHRC+3 01455000 LCCASPIN EQU LCCA+524 01456000 LCCASPN1 EQU LCCASPIN 01457000 LCCASPN2 EQU LCCASPIN+1 01458000 LCCASPN3 EQU LCCASPIN+2 01459000 LCCASPN4 EQU LCCASPIN+3 01460000 LCCADSF1 EQU LCCA+540 01461000 LCCADSF2 EQU LCCA+541 01462000 LCCASPSA EQU LCCA+544 01463000 LCCACRFL EQU LCCA+692 01464000 LCCACREX EQU LCCA+693 01465000 LCCALKFG EQU LCCA+694 01466000 LCCASRBF EQU LCCA+720 01467000 LCCAPGTA EQU LCCASRBF+2 01468000 I256C EQU 0 01469000 I015F EQU 0 01470000 I001C EQU 0 01471000 I008P EQU 0 01472000 I015P EQU 0 01473000 I031F EQU 0 01474000 I031P EQU 0 01475000 UCMPRFXP EQU 0 01476000 UCM2PTR EQU 0 01477000 LCCAPTR EQU PSALCCAV 01478000 SRBMDTCB EQU LCCAPGTA+2 01479000 UCMBASPT EQU CVTCUCB 01480000 CVTS01 EQU CVTPGSIA 01481000 CVTLPDIA EQU CVTS01+12 01482000 CVTDIRST EQU CVTLPDIA 01483000 CVTSLIDA EQU CVTS01+24 01484000 CVTCTLFG EQU CVTS01+50 01485000 CVTCRMN EQU CVTS01+156 01486000 CVTSDMP EQU CVTS01+232 01487000 CVTRV210 EQU CVTS01+424 01488000 CVTRV219 EQU CVTS01+425 01489000 CVTRV228 EQU CVTS01+426 01490000 CVTRV237 EQU CVTS01+427 01491000 CVTMFRTR EQU CVTS01+452 01492000 CVTRV262 EQU CVTS01+468 01493000 CVTRV271 EQU CVTS01+469 01494000 CVTRV280 EQU CVTS01+470 01495000 CVTRV289 EQU CVTS01+471 01496000 CVTRMBR EQU CVTS01+492 01497000 CVTGSDA EQU CVTS01+600 01498000 UCMIECBA EQU UCMRECBA+4 01499000 FLC EQU PSA 01500000 PSARSVTE EQU PSARSVT 01501000 PSACSTK EQU PSARSVTE 01502000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01503000 PSARSAV EQU PSARSVTE+60 01504000 PSARSTK EQU PSARSVTE+56 01505000 PSAESAV3 EQU PSARSVTE+52 01506000 PSAESTK3 EQU PSARSVTE+48 01507000 PSAESAV2 EQU PSARSVTE+44 01508000 PSAESTK2 EQU PSARSVTE+40 01509000 PSAESAV1 EQU PSARSVTE+36 01510000 PSAESTK1 EQU PSARSVTE+32 01511000 PSAPSAV EQU PSARSVTE+28 01512000 PSAPSTK EQU PSARSVTE+24 01513000 PSAMSAV EQU PSARSVTE+20 01514000 PSAMSTK EQU PSARSVTE+16 01515000 PSASSAV EQU PSARSVTE+12 01516000 PSASSTK EQU PSARSVTE+8 01517000 PSANSTK EQU PSARSVTE+4 01518000 UCMIECBP EQU UCMIECBA+1 01519000 UCMIECBF EQU UCMIECBA 01520000 CVTRV628 EQU CVTS01+728 01521000 CVTRV627 EQU CVTS01+724 01522000 CVTRV626 EQU CVTS01+720 01523000 CVTRV625 EQU CVTS01+716 01524000 CVTRV624 EQU CVTS01+712 01525000 CVTRV623 EQU CVTS01+708 01526000 CVTRV622 EQU CVTS01+704 01527000 CVTRV621 EQU CVTS01+700 01528000 CVTIHASU EQU CVTS01+696 01529000 CVTRV619 EQU CVTS01+692 01530000 CVTRV618 EQU CVTS01+688 01531000 CVTRV617 EQU CVTS01+684 01532000 CVTRV616 EQU CVTS01+680 01533000 CVTRV615 EQU CVTS01+676 01534000 CVTRV614 EQU CVTS01+672 01535000 CVTRV613 EQU CVTS01+668 01536000 CVTTCASP EQU CVTS01+664 01537000 CVT0PT03 EQU CVTS01+660 01538000 CVT0PT0E EQU CVTS01+656 01539000 CVTRV609 EQU CVTS01+652 01540000 CVTCGK EQU CVTS01+648 01541000 CVTRAC EQU CVTS01+644 01542000 CVTHSM EQU CVTS01+640 01543000 CVTRV605 EQU CVTS01+636 01544000 CVTRV604 EQU CVTS01+632 01545000 CVTEFF02 EQU CVTS01+628 01546000 CVTCBBR EQU CVTS01+624 01547000 CVTSSCR EQU CVTS01+620 01548000 CVTEVENT EQU CVTS01+616 01549000 CVTCRCA EQU CVTS01+612 01550000 CVTTPIO EQU CVTS01+608 01551000 CVTADV EQU CVTS01+604 01552000 CVTGSDAB EQU CVTGSDA 01553000 CVTQV3 EQU CVTS01+596 01554000 CVTQV2 EQU CVTS01+592 01555000 CVTQV1 EQU CVTS01+588 01556000 CVTRPT EQU CVTS01+584 01557000 CVTSSRB EQU CVTS01+580 01558000 CVTCSDRL EQU CVTS01+576 01559000 CVTEXP1 EQU CVTS01+572 01560000 CVTRMPMT EQU CVTS01+568 01561000 CVTRMPTT EQU CVTS01+564 01562000 CVTVPSA EQU CVTS01+560 01563000 CVTVSTOP EQU CVTS01+556 01564000 CVTGTFR8 EQU CVTS01+552 01565000 CVTQUIT EQU CVTS01+548 01566000 CVTVACR EQU CVTS01+544 01567000 CVTWTCB EQU CVTS01+540 01568000 CVTSTPRS EQU CVTS01+536 01569000 CVT0PT02 EQU CVTS01+532 01570000 CVTDARCM EQU CVTS01+528 01571000 CVTIRECM EQU CVTS01+524 01572000 CVTJRECM EQU CVTS01+520 01573000 CVTVEMS0 EQU CVTS01+516 01574000 CVTSPFRR EQU CVTS01+512 01575000 CVTRLSTG EQU CVTS01+508 01576000 CVT0TC0A EQU CVTS01+504 01577000 CVTGMBR EQU CVTS01+500 01578000 CVTLFRM EQU CVTS01+496 01579000 CVTVIOP EQU CVTS01+488 01580000 CVTRV307 EQU CVTS01+486 01581000 CVTRV306 EQU CVTS01+484 01582000 CVTRV305 EQU CVTS01+482 01583000 CVTRV304 EQU CVTS01+480 01584000 CVTRV303 EQU CVTS01+478 01585000 CVTRV302 EQU CVTS01+476 01586000 CVTTRCA EQU CVTS01+472 01587000 CVTRV297 EQU CVTRV289 01588000 CVTRV296 EQU CVTRV289 01589000 CVTRV295 EQU CVTRV289 01590000 CVTRV294 EQU CVTRV289 01591000 CVTRV293 EQU CVTRV289 01592000 CVTRV292 EQU CVTRV289 01593000 CVTRV291 EQU CVTRV289 01594000 CVTRV290 EQU CVTRV289 01595000 CVTRV288 EQU CVTRV280 01596000 CVTRV287 EQU CVTRV280 01597000 CVTRV286 EQU CVTRV280 01598000 CVTRV285 EQU CVTRV280 01599000 CVTRV284 EQU CVTRV280 01600000 CVTRV283 EQU CVTRV280 01601000 CVTRV282 EQU CVTRV280 01602000 CVTRV281 EQU CVTRV280 01603000 CVTRV279 EQU CVTRV271 01604000 CVTRV278 EQU CVTRV271 01605000 CVTRV277 EQU CVTRV271 01606000 CVTRV276 EQU CVTRV271 01607000 CVTRV275 EQU CVTRV271 01608000 CVTRV274 EQU CVTRV271 01609000 CVTRV273 EQU CVTRV271 01610000 CVTRV272 EQU CVTRV271 01611000 CVTRV270 EQU CVTRV262 01612000 CVTRV269 EQU CVTRV262 01613000 CVTRV268 EQU CVTRV262 01614000 CVTRV267 EQU CVTRV262 01615000 CVTRV266 EQU CVTRV262 01616000 CVTRV265 EQU CVTRV262 01617000 CVTRV264 EQU CVTRV262 01618000 CVTRV263 EQU CVTRV262 01619000 CVTVFP EQU CVTS01+464 01620000 CVTVSI EQU CVTS01+460 01621000 CVTVPSIB EQU CVTS01+456 01622000 CVTMFACT EQU CVTMFRTR 01623000 CVTMFCTL EQU CVTS01+448 01624000 CVTPVBP EQU CVTS01+444 01625000 CVTPWI EQU CVTS01+440 01626000 CVTRV254 EQU CVTS01+438 01627000 CVTRV253 EQU CVTS01+436 01628000 CVTRV252 EQU CVTS01+434 01629000 CVTRV251 EQU CVTS01+433 01630000 CVTRV250 EQU CVTS01+432 01631000 CVTRV249 EQU CVTS01+431 01632000 CVTRV248 EQU CVTS01+430 01633000 CVTRV247 EQU CVTS01+429 01634000 CVTRV246 EQU CVTS01+428 01635000 CVTRV245 EQU CVTRV237 01636000 CVTRV244 EQU CVTRV237 01637000 CVTRV243 EQU CVTRV237 01638000 CVTRV242 EQU CVTRV237 01639000 CVTRV241 EQU CVTRV237 01640000 CVTRV240 EQU CVTRV237 01641000 CVTRV239 EQU CVTRV237 01642000 CVTRV238 EQU CVTRV237 01643000 CVTRV236 EQU CVTRV228 01644000 CVTRV235 EQU CVTRV228 01645000 CVTRV234 EQU CVTRV228 01646000 CVTRV233 EQU CVTRV228 01647000 CVTRV232 EQU CVTRV228 01648000 CVTRV231 EQU CVTRV228 01649000 CVTRV230 EQU CVTRV228 01650000 CVTRV229 EQU CVTRV228 01651000 CVTRV227 EQU CVTRV219 01652000 CVTRV226 EQU CVTRV219 01653000 CVTRV225 EQU CVTRV219 01654000 CVTRV224 EQU CVTRV219 01655000 CVTRV223 EQU CVTRV219 01656000 CVTRV222 EQU CVTRV219 01657000 CVTRV221 EQU CVTRV219 01658000 CVTRV220 EQU CVTRV219 01659000 CVTRV218 EQU CVTRV210 01660000 CVTRV217 EQU CVTRV210 01661000 CVTRV216 EQU CVTRV210 01662000 CVTRV215 EQU CVTRV210 01663000 CVTRV214 EQU CVTRV210 01664000 CVTRV213 EQU CVTRV210 01665000 CVTRV212 EQU CVTRV210 01666000 CVTRV211 EQU CVTRV210 01667000 CVTLCCAT EQU CVTS01+420 01668000 CVTPCCAT EQU CVTS01+416 01669000 CVTIPCRP EQU CVTS01+412 01670000 CVTIPCRI EQU CVTS01+408 01671000 CVTIPCDS EQU CVTS01+404 01672000 CVTAIDVT EQU CVTS01+400 01673000 CVTSSAP EQU CVTS01+396 01674000 CVTEHCIR EQU CVTS01+392 01675000 CVTEHDEF EQU CVTS01+388 01676000 CVTDAIR EQU CVTS01+384 01677000 CVTPERFM EQU CVTS01+380 01678000 CVT044R2 EQU CVTS01+376 01679000 CVTFETCH EQU CVTS01+372 01680000 CVTRSTWD EQU CVTS01+368 01681000 CVTSPOST EQU CVTS01+364 01682000 CVTIOBP EQU CVTS01+360 01683000 CVTASMVT EQU CVTS01+356 01684000 CVTRECRQ EQU CVTS01+352 01685000 CVTWSAC EQU CVTS01+348 01686000 CVTRV149 EQU CVTS01+344 01687000 CVTWSAL EQU CVTS01+340 01688000 CVTSPSA EQU CVTS01+336 01689000 CVTGLMN EQU CVTS01+332 01690000 CVTVEAC0 EQU CVTS01+328 01691000 CVT062R1 EQU CVTS01+324 01692000 CVTRPOST EQU CVTS01+320 01693000 CVTDQIQE EQU CVTS01+316 01694000 CVTCSD EQU CVTS01+312 01695000 CVTLKRMA EQU CVTS01+308 01696000 CVTRSPIE EQU CVTS01+304 01697000 CVTRENQ EQU CVTS01+300 01698000 CVTLQCB EQU CVTS01+296 01699000 CVTFQCB EQU CVTS01+292 01700000 CVTQCS01 EQU CVTS01+288 01701000 CVTAPFT EQU CVTS01+284 01702000 CVTPARRL EQU CVTS01+280 01703000 CVTVWAIT EQU CVTS01+276 01704000 CVTGSPL EQU CVTS01+272 01705000 CVTLSMQ EQU CVTS01+268 01706000 CVTGSMQ EQU CVTS01+264 01707000 CVTEXPRO EQU CVTS01+260 01708000 CVTOPCTP EQU CVTS01+256 01709000 CVTSIC EQU CVTS01+252 01710000 CVTTPIOS EQU CVTS01+248 01711000 CVTRTMS EQU CVTS01+244 01712000 CVTSDBF EQU CVTS01+240 01713000 CVTSCBP EQU CVTS01+236 01714000 CVTSV60 EQU CVTS01+228 01715000 CVTRTMCT EQU CVTS01+224 01716000 CVTASCBL EQU CVTS01+220 01717000 CVTASCBH EQU CVTS01+216 01718000 CVTGDA EQU CVTS01+212 01719000 CVTASVT EQU CVTS01+208 01720000 CVTVVMDI EQU CVTS01+204 01721000 CVTAQTOP EQU CVTS01+200 01722000 CVTIOSCS EQU CVTS01+196 01723000 CVTSDRM EQU CVTS01+192 01724000 CVTOPTE EQU CVTS01+188 01725000 CVTSTXU EQU CVTS01+184 01726000 CVTQUIS EQU CVTS01+180 01727000 CVTPARS EQU CVTS01+176 01728000 CVTS1EE EQU CVTS01+172 01729000 CVTFRAS EQU CVTS01+168 01730000 CVTQSAS EQU CVTS01+164 01731000 CVTCRAS EQU CVTS01+160 01732000 CVTDELCP EQU CVTS01+152 01733000 CVTFRECL EQU CVTS01+148 01734000 CVTGETCL EQU CVTS01+144 01735000 CVTBLDCP EQU CVTS01+140 01736000 CVTAUTHL EQU CVTS01+136 01737000 CVTSCAN EQU CVTS01+132 01738000 CVTRV144 EQU CVTS01+130 01739000 CVTMAXMP EQU CVTS01+128 01740000 CVTSTCK EQU CVTS01+124 01741000 CVTRV139 EQU CVTS01+123 01742000 CVTDSSAC EQU CVTS01+122 01743000 CVTRV513 EQU CVTS01+121 01744000 CVTIOSPL EQU CVTS01+120 01745000 CVTPTGT EQU CVTS01+116 01746000 CVTCSPIE EQU CVTS01+112 01747000 CVTSMFEX EQU CVTS01+108 01748000 CVTOLT0A EQU CVTS01+104 01749000 CVTSRBRT EQU CVTS01+100 01750000 CVTPUTL EQU CVTS01+96 01751000 CVTASCRL EQU CVTS01+92 01752000 CVTASCRF EQU CVTS01+88 01753000 CVTRV326 EQU CVTS01+84 01754000 CVTRV325 EQU CVTS01+80 01755000 CVTRV324 EQU CVTS01+76 01756000 CVT0VL01 EQU CVTS01+72 01757000 CVTSHRVM EQU CVTS01+68 01758000 CVTRV332 EQU CVTS01+64 01759000 CVTTAS EQU CVTS01+60 01760000 CVTRSCN EQU CVTS01+56 01761000 CVTTRAC2 EQU CVTS01+54 01762000 CVTTRACE EQU CVTS01+52 01763000 CVTAPG EQU CVTS01+51 01764000 CVTSDTRC EQU CVTCTLFG 01765000 CVTGTRCE EQU CVTCTLFG 01766000 CVTNOMP EQU CVTCTLFG 01767000 CVTRSV79 EQU CVTCTLFG 01768000 CVTDSTAT EQU CVTCTLFG 01769000 CVTRSV78 EQU CVTCTLFG 01770000 CVTRV333 EQU CVTCTLFG 01771000 CVTRV323 EQU CVTCTLFG 01772000 CVTSPVLK EQU CVTS01+49 01773000 CVTRSV77 EQU CVTS01+48 01774000 CVTRV331 EQU CVTS01+44 01775000 CVTRV330 EQU CVTS01+40 01776000 CVTRV329 EQU CVTS01+36 01777000 CVTRV328 EQU CVTS01+32 01778000 CVTRV322 EQU CVTS01+28 01779000 CVTSLID EQU CVTSLIDA+1 01780000 CVTSYLK EQU CVTSLIDA 01781000 CVTRV321 EQU CVTS01+20 01782000 CVTRV320 EQU CVTS01+16 01783000 CVTLPDIR EQU CVTLPDIA+1 01784000 CVTRSV69 EQU CVTDIRST 01785000 CVTRSV68 EQU CVTDIRST 01786000 CVTRSV67 EQU CVTDIRST 01787000 CVTRSV66 EQU CVTDIRST 01788000 CVTRSV65 EQU CVTDIRST 01789000 CVTRSV64 EQU CVTDIRST 01790000 CVTRSV63 EQU CVTDIRST 01791000 CVTDICOM EQU CVTDIRST 01792000 CVTPVTP EQU CVTS01+8 01793000 CVTLPDSR EQU CVTS01+4 01794000 CVTGETL EQU CVTS01 01795000 LCCAR125 EQU LCCA+964 01796000 LCCAR124 EQU LCCA+960 01797000 LCCASGPR EQU LCCA+896 01798000 LCCADRT2 EQU LCCA+888 01799000 LCCADRT1 EQU LCCA+880 01800000 LCCAR103 EQU LCCA+876 01801000 LCCAESS2 EQU LCCA+872 01802000 LCCASPLJ EQU LCCA+868 01803000 LCCASMQJ EQU LCCA+864 01804000 LCCAIRT EQU LCCA+736 01805000 LCCAASID EQU LCCA+732 01806000 LCCARV89 EQU LCCA+728 01807000 LCCASAFN EQU LCCASRBF 01808000 LCCAECSA EQU LCCA+716 01809000 LCCAICR0 EQU LCCA+712 01810000 LCCALWTM EQU LCCA+704 01811000 LCCARV78 EQU LCCA+700 01812000 LCCAPINV EQU LCCA+696 01813000 LCCARV88 EQU LCCA+695 01814000 LCCARV87 EQU LCCALKFG 01815000 LCCARV86 EQU LCCALKFG 01816000 LCCARV85 EQU LCCALKFG 01817000 LCCARV84 EQU LCCALKFG 01818000 LCCALKRD EQU LCCALKFG 01819000 LCCALKAQ EQU LCCALKFG 01820000 LCCALKSA EQU LCCALKFG 01821000 LCCALKDP EQU LCCALKFG 01822000 LCCACRST EQU LCCACREX 01823000 LCCACRDP EQU LCCACREX 01824000 LCCACRLM EQU LCCACREX 01825000 LCCACRIN EQU LCCACREX 01826000 LCCACRRT EQU LCCACREX 01827000 LCCACRLE EQU LCCACREX 01828000 LCCACRRM EQU LCCACREX 01829000 LCCACREF EQU LCCACREX 01830000 LCCAVARY EQU LCCACRFL 01831000 LCCARV73 EQU LCCACRFL 01832000 LCCARV72 EQU LCCACRFL 01833000 LCCARV71 EQU LCCACRFL 01834000 LCCARV70 EQU LCCACRFL 01835000 LCCARV69 EQU LCCACRFL 01836000 LCCACLMS EQU LCCACRFL 01837000 LCCACRTM EQU LCCACRFL 01838000 LCCALCR0 EQU LCCA+688 01839000 LCCACRLC EQU LCCA+684 01840000 LCCARCPU EQU LCCA+680 01841000 LCCADCPU EQU LCCA+676 01842000 LCCASRBJ EQU LCCA+672 01843000 LCCADSSR EQU LCCA+668 01844000 LCCADSSC EQU LCCA+660 01845000 LCCADSS3 EQU LCCA+648 01846000 LCCADSS2 EQU LCCA+636 01847000 LCCADSS1 EQU LCCA+624 01848000 LCCAWTIM EQU LCCA+616 01849000 LCCAITOD EQU LCCA+608 01850000 LCCADTOD EQU LCCA+600 01851000 LCCASTOD EQU LCCA+592 01852000 LCCARIR5 EQU LCCASPSA+44 01853000 LCCARIR4 EQU LCCASPSA+40 01854000 LCCARIR3 EQU LCCASPSA+36 01855000 LCCARIR2 EQU LCCASPSA+32 01856000 LCCARPR5 EQU LCCASPSA+28 01857000 LCCARPR4 EQU LCCASPSA+24 01858000 LCCARPR3 EQU LCCASPSA+20 01859000 LCCARPR2 EQU LCCASPSA+16 01860000 LCCADSR5 EQU LCCASPSA+12 01861000 LCCADSR4 EQU LCCASPSA+8 01862000 LCCADSR3 EQU LCCASPSA+4 01863000 LCCADSR2 EQU LCCASPSA 01864000 LCCARV68 EQU LCCA+543 01865000 LCCAPSMK EQU LCCA+542 01866000 LCCARV67 EQU LCCADSF2 01867000 LCCARV66 EQU LCCADSF2 01868000 LCCARV65 EQU LCCADSF2 01869000 LCCARV64 EQU LCCADSF2 01870000 LCCADSRW EQU LCCADSF2 01871000 LCCADSPL EQU LCCADSF2 01872000 LCCAGSRB EQU LCCADSF2 01873000 LCCASRBM EQU LCCADSF2 01874000 LCCARV61 EQU LCCADSF1 01875000 LCCARV60 EQU LCCADSF1 01876000 LCCARV59 EQU LCCADSF1 01877000 LCCARV58 EQU LCCADSF1 01878000 LCCATIMR EQU LCCADSF1 01879000 LCCADSS EQU LCCADSF1 01880000 LCCAVCPU EQU LCCADSF1 01881000 LCCAACR EQU LCCADSF1 01882000 LCCACPUS EQU LCCA+536 01883000 LCCAASCP EQU LCCA+532 01884000 LCCAESSA EQU LCCA+528 01885000 LCCARV55 EQU LCCASPN4 01886000 LCCARV54 EQU LCCASPN4 01887000 LCCARV53 EQU LCCASPN4 01888000 LCCARV52 EQU LCCASPN4 01889000 LCCARV51 EQU LCCASPN4 01890000 LCCARV50 EQU LCCASPN4 01891000 LCCARV49 EQU LCCASPN4 01892000 LCCARV48 EQU LCCASPN4 01893000 LCCARV47 EQU LCCASPN3 01894000 LCCARV46 EQU LCCASPN3 01895000 LCCARV45 EQU LCCASPN3 01896000 LCCARV44 EQU LCCASPN3 01897000 LCCARV43 EQU LCCASPN3 01898000 LCCARV42 EQU LCCASPN3 01899000 LCCARV41 EQU LCCASPN3 01900000 LCCARV40 EQU LCCASPN3 01901000 LCCARV39 EQU LCCASPN2 01902000 LCCARV38 EQU LCCASPN2 01903000 LCCARV37 EQU LCCASPN2 01904000 LCCARV36 EQU LCCASPN2 01905000 LCCARV35 EQU LCCASPN2 01906000 LCCARV34 EQU LCCASPN2 01907000 LCCARV33 EQU LCCASPN2 01908000 LCCARV32 EQU LCCASPN2 01909000 LCCARV31 EQU LCCASPN1 01910000 LCCARV30 EQU LCCASPN1 01911000 LCCAMFIO EQU LCCASPN1 01912000 LCCARSTR EQU LCCASPN1 01913000 LCCATSPN EQU LCCASPN1 01914000 LCCALOCK EQU LCCASPN1 01915000 LCCASIGP EQU LCCASPN1 01916000 LCCAPTLB EQU LCCASPN1 01917000 LCCARV27 EQU LCCAIHR4 01918000 LCCARV26 EQU LCCAIHR4 01919000 LCCARV25 EQU LCCAIHR4 01920000 LCCARV24 EQU LCCAIHR4 01921000 LCCARV23 EQU LCCAIHR4 01922000 LCCARV22 EQU LCCAIHR4 01923000 LCCARV21 EQU LCCAIHR4 01924000 LCCARV20 EQU LCCAIHR4 01925000 LCCARV19 EQU LCCAIHR3 01926000 LCCARV18 EQU LCCAIHR3 01927000 LCCARV17 EQU LCCAIHR3 01928000 LCCARV16 EQU LCCAIHR3 01929000 LCCARV15 EQU LCCAIHR3 01930000 LCCARV14 EQU LCCAIHR3 01931000 LCCARV13 EQU LCCAIHR3 01932000 LCCARV12 EQU LCCAIHR3 01933000 LCCARV11 EQU LCCAIHR2 01934000 LCCARV10 EQU LCCAIHR2 01935000 LCCARV09 EQU LCCAIHR2 01936000 LCCARV08 EQU LCCAIHR2 01937000 LCCARV07 EQU LCCAIHR2 01938000 LCCARV06 EQU LCCAIHR2 01939000 LCCARV05 EQU LCCAIHR2 01940000 LCCARV04 EQU LCCAIHR2 01941000 LCCARV03 EQU LCCAIHR1 01942000 LCCARV02 EQU LCCAIHR1 01943000 LCCARV01 EQU LCCAIHR1 01944000 LCCAPPIE EQU LCCAIHR1 01945000 LCCAPSG1 EQU LCCAIHR1 01946000 LCCAPDAT EQU LCCAIHR1 01947000 LCCAXRC2 EQU LCCAIHR1 01948000 LCCAXRC1 EQU LCCAIHR1 01949000 LCCAIOPS EQU LCCA+512 01950000 LCCAGPGR EQU LCCA+448 01951000 LCCAR133 EQU LCCA+444 01952000 LCCAR132 EQU LCCA+440 01953000 LCCAR131 EQU LCCA+436 01954000 LCCAR130 EQU LCCA+432 01955000 LCCAR129 EQU LCCA+428 01956000 LCCAR128 EQU LCCA+424 01957000 LCCAR127 EQU LCCA+420 01958000 LCCAR126 EQU LCCA+416 01959000 LCCARSGR EQU LCCA+352 01960000 LCCAXGR3 EQU LCCA+288 01961000 LCCAXGR2 EQU LCCA+224 01962000 LCCAXGR1 EQU LCCA+160 01963000 LCCACR0 EQU LCCA+156 01964000 LCCAMCR1 EQU LCCA+152 01965000 LCCAPVAD EQU LCCA+148 01966000 LCCAPINT EQU LCCA+144 01967000 LCCAPPSW EQU LCCA+136 01968000 LCCAPGR2 EQU LCCA+72 01969000 LCCAPGR1 EQU LCCA+8 01970000 LCCARV77 EQU LCCA+6 01971000 LCCACPUA EQU LCCA+4 01972000 LCCALCCA EQU LCCA 01973000 @NM00057 EQU SDWA+512 01974000 @NM00056 EQU SDWADPVA 01975000 SDWAEBC EQU SDWADPVA 01976000 SDWAVRAL EQU SDWARA 01977000 @NM00055 EQU SDWA+396 01978000 SDWACOMP EQU SDWA+392 01979000 SDWARCPL EQU SDWA+364 01980000 @NM00054 EQU SDWADPSA+32 01981000 SDWATO4 EQU SDWADPSL+28 01982000 SDWAFRM4 EQU SDWADPSL+24 01983000 SDWATO3 EQU SDWADPSL+20 01984000 SDWAFRM3 EQU SDWADPSL+16 01985000 SDWATO2 EQU SDWADPSL+12 01986000 SDWAFRM2 EQU SDWADPSL+8 01987000 SDWATO1 EQU SDWADPSL+4 01988000 SDWAFRM1 EQU SDWADPSL 01989000 @NM00053 EQU SDWADDAT+3 01990000 @NM00052 EQU SDWAPDAT 01991000 SDWAUSPL EQU SDWAPDAT 01992000 SDWADPSW EQU SDWAPDAT 01993000 SDWATJPA EQU SDWAPDAT 01994000 SDWATLPA EQU SDWAPDAT 01995000 SDWADREG EQU SDWAPDAT 01996000 SDWADSAH EQU SDWAPDAT 01997000 SDWADSAS EQU SDWAPDAT 01998000 @NM00051 EQU SDWADDAT+1 01999000 @NM00050 EQU SDWASDAT 02000000 SDWAQQS EQU SDWASDAT 02001000 SDWACBS EQU SDWASDAT 02002000 SDWAGTF EQU SDWASDAT 02003000 SDWASWA EQU SDWASDAT 02004000 SDWALSQA EQU SDWASDAT 02005000 SDWASQA EQU SDWASDAT 02006000 SDWANUC EQU SDWASDAT 02007000 @NM00049 EQU SDWADUMP+2 02008000 @NM00048 EQU SDWADPFS 02009000 SDWASLST EQU SDWADPFS 02010000 @NM00047 EQU SDWADPFS 02011000 SDWADLST EQU SDWADPFS 02012000 SDWADPT EQU SDWADPFS 02013000 SDWADPID EQU SDWADUMP 02014000 SDWADPLA EQU SDWA+316 02015000 SDWAREXN EQU SDWARECP+16 02016000 SDWACSCT EQU SDWARECP+8 02017000 SDWAMODN EQU SDWARECP 02018000 @NM00046 EQU SDWA+290 02019000 SDWAASID EQU SDWA+288 02020000 SDWATALW EQU SDWALKWS+28 02021000 SDWATDLW EQU SDWALKWS+24 02022000 SDWATNLW EQU SDWALKWS+20 02023000 SDWAAPLW EQU SDWALKWS+16 02024000 SDWAIPLW EQU SDWALKWS+12 02025000 SDWAILLW EQU SDWALKWS+8 02026000 SDWAIULW EQU SDWALKWS+4 02027000 SDWAICLW EQU SDWALKWS 02028000 SDWAFLLK EQU SDWAACF4 02029000 SDWACMS EQU SDWAACF4 02030000 SDWAOPTM EQU SDWAACF4 02031000 SDWATADB EQU SDWAACF4 02032000 SDWATDNB EQU SDWAACF4 02033000 SDWATNCB EQU SDWAACF4 02034000 SDWAILCH EQU SDWAACF4 02035000 SDWAIUCB EQU SDWAACF4 02036000 SDWAICAT EQU SDWAACF3 02037000 SDWAIPRG EQU SDWAACF3 02038000 SDWASALL EQU SDWAACF3 02039000 SDWAASMP EQU SDWAACF3 02040000 SDWADISP EQU SDWAACF3 02041000 @NM00045 EQU SDWAACF3 02042000 @NM00044 EQU SDWAACF2 02043000 @NM00043 EQU SDWAACF2 02044000 SDWASPIN EQU SDWAACF2 02045000 @NM00042 EQU SDWAACF2 02046000 SDWALCPU EQU SDWACPUA+2 02047000 @NM00041 EQU SDWACPUA 02048000 SDWARECA EQU SDWA+244 02049000 @NM00040 EQU SDWA+239 02050000 @NM00039 EQU SDWAIOFS 02051000 SDWANIOP EQU SDWAIOFS 02052000 SDWANOIO EQU SDWAIOFS 02053000 SDWAIOHT EQU SDWAIOFS 02054000 SDWAIOQR EQU SDWAIOFS 02055000 SDWAFMID EQU SDWA+236 02056000 @NM00038 EQU SDWAERRD 02057000 SDWAMCIV EQU SDWAERRD 02058000 SDWARPIV EQU SDWAERRD 02059000 SDWAMABD EQU SDWAERRD 02060000 SDWACTS EQU SDWAERRD 02061000 SDWASTAE EQU SDWAERRD 02062000 SDWANRBE EQU SDWAERRD 02063000 SDWACLUP EQU SDWAERRD 02064000 @NM00037 EQU SDWAERRC 02065000 SDWAEAS EQU SDWAERRC 02066000 SDWAPERC EQU SDWAERRC 02067000 SDWAIRB EQU SDWAERRC 02068000 SDWASTAI EQU SDWAERRC 02069000 SDWASTAF EQU SDWAERRC 02070000 SDWASRBM EQU SDWAERRB 02071000 SDWALDIS EQU SDWAERRB 02072000 SDWAENRB EQU SDWAERRB 02073000 SDWATYP1 EQU SDWAERRB 02074000 @NM00036 EQU SDWAERRB 02075000 SDWAPGIO EQU SDWAERRA 02076000 SDWATEXC EQU SDWAERRA 02077000 SDWASVCE EQU SDWAERRA 02078000 SDWAABTM EQU SDWAERRA 02079000 SDWASVCD EQU SDWAERRA 02080000 SDWAPCHK EQU SDWAERRA 02081000 SDWAMCHK EQU SDWAERRA 02082000 SDWATIME EQU SDWAMCH+20 02083000 SDWARFSA EQU SDWAMCH+16 02084000 @NM00035 EQU SDWAMCH+14 02085000 SDWAVEQR EQU SDWARSR2 02086000 SDWAPGFX EQU SDWARSR2 02087000 SDWAFLSQ EQU SDWARSR2 02088000 SDWAFSQA EQU SDWARSR2 02089000 SDWANUCL EQU SDWARSR2 02090000 SDWASPER EQU SDWARSR2 02091000 SDWAINTC EQU SDWARSR2 02092000 SDWAOFLN EQU SDWARSR2 02093000 SDWACHNG EQU SDWARSR1 02094000 SDWAMSER EQU SDWARSR1 02095000 @NM00034 EQU SDWARSR1 02096000 SDWACPID EQU SDWAMCH+10 02097000 SDWATERR EQU SDWAMCHD 02098000 SDWAFPRX EQU SDWAMCHD 02099000 SDWAINSF EQU SDWAMCHD 02100000 SDWAACR EQU SDWAMCHD 02101000 SDWASCK EQU SDWAMCHD 02102000 SDWAPSWU EQU SDWAMCHD 02103000 SDWAREGU EQU SDWAMCHD 02104000 SDWASKYF EQU SDWAMCHD 02105000 @NM00033 EQU SDWAMCHS 02106000 SDWARSRF EQU SDWAMCHS 02107000 SDWARSRC EQU SDWAMCHS 02108000 SDWAINVP EQU SDWAMCHS 02109000 SDWATSVL EQU SDWAMCHS 02110000 SDWARCDF EQU SDWAMCHS 02111000 SDWASRVL EQU SDWAMCHS 02112000 SDWASCKE EQU SDWASTCK+4 02113000 SDWASCKB EQU SDWASTCK 02114000 SDWALNTH EQU SDWAIDNT+1 02115000 SDWASPID EQU SDWAIDNT 02116000 SDWASR15 EQU SDWASRSV+60 02117000 SDWASR14 EQU SDWASRSV+56 02118000 SDWASR13 EQU SDWASRSV+52 02119000 SDWASR12 EQU SDWASRSV+48 02120000 SDWASR11 EQU SDWASRSV+44 02121000 SDWASR10 EQU SDWASRSV+40 02122000 SDWASR09 EQU SDWASRSV+36 02123000 SDWASR08 EQU SDWASRSV+32 02124000 SDWASR07 EQU SDWASRSV+28 02125000 SDWASR06 EQU SDWASRSV+24 02126000 SDWASR05 EQU SDWASRSV+20 02127000 SDWASR04 EQU SDWASRSV+16 02128000 SDWASR03 EQU SDWASRSV+12 02129000 SDWASR02 EQU SDWASRSV+8 02130000 SDWASR01 EQU SDWASRSV+4 02131000 SDWASR00 EQU SDWASRSV 02132000 SDWATRN2 EQU SDWAAEC2+4 02133000 SDWAIPC2 EQU SDWAICD2 02134000 SDWAIMC2 EQU SDWAICD2 02135000 SDWAIPR2 EQU SDWAICD2 02136000 @NM00032 EQU SDWAINC2 02137000 @NM00031 EQU SDWAILC2 02138000 SDWAIL2 EQU SDWAILC2 02139000 @NM00030 EQU SDWAILC2 02140000 @NM00029 EQU SDWAAEC2 02141000 SDWAADD2 EQU SDWANXT2+1 02142000 @NM00028 EQU SDWANXT2 02143000 @NM00027 EQU SDWAEC2+3 02144000 SDWASGN2 EQU SDWAINT2 02145000 SDWAEXP2 EQU SDWAINT2 02146000 SDWADEC2 EQU SDWAINT2 02147000 SDWAFPO2 EQU SDWAINT2 02148000 SDWACC2 EQU SDWAINT2 02149000 @NM00026 EQU SDWAINT2 02150000 SDWAPGM2 EQU SDWAMWP2 02151000 SDWAWAT2 EQU SDWAMWP2 02152000 SDWAMCK2 EQU SDWAMWP2 02153000 SDWAECT2 EQU SDWAMWP2 02154000 SDWAKEY2 EQU SDWAMWP2 02155000 SDWAEXT2 EQU SDWAEMK2 02156000 SDWAIO2 EQU SDWAEMK2 02157000 SDWATRM2 EQU SDWAEMK2 02158000 @NM00025 EQU SDWAEMK2 02159000 SDWAPER2 EQU SDWAEMK2 02160000 @NM00024 EQU SDWAEMK2 02161000 SDWATRAN EQU SDWAAEC1+4 02162000 SDWAIPC1 EQU SDWAICD1 02163000 SDWAIMC1 EQU SDWAICD1 02164000 SDWAIPR1 EQU SDWAICD1 02165000 @NM00023 EQU SDWAINC1 02166000 @NM00022 EQU SDWAILC1 02167000 SDWAIL1 EQU SDWAILC1 02168000 @NM00021 EQU SDWAILC1 02169000 @NM00020 EQU SDWAAEC1 02170000 SDWAADD1 EQU SDWANXT1+1 02171000 @NM00019 EQU SDWANXT1 02172000 @NM00018 EQU SDWAEC1+3 02173000 SDWASGN1 EQU SDWAINT1 02174000 SDWAEXP1 EQU SDWAINT1 02175000 SDWADEC1 EQU SDWAINT1 02176000 SDWAFPO1 EQU SDWAINT1 02177000 SDWACC1 EQU SDWAINT1 02178000 @NM00017 EQU SDWAINT1 02179000 SDWAPGM1 EQU SDWAMWP1 02180000 SDWAWAT1 EQU SDWAMWP1 02181000 SDWAMCK1 EQU SDWAMWP1 02182000 SDWAECT1 EQU SDWAMWP1 02183000 SDWAKEY1 EQU SDWAMWP1 02184000 SDWAEXT1 EQU SDWAEMK1 02185000 SDWAIO1 EQU SDWAEMK1 02186000 SDWATRM1 EQU SDWAEMK1 02187000 @NM00016 EQU SDWAEMK1 02188000 SDWAPER1 EQU SDWAEMK1 02189000 @NM00015 EQU SDWAEMK1 02190000 SDWAIOBR EQU SDWA+100 02191000 SDWAEPA EQU SDWA+96 02192000 @NM00014 EQU SDWANAME+4 02193000 SDWARBAD EQU SDWANAME 02194000 SDWAGR15 EQU SDWAGRSV+60 02195000 SDWAGR14 EQU SDWAGRSV+56 02196000 SDWAGR13 EQU SDWAGRSV+52 02197000 SDWAGR12 EQU SDWAGRSV+48 02198000 SDWAGR11 EQU SDWAGRSV+44 02199000 SDWAGR10 EQU SDWAGRSV+40 02200000 SDWAGR09 EQU SDWAGRSV+36 02201000 SDWAGR08 EQU SDWAGRSV+32 02202000 SDWAGR07 EQU SDWAGRSV+28 02203000 SDWAGR06 EQU SDWAGRSV+24 02204000 SDWAGR05 EQU SDWAGRSV+20 02205000 SDWAGR04 EQU SDWAGRSV+16 02206000 SDWAGR03 EQU SDWAGRSV+12 02207000 SDWAGR02 EQU SDWAGRSV+8 02208000 SDWAGR01 EQU SDWAGRSV+4 02209000 SDWAGR00 EQU SDWAGRSV 02210000 SDWANXTP EQU SDWACTL2+5 02211000 SDWASGP EQU SDWAPMKP 02212000 SDWAEUP EQU SDWAPMKP 02213000 SDWADOP EQU SDWAPMKP 02214000 SDWAFPP EQU SDWAPMKP 02215000 SDWACCP EQU SDWAPMKP 02216000 SDWAILP EQU SDWAPMKP 02217000 SDWAINTP EQU SDWACTL2+2 02218000 SDWASPVP EQU SDWAMWPP 02219000 SDWAWATP EQU SDWAMWPP 02220000 SDWAMCKP EQU SDWAMWPP 02221000 @NM00013 EQU SDWAMWPP 02222000 SDWAKEYP EQU SDWAMWPP 02223000 SDWAEXTP EQU SDWACMKP 02224000 SDWAIOP EQU SDWACMKP 02225000 SDWANXTA EQU SDWACTL1+5 02226000 SDWASGA EQU SDWAPMKA 02227000 SDWAEUA EQU SDWAPMKA 02228000 SDWADOA EQU SDWAPMKA 02229000 SDWAFPA EQU SDWAPMKA 02230000 SDWACCA EQU SDWAPMKA 02231000 SDWAILA EQU SDWAPMKA 02232000 SDWAINTA EQU SDWACTL1+2 02233000 SDWASPVA EQU SDWAMWPA 02234000 SDWAWATA EQU SDWAMWPA 02235000 SDWAMCKA EQU SDWAMWPA 02236000 @NM00012 EQU SDWAMWPA 02237000 SDWAKEYA EQU SDWAMWPA 02238000 SDWAEXTA EQU SDWACMKA 02239000 SDWAIOA EQU SDWACMKA 02240000 @NM00011 EQU SDWACMPF 02241000 SDWASTCC EQU SDWACMPF 02242000 @NM00010 EQU SDWACMPF 02243000 SDWASTEP EQU SDWACMPF 02244000 SDWAREQ EQU SDWACMPF 02245000 UCMPRSV2 EQU UCMPEXTA+20 02246000 UCMPRSV1 EQU UCMPDM1+8 02247000 UCMPNMCC EQU UCMPDM1+4 02248000 UCMPWQE EQU UCMPDM1 02249000 UCMPUCMP EQU UCMPEXTA 02250000 UCMFRSV3 EQU UCMFEXTA+20 02251000 UCMF80WQ EQU UCMFEXTA+18 02252000 UCMF60WQ EQU UCMFEXTA+16 02253000 UCMFRSV2 EQU UCMFMGFS+4 02254000 UCMFRSV1 EQU UCMFMGFS+2 02255000 UCMFFLG2 EQU UCMFMGFS+1 02256000 UCMFBR07 EQU UCMFFLG1 02257000 UCMFBR06 EQU UCMFFLG1 02258000 UCMFBR05 EQU UCMFFLG1 02259000 UCMFBR04 EQU UCMFFLG1 02260000 UCMFBR03 EQU UCMFFLG1 02261000 UCMFMSGN EQU UCMFFLG1 02262000 UCMFMSGA EQU UCMFFLG1 02263000 UCMFMSGE EQU UCMFFLG1 02264000 UCMFPPTR EQU UCMFEXTA+4 02265000 UCMFUCMF EQU UCMFEXTA 02266000 UCMRCTA EQU UCMRCT+1 02267000 UCMRSV31 EQU UCMSDS5 02268000 UCMSDS5G EQU UCMSDS5 02269000 UCMSDS5F EQU UCMSDS5 02270000 UCMRSV30 EQU UCMSDS5 02271000 UCMRSV29 EQU UCMSDS5 02272000 UCMSDS5C EQU UCMSDS5 02273000 UCMSDS5B EQU UCMSDS5 02274000 UCMSDS5A EQU UCMSDS5 02275000 UCMMLAST EQU UCMLIST+64 02276000 UCMVHRSN EQU UCMDEVC 02277000 UCMDEVG EQU UCMDEVC 02278000 UCMDEVF EQU UCMDEVC 02279000 UCMDEVE EQU UCMDEVC 02280000 UCMDEVD EQU UCMDEVC 02281000 UCMDEVCC EQU UCMDEVC 02282000 UCMDEVB EQU UCMDEVC 02283000 UCMDEVA EQU UCMDEVC 02284000 UCMXOR EQU UCMLIST+62 02285000 UCMMSG2 EQU UCMMSG+1 02286000 UCMRSV27 EQU UCMMSG1 02287000 UCMRSV26 EQU UCMMSG1 02288000 UCMMSGF EQU UCMMSG1 02289000 UCMMSGE EQU UCMMSG1 02290000 UCMMSGD EQU UCMMSG1 02291000 UCMMSGC EQU UCMMSG1 02292000 UCMMSGB EQU UCMMSG1 02293000 UCMMSGA EQU UCMMSG1 02294000 UCMCOMPC EQU UCMLIST+56 02295000 UCMWLAST EQU UCMLIST+52 02296000 UCMOAOEN EQU UCMLIST+48 02297000 UCMALTEN EQU UCMLIST+44 02298000 UCMRV007 EQU UCMDISP2 02299000 UCMRV006 EQU UCMDISP2 02300000 UCMRV005 EQU UCMDISP2 02301000 UCMRV004 EQU UCMDISP2 02302000 UCMRV003 EQU UCMDISP2 02303000 UCMDISPK EQU UCMDISP2 02304000 UCMDISPJ EQU UCMDISP2 02305000 UCMDISPI EQU UCMDISP2 02306000 UCMDISPH EQU UCMDISP1 02307000 UCMDISPG EQU UCMDISP1 02308000 UCMDISPF EQU UCMDISP1 02309000 UCMDISPE EQU UCMDISP1 02310000 UCMDISPD EQU UCMDISP1 02311000 UCMDISPC EQU UCMDISP1 02312000 UCMDISPB EQU UCMDISP1 02313000 UCMDISPA EQU UCMDISP1 02314000 UCMAUTHB EQU UCMAUTH+1 02315000 UCMRSV23 EQU UCMAUTHA 02316000 UCMRSV22 EQU UCMAUTHA 02317000 UCMRSV21 EQU UCMAUTHA 02318000 UCMRSV20 EQU UCMAUTHA 02319000 UCMRSV19 EQU UCMAUTHA 02320000 UCMAUTH3 EQU UCMAUTHA 02321000 UCMAUTH2 EQU UCMAUTHA 02322000 UCMAUTH1 EQU UCMAUTHA 02323000 UCMOUTQ EQU UCMLIST+36 02324000 UCMRSV18 EQU UCMLIST+34 02325000 UCMRTCD EQU UCMLIST+32 02326000 UCMXB EQU UCMLIST+28 02327000 @NM00009 EQU UCMXA+1 02328000 UCMID EQU UCMXA 02329000 UCMRSV17 EQU UCMATR 02330000 UCMRSV16 EQU UCMATR 02331000 UCMAT04 EQU UCMATR 02332000 UCMLF EQU UCMATR 02333000 UCMUF EQU UCMATR 02334000 UCMXF EQU UCMATR 02335000 UCMIF EQU UCMATR 02336000 UCMOF EQU UCMATR 02337000 UCMTC EQU UCMSTS 02338000 UCMTD EQU UCMSTS 02339000 UCMTB EQU UCMSTS 02340000 UCMTA EQU UCMSTS 02341000 UCMCF EQU UCMSTS 02342000 UCMBF EQU UCMSTS 02343000 UCMPF EQU UCMSTS 02344000 UCMAF EQU UCMSTS 02345000 UCMNAME EQU UCMLIST+16 02346000 UCMUCB EQU UCMLIST+12 02347000 UCMDCB EQU UCMLIST+8 02348000 UCMSBR EQU UCMLIST+4 02349000 UCMECB EQU UCMLIST 02350000 UCMTPSAV EQU UCMEXIT+208 02351000 UCMXTSAV EQU UCMEXIT+136 02352000 UCMDESCD EQU UCMEXIT+132 02353000 UCMROUTC EQU UCMEXIT+128 02354000 UCMMSTXT EQU UCMEXIT 02355000 UCMDECBA EQU UCMEIL+20 02356000 UCMOECBA EQU UCMEIL+16 02357000 UCMAECBA EQU UCMEIL+12 02358000 UCMXECBA EQU UCMEIL+8 02359000 UCMNIPTR EQU UCMEIL+4 02360000 UCMRSV15 EQU UCMEIL+3 02361000 UCMRTCT EQU UCMEIL+2 02362000 UCMRPYL EQU UCMEIL+1 02363000 @NM00008 EQU UCMEIL 02364000 UCMRSV60 EQU UCM+302 02365000 UCMRSV59 EQU UCMRSV51 02366000 UCMRSV58 EQU UCMRSV51 02367000 UCMRSV57 EQU UCMRSV51 02368000 UCMRSV56 EQU UCMRSV51 02369000 UCMRSV55 EQU UCMRSV51 02370000 UCMRSV54 EQU UCMRSV51 02371000 UCMRSV53 EQU UCMRSV51 02372000 UCMRSV52 EQU UCMRSV51 02373000 UCMRSV50 EQU UCMRSV42 02374000 UCMRSV49 EQU UCMRSV42 02375000 UCMRSV48 EQU UCMRSV42 02376000 UCMRSV47 EQU UCMRSV42 02377000 UCMRSV46 EQU UCMRSV42 02378000 UCMRSV45 EQU UCMRSV42 02379000 UCMRSV44 EQU UCMRSV42 02380000 UCMRSV43 EQU UCMRSV42 02381000 UCMJES3T EQU UCM+296 02382000 UCMWAKUP EQU UCM+292 02383000 UCMFRRAD EQU UCM+288 02384000 UCMSWCH EQU UCM+284 02385000 UCMWQECP EQU UCM+276 02386000 UCMORECP EQU UCM+272 02387000 UCMOECBT EQU UCM+268 02388000 UCMOECBH EQU UCM+264 02389000 UCMWECBT EQU UCM+260 02390000 UCMWECBH EQU UCM+256 02391000 UCMMBEND EQU UCM+252 02392000 UCMRSV61 EQU UCM+248 02393000 UCMRP2AD EQU UCM+244 02394000 UCMCRAAD EQU UCM+240 02395000 UCMWQLM1 EQU UCM+238 02396000 UCMRV001 EQU UCM+237 02397000 UCMRQLM1 EQU UCM+236 02398000 UCMMBPTR EQU UCM+232 02399000 UCMMQNXT EQU UCM+228 02400000 UCMMQEND EQU UCM+224 02401000 UCMMQPTR EQU UCM+220 02402000 UCMTRECB EQU UCM+216 02403000 UCMMNECB EQU UCM+212 02404000 UCMMNTR EQU UCM+208 02405000 UCMR9SV EQU UCM+204 02406000 UCMSAVE4 EQU UCM+140 02407000 UCMSAVE3 EQU UCM+84 02408000 UCMVEL EQU UCMVDATA+8 02409000 UCMVEZ EQU UCMVDATA+4 02410000 UCMVEA EQU UCMVDATA 02411000 UCMINCR EQU UCM+71 02412000 UCMMODEL EQU UCM+70 02413000 UCMCORE EQU UCM+69 02414000 UCMFIX EQU UCMMODE 02415000 UCMMCS EQU UCMMODE 02416000 UCMOGCE EQU UCMMODE 02417000 UCMAMFA EQU UCMMODE 02418000 UCMRSV14 EQU UCMMODE 02419000 UCMTPUTA EQU UCMMODE 02420000 UCMNOCON EQU UCMMODE 02421000 UCMRSV11 EQU UCMMODE 02422000 UCMWQEND EQU UCM+60 02423000 UCMWQNR EQU UCM+58 02424000 UCMRQNR EQU UCM+56 02425000 UCMWQECB EQU UCM+52 02426000 UCMRQECB EQU UCM+48 02427000 UCMWQLM EQU UCM+46 02428000 UCMRQLM EQU UCM+45 02429000 @NM00007 EQU UCMRPYI 02430000 UCMRPYQ EQU UCM+28 02431000 UCMWTOQ EQU UCM+24 02432000 UCMLSTP EQU UCM+20 02433000 UCMARECB EQU UCM+16 02434000 UCMLECB EQU UCMDECB 02435000 UCMAECB EQU UCM+4 02436000 UCMXECB EQU UCM 02437000 UCMGMCNT EQU UCMPRFX+158 02438000 UCMSDS2 EQU UCMPRFX+157 02439000 UCMRSV09 EQU UCMSDS1 02440000 UCMRSV08 EQU UCMSDS1 02441000 UCMRSV07 EQU UCMSDS1 02442000 UCMRSV06 EQU UCMSDS1 02443000 UCMRSV05 EQU UCMSDS1 02444000 UCMRSV04 EQU UCMSDS1 02445000 UCMSDS1B EQU UCMSDS1 02446000 UCMSDS1A EQU UCMSDS1 02447000 UCMDTINT EQU UCMPRFX+152 02448000 UCMLOGAD EQU UCMPRFX+148 02449000 UCMNPECB EQU UCMPRFX+144 02450000 UCMTPPTR EQU UCMPRFX+140 02451000 UCMDOMRT EQU UCMPRFX+136 02452000 UCMRUTCK EQU UCMPRFX+132 02453000 UCMQRTN EQU UCMPRFX+128 02454000 UCM6WD EQU UCMXSA+20 02455000 UCM5WD EQU UCMXSA+16 02456000 UCM4WD EQU UCMXSA+12 02457000 UCM3WD EQU UCMXSA+8 02458000 UCM2WD EQU UCMXSA+4 02459000 UCM1WD EQU UCMXSA 02460000 UCMRSV03 EQU UCMPRFX+102 02461000 UCMHRDRT EQU UCMPRFX+100 02462000 UCMUEXIT EQU UCMPRFX+97 02463000 UCMXCT EQU UCMPRFX+96 02464000 UCMHCUCM EQU UCMPRFX+92 02465000 UCMCMID EQU UCMPRFX+88 02466000 UCMOWTOR EQU UCMPRFX+86 02467000 UCMRSV02 EQU UCMSFLG2 02468000 UCMSYSO EQU UCMSFLG2 02469000 UCMSYSN EQU UCMSFLG2 02470000 UCMSYSM EQU UCMSFLG2 02471000 UCMSYSL EQU UCMSFLG2 02472000 UCMSYSK EQU UCMSFLG2 02473000 UCMSYSJ EQU UCMSFLG2 02474000 UCMSYSI EQU UCMSFLG2 02475000 UCMRSV35 EQU UCMSFLG1 02476000 UCMSYSG EQU UCMSFLG1 02477000 UCMSYSF EQU UCMSFLG1 02478000 UCMSYSE EQU UCMSFLG1 02479000 UCMSYSD EQU UCMSFLG1 02480000 UCMSYSC EQU UCMSFLG1 02481000 UCMSYSB EQU UCMSFLG1 02482000 UCMRSV01 EQU UCMSFLG1 02483000 UCMWTOX EQU UCMPRFX+80 02484000 UCMDOME EQU UCMPRFX+76 02485000 UCMSVR0 EQU UCMSAVE0+68 02486000 UCMSVQ0 EQU UCMSAVE0+64 02487000 UCMSVP0 EQU UCMSAVE0+60 02488000 UCMSVO0 EQU UCMSAVE0+56 02489000 UCMSVN0 EQU UCMSAVE0+52 02490000 UCMSVM0 EQU UCMSAVE0+48 02491000 UCMSVL0 EQU UCMSAVE0+44 02492000 UCMSVK0 EQU UCMSAVE0+40 02493000 UCMSVJ0 EQU UCMSAVE0+36 02494000 UCMSVI0 EQU UCMSAVE0+32 02495000 UCMSVH0 EQU UCMSAVE0+28 02496000 UCMSVG0 EQU UCMSAVE0+24 02497000 UCMSVF0 EQU UCMSAVE0+20 02498000 UCMSVE0 EQU UCMSAVE0+16 02499000 UCMSVD0 EQU UCMSAVE0+12 02500000 UCMSVC0 EQU UCMSAVE0+8 02501000 UCMSVB0 EQU UCMSAVE0+4 02502000 UCMSVA0 EQU UCMSAVE0 02503000 UCMMCENT EQU UCMPRFX 02504000 UCM2FEXT EQU UCM2EXT+12 02505000 UCM2STAA EQU UCM2STA+1 02506000 UCMRV008 EQU UCM2SFLG 02507000 UCMRSV34 EQU UCM2SFLG 02508000 UCMRSV33 EQU UCM2SFLG 02509000 UCM2WTOI EQU UCM2SFLG 02510000 UCM2DSTR EQU UCM2SFLG 02511000 UCM2DTAK EQU UCM2SFLG 02512000 UCM2SENT EQU UCM2SFLG 02513000 UCM2SDWA EQU UCM2SFLG 02514000 UCM2PST EQU UCM2EXT+4 02515000 UCM2RID EQU UCM2EXT+2 02516000 UCM2WID EQU UCM2EXT 02517000 @NM00006 EQU FRRSFLGS+1 02518000 @NM00005 EQU FRRSFLG1 02519000 FRRSNEST EQU FRRSFLG1 02520000 FRRSRCUR EQU FRRSFLG1 02521000 FRRSENTS EQU FRRS+84 02522000 FRRSRTMW EQU FRRS+16 02523000 ASCBEND EQU ASCB+208 02524000 ASCBSRBT EQU ASCB+200 02525000 ASCBSWTL EQU ASCB+196 02526000 ASCBRS14 EQU ASCB+195 02527000 ASCBSMCT EQU ASCB+194 02528000 ASCBRS12 EQU ASCB+192 02529000 ASCBPCTT EQU ASCB+188 02530000 ASCBVGTT EQU ASCB+184 02531000 ASCBLGCB EQU ASCB+180 02532000 ASCBJBNS EQU ASCB+176 02533000 ASCBJBNI EQU ASCB+172 02534000 ASCBMCC EQU ASCB+168 02535000 ASCBRTWA EQU ASCB+164 02536000 ASCBIQEA EQU ASCB+160 02537000 ASCBXMPQ EQU ASCB+156 02538000 ASCBRS01 EQU ASCB+154 02539000 ASCBFMCT EQU ASCB+152 02540000 ASCBOUXB EQU ASCB+148 02541000 ASCBOUCB EQU ASCB+144 02542000 ASCBMECB EQU ASCB+140 02543000 ASCBQECB EQU ASCB+136 02544000 ASCBCMSB EQU ASCB+132 02545000 ASCBCMSF EQU ASCB+128 02546000 ASCBTCBS EQU ASCB+124 02547000 ASCBNVSC EQU ASCB+122 02548000 ASCBVSC EQU ASCB+120 02549000 ASCBSRBS EQU ASCB+118 02550000 ASCBSSRB EQU ASCB+116 02551000 ASCBRV06 EQU ASCBFLG2 02552000 ASCBRV05 EQU ASCBFLG2 02553000 ASCBRV04 EQU ASCBFLG2 02554000 ASCBSNQS EQU ASCBFLG2 02555000 ASCBS2S EQU ASCBFLG2 02556000 ASCBCEXT EQU ASCBFLG2 02557000 ASCBPXMT EQU ASCBFLG2 02558000 ASCBXMPT EQU ASCBFLG2 02559000 ASCBRF07 EQU ASCBDSP1 02560000 ASCBRF06 EQU ASCBDSP1 02561000 ASCBRF05 EQU ASCBDSP1 02562000 ASCBRF04 EQU ASCBDSP1 02563000 ASCBRF03 EQU ASCBDSP1 02564000 ASCBRF02 EQU ASCBDSP1 02565000 ASCBFAIL EQU ASCBDSP1 02566000 ASCBNOQ EQU ASCBDSP1 02567000 ASCBSWCT EQU ASCB+112 02568000 ASCBASXB EQU ASCB+108 02569000 ASCBTMCH EQU ASCB+104 02570000 ASCBNSWP EQU ASCBFLG1 02571000 ASCBTYP1 EQU ASCBFLG1 02572000 ASCBSTND EQU ASCBFLG1 02573000 ASCBABNT EQU ASCBFLG1 02574000 ASCBTERM EQU ASCBFLG1 02575000 ASCBS3S EQU ASCBFLG1 02576000 ASCBCMSH EQU ASCBFLG1 02577000 ASCBTOFF EQU ASCBFLG1 02578000 ASCBRF01 EQU ASCBRCTF 02579000 ASCBTMLW EQU ASCBRCTF 02580000 ASCBOUT EQU ASCBRCTF 02581000 ASCBWAIT EQU ASCBRCTF 02582000 ASCBRV08 EQU ASCBRCTF 02583000 ASCBFQU EQU ASCBRCTF 02584000 ASCBFRS EQU ASCBRCTF 02585000 ASCBTMNO EQU ASCBRCTF 02586000 ASCBAFFN EQU ASCBFW1 02587000 ASCBDUMP EQU ASCB+96 02588000 ASCBQSVC EQU ASCB+92 02589000 ASCBUBET EQU ASCB+88 02590000 ASCBECB EQU ASCB+84 02591000 ASCBJSTL EQU ASCB+80 02592000 ASCBEWST EQU ASCB+72 02593000 ASCBEJST EQU ASCB+64 02594000 ASCBTSB EQU ASCB+60 02595000 ASCBCSCB EQU ASCB+56 02596000 ASCBRSM EQU ASCB+52 02597000 ASCBLDA EQU ASCB+48 02598000 ASCBSTOR EQU ASCB+44 02599000 ASCBDP EQU ASCB+43 02600000 ASCBRV07 EQU ASCB+42 02601000 ASCBIOSM EQU ASCB+40 02602000 ASCBSEQN EQU ASCB+38 02603000 ASCBCPUS EQU ASCB+32 02604000 ASCBSPL EQU ASCB+28 02605000 ASCBLSLQ EQU ASCB+24 02606000 ASCBFSLQ EQU ASCB+20 02607000 ASCBIOSP EQU ASCB+16 02608000 ASCBLOCK EQU ASCB+12 02609000 ASCBBWDP EQU ASCB+8 02610000 ASCBFWDP EQU ASCB+4 02611000 ASCBASCB EQU ASCB 02612000 ASCBEGIN EQU ASCB 02613000 PARMCTBK EQU PARMSTAT+3 02614000 @NM00004 EQU PARMFLAG 02615000 @NM00003 EQU PARMFLAG 02616000 PARMFTPT EQU PARMSTAT 02617000 WWBECB EQU WWB+20 02618000 WWBRESRV EQU WWB+17 02619000 WWBPOSTD EQU WWBFLAGS 02620000 WWBBCKPT EQU WWB+4 02621000 WWBFWDPT EQU WWB 02622000 CVTLEVL EQU CVTRELNO+2 02623000 CVTNUMB EQU CVTRELNO 02624000 CVTMDL EQU CVTFIX+250 02625000 @NM00002 EQU CVTFIX+248 02626000 @NM00001 EQU CVTFIX 02627000 CVTRV482 EQU CVTXTNT2+128 02628000 CVTRV481 EQU CVTXTNT2+124 02629000 CVTRV480 EQU CVTXTNT2+120 02630000 CVTRV479 EQU CVTXTNT2+118 02631000 CVTRV478 EQU CVTXTNT2+117 02632000 CVTRV477 EQU CVTXTNT2+116 02633000 CVTRV476 EQU CVTXTNT2+115 02634000 CVTRV475 EQU CVTXTNT2+114 02635000 CVTRV474 EQU CVTRV466 02636000 CVTRV473 EQU CVTRV466 02637000 CVTRV472 EQU CVTRV466 02638000 CVTRV471 EQU CVTRV466 02639000 CVTRV470 EQU CVTRV466 02640000 CVTRV469 EQU CVTRV466 02641000 CVTRV468 EQU CVTRV466 02642000 CVTRV467 EQU CVTRV466 02643000 CVTRV465 EQU CVTRV457 02644000 CVTRV464 EQU CVTRV457 02645000 CVTRV463 EQU CVTRV457 02646000 CVTRV462 EQU CVTRV457 02647000 CVTRV461 EQU CVTRV457 02648000 CVTRV460 EQU CVTRV457 02649000 CVTRV459 EQU CVTRV457 02650000 CVTRV458 EQU CVTRV457 02651000 CVTRV456 EQU CVTXTNT2+108 02652000 CVTRV455 EQU CVTXTNT2+104 02653000 CVTRV454 EQU CVTXTNT2+100 02654000 CVTRV453 EQU CVTXTNT2+96 02655000 CVTRV452 EQU CVTXTNT2+94 02656000 CVTRV451 EQU CVTXTNT2+92 02657000 CVTRV450 EQU CVTXTNT2+90 02658000 CVTRV449 EQU CVTXTNT2+88 02659000 CVTRV448 EQU CVTXTNT2+87 02660000 CVTRV447 EQU CVTXTNT2+86 02661000 CVTRV446 EQU CVTRV438 02662000 CVTRV445 EQU CVTRV438 02663000 CVTRV444 EQU CVTRV438 02664000 CVTRV443 EQU CVTRV438 02665000 CVTRV442 EQU CVTRV438 02666000 CVTRV441 EQU CVTRV438 02667000 CVTRV440 EQU CVTRV438 02668000 CVTRV439 EQU CVTRV438 02669000 CVTRV437 EQU CVTRV429 02670000 CVTRV436 EQU CVTRV429 02671000 CVTRV435 EQU CVTRV429 02672000 CVTRV434 EQU CVTRV429 02673000 CVTRV433 EQU CVTRV429 02674000 CVTRV432 EQU CVTRV429 02675000 CVTRV431 EQU CVTRV429 02676000 CVTRV430 EQU CVTRV429 02677000 CVTRV428 EQU CVTXTNT2+80 02678000 CVTRV427 EQU CVTXTNT2+76 02679000 CVTRV426 EQU CVTXTNT2+72 02680000 CVTRV425 EQU CVTXTNT2+68 02681000 CVTATACT EQU CVTATCVT 02682000 CVTRV423 EQU CVTXTNT2+62 02683000 CVTRV422 EQU CVTXTNT2+60 02684000 CVTRV421 EQU CVTXTNT2+58 02685000 CVTRV420 EQU CVTXTNT2+56 02686000 CVTRV419 EQU CVTXTNT2+55 02687000 CVTRV418 EQU CVTXTNT2+54 02688000 CVTRV417 EQU CVTRV409 02689000 CVTRV416 EQU CVTRV409 02690000 CVTRV415 EQU CVTRV409 02691000 CVTRV414 EQU CVTRV409 02692000 CVTRV413 EQU CVTRV409 02693000 CVTRV412 EQU CVTRV409 02694000 CVTRV411 EQU CVTRV409 02695000 CVTRV410 EQU CVTRV409 02696000 CVTRV408 EQU CVTRV400 02697000 CVTRV407 EQU CVTRV400 02698000 CVTRV406 EQU CVTRV400 02699000 CVTRV405 EQU CVTRV400 02700000 CVTRV404 EQU CVTRV400 02701000 CVTRV403 EQU CVTRV400 02702000 CVTRV402 EQU CVTRV400 02703000 CVTRV401 EQU CVTRV400 02704000 CVTICB EQU CVTXTNT2+48 02705000 CVTSKTA EQU CVTXTNT2+44 02706000 CVTCCVT EQU CVTXTNT2+40 02707000 CVTRSV98 EQU CVTXTNT2+36 02708000 CVTRSV97 EQU CVTXTNT2+34 02709000 CVTRSV96 EQU CVTXTNT2+32 02710000 CVTOLTEP EQU CVTXTNT2+28 02711000 CVTQIDA EQU CVTQID+1 02712000 CVTRSV95 EQU CVTQID 02713000 CVTRSV94 EQU CVTXTNT2+20 02714000 CVTRSV93 EQU CVTXTNT2+16 02715000 CVTRSV92 EQU CVTXTNT2+12 02716000 CVTDEBVR EQU CVTXTNT2+8 02717000 CVTRSV91 EQU CVTXTNT2+6 02718000 CVTRSV9H EQU CVTFLGBT 02719000 CVTRSV9G EQU CVTFLGBT 02720000 CVTRSV9F EQU CVTFLGBT 02721000 CVTRSV9E EQU CVTFLGBT 02722000 CVTRSV9D EQU CVTFLGBT 02723000 CVTRSV9C EQU CVTFLGBT 02724000 CVTVME EQU CVTFLGBT 02725000 CVTNPE EQU CVTFLGBT 02726000 CVTNUCLS EQU CVTXTNT2+4 02727000 CVTDSSVA EQU CVTDSSV+1 02728000 CVTRSV89 EQU CVTDSSV 02729000 CVTRSV88 EQU CVTXTNT1+8 02730000 CVTRSV87 EQU CVTXTNT1+4 02731000 CVTFACHN EQU CVTXTNT1 02732000 CVTRV488 EQU CVTMAP+412 02733000 CVTRV487 EQU CVTMAP+408 02734000 CVTRV486 EQU CVTMAP+404 02735000 CVTRV485 EQU CVTMAP+400 02736000 CVTACTAP EQU CVTMAP+396 02737000 CVTAUTH EQU CVTMAP+392 02738000 CVTATMCA EQU CVTATMCT+1 02739000 CVTATMST EQU CVTATMCT 02740000 CVTRSV61 EQU CVTMAP+384 02741000 CVTVOLT1 EQU CVTVOLM1+1 02742000 CVTVOLI1 EQU CVTVOLF1 02743000 CVTSTOA EQU CVTMAP+376 02744000 CVTRSV58 EQU CVTMAP+374 02745000 CVTRSV57 EQU CVTMAP+372 02746000 CVTDDCE EQU CVTMAP+368 02747000 CVTPNWFR EQU CVTMAP+364 02748000 CVTSMF EQU CVTMAP+360 02749000 CVTSULK EQU CVTMAP+358 02750000 CVTSLKO EQU CVTSYSK 02751000 CVTSLKP EQU CVTSYSK 02752000 CVTSLKQ EQU CVTSYSK 02753000 CVTSLKR EQU CVTSYSK 02754000 CVTRSV56 EQU CVTSYSK 02755000 CVTRSV55 EQU CVTSYSK 02756000 CVTRSV54 EQU CVTSYSK 02757000 CVTRSV53 EQU CVTSYSK 02758000 CVTRSV52 EQU CVTA1F1 02759000 CVTRSV51 EQU CVTA1F1 02760000 CVTRSV50 EQU CVTA1F1 02761000 CVTRSV49 EQU CVTA1F1 02762000 CVTRSV48 EQU CVTA1F1 02763000 CVTRSV47 EQU CVTA1F1 02764000 CVTSRSW EQU CVTA1F1 02765000 CVTPFSW EQU CVTA1F1 02766000 CVTPCVT EQU CVTMAP+352 02767000 CVTRSV46 EQU CVTMAP+344 02768000 CVTRSV45 EQU CVTMAP+340 02769000 CVTRSV44 EQU CVTMAP+338 02770000 CVTRSV43 EQU CVTMAP+336 02771000 CVTHJESA EQU CVTHJES+1 02772000 CVTRSV42 EQU CVTHJES 02773000 CVTEXT2A EQU CVTEXT2+1 02774000 CVTRSV41 EQU CVTEXT2 02775000 CVTAPFA EQU CVTAPF+1 02776000 CVTRSV40 EQU CVTAPF 02777000 CVTRV518 EQU CVTINTLA 02778000 CVTRV517 EQU CVTERPV 02779000 CVTEORM EQU CVTMAP+312 02780000 CVTMCHPR EQU CVTMAP+308 02781000 CVTTZ EQU CVTMAP+304 02782000 CVTJEPS EQU CVTMAP+300 02783000 CVTJESCT EQU CVTMAP+296 02784000 CVTMODE EQU CVTMAP+292 02785000 CVTPTRV EQU CVTMAP+288 02786000 CVTREAL EQU CVTMAP+284 02787000 CVTRSV39 EQU CVTMAP+280 02788000 CVTRSV38 EQU CVTMAP+276 02789000 CVTDMSRA EQU CVTDMSR+1 02790000 CVTRV634 EQU CVTDMSRF 02791000 CVTRV633 EQU CVTDMSRF 02792000 CVTRV632 EQU CVTDMSRF 02793000 CVTRV631 EQU CVTDMSRF 02794000 CVTRV630 EQU CVTDMSRF 02795000 CVTRV629 EQU CVTDMSRF 02796000 CVTUDUMP EQU CVTDMSRF 02797000 CVTSDUMP EQU CVTDMSRF 02798000 CVTQMSGA EQU CVTQMSG+1 02799000 CVTRSV36 EQU CVTQMSG 02800000 CVTAMFF EQU CVTMAP+264 02801000 CVTPURGA EQU CVTPURG+1 02802000 CVTRSV35 EQU CVTPURG 02803000 CVTCBSP EQU CVTMAP+256 02804000 CVTATERA EQU CVTATER+1 02805000 CVTSYST EQU CVTATER 02806000 CVTVOLT2 EQU CVTTAT 02807000 CVTVOLI2 EQU CVTVOLF2 02808000 CVTAQAVB EQU CVTAQAVT+1 02809000 CVTRSV34 EQU CVTTCMFG 02810000 CVTRSV33 EQU CVTTCMFG 02811000 CVTRSV32 EQU CVTTCMFG 02812000 CVTRSV31 EQU CVTTCMFG 02813000 CVTRSV30 EQU CVTTCMFG 02814000 CVTRSV29 EQU CVTTCMFG 02815000 CVTRSV28 EQU CVTTCMFG 02816000 CVTTCRDY EQU CVTTCMFG 02817000 CVTGTFA EQU CVTGTF+1 02818000 CVTRSV27 EQU CVTGTFST 02819000 CVTRNIO EQU CVTGTFST 02820000 CVTUSR EQU CVTGTFST 02821000 CVTRV318 EQU CVTFORM 02822000 CVTRV317 EQU CVTTMODE 02823000 CVTRV316 EQU CVTSTATE 02824000 CVTRV315 EQU CVTGTFS 02825000 CVTGTFAV EQU CVTGTFS 02826000 CVT0SCR1 EQU CVTMAP+232 02827000 CVTRV515 EQU CVTMAP+228 02828000 CVTRMS EQU CVTMAP+224 02829000 CVTPATCH EQU CVTMAP+220 02830000 CVTTSCE EQU CVTMAP+216 02831000 CVTLNKSC EQU CVTMAP+214 02832000 CVTQABST EQU CVTMAP+212 02833000 CVTMDLDS EQU CVTMAP+208 02834000 CVTUSER EQU CVTMAP+204 02835000 CVTABEND EQU CVTMAP+200 02836000 CVTSMCA EQU CVTMAP+196 02837000 CVTRSV18 EQU CVTMAP+192 02838000 CVTQLPAQ EQU CVTMAP+188 02839000 CVTQCDSR EQU CVTMAP+184 02840000 CVTRSV17 EQU CVTOPTB 02841000 CVTRSV16 EQU CVTOPTB 02842000 CVTFP EQU CVTOPTB 02843000 CVTAPTHR EQU CVTOPTB 02844000 CVTNLOG EQU CVTOPTB 02845000 CVTTOD EQU CVTOPTB 02846000 CVTCTIMS EQU CVTOPTB 02847000 CVTPROT EQU CVTOPTB 02848000 CVTXPFP EQU CVTOPTA 02849000 CVTASCII EQU CVTOPTA 02850000 CVTRSV13 EQU CVTOPTA 02851000 CVTRSV12 EQU CVTOPTA 02852000 CVTNIP EQU CVTOPTA 02853000 CVTDDR EQU CVTOPTA 02854000 CVTAPR EQU CVTOPTA 02855000 CVTCCH EQU CVTOPTA 02856000 CVTSNCTR EQU CVTMAP+180 02857000 CVTQMWR EQU CVTMAP+176 02858000 CVTQOCR EQU CVTMAP+172 02859000 CVT1EF00 EQU CVTMAP+168 02860000 CVTMZ00 EQU CVTMAP+164 02861000 CVTSV76Q EQU CVTSV76C 02862000 CVTRSV11 EQU CVTMAP+156 02863000 CVTMSER EQU CVTMAP+148 02864000 CVTRV516 EQU CVTIERLC 02865000 CVTILCH EQU CVTMAP+140 02866000 CVT0DS EQU CVTMAP+136 02867000 CVTFBOSV EQU CVTMAP+132 02868000 CVTNUCB EQU CVTMAP+128 02869000 CVTIXAVL EQU CVTMAP+124 02870000 CVTSV76M EQU CVTIOQET 02871000 CVTDCBA EQU CVTMAP+117 02872000 CVTMVS2 EQU CVTDCB 02873000 CVT6DAT EQU CVTDCB 02874000 CVT4MPS EQU CVTDCB 02875000 CVTRSV09 EQU CVTDCB 02876000 CVT4MS1 EQU CVTDCB 02877000 CVT2SPS EQU CVTDCB 02878000 CVT1SSS EQU CVTDCB 02879000 CVTRSV08 EQU CVTDCB 02880000 CVTSTB EQU CVTMAP+112 02881000 CVTQTD00 EQU CVTMAP+108 02882000 CVTQTE00 EQU CVTMAP+104 02883000 CVTSJQ EQU CVTMAP+96 02884000 CVTPBLDL EQU CVTMAP+92 02885000 CVTTPC EQU CVTMAP+88 02886000 CVTSVDCB EQU CVTMAP+84 02887000 CVTBRET EQU CVTMAP+82 02888000 CVTEXIT EQU CVTMAP+80 02889000 CVT0FN00 EQU CVTMAP+76 02890000 CVTDARA EQU CVTDAR+1 02891000 CVTRSV07 EQU CVTFLGS1 02892000 CVTRSV06 EQU CVTFLGS1 02893000 CVTRSV05 EQU CVTFLGS1 02894000 CVTRSV04 EQU CVTFLGS1 02895000 CVTRSV03 EQU CVTFLGS1 02896000 CVTRSV02 EQU CVTFLGS1 02897000 CVTRSV01 EQU CVTFLGS1 02898000 CVTDMPLK EQU CVTFLGS1 02899000 CVTXITP EQU CVTMAP+68 02900000 CVTZDTAB EQU CVTMAP+64 02901000 CVTMSLT EQU CVTMAP+60 02902000 CVTDATE EQU CVTMAP+56 02903000 CVTSYSAD EQU CVTMAP+48 02904000 CVTXTLER EQU CVTMAP+44 02905000 CVTILK2 EQU CVTMAP+40 02906000 CVTILK1 EQU CVTMAP+36 02907000 CVTPRLTV EQU CVTMAP+32 02908000 CVTPCNVT EQU CVTMAP+28 02909000 CVT0VL00 EQU CVTMAP+24 02910000 CVTXAPG EQU CVTMAP+20 02911000 CVTBUF EQU CVTMAP+16 02912000 CVTJOB EQU CVTMAP+12 02913000 CVTLINK EQU CVTMAP+8 02914000 CVT0EF00 EQU CVTMAP+4 02915000 CVTTCBP EQU CVTMAP 02916000 CVT EQU CVTMAP 02917000 @NM00081 EQU PSA+3668 02918000 PSASTAK EQU PSA+3072 02919000 @NM00080 EQU PSA+1048 02920000 PSAUSEND EQU PSA+1048 02921000 PSARV062 EQU PSA+1044 02922000 PSACDAL EQU PSA+1040 02923000 PSAWTCOD EQU PSA+1036 02924000 PSAATCVT EQU PSA+1032 02925000 PSAPCPSW EQU PSA+1024 02926000 PSAPIR2 EQU PSA+1020 02927000 PSARV059 EQU PSA+1018 02928000 PSASVC13 EQU PSA+1016 02929000 PSASFACC EQU PSA+1008 02930000 PSASTOP EQU PSA+992 02931000 PSASTART EQU PSA+976 02932000 PSARSPSW EQU PSA+968 02933000 PSASRPSW EQU PSA+960 02934000 PSARV045 EQU PSA+892 02935000 PSARV044 EQU PSA+888 02936000 PSARV043 EQU PSA+884 02937000 PSARV042 EQU PSA+880 02938000 PSARV041 EQU PSA+876 02939000 PSARV040 EQU PSA+872 02940000 PSARV025 EQU PSA+868 02941000 PSADSSED EQU PSA+868 02942000 PSADSSPR EQU PSA+864 02943000 PSADSSFW EQU PSA+860 02944000 PSADSS14 EQU PSA+856 02945000 PSADSSPP EQU PSA+848 02946000 PSADSSRP EQU PSA+840 02947000 PSADSS05 EQU PSADSSF4 02948000 PSADSS10 EQU PSADSSF4 02949000 PSADSSVE EQU PSADSSF4 02950000 PSADSSDE EQU PSADSSF4 02951000 PSADSSC0 EQU PSADSSF4 02952000 PSADSSIE EQU PSADSSF4 02953000 PSADSS12 EQU PSADSSF4 02954000 PSADSSRC EQU PSADSSF4 02955000 PSARV057 EQU PSADSSF3 02956000 PSARV056 EQU PSADSSF3 02957000 PSARV055 EQU PSADSSF3 02958000 PSADSSMC EQU PSADSSF3 02959000 PSADSSRW EQU PSADSSF3 02960000 PSADSSNM EQU PSADSSF3 02961000 PSADSSES EQU PSADSSF3 02962000 PSADSSGP EQU PSADSSF3 02963000 PSADSSF2 EQU PSADSSFL+1 02964000 PSADSSPI EQU PSADSSF1 02965000 PSADSSOI EQU PSADSSF1 02966000 PSADSSSP EQU PSADSSF1 02967000 PSADSSTP EQU PSADSSF1 02968000 PSADSSDW EQU PSADSSF1 02969000 PSADSSDD EQU PSADSSF1 02970000 PSADSSDM EQU PSADSSF1 02971000 PSADSSMV EQU PSADSSF1 02972000 PSADSSTS EQU PSA+816 02973000 PSADSSWK EQU PSA+812 02974000 PSADSSR3 EQU PSA+808 02975000 PSADSSR2 EQU PSA+804 02976000 PSADSSRS EQU PSA+800 02977000 PSASTOR EQU PSA+796 02978000 PSACPUSA EQU PSA+794 02979000 PSAVSTAP EQU PSA+792 02980000 PSAWKVAP EQU PSA+788 02981000 PSAWKRAP EQU PSA+784 02982000 PSAMCHIC EQU PSA+783 02983000 PSARV061 EQU PSA+782 02984000 PSASYMSK EQU PSA+781 02985000 PSAMCHFL EQU PSA+780 02986000 PSACR0 EQU PSA+776 02987000 PSAPSWSV EQU PSA+768 02988000 PSACLHS EQU PSAHLHI 02989000 PSALKR15 EQU PSALKSA+60 02990000 PSALKR14 EQU PSALKSA+56 02991000 PSALKR13 EQU PSALKSA+52 02992000 PSALKR12 EQU PSALKSA+48 02993000 PSALKR11 EQU PSALKSA+44 02994000 PSALKR10 EQU PSALKSA+40 02995000 PSALKR9 EQU PSALKSA+36 02996000 PSALKR8 EQU PSALKSA+32 02997000 PSALKR7 EQU PSALKSA+28 02998000 PSALKR6 EQU PSALKSA+24 02999000 PSALKR5 EQU PSALKSA+20 03000000 PSALKR4 EQU PSALKSA+16 03001000 PSALKR3 EQU PSALKSA+12 03002000 PSALKR2 EQU PSALKSA+8 03003000 PSALKR1 EQU PSALKSA+4 03004000 PSALKR0 EQU PSALKSA 03005000 PSARV023 EQU PSACLHT+52 03006000 PSALOCAL EQU PSACLHT+48 03007000 PSACMSL EQU PSACLHT+44 03008000 PSAOPTL EQU PSACLHT+40 03009000 PSATPACL EQU PSACLHT+36 03010000 PSATPDNL EQU PSACLHT+32 03011000 PSATPNCL EQU PSACLHT+28 03012000 PSAIOSLL EQU PSACLHT+24 03013000 PSAIOSUL EQU PSACLHT+20 03014000 PSAIOSCL EQU PSACLHT+16 03015000 PSAIOSSL EQU PSACLHT+12 03016000 PSASALCL EQU PSACLHT+8 03017000 PSAASML EQU PSACLHT+4 03018000 PSADISPL EQU PSACLHT 03019000 PSASRSA EQU PSA+636 03020000 PSARV050 EQU PSA+634 03021000 PSADSSGO EQU PSA+633 03022000 PSARECUR EQU PSA+632 03023000 PSAHLHIS EQU PSA+628 03024000 PSAIPCSA EQU PSA+624 03025000 @NM00079 EQU PSA+621 03026000 PSAIPCDM EQU PSA+620 03027000 PSAIPCD EQU PSA+616 03028000 @NM00078 EQU PSA+613 03029000 PSAIPCRM EQU PSA+612 03030000 PSAIPCR EQU PSA+608 03031000 PSAMCHEX EQU PSA+600 03032000 PSAMPSW EQU PSA+592 03033000 PSAEXPS2 EQU PSA+584 03034000 PSAEXPS1 EQU PSA+576 03035000 PSAPIREG EQU PSA+572 03036000 PSARSREG EQU PSA+568 03037000 PSAGPREG EQU PSA+556 03038000 PSARV022 EQU PSASUP4 03039000 PSARV021 EQU PSASUP4 03040000 PSARV020 EQU PSASUP4 03041000 PSARV019 EQU PSASUP4 03042000 PSARV018 EQU PSASUP4 03043000 PSARV017 EQU PSASUP4 03044000 PSARV016 EQU PSASUP4 03045000 PSARV015 EQU PSASUP4 03046000 PSARV014 EQU PSASUP3 03047000 PSAULCMS EQU PSASUP3 03048000 PSARV012 EQU PSASUP3 03049000 PSAESTA EQU PSASUP3 03050000 PSASPR EQU PSASUP3 03051000 PSAPSREG EQU PSASUP3 03052000 PSAPI2 EQU PSASUP3 03053000 PSAIOSUP EQU PSASUP3 03054000 PSALCR EQU PSASUP2 03055000 PSARTM EQU PSASUP2 03056000 PSAACR EQU PSASUP2 03057000 PSAIPCE2 EQU PSASUP2 03058000 PSAIPCES EQU PSASUP2 03059000 PSAIPCEC EQU PSASUP2 03060000 PSAGTF EQU PSASUP2 03061000 PSAIPCRI EQU PSASUP2 03062000 PSATYPE6 EQU PSASUP1 03063000 PSATCTL EQU PSASUP1 03064000 PSADISP EQU PSASUP1 03065000 PSALOCK EQU PSASUP1 03066000 PSAPI EQU PSASUP1 03067000 PSAEXT EQU PSASUP1 03068000 PSASVC EQU PSASUP1 03069000 PSAIO EQU PSASUP1 03070000 PSAANEW EQU PSA+544 03071000 PSATNEW EQU PSA+536 03072000 PSALCCAR EQU PSA+532 03073000 PSAPCCAR EQU PSA+524 03074000 PSAPCCAV EQU PSA+520 03075000 PSACPULA EQU PSA+518 03076000 PSACPUPA EQU PSA+516 03077000 PSAPSA EQU PSA+512 03078000 FLCHDEND EQU PSA+512 03079000 FLCCRSAV EQU FLCMCLA+280 03080000 FLCGRSAV EQU FLCMCLA+216 03081000 FLCFPSAV EQU FLCMCLA+184 03082000 FLCFLA EQU FLCMCLA+88 03083000 FLCRGNCD EQU FLCMCLA+84 03084000 FLCFSAA EQU FLCFSA+1 03085000 @NM00077 EQU FLCFSA 03086000 @NM00076 EQU FLCMCLA+72 03087000 FLCMCIC EQU FLCMCLA+64 03088000 @NM00075 EQU FLCMCLA+20 03089000 FLCIOAA EQU FLCIOA+1 03090000 @NM00074 EQU FLCIOA 03091000 @NM00073 EQU FLCMCLA+15 03092000 @NM00072 EQU FLCMCLA+14 03093000 @NM00071 EQU FLCMCLA+12 03094000 FLCLCL EQU FLCMCLA+8 03095000 FLCIOELA EQU FLCIOEL+1 03096000 @NM00070 EQU FLCIOEL 03097000 FLCCHNID EQU FLCMCLA 03098000 @NM00069 EQU PSA+160 03099000 FLCMTRCD EQU PSA+157 03100000 @NM00068 EQU PSA+156 03101000 FLCPERA EQU FLCPER+1 03102000 @NM00067 EQU FLCPER 03103000 @NM00066 EQU PSA+151 03104000 FLCPERCD EQU PSA+150 03105000 FLCMCNUM EQU PSA+149 03106000 @NM00065 EQU PSA+148 03107000 FLCTEAA EQU FLCTEA+1 03108000 @NM00064 EQU FLCTEA 03109000 PSAPIPC EQU PSAPICOD 03110000 PSAPIMC EQU PSAPICOD 03111000 PSAPIPER EQU PSAPICOD 03112000 PSARV049 EQU FLCPICOD 03113000 FLCPILCB EQU FLCPIILC 03114000 @NM00063 EQU FLCPIILC 03115000 @NM00062 EQU PSAEPPSW 03116000 FLCSVCN EQU PSAESPSW+2 03117000 FLCSILCB EQU FLCSVILC 03118000 @NM00061 EQU FLCSVILC 03119000 @NM00060 EQU PSAESPSW 03120000 FLCEICOD EQU PSAEEPSW+2 03121000 PSASPAD EQU PSAEEPSW 03122000 @NM00059 EQU PSA+128 03123000 FLCINPSW EQU PSA+120 03124000 FLCMNPSW EQU PSA+112 03125000 FLCPNPSW EQU PSA+104 03126000 FLCSNPSW EQU PSA+96 03127000 FLCENPSW EQU PSA+88 03128000 FLCTRACE EQU PSA+84 03129000 FLCTIMER EQU PSA+80 03130000 FLCCVT2 EQU PSA+76 03131000 FLCCAW EQU PSA+72 03132000 FLCCSW EQU PSA+64 03133000 FLCIOPSW EQU PSA+56 03134000 FLCMOPSW EQU PSA+48 03135000 FLCPOPSW EQU PSA+40 03136000 FLCSOPSW EQU PSA+32 03137000 FLCEOPSW EQU PSA+24 03138000 @NM00058 EQU FLCICCW2+4 03139000 FLCCVT EQU FLCICCW2 03140000 FLCICCW1 EQU FLCROPSW 03141000 FLCIPPSW EQU FLCRNPSW 03142000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03143000 @RF00103 EQU @RC00078 03144000 @RF00160 EQU @RC00158 03145000 @RF00179 EQU @RC00177 03146000 @ENDDATA EQU * 03147000 END IEAVMFRR,(C'PLS2141',0701,78192) 03148000