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