TITLE 'IGG0193K -- SUBSYSTEM EXECUTOR *00001000 ' 00002000 IGG0193K CSECT , 0001 00003000 @PROLOG BALR @03,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@03 0001 00006000 EJECT 00007000 *BEGIN: /* INITALIZE POINTERS */ 00008000 * ACBPTR = ACBPTRP ; /* INIT POINTER TO ACB */ 00009000 BEGIN L ACBPTR,ACBPTRP-1(,PARCPTR) 0108 00010000 LA ACBPTR,0(,ACBPTR) 0108 00011000 * RCORE = WTGCORE ; /* INIT WORK AREA PT Y02134*/ 00012000 L RCORE,WTGCORE-1(,RWTGC) 0109 00013000 LA RCORE,0(,RCORE) 0109 00014000 */********************************************************************/ 00015000 */* */ 00016000 */* BUILD DEB */ 00017000 */* GET STORAGE FOR THE DEB, SSIB, SSOB. SET UP POINTER IN */ 00018000 */* THE ACB TO POINT TO THE DEB. CHAIN THE DEB ON THE TCB */ 00019000 */* DEB CHAIN INITIALIZE THE DEB, SSIB, SSOB. Y02120*/ 00020000 */* */ 00021000 */********************************************************************/ 00022000 */* */ 00023000 * RFY (R0,REG15) RSTD; /* Y02082*/ 00024000 *BUILDDEB: /* BUILD DEB */ 00025000 * REG15 = ADDR(IECREGSV); /*GET SAVE AREA ADDRESSY02080*/ 00026000 BUILDDEB L REG15,WTGPREFX(,RWTG) 0111 00027000 LA REG15,IECREGSV(,REG15) 0111 00028000 * RFY (R11) RSTD; /* DETERMINE LENGTH Y02082*/ 00029000 */* */ 00030000 */********************************************************************/ 00031000 */* ESTABLISH LENGTH OF DEB GETMAIN Y02082 */ 00032000 */********************************************************************/ 00033000 */* */ 00034000 * R11 = ((8 + /* DEB PREFIX LENGTH Y02082*/ 00035000 * LENGTH(DEBBASIC) + /* BASIC DEB LENGTH Y02082*/ 00036000 * LENGTH(DEBSUCBA) + /* JESUNITS UCB FIELD Y02082*/ 00037000 * LENGTH(SSIB) + /* SSIB LENGTH Y02082*/ 00038000 * LENGTH(SSOB) + /* SSOB LENGTH Y02082*/ 00039000 * LENGTH(SSDASSCB) + /* SSDASSCB NOT YET Y02082*/ 00040000 * /* IN SSOB DSECT Y02082*/ 00041000 * LENGTH(SSDA) + /* SSDA LENGTH Y02082*/ 00042000 * 7)/8)*8; /* ROUND UP DOUBLEWORD Y02082*/ 00043000 LA R11,128 0113 00044000 * RFY (R1) RSTD; /* Y02082*/ 00045000 */* */ 00046000 * GEN REFS(IECREGSV,R11); /* Y02082*/ 00047000 * GET CORE AND CLEAR TO ZERO FOR DEB, SSIB, SSOB. Y02120 00048000 IECRES GET,LV=(R11),PREFIX=NO,STM=(2,14,0(15)) Y02082 00049000 B BUILD GO TO START OF INIT Y02082 00050000 CLRCORE XC 0(0,R1),0(R1) CLEAR GETMAIN CORE Y02082 00051000 */* */ 00052000 *BUILD: R11 = R11 - 1; /* REDUCE FOR EX Y02082*/ 00053000 BUILD BCTR R11,0 0116 00054000 * GEN (EX R11,CLRCORE); /* CLEAR GETMAIN CORE Y02082*/ 00055000 EX R11,CLRCORE 00056000 * R11 = R11 + 1; /* RESTORE LENGTH Y02082*/ 00057000 AL R11,@CF00064 0118 00058000 * ACBDEB = MACROREG + 8 ; /* PUT POINTER TO DEB IN ACB */ 00059000 LA @14,8 0119 00060000 ALR @14,MACROREG 0119 00061000 STCM @14,7,ACBDEB(ACBPTR) 0119 00062000 * DEBAPPAD = MACROREG - 28 ; /* POINTER TO AVT */ 00063000 LR @12,MACROREG 0120 00064000 SL @12,@CF02541 0120 00065000 ST @12,DEBAPPAD(,@14) 0120 00066000 * RFY (R0,R1,REG15) UNRSTD; /* Y02082*/ 00067000 * DEBLNGTH = R11/8; /*LENGTH OF DEB IN DWS Y02082*/ 00068000 LR @10,R11 0122 00069000 SRL @10,3 0122 00070000 STC @10,DEBLNGTH(,@12) 0122 00071000 * DEBAMLNG = R11 - 8 - /*LENGTH OF SSIB, Y02082*/ 00072000 * LENGTH(DEBBASIC); /*SSOB, SSDA, AND UCB Y02082*/ 00073000 LR @12,R11 0123 00074000 SL @12,@CF02564 0123 00075000 STC @12,DEBAMLNG(,@14) 0123 00076000 * RFY (R11) UNRSTD; /* Y02082*/ 00077000 * DEBOFLGS = JFCBIND2 & 'C0'X; /* STATUS FLAGS FOR DATA SET 00078000 * LINE ITEM Y02120*/ 00079000 MVC DEBOFLGS(1,@14),JFCBIND2+100(RCORE) 0125 00080000 NI DEBOFLGS(@14),X'C0' 0125 00081000 * DEBNMEXT = 0; /* INITIALIZED TO ZERO Y02120*/ 00082000 MVI DEBNMEXT(@14),X'00' 0126 00083000 * DEBOPATB = ACBOPATB & '3F'X; /* PUT OPEN OPTNS IN DEB 0127 00084000 * LINE ITEM Y02120*/ 00085000 MVC DEBOPATB(1,@14),ACBOPATB(PARCPTR) 0127 00086000 NI DEBOPATB(@14),X'3F' 0127 00087000 * DEBDCBAD = ACBPTR; /* DEB POINTS TO USER ACB 0128 00088000 * LINE ITEM Y02082*/ 00089000 ST ACBPTR,DEBDCBAD(,@14) 0128 00090000 * DEBPROTG = DXUKEY; /* USER KEY IN DEB Y02082*/ 00091000 MVC DEBPROTG(1,@14),DXUKEY(RCORE) 0129 00092000 * DEBDEBID = DEBDEBID | '0F'X; /* SET DEB ID Y02082*/ 00093000 OI DEBDEBID(@14),X'0F' 0130 00094000 * DEBEXSCL = 0; /* INITIALIZE TO ZERO Y02120*/ 00095000 MVI DEBEXSCL(@14),X'00' 0131 00096000 * DEBUCBAD = JESUNITS; /* POINTER TO UCB Y02120*/ 00097000 L @12,CVTPTR 0132 00098000 L @12,CVTJESCT(,@12) 0132 00099000 L @12,JESUNITS(,@12) 0132 00100000 ST @12,DEBUCBAD+32(,@14) 0132 00101000 */* */ 00102000 */********************************************************************/ 00103000 */* */ 00104000 */* BUILD SSIB AND SSOB Y02120*/ 00105000 */* */ 00106000 */********************************************************************/ 00107000 * SSIBID = 'SSIB'; /* ID OF SSIB Y02120*/ 00108000 LA @12,36 0133 00109000 LR @15,@14 0133 00110000 ALR @15,@12 0133 00111000 MVC SSIBID(4,@15),@CC02545 0133 00112000 * SSIBLEN = LENGTH(SSIB); /* LENGTH OF SSIB Y02120*/ 00113000 STH @12,SSIBLEN(,@15) 0134 00114000 * SSIBSSNM = DSABSSNM; /* SUBSYSTEM NAME Y02134*/ 00115000 L @12,DXDSABAD(,RCORE) 0135 00116000 MVC SSIBSSNM(4,@15),DSABSSNM(@12) 0135 00117000 */* */ 00118000 * SSOBID = 'SSOB'; /* ID OF SSOB Y02120*/ 00119000 LA @11,4 0136 00120000 LA @10,SSIBSUSE(,@15) 0136 00121000 ALR @10,@11 0136 00122000 MVC SSOBID(4,@10),@CC02546 0136 00123000 * SSOBLEN = LENGTH(SSOB); /* LENGTH OF SSOB HEADER 0137 00124000 * LINE ITEM Y02120*/ 00125000 MVC SSOBLEN(2,@10),@CH00102 0137 00126000 * SSOBFUNC =SSOBOPEN; /* FUNCTION ID: OPEN = 16 0138 00127000 * CLOSE = 17 Y02120*/ 00128000 MVC SSOBFUNC(2,@10),@CH00054 0138 00129000 * SSOBSSIB = ADDR(SSIB); /* SSIB ADDRESS Y02134*/ 00130000 ST @15,SSOBSSIB(,@10) 0139 00131000 * SSOBINDV = ADDR(SSDALEN); /* FUNCTION DEPENDENT PORTION 00132000 * LENGTH ADDRESS Y02120*/ 00133000 LA @15,SSOBINDV(,@10) 0140 00134000 ALR @15,@11 0140 00135000 ST @15,SSOBINDV(,@10) 0140 00136000 * SSDALEN = LENGTH(SSDA) + /* LENGTH OF FUNCTION DEPEN- */ 00137000 * LENGTH(SSDASSCB); /* DENT PORTION OF SSOBY02120*/ 00138000 LA @15,SSOBINDV(,@10) 0141 00139000 ALR @15,@11 0141 00140000 MVC SSDALEN(2,@15),@CH00034 0141 00141000 * SSDAJFCB = ADDR(DXJBF); /* ADDR JFCB IN WORK AREA 0142 00142000 * LINE ITEM Y02120*/ 00143000 LA @01,DXJBF(,RCORE) 0142 00144000 ST @01,SSDAJFCB(,@15) 0142 00145000 * SSDADEBP = ACBDEB; /* ADDRESS OF DEB Y02120*/ 00146000 ST @14,SSDADEBP(,@15) 0143 00147000 * SSDASSCB = DSABSSCM; /* MOVE SUBSYSTEM COMM */ 00148000 LA @15,SSDADEBP(,@15) 0144 00149000 ALR @15,@11 0144 00150000 MVC SSDASSCB(4,@15),DSABSSCM(@12) 0144 00151000 * /* AREA TO SSOB Y02120*/ 00152000 */* */ 00153000 */********************************************************************/ 00154000 */* */ 00155000 */* PREPARE TO AND ISSUE IEFSSREQ MACRO. Y02120*/ 00156000 */* */ 00157000 */********************************************************************/ 00158000 * DXCCW1A = ADDR(SSOB) | '80000000'X; /* Y02120*/ 00159000 O @10,@CF02547 0145 00160000 ST @10,DXCCW1A(,RCORE) 0145 00161000 * RFY (R0,R1,SAVEPTR,RET,REG15) RSTD; /* Y02082*/ 00162000 * R1 = ADDR(DXCCW1A); /* REG 1 POINTS TO PARAMETER 00163000 * LINE ITEM Y02120*/ 00164000 LA R1,DXCCW1A(,RCORE) 0147 00165000 * SAVEPTR = ADDR(DXLBL); /* REG 13 POINTS TO SAVE AREA 00166000 * LINE ITEM Y02120*/ 00167000 LR SAVEPTR,RCORE 0148 00168000 * GEN (IEFSSREQ); /* Y02120*/ 00169000 IEFSSREQ 00170000 * RFY (R0,R1,SAVEPTR,RET) UNRSTD; /* Y02082*/ 00171000 */* */ 00172000 */********************************************************************/ 00173000 */* */ 00174000 */* ERROR RETURN LOGIC Y02120*/ 00175000 */* */ 00176000 */********************************************************************/ 00177000 * IF REG15 = 0 & SSOBRETN = 0 /* CHECK FOR ERROR Y02120*/ 00178000 * THEN /* NON-ERROR LOGIC Y02120*/ 00179000 SLR @14,@14 0151 00180000 CR REG15,@14 0151 00181000 BNE @RF00151 0151 00182000 L @12,ACBDEB-1(,ACBPTR) 0151 00183000 LA @12,0(,@12) 0151 00184000 LA @11,SSIBSUSE+36(,@12) 0151 00185000 C @14,SSOBRETN+4(,@11) 0151 00186000 BNE @RF00151 0151 00187000 * DO; /* NON-ERROR LOGIC Y02120*/ 00188000 * RFY (REG15) UNRSTD; /* Y02082*/ 00189000 */********************************************************************/ 00190000 */* */ 00191000 */* CHAIN DEB */ 00192000 */* */ 00193000 */********************************************************************/ 00194000 * DXEXHASP = ON; /*HASP RETURNED @ZA02504*/ 00195000 OI DXEXHASP(RCORE),B'10000000' 0154 00196000 * DEBTCBAD = TCBPTR; /* PT TO TCB INTO DEB Y02120*/ 00197000 L @15,TCBPTR(,RCORE) 0155 00198000 ST @15,DEBTCBAD(,@12) 0155 00199000 * DEBDEBAD = TCBDEB; /* TCB DEB PT INTO DEB Y02120*/ 00200000 L @15,TCBDEB(,@15) 0156 00201000 ST @15,DEBDEBAD(,@12) 0156 00202000 * GEN(MODESET EXTKEY=SUPR); /* TCB/MODESET KEY Y02082*/ 00203000 MODESET EXTKEY=SUPR 00204000 *CHAINDEB: DXCCW1A = DEBDEBAD; /* SAVE TO VERIFY CS Y02082*/ 00205000 CHAINDEB L @12,ACBDEB-1(,ACBPTR) 0158 00206000 LA @12,0(,@12) 0158 00207000 L @15,DEBDEBAD(,@12) 0158 00208000 ST @15,DXCCW1A(,RCORE) 0158 00209000 * CS (DEBDEBAD,SSDADEBP,TCBDEB); /* ENQUEUE DEB Y02082*/ 00210000 L @14,DEBDEBAD(,@12) 0159 00211000 LA @11,4 0159 00212000 LA @10,SSIBSUSE+36(,@12) 0159 00213000 ALR @10,@11 0159 00214000 LA @10,SSOBINDV(,@10) 0159 00215000 ALR @10,@11 0159 00216000 L @11,SSDADEBP(,@10) 0159 00217000 L @10,TCBPTR(,RCORE) 0159 00218000 CS @14,@11,TCBDEB(@10) 0159 00219000 BZ @BC00159 0159 00220000 ST @14,DEBDEBAD(,@12) 0159 00221000 @BC00159 DS 0H 0160 00222000 * IF DEBDEBAD ^= DXCCW1A /* STILL THE FIRST DEB?Y02082*/ 00223000 * THEN /* NO, TRY CS UNTIL FIRST */ 00224000 C @15,DEBDEBAD(,@12) 0160 00225000 BNE @RT00160 0160 00226000 * GOTO CHAINDEB; /* BRANCH TO THE CS INSTR */ 00227000 * GEN (MODESET EXTKEY=DATAMGT); /* DM KEY Y02082*/ 00228000 MODESET EXTKEY=DATAMGT 00229000 */********************************************************************/ 00230000 */* */ 00231000 */* ADD DEB TO DEB TABLE, DEB POINTS TO COPIED ACB Y02082*/ 00232000 */* */ 00233000 */********************************************************************/ 00234000 * RFY (R0,R1,REG15) RSTD; /* Y02082*/ 00235000 * GEN(DEBCHK (ACBPTR),TYPE=ADD,AM=SUBSYS); /* Y02082*/ 00236000 DEBCHK (ACBPTR),TYPE=ADD,AM=SUBSYS 00237000 * RFY (R0,R1,REG15) UNRSTD; /* Y02082*/ 00238000 * DEBDCBA = DXUDCBA; /* DEB POINTS TO USER 0166 00239000 * DCB YM1247*/ 00240000 L @12,ACBDEB-1(,ACBPTR) 0166 00241000 LA @12,0(,@12) 0166 00242000 MVC DEBDCBA(3,@12),DXUDCBA(RCORE) 0166 00243000 * END; /* Y02120*/ 00244000 * ELSE /* ERROR CONDITION Y02120*/ 00245000 * DO; /* ERROR CONDITION Y02120*/ 00246000 B @RC00151 0168 00247000 @RF00151 DS 0H 0169 00248000 */********************************************************************/ 00249000 */* */ 00250000 */* FREE MAIN Y02120*/ 00251000 */* */ 00252000 */********************************************************************/ 00253000 * RFY (R0,R1,R9,REG15) RSTD; /* YM1195*/ 00254000 * R9 = REG15; /* SAVE RETURN CODE YM1195*/ 00255000 LR R9,REG15 0170 00256000 * MACROREG = ACBDEB - 8; /* PREPARE FOR FREE Y02082*/ 00257000 L MACROREG,ACBDEB-1(,ACBPTR) 0171 00258000 LA MACROREG,0(,MACROREG) 0171 00259000 SL MACROREG,@CF00053 0171 00260000 * REG15 = ADDR(IECREGSV); /* REG SAVE AREA Y02082*/ 00261000 L REG15,WTGPREFX(,RWTG) 0172 00262000 LA REG15,IECREGSV(,REG15) 0172 00263000 * /* ESTABLISH LENGTH OF DEB GETMAIN Y02082*/ 00264000 * R0 = ((8 + /*LENGTH OF DEB PREFIX Y02082*/ 00265000 * LENGTH(DEBBASIC) + /*BODY OF DEB Y02082*/ 00266000 * LENGTH(DEBSUCBA) + /*JESUNITS UCB FIELD Y02082*/ 00267000 * LENGTH(SSIB) + /*SSIB Y02082*/ 00268000 * LENGTH(SSOB) + /*SSOB Y02082*/ 00269000 * LENGTH(SSDASSCB) + /*UNTIL ITS IN SSDA Y02082*/ 00270000 * LENGTH(SSDA) + /*SSDA Y02082*/ 00271000 * 7)/8)*8; /*ROUND UP TO DW BDY Y02082*/ 00272000 LA R0,128 0173 00273000 */* */ 00274000 * GEN; 0174 00275000 * FREE CORE FOR DEB, SSIB, SSOB. Y02120 00276000 IECRES FREE,LV=(0),A=(1),PREFIX=NO,STM=(0,14,0(15)) Y02134*00277000 FREE DEB SSOB SSIB Y02080 00278000 */* */ 00279000 * IF R9 ^= 0 /* IS THERE AN ERROR YM6527*/ 00280000 * /* IN IEFSSREQ YM1195*/ 00281000 * THEN /* ERR CODE, ISSUE MSG YM1195*/ 00282000 LTR R9,R9 0175 00283000 BZ @RF00175 0175 00284000 * DO; /* YM1195*/ 00285000 * GEN REFS(DXCALLID,DXREG9); /* YM1195*/ 00286000 * DMABCOND IC252,ID3K6M,RES=NO ISSUE ERROR MSG YM1195 00287000 LA 0,IC252 INTERNAL CODE YM1195 00288000 MVC DXCALLID(2,4),6(RWTG) MOD ID YM1195 00289000 MVC 0(5,RWTGC),ID3K6M ID AND ENTRY POINT YM1195 00290000 STM 9,14,DXREG9(4) SAVE REGS YM3885 00291000 B ABCONENT BRANCH DIRECT CODE YM1195 00292000 IC252 EQU 252 INTERN CODE 013-C8 ABEND YM1195 00293000 * END; /* YM1195*/ 00294000 * RFY (R0,R1,R9,RES) UNRSTD; /* YM1195*/ 00295000 @RF00175 DS 0H 0180 00296000 */********************************************************************/ 00297000 */* TURN OFF BUSY BIT IN ACB */ 00298000 */********************************************************************/ 00299000 * ACBIOSFG = '0'B; /* SET BUSY INDICATOR TO ZERO*/ 00300000 NI ACBIOSFG(ACBPTR),B'11111110' 0180 00301000 * END; 0181 00302000 */********************************************************************/ 00303000 */* MOVE COPIED ACB */ 00304000 */********************************************************************/ 00305000 * REG15 = ADDR(IECREGSV); /* Y02082*/ 00306000 @RC00151 L REG15,WTGPREFX(,RWTG) 0182 00307000 LA REG15,IECREGSV(,REG15) 0182 00308000 */* */ 00309000 * GEN; /* Y02082*/ 00310000 IECRES INIT,DCBCOPY=FRWKAR,STM=(2,14,0(15)), Y02082*00311000 PREFIX=WTGPREFX Y02082 00312000 */* */ 00313000 * RFY REG15 UNRSTD; /* Y02082*/ 00314000 */* */ 00315000 */********************************************************************/ 00316000 */* */ 00317000 */* PROCESSING OF ACB IS COMPLETE. DETERMINE IF THIS EXECUTOR */ 00318000 */* IS REQUIRED FOR ANOTHER ACB IN THE PARAMETER LIST AND */ 00319000 */* REPEAT. IF NOT NEEDED XCTL TO THE FIRST NONZERO ENTRY IN */ 00320000 */* THE WHERE TO GO TABLE. */ 00321000 */* */ 00322000 */********************************************************************/ 00323000 * WTGIDTTR = WTGIDTTR && WTGIDTTR; /* ZERO OUT ID Y02120*/ 00324000 XC WTGIDTTR(5,RWTGC),WTGIDTTR(RWTGC) 0185 00325000 *NEXTACB: /* CHECK FOR LAST ENTRY */ 00326000 * IF ENDPARM = '1'B /* IF IT IS THE LAST ENTRY */ 00327000 * THEN /* SEARCH FOR FIRST NON-ZERO */ 00328000 NEXTACB TM ENDPARM(PARCPTR),B'10000000' 0186 00329000 BO @RT00186 0186 00330000 * GOTO SERCHWTG ; /* WTG ENTRY */ 00331000 * ELSE; /* PROCESS NEXT ACB */ 00332000 * PARCPTR =PARCPTR + LENGTH(PARMLIST);/*INCREMENT TO NEXT 0189 00333000 * ENTRY IN PARAMETER LIST */ 00334000 AL PARCPTR,@CF00070 0189 00335000 * RWTGC = RWTGC + LENGTH(WTGENTRY);/*INCREMENT TO NEXT ENTRY 00336000 * IN WHERE-TO-GO-TABLE */ 00337000 AL RWTGC,@CF00053 0190 00338000 * IF WTGEID = '3K' /* EXECUTOR REQUIRED AGAIN */ 00339000 * THEN /* YES GO TO START */ 00340000 CLC WTGEID(2,RWTGC),@CC02555 0191 00341000 BE @RT00191 0191 00342000 * GOTO BEGIN; /* YES REPEAT MODULE FOR NEW 00343000 * ACB */ 00344000 * ELSE /* NO PROCESS NEXT ACB */ 00345000 * GOTO NEXTACB ; /* PROCESS NEXT ACB */ 00346000 B NEXTACB 0193 00347000 */********************************************************************/ 00348000 */* 3K NOT NEEDED AGAIN - SEARCH WTG TABLE FOR FIRST NONZERO */ 00349000 */* ENTRY */ 00350000 */********************************************************************/ 00351000 *SERCHWTG: 0194 00352000 * PARCPTR = PARMPTR ; /* POINT TO START OF THE 0194 00353000 * PARAMETER LIST */ 00354000 SERCHWTG LR PARCPTR,PARMPTR 0194 00355000 * RWTGC = RWTG + LENGTH(WTG); /* POINT TO START OF THE WHERE 00356000 * TO GO TABLE Y02134*/ 00357000 LA RWTGC,32 0195 00358000 ALR RWTGC,RWTG 0195 00359000 *NEXTWTGE: /* TEST FOR NEXT ACTIVE ENTRY*/ 00360000 * IF WTGEID(1) ^= '00'X /* TEST FOR NEXT ACTIVE ENTRY*/ 00361000 * THEN /* SET UP AND XCTL IF FOUND */ 00362000 NEXTWTGE CLI WTGEID(RWTGC),X'00' 0196 00363000 BE @RF00196 0196 00364000 * DO; 0197 00365000 * RFY REG15 RSTD; /* Y02082*/ 00366000 *ABCONENT: /* ENTRY BRANCH DIRECT YM1195*/ 00367000 * REG15 = ADDR(WTGPREFX); /* ADDR OF WTG PREFIX Y02080*/ 00368000 ABCONENT LA REG15,WTGPREFX(,RWTG) 0199 00369000 * GEN REFS(WTGMODEP); 0200 00370000 * IECRES LOAD,PREFIX=0(15),BRANCH=DIRECT,MODID=(RWTGC) Y02134 00371000 L 15,0(,15) Y02080 00372000 STM 0,14,IECREGSV-IECPREFX(15) Y02080 00373000 MVC WTGMODNM+6(2,6),0(RWTGC) Y02134 00374000 MVC WTGMODEP+1(3,6),2(RWTGC) Y02134 00375000 LA 6,WTGMODNM(,6) Y02080 00376000 L 5,CVTPTR(0,0) Y02080 00377000 L 5,CVTDMSR-CVT(,5) Y02080 00378000 B 20(,5) Y02080 00379000 * RFY REG15 UNRSTD; /* Y02082*/ 00380000 * END; 0202 00381000 * ELSE 0203 00382000 * DO; 0203 00383000 B @RC00196 0203 00384000 @RF00196 DS 0H 0204 00385000 * PARCPTR = PARCPTR + LENGTH(PARMLIST) ; /* INCR NEXT ENT */ 00386000 AL PARCPTR,@CF00070 0204 00387000 * RWTGC = RWTGC + LENGTH(WTGENTRY); /* INCR ENTRY Y02134 */ 00388000 AL RWTGC,@CF00053 0205 00389000 * GOTO NEXTWTGE ; /* BRANCH BACK TO CHECK NEXT 00390000 * ENTRY */ 00391000 B NEXTWTGE 0206 00392000 * END; 0207 00393000 *FINISH: RETURN; /* Y02080 */ 00394000 @EL00001 DS 0H 0208 00395000 @EF00001 DS 0H 0208 00396000 @ER00001 BR @14 0208 00397000 * GEN DATA; 0209 00398000 * END IGG0193K 0210 00399000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00400000 */*%INCLUDE SYSLIB (IECDSECT) * 00401000 */*%INCLUDE SYSLIB (IECDSECS) * 00402000 */*%INCLUDE SYSLIB (IHAPSA ) * 00403000 */*%INCLUDE SYSLIB (CVT ) * 00404000 */*%INCLUDE SYSLIB (IFGACB ) * 00405000 */*%INCLUDE SYSLIB (IEFJESCT) * 00406000 */*%INCLUDE SYSLIB (IKJTCB ) * 00407000 */*%INCLUDE SYSLIB (IEFTIOT1) * 00408000 */*%INCLUDE SYSLIB (IEZDEB ) * 00409000 */*%INCLUDE SYSLIB (IEFJFCBN) * 00410000 */*%INCLUDE SYSLIB (IEFJSSIB) * 00411000 */*%INCLUDE SYSLIB (IEFJSSOB) * 00412000 */*%INCLUDE SYSLIB (IHADSAB ) * 00413000 *; 0210 00414000 B @EL00001 0210 00415000 @DATA DS 0H 00416000 @CH00054 DC H'16' 00417000 @CH00102 DC H'20' 00418000 @CH00034 DC H'24' 00419000 @DATD DSECT 00420000 DS 0F 00421000 IGG0193K CSECT 00422000 DS 0F 00423000 @CF00064 DC F'1' 00424000 @CF00070 DC F'4' 00425000 @CF00053 DC F'8' 00426000 @CF02541 DC F'28' 00427000 @CF02564 DC F'40' 00428000 @CF02547 DC XL4'80000000' 00429000 @DATD DSECT 00430000 DS 0D 00431000 IGG0193K CSECT 00432000 DS 0F 00433000 @SIZDATD DC AL1(0) 00434000 DC AL3(@ENDDATD-@DATD) 00435000 DS 0D 00436000 @CC02545 DC C'SSIB' 00437000 @CC02546 DC C'SSOB' 00438000 @CC02555 DC C'3K' 00439000 @DATD DSECT 00440000 IGG0193K CSECT Y02080 00441000 XCTLTABL XCTLTABL ID=(ID3K6M,6M),BRT=YES,LENGTH= Y02080 00442000 CVT EQU 0 DEFINE CVT DSECT NAME Y02080 00443000 DEBLTH EQU 128 LENGTH OF DEB,SSIB,SSOB 00444000 * IN BYTES Y02120 00445000 DM EQU 254 SUBPOOL FOR GET MAIN Y02120 00446000 K0 EQU 0 CONSTANT OF ZERO Y02120 00447000 LNSAV EQU 72 SAVE AREA LENGTH BYTES Y02120 00448000 K250 EQU 250 SUBPOOL FOR GET MAIN Y02120 00449000 RF EQU 15 DEFINE REGISTER 15 Y02080 00450000 @DATD DSECT 00451000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00452000 @ENDDATD EQU * 00453000 IGG0193K CSECT 00454000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00455000 @01 EQU 01 00456000 @02 EQU 02 00457000 @03 EQU 03 00458000 @04 EQU 04 00459000 @05 EQU 05 00460000 @06 EQU 06 00461000 @07 EQU 07 00462000 @08 EQU 08 00463000 @09 EQU 09 00464000 @10 EQU 10 00465000 @11 EQU 11 00466000 @12 EQU 12 00467000 @13 EQU 13 00468000 @14 EQU 14 00469000 @15 EQU 15 00470000 R0 EQU @00 00471000 MACROREG EQU @01 00472000 R1 EQU @01 00473000 ACBPTR EQU @02 00474000 RCORE EQU @04 00475000 PARMPTR EQU @05 00476000 RES EQU @05 00477000 RWTG EQU @06 00478000 PARCPTR EQU @07 00479000 RWTGC EQU @08 00480000 R9 EQU @09 00481000 R11 EQU @11 00482000 SAVEPTR EQU @13 00483000 RET EQU @14 00484000 REG15 EQU @15 00485000 MACRORE0 EQU @00 00486000 CVTPTR EQU 16 00487000 PSA EQU 0 00488000 FLCRNPSW EQU PSA 00489000 FLCROPSW EQU PSA+8 00490000 FLCICCW2 EQU PSA+16 00491000 PSAEEPSW EQU PSA+132 00492000 PSAESPSW EQU PSA+136 00493000 FLCSVILC EQU PSAESPSW+1 00494000 PSAEPPSW EQU PSA+140 00495000 FLCPIILC EQU PSAEPPSW+1 00496000 FLCPICOD EQU PSAEPPSW+2 00497000 PSAPICOD EQU FLCPICOD+1 00498000 FLCTEA EQU PSAEPPSW+4 00499000 FLCPER EQU PSA+152 00500000 FLCMCLA EQU PSA+168 00501000 FLCIOEL EQU FLCMCLA+4 00502000 FLCIOA EQU FLCMCLA+16 00503000 FLCFSA EQU FLCMCLA+80 00504000 PSASUPER EQU PSA+552 00505000 PSASUP1 EQU PSASUPER 00506000 PSASUP2 EQU PSASUPER+1 00507000 PSASUP3 EQU PSASUPER+2 00508000 PSASUP4 EQU PSASUPER+3 00509000 PSACLHT EQU PSA+640 00510000 PSALKSA EQU PSA+696 00511000 PSAHLHI EQU PSA+760 00512000 PSADSSFL EQU PSA+836 00513000 PSADSSF1 EQU PSADSSFL 00514000 PSADSSF3 EQU PSADSSFL+2 00515000 PSADSSF4 EQU PSADSSFL+3 00516000 PSARSVT EQU PSA+896 00517000 DEBEXPTR EQU 0 00518000 DEBSBPTR EQU 0 00519000 PARMLIST EQU 0 00520000 ACBOPATB EQU PARMLIST 00521000 ENDPARM EQU ACBOPATB 00522000 ACBPTRP EQU PARMLIST+1 00523000 TCBPTRS EQU 0 00524000 SSDASSCB EQU 0 00525000 FORCORE EQU 0 00526000 DXDSCB EQU FORCORE 00527000 DXLBL EQU DXDSCB 00528000 DXJBF EQU FORCORE+100 00529000 DXDAADDR EQU FORCORE+312 00530000 DXDCB EQU FORCORE+320 00531000 DXCCW EQU FORCORE+368 00532000 DXCCW1 EQU DXCCW 00533000 DXCCW5 EQU DXCCW+32 00534000 DXCCW8 EQU DXCCW+56 00535000 DXCCW12 EQU DXCCW+88 00536000 DXXCTL EQU FORCORE+472 00537000 DXVOLSR EQU FORCORE+500 00538000 DXVOLSR1 EQU DXVOLSR 00539000 DXVOLSR2 EQU DXVOLSR+6 00540000 DXVOLSR3 EQU DXVOLSR+12 00541000 DXRESSW EQU FORCORE+524 00542000 DXUKEY EQU FORCORE+526 00543000 DXTCBADR EQU FORCORE+532 00544000 DXDSABAD EQU FORCORE+544 00545000 DXUCBSAV EQU FORCORE+564 00546000 DXUDCBAD EQU FORCORE+568 00547000 DXPDCBAD EQU FORCORE+572 00548000 DXATCOM1 EQU FORCORE+588 00549000 DXATGENS EQU DXATCOM1 00550000 DXATVGIV EQU DXATGENS 00551000 DXATOUTA EQU DXATCOM1+2 00552000 DXATDACC EQU DXATCOM1+3 00553000 DXATCOM2 EQU FORCORE+592 00554000 DXATEOV EQU DXATCOM2 00555000 DXATOPEN EQU DXATCOM2+1 00556000 DXATALL EQU DXATCOM2+2 00557000 DXATEXC1 EQU FORCORE+604 00558000 DXATEXB1 EQU DXATEXC1 00559000 DXEXHASP EQU DXATEXB1 00560000 DXATEXC2 EQU FORCORE+608 00561000 DSECTSIZ EQU FORCORE+612 00562000 IECPREFX EQU 0 00563000 IECEXTPR EQU IECPREFX+32 00564000 IECREGSV EQU IECEXTPR 00565000 IECUPRML EQU IECEXTPR+80 00566000 IECRESWA EQU IECEXTPR+84 00567000 RWARESWA EQU 0 00568000 RWAPREFX EQU RWARESWA 00569000 USERPRML EQU 0 00570000 IECRRPL EQU 0 00571000 RRPLIST EQU IECRRPL 00572000 RRFUNCTN EQU RRPLIST 00573000 RRFLAGS1 EQU RRPLIST+1 00574000 RRFLAGS2 EQU RRPLIST+2 00575000 RRFLAGS3 EQU RRPLIST+3 00576000 RRXRETRY EQU RRPLIST+12 00577000 DSMADTRL EQU 0 00578000 DSMADTW1 EQU DSMADTRL 00579000 DSMADTB1 EQU DSMADTW1 00580000 DSMADTB2 EQU DSMADTW1+1 00581000 WTGTABLE EQU 0 00582000 WTGWTOPR EQU WTGTABLE 00583000 WTG EQU 0 00584000 WTGAREA EQU WTG 00585000 WTGMODNM EQU WTGAREA 00586000 WTGMODEP EQU WTGAREA+8 00587000 WTGPREFX EQU WTGAREA+16 00588000 WTGPATHS EQU WTG+30 00589000 WTGENTRY EQU 0 00590000 WTGIDTTR EQU WTGENTRY 00591000 WTGEID EQU WTGIDTTR 00592000 WTGCORE EQU WTGENTRY+5 00593000 APPNMTBL EQU 0 00594000 APPENTRY EQU APPNMTBL+4 00595000 CVTMAP EQU 0 00596000 CVTTCBP EQU CVTMAP 00597000 CVTDAR EQU CVTMAP+72 00598000 CVTFLGS1 EQU CVTDAR 00599000 CVTDCB EQU CVTMAP+116 00600000 CVTIERLC EQU CVTMAP+144 00601000 CVTOPTA EQU CVTMAP+182 00602000 CVTOPTB EQU CVTMAP+183 00603000 CVTGTF EQU CVTMAP+236 00604000 CVTGTFST EQU CVTGTF 00605000 CVTGTFS EQU CVTGTFST 00606000 CVTSTATE EQU CVTGTFST 00607000 CVTTMODE EQU CVTGTFST 00608000 CVTFORM EQU CVTGTFST 00609000 CVTUSR EQU CVTGTFST 00610000 CVTAQAVT EQU CVTMAP+240 00611000 CVTTCMFG EQU CVTAQAVT 00612000 CVTVOLM2 EQU CVTMAP+244 00613000 CVTTATA EQU CVTVOLM2 00614000 CVTTSKS EQU CVTTATA 00615000 CVTVOLF2 EQU CVTTSKS 00616000 CVTTAT EQU CVTTATA+1 00617000 CVTATER EQU CVTMAP+248 00618000 CVTEXT1 EQU CVTMAP+252 00619000 CVTPURG EQU CVTMAP+260 00620000 CVTQMSG EQU CVTMAP+268 00621000 CVTDMSR EQU CVTMAP+272 00622000 CVTJESCT EQU CVTMAP+296 00623000 CVTERPV EQU CVTMAP+316 00624000 CVTINTLA EQU CVTMAP+320 00625000 CVTAPF EQU CVTMAP+324 00626000 CVTEXT2 EQU CVTMAP+328 00627000 CVTHJES EQU CVTMAP+332 00628000 CVTPGSIA EQU CVTMAP+348 00629000 CVTA1F1 EQU CVTMAP+356 00630000 CVTSYSK EQU CVTMAP+357 00631000 CVTVOLM1 EQU CVTMAP+380 00632000 CVTVOLF1 EQU CVTVOLM1 00633000 CVTATMCT EQU CVTMAP+388 00634000 CVTXTNT1 EQU 0 00635000 CVTXTNT2 EQU 0 00636000 CVTDSSV EQU CVTXTNT2 00637000 CVTRSV90 EQU CVTXTNT2+5 00638000 CVTQID EQU CVTXTNT2+24 00639000 CVTRV400 EQU CVTXTNT2+52 00640000 CVTRV409 EQU CVTXTNT2+53 00641000 CVTATCVT EQU CVTXTNT2+64 00642000 CVTRV429 EQU CVTXTNT2+84 00643000 CVTRV438 EQU CVTXTNT2+85 00644000 CVTRV457 EQU CVTXTNT2+112 00645000 CVTRV466 EQU CVTXTNT2+113 00646000 CVTFIX EQU 0 00647000 CVTRELNO EQU CVTFIX+252 00648000 IFGACB EQU 0 00649000 ACBCOMN EQU IFGACB 00650000 ACBLENG EQU ACBCOMN+2 00651000 ACBLENG2 EQU ACBLENG 00652000 ACBAMBL EQU ACBCOMN+4 00653000 ACBIXLST EQU ACBAMBL 00654000 ACBJWA EQU ACBIXLST 00655000 ACBMACRF EQU ACBCOMN+12 00656000 ACBMACR1 EQU ACBMACRF 00657000 ACBADR EQU ACBMACR1 00658000 ACBCNV EQU ACBMACR1 00659000 ACBMACR2 EQU ACBMACRF+1 00660000 ACBLFB EQU ACBCOMN+20 00661000 ACBBUFPL EQU ACBLFB 00662000 ACBRECFM EQU ACBCOMN+24 00663000 ACBCCTYP EQU ACBCOMN+25 00664000 ACBOPT EQU ACBCOMN+26 00665000 ACBDSORG EQU ACBOPT 00666000 ACBCROPS EQU ACBDSORG 00667000 ACBEXLST EQU ACBCOMN+36 00668000 ACBDDNM EQU ACBCOMN+40 00669000 ACBAMETH EQU ACBDDNM+3 00670000 ACBDEB EQU ACBDDNM+5 00671000 ACBOFLGS EQU ACBCOMN+48 00672000 ACBEXFG EQU ACBOFLGS 00673000 ACBIOSFG EQU ACBOFLGS 00674000 ACBINFLG EQU ACBCOMN+50 00675000 ACBUJFCB EQU ACBCOMN+52 00676000 ACBWAPTR EQU ACBUJFCB 00677000 JESCT EQU 0 00678000 JESUNITS EQU JESCT+4 00679000 JESWAA EQU JESCT+8 00680000 JESSSREQ EQU JESCT+20 00681000 TCBFIX EQU 0 00682000 TCBFRS EQU TCBFIX 00683000 TCB EQU 0 00684000 TCBPIE EQU TCB+4 00685000 TCBPMASK EQU TCBPIE 00686000 TCBDEB EQU TCB+8 00687000 TCBTIO EQU TCB+12 00688000 TCBCMP EQU TCB+16 00689000 TCBCMPF EQU TCBCMP 00690000 TCBCPP EQU TCBCMPF 00691000 TCBSTCC EQU TCBCMPF 00692000 TCBCDBL EQU TCBCMPF 00693000 TCBCWTO EQU TCBCMPF 00694000 TCBCIND EQU TCBCMPF 00695000 TCBCMSG EQU TCBCMPF 00696000 TCBTRN EQU TCB+20 00697000 TCBABF EQU TCBTRN 00698000 TCBMSS EQU TCB+24 00699000 TCBPKF EQU TCB+28 00700000 TCBFLGS EQU TCB+29 00701000 TCBFLGS1 EQU TCBFLGS 00702000 TCBFLGS2 EQU TCBFLGS+1 00703000 TCBFLGS3 EQU TCBFLGS+2 00704000 TCBFLGS4 EQU TCBFLGS+3 00705000 TCBFLGS5 EQU TCBFLGS+4 00706000 TCBABWF EQU TCBFLGS5 00707000 TCBJPQ EQU TCB+44 00708000 TCBPURGE EQU TCBJPQ 00709000 TCBGRS EQU TCB+48 00710000 TCBFSA EQU TCB+112 00711000 TCBTME EQU TCB+120 00712000 TCBJSTCB EQU TCB+124 00713000 TCBTSFLG EQU TCB+148 00714000 TCBTSTSK EQU TCBTSFLG 00715000 TCBSTAB EQU TCB+160 00716000 TCBNSTAE EQU TCBSTAB 00717000 TCBTCT EQU TCB+164 00718000 TCBTCTGF EQU TCBTCT 00719000 TCBSCNDY EQU TCB+172 00720000 TCBNDSP EQU TCBSCNDY 00721000 TCBNDSP1 EQU TCBNDSP+1 00722000 TCBNDSP2 EQU TCBNDSP+2 00723000 TCBNDSP3 EQU TCBNDSP+3 00724000 TCBJSCB EQU TCB+180 00725000 TCBRECDE EQU TCBJSCB 00726000 TCBEXT1 EQU TCB+196 00727000 TCBBITS EQU TCB+200 00728000 TCBNDSP4 EQU TCBBITS 00729000 TCBNDSP5 EQU TCBBITS+1 00730000 TCBFLGS6 EQU TCBBITS+2 00731000 TCBFLGS7 EQU TCBBITS+3 00732000 TCBDAR EQU TCB+204 00733000 TCBDARC EQU TCBDAR 00734000 TCBEXT2 EQU TCB+208 00735000 TCBFOE EQU TCB+244 00736000 TCBESTAE EQU TCB+264 00737000 TCBESTRM EQU TCBESTAE+1 00738000 TCBFBYT1 EQU TCB+276 00739000 TCBFBYT2 EQU TCB+277 00740000 TCBRV124 EQU TCB+278 00741000 TCBRV133 EQU TCB+279 00742000 TCBXTNT2 EQU 0 00743000 TCBGTF EQU TCBXTNT2 00744000 TCBTFLG EQU TCBGTF 00745000 TCBRV146 EQU TCBXTNT2+28 00746000 TCBRV155 EQU TCBXTNT2+29 00747000 TCBRV164 EQU TCBXTNT2+30 00748000 TCBRV173 EQU TCBXTNT2+31 00749000 TIOT1 EQU 0 00750000 DEBBASIC EQU 0 00751000 DEBTCBAD EQU DEBBASIC 00752000 DEBDEBAD EQU DEBBASIC+4 00753000 DEBAMLNG EQU DEBDEBAD 00754000 DEBIRBAD EQU DEBBASIC+8 00755000 DEBOFLGS EQU DEBIRBAD 00756000 DEBOPATB EQU DEBBASIC+12 00757000 DEBFLGS1 EQU DEBBASIC+14 00758000 DEBUSRPG EQU DEBBASIC+16 00759000 DEBNMEXT EQU DEBUSRPG 00760000 DEBRRQ EQU DEBBASIC+20 00761000 DEBECBAD EQU DEBRRQ 00762000 DEBDCBAD EQU DEBBASIC+24 00763000 DEBPROTG EQU DEBDCBAD 00764000 DEBDEBID EQU DEBPROTG 00765000 DEBAPPAD EQU DEBBASIC+28 00766000 DEBEXSCL EQU DEBAPPAD 00767000 DEBBASND EQU DEBBASIC+32 00768000 DEBDASD EQU 0 00769000 DEBUCBAD EQU DEBDASD 00770000 DEBBINUM EQU DEBDASD+4 00771000 DEBACSMD EQU 0 00772000 DEBVOLSQ EQU DEBACSMD 00773000 DEBVOLBT EQU DEBVOLSQ 00774000 DEBDSNM EQU DEBACSMD+4 00775000 DEBUTSAA EQU DEBDSNM 00776000 DEBACS01 EQU 0 00777000 DEBDSNAM EQU DEBACS01 00778000 DEBACS02 EQU 0 00779000 DEBDBLK EQU DEBACS02 00780000 DEBACS03 EQU 0 00781000 DEBACS04 EQU 0 00782000 DEBTBFRA EQU DEBACS04 00783000 DEBTCCWA EQU DEBACS04+4 00784000 DEBACS05 EQU 0 00785000 DEBFUCBA EQU DEBACS05 00786000 DEBLUCBA EQU DEBACS05+4 00787000 DEBACS06 EQU 0 00788000 DEBACS07 EQU 0 00789000 DEBACS08 EQU 0 00790000 DEBSUBNM EQU 0 00791000 DEB EQU 0 00792000 DEBAVT EQU DEB 00793000 DEBEOEA EQU DEBAVT 00794000 DEBEOEAB EQU DEBEOEA 00795000 DEBSIOA EQU DEBAVT+4 00796000 DEBSIOAB EQU DEBSIOA 00797000 DEBPCIA EQU DEBAVT+8 00798000 DEBPCIAB EQU DEBPCIA 00799000 DEBCEA EQU DEBAVT+12 00800000 DEBCEAB EQU DEBCEA 00801000 DEBXCEA EQU DEBAVT+16 00802000 DEBXCEAB EQU DEBXCEA 00803000 DEBPREFX EQU DEB+20 00804000 DEBXTNP EQU DEBPREFX+8 00805000 DEBLNGTH EQU DEBPREFX+12 00806000 DEBXTN EQU 0 00807000 DEBXFLG1 EQU DEBXTN+2 00808000 INFMJFCB EQU 0 00809000 JFCBDSNM EQU INFMJFCB 00810000 JFCBELNM EQU INFMJFCB+44 00811000 JFCBTSDM EQU INFMJFCB+52 00812000 JFCFCBID EQU INFMJFCB+56 00813000 JFCBFRID EQU JFCFCBID 00814000 JFCBLTYP EQU INFMJFCB+66 00815000 JFCBOTTR EQU INFMJFCB+67 00816000 JFCBUFOF EQU JFCBOTTR 00817000 JFCBFLSQ EQU JFCBOTTR+1 00818000 JFCFUNC EQU JFCBFLSQ 00819000 JFCBMASK EQU INFMJFCB+72 00820000 JFCBFLG1 EQU JFCBMASK+5 00821000 JFCOPEN EQU JFCBFLG1 00822000 JFCBFLG2 EQU JFCBMASK+6 00823000 JFCDEFER EQU JFCBFLG2 00824000 JFCBIND1 EQU INFMJFCB+86 00825000 JFCBIND2 EQU INFMJFCB+87 00826000 JFCAMPTR EQU INFMJFCB+88 00827000 JFCBUFRQ EQU JFCAMPTR 00828000 JFCBUFNO EQU JFCBUFRQ 00829000 JFCBGNCP EQU JFCAMPTR+1 00830000 JFCBHIAR EQU JFCBGNCP 00831000 JFCBFALN EQU JFCBHIAR 00832000 JFCBFTEK EQU JFCBFALN 00833000 JFCBBFTA EQU JFCBFTEK 00834000 JFCEROPT EQU INFMJFCB+92 00835000 JFCTRTCH EQU INFMJFCB+93 00836000 SSIB EQU 0 00837000 SSIBID EQU SSIB 00838000 SSIBLEN EQU SSIB+4 00839000 SSIBFLG1 EQU SSIB+6 00840000 SSIBSSNM EQU SSIB+8 00841000 SSIBSUSE EQU SSIB+32 00842000 SSOB EQU 0 00843000 SSOBID EQU SSOB 00844000 SSOBLEN EQU SSOB+4 00845000 SSOBFUNC EQU SSOB+6 00846000 SSOBSSIB EQU SSOB+8 00847000 SSOBRETN EQU SSOB+12 00848000 SSOBINDV EQU SSOB+16 00849000 SSDA EQU 0 00850000 SSDALEN EQU SSDA 00851000 SSDARESF EQU SSDA+3 00852000 SSDAJFCB EQU SSDA+8 00853000 SSDADEBP EQU SSDA+12 00854000 DSAB EQU 0 00855000 DSABGIDP EQU DSAB+24 00856000 DSABANMP EQU DSAB+28 00857000 DSABORG EQU DSAB+32 00858000 DSABORG1 EQU DSABORG 00859000 DSABORG2 EQU DSABORG+1 00860000 DSABFLG1 EQU DSAB+34 00861000 DSABFLG2 EQU DSAB+35 00862000 DSABFLG3 EQU DSAB+36 00863000 DSABFLG4 EQU DSAB+37 00864000 DSABSSNM EQU DSAB+48 00865000 DSABSSCM EQU DSAB+52 00866000 DSABANMI EQU 0 00867000 DSABGIDL EQU 0 00868000 SSREQ EQU 0 00869000 SWAMGR EQU 0 00870000 DEBDCBA EQU DEBDCBAD+1 00871000 DXUDCBA EQU DXUDCBAD+1 00872000 TCBPTR EQU DXTCBADR 00873000 DXCCW1A EQU DXCCW1 00874000 DXXWTG EQU DSECTSIZ 00875000 DXXAREA EQU DSECTSIZ+4 00876000 DXXMODNM EQU DXXAREA 00877000 DXXLNG EQU DXXAREA+29 00878000 DXXENTRY EQU DXXAREA+32 00879000 DXXIDTTR EQU DXXENTRY 00880000 DXREGSAV EQU DXCCW8 00881000 DXREG9 EQU DXREGSAV 00882000 DXREG1 EQU DXREGSAV+28 00883000 DXIDENT EQU DXCCW12 00884000 DXCALLID EQU DXIDENT 00885000 DXRETMOD EQU DXIDENT+2 00886000 @NM00031 EQU DXXCTL 00887000 DXSAVMOD EQU @NM00031+2 00888000 @NM00032 EQU DXRESSW 00889000 PSARSVTE EQU PSARSVT 00890000 CVTS01 EQU CVTPGSIA 00891000 CVTLPDIA EQU CVTS01+12 00892000 CVTDIRST EQU CVTLPDIA 00893000 CVTSLIDA EQU CVTS01+24 00894000 CVTCTLFG EQU CVTS01+50 00895000 CVTRV210 EQU CVTS01+424 00896000 CVTRV219 EQU CVTS01+425 00897000 CVTRV228 EQU CVTS01+426 00898000 CVTRV237 EQU CVTS01+427 00899000 CVTMFRTR EQU CVTS01+452 00900000 CVTRV262 EQU CVTS01+468 00901000 CVTRV271 EQU CVTS01+469 00902000 CVTRV280 EQU CVTS01+470 00903000 CVTRV289 EQU CVTS01+471 00904000 CVTGSDA EQU CVTS01+600 00905000 TIOENTRY EQU TIOT1+24 00906000 TIOESTTA EQU TIOENTRY+1 00907000 TIOERLOC EQU TIOENTRY+2 00908000 TIOELINK EQU TIOERLOC+1 00909000 TIOESYOT EQU TIOELINK 00910000 TIOESTTC EQU TIOENTRY+15 00911000 TIOESTTB EQU TIOENTRY+16 00912000 POOLSTAR EQU TIOENTRY+20 00913000 TIOEDEVE EQU TIOESTTB 00914000 TIOSTTB EQU TIOEDEVE 00915000 DEBBAS02 EQU DEBBASND 00916000 DEBDDS1 EQU DEBBAS02 00917000 DEBSUCBA EQU DEBDDS1 00918000 DEBRDCB EQU DEBDDS1+4 00919000 DEBPDCB EQU DEBDDS1+8 00920000 DEBWDCB EQU DEBDDS1+12 00921000 DEBBAS01 EQU DEBBASND 00922000 DEBISAM EQU DEBBAS01 00923000 DEBFIEAD EQU DEBISAM 00924000 DEBFPEAD EQU DEBISAM+4 00925000 DEBFOEAD EQU DEBISAM+8 00926000 DEBEXPT EQU DEBISAM+12 00927000 DEBRPSID EQU DEBEXPT 00928000 JFCKEYLE EQU JFCTRTCH 00929000 JFCCODE EQU JFCKEYLE 00930000 JFCSTACK EQU JFCTRTCH 00931000 JFCMODE EQU JFCSTACK 00932000 JFCSPPRT EQU JFCTRTCH 00933000 JFCBABFS EQU JFCSPPRT+2 00934000 JFCLIMCT EQU JFCBABFS 00935000 JFCDSORG EQU JFCSPPRT+5 00936000 JFCDSRG1 EQU JFCDSORG 00937000 JFCDSRG2 EQU JFCDSORG+1 00938000 JFCRECFM EQU JFCSPPRT+7 00939000 JFCRCFM EQU JFCRECFM 00940000 JFCOPTCD EQU JFCSPPRT+8 00941000 JFCWVCSP EQU JFCOPTCD 00942000 JFCWVCIS EQU JFCWVCSP 00943000 JFCWVCBD EQU JFCWVCIS 00944000 JFCALLOW EQU JFCOPTCD 00945000 JFCRSV17 EQU JFCALLOW 00946000 JFCOVER EQU JFCRSV17 00947000 JFCPCIBT EQU JFCOPTCD 00948000 JFCMAST EQU JFCPCIBT 00949000 JFCEXT EQU JFCMAST 00950000 JFCBCKPT EQU JFCOPTCD 00951000 JFCIND EQU JFCBCKPT 00952000 JFCRSV18 EQU JFCOPTCD 00953000 JFCCYL EQU JFCRSV18 00954000 JFCACT EQU JFCCYL 00955000 JFCREDUC EQU JFCOPTCD 00956000 JFCRSV19 EQU JFCREDUC 00957000 JFCRSV20 EQU JFCRSV19 00958000 JFCRSV21 EQU JFCOPTCD 00959000 JFCDEL EQU JFCRSV21 00960000 JFCRSV23 EQU JFCOPTCD 00961000 JFCREORG EQU JFCRSV23 00962000 JFCBLKSI EQU JFCSPPRT+9 00963000 JFCBUFSI EQU JFCBLKSI 00964000 JFCAMSYN EQU JFCSPPRT+11 00965000 JFCNCP EQU JFCAMSYN+2 00966000 JFCNTM EQU JFCAMSYN+3 00967000 JFCBFSEQ EQU JFCNTM 00968000 JFCPCI EQU JFCBFSEQ 00969000 JFCRESRV EQU JFCAMSYN+4 00970000 JFCUCSEG EQU JFCRESRV 00971000 JFCUCSOP EQU JFCUCSEG+4 00972000 JFCOUTLI EQU JFCUCSEG+5 00973000 JFCTHRSH EQU JFCOUTLI 00974000 JFCCPRI EQU JFCTHRSH 00975000 JFCBVOLS EQU JFCUCSEG+10 00976000 JFCBPQTY EQU JFCUCSEG+44 00977000 JFCBCTRI EQU JFCUCSEG+47 00978000 JFCBSQTY EQU JFCUCSEG+48 00979000 JFCBIND3 EQU JFCBSQTY+2 00980000 JFCFLGS1 EQU JFCUCSEG+51 00981000 DXBTAMX EQU DXREG1 00982000 DXDSNAME EQU DXCCW5 00983000 FLC EQU PSA 00984000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00985000 JFCBEND EQU JFCUCSEG+68 00986000 JFCBSPTN EQU JFCUCSEG+67 00987000 JFCBVLCT EQU JFCUCSEG+66 00988000 JFCBDRLH EQU JFCUCSEG+63 00989000 JFCBSBNM EQU JFCUCSEG+60 00990000 JFCBABST EQU JFCUCSEG+58 00991000 JFCBSPNM EQU JFCUCSEG+55 00992000 JFCBDQTY EQU JFCUCSEG+52 00993000 JFCBUAFF EQU JFCFLGS1 00994000 JFCRSV45 EQU JFCFLGS1 00995000 JFCVRDS EQU JFCFLGS1 00996000 JFCRSV43 EQU JFCFLGS1 00997000 JFCRSV42 EQU JFCFLGS1 00998000 JFCRSV41 EQU JFCFLGS1 00999000 JFCTOPEN EQU JFCFLGS1 01000000 JFCRSV39 EQU JFCFLGS1 01001000 JFCRSV52 EQU JFCBIND3 01002000 JFCRSV51 EQU JFCBIND3 01003000 JFCRSV50 EQU JFCBIND3 01004000 JFCRSV49 EQU JFCBIND3 01005000 JFCRSV48 EQU JFCBIND3 01006000 JFCRSV47 EQU JFCBIND3 01007000 JFCRSV46 EQU JFCBIND3 01008000 JFCBDLET EQU JFCBIND3 01009000 JFCRQID EQU JFCBSQTY 01010000 JFCROUND EQU JFCBCTRI 01011000 JFCALX EQU JFCBCTRI 01012000 JFCMIXG EQU JFCBCTRI 01013000 JFCONTIG EQU JFCBCTRI 01014000 JFCRSV29 EQU JFCBCTRI 01015000 JFCRSV28 EQU JFCBCTRI 01016000 JFCBSPAC EQU JFCBCTRI 01017000 JFCRUNIT EQU JFCBPQTY 01018000 JFCBEXAD EQU JFCUCSEG+41 01019000 JFCBEXTL EQU JFCUCSEG+40 01020000 JFCAVOLS EQU JFCBVOLS 01021000 JFCBNVOL EQU JFCUCSEG+9 01022000 JFCBNTCS EQU JFCUCSEG+8 01023000 JFCSOWA EQU JFCOUTLI+1 01024000 JFCSEND EQU JFCCPRI 01025000 JFCEQUAL EQU JFCCPRI 01026000 JFCRECV EQU JFCCPRI 01027000 JFCRSV34 EQU JFCCPRI 01028000 JFCRSV33 EQU JFCCPRI 01029000 JFCRSV55 EQU JFCCPRI 01030000 JFCRSV54 EQU JFCCPRI 01031000 JFCRSV53 EQU JFCCPRI 01032000 JFCRSV27 EQU JFCUCSOP 01033000 JFCRSV26 EQU JFCUCSOP 01034000 JFCFCBVR EQU JFCUCSOP 01035000 JFCFCBAL EQU JFCUCSOP 01036000 JFCVER EQU JFCUCSOP 01037000 JFCRSV25 EQU JFCUCSOP 01038000 JFCFOLD EQU JFCUCSOP 01039000 JFCRSV24 EQU JFCUCSOP 01040000 JFCUCSID EQU JFCUCSEG 01041000 JFCINTVL EQU JFCSPPRT+19 01042000 JFCDBUFN EQU JFCRESRV+3 01043000 JFCCYLOF EQU JFCRESRV+2 01044000 JFCRKP EQU JFCRESRV 01045000 JFCPCIR2 EQU JFCPCI 01046000 JFCPCIR1 EQU JFCPCI 01047000 JFCPCIN2 EQU JFCPCI 01048000 JFCPCIN1 EQU JFCPCI 01049000 JFCPCIA2 EQU JFCPCI 01050000 JFCPCIA1 EQU JFCPCI 01051000 JFCPCIX2 EQU JFCPCI 01052000 JFCPCIX1 EQU JFCPCI 01053000 JFCBUFMX EQU JFCNCP 01054000 JFCLRECL EQU JFCAMSYN 01055000 JFCBAXBF EQU JFCBUFSI 01056000 JFCREL EQU JFCREORG 01057000 JFCRSV22 EQU JFCDEL 01058000 JFCSRCHD EQU JFCRSV20 01059000 JFCOPTQ EQU JFCACT 01060000 JFCFEED EQU JFCIND 01061000 JFCCBWU EQU JFCEXT 01062000 JFCWUMSG EQU JFCOVER 01063000 JFCSDNAM EQU JFCWVCBD 01064000 @NM00082 EQU JFCRECFM 01065000 JFCCHAR EQU JFCRECFM 01066000 JFCRFS EQU JFCRECFM 01067000 JFCRFB EQU JFCRECFM 01068000 JFCRFO EQU JFCRCFM 01069000 JFCFMREC EQU JFCRCFM 01070000 JFCRSV16 EQU JFCDSRG2 01071000 JFCRSV15 EQU JFCDSRG2 01072000 JFCORGTR EQU JFCDSRG2 01073000 JFCORGAM EQU JFCDSRG2 01074000 JFCRSV13 EQU JFCDSRG2 01075000 JFCORGTQ EQU JFCDSRG2 01076000 JFCORGTX EQU JFCDSRG2 01077000 JFCORGGS EQU JFCDSRG2 01078000 JFCORGU EQU JFCDSRG1 01079000 JFCORGPO EQU JFCDSRG1 01080000 JFCORGMQ EQU JFCDSRG1 01081000 JFCORGCQ EQU JFCDSRG1 01082000 JFCORGCX EQU JFCDSRG1 01083000 JFCORGDA EQU JFCDSRG1 01084000 JFCORGPS EQU JFCDSRG1 01085000 JFCORGIS EQU JFCDSRG1 01086000 JFCTRKBL EQU JFCLIMCT+1 01087000 @NM00081 EQU JFCLIMCT 01088000 JFCDEN EQU JFCSPPRT+1 01089000 JFCPRTSP EQU JFCSPPRT 01090000 JFCONE EQU JFCMODE 01091000 JFCTWO EQU JFCMODE 01092000 JFCRSV07 EQU JFCMODE 01093000 JFCRSV06 EQU JFCMODE 01094000 JFCMODER EQU JFCMODE 01095000 JFCMODEO EQU JFCMODE 01096000 JFCEBCD EQU JFCMODE 01097000 JFCBIN EQU JFCMODE 01098000 JFCRSV32 EQU JFCCODE 01099000 JFCTTY EQU JFCCODE 01100000 JFCASCII EQU JFCCODE 01101000 JFCNCR EQU JFCCODE 01102000 JFCBUR EQU JFCCODE 01103000 JFCFRI EQU JFCCODE 01104000 JFCBCD EQU JFCCODE 01105000 JFCNOCON EQU JFCCODE 01106000 DEBEXPTA EQU DEBEXPT+1 01107000 DEBRSV12 EQU DEBRPSID 01108000 DEBRSV11 EQU DEBRPSID 01109000 DEBRSV10 EQU DEBRPSID 01110000 DEBRSV09 EQU DEBRPSID 01111000 DEBRPSAP EQU DEBRPSID 01112000 DEBRPSO EQU DEBRPSID 01113000 DEBRPSI EQU DEBRPSID 01114000 DEBRPSP EQU DEBRPSID 01115000 DEBFOEB EQU DEBFOEAD+1 01116000 DEBNOEE EQU DEBFOEAD 01117000 DEBFPEB EQU DEBFPEAD+1 01118000 DEBNPEE EQU DEBFPEAD 01119000 DEBFIEB EQU DEBFIEAD+1 01120000 DEBNIEE EQU DEBFIEAD 01121000 DEBWDCBA EQU DEBWDCB+1 01122000 DEBRSV08 EQU DEBWDCB 01123000 DEBPDCBA EQU DEBPDCB+1 01124000 DEBRSV07 EQU DEBPDCB 01125000 DEBRDCBA EQU DEBRDCB+1 01126000 DEBRSV06 EQU DEBRDCB 01127000 DEBSUCBB EQU DEBSUCBA+1 01128000 DEBSDVM EQU DEBSUCBA 01129000 TIOUCBP EQU TIOEDEVE+1 01130000 TIOVERF EQU TIOSTTB 01131000 TIOUNLD EQU TIOSTTB 01132000 TIOMNTD EQU TIOSTTB 01133000 TIOSETU EQU TIOSTTB 01134000 TIOVLSR EQU TIOSTTB 01135000 TIOPVIO EQU TIOSTTB 01136000 TIOREQD EQU TIOSTTB 01137000 TIOUSED EQU TIOSTTB 01138000 TIOTFEND EQU POOLSTAR+16 01139000 TIOPSLOT EQU POOLSTAR+13 01140000 TIOPSTTB EQU POOLSTAR+12 01141000 TIOPPOOL EQU POOLSTAR+4 01142000 TIOPNSRT EQU POOLSTAR+3 01143000 @NM00075 EQU POOLSTAR+2 01144000 TIOPNSLT EQU POOLSTAR+1 01145000 @NM00074 EQU POOLSTAR 01146000 TIOEFSRT EQU TIOENTRY+17 01147000 TIOSVERF EQU TIOESTTB 01148000 TIOSUNLD EQU TIOESTTB 01149000 TIOSMNTD EQU TIOESTTB 01150000 TIOSSETU EQU TIOESTTB 01151000 TIOSVLSR EQU TIOESTTB 01152000 TIOSPVIO EQU TIOESTTB 01153000 TIOSREQD EQU TIOESTTB 01154000 TIOSUSED EQU TIOESTTB 01155000 TIOSBALS EQU TIOESTTC 01156000 TIOSBALP EQU TIOESTTC 01157000 TIOSVOLS EQU TIOESTTC 01158000 TIOSVOLP EQU TIOESTTC 01159000 TIOSAFFS EQU TIOESTTC 01160000 TIOSAFFP EQU TIOESTTC 01161000 TIOSDEFR EQU TIOESTTC 01162000 TIOSDKCR EQU TIOESTTC 01163000 TIOEJFCB EQU TIOENTRY+12 01164000 TIOEDDNM EQU TIOENTRY+4 01165000 TIOTREM EQU TIOELINK 01166000 TIOESSDS EQU TIOESYOT 01167000 TIOESYIN EQU TIOELINK 01168000 TIOEQNAM EQU TIOELINK 01169000 TIOEDYNM EQU TIOELINK 01170000 TIOTTERM EQU TIOELINK 01171000 TIOTRV01 EQU TIOELINK 01172000 TIOSYOUT EQU TIOELINK 01173000 TIOEWTCT EQU TIOERLOC 01174000 TIOSDSP2 EQU TIOESTTA 01175000 TIOSDSP1 EQU TIOESTTA 01176000 TIOSLABL EQU TIOESTTA 01177000 TIOSDADS EQU TIOESTTA 01178000 TIOSJBLB EQU TIOESTTA 01179000 TIOSPLTS EQU TIOESTTA 01180000 TIOSPLTP EQU TIOESTTA 01181000 TIOSLTYP EQU TIOESTTA 01182000 TIOELNGH EQU TIOENTRY 01183000 CVTTPIO EQU CVTS01+608 01184000 CVTADV EQU CVTS01+604 01185000 CVTGSDAB EQU CVTGSDA 01186000 CVTQV3 EQU CVTS01+596 01187000 CVTQV2 EQU CVTS01+592 01188000 CVTQV1 EQU CVTS01+588 01189000 CVTRPT EQU CVTS01+584 01190000 CVTSSRB EQU CVTS01+580 01191000 CVTCSDRL EQU CVTS01+576 01192000 CVTEXP1 EQU CVTS01+572 01193000 CVTRMPMT EQU CVTS01+568 01194000 CVTRMPTT EQU CVTS01+564 01195000 CVTVPSA EQU CVTS01+560 01196000 CVTVSTOP EQU CVTS01+556 01197000 CVTGTFR8 EQU CVTS01+552 01198000 CVTQUIT EQU CVTS01+548 01199000 CVTVACR EQU CVTS01+544 01200000 CVTWTCB EQU CVTS01+540 01201000 CVTSTPRS EQU CVTS01+536 01202000 CVT0PT02 EQU CVTS01+532 01203000 CVTDARCM EQU CVTS01+528 01204000 CVTIRECM EQU CVTS01+524 01205000 CVTJRECM EQU CVTS01+520 01206000 CVTVEMS0 EQU CVTS01+516 01207000 CVTSPFRR EQU CVTS01+512 01208000 CVTRLSTG EQU CVTS01+508 01209000 CVT0TC0A EQU CVTS01+504 01210000 CVTGMBR EQU CVTS01+500 01211000 CVTLFRM EQU CVTS01+496 01212000 CVTRMBR EQU CVTS01+492 01213000 CVTVIOP EQU CVTS01+488 01214000 CVTRV307 EQU CVTS01+486 01215000 CVTRV306 EQU CVTS01+484 01216000 CVTRV305 EQU CVTS01+482 01217000 CVTRV304 EQU CVTS01+480 01218000 CVTRV303 EQU CVTS01+478 01219000 CVTRV302 EQU CVTS01+476 01220000 CVTRV301 EQU CVTS01+475 01221000 CVTRV300 EQU CVTS01+474 01222000 CVTRV299 EQU CVTS01+473 01223000 CVTRV298 EQU CVTS01+472 01224000 CVTRV297 EQU CVTRV289 01225000 CVTRV296 EQU CVTRV289 01226000 CVTRV295 EQU CVTRV289 01227000 CVTRV294 EQU CVTRV289 01228000 CVTRV293 EQU CVTRV289 01229000 CVTRV292 EQU CVTRV289 01230000 CVTRV291 EQU CVTRV289 01231000 CVTRV290 EQU CVTRV289 01232000 CVTRV288 EQU CVTRV280 01233000 CVTRV287 EQU CVTRV280 01234000 CVTRV286 EQU CVTRV280 01235000 CVTRV285 EQU CVTRV280 01236000 CVTRV284 EQU CVTRV280 01237000 CVTRV283 EQU CVTRV280 01238000 CVTRV282 EQU CVTRV280 01239000 CVTRV281 EQU CVTRV280 01240000 CVTRV279 EQU CVTRV271 01241000 CVTRV278 EQU CVTRV271 01242000 CVTRV277 EQU CVTRV271 01243000 CVTRV276 EQU CVTRV271 01244000 CVTRV275 EQU CVTRV271 01245000 CVTRV274 EQU CVTRV271 01246000 CVTRV273 EQU CVTRV271 01247000 CVTRV272 EQU CVTRV271 01248000 CVTRV270 EQU CVTRV262 01249000 CVTRV269 EQU CVTRV262 01250000 CVTRV268 EQU CVTRV262 01251000 CVTRV267 EQU CVTRV262 01252000 CVTRV266 EQU CVTRV262 01253000 CVTRV265 EQU CVTRV262 01254000 CVTRV264 EQU CVTRV262 01255000 CVTRV263 EQU CVTRV262 01256000 CVTVFP EQU CVTS01+464 01257000 CVTVSI EQU CVTS01+460 01258000 CVTVPSIB EQU CVTS01+456 01259000 CVTMFACT EQU CVTMFRTR 01260000 CVTMFCTL EQU CVTS01+448 01261000 CVTPVBP EQU CVTS01+444 01262000 CVTPWI EQU CVTS01+440 01263000 CVTRV254 EQU CVTS01+438 01264000 CVTRV253 EQU CVTS01+436 01265000 CVTRV252 EQU CVTS01+434 01266000 CVTRV251 EQU CVTS01+433 01267000 CVTRV250 EQU CVTS01+432 01268000 CVTRV249 EQU CVTS01+431 01269000 CVTRV248 EQU CVTS01+430 01270000 CVTRV247 EQU CVTS01+429 01271000 CVTRV246 EQU CVTS01+428 01272000 CVTRV245 EQU CVTRV237 01273000 CVTRV244 EQU CVTRV237 01274000 CVTRV243 EQU CVTRV237 01275000 CVTRV242 EQU CVTRV237 01276000 CVTRV241 EQU CVTRV237 01277000 CVTRV240 EQU CVTRV237 01278000 CVTRV239 EQU CVTRV237 01279000 CVTRV238 EQU CVTRV237 01280000 CVTRV236 EQU CVTRV228 01281000 CVTRV235 EQU CVTRV228 01282000 CVTRV234 EQU CVTRV228 01283000 CVTRV233 EQU CVTRV228 01284000 CVTRV232 EQU CVTRV228 01285000 CVTRV231 EQU CVTRV228 01286000 CVTRV230 EQU CVTRV228 01287000 CVTRV229 EQU CVTRV228 01288000 CVTRV227 EQU CVTRV219 01289000 CVTRV226 EQU CVTRV219 01290000 CVTRV225 EQU CVTRV219 01291000 CVTRV224 EQU CVTRV219 01292000 CVTRV223 EQU CVTRV219 01293000 CVTRV222 EQU CVTRV219 01294000 CVTRV221 EQU CVTRV219 01295000 CVTRV220 EQU CVTRV219 01296000 CVTRV218 EQU CVTRV210 01297000 CVTRV217 EQU CVTRV210 01298000 CVTRV216 EQU CVTRV210 01299000 CVTRV215 EQU CVTRV210 01300000 CVTRV214 EQU CVTRV210 01301000 CVTRV213 EQU CVTRV210 01302000 CVTRV212 EQU CVTRV210 01303000 CVTRV211 EQU CVTRV210 01304000 CVTLCCAT EQU CVTS01+420 01305000 CVTPCCAT EQU CVTS01+416 01306000 CVTIPCRP EQU CVTS01+412 01307000 CVTIPCRI EQU CVTS01+408 01308000 CVTIPCDS EQU CVTS01+404 01309000 CVTAIDVT EQU CVTS01+400 01310000 CVTSSAP EQU CVTS01+396 01311000 CVTEHCIR EQU CVTS01+392 01312000 CVTEHDEF EQU CVTS01+388 01313000 CVTDAIR EQU CVTS01+384 01314000 CVTPERFM EQU CVTS01+380 01315000 CVT044R2 EQU CVTS01+376 01316000 CVTFETCH EQU CVTS01+372 01317000 CVTRSTWD EQU CVTS01+368 01318000 CVTSPOST EQU CVTS01+364 01319000 CVTIOBP EQU CVTS01+360 01320000 CVTASMVT EQU CVTS01+356 01321000 CVTRECRQ EQU CVTS01+352 01322000 CVTWSAC EQU CVTS01+348 01323000 CVTRV149 EQU CVTS01+344 01324000 CVTWSAL EQU CVTS01+340 01325000 CVTSPSA EQU CVTS01+336 01326000 CVTGLMN EQU CVTS01+332 01327000 CVTVEAC0 EQU CVTS01+328 01328000 CVT062R1 EQU CVTS01+324 01329000 CVTRPOST EQU CVTS01+320 01330000 CVTDQIQE EQU CVTS01+316 01331000 CVTCSD EQU CVTS01+312 01332000 CVTLKRMA EQU CVTS01+308 01333000 CVTRSPIE EQU CVTS01+304 01334000 CVTRENQ EQU CVTS01+300 01335000 CVTLQCB EQU CVTS01+296 01336000 CVTFQCB EQU CVTS01+292 01337000 CVTQCS01 EQU CVTS01+288 01338000 CVTAPFT EQU CVTS01+284 01339000 CVTPARRL EQU CVTS01+280 01340000 CVTVWAIT EQU CVTS01+276 01341000 CVTGSPL EQU CVTS01+272 01342000 CVTLSMQ EQU CVTS01+268 01343000 CVTGSMQ EQU CVTS01+264 01344000 CVTEXPRO EQU CVTS01+260 01345000 CVTOPCTP EQU CVTS01+256 01346000 CVTSIC EQU CVTS01+252 01347000 CVTTPIOS EQU CVTS01+248 01348000 CVTRTMS EQU CVTS01+244 01349000 CVTSDBF EQU CVTS01+240 01350000 CVTSCBP EQU CVTS01+236 01351000 CVTSDMP EQU CVTS01+232 01352000 CVTSV60 EQU CVTS01+228 01353000 CVTRTMCT EQU CVTS01+224 01354000 CVTASCBL EQU CVTS01+220 01355000 CVTASCBH EQU CVTS01+216 01356000 CVTGDA EQU CVTS01+212 01357000 CVTASVT EQU CVTS01+208 01358000 CVTVVMDI EQU CVTS01+204 01359000 CVTAQTOP EQU CVTS01+200 01360000 CVTIOSCS EQU CVTS01+196 01361000 CVTSDRM EQU CVTS01+192 01362000 CVTOPTE EQU CVTS01+188 01363000 CVTSTXU EQU CVTS01+184 01364000 CVTQUIS EQU CVTS01+180 01365000 CVTPARS EQU CVTS01+176 01366000 CVTS1EE EQU CVTS01+172 01367000 CVTFRAS EQU CVTS01+168 01368000 CVTQSAS EQU CVTS01+164 01369000 CVTCRAS EQU CVTS01+160 01370000 CVTCRMN EQU CVTS01+156 01371000 CVTDELCP EQU CVTS01+152 01372000 CVTFRECL EQU CVTS01+148 01373000 CVTGETCL EQU CVTS01+144 01374000 CVTBLDCP EQU CVTS01+140 01375000 CVTAUTHL EQU CVTS01+136 01376000 CVTSCAN EQU CVTS01+132 01377000 CVTRV144 EQU CVTS01+130 01378000 CVTMAXMP EQU CVTS01+128 01379000 CVTSTCK EQU CVTS01+124 01380000 CVTRV139 EQU CVTS01+123 01381000 CVTDSSAC EQU CVTS01+122 01382000 CVTRV513 EQU CVTS01+121 01383000 CVTIOSPL EQU CVTS01+120 01384000 CVTPTGT EQU CVTS01+116 01385000 CVTCSPIE EQU CVTS01+112 01386000 CVTSMFEX EQU CVTS01+108 01387000 CVTOLT0A EQU CVTS01+104 01388000 CVTSRBRT EQU CVTS01+100 01389000 CVTPUTL EQU CVTS01+96 01390000 CVTRV519 EQU CVTS01+92 01391000 CVTRV327 EQU CVTS01+88 01392000 CVTRV326 EQU CVTS01+84 01393000 CVTRV325 EQU CVTS01+80 01394000 CVTRV324 EQU CVTS01+76 01395000 CVT0VL01 EQU CVTS01+72 01396000 CVTSHRVM EQU CVTS01+68 01397000 CVTRV332 EQU CVTS01+64 01398000 CVTTAS EQU CVTS01+60 01399000 CVTRSCN EQU CVTS01+56 01400000 CVTTRAC2 EQU CVTS01+54 01401000 CVTTRACE EQU CVTS01+52 01402000 CVTAPG EQU CVTS01+51 01403000 CVTSDTRC EQU CVTCTLFG 01404000 CVTGTRCE EQU CVTCTLFG 01405000 CVTNOMP EQU CVTCTLFG 01406000 CVTRSV79 EQU CVTCTLFG 01407000 CVTDSTAT EQU CVTCTLFG 01408000 CVTRSV78 EQU CVTCTLFG 01409000 CVTRV333 EQU CVTCTLFG 01410000 CVTRV323 EQU CVTCTLFG 01411000 CVTSPVLK EQU CVTS01+49 01412000 CVTRSV77 EQU CVTS01+48 01413000 CVTRV331 EQU CVTS01+44 01414000 CVTRV330 EQU CVTS01+40 01415000 CVTRV329 EQU CVTS01+36 01416000 CVTRV328 EQU CVTS01+32 01417000 CVTRV322 EQU CVTS01+28 01418000 CVTSLID EQU CVTSLIDA+1 01419000 CVTSYLK EQU CVTSLIDA 01420000 CVTRV321 EQU CVTS01+20 01421000 CVTRV320 EQU CVTS01+16 01422000 CVTLPDIR EQU CVTLPDIA+1 01423000 CVTRSV69 EQU CVTDIRST 01424000 CVTRSV68 EQU CVTDIRST 01425000 CVTRSV67 EQU CVTDIRST 01426000 CVTRSV66 EQU CVTDIRST 01427000 CVTRSV65 EQU CVTDIRST 01428000 CVTRSV64 EQU CVTDIRST 01429000 CVTRSV63 EQU CVTDIRST 01430000 CVTDICOM EQU CVTDIRST 01431000 CVTPVTP EQU CVTS01+8 01432000 CVTLPDSR EQU CVTS01+4 01433000 CVTGETL EQU CVTS01 01434000 PSARSAV EQU PSARSVTE+60 01435000 PSARSTK EQU PSARSVTE+56 01436000 PSAESAV3 EQU PSARSVTE+52 01437000 PSAESTK3 EQU PSARSVTE+48 01438000 PSAESAV2 EQU PSARSVTE+44 01439000 PSAESTK2 EQU PSARSVTE+40 01440000 PSAESAV1 EQU PSARSVTE+36 01441000 PSAESTK1 EQU PSARSVTE+32 01442000 PSAPSAV EQU PSARSVTE+28 01443000 PSAPSTK EQU PSARSVTE+24 01444000 PSAMSAV EQU PSARSVTE+20 01445000 PSAMSTK EQU PSARSVTE+16 01446000 PSASSAV EQU PSARSVTE+12 01447000 PSASSTK EQU PSARSVTE+8 01448000 PSANSTK EQU PSARSVTE+4 01449000 PSACSTK EQU PSARSVTE 01450000 DXRESIND EQU @NM00032 01451000 DXSAVOFF EQU @NM00031+7 01452000 DXSAVADR EQU DXSAVMOD+2 01453000 DXSAVID EQU DXSAVMOD 01454000 DXABCODE EQU @NM00031 01455000 DXRETCOD EQU DXIDENT+7 01456000 DXRETTTR EQU DXRETMOD+2 01457000 DXRETID EQU DXRETMOD 01458000 DXREG0 EQU DXREGSAV+24 01459000 DXREGE EQU DXREGSAV+20 01460000 DXREGD EQU DXREGSAV+16 01461000 DXREGC EQU DXREGSAV+12 01462000 DXREGB EQU DXREGSAV+8 01463000 DXREGA EQU DXREGSAV+4 01464000 DXXEND EQU DXXAREA+48 01465000 DXXLAST EQU DXXAREA+40 01466000 DXXCORE EQU DXXENTRY+5 01467000 DXETTR EQU DXXIDTTR+2 01468000 DXEID EQU DXXIDTTR 01469000 DXXPATHS EQU DXXAREA+30 01470000 DXOPCLSW EQU DXXLNG 01471000 DXXTXTLN EQU DXXAREA+27 01472000 DXXMODSZ EQU DXXAREA+24 01473000 DXXATTRB EQU DXXAREA+22 01474000 @NM00016 EQU DXXAREA+20 01475000 DXXPREFX EQU DXXAREA+16 01476000 @NM00015 EQU DXXAREA+12 01477000 DXXMODEP EQU DXXAREA+8 01478000 DXXMODID EQU DXXMODNM+6 01479000 @NM00014 EQU DXXMODNM 01480000 DXXWTOPR EQU DXXWTG 01481000 DSABGRID EQU DSABGIDL+4 01482000 DSABLLEN EQU DSABGIDL 01483000 DSABANAM EQU DSABANMI+1 01484000 DSABANML EQU DSABANMI 01485000 DSABRS04 EQU DSAB+68 01486000 DSABSIOT EQU DSAB+64 01487000 DSABRS03 EQU DSAB+62 01488000 DSABDCBM EQU DSAB+56 01489000 DSABPTTR EQU DSAB+44 01490000 DSABTCBP EQU DSAB+40 01491000 DSABRS02 EQU DSAB+38 01492000 @NM00089 EQU DSABFLG4 01493000 DSABCKSI EQU DSABFLG4 01494000 DSABCKVL EQU DSABFLG4 01495000 DSABCKDS EQU DSABFLG4 01496000 @NM00088 EQU DSABFLG3 01497000 DSABJSCT EQU DSABFLG3 01498000 DSABCATL EQU DSABFLG3 01499000 DSABVMSC EQU DSABFLG3 01500000 DSABVAM EQU DSABFLG3 01501000 DSABPASS EQU DSABFLG3 01502000 DSABDEFR EQU DSABFLG3 01503000 @NM00087 EQU DSABFLG2 01504000 DSABUNAL EQU DSABFLG2 01505000 DSABIRM EQU DSABFLG2 01506000 DSABOPEN EQU DSABFLG2 01507000 DSABNUSE EQU DSABFLG1 01508000 DSABCATM EQU DSABFLG1 01509000 DSABPCAT EQU DSABFLG1 01510000 DSABDCAT EQU DSABFLG1 01511000 DSABCONV EQU DSABFLG1 01512000 DSABDCNV EQU DSABFLG1 01513000 DSABPALC EQU DSABFLG1 01514000 DSABDALC EQU DSABFLG1 01515000 @NM00086 EQU DSABORG2 01516000 DSABTR EQU DSABORG2 01517000 DSABAM EQU DSABORG2 01518000 @NM00085 EQU DSABORG2 01519000 DSABTQ EQU DSABORG2 01520000 DSABTX EQU DSABORG2 01521000 DSABGS EQU DSABORG2 01522000 DSABU EQU DSABORG1 01523000 DSABPO EQU DSABORG1 01524000 DSABMQ EQU DSABORG1 01525000 DSABCQ EQU DSABORG1 01526000 DSABCX EQU DSABORG1 01527000 DSABDA EQU DSABORG1 01528000 DSABPS EQU DSABORG1 01529000 DSABIS EQU DSABORG1 01530000 DSABSSVA EQU DSAB+21 01531000 DSABRS01 EQU DSAB+20 01532000 DSABTIOT EQU DSAB+16 01533000 DSABOPCT EQU DSAB+14 01534000 DSABLNTH EQU DSAB+12 01535000 DSABBCHN EQU DSAB+8 01536000 DSABFCHN EQU DSAB+4 01537000 DSABID EQU DSAB 01538000 SSDASSCM EQU SSDA+16 01539000 SSDABUFR EQU SSDA+4 01540000 @NM00084 EQU SSDARESF 01541000 SSDADEFR EQU SSDARESF 01542000 SSDAAUTO EQU SSDARESF 01543000 SSDARESV EQU SSDA+2 01544000 SSIBRSV1 EQU SSIB+28 01545000 SSIBDEST EQU SSIB+20 01546000 SSIBJBID EQU SSIB+12 01547000 SSIBRESV EQU SSIB+7 01548000 @NM00083 EQU SSIBFLG1 01549000 SSIBPJES EQU SSIBFLG1 01550000 JFCRSV05 EQU JFCEROPT 01551000 JFCRSV04 EQU JFCEROPT 01552000 JFCRSV03 EQU JFCEROPT 01553000 JFCRSV02 EQU JFCEROPT 01554000 JFCTOPT EQU JFCEROPT 01555000 JFCABN EQU JFCEROPT 01556000 JFCSKP EQU JFCEROPT 01557000 JFCACC EQU JFCEROPT 01558000 JFCBUFL EQU JFCAMPTR+2 01559000 JFCFWORD EQU JFCBFTEK 01560000 JFCDWORD EQU JFCBFTEK 01561000 JFCHIER1 EQU JFCBFTEK 01562000 JFCDYN EQU JFCBFTEK 01563000 JFCEXC EQU JFCBFTEK 01564000 JFCBBFTR EQU JFCBBFTA 01565000 JFCSIM EQU JFCBBFTA 01566000 JFCHIER EQU JFCBFTEK 01567000 JFCBFOUT EQU JFCBUFNO 01568000 JFCBUFIN EQU JFCBUFNO 01569000 JFCTEMP EQU JFCBIND2 01570000 JFCREQ EQU JFCBIND2 01571000 JFCENT EQU JFCBIND2 01572000 JFCSHARE EQU JFCBIND2 01573000 JFCSECUR EQU JFCBIND2 01574000 JFCDISP EQU JFCBIND2 01575000 JFCPDS EQU JFCBIND1 01576000 JFCGDG EQU JFCBIND1 01577000 JFCADDED EQU JFCBIND1 01578000 JFCLOC EQU JFCBIND1 01579000 JFCRLSE EQU JFCBIND1 01580000 JFCBXPDT EQU INFMJFCB+83 01581000 JFCBCRDT EQU INFMJFCB+80 01582000 JFCBOPS2 EQU JFCBMASK+7 01583000 JFCRCTLG EQU JFCBFLG2 01584000 JFCBBUFF EQU JFCBFLG2 01585000 JFCTRACE EQU JFCBFLG2 01586000 JFCSDRPS EQU JFCBFLG2 01587000 JFCMODNW EQU JFCBFLG2 01588000 JFCNRPS EQU JFCDEFER 01589000 JFCOUTOP EQU JFCBFLG2 01590000 JFCINOP EQU JFCBFLG2 01591000 JFCBPWBP EQU JFCOPEN 01592000 @NM00080 EQU JFCOPEN 01593000 JFCDUAL EQU JFCBFLG1 01594000 JFCSLDES EQU JFCBFLG1 01595000 JFCSLCRE EQU JFCBFLG1 01596000 JFCSTAND EQU JFCBFLG1 01597000 JFCBOPS1 EQU JFCBMASK 01598000 JFCBVLSQ EQU INFMJFCB+70 01599000 JFCRSV31 EQU JFCFUNC 01600000 JFCFNCBT EQU JFCFUNC 01601000 JFCFNCBX EQU JFCFUNC 01602000 JFCFNCBD EQU JFCFUNC 01603000 JFCFNCBW EQU JFCFUNC 01604000 JFCFNCBP EQU JFCFUNC 01605000 JFCFNCBR EQU JFCFUNC 01606000 JFCFNCBI EQU JFCFUNC 01607000 JFCBFOFL EQU JFCBUFOF 01608000 JFCNL EQU JFCBLTYP 01609000 JFCSL EQU JFCBLTYP 01610000 JFCNSL EQU JFCBLTYP 01611000 JFCSUL EQU JFCBLTYP 01612000 JFCBLP EQU JFCBLTYP 01613000 JFCBLTM EQU JFCBLTYP 01614000 JFCBAL EQU JFCBLTYP 01615000 JFCRSV38 EQU JFCBLTYP 01616000 JFCRSV01 EQU INFMJFCB+64 01617000 JFCNLREC EQU INFMJFCB+62 01618000 JFCBADBF EQU INFMJFCB+60 01619000 JFCAMSTR EQU JFCBFRID+2 01620000 JFCAMCRO EQU JFCBFRID 01621000 JFCBDSCB EQU INFMJFCB+53 01622000 JFCPAT EQU JFCBTSDM 01623000 JFCNDCB EQU JFCBTSDM 01624000 JFCNDSCB EQU JFCBTSDM 01625000 JFCNWRIT EQU JFCBTSDM 01626000 JFCTTR EQU JFCBTSDM 01627000 JFCSDS EQU JFCBTSDM 01628000 JFCVSL EQU JFCBTSDM 01629000 JFCCAT EQU JFCBTSDM 01630000 JFCIPLTX EQU JFCBELNM 01631000 JFCBQNAM EQU JFCBDSNM 01632000 DEBXRV40 EQU DEBXTN+28 01633000 DEBXRV39 EQU DEBXTN+24 01634000 DEBXXARG EQU DEBXTN+20 01635000 DEBXMCF2 EQU DEBXTN+19 01636000 DEBXMCF1 EQU DEBXTN+18 01637000 DEBXDSO2 EQU DEBXTN+17 01638000 DEBXDSO1 EQU DEBXTN+16 01639000 DEBXDBPR EQU DEBXTN+12 01640000 DEBXDCBM EQU DEBXTN+8 01641000 DEBXDSAB EQU DEBXTN+4 01642000 DEBXRV48 EQU DEBXTN+3 01643000 DEBXRV47 EQU DEBXFLG1 01644000 DEBXRV46 EQU DEBXFLG1 01645000 DEBXRV45 EQU DEBXFLG1 01646000 DEBXRV44 EQU DEBXFLG1 01647000 DEBXRV43 EQU DEBXFLG1 01648000 DEBXRV42 EQU DEBXFLG1 01649000 DEBXTSKC EQU DEBXFLG1 01650000 DEBXCDCB EQU DEBXFLG1 01651000 DEBXLNGH EQU DEBXTN 01652000 DEBTBLOF EQU DEBPREFX+14 01653000 DEBAMTYP EQU DEBPREFX+13 01654000 DEBDCBMK EQU DEBXTNP 01655000 DEBDSCBA EQU DEBPREFX+1 01656000 DEBWKARA EQU DEBPREFX 01657000 DEBXCEAD EQU DEBXCEA+1 01658000 DEBXCENP EQU DEBXCEAB 01659000 DEBRSV35 EQU DEBXCEAB 01660000 DEBRSV34 EQU DEBXCEAB 01661000 DEBRSV33 EQU DEBXCEAB 01662000 DEBRSV32 EQU DEBXCEAB 01663000 DEBCEAD EQU DEBCEA+1 01664000 DEBCENP EQU DEBCEAB 01665000 DEBRSV31 EQU DEBCEAB 01666000 DEBRSV30 EQU DEBCEAB 01667000 DEBRSV29 EQU DEBCEAB 01668000 DEBRSV28 EQU DEBCEAB 01669000 DEBPCIAD EQU DEBPCIA+1 01670000 DEBPCINP EQU DEBPCIAB 01671000 DEBRSV27 EQU DEBPCIAB 01672000 DEBRSV26 EQU DEBPCIAB 01673000 DEBRSV25 EQU DEBPCIAB 01674000 DEBRSV24 EQU DEBPCIAB 01675000 DEBSIOAD EQU DEBSIOA+1 01676000 DEBSIONP EQU DEBSIOAB 01677000 DEBFIX EQU DEBSIOAB 01678000 DEBIOVR EQU DEBSIOAB 01679000 DEBSIOX EQU DEBSIOAB 01680000 DEBPGFX EQU DEBSIOAB 01681000 DEBEOEAD EQU DEBEOEA+1 01682000 DEBEOENP EQU DEBEOEAB 01683000 DEBRSV22 EQU DEBEOEAB 01684000 DEBRSV21 EQU DEBEOEAB 01685000 DEBRSV20 EQU DEBEOEAB 01686000 DEBRSV19 EQU DEBEOEAB 01687000 DEBSUBID EQU DEBSUBNM 01688000 DEBSIOA2 EQU DEBACS08+24 01689000 DEBRPSIO EQU DEBACS08+20 01690000 DEBFREED EQU DEBACS08+16 01691000 @NM00079 EQU DEBACS08+12 01692000 @NM00078 EQU DEBACS08+8 01693000 DEBDISAD EQU DEBACS08+4 01694000 @NM00077 EQU DEBACS08 01695000 DEBRPSST EQU DEBACS07+64 01696000 DEBARECK EQU DEBACS07+60 01697000 DEBAREWT EQU DEBACS07+56 01698000 DEBACHK EQU DEBACS07+52 01699000 DEBAWRIT EQU DEBACS07+48 01700000 DEBASETL EQU DEBACS07+44 01701000 DEBAREAD EQU DEBACS07+40 01702000 DEBCRECK EQU DEBACS07+36 01703000 DEBCREWT EQU DEBACS07+32 01704000 DEBCCHK EQU DEBACS07+28 01705000 DEBCWRIT EQU DEBACS07+24 01706000 DEBCSETL EQU DEBACS07+20 01707000 DEBCREAD EQU DEBACS07+16 01708000 DEBWKPT5 EQU DEBACS07+12 01709000 DEBWKPT4 EQU DEBACS07+8 01710000 DEBGET EQU DEBACS07+4 01711000 @NM00076 EQU DEBACS07 01712000 DEBPUT EQU DEBACS06+4 01713000 DEBDCBFA EQU DEBACS06 01714000 DEBLUCBB EQU DEBLUCBA+1 01715000 DEBRSV18 EQU DEBLUCBA 01716000 DEBFUCBB EQU DEBFUCBA+1 01717000 DEBRSV17 EQU DEBFUCBA 01718000 DEBTCCWB EQU DEBTCCWA+1 01719000 DEBRSV16 EQU DEBTCCWA 01720000 DEBTBFRB EQU DEBTBFRA+1 01721000 DEBRSV15 EQU DEBTBFRA 01722000 DEBDBPEF EQU DEBACS03+8 01723000 DEBDBPP EQU DEBACS03+4 01724000 DEBDTPP EQU DEBACS03 01725000 DEBDBPE EQU DEBDBLK+1 01726000 DEBDBPT EQU DEBDBLK 01727000 DEBEXTNM EQU DEBDSNAM 01728000 DEBRSV14 EQU DEBDSNM+4 01729000 DEBUTSAB EQU DEBUTSAA+1 01730000 DEBRSV13 EQU DEBUTSAA 01731000 DEBVOLNM EQU DEBACSMD+2 01732000 DEBVLSEQ EQU DEBVOLSQ+1 01733000 DEBRSV42 EQU DEBVOLBT 01734000 DEBRSV41 EQU DEBVOLBT 01735000 DEBRSV40 EQU DEBVOLBT 01736000 DEBRSV39 EQU DEBVOLBT 01737000 DEBRSV38 EQU DEBVOLBT 01738000 DEBRSV37 EQU DEBVOLBT 01739000 DEBRSV36 EQU DEBVOLBT 01740000 DEBEXFUL EQU DEBVOLBT 01741000 DEBNMTRK EQU DEBDASD+14 01742000 DEBENDHH EQU DEBDASD+12 01743000 DEBENDCC EQU DEBDASD+10 01744000 DEBSTRHH EQU DEBDASD+8 01745000 DEBSTRCC EQU DEBDASD+6 01746000 DEBUCBA EQU DEBUCBAD+1 01747000 DEBDVMOD EQU DEBUCBAD 01748000 DEBAPPB EQU DEBAPPAD+1 01749000 DEBDCBB EQU DEBDCBAD+1 01750000 DEBECBB EQU DEBECBAD+1 01751000 DEBPRIOR EQU DEBECBAD 01752000 DEBUSRPB EQU DEBUSRPG+1 01753000 DEBRSV05 EQU DEBBASIC+15 01754000 DEBXTNIN EQU DEBFLGS1 01755000 DEBAPFIN EQU DEBFLGS1 01756000 DEBF1CEV EQU DEBFLGS1 01757000 DEBCINDI EQU DEBFLGS1 01758000 DEBRSV02 EQU DEBFLGS1 01759000 DEBRSV01 EQU DEBFLGS1 01760000 DEBEOFDF EQU DEBFLGS1 01761000 DEBPWCKD EQU DEBFLGS1 01762000 DEBQSCNT EQU DEBBASIC+13 01763000 DEBACCS EQU DEBOPATB 01764000 DEBPOSIT EQU DEBOPATB 01765000 DEBZERO EQU DEBOPATB 01766000 DEBABEND EQU DEBOPATB 01767000 DEBIRBB EQU DEBIRBAD+1 01768000 DEBRERR EQU DEBOFLGS 01769000 DEBLABEL EQU DEBOFLGS 01770000 DEBSPLIT EQU DEBOFLGS 01771000 DEBDCB EQU DEBOFLGS 01772000 DEBRLSE EQU DEBOFLGS 01773000 DEBEOF EQU DEBOFLGS 01774000 DEBDISP EQU DEBOFLGS 01775000 DEBDEBB EQU DEBDEBAD+1 01776000 DEBTCBB EQU DEBTCBAD+1 01777000 DEBNMSUB EQU DEBTCBAD 01778000 TIOCSTEP EQU TIOT1+8 01779000 TIOCNJOB EQU TIOT1 01780000 @NM00073 EQU TCBXTNT2+32 01781000 TCBRV181 EQU TCBRV173 01782000 TCBRV180 EQU TCBRV173 01783000 TCBRV179 EQU TCBRV173 01784000 TCBRV178 EQU TCBRV173 01785000 TCBRV177 EQU TCBRV173 01786000 TCBRV176 EQU TCBRV173 01787000 TCBRV175 EQU TCBRV173 01788000 TCBRV174 EQU TCBRV173 01789000 TCBRV172 EQU TCBRV164 01790000 TCBRV171 EQU TCBRV164 01791000 TCBRV170 EQU TCBRV164 01792000 TCBRV169 EQU TCBRV164 01793000 TCBRV168 EQU TCBRV164 01794000 TCBRV167 EQU TCBRV164 01795000 TCBRV166 EQU TCBRV164 01796000 TCBRV165 EQU TCBRV164 01797000 TCBRV163 EQU TCBRV155 01798000 TCBRV162 EQU TCBRV155 01799000 TCBRV161 EQU TCBRV155 01800000 TCBRV160 EQU TCBRV155 01801000 TCBRV159 EQU TCBRV155 01802000 TCBRV158 EQU TCBRV155 01803000 TCBRV157 EQU TCBRV155 01804000 TCBRV156 EQU TCBRV155 01805000 TCBRV154 EQU TCBRV146 01806000 TCBRV153 EQU TCBRV146 01807000 TCBRV152 EQU TCBRV146 01808000 TCBRV151 EQU TCBRV146 01809000 TCBRV150 EQU TCBRV146 01810000 TCBRV149 EQU TCBRV146 01811000 TCBRV148 EQU TCBRV146 01812000 TCBRV147 EQU TCBRV146 01813000 TCBRV145 EQU TCBXTNT2+26 01814000 TCBRV144 EQU TCBXTNT2+24 01815000 TCBRV143 EQU TCBXTNT2+20 01816000 TCBRV142 EQU TCBXTNT2+16 01817000 TCBRSV49 EQU TCBXTNT2+12 01818000 TCBRSV48 EQU TCBXTNT2+8 01819000 TCBRCMP EQU TCBXTNT2+5 01820000 TCBRSVAB EQU TCBXTNT2+4 01821000 TCBGTFA EQU TCBGTF+1 01822000 TCBRSV47 EQU TCBTFLG 01823000 TCBRSV46 EQU TCBTFLG 01824000 TCBRSV45 EQU TCBTFLG 01825000 TCBRSV44 EQU TCBTFLG 01826000 TCBRSV43 EQU TCBTFLG 01827000 TCBDSPIT EQU TCBTFLG 01828000 TCBERRTN EQU TCBTFLG 01829000 TCBASYNC EQU TCBTFLG 01830000 @NM00072 EQU TCB+296 01831000 TCBSCBQ EQU TCB+292 01832000 TCBSWASA EQU TCB+288 01833000 TCBDBTB EQU TCB+284 01834000 TCBRPT EQU TCB+280 01835000 TCBRV141 EQU TCBRV133 01836000 TCBRV140 EQU TCBRV133 01837000 TCBRV139 EQU TCBRV133 01838000 TCBRV138 EQU TCBRV133 01839000 TCBRV137 EQU TCBRV133 01840000 TCBRV136 EQU TCBRV133 01841000 TCBRV135 EQU TCBRV133 01842000 TCBRV134 EQU TCBRV133 01843000 TCBRV132 EQU TCBRV124 01844000 TCBRV131 EQU TCBRV124 01845000 TCBRV130 EQU TCBRV124 01846000 TCBRV129 EQU TCBRV124 01847000 TCBRV128 EQU TCBRV124 01848000 TCBRV127 EQU TCBRV124 01849000 TCBRV126 EQU TCBRV124 01850000 TCBRV125 EQU TCBRV124 01851000 TCBRV123 EQU TCBFBYT2 01852000 TCBRV122 EQU TCBFBYT2 01853000 TCBECBNV EQU TCBFBYT2 01854000 TCBSSSYN EQU TCBFBYT2 01855000 TCBFPRAP EQU TCBFBYT2 01856000 TCBFDW EQU TCBFBYT2 01857000 TCBFMW EQU TCBFBYT2 01858000 TCBCNCB EQU TCBFBYT2 01859000 TCBLLH EQU TCBFBYT1 01860000 TCBRV113 EQU TCBFBYT1 01861000 TCBEOT EQU TCBFBYT1 01862000 TCBRTM2 EQU TCBFBYT1 01863000 TCBPGNLY EQU TCBFBYT1 01864000 TCBNDIOS EQU TCBFBYT1 01865000 TCBACTIV EQU TCBFBYT1 01866000 TCBEOTFM EQU TCBFBYT1 01867000 TCBAFFN EQU TCB+274 01868000 TCBCCPVI EQU TCB+272 01869000 TCBUKYSP EQU TCB+268 01870000 TCBMODE EQU TCBESTAE+3 01871000 TCBERTYP EQU TCBESTAE+2 01872000 TCBRV314 EQU TCBESTRM 01873000 TCBRV313 EQU TCBESTRM 01874000 TCBRV312 EQU TCBESTRM 01875000 TCBRV311 EQU TCBESTRM 01876000 TCBRV310 EQU TCBESTRM 01877000 TCBRV309 EQU TCBESTRM 01878000 TCBRV308 EQU TCBESTRM 01879000 TCBETERM EQU TCBESTRM 01880000 TCBSCBKY EQU TCBESTAE 01881000 TCBRTM12 EQU TCB+260 01882000 TCBTCBID EQU TCB+256 01883000 TCBRSV96 EQU TCB+252 01884000 TCBSWA EQU TCB+248 01885000 TCBFOEA EQU TCBFOE+1 01886000 TCBRSV42 EQU TCBFOE 01887000 TCBRV306 EQU TCB+240 01888000 TCBRSV41 EQU TCB+239 01889000 TCBTID EQU TCB+238 01890000 TCBRSVAA EQU TCB+237 01891000 TCBABCUR EQU TCB+236 01892000 TCBTMSAV EQU TCB+232 01893000 TCBIOTIM EQU TCB+228 01894000 TCBRTWA EQU TCB+224 01895000 TCBBACK EQU TCB+220 01896000 TCBTIRB EQU TCB+216 01897000 TCBAECB EQU TCB+212 01898000 TCBEXT2A EQU TCBEXT2+1 01899000 TCBRSV39 EQU TCBEXT2 01900000 TCBSTMCT EQU TCB+207 01901000 TCBSYSCT EQU TCB+206 01902000 TCBRSV37 EQU TCB+205 01903000 TCBEXSVC EQU TCBDAR 01904000 TCBRSV36 EQU TCBDAR 01905000 TCBDARWT EQU TCBDAR 01906000 TCBDARO EQU TCBDAR 01907000 TCBDARMC EQU TCBDARC 01908000 TCBDARD EQU TCBDAR 01909000 TCBDARS EQU TCBDAR 01910000 TCBDARP EQU TCBDAR 01911000 TCBGTOFM EQU TCBFLGS7 01912000 TCBADMP EQU TCBFLGS7 01913000 TCBRSTSK EQU TCBFLGS7 01914000 TCBRSV35 EQU TCBFLGS7 01915000 TCBSTACK EQU TCBFLGS7 01916000 TCBRSV34 EQU TCBFLGS7 01917000 TCBRSV33 EQU TCBFLGS7 01918000 TCBGPECB EQU TCBFLGS7 01919000 TCBNTJS EQU TCBFLGS6 01920000 TCBAPG EQU TCBFLGS6 01921000 TCBMIGR EQU TCBFLGS6 01922000 TCBRV303 EQU TCBFLGS6 01923000 TCBSPVLK EQU TCBFLGS6 01924000 TCBCPU EQU TCBFLGS6 01925000 TCBPIE17 EQU TCBFLGS6 01926000 TCBRV EQU TCBFLGS6 01927000 TCBRSV79 EQU TCBNDSP5 01928000 TCBRSV78 EQU TCBNDSP5 01929000 TCBRSV77 EQU TCBNDSP5 01930000 TCBRSV76 EQU TCBNDSP5 01931000 TCBRSV75 EQU TCBNDSP5 01932000 TCBRSV74 EQU TCBNDSP5 01933000 TCBRSV95 EQU TCBNDSP5 01934000 TCBRSV94 EQU TCBNDSP5 01935000 TCBRSV93 EQU TCBNDSP4 01936000 TCBRSV92 EQU TCBNDSP4 01937000 TCBRSV91 EQU TCBNDSP4 01938000 TCBRSV90 EQU TCBNDSP4 01939000 TCBRSV89 EQU TCBNDSP4 01940000 TCBRSV88 EQU TCBNDSP4 01941000 TCBRSV87 EQU TCBNDSP4 01942000 TCBRSV86 EQU TCBNDSP4 01943000 TCBEXT1A EQU TCBEXT1+1 01944000 TCBRSV32 EQU TCBEXT1 01945000 TCBEXCPD EQU TCB+192 01946000 TCBIOBRC EQU TCB+188 01947000 TCBDDWTC EQU TCB+186 01948000 TCBDDEXC EQU TCB+184 01949000 TCBJSCBB EQU TCBJSCB+1 01950000 @NM00071 EQU TCBRECDE 01951000 TCBREC EQU TCBRECDE 01952000 TCBMDIDS EQU TCB+176 01953000 TCBNDINT EQU TCBNDSP3 01954000 TCBRSV27 EQU TCBNDSP3 01955000 TCBRSV26 EQU TCBNDSP3 01956000 TCBRSV25 EQU TCBNDSP3 01957000 TCBRSV24 EQU TCBNDSP3 01958000 TCBSRBND EQU TCBNDSP3 01959000 TCBRV302 EQU TCBNDSP3 01960000 TCBLJSND EQU TCBNDSP3 01961000 TCBABE EQU TCBNDSP2 01962000 TCBDSS EQU TCBNDSP2 01963000 TCBOWAIT EQU TCBNDSP2 01964000 TCBIWAIT EQU TCBNDSP2 01965000 TCBNDTS EQU TCBNDSP2 01966000 TCBNDSVC EQU TCBNDSP2 01967000 TCBSTPP EQU TCBNDSP2 01968000 TCBABD EQU TCBNDSP2 01969000 TCBRSV22 EQU TCBNDSP1 01970000 TCBPIEND EQU TCBNDSP1 01971000 TCBTPSP EQU TCBNDSP1 01972000 TCBDDRND EQU TCBNDSP1 01973000 TCBRSPND EQU TCBNDSP1 01974000 TCBRSTND EQU TCBNDSP1 01975000 TCBDARPN EQU TCBNDSP1 01976000 TCBDARTN EQU TCBNDSP1 01977000 TCBNDSP0 EQU TCBNDSP 01978000 TCBUSER EQU TCB+168 01979000 TCBTCTB EQU TCBTCT+1 01980000 TCBRSV9C EQU TCBTCTGF 01981000 TCBRSV9B EQU TCBTCTGF 01982000 TCBRSV9A EQU TCBTCTGF 01983000 TCBRSV99 EQU TCBTCTGF 01984000 TCBRSV98 EQU TCBTCTGF 01985000 TCBRSV97 EQU TCBTCTGF 01986000 TCBRSV20 EQU TCBTCTGF 01987000 TCBSMFGF EQU TCBTCTGF 01988000 TCBSTABB EQU TCBSTAB+1 01989000 TCBSTCUR EQU TCBNSTAE 01990000 TCBRV301 EQU TCBNSTAE 01991000 TCBSYNCH EQU TCBNSTAE 01992000 TCBHALT EQU TCBNSTAE 01993000 TCBPPSUP EQU TCBNSTAE 01994000 TCB33E EQU TCBNSTAE 01995000 TCBQUIES EQU TCBNSTAE 01996000 TCBSTABE EQU TCBNSTAE 01997000 TCBAQE EQU TCB+156 01998000 TCBPQE EQU TCB+152 01999000 TCBTSDP EQU TCB+151 02000000 TCBTSLP EQU TCB+150 02001000 TCBSTPCT EQU TCB+149 02002000 TCBCPUBN EQU TCBTSFLG 02003000 TCBDYDSP EQU TCBTSFLG 02004000 TCBRSV18 EQU TCBTSFLG 02005000 TCBRSV17 EQU TCBTSFLG 02006000 TCBTIOTG EQU TCBTSFLG 02007000 TCBATT EQU TCBTSFLG 02008000 TCBSTPPR EQU TCBTSFLG 02009000 TCBRV300 EQU TCBTSTSK 02010000 TCBECB EQU TCB+144 02011000 TCBIQE EQU TCB+140 02012000 TCBLTC EQU TCB+136 02013000 TCBOTC EQU TCB+132 02014000 TCBNTC EQU TCB+128 02015000 TCBJSTCA EQU TCBJSTCB+1 02016000 TCBRSV16 EQU TCBJSTCB 02017000 TCBTQET EQU TCBTME 02018000 TCBTCB EQU TCB+116 02019000 TCBFSAB EQU TCBFSA+1 02020000 TCBQEL EQU TCBFSA 02021000 TCBGRS15 EQU TCBGRS+60 02022000 TCBGRS14 EQU TCBGRS+56 02023000 TCBGRS13 EQU TCBGRS+52 02024000 TCBGRS12 EQU TCBGRS+48 02025000 TCBGRS11 EQU TCBGRS+44 02026000 TCBGRS10 EQU TCBGRS+40 02027000 TCBGRS9 EQU TCBGRS+36 02028000 TCBGRS8 EQU TCBGRS+32 02029000 TCBGRS7 EQU TCBGRS+28 02030000 TCBGRS6 EQU TCBGRS+24 02031000 TCBGRS5 EQU TCBGRS+20 02032000 TCBGRS4 EQU TCBGRS+16 02033000 TCBGRS3 EQU TCBGRS+12 02034000 TCBGRS2 EQU TCBGRS+8 02035000 TCBGRS1 EQU TCBGRS+4 02036000 TCBGRS0 EQU TCBGRS 02037000 TCBJPQB EQU TCBJPQ+1 02038000 TCBRSV15 EQU TCBPURGE 02039000 TCBRSV14 EQU TCBPURGE 02040000 TCBRSV13 EQU TCBPURGE 02041000 TCBRSV12 EQU TCBPURGE 02042000 TCBRSV11 EQU TCBPURGE 02043000 TCBRSV10 EQU TCBPURGE 02044000 TCBRSV09 EQU TCBPURGE 02045000 TCBJPQF EQU TCBPURGE 02046000 TCBJLB EQU TCB+40 02047000 TCBLLS EQU TCB+36 02048000 TCBDSP EQU TCB+35 02049000 TCBLMP EQU TCB+34 02050000 TCBPNDSP EQU TCBFLGS5 02051000 TCBFCD1 EQU TCBFLGS5 02052000 TCBSTP EQU TCBFLGS5 02053000 TCBSYS EQU TCBFLGS5 02054000 TCBANDSP EQU TCBFLGS5 02055000 TCBPAGE EQU TCBFLGS5 02056000 TCBUXNDF EQU TCBABWF 02057000 TCBFC EQU TCBFLGS5 02058000 TCBONDSP EQU TCBFLGS4 02059000 TCBMPCND EQU TCBFLGS4 02060000 TCBMPCVQ EQU TCBFLGS4 02061000 TCBUXNDV EQU TCBFLGS4 02062000 TCBHNDSP EQU TCBFLGS4 02063000 TCBRQENA EQU TCBFLGS4 02064000 TCBSER EQU TCBFLGS4 02065000 TCBNDUMP EQU TCBFLGS4 02066000 TCBDWSTA EQU TCBFLGS3 02067000 TCBRSV08 EQU TCBFLGS3 02068000 TCBRSV07 EQU TCBFLGS3 02069000 TCBRSV06 EQU TCBFLGS3 02070000 TCBABGM EQU TCBFLGS3 02071000 TCBABTRM EQU TCBFLGS3 02072000 TCBADINP EQU TCBFLGS3 02073000 TCBFSM EQU TCBFLGS3 02074000 TCBFTS EQU TCBFLGS2 02075000 TCBFETXR EQU TCBFLGS2 02076000 TCBFDSOP EQU TCBFLGS2 02077000 TCBFJMC EQU TCBFLGS2 02078000 TCBFSMC EQU TCBFLGS2 02079000 TCBFABOP EQU TCBFLGS2 02080000 TCBFSTI EQU TCBFLGS2 02081000 TCBFOINP EQU TCBFLGS2 02082000 TCBFX EQU TCBFLGS1 02083000 TCBFS EQU TCBFLGS1 02084000 TCBFT EQU TCBFLGS1 02085000 TCBPDUMP EQU TCBFLGS1 02086000 TCBRSV04 EQU TCBFLGS1 02087000 TCBFERA EQU TCBFLGS1 02088000 TCBFE EQU TCBFLGS1 02089000 TCBFA EQU TCBFLGS1 02090000 TCBZERO EQU TCBPKF 02091000 TCBFLAG EQU TCBPKF 02092000 TCBMSSB EQU TCBMSS+1 02093000 TCBRSV03 EQU TCBMSS 02094000 TCBTRNB EQU TCBTRN+1 02095000 TCBRSV02 EQU TCBABF 02096000 TCBOLTEP EQU TCBABF 02097000 TCBTCP EQU TCBABF 02098000 TCBTCPP EQU TCBABF 02099000 TCBRSV01 EQU TCBABF 02100000 TCBGRPH EQU TCBABF 02101000 TCBNOCHK EQU TCBABF 02102000 TCBMOD91 EQU TCBABF 02103000 TCBCMPC EQU TCBCMP+1 02104000 TCBRV318 EQU TCBCMSG 02105000 TCBRV317 EQU TCBCIND 02106000 TCBRV316 EQU TCBCWTO 02107000 TCBCASID EQU TCBCDBL 02108000 TCBNOCC EQU TCBSTCC 02109000 TCBDMPO EQU TCBCPP 02110000 TCBCSTEP EQU TCBCMPF 02111000 TCBCREQ EQU TCBCMPF 02112000 TCBPIEA EQU TCBPIE+1 02113000 TCBPM EQU TCBPMASK 02114000 @NM00070 EQU TCBPMASK 02115000 TCBRBP EQU TCB 02116000 TCBFRS6 EQU TCBFRS+24 02117000 TCBFRS4 EQU TCBFRS+16 02118000 TCBFRS2 EQU TCBFRS+8 02119000 TCBFRS0 EQU TCBFRS 02120000 JESPJESN EQU JESCT+28 02121000 JESSSCT EQU JESCT+24 02122000 JESRESQM EQU JESCT+16 02123000 JESQMGR EQU JESCT+12 02124000 @NM00069 EQU JESCT 02125000 ACBAPID EQU ACBCOMN+72 02126000 ACBCBMWA EQU ACBCOMN+68 02127000 ACBUAPTR EQU ACBCOMN+64 02128000 ACBLRECL EQU ACBCOMN+62 02129000 ACBBLKSZ EQU ACBCOMN+60 02130000 ACBBUFSP EQU ACBCOMN+56 02131000 @NM00068 EQU ACBWAPTR+1 02132000 ACBOPTN EQU ACBWAPTR 02133000 ACBCAT EQU ACBINFLG 02134000 ACBIJRQE EQU ACBINFLG 02135000 ACBJEPS EQU ACBINFLG 02136000 @NM00067 EQU ACBINFLG 02137000 ACBERFLG EQU ACBCOMN+49 02138000 ACBBUSY EQU ACBIOSFG 02139000 ACBLOCK EQU ACBEXFG 02140000 @NM00066 EQU ACBOFLGS 02141000 ACBDSERR EQU ACBOFLGS 02142000 ACBOPEN EQU ACBOFLGS 02143000 ACBEOV EQU ACBOFLGS 02144000 @NM00065 EQU ACBOFLGS 02145000 ACBERFL EQU ACBDDNM+4 02146000 ACBAM EQU ACBAMETH 02147000 ACBINFL EQU ACBDDNM+2 02148000 ACBTIOT EQU ACBDDNM 02149000 ACBUEL EQU ACBEXLST 02150000 ACBPASSW EQU ACBCOMN+32 02151000 @NM00064 EQU ACBCOMN+28 02152000 @NM00063 EQU ACBDSORG+1 02153000 ACBDORGA EQU ACBDSORG+1 02154000 @NM00062 EQU ACBDSORG 02155000 ACBCRNRE EQU ACBCROPS 02156000 ACBCRNCK EQU ACBCROPS 02157000 ACBASA EQU ACBCCTYP 02158000 @NM00061 EQU ACBCCTYP 02159000 ACBRECAF EQU ACBRECFM 02160000 ACBJBUF EQU ACBBUFPL+2 02161000 @NM00060 EQU ACBBUFPL 02162000 ACBBUFNI EQU ACBCOMN+18 02163000 ACBBUFND EQU ACBCOMN+16 02164000 ACBSTRNO EQU ACBCOMN+14 02165000 @NM00059 EQU ACBMACR2 02166000 ACBLOGON EQU ACBMACR2 02167000 ACBSKP EQU ACBMACR2 02168000 ACBCHN EQU ACBMACR2 02169000 ACBCBRD EQU ACBMACR2 02170000 ACBCBOPN EQU ACBMACR2 02171000 ACBUBF EQU ACBMACR1 02172000 ACBOUT EQU ACBMACR1 02173000 ACBIN EQU ACBMACR1 02174000 ACBDIR EQU ACBMACR1 02175000 ACBSEQ EQU ACBMACR1 02176000 ACBBLK EQU ACBCNV 02177000 ACBADD EQU ACBADR 02178000 ACBKEY EQU ACBMACR1 02179000 ACBINRTN EQU ACBCOMN+8 02180000 ACBIBCT EQU ACBJWA 02181000 ACBLEN2 EQU ACBLENG2 02182000 ACBSTYP EQU ACBCOMN+1 02183000 ACBID EQU ACBCOMN 02184000 CVTLEVL EQU CVTRELNO+2 02185000 CVTNUMB EQU CVTRELNO 02186000 CVTMDL EQU CVTFIX+250 02187000 @NM00058 EQU CVTFIX+248 02188000 @NM00057 EQU CVTFIX 02189000 CVTRV482 EQU CVTXTNT2+128 02190000 CVTRV481 EQU CVTXTNT2+124 02191000 CVTRV480 EQU CVTXTNT2+120 02192000 CVTRV479 EQU CVTXTNT2+118 02193000 CVTRV478 EQU CVTXTNT2+117 02194000 CVTRV477 EQU CVTXTNT2+116 02195000 CVTRV476 EQU CVTXTNT2+115 02196000 CVTRV475 EQU CVTXTNT2+114 02197000 CVTRV474 EQU CVTRV466 02198000 CVTRV473 EQU CVTRV466 02199000 CVTRV472 EQU CVTRV466 02200000 CVTRV471 EQU CVTRV466 02201000 CVTRV470 EQU CVTRV466 02202000 CVTRV469 EQU CVTRV466 02203000 CVTRV468 EQU CVTRV466 02204000 CVTRV467 EQU CVTRV466 02205000 CVTRV465 EQU CVTRV457 02206000 CVTRV464 EQU CVTRV457 02207000 CVTRV463 EQU CVTRV457 02208000 CVTRV462 EQU CVTRV457 02209000 CVTRV461 EQU CVTRV457 02210000 CVTRV460 EQU CVTRV457 02211000 CVTRV459 EQU CVTRV457 02212000 CVTRV458 EQU CVTRV457 02213000 CVTRV456 EQU CVTXTNT2+108 02214000 CVTRV455 EQU CVTXTNT2+104 02215000 CVTRV454 EQU CVTXTNT2+100 02216000 CVTRV453 EQU CVTXTNT2+96 02217000 CVTRV452 EQU CVTXTNT2+94 02218000 CVTRV451 EQU CVTXTNT2+92 02219000 CVTRV450 EQU CVTXTNT2+90 02220000 CVTRV449 EQU CVTXTNT2+88 02221000 CVTRV448 EQU CVTXTNT2+87 02222000 CVTRV447 EQU CVTXTNT2+86 02223000 CVTRV446 EQU CVTRV438 02224000 CVTRV445 EQU CVTRV438 02225000 CVTRV444 EQU CVTRV438 02226000 CVTRV443 EQU CVTRV438 02227000 CVTRV442 EQU CVTRV438 02228000 CVTRV441 EQU CVTRV438 02229000 CVTRV440 EQU CVTRV438 02230000 CVTRV439 EQU CVTRV438 02231000 CVTRV437 EQU CVTRV429 02232000 CVTRV436 EQU CVTRV429 02233000 CVTRV435 EQU CVTRV429 02234000 CVTRV434 EQU CVTRV429 02235000 CVTRV433 EQU CVTRV429 02236000 CVTRV432 EQU CVTRV429 02237000 CVTRV431 EQU CVTRV429 02238000 CVTRV430 EQU CVTRV429 02239000 CVTRV428 EQU CVTXTNT2+80 02240000 CVTRV427 EQU CVTXTNT2+76 02241000 CVTRV426 EQU CVTXTNT2+72 02242000 CVTRV425 EQU CVTXTNT2+68 02243000 CVTATACT EQU CVTATCVT 02244000 CVTRV423 EQU CVTXTNT2+62 02245000 CVTRV422 EQU CVTXTNT2+60 02246000 CVTRV421 EQU CVTXTNT2+58 02247000 CVTRV420 EQU CVTXTNT2+56 02248000 CVTRV419 EQU CVTXTNT2+55 02249000 CVTRV418 EQU CVTXTNT2+54 02250000 CVTRV417 EQU CVTRV409 02251000 CVTRV416 EQU CVTRV409 02252000 CVTRV415 EQU CVTRV409 02253000 CVTRV414 EQU CVTRV409 02254000 CVTRV413 EQU CVTRV409 02255000 CVTRV412 EQU CVTRV409 02256000 CVTRV411 EQU CVTRV409 02257000 CVTRV410 EQU CVTRV409 02258000 CVTRV408 EQU CVTRV400 02259000 CVTRV407 EQU CVTRV400 02260000 CVTRV406 EQU CVTRV400 02261000 CVTRV405 EQU CVTRV400 02262000 CVTRV404 EQU CVTRV400 02263000 CVTRV403 EQU CVTRV400 02264000 CVTRV402 EQU CVTRV400 02265000 CVTRV401 EQU CVTRV400 02266000 CVTRSVA1 EQU CVTXTNT2+48 02267000 CVTRSVA0 EQU CVTXTNT2+44 02268000 CVTRSV99 EQU CVTXTNT2+40 02269000 CVTRSV98 EQU CVTXTNT2+36 02270000 CVTRSV97 EQU CVTXTNT2+34 02271000 CVTRSV96 EQU CVTXTNT2+32 02272000 CVTOLTEP EQU CVTXTNT2+28 02273000 CVTQIDA EQU CVTQID+1 02274000 CVTRSV95 EQU CVTQID 02275000 CVTRSV94 EQU CVTXTNT2+20 02276000 CVTRSV93 EQU CVTXTNT2+16 02277000 CVTRSV92 EQU CVTXTNT2+12 02278000 CVTDEBVR EQU CVTXTNT2+8 02279000 CVTRSV91 EQU CVTXTNT2+6 02280000 CVTRSV9H EQU CVTRSV90 02281000 CVTRSV9G EQU CVTRSV90 02282000 CVTRSV9F EQU CVTRSV90 02283000 CVTRSV9E EQU CVTRSV90 02284000 CVTRSV9D EQU CVTRSV90 02285000 CVTRSV9C EQU CVTRSV90 02286000 CVTRSV9B EQU CVTRSV90 02287000 CVTRSV9A EQU CVTRSV90 02288000 CVTNUCLS EQU CVTXTNT2+4 02289000 CVTDSSVA EQU CVTDSSV+1 02290000 CVTRSV89 EQU CVTDSSV 02291000 CVTRSV88 EQU CVTXTNT1+8 02292000 CVTRSV87 EQU CVTXTNT1+4 02293000 CVTFACHN EQU CVTXTNT1 02294000 CVTRV488 EQU CVTMAP+412 02295000 CVTRV487 EQU CVTMAP+408 02296000 CVTRV486 EQU CVTMAP+404 02297000 CVTRV485 EQU CVTMAP+400 02298000 CVTRV484 EQU CVTMAP+396 02299000 CVTAUTH EQU CVTMAP+392 02300000 CVTATMCA EQU CVTATMCT+1 02301000 CVTATMST EQU CVTATMCT 02302000 CVTRSV61 EQU CVTMAP+384 02303000 CVTVOLT1 EQU CVTVOLM1+1 02304000 CVTVOLI1 EQU CVTVOLF1 02305000 CVTSTOA EQU CVTMAP+376 02306000 CVTRSV58 EQU CVTMAP+374 02307000 CVTRSV57 EQU CVTMAP+372 02308000 CVTDDCE EQU CVTMAP+368 02309000 CVTPNWFR EQU CVTMAP+364 02310000 CVTSMF EQU CVTMAP+360 02311000 CVTSULK EQU CVTMAP+358 02312000 CVTSLKO EQU CVTSYSK 02313000 CVTSLKP EQU CVTSYSK 02314000 CVTSLKQ EQU CVTSYSK 02315000 CVTSLKR EQU CVTSYSK 02316000 CVTRSV56 EQU CVTSYSK 02317000 CVTRSV55 EQU CVTSYSK 02318000 CVTRSV54 EQU CVTSYSK 02319000 CVTRSV53 EQU CVTSYSK 02320000 CVTRSV52 EQU CVTA1F1 02321000 CVTRSV51 EQU CVTA1F1 02322000 CVTRSV50 EQU CVTA1F1 02323000 CVTRSV49 EQU CVTA1F1 02324000 CVTRSV48 EQU CVTA1F1 02325000 CVTRSV47 EQU CVTA1F1 02326000 CVTSRSW EQU CVTA1F1 02327000 CVTPFSW EQU CVTA1F1 02328000 CVTPCVT EQU CVTMAP+352 02329000 CVTRSV46 EQU CVTMAP+344 02330000 CVTRSV45 EQU CVTMAP+340 02331000 CVTRSV44 EQU CVTMAP+338 02332000 CVTRSV43 EQU CVTMAP+336 02333000 CVTHJESA EQU CVTHJES+1 02334000 CVTRSV42 EQU CVTHJES 02335000 CVTEXT2A EQU CVTEXT2+1 02336000 CVTRSV41 EQU CVTEXT2 02337000 CVTAPFA EQU CVTAPF+1 02338000 CVTRSV40 EQU CVTAPF 02339000 CVTRV518 EQU CVTINTLA 02340000 CVTRV517 EQU CVTERPV 02341000 CVTEORM EQU CVTMAP+312 02342000 CVTMCHPR EQU CVTMAP+308 02343000 CVTTZ EQU CVTMAP+304 02344000 CVTJEPS EQU CVTMAP+300 02345000 CVTMODE EQU CVTMAP+292 02346000 CVTPTRV EQU CVTMAP+288 02347000 CVTREAL EQU CVTMAP+284 02348000 CVTRSV39 EQU CVTMAP+280 02349000 CVTRSV38 EQU CVTMAP+276 02350000 CVTDMSRA EQU CVTDMSR+1 02351000 CVTRSV37 EQU CVTDMSR 02352000 CVTQMSGA EQU CVTQMSG+1 02353000 CVTRSV36 EQU CVTQMSG 02354000 CVTAMFF EQU CVTMAP+264 02355000 CVTPURGA EQU CVTPURG+1 02356000 CVTRSV35 EQU CVTPURG 02357000 CVTCBSP EQU CVTMAP+256 02358000 CVTATERA EQU CVTATER+1 02359000 CVTSYST EQU CVTATER 02360000 CVTVOLT2 EQU CVTTAT 02361000 CVTVOLI2 EQU CVTVOLF2 02362000 CVTAQAVB EQU CVTAQAVT+1 02363000 CVTRSV34 EQU CVTTCMFG 02364000 CVTRSV33 EQU CVTTCMFG 02365000 CVTRSV32 EQU CVTTCMFG 02366000 CVTRSV31 EQU CVTTCMFG 02367000 CVTRSV30 EQU CVTTCMFG 02368000 CVTRSV29 EQU CVTTCMFG 02369000 CVTRSV28 EQU CVTTCMFG 02370000 CVTTCRDY EQU CVTTCMFG 02371000 CVTGTFA EQU CVTGTF+1 02372000 CVTRSV27 EQU CVTGTFST 02373000 CVTRNIO EQU CVTGTFST 02374000 CVTRV319 EQU CVTUSR 02375000 CVTRV318 EQU CVTFORM 02376000 CVTRV317 EQU CVTTMODE 02377000 CVTRV316 EQU CVTSTATE 02378000 CVTRV315 EQU CVTGTFS 02379000 CVTGTFAV EQU CVTGTFS 02380000 CVT0SCR1 EQU CVTMAP+232 02381000 CVTRV515 EQU CVTMAP+228 02382000 CVTRMS EQU CVTMAP+224 02383000 CVTPATCH EQU CVTMAP+220 02384000 CVTTSCE EQU CVTMAP+216 02385000 CVTLNKSC EQU CVTMAP+214 02386000 CVTQABST EQU CVTMAP+212 02387000 CVTMDLDS EQU CVTMAP+208 02388000 CVTUSER EQU CVTMAP+204 02389000 CVTABEND EQU CVTMAP+200 02390000 CVTSMCA EQU CVTMAP+196 02391000 CVTRSV18 EQU CVTMAP+192 02392000 CVTQLPAQ EQU CVTMAP+188 02393000 CVTQCDSR EQU CVTMAP+184 02394000 CVTRSV17 EQU CVTOPTB 02395000 CVTRSV16 EQU CVTOPTB 02396000 CVTFP EQU CVTOPTB 02397000 CVTAPTHR EQU CVTOPTB 02398000 CVTNLOG EQU CVTOPTB 02399000 CVTTOD EQU CVTOPTB 02400000 CVTCTIMS EQU CVTOPTB 02401000 CVTPROT EQU CVTOPTB 02402000 CVTXPFP EQU CVTOPTA 02403000 CVTASCII EQU CVTOPTA 02404000 CVTRSV13 EQU CVTOPTA 02405000 CVTRSV12 EQU CVTOPTA 02406000 CVTNIP EQU CVTOPTA 02407000 CVTDDR EQU CVTOPTA 02408000 CVTAPR EQU CVTOPTA 02409000 CVTCCH EQU CVTOPTA 02410000 CVTSNCTR EQU CVTMAP+180 02411000 CVTQMWR EQU CVTMAP+176 02412000 CVTQOCR EQU CVTMAP+172 02413000 CVT1EF00 EQU CVTMAP+168 02414000 CVTMZ00 EQU CVTMAP+164 02415000 CVTHEAD EQU CVTMAP+160 02416000 CVTRSV11 EQU CVTMAP+156 02417000 CVT0PT01 EQU CVTMAP+152 02418000 CVTMSER EQU CVTMAP+148 02419000 CVTRV516 EQU CVTIERLC 02420000 CVTILCH EQU CVTMAP+140 02421000 CVT0DS EQU CVTMAP+136 02422000 CVTFBOSV EQU CVTMAP+132 02423000 CVTNUCB EQU CVTMAP+128 02424000 CVTIXAVL EQU CVTMAP+124 02425000 CVTIOQET EQU CVTMAP+120 02426000 CVTDCBA EQU CVTMAP+117 02427000 CVTMVS2 EQU CVTDCB 02428000 CVT6DAT EQU CVTDCB 02429000 CVT4MPS EQU CVTDCB 02430000 CVTRSV09 EQU CVTDCB 02431000 CVT4MS1 EQU CVTDCB 02432000 CVT2SPS EQU CVTDCB 02433000 CVT1SSS EQU CVTDCB 02434000 CVTRSV08 EQU CVTDCB 02435000 CVTSTB EQU CVTMAP+112 02436000 CVTQTD00 EQU CVTMAP+108 02437000 CVTQTE00 EQU CVTMAP+104 02438000 CVTCUCB EQU CVTMAP+100 02439000 CVTSJQ EQU CVTMAP+96 02440000 CVTPBLDL EQU CVTMAP+92 02441000 CVTTPC EQU CVTMAP+88 02442000 CVTSVDCB EQU CVTMAP+84 02443000 CVTBRET EQU CVTMAP+82 02444000 CVTEXIT EQU CVTMAP+80 02445000 CVT0FN00 EQU CVTMAP+76 02446000 CVTDARA EQU CVTDAR+1 02447000 CVTRSV07 EQU CVTFLGS1 02448000 CVTRSV06 EQU CVTFLGS1 02449000 CVTRSV05 EQU CVTFLGS1 02450000 CVTRSV04 EQU CVTFLGS1 02451000 CVTRSV03 EQU CVTFLGS1 02452000 CVTRSV02 EQU CVTFLGS1 02453000 CVTRSV01 EQU CVTFLGS1 02454000 CVTDMPLK EQU CVTFLGS1 02455000 CVTXITP EQU CVTMAP+68 02456000 CVTZDTAB EQU CVTMAP+64 02457000 CVTMSLT EQU CVTMAP+60 02458000 CVTDATE EQU CVTMAP+56 02459000 CVTBTERM EQU CVTMAP+52 02460000 CVTSYSAD EQU CVTMAP+48 02461000 CVTXTLER EQU CVTMAP+44 02462000 CVTILK2 EQU CVTMAP+40 02463000 CVTILK1 EQU CVTMAP+36 02464000 CVTPRLTV EQU CVTMAP+32 02465000 CVTPCNVT EQU CVTMAP+28 02466000 CVT0VL00 EQU CVTMAP+24 02467000 CVTXAPG EQU CVTMAP+20 02468000 CVTBUF EQU CVTMAP+16 02469000 CVTJOB EQU CVTMAP+12 02470000 CVTLINK EQU CVTMAP+8 02471000 CVT0EF00 EQU CVTMAP+4 02472000 CVT EQU CVTMAP 02473000 APPNAMID EQU APPNMTBL+24 02474000 APPOFFST EQU APPENTRY+2 02475000 APPCOUNT EQU APPENTRY 02476000 APPSIZE EQU APPNMTBL+2 02477000 APPBAL EQU APPNMTBL 02478000 WTGETTR EQU WTGIDTTR+2 02479000 WTGOPD EQU WTGPATHS+1 02480000 WTGRECHK EQU WTGPATHS+1 02481000 WTGTSENQ EQU WTGPATHS+1 02482000 @NM00030 EQU WTGPATHS+1 02483000 WTGTRACE EQU WTGPATHS+1 02484000 @NM00029 EQU WTGPATHS 02485000 WTGJFCBW EQU WTGPATHS 02486000 WTGSMF EQU WTGPATHS 02487000 WTGTCOS EQU WTGPATHS 02488000 WTGNSL EQU WTGPATHS 02489000 WTGPRLSE EQU WTGPATHS 02490000 WTGLNG EQU WTG+29 02491000 WTGTXTLN EQU WTGAREA+27 02492000 WTGMODSZ EQU WTGAREA+24 02493000 WTGATTRB EQU WTGAREA+22 02494000 @NM00028 EQU WTGAREA+20 02495000 @NM00027 EQU WTGAREA+12 02496000 WTGMODID EQU WTGMODNM+6 02497000 @NM00026 EQU WTGMODNM 02498000 DSMADTW6 EQU DSMADTRL+20 02499000 DSMADTW5 EQU DSMADTRL+16 02500000 DSMADTW4 EQU DSMADTRL+12 02501000 DSMADTW3 EQU DSMADTRL+8 02502000 DSMADTW2 EQU DSMADTRL+4 02503000 DSMADTB4 EQU DSMADTW1+3 02504000 DSMADTB3 EQU DSMADTW1+2 02505000 @NM00025 EQU DSMADTB2 02506000 DSMDSNE EQU DSMADTB2 02507000 DSMTIOTE EQU DSMADTB2 02508000 DSMSMCE EQU DSMADTB2 02509000 DSMVTOCR EQU DSMADTB2 02510000 DSMASWAP EQU DSMADTB1 02511000 DSMUCBAL EQU DSMADTB1 02512000 DSMRPSAP EQU DSMADTB1 02513000 DSMLOCK EQU DSMADTB1 02514000 @NM00024 EQU DSMADTB1 02515000 DSMVIO EQU DSMADTB1 02516000 DSMISAM EQU DSMADTB1 02517000 RRFWORK EQU RRPLIST+20 02518000 RRMLRTRY EQU RRPLIST+16 02519000 RRUCBPTR EQU RRXRETRY 02520000 RR1RETRY EQU RRPLIST+8 02521000 RR1WRKAR EQU RRPLIST+4 02522000 @NM00023 EQU RRFLAGS3 02523000 RRFTERM EQU RRFLAGS3 02524000 RRFFCEXC EQU RRFLAGS3 02525000 RRFFINFC EQU RRFLAGS3 02526000 RRFNRTCA EQU RRFLAGS3 02527000 @NM00022 EQU RRFLAGS3 02528000 RRFENQUL EQU RRFLAGS2 02529000 RRFPRDET EQU RRFLAGS2 02530000 @NM00021 EQU RRFLAGS2 02531000 RRFQMNGR EQU RRFLAGS2 02532000 RRFENQPW EQU RRFLAGS2 02533000 @NM00020 EQU RRFLAGS2 02534000 RRFFIN1 EQU RRFLAGS2 02535000 RRFTRACE EQU RRFLAGS1 02536000 RRFSMF EQU RRFLAGS1 02537000 RRFNSL EQU RRFLAGS1 02538000 RRFAMSTR EQU RRFLAGS1 02539000 RRFAMEXR EQU RRFLAGS1 02540000 RRFAMEXG EQU RRFLAGS1 02541000 RRFUSREX EQU RRFLAGS1 02542000 @NM00019 EQU RRFLAGS1 02543000 RRFRJFCB EQU RRFUNCTN 02544000 RRFDADSM EQU RRFUNCTN 02545000 DXDCBLST EQU USERPRML 02546000 RWALIST EQU RWARESWA+12 02547000 RWAPARM EQU RWAPREFX+8 02548000 RWATRBUF EQU RWAPREFX+4 02549000 RWATRACE EQU RWAPREFX 02550000 IECQMNGR EQU IECEXTPR+92 02551000 IECMSGQA EQU IECEXTPR+88 02552000 IECDCBNO EQU IECUPRML 02553000 IECRRPRM EQU IECEXTPR+76 02554000 IECWTGTB EQU IECEXTPR+72 02555000 IECCORP2 EQU IECPREFX+28 02556000 IECCORP1 EQU IECPREFX+24 02557000 IECCORPS EQU IECPREFX+20 02558000 IECCORSP EQU IECPREFX+19 02559000 @NM00018 EQU IECPREFX+17 02560000 IECCORKY EQU IECPREFX+16 02561000 IECCORAD EQU IECPREFX+12 02562000 IECCORLN EQU IECPREFX+8 02563000 @NM00017 EQU IECPREFX+4 02564000 IECCORID EQU IECPREFX 02565000 DXATEXB2 EQU DXATEXC2 02566000 DXATCOM4 EQU FORCORE+600 02567000 DXATCOM3 EQU FORCORE+596 02568000 @NM00013 EQU DXATCOM2+3 02569000 @NM00012 EQU DXATALL 02570000 DXATSWAP EQU DXATALL 02571000 DXATFC EQU DXATALL 02572000 @NM00011 EQU DXATOPEN 02573000 DXATDFIN EQU DXATOPEN 02574000 DXATDSIN EQU DXATOPEN 02575000 DXATMODM EQU DXATOPEN 02576000 DXATMODE EQU DXATOPEN 02577000 DXATMODS EQU DXATOPEN 02578000 DXATIGN EQU DXATOPEN 02579000 DXATVCAT EQU DXATEOV 02580000 DXATDADM EQU DXATEOV 02581000 DXATREMT EQU DXATEOV 02582000 DXATDNEW EQU DXATEOV 02583000 DXATDFRE EQU DXATEOV 02584000 DXATDCHN EQU DXATEOV 02585000 DXATNVOL EQU DXATEOV 02586000 DXATCCAT EQU DXATEOV 02587000 DXATRDDB EQU DXATDACC 02588000 DXATEOF EQU DXATDACC 02589000 @NM00010 EQU DXATDACC 02590000 DXATSMF EQU DXATDACC 02591000 DXATUPDB EQU DXATDACC 02592000 DXATDRCT EQU DXATDACC 02593000 DXATTRAK EQU DXATDACC 02594000 DXATF1CE EQU DXATDACC 02595000 DXATNSL EQU DXATOUTA 02596000 DXATTTM2 EQU DXATOUTA 02597000 DXATTTM1 EQU DXATOUTA 02598000 DXATTRL2 EQU DXATOUTA 02599000 DXATTRL1 EQU DXATOUTA 02600000 DXATDATM EQU DXATOUTA 02601000 DXATHDTM EQU DXATOUTA 02602000 DXATVLHD EQU DXATOUTA 02603000 DXATCLOS EQU DXATCOM1+1 02604000 DXATSRET EQU DXATGENS 02605000 DXATVCIG EQU DXATVGIV 02606000 DXATVTMG EQU DXATVGIV 02607000 DXATVSMG EQU DXATVGIV 02608000 DXATJFCB EQU DXATGENS 02609000 DXATDISP EQU DXATGENS 02610000 DXATREFR EQU DXATGENS 02611000 DXATDMCT EQU DXATGENS 02612000 DXMSGADR EQU FORCORE+584 02613000 DXPRPARC EQU FORCORE+580 02614000 DXUDCBML EQU FORCORE+578 02615000 DXUDCBPL EQU FORCORE+576 02616000 DXPACBAD EQU DXPDCBAD+1 02617000 @NM00009 EQU DXPDCBAD 02618000 DXUACBAD EQU DXUDCBAD+1 02619000 @NM00008 EQU DXUDCBAD 02620000 DXUCBSVV EQU DXUCBSAV+1 02621000 @NM00007 EQU DXUCBSAV 02622000 DXUCBADR EQU FORCORE+560 02623000 DXTIOTAD EQU FORCORE+556 02624000 DXDEBXAD EQU FORCORE+552 02625000 DXDSAB EQU FORCORE+548 02626000 DXDSABQD EQU FORCORE+540 02627000 DXJSCBAD EQU FORCORE+536 02628000 DXASCBAD EQU FORCORE+528 02629000 DXEXTSW EQU FORCORE+527 02630000 DXWKEYSV EQU FORCORE+525 02631000 DXUNITOF EQU FORCORE+522 02632000 DXNOUNIT EQU FORCORE+520 02633000 DXVOLSEQ EQU FORCORE+518 02634000 DXVOLMT3 EQU DXVOLSR3 02635000 DXVOLMT2 EQU DXVOLSR2 02636000 DXVOLMT1 EQU DXVOLSR1 02637000 DXWORK4 EQU FORCORE+496 02638000 DXWORK3 EQU FORCORE+492 02639000 DXWORK2 EQU FORCORE+488 02640000 DXWORK1 EQU FORCORE+484 02641000 DXWORK EQU FORCORE+480 02642000 @NM00006 EQU FORCORE+464 02643000 DXCCW11 EQU DXCCW+80 02644000 DXCCW10 EQU DXCCW+72 02645000 DXCCW9 EQU DXCCW+64 02646000 DXCCW7 EQU DXCCW+48 02647000 DXCCW6 EQU DXCCW+40 02648000 DXCCW4 EQU DXCCW+24 02649000 DXCCW3 EQU DXCCW+16 02650000 DXCCW2 EQU DXCCW+8 02651000 DXDCBDEB EQU DXDCB+44 02652000 @NM00005 EQU DXDCB+24 02653000 DXDEBDCB EQU DXDCB+20 02654000 @NM00004 EQU DXDCB 02655000 DXDEB EQU DXDAADDR+4 02656000 @NM00003 EQU DXDAADDR 02657000 DXIOB EQU FORCORE+280 02658000 DXECB EQU FORCORE+276 02659000 DSCCORE EQU FORCORE+96 02660000 CURRTCB EQU TCBPTRS+5 02661000 @NM00002 EQU TCBPTRS+4 02662000 NEXTTCB EQU TCBPTRS+1 02663000 @NM00001 EQU TCBPTRS 02664000 PARMIN EQU ACBOPATB 02665000 FILPAD EQU ACBOPATB 02666000 @NM00056 EQU PSA+3412 02667000 PSASTAK EQU PSA+3072 02668000 @NM00055 EQU PSA+1032 02669000 PSAUSEND EQU PSA+1032 02670000 PSAPCPSW EQU PSA+1024 02671000 PSARV060 EQU PSA+1020 02672000 PSARV059 EQU PSA+1018 02673000 PSASVC13 EQU PSA+1016 02674000 PSALSFCC EQU PSA+1012 02675000 PSASFACC EQU PSA+1008 02676000 PSASTOP EQU PSA+992 02677000 PSASTART EQU PSA+976 02678000 PSARSPSW EQU PSA+968 02679000 PSASRPSW EQU PSA+960 02680000 PSARV045 EQU PSA+892 02681000 PSARV044 EQU PSA+888 02682000 PSARV043 EQU PSA+884 02683000 PSARV042 EQU PSA+880 02684000 PSARV041 EQU PSA+876 02685000 PSARV040 EQU PSA+872 02686000 PSARV025 EQU PSA+868 02687000 PSADSSED EQU PSA+868 02688000 PSADSSPR EQU PSA+864 02689000 PSADSSFW EQU PSA+860 02690000 PSADSS14 EQU PSA+856 02691000 PSADSSPP EQU PSA+848 02692000 PSADSSRP EQU PSA+840 02693000 PSADSS05 EQU PSADSSF4 02694000 PSADSS10 EQU PSADSSF4 02695000 PSADSSVE EQU PSADSSF4 02696000 PSADSSDE EQU PSADSSF4 02697000 PSADSSC0 EQU PSADSSF4 02698000 PSADSSIE EQU PSADSSF4 02699000 PSADSS12 EQU PSADSSF4 02700000 PSADSSRC EQU PSADSSF4 02701000 PSARV057 EQU PSADSSF3 02702000 PSARV056 EQU PSADSSF3 02703000 PSARV055 EQU PSADSSF3 02704000 PSADSSMC EQU PSADSSF3 02705000 PSADSSRW EQU PSADSSF3 02706000 PSADSSNM EQU PSADSSF3 02707000 PSADSSES EQU PSADSSF3 02708000 PSADSSGP EQU PSADSSF3 02709000 PSADSSF2 EQU PSADSSFL+1 02710000 PSADSSPI EQU PSADSSF1 02711000 PSADSSOI EQU PSADSSF1 02712000 PSADSSSP EQU PSADSSF1 02713000 PSADSSTP EQU PSADSSF1 02714000 PSADSSDW EQU PSADSSF1 02715000 PSADSSDD EQU PSADSSF1 02716000 PSADSSDM EQU PSADSSF1 02717000 PSADSSMV EQU PSADSSF1 02718000 PSADSSTS EQU PSA+816 02719000 PSADSSWK EQU PSA+812 02720000 PSADSSR3 EQU PSA+808 02721000 PSADSSR2 EQU PSA+804 02722000 PSADSSRS EQU PSA+800 02723000 PSASTOR EQU PSA+796 02724000 PSACPUSA EQU PSA+794 02725000 PSAVSTAP EQU PSA+792 02726000 PSAWKVAP EQU PSA+788 02727000 PSAWKRAP EQU PSA+784 02728000 PSAMCHIC EQU PSA+783 02729000 PSARV061 EQU PSA+782 02730000 PSASYMSK EQU PSA+781 02731000 PSAMCHFL EQU PSA+780 02732000 PSACR0 EQU PSA+776 02733000 PSAPSWSV EQU PSA+768 02734000 PSALITA EQU PSA+764 02735000 PSACLHS EQU PSAHLHI 02736000 PSALKR15 EQU PSALKSA+60 02737000 PSALKR14 EQU PSALKSA+56 02738000 PSALKR13 EQU PSALKSA+52 02739000 PSALKR12 EQU PSALKSA+48 02740000 PSALKR11 EQU PSALKSA+44 02741000 PSALKR10 EQU PSALKSA+40 02742000 PSALKR9 EQU PSALKSA+36 02743000 PSALKR8 EQU PSALKSA+32 02744000 PSALKR7 EQU PSALKSA+28 02745000 PSALKR6 EQU PSALKSA+24 02746000 PSALKR5 EQU PSALKSA+20 02747000 PSALKR4 EQU PSALKSA+16 02748000 PSALKR3 EQU PSALKSA+12 02749000 PSALKR2 EQU PSALKSA+8 02750000 PSALKR1 EQU PSALKSA+4 02751000 PSALKR0 EQU PSALKSA 02752000 PSARV023 EQU PSACLHT+52 02753000 PSALOCAL EQU PSACLHT+48 02754000 PSACMSL EQU PSACLHT+44 02755000 PSAOPTL EQU PSACLHT+40 02756000 PSATPACL EQU PSACLHT+36 02757000 PSATPDNL EQU PSACLHT+32 02758000 PSATPNCL EQU PSACLHT+28 02759000 PSAIOSLL EQU PSACLHT+24 02760000 PSAIOSUL EQU PSACLHT+20 02761000 PSAIOSCL EQU PSACLHT+16 02762000 PSAIOSSL EQU PSACLHT+12 02763000 PSASALCL EQU PSACLHT+8 02764000 PSAASML EQU PSACLHT+4 02765000 PSADISPL EQU PSACLHT 02766000 PSASRSA EQU PSA+636 02767000 PSARV050 EQU PSA+634 02768000 PSADSSGO EQU PSA+633 02769000 PSARECUR EQU PSA+632 02770000 PSAHLHIS EQU PSA+628 02771000 PSAIPCSA EQU PSA+624 02772000 @NM00054 EQU PSA+621 02773000 PSAIPCDM EQU PSA+620 02774000 PSAIPCD EQU PSA+616 02775000 @NM00053 EQU PSA+613 02776000 PSAIPCRM EQU PSA+612 02777000 PSAIPCR EQU PSA+608 02778000 PSAMCHEX EQU PSA+600 02779000 PSAMPSW EQU PSA+592 02780000 PSAEXPS2 EQU PSA+584 02781000 PSAEXPS1 EQU PSA+576 02782000 PSAPIREG EQU PSA+572 02783000 PSARSREG EQU PSA+568 02784000 PSAGPREG EQU PSA+556 02785000 PSARV022 EQU PSASUP4 02786000 PSARV021 EQU PSASUP4 02787000 PSARV020 EQU PSASUP4 02788000 PSARV019 EQU PSASUP4 02789000 PSARV018 EQU PSASUP4 02790000 PSARV017 EQU PSASUP4 02791000 PSARV016 EQU PSASUP4 02792000 PSARV015 EQU PSASUP4 02793000 PSARV014 EQU PSASUP3 02794000 PSARV013 EQU PSASUP3 02795000 PSARV012 EQU PSASUP3 02796000 PSARV011 EQU PSASUP3 02797000 PSARV010 EQU PSASUP3 02798000 PSARV009 EQU PSASUP3 02799000 PSARV008 EQU PSASUP3 02800000 PSAIOSUP EQU PSASUP3 02801000 PSALCR EQU PSASUP2 02802000 PSARTM EQU PSASUP2 02803000 PSAACR EQU PSASUP2 02804000 PSAIPCE2 EQU PSASUP2 02805000 PSAIPCES EQU PSASUP2 02806000 PSAIPCEC EQU PSASUP2 02807000 PSAGTF EQU PSASUP2 02808000 PSAIPCRI EQU PSASUP2 02809000 PSAIPCRP EQU PSASUP1 02810000 PSAIPCDR EQU PSASUP1 02811000 PSADISP EQU PSASUP1 02812000 PSALOCK EQU PSASUP1 02813000 PSAPI EQU PSASUP1 02814000 PSAEXT EQU PSASUP1 02815000 PSASVC EQU PSASUP1 02816000 PSAIO EQU PSASUP1 02817000 PSAAOLD EQU PSA+548 02818000 PSAANEW EQU PSA+544 02819000 PSATOLD EQU PSA+540 02820000 PSATNEW EQU PSA+536 02821000 PSALCCAR EQU PSA+532 02822000 PSALCCAV EQU PSA+528 02823000 PSAPCCAR EQU PSA+524 02824000 PSAPCCAV EQU PSA+520 02825000 PSACPULA EQU PSA+518 02826000 PSACPUPA EQU PSA+516 02827000 PSAPSA EQU PSA+512 02828000 FLCHDEND EQU PSA+512 02829000 FLCCRSAV EQU FLCMCLA+280 02830000 FLCGRSAV EQU FLCMCLA+216 02831000 FLCFPSAV EQU FLCMCLA+184 02832000 FLCFLA EQU FLCMCLA+88 02833000 FLCRGNCD EQU FLCMCLA+84 02834000 FLCFSAA EQU FLCFSA+1 02835000 @NM00052 EQU FLCFSA 02836000 @NM00051 EQU FLCMCLA+72 02837000 FLCMCIC EQU FLCMCLA+64 02838000 @NM00050 EQU FLCMCLA+20 02839000 FLCIOAA EQU FLCIOA+1 02840000 @NM00049 EQU FLCIOA 02841000 @NM00048 EQU FLCMCLA+15 02842000 @NM00047 EQU FLCMCLA+14 02843000 @NM00046 EQU FLCMCLA+12 02844000 FLCLCL EQU FLCMCLA+8 02845000 FLCIOELA EQU FLCIOEL+1 02846000 @NM00045 EQU FLCIOEL 02847000 FLCCHNID EQU FLCMCLA 02848000 @NM00044 EQU PSA+160 02849000 FLCMTRCD EQU PSA+157 02850000 @NM00043 EQU PSA+156 02851000 FLCPERA EQU FLCPER+1 02852000 @NM00042 EQU FLCPER 02853000 @NM00041 EQU PSA+151 02854000 FLCPERCD EQU PSA+150 02855000 FLCMCNUM EQU PSA+149 02856000 @NM00040 EQU PSA+148 02857000 FLCTEAA EQU FLCTEA+1 02858000 @NM00039 EQU FLCTEA 02859000 PSAPIPC EQU PSAPICOD 02860000 PSAPIMC EQU PSAPICOD 02861000 PSAPIPER EQU PSAPICOD 02862000 PSARV049 EQU FLCPICOD 02863000 FLCPILCB EQU FLCPIILC 02864000 @NM00038 EQU FLCPIILC 02865000 @NM00037 EQU PSAEPPSW 02866000 FLCSVCN EQU PSAESPSW+2 02867000 FLCSILCB EQU FLCSVILC 02868000 @NM00036 EQU FLCSVILC 02869000 @NM00035 EQU PSAESPSW 02870000 FLCEICOD EQU PSAEEPSW+2 02871000 PSASPAD EQU PSAEEPSW 02872000 @NM00034 EQU PSA+128 02873000 FLCINPSW EQU PSA+120 02874000 FLCMNPSW EQU PSA+112 02875000 FLCPNPSW EQU PSA+104 02876000 FLCSNPSW EQU PSA+96 02877000 FLCENPSW EQU PSA+88 02878000 FLCTRACE EQU PSA+84 02879000 FLCTIMER EQU PSA+80 02880000 FLCCVT2 EQU PSA+76 02881000 FLCCAW EQU PSA+72 02882000 FLCCSW EQU PSA+64 02883000 FLCIOPSW EQU PSA+56 02884000 FLCMOPSW EQU PSA+48 02885000 FLCPOPSW EQU PSA+40 02886000 FLCSOPSW EQU PSA+32 02887000 FLCEOPSW EQU PSA+24 02888000 @NM00033 EQU FLCICCW2+4 02889000 FLCCVT EQU FLCICCW2 02890000 FLCICCW1 EQU FLCROPSW 02891000 FLCIPPSW EQU FLCRNPSW 02892000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02893000 @RT00160 EQU CHAINDEB 02894000 @RT00186 EQU SERCHWTG 02895000 @RT00191 EQU BEGIN 02896000 @RF00191 EQU NEXTACB 02897000 @RC00196 EQU @EL00001 02898000 FINISH EQU @EL00001 02899000 @ENDDATA EQU * 02900000 END IGG0193K,(C'PLS0006',0602,75026) 02901000