TITLE 'IEESB665 - STC RECOVERY EXIT ROUTINE ' 00001000 IEESB665 CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'IEESB665 73.193' 0001 00007000 DROP @15 00008000 @PROLOG BALR @10,0 0001 00009000 @PSTART DS 0H 0001 00010000 USING @PSTART,@10 0001 00011000 * SDWAPTR=R1; /* POINT TO THE SDWA ON ENTRY */ 00012000 LR SDWAPTR,R1 0024 00013000 * R7=R14; /* SAVE THE RETURN ADDRESS */ 00014000 LR R7,R14 0025 00015000 * IF(R0=12)THEN /* IF NO SDWA */ 00016000 CH R0,@CH01661 0026 00017000 BNE @RF00026 0026 00018000 * R15=0; /* INDICATE NO RETRY */ 00019000 SR R15,R15 0027 00020000 * ELSE 0028 00021000 * DO; 0028 00022000 * 0028 00023000 B @RC00026 0028 00024000 @RF00026 DS 0H 0029 00025000 * /*************************************************************/ 00026000 * /* */ 00027000 * /* AUTOMATIC STORAGE MUST BE EXPLICITLY GOTTEN AND FREED */ 00028000 * /* BECAUSE BOTH REGISTERS 0 ND 1 UPON ENTRY TO THIS MODULE */ 00029000 * /* CONTAIN INPUT, AND THE PLS GETMAIN WOULD DESTROY THEN */ 00030000 * /* */ 00031000 * /*************************************************************/ 00032000 * 0029 00033000 * GEN; 0029 00034000 L R0,@SIZDATD 00035000 GETMAIN R,LV=(0) 00036000 LR R11,R1 00037000 USING @DATD,R11 00038000 LR R13,R11 00039000 * STAEPTR=SDWAPARM; /* ADDRESS THE STAE PARAMETER 0030 00040000 * LIST */ 00041000 L STAEPTR,SDWAPARM(,SDWAPTR) 0030 00042000 * IF(STAERTY='1'B)|(SDWAPERC='1'B)THEN/* IF PERCUALTION OR 0031 00043000 * RECUSSION THE FREE CSCB AND 0031 00044000 * RETURN */ 00045000 * 0031 00046000 TM STAERTY(STAEPTR),B'10000000' 0031 00047000 BO @RT00031 0031 00048000 TM SDWAPERC(SDWAPTR),B'00010000' 0031 00049000 BNO @RF00031 0031 00050000 @RT00031 DS 0H 0032 00051000 * /***********************************************************/ 00052000 * /* */ 00053000 * /* ISSUE ?SETRP RECPARM(SB665) RECORD(YES) RC(0) */ 00054000 * /* WKAREA(SDWAPTR) */ 00055000 * /* */ 00056000 * /***********************************************************/ 00057000 * 0032 00058000 * DO; 0032 00059000 * DO; /* SETRP RECPARM(SB665) 0033 00060000 * RECORD(YES) RC(0) 0033 00061000 * WKAREA(SDWAPTR) */ 00062000 * RESPECIFY 0034 00063000 * (GPR00P, 0034 00064000 * GPR01P, 0034 00065000 * GPR14P, 0034 00066000 * GPR15P)RSTD; 0034 00067000 * GPR01P=SDWAPTR; 0035 00068000 LR GPR01P,SDWAPTR 0035 00069000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00070000 MVI SDWARCDE(GPR01P),X'00' 0036 00071000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 00072000 OI SDWARCRD(GPR01P),B'10000000' 0037 00073000 * GPR15P=ADDR(SB665); /* ACCESS RECORD PARAMETER LIST */ 00074000 LA GPR15P,SB665 0038 00075000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 0039 00076000 * PARAMETERS */ 00077000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0039 00078000 * RESPECIFY 0040 00079000 * (GPR00P, 0040 00080000 * GPR01P, 0040 00081000 * GPR14P, 0040 00082000 * GPR15P)UNRSTD; 0040 00083000 * END; 0041 00084000 * RESPECIFY 0042 00085000 * ASCB BASED(SAVEASCB); /* USE PASSED ASCB */ 00086000 * RESPECIFY 0043 00087000 * SDWA BASED(SDWAPTR); /* REBASE THE SDWA */ 00088000 * CSCBPTR=ASCBCSCB; /* ADDRESS THE CSCB */ 00089000 L @12,SAVEASCB(,STAEPTR) 0044 00090000 L CSCBPTR,ASCBCSCB(,@12) 0044 00091000 * ASCBJBNS=0; /* CLEAR THE GTF FIELD */ 00092000 SR @06,@06 0045 00093000 ST @06,ASCBJBNS(,@12) 0045 00094000 * IF CSCBPTR^=0 THEN /* IF NO CSCB DO NOT TRY TO FREE */ 00095000 CR CSCBPTR,@06 0046 00096000 BE @RF00046 0046 00097000 * DO; 0047 00098000 * 0047 00099000 * /*****************************************************/ 00100000 * /* */ 00101000 * /* FREE THE CSCB HERE */ 00102000 * /* */ 00103000 * /*****************************************************/ 00104000 * 0048 00105000 * CHDL='1'B; /* SET THE DELETE BIT IN CSCB */ 00106000 * CHFC='1'B; /* SET THE FREE THIS CSCB BIT */ 00107000 * 0049 00108000 OI CHDL(CSCBPTR),B'00000110' 0049 00109000 * /*****************************************************/ 00110000 * /* */ 00111000 * /* USE SETLOCK TO CLEAR ACSBCSCB FIELD IN THE ASCB */ 00112000 * /* */ 00113000 * /*****************************************************/ 00114000 * 0050 00115000 *ISSUE: 0050 00116000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 00117000 * TYPE(LOCAL) REGS(SAVE) 0050 00118000 * RELATED(ASCB,IEESB665,ISSUE2) */ 00119000 ISSUE DS 0H 0051 00120000 * RFY 0051 00121000 * (GPR11P, 0051 00122000 * GPR12P, 0051 00123000 * GPR13P, 0051 00124000 * GPR14P)RSTD; 0051 00125000 * RFY 0052 00126000 * GPR15P RSTD; 0052 00127000 * GPR15P=GPR13P; /* ADDRESS OF REGISTER SAVE AREA.*/ 00128000 LR GPR15P,GPR13P 0053 00129000 * GEN(STM GPR11P,GPR14P,0(GPR15P));/* SAVE REGISTERS.*/ 00130000 STM GPR11P,GPR14P,0(GPR15P) 00131000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0055 00132000 * TABLE. */ 00133000 L GPR13P,PSALITA 0055 00134000 * GEN(LM GPR11P,GPR13P,576(GPR13P));/* LOAD LOCKWORD, 00135000 * CLHT AND ENTRY ADRS. */ 00136000 LM GPR11P,GPR13P,576(GPR13P) 00137000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 00138000 BALR GPR14P,GPR13P 00139000 * GEN(ST GPR13P,16(GPR15P));/* SAVE RETURN CODE IN 0058 00140000 * SAVE AREA. */ 00141000 ST GPR13P,16(GPR15P) 00142000 * GEN(LM GPR11P,GPR15P,0(GPR15P));/* RESTORE REGS. - 00143000 * PUT RETURN CODE IN 15. */ 00144000 LM GPR11P,GPR15P,0(GPR15P) 00145000 * RFY 0060 00146000 * GPR15P UNRSTD; 0060 00147000 * RFY 0061 00148000 * (GPR11P, 0061 00149000 * GPR12P, 0061 00150000 * GPR13P, 0061 00151000 * GPR14P)UNRSTD; 0061 00152000 * END; /* SETLOCK (OBTAIN) MODE(UNCOND) 00153000 * TYPE(LOCAL) REGS(SAVE) 0062 00154000 * RELATED(ASCB,IEESB665,ISSUE2) */ 00155000 *ISSUE3: 0063 00156000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 00157000 * TYPE(CMS) REGS(SAVE) 0063 00158000 * RELATED(ASCB,IEESB665,ISSUE4) */ 00159000 ISSUE3 DS 0H 0064 00160000 * RFY 0064 00161000 * (GPR11P, 0064 00162000 * GPR12P, 0064 00163000 * GPR13P, 0064 00164000 * GPR14P)RSTD; 0064 00165000 * RFY 0065 00166000 * GPR15P RSTD; 0065 00167000 * GPR15P=GPR13P; /* ADDRESS OF REGISTER SAVE AREA.*/ 00168000 LR GPR15P,GPR13P 0066 00169000 * GEN(STM GPR11P,GPR14P,0(GPR15P));/* SAVE REGISTERS.*/ 00170000 STM GPR11P,GPR14P,0(GPR15P) 00171000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0068 00172000 * TABLE. */ 00173000 L GPR13P,PSALITA 0068 00174000 * GEN(LM GPR11P,GPR13P,540(GPR13P));/* LOAD LOCKWORD, 00175000 * CLHT AND ENTRY ADRS. */ 00176000 LM GPR11P,GPR13P,540(GPR13P) 00177000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 00178000 BALR GPR14P,GPR13P 00179000 * GEN(ST GPR13P,16(GPR15P));/* SAVE RETURN CODE IN 0071 00180000 * SAVE AREA. */ 00181000 ST GPR13P,16(GPR15P) 00182000 * GEN(LM GPR11P,GPR15P,0(GPR15P));/* RESTORE REGS. - 00183000 * PUT RETURN CODE IN 15. */ 00184000 LM GPR11P,GPR15P,0(GPR15P) 00185000 * RFY 0073 00186000 * GPR15P UNRSTD; 0073 00187000 * RFY 0074 00188000 * (GPR11P, 0074 00189000 * GPR12P, 0074 00190000 * GPR13P, 0074 00191000 * GPR14P)UNRSTD; 0074 00192000 * END; /* SETLOCK (OBTAIN) MODE(UNCOND) 00193000 * TYPE(CMS) REGS(SAVE) 0075 00194000 * RELATED(ASCB,IEESB665,ISSUE4) */ 00195000 * ASCBCSCB=''B; 0076 00196000 L @12,SAVEASCB(,STAEPTR) 0076 00197000 SR @06,@06 0076 00198000 ST @06,ASCBCSCB(,@12) 0076 00199000 *ISSUE4: 0077 00200000 * DO; /* SETLOCK (RELEASE) TYPE(CMS) 0077 00201000 * REGS(SAVE) 0077 00202000 * RELATED(ASCB,IEESB665,ISSUE3) */ 00203000 ISSUE4 DS 0H 0078 00204000 * RFY 0078 00205000 * (GPR11P, 0078 00206000 * GPR12P, 0078 00207000 * GPR13P, 0078 00208000 * GPR14P)RSTD; 0078 00209000 * RFY 0079 00210000 * GPR15P RSTD; 0079 00211000 * GPR15P=GPR13P; /* ADDRESS OF REGISTER SAVE AREA.*/ 00212000 LR GPR15P,GPR13P 0080 00213000 * GEN(STM GPR11P,GPR14P,0(GPR15P));/* SAVE REGISTERS.*/ 00214000 STM GPR11P,GPR14P,0(GPR15P) 00215000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0082 00216000 * TABLE. */ 00217000 L GPR13P,PSALITA 0082 00218000 * GEN(LM GPR11P,GPR13P,552(GPR13P));/* LOAD LOCKWORD, 00219000 * CLHT AND ENTRY ADRS. */ 00220000 LM GPR11P,GPR13P,552(GPR13P) 00221000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 00222000 BALR GPR14P,GPR13P 00223000 * GEN(ST GPR13P,16(GPR15P));/* SAVE RETURN CODE IN 0085 00224000 * SAVE AREA. */ 00225000 ST GPR13P,16(GPR15P) 00226000 * GEN(LM GPR11P,GPR15P,0(GPR15P));/* RESTORE REGS. - 00227000 * PUT RETURN CODE IN 15. */ 00228000 LM GPR11P,GPR15P,0(GPR15P) 00229000 * RFY 0087 00230000 * GPR15P UNRSTD; 0087 00231000 * RFY 0088 00232000 * (GPR11P, 0088 00233000 * GPR12P, 0088 00234000 * GPR13P, 0088 00235000 * GPR14P)UNRSTD; 0088 00236000 * END; /* SETLOCK (RELEASE) TYPE(CMS) 0089 00237000 * REGS(SAVE) 0089 00238000 * RELATED(ASCB,IEESB665,ISSUE3) */ 00239000 *ISSUE2: 0090 00240000 * DO; /* SETLOCK (RELEASE) TYPE(LOCAL) 00241000 * REGS(SAVE) 0090 00242000 * RELATED(ASCB,IEESB665,ISSUE) */ 00243000 ISSUE2 DS 0H 0091 00244000 * RFY 0091 00245000 * (GPR11P, 0091 00246000 * GPR12P, 0091 00247000 * GPR13P, 0091 00248000 * GPR14P)RSTD; 0091 00249000 * RFY 0092 00250000 * GPR15P RSTD; 0092 00251000 * GPR15P=GPR13P; /* ADDRESS OF REGISTER SAVE AREA.*/ 00252000 LR GPR15P,GPR13P 0093 00253000 * GEN(STM GPR11P,GPR14P,0(GPR15P));/* SAVE REGISTERS.*/ 00254000 STM GPR11P,GPR14P,0(GPR15P) 00255000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0095 00256000 * TABLE. */ 00257000 L GPR13P,PSALITA 0095 00258000 * GEN(LM GPR11P,GPR13P,588(GPR13P));/* LOAD LOCKWORD, 00259000 * CLHT AND ENTRY ADRS. */ 00260000 LM GPR11P,GPR13P,588(GPR13P) 00261000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 00262000 BALR GPR14P,GPR13P 00263000 * GEN(ST GPR13P,16(GPR15P));/* SAVE RETURN CODE IN 0098 00264000 * SAVE AREA. */ 00265000 ST GPR13P,16(GPR15P) 00266000 * GEN(LM GPR11P,GPR15P,0(GPR15P));/* RESTORE REGS. - 00267000 * PUT RETURN CODE IN 15. */ 00268000 LM GPR11P,GPR15P,0(GPR15P) 00269000 * RFY 0100 00270000 * GPR15P UNRSTD; 0100 00271000 * RFY 0101 00272000 * (GPR11P, 0101 00273000 * GPR12P, 0101 00274000 * GPR13P, 0101 00275000 * GPR14P)UNRSTD; 0101 00276000 * END; /* SETLOCK (RELEASE) TYPE(LOCAL) 00277000 * REGS(SAVE) 0102 00278000 * RELATED(ASCB,IEESB665,ISSUE) */ 00279000 * 0102 00280000 * /*****************************************************/ 00281000 * /* */ 00282000 * /* FREE THE CSCB USING MGCR */ 00283000 * /* */ 00284000 * /*****************************************************/ 00285000 * 0103 00286000 * R1=CSCBPTR; /* SET THE CSCB PTR */ 00287000 LR R1,CSCBPTR 0103 00288000 * GEN(MGCR (1),CHAIN);/* FREE THE CSCB */ 00289000 MGCR (1),CHAIN 00290000 * END; 0105 00291000 * R15=0; /* INDICATE NO RETRY */ 00292000 @RF00046 SR R15,R15 0106 00293000 * END; 0107 00294000 * ELSE 0108 00295000 * DO; 0108 00296000 B @RC00031 0108 00297000 @RF00031 DS 0H 0109 00298000 * STAERTY='1'B; /* SET RECURSION BIT ON */ 00299000 OI STAERTY(STAEPTR),B'10000000' 0109 00300000 * SSDUMPC(1:SLSDUMP)=SSDUMP(1:SLSDUMP);/* MOVE IN THE SDUMP*/ 00301000 L @12,SLSDUMP 0110 00302000 BCTR @12,0 0110 00303000 EX @12,@SM01708 0110 00304000 * R1=ADDR(SSDUMPC); /* POINT TO SDUMP PARAMETERS */ 00305000 LA R1,SSDUMPC 0111 00306000 * GEN( SDUMP MF=(E,(1))); /* ISSUE THE SDUMP */ 00307000 SDUMP MF=(E,(1)) 00308000 * IF R15^=0 THEN /* IF SDUMP UNSUCCESSFUL DONT 0113 00309000 * TELL OPERATOR */ 00310000 LTR R15,R15 0113 00311000 BZ @RF00113 0113 00312000 * STAEDUMP='1'B; /* SET FLAG FOR MSG ROUTINE */ 00313000 OI STAEDUMP(STAEPTR),B'01000000' 0114 00314000 * CALL WRITEMSG; /* WRITE MSG TO CONSOLE */ 00315000 @RF00113 BAL @14,WRITEMSG 0115 00316000 * DEQCORE(1:DEQLGTH)=DEQLIST(1:DEQLGTH);/* MOVE IN LIST 0116 00317000 * FORM OF DEQ */ 00318000 L @12,DEQLGTH 0116 00319000 BCTR @12,0 0116 00320000 EX @12,@SM01711 0116 00321000 * R1=ADDR(DEQCORE); /* POINT TO MACRO EXPANSION */ 00322000 LA R1,DEQCORE 0117 00323000 * GEN( DEQ MF=(E,(1))); /* ISSUE THE DEQ OFF CSCB */ 00324000 DEQ MF=(E,(1)) 00325000 * 0119 00326000 * /*********************************************************/ 00327000 * /* */ 00328000 * /* ISSUE THE SETRP MACRO TO RECORD SDWA AND SCHEDULE */ 00329000 * /* RETRY ?SETRP RETADDR(IEESB667) WKAREA(SDWAPTR) */ 00330000 * /* RECORD(YES) RC(4) RECPARM(SB665) FRESDWA(YES); */ 00331000 * /* */ 00332000 * /*********************************************************/ 00333000 * 0119 00334000 * DO; /* SETRP RETADDR(IEESB667) 0119 00335000 * WKAREA(SDWAPTR) RECORD(YES) 0119 00336000 * RC(4) RECPARM(SB665) 0119 00337000 * FRESDWA(YES) */ 00338000 * RESPECIFY 0120 00339000 * (GPR00P, 0120 00340000 * GPR01P, 0120 00341000 * GPR14P, 0120 00342000 * GPR15P)RSTD; 0120 00343000 * GPR01P=SDWAPTR; 0121 00344000 LR GPR01P,SDWAPTR 0121 00345000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 00346000 MVI SDWARCDE(GPR01P),X'04' 0122 00347000 * GPR01P->SDWARTYA=ADDR(IEESB667);/* SAVE RETRY ADDRESS */ 00348000 LA @12,IEESB667 0123 00349000 ST @12,SDWARTYA(,GPR01P) 0123 00350000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE SDWA */ 00351000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 00352000 OI SDWAFREE(GPR01P),B'10000100' 0125 00353000 * GPR15P=ADDR(SB665); /* ACCESS RECORD PARAMETER LIST */ 00354000 LA GPR15P,SB665 0126 00355000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 0127 00356000 * PARAMETERS */ 00357000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0127 00358000 * RESPECIFY 0128 00359000 * (GPR00P, 0128 00360000 * GPR01P, 0128 00361000 * GPR14P, 0128 00362000 * GPR15P)UNRSTD; 0128 00363000 * END; 0129 00364000 * RESPECIFY 0130 00365000 * SDWA BASED(SDWAPTR); /* REBASE SDWA */ 00366000 * END; 0131 00367000 * 0132 00368000 * /*************************************************************/ 00369000 * /* */ 00370000 * /* THE PLS GOTTEN AREA MUST BE FREED ON EXIT */ 00371000 * /* */ 00372000 * /*************************************************************/ 00373000 * 0132 00374000 * GEN; 0132 00375000 @RC00031 DS 0H 0132 00376000 L R0,@SIZDATD 00377000 FREEMAIN R,LV=(0),A=(R11) 00378000 * END; 0133 00379000 * R14=R7; /* RETURN ADDRESS NOW IN R14 */ 00380000 @RC00026 LR R14,R7 0134 00381000 * GEN( BR 14); /* RETURN TO CALLER */ 00382000 BR 14 00383000 * 0136 00384000 * /*****************************************************************/ 00385000 * /* */ 00386000 * /* WRITE THE STC FAILED MSG TO THE OPERATOR */ 00387000 * /* */ 00388000 * /*****************************************************************/ 00389000 * 0136 00390000 *WRITEMSG: 0136 00391000 * PROC OPTIONS(NOSAVEAREA); 0136 00392000 B @PB00002 0136 00393000 WRITEMSG STM @14,@12,12(@13) 0136 00394000 * RESPECIFY 0137 00395000 * MESAREA BASED(MESSPTR); /* BASE THE MESSAGE AREA */ 00396000 * MESSPTR=ADDR(MESCORE); /* ADDRESS THE MESSAGE AREA */ 00397000 LA MESSPTR,MESCORE 0138 00398000 * MESAREA=MESAREA&&MESAREA; /* CLEAR THE MESSAGE AREA */ 00399000 XC MESAREA(55,MESSPTR),MESAREA(MESSPTR) 0139 00400000 * MESFLGS=MCSFLGS; /* MOVE IN MCS FLAGS */ 00401000 MVC MESFLGS(2,MESSPTR),MCSFLGS 0140 00402000 * MESID=IEE824I; /* PUT MESSAGE ID IN MESSAGE */ 00403000 MVC MESID(8,MESSPTR),IEE824I 0141 00404000 * MESLEN=LENGTH(IEE824I)+4; /* UPDATE LENGTH OF MESSAGE */ 00405000 LA @12,12 0142 00406000 STH @12,MESLEN(,MESSPTR) 0142 00407000 * RESPECIFY 0143 00408000 * CHAIN BASED(ASCBCSCB); 0143 00409000 * IF ASCBCSCB=0 THEN /* IF NO CSCB USE STC NAME */ 00410000 L @06,SAVEASCB(,STAEPTR) 0144 00411000 ICM @05,15,ASCBCSCB(@06) 0144 00412000 BNZ @RF00144 0144 00413000 * DO; 0145 00414000 * STCNAME=STARTED; /* PUT STC NAME IN MESSAGE */ 00415000 MVC STCNAME(13,MESSPTR),STARTED 0146 00416000 * BASEPTR=ADDR(BUILDA); /* POINT TO MIDDLE OF MESSAGE */ 00417000 LA @06,BUILDA(,MESSPTR) 0147 00418000 ST @06,BASEPTR 0147 00419000 * MESLEN=MESLEN+LENGTH(STARTED);/* UPDATE THE LENGTH OF MESSAGE*/ 00420000 AH @12,@CH01592 0148 00421000 STH @12,MESLEN(,MESSPTR) 0148 00422000 * END; 0149 00423000 * ELSE 0150 00424000 * IF CHCLS=ZERO THEN 0150 00425000 B @RC00144 0150 00426000 @RF00144 L @12,SAVEASCB(,STAEPTR) 0150 00427000 L @12,ASCBCSCB(,@12) 0150 00428000 CLC CHCLS(8,@12),ZERO 0150 00429000 BNE @RF00150 0150 00430000 * DO; /* IF NO NAME IN CSCB */ 00431000 * STCNAME=STARTED; /* PUT STC NAME IN MESSAGE */ 00432000 MVC STCNAME(13,MESSPTR),STARTED 0152 00433000 * BASEPTR=ADDR(BUILDA); /* POINT TO MIDDLE OF MESSAGE */ 00434000 LA @12,BUILDA(,MESSPTR) 0153 00435000 ST @12,BASEPTR 0153 00436000 * MESLEN=MESLEN+LENGTH(STARTED);/* UPDATE THE LENGTH OF 0154 00437000 * MESSAGE */ 00438000 LA @12,13 0154 00439000 AH @12,MESLEN(,MESSPTR) 0154 00440000 STH @12,MESLEN(,MESSPTR) 0154 00441000 * END; 0155 00442000 * ELSE 0156 00443000 * DO; /* IF CSCB PRESENT THE USE THE 0156 00444000 * NAME IN IT */ 00445000 B @RC00150 0156 00446000 @RF00150 DS 0H 0157 00447000 * TASKNAME=CHCLS; /* PUT TASK NAME IN MESSAGE */ 00448000 L @12,SAVEASCB(,STAEPTR) 0157 00449000 L @12,ASCBCSCB(,@12) 0157 00450000 MVC TASKNAME(8,MESSPTR),CHCLS(@12) 0157 00451000 * BASEPTR=ADDR(NEXT); /* POINT TO MIDDLE OF MESSAGE */ 00452000 LA @12,NEXT(,MESSPTR) 0158 00453000 ST @12,BASEPTR 0158 00454000 * MESLEN=MESLEN+LENGTH(CHCLS)+LENGTH(BLANK);/* UPDATE THE 0159 00455000 * LENGTH */ 00456000 LA @12,9 0159 00457000 AH @12,MESLEN(,MESSPTR) 0159 00458000 STH @12,MESLEN(,MESSPTR) 0159 00459000 * END; 0160 00460000 * FAILAREA=FAILED; /* PUT FAILED IN THE MESSAGE */ 00461000 @RC00150 DS 0H 0161 00462000 @RC00144 L @12,BASEPTR 0161 00463000 MVC FAILAREA(8,@12),FAILED 0161 00464000 * MESLEN=MESLEN+LENGTH(FAILED); /* UPDATE THE MESSAGE LENGTH */ 00465000 * 0162 00466000 LA @06,8 0162 00467000 AH @06,MESLEN(,MESSPTR) 0162 00468000 STH @06,MESLEN(,MESSPTR) 0162 00469000 * /*****************************************************************/ 00470000 * /* */ 00471000 * /* IF THE SVC DUMP WAS O.K THEN PUT DUMPED ON THE END OF THE */ 00472000 * /* MESSAGE. THE STRUCTURE OF THE DECLARES HAS TO HAVE THE DUMPED */ 00473000 * /* WORD SPLIT IN TWO PARTS FOR EASE OF MOVING IT IN */ 00474000 * /* */ 00475000 * /*****************************************************************/ 00476000 * 0163 00477000 * IF STAEDUMP='0'B THEN /* IF SDUMP O.K. PUT DUMPED IN 0163 00478000 * MESSAGE */ 00479000 TM STAEDUMP(STAEPTR),B'01000000' 0163 00480000 BNZ @RF00163 0163 00481000 * DO; 0164 00482000 * TERMITA=TERMITEA; /* MOVE TERMINTED AND DUM IN 0165 00483000 * MESSAGE */ 00484000 MVC TERMITA(15,@12),TERMITEA 0165 00485000 * MESLEN=MESLEN+LENGTH(PED)+LENGTH(TERMITEA);/* UPDATE LENGTH */ 00486000 AH @06,@CH01704 0166 00487000 STH @06,MESLEN(,MESSPTR) 0166 00488000 * PEDPART=PED; /* PUT THE PED ON DUM FOR DUMPED */ 00489000 MVI PEDPART+3(@12),C' ' 0167 00490000 MVC PEDPART+4(3,@12),PEDPART+3(@12) 0167 00491000 MVC PEDPART(3,@12),PED 0167 00492000 * DESFGS=DESCDS; /* MOVE IN THE DESCRIPTOR FLAGS */ 00493000 MVC DESFGS(2,@12),DESCDS 0168 00494000 * ROUFLGS=ROUTCDS; /* MOVE IN THE ROUTING CODE */ 00495000 MVC ROUFLGS(2,@12),ROUTCDS 0169 00496000 * END; 0170 00497000 * ELSE 0171 00498000 * DO; 0171 00499000 B @RC00163 0171 00500000 @RF00163 DS 0H 0172 00501000 * TERMITC=TERMITE; /* MOVE IN TERMINATED */ 00502000 L @12,BASEPTR 0172 00503000 MVC TERMITC(10,@12),TERMITE 0172 00504000 * MESLEN=MESLEN+LENGTH(TERMITE);/* UPDATE MESSAGE LENGTH */ 00505000 LA @06,10 0173 00506000 AH @06,MESLEN(,MESSPTR) 0173 00507000 STH @06,MESLEN(,MESSPTR) 0173 00508000 * DESCFGS=DESCDS; /* MOVE IN THE DESCRIPTOR FLAGS */ 00509000 MVC DESCFGS(2,@12),DESCDS 0174 00510000 * ROUTFLGS=ROUTCDS; /* MOVE IN THE ROUTDING CODES */ 00511000 MVC ROUTFLGS(2,@12),ROUTCDS 0175 00512000 * END; 0176 00513000 * R1=MESSPTR; /* POINT TO THE MESSAGE */ 00514000 @RC00163 LR R1,MESSPTR 0177 00515000 * GEN(WTO MF=(E,(1))); /* ISSUE THE WTO */ 00516000 WTO MF=(E,(1)) 00517000 * END; 0179 00518000 @EL00002 DS 0H 0179 00519000 @EF00002 DS 0H 0179 00520000 @ER00002 LM @14,@12,12(@13) 0179 00521000 BR @14 0179 00522000 * RESPECIFY 0180 00523000 * ASCB BASED(ASCBPTR); /* REBASE THE ASCB */ 00524000 * 0181 00525000 * /*****************************************************************/ 00526000 * /* */ 00527000 * /* RETRY ROUTINE FOR STC, TERMINATE STC */ 00528000 * /* */ 00529000 * /*****************************************************************/ 00530000 * 0181 00531000 *IEESB667: 0181 00532000 * PROC OPTIONS(DONTSAVE); 0181 00533000 IEESB667 DS 0H 0182 00534000 * GEN( BALR 15,0); /* RESET ADDRESSING */ 00535000 BALR 15,0 00536000 * GEN( USING *,15); /* FOR BRANCH IN XCTL */ 00537000 USING *,15 00538000 * R1=ASCBPTR; 0184 00539000 L @12,CVTPTR 0184 00540000 L @12,CVTTCBP(,@12) 0184 00541000 L R1,ASCBPTR(,@12) 0184 00542000 * GEN(XCTL EP=IEEPRTN); /* XCTL TO END OF STC */ 00543000 XCTL EP=IEEPRTN 00544000 * GEN( DROP 15); /* DROP REG 15 */ 00545000 DROP 15 00546000 * END; 0187 00547000 @EL00003 DS 0H 0187 00548000 @EF00003 DS 0H 0187 00549000 @ER00003 BR @14 0187 00550000 @PB00003 DS 0H 0188 00551000 * DCL 0188 00552000 * PATCHLOC FIXED(31)STATIC; 0188 00553000 * GEN DATA DEFS(PATCHLOC); 0189 00554000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00555000 * GPR00P PTR(31)REG(0), 0190 00556000 * GPR01P PTR(31)REG(1), 0190 00557000 * GPR11P PTR(31)REG(11), 0190 00558000 * GPR12P PTR(31)REG(12), 0190 00559000 * GPR13P PTR(31)REG(13), 0190 00560000 * GPR14P PTR(31)REG(14), 0190 00561000 * GPR15P PTR(31)REG(15); 0190 00562000 * DECLARE /* COMMON VARIABLES */ 00563000 * I256C CHAR(256)BASED, 0191 00564000 * I031F FIXED(31)BASED, 0191 00565000 * I031P PTR(31)BASED, 0191 00566000 * I015F FIXED(15)BASED, 0191 00567000 * I015P PTR(15)BASED, 0191 00568000 * I008P PTR(8)BASED, 0191 00569000 * I001C CHAR(1)BASED; 0191 00570000 * END 0192 00571000 * 0192 00572000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00573000 */*%INCLUDE SYSLIB (CVT ) */ 00574000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00575000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00576000 */*%INCLUDE SYSLIB (IEFPTRS ) */ 00577000 */*%INCLUDE SYSLIB (IEECHAIN) */ 00578000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00579000 */*%INCLUDE SYSLIB (IEEZB820) */ 00580000 * 0192 00581000 * ; 0192 00582000 @EL00001 L @13,4(,@13) 0192 00583000 @EF00001 DS 0H 0192 00584000 @ER00001 BR @14 0192 00585000 @DATA DS 0H 00586000 @CH01661 DC H'12' 00587000 @CH01592 DC H'13' 00588000 @CH01704 DC H'18' 00589000 @SM01708 MVC SSDUMPC(0),SSDUMP 00590000 @SM01711 MVC DEQCORE(0),DEQLIST 00591000 @DATD DSECT 00592000 DS 0F 00593000 @SA00001 DS 18F 00594000 IEESB665 CSECT 00595000 DS 0F 00596000 @DATD DSECT 00597000 DS 0D 00598000 BASEPTR DS A 00599000 MESCORE DS CL55 00600000 IEESB665 CSECT 00601000 DS 0F 00602000 @SIZDATD DC AL1(230) 00603000 DC AL3(@ENDDATD-@DATD) 00604000 DS 0D 00605000 SSMAJ DC CL8'SYSIEFSD' 00606000 SSMIN DC CL3'Q10' 00607000 IEE824I DC CL8'IEE824I ' 00608000 STARTED DC CL13'STARTED TASK ' 00609000 PED DC CL3'PED' 00610000 TERMITEA DC CL15'TERMINATED, DUM' 00611000 TERMITE DC CL10'TERMINATED' 00612000 ZERO DC X'00' 00613000 DC XL7'0' 00614000 SB665 DC CL24' IEESB665' 00615000 FAILED DC CL8'FAILED, ' 00616000 IEESB665 CSECT 00617000 LABEL1 WTO ' ',ROUTCDE=2,DESC=(4,6),MF=L 00618000 IEESB665 CSECT 00619000 SSDUMP SDUMP HDR='STARTED TASK CONTROL',SDATA=(SQA,PSA,LSQA,RGN, **00620000 LPA,TRT,CSA,NUC),MF=L 00621000 SSLGH EQU * 00622000 SLSDUMP DC A(SSLGH-SSDUMP) 00623000 @DATD DSECT 00624000 SSDUMPC SDUMP HDR='STARTED TASK CONTROL',SDATA=(SQA,PSA,LSQA,RGN, **00625000 LPA,TRT,CSA,NUC),MF=L 00626000 IEESB665 CSECT 00627000 DEQLIST ENQ (SSMAJ,SSMIN,E,3,SYSTEM),RET=HAVE,MF=L 00628000 DEQLGTH DC A(*-DEQLIST) 00629000 @DATD DSECT 00630000 DEQCORE ENQ (SSMAJ,SSMIN,E,3,SYSTEM),RET=HAVE,MF=L 00631000 IEESB665 CSECT 00632000 DS 0H 00633000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 00634000 @DATD DSECT 00635000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00636000 @ENDDATD EQU * 00637000 IEESB665 CSECT 00638000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00639000 @01 EQU 01 00640000 @02 EQU 02 00641000 @03 EQU 03 00642000 @04 EQU 04 00643000 @05 EQU 05 00644000 @06 EQU 06 00645000 @07 EQU 07 00646000 @08 EQU 08 00647000 @09 EQU 09 00648000 @10 EQU 10 00649000 @11 EQU 11 00650000 @12 EQU 12 00651000 @13 EQU 13 00652000 @14 EQU 14 00653000 @15 EQU 15 00654000 MESSPTR EQU @03 00655000 STAEPTR EQU @04 00656000 CSCBPTR EQU @03 00657000 SDWAPTR EQU @02 00658000 R0 EQU @00 00659000 R1 EQU @01 00660000 R7 EQU @07 00661000 R11 EQU @11 00662000 R13 EQU @13 00663000 R14 EQU @14 00664000 R15 EQU @15 00665000 GPR00P EQU @00 00666000 GPR01P EQU @01 00667000 GPR14P EQU @14 00668000 GPR15P EQU @15 00669000 GPR11P EQU @11 00670000 GPR12P EQU @12 00671000 GPR13P EQU @13 00672000 CVTPTR EQU 16 00673000 PSA EQU 0 00674000 FLCRNPSW EQU PSA 00675000 FLCROPSW EQU PSA+8 00676000 FLCICCW2 EQU PSA+16 00677000 PSAEEPSW EQU PSA+132 00678000 PSAESPSW EQU PSA+136 00679000 FLCSVILC EQU PSAESPSW+1 00680000 PSAEPPSW EQU PSA+140 00681000 FLCPIILC EQU PSAEPPSW+1 00682000 FLCPICOD EQU PSAEPPSW+2 00683000 PSAPICOD EQU FLCPICOD+1 00684000 FLCTEA EQU PSAEPPSW+4 00685000 FLCPER EQU PSA+152 00686000 FLCMCLA EQU PSA+168 00687000 FLCIOEL EQU FLCMCLA+4 00688000 FLCIOA EQU FLCMCLA+16 00689000 FLCFSA EQU FLCMCLA+80 00690000 PSASUPER EQU PSA+552 00691000 PSASUP1 EQU PSASUPER 00692000 PSASUP2 EQU PSASUPER+1 00693000 PSASUP3 EQU PSASUPER+2 00694000 PSASUP4 EQU PSASUPER+3 00695000 PSACLHT EQU PSA+640 00696000 PSALKSA EQU PSA+696 00697000 PSAHLHI EQU PSA+760 00698000 PSALITA EQU PSA+764 00699000 PSADSSFL EQU PSA+836 00700000 PSADSSF1 EQU PSADSSFL 00701000 PSADSSF3 EQU PSADSSFL+2 00702000 PSADSSF4 EQU PSADSSFL+3 00703000 PSARSVT EQU PSA+896 00704000 CVTMAP EQU 0 00705000 CVTTCBP EQU CVTMAP 00706000 CVTDAR EQU CVTMAP+72 00707000 CVTFLGS1 EQU CVTDAR 00708000 CVTDCB EQU CVTMAP+116 00709000 CVTOPTA EQU CVTMAP+182 00710000 CVTOPTB EQU CVTMAP+183 00711000 CVTTSCVT EQU CVTMAP+228 00712000 CVTTSFLG EQU CVTTSCVT 00713000 CVTGTF EQU CVTMAP+236 00714000 CVTGTFST EQU CVTGTF 00715000 CVTGTFS EQU CVTGTFST 00716000 CVTSTATE EQU CVTGTFST 00717000 CVTTMODE EQU CVTGTFST 00718000 CVTFORM EQU CVTGTFST 00719000 CVTUSR EQU CVTGTFST 00720000 CVTAQAVT EQU CVTMAP+240 00721000 CVTTCMFG EQU CVTAQAVT 00722000 CVTVOLM2 EQU CVTMAP+244 00723000 CVTTATA EQU CVTVOLM2 00724000 CVTTSKS EQU CVTTATA 00725000 CVTVOLF2 EQU CVTTSKS 00726000 CVTTAT EQU CVTTATA+1 00727000 CVTATER EQU CVTMAP+248 00728000 CVTEXT1 EQU CVTMAP+252 00729000 CVTPURG EQU CVTMAP+260 00730000 CVTQMSG EQU CVTMAP+268 00731000 CVTDMSR EQU CVTMAP+272 00732000 CVTAPF EQU CVTMAP+324 00733000 CVTEXT2 EQU CVTMAP+328 00734000 CVTHJES EQU CVTMAP+332 00735000 CVTPGSIA EQU CVTMAP+348 00736000 CVTA1F1 EQU CVTMAP+356 00737000 CVTSYSK EQU CVTMAP+357 00738000 CVTVOLM1 EQU CVTMAP+380 00739000 CVTVOLF1 EQU CVTVOLM1 00740000 CVTATMCT EQU CVTMAP+388 00741000 CVTXTNT1 EQU 0 00742000 CVTXTNT2 EQU 0 00743000 CVTDSSV EQU CVTXTNT2 00744000 CVTRSV90 EQU CVTXTNT2+5 00745000 CVTQID EQU CVTXTNT2+24 00746000 CVTRV400 EQU CVTXTNT2+52 00747000 CVTRV409 EQU CVTXTNT2+53 00748000 CVTATCVT EQU CVTXTNT2+64 00749000 CVTRV429 EQU CVTXTNT2+84 00750000 CVTRV438 EQU CVTXTNT2+85 00751000 CVTRV457 EQU CVTXTNT2+112 00752000 CVTRV466 EQU CVTXTNT2+113 00753000 CVTFIX EQU 0 00754000 CVTRELNO EQU CVTFIX+252 00755000 SDWA EQU 0 00756000 SDWAPARM EQU SDWA 00757000 SDWAFIOB EQU SDWA+4 00758000 SDWAABCC EQU SDWAFIOB 00759000 SDWACMPF EQU SDWAABCC 00760000 SDWACTL1 EQU SDWA+8 00761000 SDWACMKA EQU SDWACTL1 00762000 SDWAMWPA EQU SDWACTL1+1 00763000 SDWAPMKA EQU SDWACTL1+4 00764000 SDWACTL2 EQU SDWA+16 00765000 SDWACMKP EQU SDWACTL2 00766000 SDWAMWPP EQU SDWACTL2+1 00767000 SDWAPMKP EQU SDWACTL2+4 00768000 SDWAGRSV EQU SDWA+24 00769000 SDWANAME EQU SDWA+88 00770000 SDWAEC1 EQU SDWA+104 00771000 SDWAEMK1 EQU SDWAEC1 00772000 SDWAMWP1 EQU SDWAEC1+1 00773000 SDWAINT1 EQU SDWAEC1+2 00774000 SDWANXT1 EQU SDWAEC1+4 00775000 SDWAAEC1 EQU SDWA+112 00776000 SDWAILC1 EQU SDWAAEC1+1 00777000 SDWAINC1 EQU SDWAAEC1+2 00778000 SDWAICD1 EQU SDWAINC1+1 00779000 SDWAEC2 EQU SDWA+120 00780000 SDWAEMK2 EQU SDWAEC2 00781000 SDWAMWP2 EQU SDWAEC2+1 00782000 SDWAINT2 EQU SDWAEC2+2 00783000 SDWANXT2 EQU SDWAEC2+4 00784000 SDWAAEC2 EQU SDWA+128 00785000 SDWAILC2 EQU SDWAAEC2+1 00786000 SDWAINC2 EQU SDWAAEC2+2 00787000 SDWAICD2 EQU SDWAINC2+1 00788000 SDWASRSV EQU SDWA+136 00789000 SDWAIDNT EQU SDWA+200 00790000 SDWAMCH EQU SDWA+204 00791000 SDWASTCK EQU SDWAMCH 00792000 SDWAMCHI EQU SDWAMCH+8 00793000 SDWAMCHS EQU SDWAMCHI 00794000 SDWAMCHD EQU SDWAMCHI+1 00795000 SDWARSR1 EQU SDWAMCH+12 00796000 SDWARSR2 EQU SDWAMCH+13 00797000 SDWAFLGS EQU SDWA+232 00798000 SDWAERRA EQU SDWAFLGS 00799000 SDWAERRB EQU SDWAFLGS+1 00800000 SDWAERRC EQU SDWAFLGS+2 00801000 SDWAPERC EQU SDWAERRC 00802000 SDWAERRD EQU SDWAFLGS+3 00803000 SDWAIOFS EQU SDWA+238 00804000 SDWARTYA EQU SDWA+240 00805000 SDWAPARQ EQU SDWA+252 00806000 SDWARCDE EQU SDWAPARQ 00807000 SDWAACF2 EQU SDWAPARQ+1 00808000 SDWARCRD EQU SDWAACF2 00809000 SDWAFREE EQU SDWAACF2 00810000 SDWAACF3 EQU SDWAPARQ+2 00811000 SDWAACF4 EQU SDWAPARQ+3 00812000 SDWALKWA EQU SDWA+256 00813000 SDWALKWS EQU SDWALKWA 00814000 SDWARECP EQU SDWA+292 00815000 SDWASNPA EQU SDWA+320 00816000 SDWADUMP EQU SDWASNPA 00817000 SDWADPFS EQU SDWADUMP+1 00818000 SDWADDAT EQU SDWASNPA+4 00819000 SDWASDAT EQU SDWADDAT 00820000 SDWAPDAT EQU SDWADDAT+2 00821000 SDWADPSA EQU SDWA+328 00822000 SDWADPSL EQU SDWADPSA 00823000 SDWARA EQU SDWA+400 00824000 SDWADPVA EQU SDWARA+2 00825000 ASCB EQU 0 00826000 ASCBCSCB EQU ASCB+56 00827000 ASCBFW1 EQU ASCB+100 00828000 ASCBRCTF EQU ASCBFW1+2 00829000 ASCBFLG1 EQU ASCBFW1+3 00830000 ASCBDSP1 EQU ASCB+114 00831000 ASCBFLG2 EQU ASCB+115 00832000 ASCBJBNS EQU ASCB+176 00833000 TCBASCB EQU 0 00834000 ASCBPTR EQU TCBASCB+12 00835000 CHAIN EQU 0 00836000 CHFLG EQU CHAIN+4 00837000 CHSTS EQU CHFLG+2 00838000 CHDL EQU CHSTS 00839000 CHFC EQU CHSTS 00840000 CHACT EQU CHFLG+3 00841000 CHKEY EQU CHAIN+8 00842000 CHCLS EQU CHAIN+16 00843000 CHPKE EQU CHAIN+28 00844000 CHTJID EQU CHAIN+30 00845000 CHACT1 EQU CHAIN+35 00846000 CHASM EQU CHAIN+40 00847000 CHCIBP EQU CHASM+4 00848000 CHRGNSZ EQU CHASM+8 00849000 CHSHORT EQU CHASM+24 00850000 CHSWT EQU CHSHORT 00851000 STAELST EQU 0 00852000 JSWAADDR EQU STAELST 00853000 SAVEASCB EQU JSWAADDR 00854000 PARMINFO EQU STAELST+4 00855000 @NM00078 EQU STAELST+8 00856000 STAEFLG EQU @NM00078 00857000 STAERTY EQU STAEFLG 00858000 STAEDUMP EQU STAEFLG 00859000 MESAREA EQU 0 00860000 MESLEN EQU MESAREA 00861000 MESFLGS EQU MESAREA+2 00862000 MESSAGE EQU MESAREA+4 00863000 MESID EQU MESSAGE 00864000 STCNAME EQU MESSAGE+8 00865000 TASKNAME EQU STCNAME 00866000 BLANK EQU STCNAME+8 00867000 NEXT EQU STCNAME+9 00868000 BUILDA EQU MESSAGE+21 00869000 DUMPTERM EQU 0 00870000 FAILAREA EQU DUMPTERM 00871000 DUMPAREA EQU DUMPTERM+8 00872000 TERMITA EQU DUMPAREA 00873000 TERMITB EQU TERMITA 00874000 TERMITC EQU TERMITB 00875000 DESCFGS EQU TERMITB+10 00876000 ROUTFLGS EQU TERMITB+12 00877000 PEDPART EQU DUMPAREA+15 00878000 DESFGS EQU PEDPART+3 00879000 ROUFLGS EQU PEDPART+5 00880000 I256C EQU 0 00881000 I001C EQU 0 00882000 I008P EQU 0 00883000 I015F EQU 0 00884000 I015P EQU 0 00885000 I031F EQU 0 00886000 I031P EQU 0 00887000 CVTS01 EQU CVTPGSIA 00888000 CVTLPDIA EQU CVTS01+12 00889000 CVTDIRST EQU CVTLPDIA 00890000 CVTSLIDA EQU CVTS01+24 00891000 CVTCTLFG EQU CVTS01+50 00892000 CVTRV100 EQU CVTS01+116 00893000 CVTRV109 EQU CVTS01+117 00894000 CVTRV118 EQU CVTS01+118 00895000 CVTRV127 EQU CVTS01+119 00896000 CVTRV210 EQU CVTS01+424 00897000 CVTRV219 EQU CVTS01+425 00898000 CVTRV228 EQU CVTS01+426 00899000 CVTRV237 EQU CVTS01+427 00900000 CVTMFRTR EQU CVTS01+452 00901000 CVTRV262 EQU CVTS01+468 00902000 CVTRV271 EQU CVTS01+469 00903000 CVTRV280 EQU CVTS01+470 00904000 CVTRV289 EQU CVTS01+471 00905000 CVTGSDA EQU CVTS01+600 00906000 CHAINS01 EQU CHASM 00907000 CHTYPE EQU CHAINS01+124 00908000 CHTRSTAT EQU CHAINS01+125 00909000 CHCSYSO EQU CHAINS01+134 00910000 PSARSVTE EQU PSARSVT 00911000 WTOMAP EQU LABEL1 00912000 MCSFLGS EQU WTOMAP+2 00913000 DESCDS EQU WTOMAP+5 00914000 ROUTCDS EQU WTOMAP+7 00915000 FLC EQU PSA 00916000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00917000 @NM00083 EQU WTOMAP+4 00918000 @NM00082 EQU WTOMAP 00919000 PSARSAV EQU PSARSVTE+60 00920000 PSARSTK EQU PSARSVTE+56 00921000 PSAESAV3 EQU PSARSVTE+52 00922000 PSAESTK3 EQU PSARSVTE+48 00923000 PSAESAV2 EQU PSARSVTE+44 00924000 PSAESTK2 EQU PSARSVTE+40 00925000 PSAESAV1 EQU PSARSVTE+36 00926000 PSAESTK1 EQU PSARSVTE+32 00927000 PSAPSAV EQU PSARSVTE+28 00928000 PSAPSTK EQU PSARSVTE+24 00929000 PSAMSAV EQU PSARSVTE+20 00930000 PSAMSTK EQU PSARSVTE+16 00931000 PSASSAV EQU PSARSVTE+12 00932000 PSASSTK EQU PSARSVTE+8 00933000 PSANSTK EQU PSARSVTE+4 00934000 PSACSTK EQU PSARSVTE 00935000 CHLAST EQU CHAINS01+136 00936000 CHSPA EQU CHAINS01+135 00937000 CHUSERID EQU CHCSYSO 00938000 CHJB EQU CHCSYSO 00939000 CHDUMP EQU CHCSYSO 00940000 CHQUE EQU CHCSYSO 00941000 CHHOLD EQU CHCSYSO 00942000 CHOUT EQU CHCSYSO 00943000 CHINN EQU CHCSYSO 00944000 CHALL EQU CHCSYSO 00945000 CHINC EQU CHAINS01+132 00946000 CHPEND EQU CHAINS01+128 00947000 CHARID EQU CHAINS01+127 00948000 CHCNID EQU CHAINS01+126 00949000 @NM00053 EQU CHTRSTAT 00950000 CHTSL EQU CHTRSTAT 00951000 CHTS EQU CHTRSTAT 00952000 CHINITL EQU CHTRSTAT 00953000 CHINIT EQU CHTRSTAT 00954000 CHJOBSL EQU CHTRSTAT 00955000 CHJOBS EQU CHTRSTAT 00956000 CHDEF EQU CHTYPE 00957000 CHHIAR EQU CHTYPE 00958000 CHARSV29 EQU CHTYPE 00959000 CHARSV28 EQU CHTYPE 00960000 CHARSV27 EQU CHTYPE 00961000 CHARSV26 EQU CHTYPE 00962000 CHARSV25 EQU CHTYPE 00963000 CHDSTAT EQU CHTYPE 00964000 CHBUF EQU CHAINS01 00965000 CVTTPIO EQU CVTS01+608 00966000 CVTADV EQU CVTS01+604 00967000 CVTGSDAB EQU CVTGSDA 00968000 CVTQV3 EQU CVTS01+596 00969000 CVTQV2 EQU CVTS01+592 00970000 CVTQV1 EQU CVTS01+588 00971000 CVTRPT EQU CVTS01+584 00972000 CVTSSRB EQU CVTS01+580 00973000 CVTCSDRL EQU CVTS01+576 00974000 CVTEXP1 EQU CVTS01+572 00975000 CVTRMPMT EQU CVTS01+568 00976000 CVTRMPTT EQU CVTS01+564 00977000 CVTVPSA EQU CVTS01+560 00978000 CVTVSTOP EQU CVTS01+556 00979000 CVTGTFR8 EQU CVTS01+552 00980000 CVTQUIT EQU CVTS01+548 00981000 CVTVACR EQU CVTS01+544 00982000 CVTWTCB EQU CVTS01+540 00983000 CVTSTPRS EQU CVTS01+536 00984000 CVT0PT02 EQU CVTS01+532 00985000 CVTDARCM EQU CVTS01+528 00986000 CVTIRECM EQU CVTS01+524 00987000 CVTJRECM EQU CVTS01+520 00988000 CVTVEMS0 EQU CVTS01+516 00989000 CVTSPFRR EQU CVTS01+512 00990000 CVTRLSTG EQU CVTS01+508 00991000 CVT0TC0A EQU CVTS01+504 00992000 CVTGMBR EQU CVTS01+500 00993000 CVTLFRM EQU CVTS01+496 00994000 CVTRMBR EQU CVTS01+492 00995000 CVTVIOP EQU CVTS01+488 00996000 CVTRV307 EQU CVTS01+486 00997000 CVTRV306 EQU CVTS01+484 00998000 CVTRV305 EQU CVTS01+482 00999000 CVTRV304 EQU CVTS01+480 01000000 CVTRV303 EQU CVTS01+478 01001000 CVTRV302 EQU CVTS01+476 01002000 CVTRV301 EQU CVTS01+475 01003000 CVTRV300 EQU CVTS01+474 01004000 CVTRV299 EQU CVTS01+473 01005000 CVTRV298 EQU CVTS01+472 01006000 CVTRV297 EQU CVTRV289 01007000 CVTRV296 EQU CVTRV289 01008000 CVTRV295 EQU CVTRV289 01009000 CVTRV294 EQU CVTRV289 01010000 CVTRV293 EQU CVTRV289 01011000 CVTRV292 EQU CVTRV289 01012000 CVTRV291 EQU CVTRV289 01013000 CVTRV290 EQU CVTRV289 01014000 CVTRV288 EQU CVTRV280 01015000 CVTRV287 EQU CVTRV280 01016000 CVTRV286 EQU CVTRV280 01017000 CVTRV285 EQU CVTRV280 01018000 CVTRV284 EQU CVTRV280 01019000 CVTRV283 EQU CVTRV280 01020000 CVTRV282 EQU CVTRV280 01021000 CVTRV281 EQU CVTRV280 01022000 CVTRV279 EQU CVTRV271 01023000 CVTRV278 EQU CVTRV271 01024000 CVTRV277 EQU CVTRV271 01025000 CVTRV276 EQU CVTRV271 01026000 CVTRV275 EQU CVTRV271 01027000 CVTRV274 EQU CVTRV271 01028000 CVTRV273 EQU CVTRV271 01029000 CVTRV272 EQU CVTRV271 01030000 CVTRV270 EQU CVTRV262 01031000 CVTRV269 EQU CVTRV262 01032000 CVTRV268 EQU CVTRV262 01033000 CVTRV267 EQU CVTRV262 01034000 CVTRV266 EQU CVTRV262 01035000 CVTRV265 EQU CVTRV262 01036000 CVTRV264 EQU CVTRV262 01037000 CVTRV263 EQU CVTRV262 01038000 CVTVFP EQU CVTS01+464 01039000 CVTVSI EQU CVTS01+460 01040000 CVTVPSIB EQU CVTS01+456 01041000 CVTMFACT EQU CVTMFRTR 01042000 CVTMFCTL EQU CVTS01+448 01043000 CVTPVBP EQU CVTS01+444 01044000 CVTPWI EQU CVTS01+440 01045000 CVTRV254 EQU CVTS01+438 01046000 CVTRV253 EQU CVTS01+436 01047000 CVTRV252 EQU CVTS01+434 01048000 CVTRV251 EQU CVTS01+433 01049000 CVTRV250 EQU CVTS01+432 01050000 CVTRV249 EQU CVTS01+431 01051000 CVTRV248 EQU CVTS01+430 01052000 CVTRV247 EQU CVTS01+429 01053000 CVTRV246 EQU CVTS01+428 01054000 CVTRV245 EQU CVTRV237 01055000 CVTRV244 EQU CVTRV237 01056000 CVTRV243 EQU CVTRV237 01057000 CVTRV242 EQU CVTRV237 01058000 CVTRV241 EQU CVTRV237 01059000 CVTRV240 EQU CVTRV237 01060000 CVTRV239 EQU CVTRV237 01061000 CVTRV238 EQU CVTRV237 01062000 CVTRV236 EQU CVTRV228 01063000 CVTRV235 EQU CVTRV228 01064000 CVTRV234 EQU CVTRV228 01065000 CVTRV233 EQU CVTRV228 01066000 CVTRV232 EQU CVTRV228 01067000 CVTRV231 EQU CVTRV228 01068000 CVTRV230 EQU CVTRV228 01069000 CVTRV229 EQU CVTRV228 01070000 CVTRV227 EQU CVTRV219 01071000 CVTRV226 EQU CVTRV219 01072000 CVTRV225 EQU CVTRV219 01073000 CVTRV224 EQU CVTRV219 01074000 CVTRV223 EQU CVTRV219 01075000 CVTRV222 EQU CVTRV219 01076000 CVTRV221 EQU CVTRV219 01077000 CVTRV220 EQU CVTRV219 01078000 CVTRV218 EQU CVTRV210 01079000 CVTRV217 EQU CVTRV210 01080000 CVTRV216 EQU CVTRV210 01081000 CVTRV215 EQU CVTRV210 01082000 CVTRV214 EQU CVTRV210 01083000 CVTRV213 EQU CVTRV210 01084000 CVTRV212 EQU CVTRV210 01085000 CVTRV211 EQU CVTRV210 01086000 CVTLCCAT EQU CVTS01+420 01087000 CVTPCCAT EQU CVTS01+416 01088000 CVTIPCRP EQU CVTS01+412 01089000 CVTIPCRI EQU CVTS01+408 01090000 CVTIPCDS EQU CVTS01+404 01091000 CVTAIDVT EQU CVTS01+400 01092000 CVTSSAP EQU CVTS01+396 01093000 CVTRV202 EQU CVTS01+394 01094000 CVTRV201 EQU CVTS01+392 01095000 CVTRV200 EQU CVTS01+390 01096000 CVTRV199 EQU CVTS01+388 01097000 CVTRV198 EQU CVTS01+386 01098000 CVTRV197 EQU CVTS01+384 01099000 CVTRV196 EQU CVTS01+383 01100000 CVTRV195 EQU CVTS01+382 01101000 CVTRV194 EQU CVTS01+381 01102000 CVTRV193 EQU CVTS01+380 01103000 CVT044R2 EQU CVTS01+376 01104000 CVTFETCH EQU CVTS01+372 01105000 CVTRSTWD EQU CVTS01+368 01106000 CVTSPOST EQU CVTS01+364 01107000 CVTIOBP EQU CVTS01+360 01108000 CVTASMVT EQU CVTS01+356 01109000 CVTRECRQ EQU CVTS01+352 01110000 CVTWSAC EQU CVTS01+348 01111000 CVTWSAG EQU CVTS01+344 01112000 CVTWSAL EQU CVTS01+340 01113000 CVTSPSA EQU CVTS01+336 01114000 CVTGLMN EQU CVTS01+332 01115000 CVTVEAC0 EQU CVTS01+328 01116000 CVT062R1 EQU CVTS01+324 01117000 CVTRPOST EQU CVTS01+320 01118000 CVTDQIQE EQU CVTS01+316 01119000 CVTCSD EQU CVTS01+312 01120000 CVTLKRMA EQU CVTS01+308 01121000 CVTRSPIE EQU CVTS01+304 01122000 CVTRENQ EQU CVTS01+300 01123000 CVTLQCB EQU CVTS01+296 01124000 CVTFQCB EQU CVTS01+292 01125000 CVTQCS01 EQU CVTS01+288 01126000 CVTAPFT EQU CVTS01+284 01127000 CVTPARRL EQU CVTS01+280 01128000 CVTVWAIT EQU CVTS01+276 01129000 CVTGSPL EQU CVTS01+272 01130000 CVTLSMQ EQU CVTS01+268 01131000 CVTGSMQ EQU CVTS01+264 01132000 CVTEXPRO EQU CVTS01+260 01133000 CVTOPCTP EQU CVTS01+256 01134000 CVTSIC EQU CVTS01+252 01135000 CVTTPIOS EQU CVTS01+248 01136000 CVTRTMS EQU CVTS01+244 01137000 CVTSDBF EQU CVTS01+240 01138000 CVTSCBP EQU CVTS01+236 01139000 CVTSDMP EQU CVTS01+232 01140000 CVTSV60 EQU CVTS01+228 01141000 CVTRTMCT EQU CVTS01+224 01142000 CVTASCBL EQU CVTS01+220 01143000 CVTASCBH EQU CVTS01+216 01144000 CVTGDA EQU CVTS01+212 01145000 CVTASVT EQU CVTS01+208 01146000 CVTVVMDI EQU CVTS01+204 01147000 CVTAQTOP EQU CVTS01+200 01148000 CVTIOSCS EQU CVTS01+196 01149000 CVTSDRM EQU CVTS01+192 01150000 CVTOPTE EQU CVTS01+188 01151000 CVTSTXU EQU CVTS01+184 01152000 CVTQUIS EQU CVTS01+180 01153000 CVTQREC EQU CVTS01+176 01154000 CVTS1EE EQU CVTS01+172 01155000 CVTFRAS EQU CVTS01+168 01156000 CVTQSAS EQU CVTS01+164 01157000 CVTCRAS EQU CVTS01+160 01158000 CVTCRMN EQU CVTS01+156 01159000 CVTDELCP EQU CVTS01+152 01160000 CVTFRECL EQU CVTS01+148 01161000 CVTGETCL EQU CVTS01+144 01162000 CVTBLDCP EQU CVTS01+140 01163000 CVTAUTHL EQU CVTS01+136 01164000 CVTRV146 EQU CVTS01+134 01165000 CVTRV145 EQU CVTS01+132 01166000 CVTRV144 EQU CVTS01+130 01167000 CVTMAXMP EQU CVTS01+128 01168000 CVTRV142 EQU CVTS01+126 01169000 CVTRV141 EQU CVTS01+125 01170000 CVTRV140 EQU CVTS01+124 01171000 CVTRV139 EQU CVTS01+123 01172000 CVTDSSAC EQU CVTS01+122 01173000 CVTRV513 EQU CVTS01+121 01174000 CVTIOSPL EQU CVTS01+120 01175000 CVTRV135 EQU CVTRV127 01176000 CVTRV134 EQU CVTRV127 01177000 CVTRV133 EQU CVTRV127 01178000 CVTRV132 EQU CVTRV127 01179000 CVTRV131 EQU CVTRV127 01180000 CVTRV130 EQU CVTRV127 01181000 CVTRV129 EQU CVTRV127 01182000 CVTRV128 EQU CVTRV127 01183000 CVTRV126 EQU CVTRV118 01184000 CVTRV125 EQU CVTRV118 01185000 CVTRV124 EQU CVTRV118 01186000 CVTRV123 EQU CVTRV118 01187000 CVTRV122 EQU CVTRV118 01188000 CVTRV121 EQU CVTRV118 01189000 CVTRV120 EQU CVTRV118 01190000 CVTRV119 EQU CVTRV118 01191000 CVTRV117 EQU CVTRV109 01192000 CVTRV116 EQU CVTRV109 01193000 CVTRV115 EQU CVTRV109 01194000 CVTRV114 EQU CVTRV109 01195000 CVTRV113 EQU CVTRV109 01196000 CVTRV112 EQU CVTRV109 01197000 CVTRV111 EQU CVTRV109 01198000 CVTRV110 EQU CVTRV109 01199000 CVTRV108 EQU CVTRV100 01200000 CVTRV107 EQU CVTRV100 01201000 CVTRV106 EQU CVTRV100 01202000 CVTRV105 EQU CVTRV100 01203000 CVTRV104 EQU CVTRV100 01204000 CVTRV103 EQU CVTRV100 01205000 CVTRV102 EQU CVTRV100 01206000 CVTRV101 EQU CVTRV100 01207000 CVTCSPIE EQU CVTS01+112 01208000 CVTSMFEX EQU CVTS01+108 01209000 CVTOLT0A EQU CVTS01+104 01210000 CVTSRBRT EQU CVTS01+100 01211000 CVTRSV82 EQU CVTS01+98 01212000 CVTRSV81 EQU CVTS01+96 01213000 CVTSYSWT EQU CVTS01+92 01214000 CVTRV327 EQU CVTS01+88 01215000 CVTRV326 EQU CVTS01+84 01216000 CVTRV325 EQU CVTS01+80 01217000 CVTRV324 EQU CVTS01+76 01218000 CVT0VL01 EQU CVTS01+72 01219000 CVTSHRVM EQU CVTS01+68 01220000 CVTRV332 EQU CVTS01+64 01221000 CVTTAS EQU CVTS01+60 01222000 CVTRSCN EQU CVTS01+56 01223000 CVTTRAC2 EQU CVTS01+54 01224000 CVTTRACE EQU CVTS01+52 01225000 CVTAPG EQU CVTS01+51 01226000 CVTSDTRC EQU CVTCTLFG 01227000 CVTGTRCE EQU CVTCTLFG 01228000 CVTNOMP EQU CVTCTLFG 01229000 CVTRSV79 EQU CVTCTLFG 01230000 CVTDSTAT EQU CVTCTLFG 01231000 CVTRSV78 EQU CVTCTLFG 01232000 CVTRV333 EQU CVTCTLFG 01233000 CVTRV323 EQU CVTCTLFG 01234000 CVTSPVLK EQU CVTS01+49 01235000 CVTRSV77 EQU CVTS01+48 01236000 CVTRV331 EQU CVTS01+44 01237000 CVTRV330 EQU CVTS01+40 01238000 CVTRV329 EQU CVTS01+36 01239000 CVTRV328 EQU CVTS01+32 01240000 CVTRV322 EQU CVTS01+28 01241000 CVTSLID EQU CVTSLIDA+1 01242000 CVTSYLK EQU CVTSLIDA 01243000 CVTRV321 EQU CVTS01+20 01244000 CVTRV320 EQU CVTS01+16 01245000 CVTLPDIR EQU CVTLPDIA+1 01246000 CVTRSV69 EQU CVTDIRST 01247000 CVTRSV68 EQU CVTDIRST 01248000 CVTRSV67 EQU CVTDIRST 01249000 CVTRSV66 EQU CVTDIRST 01250000 CVTRSV65 EQU CVTDIRST 01251000 CVTRSV64 EQU CVTDIRST 01252000 CVTRSV63 EQU CVTDIRST 01253000 CVTDICOM EQU CVTDIRST 01254000 CVTPVTP EQU CVTS01+8 01255000 CVTLPDSR EQU CVTS01+4 01256000 CVTRSVA2 EQU CVTS01 01257000 PEDDED EQU PEDPART 01258000 @NM00081 EQU TERMITA+14 01259000 RETSAVE EQU STAELST+12 01260000 @NM00080 EQU @NM00078+1 01261000 @NM00079 EQU STAEFLG 01262000 SUPOOL EQU PARMINFO+1 01263000 SUBNUM EQU PARMINFO 01264000 CHARSV16 EQU CHSHORT+108 01265000 CHARSV15 EQU CHSHORT+104 01266000 CHJSCBVS EQU CHSHORT+100 01267000 CHUSCVS EQU CHSHORT+96 01268000 @NM00052 EQU CHSHORT+92 01269000 @NM00051 EQU CHSHORT+88 01270000 CHSQA EQU CHSHORT+52 01271000 CHQPA EQU CHSHORT+16 01272000 CHJCL EQU CHSHORT+12 01273000 CHSPC EQU CHSHORT+8 01274000 CHSPB EQU CHSHORT+4 01275000 CHTCB EQU CHSHORT+1 01276000 CHARSV23 EQU CHSWT 01277000 CHARSV22 EQU CHSWT 01278000 CHARSV21 EQU CHSWT 01279000 CHAC EQU CHSWT 01280000 CHPSF EQU CHSWT 01281000 CHPSD EQU CHSWT 01282000 CHJCT EQU CHSWT 01283000 CHARSV20 EQU CHSWT 01284000 CHCECB EQU CHASM+20 01285000 CHECB EQU CHASM+16 01286000 CHRGNAD EQU CHASM+12 01287000 CHARSV18 EQU CHRGNSZ+1 01288000 CHRPRTY EQU CHRGNSZ 01289000 @NM00050 EQU CHCIBP 01290000 CHEND EQU CHCIBP 01291000 CHECBP EQU CHASM 01292000 CHDER EQU CHAIN+36 01293000 CHARSV10 EQU CHACT1 01294000 CHARSV09 EQU CHACT1 01295000 CHARSV08 EQU CHACT1 01296000 CHARSV07 EQU CHACT1 01297000 CHARSV06 EQU CHACT1 01298000 CHARSV05 EQU CHACT1 01299000 CHARSV04 EQU CHACT1 01300000 CHRDWTR EQU CHACT1 01301000 CHARSV30 EQU CHAIN+34 01302000 CHQID EQU CHAIN+32 01303000 CHASID EQU CHTJID 01304000 CHUCMP EQU CHAIN+29 01305000 CHTRKID EQU CHPKE 01306000 CHCIBCTR EQU CHAIN+27 01307000 CHUNIT EQU CHAIN+24 01308000 CHPARM EQU CHKEY 01309000 CHIFY EQU CHACT 01310000 CHAIFX EQU CHACT 01311000 CHCLD EQU CHACT 01312000 CHCL EQU CHACT 01313000 CHDSI EQU CHACT 01314000 CHDISC EQU CHACT 01315000 CHTERM EQU CHACT 01316000 CHSWAP EQU CHACT 01317000 CHABTERM EQU CHSTS 01318000 CHAD EQU CHSTS 01319000 CHQSPC EQU CHSTS 01320000 CHSOUT EQU CHSTS 01321000 CHSYS EQU CHSTS 01322000 CHAP EQU CHSTS 01323000 CHSZE EQU CHFLG+1 01324000 CHVCD EQU CHFLG 01325000 CHPTR EQU CHAIN 01326000 ASCBNEXT EQU TCBASCB+8 01327000 TCBPTR EQU TCBASCB+4 01328000 TCBNEXT EQU TCBASCB 01329000 ASCBEND EQU ASCB+208 01330000 ASCBSRBT EQU ASCB+200 01331000 ASCBSWTL EQU ASCB+196 01332000 ASCBRS14 EQU ASCB+195 01333000 ASCBSMCT EQU ASCB+194 01334000 ASCBRS12 EQU ASCB+192 01335000 ASCBPCTT EQU ASCB+188 01336000 ASCBVGTT EQU ASCB+184 01337000 ASCBLGCB EQU ASCB+180 01338000 ASCBJBNI EQU ASCB+172 01339000 ASCBMCC EQU ASCB+168 01340000 ASCBRTWA EQU ASCB+164 01341000 ASCBIQEA EQU ASCB+160 01342000 ASCBXMPQ EQU ASCB+156 01343000 ASCBRS01 EQU ASCB+154 01344000 ASCBFMCT EQU ASCB+152 01345000 ASCBOUXB EQU ASCB+148 01346000 ASCBOUCB EQU ASCB+144 01347000 ASCBMECB EQU ASCB+140 01348000 ASCBQECB EQU ASCB+136 01349000 ASCBCMSB EQU ASCB+132 01350000 ASCBCMSF EQU ASCB+128 01351000 ASCBTCBS EQU ASCB+124 01352000 ASCBNVSC EQU ASCB+122 01353000 ASCBVSC EQU ASCB+120 01354000 ASCBSRBS EQU ASCB+118 01355000 ASCBSSRB EQU ASCB+116 01356000 ASCBRV06 EQU ASCBFLG2 01357000 ASCBRV05 EQU ASCBFLG2 01358000 ASCBRV04 EQU ASCBFLG2 01359000 ASCBSNQS EQU ASCBFLG2 01360000 ASCBS2S EQU ASCBFLG2 01361000 ASCBCEXT EQU ASCBFLG2 01362000 ASCBPXMT EQU ASCBFLG2 01363000 ASCBXMPT EQU ASCBFLG2 01364000 ASCBRF07 EQU ASCBDSP1 01365000 ASCBRF06 EQU ASCBDSP1 01366000 ASCBRF05 EQU ASCBDSP1 01367000 ASCBRF04 EQU ASCBDSP1 01368000 ASCBRF03 EQU ASCBDSP1 01369000 ASCBRF02 EQU ASCBDSP1 01370000 ASCBFAIL EQU ASCBDSP1 01371000 ASCBNOQ EQU ASCBDSP1 01372000 ASCBSWCT EQU ASCB+112 01373000 ASCBASXB EQU ASCB+108 01374000 ASCBTMCH EQU ASCB+104 01375000 ASCBNSWP EQU ASCBFLG1 01376000 ASCBTYP1 EQU ASCBFLG1 01377000 ASCBSTND EQU ASCBFLG1 01378000 ASCBABNT EQU ASCBFLG1 01379000 ASCBTERM EQU ASCBFLG1 01380000 ASCBS3S EQU ASCBFLG1 01381000 ASCBCMSH EQU ASCBFLG1 01382000 ASCBTOFF EQU ASCBFLG1 01383000 ASCBRF01 EQU ASCBRCTF 01384000 ASCBTMLW EQU ASCBRCTF 01385000 ASCBOUT EQU ASCBRCTF 01386000 ASCBWAIT EQU ASCBRCTF 01387000 ASCBFND EQU ASCBRCTF 01388000 ASCBFQU EQU ASCBRCTF 01389000 ASCBFRS EQU ASCBRCTF 01390000 ASCBTMNO EQU ASCBRCTF 01391000 ASCBAFFN EQU ASCBFW1 01392000 ASCBDUMP EQU ASCB+96 01393000 ASCBQSVC EQU ASCB+92 01394000 ASCBUBET EQU ASCB+88 01395000 ASCBECB EQU ASCB+84 01396000 ASCBJSTL EQU ASCB+80 01397000 ASCBEWST EQU ASCB+72 01398000 ASCBEJST EQU ASCB+64 01399000 ASCBTSB EQU ASCB+60 01400000 ASCBRSM EQU ASCB+52 01401000 ASCBLDA EQU ASCB+48 01402000 ASCBSTOR EQU ASCB+44 01403000 ASCBDP EQU ASCB+43 01404000 ASCBRV07 EQU ASCB+42 01405000 ASCBIOSM EQU ASCB+40 01406000 ASCBSEQN EQU ASCB+38 01407000 ASCBASID EQU ASCB+36 01408000 ASCBCPUS EQU ASCB+32 01409000 ASCBSPL EQU ASCB+28 01410000 ASCBLSLQ EQU ASCB+24 01411000 ASCBFSLQ EQU ASCB+20 01412000 ASCBIOSP EQU ASCB+16 01413000 ASCBLOCK EQU ASCB+12 01414000 ASCBBWDP EQU ASCB+8 01415000 ASCBFWDP EQU ASCB+4 01416000 ASCBASCB EQU ASCB 01417000 ASCBEGIN EQU ASCB 01418000 @NM00049 EQU SDWA+512 01419000 SDWAVRA EQU SDWARA+4 01420000 SDWAURAL EQU SDWARA+3 01421000 @NM00048 EQU SDWADPVA 01422000 SDWAEBC EQU SDWADPVA 01423000 SDWAHEX EQU SDWADPVA 01424000 SDWAVRAL EQU SDWARA 01425000 @NM00047 EQU SDWA+396 01426000 SDWACOMP EQU SDWA+392 01427000 SDWARCPL EQU SDWA+364 01428000 @NM00046 EQU SDWADPSA+32 01429000 SDWATO4 EQU SDWADPSL+28 01430000 SDWAFRM4 EQU SDWADPSL+24 01431000 SDWATO3 EQU SDWADPSL+20 01432000 SDWAFRM3 EQU SDWADPSL+16 01433000 SDWATO2 EQU SDWADPSL+12 01434000 SDWAFRM2 EQU SDWADPSL+8 01435000 SDWATO1 EQU SDWADPSL+4 01436000 SDWAFRM1 EQU SDWADPSL 01437000 @NM00045 EQU SDWADDAT+3 01438000 @NM00044 EQU SDWAPDAT 01439000 SDWAUSPL EQU SDWAPDAT 01440000 SDWADPSW EQU SDWAPDAT 01441000 SDWATJPA EQU SDWAPDAT 01442000 SDWATLPA EQU SDWAPDAT 01443000 SDWADREG EQU SDWAPDAT 01444000 SDWADSAH EQU SDWAPDAT 01445000 SDWADSAS EQU SDWAPDAT 01446000 @NM00043 EQU SDWADDAT+1 01447000 @NM00042 EQU SDWASDAT 01448000 SDWAQQS EQU SDWASDAT 01449000 SDWACBS EQU SDWASDAT 01450000 SDWAGTF EQU SDWASDAT 01451000 SDWASWA EQU SDWASDAT 01452000 SDWALSQA EQU SDWASDAT 01453000 SDWASQA EQU SDWASDAT 01454000 SDWANUC EQU SDWASDAT 01455000 @NM00041 EQU SDWADUMP+2 01456000 @NM00040 EQU SDWADPFS 01457000 SDWASLST EQU SDWADPFS 01458000 @NM00039 EQU SDWADPFS 01459000 SDWADLST EQU SDWADPFS 01460000 SDWADPT EQU SDWADPFS 01461000 SDWADPID EQU SDWADUMP 01462000 SDWADPLA EQU SDWA+316 01463000 SDWAREXN EQU SDWARECP+16 01464000 SDWACSCT EQU SDWARECP+8 01465000 SDWAMODN EQU SDWARECP 01466000 @NM00038 EQU SDWALKWA+32 01467000 SDWATALW EQU SDWALKWS+28 01468000 SDWATDLW EQU SDWALKWS+24 01469000 SDWATNLW EQU SDWALKWS+20 01470000 SDWAAPLW EQU SDWALKWS+16 01471000 SDWAIPLW EQU SDWALKWS+12 01472000 SDWAILLW EQU SDWALKWS+8 01473000 SDWAIULW EQU SDWALKWS+4 01474000 SDWAICLW EQU SDWALKWS 01475000 SDWAFLLK EQU SDWAACF4 01476000 SDWACMS EQU SDWAACF4 01477000 SDWAOPTM EQU SDWAACF4 01478000 SDWATADB EQU SDWAACF4 01479000 SDWATDNB EQU SDWAACF4 01480000 SDWATNCB EQU SDWAACF4 01481000 SDWAILCH EQU SDWAACF4 01482000 SDWAIUCB EQU SDWAACF4 01483000 SDWAICAT EQU SDWAACF3 01484000 SDWAIPRG EQU SDWAACF3 01485000 SDWASALL EQU SDWAACF3 01486000 SDWAASMP EQU SDWAACF3 01487000 SDWADISP EQU SDWAACF3 01488000 @NM00037 EQU SDWAACF3 01489000 @NM00036 EQU SDWAACF2 01490000 SDWAUPRG EQU SDWAACF2 01491000 @NM00035 EQU SDWAACF2 01492000 SDWASPIN EQU SDWAACF2 01493000 @NM00034 EQU SDWAACF2 01494000 SDWACPUA EQU SDWA+248 01495000 SDWARECA EQU SDWA+244 01496000 @NM00033 EQU SDWA+239 01497000 @NM00032 EQU SDWAIOFS 01498000 SDWANIOP EQU SDWAIOFS 01499000 SDWANOIO EQU SDWAIOFS 01500000 SDWAIOHT EQU SDWAIOFS 01501000 SDWAIOQR EQU SDWAIOFS 01502000 SDWAFMID EQU SDWA+236 01503000 @NM00031 EQU SDWAERRD 01504000 SDWAMCIV EQU SDWAERRD 01505000 SDWARPIV EQU SDWAERRD 01506000 SDWAMABD EQU SDWAERRD 01507000 SDWACTS EQU SDWAERRD 01508000 SDWASTAE EQU SDWAERRD 01509000 SDWANRBE EQU SDWAERRD 01510000 SDWACLUP EQU SDWAERRD 01511000 @NM00030 EQU SDWAERRC 01512000 SDWAEAS EQU SDWAERRC 01513000 SDWAIRB EQU SDWAERRC 01514000 SDWASTAI EQU SDWAERRC 01515000 SDWASTAF EQU SDWAERRC 01516000 SDWASRBM EQU SDWAERRB 01517000 SDWALDIS EQU SDWAERRB 01518000 SDWAENRB EQU SDWAERRB 01519000 SDWATYP1 EQU SDWAERRB 01520000 @NM00029 EQU SDWAERRB 01521000 SDWAPGIO EQU SDWAERRA 01522000 SDWATEXC EQU SDWAERRA 01523000 SDWASVCE EQU SDWAERRA 01524000 SDWAABTM EQU SDWAERRA 01525000 SDWASVCD EQU SDWAERRA 01526000 SDWARKEY EQU SDWAERRA 01527000 SDWAPCHK EQU SDWAERRA 01528000 SDWAMCHK EQU SDWAERRA 01529000 SDWATIME EQU SDWAMCH+20 01530000 SDWARFSA EQU SDWAMCH+16 01531000 @NM00028 EQU SDWAMCH+14 01532000 SDWAVEQR EQU SDWARSR2 01533000 SDWAPGFX EQU SDWARSR2 01534000 SDWAFLSQ EQU SDWARSR2 01535000 SDWAFSQA EQU SDWARSR2 01536000 SDWANUCL EQU SDWARSR2 01537000 SDWASPER EQU SDWARSR2 01538000 SDWAINTC EQU SDWARSR2 01539000 SDWAOFLN EQU SDWARSR2 01540000 SDWACHNG EQU SDWARSR1 01541000 SDWAMSER EQU SDWARSR1 01542000 @NM00027 EQU SDWARSR1 01543000 SDWACPID EQU SDWAMCH+10 01544000 SDWATERR EQU SDWAMCHD 01545000 SDWAFPRX EQU SDWAMCHD 01546000 SDWAINSF EQU SDWAMCHD 01547000 SDWAACR EQU SDWAMCHD 01548000 SDWASCK EQU SDWAMCHD 01549000 SDWAPSWU EQU SDWAMCHD 01550000 SDWAREGU EQU SDWAMCHD 01551000 SDWASKYF EQU SDWAMCHD 01552000 @NM00026 EQU SDWAMCHS 01553000 SDWARSRF EQU SDWAMCHS 01554000 SDWARSRC EQU SDWAMCHS 01555000 SDWAINVP EQU SDWAMCHS 01556000 SDWATSVL EQU SDWAMCHS 01557000 SDWARCDF EQU SDWAMCHS 01558000 SDWASRVL EQU SDWAMCHS 01559000 SDWASCKE EQU SDWASTCK+4 01560000 SDWASCKB EQU SDWASTCK 01561000 SDWALNTH EQU SDWAIDNT+1 01562000 SDWASPID EQU SDWAIDNT 01563000 SDWASR15 EQU SDWASRSV+60 01564000 SDWASR14 EQU SDWASRSV+56 01565000 SDWASR13 EQU SDWASRSV+52 01566000 SDWASR12 EQU SDWASRSV+48 01567000 SDWASR11 EQU SDWASRSV+44 01568000 SDWASR10 EQU SDWASRSV+40 01569000 SDWASR09 EQU SDWASRSV+36 01570000 SDWASR08 EQU SDWASRSV+32 01571000 SDWASR07 EQU SDWASRSV+28 01572000 SDWASR06 EQU SDWASRSV+24 01573000 SDWASR05 EQU SDWASRSV+20 01574000 SDWASR04 EQU SDWASRSV+16 01575000 SDWASR03 EQU SDWASRSV+12 01576000 SDWASR02 EQU SDWASRSV+8 01577000 SDWASR01 EQU SDWASRSV+4 01578000 SDWASR00 EQU SDWASRSV 01579000 SDWATRN2 EQU SDWAAEC2+4 01580000 SDWAIPC2 EQU SDWAICD2 01581000 SDWAIMC2 EQU SDWAICD2 01582000 SDWAIPR2 EQU SDWAICD2 01583000 @NM00025 EQU SDWAINC2 01584000 @NM00024 EQU SDWAILC2 01585000 SDWAIL2 EQU SDWAILC2 01586000 @NM00023 EQU SDWAILC2 01587000 @NM00022 EQU SDWAAEC2 01588000 SDWAADD2 EQU SDWANXT2+1 01589000 @NM00021 EQU SDWANXT2 01590000 @NM00020 EQU SDWAEC2+3 01591000 SDWASGN2 EQU SDWAINT2 01592000 SDWAEXP2 EQU SDWAINT2 01593000 SDWADEC2 EQU SDWAINT2 01594000 SDWAFPO2 EQU SDWAINT2 01595000 SDWACC2 EQU SDWAINT2 01596000 @NM00019 EQU SDWAINT2 01597000 SDWAPGM2 EQU SDWAMWP2 01598000 SDWAWAT2 EQU SDWAMWP2 01599000 SDWAMCK2 EQU SDWAMWP2 01600000 SDWAECT2 EQU SDWAMWP2 01601000 SDWAKEY2 EQU SDWAMWP2 01602000 SDWAEXT2 EQU SDWAEMK2 01603000 SDWAIO2 EQU SDWAEMK2 01604000 SDWATRM2 EQU SDWAEMK2 01605000 @NM00018 EQU SDWAEMK2 01606000 SDWAPER2 EQU SDWAEMK2 01607000 @NM00017 EQU SDWAEMK2 01608000 SDWATRAN EQU SDWAAEC1+4 01609000 SDWAIPC1 EQU SDWAICD1 01610000 SDWAIMC1 EQU SDWAICD1 01611000 SDWAIPR1 EQU SDWAICD1 01612000 @NM00016 EQU SDWAINC1 01613000 @NM00015 EQU SDWAILC1 01614000 SDWAIL1 EQU SDWAILC1 01615000 @NM00014 EQU SDWAILC1 01616000 @NM00013 EQU SDWAAEC1 01617000 SDWAADD1 EQU SDWANXT1+1 01618000 @NM00012 EQU SDWANXT1 01619000 @NM00011 EQU SDWAEC1+3 01620000 SDWASGN1 EQU SDWAINT1 01621000 SDWAEXP1 EQU SDWAINT1 01622000 SDWADEC1 EQU SDWAINT1 01623000 SDWAFPO1 EQU SDWAINT1 01624000 SDWACC1 EQU SDWAINT1 01625000 @NM00010 EQU SDWAINT1 01626000 SDWAPGM1 EQU SDWAMWP1 01627000 SDWAWAT1 EQU SDWAMWP1 01628000 SDWAMCK1 EQU SDWAMWP1 01629000 SDWAECT1 EQU SDWAMWP1 01630000 SDWAKEY1 EQU SDWAMWP1 01631000 SDWAEXT1 EQU SDWAEMK1 01632000 SDWAIO1 EQU SDWAEMK1 01633000 SDWATRM1 EQU SDWAEMK1 01634000 @NM00009 EQU SDWAEMK1 01635000 SDWAPER1 EQU SDWAEMK1 01636000 @NM00008 EQU SDWAEMK1 01637000 SDWAIOBR EQU SDWA+100 01638000 SDWAEPA EQU SDWA+96 01639000 @NM00007 EQU SDWANAME+4 01640000 SDWARBAD EQU SDWANAME 01641000 SDWAGR15 EQU SDWAGRSV+60 01642000 SDWAGR14 EQU SDWAGRSV+56 01643000 SDWAGR13 EQU SDWAGRSV+52 01644000 SDWAGR12 EQU SDWAGRSV+48 01645000 SDWAGR11 EQU SDWAGRSV+44 01646000 SDWAGR10 EQU SDWAGRSV+40 01647000 SDWAGR09 EQU SDWAGRSV+36 01648000 SDWAGR08 EQU SDWAGRSV+32 01649000 SDWAGR07 EQU SDWAGRSV+28 01650000 SDWAGR06 EQU SDWAGRSV+24 01651000 SDWAGR05 EQU SDWAGRSV+20 01652000 SDWAGR04 EQU SDWAGRSV+16 01653000 SDWAGR03 EQU SDWAGRSV+12 01654000 SDWAGR02 EQU SDWAGRSV+8 01655000 SDWAGR01 EQU SDWAGRSV+4 01656000 SDWAGR00 EQU SDWAGRSV 01657000 SDWANXTP EQU SDWACTL2+5 01658000 SDWASGP EQU SDWAPMKP 01659000 SDWAEUP EQU SDWAPMKP 01660000 SDWADOP EQU SDWAPMKP 01661000 SDWAFPP EQU SDWAPMKP 01662000 SDWACCP EQU SDWAPMKP 01663000 SDWAILP EQU SDWAPMKP 01664000 SDWAINTP EQU SDWACTL2+2 01665000 SDWASPVP EQU SDWAMWPP 01666000 SDWAWATP EQU SDWAMWPP 01667000 SDWAMCKP EQU SDWAMWPP 01668000 @NM00006 EQU SDWAMWPP 01669000 SDWAKEYP EQU SDWAMWPP 01670000 SDWAEXTP EQU SDWACMKP 01671000 SDWAIOP EQU SDWACMKP 01672000 SDWANXTA EQU SDWACTL1+5 01673000 SDWASGA EQU SDWAPMKA 01674000 SDWAEUA EQU SDWAPMKA 01675000 SDWADOA EQU SDWAPMKA 01676000 SDWAFPA EQU SDWAPMKA 01677000 SDWACCA EQU SDWAPMKA 01678000 SDWAILA EQU SDWAPMKA 01679000 SDWAINTA EQU SDWACTL1+2 01680000 SDWASPVA EQU SDWAMWPA 01681000 SDWAWATA EQU SDWAMWPA 01682000 SDWAMCKA EQU SDWAMWPA 01683000 @NM00005 EQU SDWAMWPA 01684000 SDWAKEYA EQU SDWAMWPA 01685000 SDWAEXTA EQU SDWACMKA 01686000 SDWAIOA EQU SDWACMKA 01687000 SDWACMPC EQU SDWAABCC+1 01688000 @NM00004 EQU SDWACMPF 01689000 SDWASTCC EQU SDWACMPF 01690000 @NM00003 EQU SDWACMPF 01691000 SDWASTEP EQU SDWACMPF 01692000 SDWAREQ EQU SDWACMPF 01693000 CVTLEVL EQU CVTRELNO+2 01694000 CVTNUMB EQU CVTRELNO 01695000 CVTMDL EQU CVTFIX+250 01696000 @NM00002 EQU CVTFIX+248 01697000 @NM00001 EQU CVTFIX 01698000 CVTRV482 EQU CVTXTNT2+128 01699000 CVTRV481 EQU CVTXTNT2+124 01700000 CVTRV480 EQU CVTXTNT2+120 01701000 CVTRV479 EQU CVTXTNT2+118 01702000 CVTRV478 EQU CVTXTNT2+117 01703000 CVTRV477 EQU CVTXTNT2+116 01704000 CVTRV476 EQU CVTXTNT2+115 01705000 CVTRV475 EQU CVTXTNT2+114 01706000 CVTRV474 EQU CVTRV466 01707000 CVTRV473 EQU CVTRV466 01708000 CVTRV472 EQU CVTRV466 01709000 CVTRV471 EQU CVTRV466 01710000 CVTRV470 EQU CVTRV466 01711000 CVTRV469 EQU CVTRV466 01712000 CVTRV468 EQU CVTRV466 01713000 CVTRV467 EQU CVTRV466 01714000 CVTRV465 EQU CVTRV457 01715000 CVTRV464 EQU CVTRV457 01716000 CVTRV463 EQU CVTRV457 01717000 CVTRV462 EQU CVTRV457 01718000 CVTRV461 EQU CVTRV457 01719000 CVTRV460 EQU CVTRV457 01720000 CVTRV459 EQU CVTRV457 01721000 CVTRV458 EQU CVTRV457 01722000 CVTRV456 EQU CVTXTNT2+108 01723000 CVTRV455 EQU CVTXTNT2+104 01724000 CVTRV454 EQU CVTXTNT2+100 01725000 CVTRV453 EQU CVTXTNT2+96 01726000 CVTRV452 EQU CVTXTNT2+94 01727000 CVTRV451 EQU CVTXTNT2+92 01728000 CVTRV450 EQU CVTXTNT2+90 01729000 CVTRV449 EQU CVTXTNT2+88 01730000 CVTRV448 EQU CVTXTNT2+87 01731000 CVTRV447 EQU CVTXTNT2+86 01732000 CVTRV446 EQU CVTRV438 01733000 CVTRV445 EQU CVTRV438 01734000 CVTRV444 EQU CVTRV438 01735000 CVTRV443 EQU CVTRV438 01736000 CVTRV442 EQU CVTRV438 01737000 CVTRV441 EQU CVTRV438 01738000 CVTRV440 EQU CVTRV438 01739000 CVTRV439 EQU CVTRV438 01740000 CVTRV437 EQU CVTRV429 01741000 CVTRV436 EQU CVTRV429 01742000 CVTRV435 EQU CVTRV429 01743000 CVTRV434 EQU CVTRV429 01744000 CVTRV433 EQU CVTRV429 01745000 CVTRV432 EQU CVTRV429 01746000 CVTRV431 EQU CVTRV429 01747000 CVTRV430 EQU CVTRV429 01748000 CVTRV428 EQU CVTXTNT2+80 01749000 CVTRV427 EQU CVTXTNT2+76 01750000 CVTRV426 EQU CVTXTNT2+72 01751000 CVTRV425 EQU CVTXTNT2+68 01752000 CVTATACT EQU CVTATCVT 01753000 CVTRV423 EQU CVTXTNT2+62 01754000 CVTRV422 EQU CVTXTNT2+60 01755000 CVTRV421 EQU CVTXTNT2+58 01756000 CVTRV420 EQU CVTXTNT2+56 01757000 CVTRV419 EQU CVTXTNT2+55 01758000 CVTRV418 EQU CVTXTNT2+54 01759000 CVTRV417 EQU CVTRV409 01760000 CVTRV416 EQU CVTRV409 01761000 CVTRV415 EQU CVTRV409 01762000 CVTRV414 EQU CVTRV409 01763000 CVTRV413 EQU CVTRV409 01764000 CVTRV412 EQU CVTRV409 01765000 CVTRV411 EQU CVTRV409 01766000 CVTRV410 EQU CVTRV409 01767000 CVTRV408 EQU CVTRV400 01768000 CVTRV407 EQU CVTRV400 01769000 CVTRV406 EQU CVTRV400 01770000 CVTRV405 EQU CVTRV400 01771000 CVTRV404 EQU CVTRV400 01772000 CVTRV403 EQU CVTRV400 01773000 CVTRV402 EQU CVTRV400 01774000 CVTRV401 EQU CVTRV400 01775000 CVTRSVA1 EQU CVTXTNT2+48 01776000 CVTRSVA0 EQU CVTXTNT2+44 01777000 CVTRSV99 EQU CVTXTNT2+40 01778000 CVTRSV98 EQU CVTXTNT2+36 01779000 CVTRSV97 EQU CVTXTNT2+34 01780000 CVTRSV96 EQU CVTXTNT2+32 01781000 CVTOLTEP EQU CVTXTNT2+28 01782000 CVTQIDA EQU CVTQID+1 01783000 CVTRSV95 EQU CVTQID 01784000 CVTRSV94 EQU CVTXTNT2+20 01785000 CVTRSV93 EQU CVTXTNT2+16 01786000 CVTRAP EQU CVTXTNT2+12 01787000 CVTDEBVR EQU CVTXTNT2+8 01788000 CVTRSV91 EQU CVTXTNT2+6 01789000 CVTRSV9H EQU CVTRSV90 01790000 CVTRSV9G EQU CVTRSV90 01791000 CVTRSV9F EQU CVTRSV90 01792000 CVTRSV9E EQU CVTRSV90 01793000 CVTRSV9D EQU CVTRSV90 01794000 CVTRSV9C EQU CVTRSV90 01795000 CVTRSV9B EQU CVTRSV90 01796000 CVTRSV9A EQU CVTRSV90 01797000 CVTNUCLS EQU CVTXTNT2+4 01798000 CVTDSSVA EQU CVTDSSV+1 01799000 CVTRSV89 EQU CVTDSSV 01800000 CVTRSV88 EQU CVTXTNT1+8 01801000 CVTRSV87 EQU CVTXTNT1+4 01802000 CVTFACHN EQU CVTXTNT1 01803000 CVTRV488 EQU CVTMAP+412 01804000 CVTRV487 EQU CVTMAP+408 01805000 CVTRV486 EQU CVTMAP+404 01806000 CVTRV485 EQU CVTMAP+400 01807000 CVTRV484 EQU CVTMAP+396 01808000 CVTAUTH EQU CVTMAP+392 01809000 CVTATMCA EQU CVTATMCT+1 01810000 CVTATMST EQU CVTATMCT 01811000 CVTRSV61 EQU CVTMAP+384 01812000 CVTVOLT1 EQU CVTVOLM1+1 01813000 CVTVOLI1 EQU CVTVOLF1 01814000 CVTSTOA EQU CVTMAP+376 01815000 CVTRSV58 EQU CVTMAP+374 01816000 CVTRSV57 EQU CVTMAP+372 01817000 CVTDDCE EQU CVTMAP+368 01818000 CVTPNWFR EQU CVTMAP+364 01819000 CVTSMF EQU CVTMAP+360 01820000 CVTSULK EQU CVTMAP+358 01821000 CVTSLKO EQU CVTSYSK 01822000 CVTSLKP EQU CVTSYSK 01823000 CVTSLKQ EQU CVTSYSK 01824000 CVTSLKR EQU CVTSYSK 01825000 CVTRSV56 EQU CVTSYSK 01826000 CVTRSV55 EQU CVTSYSK 01827000 CVTRSV54 EQU CVTSYSK 01828000 CVTRSV53 EQU CVTSYSK 01829000 CVTRSV52 EQU CVTA1F1 01830000 CVTRSV51 EQU CVTA1F1 01831000 CVTRSV50 EQU CVTA1F1 01832000 CVTRSV49 EQU CVTA1F1 01833000 CVTRSV48 EQU CVTA1F1 01834000 CVTRSV47 EQU CVTA1F1 01835000 CVTSRSW EQU CVTA1F1 01836000 CVTPFSW EQU CVTA1F1 01837000 CVTPCVT EQU CVTMAP+352 01838000 CVTRSV46 EQU CVTMAP+344 01839000 CVTRSV45 EQU CVTMAP+340 01840000 CVTRSV44 EQU CVTMAP+338 01841000 CVTRSV43 EQU CVTMAP+336 01842000 CVTHJESA EQU CVTHJES+1 01843000 CVTRSV42 EQU CVTHJES 01844000 CVTEXT2A EQU CVTEXT2+1 01845000 CVTRSV41 EQU CVTEXT2 01846000 CVTAPFA EQU CVTAPF+1 01847000 CVTRSV40 EQU CVTAPF 01848000 CVTINTLA EQU CVTMAP+320 01849000 CVTERPV EQU CVTMAP+316 01850000 CVTEORM EQU CVTMAP+312 01851000 CVTMCHPR EQU CVTMAP+308 01852000 CVTTZ EQU CVTMAP+304 01853000 CVTJEPS EQU CVTMAP+300 01854000 CVTJESCT EQU CVTMAP+296 01855000 CVTMODE EQU CVTMAP+292 01856000 CVTPTRV EQU CVTMAP+288 01857000 CVTREAL EQU CVTMAP+284 01858000 CVTRSV39 EQU CVTMAP+280 01859000 CVTRSV38 EQU CVTMAP+276 01860000 CVTDMSRA EQU CVTDMSR+1 01861000 CVTRSV37 EQU CVTDMSR 01862000 CVTQMSGA EQU CVTQMSG+1 01863000 CVTRSV36 EQU CVTQMSG 01864000 CVTAMFF EQU CVTMAP+264 01865000 CVTPURGA EQU CVTPURG+1 01866000 CVTRSV35 EQU CVTPURG 01867000 CVTCBSP EQU CVTMAP+256 01868000 CVTATERA EQU CVTATER+1 01869000 CVTSYST EQU CVTATER 01870000 CVTVOLT2 EQU CVTTAT 01871000 CVTVOLI2 EQU CVTVOLF2 01872000 CVTAQAVB EQU CVTAQAVT+1 01873000 CVTRSV34 EQU CVTTCMFG 01874000 CVTRSV33 EQU CVTTCMFG 01875000 CVTRSV32 EQU CVTTCMFG 01876000 CVTRSV31 EQU CVTTCMFG 01877000 CVTRSV30 EQU CVTTCMFG 01878000 CVTRSV29 EQU CVTTCMFG 01879000 CVTRSV28 EQU CVTTCMFG 01880000 CVTTCRDY EQU CVTTCMFG 01881000 CVTGTFA EQU CVTGTF+1 01882000 CVTRSV27 EQU CVTGTFST 01883000 CVTRNIO EQU CVTGTFST 01884000 CVTRV319 EQU CVTUSR 01885000 CVTRV318 EQU CVTFORM 01886000 CVTRV317 EQU CVTTMODE 01887000 CVTRV316 EQU CVTSTATE 01888000 CVTRV315 EQU CVTGTFS 01889000 CVTGTFAV EQU CVTGTFS 01890000 CVT0SCR1 EQU CVTMAP+232 01891000 CVTTSCVB EQU CVTTSCVT+1 01892000 CVTRSV25 EQU CVTTSFLG 01893000 CVTRSV24 EQU CVTTSFLG 01894000 CVTRSV23 EQU CVTTSFLG 01895000 CVTRSV22 EQU CVTTSFLG 01896000 CVTRSV21 EQU CVTTSFLG 01897000 CVTRSV20 EQU CVTTSFLG 01898000 CVTRSV19 EQU CVTTSFLG 01899000 CVTTSRDY EQU CVTTSFLG 01900000 CVTRMS EQU CVTMAP+224 01901000 CVTPATCH EQU CVTMAP+220 01902000 CVTTSCE EQU CVTMAP+216 01903000 CVTLNKSC EQU CVTMAP+214 01904000 CVTQABST EQU CVTMAP+212 01905000 CVTMDLDS EQU CVTMAP+208 01906000 CVTUSER EQU CVTMAP+204 01907000 CVTABEND EQU CVTMAP+200 01908000 CVTSMCA EQU CVTMAP+196 01909000 CVTRSV18 EQU CVTMAP+192 01910000 CVTQLPAQ EQU CVTMAP+188 01911000 CVTQCDSR EQU CVTMAP+184 01912000 CVTRSV17 EQU CVTOPTB 01913000 CVTRSV16 EQU CVTOPTB 01914000 CVTFP EQU CVTOPTB 01915000 CVTAPTHR EQU CVTOPTB 01916000 CVTNLOG EQU CVTOPTB 01917000 CVTTOD EQU CVTOPTB 01918000 CVTCTIMS EQU CVTOPTB 01919000 CVTPROT EQU CVTOPTB 01920000 CVTXPFP EQU CVTOPTA 01921000 CVTASCII EQU CVTOPTA 01922000 CVTRSV13 EQU CVTOPTA 01923000 CVTRSV12 EQU CVTOPTA 01924000 CVTNIP EQU CVTOPTA 01925000 CVTDDR EQU CVTOPTA 01926000 CVTAPR EQU CVTOPTA 01927000 CVTCCH EQU CVTOPTA 01928000 CVTSNCTR EQU CVTMAP+180 01929000 CVTQMWR EQU CVTMAP+176 01930000 CVTQOCR EQU CVTMAP+172 01931000 CVT1EF00 EQU CVTMAP+168 01932000 CVTMZ00 EQU CVTMAP+164 01933000 CVTHEAD EQU CVTMAP+160 01934000 CVTRSV11 EQU CVTMAP+156 01935000 CVT0PT01 EQU CVTMAP+152 01936000 CVTMSER EQU CVTMAP+148 01937000 CVTIERLC EQU CVTMAP+144 01938000 CVTILCH EQU CVTMAP+140 01939000 CVT0DS EQU CVTMAP+136 01940000 CVTFBOSV EQU CVTMAP+132 01941000 CVTNUCB EQU CVTMAP+128 01942000 CVTIXAVL EQU CVTMAP+124 01943000 CVTIOQET EQU CVTMAP+120 01944000 CVTDCBA EQU CVTMAP+117 01945000 CVTMVS2 EQU CVTDCB 01946000 CVT6DAT EQU CVTDCB 01947000 CVT4MPS EQU CVTDCB 01948000 CVTRSV09 EQU CVTDCB 01949000 CVT4MS1 EQU CVTDCB 01950000 CVT2SPS EQU CVTDCB 01951000 CVT1SSS EQU CVTDCB 01952000 CVTRSV08 EQU CVTDCB 01953000 CVTSTB EQU CVTMAP+112 01954000 CVTQTD00 EQU CVTMAP+108 01955000 CVTQTE00 EQU CVTMAP+104 01956000 CVTCUCB EQU CVTMAP+100 01957000 CVTSJQ EQU CVTMAP+96 01958000 CVTPBLDL EQU CVTMAP+92 01959000 CVTTPC EQU CVTMAP+88 01960000 CVTSVDCB EQU CVTMAP+84 01961000 CVTBRET EQU CVTMAP+82 01962000 CVTEXIT EQU CVTMAP+80 01963000 CVT0FN00 EQU CVTMAP+76 01964000 CVTDARA EQU CVTDAR+1 01965000 CVTRSV07 EQU CVTFLGS1 01966000 CVTRSV06 EQU CVTFLGS1 01967000 CVTRSV05 EQU CVTFLGS1 01968000 CVTRSV04 EQU CVTFLGS1 01969000 CVTRSV03 EQU CVTFLGS1 01970000 CVTRSV02 EQU CVTFLGS1 01971000 CVTRSV01 EQU CVTFLGS1 01972000 CVTDMPLK EQU CVTFLGS1 01973000 CVTXITP EQU CVTMAP+68 01974000 CVTZDTAB EQU CVTMAP+64 01975000 CVTMSLT EQU CVTMAP+60 01976000 CVTDATE EQU CVTMAP+56 01977000 CVTBTERM EQU CVTMAP+52 01978000 CVTSYSAD EQU CVTMAP+48 01979000 CVTXTLER EQU CVTMAP+44 01980000 CVTILK2 EQU CVTMAP+40 01981000 CVTILK1 EQU CVTMAP+36 01982000 CVTPRLTV EQU CVTMAP+32 01983000 CVTPCNVT EQU CVTMAP+28 01984000 CVT0VL00 EQU CVTMAP+24 01985000 CVTXAPG EQU CVTMAP+20 01986000 CVTBUF EQU CVTMAP+16 01987000 CVTJOB EQU CVTMAP+12 01988000 CVTLINK EQU CVTMAP+8 01989000 CVT0EF00 EQU CVTMAP+4 01990000 CVT EQU CVTMAP 01991000 @NM00077 EQU PSA+3412 01992000 PSASTAK EQU PSA+3072 01993000 @NM00076 EQU PSA+1024 01994000 PSAUSEND EQU PSA+1024 01995000 PSARV060 EQU PSA+1020 01996000 PSARV059 EQU PSA+1018 01997000 PSASVC13 EQU PSA+1016 01998000 PSALSFCC EQU PSA+1012 01999000 PSASFACC EQU PSA+1008 02000000 PSASTOP EQU PSA+992 02001000 PSASTART EQU PSA+976 02002000 PSARSPSW EQU PSA+968 02003000 PSASRPSW EQU PSA+960 02004000 PSARV045 EQU PSA+892 02005000 PSARV044 EQU PSA+888 02006000 PSARV043 EQU PSA+884 02007000 PSARV042 EQU PSA+880 02008000 PSARV041 EQU PSA+876 02009000 PSARV040 EQU PSA+872 02010000 PSARV025 EQU PSA+868 02011000 PSADSSED EQU PSA+868 02012000 PSADSSPR EQU PSA+864 02013000 PSADSSFW EQU PSA+860 02014000 PSADSS14 EQU PSA+856 02015000 PSADSSPP EQU PSA+848 02016000 PSADSSRP EQU PSA+840 02017000 PSADSS05 EQU PSADSSF4 02018000 PSADSS10 EQU PSADSSF4 02019000 PSADSSVE EQU PSADSSF4 02020000 PSADSSDE EQU PSADSSF4 02021000 PSADSSC0 EQU PSADSSF4 02022000 PSADSSIE EQU PSADSSF4 02023000 PSADSS12 EQU PSADSSF4 02024000 PSADSSRC EQU PSADSSF4 02025000 PSARV057 EQU PSADSSF3 02026000 PSARV056 EQU PSADSSF3 02027000 PSARV055 EQU PSADSSF3 02028000 PSARV054 EQU PSADSSF3 02029000 PSADSSRW EQU PSADSSF3 02030000 PSADSSNM EQU PSADSSF3 02031000 PSADSSES EQU PSADSSF3 02032000 PSADSSGP EQU PSADSSF3 02033000 PSADSSF2 EQU PSADSSFL+1 02034000 PSADSSPI EQU PSADSSF1 02035000 PSADSSOI EQU PSADSSF1 02036000 PSADSSSP EQU PSADSSF1 02037000 PSADSSTP EQU PSADSSF1 02038000 PSADSSDW EQU PSADSSF1 02039000 PSADSSDD EQU PSADSSF1 02040000 PSADSSDM EQU PSADSSF1 02041000 PSADSSMV EQU PSADSSF1 02042000 PSADSSTS EQU PSA+816 02043000 PSADSSWK EQU PSA+812 02044000 PSADSSR3 EQU PSA+808 02045000 PSADSSR2 EQU PSA+804 02046000 PSADSSRS EQU PSA+800 02047000 PSASTOR EQU PSA+796 02048000 PSARV058 EQU PSA+794 02049000 PSAVSTAP EQU PSA+792 02050000 PSAWKVAP EQU PSA+788 02051000 PSAWKRAP EQU PSA+784 02052000 PSAMCHIC EQU PSA+783 02053000 PSAMODE EQU PSA+782 02054000 PSASYMSK EQU PSA+781 02055000 PSAMCHFL EQU PSA+780 02056000 PSACR0 EQU PSA+776 02057000 PSAPSWSV EQU PSA+768 02058000 PSACLHS EQU PSAHLHI 02059000 PSALKR15 EQU PSALKSA+60 02060000 PSALKR14 EQU PSALKSA+56 02061000 PSALKR13 EQU PSALKSA+52 02062000 PSALKR12 EQU PSALKSA+48 02063000 PSALKR11 EQU PSALKSA+44 02064000 PSALKR10 EQU PSALKSA+40 02065000 PSALKR9 EQU PSALKSA+36 02066000 PSALKR8 EQU PSALKSA+32 02067000 PSALKR7 EQU PSALKSA+28 02068000 PSALKR6 EQU PSALKSA+24 02069000 PSALKR5 EQU PSALKSA+20 02070000 PSALKR4 EQU PSALKSA+16 02071000 PSALKR3 EQU PSALKSA+12 02072000 PSALKR2 EQU PSALKSA+8 02073000 PSALKR1 EQU PSALKSA+4 02074000 PSALKR0 EQU PSALKSA 02075000 PSARV023 EQU PSACLHT+52 02076000 PSALOCAL EQU PSACLHT+48 02077000 PSACMSL EQU PSACLHT+44 02078000 PSAOPTL EQU PSACLHT+40 02079000 PSATPACL EQU PSACLHT+36 02080000 PSATPDNL EQU PSACLHT+32 02081000 PSATPNCL EQU PSACLHT+28 02082000 PSAIOSLL EQU PSACLHT+24 02083000 PSAIOSUL EQU PSACLHT+20 02084000 PSAIOSCL EQU PSACLHT+16 02085000 PSAIOSSL EQU PSACLHT+12 02086000 PSASALCL EQU PSACLHT+8 02087000 PSAASML EQU PSACLHT+4 02088000 PSADISPL EQU PSACLHT 02089000 PSASRSA EQU PSA+636 02090000 PSARV050 EQU PSA+634 02091000 PSADSSGO EQU PSA+633 02092000 PSARECUR EQU PSA+632 02093000 PSAHLHIS EQU PSA+628 02094000 PSAIPCSA EQU PSA+624 02095000 @NM00075 EQU PSA+621 02096000 PSAIPCDM EQU PSA+620 02097000 PSAIPCD EQU PSA+616 02098000 @NM00074 EQU PSA+613 02099000 PSAIPCRM EQU PSA+612 02100000 PSAIPCR EQU PSA+608 02101000 PSAMCHEX EQU PSA+600 02102000 PSAMPSW EQU PSA+592 02103000 PSAEXPS2 EQU PSA+584 02104000 PSAEXPS1 EQU PSA+576 02105000 PSAPIREG EQU PSA+572 02106000 PSARSREG EQU PSA+568 02107000 PSAGPREG EQU PSA+556 02108000 PSARV022 EQU PSASUP4 02109000 PSARV021 EQU PSASUP4 02110000 PSARV020 EQU PSASUP4 02111000 PSARV019 EQU PSASUP4 02112000 PSARV018 EQU PSASUP4 02113000 PSARV017 EQU PSASUP4 02114000 PSARV016 EQU PSASUP4 02115000 PSARV015 EQU PSASUP4 02116000 PSARV014 EQU PSASUP3 02117000 PSARV013 EQU PSASUP3 02118000 PSARV012 EQU PSASUP3 02119000 PSARV011 EQU PSASUP3 02120000 PSARV010 EQU PSASUP3 02121000 PSARV009 EQU PSASUP3 02122000 PSARV008 EQU PSASUP3 02123000 PSAIOSUP EQU PSASUP3 02124000 PSALCR EQU PSASUP2 02125000 PSARTM EQU PSASUP2 02126000 PSAACR EQU PSASUP2 02127000 PSAIPCE2 EQU PSASUP2 02128000 PSAIPCES EQU PSASUP2 02129000 PSAIPCEC EQU PSASUP2 02130000 PSAGTF EQU PSASUP2 02131000 PSAIPCRI EQU PSASUP2 02132000 PSAIPCRP EQU PSASUP1 02133000 PSAIPCDR EQU PSASUP1 02134000 PSADISP EQU PSASUP1 02135000 PSALOCK EQU PSASUP1 02136000 PSAPI EQU PSASUP1 02137000 PSAEXT EQU PSASUP1 02138000 PSASVC EQU PSASUP1 02139000 PSAIO EQU PSASUP1 02140000 PSAAOLD EQU PSA+548 02141000 PSAANEW EQU PSA+544 02142000 PSATOLD EQU PSA+540 02143000 PSATNEW EQU PSA+536 02144000 PSALCCAR EQU PSA+532 02145000 PSALCCAV EQU PSA+528 02146000 PSAPCCAR EQU PSA+524 02147000 PSAPCCAV EQU PSA+520 02148000 PSACPULA EQU PSA+518 02149000 PSACPUPA EQU PSA+516 02150000 PSAPSA EQU PSA+512 02151000 FLCHDEND EQU PSA+512 02152000 FLCCRSAV EQU FLCMCLA+280 02153000 FLCGRSAV EQU FLCMCLA+216 02154000 FLCFPSAV EQU FLCMCLA+184 02155000 FLCFLA EQU FLCMCLA+88 02156000 FLCRGNCD EQU FLCMCLA+84 02157000 FLCFSAA EQU FLCFSA+1 02158000 @NM00073 EQU FLCFSA 02159000 @NM00072 EQU FLCMCLA+72 02160000 FLCMCIC EQU FLCMCLA+64 02161000 @NM00071 EQU FLCMCLA+20 02162000 FLCIOAA EQU FLCIOA+1 02163000 @NM00070 EQU FLCIOA 02164000 @NM00069 EQU FLCMCLA+15 02165000 @NM00068 EQU FLCMCLA+14 02166000 @NM00067 EQU FLCMCLA+12 02167000 FLCLCL EQU FLCMCLA+8 02168000 FLCIOELA EQU FLCIOEL+1 02169000 @NM00066 EQU FLCIOEL 02170000 FLCCHNID EQU FLCMCLA 02171000 @NM00065 EQU PSA+160 02172000 FLCMTRCD EQU PSA+157 02173000 @NM00064 EQU PSA+156 02174000 FLCPERA EQU FLCPER+1 02175000 @NM00063 EQU FLCPER 02176000 @NM00062 EQU PSA+151 02177000 FLCPERCD EQU PSA+150 02178000 FLCMCNUM EQU PSA+149 02179000 @NM00061 EQU PSA+148 02180000 FLCTEAA EQU FLCTEA+1 02181000 @NM00060 EQU FLCTEA 02182000 PSAPIPC EQU PSAPICOD 02183000 PSAPIMC EQU PSAPICOD 02184000 PSAPIPER EQU PSAPICOD 02185000 PSARV049 EQU FLCPICOD 02186000 FLCPILCB EQU FLCPIILC 02187000 @NM00059 EQU FLCPIILC 02188000 @NM00058 EQU PSAEPPSW 02189000 FLCSVCN EQU PSAESPSW+2 02190000 FLCSILCB EQU FLCSVILC 02191000 @NM00057 EQU FLCSVILC 02192000 @NM00056 EQU PSAESPSW 02193000 FLCEICOD EQU PSAEEPSW+2 02194000 PSASPAD EQU PSAEEPSW 02195000 @NM00055 EQU PSA+128 02196000 FLCINPSW EQU PSA+120 02197000 FLCMNPSW EQU PSA+112 02198000 FLCPNPSW EQU PSA+104 02199000 FLCSNPSW EQU PSA+96 02200000 FLCENPSW EQU PSA+88 02201000 FLCTRACE EQU PSA+84 02202000 FLCTIMER EQU PSA+80 02203000 FLCCVT2 EQU PSA+76 02204000 FLCCAW EQU PSA+72 02205000 FLCCSW EQU PSA+64 02206000 FLCIOPSW EQU PSA+56 02207000 FLCMOPSW EQU PSA+48 02208000 FLCPOPSW EQU PSA+40 02209000 FLCSOPSW EQU PSA+32 02210000 FLCEOPSW EQU PSA+24 02211000 @NM00054 EQU FLCICCW2+4 02212000 FLCCVT EQU FLCICCW2 02213000 FLCICCW1 EQU FLCROPSW 02214000 FLCIPPSW EQU FLCRNPSW 02215000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02216000 @PB00002 EQU @PB00003 02217000 @ENDDATA EQU * 02218000 END IEESB665 02219000