TUKA TITLE 'IGTUKA -- ESTAE/SETFRR EXIT ROUTINE *00001000 ' 00002000 IGTUKA CSECT , 01S0001 00003000 @MAINENT DS 0H 01S0001 00004000 USING *,@15 01S0001 00005000 B @PROLOG 01S0001 00006000 DC AL1(16) 01S0001 00007000 DC C'IGTUKA 77.092' 01S0001 00008000 DROP @15 00009000 @PROLOG BALR @07,0 01S0001 00010000 @PSTART DS 0H 01S0001 00011000 USING @PSTART,@07 01S0001 00012000 * /* 00013000 *********************************************************************** 00014000 ** ** 00015000 ** DEFINE MACRO GLOBALS WHICH INDICATE THOSE SU'S APPLIED TO ** 00016000 ** THE SYSTEM. BIT-1 = 1 IF SU1 APPLIED, BIT-2 = 1 IF SU-2 ** 00017000 ** APPLIED, ETC. THESE BITS ARE SET BY MACROS IHASUXX WHERE ** 00018000 ** XX IS THE 1 OR 2 DIGIT SU NUMBER (1-99). THESE BITS ARE MAPPED ** 00019000 ** BY MACRO IHASUBIT. THESE IHASUXX MACROS RESIDE ON SYS1.AMODGEN. ** 00020000 ** ** 00021000 *********************************************************************** 00022000 SPACE 2 00023000 GBLB &SGIHASU(100) SU INDICATORS 00024000 SPACE 2 00025000 *********************************************************************** 00026000 ** ** 00027000 ** THE FOLLOWING MACRO INVOCATION WILL SET BIT &SGIHASU(33) TO ** 00028000 ** EITHER 0 OR 1 INDICATING WHETHER SU-33 (DUMPING IMPROVEMENTS) ** 00029000 ** HAS BEEN APPLIED TO THE SYSTEM. SYS1.AMODGEN MUST BE PART OF ** 00030000 ** THE ASSEMBLER'S SYSLIB DD STATEMENT (IHASUXX MEMBERS RESIDE ** 00031000 ** ON SYS1.AMODGEN). ** 00032000 ** THE IBM ASSEMBLY WILL ALWAYS ASSUME SU-33 HAS BEEN APPLIED. ** 00033000 ** NOTE THAT THE AVAILABILITY OF SU33 IS ALSO CHECKED AT EXECUTION ** 00034000 ** TIME. THEREFORE THE CODE ASSEMBLED WITH SU33 PRESENT WILL ALSO ** 00035000 ** EXECUTE ON A SYSTEM WITHOUT SU-33. ** 00036000 ** ** 00037000 *********************************************************************** 00038000 SPACE 2 00039000 IHASU33 , DETERMINE IF SU-33 APPLIED 00040000 * IF R0F=12 THEN /* IF NO SDWA OBTAINED, */ 00041000 C R0F,@CF02492 01S0060 00042000 BNE @RF00060 01S0060 00043000 * RETURN CODE(0); /* JUST CONTINUE THE ABEND */ 00044000 * 01S0061 00045000 SLR @15,@15 01S0061 00046000 @EL00001 DS 0H 01S0061 00047000 @EF00001 DS 0H 01S0061 00048000 @ER00001 BR @14 01S0061 00049000 * /*****************************************************************/ 00050000 * /* */ 00051000 * /* LOCATE THE 'APES'. INSURE VALID. IF NOT, LOG THE ERROR, AND */ 00052000 * /* CONTINUE THE ABEND. */ 00053000 * /* */ 00054000 * /*****************************************************************/ 00055000 * 01S0062 00056000 * RFY 01S0062 00057000 * SDWA BASED(R1P); /* SDWA IS INPUT TO ROUTINE */ 00058000 @RF00060 DS 0H 01S0063 00059000 * RFY 01S0063 00060000 * RAPESPTR RSTD; /* POINT TO 'APES' BLOCK. */ 00061000 * RAPESPTR=SDWAPARM->I031P; /* ADDRESS IN 1ST WORD OF PARMS */ 00062000 L @15,SDWAPARM(,R1P) 01S0064 00063000 L RAPESPTR,I031P(,@15) 01S0064 00064000 * RFY 01S0065 00065000 * APES BASED(RAPESPTR); /* TELL PL/S OF BASE REGISTER */ 00066000 * IF APESID^=APESIDC THEN /* IF RAPESPTR DOES NOT POINT TO */ 00067000 CLC APESID(4,RAPESPTR),@CC02134 01S0066 00068000 BE @RF00066 01S0066 00069000 * DO; /* 'APES' BLOCK, IS ERROR */ 00070000 * DO; /* SETRP WKAREA(ADDR(SDWA))DUMP(Y 00071000 * ES)RECORD(YES)RECPARM(CCSECT)R 00072000 * C(0) */ 00073000 * RESPECIFY 01S0069 00074000 * (GPR00P, 01S0069 00075000 * GPR01P, 01S0069 00076000 * GPR14P, 01S0069 00077000 * GPR15P) RSTD; 01S0069 00078000 * GPR01P=ADDR(SDWA); 01S0070 00079000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00080000 MVI SDWARCDE(GPR01P),X'00' 01S0071 00081000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00082000 OI SDWARCRD(GPR01P),B'10000000' 01S0072 00083000 * GPR15P=ADDR(CCSECT); /* ACCESS RECORD PARAMETER LIST */ 00084000 LA GPR15P,CCSECT 01S0073 00085000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 01S0074 00086000 * PARAMETERS */ 00087000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 01S0074 00088000 * GPR01P->SDWAREQ='1'B; /* TURN ON DUMP INDICATOR */ 00089000 OI SDWAREQ(GPR01P),B'10000000' 01S0075 00090000 * RESPECIFY 01S0076 00091000 * (GPR00P, 01S0076 00092000 * GPR01P, 01S0076 00093000 * GPR14P, 01S0076 00094000 * GPR15P) UNRSTD; 01S0076 00095000 * END; /* CONTINUE THE ABEND */ 00096000 * RETURN; /* CONTINUE THE ABEND */ 00097000 B @EL00001 01S0078 00098000 * END; /* INVALID 'APES' PROCESSED */ 00099000 * 01S0079 00100000 * /*****************************************************************/ 00101000 * /* */ 00102000 * /* RAPESPTR POINTS TO 'APES' BLOCK. RELOAD REGISTER APCTPTR FROM */ 00103000 * /* THE INITIAL APES REGISTER SAVEAREA (APESREGZ). THEN SAVE THE */ 00104000 * /* RETURN AND SDWA ADDRESSES. */ 00105000 * /* */ 00106000 * /*****************************************************************/ 00107000 * 01S0080 00108000 * APCTPTR=ADDR(APESREGZ)->APESREGC;/* RESET APCT POINTER */ 00109000 @RF00066 L APCTPTR,APESREGC+48(,RAPESPTR) 01S0080 00110000 * APESR14S=R14P; /* SAVE SAVE RETURN ADDRESS */ 00111000 ST R14P,APESR14S(,RAPESPTR) 01S0081 00112000 * RFY 01S0082 00113000 * (R14P) UNRSTD; /* CAN NOW USE THIS REGISTER */ 00114000 * RFY 01S0083 00115000 * RSDWAPTR RSTD; /* MOVE SDWA ADDRESS TO */ 00116000 * RSDWAPTR=ADDR(SDWA); /* NON-VOLITILE REGISTER LEAVE 00117000 * SDWA BASED ON R1P. */ 00118000 LR RSDWAPTR,R1P 01S0084 00119000 * RFY 01S0085 00120000 * APDATA RSTD; /* SAVE FRR WORKAREA (R0) */ 00121000 * APDATA=R0F; /* IN NON-VOLITILE REGISTER */ 00122000 LR APDATA,R0F 01S0086 00123000 * RFY 01S0087 00124000 * R0F UNRSTD; /* DONE WITH INPUT REGISTER */ 00125000 * 01S0087 00126000 * /*****************************************************************/ 00127000 * /* */ 00128000 * /* DETERMINE IF ENTERED FROM SETFRR OR ESTAE. ALSO DETERMINE IF */ 00129000 * /* LOCAL AND/OR CMS LOCKS OWNED. SET APESFLG1 ACCORDINGLY. */ 00130000 * /* */ 00131000 * /*****************************************************************/ 00132000 * 01S0088 00133000 * APESFFRR=BOFF; /* RESET FRR IN-CONTROL, */ 00134000 * APESFLLK=BOFF; /* RESET LOCAL LOCK OWNED, */ 00135000 * APESFXLK=BOFF; /* RESET CMS LOCK OWNED SWITCH. */ 00136000 NI APESFFRR(RAPESPTR),B'01001111' 01S0090 00137000 * GEN REFS(PSAHLHI) FLOWS(KNOWLOCK) SEQFLOW; 01S0091 00138000 * /* SEE IF LOCAL LOCK OWNED 00139000 SETLOCK TEST, SEE IF LOCAL LOCK OWNED *00140000 TYPE=LOCAL, IF SO, THEN SETFRR ENTRY. *00141000 BRANCH=(NOTHELD,KNOWLOCK), SET APES SWITCHES IF OWNED *00142000 RELATED=(APESFFRR,APESFLLK) FRR ENTRY, LOCAL LOCK OWNED 00143000 * APESFFRR=BON; /* FRR ENTRY */ 00144000 * APESFLLK=BON; /* LOCAL LOCK OWNED */ 00145000 OI APESFFRR(RAPESPTR),B'10100000' 01S0093 00146000 * GEN REFS(PSAHLHI) FLOWS(KNOWLOCK) SEQFLOW; 01S0094 00147000 * /* SEE IF CMS LOCK OWNED 00148000 SETLOCK TEST, SEE IF CMS LOCK OWNED *00149000 TYPE=CMS, (LOCAL LOCK ALREADY OWNED) *00150000 BRANCH=(NOTHELD,KNOWLOCK), SET APES SWITCH IF OWNED *00151000 RELATED=APESFXLK INDICATE CMS LOCK OWNED IN APES 00152000 * APESFXLK=BON; /* CMS LOCK OWNED */ 00153000 OI APESFXLK(RAPESPTR),B'00010000' 01S0095 00154000 *KNOWLOCK: /* FRR/LOCK INDICATORS SET IN 00155000 * APES */ 00156000 * 01S0096 00157000 * /*****************************************************************/ 00158000 * /* */ 00159000 * /* ESTABLISH REGISTER 13 SAVEAREA AND THE PL/S DYNAMIC AREA. IF */ 00160000 * /* ENTERED FROM SETFRR, REGISTER 0 ON INPUT CONTAINS THE ADDRESS */ 00161000 * /* OF A 200-BYTE SAVEAREA. IF ENTERED FROM ESTAE, ISSUE A */ 00162000 * /* CONDITIONAL GETMAIN FOR 200 BYTES FROM SUBPOOL 253. IF THIS */ 00163000 * /* GETMAIN FAILS USE THE FIRST 200 BYTES OF THE SAVED SDWA IN THE*/ 00164000 * /* APES. SET A FLAG IN THE APES TO INDICATE THAT THE SAVED SDWA */ 00165000 * /* HAS BEEN OVERLAID. */ 00166000 * /* */ 00167000 * /*****************************************************************/ 00168000 * 01S0096 00169000 * RFY 01S0096 00170000 * APDATA RSTD; /* PL/S DYNAMIC AREA POINTER */ 00171000 KNOWLOCK DS 0H 01S0097 00172000 * APESFGM=BOFF; /* SHOW GETMAIN NOT ISSUED */ 00173000 NI APESFGM(RAPESPTR),B'11110111' 01S0097 00174000 * IF APESFFRR=BOFF THEN /* IF FRR EXIT, APDATA POINTS */ 00175000 TM APESFFRR(RAPESPTR),B'10000000' 01S0098 00176000 BNZ @RF00098 01S0098 00177000 * DO; /* TO 200 BYTE AREA. OTHERWISE, */ 00178000 * RFY 01S0100 00179000 * (R1P, 01S0100 00180000 * R15F) RSTD; /* ISSUE GETMAIN. */ 00181000 * GEN(GETMAIN RC,LV=200,SP=253);/* CONDITIONALLY GETMAIN */ 00182000 GETMAIN RC,LV=200,SP=253 00183000 * IF R15F=0 THEN /* IF GETMAIN WORKED, */ 00184000 LTR R15F,R15F 01S0102 00185000 BNZ @RF00102 01S0102 00186000 * APESFGM=BON; /* SHOW GETMAIN WORKED. */ 00187000 OI APESFGM(RAPESPTR),B'00001000' 01S0103 00188000 * ELSE /* OTHERWISE USE APESSDWA */ 00189000 * DO; /* FOR SAVEAREA/WORKAREA. */ 00190000 B @RC00102 01S0104 00191000 @RF00102 DS 0H 01S0105 00192000 * APESFSDI=BON; /* SHOW SAVED SDWA INVALID. */ 00193000 OI APESFSDI(RAPESPTR),B'00000100' 01S0105 00194000 * R1P=ADDR(APESSDWA); /* POINT TO WORKAREA */ 00195000 LA R1P,APESSDWA(,RAPESPTR) 01S0106 00196000 * END; /* PSUEDO GETMAIN SET */ 00197000 * APDATA=R1P; /* ESTABLISH DYNAMIC AREA */ 00198000 @RC00102 LR APDATA,R1P 01S0108 00199000 * RFY 01S0109 00200000 * (R1P, 01S0109 00201000 * R15F) UNRSTD; /* GETMAIN DONE */ 00202000 * RFY 01S0110 00203000 * R1P RSTD; /* RE-ESTABLISH SDWA ADDRESS */ 00204000 * R1P=RSDWAPTR; /* IN REGISTER 1. */ 00205000 LR R1P,RSDWAPTR 01S0111 00206000 * END; /* APDATA -> 200-BYTE AREA */ 00207000 * GEN(USING @DATD,APDATA) 01S0113 00208000 * NOSETS REFS(APDATA); /* ALSO TELL ASSEMBLER */ 00209000 @RF00098 DS 0H 01S0113 00210000 USING @DATD,APDATA 00211000 * R13P=ADDR(DSVEAREA); /* ESTABLISH OS SAVEAREA */ 00212000 * 01S0114 00213000 LA R13P,DSVEAREA 01S0114 00214000 * /*****************************************************************/ 00215000 * /* */ 00216000 * /* INCREMENT THE NUMBER OF ENTRIES INTO 'IGTUKA '. */ 00217000 * /* */ 00218000 * /*****************************************************************/ 00219000 * 01S0115 00220000 * APESCNTR=APESCNTR+1; /* INCREMENT NUMBER ABENDS */ 00221000 * 01S0115 00222000 LA @04,1 01S0115 00223000 SLR @02,@02 01S0115 00224000 IC @02,APESCNTR(,RAPESPTR) 01S0115 00225000 ALR @04,@02 01S0115 00226000 STC @04,APESCNTR(,RAPESPTR) 01S0115 00227000 * /*****************************************************************/ 00228000 * /* */ 00229000 * /* IF RECURSION ENTRY (APESFPRV=1), FORCE A DUMP AND LOG THE */ 00230000 * /* FAILURE BY UPDATING THE APES. */ 00231000 * /* */ 00232000 * /*****************************************************************/ 00233000 * 01S0116 00234000 * IF APESFPRV=BON THEN /* IF RETRY ROUTINE FAILED, */ 00235000 TM APESFPRV(RAPESPTR),B'01000000' 01S0116 00236000 BNO @RF00116 01S0116 00237000 * DO; /* THEN REQUEST MAXIMUM. */ 00238000 * APESFREC=BON; /* RECORD ON LOGREC */ 00239000 * APESFDMP=BON; /* TAKE SNAP DUMP */ 00240000 * APESFSDP=BON; /* TAKE SDUMP */ 00241000 OI APESFREC(RAPESPTR),B'11100000' 01S0120 00242000 * END; /* RECURSION OPTIONS SELECTED */ 00243000 * 01S0122 00244000 * /*****************************************************************/ 00245000 * /* */ 00246000 * /* IF ENTRY FROM CANCEL, DETACH, ETC (SDWACLUP=1), DO NOT TAKE */ 00247000 * /* SDUMP OR LOG ERROR SINCE NOT A PROGRAM FAILURE. LEAVE SYSUDUMP*/ 00248000 * /* FLAG UNCHANGED. */ 00249000 * /* */ 00250000 * /*****************************************************************/ 00251000 * 01S0122 00252000 * IF SDWACLUP=BON THEN /* IF CANCEL, ETC. THEN */ 00253000 @RF00116 TM SDWACLUP(R1P),B'10000000' 01S0122 00254000 BNO @RF00122 01S0122 00255000 * DO; /* CLEAR FLAGS. */ 00256000 * APESFSDP=BOFF; /* DO NOT TAKE SDUMP */ 00257000 * APESFREC=BOFF; /* DO NOT RECORD ON LOGREC */ 00258000 * APESFDMP=BON; /* SET SYSUDUMP REQUEST FLAG */ 00259000 OI APESFDMP(RAPESPTR),B'10000000' 01S0126 00260000 NI APESFSDP(RAPESPTR),B'10011111' 01S0126 00261000 * IF SDWAREQ=BOFF THEN /* TO CURRENT VALUE, SO IT WILL */ 00262000 TM SDWAREQ(R1P),B'10000000' 01S0127 00263000 BNZ @RF00127 01S0127 00264000 * APESFDMP=BOFF; /* SET TO THIS VALUE LATER ON. */ 00265000 NI APESFDMP(RAPESPTR),B'01111111' 01S0128 00266000 * END; /* OPTIONS RESET */ 00267000 * 01S0129 00268000 @RF00127 DS 0H 01S0130 00269000 * /*****************************************************************/ 00270000 * /* */ 00271000 * /* IF THIS TASK WAS NOT IN CONTROL AT THE TIME OF THE ERROR BUT A*/ 00272000 * /* TASK WITHIN THE SAME JOBSTEP REQUESTED A 'STEP' ABEND */ 00273000 * /* (SDWACTS=1), OR AN ANCESTOR TASK ABENDED (SDWAMABD=1), THEN DO*/ 00274000 * /* NOT TAKE A SYSUDUMP. NOTE THAT SDWACLUP=1 IN ALL CASES. */ 00275000 * /* */ 00276000 * /*****************************************************************/ 00277000 * 01S0130 00278000 * IF SDWACTS=BON| /* IF STEP ABEND OR */ 00279000 * SDWAMABD=BON THEN /* MOTHER ABENDED */ 00280000 @RF00122 TM SDWACTS(R1P),B'00011000' 01S0130 00281000 BZ @RF00130 01S0130 00282000 * APESFDMP=BOFF; /* DO NOT TAKE SYSUDUMP. */ 00283000 * 01S0131 00284000 NI APESFDMP(RAPESPTR),B'01111111' 01S0131 00285000 * /*****************************************************************/ 00286000 * /* */ 00287000 * /* IF A LOWER LEVEL RECOVERY ROUTINE HAS PROVIDED SERVICEABILITY */ 00288000 * /* INFORMATION (SDWAEAS=1), THEN DO NOT PROVIDE A SECOND SDUMP OF*/ 00289000 * /* THE PROBLEM. */ 00290000 * /* */ 00291000 * /*****************************************************************/ 00292000 * 01S0132 00293000 * IF SDWAEAS=BON THEN /* IF LOWER LEVEL ROUTINE GAVE */ 00294000 @RF00130 TM SDWAEAS(R1P),B'00001000' 01S0132 00295000 BNO @RF00132 01S0132 00296000 * APESFSDP=BOFF; /* DEBUG DATA, NO SDUMP NEEDED. */ 00297000 NI APESFSDP(RAPESPTR),B'11011111' 01S0133 00298000 * 01S0134 00299000 * /*****************************************************************/ 00300000 * /* */ 00301000 * /* IF NON-RECURSIVE EXTRY, CALL THE USER'S EXTENDED ESTAE/FRR */ 00302000 * /* EXIT (APESEXRA) IF SPECIFIED (APESFEXR = 1). */ 00303000 * /* */ 00304000 * /*****************************************************************/ 00305000 * 01S0134 00306000 * IF APESFEXR=BON& /* IF EXIT ROUTINE SPECIFIED, */ 00307000 * APESFPRV=BOFF THEN /* AND NOT RECURSION PROCESSING, */ 00308000 @RF00132 TM APESFEXR(RAPESPTR),B'00000100' 01S0134 00309000 BNO @RF00134 01S0134 00310000 TM APESFPRV(RAPESPTR),B'01000000' 01S0134 00311000 BNZ @RF00134 01S0134 00312000 * DO; /* THEN CALL EXIT RTN (APESEXRA).*/ 00313000 * RFY 01S0136 00314000 * (R0P, 01S0136 00315000 * R14P, 01S0136 00316000 * R15P) RSTD; /* INTERFACE REGISTERS */ 00317000 * APESFPRV=BON; /* TREAT ERROR AS RECURSION */ 00318000 OI APESFPRV(RAPESPTR),B'01000000' 01S0137 00319000 * MVC(DUXINSTR,CUXINSTR); /* INITIALIZE RETURN CODE */ 00320000 MVC DUXINSTR(8,R1P),CUXINSTR 01S0138 00321000 * STM(R0F,R14F,DUXREGS); /* SAVE CURRENT REGISTERS */ 00322000 STM R0F,R14F,DUXREGS(R1P) 01S0139 00323000 * R0P=ADDR(APES); /* CALLER GETS APES ADDR IN R0 */ 00324000 LR R0P,RAPESPTR 01S0140 00325000 * R1P=ADDR(SDWA); /* CALLER GETS SDWA ADDR IN R1 */ 00326000 * R14P=ADDR(DUXDATA); /* RETURN LOGIC ADDR IN R14 */ 00327000 LA R14P,DUXDATA(,R1P) 01S0142 00328000 * R15P=APESEXRA; /* EXIT ROUTINE ADDRESS IN R15 */ 00329000 L R15P,APESEXRA(,RAPESPTR) 01S0143 00330000 * R13P=APESREGP; /* POINT TO SAVED REGISTERS */ 00331000 L R13P,APESREGP(,RAPESPTR) 01S0144 00332000 * GEN(LM R2P,R13P,APESREG2-APESREGS(R13P)) 01S0145 00333000 * REFS(R2P,R13P,APESREG2,APESREGS,R13P);/* USER REGISTERS */ 00334000 LM R2P,R13P,APESREG2-APESREGS(R13P) 00335000 * GEN(BR R15P) 01S0146 00336000 * REFS(R15P) SETS(R15F); /* CALL EXIT ROUTINE */ 00337000 BR R15P 00338000 * RFY 01S0147 00339000 * (R0P, 01S0147 00340000 * R14P, 01S0147 00341000 * R15P) UNRSTD; /* FINISHED WITH INPUT REGS */ 00342000 * RFY 01S0148 00343000 * R15F RSTD; /* RETRY INDICATOR (0/4) */ 00344000 *LUEXIT: /* USER RETURN (VIA DUXINSTR). */ 00345000 * 01S0149 00346000 * /*************************************************************/ 00347000 * /* */ 00348000 * /* CONTROL RETURNS TO 'DUXDATA' WHICH LOADS THE SAVED */ 00349000 * /* REGISTER VALUES FOR R0-R14, AND BRANCHES TO 'LUEXIT'. */ 00350000 * /* REGISTER 15 HAS THE RETRY/NORETRY INDICATOR (0/4). */ 00351000 * /* */ 00352000 * /*************************************************************/ 00353000 * 01S0149 00354000 * APESFPRV=BOFF; /* RESET RECURSION INDICATOR */ 00355000 LUEXIT NI APESFPRV(RAPESPTR),B'10111111' 01S0149 00356000 * APESFRTY=BOFF; /* BASED UPON REGISTER 15, SET */ 00357000 NI APESFRTY(RAPESPTR),B'11110111' 01S0150 00358000 * IF R15F^=4 THEN /* RETRY/NORETRY FLAG (4/0). */ 00359000 C R15F,@CF00045 01S0151 00360000 BE @RF00151 01S0151 00361000 * APESFRTY=BON; /* NO RETRY IF CODE NOT 4. */ 00362000 OI APESFRTY(RAPESPTR),B'00001000' 01S0152 00363000 * RFY 01S0153 00364000 * R15F UNRSTD; /* DONE WITH RETURN CODE */ 00365000 @RF00151 DS 0H 01S0154 00366000 * END; /* APESEXRA PROCESSED */ 00367000 * 01S0155 00368000 * /*****************************************************************/ 00369000 * /* */ 00370000 * /* SET SVCDUMP PARAMETERS FOR SYSTEMS WITH SU-33 AND SYSTEMS */ 00371000 * /* WITHOUT SU-33 (DUMPING IMPROVEMENTS). */ 00372000 * /* */ 00373000 * /*****************************************************************/ 00374000 * 01S0155 00375000 * IF SU33BIT=BOFF THEN /* IF SU-33 HAS NOT BEEN APPLIED,*/ 00376000 @RF00134 L @04,CVTPTR 01S0155 00377000 L @04,CVTIHASU(,@04) 01S0155 00378000 TM SU33BIT(@04),B'01000000' 01S0155 00379000 BNZ @RF00155 01S0155 00380000 * DO; /* THEN DUMP ONLY USER. */ 00381000 * APESSU33=BOFF; /* SHOW SU-33 NOT APPLIED */ 00382000 NI APESSU33(RAPESPTR),B'01111111' 01S0157 00383000 * DASID1=ASCBASID; /* DUMP CURRENT ASCB */ 00384000 L @04,ASCBPTR 01S0158 00385000 LH @04,ASCBASID(,@04) 01S0158 00386000 N @04,@CF02632 01S0158 00387000 STH @04,DASID1 01S0158 00388000 * END; /* NON-SU33 PROCESSING COMPLETE */ 00389000 * ELSE /* IF SU-33 HAS BEEN APPLIED, */ 00390000 * DO; /* DUMP USER & MONITOR. */ 00391000 B @RC00155 01S0160 00392000 @RF00155 DS 0H 01S0161 00393000 * APESSU33=BON; /* SHOW SU-33 APPLIED */ 00394000 OI APESSU33(RAPESPTR),B'10000000' 01S0161 00395000 * IF ASCBASID=APCTASID THEN /* IF MONITOR IS CURRENT, */ 00396000 LH @04,APCTASID(,APCTPTR) 01S0162 00397000 L @02,ASCBPTR 01S0162 00398000 LH @02,ASCBASID(,@02) 01S0162 00399000 N @02,@CF02632 01S0162 00400000 CR @04,@02 01S0162 00401000 BNE @RF00162 01S0162 00402000 * DASID1=APCTASID| /* THEN ONLY DUMP ONE */ 00403000 * '8000'X; /* ADDRESS SPACE (MONITOR). */ 00404000 O @04,@CF02515 01S0163 00405000 STH @04,DASID1 01S0163 00406000 * ELSE /* IF NOT THE MONITOR, THEN */ 00407000 * DO; /* DUMP 2 ADDRESS SPACES -- */ 00408000 B @RC00162 01S0164 00409000 @RF00162 DS 0H 01S0165 00410000 * DASID1=ASCBASID; /* 1 -- USER */ 00411000 L @04,ASCBPTR 01S0165 00412000 LH @04,ASCBASID(,@04) 01S0165 00413000 N @04,@CF02632 01S0165 00414000 STH @04,DASID1 01S0165 00415000 * DASID2=APCTASID| /* 2 -- MONITOR */ 00416000 * '8000'X; /* SHOW END-OF-LIST. */ 00417000 L @04,@CF02515 01S0166 00418000 LH @02,APCTASID(,APCTPTR) 01S0166 00419000 OR @04,@02 01S0166 00420000 STH @04,DASID2 01S0166 00421000 * END; /* SU-33 LIST SET */ 00422000 * END; /* SU-33 OPTIONS SET */ 00423000 * 01S0168 00424000 @RC00162 DS 0H 01S0169 00425000 * /*****************************************************************/ 00426000 * /* */ 00427000 * /* ESTABLISH DUMP OPTION IN SDWA */ 00428000 * /* */ 00429000 * /*****************************************************************/ 00430000 * 01S0169 00431000 * IF APESFDMP=BOFF THEN /* IF USER DUMP NOT WANTED */ 00432000 @RC00155 TM APESFDMP(RAPESPTR),B'10000000' 01S0169 00433000 BNZ @RF00169 01S0169 00434000 * DO; /* SETRP 01S0170 00435000 * WKAREA(ADDR(SDWA))DUMP(NO) */ 00436000 * RESPECIFY 01S0171 00437000 * (GPR00P, 01S0171 00438000 * GPR01P, 01S0171 00439000 * GPR14P, 01S0171 00440000 * GPR15P) RSTD; 01S0171 00441000 * GPR01P=ADDR(SDWA); 01S0172 00442000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00443000 MVI SDWARCDE(GPR01P),X'00' 01S0173 00444000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 00445000 NI SDWAREQ(GPR01P),B'01111111' 01S0174 00446000 * RESPECIFY 01S0175 00447000 * (GPR00P, 01S0175 00448000 * GPR01P, 01S0175 00449000 * GPR14P, 01S0175 00450000 * GPR15P) UNRSTD; 01S0175 00451000 * END; /* THE SDWA. */ 00452000 * ELSE /* IF USER DUMP WANTED, */ 00453000 * DO; /* SETRP WKAREA(ADDR(SDWA))DUMP(Y 00454000 * ES)DUMPOPT(CXSNAP) */ 00455000 B @RC00169 01S0177 00456000 @RF00169 DS 0H 01S0178 00457000 * RESPECIFY 01S0178 00458000 * (GPR00P, 01S0178 00459000 * GPR01P, 01S0178 00460000 * GPR14P, 01S0178 00461000 * GPR15P) RSTD; 01S0178 00462000 * GPR01P=ADDR(SDWA); 01S0179 00463000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00464000 MVI SDWARCDE(GPR01P),X'00' 01S0180 00465000 * GPR01P->SDWAREQ='1'B; /* TURN ON DUMP INDICATOR */ 00466000 OI SDWAREQ(GPR01P),B'10000000' 01S0181 00467000 * GPR01P->SDWADLST='1'B; /* INDICATE DUMP OPTIONS PASSED */ 00468000 OI SDWADLST(GPR01P),B'01000000' 01S0182 00469000 * GPR15P=ADDR(CXSNAP); /* ACCESS PTR TO DUMP PARMS */ 00470000 LA GPR15P,CXSNAP 01S0183 00471000 * GPR01P->SDWADDAT=GPR15P->I256C(5:8);/* ACCESS SDATA AND PDATA*/ 00472000 MVC SDWADDAT(4,GPR01P),I256C+4(GPR15P) 01S0184 00473000 * GPR01P->SDWAENSN='1'B; /* INDICATE ENHANCED DUMP */ 00474000 OI SDWAENSN(GPR01P),B'00100000' 01S0185 00475000 * GEN(TM 1(15),X'02'); /* TEST FOR STORAGE LIST */ 00476000 TM 1(15),X'02' 00477000 * BC(1,M0012); /* BRANCH IF SPECIFIED */ 00478000 BC 1,M0012 01S0187 00479000 * IF GPR15P->I256C(17:20)=0 THEN/* FURTHER TEST FOR STOR LIST */ 00480000 ICM @04,15,I256C+16(GPR15P) 01S0188 00481000 BZ @RT00188 01S0188 00482000 * GOTO E0012; /* BRANCH IF NO STORAGE LIST */ 00483000 *M0012: 01S0190 00484000 * GPR01P->SDWASLST='1'B; /* TURN ON STORAGE LIST FLAG */ 00485000 M0012 OI SDWASLST(GPR01P),B'00000010' 01S0190 00486000 * GPR15P=EVAL(GPR15P+16)->I031P;/* ACCESS PTR TO STORAGE LIST */ 00487000 LA @04,16 01S0191 00488000 ALR @04,GPR15P 01S0191 00489000 L @04,I031P(,@04) 01S0191 00490000 LR GPR15P,@04 01S0191 00491000 * GENERATE SETS(SDWAFRM1,SDWAFRM2,SDWAFRM3,SDWAFRM4,SDWATO4); 00492000 MVC SDWAFRM1(8,GPR01P),0(15) MOVE FIRST STORAGE RANGE 00493000 TM 4(15),X'80' TEST IF END OF LIST 00494000 BO E0012 BRANCH IF END OF LIST 00495000 MVC SDWAFRM2(8,GPR01P),8(15) MOVE SECOND STORAGE RANGE 00496000 TM 12(15),X'80' TEST IF END OF LIST 00497000 BO E0012 BRANCH IF END OF LIST 00498000 MVC SDWAFRM3(8,GPR01P),16(15) MOVE THIRD STORAGE RANGE 00499000 TM 20(15),X'80' TEST IF END OF LIST 00500000 BO E0012 BRANCH IF END OF LIST 00501000 MVC SDWAFRM4(8,GPR01P),24(15) MOVE FOURTH STORAGE LIST 00502000 OI SDWATO4(GPR01P),X'80' END OF LIST FLAG 00503000 *E0012: 01S0193 00504000 * RESPECIFY 01S0193 00505000 * (GPR00P, 01S0193 00506000 * GPR01P, 01S0193 00507000 * GPR14P, 01S0193 00508000 * GPR15P) UNRSTD; 01S0193 00509000 E0012 DS 0H 01S0194 00510000 * END; /* LSQA INCLUDES SP 230. */ 00511000 * 01S0194 00512000 * /*****************************************************************/ 00513000 * /* */ 00514000 * /* ESTABLISH LOGREC OPTION */ 00515000 * /* */ 00516000 * /*****************************************************************/ 00517000 * 01S0195 00518000 * IF APESFREC=BOFF THEN /* IF RECORDING NOT WANTED, */ 00519000 @RC00169 TM APESFREC(RAPESPTR),B'01000000' 01S0195 00520000 BNZ @RF00195 01S0195 00521000 * DO; /* SETRP 01S0196 00522000 * WKAREA(ADDR(SDWA))RECORD(NO) */ 00523000 * RESPECIFY 01S0197 00524000 * (GPR00P, 01S0197 00525000 * GPR01P, 01S0197 00526000 * GPR14P, 01S0197 00527000 * GPR15P) RSTD; 01S0197 00528000 * GPR01P=ADDR(SDWA); 01S0198 00529000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00530000 MVI SDWARCDE(GPR01P),X'00' 01S0199 00531000 * GPR01P->SDWARCRD='0'B; /* TURN OFF RECORD INDICATOR */ 00532000 NI SDWARCRD(GPR01P),B'01111111' 01S0200 00533000 * RESPECIFY 01S0201 00534000 * (GPR00P, 01S0201 00535000 * GPR01P, 01S0201 00536000 * GPR14P, 01S0201 00537000 * GPR15P) UNRSTD; 01S0201 00538000 * END; /* THE SDWA. */ 00539000 * ELSE /* IF RECORDING WANTED, */ 00540000 * DO; /* SETRP 01S0203 00541000 * WKAREA(ADDR(SDWA))RECORD(YES) */ 00542000 B @RC00195 01S0203 00543000 @RF00195 DS 0H 01S0204 00544000 * RESPECIFY 01S0204 00545000 * (GPR00P, 01S0204 00546000 * GPR01P, 01S0204 00547000 * GPR14P, 01S0204 00548000 * GPR15P) RSTD; 01S0204 00549000 * GPR01P=ADDR(SDWA); 01S0205 00550000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00551000 MVI SDWARCDE(GPR01P),X'00' 01S0206 00552000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00553000 OI SDWARCRD(GPR01P),B'10000000' 01S0207 00554000 * RESPECIFY 01S0208 00555000 * (GPR00P, 01S0208 00556000 * GPR01P, 01S0208 00557000 * GPR14P, 01S0208 00558000 * GPR15P) UNRSTD; 01S0208 00559000 * END; /* THE SDWA */ 00560000 * 01S0210 00561000 * /*****************************************************************/ 00562000 * /* */ 00563000 * /* MOVE MODULE/CSECT/FRR NAMES IN THE SDWA. THIS IS PERFORMED */ 00564000 * /* EVEN IF RECORDING IS NOT WANTED SINCE THIS DATA IS ALSO MOVED */ 00565000 * /* TO THE DEBUG COPY OF THE SDWA. */ 00566000 * /* */ 00567000 * /*****************************************************************/ 00568000 * 01S0210 00569000 * APESFRR='IGTUKA '; /* EXIT ROUTINE NAME */ 00570000 @RC00195 MVC APESFRR(8,RAPESPTR),@CC02524 01S0210 00571000 * MVC(SDWARECP,APESMOD); /* MOVE ID FOR LOGREC PRINTOUT */ 00572000 * 01S0211 00573000 MVC SDWARECP(24,R1P),APESMOD(RAPESPTR) 01S0211 00574000 * /*****************************************************************/ 00575000 * /* */ 00576000 * /* BUILD LOGREC ERROR MESSAGE AND SDUMP HEADER (HEADER IS PORTION*/ 00577000 * /* OF LOGREC MESSAGE). THIS IS PERFORMED EVEN IF RECORDING IS NOT*/ 00578000 * /* REQUESTED SINCE THIS DATA IS ALSO MOVED TO THE DEBUG COPY OF */ 00579000 * /* THE SDWA. */ 00580000 * /* */ 00581000 * /*****************************************************************/ 00582000 * 01S0212 00583000 * 01S0212 00584000 * /*****************************************************************/ 00585000 * /* */ 00586000 * /* VALIDATE 'APESCODE'. IF INVALID, SET TO 'INDETERMINATE-ERROR' */ 00587000 * /* VALUE (APESMXCD). */ 00588000 * /* */ 00589000 * /*****************************************************************/ 00590000 * 01S0212 00591000 * IF APESCODE<=0| /* IF ERROR CODE OUT */ 00592000 * APESCODE>APESMXCD THEN /* OF RANGE, SET TO */ 00593000 CLI APESCODE(RAPESPTR),0 01S0212 00594000 BNH @RT00212 01S0212 00595000 CLC APESCODE(1,RAPESPTR),APESMXCD(RAPESPTR) 01S0212 00596000 BNH @RF00212 01S0212 00597000 @RT00212 DS 0H 01S0213 00598000 * APESCODE=APESMXCD; /* 'INDETERMINATE' ERROR VALUE. */ 00599000 * 01S0213 00600000 IC @04,APESMXCD(,RAPESPTR) 01S0213 00601000 STC @04,APESCODE(,RAPESPTR) 01S0213 00602000 * /*****************************************************************/ 00603000 * /* */ 00604000 * /* USE APESCODE TO INDEX INTO MESSAGE MODULE IGTMBR TO CONSTRUCT */ 00605000 * /* THE ERROR MESSAGE. */ 00606000 * /* */ 00607000 * /*****************************************************************/ 00608000 * 01S0214 00609000 * MXMSG=''; /* INITIALIZE MESSAGE AREA */ 00610000 @RF00212 MVI MXMSG(R1P),C' ' 01S0214 00611000 MVC MXMSG+1(80,R1P),MXMSG(R1P) 01S0214 00612000 * MXSSID=APCTSSID; /* SUBSYSTEM NAME (VPSS) */ 00613000 MVC MXSSID(4,R1P),APCTSSID(APCTPTR) 01S0215 00614000 * DINDEX=APESMVMS(APESCODE); /* MESSAGE NUMBER */ 00615000 SLR @15,@15 01S0216 00616000 IC @15,APESCODE(,RAPESPTR) 01S0216 00617000 SLA @15,3 01S0216 00618000 L @14,APESAPMV(,RAPESPTR) 01S0216 00619000 AL @14,@CF02635 01S0216 00620000 LH DINDEX,APESMVMS(@15,@14) 01S0216 00621000 * DMSGPTR=ADDR(APMVMSG); /* POINT TO APPROPRIATE MESSAGE. */ 00622000 L @15,APCTZMBR(,APCTPTR) 01S0217 00623000 L @15,APMVHMSG(,@15) 01S0217 00624000 LR DMSGPTR,@15 01S0217 00625000 * IF DINDEX<=APMVMNBR& /* IF OUT OF RANGE */ 00626000 * DINDEX>0 THEN /* THEN USE */ 00627000 C DINDEX,APMVMNBR(,@15) 01S0218 00628000 BH @RF00218 01S0218 00629000 LTR DINDEX,DINDEX 01S0218 00630000 BNP @RF00218 01S0218 00631000 * DMSGPTR=DMSGPTR+DINDEX*LENGTH(APMVMMSG);/* MSG 0. */ 00632000 LR @00,DINDEX 01S0219 00633000 MH @00,@CH00064 01S0219 00634000 ALR DMSGPTR,@00 01S0219 00635000 * MXMSGV=DMSGPTR->APMVMMSG; /* MOVE MSG TO SDWA */ 00636000 @RF00218 MVC MXMSGV(15,R1P),APMVMMSG(DMSGPTR) 01S0220 00637000 * DINDEX=APESMVKW(APESCODE); /* KEYWORD NUMBER */ 00638000 SLR @15,@15 01S0221 00639000 IC @15,APESCODE(,RAPESPTR) 01S0221 00640000 SLA @15,3 01S0221 00641000 L @14,APESAPMV(,RAPESPTR) 01S0221 00642000 AL @14,@CF02636 01S0221 00643000 LH DINDEX,APESMVKW-2(@15,@14) 01S0221 00644000 * DKEYPTR=ADDR(APMVKWD); /* POINT TO APPROPRIATE KEYWORD. */ 00645000 L @15,APCTZMBR(,APCTPTR) 01S0222 00646000 L @15,APMVHKWD(,@15) 01S0222 00647000 LR DKEYPTR,@15 01S0222 00648000 * IF DINDEX<=APMVKNBR& /* IF OUT OF RANGE */ 00649000 * DINDEX>0 THEN /* THEN USE */ 00650000 C DINDEX,APMVKNBR(,@15) 01S0223 00651000 BH @RF00223 01S0223 00652000 LTR DINDEX,DINDEX 01S0223 00653000 BNP @RF00223 01S0223 00654000 * DKEYPTR=DKEYPTR+DINDEX*LENGTH(APMVKKWD);/* KEYWORD-0 */ 00655000 LR @00,DINDEX 01S0224 00656000 SLA @00,3 01S0224 00657000 ALR DKEYPTR,@00 01S0224 00658000 * MXKYWORD=DKEYPTR->APMVKKWD; /* MOVE KEYWORD TO SDWA */ 00659000 @RF00223 MVC MXKYWORD(8,R1P),APMVKKWD(DKEYPTR) 01S0225 00660000 * CVD(APESCODE,DCVD); /* MAKE THE ERROR CODE PRINTABLE */ 00661000 SLR @04,@04 01S0226 00662000 IC @04,APESCODE(,RAPESPTR) 01S0226 00663000 CVD @04,DCVD 01S0226 00664000 * DCVD7=DCVD7|'0F'X; /* DECIMAL (01-99) AND MOVE */ 00665000 OI DCVD7,X'0F' 01S0227 00666000 * UNPK(MXCODE,DCVD); /* TO PRINT LINE. */ 00667000 UNPK MXCODE(2,R1P),DCVD(8) 01S0228 00668000 * MXMOD=SDWAMODN; /* MODULE NAME */ 00669000 MVC MXMOD(8,R1P),SDWAMODN(R1P) 01S0229 00670000 * MXFRR=SDWAREXN; /* RECOVERY ROUTINE NAME */ 00671000 MVC MXFRR(8,R1P),SDWAREXN(R1P) 01S0230 00672000 * MXSDWA='SDWA='; /* SDWA ADDRESS IDENTIFIER */ 00673000 MVC MXSDWA(5,R1P),@CC02529 01S0231 00674000 * DWORK4=ADDR(SDWA); /* CONVERT THE ADDRESS */ 00675000 ST R1P,DWORK4 01S0232 00676000 * UNPK(MXSDWAA,DCVD(2:5)); /* TO PRINTABLE HEX. */ 00677000 UNPK MXSDWAA(7,R1P),DCVD+1(4) 01S0233 00678000 * TR(MXSDWAAT,CXTRTHX); /* ADDRESS IS SIX CHARACTERS */ 00679000 TR MXSDWAAT(6,R1P),CXTRTHX 01S0234 00680000 * MXSDWAAB=' '; /* RESET LAST CHARACTER TO BLANK */ 00681000 MVI MXSDWAAB(R1P),C' ' 01S0235 00682000 * MXMSG1='SDUMP TAKEN'; /* SHOW IF ASSOCIATED SDUMP */ 00683000 MVC MXMSG1(11,R1P),@CC02532 01S0236 00684000 * IF APESFSDP=BOFF THEN /* TAKEN. BUILD MSG "(NO) SDUMP */ 00685000 TM APESFSDP(RAPESPTR),B'00100000' 01S0237 00686000 BNZ @RF00237 01S0237 00687000 * MXNO='NO'; /* TAKEN" IN LOGREC HEADER. */ 00688000 MVC MXNO(2,R1P),@CC02534 01S0238 00689000 * MXSDUMPL=LENGTH(MXSDUMP)- /* LENGTH OF SDUMP HEADER */ 00690000 * LENGTH(MXSDUMPL); /* (LENGTH FIELD NOT INCLUDED). */ 00691000 @RF00237 MVI MXSDUMPL(R1P),X'40' 01S0239 00692000 * SDWAURAL=LENGTH(MXMSG); /* LENGTH OF DATA */ 00693000 MVI SDWAURAL(R1P),X'51' 01S0240 00694000 * SDWAHEX=BOFF; /* HEX DUMP NOT NEEDED */ 00695000 * SDWAEBC=BON; /* DUMP IN EBCDIC WANTED */ 00696000 OI SDWAEBC(R1P),B'01000000' 01S0242 00697000 NI SDWAHEX(R1P),B'01111111' 01S0242 00698000 * 01S0243 00699000 * /*****************************************************************/ 00700000 * /* */ 00701000 * /* ISSUE SDUMP. IF ENTERED BECAUSE OF SETFRR, USE THE BRANCH */ 00702000 * /* ENTRY TO SDUMP. OTHERWISE ISSUE AN SVC. */ 00703000 * /* */ 00704000 * /*****************************************************************/ 00705000 * 01S0243 00706000 * IF APESFSDP=BON THEN /* IF SDUMP REQUESTED, */ 00707000 TM APESFSDP(RAPESPTR),B'00100000' 01S0243 00708000 BNO @RF00243 01S0243 00709000 * DO; /* BUILD & ISSUE REQUEST. */ 00710000 * SDWAEAS=BON; /* SERVICEABILITY DATA PROVIDED */ 00711000 OI SDWAEAS(R1P),B'00001000' 01S0245 00712000 * RFY 01S0246 00713000 * RMSGPTR RSTD; /* POINT TO SDUMP HEADER */ 00714000 * RMSGPTR=ADDR(MXSDUMP); /* MESSAGE IN THE SDWA. */ 00715000 * 01S0247 00716000 LA RMSGPTR,MXSDUMP(,R1P) 01S0247 00717000 * /*************************************************************/ 00718000 * /* */ 00719000 * /* ISSUE SDUMP (BRANCH OR SVC) */ 00720000 * /* */ 00721000 * /*************************************************************/ 00722000 * 01S0248 00723000 * GEN(MVC DXSDUMP,CXSDUMP) 01S0248 00724000 * REFS(CXSDUMP) SETS(DXSDUMP);/* INITIALIZE SDUMP LIST */ 00725000 MVC DXSDUMP,CXSDUMP 00726000 * IF APESFLLK=BON THEN /* IF LOCAL LOCK OWNED (FRR) */ 00727000 TM APESFLLK(RAPESPTR),B'00100000' 01S0249 00728000 BNO @RF00249 01S0249 00729000 * IF APESSU33=BOFF THEN /* IF SU-33 NOT APPLIED */ 00730000 TM APESSU33(RAPESPTR),B'10000000' 01S0250 00731000 BNZ @RF00250 01S0250 00732000 * GEN REFS(DXSDUMP,CVTPTR,CVTSDMP,CVTMAP,RMSGPTR,DASID1) SETS 00733000 * (DXSDUMP,R0F,R1F,R14F,R15F); 01S0251 00734000 * /* 00735000 SDUMP BRANCH=YES, LOCAL LOCK OWNED (NO SVCS) *00736000 ASID=DASID1, DUMP OUR ADDRESS SPACE *00737000 HDRAD=(RMSGPTR), TITLE *00738000 MF=(E,DXSDUMP) EXECUTE FORMAT 00739000 * ELSE /* IF SU-33 APPLIED -- */ 00740000 * GEN REFS(DXSDUMP,CVTPTR,CVTSDMP,CVTMAP,RMSGPTR,DASIDX) SETS 00741000 * (DXSDUMP,R0F,R1F,R14F,R15F); 01S0252 00742000 B @RC00250 01S0252 00743000 @RF00250 DS 0H 01S0252 00744000 * /* 00745000 AIF (NOT &SGIHASU(33)).SU33N04 SKIP IF SU-33 NOT ON 00746000 SDUMP BRANCH=YES, LOCAL LOCK OWNED (NO SVCS) *00747000 ASIDLST=DASIDX, DUMP FAILING ADDRESS SPACE + MONITOR*00748000 HDRAD=(RMSGPTR), TITLE *00749000 MF=(E,DXSDUMP) EXECUTE FORMAT 00750000 AGO .SU33Y04 SKIP EXPANSION FOR NO SU-33 00751000 .SU33N04 ANOP , SU-33 NOT APPLIED 00752000 .SU33Y04 ANOP , SDUMP WITH SU-33 PROCESSED 00753000 * ELSE /* IF BRANCH ENTRY NOT WANTED -- */ 00754000 * IF APESSU33=BOFF THEN /* IF SU-33 NOT APPLIED -- */ 00755000 B @RC00249 01S0253 00756000 @RF00249 TM APESSU33(RAPESPTR),B'10000000' 01S0253 00757000 BNZ @RF00253 01S0253 00758000 * GEN REFS(DXSDUMP,RMSGPTR) SETS(DXSDUMP,R0F,R1F,R14F,R15F); 00759000 * /* 00760000 SDUMP BRANCH=NO, LOCAL LOCK NOT OWNED *00761000 HDRAD=(RMSGPTR), TITLE *00762000 MF=(E,DXSDUMP) EXECUTE FORMAT 00763000 * ELSE /* IF SU-33 APPLIED -- */ 00764000 * GEN REFS(DXSDUMP,RMSGPTR,DASIDX) SETS(DXSDUMP,R0F,R1F,R14F, 00765000 * R15F); 01S0255 00766000 B @RC00253 01S0255 00767000 @RF00253 DS 0H 01S0255 00768000 * /* 00769000 AIF (NOT &SGIHASU(33)).SU33N05 SKIP IF SU-33 NOT ON 00770000 SDUMP BRANCH=NO, LOCAL LOCK NOT OWNED *00771000 ASIDLST=DASIDX, DUMP FAILING ADDRESS SPACE + MONITOR*00772000 HDRAD=(RMSGPTR), TITLE *00773000 MF=(E,DXSDUMP) EXECUTE FORMAT 00774000 AGO .SU33Y05 SKIP EXPANSION FOR NO SU-33 00775000 .SU33N05 ANOP , SU-33 NOT APPLIED 00776000 .SU33Y05 ANOP , SDUMP WITH SU-33 PROCESSED 00777000 * END; /* SDUMP PROCESSED */ 00778000 @RC00253 DS 0H 01S0256 00779000 @RC00249 DS 0H 01S0257 00780000 * RFY 01S0257 00781000 * RMSGPTR UNRSTD; /* DONE WITH SDUMP HEADER */ 00782000 @RF00243 DS 0H 01S0258 00783000 * R1P=RSDWAPTR; /* RE-INITIALIZE SDWA POINTER */ 00784000 * 01S0258 00785000 LR R1P,RSDWAPTR 01S0258 00786000 * /*****************************************************************/ 00787000 * /* */ 00788000 * /* IF THIS IS A RECURSION ENTRY (APESFPRV=1) OR NO RETRY IS */ 00789000 * /* WANTED (APESFRTY=1) THEN INDICATE SO IN THE SDWA. */ 00790000 * /* */ 00791000 * /*****************************************************************/ 00792000 * 01S0259 00793000 * IF APESFPRV=BON| /* IF THIS IS RECURSION ENTRY */ 00794000 * APESFRTY=BON THEN /* OR NO RETRY WANTED, */ 00795000 TM APESFPRV(RAPESPTR),B'01000000' 01S0259 00796000 BO @RT00259 01S0259 00797000 TM APESFRTY(RAPESPTR),B'00001000' 01S0259 00798000 BNO @RF00259 01S0259 00799000 @RT00259 DS 0H 01S0260 00800000 * DO; /* SETRP WKAREA(ADDR(SDWA))RC(0) */ 00801000 * RESPECIFY 01S0261 00802000 * (GPR00P, 01S0261 00803000 * GPR01P, 01S0261 00804000 * GPR14P, 01S0261 00805000 * GPR15P) RSTD; 01S0261 00806000 * GPR01P=ADDR(SDWA); 01S0262 00807000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00808000 MVI SDWARCDE(GPR01P),X'00' 01S0263 00809000 * RESPECIFY 01S0264 00810000 * (GPR00P, 01S0264 00811000 * GPR01P, 01S0264 00812000 * GPR14P, 01S0264 00813000 * GPR15P) UNRSTD; 01S0264 00814000 * END; /* NO RETRY */ 00815000 * ELSE /* IF NOT RECURSION -- */ 00816000 * 01S0266 00817000 * /***************************************************************/ 00818000 * /* */ 00819000 * /* IF NON-RECURSIVE ENTRY AND RETRY WANTED, ESTABLISH REGISTERS*/ 00820000 * /* AND INDICATE IN SDWA THAT RETRY IS WANTED. */ 00821000 * /* */ 00822000 * /***************************************************************/ 00823000 * 01S0266 00824000 * DO; /* ESTABLISH RETRY VALUES -- */ 00825000 B @RC00259 01S0266 00826000 @RF00259 DS 0H 01S0267 00827000 * SDWASRSV=APESREGS; /* RETRY REGISTERS */ 00828000 L @04,APESREGP(,RAPESPTR) 01S0267 00829000 MVC SDWASRSV(64,R1P),APESREGS(@04) 01S0267 00830000 * SDWASR00=ADDR(APES); /* 'APES' ADDRESS */ 00831000 ST RAPESPTR,SDWASR00(,R1P) 01S0268 00832000 * SDWASR01=ADDR(APESSDWA); /* SAVED 'SDWA' ADDRESS */ 00833000 LA @04,APESSDWA(,RAPESPTR) 01S0269 00834000 ST @04,SDWASR01(,R1P) 01S0269 00835000 * DO; /* SETRP WKAREA(ADDR(SDWA))RC(4)R 00836000 * ETADDR(SDWASR15->I031P)RETREGS 00837000 * (YES)FRESDWA(YES) */ 00838000 * RESPECIFY 01S0271 00839000 * (GPR00P, 01S0271 00840000 * GPR01P, 01S0271 00841000 * GPR14P, 01S0271 00842000 * GPR15P) RSTD; 01S0271 00843000 * GPR01P=ADDR(SDWA); 01S0272 00844000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 00845000 MVI SDWARCDE(GPR01P),X'04' 01S0273 00846000 * GPR01P->SDWARTYA=ADDR(SDWASR15->I031P);/* SAVE RETRY 01S0274 00847000 * ADDRESS */ 00848000 L @04,SDWASR15(,R1P) 01S0274 00849000 ST @04,SDWARTYA(,GPR01P) 01S0274 00850000 * GPR01P->SDWAFREE='1'B; /* SET FLAG TO FREE SDWA */ 00851000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 00852000 OI SDWAFREE(GPR01P),B'00001100' 01S0276 00853000 * RESPECIFY 01S0277 00854000 * (GPR00P, 01S0277 00855000 * GPR01P, 01S0277 00856000 * GPR14P, 01S0277 00857000 * GPR15P) UNRSTD; 01S0277 00858000 * END; /* FREE SDWA BEFORE RETRY */ 00859000 * END; /* SDWA UPDATED */ 00860000 * 01S0279 00861000 * /*****************************************************************/ 00862000 * /* */ 00863000 * /* SINCE APESSDWA MAY BE SUBSTITUTING AS A SAVEAREA/WORKAREA */ 00864000 * /* (ESTAE EXIT GETMAIN FAILED), AND THE REAL SDWA IS TO BE COPIED*/ 00865000 * /* TO APESSDWA, NO FURTHER REFERENCES TO THE PL/S DYNAMIC AREA OR*/ 00866000 * /* THE SAVEAREA MAY BE MADE. */ 00867000 * /* */ 00868000 * /*****************************************************************/ 00869000 * 01S0280 00870000 * GEN(DROP APDATA) 01S0280 00871000 * NOSETS REFS(APDATA); /* TELL ASSEMBLER NO DYNAMIC AREA*/ 00872000 * 01S0280 00873000 @RC00259 DS 0H 01S0280 00874000 DROP APDATA 00875000 * /*****************************************************************/ 00876000 * /* */ 00877000 * /* IF INITIAL ABEND, SAVE ERROR CODE (APESCODE) AND THE SDWA. */ 00878000 * /* THIS INSURES THE DUMP DESCRIBES THE INITIAL ABEND PROBLEM. */ 00879000 * /* */ 00880000 * /*****************************************************************/ 00881000 * 01S0281 00882000 * IF APESCOD1=0 THEN /* IF STILL 0, IS 1ST ABEND */ 00883000 CLI APESCOD1(RAPESPTR),0 01S0281 00884000 BNE @RF00281 01S0281 00885000 * DO; /* THEREFORE SAVE DATA. */ 00886000 * APESCOD1=APESCODE; /* SAVE ERROR CODE */ 00887000 IC @04,APESCODE(,RAPESPTR) 01S0283 00888000 STC @04,APESCOD1(,RAPESPTR) 01S0283 00889000 * RFY 01S0284 00890000 * (R0P, 01S0284 00891000 * R1F, 01S0284 00892000 * R14P, 01S0284 00893000 * R15F) RSTD; /* USE MVCL TO SAVE */ 00894000 * R0P=R1F; /* SDWA SINCE MORE */ 00895000 LR R0P,R1F 01S0285 00896000 * R1F=LENGTH(SDWA); /* THAN 256 BYTES LONG. */ 00897000 LA R1F,512 01S0286 00898000 * R15F=R1F; /* NOTE: AFTER MVCL, REGISTER 1 */ 00899000 LR R15F,R1F 01S0287 00900000 * R14P=ADDR(APESSDWA); /* NO LONGER POINTS TO SDWA, */ 00901000 LA R14P,APESSDWA(,RAPESPTR) 01S0288 00902000 * MVCL(R14P,R0P); /* THEREFORE MUST */ 00903000 MVCL R14P,R0P 01S0289 00904000 * RFY 01S0290 00905000 * (R0P, 01S0290 00906000 * R1F, 01S0290 00907000 * R14P, 01S0290 00908000 * R15F) UNRSTD; /* RE-INITIALIZE THE */ 00909000 * R1P=RSDWAPTR; /* SDWA POINTER */ 00910000 LR R1P,RSDWAPTR 01S0291 00911000 * APESFSDI=BOFF; /* SHOW SAVED SDWA IS VALID */ 00912000 NI APESFSDI(RAPESPTR),B'11111011' 01S0292 00913000 * END; /* 1ST ABEND PROCESSING DONE. */ 00914000 * 01S0293 00915000 * /*****************************************************************/ 00916000 * /* */ 00917000 * /* PROCESSING COMPLETE. IF THE SAVEAREA/WORKAREA WAS OBTAINED VIA*/ 00918000 * /* A GETMAIN (APESFGM=1) THEN FREE THE STORAGE BEFORE EXITING. */ 00919000 * /* RETURN TO ABEND TO EITHER CONTINUE THE ABEND OR SCHEDULE A */ 00920000 * /* RETRY ROUTINE. */ 00921000 * /* */ 00922000 * /*****************************************************************/ 00923000 * 01S0294 00924000 * IF APESFGM=BON THEN /* IF GETMAIN ISSUED, */ 00925000 @RF00281 TM APESFGM(RAPESPTR),B'00001000' 01S0294 00926000 BNO @RF00294 01S0294 00927000 * DO; /* THEN FREE STORAGE. */ 00928000 * GEN(FREEMAIN R,LV=200,SP=253,A=(APDATA)) 01S0296 00929000 * REFS(APDATA); /* APDATA POINTS TO ACQUIRED AREA*/ 00930000 FREEMAIN R,LV=200,SP=253,A=(APDATA) 00931000 * R1P=RSDWAPTR; /* RE-ESTABLISH SDWA POINTER (R1)*/ 00932000 LR R1P,RSDWAPTR 01S0297 00933000 * END; /* STORAGE FREED. */ 00934000 * APESFPRV=BON; /* SHOW RETRY SCHEDULED. RETRY 00935000 * ROUTINE MUST RESET WHEN 01S0299 00936000 * RECOVERY COMPLETE. */ 00937000 @RF00294 OI APESFPRV(RAPESPTR),B'01000000' 01S0299 00938000 * RFY 01S0300 00939000 * R14P RSTD; /* HOLDS RETURN ADDRESS */ 00940000 * R14P=APESR14S; /* R14P = INPUT VALUE OF R14 */ 00941000 L R14P,APESR14S(,RAPESPTR) 01S0301 00942000 * RETURN; /* RETURN TO ABEND MODULE */ 00943000 B @EL00001 01S0302 00944000 * RFY 01S0303 00945000 * R14P UNRSTD; /* FINISHED WITH R14 */ 00946000 * RFY 01S0304 00947000 * (SDWA, 01S0304 00948000 * APES); /* FINISHED WITH SDWA AND APES */ 00949000 * RFY 01S0305 00950000 * (R1P, 01S0305 00951000 * RSDWAPTR, 01S0305 00952000 * RAPESPTR) UNRSTD; /* RELEASE REGISTER POINTERS */ 00953000 EJECT 00954000 * /* IGTXEPLG */ 00955000 * 01S0306 00956000 * /*****************************************************************/ 00957000 * /* */ 00958000 * /* SYSTEM DECLARES */ 00959000 * /* */ 00960000 * /*****************************************************************/ 00961000 * 01S0306 00962000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00963000 * GPR00P PTR(31) REG(0), 01S0306 00964000 * GPR01P PTR(31) REG(1), 01S0306 00965000 * GPR14P PTR(31) REG(14), 01S0306 00966000 * GPR15P PTR(31) REG(15); 01S0306 00967000 * DECLARE /* COMMON VARIABLES */ 00968000 * I256C CHAR(256) BASED, 01S0307 00969000 * I031F FIXED(31) BASED, 01S0307 00970000 * I031P PTR(31) BASED, 01S0307 00971000 * I015F FIXED(15) BASED, 01S0307 00972000 * I015P PTR(15) BASED, 01S0307 00973000 * I008P PTR(8) BASED, 01S0307 00974000 * I001C CHAR(1) BASED; 01S0307 00975000 * 01S0308 00976000 * /*****************************************************************/ 00977000 * /* */ 00978000 * /* MODULE PATCH AREA */ 00979000 * /* */ 00980000 * /*****************************************************************/ 00981000 * 01S0308 00982000 * DCL 01S0308 00983000 * APPATCH CHAR(*) INT STATIC LOCAL GEND; 01S0308 00984000 * GENERATE DATA DEFS(APPATCH); 01S0309 00985000 * 01S0310 00986000 * /*****************************************************************/ 00987000 * /* */ 00988000 * /* GENERAL REGISTER DECLARES */ 00989000 * /* */ 00990000 * /*****************************************************************/ 00991000 * 01S0310 00992000 * DCL 01S0310 00993000 * R0F FIXED(31) REG(0), 01S0310 00994000 * R0P PTR(24) REG(0), 01S0310 00995000 * R0RSTD PTR(31) REG(0), 01S0310 00996000 * R1F FIXED(31) REG(1), 01S0310 00997000 * R1P PTR(24) REG(1), 01S0310 00998000 * R1RSTD PTR(31) REG(1), 01S0310 00999000 * R2F FIXED(31) REG(2), 01S0310 01000000 * R2P PTR(24) REG(2), 01S0310 01001000 * R2RSTD PTR(31) REG(2), 01S0310 01002000 * R3F FIXED(31) REG(3), 01S0310 01003000 * R3P PTR(24) REG(3), 01S0310 01004000 * R3RSTD PTR(31) REG(3), 01S0310 01005000 * R4F FIXED(31) REG(4), 01S0310 01006000 * R4P PTR(24) REG(4), 01S0310 01007000 * R4RSTD PTR(31) REG(4), 01S0310 01008000 * R5F FIXED(31) REG(5), 01S0310 01009000 * R5P PTR(24) REG(5), 01S0310 01010000 * R5RSTD PTR(31) REG(5), 01S0310 01011000 * R6F FIXED(31) REG(6), 01S0310 01012000 * R6P PTR(24) REG(6), 01S0310 01013000 * R6RSTD PTR(31) REG(6), 01S0310 01014000 * R7F FIXED(31) REG(7), 01S0310 01015000 * R7P PTR(24) REG(7), 01S0310 01016000 * R7RSTD PTR(31) REG(7), 01S0310 01017000 * R8F FIXED(31) REG(8), 01S0310 01018000 * R8P PTR(24) REG(8), 01S0310 01019000 * R8RSTD PTR(31) REG(8), 01S0310 01020000 * R9F FIXED(31) REG(9), 01S0310 01021000 * R9P PTR(24) REG(9), 01S0310 01022000 * R9RSTD PTR(31) REG(9), 01S0310 01023000 * R10F FIXED(31) REG(10), 01S0310 01024000 * R10P PTR(24) REG(10), 01S0310 01025000 * R10RSTD PTR(31) REG(10), 01S0310 01026000 * R11F FIXED(31) REG(11), 01S0310 01027000 * R11P PTR(24) REG(11), 01S0310 01028000 * R11RSTD PTR(31) REG(11), 01S0310 01029000 * R12F FIXED(31) REG(12), 01S0310 01030000 * R12P PTR(24) REG(12), 01S0310 01031000 * R12RSTD PTR(31) REG(12), 01S0310 01032000 * R13F FIXED(31) REG(13), 01S0310 01033000 * R13P PTR(24) REG(13), 01S0310 01034000 * R13RSTD PTR(31) REG(13), 01S0310 01035000 * R14F FIXED(31) REG(14), 01S0310 01036000 * R14P PTR(24) REG(14), 01S0310 01037000 * R14RSTD PTR(31) REG(14), 01S0310 01038000 * R15F FIXED(31) REG(15), 01S0310 01039000 * R15P PTR(24) REG(15), 01S0310 01040000 * R15RSTD PTR(31) REG(15), 01S0310 01041000 * 01S0310 01042000 * /***************************************************************/ 01043000 * /* */ 01044000 * /* VPSS CONTROL BLOCK POINTER DECLARES */ 01045000 * /* */ 01046000 * /***************************************************************/ 01047000 * 01S0310 01048000 * APSMPTR PTR(24) REG(01), /* STORAGE MANAGEMENT BLOCK 01S0310 01049000 * (SUGGESTED POINTER) */ 01050000 * APSCPTR PTR(24) REG(01), /* STORAGE MANAGEMENT CONTROL 01051000 * WORD (SUGGESTED POINTER) */ 01052000 * APINPTR PTR(24) REG(01), /* USER'S INPUT PARAMETER LIST 01053000 * (SUGGESTED POINTER) */ 01054000 */* */ 01055000 * 01S0310 01056000 * APDATA PTR(24) REG(06), /* ADDRESS OF DYNAMIC DATA 01S0310 01057000 * WORKAREA (DATAREG) */ 01058000 * APCODE PTR(24) REG(07), /* PROGRAM CODE BASE REGISTER 01059000 * (CODEREG) */ 01060000 * APDEBPTR PTR(24) REG(08), /* VPSS DEB (SUGGESTED POINTER) */ 01061000 * APNPPTR PTR(24) REG(08), /* SUBSYSTEM INITIALIZATION 01S0310 01062000 * WORKAREA BLOCK (ONLY USED BY 01063000 * SUBSYSTEM INITIALIZATION) */ 01064000 * APRLPTR PTR(24) REG(08), /* VPSS ACB REQUEST LIST 01S0310 01065000 * (SUGGESTED POINTER) */ 01066000 * APCIPTR PTR(24) REG(08), /* 3838 CONTROL TABLE (SUGGESTED 01067000 * POINTER) */ 01068000 * APCWPTR PTR(24) REG(08), /* CALL INTERFACE WORKAREA 01S0310 01069000 * (SUGGESTED POINTER) */ 01070000 * APERPTR PTR(24) REG(08), /* ERP/IO APPENDAGE WORKAREA 01071000 * (SUGGESTED POINTER) */ 01072000 * APACBPTR PTR(24) REG(09), /* VPSS ACB (SUGGESTED POINTER) */ 01073000 * APCQPTR PTR(24) REG(09), /* COMMAND QUEUE ELEMENT 01S0310 01074000 * (SUGGESTED POINTER) */ 01075000 * APOTPTR PTR(24) REG(09), /* OPTION TABLE (SUGGESTED 01S0310 01076000 * POINTER) */ 01077000 * APIOPTR PTR(24) REG(10), /* I/O ELEMENT (SUGGESTED 01S0310 01078000 * POINTER) */ 01079000 * APEXLPTR PTR(24) REG(10), /* VPSS EXLST (SUGGESTED POINTER)*/ 01080000 * APUBPTR PTR(24) REG(10), /* UNIT BLOCK (SUGGESTED POINTER)*/ 01081000 * APAXPTR PTR(24) REG(10), /* VPSS ACB EXTENSION (SUGGESTED 01082000 * POINTER) */ 01083000 * APCPPTR PTR(24) REG(10), /* VPSS CALL PROCESSING 01S0310 01084000 * INDICATORS (SUGGESTED POINTER)*/ 01085000 * APOCPTR PTR(24) REG(10), /* VPSS OPEN/CLOSE SUBSYSTEM 01086000 * WORKAREA (REQUIRED POINTER) */ 01087000 * APATPTR PTR(24) REG(11), /* VPSS ACB TABLE (SUGGESTED 01088000 * POINTER) */ 01089000 * APLBPTR PTR(24) REG(11), /* LABEL RESOLUTION TABLE 01S0310 01090000 * (SUGGESTED POINTER) */ 01091000 * APUTPTR PTR(24) REG(11), /* USER TABLE (SUGGESTED POINTER)*/ 01092000 * APDSPTR PTR(24) REG(11), /* VPSS DATASET ENTRY (SUGGESTED 01093000 * POINTER) */ 01094000 * APXLPTR PTR(24) REG(11), /* TRANSLATION TABLE (SUGGESTED 01095000 * POINTER) */ 01096000 * APDXPTR PTR(24) REG(11), /* VPSS DEB EXTENSION (SUGGESTED 01097000 * POINTER) */ 01098000 * APCTPTR PTR(24) REG(12) RSTD, /* CONTROL TABLE (REQUIRED 01S0310 01099000 * POINTER) */ 01100000 * APSVPTR PTR(24) REG(13) RSTD, /* OS/VPSS SAVEAREA/WORKAREA 01101000 * (REQUIRED POINTER) */ 01102000 * APRETURN PTR(24) REG(14), /* RETURN ADDRESS FOR SUBROUTINE 01103000 * LINKAGE */ 01104000 * APENTRY PTR(24) REG(15), /* SUBROUTINE ENTRY POINT LINKAGE*/ 01105000 * APRCODE PTR(24) REG(15); /* CONTAINS SUBROUTINE RETURN 01106000 * CODE */ 01107000 * 01S0311 01108000 * /*****************************************************************/ 01109000 * /* */ 01110000 * /* USER REGISTER DECLARES */ 01111000 * /* */ 01112000 * /*****************************************************************/ 01113000 * 01S0311 01114000 * DCL /* LOCAL REGISTERS */ 01115000 * RMSGPTR PTR(24) REG(02), /* POINT TO SDUMP TITLE LOCATED 01116000 * IN THE SDWA VARIABLE AREA */ 01117000 * RSDWAPTR PTR(24) REG(03), /* NON-VOLITILE REGISTER TO HOLD 01118000 * SDWA ADDRESS--R1P IS SDWA BASE*/ 01119000 * RAPESPTR PTR(24) REG(05); /* APES REGISTER BASE */ 01120000 * END IGTUKA 01S0312 01121000 * 01S0312 01122000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01123000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01124000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01125000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01126000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 01127000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01128000 */*%INCLUDE SYSLIB (CVT ) */ 01129000 */*%INCLUDE SYSLIB (IHASUBIT) */ 01130000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01131000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01132000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01133000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01134000 */*%INCLUDE SYSLIB (IGTXAPES) */ 01135000 */*%INCLUDE SYSLIB (IGTXAPCT) */ 01136000 */*%INCLUDE SYSLIB (IGTXAPMV) */ 01137000 * 01S0312 01138000 * ; 01S0312 01139000 B @EL00001 01S0312 01140000 @DATA DS 0H 01141000 @CH00064 DC H'15' 01142000 @DATD DSECT 01143000 DS 0F 01144000 IGTUKA CSECT 01145000 DS 0F 01146000 @CF00045 DC F'4' 01147000 @CF02492 DC F'12' 01148000 @CF02635 DC F'-8' 01149000 @CF02636 DC F'-6' 01150000 @CF02632 DC XL4'0000FFFF' 01151000 @CF02515 DC XL4'8000' 01152000 @DATD DSECT 01153000 DS 0D 01154000 DASIDX DS CL4 01155000 ORG DASIDX 01156000 DASID1 DS FL2 01157000 DASID2 DS FL2 01158000 ORG DASIDX+4 01159000 DS CL4 01160000 DCVD DS CL8 01161000 ORG DCVD 01162000 @NM00139 DS CL7 01163000 ORG @NM00139 01164000 DWORK4 DS FL4 01165000 ORG DCVD+7 01166000 DCVD7 DS CL1 01167000 ORG DCVD+8 01168000 DSVEAREA DS CL72 01169000 IGTUKA CSECT 01170000 NOPR ((@ENDDATD-@DATD)/201*16) 01171000 DS 0F 01172000 @SIZDATD DC AL1(0) 01173000 DC AL3(@ENDDATD-@DATD) 01174000 DS 0D 01175000 @CC02532 DC C'SDUMP TAKEN' 01176000 @CC02524 DC C'IGTUKA ' 01177000 @CC02529 DC C'SDWA=' 01178000 @CC02134 DC C'APES' 01179000 @CC02534 DC C'NO' 01180000 CCSECT DC CL24'UNKNOWN UNKNOWN IGTUKA ' 01181000 @DATD DSECT 01182000 * /* 01183000 AIF (NOT &SGIHASU(33)).SU33N03 SKIP IF SU-33 NOT ON 01184000 DXSDUMP1 SDUMP HDRAD=*-*, TITLE ADDRESS ADDED BY EXECUTE *01185000 SDATA=(SQA,ALLPSA,NUC,RGN,TRT,CSA,LPA), DUMP OPTIONS *01186000 BUFFER=NO, SQA BUFFER NOT WANTED *01187000 QUIESCE=YES, STATIC PICTURE OF SQA/CSA *01188000 MF=L MACRO LIST FORMAT WANTED 01189000 AGO .SU33Y03 SKIP EXPANSION FOR NO SU-33 01190000 .SU33N03 ANOP , SU-33 NOT APPLIED 01191000 DXSDUMP1 SDUMP HDRAD=*-*, TITLE ADDRESS ADDED BY EXECUTE *01192000 SDATA=(SQA,ALLPSA,NUC,RGN,TRT,CSA,LPA), DUMP OPTIONS *01193000 BUFFER=NO, SQA BUFFER NOT WANTED *01194000 QUIESCE=YES, STATIC PICTURE OF SQA/CSA *01195000 MF=L MACRO LIST FORMAT WANTED 01196000 .SU33Y03 ANOP , DXSDUMP NOW GENERATED 01197000 DXSDUMP EQU DXSDUMP1,*-DXSDUMP1,C'C' MAKE DXSDUMP START AT SDUMP *01198000 MACRO & COVER ENTIRE EXPANSION 01199000 SPACE 3 01200000 IGTUKA CSECT 01201000 * /* 01202000 AIF (NOT &SGIHASU(33)).SU33N01 SKIP IF SU-33 NOT ON 01203000 CXSDUMP1 SDUMP HDRAD=*-*, TITLE ADDRESS ADDED BY EXECUTE *01204000 SDATA=(SQA,ALLPSA,NUC,RGN,TRT,CSA,LPA), DUMP OPTIONS *01205000 BUFFER=NO, SQA BUFFER NOT WANTED *01206000 QUIESCE=YES, STATIC PICTURE OF SQA/CSA *01207000 MF=L MACRO LIST FORMAT WANTED 01208000 AGO .SU33Y01 SKIP EXPANSION FOR NO SU-33 01209000 .SU33N01 ANOP , SU-33 NOT APPLIED 01210000 CXSDUMP1 SDUMP HDRAD=*-*, TITLE ADDRESS ADDED BY EXECUTE *01211000 SDATA=(SQA,ALLPSA,NUC,RGN,TRT,CSA,LPA), DUMP OPTIONS *01212000 BUFFER=NO, SQA BUFFER NOT WANTED *01213000 QUIESCE=YES, STATIC PICTURE OF SQA/CSA *01214000 MF=L MACRO LIST FORMAT WANTED 01215000 .SU33Y01 ANOP , CXSDUMP NOW GENERATED 01216000 CXSDUMP EQU CXSDUMP1,*-CXSDUMP1,C'C' MAKE CXSDUMP START AT SDUMP *01217000 MACRO & COVER ENTIRE EXPANSION 01218000 SPACE 3 01219000 IGTUKA CSECT 01220000 AIF (NOT &SGIHASU(33)).SU33N02 SKIP IF SU-33 NOT ON 01221000 CXSNAP1 SNAP SDATA=(CB,Q,LSQA,TRT,DM,IO,ERR), REQUIRED SYSTEM DATA *01222000 MF=L * WITH SU-33 01223000 AGO .SU33Y02 SKIP NON-SU33 EXPANSION 01224000 .SU33N02 ANOP , SU-33 NOT APPLIED 01225000 CXSNAP1 SNAP SDATA=(CB,Q,LSQA,TRT), REQUIRED SYSTEM DATA *01226000 MF=L * WITH SU-33 NOT APPLIED 01227000 .SU33Y02 ANOP , SNAP MACRO NOW EXPANDED 01228000 CXSNAP EQU CXSNAP1,*-CXSNAP1,C'C' MAKE CXSNAP START AT SNAP *01229000 MACRO & COVER ENTIRE EXPANSION 01230000 IGTUKA CSECT 01231000 * /* 'APESEXRA' EXIT CODE 01232000 CUXINSTR LM R0F,R14F,8(R14F) RELOAD SAVED REGISTERS 01233000 B LUEXIT RETURN TO MAINLINE CODE 01234000 IGTUKA CSECT 01235000 * /* 01236000 SPACE 1 01237000 ORG *-C'0' ELIMINATE UNUSED POSITIONS 01238000 CXTRTHX DS 0CL256 TRANSLATION TABLE 01239000 ORG *+C'0' SKIP TO FIRST NEEDED SLOT 01240000 DC C'0123456789ABCDEF' PRINTABLE VALUES 01241000 ORG , SKIP TO END 01242000 IGTUKA CSECT 01243000 * /* GENERATE PATCH 01244000 IGTXZAP , GENERATE PATCH AREA 01245000 @DATD DSECT 01246000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01247000 @ENDDATD EQU * 01248000 IGTUKA CSECT 01249000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01250000 @01 EQU 01 01251000 @02 EQU 02 01252000 @03 EQU 03 01253000 @04 EQU 04 01254000 @05 EQU 05 01255000 @06 EQU 06 01256000 @07 EQU 07 01257000 @08 EQU 08 01258000 @09 EQU 09 01259000 @10 EQU 10 01260000 @11 EQU 11 01261000 @12 EQU 12 01262000 @13 EQU 13 01263000 @14 EQU 14 01264000 @15 EQU 15 01265000 DKEYPTR EQU @04 01266000 DMSGPTR EQU @04 01267000 DINDEX EQU @02 01268000 APCODE EQU @07 01269000 FRRSPTR EQU @00 01270000 FRREPTR EQU @00 01271000 SDWAPTR EQU @00 01272000 APCTPTR EQU @12 01273000 R0F EQU @00 01274000 R14F EQU @14 01275000 R1P EQU @01 01276000 R14P EQU @14 01277000 RAPESPTR EQU @05 01278000 GPR00P EQU @00 01279000 GPR01P EQU @01 01280000 GPR14P EQU @14 01281000 GPR15P EQU @15 01282000 RSDWAPTR EQU @03 01283000 APDATA EQU @06 01284000 R15F EQU @15 01285000 R13P EQU @13 01286000 R0P EQU @00 01287000 R15P EQU @15 01288000 R2P EQU @02 01289000 RMSGPTR EQU @02 01290000 R1F EQU @01 01291000 APSVPTR EQU @13 01292000 APACBPTR EQU @09 01293000 APATPTR EQU @11 01294000 APAXPTR EQU @10 01295000 APCIPTR EQU @08 01296000 APCPPTR EQU @10 01297000 APCQPTR EQU @09 01298000 APCWPTR EQU @08 01299000 APDEBPTR EQU @08 01300000 APDSPTR EQU @11 01301000 APDXPTR EQU @11 01302000 APENTRY EQU @15 01303000 APERPTR EQU @08 01304000 APEXLPTR EQU @10 01305000 APINPTR EQU @01 01306000 APIOPTR EQU @10 01307000 APLBPTR EQU @11 01308000 APNPPTR EQU @08 01309000 APOCPTR EQU @10 01310000 APOTPTR EQU @09 01311000 APRCODE EQU @15 01312000 APRETURN EQU @14 01313000 APRLPTR EQU @08 01314000 APSCPTR EQU @01 01315000 APSMPTR EQU @01 01316000 APUBPTR EQU @10 01317000 APUTPTR EQU @11 01318000 APXLPTR EQU @11 01319000 R0RSTD EQU @00 01320000 R1RSTD EQU @01 01321000 R10F EQU @10 01322000 R10P EQU @10 01323000 R10RSTD EQU @10 01324000 R11F EQU @11 01325000 R11P EQU @11 01326000 R11RSTD EQU @11 01327000 R12F EQU @12 01328000 R12P EQU @12 01329000 R12RSTD EQU @12 01330000 R13F EQU @13 01331000 R13RSTD EQU @13 01332000 R14RSTD EQU @14 01333000 R15RSTD EQU @15 01334000 R2F EQU @02 01335000 R2RSTD EQU @02 01336000 R3F EQU @03 01337000 R3P EQU @03 01338000 R3RSTD EQU @03 01339000 R4F EQU @04 01340000 R4P EQU @04 01341000 R4RSTD EQU @04 01342000 R5F EQU @05 01343000 R5P EQU @05 01344000 R5RSTD EQU @05 01345000 R6F EQU @06 01346000 R6P EQU @06 01347000 R6RSTD EQU @06 01348000 R7F EQU @07 01349000 R7P EQU @07 01350000 R7RSTD EQU @07 01351000 R8F EQU @08 01352000 R8P EQU @08 01353000 R8RSTD EQU @08 01354000 R9F EQU @09 01355000 R9P EQU @09 01356000 R9RSTD EQU @09 01357000 PSA EQU 0 01358000 FLCRNPSW EQU PSA 01359000 FLCROPSW EQU PSA+8 01360000 FLCICCW2 EQU PSA+16 01361000 FLCCVT EQU FLCICCW2 01362000 PSAEEPSW EQU PSA+132 01363000 PSAESPSW EQU PSA+136 01364000 FLCSVILC EQU PSAESPSW+1 01365000 PSAEPPSW EQU PSA+140 01366000 FLCPIILC EQU PSAEPPSW+1 01367000 FLCPICOD EQU PSAEPPSW+2 01368000 PSAPICOD EQU FLCPICOD+1 01369000 FLCTEA EQU PSAEPPSW+4 01370000 FLCPER EQU PSA+152 01371000 FLCMCLA EQU PSA+168 01372000 FLCIOEL EQU FLCMCLA+4 01373000 FLCIOA EQU FLCMCLA+16 01374000 FLCFSA EQU FLCMCLA+80 01375000 PSATOLD EQU PSA+540 01376000 PSAAOLD EQU PSA+548 01377000 PSASUPER EQU PSA+552 01378000 PSASUP1 EQU PSASUPER 01379000 PSASUP2 EQU PSASUPER+1 01380000 PSASUP3 EQU PSASUPER+2 01381000 PSASUP4 EQU PSASUPER+3 01382000 PSACLHT EQU PSA+640 01383000 PSALKSA EQU PSA+696 01384000 PSAHLHI EQU PSA+760 01385000 PSADSSFL EQU PSA+836 01386000 PSADSSF1 EQU PSADSSFL 01387000 PSADSSF3 EQU PSADSSFL+2 01388000 PSADSSF4 EQU PSADSSFL+3 01389000 PSARSVT EQU PSA+896 01390000 CVTMAP EQU 0 01391000 CVTDAR EQU CVTMAP+72 01392000 CVTFLGS1 EQU CVTDAR 01393000 CVTDCB EQU CVTMAP+116 01394000 CVTIERLC EQU CVTMAP+144 01395000 CVTOPTA EQU CVTMAP+182 01396000 CVTOPTB EQU CVTMAP+183 01397000 CVTGTF EQU CVTMAP+236 01398000 CVTGTFST EQU CVTGTF 01399000 CVTGTFS EQU CVTGTFST 01400000 CVTSTATE EQU CVTGTFST 01401000 CVTTMODE EQU CVTGTFST 01402000 CVTFORM EQU CVTGTFST 01403000 CVTAQAVT EQU CVTMAP+240 01404000 CVTTCMFG EQU CVTAQAVT 01405000 CVTVOLM2 EQU CVTMAP+244 01406000 CVTTATA EQU CVTVOLM2 01407000 CVTTSKS EQU CVTTATA 01408000 CVTVOLF2 EQU CVTTSKS 01409000 CVTTAT EQU CVTTATA+1 01410000 CVTATER EQU CVTMAP+248 01411000 CVTEXT1 EQU CVTMAP+252 01412000 CVTPURG EQU CVTMAP+260 01413000 CVTQMSG EQU CVTMAP+268 01414000 CVTDMSR EQU CVTMAP+272 01415000 CVTRSV37 EQU CVTDMSR 01416000 CVTDMSRF EQU CVTRSV37 01417000 CVTERPV EQU CVTMAP+316 01418000 CVTINTLA EQU CVTMAP+320 01419000 CVTAPF EQU CVTMAP+324 01420000 CVTEXT2 EQU CVTMAP+328 01421000 CVTHJES EQU CVTMAP+332 01422000 CVTPGSIA EQU CVTMAP+348 01423000 CVTA1F1 EQU CVTMAP+356 01424000 CVTSYSK EQU CVTMAP+357 01425000 CVTVOLM1 EQU CVTMAP+380 01426000 CVTVOLF1 EQU CVTVOLM1 01427000 CVTATMCT EQU CVTMAP+388 01428000 CVTXTNT1 EQU 0 01429000 CVTXTNT2 EQU 0 01430000 CVTDSSV EQU CVTXTNT2 01431000 CVTFLGBT EQU CVTXTNT2+5 01432000 CVTQID EQU CVTXTNT2+24 01433000 CVTRV400 EQU CVTXTNT2+52 01434000 CVTRV409 EQU CVTXTNT2+53 01435000 CVTATCVT EQU CVTXTNT2+64 01436000 CVTRV429 EQU CVTXTNT2+84 01437000 CVTRV438 EQU CVTXTNT2+85 01438000 CVTRV457 EQU CVTXTNT2+112 01439000 CVTRV466 EQU CVTXTNT2+113 01440000 CVTFIX EQU 0 01441000 CVTRELNO EQU CVTFIX+252 01442000 SUBITS EQU 0 01443000 SUBYTE1 EQU SUBITS 01444000 SUBYTE2 EQU SUBITS+1 01445000 SUBYTE3 EQU SUBITS+2 01446000 SUBYTE4 EQU SUBITS+3 01447000 SUBYTE5 EQU SUBITS+4 01448000 SU33BIT EQU SUBYTE5 01449000 SUBYTE6 EQU SUBITS+5 01450000 SUBYTE7 EQU SUBITS+6 01451000 SUBYTE8 EQU SUBITS+7 01452000 SUBYTE9 EQU SUBITS+8 01453000 SUBYTE10 EQU SUBITS+9 01454000 SUBYTE11 EQU SUBITS+10 01455000 SUBYTE12 EQU SUBITS+11 01456000 SUBYTE13 EQU SUBITS+12 01457000 FRRS EQU 0 01458000 FRRSHEAD EQU FRRS 01459000 FRRSENTR EQU 0 01460000 FRRSFLGS EQU FRRSENTR+4 01461000 FRRSFLG1 EQU FRRSFLGS 01462000 ASCB EQU 0 01463000 ASCBSUPC EQU ASCB+16 01464000 ASCBASID EQU ASCB+36 01465000 ASCBFW1 EQU ASCB+100 01466000 ASCBRCTF EQU ASCBFW1+2 01467000 ASCBFLG1 EQU ASCBFW1+3 01468000 ASCBDSP1 EQU ASCB+114 01469000 ASCBFLG2 EQU ASCB+115 01470000 ASCBLKGP EQU ASCB+128 01471000 ASCBSRQ EQU ASCB+180 01472000 ASCBSRQ1 EQU ASCBSRQ 01473000 ASCBSRQ2 EQU ASCBSRQ+1 01474000 ASCBSRQ3 EQU ASCBSRQ+2 01475000 ASCBSRQ4 EQU ASCBSRQ+3 01476000 TCBFIX EQU 0 01477000 TCBFRS EQU TCBFIX 01478000 TCB EQU 0 01479000 TCBPIE EQU TCB+4 01480000 TCBPMASK EQU TCBPIE 01481000 TCBCMP EQU TCB+16 01482000 TCBCMPF EQU TCBCMP 01483000 TCBCPP EQU TCBCMPF 01484000 TCBSTCC EQU TCBCMPF 01485000 TCBCDBL EQU TCBCMPF 01486000 TCBCWTO EQU TCBCMPF 01487000 TCBCIND EQU TCBCMPF 01488000 TCBCMSG EQU TCBCMPF 01489000 TCBTRN EQU TCB+20 01490000 TCBABF EQU TCBTRN 01491000 TCBMSS EQU TCB+24 01492000 TCBPKF EQU TCB+28 01493000 TCBFLGS EQU TCB+29 01494000 TCBFLGS1 EQU TCBFLGS 01495000 TCBFLGS2 EQU TCBFLGS+1 01496000 TCBFLGS3 EQU TCBFLGS+2 01497000 TCBFLGS4 EQU TCBFLGS+3 01498000 TCBFLGS5 EQU TCBFLGS+4 01499000 TCBABWF EQU TCBFLGS5 01500000 TCBJPQ EQU TCB+44 01501000 TCBPURGE EQU TCBJPQ 01502000 TCBGRS EQU TCB+48 01503000 TCBFSA EQU TCB+112 01504000 TCBTME EQU TCB+120 01505000 TCBJSTCB EQU TCB+124 01506000 TCBTSFLG EQU TCB+148 01507000 TCBTSTSK EQU TCBTSFLG 01508000 TCBSTAB EQU TCB+160 01509000 TCBNSTAE EQU TCBSTAB 01510000 TCBTCT EQU TCB+164 01511000 TCBTCTGF EQU TCBTCT 01512000 TCBSCNDY EQU TCB+172 01513000 TCBNDSP EQU TCBSCNDY 01514000 TCBNDSP1 EQU TCBNDSP+1 01515000 TCBNDSP2 EQU TCBNDSP+2 01516000 TCBNDSP3 EQU TCBNDSP+3 01517000 TCBJSCB EQU TCB+180 01518000 TCBRECDE EQU TCBJSCB 01519000 TCBEXT1 EQU TCB+196 01520000 TCBBITS EQU TCB+200 01521000 TCBNDSP4 EQU TCBBITS 01522000 TCBNDSP5 EQU TCBBITS+1 01523000 TCBFLGS6 EQU TCBBITS+2 01524000 TCBFLGS7 EQU TCBBITS+3 01525000 TCBDAR EQU TCB+204 01526000 TCBDARC EQU TCBDAR 01527000 TCBEXT2 EQU TCB+208 01528000 TCBXSCT EQU TCB+240 01529000 TCBXSCT1 EQU TCBXSCT 01530000 TCBFOE EQU TCB+244 01531000 TCBESTAE EQU TCB+264 01532000 TCBESTRM EQU TCBESTAE+1 01533000 TCBFBYT1 EQU TCB+276 01534000 TCBFBYT2 EQU TCB+277 01535000 TCBRV124 EQU TCB+278 01536000 TCBRV133 EQU TCB+279 01537000 TCBXTNT2 EQU 0 01538000 TCBGTF EQU TCBXTNT2 01539000 TCBTFLG EQU TCBGTF 01540000 TCBRV146 EQU TCBXTNT2+28 01541000 TCBRV155 EQU TCBXTNT2+29 01542000 TCBRV164 EQU TCBXTNT2+30 01543000 TCBRV173 EQU TCBXTNT2+31 01544000 SDWA EQU 0 01545000 SDWAPARM EQU SDWA 01546000 SDWAFIOB EQU SDWA+4 01547000 SDWAABCC EQU SDWAFIOB 01548000 SDWACMPF EQU SDWAABCC 01549000 SDWAREQ EQU SDWACMPF 01550000 SDWACTL1 EQU SDWA+8 01551000 SDWACMKA EQU SDWACTL1 01552000 SDWAMWPA EQU SDWACTL1+1 01553000 SDWAPMKA EQU SDWACTL1+4 01554000 SDWACTL2 EQU SDWA+16 01555000 SDWACMKP EQU SDWACTL2 01556000 SDWAMWPP EQU SDWACTL2+1 01557000 SDWAPMKP EQU SDWACTL2+4 01558000 SDWAGRSV EQU SDWA+24 01559000 SDWANAME EQU SDWA+88 01560000 SDWAEC1 EQU SDWA+104 01561000 SDWAEMK1 EQU SDWAEC1 01562000 SDWAMWP1 EQU SDWAEC1+1 01563000 SDWAINT1 EQU SDWAEC1+2 01564000 SDWANXT1 EQU SDWAEC1+4 01565000 SDWAAEC1 EQU SDWA+112 01566000 SDWAILC1 EQU SDWAAEC1+1 01567000 SDWAINC1 EQU SDWAAEC1+2 01568000 SDWAICD1 EQU SDWAINC1+1 01569000 SDWAEC2 EQU SDWA+120 01570000 SDWAEMK2 EQU SDWAEC2 01571000 SDWAMWP2 EQU SDWAEC2+1 01572000 SDWAINT2 EQU SDWAEC2+2 01573000 SDWANXT2 EQU SDWAEC2+4 01574000 SDWAAEC2 EQU SDWA+128 01575000 SDWAILC2 EQU SDWAAEC2+1 01576000 SDWAINC2 EQU SDWAAEC2+2 01577000 SDWAICD2 EQU SDWAINC2+1 01578000 SDWASRSV EQU SDWA+136 01579000 SDWASR00 EQU SDWASRSV 01580000 SDWASR01 EQU SDWASRSV+4 01581000 SDWASR15 EQU SDWASRSV+60 01582000 SDWAIDNT EQU SDWA+200 01583000 SDWAMCH EQU SDWA+204 01584000 SDWASTCK EQU SDWAMCH 01585000 SDWAMCHI EQU SDWAMCH+8 01586000 SDWAMCHS EQU SDWAMCHI 01587000 SDWAMCHD EQU SDWAMCHI+1 01588000 SDWARSR1 EQU SDWAMCH+12 01589000 SDWARSR2 EQU SDWAMCH+13 01590000 SDWAFLGS EQU SDWA+232 01591000 SDWAERRA EQU SDWAFLGS 01592000 SDWAERRB EQU SDWAFLGS+1 01593000 SDWAERRC EQU SDWAFLGS+2 01594000 SDWAEAS EQU SDWAERRC 01595000 SDWAERRD EQU SDWAFLGS+3 01596000 SDWACLUP EQU SDWAERRD 01597000 SDWACTS EQU SDWAERRD 01598000 SDWAMABD EQU SDWAERRD 01599000 SDWAIOFS EQU SDWA+238 01600000 SDWARTYA EQU SDWA+240 01601000 SDWACPUA EQU SDWA+248 01602000 SDWAPARQ EQU SDWA+252 01603000 SDWARCDE EQU SDWAPARQ 01604000 SDWAACF2 EQU SDWAPARQ+1 01605000 SDWARCRD EQU SDWAACF2 01606000 SDWAUPRG EQU SDWAACF2 01607000 SDWAFREE EQU SDWAACF2 01608000 SDWAACF3 EQU SDWAPARQ+2 01609000 SDWAACF4 EQU SDWAPARQ+3 01610000 SDWALKWA EQU SDWA+256 01611000 SDWALKWS EQU SDWALKWA 01612000 SDWARECP EQU SDWA+292 01613000 SDWAMODN EQU SDWARECP 01614000 SDWAREXN EQU SDWARECP+16 01615000 SDWASNPA EQU SDWA+320 01616000 SDWADUMP EQU SDWASNPA 01617000 SDWADPFS EQU SDWADUMP+1 01618000 SDWADLST EQU SDWADPFS 01619000 SDWAENSN EQU SDWADPFS 01620000 SDWASLST EQU SDWADPFS 01621000 SDWADDAT EQU SDWASNPA+4 01622000 SDWASDAT EQU SDWADDAT 01623000 SDWASDA0 EQU SDWASDAT 01624000 SDWASDA1 EQU SDWASDAT+1 01625000 SDWAPDAT EQU SDWADDAT+2 01626000 SDWADPSA EQU SDWA+328 01627000 SDWADPSL EQU SDWADPSA 01628000 SDWAFRM1 EQU SDWADPSL 01629000 SDWAFRM2 EQU SDWADPSL+8 01630000 SDWAFRM3 EQU SDWADPSL+16 01631000 SDWAFRM4 EQU SDWADPSL+24 01632000 SDWATO4 EQU SDWADPSL+28 01633000 SDWARA EQU SDWA+400 01634000 SDWADPVA EQU SDWARA+2 01635000 SDWAHEX EQU SDWADPVA 01636000 SDWAEBC EQU SDWADPVA 01637000 SDWAURAL EQU SDWARA+3 01638000 SDWAVRA EQU SDWARA+4 01639000 APES EQU 0 01640000 APESID EQU APES 01641000 APESAPMV EQU APES+12 01642000 APESFLGS EQU APES+16 01643000 APESFLG0 EQU APESFLGS 01644000 APESFDMP EQU APESFLG0 01645000 APESFREC EQU APESFLG0 01646000 APESFSDP EQU APESFLG0 01647000 APESFRTY EQU APESFLG0 01648000 APESFEXR EQU APESFLG0 01649000 APESFLG1 EQU APESFLGS+1 01650000 APESFFRR EQU APESFLG1 01651000 APESFPRV EQU APESFLG1 01652000 APESFLLK EQU APESFLG1 01653000 APESFXLK EQU APESFLG1 01654000 APESFGM EQU APESFLG1 01655000 APESFSDI EQU APESFLG1 01656000 APESSUID EQU APES+18 01657000 APESSU33 EQU APESSUID 01658000 APESCODE EQU APES+19 01659000 APESCOD1 EQU APES+20 01660000 APESCNTR EQU APES+21 01661000 APESMXCD EQU APES+22 01662000 APESEXRA EQU APES+36 01663000 APESR14S EQU APES+40 01664000 APESREGP EQU APES+44 01665000 APESREGZ EQU APES+48 01666000 APESMOD EQU APES+112 01667000 APESFRR EQU APES+128 01668000 APESSDWA EQU APES+136 01669000 APESREGS EQU 0 01670000 APESREG2 EQU APESREGS+8 01671000 APESREGC EQU APESREGS+48 01672000 APESREGF EQU APESREGS+60 01673000 APESMV EQU 0 01674000 APESMVMS EQU APESMV 01675000 APESMVKW EQU APESMV+2 01676000 APCT EQU 0 01677000 APCTENQM EQU APCT+12 01678000 APCTSSID EQU APCTENQM+4 01679000 APCTSMIN EQU APCT+32 01680000 APCTSMAD EQU APCT+36 01681000 APCTZ@@@ EQU APCT+40 01682000 APCTU@@@ EQU APCT+440 01683000 APCTBR14 EQU APCT+840 01684000 APCTERRS EQU APCT+876 01685000 @NM00106 EQU APCT+936 01686000 APCTSTAT EQU @NM00106 01687000 APCTPRSW EQU @NM00106+1 01688000 APCTAPCQ EQU APCT+944 01689000 APCTCQAQ EQU APCT+952 01690000 APCTZ@@1 EQU APCT+1120 01691000 APCTASID EQU APCT+1528 01692000 APMV EQU 0 01693000 APMVHDR EQU APMV 01694000 APMVHKWD EQU APMVHDR+4 01695000 APMVHMSG EQU APMVHDR+8 01696000 APMVKWD EQU 0 01697000 APMVKNBR EQU APMVKWD 01698000 APMVKKWD EQU APMVKWD+4 01699000 APMVMSG EQU 0 01700000 APMVMNBR EQU APMVMSG 01701000 APMVMMSG EQU APMVMSG+4 01702000 I031P EQU 0 01703000 I256C EQU 0 01704000 I001C EQU 0 01705000 I008P EQU 0 01706000 I015F EQU 0 01707000 I015P EQU 0 01708000 I031F EQU 0 01709000 PSARSVTE EQU PSARSVT 01710000 CVTPTR EQU FLCCVT 01711000 CVTS01 EQU CVTPGSIA 01712000 CVTLPDIA EQU CVTS01+12 01713000 CVTDIRST EQU CVTLPDIA 01714000 CVTSLIDA EQU CVTS01+24 01715000 CVTCTLFG EQU CVTS01+50 01716000 CVTSDMP EQU CVTS01+232 01717000 CVTRV210 EQU CVTS01+424 01718000 CVTRV219 EQU CVTS01+425 01719000 CVTRV228 EQU CVTS01+426 01720000 CVTRV237 EQU CVTS01+427 01721000 CVTMFRTR EQU CVTS01+452 01722000 CVTRV262 EQU CVTS01+468 01723000 CVTRV271 EQU CVTS01+469 01724000 CVTRV280 EQU CVTS01+470 01725000 CVTRV289 EQU CVTS01+471 01726000 CVTGSDA EQU CVTS01+600 01727000 CVTIHASU EQU CVTS01+696 01728000 ASCBPTR EQU PSAAOLD 01729000 TCBPTR EQU PSATOLD 01730000 MXMSG EQU SDWAVRA 01731000 MXSDUMP EQU MXMSG 01732000 MXSDUMPL EQU MXSDUMP 01733000 MXSSID EQU MXSDUMP+1 01734000 MXMSGV EQU MXSDUMP+6 01735000 MXKYWORD EQU MXSDUMP+22 01736000 MXCODE EQU MXSDUMP+31 01737000 MXMOD EQU MXSDUMP+34 01738000 MXFRR EQU MXSDUMP+43 01739000 MXSDWA EQU MXSDUMP+52 01740000 MXSDWAA EQU MXSDUMP+57 01741000 MXSDWAAT EQU MXSDWAA 01742000 MXSDWAAB EQU MXSDWAA+6 01743000 MXNO EQU MXMSG+67 01744000 MXMSG1 EQU MXMSG+70 01745000 APCTZ EQU APCTZ@@@ 01746000 APCTZMBR EQU APCTZ+100 01747000 APCTZ1 EQU APCTZ@@1 01748000 APCTU EQU APCTU@@@ 01749000 DUXDATA EQU SDWAVRA 01750000 DUXINSTR EQU DUXDATA 01751000 DUXREGS EQU DUXDATA+8 01752000 FLC EQU PSA 01753000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01754000 @NM00138 EQU APCTU+48 01755000 APCT1JBJ EQU APCTU+44 01756000 APCT2JHL EQU APCTU+40 01757000 APCT1JHL EQU APCTU+36 01758000 APCT1JHT EQU APCTU+32 01759000 APCT2JHC EQU APCTU+28 01760000 APCT1JHC EQU APCTU+24 01761000 APCT1JAA EQU APCTU+20 01762000 APCT1MBM EQU APCTU+16 01763000 APCT1CMD EQU APCTU+12 01764000 APCT2MBD EQU APCTU+8 01765000 APCT1MBD EQU APCTU+4 01766000 APCT1MAB EQU APCTU 01767000 @NM00137 EQU APCTZ1+108 01768000 APCTZKGD EQU APCTZ1+104 01769000 APCTZKGC EQU APCTZ1+100 01770000 APCTZKGB EQU APCTZ1+96 01771000 APCTZKGA EQU APCTZ1+92 01772000 APCTZJAX EQU APCTZ1+88 01773000 APCTZDWI EQU APCTZ1+84 01774000 APCTZLCB EQU APCTZ1+80 01775000 APCTZLCA EQU APCTZ1+76 01776000 APCTZJDM EQU APCTZ1+72 01777000 APCTZJDG EQU APCTZ1+68 01778000 APCTZJDD EQU APCTZ1+64 01779000 APCTZKBF EQU APCTZ1+60 01780000 APCTZUKA EQU APCTZ1+56 01781000 @NM00136 EQU APCTZ1+52 01782000 @NM00135 EQU APCTZ1+48 01783000 @NM00134 EQU APCTZ1+44 01784000 APCTZKBE EQU APCTZ1+40 01785000 @NM00133 EQU APCTZ1+36 01786000 @NM00132 EQU APCTZ1+32 01787000 APCTZKBD EQU APCTZ1+28 01788000 APCTZJHQ EQU APCTZ1+24 01789000 APCTZJHC EQU APCTZ1+20 01790000 @NM00131 EQU APCTZ1+16 01791000 @NM00130 EQU APCTZ1+12 01792000 APCTZKBB EQU APCTZ1+8 01793000 APCTZKBC EQU APCTZ1+4 01794000 APCTZKBA EQU APCTZ1 01795000 @NM00129 EQU APCTZ+396 01796000 APCTZJHW EQU APCTZ+392 01797000 APCTZJHT EQU APCTZ+388 01798000 APCTZJHR EQU APCTZ+384 01799000 APCTZDQR EQU APCTZ+380 01800000 APCTZJHE EQU APCTZ+376 01801000 APCTZJHF EQU APCTZ+372 01802000 APCTZJHO EQU APCTZ+368 01803000 APCTZJH6 EQU APCTZ+364 01804000 APCTZJDJ EQU APCTZ+360 01805000 APCTZJDA EQU APCTZ+356 01806000 @NM00128 EQU APCTZ+352 01807000 @NM00127 EQU APCTZ+348 01808000 APCTZKDA EQU APCTZ+344 01809000 APCTZKCA EQU APCTZ+340 01810000 @NM00126 EQU APCTZ+336 01811000 APCTZJBM EQU APCTZ+332 01812000 APCTZJBJ EQU APCTZ+328 01813000 APCTZJBG EQU APCTZ+324 01814000 APCTZJBD EQU APCTZ+320 01815000 APCTZJBA EQU APCTZ+316 01816000 APCTZJJ0 EQU APCTZ+312 01817000 APCTZJI3 EQU APCTZ+308 01818000 APCTZJI0 EQU APCTZ+304 01819000 APCTZJH0 EQU APCTZ+300 01820000 APCTZMIF EQU APCTZ+296 01821000 @NM00125 EQU APCTZ+292 01822000 APCTZD83 EQU APCTZ+288 01823000 APCTZMIC EQU APCTZ+284 01824000 APCTZMIB EQU APCTZ+280 01825000 APCTZD82 EQU APCTZ+276 01826000 APCTZKAA EQU APCTZ+272 01827000 APCTZDAP EQU APCTZ+268 01828000 APCTZUJA EQU APCTZ+264 01829000 APCTZUFA EQU APCTZ+260 01830000 APCTZJAY EQU APCTZ+256 01831000 APCTZJAP EQU APCTZ+252 01832000 APCTZJAM EQU APCTZ+248 01833000 APCTZJAJ EQU APCTZ+244 01834000 APCTZJAG EQU APCTZ+240 01835000 APCTZJAD EQU APCTZ+236 01836000 APCTZJAA EQU APCTZ+232 01837000 APCTZJFA EQU APCTZ+228 01838000 APCTZUHB EQU APCTZ+224 01839000 APCTZUHA EQU APCTZ+220 01840000 APCTZDIO EQU APCTZ+216 01841000 APCTZUAG EQU APCTZ+212 01842000 APCTZUAF EQU APCTZ+208 01843000 APCTZDUA EQU APCTZ+204 01844000 APCTZDDQ EQU APCTZ+200 01845000 APCTZDEQ EQU APCTZ+196 01846000 APCTZDUL EQU APCTZ+192 01847000 APCTZDDA EQU APCTZ+188 01848000 APCTZDIP EQU APCTZ+184 01849000 APCTZDBK EQU APCTZ+180 01850000 APCTZDAL EQU APCTZ+176 01851000 APCTZDMM EQU APCTZ+172 01852000 APCTZDWT EQU APCTZ+168 01853000 APCTZMJI EQU APCTZ+164 01854000 APCTZDRI EQU APCTZ+160 01855000 APCTZDID EQU APCTZ+156 01856000 APCTZD81 EQU APCTZ+152 01857000 APCTZDMD EQU APCTZ+148 01858000 APCTZMMA EQU APCTZ+144 01859000 APCTZMJH EQU APCTZ+140 01860000 APCTZMJC EQU APCTZ+136 01861000 APCTZMJB EQU APCTZ+132 01862000 APCTZMBM EQU APCTZ+128 01863000 APCTZMBK EQU APCTZ+124 01864000 APCTZMBH EQU APCTZ+120 01865000 APCTZDX4 EQU APCTZ+116 01866000 APCTZDX3 EQU APCTZ+112 01867000 APCTZDX2 EQU APCTZ+108 01868000 APCTZDX1 EQU APCTZ+104 01869000 APCTZMBG EQU APCTZ+96 01870000 APCTZMBD EQU APCTZ+92 01871000 APCTZMBA EQU APCTZ+88 01872000 APCTZD4E EQU APCTZ+84 01873000 APCTZD80 EQU APCTZ+80 01874000 APCTZD60 EQU APCTZ+76 01875000 APCTZD49 EQU APCTZ+72 01876000 APCTZD48 EQU APCTZ+68 01877000 APCTZD47 EQU APCTZ+64 01878000 APCTZD46 EQU APCTZ+60 01879000 APCTZD45 EQU APCTZ+56 01880000 APCTZD44 EQU APCTZ+52 01881000 APCTZD43 EQU APCTZ+48 01882000 APCTZD42 EQU APCTZ+44 01883000 APCTZD41 EQU APCTZ+40 01884000 APCTZD40 EQU APCTZ+36 01885000 APCTZD20 EQU APCTZ+32 01886000 APCTZD10 EQU APCTZ+28 01887000 APCTZUBB EQU APCTZ+24 01888000 @NM00124 EQU APCTZ+20 01889000 APCTZUAE EQU APCTZ+16 01890000 APCTZUAD EQU APCTZ+12 01891000 APCTZUAC EQU APCTZ+8 01892000 APCTZUAB EQU APCTZ+4 01893000 APCTZUAA EQU APCTZ 01894000 @NM00083 EQU MXMSG+69 01895000 @NM00082 EQU MXMSG+65 01896000 @NM00081 EQU MXSDUMP+51 01897000 @NM00080 EQU MXSDUMP+42 01898000 @NM00079 EQU MXSDUMP+33 01899000 @NM00078 EQU MXSDUMP+30 01900000 @NM00077 EQU MXSDUMP+21 01901000 @NM00076 EQU MXSDUMP+5 01902000 CVTRV628 EQU CVTS01+728 01903000 CVTRV627 EQU CVTS01+724 01904000 CVTRV626 EQU CVTS01+720 01905000 CVTRV625 EQU CVTS01+716 01906000 CVTRV624 EQU CVTS01+712 01907000 CVTRV623 EQU CVTS01+708 01908000 CVTRV622 EQU CVTS01+704 01909000 CVTRV621 EQU CVTS01+700 01910000 CVTSUSP EQU CVTS01+692 01911000 CVTT6SVC EQU CVTS01+688 01912000 CVTCDAL EQU CVTS01+684 01913000 CVTTCTL EQU CVTS01+680 01914000 CVTRSUME EQU CVTS01+676 01915000 CVTJTERM EQU CVTS01+672 01916000 CVTASMRM EQU CVTS01+668 01917000 CVTTCASP EQU CVTS01+664 01918000 CVT0PT03 EQU CVTS01+660 01919000 CVT0PT0E EQU CVTS01+656 01920000 CVTRV609 EQU CVTS01+652 01921000 CVTCGK EQU CVTS01+648 01922000 CVTRAC EQU CVTS01+644 01923000 CVTRV606 EQU CVTS01+640 01924000 CVTRV605 EQU CVTS01+636 01925000 CVTRV604 EQU CVTS01+632 01926000 CVTEFF02 EQU CVTS01+628 01927000 CVTCBBR EQU CVTS01+624 01928000 CVTSSCR EQU CVTS01+620 01929000 CVTEVENT EQU CVTS01+616 01930000 CVTCRCA EQU CVTS01+612 01931000 CVTTPIO EQU CVTS01+608 01932000 CVTADV EQU CVTS01+604 01933000 CVTGSDAB EQU CVTGSDA 01934000 CVTQV3 EQU CVTS01+596 01935000 CVTQV2 EQU CVTS01+592 01936000 CVTQV1 EQU CVTS01+588 01937000 CVTRPT EQU CVTS01+584 01938000 CVTSSRB EQU CVTS01+580 01939000 CVTCSDRL EQU CVTS01+576 01940000 CVTEXP1 EQU CVTS01+572 01941000 CVTRMPMT EQU CVTS01+568 01942000 CVTRMPTT EQU CVTS01+564 01943000 CVTVPSA EQU CVTS01+560 01944000 CVTVSTOP EQU CVTS01+556 01945000 CVTGTFR8 EQU CVTS01+552 01946000 CVTQUIT EQU CVTS01+548 01947000 CVTVACR EQU CVTS01+544 01948000 CVTWTCB EQU CVTS01+540 01949000 CVTSTPRS EQU CVTS01+536 01950000 CVT0PT02 EQU CVTS01+532 01951000 CVTDARCM EQU CVTS01+528 01952000 CVTIRECM EQU CVTS01+524 01953000 CVTJRECM EQU CVTS01+520 01954000 CVTVEMS0 EQU CVTS01+516 01955000 CVTSPFRR EQU CVTS01+512 01956000 CVTRLSTG EQU CVTS01+508 01957000 CVT0TC0A EQU CVTS01+504 01958000 CVTGMBR EQU CVTS01+500 01959000 CVTLFRM EQU CVTS01+496 01960000 CVTRMBR EQU CVTS01+492 01961000 CVTVIOP EQU CVTS01+488 01962000 CVTRV307 EQU CVTS01+486 01963000 CVTRV306 EQU CVTS01+484 01964000 CVTRV305 EQU CVTS01+482 01965000 CVTRV304 EQU CVTS01+480 01966000 CVTRV303 EQU CVTS01+478 01967000 CVTRV302 EQU CVTS01+476 01968000 CVTTRCA EQU CVTS01+472 01969000 CVTRV297 EQU CVTRV289 01970000 CVTRV296 EQU CVTRV289 01971000 CVTRV295 EQU CVTRV289 01972000 CVTRV294 EQU CVTRV289 01973000 CVTRV293 EQU CVTRV289 01974000 CVTRV292 EQU CVTRV289 01975000 CVTRV291 EQU CVTRV289 01976000 CVTRV290 EQU CVTRV289 01977000 CVTRV288 EQU CVTRV280 01978000 CVTRV287 EQU CVTRV280 01979000 CVTRV286 EQU CVTRV280 01980000 CVTRV285 EQU CVTRV280 01981000 CVTRV284 EQU CVTRV280 01982000 CVTRV283 EQU CVTRV280 01983000 CVTRV282 EQU CVTRV280 01984000 CVTRV281 EQU CVTRV280 01985000 CVTRV279 EQU CVTRV271 01986000 CVTRV278 EQU CVTRV271 01987000 CVTRV277 EQU CVTRV271 01988000 CVTRV276 EQU CVTRV271 01989000 CVTRV275 EQU CVTRV271 01990000 CVTRV274 EQU CVTRV271 01991000 CVTRV273 EQU CVTRV271 01992000 CVTRV272 EQU CVTRV271 01993000 CVTRV270 EQU CVTRV262 01994000 CVTRV269 EQU CVTRV262 01995000 CVTRV268 EQU CVTRV262 01996000 CVTRV267 EQU CVTRV262 01997000 CVTRV266 EQU CVTRV262 01998000 CVTRV265 EQU CVTRV262 01999000 CVTRV264 EQU CVTRV262 02000000 CVTRV263 EQU CVTRV262 02001000 CVTVFP EQU CVTS01+464 02002000 CVTVSI EQU CVTS01+460 02003000 CVTVPSIB EQU CVTS01+456 02004000 CVTMFACT EQU CVTMFRTR 02005000 CVTMFCTL EQU CVTS01+448 02006000 CVTPVBP EQU CVTS01+444 02007000 CVTPWI EQU CVTS01+440 02008000 CVTRV254 EQU CVTS01+438 02009000 CVTRV253 EQU CVTS01+436 02010000 CVTRV252 EQU CVTS01+434 02011000 CVTRV251 EQU CVTS01+433 02012000 CVTRV250 EQU CVTS01+432 02013000 CVTRV249 EQU CVTS01+431 02014000 CVTRV248 EQU CVTS01+430 02015000 CVTRV247 EQU CVTS01+429 02016000 CVTRV246 EQU CVTS01+428 02017000 CVTRV245 EQU CVTRV237 02018000 CVTRV244 EQU CVTRV237 02019000 CVTRV243 EQU CVTRV237 02020000 CVTRV242 EQU CVTRV237 02021000 CVTRV241 EQU CVTRV237 02022000 CVTRV240 EQU CVTRV237 02023000 CVTRV239 EQU CVTRV237 02024000 CVTRV238 EQU CVTRV237 02025000 CVTRV236 EQU CVTRV228 02026000 CVTRV235 EQU CVTRV228 02027000 CVTRV234 EQU CVTRV228 02028000 CVTRV233 EQU CVTRV228 02029000 CVTRV232 EQU CVTRV228 02030000 CVTRV231 EQU CVTRV228 02031000 CVTRV230 EQU CVTRV228 02032000 CVTRV229 EQU CVTRV228 02033000 CVTRV227 EQU CVTRV219 02034000 CVTRV226 EQU CVTRV219 02035000 CVTRV225 EQU CVTRV219 02036000 CVTRV224 EQU CVTRV219 02037000 CVTRV223 EQU CVTRV219 02038000 CVTRV222 EQU CVTRV219 02039000 CVTRV221 EQU CVTRV219 02040000 CVTRV220 EQU CVTRV219 02041000 CVTRV218 EQU CVTRV210 02042000 CVTRV217 EQU CVTRV210 02043000 CVTRV216 EQU CVTRV210 02044000 CVTRV215 EQU CVTRV210 02045000 CVTRV214 EQU CVTRV210 02046000 CVTRV213 EQU CVTRV210 02047000 CVTRV212 EQU CVTRV210 02048000 CVTRV211 EQU CVTRV210 02049000 CVTLCCAT EQU CVTS01+420 02050000 CVTPCCAT EQU CVTS01+416 02051000 CVTIPCRP EQU CVTS01+412 02052000 CVTIPCRI EQU CVTS01+408 02053000 CVTIPCDS EQU CVTS01+404 02054000 CVTAIDVT EQU CVTS01+400 02055000 CVTSSAP EQU CVTS01+396 02056000 CVTEHCIR EQU CVTS01+392 02057000 CVTEHDEF EQU CVTS01+388 02058000 CVTDAIR EQU CVTS01+384 02059000 CVTPERFM EQU CVTS01+380 02060000 CVT044R2 EQU CVTS01+376 02061000 CVTFETCH EQU CVTS01+372 02062000 CVTRSTWD EQU CVTS01+368 02063000 CVTSPOST EQU CVTS01+364 02064000 CVTIOBP EQU CVTS01+360 02065000 CVTASMVT EQU CVTS01+356 02066000 CVTRECRQ EQU CVTS01+352 02067000 CVTWSAC EQU CVTS01+348 02068000 CVTRV149 EQU CVTS01+344 02069000 CVTWSAL EQU CVTS01+340 02070000 CVTSPSA EQU CVTS01+336 02071000 CVTGLMN EQU CVTS01+332 02072000 CVTVEAC0 EQU CVTS01+328 02073000 CVT062R1 EQU CVTS01+324 02074000 CVTRPOST EQU CVTS01+320 02075000 CVTDQIQE EQU CVTS01+316 02076000 CVTCSD EQU CVTS01+312 02077000 CVTLKRMA EQU CVTS01+308 02078000 CVTRSPIE EQU CVTS01+304 02079000 CVTRENQ EQU CVTS01+300 02080000 CVTLQCB EQU CVTS01+296 02081000 CVTFQCB EQU CVTS01+292 02082000 CVTQCS01 EQU CVTS01+288 02083000 CVTAPFT EQU CVTS01+284 02084000 CVTPARRL EQU CVTS01+280 02085000 CVTVWAIT EQU CVTS01+276 02086000 CVTGSPL EQU CVTS01+272 02087000 CVTLSMQ EQU CVTS01+268 02088000 CVTGSMQ EQU CVTS01+264 02089000 CVTEXPRO EQU CVTS01+260 02090000 CVTOPCTP EQU CVTS01+256 02091000 CVTSIC EQU CVTS01+252 02092000 CVTTPIOS EQU CVTS01+248 02093000 CVTRTMS EQU CVTS01+244 02094000 CVTSDBF EQU CVTS01+240 02095000 CVTSCBP EQU CVTS01+236 02096000 CVTSV60 EQU CVTS01+228 02097000 CVTRTMCT EQU CVTS01+224 02098000 CVTASCBL EQU CVTS01+220 02099000 CVTASCBH EQU CVTS01+216 02100000 CVTGDA EQU CVTS01+212 02101000 CVTASVT EQU CVTS01+208 02102000 CVTVVMDI EQU CVTS01+204 02103000 CVTAQTOP EQU CVTS01+200 02104000 CVTIOSCS EQU CVTS01+196 02105000 CVTSDRM EQU CVTS01+192 02106000 CVTOPTE EQU CVTS01+188 02107000 CVTSTXU EQU CVTS01+184 02108000 CVTQUIS EQU CVTS01+180 02109000 CVTPARS EQU CVTS01+176 02110000 CVTS1EE EQU CVTS01+172 02111000 CVTFRAS EQU CVTS01+168 02112000 CVTQSAS EQU CVTS01+164 02113000 CVTCRAS EQU CVTS01+160 02114000 CVTCRMN EQU CVTS01+156 02115000 CVTDELCP EQU CVTS01+152 02116000 CVTFRECL EQU CVTS01+148 02117000 CVTGETCL EQU CVTS01+144 02118000 CVTBLDCP EQU CVTS01+140 02119000 CVTAUTHL EQU CVTS01+136 02120000 CVTSCAN EQU CVTS01+132 02121000 CVTRV144 EQU CVTS01+130 02122000 CVTMAXMP EQU CVTS01+128 02123000 CVTSTCK EQU CVTS01+124 02124000 CVTRV139 EQU CVTS01+123 02125000 CVTDSSAC EQU CVTS01+122 02126000 CVTRV513 EQU CVTS01+121 02127000 CVTIOSPL EQU CVTS01+120 02128000 CVTPTGT EQU CVTS01+116 02129000 CVTCSPIE EQU CVTS01+112 02130000 CVTSMFEX EQU CVTS01+108 02131000 CVTOLT0A EQU CVTS01+104 02132000 CVTSRBRT EQU CVTS01+100 02133000 CVTPUTL EQU CVTS01+96 02134000 CVTASCRL EQU CVTS01+92 02135000 CVTASCRF EQU CVTS01+88 02136000 CVTRV326 EQU CVTS01+84 02137000 CVTRV325 EQU CVTS01+80 02138000 CVTRV324 EQU CVTS01+76 02139000 CVT0VL01 EQU CVTS01+72 02140000 CVTSHRVM EQU CVTS01+68 02141000 CVTRV332 EQU CVTS01+64 02142000 CVTTAS EQU CVTS01+60 02143000 CVTRSCN EQU CVTS01+56 02144000 CVTTRAC2 EQU CVTS01+54 02145000 CVTTRACE EQU CVTS01+52 02146000 CVTAPG EQU CVTS01+51 02147000 CVTSDTRC EQU CVTCTLFG 02148000 CVTGTRCE EQU CVTCTLFG 02149000 CVTNOMP EQU CVTCTLFG 02150000 CVTRSV79 EQU CVTCTLFG 02151000 CVTDSTAT EQU CVTCTLFG 02152000 CVTRSV78 EQU CVTCTLFG 02153000 CVTRV333 EQU CVTCTLFG 02154000 CVTRV323 EQU CVTCTLFG 02155000 CVTSPVLK EQU CVTS01+49 02156000 CVTRSV77 EQU CVTS01+48 02157000 CVTRV331 EQU CVTS01+44 02158000 CVTRV330 EQU CVTS01+40 02159000 CVTRV329 EQU CVTS01+36 02160000 CVTRV328 EQU CVTS01+32 02161000 CVTRV322 EQU CVTS01+28 02162000 CVTSLID EQU CVTSLIDA+1 02163000 CVTSYLK EQU CVTSLIDA 02164000 CVTRV321 EQU CVTS01+20 02165000 CVTRV320 EQU CVTS01+16 02166000 CVTLPDIR EQU CVTLPDIA+1 02167000 CVTRSV69 EQU CVTDIRST 02168000 CVTRSV68 EQU CVTDIRST 02169000 CVTRSV67 EQU CVTDIRST 02170000 CVTRSV66 EQU CVTDIRST 02171000 CVTRSV65 EQU CVTDIRST 02172000 CVTRSV64 EQU CVTDIRST 02173000 CVTRSV63 EQU CVTDIRST 02174000 CVTDICOM EQU CVTDIRST 02175000 CVTPVTP EQU CVTS01+8 02176000 CVTLPDSR EQU CVTS01+4 02177000 CVTGETL EQU CVTS01 02178000 PSARSAV EQU PSARSVTE+60 02179000 PSARSTK EQU PSARSVTE+56 02180000 PSAESAV3 EQU PSARSVTE+52 02181000 PSAESTK3 EQU PSARSVTE+48 02182000 PSAESAV2 EQU PSARSVTE+44 02183000 PSAESTK2 EQU PSARSVTE+40 02184000 PSAESAV1 EQU PSARSVTE+36 02185000 PSAESTK1 EQU PSARSVTE+32 02186000 PSAPSAV EQU PSARSVTE+28 02187000 PSAPSTK EQU PSARSVTE+24 02188000 PSAMSAV EQU PSARSVTE+20 02189000 PSAMSTK EQU PSARSVTE+16 02190000 PSASSAV EQU PSARSVTE+12 02191000 PSASSTK EQU PSARSVTE+8 02192000 PSANSTK EQU PSARSVTE+4 02193000 PSACSTK EQU PSARSVTE 02194000 APMVHEM EQU APMVHDR 02195000 @NM00123 EQU APCT+1556 02196000 APCTSVCT EQU APCT+1552 02197000 APCTDAVT EQU APCT+1548 02198000 APCTLOGL EQU APCT+1544 02199000 @NM00122 EQU APCT+1540 02200000 APCTDMPU EQU APCT+1536 02201000 APCTDMPM EQU APCT+1532 02202000 APCTNDMP EQU APCT+1530 02203000 APCTLGPG EQU APCT+1526 02204000 APCTLGLN EQU APCT+1524 02205000 APCTAPVU EQU APCT+1520 02206000 APCTABR EQU APCT+1116 02207000 APCTACTR EQU APCT+1112 02208000 APCTLOGD EQU APCT+1108 02209000 APCTDCLD EQU APCT+1104 02210000 APCTIOAP EQU APCT+1100 02211000 @NM00121 EQU APCT+1080 02212000 @NM00120 EQU APCT+1078 02213000 APCTKCAX EQU APCT+1076 02214000 APCTABND EQU APCT+1072 02215000 @NM00119 EQU APCT+1068 02216000 APCTAPIO EQU APCT+1064 02217000 APCTCSCT EQU APCT+1060 02218000 APCTSTDF EQU APCT+1056 02219000 APCTSTMX EQU APCT+1052 02220000 APCTRGMX EQU APCT+1048 02221000 APCTSIZE EQU APCT+1046 02222000 APCTCTUB EQU APCT+1045 02223000 APCTMFID EQU APCT+1044 02224000 APCTMFSZ EQU APCT+1040 02225000 APCTCRTN EQU APCT+1036 02226000 APCTAPCP EQU APCT+1032 02227000 APCTAMNA EQU APCT+1028 02228000 APCTEMNA EQU APCT+1024 02229000 APCTAALP EQU APCT+1020 02230000 APCTEALP EQU APCT+1016 02231000 @NM00118 EQU APCT+1012 02232000 @NM00117 EQU APCT+1008 02233000 @NM00116 EQU APCT+1004 02234000 APCTEIPL EQU APCT+1000 02235000 @NM00115 EQU APCT+996 02236000 @NM00114 EQU APCT+992 02237000 @NM00113 EQU APCT+988 02238000 @NM00112 EQU APCT+984 02239000 @NM00111 EQU APCT+980 02240000 APCTECPW EQU APCT+976 02241000 APCTEULD EQU APCT+972 02242000 APCTECPT EQU APCT+968 02243000 APCTEALC EQU APCT+964 02244000 APCTECBL EQU APCT+960 02245000 APCTECIT EQU APCT+956 02246000 APCTCQAF EQU APCTCQAQ 02247000 APCTCQL EQU APCTAPCQ+4 02248000 APCTCQF EQU APCTAPCQ 02249000 APCTCQLK EQU APCT+940 02250000 @NM00110 EQU @NM00106+2 02251000 @NM00109 EQU APCTPRSW 02252000 APCTAPST EQU APCTPRSW 02253000 @NM00108 EQU APCTPRSW 02254000 @NM00107 EQU APCTSTAT 02255000 APCTWARM EQU APCTSTAT 02256000 APCTTERM EQU APCTSTAT 02257000 APCTHALT EQU APCTSTAT 02258000 APCTQSCE EQU APCTSTAT 02259000 APCTSTRT EQU APCTSTAT 02260000 APCTACT EQU APCTSTAT 02261000 @NM00105 EQU APCT+935 02262000 APCTSOUT EQU APCT+934 02263000 APCTDAID EQU APCT+933 02264000 APCTSV34 EQU APCT+932 02265000 APCTMJOB EQU APCT+928 02266000 APCTTCB EQU APCT+924 02267000 APCTASCB EQU APCT+920 02268000 APCTDCNW EQU APCT+918 02269000 APCTDCNR EQU APCT+916 02270000 @NM00104 EQU APCT+912 02271000 @NM00103 EQU APCT+908 02272000 @NM00102 EQU APCT+904 02273000 @NM00101 EQU APCT+900 02274000 @NM00100 EQU APCTERRS+22 02275000 APCTERTJ EQU APCTERRS+20 02276000 APCTERTD EQU APCTERRS+18 02277000 APCTERTC EQU APCTERRS+16 02278000 APCTERTB EQU APCTERRS+14 02279000 APCTERTA EQU APCTERRS+12 02280000 APCTERT9 EQU APCTERRS+10 02281000 APCTERT3 EQU APCTERRS+8 02282000 APCTERT2 EQU APCTERRS+6 02283000 APCTERT1 EQU APCTERRS+4 02284000 APCTERT0 EQU APCTERRS+2 02285000 APCTERTT EQU APCTERRS 02286000 APCTDSAP EQU APCT+872 02287000 APCTISUB EQU APCT+868 02288000 APCTUBAP EQU APCT+864 02289000 APCTAPDS EQU APCT+860 02290000 APCTUBIC EQU APCT+856 02291000 APCTUBIS EQU APCT+852 02292000 APCTAPUB EQU APCT+848 02293000 APCTUBLK EQU APCT+844 02294000 APCTBR1A EQU APCTBR14+2 02295000 @NM00099 EQU APCTBR14 02296000 APCTSMSZ EQU APCTSMAD+2 02297000 @NM00098 EQU APCTSMAD+1 02298000 @NM00097 EQU APCTSMAD 02299000 APCTSMIS EQU APCTSMIN+2 02300000 @NM00096 EQU APCTSMIN+1 02301000 APCTSMSP EQU APCTSMIN 02302000 @NM00095 EQU APCT+30 02303000 APCTLINE EQU APCT+28 02304000 APCTLBSZ EQU APCT+24 02305000 APCTREG EQU APCT+20 02306000 @NM00094 EQU APCTENQM 02307000 APCTSSVT EQU APCT+8 02308000 APCTUSER EQU APCT+4 02309000 APCTID EQU APCT 02310000 @NM00093 EQU APESMV+6 02311000 @NM00092 EQU APESMV+4 02312000 APESRTRY EQU APESREGF 02313000 APESREGE EQU APESREGS+56 02314000 APESREGD EQU APESREGS+52 02315000 APESREGB EQU APESREGS+44 02316000 APESREGA EQU APESREGS+40 02317000 APESREG9 EQU APESREGS+36 02318000 APESREG8 EQU APESREGS+32 02319000 APESREG7 EQU APESREGS+28 02320000 APESREG6 EQU APESREGS+24 02321000 APESREG5 EQU APESREGS+20 02322000 APESREG4 EQU APESREGS+16 02323000 APESREG3 EQU APESREGS+12 02324000 APESREG1 EQU APESREGS+4 02325000 APESREG0 EQU APESREGS 02326000 APESPROC EQU APES+120 02327000 @NM00091 EQU APES+32 02328000 @NM00090 EQU APES+28 02329000 @NM00089 EQU APES+24 02330000 @NM00088 EQU APES+23 02331000 @NM00087 EQU APESSUID 02332000 @NM00086 EQU APESFLG1 02333000 APESFSTE EQU APESFLG1 02334000 @NM00085 EQU APESFLG0 02335000 @NM00084 EQU APESFLG0 02336000 APESADDR EQU APES+8 02337000 APESUSER EQU APES+4 02338000 @NM00075 EQU SDWA+512 02339000 @NM00074 EQU SDWADPVA 02340000 SDWAVRAL EQU SDWARA 02341000 SDWAERTM EQU SDWA+396 02342000 SDWACOMP EQU SDWA+392 02343000 SDWARCPL EQU SDWA+364 02344000 @NM00073 EQU SDWADPSA+32 02345000 SDWATO3 EQU SDWADPSL+20 02346000 SDWATO2 EQU SDWADPSL+12 02347000 SDWATO1 EQU SDWADPSL+4 02348000 @NM00072 EQU SDWADDAT+3 02349000 @NM00071 EQU SDWAPDAT 02350000 SDWAUSPL EQU SDWAPDAT 02351000 SDWADPSW EQU SDWAPDAT 02352000 SDWATJPA EQU SDWAPDAT 02353000 SDWATLPA EQU SDWAPDAT 02354000 SDWADREG EQU SDWAPDAT 02355000 SDWADSAH EQU SDWAPDAT 02356000 SDWADSAS EQU SDWAPDAT 02357000 @NM00070 EQU SDWASDA1 02358000 SDWAERR EQU SDWASDA1 02359000 SDWAIO EQU SDWASDA1 02360000 SDWADM EQU SDWASDA0 02361000 SDWAQQS EQU SDWASDA0 02362000 SDWACBS EQU SDWASDA0 02363000 SDWAGTF EQU SDWASDA0 02364000 SDWASWA EQU SDWASDA0 02365000 SDWALSQA EQU SDWASDA0 02366000 SDWASQA EQU SDWASDA0 02367000 SDWANUC EQU SDWASDA0 02368000 @NM00069 EQU SDWADUMP+2 02369000 @NM00068 EQU SDWADPFS 02370000 @NM00067 EQU SDWADPFS 02371000 SDWADPT EQU SDWADPFS 02372000 SDWADPID EQU SDWADUMP 02373000 SDWADPLA EQU SDWA+316 02374000 SDWACSCT EQU SDWARECP+8 02375000 SDWASEQ# EQU SDWA+290 02376000 SDWAASID EQU SDWA+288 02377000 SDWATALW EQU SDWALKWS+28 02378000 SDWATDLW EQU SDWALKWS+24 02379000 SDWATNLW EQU SDWALKWS+20 02380000 SDWAAPLW EQU SDWALKWS+16 02381000 SDWAIPLW EQU SDWALKWS+12 02382000 SDWAILLW EQU SDWALKWS+8 02383000 SDWAIULW EQU SDWALKWS+4 02384000 SDWAICLW EQU SDWALKWS 02385000 SDWAFLLK EQU SDWAACF4 02386000 SDWACMS EQU SDWAACF4 02387000 SDWAOPTM EQU SDWAACF4 02388000 SDWATADB EQU SDWAACF4 02389000 SDWATDNB EQU SDWAACF4 02390000 SDWATNCB EQU SDWAACF4 02391000 SDWAILCH EQU SDWAACF4 02392000 SDWAIUCB EQU SDWAACF4 02393000 SDWAICAT EQU SDWAACF3 02394000 SDWAIPRG EQU SDWAACF3 02395000 SDWASALL EQU SDWAACF3 02396000 SDWAASMP EQU SDWAACF3 02397000 SDWADISP EQU SDWAACF3 02398000 @NM00066 EQU SDWAACF3 02399000 @NM00065 EQU SDWAACF2 02400000 @NM00064 EQU SDWAACF2 02401000 SDWASPIN EQU SDWAACF2 02402000 @NM00063 EQU SDWAACF2 02403000 SDWALCPU EQU SDWACPUA+2 02404000 @NM00062 EQU SDWACPUA 02405000 SDWARECA EQU SDWA+244 02406000 SDWACPUI EQU SDWA+239 02407000 @NM00061 EQU SDWAIOFS 02408000 SDWANIOP EQU SDWAIOFS 02409000 SDWANOIO EQU SDWAIOFS 02410000 SDWAIOHT EQU SDWAIOFS 02411000 SDWAIOQR EQU SDWAIOFS 02412000 SDWAFMID EQU SDWA+236 02413000 SDWAERFL EQU SDWAERRD 02414000 SDWAMCIV EQU SDWAERRD 02415000 SDWARPIV EQU SDWAERRD 02416000 SDWASTAE EQU SDWAERRD 02417000 SDWANRBE EQU SDWAERRD 02418000 @NM00060 EQU SDWAERRC 02419000 SDWAPERC EQU SDWAERRC 02420000 SDWAIRB EQU SDWAERRC 02421000 SDWASTAI EQU SDWAERRC 02422000 SDWASTAF EQU SDWAERRC 02423000 SDWASRBM EQU SDWAERRB 02424000 SDWALDIS EQU SDWAERRB 02425000 SDWAENRB EQU SDWAERRB 02426000 SDWATYP1 EQU SDWAERRB 02427000 @NM00059 EQU SDWAERRB 02428000 SDWAPGIO EQU SDWAERRA 02429000 SDWATEXC EQU SDWAERRA 02430000 SDWASVCE EQU SDWAERRA 02431000 SDWAABTM EQU SDWAERRA 02432000 SDWASVCD EQU SDWAERRA 02433000 SDWARKEY EQU SDWAERRA 02434000 SDWAPCHK EQU SDWAERRA 02435000 SDWAMCHK EQU SDWAERRA 02436000 SDWATIME EQU SDWAMCH+20 02437000 SDWARFSA EQU SDWAMCH+16 02438000 @NM00058 EQU SDWAMCH+14 02439000 SDWAVEQR EQU SDWARSR2 02440000 SDWAPGFX EQU SDWARSR2 02441000 SDWAFLSQ EQU SDWARSR2 02442000 SDWAFSQA EQU SDWARSR2 02443000 SDWANUCL EQU SDWARSR2 02444000 SDWASPER EQU SDWARSR2 02445000 SDWAINTC EQU SDWARSR2 02446000 SDWAOFLN EQU SDWARSR2 02447000 SDWACHNG EQU SDWARSR1 02448000 SDWAMSER EQU SDWARSR1 02449000 @NM00057 EQU SDWARSR1 02450000 SDWACPID EQU SDWAMCH+10 02451000 SDWATERR EQU SDWAMCHD 02452000 SDWAFPRX EQU SDWAMCHD 02453000 SDWAINSF EQU SDWAMCHD 02454000 SDWAACR EQU SDWAMCHD 02455000 SDWASCK EQU SDWAMCHD 02456000 SDWAPSWU EQU SDWAMCHD 02457000 SDWAREGU EQU SDWAMCHD 02458000 SDWASKYF EQU SDWAMCHD 02459000 @NM00056 EQU SDWAMCHS 02460000 SDWARSRF EQU SDWAMCHS 02461000 SDWARSRC EQU SDWAMCHS 02462000 SDWAINVP EQU SDWAMCHS 02463000 SDWATSVL EQU SDWAMCHS 02464000 SDWARCDF EQU SDWAMCHS 02465000 SDWASRVL EQU SDWAMCHS 02466000 SDWASCKE EQU SDWASTCK+4 02467000 SDWASCKB EQU SDWASTCK 02468000 SDWALNTH EQU SDWAIDNT+1 02469000 SDWASPID EQU SDWAIDNT 02470000 SDWASR14 EQU SDWASRSV+56 02471000 SDWASR13 EQU SDWASRSV+52 02472000 SDWASR12 EQU SDWASRSV+48 02473000 SDWASR11 EQU SDWASRSV+44 02474000 SDWASR10 EQU SDWASRSV+40 02475000 SDWASR09 EQU SDWASRSV+36 02476000 SDWASR08 EQU SDWASRSV+32 02477000 SDWASR07 EQU SDWASRSV+28 02478000 SDWASR06 EQU SDWASRSV+24 02479000 SDWASR05 EQU SDWASRSV+20 02480000 SDWASR04 EQU SDWASRSV+16 02481000 SDWASR03 EQU SDWASRSV+12 02482000 SDWASR02 EQU SDWASRSV+8 02483000 SDWATRN2 EQU SDWAAEC2+4 02484000 SDWAIPC2 EQU SDWAICD2 02485000 SDWAIMC2 EQU SDWAICD2 02486000 SDWAIPR2 EQU SDWAICD2 02487000 @NM00055 EQU SDWAINC2 02488000 @NM00054 EQU SDWAILC2 02489000 SDWAIL2 EQU SDWAILC2 02490000 @NM00053 EQU SDWAILC2 02491000 @NM00052 EQU SDWAAEC2 02492000 SDWAADD2 EQU SDWANXT2+1 02493000 @NM00051 EQU SDWANXT2 02494000 @NM00050 EQU SDWAEC2+3 02495000 SDWASGN2 EQU SDWAINT2 02496000 SDWAEXP2 EQU SDWAINT2 02497000 SDWADEC2 EQU SDWAINT2 02498000 SDWAFPO2 EQU SDWAINT2 02499000 SDWACC2 EQU SDWAINT2 02500000 @NM00049 EQU SDWAINT2 02501000 SDWAPGM2 EQU SDWAMWP2 02502000 SDWAWAT2 EQU SDWAMWP2 02503000 SDWAMCK2 EQU SDWAMWP2 02504000 SDWAECT2 EQU SDWAMWP2 02505000 SDWAKEY2 EQU SDWAMWP2 02506000 SDWAEXT2 EQU SDWAEMK2 02507000 SDWAIO2 EQU SDWAEMK2 02508000 SDWATRM2 EQU SDWAEMK2 02509000 @NM00048 EQU SDWAEMK2 02510000 SDWAPER2 EQU SDWAEMK2 02511000 @NM00047 EQU SDWAEMK2 02512000 SDWATRAN EQU SDWAAEC1+4 02513000 SDWAIPC1 EQU SDWAICD1 02514000 SDWAIMC1 EQU SDWAICD1 02515000 SDWAIPR1 EQU SDWAICD1 02516000 @NM00046 EQU SDWAINC1 02517000 @NM00045 EQU SDWAILC1 02518000 SDWAIL1 EQU SDWAILC1 02519000 @NM00044 EQU SDWAILC1 02520000 @NM00043 EQU SDWAAEC1 02521000 SDWAADD1 EQU SDWANXT1+1 02522000 @NM00042 EQU SDWANXT1 02523000 @NM00041 EQU SDWAEC1+3 02524000 SDWASGN1 EQU SDWAINT1 02525000 SDWAEXP1 EQU SDWAINT1 02526000 SDWADEC1 EQU SDWAINT1 02527000 SDWAFPO1 EQU SDWAINT1 02528000 SDWACC1 EQU SDWAINT1 02529000 @NM00040 EQU SDWAINT1 02530000 SDWAPGM1 EQU SDWAMWP1 02531000 SDWAWAT1 EQU SDWAMWP1 02532000 SDWAMCK1 EQU SDWAMWP1 02533000 SDWAECT1 EQU SDWAMWP1 02534000 SDWAKEY1 EQU SDWAMWP1 02535000 SDWAEXT1 EQU SDWAEMK1 02536000 SDWAIO1 EQU SDWAEMK1 02537000 SDWATRM1 EQU SDWAEMK1 02538000 @NM00039 EQU SDWAEMK1 02539000 SDWAPER1 EQU SDWAEMK1 02540000 @NM00038 EQU SDWAEMK1 02541000 SDWAIOBR EQU SDWA+100 02542000 SDWAEPA EQU SDWA+96 02543000 @NM00037 EQU SDWANAME+4 02544000 SDWARBAD EQU SDWANAME 02545000 SDWAGR15 EQU SDWAGRSV+60 02546000 SDWAGR14 EQU SDWAGRSV+56 02547000 SDWAGR13 EQU SDWAGRSV+52 02548000 SDWAGR12 EQU SDWAGRSV+48 02549000 SDWAGR11 EQU SDWAGRSV+44 02550000 SDWAGR10 EQU SDWAGRSV+40 02551000 SDWAGR09 EQU SDWAGRSV+36 02552000 SDWAGR08 EQU SDWAGRSV+32 02553000 SDWAGR07 EQU SDWAGRSV+28 02554000 SDWAGR06 EQU SDWAGRSV+24 02555000 SDWAGR05 EQU SDWAGRSV+20 02556000 SDWAGR04 EQU SDWAGRSV+16 02557000 SDWAGR03 EQU SDWAGRSV+12 02558000 SDWAGR02 EQU SDWAGRSV+8 02559000 SDWAGR01 EQU SDWAGRSV+4 02560000 SDWAGR00 EQU SDWAGRSV 02561000 SDWANXTP EQU SDWACTL2+5 02562000 SDWASGP EQU SDWAPMKP 02563000 SDWAEUP EQU SDWAPMKP 02564000 SDWADOP EQU SDWAPMKP 02565000 SDWAFPP EQU SDWAPMKP 02566000 SDWACCP EQU SDWAPMKP 02567000 SDWAILP EQU SDWAPMKP 02568000 SDWAINTP EQU SDWACTL2+2 02569000 SDWASPVP EQU SDWAMWPP 02570000 SDWAWATP EQU SDWAMWPP 02571000 SDWAMCKP EQU SDWAMWPP 02572000 @NM00036 EQU SDWAMWPP 02573000 SDWAKEYP EQU SDWAMWPP 02574000 SDWAEXTP EQU SDWACMKP 02575000 SDWAIOP EQU SDWACMKP 02576000 SDWANXTA EQU SDWACTL1+5 02577000 SDWASGA EQU SDWAPMKA 02578000 SDWAEUA EQU SDWAPMKA 02579000 SDWADOA EQU SDWAPMKA 02580000 SDWAFPA EQU SDWAPMKA 02581000 SDWACCA EQU SDWAPMKA 02582000 SDWAILA EQU SDWAPMKA 02583000 SDWAINTA EQU SDWACTL1+2 02584000 SDWASPVA EQU SDWAMWPA 02585000 SDWAWATA EQU SDWAMWPA 02586000 SDWAMCKA EQU SDWAMWPA 02587000 @NM00035 EQU SDWAMWPA 02588000 SDWAKEYA EQU SDWAMWPA 02589000 SDWAEXTA EQU SDWACMKA 02590000 SDWAIOA EQU SDWACMKA 02591000 SDWACMPC EQU SDWAABCC+1 02592000 @NM00034 EQU SDWACMPF 02593000 SDWASTCC EQU SDWACMPF 02594000 @NM00033 EQU SDWACMPF 02595000 SDWASTEP EQU SDWACMPF 02596000 @NM00032 EQU TCBXTNT2+32 02597000 TCBRV181 EQU TCBRV173 02598000 TCBRV180 EQU TCBRV173 02599000 TCBRV179 EQU TCBRV173 02600000 TCBRV178 EQU TCBRV173 02601000 TCBRV177 EQU TCBRV173 02602000 TCBRV176 EQU TCBRV173 02603000 TCBRV175 EQU TCBRV173 02604000 TCBRV174 EQU TCBRV173 02605000 TCBRV172 EQU TCBRV164 02606000 TCBRV171 EQU TCBRV164 02607000 TCBRV170 EQU TCBRV164 02608000 TCBRV169 EQU TCBRV164 02609000 TCBRV168 EQU TCBRV164 02610000 TCBRV167 EQU TCBRV164 02611000 TCBRV166 EQU TCBRV164 02612000 TCBRV165 EQU TCBRV164 02613000 TCBRV163 EQU TCBRV155 02614000 TCBRV162 EQU TCBRV155 02615000 TCBRV161 EQU TCBRV155 02616000 TCBRV160 EQU TCBRV155 02617000 TCBRV159 EQU TCBRV155 02618000 TCBRV158 EQU TCBRV155 02619000 TCBRV157 EQU TCBRV155 02620000 TCBRV156 EQU TCBRV155 02621000 TCBRV154 EQU TCBRV146 02622000 TCBRV153 EQU TCBRV146 02623000 TCBRV152 EQU TCBRV146 02624000 TCBRV151 EQU TCBRV146 02625000 TCBRV150 EQU TCBRV146 02626000 TCBRV149 EQU TCBRV146 02627000 TCBRV148 EQU TCBRV146 02628000 TCBRV147 EQU TCBRV146 02629000 TCBRV145 EQU TCBXTNT2+26 02630000 TCBRV144 EQU TCBXTNT2+24 02631000 TCBRV143 EQU TCBXTNT2+20 02632000 TCBRV142 EQU TCBXTNT2+16 02633000 TCBRSV49 EQU TCBXTNT2+12 02634000 TCBEVENT EQU TCBXTNT2+8 02635000 TCBRCMP EQU TCBXTNT2+5 02636000 TCBRSVAB EQU TCBXTNT2+4 02637000 TCBGTFA EQU TCBGTF+1 02638000 TCBRSV47 EQU TCBTFLG 02639000 TCBRSV46 EQU TCBTFLG 02640000 TCBRSV45 EQU TCBTFLG 02641000 TCBRSV44 EQU TCBTFLG 02642000 TCBRSV43 EQU TCBTFLG 02643000 TCBDSPIT EQU TCBTFLG 02644000 TCBERRTN EQU TCBTFLG 02645000 TCBASYNC EQU TCBTFLG 02646000 @NM00031 EQU TCB+296 02647000 TCBSVCA2 EQU TCB+292 02648000 TCBSWASA EQU TCB+288 02649000 TCBDBTB EQU TCB+284 02650000 TCBRPT EQU TCB+280 02651000 TCBRV141 EQU TCBRV133 02652000 TCBRV140 EQU TCBRV133 02653000 TCBRV139 EQU TCBRV133 02654000 TCBRV138 EQU TCBRV133 02655000 TCBRV137 EQU TCBRV133 02656000 TCBRV136 EQU TCBRV133 02657000 TCBRV135 EQU TCBRV133 02658000 TCBRV134 EQU TCBRV133 02659000 TCBRV132 EQU TCBRV124 02660000 TCBRV131 EQU TCBRV124 02661000 TCBRV130 EQU TCBRV124 02662000 TCBRV129 EQU TCBRV124 02663000 TCBRV128 EQU TCBRV124 02664000 TCBRV127 EQU TCBRV124 02665000 TCBRV126 EQU TCBRV124 02666000 TCBRV125 EQU TCBRV124 02667000 TCBRV123 EQU TCBFBYT2 02668000 TCBRV122 EQU TCBFBYT2 02669000 TCBECBNV EQU TCBFBYT2 02670000 TCBSSSYN EQU TCBFBYT2 02671000 TCBFPRAP EQU TCBFBYT2 02672000 TCBFDW EQU TCBFBYT2 02673000 TCBFMW EQU TCBFBYT2 02674000 TCBCNCB EQU TCBFBYT2 02675000 TCBLLH EQU TCBFBYT1 02676000 TCBRV113 EQU TCBFBYT1 02677000 TCBEOT EQU TCBFBYT1 02678000 TCBRTM2 EQU TCBFBYT1 02679000 TCBPGNLY EQU TCBFBYT1 02680000 TCBNDIOS EQU TCBFBYT1 02681000 TCBRV327 EQU TCBFBYT1 02682000 TCBEOTFM EQU TCBFBYT1 02683000 TCBAFFN EQU TCB+274 02684000 TCBRV326 EQU TCB+272 02685000 TCBUKYSP EQU TCB+268 02686000 TCBMODE EQU TCBESTAE+3 02687000 TCBERTYP EQU TCBESTAE+2 02688000 TCBRV314 EQU TCBESTRM 02689000 TCBRV313 EQU TCBESTRM 02690000 TCBRV312 EQU TCBESTRM 02691000 TCBRV311 EQU TCBESTRM 02692000 TCBRV310 EQU TCBESTRM 02693000 TCBRV309 EQU TCBESTRM 02694000 TCBRV308 EQU TCBESTRM 02695000 TCBETERM EQU TCBESTRM 02696000 TCBSCBKY EQU TCBESTAE 02697000 TCBRTM12 EQU TCB+260 02698000 TCBTCBID EQU TCB+256 02699000 TCBSTAWA EQU TCB+252 02700000 TCBSWA EQU TCB+248 02701000 TCBFOEA EQU TCBFOE+1 02702000 TCBRSV42 EQU TCBFOE 02703000 TCBCCPVI EQU TCBXSCT+2 02704000 TCBRV325 EQU TCBXSCT+1 02705000 TCBRV324 EQU TCBXSCT1 02706000 TCBRV323 EQU TCBXSCT1 02707000 TCBRV322 EQU TCBXSCT1 02708000 TCBRV321 EQU TCBXSCT1 02709000 TCBRV320 EQU TCBXSCT1 02710000 TCBRV319 EQU TCBXSCT1 02711000 TCBS3A EQU TCBXSCT1 02712000 TCBACTIV EQU TCBXSCT1 02713000 TCBRSV41 EQU TCB+239 02714000 TCBTID EQU TCB+238 02715000 TCBRSVAA EQU TCB+237 02716000 TCBABCUR EQU TCB+236 02717000 TCBTMSAV EQU TCB+232 02718000 TCBIOTIM EQU TCB+228 02719000 TCBRTWA EQU TCB+224 02720000 TCBBACK EQU TCB+220 02721000 TCBTIRB EQU TCB+216 02722000 TCBAECB EQU TCB+212 02723000 TCBEXT2A EQU TCBEXT2+1 02724000 TCBRSV39 EQU TCBEXT2 02725000 TCBSTMCT EQU TCB+207 02726000 TCBSYSCT EQU TCB+206 02727000 TCBRSV37 EQU TCB+205 02728000 TCBEXSVC EQU TCBDAR 02729000 TCBDARMS EQU TCBDAR 02730000 TCBDARWT EQU TCBDAR 02731000 TCBDARO EQU TCBDAR 02732000 TCBDARMC EQU TCBDARC 02733000 TCBDARD EQU TCBDAR 02734000 TCBDARS EQU TCBDAR 02735000 TCBDARP EQU TCBDAR 02736000 TCBGTOFM EQU TCBFLGS7 02737000 TCBADMP EQU TCBFLGS7 02738000 TCBRSTSK EQU TCBFLGS7 02739000 TCBSVCS EQU TCBFLGS7 02740000 TCBSTACK EQU TCBFLGS7 02741000 TCBRSV34 EQU TCBFLGS7 02742000 TCBRSV33 EQU TCBFLGS7 02743000 TCBGPECB EQU TCBFLGS7 02744000 TCBNTJS EQU TCBFLGS6 02745000 TCBAPG EQU TCBFLGS6 02746000 TCBMIGR EQU TCBFLGS6 02747000 TCBRV303 EQU TCBFLGS6 02748000 TCBSPVLK EQU TCBFLGS6 02749000 TCBCPU EQU TCBFLGS6 02750000 TCBPIE17 EQU TCBFLGS6 02751000 TCBRV EQU TCBFLGS6 02752000 TCBRSV79 EQU TCBNDSP5 02753000 TCBRSV78 EQU TCBNDSP5 02754000 TCBRSV77 EQU TCBNDSP5 02755000 TCBRSV76 EQU TCBNDSP5 02756000 TCBRSV75 EQU TCBNDSP5 02757000 TCBRSV74 EQU TCBNDSP5 02758000 TCBRSV95 EQU TCBNDSP5 02759000 TCBRSV94 EQU TCBNDSP5 02760000 TCBRSV93 EQU TCBNDSP4 02761000 TCBRSV92 EQU TCBNDSP4 02762000 TCBRSV91 EQU TCBNDSP4 02763000 TCBRSV90 EQU TCBNDSP4 02764000 TCBRSV89 EQU TCBNDSP4 02765000 TCBRSV88 EQU TCBNDSP4 02766000 TCBRSV87 EQU TCBNDSP4 02767000 TCBRSV86 EQU TCBNDSP4 02768000 TCBEXT1A EQU TCBEXT1+1 02769000 TCBRSV32 EQU TCBEXT1 02770000 TCBEXCPD EQU TCB+192 02771000 TCBIOBRC EQU TCB+188 02772000 TCBDDWTC EQU TCB+186 02773000 TCBDDEXC EQU TCB+184 02774000 TCBJSCBB EQU TCBJSCB+1 02775000 @NM00030 EQU TCBRECDE 02776000 TCBREC EQU TCBRECDE 02777000 TCBMDIDS EQU TCB+176 02778000 TCBNDINT EQU TCBNDSP3 02779000 TCBRSV27 EQU TCBNDSP3 02780000 TCBRSV26 EQU TCBNDSP3 02781000 TCBRSV25 EQU TCBNDSP3 02782000 TCBRSV24 EQU TCBNDSP3 02783000 TCBSRBND EQU TCBNDSP3 02784000 TCBRV302 EQU TCBNDSP3 02785000 TCBLJSND EQU TCBNDSP3 02786000 TCBABE EQU TCBNDSP2 02787000 TCBDSS EQU TCBNDSP2 02788000 TCBOWAIT EQU TCBNDSP2 02789000 TCBIWAIT EQU TCBNDSP2 02790000 TCBNDTS EQU TCBNDSP2 02791000 TCBNDSVC EQU TCBNDSP2 02792000 TCBSTPP EQU TCBNDSP2 02793000 TCBABD EQU TCBNDSP2 02794000 TCBRSV22 EQU TCBNDSP1 02795000 TCBPIEND EQU TCBNDSP1 02796000 TCBTPSP EQU TCBNDSP1 02797000 TCBDDRND EQU TCBNDSP1 02798000 TCBRSPND EQU TCBNDSP1 02799000 TCBRSTND EQU TCBNDSP1 02800000 TCBDARPN EQU TCBNDSP1 02801000 TCBDARTN EQU TCBNDSP1 02802000 TCBNDSP0 EQU TCBNDSP 02803000 TCBUSER EQU TCB+168 02804000 TCBTCTB EQU TCBTCT+1 02805000 TCBRSV9C EQU TCBTCTGF 02806000 TCBRSV9B EQU TCBTCTGF 02807000 TCBRSV9A EQU TCBTCTGF 02808000 TCBRSV99 EQU TCBTCTGF 02809000 TCBRSV98 EQU TCBTCTGF 02810000 TCBRSV97 EQU TCBTCTGF 02811000 TCBRSV20 EQU TCBTCTGF 02812000 TCBSMFGF EQU TCBTCTGF 02813000 TCBSTABB EQU TCBSTAB+1 02814000 TCBSTCUR EQU TCBNSTAE 02815000 TCBRV301 EQU TCBNSTAE 02816000 TCBSYNCH EQU TCBNSTAE 02817000 TCBHALT EQU TCBNSTAE 02818000 TCBPPSUP EQU TCBNSTAE 02819000 TCB33E EQU TCBNSTAE 02820000 TCBQUIES EQU TCBNSTAE 02821000 TCBSTABE EQU TCBNSTAE 02822000 TCBAQE EQU TCB+156 02823000 TCBPQE EQU TCB+152 02824000 TCBTSDP EQU TCB+151 02825000 TCBTSLP EQU TCB+150 02826000 TCBSTPCT EQU TCB+149 02827000 TCBCPUBN EQU TCBTSFLG 02828000 TCBDYDSP EQU TCBTSFLG 02829000 TCBRSV18 EQU TCBTSFLG 02830000 TCBRSV17 EQU TCBTSFLG 02831000 TCBTIOTG EQU TCBTSFLG 02832000 TCBATT EQU TCBTSFLG 02833000 TCBSTPPR EQU TCBTSFLG 02834000 TCBRV300 EQU TCBTSTSK 02835000 TCBECB EQU TCB+144 02836000 TCBIQE EQU TCB+140 02837000 TCBLTC EQU TCB+136 02838000 TCBOTC EQU TCB+132 02839000 TCBNTC EQU TCB+128 02840000 TCBJSTCA EQU TCBJSTCB+1 02841000 TCBRSV16 EQU TCBJSTCB 02842000 TCBTQET EQU TCBTME 02843000 TCBTCB EQU TCB+116 02844000 TCBFSAB EQU TCBFSA+1 02845000 TCBQEL EQU TCBFSA 02846000 TCBGRS15 EQU TCBGRS+60 02847000 TCBGRS14 EQU TCBGRS+56 02848000 TCBGRS13 EQU TCBGRS+52 02849000 TCBGRS12 EQU TCBGRS+48 02850000 TCBGRS11 EQU TCBGRS+44 02851000 TCBGRS10 EQU TCBGRS+40 02852000 TCBGRS9 EQU TCBGRS+36 02853000 TCBGRS8 EQU TCBGRS+32 02854000 TCBGRS7 EQU TCBGRS+28 02855000 TCBGRS6 EQU TCBGRS+24 02856000 TCBGRS5 EQU TCBGRS+20 02857000 TCBGRS4 EQU TCBGRS+16 02858000 TCBGRS3 EQU TCBGRS+12 02859000 TCBGRS2 EQU TCBGRS+8 02860000 TCBGRS1 EQU TCBGRS+4 02861000 TCBGRS0 EQU TCBGRS 02862000 TCBJPQB EQU TCBJPQ+1 02863000 TCBRSV15 EQU TCBPURGE 02864000 TCBRSV14 EQU TCBPURGE 02865000 TCBRSV13 EQU TCBPURGE 02866000 TCBRSV12 EQU TCBPURGE 02867000 TCBRSV11 EQU TCBPURGE 02868000 TCBRSV10 EQU TCBPURGE 02869000 TCBRSV09 EQU TCBPURGE 02870000 TCBJPQF EQU TCBPURGE 02871000 TCBJLB EQU TCB+40 02872000 TCBLLS EQU TCB+36 02873000 TCBDSP EQU TCB+35 02874000 TCBLMP EQU TCB+34 02875000 TCBPNDSP EQU TCBFLGS5 02876000 TCBFCD1 EQU TCBFLGS5 02877000 TCBSTP EQU TCBFLGS5 02878000 TCBSYS EQU TCBFLGS5 02879000 TCBANDSP EQU TCBFLGS5 02880000 TCBPAGE EQU TCBFLGS5 02881000 TCBUXNDF EQU TCBABWF 02882000 TCBFC EQU TCBFLGS5 02883000 TCBONDSP EQU TCBFLGS4 02884000 TCBMPCND EQU TCBFLGS4 02885000 TCBMPCVQ EQU TCBFLGS4 02886000 TCBUXNDV EQU TCBFLGS4 02887000 TCBHNDSP EQU TCBFLGS4 02888000 TCBRQENA EQU TCBFLGS4 02889000 TCBSER EQU TCBFLGS4 02890000 TCBNDUMP EQU TCBFLGS4 02891000 TCBDWSTA EQU TCBFLGS3 02892000 TCBRSV08 EQU TCBFLGS3 02893000 TCBRSV07 EQU TCBFLGS3 02894000 TCBRSV06 EQU TCBFLGS3 02895000 TCBABGM EQU TCBFLGS3 02896000 TCBABTRM EQU TCBFLGS3 02897000 TCBADINP EQU TCBFLGS3 02898000 TCBFSM EQU TCBFLGS3 02899000 TCBFTS EQU TCBFLGS2 02900000 TCBFETXR EQU TCBFLGS2 02901000 TCBFDSOP EQU TCBFLGS2 02902000 TCBFJMC EQU TCBFLGS2 02903000 TCBFSMC EQU TCBFLGS2 02904000 TCBFABOP EQU TCBFLGS2 02905000 TCBFSTI EQU TCBFLGS2 02906000 TCBFOINP EQU TCBFLGS2 02907000 TCBFX EQU TCBFLGS1 02908000 TCBFS EQU TCBFLGS1 02909000 TCBFT EQU TCBFLGS1 02910000 TCBPDUMP EQU TCBFLGS1 02911000 TCBNONPR EQU TCBFLGS1 02912000 TCBFERA EQU TCBFLGS1 02913000 TCBFE EQU TCBFLGS1 02914000 TCBFA EQU TCBFLGS1 02915000 TCBZERO EQU TCBPKF 02916000 TCBFLAG EQU TCBPKF 02917000 TCBMSSB EQU TCBMSS+1 02918000 TCBRSV03 EQU TCBMSS 02919000 TCBTRNB EQU TCBTRN+1 02920000 TCBRSV02 EQU TCBABF 02921000 TCBOLTEP EQU TCBABF 02922000 TCBTCP EQU TCBABF 02923000 TCBTCPP EQU TCBABF 02924000 TCBRSV01 EQU TCBABF 02925000 TCBGRPH EQU TCBABF 02926000 TCBNOCHK EQU TCBABF 02927000 TCBMOD91 EQU TCBABF 02928000 TCBCMPC EQU TCBCMP+1 02929000 TCBRV318 EQU TCBCMSG 02930000 TCBRV317 EQU TCBCIND 02931000 TCBRV316 EQU TCBCWTO 02932000 TCBCASID EQU TCBCDBL 02933000 TCBNOCC EQU TCBSTCC 02934000 TCBDMPO EQU TCBCPP 02935000 TCBCSTEP EQU TCBCMPF 02936000 TCBCREQ EQU TCBCMPF 02937000 TCBTIO EQU TCB+12 02938000 TCBDEB EQU TCB+8 02939000 TCBPIEA EQU TCBPIE+1 02940000 TCBPM EQU TCBPMASK 02941000 @NM00029 EQU TCBPMASK 02942000 TCBRBP EQU TCB 02943000 TCBFRS6 EQU TCBFRS+24 02944000 TCBFRS4 EQU TCBFRS+16 02945000 TCBFRS2 EQU TCBFRS+8 02946000 TCBFRS0 EQU TCBFRS 02947000 ASCBEND EQU ASCB+208 02948000 ASCBSRBT EQU ASCB+200 02949000 ASCBSWTL EQU ASCB+196 02950000 ASCBRS14 EQU ASCB+195 02951000 ASCBSMCT EQU ASCB+194 02952000 ASCBRS12 EQU ASCB+192 02953000 ASCBPCTT EQU ASCB+188 02954000 ASCBVGTT EQU ASCB+184 02955000 ASCBRV43 EQU ASCBSRQ4 02956000 ASCBRV42 EQU ASCBSRQ4 02957000 ASCBRV41 EQU ASCBSRQ4 02958000 ASCBRV40 EQU ASCBSRQ4 02959000 ASCBRV39 EQU ASCBSRQ4 02960000 ASCBRV38 EQU ASCBSRQ4 02961000 ASCBRV37 EQU ASCBSRQ4 02962000 ASCBRV36 EQU ASCBSRQ4 02963000 ASCBRV35 EQU ASCBSRQ3 02964000 ASCBRV34 EQU ASCBSRQ3 02965000 ASCBRV33 EQU ASCBSRQ3 02966000 ASCBRV32 EQU ASCBSRQ3 02967000 ASCBRV31 EQU ASCBSRQ3 02968000 ASCBRV30 EQU ASCBSRQ3 02969000 ASCBRV29 EQU ASCBSRQ3 02970000 ASCBRV28 EQU ASCBSRQ3 02971000 ASCBRV27 EQU ASCBSRQ2 02972000 ASCBRV26 EQU ASCBSRQ2 02973000 ASCBRV25 EQU ASCBSRQ2 02974000 ASCBRV24 EQU ASCBSRQ2 02975000 ASCBRV23 EQU ASCBSRQ2 02976000 ASCBRV22 EQU ASCBSRQ2 02977000 ASCBRV21 EQU ASCBSRQ2 02978000 ASCBRV20 EQU ASCBSRQ2 02979000 ASCBRV19 EQU ASCBSRQ1 02980000 ASCBRV18 EQU ASCBSRQ1 02981000 ASCBRV17 EQU ASCBSRQ1 02982000 ASCBRV16 EQU ASCBSRQ1 02983000 ASCBRV15 EQU ASCBSRQ1 02984000 ASCBRV14 EQU ASCBSRQ1 02985000 ASCBRV13 EQU ASCBSRQ1 02986000 ASCBSTA EQU ASCBSRQ1 02987000 ASCBJBNS EQU ASCB+176 02988000 ASCBJBNI EQU ASCB+172 02989000 ASCBMCC EQU ASCB+168 02990000 ASCBRTWA EQU ASCB+164 02991000 ASCBIQEA EQU ASCB+160 02992000 ASCBXMPQ EQU ASCB+156 02993000 ASCBRS01 EQU ASCB+154 02994000 ASCBFMCT EQU ASCB+152 02995000 ASCBOUXB EQU ASCB+148 02996000 ASCBOUCB EQU ASCB+144 02997000 ASCBMECB EQU ASCB+140 02998000 ASCBQECB EQU ASCB+136 02999000 ASCBLSQH EQU ASCBLKGP+4 03000000 ASCBLOCK EQU ASCBLKGP 03001000 ASCBTCBS EQU ASCB+124 03002000 ASCBNVSC EQU ASCB+122 03003000 ASCBVSC EQU ASCB+120 03004000 ASCBSRBS EQU ASCB+118 03005000 ASCBSSRB EQU ASCB+116 03006000 ASCBRV06 EQU ASCBFLG2 03007000 ASCBRV05 EQU ASCBFLG2 03008000 ASCBRV04 EQU ASCBFLG2 03009000 ASCBSNQS EQU ASCBFLG2 03010000 ASCBS2S EQU ASCBFLG2 03011000 ASCBCEXT EQU ASCBFLG2 03012000 ASCBPXMT EQU ASCBFLG2 03013000 ASCBXMPT EQU ASCBFLG2 03014000 ASCBRF07 EQU ASCBDSP1 03015000 ASCBRF06 EQU ASCBDSP1 03016000 ASCBRF05 EQU ASCBDSP1 03017000 ASCBRF04 EQU ASCBDSP1 03018000 ASCBRF03 EQU ASCBDSP1 03019000 ASCBRF02 EQU ASCBDSP1 03020000 ASCBFAIL EQU ASCBDSP1 03021000 ASCBNOQ EQU ASCBDSP1 03022000 ASCBSWCT EQU ASCB+112 03023000 ASCBASXB EQU ASCB+108 03024000 ASCBTMCH EQU ASCB+104 03025000 ASCBNSWP EQU ASCBFLG1 03026000 ASCBTYP1 EQU ASCBFLG1 03027000 ASCBSTND EQU ASCBFLG1 03028000 ASCBABNT EQU ASCBFLG1 03029000 ASCBTERM EQU ASCBFLG1 03030000 ASCBS3S EQU ASCBFLG1 03031000 ASCBCMSH EQU ASCBFLG1 03032000 ASCBTOFF EQU ASCBFLG1 03033000 ASCBRF01 EQU ASCBRCTF 03034000 ASCBTMLW EQU ASCBRCTF 03035000 ASCBOUT EQU ASCBRCTF 03036000 ASCBWAIT EQU ASCBRCTF 03037000 ASCBRV08 EQU ASCBRCTF 03038000 ASCBFQU EQU ASCBRCTF 03039000 ASCBFRS EQU ASCBRCTF 03040000 ASCBTMNO EQU ASCBRCTF 03041000 ASCBAFFN EQU ASCBFW1 03042000 ASCBDUMP EQU ASCB+96 03043000 ASCBRV44 EQU ASCB+92 03044000 ASCBUBET EQU ASCB+88 03045000 ASCBECB EQU ASCB+84 03046000 ASCBJSTL EQU ASCB+80 03047000 ASCBEWST EQU ASCB+72 03048000 ASCBEJST EQU ASCB+64 03049000 ASCBTSB EQU ASCB+60 03050000 ASCBCSCB EQU ASCB+56 03051000 ASCBRSM EQU ASCB+52 03052000 ASCBLDA EQU ASCB+48 03053000 ASCBSTOR EQU ASCB+44 03054000 ASCBDP EQU ASCB+43 03055000 ASCBRV07 EQU ASCB+42 03056000 ASCBIOSM EQU ASCB+40 03057000 ASCBSEQN EQU ASCB+38 03058000 ASCBCPUS EQU ASCB+32 03059000 ASCBSPL EQU ASCB+28 03060000 ASCBIOSP EQU ASCB+24 03061000 ASCBSYNC EQU ASCBSUPC+4 03062000 ASCBSVRB EQU ASCBSUPC 03063000 ASCBCMSF EQU ASCB+12 03064000 ASCBBWDP EQU ASCB+8 03065000 ASCBFWDP EQU ASCB+4 03066000 ASCBASCB EQU ASCB 03067000 ASCBEGIN EQU ASCB 03068000 FRRSPARM EQU FRRSENTR+8 03069000 @NM00028 EQU FRRSFLGS+1 03070000 @NM00027 EQU FRRSFLG1 03071000 FRRSNEST EQU FRRSFLG1 03072000 FRRSRCUR EQU FRRSFLG1 03073000 FRRSFRRA EQU FRRSENTR 03074000 FRRSENTS EQU FRRS+84 03075000 FRRSRTMW EQU FRRS+16 03076000 FRRSCURR EQU FRRSHEAD+12 03077000 FRRSELEN EQU FRRSHEAD+8 03078000 FRRSLAST EQU FRRSHEAD+4 03079000 FRRSEMP EQU FRRSHEAD 03080000 SURV104 EQU SUBITS+13 03081000 SURV103 EQU SUBYTE13 03082000 SURV102 EQU SUBYTE13 03083000 SURV101 EQU SUBYTE13 03084000 SU100BT EQU SUBYTE13 03085000 SU99BIT EQU SUBYTE13 03086000 SU98BIT EQU SUBYTE13 03087000 SU97BIT EQU SUBYTE13 03088000 SU96BIT EQU SUBYTE13 03089000 SU95BIT EQU SUBYTE12 03090000 SU94BIT EQU SUBYTE12 03091000 SU93BIT EQU SUBYTE12 03092000 SU92BIT EQU SUBYTE12 03093000 SU91BIT EQU SUBYTE12 03094000 SU90BIT EQU SUBYTE12 03095000 SU89BIT EQU SUBYTE12 03096000 SU88BIT EQU SUBYTE12 03097000 SU87BIT EQU SUBYTE11 03098000 SU86BIT EQU SUBYTE11 03099000 SU85BIT EQU SUBYTE11 03100000 SU84BIT EQU SUBYTE11 03101000 SU83BIT EQU SUBYTE11 03102000 SU82BIT EQU SUBYTE11 03103000 SU81BIT EQU SUBYTE11 03104000 SU80BIT EQU SUBYTE11 03105000 SU79BIT EQU SUBYTE10 03106000 SU78BIT EQU SUBYTE10 03107000 SU77BIT EQU SUBYTE10 03108000 SU76BIT EQU SUBYTE10 03109000 SU75BIT EQU SUBYTE10 03110000 SU74BIT EQU SUBYTE10 03111000 SU73BIT EQU SUBYTE10 03112000 SU72BIT EQU SUBYTE10 03113000 SU71BIT EQU SUBYTE9 03114000 SU70BIT EQU SUBYTE9 03115000 SU69BIT EQU SUBYTE9 03116000 SU68BIT EQU SUBYTE9 03117000 SU67BIT EQU SUBYTE9 03118000 SU66BIT EQU SUBYTE9 03119000 SU65BIT EQU SUBYTE9 03120000 SU64BIT EQU SUBYTE9 03121000 SU63BIT EQU SUBYTE8 03122000 SU62BIT EQU SUBYTE8 03123000 SU61BIT EQU SUBYTE8 03124000 SU60BIT EQU SUBYTE8 03125000 SU59BIT EQU SUBYTE8 03126000 SU58BIT EQU SUBYTE8 03127000 SU57BIT EQU SUBYTE8 03128000 SU56BIT EQU SUBYTE8 03129000 SU55BIT EQU SUBYTE7 03130000 SU54BIT EQU SUBYTE7 03131000 SU53BIT EQU SUBYTE7 03132000 SU52BIT EQU SUBYTE7 03133000 SU51BIT EQU SUBYTE7 03134000 SU50BIT EQU SUBYTE7 03135000 SU49BIT EQU SUBYTE7 03136000 SU48BIT EQU SUBYTE7 03137000 SU47BIT EQU SUBYTE6 03138000 SU46BIT EQU SUBYTE6 03139000 SU45BIT EQU SUBYTE6 03140000 SU44BIT EQU SUBYTE6 03141000 SU43BIT EQU SUBYTE6 03142000 SU42BIT EQU SUBYTE6 03143000 SU41BIT EQU SUBYTE6 03144000 SU40BIT EQU SUBYTE6 03145000 SU39BIT EQU SUBYTE5 03146000 SU38BIT EQU SUBYTE5 03147000 SU37BIT EQU SUBYTE5 03148000 SU36BIT EQU SUBYTE5 03149000 SU35BIT EQU SUBYTE5 03150000 SU34BIT EQU SUBYTE5 03151000 SU32BIT EQU SUBYTE5 03152000 SU31BIT EQU SUBYTE4 03153000 SU30BIT EQU SUBYTE4 03154000 SU29BIT EQU SUBYTE4 03155000 SU28BIT EQU SUBYTE4 03156000 SU27BIT EQU SUBYTE4 03157000 SU26BIT EQU SUBYTE4 03158000 SU25BIT EQU SUBYTE4 03159000 SU24BIT EQU SUBYTE4 03160000 SU23BIT EQU SUBYTE3 03161000 SU22BIT EQU SUBYTE3 03162000 SU21BIT EQU SUBYTE3 03163000 SU20BIT EQU SUBYTE3 03164000 SU19BIT EQU SUBYTE3 03165000 SU18BIT EQU SUBYTE3 03166000 SU17BIT EQU SUBYTE3 03167000 SU16BIT EQU SUBYTE3 03168000 SU15BIT EQU SUBYTE2 03169000 SU14BIT EQU SUBYTE2 03170000 SU13BIT EQU SUBYTE2 03171000 SU12BIT EQU SUBYTE2 03172000 SU11BIT EQU SUBYTE2 03173000 SU10BIT EQU SUBYTE2 03174000 SU9BIT EQU SUBYTE2 03175000 SU8BIT EQU SUBYTE2 03176000 SU7BIT EQU SUBYTE1 03177000 SU6BIT EQU SUBYTE1 03178000 SU5BIT EQU SUBYTE1 03179000 SU4BIT EQU SUBYTE1 03180000 SU3BIT EQU SUBYTE1 03181000 SU2BIT EQU SUBYTE1 03182000 SU1BIT EQU SUBYTE1 03183000 SU0BIT EQU SUBYTE1 03184000 CVTLEVL EQU CVTRELNO+2 03185000 CVTNUMB EQU CVTRELNO 03186000 CVTMDL EQU CVTFIX+250 03187000 @NM00026 EQU CVTFIX+248 03188000 @NM00025 EQU CVTFIX 03189000 CVTRV482 EQU CVTXTNT2+128 03190000 CVTRV481 EQU CVTXTNT2+124 03191000 CVTRV480 EQU CVTXTNT2+120 03192000 CVTRV479 EQU CVTXTNT2+118 03193000 CVTRV478 EQU CVTXTNT2+117 03194000 CVTRV477 EQU CVTXTNT2+116 03195000 CVTRV476 EQU CVTXTNT2+115 03196000 CVTRV475 EQU CVTXTNT2+114 03197000 CVTRV474 EQU CVTRV466 03198000 CVTRV473 EQU CVTRV466 03199000 CVTRV472 EQU CVTRV466 03200000 CVTRV471 EQU CVTRV466 03201000 CVTRV470 EQU CVTRV466 03202000 CVTRV469 EQU CVTRV466 03203000 CVTRV468 EQU CVTRV466 03204000 CVTRV467 EQU CVTRV466 03205000 CVTRV465 EQU CVTRV457 03206000 CVTRV464 EQU CVTRV457 03207000 CVTRV463 EQU CVTRV457 03208000 CVTRV462 EQU CVTRV457 03209000 CVTRV461 EQU CVTRV457 03210000 CVTRV460 EQU CVTRV457 03211000 CVTRV459 EQU CVTRV457 03212000 CVTRV458 EQU CVTRV457 03213000 CVTRV456 EQU CVTXTNT2+108 03214000 CVTRV455 EQU CVTXTNT2+104 03215000 CVTRV454 EQU CVTXTNT2+100 03216000 CVTRV453 EQU CVTXTNT2+96 03217000 CVTRV452 EQU CVTXTNT2+94 03218000 CVTRV451 EQU CVTXTNT2+92 03219000 CVTRV450 EQU CVTXTNT2+90 03220000 CVTRV449 EQU CVTXTNT2+88 03221000 CVTRV448 EQU CVTXTNT2+87 03222000 CVTRV447 EQU CVTXTNT2+86 03223000 CVTRV446 EQU CVTRV438 03224000 CVTRV445 EQU CVTRV438 03225000 CVTRV444 EQU CVTRV438 03226000 CVTRV443 EQU CVTRV438 03227000 CVTRV442 EQU CVTRV438 03228000 CVTRV441 EQU CVTRV438 03229000 CVTRV440 EQU CVTRV438 03230000 CVTRV439 EQU CVTRV438 03231000 CVTRV437 EQU CVTRV429 03232000 CVTRV436 EQU CVTRV429 03233000 CVTRV435 EQU CVTRV429 03234000 CVTRV434 EQU CVTRV429 03235000 CVTRV433 EQU CVTRV429 03236000 CVTRV432 EQU CVTRV429 03237000 CVTRV431 EQU CVTRV429 03238000 CVTRV430 EQU CVTRV429 03239000 CVTRV428 EQU CVTXTNT2+80 03240000 CVTRV427 EQU CVTXTNT2+76 03241000 CVTRV426 EQU CVTXTNT2+72 03242000 CVTRV425 EQU CVTXTNT2+68 03243000 CVTATACT EQU CVTATCVT 03244000 CVTRV423 EQU CVTXTNT2+62 03245000 CVTRV422 EQU CVTXTNT2+60 03246000 CVTRV421 EQU CVTXTNT2+58 03247000 CVTRV420 EQU CVTXTNT2+56 03248000 CVTRV419 EQU CVTXTNT2+55 03249000 CVTRV418 EQU CVTXTNT2+54 03250000 CVTRV417 EQU CVTRV409 03251000 CVTRV416 EQU CVTRV409 03252000 CVTRV415 EQU CVTRV409 03253000 CVTRV414 EQU CVTRV409 03254000 CVTRV413 EQU CVTRV409 03255000 CVTRV412 EQU CVTRV409 03256000 CVTRV411 EQU CVTRV409 03257000 CVTRV410 EQU CVTRV409 03258000 CVTRV408 EQU CVTRV400 03259000 CVTRV407 EQU CVTRV400 03260000 CVTRV406 EQU CVTRV400 03261000 CVTRV405 EQU CVTRV400 03262000 CVTRV404 EQU CVTRV400 03263000 CVTRV403 EQU CVTRV400 03264000 CVTRV402 EQU CVTRV400 03265000 CVTRV401 EQU CVTRV400 03266000 CVTICB EQU CVTXTNT2+48 03267000 CVTSKTA EQU CVTXTNT2+44 03268000 CVTRSV99 EQU CVTXTNT2+40 03269000 CVTRSV98 EQU CVTXTNT2+36 03270000 CVTRSV97 EQU CVTXTNT2+34 03271000 CVTRSV96 EQU CVTXTNT2+32 03272000 CVTOLTEP EQU CVTXTNT2+28 03273000 CVTQIDA EQU CVTQID+1 03274000 CVTRSV95 EQU CVTQID 03275000 CVTRSV94 EQU CVTXTNT2+20 03276000 CVTRSV93 EQU CVTXTNT2+16 03277000 CVTRSV92 EQU CVTXTNT2+12 03278000 CVTDEBVR EQU CVTXTNT2+8 03279000 CVTRSV91 EQU CVTXTNT2+6 03280000 CVTRSV9H EQU CVTFLGBT 03281000 CVTRSV9G EQU CVTFLGBT 03282000 CVTRSV9F EQU CVTFLGBT 03283000 CVTRSV9E EQU CVTFLGBT 03284000 CVTRSV9D EQU CVTFLGBT 03285000 CVTRSV9C EQU CVTFLGBT 03286000 CVTVME EQU CVTFLGBT 03287000 CVTNPE EQU CVTFLGBT 03288000 CVTNUCLS EQU CVTXTNT2+4 03289000 CVTDSSVA EQU CVTDSSV+1 03290000 CVTRSV89 EQU CVTDSSV 03291000 CVTRSV88 EQU CVTXTNT1+8 03292000 CVTRSV87 EQU CVTXTNT1+4 03293000 CVTFACHN EQU CVTXTNT1 03294000 CVTRV488 EQU CVTMAP+412 03295000 CVTRV487 EQU CVTMAP+408 03296000 CVTRV486 EQU CVTMAP+404 03297000 CVTRV485 EQU CVTMAP+400 03298000 CVTACTAP EQU CVTMAP+396 03299000 CVTAUTH EQU CVTMAP+392 03300000 CVTATMCA EQU CVTATMCT+1 03301000 CVTATMST EQU CVTATMCT 03302000 CVTRSV61 EQU CVTMAP+384 03303000 CVTVOLT1 EQU CVTVOLM1+1 03304000 CVTVOLI1 EQU CVTVOLF1 03305000 CVTSTOA EQU CVTMAP+376 03306000 CVTRSV58 EQU CVTMAP+374 03307000 CVTRSV57 EQU CVTMAP+372 03308000 CVTDDCE EQU CVTMAP+368 03309000 CVTPNWFR EQU CVTMAP+364 03310000 CVTSMF EQU CVTMAP+360 03311000 CVTSULK EQU CVTMAP+358 03312000 CVTSLKO EQU CVTSYSK 03313000 CVTSLKP EQU CVTSYSK 03314000 CVTSLKQ EQU CVTSYSK 03315000 CVTSLKR EQU CVTSYSK 03316000 CVTRSV56 EQU CVTSYSK 03317000 CVTRSV55 EQU CVTSYSK 03318000 CVTRSV54 EQU CVTSYSK 03319000 CVTRSV53 EQU CVTSYSK 03320000 CVTRSV52 EQU CVTA1F1 03321000 CVTRSV51 EQU CVTA1F1 03322000 CVTRSV50 EQU CVTA1F1 03323000 CVTRSV49 EQU CVTA1F1 03324000 CVTRSV48 EQU CVTA1F1 03325000 CVTRSV47 EQU CVTA1F1 03326000 CVTSRSW EQU CVTA1F1 03327000 CVTPFSW EQU CVTA1F1 03328000 CVTPCVT EQU CVTMAP+352 03329000 CVTRSV46 EQU CVTMAP+344 03330000 CVTRSV45 EQU CVTMAP+340 03331000 CVTRSV44 EQU CVTMAP+338 03332000 CVTRSV43 EQU CVTMAP+336 03333000 CVTHJESA EQU CVTHJES+1 03334000 CVTRSV42 EQU CVTHJES 03335000 CVTEXT2A EQU CVTEXT2+1 03336000 CVTRSV41 EQU CVTEXT2 03337000 CVTAPFA EQU CVTAPF+1 03338000 CVTRSV40 EQU CVTAPF 03339000 CVTRV518 EQU CVTINTLA 03340000 CVTRV517 EQU CVTERPV 03341000 CVTEORM EQU CVTMAP+312 03342000 CVTMCHPR EQU CVTMAP+308 03343000 CVTTZ EQU CVTMAP+304 03344000 CVTJEPS EQU CVTMAP+300 03345000 CVTJESCT EQU CVTMAP+296 03346000 CVTMODE EQU CVTMAP+292 03347000 CVTPTRV EQU CVTMAP+288 03348000 CVTREAL EQU CVTMAP+284 03349000 CVTRSV39 EQU CVTMAP+280 03350000 CVTRSV38 EQU CVTMAP+276 03351000 CVTDMSRA EQU CVTDMSR+1 03352000 CVTRV634 EQU CVTDMSRF 03353000 CVTRV633 EQU CVTDMSRF 03354000 CVTRV632 EQU CVTDMSRF 03355000 CVTRV631 EQU CVTDMSRF 03356000 CVTRV630 EQU CVTDMSRF 03357000 CVTRV629 EQU CVTDMSRF 03358000 CVTUDUMP EQU CVTDMSRF 03359000 CVTSDUMP EQU CVTDMSRF 03360000 CVTQMSGA EQU CVTQMSG+1 03361000 CVTRSV36 EQU CVTQMSG 03362000 CVTAMFF EQU CVTMAP+264 03363000 CVTPURGA EQU CVTPURG+1 03364000 CVTRSV35 EQU CVTPURG 03365000 CVTCBSP EQU CVTMAP+256 03366000 CVTATERA EQU CVTATER+1 03367000 CVTSYST EQU CVTATER 03368000 CVTVOLT2 EQU CVTTAT 03369000 CVTVOLI2 EQU CVTVOLF2 03370000 CVTAQAVB EQU CVTAQAVT+1 03371000 CVTRSV34 EQU CVTTCMFG 03372000 CVTRSV33 EQU CVTTCMFG 03373000 CVTRSV32 EQU CVTTCMFG 03374000 CVTRSV31 EQU CVTTCMFG 03375000 CVTRSV30 EQU CVTTCMFG 03376000 CVTRSV29 EQU CVTTCMFG 03377000 CVTLDEV EQU CVTTCMFG 03378000 CVTTCRDY EQU CVTTCMFG 03379000 CVTGTFA EQU CVTGTF+1 03380000 CVTRSV27 EQU CVTGTFST 03381000 CVTRNIO EQU CVTGTFST 03382000 CVTUSR EQU CVTGTFST 03383000 CVTRV318 EQU CVTFORM 03384000 CVTRV317 EQU CVTTMODE 03385000 CVTRV316 EQU CVTSTATE 03386000 CVTRV315 EQU CVTGTFS 03387000 CVTGTFAV EQU CVTGTFS 03388000 CVT0SCR1 EQU CVTMAP+232 03389000 CVTRV515 EQU CVTMAP+228 03390000 CVTRMS EQU CVTMAP+224 03391000 CVTPATCH EQU CVTMAP+220 03392000 CVTTSCE EQU CVTMAP+216 03393000 CVTLNKSC EQU CVTMAP+214 03394000 CVTQABST EQU CVTMAP+212 03395000 CVTMDLDS EQU CVTMAP+208 03396000 CVTUSER EQU CVTMAP+204 03397000 CVTABEND EQU CVTMAP+200 03398000 CVTSMCA EQU CVTMAP+196 03399000 CVTRSV18 EQU CVTMAP+192 03400000 CVTQLPAQ EQU CVTMAP+188 03401000 CVTQCDSR EQU CVTMAP+184 03402000 CVTRSV17 EQU CVTOPTB 03403000 CVTRSV16 EQU CVTOPTB 03404000 CVTFP EQU CVTOPTB 03405000 CVTAPTHR EQU CVTOPTB 03406000 CVTNLOG EQU CVTOPTB 03407000 CVTTOD EQU CVTOPTB 03408000 CVTCTIMS EQU CVTOPTB 03409000 CVTPROT EQU CVTOPTB 03410000 CVTXPFP EQU CVTOPTA 03411000 CVTASCII EQU CVTOPTA 03412000 CVTRSV13 EQU CVTOPTA 03413000 CVTRSV12 EQU CVTOPTA 03414000 CVTNIP EQU CVTOPTA 03415000 CVTDDR EQU CVTOPTA 03416000 CVTAPR EQU CVTOPTA 03417000 CVTCCH EQU CVTOPTA 03418000 CVTSNCTR EQU CVTMAP+180 03419000 CVTQMWR EQU CVTMAP+176 03420000 CVTQOCR EQU CVTMAP+172 03421000 CVT1EF00 EQU CVTMAP+168 03422000 CVTMZ00 EQU CVTMAP+164 03423000 CVTHEAD EQU CVTMAP+160 03424000 CVTRSV11 EQU CVTMAP+156 03425000 CVT0PT01 EQU CVTMAP+152 03426000 CVTMSER EQU CVTMAP+148 03427000 CVTRV516 EQU CVTIERLC 03428000 CVTILCH EQU CVTMAP+140 03429000 CVT0DS EQU CVTMAP+136 03430000 CVTFBOSV EQU CVTMAP+132 03431000 CVTNUCB EQU CVTMAP+128 03432000 CVTIXAVL EQU CVTMAP+124 03433000 CVTIOQET EQU CVTMAP+120 03434000 CVTDCBA EQU CVTMAP+117 03435000 CVTMVS2 EQU CVTDCB 03436000 CVT6DAT EQU CVTDCB 03437000 CVT4MPS EQU CVTDCB 03438000 CVTRSV09 EQU CVTDCB 03439000 CVT4MS1 EQU CVTDCB 03440000 CVT2SPS EQU CVTDCB 03441000 CVT1SSS EQU CVTDCB 03442000 CVTRSV08 EQU CVTDCB 03443000 CVTSTB EQU CVTMAP+112 03444000 CVTQTD00 EQU CVTMAP+108 03445000 CVTQTE00 EQU CVTMAP+104 03446000 CVTCUCB EQU CVTMAP+100 03447000 CVTSJQ EQU CVTMAP+96 03448000 CVTPBLDL EQU CVTMAP+92 03449000 CVTTPC EQU CVTMAP+88 03450000 CVTSVDCB EQU CVTMAP+84 03451000 CVTBRET EQU CVTMAP+82 03452000 CVTEXIT EQU CVTMAP+80 03453000 CVT0FN00 EQU CVTMAP+76 03454000 CVTDARA EQU CVTDAR+1 03455000 CVTRSV07 EQU CVTFLGS1 03456000 CVTRSV06 EQU CVTFLGS1 03457000 CVTRSV05 EQU CVTFLGS1 03458000 CVTRSV04 EQU CVTFLGS1 03459000 CVTRSV03 EQU CVTFLGS1 03460000 CVTRSV02 EQU CVTFLGS1 03461000 CVTRSV01 EQU CVTFLGS1 03462000 CVTDMPLK EQU CVTFLGS1 03463000 CVTXITP EQU CVTMAP+68 03464000 CVTZDTAB EQU CVTMAP+64 03465000 CVTMSLT EQU CVTMAP+60 03466000 CVTDATE EQU CVTMAP+56 03467000 CVTBTERM EQU CVTMAP+52 03468000 CVTSYSAD EQU CVTMAP+48 03469000 CVTXTLER EQU CVTMAP+44 03470000 CVTILK2 EQU CVTMAP+40 03471000 CVTILK1 EQU CVTMAP+36 03472000 CVTPRLTV EQU CVTMAP+32 03473000 CVTPCNVT EQU CVTMAP+28 03474000 CVT0VL00 EQU CVTMAP+24 03475000 CVTXAPG EQU CVTMAP+20 03476000 CVTBUF EQU CVTMAP+16 03477000 CVTJOB EQU CVTMAP+12 03478000 CVTLINK EQU CVTMAP+8 03479000 CVT0EF00 EQU CVTMAP+4 03480000 CVTTCBP EQU CVTMAP 03481000 CVT EQU CVTMAP 03482000 @NM00024 EQU PSA+3668 03483000 PSASTAK EQU PSA+3072 03484000 @NM00023 EQU PSA+1048 03485000 PSAUSEND EQU PSA+1048 03486000 PSARV062 EQU PSA+1044 03487000 PSACDAL EQU PSA+1040 03488000 PSAWTCOD EQU PSA+1036 03489000 PSAATCVT EQU PSA+1032 03490000 PSAPCPSW EQU PSA+1024 03491000 PSAPIR2 EQU PSA+1020 03492000 PSARV059 EQU PSA+1018 03493000 PSASVC13 EQU PSA+1016 03494000 PSALSFCC EQU PSA+1012 03495000 PSASFACC EQU PSA+1008 03496000 PSASTOP EQU PSA+992 03497000 PSASTART EQU PSA+976 03498000 PSARSPSW EQU PSA+968 03499000 PSASRPSW EQU PSA+960 03500000 PSARV045 EQU PSA+892 03501000 PSARV044 EQU PSA+888 03502000 PSARV043 EQU PSA+884 03503000 PSARV042 EQU PSA+880 03504000 PSARV041 EQU PSA+876 03505000 PSARV040 EQU PSA+872 03506000 PSARV025 EQU PSA+868 03507000 PSADSSED EQU PSA+868 03508000 PSADSSPR EQU PSA+864 03509000 PSADSSFW EQU PSA+860 03510000 PSADSS14 EQU PSA+856 03511000 PSADSSPP EQU PSA+848 03512000 PSADSSRP EQU PSA+840 03513000 PSADSS05 EQU PSADSSF4 03514000 PSADSS10 EQU PSADSSF4 03515000 PSADSSVE EQU PSADSSF4 03516000 PSADSSDE EQU PSADSSF4 03517000 PSADSSC0 EQU PSADSSF4 03518000 PSADSSIE EQU PSADSSF4 03519000 PSADSS12 EQU PSADSSF4 03520000 PSADSSRC EQU PSADSSF4 03521000 PSARV057 EQU PSADSSF3 03522000 PSARV056 EQU PSADSSF3 03523000 PSARV055 EQU PSADSSF3 03524000 PSADSSMC EQU PSADSSF3 03525000 PSADSSRW EQU PSADSSF3 03526000 PSADSSNM EQU PSADSSF3 03527000 PSADSSES EQU PSADSSF3 03528000 PSADSSGP EQU PSADSSF3 03529000 PSADSSF2 EQU PSADSSFL+1 03530000 PSADSSPI EQU PSADSSF1 03531000 PSADSSOI EQU PSADSSF1 03532000 PSADSSSP EQU PSADSSF1 03533000 PSADSSTP EQU PSADSSF1 03534000 PSADSSDW EQU PSADSSF1 03535000 PSADSSDD EQU PSADSSF1 03536000 PSADSSDM EQU PSADSSF1 03537000 PSADSSMV EQU PSADSSF1 03538000 PSADSSTS EQU PSA+816 03539000 PSADSSWK EQU PSA+812 03540000 PSADSSR3 EQU PSA+808 03541000 PSADSSR2 EQU PSA+804 03542000 PSADSSRS EQU PSA+800 03543000 PSASTOR EQU PSA+796 03544000 PSACPUSA EQU PSA+794 03545000 PSAVSTAP EQU PSA+792 03546000 PSAWKVAP EQU PSA+788 03547000 PSAWKRAP EQU PSA+784 03548000 PSAMCHIC EQU PSA+783 03549000 PSARV061 EQU PSA+782 03550000 PSASYMSK EQU PSA+781 03551000 PSAMCHFL EQU PSA+780 03552000 PSACR0 EQU PSA+776 03553000 PSAPSWSV EQU PSA+768 03554000 PSALITA EQU PSA+764 03555000 PSACLHS EQU PSAHLHI 03556000 PSALKR15 EQU PSALKSA+60 03557000 PSALKR14 EQU PSALKSA+56 03558000 PSALKR13 EQU PSALKSA+52 03559000 PSALKR12 EQU PSALKSA+48 03560000 PSALKR11 EQU PSALKSA+44 03561000 PSALKR10 EQU PSALKSA+40 03562000 PSALKR9 EQU PSALKSA+36 03563000 PSALKR8 EQU PSALKSA+32 03564000 PSALKR7 EQU PSALKSA+28 03565000 PSALKR6 EQU PSALKSA+24 03566000 PSALKR5 EQU PSALKSA+20 03567000 PSALKR4 EQU PSALKSA+16 03568000 PSALKR3 EQU PSALKSA+12 03569000 PSALKR2 EQU PSALKSA+8 03570000 PSALKR1 EQU PSALKSA+4 03571000 PSALKR0 EQU PSALKSA 03572000 PSARV023 EQU PSACLHT+52 03573000 PSALOCAL EQU PSACLHT+48 03574000 PSACMSL EQU PSACLHT+44 03575000 PSAOPTL EQU PSACLHT+40 03576000 PSATPACL EQU PSACLHT+36 03577000 PSATPDNL EQU PSACLHT+32 03578000 PSATPNCL EQU PSACLHT+28 03579000 PSAIOSLL EQU PSACLHT+24 03580000 PSAIOSUL EQU PSACLHT+20 03581000 PSAIOSCL EQU PSACLHT+16 03582000 PSAIOSSL EQU PSACLHT+12 03583000 PSASALCL EQU PSACLHT+8 03584000 PSAASML EQU PSACLHT+4 03585000 PSADISPL EQU PSACLHT 03586000 PSASRSA EQU PSA+636 03587000 PSARV050 EQU PSA+634 03588000 PSADSSGO EQU PSA+633 03589000 PSARECUR EQU PSA+632 03590000 PSAHLHIS EQU PSA+628 03591000 PSAIPCSA EQU PSA+624 03592000 @NM00022 EQU PSA+621 03593000 PSAIPCDM EQU PSA+620 03594000 PSAIPCD EQU PSA+616 03595000 @NM00021 EQU PSA+613 03596000 PSAIPCRM EQU PSA+612 03597000 PSAIPCR EQU PSA+608 03598000 PSAMCHEX EQU PSA+600 03599000 PSAMPSW EQU PSA+592 03600000 PSAEXPS2 EQU PSA+584 03601000 PSAEXPS1 EQU PSA+576 03602000 PSAPIREG EQU PSA+572 03603000 PSARSREG EQU PSA+568 03604000 PSAGPREG EQU PSA+556 03605000 PSARV022 EQU PSASUP4 03606000 PSARV021 EQU PSASUP4 03607000 PSARV020 EQU PSASUP4 03608000 PSARV019 EQU PSASUP4 03609000 PSARV018 EQU PSASUP4 03610000 PSARV017 EQU PSASUP4 03611000 PSARV016 EQU PSASUP4 03612000 PSARV015 EQU PSASUP4 03613000 PSARV014 EQU PSASUP3 03614000 PSARV013 EQU PSASUP3 03615000 PSARV012 EQU PSASUP3 03616000 PSAESTA EQU PSASUP3 03617000 PSASPR EQU PSASUP3 03618000 PSAPSREG EQU PSASUP3 03619000 PSAPI2 EQU PSASUP3 03620000 PSAIOSUP EQU PSASUP3 03621000 PSALCR EQU PSASUP2 03622000 PSARTM EQU PSASUP2 03623000 PSAACR EQU PSASUP2 03624000 PSAIPCE2 EQU PSASUP2 03625000 PSAIPCES EQU PSASUP2 03626000 PSAIPCEC EQU PSASUP2 03627000 PSAGTF EQU PSASUP2 03628000 PSAIPCRI EQU PSASUP2 03629000 PSATYPE6 EQU PSASUP1 03630000 PSATCTL EQU PSASUP1 03631000 PSADISP EQU PSASUP1 03632000 PSALOCK EQU PSASUP1 03633000 PSAPI EQU PSASUP1 03634000 PSAEXT EQU PSASUP1 03635000 PSASVC EQU PSASUP1 03636000 PSAIO EQU PSASUP1 03637000 PSAANEW EQU PSA+544 03638000 PSATNEW EQU PSA+536 03639000 PSALCCAR EQU PSA+532 03640000 PSALCCAV EQU PSA+528 03641000 PSAPCCAR EQU PSA+524 03642000 PSAPCCAV EQU PSA+520 03643000 PSACPULA EQU PSA+518 03644000 PSACPUPA EQU PSA+516 03645000 PSAPSA EQU PSA+512 03646000 FLCHDEND EQU PSA+512 03647000 FLCCRSAV EQU FLCMCLA+280 03648000 FLCGRSAV EQU FLCMCLA+216 03649000 FLCFPSAV EQU FLCMCLA+184 03650000 FLCFLA EQU FLCMCLA+88 03651000 FLCRGNCD EQU FLCMCLA+84 03652000 FLCFSAA EQU FLCFSA+1 03653000 @NM00020 EQU FLCFSA 03654000 @NM00019 EQU FLCMCLA+72 03655000 FLCMCIC EQU FLCMCLA+64 03656000 @NM00018 EQU FLCMCLA+20 03657000 FLCIOAA EQU FLCIOA+1 03658000 @NM00017 EQU FLCIOA 03659000 @NM00016 EQU FLCMCLA+15 03660000 @NM00015 EQU FLCMCLA+14 03661000 @NM00014 EQU FLCMCLA+12 03662000 FLCLCL EQU FLCMCLA+8 03663000 FLCIOELA EQU FLCIOEL+1 03664000 @NM00013 EQU FLCIOEL 03665000 FLCCHNID EQU FLCMCLA 03666000 @NM00012 EQU PSA+160 03667000 FLCMTRCD EQU PSA+157 03668000 @NM00011 EQU PSA+156 03669000 FLCPERA EQU FLCPER+1 03670000 @NM00010 EQU FLCPER 03671000 @NM00009 EQU PSA+151 03672000 FLCPERCD EQU PSA+150 03673000 FLCMCNUM EQU PSA+149 03674000 @NM00008 EQU PSA+148 03675000 FLCTEAA EQU FLCTEA+1 03676000 @NM00007 EQU FLCTEA 03677000 PSAPIPC EQU PSAPICOD 03678000 PSAPIMC EQU PSAPICOD 03679000 PSAPIPER EQU PSAPICOD 03680000 PSARV049 EQU FLCPICOD 03681000 FLCPILCB EQU FLCPIILC 03682000 @NM00006 EQU FLCPIILC 03683000 @NM00005 EQU PSAEPPSW 03684000 FLCSVCN EQU PSAESPSW+2 03685000 FLCSILCB EQU FLCSVILC 03686000 @NM00004 EQU FLCSVILC 03687000 @NM00003 EQU PSAESPSW 03688000 FLCEICOD EQU PSAEEPSW+2 03689000 PSASPAD EQU PSAEEPSW 03690000 @NM00002 EQU PSA+128 03691000 FLCINPSW EQU PSA+120 03692000 FLCMNPSW EQU PSA+112 03693000 FLCPNPSW EQU PSA+104 03694000 FLCSNPSW EQU PSA+96 03695000 FLCENPSW EQU PSA+88 03696000 FLCTRACE EQU PSA+84 03697000 FLCTIMER EQU PSA+80 03698000 FLCCVT2 EQU PSA+76 03699000 FLCCAW EQU PSA+72 03700000 FLCCSW EQU PSA+64 03701000 FLCIOPSW EQU PSA+56 03702000 FLCMOPSW EQU PSA+48 03703000 FLCPOPSW EQU PSA+40 03704000 FLCSOPSW EQU PSA+32 03705000 FLCEOPSW EQU PSA+24 03706000 @NM00001 EQU FLCICCW2+4 03707000 FLCICCW1 EQU FLCROPSW 03708000 FLCIPPSW EQU FLCRNPSW 03709000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03710000 @RT00188 EQU E0012 03711000 @RC00250 EQU @RC00249 03712000 @ENDDATA EQU * 03713000 END IGTUKA,(C'PLS1629',0701,77092) 03714000