TITLE 'IEAVAD03 - CONTROL BLOCKS I FOR RTMS SNAP/ABEND DUMPS *00001000 ' 00002000 IEAVAD03 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVAD03 77.049' 0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 0001 00010000 STM @00,@12,20(@13) 0001 00011000 BALR @11,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@11 0001 00014000 RBPRFXLN EQU 64 00015000 RBPRFLNA EQU 32 00016000 PRBLEN EQU 136 00017000 SIRBLEN EQU 200 00018000 TIRBLEN EQU 136 00019000 IRBLEN EQU 128 00020000 SVRBLEN EQU 224 00021000 * @G33CPHE*/ 00022000 */********************************************************************/ 00023000 */* */ 00024000 */* */ 00025000 */* INITIALIZATION ON ENTRY */ 00026000 */* FIRST THE ADDRESSING REGISTERS ARE INITIALIZED, THEN A SAVE AREA */ 00027000 */* FOR THE REGISTER SAVE AREA AND AUTOMATIC DATA AREA IS OBTAINED */ 00028000 */* FROM LSQA. THE ADDRESS OF THE AREA IS RETURNED IN ABDGMA, AND */ 00029000 */*THE ADDRESS OF THE GETMAIN PARAMETER LIST IS PASSED IN REGISTER 1.*/ 00030000 */* NEXT THE SAVE AREAS ARE CHAINED, AND THE TEMPORARY WORK AREA */ 00031000 */* @ZTEMPS IS CLEARED TO ZEROS SO THAT THE BOUNDARY ADJUSTMENT MOVES*/ 00032000 */* CAN BE DONE PROPERLY. */ 00033000 */* */ 00034000 */* */ 00035000 */********************************************************************/ 00036000 * 0121 00037000 * ABDARPTR=PARMPTR; /* THE ABDAREA POINTER IS 0121 00038000 * INITIALIZED FROM THE VALUE IN 00039000 * REGISTER 1 */ 00040000 LR ABDARPTR,PARMPTR 0121 00041000 * PARMPTR=ADDR(ABDASIZE); /* REGISTER 1 POINTS @@Y02705 00042000 * TO THE GETMAIN PARAMETER LIST */ 00043000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0122 00044000 * GENERATE; 0123 00045000 GETMAIN EC,LV=@ENDDATD-@DATD+72, *00046000 SP=253, *00047000 A=ABDGMA(ABDARPTR), *00048000 MF=(E,(1)) 00049000 * IF RETCODE^=0 /* IF GETMAIN IS UNSUCCESSFUL */ 00050000 * THEN /* RETURN IMMEDIATELY. */ 00051000 LTR RETCODE,RETCODE 0124 00052000 BZ @RF00124 0124 00053000 * DO; /* @Y02705*/ 00054000 * RETCODE=8; /* GETMAIN UNSUCESSFUL @Y02705*/ 00055000 LA RETCODE,8 0126 00056000 * RETURN; /* OTHERWISE CONTINUE */ 00057000 @EL00001 DS 0H 0127 00058000 @EF00001 DS 0H 0127 00059000 @ER00001 L @14,12(,@13) 0127 00060000 LM @00,@12,20(@13) 0127 00061000 BR @14 0127 00062000 * END; /* @Y02705*/ 00063000 * ELSE /* @Y02705*/ 00064000 * DO; /* @Y02705*/ 00065000 @RF00124 DS 0H 0130 00066000 * PARMPTR=ABDAAREA; /* USE PARMPTR AS TEMPORARY 0130 00067000 * POINTER TO SAVE AREA */ 00068000 L PARMPTR,ABDAAREA(,ABDARPTR) 0130 00069000 * NEXSAPTR=PARMPTR; /* INITIALIZE NEXT SAVE AREA 0131 00070000 * POINTER IN OLD SAVE AREA */ 00071000 ST PARMPTR,NEXSAPTR(,SAVEPTR) 0131 00072000 * PRESAPTR=SAVEPTR; /* INITIALIZE PREVIOUS SAVE AREA 00073000 * POINTER IN NEW AREA */ 00074000 ST SAVEPTR,PRESAPTR(,PARMPTR) 0132 00075000 * SAVEPTR=PARMPTR; /* SET SAVE REGISTER TO NEW SAVE 00076000 * AREA ADDRESS */ 00077000 LR SAVEPTR,PARMPTR 0133 00078000 * AUTOPTR=SAVEPTR+72; /* SET UP AUTOMATIC DATA 0134 00079000 * ADDRESSABILITY BEYOND SAVE 0134 00080000 * AREA */ 00081000 LA AUTOPTR,72 0134 00082000 ALR AUTOPTR,SAVEPTR 0134 00083000 * GENERATE; 0135 00084000 USING @DATD,AUTOPTR ESTABLISH ADDRESSABILITY 00085000 XC 0(@ENDDATD-@DATD,AUTOPTR),0(AUTOPTR) ZERO TEMP SPACE 00086000 * 0136 00087000 */* THE FIRST SECTION OF CODE FORMATS AND DISPLAYS THE ASCB. @Y02705*/ 00088000 */* THE ADDRESS OF THE CURRENT ASCB IS OBTAINED FROM THE PSA. @Y02705*/ 00089000 * 0136 00090000 * PARMPTR=ABDARPTR; /* GET WORK AREA PTR@Y02705 */ 00091000 LR PARMPTR,ABDARPTR 0136 00092000 * ABDCC='0'; /* DOUBLE SPACE LINE ONE @Y02705*/ 00093000 MVI ABDCC(ABDARPTR),C'0' 0137 00094000 * ABDWORKA=PSAAOLD; /* GET ASCB ADDR @Y02705*/ 00095000 MVC ABDWORKA(4,ABDARPTR),PSAAOLD 0138 00096000 * ABDBPTR=ADDR(ABDWORKA); /* SET UP PTR TO ADDR @Y02705*/ 00097000 LA @10,ABDWORKA(,ABDARPTR) 0139 00098000 ST @10,ABDBPTR(,ABDARPTR) 0139 00099000 * ABDLLINE=ADDR(ASCBLINE); /* POINT TO ASCB LAYOUT LINE 0140 00100000 * @Y02705*/ 00101000 LA @10,ASCBLINE 0140 00102000 ST @10,ABDLLINE(,ABDARPTR) 0140 00103000 * CALL IEAVAD31; /* FORMAT ASCB ADDRESS */ 00104000 L @15,@CV00082 0141 00105000 BALR @14,@15 0141 00106000 * IF RETCODE^=0 THEN /* DID ERROR OCCUR */ 00107000 LTR RETCODE,RETCODE 0142 00108000 BNZ @RT00142 0142 00109000 * GOTO FREERET; /* YES, RETURN */ 00110000 * CALL IEAVAD11; /* PRINT ASCB ADDRESS LINE */ 00111000 L @15,@CV00081 0144 00112000 BALR @14,@15 0144 00113000 * ABDBPTR=PSAAOLD; /* GET PTR TO ASCB @Y02705*/ 00114000 MVC ABDBPTR(4,ABDARPTR),PSAAOLD 0145 00115000 * ABDLLINE=ADDR(ASCBLNE); 0146 00116000 LA @10,ASCBLNE 0146 00117000 ST @10,ABDLLINE(,ABDARPTR) 0146 00118000 * FMCOUNT=9; /* FORMAT & OUTPUT 9 LINES 0147 00119000 * @Y02705*/ 00120000 LA FMCOUNT,9 0147 00121000 * DO FMCOUNT=FMCOUNT TO 1 BY-1;/* LOOP 9 TIMES @Y02705*/ 00122000 B @DE00148 0148 00123000 @DL00148 DS 0H 0149 00124000 * CALL IEAVAD31; /* FORMAT ASCB LINE @Y02705*/ 00125000 L @15,@CV00082 0149 00126000 BALR @14,@15 0149 00127000 * IF RETCODE^=0 THEN /* DID ERROR OCCUR? @Y02705*/ 00128000 LTR RETCODE,RETCODE 0150 00129000 BNZ @RT00150 0150 00130000 * GOTO FREERET; /* YES RETURN @Y02705*/ 00131000 * CALL IEAVAD11; /* PRINT ASCB LINE @Y02705*/ 00132000 L @15,@CV00081 0152 00133000 BALR @14,@15 0152 00134000 * CVTPTR=FLCCVT; /* GET CVT ADDRESS */ 00135000 L CVTPTR,FLCCVT 0153 00136000 * RESPECIFY 0154 00137000 * CVTPTR RESTRICTED; 0154 00138000 * END; /* @Y02705*/ 00139000 BCTR FMCOUNT,0 0155 00140000 @DE00148 LTR FMCOUNT,FMCOUNT 0155 00141000 BP @DL00148 0155 00142000 * 0156 00143000 * /*************************************************************/ 00144000 * /* */ 00145000 * /* THIS SECTION OF CODE FORMATS AND DISPLAYS THE TCB OF THE */ 00146000 * /* TASK BEING DUMPED. THE REGISTER SAVEAREA IN THE TCB IS */ 00147000 * /* ONLY FORMATTED IF THE CURRENT TASK IN CONTROL IS BEING */ 00148000 * /* DUMPED. @G33SPHW*/ 00149000 * /* */ 00150000 * /*************************************************************/ 00151000 * 0156 00152000 *TCBOUT: 0156 00153000 * PARMPTR=ABDARPTR; /* SET UP SUBROUTINE PARM REG */ 00154000 TCBOUT LR PARMPTR,ABDARPTR 0156 00155000 * TCBPTR=ABDTCB; /* GET THE TCB ADDRESS BEING 0157 00156000 * DUMPED */ 00157000 L TCBPTR,ABDTCB(,ABDARPTR) 0157 00158000 * ABDCC='0'; /* DOUBLE SPACE FIRST LINE */ 00159000 MVI ABDCC(ABDARPTR),C'0' 0158 00160000 * ABDWORKA=TCBPTR; /* SET UP TCBADDRESS TO FMAT */ 00161000 ST TCBPTR,ABDWORKA(,ABDARPTR) 0159 00162000 * ABDBPTR=ADDR(ABDWORKB); /* POINT TO ADDRESS */ 00163000 LA @10,ABDWORKB(,ABDARPTR) 0160 00164000 ST @10,ABDBPTR(,ABDARPTR) 0160 00165000 * ABDLLINE=ADDR(TCBLN1); /* POINT TO TCB LAYOUT LINE */ 00166000 LA @10,TCBLN1 0161 00167000 ST @10,ABDLLINE(,ABDARPTR) 0161 00168000 * CALL IEAVAD31; /* FORMAT HEADER FOR TCB */ 00169000 L @15,@CV00082 0162 00170000 BALR @14,@15 0162 00171000 * IF RETCODE^=0 /* IF ERRED */ 00172000 * THEN /* LEAVE WITH */ 00173000 LTR RETCODE,RETCODE 0163 00174000 BNZ @RT00163 0163 00175000 * GOTO FREERET; /* BAD CODE */ 00176000 * CALL IEAVAD11; /* OUTPUT TCB HEADER @G33SPHW*/ 00177000 L @15,@CV00081 0165 00178000 BALR @14,@15 0165 00179000 * IF RETCODE^=0 /* IF ERRED @G33SPHW*/ 00180000 * THEN /* LEAVE WITH @G33SPHW*/ 00181000 LTR RETCODE,RETCODE 0166 00182000 BNZ @RT00166 0166 00183000 * GOTO FREERET; /* BAD CODE @G33SPHW*/ 00184000 * ABDBPTR=TCBPTR; /* SET UP POINTER TO TCB */ 00185000 ST TCBPTR,ABDBPTR(,ABDARPTR) 0168 00186000 * CALL IEAVAD31; /* FINISH FORMATTING LINE 1 */ 00187000 L @15,@CV00082 0169 00188000 BALR @14,@15 0169 00189000 * IF RETCODE^=0 /* IF ERRED */ 00190000 * THEN /* LEAVE WITH */ 00191000 LTR RETCODE,RETCODE 0170 00192000 BNZ @RT00170 0170 00193000 * GOTO FREERET; /* BAD CODE */ 00194000 * CALL IEAVAD11; /* OUTPUT LINE 1 OF TCB */ 00195000 L @15,@CV00081 0172 00196000 BALR @14,@15 0172 00197000 * IF RETCODE^=0 /* IF ERRED */ 00198000 * THEN /* LEAVE WITH */ 00199000 LTR RETCODE,RETCODE 0173 00200000 BNZ @RT00173 0173 00201000 * GOTO FREERET; /* BAD CODE */ 00202000 * CALL IEAVAD31; /* FORMAT LINE 2 */ 00203000 L @15,@CV00082 0175 00204000 BALR @14,@15 0175 00205000 * IF RETCODE^=0 /* IF ERRED */ 00206000 * THEN /* LEAVE WITH */ 00207000 LTR RETCODE,RETCODE 0176 00208000 BNZ @RT00176 0176 00209000 * GOTO FREERET; /* BAD CODE */ 00210000 * CALL IEAVAD11; /* OUTPUT LINE 2 OF TCB */ 00211000 L @15,@CV00081 0178 00212000 BALR @14,@15 0178 00213000 * IF RETCODE^=0 /* IF ERRED */ 00214000 * THEN /* LEAVE WITH */ 00215000 LTR RETCODE,RETCODE 0179 00216000 BNZ @RT00179 0179 00217000 * GOTO FREERET; /* BAD CODE */ 00218000 * IF TCBPTR^=ABDCTCB /* IF CURRENT TASK BEING DUMPD */ 00219000 * THEN /* DO NOT DO THE REG SAVE AREA */ 00220000 C TCBPTR,ABDCTCB(,ABDARPTR) 0181 00221000 BE @RF00181 0181 00222000 * DO; /* FORMAT REG LINES BFORE LINE 3 00223000 * OF THE TCB */ 00224000 * ABDLLINE=ADDR(REGS1); /* SET UP TO DO REGS */ 00225000 LA @10,REGS1 0183 00226000 ST @10,ABDLLINE(,ABDARPTR) 0183 00227000 * ABDBPTR=ADDR(TCBGRS); /* POINT TO REGS */ 00228000 LA @10,TCBGRS(,TCBPTR) 0184 00229000 ST @10,ABDBPTR(,ABDARPTR) 0184 00230000 * CALL IEAVAD31; /* FORMAT REGS 0-7 */ 00231000 L @15,@CV00082 0185 00232000 BALR @14,@15 0185 00233000 * IF RETCODE^=0 /* IF ERRED */ 00234000 * THEN /* LEAVE WITH */ 00235000 LTR RETCODE,RETCODE 0186 00236000 BNZ @RT00186 0186 00237000 * GOTO FREERET; /* BAD CODE */ 00238000 * CALL IEAVAD11; /* OUPUT REGS 0-7 */ 00239000 L @15,@CV00081 0188 00240000 BALR @14,@15 0188 00241000 * IF RETCODE^=0 /* IF ERRED */ 00242000 * THEN /* LEAVE WITH */ 00243000 LTR RETCODE,RETCODE 0189 00244000 BNZ @RT00189 0189 00245000 * GOTO FREERET; /* BAD CODE */ 00246000 * CALL IEAVAD31; /* FORMAT REGS 8-15 */ 00247000 L @15,@CV00082 0191 00248000 BALR @14,@15 0191 00249000 * IF RETCODE^=0 /* IF ERRED */ 00250000 * THEN /* LEAVE WITH */ 00251000 LTR RETCODE,RETCODE 0192 00252000 BNZ @RT00192 0192 00253000 * GOTO FREERET; /* BAD CODE */ 00254000 * CALL IEAVAD11; /* OUPUT REGS 8-15 */ 00255000 L @15,@CV00081 0194 00256000 BALR @14,@15 0194 00257000 * IF RETCODE^=0 /* IF ERRED */ 00258000 * THEN /* LEAVE WITH */ 00259000 LTR RETCODE,RETCODE 0195 00260000 BNZ @RT00195 0195 00261000 * GOTO FREERET; /* BAD CODE */ 00262000 * END; /* END OF REGS PROCESS */ 00263000 * ABDBPTR=ADDR(TCBFSA); /* POINT TO NEXT FIELD TO FMAT */ 00264000 @RF00181 LA @10,TCBFSA(,TCBPTR) 0198 00265000 ST @10,ABDBPTR(,ABDARPTR) 0198 00266000 * ABDLLINE=ADDR(TCBLN3); /* POINT TO LINE 3 LAYOUT */ 00267000 * 0199 00268000 LA @10,TCBLN3 0199 00269000 ST @10,ABDLLINE(,ABDARPTR) 0199 00270000 * /*************************************************************/ 00271000 * /* */ 00272000 * /* YM4126 */ 00273000 * /* */ 00274000 * /*************************************************************/ 00275000 * 0200 00276000 * FMCOUNT=8; /* FORMAT AND OUTPUT 9 LINES */ 00277000 LA FMCOUNT,8 0200 00278000 * DO FMCOUNT=FMCOUNT TO 1 BY-1;/* LOOP THROUTH 9 TIMES */ 00279000 B @DE00201 0201 00280000 @DL00201 DS 0H 0202 00281000 * CALL IEAVAD31; /* FORMAT LINES 3-10 @Y02705*/ 00282000 L @15,@CV00082 0202 00283000 BALR @14,@15 0202 00284000 * IF RETCODE^=0 /* IF ERRED */ 00285000 * THEN /* LEAVE WITH */ 00286000 LTR RETCODE,RETCODE 0203 00287000 BNZ @RT00203 0203 00288000 * GOTO FREERET; /* BAD CODE */ 00289000 * CALL IEAVAD11; /* OUTPUT LINE OF TCB */ 00290000 L @15,@CV00081 0205 00291000 BALR @14,@15 0205 00292000 * IF RETCODE^=0 /* IF ERRED */ 00293000 * THEN /* LEAVE WITH */ 00294000 LTR RETCODE,RETCODE 0206 00295000 BNZ @RT00206 0206 00296000 * GOTO FREERET; /* BAD CODE */ 00297000 * END; /* END OF LINE 3-10 PROCESS */ 00298000 BCTR FMCOUNT,0 0208 00299000 @DE00201 LTR FMCOUNT,FMCOUNT 0208 00300000 BP @DL00201 0208 00301000 * ABDBPTR=TCBEXT2; /* POINT TO ADDRESS @ZM44945*/ 00302000 MVC ABDBPTR(4,ABDARPTR),TCBEXT2(TCBPTR) 0209 00303000 * ABDLLINE=ADDR(TCBEXLN1); /* POINT TO TCB EXTENSION LAYOUT 00304000 * LINE @ZM44945*/ 00305000 LA @10,TCBEXLN1 0210 00306000 ST @10,ABDLLINE(,ABDARPTR) 0210 00307000 * CALL IEAVAD31; /* FORMAT TCB EXTENSION @ZM44945*/ 00308000 L @15,@CV00082 0211 00309000 BALR @14,@15 0211 00310000 * IF RETCODE^=0 /* IF ERRED @ZM44945*/ 00311000 * THEN /* LEAVE WITH @ZM44945*/ 00312000 LTR RETCODE,RETCODE 0212 00313000 BNZ @RT00212 0212 00314000 * GOTO FREERET; /* BAD CODE @ZM44945*/ 00315000 * CALL IEAVAD11; /* OUTPUT TCB HEADER @ZM44945*/ 00316000 L @15,@CV00081 0214 00317000 BALR @14,@15 0214 00318000 * IF RETCODE^=0 /* IF ERRED @ZM44945*/ 00319000 * THEN /* LEAVE WITH @ZM44945*/ 00320000 LTR RETCODE,RETCODE 0215 00321000 BNZ @RT00215 0215 00322000 * GOTO FREERET; /* BAD CODE @ZM44945*/ 00323000 * 0217 00324000 */* */ 00325000 */* */ 00326000 */* */ 00327000 */* IF THE TASK HAS COMPLETED, ONLY THE LLES ARE FORMATTED AND */ 00328000 */* DISPLAYED. OTHERWISE THE RBS, LLES, CDES, AND EXTENT LISTS ARE */ 00329000 */* FORMATTED AND DISPLAYED. THE RBS, IF FORMATTED, ARE PRINTED BY */ 00330000 */* STARTING WITH THE FARTHEST RB FROM THE TCB, THAT IS THE OLDEST */ 00331000 */* ONE FIRST, AND ENDING WITH THE RB THAT THE TCB POINTS TO, THAT IS*/ 00332000 */* THE YOUNGEST. THIS ORDER IS DETERMINED BY THE FINDRB SUBROUTINE. */ 00333000 */* */ 00334000 */* */ 00335000 */* */ 00336000 * 0217 00337000 * IF TCBFC='1'B /* IF THE TASK HAS COMPLETED */ 00338000 * THEN 0217 00339000 TM TCBFC(TCBPTR),B'10000000' 0217 00340000 BO @RT00217 0217 00341000 * GOTO LLEOUT; /* SKIP THE RB PROCESSING, THERE 00342000 * ARE NO RBS. */ 00343000 *RBOUT: 0219 00344000 * ABDBLNKS='82'X; /* TWO BLANKS BETWEEN FILEDS 0219 00345000 * @YA00054*/ 00346000 RBOUT MVI ABDBLNKS(ABDARPTR),X'82' 0219 00347000 * RBSECPTR=TCBPTR; /* INITIALIZE FOR RB SEARCH */ 00348000 LR RBSECPTR,TCBPTR 0220 00349000 * ABDLINEA(1:11)=RBTTL; /* SET UP RB HEADER TEXT */ 00350000 MVC ABDLINEA(11,ABDARPTR),RBTTL 0221 00351000 * CALL IEAVAD11; /* PRINT THE HEADER */ 00352000 L @15,@CV00081 0222 00353000 BALR @14,@15 0222 00354000 * IF RETCODE^=0 /* IF ERRED */ 00355000 * THEN /* LEAVE WITH */ 00356000 LTR RETCODE,RETCODE 0223 00357000 BNZ @RT00223 0223 00358000 * GOTO FREERET; /* BAD CODE */ 00359000 *RBNEXT: /* GET NEXT RB ON QUEUE */ 00360000 * CALL FINDRB; /* IN LIFO ORDER */ 00361000 RBNEXT BAL @14,FINDRB 0225 00362000 * IF RETCODE^=0 /* IF AT END OF QUEUE */ 00363000 * THEN /* GO TO LLE PROCESS */ 00364000 LTR RETCODE,RETCODE 0226 00365000 BNZ @RT00226 0226 00366000 * GO TO LLEOUT; /* NEXT THING TO DO */ 00367000 * ABDCC='0'; /* SET TO DBL SPACE RB LINE 1 */ 00368000 MVI ABDCC(ABDARPTR),C'0' 0228 00369000 * ABDWORKA=RBSECPTR; /* SET UP ADDRESS OF RB DONE */ 00370000 ST RBSECPTR,ABDWORKA(,ABDARPTR) 0229 00371000 * ABDBPTR=ADDR(ABDWORKB); /* POINT TO ADDRESS */ 00372000 LA @10,ABDWORKB(,ABDARPTR) 0230 00373000 ST @10,ABDBPTR(,ABDARPTR) 0230 00374000 * ABDLLINE=ADDR(RBLLINE1); /* GET LAYOUT LINE POINTER */ 00375000 LA @10,RBLLINE1 0231 00376000 ST @10,ABDLLINE(,ABDARPTR) 0231 00377000 * CALL IEAVAD31; /* FORMAT THE ADDRESS */ 00378000 L @15,@CV00082 0232 00379000 BALR @14,@15 0232 00380000 * IF RETCODE^=0 /* IF ERRED */ 00381000 * THEN /* LEAVE WITH */ 00382000 LTR RETCODE,RETCODE 0233 00383000 BNZ @RT00233 0233 00384000 * GOTO FREERET; /* BAD CODE */ 00385000 * ABDBPTR=RBSECPTR-32; /* GET PREFIX ADDRESS @YA00054*/ 00386000 LR @10,RBSECPTR 0235 00387000 SH @10,@CH01089 0235 00388000 ST @10,ABDBPTR(,ABDARPTR) 0235 00389000 * CALL IEAVAD31; /* FORMAT THE FIRST RB LINE */ 00390000 L @15,@CV00082 0236 00391000 BALR @14,@15 0236 00392000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 00393000 * THEN /* LEAVE WITH */ 00394000 LTR RETCODE,RETCODE 0237 00395000 BNZ @RT00237 0237 00396000 * GOTO FREERET; /* BAD CODE */ 00397000 * IF RBFTP='010'B /* IF IRB USE IRB PROCEDURE */ 00398000 * THEN /* SET UP IRB LABELS */ 00399000 TM RBFTP(RBSECPTR),B'01000000' 0239 00400000 BNO @RF00239 0239 00401000 TM RBFTP(RBSECPTR),B'10100000' 0239 00402000 BNZ @RF00239 0239 00403000 * DO; /* AND PROCESS AS EXTENDED RB */ 00404000 * ABDLINEA(2:5)=IRBMSG; /* SET UP IRB LABEL */ 00405000 MVC ABDLINEA+1(4,ABDARPTR),IRBMSG 0241 00406000 * GOTO BIGRB; /* REST IF IRB AS EXTENDED RB */ 00407000 B BIGRB 0242 00408000 * END; /* END OF IRB LABEL PROCESS */ 00409000 * IF RBFTP='110'B /* IF SVRB */ 00410000 * THEN /* SET UP SVRB LABEL */ 00411000 @RF00239 TM RBFTP(RBSECPTR),B'11000000' 0244 00412000 BNO @RF00244 0244 00413000 TM RBFTP(RBSECPTR),B'00100000' 0244 00414000 BNZ @RF00244 0244 00415000 * DO; /* AND USE EXTENDED RB ROUTINE */ 00416000 * ABDLINEA(2:5)=SVRBMSG; /* SET UP SVRB LABEL */ 00417000 MVC ABDLINEA+1(4,ABDARPTR),SVRBMSG 0246 00418000 * GOTO BIGRB; /* USE EXTENDED ROUTINE */ 00419000 B BIGRB 0247 00420000 * END; /* END OF SVRB LABEL PROCESS */ 00421000 *BIGRB: /* ROUTINE FOR ALL RBS LARGER 0249 00422000 * THAN 40 BYTES */ 00423000 * CALL IEAVAD11; /* PRINT MODIFIED FIRST LINE */ 00424000 @RF00244 DS 0H 0249 00425000 BIGRB L @15,@CV00081 0249 00426000 BALR @14,@15 0249 00427000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 00428000 * THEN /* LEAVE WITH */ 00429000 LTR RETCODE,RETCODE 0250 00430000 BNZ @RT00250 0250 00431000 * GOTO FREERET; /* BAD CODE */ 00432000 * CALL IEAVAD31; /* FORMAT RB LINE 2 @YA00054*/ 00433000 L @15,@CV00082 0252 00434000 BALR @14,@15 0252 00435000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 00436000 * THEN /* LEAVE WITH */ 00437000 LTR RETCODE,RETCODE 0253 00438000 BNZ @RT00253 0253 00439000 * GOTO FREERET; /* BAD CODE */ 00440000 * CALL IEAVAD11; /* OUTPUT LINE 2 @YA00054*/ 00441000 L @15,@CV00081 0255 00442000 BALR @14,@15 0255 00443000 * IF RETCODE^=0 /* IF OUTPUT ERRED @YA00054*/ 00444000 * THEN /* LEAVE WITH @YA00054*/ 00445000 LTR RETCODE,RETCODE 0256 00446000 BNZ @RT00256 0256 00447000 * GOTO FREERET; /* BAD CODE @YA00054*/ 00448000 * CALL IEAVAD31; /* FORMAT RB LINE 3A @YA00054*/ 00449000 L @15,@CV00082 0258 00450000 BALR @14,@15 0258 00451000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 00452000 * THEN /* LEAVE WITH */ 00453000 LTR RETCODE,RETCODE 0259 00454000 BNZ @RT00259 0259 00455000 * GOTO FREERET; /* BAD CODE */ 00456000 * CALL IEAVAD31; /* FORMAT LINE 3B @YA00054*/ 00457000 L @15,@CV00082 0261 00458000 BALR @14,@15 0261 00459000 * IF RETCODE^=0 /* IF FORMAT ERRED @YA00054*/ 00460000 * THEN /* LEAVE WITH @YA00054*/ 00461000 LTR RETCODE,RETCODE 0262 00462000 BNZ @RT00262 0262 00463000 * GOTO FREERET; /* BAD CODE @YA00054*/ 00464000 * IF RBFTP='010'B /* IF IRB BEING FORMATTED USE 0264 00465000 * @YA00054*/ 00466000 * THEN /* IRB LABELS @YA00054*/ 00467000 TM RBFTP(RBSECPTR),B'01000000' 0264 00468000 BNO @RF00264 0264 00469000 TM RBFTP(RBSECPTR),B'10100000' 0264 00470000 BNZ @RF00264 0264 00471000 * DO; /* @YA00054*/ 00472000 * ABDLINEA(15:18)=FLPSA; /* CHANGE FIELD ID @ZA05835*/ 00473000 MVC ABDLINEA+14(4,ABDARPTR),FLPSA 0266 00474000 * ABDLINEA(72:77)=EPAMSG; /* CHANGE FIELD ID @Z40FPXH*/ 00475000 MVC ABDLINEA+71(6,ABDARPTR),EPAMSG 0267 00476000 * END; /* @YA00054*/ 00477000 * CALL IEAVAD11; /* OUTPUT LINE 3 @YA00054*/ 00478000 @RF00264 L @15,@CV00081 0269 00479000 BALR @14,@15 0269 00480000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 00481000 * THEN /* LEAVE WITH */ 00482000 LTR RETCODE,RETCODE 0270 00483000 BNZ @RT00270 0270 00484000 * GOTO FREERET; /* BAD CODE */ 00485000 * CALL IEAVAD31; /* FORMAT RB LINE 4 @YA00054*/ 00486000 L @15,@CV00082 0272 00487000 BALR @14,@15 0272 00488000 * IF RETCODE^=0 /* IF FORMAT ERRED @YA00054*/ 00489000 * THEN /* LEAVE WITH @YA00054*/ 00490000 LTR RETCODE,RETCODE 0273 00491000 BNZ @RT00273 0273 00492000 * GOTO FREERET; /* BAD CODE @YA00054*/ 00493000 * CALL IEAVAD11; /* OUTPUT LINE 4 @YA00054*/ 00494000 L @15,@CV00081 0275 00495000 BALR @14,@15 0275 00496000 * IF RETCODE^=0 /* IF OUTPUT ERRED @YA00054*/ 00497000 * THEN /* LEAVE WITH @YA00054*/ 00498000 LTR RETCODE,RETCODE 0276 00499000 BNZ @RT00276 0276 00500000 * GOTO FREERET; /* BAD CODE @YA00054*/ 00501000 * ABDBLNKS='00'X; /* CANCL BLNKS OVRIDE @ZA05835*/ 00502000 MVI ABDBLNKS(ABDARPTR),X'00' 0278 00503000 * ABDBPTR=ADDR(RBGRSAVE); /* POINT TO REGS TO FORMAT */ 00504000 LA @10,RBGRSAVE(,RBSECPTR) 0279 00505000 ST @10,ABDBPTR(,ABDARPTR) 0279 00506000 * ABDLLINE=ADDR(REGS1); /* SET UP TO DO REGS IN RB */ 00507000 LA @10,REGS1 0280 00508000 ST @10,ABDLLINE(,ABDARPTR) 0280 00509000 * CALL IEAVAD31; /* PUT REGS ON LINE 3 */ 00510000 L @15,@CV00082 0281 00511000 BALR @14,@15 0281 00512000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 00513000 * THEN /* LEAVE WITH */ 00514000 LTR RETCODE,RETCODE 0282 00515000 BNZ @RT00282 0282 00516000 * GOTO FREERET; /* BAD CODE */ 00517000 * CALL IEAVAD11; /* OUTPUT REGS 0-7 */ 00518000 L @15,@CV00081 0284 00519000 BALR @14,@15 0284 00520000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 00521000 * THEN /* LEAVE WITH */ 00522000 LTR RETCODE,RETCODE 0285 00523000 BNZ @RT00285 0285 00524000 * GOTO FREERET; /* BAD CODE */ 00525000 * CALL IEAVAD31; /* FORMAT REGS 8-15 ON LINE 4 */ 00526000 L @15,@CV00082 0287 00527000 BALR @14,@15 0287 00528000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 00529000 * THEN /* LEAVE WITH */ 00530000 LTR RETCODE,RETCODE 0288 00531000 BNZ @RT00288 0288 00532000 * GOTO FREERET; /* BAD CODE */ 00533000 * CALL IEAVAD11; /* OUTPUT REGS 8-15 */ 00534000 L @15,@CV00081 0290 00535000 BALR @14,@15 0290 00536000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 00537000 * THEN /* LEAVE WITH */ 00538000 LTR RETCODE,RETCODE 0291 00539000 BNZ @RT00291 0291 00540000 * GOTO FREERET; /* BAD CODE */ 00541000 * IF RBSIZE>16 /* IF SAVE AREA EXISTS @YA00054*/ 00542000 * THEN /* PRINT IT ALSO */ 00543000 LA @10,16 0293 00544000 LH @15,RBSIZE(,RBSECPTR) 0293 00545000 CR @15,@10 0293 00546000 BNH @RF00293 0293 00547000 * DO; /* ALSO CHECK FOR IRB WORKAREA */ 00548000 * IF RBFTP='010'B /* IF IRB DO SPECIAL LOOP */ 00549000 * THEN /* FOR EXTENDED WORK AREA */ 00550000 TM RBFTP(RBSECPTR),B'01000000' 0295 00551000 BNO @RF00295 0295 00552000 TM RBFTP(RBSECPTR),B'10100000' 0295 00553000 BNZ @RF00295 0295 00554000 * DO; /* IN THE IRB */ 00555000 * ABDLINEA(15:21)=WORKLABL;/* SET UP IRB LABEL */ 00556000 MVC ABDLINEA+14(7,ABDARPTR),WORKLABL 0297 00557000 * IRBCOUNT=RBSIZE-16; /* CALCULATE REMAINING RB SIZE 0298 00558000 * @YA00054*/ 00559000 SLR @15,@10 0298 00560000 LR IRBCOUNT,@15 0298 00561000 * ABDBPTR=ADDR(RBEXSAVE);/* SET UP RB ADDRESS */ 00562000 LA @10,RBEXSAVE(,RBSECPTR) 0299 00563000 ST @10,ABDBPTR(,ABDARPTR) 0299 00564000 *NEWLINE: /* NEW IRB LINE LOOP */ 00565000 * IRBLINER=4; /* 4 DOUBLE WORDS ON A LINE */ 00566000 NEWLINE LA IRBLINER,4 0300 00567000 * ABDLLINE=ADDR(IRBXLINE);/* SET UP LAYOUT LINE */ 00568000 LA @10,IRBXLINE 0301 00569000 ST @10,ABDLLINE(,ABDARPTR) 0301 00570000 *NXTDWORD: /* FORMAT NEXT DOUBLE WORD */ 00571000 * DO IRBLINER=IRBLINER TO 1 BY-1;/* FORMAT 4 DW */ 00572000 NXTDWORD B @DE00302 0302 00573000 @DL00302 DS 0H 0303 00574000 * CALL IEAVAD61; /* FORMAT IRB DOUBLE WORD */ 00575000 L @15,@CV00083 0303 00576000 BALR @14,@15 0303 00577000 * IF RETCODE^=0 /* IF ERRED */ 00578000 * THEN /* LEAVE WITH */ 00579000 SLR @14,@14 0304 00580000 CR RETCODE,@14 0304 00581000 BNE @RT00304 0304 00582000 * GOTO FREERET; /* BAD CODE */ 00583000 * IRBCOUNT=IRBCOUNT-1;/* DECREMENT DW COUNTER */ 00584000 BCTR IRBCOUNT,0 0306 00585000 * IF IRBCOUNT=0 /* IF NO MORE DWS */ 00586000 * THEN /* PRINT LAST LINE AND LOOP */ 00587000 CR IRBCOUNT,@14 0307 00588000 BE @RT00307 0307 00589000 * GOTO LAST; /* TO NEXT RB */ 00590000 * END; /* END OF DO LOOP */ 00591000 BCTR IRBLINER,0 0309 00592000 @DE00302 LTR IRBLINER,IRBLINER 0309 00593000 BP @DL00302 0309 00594000 * CALL IEAVAD11; /* OUTPUT A FULL LINE */ 00595000 L @15,@CV00081 0310 00596000 BALR @14,@15 0310 00597000 * IF RETCODE^=0 /* IF ERRED */ 00598000 * THEN /* LEAVE WITH */ 00599000 LTR RETCODE,RETCODE 0311 00600000 BNZ @RT00311 0311 00601000 * GOTO FREERET; /* BAD CODE */ 00602000 * GOTO NEWLINE; /* CONTINUE WITH NEW LINE */ 00603000 B NEWLINE 0313 00604000 *LAST: /* LAST IRB LINE PROCESS */ 00605000 * CALL IEAVAD11; /* OUTPUT LAST LINE */ 00606000 LAST L @15,@CV00081 0314 00607000 BALR @14,@15 0314 00608000 * IF RETCODE^=0 /* IF ERRED */ 00609000 * THEN /* LEAVE WITH */ 00610000 LTR RETCODE,RETCODE 0315 00611000 BNZ @RT00315 0315 00612000 * GOTO FREERET; /* BAD CODE */ 00613000 * GOTO RBNEXT; /* CONTINUE WITH NEXT RB */ 00614000 B RBNEXT 0317 00615000 * END; /* END OF IRB SPECIAL PROCESS */ 00616000 * IF RBFTP='110'B /* IS THIS AN SVRB */ 00617000 * THEN /* YES FORMAT EXTENDED WRKAREA */ 00618000 @RF00295 TM RBFTP(RBSECPTR),B'11000000' 0319 00619000 BNO @RF00319 0319 00620000 TM RBFTP(RBSECPTR),B'00100000' 0319 00621000 BNZ @RF00319 0319 00622000 * DO; 0320 00623000 * ABDLLINE=ADDR(EXTSA1);/* SET UP FOR EXTENDED SAVEAREA*/ 00624000 LA @10,EXTSA1 0321 00625000 ST @10,ABDLLINE(,ABDARPTR) 0321 00626000 * CALL IEAVAD31; /* FORMAT LINE 5 */ 00627000 L @15,@CV00082 0322 00628000 BALR @14,@15 0322 00629000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 00630000 * THEN /* LEAVE WITH */ 00631000 LTR RETCODE,RETCODE 0323 00632000 BNZ @RT00323 0323 00633000 * GOTO FREERET; /* BAD CODE */ 00634000 * CALL IEAVAD11; /* OUTPUT LINE 5 */ 00635000 L @15,@CV00081 0325 00636000 BALR @14,@15 0325 00637000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 00638000 * THEN /* LEAVE WITH */ 00639000 LTR RETCODE,RETCODE 0326 00640000 BNZ @RT00326 0326 00641000 * GOTO FREERET; /* BAD CODE */ 00642000 * CALL IEAVAD31; /* FORMAT LINE 6 */ 00643000 L @15,@CV00082 0328 00644000 BALR @14,@15 0328 00645000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 00646000 * THEN /* LEAVE WITH */ 00647000 LTR RETCODE,RETCODE 0329 00648000 BNZ @RT00329 0329 00649000 * GOTO FREERET; /* BAD CODE */ 00650000 * CALL IEAVAD11; /* OUTPUT LINE 6 */ 00651000 L @15,@CV00081 0331 00652000 BALR @14,@15 0331 00653000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 00654000 * THEN /* LEAVE WITH */ 00655000 LTR RETCODE,RETCODE 0332 00656000 BNZ @RT00332 0332 00657000 * GOTO FREERET; /* BAD CODE */ 00658000 * IF RBFTP='110'B /* IF SVRB, OUTPUT @Y02705 00659000 * SCB @Y02705*/ 00660000 * THEN /* @Y02705*/ 00661000 TM RBFTP(RBSECPTR),B'11000000' 0334 00662000 BNO @RF00334 0334 00663000 TM RBFTP(RBSECPTR),B'00100000' 0334 00664000 BNZ @RF00334 0334 00665000 * DO; /* @Y02705*/ 00666000 * ABDLLINE=ADDR(SCBLINE);/* SET UP SCB LINE @Y02705*/ 00667000 LA @10,SCBLINE 0336 00668000 ST @10,ABDLLINE(,ABDARPTR) 0336 00669000 * CALL IEAVAD31; /* FORMAT LINE 7 @Y02705*/ 00670000 L @15,@CV00082 0337 00671000 BALR @14,@15 0337 00672000 * IF RETCODE^=0 /* IF ERROR @Y02705*/ 00673000 * THEN /* @Y02705*/ 00674000 LTR RETCODE,RETCODE 0338 00675000 BNZ @RT00338 0338 00676000 * GOTO FREERET; /* RETURN TO CALLER @Y02705*/ 00677000 * CALL IEAVAD11; /* OUTPUT LINE 7 @Y02705*/ 00678000 L @15,@CV00081 0340 00679000 BALR @14,@15 0340 00680000 * ABDLLINE=ADDR(FEPLINE);/* SET UP FEPARM LINE 0341 00681000 * @Z40FPXH*/ 00682000 LA @10,FEPLINE 0341 00683000 ST @10,ABDLLINE(,ABDARPTR) 0341 00684000 * CALL IEAVAD31; /* FORMAT LINE @Z40FPXH*/ 00685000 L @15,@CV00082 0342 00686000 BALR @14,@15 0342 00687000 * IF RETCODE^=0 THEN/* IF ERROR @Z40FPXH*/ 00688000 LTR RETCODE,RETCODE 0343 00689000 BNZ @RT00343 0343 00690000 * GO TO FREERET;/* RETURN @Z40FPXH*/ 00691000 * CALL IEAVAD11; /* PRINT LINE @Z40FPXH*/ 00692000 L @15,@CV00081 0345 00693000 BALR @14,@15 0345 00694000 * END; /* @Y02705*/ 00695000 * END; 0347 00696000 * END; /* END OF EXTENDED RB PROCESS */ 00697000 * GOTO RBNEXT; /* CONTINUE WITH NEXT RB */ 00698000 B RBNEXT 0349 00699000 * 0350 00700000 */* */ 00701000 */* */ 00702000 */* THE LLES ARE NEXT FORMATTED AND PRINTED TW0 TO A LINE, IN THE */ 00703000 */* ORDER THAT THEY OCCUR ON THE TCB QUEUE. */ 00704000 */* */ 00705000 */* */ 00706000 */* */ 00707000 * 0350 00708000 *LLEOUT: 0350 00709000 * LLEPTR=TCBLLS; /* PICK UP FIRST LLE ADDRESS */ 00710000 LLEOUT L LLEPTR,TCBLLS(,TCBPTR) 0350 00711000 * IF LLEPTR=0 /* IF NO LLES TO DO */ 00712000 * THEN /* GO TO CDE PROCESS */ 00713000 LTR LLEPTR,LLEPTR 0351 00714000 BZ @RT00351 0351 00715000 * GOTO CDEOUT; /* DONT PRINT LLE HEADER */ 00716000 * ABDLINEA(1:10)=LLTTL; /* SET UP LLE HEADER */ 00717000 MVC ABDLINEA(10,ABDARPTR),LLTTL 0353 00718000 * CALL IEAVAD11; /* PRINT THE HEADER */ 00719000 L @15,@CV00081 0354 00720000 BALR @14,@15 0354 00721000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 00722000 * THEN /* LEAVE WITH BAD CODE */ 00723000 LTR RETCODE,RETCODE 0355 00724000 BNZ @RT00355 0355 00725000 * GOTO FREERET; /* FREE SAVE AREAS, RETURN */ 00726000 * ABDCC='0'; /* DOUBLE SPACE FIRST LINE */ 00727000 MVI ABDCC(ABDARPTR),C'0' 0357 00728000 *MORELLE: /* LLE LINE LOOP */ 00729000 * ABDLLINE=ADDR(LLIST); /* POINT TO LAYOUT LINE */ 00730000 MORELLE LA @10,LLIST 0358 00731000 ST @10,ABDLLINE(,ABDARPTR) 0358 00732000 * LECOUNT=2; /* TWO LLES TO A LINE @Y02705*/ 00733000 LA LECOUNT,2 0359 00734000 * DO LECOUNT=LECOUNT TO 1 BY-1;/* FORMAT LLES 2 TO A LINE */ 00735000 B @DE00360 0360 00736000 @DL00360 DS 0H 0361 00737000 * ABDBPTR=LLEPTR; /* POINT TO THE LLE */ 00738000 ST LLEPTR,ABDBPTR(,ABDARPTR) 0361 00739000 * CALL IEAVAD31; /* FORMAT THE LLE */ 00740000 L @15,@CV00082 0362 00741000 BALR @14,@15 0362 00742000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 00743000 * THEN /* LEAVE WITH BAD CODE */ 00744000 SLR @14,@14 0363 00745000 CR RETCODE,@14 0363 00746000 BNE @RT00363 0363 00747000 * GOTO FREERET; /* IN R15 */ 00748000 * LLEPTR=LLECHN; /* GET NEXT LLE */ 00749000 L LLEPTR,LLECHN(,LLEPTR) 0365 00750000 * IF LLEPTR=0 /* IF THERE ARE NO MORE LLES */ 00751000 * THEN /* PRINT LAST LINE AND LEAVE */ 00752000 CR LLEPTR,@14 0366 00753000 BE @RT00366 0366 00754000 * GOTO LEAVELLE; /* LLE PROCESSING */ 00755000 * END; /* END OF LINE LOOP */ 00756000 BCTR LECOUNT,0 0368 00757000 @DE00360 LTR LECOUNT,LECOUNT 0368 00758000 BP @DL00360 0368 00759000 * CALL IEAVAD11; /* PRINT THE FULL LINE */ 00760000 L @15,@CV00081 0369 00761000 BALR @14,@15 0369 00762000 * IF RETCODE^=0 /* IF OUTPUT FAILED */ 00763000 * THEN /* LEAVE WITH BAD CODE */ 00764000 LTR RETCODE,RETCODE 0370 00765000 BNZ @RT00370 0370 00766000 * GOTO FREERET; /* IN R15 */ 00767000 * GOTO MORELLE; /* CHECK IF MORE LLES TO PRINT */ 00768000 B MORELLE 0372 00769000 *LEAVELLE: /* PRINT THE LAST LLE LINE */ 00770000 * CALL IEAVAD11; /* PRINT THE LINE */ 00771000 LEAVELLE L @15,@CV00081 0373 00772000 BALR @14,@15 0373 00773000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 00774000 * THEN /* LEAVE WITH BAD CODE */ 00775000 LTR RETCODE,RETCODE 0374 00776000 BNZ @RT00374 0374 00777000 * GOTO FREERET; /* IN R15 */ 00778000 * 0376 00779000 */* */ 00780000 */* */ 00781000 */* */ 00782000 */* IF THE TASK HAS COMPLETED, THE CDE AND EXTENT LIST PROCESSING IS */ 00783000 */* BYPASSED. IF THE CDES ARE PRINTED, THEY ARE PRINTED IN THE ORDER */ 00784000 */* THAT THE RBS THAT POINT TO THEM WERE PRINTED, SO FINDRB IS AGAIN */ 00785000 */* USED. NEXT ANY CDES WHICH ARE POINTED TO BY LLES ARE PRINTED, */ 00786000 */* IF THEY WERE NOT PRINTED IN THE RB ORDER. */ 00787000 */* THEN THE EXTENT LISTS POINTED TO BY THE CDES ARE PRINTED, IN THE */ 00788000 */* ORDER THAT THE CDES WERE PRINTED. THIS COORDINATES THE LISTING */ 00789000 */* OF THE RBS, LLES,CDES AND EXTENT LISTS. */ 00790000 */* */ 00791000 */* */ 00792000 */* */ 00793000 * 0376 00794000 *CDEOUT: 0376 00795000 * IF TCBFC='1'B /* IF THE TASK HAS COMPLETED, */ 00796000 * THEN 0376 00797000 CDEOUT TM TCBFC(TCBPTR),B'10000000' 0376 00798000 BO @RT00376 0376 00799000 * GOTO TIOTOUT; /* THERE ARE NO CDES OR EXTENT 0377 00800000 * LISTS TO PRINT */ 00801000 * TYPE='1'B; /* INDICATE CDE PASS PRINT */ 00802000 OI TYPE,B'01000000' 0378 00803000 * ABDLINEA(1:4)=CDTITLE; /* SET UP CDE HEADER LINE */ 00804000 MVC ABDLINEA(4,ABDARPTR),CDTITLE 0379 00805000 * CALL IEAVAD11; /* PRINT THE HEADER LINE */ 00806000 L @15,@CV00081 0380 00807000 BALR @14,@15 0380 00808000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 00809000 * THEN /* LEAVE WITH RETURN CODE=4 */ 00810000 LTR RETCODE,RETCODE 0381 00811000 BNZ @RT00381 0381 00812000 * GO TO FREERET; 0382 00813000 *XLOOP: 0383 00814000 * RBSECPTR=TCBPTR; /* FIND OLDEST RB FIRST */ 00815000 XLOOP LR RBSECPTR,TCBPTR 0383 00816000 * MAJOR='0'B; /* PRINT MAJORS AND EXLISTS */ 00817000 NI MAJOR,B'01111111' 0384 00818000 * ABDCC='0'; /* DOUBLE SPACE FIRST ENTRY */ 00819000 MVI ABDCC(ABDARPTR),C'0' 0385 00820000 *GETRB: 0386 00821000 * CALL FINDRB; /* GET NEXT YOUNGER RB ADDRESS 0386 00822000 * RETURNED IN RBSECPTR RETCODE=0 00823000 * FOUND RB =4 NO MORE RBS */ 00824000 GETRB BAL @14,FINDRB 0386 00825000 * IF RETCODE=0 /* IF FOUND AN RB */ 00826000 * THEN /* CHECK IF CDE TO PRINT */ 00827000 SLR @14,@14 0387 00828000 CR RETCODE,@14 0387 00829000 BNE @RF00387 0387 00830000 * DO; 0388 00831000 * IF RBFTP^='000'B /* IF NOT PRB GET NEXT RB */ 00832000 * THEN 0389 00833000 TM RBFTP(RBSECPTR),B'11100000' 0389 00834000 BNZ @RT00389 0389 00835000 * GO TO GETRB; /* GET NEXT YOUNGER RB */ 00836000 * CDENTPTR=RBCDE1; /* GET CDE ADDR FROM RB */ 00837000 SLR CDENTPTR,CDENTPTR 0391 00838000 ICM CDENTPTR,7,RBCDE1(RBSECPTR) 0391 00839000 * IF CDENTPTR^=0 /* IF CDE EXISTS */ 00840000 * THEN 0392 00841000 CR CDENTPTR,@14 0392 00842000 BE @RF00392 0392 00843000 * CALL CDXLPT; /* PRINT THE CDE OR EXTENT LIST 00844000 * (LOOPED TWICE) */ 00845000 BAL @14,CDXLPT 0393 00846000 * GO TO GETRB; /* CONTINUE WITH NEXT YOUNGER RB 00847000 * UNTIL DONE */ 00848000 B GETRB 0394 00849000 * END; 0395 00850000 * LLEPTR=ADDR(TCBLLS); /* INITIALIZE FOR LLE SEARCH */ 00851000 @RF00387 LA LLEPTR,TCBLLS(,TCBPTR) 0396 00852000 *LLECDE: 0397 00853000 * LLEPTR=LLECHN; /* GET NEXT LLE */ 00854000 LLECDE L LLEPTR,LLECHN(,LLEPTR) 0397 00855000 * MAJOR='0'B; /* PRINT IF POSSIBLE THE MAJOR 0398 00856000 * AND XLIST */ 00857000 NI MAJOR,B'01111111' 0398 00858000 * IF LLEPTR^=0 /* IF THERE IS A LLE */ 00859000 * THEN 0399 00860000 LTR LLEPTR,LLEPTR 0399 00861000 BZ @RF00399 0399 00862000 * DO; 0400 00863000 * CDENTPTR=LLECDPT; /* GET CDE ADDRESS TO CHECK */ 00864000 L CDENTPTR,LLECDPT(,LLEPTR) 0401 00865000 * RBSECPTR=TCBRBP; /* SET TO FIRST RB */ 00866000 L RBSECPTR,TCBRBP(,TCBPTR) 0402 00867000 * GOTO RBCHK; /* START IN LOOP INITIALLY */ 00868000 B RBCHK 0403 00869000 *RBCHKLP: 0404 00870000 * RBSECPTR=RBLINKB; /* GET NEXT RB TO CHECK */ 00871000 RBCHKLP SLR @10,@10 0404 00872000 ICM @10,7,RBLINKB(RBSECPTR) 0404 00873000 LR RBSECPTR,@10 0404 00874000 *RBCHK: 0405 00875000 * IF RBSECPTR=TCBPTR /* IF THE LAST RB WAS DONE */ 00876000 * THEN /* THE CDE WAS NOT DONE YET */ 00877000 RBCHK CR RBSECPTR,TCBPTR 0405 00878000 BNE @RF00405 0405 00879000 * DO; 0406 00880000 * CALL CDXLPT; /* PRINT THE CDE OR XLIST */ 00881000 BAL @14,CDXLPT 0407 00882000 * GO TO LLECDE; /* CONTINUE WITH NEXT LLE */ 00883000 B LLECDE 0408 00884000 * END; 0409 00885000 * IF RBFTP^='000'B /* IF NOT A PRB */ 00886000 * THEN /* GET NEXT RB TO CHECK */ 00887000 @RF00405 TM RBFTP(RBSECPTR),B'11100000' 0410 00888000 BNZ @RT00410 0410 00889000 * GO TO RBCHKLP; 0411 00890000 * RBCDPTR=RBCDE1; /* PICK UP THIS RBS CDE */ 00891000 SLR RBCDPTR,RBCDPTR 0412 00892000 ICM RBCDPTR,7,RBCDE1(RBSECPTR) 0412 00893000 * IF RBCDPTR=0 /* IF THERE IS NO CDE TO CHECK */ 00894000 * THEN /* GET NEXT RB TO CHECK */ 00895000 LTR RBCDPTR,RBCDPTR 0413 00896000 BZ @RT00413 0413 00897000 * GOTO RBCHKLP; 0414 00898000 * IF RBCDPTR=CDENTPTR /* IF EQUAL THIS CDE HAS BEEN */ 00899000 * THEN /* PRINTED, SO BYPASS IT */ 00900000 CR RBCDPTR,CDENTPTR 0415 00901000 BE @RT00415 0415 00902000 * GOTO LLECDE; /* GET NEXT LLE AND CONTINUE */ 00903000 * IF CDENTPTR=RBCDPTR->CDXLMJP/* IF LLECDE EQUAL MAJOR CDE */ 00904000 * THEN /* DONT PRINT IT */ 00905000 C CDENTPTR,CDXLMJP(,RBCDPTR) 0417 00906000 BE @RT00417 0417 00907000 * GOTO LLECDE; /* GET NEXT LLE TO CHECK */ 00908000 * IF RBCDPTR=CDXLMJP /* IF MAJOR DONE ALREADY */ 00909000 * THEN /* DONT DO IT AGAIN */ 00910000 C RBCDPTR,CDXLMJP(,CDENTPTR) 0419 00911000 BNE @RF00419 0419 00912000 * MAJOR='1'B; /* FLAG NOT MAJOR PRINT */ 00913000 OI MAJOR,B'10000000' 0420 00914000 * IF RBCDPTR->CDXLMJP=CDXLMJP/* IF MAJORS EQUAL DONT */ 00915000 * THEN /* PRINT IT AGAIN */ 00916000 @RF00419 CLC CDXLMJP(4,RBCDPTR),CDXLMJP(CDENTPTR) 0421 00917000 BNE @RF00421 0421 00918000 * MAJOR='1'B; /* INDICATE NOT MAJOR PRINT */ 00919000 OI MAJOR,B'10000000' 0422 00920000 * GO TO RBCHKLP; /* OTHERWISE CONTINUE RB SEARCH 00921000 * FOR EQUAL CDE. IF NO RB IS 0423 00922000 * FOUND WITH THE SAME CDE AS THE 00923000 * LLE, THE CDE/XLIST IS PRINTED */ 00924000 B RBCHKLP 0423 00925000 * END; 0424 00926000 * IF TYPE='1'B /* IF XTLISTS NOT PRINTED YET */ 00927000 * THEN /* SET UP FOR EXTENT LIST */ 00928000 @RF00399 TM TYPE,B'01000000' 0425 00929000 BNO @RF00425 0425 00930000 * DO; 0426 00931000 * TYPE='0'B; /* SET UP SECOND PASS IND. */ 00932000 NI TYPE,B'10111111' 0427 00933000 * ABDLINEA(1:3)=XLTITLE; /* SET UP EXTENT LIST HEADER */ 00934000 MVC ABDLINEA(3,ABDARPTR),XLTITLE 0428 00935000 * ABDLINEA(51:65)=LNADRHD;/* SET UP LENGTH ADDRESS MSG */ 00936000 MVC ABDLINEA+50(15,ABDARPTR),LNADRHD 0429 00937000 * ABDLINEA(75:89)=LNADRHD;/* AS HEADER FOR ENTRIES IN */ 00938000 MVC ABDLINEA+74(15,ABDARPTR),LNADRHD 0430 00939000 * ABDLINEA(99:113)=LNADRHD;/* 3 GROUPS TO A LINE */ 00940000 MVC ABDLINEA+98(15,ABDARPTR),LNADRHD 0431 00941000 * CALL IEAVAD11; /* OUTPUT THE EXTENT HEADER */ 00942000 L @15,@CV00081 0432 00943000 BALR @14,@15 0432 00944000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 00945000 * THEN /* THEN LEAVE WITH BAD RETCODE */ 00946000 LTR RETCODE,RETCODE 0433 00947000 BNZ @RT00433 0433 00948000 * GOTO FREERET; 0434 00949000 * GOTO XLOOP; /* LOOP BACK TO DO XLISTS */ 00950000 B XLOOP 0435 00951000 * END; 0436 00952000 * 0437 00953000 */* */ 00954000 */* */ 00955000 */* NEXT THE TASK INPUT OUTPUT TABLE IS FORMATTED AND PRINTED. IT IS */ 00956000 */* FOUND FROM A POINTER IN THE TCB. */ 00957000 */* */ 00958000 */* */ 00959000 */* */ 00960000 * 0437 00961000 *TIOTOUT: 0437 00962000 * TIOTPTR=TCBTIO; /* INITIALIZE TIOT BASE REG */ 00963000 @RF00425 DS 0H 0437 00964000 TIOTOUT L TIOTPTR,TCBTIO(,TCBPTR) 0437 00965000 * ABDCC='0'; /* DOUBLE SPACE LINE @G33SPHW*/ 00966000 MVI ABDCC(ABDARPTR),C'0' 0438 00967000 * ABDWORKA=TIOTPTR; /* GET TIOT ADDRESS @G33SPHW*/ 00968000 ST TIOTPTR,ABDWORKA(,ABDARPTR) 0439 00969000 * ABDBPTR=ADDR(ABDWORKB); /* GET ADDR OF TIOT @G33SPHW*/ 00970000 LA @10,ABDWORKB(,ABDARPTR) 0440 00971000 ST @10,ABDBPTR(,ABDARPTR) 0440 00972000 * ABDLLINE=ADDR(TIOHEAD); /* TIOT HEADER LAYOUT @G33SPHW*/ 00973000 LA @10,TIOHEAD 0441 00974000 ST @10,ABDLLINE(,ABDARPTR) 0441 00975000 * PARMPTR=ABDARPTR; /* POINT R1 TO PARMLIST @G33SPHW*/ 00976000 LR PARMPTR,ABDARPTR 0442 00977000 * CALL IEAVAD31; /* CALL FORMATTER @G33SPHW*/ 00978000 L @15,@CV00082 0443 00979000 BALR @14,@15 0443 00980000 * IF RETCODE^=0 /* IF ERRED @G33SPHW*/ 00981000 * THEN 0444 00982000 LTR RETCODE,RETCODE 0444 00983000 BNZ @RT00444 0444 00984000 * GOTO FREERET; /* LEAVE WITH RC=4 @G33SPHW*/ 00985000 * ABDLINEA(20:24)=TIOJOB; /* SET UP HEADER MESSAGE */ 00986000 MVC ABDLINEA+19(5,ABDARPTR),TIOJOB 0446 00987000 * ABDLINEA(26:33)=TIOCNJOB; /* MOVE IN JOB NAME FROM TIOT */ 00988000 MVC ABDLINEA+25(8,ABDARPTR),TIOCNJOB(TIOTPTR) 0447 00989000 * ABDLINEA(37:40)=STPMSG; /* SET UP STEP LABEL TEXT */ 00990000 MVC ABDLINEA+36(4,ABDARPTR),STPMSG 0448 00991000 * ABDLINEA(44:51)=TIOCSTEP; /* MOVE IN STEP NAME */ 00992000 MVC ABDLINEA+43(8,ABDARPTR),TIOCSTEP(TIOTPTR) 0449 00993000 * IF TIOPROC(1)^=' ' /* IF THERE IS A PROC NAME */ 00994000 * THEN /* PRINT IT ALSO */ 00995000 LA @10,TIOCSTEP(,TIOTPTR) 0450 00996000 AH @10,@CH00064 0450 00997000 CLI TIOPROC(@10),C' ' 0450 00998000 BE @RF00450 0450 00999000 * DO; 0451 01000000 * ABDLINEA(59:62)=PROCMSG;/* SET UP PROC LABEL TEXT */ 01001000 MVC ABDLINEA+58(4,ABDARPTR),PROCMSG 0452 01002000 * ABDLINEA(65:72)=TIOPROC;/* SET UP PROC NAME FROM TIOT */ 01003000 MVC ABDLINEA+64(8,ABDARPTR),TIOPROC(@10) 0453 01004000 * END; 0454 01005000 * CALL IEAVAD11; /* PRINT THE FIRST TIOT LINE */ 01006000 @RF00450 L @15,@CV00081 0455 01007000 BALR @14,@15 0455 01008000 * IF RETCODE^=0 /* IF ERRED */ 01009000 * THEN 0456 01010000 LTR RETCODE,RETCODE 0456 01011000 BNZ @RT00456 0456 01012000 * GOTO FREERET; /* LEAVE WITH RECODE=4 */ 01013000 * ABDLINEA(11:16)=OFFMSG; /* PUT OFFSET IN HEADER LINE 0458 01014000 * @G33SPHW*/ 01015000 MVC ABDLINEA+10(6,ABDARPTR),OFFMSG 0458 01016000 * ABDLINEA(21:26)=LNMSG; /* PUT LN-STA IN HEADER LINE 0459 01017000 * @G33SPHW*/ 01018000 MVC ABDLINEA+20(6,ABDARPTR),LNMSG 0459 01019000 * ABDLINEA(33:38)=DDMSG; /* PUT DDNAME IN HEADER LINE 0460 01020000 * @G33SPHW*/ 01021000 MVC ABDLINEA+32(6,ABDARPTR),DDMSG 0460 01022000 * ABDLINEA(45:51)=TTRMSG; /* PUT TTR-STC IN HEADER LINE 0461 01023000 * @G33SPHW*/ 01024000 MVI ABDLINEA+50(ABDARPTR),C' ' 0461 01025000 MVC ABDLINEA+44(6,ABDARPTR),TTRMSG 0461 01026000 * ABDLINEA(57:63)=STBMSG; /* PUT STB-UCB IN HEADER LINE 0462 01027000 * @G33SPHW*/ 01028000 MVI ABDLINEA+62(ABDARPTR),C' ' 0462 01029000 MVC ABDLINEA+56(6,ABDARPTR),STBMSG 0462 01030000 * CALL IEAVAD11; /* PRINT THE HEADER LINE @G33SPHW*/ 01031000 L @15,@CV00081 0463 01032000 BALR @14,@15 0463 01033000 * IF RETCODE^=0 /* IF ERRED @G33SPHW*/ 01034000 * THEN 0464 01035000 LTR RETCODE,RETCODE 0464 01036000 BNZ @RT00464 0464 01037000 * GOTO FREERET; /* LEAVE WITH RECODE=4 */ 01038000 * OFFSET=STARTTIO; /* START OF TIOT ENTRIES @G33SPHW*/ 01039000 MVC OFFSET(2),@CH00038 0466 01040000 *LINE2ON: 0467 01041000 * DDSIZE=TIOELNGH; /* GET LENGTH OF ENTRY */ 01042000 LINE2ON SLR DDSIZE,DDSIZE 0467 01043000 IC DDSIZE,TIOELNGH(,TIOTPTR) 0467 01044000 * IF DDSIZE^=0 /* IF THERE IS AN ENTRY TO DO */ 01045000 * THEN /* DO IT */ 01046000 LTR DDSIZE,DDSIZE 0468 01047000 BZ @RF00468 0468 01048000 * DO; 0469 01049000 * ABDLINEA(11)=PLUS; /* PUT OFFSET PLUS ON OUTPUT LINE 01050000 * @G33SPHW*/ 01051000 MVC ABDLINEA+10(1,ABDARPTR),PLUS 0470 01052000 * ABDBPTR=ADDR(OFFSET); /* ADDRESS OF OFFSET @G33SPHW*/ 01053000 LA @10,OFFSET 0471 01054000 ST @10,ABDBPTR(,ABDARPTR) 0471 01055000 * ABDLLINE=ADDR(TIOLLOFF);/* ADDRESS OF OFFSET LAYOUT 0472 01056000 * @G33SPHW*/ 01057000 LA @10,TIOLLOFF 0472 01058000 ST @10,ABDLLINE(,ABDARPTR) 0472 01059000 * CALL IEAVAD61; /* FORMAT OFFSET @G33SPHW*/ 01060000 L @15,@CV00083 0473 01061000 BALR @14,@15 0473 01062000 * IF RETCODE^=0 /* IF ERRED @G33SPHW*/ 01063000 * THEN 0474 01064000 SLR @14,@14 0474 01065000 CR RETCODE,@14 0474 01066000 BNE @RT00474 0474 01067000 * GOTO FREERET; /* LEAVE WITH RC=4 @G33SPHW*/ 01068000 * OFFSET=OFFSET+DDSIZE; /* UPDATE OFFSET COUNTER @G33SPHW*/ 01069000 LR @10,DDSIZE 0476 01070000 AH @10,OFFSET 0476 01071000 STH @10,OFFSET 0476 01072000 * IF TIOEDDNM(1:4)=0 THEN /* UNALLOCATED TIOT ENTRY 0477 01073000 * @G33SPHW*/ 01074000 CL @14,TIOEDDNM(,TIOTPTR) 0477 01075000 BNE @RF00477 0477 01076000 * DO; /* YES... DONT PRINT ENTRY 0478 01077000 * @G33SPHW*/ 01078000 * ABDLINEA(24:44)=UNALCMSG;/* PRINT UNALLOCATED LINE 0479 01079000 * @G33SPHW*/ 01080000 MVC ABDLINEA+23(21,ABDARPTR),UNALCMSG 0479 01081000 * PARMPTR=ABDARPTR; /* POINT R1 TO PARMLIST @G33SPHW*/ 01082000 LR PARMPTR,ABDARPTR 0480 01083000 * CALL IEAVAD11; /* PRINT LINE @G33SPHW*/ 01084000 L @15,@CV00081 0481 01085000 BALR @14,@15 0481 01086000 * IF RETCODE^=0 /* IF ERRED @G33SPHW*/ 01087000 * THEN 0482 01088000 LTR RETCODE,RETCODE 0482 01089000 BNZ @RT00482 0482 01090000 * GOTO FREERET; /* LEAVE WITH BAD CODE @G33SPHW*/ 01091000 * GO TO NEXTTIOT; /* GET NEXT TIOT ENTRY @G33SPHW*/ 01092000 B NEXTTIOT 0484 01093000 * END; /* END... UNALLOCATED TIOT 0485 01094000 * @G33SPHW*/ 01095000 * ABDBPTR=ADDR(TIOELNGH); /* POINT TO START OF ENTRY */ 01096000 @RF00477 LA @10,TIOELNGH(,TIOTPTR) 0486 01097000 ST @10,ABDBPTR(,ABDARPTR) 0486 01098000 * ABDLLINE=ADDR(TIOLLIN1);/* POINT TO FIRST TIOT LAYOUT */ 01099000 LA @10,TIOLLIN1 0487 01100000 ST @10,ABDLLINE(,ABDARPTR) 0487 01101000 * CALL IEAVAD61; /* FORMAT FIRST WORD OF DD */ 01102000 L @15,@CV00083 0488 01103000 BALR @14,@15 0488 01104000 * IF RETCODE^=0 /* IF ERRED */ 01105000 * THEN 0489 01106000 SLR @14,@14 0489 01107000 CR RETCODE,@14 0489 01108000 BNE @RT00489 0489 01109000 * GOTO FREERET; /* LEAVE WITH BAD CODE */ 01110000 * ABDLINEA(33:40)=TIOEDDNM;/* MOVE IN DD NAME TO OUTLINE */ 01111000 MVC ABDLINEA+32(8,ABDARPTR),TIOEDDNM(TIOTPTR) 0491 01112000 * FMCOUNT=2; /* INDICATE 2 LINE SPACES DONE */ 01113000 LA FMCOUNT,2 0492 01114000 * ABDLLINE=ADDR(TIOLLIN2);/* POINT TO 3RD SLOT FORMATTER */ 01115000 LA @10,TIOLLIN2 0493 01116000 ST @10,ABDLLINE(,ABDARPTR) 0493 01117000 * ABDBPTR=ADDR(TIOEJFCB); /* POINT TO NEXT WORD TO DO */ 01118000 LA @10,TIOEJFCB(,TIOTPTR) 0494 01119000 ST @10,ABDBPTR(,ABDARPTR) 0494 01120000 * COUNT=DDSIZE/4; /* CALCULATE NUMBER OF WORDS IN 01121000 * DD ENTRY */ 01122000 LR COUNT,DDSIZE 0495 01123000 SRL COUNT,2 0495 01124000 * COUNT=COUNT-3; /* SUBTRACT FOR WORDS DONE */ 01125000 SH COUNT,@CH00092 0496 01126000 * IF COUNT=0 /* THERE IS NOTHING LEFT */ 01127000 * THEN /* SO PRINT LINE */ 01128000 CR COUNT,@14 0497 01129000 BE @RT00497 0497 01130000 * GOTO GOODOUT; /* AND LEAVE */ 01131000 * DO COUNT=COUNT TO 1 BY-1;/* FORMAT WORDS INTO SLOTS */ 01132000 B @DE00499 0499 01133000 @DL00499 DS 0H 0500 01134000 * CALL IEAVAD61; /* FORMAT NEXT WORD */ 01135000 L @15,@CV00083 0500 01136000 BALR @14,@15 0500 01137000 * IF RETCODE^=0 /* IF ERRED */ 01138000 * THEN 0501 01139000 LTR RETCODE,RETCODE 0501 01140000 BNZ @RT00501 0501 01141000 * GOTO FREERET; /* LEAVE WITH BAD CODE */ 01142000 * FMCOUNT=FMCOUNT+1; /* INCR NUMBER OF SLOTS */ 01143000 LA FMCOUNT,1(,FMCOUNT) 0503 01144000 * IF FMCOUNT=8 /* IF LINE IS FULL */ 01145000 * THEN /* PRINT THE LINE,CONTINUE */ 01146000 CH FMCOUNT,@CH00064 0504 01147000 BNE @RF00504 0504 01148000 * DO; 0505 01149000 * CALL IEAVAD11; /* PRINT THE LINE */ 01150000 L @15,@CV00081 0506 01151000 BALR @14,@15 0506 01152000 * IF RETCODE^=0 /* IF ERRED */ 01153000 * THEN 0507 01154000 LTR RETCODE,RETCODE 0507 01155000 BNZ @RT00507 0507 01156000 * GOTO FREERET; /* LEAVE WITH BAD CODE */ 01157000 * FMCOUNT=0; /* RESET TO BEGINNING OF LINE */ 01158000 SLR FMCOUNT,FMCOUNT 0509 01159000 * ABDLLINE=ADDR(TIOLLIN1);/* POINT TO FIRST SLOT */ 01160000 LA @10,TIOLLIN1 0510 01161000 ST @10,ABDLLINE(,ABDARPTR) 0510 01162000 * END; /* LOOP UNTIL DONE */ 01163000 * END; 0512 01164000 @RF00504 BCTR COUNT,0 0512 01165000 @DE00499 LTR COUNT,COUNT 0512 01166000 BP @DL00499 0512 01167000 * IF FMCOUNT^=0 /* IF INCOMPLETE LINE */ 01168000 * THEN /* PRINT IT NOW */ 01169000 LTR FMCOUNT,FMCOUNT 0513 01170000 BZ @RF00513 0513 01171000 * DO; 0514 01172000 * CALL IEAVAD11; /* PRINT THE LINE */ 01173000 L @15,@CV00081 0515 01174000 BALR @14,@15 0515 01175000 * IF RETCODE^=0 /* IF ERRED */ 01176000 * THEN 0516 01177000 LTR RETCODE,RETCODE 0516 01178000 BNZ @RT00516 0516 01179000 * GOTO FREERET; /* LEAVE WITH BAD CODE */ 01180000 * END; 0518 01181000 *NEXTTIOT: 0519 01182000 * TIOTPTR=TIOTPTR+DDSIZE; /* INCREMENT TO NEXT DD */ 01183000 @RF00513 DS 0H 0519 01184000 NEXTTIOT ALR TIOTPTR,DDSIZE 0519 01185000 * GOTO LINE2ON; /* FORMAT THE NEXT DD ENTRY */ 01186000 B LINE2ON 0520 01187000 *GOODOUT: 0521 01188000 * CALL IEAVAD11; /* PRINT THE LAST LINE */ 01189000 GOODOUT L @15,@CV00081 0521 01190000 BALR @14,@15 0521 01191000 * GOTO FREERET; /* PASS CODE TO MAINLINE */ 01192000 B FREERET 0522 01193000 * END; 0523 01194000 * RETCODE=0; /* INDICATE GOOD RETURN VALUE */ 01195000 @RF00468 SLR RETCODE,RETCODE 0524 01196000 * 0525 01197000 */* */ 01198000 */* */ 01199000 */* */ 01200000 */* FINAL PROCESSING CONSISTS OF UNCHAINING THE SAVE AREA, FREEING IT*/ 01201000 */* ,SETTING THE RETURN CODE TO THE VALUE SAVED, AND RETURNING TO THE*/ 01202000 */* MAINLINE OF ABDUMP, AFTER THE REGISTERS ARE RESTORED. */ 01203000 */* */ 01204000 */* */ 01205000 */* */ 01206000 * 0525 01207000 * /* SET UP FREEMAIN LIST REG */ 01208000 *FREERET: 0525 01209000 * PARMPTR=ADDR(ABDASIZE); 0525 01210000 FREERET LA PARMPTR,ABDASIZE(,ABDARPTR) 0525 01211000 * SAVERET=RETCODE; /* SAVE RETURN CODE OVER FREE */ 01212000 LR SAVERET,RETCODE 0526 01213000 * ABDAAREA=SAVEPTR; /* SET UP ADDRESS TO FREE */ 01214000 ST SAVEPTR,ABDAAREA(,ABDARPTR) 0527 01215000 * SAVEPTR=SAVEPTR->PRESAPTR; /* SET UP PREVIOUS SAVE AREA */ 01216000 L SAVEPTR,PRESAPTR(,SAVEPTR) 0528 01217000 * NEXSAPTR=0; /* CLEAR POINTER TO AREA TO BE 0529 01218000 * FREED */ 01219000 SLR @10,@10 0529 01220000 ST @10,NEXSAPTR(,SAVEPTR) 0529 01221000 * GENERATE; 0530 01222000 FREEMAIN E,LV=@ENDDATD-@DATD+72, *01223000 SP=253, *01224000 A=ABDGMA(ABDARPTR), *01225000 MF=(E,(1)) 01226000 * RETCODE=SAVERET; /* PASS RETURN CODE TO MAIN */ 01227000 LR RETCODE,SAVERET 0531 01228000 * END; /* @Y02705*/ 01229000 * 0533 01230000 */* */ 01231000 */* */ 01232000 */* */ 01233000 */* FINDRB LOCATES THE RB WHICH POINTS TO THE RB PASSED IN RBSECPTR */ 01234000 */* AND PASSES ITS @ BACK IN RBSECPTR. TO FIND THE LAST RB ON THE */ 01235000 */* QUEUE, THE TCB ADDRESS IS PASSED TO FINDRB IN RBSECPTR. IF THE */ 01236000 */* TCB POINTS TO THE RB ADDRESS PASSED IN RBSECPTR, A RETURN CODE OF*/ 01237000 */* FOUR IS GIVEN TO INDICATE THE END OF THE QUEUE. OTHERWISE, AN RB*/ 01238000 */* ADDRESS IS RETURNED, AND THE CODE PASSED BACK IS ZERO. RBSAVE IS */ 01239000 */* USED TO SAVE THE PASSED RB ADDRESS AS A COMPARE VALUE TO FIND */ 01240000 */* THE RB WHICH POINTS TO IT. */ 01241000 */* ONLY REGISTERS RBSECPTR AND RETCODE ARE MODIFIED BY FINDRB. */ 01242000 */* */ 01243000 */* */ 01244000 */* */ 01245000 * 0533 01246000 *FINDRB: 0533 01247000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0533 01248000 B @PB00002 0533 01249000 FINDRB DS 0H 0534 01250000 * IF RBSECPTR=TCBRBP /* IF THE INPUT RB IS YOUNGEST */ 01251000 * THEN 0534 01252000 C RBSECPTR,TCBRBP(,TCBPTR) 0534 01253000 BNE @RF00534 0534 01254000 * DO; 0535 01255000 * RETCODE=4; /* SET RETURN CODE AND LEAVE */ 01256000 LA RETCODE,4 0536 01257000 * END; 0537 01258000 * ELSE /* FIND THE NEXT YOUNGER RB */ 01259000 * DO; 0538 01260000 B @RC00534 0538 01261000 @RF00534 DS 0H 0539 01262000 * RBSAVE=RBSECPTR; /* SAVE OLD RB VALUE FOR SRCH */ 01263000 ST RBSECPTR,RBSAVE 0539 01264000 * RBSECPTR=TCBRBP; /* INITIALIZE TO YOUNGEST */ 01265000 L RBSECPTR,TCBRBP(,TCBPTR) 0540 01266000 *NEXTRB: 0541 01267000 * IF RBSAVE=RBLINKB /* IF THIS IS NEXT YOUNGER RB */ 01268000 * THEN /* LEAVE WITH CC=0 */ 01269000 NEXTRB L @10,RBSAVE 0541 01270000 SLR @00,@00 0541 01271000 ICM @00,7,RBLINKB(RBSECPTR) 0541 01272000 CR @10,@00 0541 01273000 BNE @RF00541 0541 01274000 * DO; 0542 01275000 * RETCODE=0; 0543 01276000 SLR RETCODE,RETCODE 0543 01277000 * END; 0544 01278000 * ELSE /* GET NEXT RB, CONTINUE */ 01279000 * DO; 0545 01280000 B @RC00541 0545 01281000 @RF00541 DS 0H 0546 01282000 * RBSECPTR=RBLINKB; /* SEARCH */ 01283000 SLR @10,@10 0546 01284000 ICM @10,7,RBLINKB(RBSECPTR) 0546 01285000 LR RBSECPTR,@10 0546 01286000 * GOTO NEXTRB; /* CHECK NEXT LINK */ 01287000 B NEXTRB 0547 01288000 * END; 0548 01289000 * END; 0549 01290000 * END FINDRB; 0550 01291000 @EL00002 DS 0H 0550 01292000 @EF00002 DS 0H 0550 01293000 @ER00002 BR @14 0550 01294000 * 0551 01295000 */* */ 01296000 */* */ 01297000 */* */ 01298000 */* CDXLPT IS USED TO PRINT THE CDES OR EXTENT LISTS THAT ARE FOUND */ 01299000 */* DURING THE RB AND LLE LOOP SEARCHES. THE INPUT TO THE ROUTINE IS */ 01300000 */* THE CDENTPTR OF THE CDE FOUND FROM THE RB OR LLE, AND A BIT TO */ 01301000 */* INDICATE IF THIS IS THE CDE OR EXTENT LIST PASS. ALL REGISTERS */ 01302000 */* EXCEPT CDENTPTR AND XTLSTPTR REMAIN INTACT OVER THE ROUTINE,WHICH*/ 01303000 */* DOES NOT SAVE OR RESTORE ANY REGISTERS. */ 01304000 */* */ 01305000 */* */ 01306000 */* */ 01307000 * 0551 01308000 *CDXLPT: 0551 01309000 * PROC OPTIONS(SAVE(3,5,6,8,14)); 0551 01310000 CDXLPT ST @14,@SA00003 0551 01311000 ST @03,@SA00003+4 0551 01312000 STM @05,@06,@SA00003+8 0551 01313000 ST @08,@SA00003+16 0551 01314000 * IF TYPE='1'B /* IF CDES ARE BEING DONE */ 01315000 * THEN /* FORMAT AND OUTPUT THE CDE */ 01316000 TM TYPE,B'01000000' 0552 01317000 BNO @RF00552 0552 01318000 * DO; 0553 01319000 *FMCDE: /* PASSED AS INPUT IN CDENTPTR */ 01320000 * ABDWORKA=CDENTPTR; /* SET UP ADDRESS OF CDE FOR */ 01321000 FMCDE ST CDENTPTR,ABDWORKA(,ABDARPTR) 0554 01322000 * ABDBPTR=ADDR(ABDWORKB); /* FORMATTING ON FIRST LINE */ 01323000 LA @10,ABDWORKB(,ABDARPTR) 0555 01324000 ST @10,ABDBPTR(,ABDARPTR) 0555 01325000 * ABDLLINE=ADDR(CDELINE); /* SET UP LAYOUT LINE POINTER */ 01326000 LA @10,CDELINE 0556 01327000 ST @10,ABDLLINE(,ABDARPTR) 0556 01328000 * CALL IEAVAD31; /* FORMAT THE ADDRESS */ 01329000 L @15,@CV00082 0557 01330000 BALR @14,@15 0557 01331000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 01332000 * THEN /* LEAVE WITH BAD CODE */ 01333000 LTR RETCODE,RETCODE 0558 01334000 BNZ @RT00558 0558 01335000 * GOTO BADDRET; 0559 01336000 * ABDBPTR=CDENTPTR; /* SET UP CDE START ADDRESS TO */ 01337000 ST CDENTPTR,ABDBPTR(,ABDARPTR) 0560 01338000 * CALL IEAVAD31; /* FORMAT UP TO NAME FIELD */ 01339000 L @15,@CV00082 0561 01340000 BALR @14,@15 0561 01341000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 01342000 * THEN /* LEAVE WITH BAD CODE */ 01343000 LTR RETCODE,RETCODE 0562 01344000 BNZ @RT00562 0562 01345000 * GOTO BADDRET; 0563 01346000 * ABDLINEA(49:50)=NMLAB; /* SET EP NAME FIELD LABEL */ 01347000 MVC ABDLINEA+48(2,ABDARPTR),NMLAB 0564 01348000 * ABDLINEA(52:59)=CDNAME; /* MOVE ALREADY UNPACKED NAME */ 01349000 MVC ABDLINEA+51(8,ABDARPTR),CDNAME(CDENTPTR) 0565 01350000 * ABDBPTR=ADDR(CDENTPT); /* SET UP NEXT FIELD TO FORMAT */ 01351000 LA @10,CDENTPT(,CDENTPTR) 0566 01352000 ST @10,ABDBPTR(,ABDARPTR) 0566 01353000 * CALL IEAVAD31; /* FORMAT THE REST OF THE CDE */ 01354000 L @15,@CV00082 0567 01355000 BALR @14,@15 0567 01356000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 01357000 * THEN /* LEAVE WITH BAD RETCODE */ 01358000 LTR RETCODE,RETCODE 0568 01359000 BNZ @RT00568 0568 01360000 * GOTO BADDRET; 0569 01361000 * CALL IEAVAD11; /* OUTPUT THE CDE ON ONE LINE */ 01362000 L @15,@CV00081 0570 01363000 BALR @14,@15 0570 01364000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 01365000 * THEN /* LEAVE WITH BAD RETCODE */ 01366000 LTR RETCODE,RETCODE 0571 01367000 BNZ @RT00571 0571 01368000 * GOTO BADDRET; 0572 01369000 * IF MAJOR='0'B /* IF MAJOR TO BE PRINTED TOO */ 01370000 * THEN /* LOOP BACK THROUGH */ 01371000 TM MAJOR,B'10000000' 0573 01372000 BNZ @RF00573 0573 01373000 * DO; 0574 01374000 * IF CDMIN='1'B /* IF THE CDE WAS MINOR ALSO */ 01375000 * THEN /* PRINT THE MAJOR CDE */ 01376000 TM CDMIN(CDENTPTR),B'00000100' 0575 01377000 BNO @RF00575 0575 01378000 * DO; 0576 01379000 * CDENTPTR=CDXLMJP; /* GET MAJOR ADDRESS */ 01380000 L CDENTPTR,CDXLMJP(,CDENTPTR) 0577 01381000 * GOTO FMCDE; /* LOOP BACK TO DO MAJOR CDE */ 01382000 B FMCDE 0578 01383000 * END; 0579 01384000 * END; 0580 01385000 * END; 0581 01386000 * ELSE 0582 01387000 * DO; 0582 01388000 B @RC00552 0582 01389000 @RF00552 DS 0H 0583 01390000 * IF MAJOR='1'B /* IF MAJOR TO BE BYPASSED */ 01391000 * THEN /* DONT PRINT EXTENT LIST */ 01392000 TM MAJOR,B'10000000' 0583 01393000 BO @RT00583 0583 01394000 * RETURN; /* LEAVE IMMEDIATELY */ 01395000 * IF CDMIN='1'B /* IF MINOR, GET MAJOR TO GET 0585 01396000 * EXTENT LIST ADDRESS */ 01397000 * THEN 0585 01398000 TM CDMIN(CDENTPTR),B'00000100' 0585 01399000 BNO @RF00585 0585 01400000 * CDENTPTR=CDXLMJP; /* PICK UP MAJOR CDE ADDRESS */ 01401000 L CDENTPTR,CDXLMJP(,CDENTPTR) 0586 01402000 * IF CDNIC='0'B& /* IF THE PROGRAM IS IN CORE */ 01403000 * CDXLE='1'B /* AND THE EXTENT LIST HAS BEEN */ 01404000 * THEN /* BUILT, FORMAT IT */ 01405000 @RF00585 TM CDNIC(CDENTPTR),B'01000000' 0587 01406000 BNZ @RF00587 0587 01407000 TM CDXLE(CDENTPTR),B'00100000' 0587 01408000 BNO @RF00587 0587 01409000 * DO; 0588 01410000 * XTLSTPTR=CDXLMJP; /* INITIALIZE POINTER TO XLIST */ 01411000 L XTLSTPTR,CDXLMJP(,CDENTPTR) 0589 01412000 * ABDWORKA=XTLSTPTR; /* SET UP ADDRESS OF XLIST FOR 0590 01413000 * FORMATTING INTO LINE */ 01414000 ST XTLSTPTR,ABDWORKA(,ABDARPTR) 0590 01415000 * ABDBPTR=ADDR(ABDWORKB); /* SET UP ADDRESS OF FORMAT 0591 01416000 * LAYOUT LINES FOR THE XLIST */ 01417000 LA @10,ABDWORKB(,ABDARPTR) 0591 01418000 ST @10,ABDBPTR(,ABDARPTR) 0591 01419000 * ABDLLINE=ADDR(XLLINE1); 0592 01420000 LA @10,XLLINE1 0592 01421000 ST @10,ABDLLINE(,ABDARPTR) 0592 01422000 * CALL IEAVAD31; /* FORMAT THE EXTENT LIST ADDR */ 01423000 L @15,@CV00082 0593 01424000 BALR @14,@15 0593 01425000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 01426000 * THEN /* LEAVE */ 01427000 LTR RETCODE,RETCODE 0594 01428000 BNZ @RT00594 0594 01429000 * GOTO BADDRET; /* WITH CODE=4 */ 01430000 * ABDBPTR=XTLSTPTR; /* POINT TO XLIST */ 01431000 ST XTLSTPTR,ABDBPTR(,ABDARPTR) 0596 01432000 * CALL IEAVAD31; /* FORMAT FIRST 2 WORDS OF XL */ 01433000 L @15,@CV00082 0597 01434000 BALR @14,@15 0597 01435000 * IF RETCODE^=0 /* IF FORMAT ERRED */ 01436000 * THEN /* LEAVE */ 01437000 LTR RETCODE,RETCODE 0598 01438000 BNZ @RT00598 0598 01439000 * GOTO BADDRET; /* WITH CODE=4 ABDBPTR 0599 01440000 * NOW=ADDR(ABDLLINE2) */ 01441000 * FULLSIZE=XSIZE; /* GET SIZE OF ENTIRE XLIST */ 01442000 L FULLSIZE,XSIZE(,XTLSTPTR) 0600 01443000 * COUNT=XCOUNT; /* GET NUMBER OF EXTENTS */ 01444000 L COUNT,XCOUNT(,XTLSTPTR) 0601 01445000 * LTHPTR=LTHPTR+8; /* GET ADDRESS OF LIST OF LTHS */ 01446000 LA @10,8 0602 01447000 ALR LTHPTR,@10 0602 01448000 * LENSIZE=COUNT; /* CALCULATE SIZE OF LIST OF 0603 01449000 * LENGTHS */ 01450000 LR LENSIZE,COUNT 0603 01451000 * LENSIZE=LENSIZE*4; /* SIZE OF LTHS NOW KNOWN */ 01452000 SLL LENSIZE,2 0604 01453000 * ADDRPTR=LTHPTR+LENSIZE; /* GET ADRESS OF LIST OF ADRESSES*/ 01454000 LR ADDRPTR,LTHPTR 0605 01455000 ALR ADDRPTR,LENSIZE 0605 01456000 * XLSIZE=8+XLSIZE+XLSIZE; /* SIZE OF XLIST LESS THE SIZE OF 01457000 * THE WORK AREA */ 01458000 ALR @10,XLSIZE 0606 01459000 ALR XLSIZE,@10 0606 01460000 * WORKSIZE=WORKSIZE-XLSIZE;/* SIZE OF WORK AREA */ 01461000 SLR WORKSIZE,XLSIZE 0607 01462000 * FMCOUNT=0; /* SET COUNT OF FORMATTED WORDS 01463000 * TO ZERO */ 01464000 SLR FMCOUNT,FMCOUNT 0608 01465000 * DO COUNT=COUNT TO 1 BY-1;/* FORMAT THE LTH AND ADDR LISTS 01466000 * INTO LINES */ 01467000 B @DE00609 0609 01468000 @DL00609 DS 0H 0610 01469000 * ABDBPTR=LTHPTR; /* SET TO DO LENGTH ENTRY */ 01470000 ST LTHPTR,ABDBPTR(,ABDARPTR) 0610 01471000 * CALL IEAVAD61; /* FORMAT THE ENTRY */ 01472000 L @15,@CV00083 0611 01473000 BALR @14,@15 0611 01474000 * IF RETCODE^=0 /* IF IEAVAD61 ERRED */ 01475000 * THEN /* LEAVE */ 01476000 LTR RETCODE,RETCODE 0612 01477000 BNZ @RT00612 0612 01478000 * GOTO BADDRET; /* WITH CODE=4 */ 01479000 * LTHPTR=ABDBPTR; /* SAVE THE NEXT LENTH */ 01480000 L LTHPTR,ABDBPTR(,ABDARPTR) 0614 01481000 * ABDBPTR=ADDRPTR; /* POINT TO ADDR TO FORMAT */ 01482000 ST ADDRPTR,ABDBPTR(,ABDARPTR) 0615 01483000 * CALL IEAVAD61; /* FORMAT IT */ 01484000 L @15,@CV00083 0616 01485000 BALR @14,@15 0616 01486000 * IF RETCODE^=0 /* IF IEAVAD61 ERRED */ 01487000 * THEN /* LEAVE */ 01488000 LTR RETCODE,RETCODE 0617 01489000 BNZ @RT00617 0617 01490000 * GOTO BADDRET; /* WITH CODE=4 */ 01491000 * ADDRPTR=ABDBPTR; /* SAVE THE NEXT ADDR */ 01492000 L ADDRPTR,ABDBPTR(,ABDARPTR) 0619 01493000 * FMCOUNT=FMCOUNT+2; /* INDICATE 2 WORDS DONE */ 01494000 LA FMCOUNT,2(,FMCOUNT) 0620 01495000 * IF FMCOUNT=6 /* IF LINE IS FULL PRINT IT */ 01496000 * THEN /* OUTPUT LINE AND RESET COUNT */ 01497000 CH FMCOUNT,@CH00109 0621 01498000 BNE @RF00621 0621 01499000 * DO; 0622 01500000 * CALL IEAVAD11; /* OUTPUT THE LINE */ 01501000 L @15,@CV00081 0623 01502000 BALR @14,@15 0623 01503000 * IF RETCODE^=0 /* IF OUTPUT ERRED */ 01504000 * THEN /* CODE=4, LEAVE */ 01505000 LTR RETCODE,RETCODE 0624 01506000 BNZ @RT00624 0624 01507000 * GOTO BADDRET; 0625 01508000 * FMCOUNT=0; /* RESET THE LINE COUNTER */ 01509000 SLR FMCOUNT,FMCOUNT 0626 01510000 * ABDLLINE=ADDR(XLLINE2);/* RESET LAYOUT LINE POINTER*/ 01511000 LA @10,XLLINE2 0627 01512000 ST @10,ABDLLINE(,ABDARPTR) 0627 01513000 * END; /* END OF OUTPUT DO */ 01514000 * END; /* END OF COUNT LNTHS DO */ 01515000 @RF00621 BCTR COUNT,0 0629 01516000 @DE00609 LTR COUNT,COUNT 0629 01517000 BP @DL00609 0629 01518000 * IF WORKSIZE>0 /* IF THERE IS A WORK AREA */ 01519000 * THEN /* FORMAT AND OUTPUT IT ALSO */ 01520000 LTR WORKSIZE,WORKSIZE 0630 01521000 BNP @RF00630 0630 01522000 * DO; /* EVEN IF THERE ARE NO EXTENTS */ 01523000 * WORKSIZE=WORKSIZE/4;/* CALCULATE NUMBER OF WORDS TO 01524000 * FORMAT */ 01525000 SRL WORKSIZE,2 0632 01526000 * ABDBPTR=ADDRPTR; /* ADDRESS OF WORK AREA */ 01527000 ST ADDRPTR,ABDBPTR(,ABDARPTR) 0633 01528000 * DO WORKSIZE=WORKSIZE TO 1 BY-1; 0634 01529000 B @DE00634 0634 01530000 @DL00634 DS 0H 0635 01531000 * CALL IEAVAD61; /* FORMAT WORD INTO LINE */ 01532000 L @15,@CV00083 0635 01533000 BALR @14,@15 0635 01534000 * IF RETCODE^=0 /* IF ERRED */ 01535000 * THEN 0636 01536000 LTR RETCODE,RETCODE 0636 01537000 BNZ @RT00636 0636 01538000 * GOTO BADDRET; 0637 01539000 * FMCOUNT=FMCOUNT+1;/* INDICATE 1 WORD FMTD */ 01540000 LA FMCOUNT,1(,FMCOUNT) 0638 01541000 * IF FMCOUNT=6 /* IF END OF LINE */ 01542000 * THEN 0639 01543000 CH FMCOUNT,@CH00109 0639 01544000 BNE @RF00639 0639 01545000 * DO; 0640 01546000 * CALL IEAVAD11;/* OUTPUT THE LINE */ 01547000 L @15,@CV00081 0641 01548000 BALR @14,@15 0641 01549000 * IF RETCODE^=0 /* IF ERRED */ 01550000 * THEN 0642 01551000 LTR RETCODE,RETCODE 0642 01552000 BNZ @RT00642 0642 01553000 * GOTO BADDRET; 0643 01554000 * ABDLLINE=ADDR(XLLINE2); 0644 01555000 LA @10,XLLINE2 0644 01556000 ST @10,ABDLLINE(,ABDARPTR) 0644 01557000 * FMCOUNT=0; 0645 01558000 SLR FMCOUNT,FMCOUNT 0645 01559000 * END; /* OUTPUT LINE DO */ 01560000 * END; /* WORK LOOP DO */ 01561000 @RF00639 BCTR WORKSIZE,0 0647 01562000 @DE00634 LTR WORKSIZE,WORKSIZE 0647 01563000 BP @DL00634 0647 01564000 * END; /* WORKSIZE EXISTS DO */ 01565000 * IF FMCOUNT^=0 THEN 0649 01566000 @RF00630 LTR FMCOUNT,FMCOUNT 0649 01567000 BZ @RF00649 0649 01568000 * DO; 0650 01569000 * CALL IEAVAD11; 0651 01570000 L @15,@CV00081 0651 01571000 BALR @14,@15 0651 01572000 * IF RETCODE^=0 THEN 0652 01573000 LTR RETCODE,RETCODE 0652 01574000 BNZ @RT00652 0652 01575000 * GOTO BADDRET; 0653 01576000 * END; /* OUTPUT DO */ 01577000 * END; /* ELIST EXISTS DO */ 01578000 * END; /* ELIST TO BE DONE DO */ 01579000 * RETURN; /* RETURN WITH CODE=0 */ 01580000 @EL00003 DS 0H 0657 01581000 @EF00003 DS 0H 0657 01582000 @ER00003 L @14,@SA00003 0657 01583000 L @03,@SA00003+4 0657 01584000 LM @05,@06,@SA00003+8 0657 01585000 L @08,@SA00003+16 0657 01586000 BR @14 0657 01587000 *BADDRET: /* RETURN WITH BAD CODE TO */ 01588000 * RETURN TO FREERET; /* EXIT ROUTINE OF MAIN CODE */ 01589000 BADDRET LA @14,FREERET 0658 01590000 L @03,@SA00003+4 0658 01591000 LM @05,@06,@SA00003+8 0658 01592000 L @08,@SA00003+16 0658 01593000 BR @14 0658 01594000 * END CDXLPT; 0659 01595000 B @EL00003 0659 01596000 @PB00003 DS 0H 0660 01597000 * DCL 0660 01598000 * PATCHLOC FIXED(31) STATIC; 0660 01599000 * GEN DATA DEFS(PATCHLOC); 0661 01600000 * DECLARE /* COMMON VARIABLES */ 01601000 * I256C CHAR(256) BASED, 0662 01602000 * I031F FIXED(31) BASED, 0662 01603000 * I031P PTR(31) BASED, 0662 01604000 * I015F FIXED(15) BASED, 0662 01605000 * I015P PTR(15) BASED, 0662 01606000 * I008P PTR(8) BASED, 0662 01607000 * I001C CHAR(1) BASED; 0662 01608000 * END IEAVAD03 0663 01609000 * 0663 01610000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01611000 */*%INCLUDE SYSLIB (IHAABDA ) */ 01612000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01613000 */*%INCLUDE SYSLIB (IHACDE ) */ 01614000 */*%INCLUDE SYSLIB (IHALLE ) */ 01615000 */*%INCLUDE SYSLIB (CVT ) */ 01616000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01617000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 01618000 */*%INCLUDE SYSLIB (IHARB ) */ 01619000 */*%INCLUDE SYSLIB (IKJRB ) */ 01620000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01621000 */*%INCLUDE SYSLIB (IHARTCT ) */ 01622000 * 0663 01623000 * ; 0663 01624000 B @EL00001 0663 01625000 @DATA DS 0H 01626000 @CH00092 DC H'3' 01627000 @CH00109 DC H'6' 01628000 @CH00064 DC H'8' 01629000 @CH00038 DC H'24' 01630000 @CH01089 DC H'32' 01631000 @DATD DSECT 01632000 DS 0F 01633000 @SA00003 DS 0F 01634000 DS 5F 01635000 IEAVAD03 CSECT 01636000 DS 0F 01637000 @DATD DSECT 01638000 DS 0D 01639000 RBSAVE DS F 01640000 ASCBPTR DS A 01641000 OFFSET DS H 01642000 BYTEBIT DS CL1 01643000 ORG BYTEBIT 01644000 MAJOR DS BL1 01645000 TYPE EQU BYTEBIT+0 01646000 ORG BYTEBIT+1 01647000 IEAVAD03 CSECT 01648000 DS 0F 01649000 @SIZDATD DC AL1(0) 01650000 DC AL3(@ENDDATD-@DATD) 01651000 @CV00081 DC V(IEAVAD11) 01652000 @CV00082 DC V(IEAVAD31) 01653000 @CV00083 DC V(IEAVAD61) 01654000 DS 0D 01655000 UNALCMSG DC CL21'***FREE TIOT SPACE***' 01656000 CDTITLE DC CL4'-CDE' 01657000 XLTITLE DC CL3'-XL' 01658000 LNADRHD DC CL15'LN ADR' 01659000 NMLAB DC CL2'NM' 01660000 TIOJOB DC CL5' JOB ' 01661000 STPMSG DC CL4'STEP' 01662000 PROCMSG DC CL4'PROC' 01663000 PLUS DC CL1'+' 01664000 OFFMSG DC CL6'OFFSET' 01665000 LNMSG DC CL6'LN-STA' 01666000 DDMSG DC CL6'DDNAME' 01667000 TTRMSG DC CL6'TTR-ST' 01668000 STBMSG DC CL6'STB-UC' 01669000 LLTTL DC CL10'-LOAD LIST' 01670000 WORKLABL DC CL7'NX/WORK' 01671000 IRBMSG DC CL4'IRB ' 01672000 SVRBMSG DC CL4'SVRB' 01673000 RBTTL DC CL11'-ACTIVE RBS' 01674000 RESVMSG DC CL6'RESV ' 01675000 FLPSA DC CL4'PSAV' 01676000 EPAMSG DC CL6'EPA ' 01677000 ASCBLINE DS CL8 01678000 ORG ASCBLINE 01679000 @NM00001 DC X'003301' 01680000 @NM00002 DC CL4'ASCB' 01681000 @NM00003 DC X'FF' 01682000 ORG ASCBLINE+8 01683000 ASCBLNE DS CL44 01684000 ORG ASCBLNE 01685000 @NM00004 DC X'079303' 01686000 @NM00005 DC CL10'+0 ASCB' 01687000 @NM00006 DC X'3343' 01688000 @NM00007 DC CL4'FWDP' 01689000 @NM00008 DC X'3343' 01690000 @NM00009 DC CL4'BWDP' 01691000 @NM00010 DC X'3343' 01692000 @NM00011 DC CL4'CMSF' 01693000 @NM00012 DC X'3343' 01694000 @NM00013 DC CL4'SVRB' 01695000 @NM00014 DC X'3343' 01696000 @NM00015 DC CL4'SYNC' 01697000 @NM00016 DC X'FF' 01698000 @NM00017 DS CL44 01699000 ORG @NM00017 01700000 @NM00018 DC X'079343' 01701000 @NM00019 DC CL10'+18 IOSP' 01702000 @NM00020 DC X'3343' 01703000 @NM00021 DC CL4'SPL ' 01704000 @NM00022 DC X'3343' 01705000 @NM00023 DC CL4'CPUS' 01706000 @NM00024 DC X'3343' 01707000 @NM00025 DC CL4'IDSQ' 01708000 @NM00026 DC X'3343' 01709000 @NM00027 DC CL4'IODP' 01710000 @NM00028 DC X'3343' 01711000 @NM00029 DC CL4'STOR' 01712000 @NM00030 DC X'FF' 01713000 ORG ASCBLNE+88 01714000 @NM00031 DS CL44 01715000 ORG @NM00031 01716000 @NM00032 DC X'079343' 01717000 @NM00033 DC CL10'+30 LDA ' 01718000 @NM00034 DC X'3343' 01719000 @NM00035 DC CL4'RSM ' 01720000 @NM00036 DC X'3343' 01721000 @NM00037 DC CL4'CSCB' 01722000 @NM00038 DC X'3343' 01723000 @NM00039 DC CL4'TSB ' 01724000 @NM00040 DC X'3343' 01725000 @NM00041 DC CL4'EJST' 01726000 @NM00042 DC X'3343' 01727000 @NM00043 DC CL4'XJST' 01728000 @NM00044 DC X'FF' 01729000 ORG ASCBLNE+132 01730000 @NM00045 DS CL44 01731000 ORG @NM00045 01732000 @NM00046 DC X'079343' 01733000 @NM00047 DC CL10'+48 EWST' 01734000 @NM00048 DC X'3343' 01735000 @NM00049 DC CL4'XWST' 01736000 @NM00050 DC X'3343' 01737000 @NM00051 DC CL4'JSTL' 01738000 @NM00052 DC X'3343' 01739000 @NM00053 DC CL4'ECB ' 01740000 @NM00054 DC X'3343' 01741000 @NM00055 DC CL4'UBET' 01742000 @NM00056 DC X'3343' 01743000 @NM00057 DC CL4'RESV' 01744000 @NM00058 DC X'FF' 01745000 ORG ASCBLNE+176 01746000 @NM00059 DS CL44 01747000 ORG @NM00059 01748000 @NM00060 DC X'079343' 01749000 @NM00061 DC CL10'+60 DUMP' 01750000 @NM00062 DC X'3343' 01751000 @NM00063 DC CL4'FW1 ' 01752000 @NM00064 DC X'3343' 01753000 @NM00065 DC CL4'TMCH' 01754000 @NM00066 DC X'3343' 01755000 @NM00067 DC CL4'ASXB' 01756000 @NM00068 DC X'3343' 01757000 @NM00069 DC CL4'SWCT' 01758000 @NM00070 DC X'3343' 01759000 @NM00071 DC CL4'SSRB' 01760000 @NM00072 DC X'FF' 01761000 ORG ASCBLNE+220 01762000 @NM00073 DS CL44 01763000 ORG @NM00073 01764000 @NM00074 DC X'079343' 01765000 @NM00075 DC CL10'+78 VSC ' 01766000 @NM00076 DC X'3343' 01767000 @NM00077 DC CL4'TCBS' 01768000 @NM00078 DC X'3343' 01769000 @NM00079 DC CL4'LOCK' 01770000 @NM00080 DC X'3343' 01771000 @NM00081 DC CL4'LSQH' 01772000 @NM00082 DC X'3343' 01773000 @NM00083 DC CL4'QECB' 01774000 @NM00084 DC X'3343' 01775000 @NM00085 DC CL4'MECB' 01776000 @NM00086 DC X'FF' 01777000 ORG ASCBLNE+264 01778000 @NM00087 DS CL44 01779000 ORG @NM00087 01780000 @NM00088 DC X'079343' 01781000 @NM00089 DC CL10'+90 OUCB' 01782000 @NM00090 DC X'3343' 01783000 @NM00091 DC CL4'OUXB' 01784000 @NM00092 DC X'3343' 01785000 @NM00093 DC CL4'FMCT' 01786000 @NM00094 DC X'3343' 01787000 @NM00095 DC CL4'XMPQ' 01788000 @NM00096 DC X'3343' 01789000 @NM00097 DC CL4'IQEA' 01790000 @NM00098 DC X'3343' 01791000 @NM00099 DC CL4'RTWA' 01792000 @NM00100 DC X'FF' 01793000 ORG ASCBLNE+308 01794000 @NM00101 DS CL44 01795000 ORG @NM00101 01796000 @NM00102 DC X'079343' 01797000 @NM00103 DC CL10'+A8 MCC ' 01798000 @NM00104 DC X'3343' 01799000 @NM00105 DC CL4'JBNI' 01800000 @NM00106 DC X'3343' 01801000 @NM00107 DC CL4'JBNS' 01802000 @NM00108 DC X'3343' 01803000 @NM00109 DC CL4'SRQ ' 01804000 @NM00110 DC X'3343' 01805000 @NM00111 DC CL4'VGTT' 01806000 @NM00112 DC X'3343' 01807000 @NM00113 DC CL4'PCTT' 01808000 @NM00114 DC X'FF' 01809000 ORG ASCBLNE+352 01810000 @NM00115 DS CL38 01811000 ORG @NM00115 01812000 @NM00116 DC X'079343' 01813000 @NM00117 DC CL10'+C0 SMCT' 01814000 @NM00118 DC X'3343' 01815000 @NM00119 DC CL4'SWTL' 01816000 @NM00120 DC X'3343' 01817000 @NM00121 DC CL4'SRBT' 01818000 @NM00122 DC X'3343' 01819000 @NM00123 DC CL4'ATME' 01820000 @NM00124 DC X'FF' 01821000 ORG ASCBLNE+390 01822000 CDELINE DS CL43 01823000 ORG CDELINE 01824000 @NM00125 DC X'040200' 01825000 @NM00126 DC CL1' ' 01826000 @NM00127 DC X'FF' 01827000 @NM00128 DC X'123301' 01828000 @NM00129 DC CL4'NCDE' 01829000 @NM00130 DC X'2341' 01830000 @NM00131 DC CL3'RBP' 01831000 @NM00132 DC X'FF' 01832000 @NM00133 DC X'3D2301' 01833000 @NM00134 DC CL3'EPA' 01834000 @NM00135 DC X'4341' 01835000 @NM00136 DC CL5'XL/MJ' 01836000 @NM00137 DC X'2341' 01837000 @NM00138 DC CL3'USE' 01838000 @NM00139 DC X'3341' 01839000 @NM00140 DC CL4'ATTR' 01840000 @NM00141 DC X'FF' 01841000 ORG CDELINE+43 01842000 XLLINE1 DS CL33 01843000 ORG XLLINE1 01844000 @NM00142 DC X'040200' 01845000 @NM00143 DC CL1' ' 01846000 @NM00144 DC X'FF' 01847000 @NM00145 DC X'0E1301' 01848000 @NM00146 DC CL2'SZ' 01849000 @NM00147 DC X'1341' 01850000 @NM00148 DC CL2'NO' 01851000 @NM00149 DC X'FF' 01852000 XLLINE2 DS CL18 01853000 ORG XLLINE2 01854000 @NM00150 DC X'2E03FF' 01855000 @NM00151 DC X'3A03FF' 01856000 @NM00152 DC X'4603FF' 01857000 @NM00153 DC X'5203FF' 01858000 @NM00154 DC X'5E03FF' 01859000 @NM00155 DC X'6A03FF' 01860000 ORG XLLINE1+33 01861000 TIOHEAD DS CL8 01862000 ORG TIOHEAD 01863000 @NM00156 DC X'003202' 01864000 @NM00157 DC CL4'TIOT' 01865000 @NM00158 DC X'FF' 01866000 ORG TIOHEAD+8 01867000 TIOLLIN1 DS CL27 01868000 ORG TIOLLIN1 01869000 @NM00159 DC X'1303FF' 01870000 @NM00160 DC X'1F03FF' 01871000 TIOLLOFF DS CL3 01872000 ORG TIOLLOFF 01873000 @NM00161 DC X'0B01FF' 01874000 ORG TIOLLIN1+9 01875000 TIOLLIN2 DS CL18 01876000 ORG TIOLLIN2 01877000 @NM00162 DC X'2B03FF' 01878000 @NM00163 DC X'3703FF' 01879000 @NM00164 DC X'4303FF' 01880000 @NM00165 DC X'4F03FF' 01881000 @NM00166 DC X'5B03FF' 01882000 @NM00167 DC X'6703FF' 01883000 ORG TIOLLIN1+27 01884000 LLIST DS CL40 01885000 ORG LLIST 01886000 @NM00168 DC X'081301' 01887000 @NM00169 DC CL2'NE' 01888000 @NM00170 DC X'6341' 01889000 @NM00171 DC CL7'RSP-CDE' 01890000 @NM00172 DC X'2341' 01891000 @NM00173 DC CL3'CNT' 01892000 @NM00174 DC X'FF401301' 01893000 @NM00175 DC CL2'NE' 01894000 @NM00176 DC X'6341' 01895000 @NM00177 DC CL7'RSP-CDE' 01896000 @NM00178 DC X'2341' 01897000 @NM00179 DC CL3'CNT' 01898000 @NM00180 DC X'FF' 01899000 ORG LLIST+40 01900000 RBLLINE1 DS CL119 01901000 ORG RBLLINE1 01902000 @NM00181 DC X'003201' 01903000 @NM00182 DC CL4'PRB ' 01904000 @NM00183 DC X'FF' 01905000 @NM00184 DS CL36 01906000 ORG @NM00184 01907000 @NM00185 DC X'0D3302' 01908000 @NM00186 DC CL4'RESV' 01909000 @NM00187 DC X'3341' 01910000 @NM00188 DC CL4'RESV' 01911000 @NM00189 DC X'5341' 01912000 @NM00190 DC CL6'RTPSW1' 01913000 @NM00191 DC X'0340' 01914000 @NM00192 DC CL1' ' 01915000 @NM00193 DC X'5341' 01916000 @NM00194 DC CL6'RTPSW2' 01917000 @NM00195 DC X'0340' 01918000 @NM00196 DC CL1' ' 01919000 @NM00197 DC X'FF' 01920000 ORG RBLLINE1+44 01921000 @NM00198 DS CL17 01922000 ORG @NM00198 01923000 @NM00199 DC X'0D3342' 01924000 @NM00200 DC CL4'FLG1' 01925000 @NM00201 DC X'6341' 01926000 @NM00202 DC CL7'WC-L-IC' 01927000 @NM00203 DC X'FF' 01928000 ORG RBLLINE1+61 01929000 @NM00204 DS CL23 01930000 ORG @NM00204 01931000 @NM00205 DC X'0D3342' 01932000 @NM00206 DC CL4'RESV' 01933000 @NM00207 DC X'3344' 01934000 @NM00208 DC CL4'APSW' 01935000 @NM00209 DC X'6341' 01936000 @NM00210 DC CL7'SZ-STAB' 01937000 @NM00211 DC X'FF' 01938000 ORG RBLLINE1+84 01939000 @NM00212 DS CL18 01940000 ORG @NM00212 01941000 @NM00213 DC X'465341' 01942000 @NM00214 DC CL6'FL-CDE' 01943000 @NM00215 DC X'2341' 01944000 @NM00216 DC CL3'PSW' 01945000 @NM00217 DC X'0340' 01946000 @NM00218 DC CL1' ' 01947000 @NM00219 DC X'FF' 01948000 ORG RBLLINE1+102 01949000 @NM00220 DS CL17 01950000 ORG @NM00220 01951000 @NM00221 DC X'0D4341' 01952000 @NM00222 DC CL5'Q/TTR' 01953000 @NM00223 DC X'5342' 01954000 @NM00224 DC CL6'WT-LNK' 01955000 @NM00225 DC X'FF' 01956000 ORG RBLLINE1+119 01957000 IRBXLINE DS CL20 01958000 ORG IRBXLINE 01959000 @NM00226 DC X'16032203FF' 01960000 @NM00227 DC X'2E033A03FF' 01961000 @NM00228 DC X'46035203FF' 01962000 @NM00229 DC X'5E036A03FF' 01963000 ORG IRBXLINE+20 01964000 REGS1 DS CL63 01965000 ORG REGS1 01966000 @NM00230 DC X'0D5303' 01967000 @NM00231 DC CL6'RG 0-7' 01968000 @NM00232 DC X'0340' 01969000 @NM00233 DC CL1' ' 01970000 @NM00234 DC X'0340' 01971000 @NM00235 DC CL1' ' 01972000 @NM00236 DC X'0340' 01973000 @NM00237 DC CL1' ' 01974000 @NM00238 DC X'0340' 01975000 @NM00239 DC CL1' ' 01976000 @NM00240 DC X'0340' 01977000 @NM00241 DC CL1' ' 01978000 @NM00242 DC X'0340' 01979000 @NM00243 DC CL1' ' 01980000 @NM00244 DC X'0340' 01981000 @NM00245 DC CL1' ' 01982000 @NM00246 DC X'FF' 01983000 @NM00247 DC X'0D6342' 01984000 @NM00248 DC CL7'RG 8-15' 01985000 @NM00249 DC X'0340' 01986000 @NM00250 DC CL1' ' 01987000 @NM00251 DC X'0340' 01988000 @NM00252 DC CL1' ' 01989000 @NM00253 DC X'0340' 01990000 @NM00254 DC CL1' ' 01991000 @NM00255 DC X'0340' 01992000 @NM00256 DC CL1' ' 01993000 @NM00257 DC X'0340' 01994000 @NM00258 DC CL1' ' 01995000 @NM00259 DC X'0340' 01996000 @NM00260 DC CL1' ' 01997000 @NM00261 DC X'0340' 01998000 @NM00262 DC CL1' ' 01999000 @NM00263 DC X'FF' 02000000 ORG REGS1+63 02001000 EXTSA1 DS CL44 02002000 ORG EXTSA1 02003000 @NM00264 DC X'0D4344' 02004000 @NM00265 DC CL5'EXTSA' 02005000 @NM00266 DC X'0340' 02006000 @NM00267 DC CL1' ' 02007000 @NM00268 DC X'0340' 02008000 @NM00269 DC CL1' ' 02009000 @NM00270 DC X'0340' 02010000 @NM00271 DC CL1' ' 02011000 @NM00272 DC X'0340' 02012000 @NM00273 DC CL1' ' 02013000 @NM00274 DC X'0340' 02014000 @NM00275 DC CL1' ' 02015000 @NM00276 DC X'0340' 02016000 @NM00277 DC CL1' ' 02017000 @NM00278 DC X'0340' 02018000 @NM00279 DC CL1' ' 02019000 @NM00280 DC X'FF' 02020000 @NM00281 DC X'150340' 02021000 @NM00282 DC CL1' ' 02022000 @NM00283 DC X'0340' 02023000 @NM00284 DC CL1' ' 02024000 @NM00285 DC X'0340' 02025000 @NM00286 DC CL1' ' 02026000 @NM00287 DC X'0340' 02027000 @NM00288 DC CL1' ' 02028000 @NM00289 DC X'FF' 02029000 ORG EXTSA1+44 02030000 SCBLINE DS CL25 02031000 ORG SCBLINE 02032000 @NM00290 DC X'0D2346' 02033000 @NM00291 DC CL3'SCB' 02034000 @NM00292 DC X'0340' 02035000 @NM00293 DC CL1' ' 02036000 @NM00294 DC X'0340' 02037000 @NM00295 DC CL1' ' 02038000 @NM00296 DC X'0340' 02039000 @NM00297 DC CL1' ' 02040000 @NM00298 DC X'0340' 02041000 @NM00299 DC CL1' ' 02042000 @NM00300 DC X'3344' 02043000 @NM00301 DC CL4'RESV' 02044000 @NM00302 DC X'FF' 02045000 ORG SCBLINE+25 02046000 FEPLINE DS CL25 02047000 ORG FEPLINE 02048000 @NM00303 DC X'0D5343' 02049000 @NM00304 DC CL6'FEPARM' 02050000 @NM00305 DC X'0340' 02051000 @NM00306 DC CL1' ' 02052000 @NM00307 DC X'0340' 02053000 @NM00308 DC CL1' ' 02054000 @NM00309 DC X'0340' 02055000 @NM00310 DC CL1' ' 02056000 @NM00311 DC X'0340' 02057000 @NM00312 DC CL1' ' 02058000 @NM00313 DC X'0340' 02059000 @NM00314 DC CL1' ' 02060000 @NM00315 DC X'FF' 02061000 ORG FEPLINE+25 02062000 TCBLN1 DS CL86 02063000 ORG TCBLN1 02064000 @NM00316 DC X'002202' 02065000 @NM00317 DC CL3'TCB' 02066000 @NM00318 DC X'FF' 02067000 @NM00319 DC X'078303' 02068000 @NM00320 DC CL9'+0 RBP' 02069000 @NM00321 DC X'2344' 02070000 @NM00322 DC CL3'PIE' 02071000 @NM00323 DC X'2342' 02072000 @NM00324 DC CL3'DEB' 02073000 @NM00325 DC X'2341' 02074000 @NM00326 DC CL3'TIO' 02075000 @NM00327 DC X'2343' 02076000 @NM00328 DC CL3'CMP' 02077000 @NM00329 DC X'2342' 02078000 @NM00330 DC CL3'TRN' 02079000 @NM00331 DC X'FF' 02080000 @NM00332 DS CL41 02081000 ORG @NM00332 02082000 @NM00333 DC X'078343' 02083000 @NM00334 DC CL9'+18 MSS' 02084000 @NM00335 DC X'5341' 02085000 @NM00336 DC CL6'PK-FLG' 02086000 @NM00337 DC X'2342' 02087000 @NM00338 DC CL3'FLG' 02088000 @NM00339 DC X'2341' 02089000 @NM00340 DC CL3'LLS' 02090000 @NM00341 DC X'2343' 02091000 @NM00342 DC CL3'JLB' 02092000 @NM00343 DC X'2342' 02093000 @NM00344 DC CL3'JPQ' 02094000 @NM00345 DC X'FF' 02095000 ORG TCBLN1+86 02096000 TCBLN3 DS CL372 02097000 ORG TCBLN3 02098000 @NM00346 DS CL38 02099000 ORG @NM00346 02100000 @NM00347 DC X'078303' 02101000 @NM00348 DC CL9'+70 FSA' 02102000 @NM00349 DC X'2344' 02103000 @NM00350 DC CL3'TCB' 02104000 @NM00351 DC X'2342' 02105000 @NM00352 DC CL3'TME' 02106000 @NM00353 DC X'2341' 02107000 @NM00354 DC CL3'JST' 02108000 @NM00355 DC X'2343' 02109000 @NM00356 DC CL3'NTC' 02110000 @NM00357 DC X'2342' 02111000 @NM00358 DC CL3'OTC' 02112000 @NM00359 DC X'FF' 02113000 ORG TCBLN3+38 02114000 @NM00360 DS CL40 02115000 ORG @NM00360 02116000 @NM00361 DC X'078343' 02117000 @NM00362 DC CL9'+88 LTC' 02118000 @NM00363 DC X'2344' 02119000 @NM00364 DC CL3'IQE' 02120000 @NM00365 DC X'2342' 02121000 @NM00366 DC CL3'ECB' 02122000 @NM00367 DC X'2341' 02123000 @NM00368 DC CL3'TSF' 02124000 @NM00369 DC X'4341' 02125000 @NM00370 DC CL5'D-PQE' 02126000 @NM00371 DC X'2342' 02127000 @NM00372 DC CL3'AQE' 02128000 @NM00373 DC X'FF' 02129000 ORG TCBLN3+78 02130000 @NM00374 DS CL42 02131000 ORG @NM00374 02132000 @NM00375 DC X'079342' 02133000 @NM00376 DC CL10'+A0 STAB' 02134000 @NM00377 DC X'2344' 02135000 @NM00378 DC CL3'TCT' 02136000 @NM00379 DC X'3341' 02137000 @NM00380 DC CL4'USER' 02138000 @NM00381 DC X'2341' 02139000 @NM00382 DC CL3'SDF' 02140000 @NM00383 DC X'3342' 02141000 @NM00384 DC CL4'MDID' 02142000 @NM00385 DC X'3341' 02143000 @NM00386 DC CL4'JSCB' 02144000 @NM00387 DC X'FF' 02145000 ORG TCBLN3+120 02146000 @NM00388 DS CL43 02147000 ORG @NM00388 02148000 @NM00389 DC X'079342' 02149000 @NM00390 DC CL10'+B8 RESV' 02150000 @NM00391 DC X'4342' 02151000 @NM00392 DC CL5'IOBRC' 02152000 @NM00393 DC X'3341' 02153000 @NM00394 DC CL4'XCPD' 02154000 @NM00395 DC X'2341' 02155000 @NM00396 DC CL3'EXT' 02156000 @NM00397 DC X'3342' 02157000 @NM00398 DC CL4'BITS' 02158000 @NM00399 DC X'2342' 02159000 @NM00400 DC CL3'DAR' 02160000 @NM00401 DC X'FF' 02161000 ORG TCBLN3+163 02162000 @NM00402 DS CL45 02163000 ORG @NM00402 02164000 @NM00403 DC X'07A341' 02165000 @NM00404 DC CL11'+D0 EXT2 ' 02166000 @NM00405 DC X'3343' 02167000 @NM00406 DC CL4'AECB' 02168000 @NM00407 DC X'3341' 02169000 @NM00408 DC CL4'TIRB' 02170000 @NM00409 DC X'2341' 02171000 @NM00410 DC CL3'BAK' 02172000 @NM00411 DC X'4341' 02173000 @NM00412 DC CL5'RTMWA' 02174000 @NM00413 DC X'3341' 02175000 @NM00414 DC CL4'IOTM' 02176000 @NM00415 DC X'FF' 02177000 ORG TCBLN3+208 02178000 @NM00416 DS CL43 02179000 ORG @NM00416 02180000 @NM00417 DC X'07A341' 02181000 @NM00418 DC CL11'+E8 TMSAV' 02182000 @NM00419 DC X'3343' 02183000 @NM00420 DC CL4'ABCR' 02184000 @NM00421 DC X'3341' 02185000 @NM00422 DC CL4'XSCT' 02186000 @NM00423 DC X'2341' 02187000 @NM00424 DC CL3'FOE' 02188000 @NM00425 DC X'2343' 02189000 @NM00426 DC CL3'SWA' 02190000 @NM00427 DC X'3341' 02191000 @NM00428 DC CL4'STAW' 02192000 @NM00429 DC X'FF' 02193000 ORG TCBLN3+251 02194000 @NM00430 DS CL42 02195000 ORG @NM00430 02196000 @NM00431 DC X'078343' 02197000 @NM00432 DC CL9'+100 BID' 02198000 @NM00433 DC X'3343' 02199000 @NM00434 DC CL4'RTM1' 02200000 @NM00435 DC X'3341' 02201000 @NM00436 DC CL4'ESTA' 02202000 @NM00437 DC X'2341' 02203000 @NM00438 DC CL3'UKY' 02204000 @NM00439 DC X'3342' 02205000 @NM00440 DC CL4'CPVI' 02206000 @NM00441 DC X'3341' 02207000 @NM00442 DC CL4'BYT1' 02208000 @NM00443 DC X'FF' 02209000 ORG TCBLN3+293 02210000 @NM00444 DS CL43 02211000 ORG @NM00444 02212000 @NM00445 DC X'079342' 02213000 @NM00446 DC CL10'+118 RPT ' 02214000 @NM00447 DC X'3343' 02215000 @NM00448 DC CL4'DBTB' 02216000 @NM00449 DC X'3341' 02217000 @NM00450 DC CL4'SWAS' 02218000 @NM00451 DC X'2341' 02219000 @NM00452 DC CL3'SCB' 02220000 @NM00453 DC X'3342' 02221000 @NM00454 DC CL4'RESV' 02222000 @NM00455 DC X'3341' 02223000 @NM00456 DC CL4'RESV' 02224000 @NM00457 DC X'FF' 02225000 ORG TCBLN3+372 02226000 TCBEXLN1 DS CL44 02227000 ORG TCBEXLN1 02228000 @NM00458 DC X'07A301' 02229000 @NM00459 DC CL11'EXT2 GTF ' 02230000 @NM00460 DC X'3343' 02231000 @NM00461 DC CL4'SVAB' 02232000 @NM00462 DC X'3341' 02233000 @NM00463 DC CL4'EVNT' 02234000 @NM00464 DC X'2341' 02235000 @NM00465 DC CL3'RES' 02236000 @NM00466 DC X'3342' 02237000 @NM00467 DC CL4'RESV' 02238000 @NM00468 DC X'3341' 02239000 @NM00469 DC CL4'RESV' 02240000 @NM00470 DC X'FF' 02241000 ORG TCBEXLN1+44 02242000 IEAVAD03 CSECT 02243000 DS 0H 02244000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 02245000 @DATD DSECT 02246000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02247000 @ENDDATD EQU * 02248000 IEAVAD03 CSECT 02249000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02250000 @01 EQU 01 02251000 @02 EQU 02 02252000 @03 EQU 03 02253000 @04 EQU 04 02254000 @05 EQU 05 02255000 @06 EQU 06 02256000 @07 EQU 07 02257000 @08 EQU 08 02258000 @09 EQU 09 02259000 @10 EQU 10 02260000 @11 EQU 11 02261000 @12 EQU 12 02262000 @13 EQU 13 02263000 @14 EQU 14 02264000 @15 EQU 15 02265000 PARMPTR EQU @01 02266000 ABDARPTR EQU @02 02267000 LLEPTR EQU @03 02268000 DDSIZE EQU @03 02269000 IRBCOUNT EQU @03 02270000 ADDRPTR EQU @03 02271000 TIOTPTR EQU @04 02272000 CDENTPTR EQU @04 02273000 LECOUNT EQU @04 02274000 NOTESIZE EQU @05 02275000 COUNT EQU @05 02276000 TCBPTR EQU @05 02277000 RBSECPTR EQU @06 02278000 FMCOUNT EQU @06 02279000 XLSIZE EQU @06 02280000 LENSIZE EQU @06 02281000 XTLSTPTR EQU @07 02282000 IRBLINER EQU @07 02283000 LTHPTR EQU @07 02284000 SAVERET EQU @07 02285000 RBCDPTR EQU @07 02286000 WORKSIZE EQU @08 02287000 FULLSIZE EQU @08 02288000 CVTPTR EQU @09 02289000 AUTOPTR EQU @12 02290000 SAVEPTR EQU @13 02291000 RETCODE EQU @15 02292000 RETERN EQU @14 02293000 PSA EQU 0 02294000 FLCRNPSW EQU PSA 02295000 FLCROPSW EQU PSA+8 02296000 FLCICCW2 EQU PSA+16 02297000 FLCCVT EQU FLCICCW2 02298000 PSAEEPSW EQU PSA+132 02299000 PSAESPSW EQU PSA+136 02300000 FLCSVILC EQU PSAESPSW+1 02301000 PSAEPPSW EQU PSA+140 02302000 FLCPIILC EQU PSAEPPSW+1 02303000 FLCPICOD EQU PSAEPPSW+2 02304000 PSAPICOD EQU FLCPICOD+1 02305000 FLCTEA EQU PSAEPPSW+4 02306000 FLCPER EQU PSA+152 02307000 FLCMCLA EQU PSA+168 02308000 FLCIOEL EQU FLCMCLA+4 02309000 FLCIOA EQU FLCMCLA+16 02310000 FLCFSA EQU FLCMCLA+80 02311000 PSAAOLD EQU PSA+548 02312000 PSASUPER EQU PSA+552 02313000 PSASUP1 EQU PSASUPER 02314000 PSASUP2 EQU PSASUPER+1 02315000 PSASUP3 EQU PSASUPER+2 02316000 PSASUP4 EQU PSASUPER+3 02317000 PSACLHT EQU PSA+640 02318000 PSALKSA EQU PSA+696 02319000 PSAHLHI EQU PSA+760 02320000 PSADSSFL EQU PSA+836 02321000 PSADSSF1 EQU PSADSSFL 02322000 PSADSSF3 EQU PSADSSFL+2 02323000 PSADSSF4 EQU PSADSSFL+3 02324000 PSARSVT EQU PSA+896 02325000 XTLST EQU 0 02326000 XSIZE EQU XTLST 02327000 XCOUNT EQU XTLST+4 02328000 NEXSAPTR EQU 8 02329000 PRESAPTR EQU 4 02330000 ABDAREA EQU 0 02331000 ABDTCB EQU ABDAREA 02332000 ABDCTCB EQU ABDAREA+4 02333000 ABDPARMS EQU ABDAREA+12 02334000 ABDFLAG EQU ABDPARMS+1 02335000 APFSDATA EQU ABDPARMS+4 02336000 APFSDAT1 EQU ABDPARMS+5 02337000 APFPDATA EQU ABDPARMS+6 02338000 ABDPTRS EQU ABDAREA+84 02339000 ABDFLAG1 EQU ABDAREA+136 02340000 ABDFLAG2 EQU ABDAREA+137 02341000 ABDRES1 EQU ABDAREA+139 02342000 ABDWORK EQU ABDAREA+140 02343000 ABDBPTR EQU ABDAREA+244 02344000 ABDLLINE EQU ABDAREA+248 02345000 ABDUPRF EQU ABDAREA+265 02346000 ABDUPRFN EQU ABDAREA+266 02347000 ABDBLNKS EQU ABDAREA+267 02348000 ABDBUFFS EQU ABDAREA+308 02349000 ABDGMA EQU ABDAREA+316 02350000 ABDAAREA EQU ABDGMA 02351000 ABDASIZE EQU ABDGMA+4 02352000 ESPARM EQU ABDAREA+340 02353000 ESTAEFLG EQU ESPARM+28 02354000 ABDLINEA EQU ABDAREA+384 02355000 ABDCC EQU ABDLINEA 02356000 ASCB EQU 0 02357000 ASCBSUPC EQU ASCB+16 02358000 ASCBFW1 EQU ASCB+100 02359000 ASCBRCTF EQU ASCBFW1+2 02360000 ASCBFLG1 EQU ASCBFW1+3 02361000 ASCBDSP1 EQU ASCB+114 02362000 ASCBFLG2 EQU ASCB+115 02363000 ASCBLKGP EQU ASCB+128 02364000 ASCBSRQ EQU ASCB+180 02365000 ASCBSRQ1 EQU ASCBSRQ 02366000 ASCBSRQ2 EQU ASCBSRQ+1 02367000 ASCBSRQ3 EQU ASCBSRQ+2 02368000 ASCBSRQ4 EQU ASCBSRQ+3 02369000 CDENTRY EQU 0 02370000 CDNAME EQU CDENTRY+8 02371000 CDENTPT EQU CDENTRY+16 02372000 CDXLMJP EQU CDENTRY+20 02373000 CDATTR EQU CDENTRY+28 02374000 CDNIC EQU CDATTR 02375000 CDMIN EQU CDATTR 02376000 CDATTR2 EQU CDENTRY+29 02377000 CDXLE EQU CDATTR2 02378000 LLE EQU 0 02379000 LLECHN EQU LLE 02380000 LLECDPT EQU LLE+4 02381000 CVTMAP EQU 0 02382000 CVTDAR EQU CVTMAP+72 02383000 CVTFLGS1 EQU CVTDAR 02384000 CVTDCB EQU CVTMAP+116 02385000 CVTIERLC EQU CVTMAP+144 02386000 CVTOPTA EQU CVTMAP+182 02387000 CVTOPTB EQU CVTMAP+183 02388000 CVTGTF EQU CVTMAP+236 02389000 CVTGTFST EQU CVTGTF 02390000 CVTGTFS EQU CVTGTFST 02391000 CVTSTATE EQU CVTGTFST 02392000 CVTTMODE EQU CVTGTFST 02393000 CVTFORM EQU CVTGTFST 02394000 CVTAQAVT EQU CVTMAP+240 02395000 CVTTCMFG EQU CVTAQAVT 02396000 CVTVOLM2 EQU CVTMAP+244 02397000 CVTTATA EQU CVTVOLM2 02398000 CVTTSKS EQU CVTTATA 02399000 CVTVOLF2 EQU CVTTSKS 02400000 CVTTAT EQU CVTTATA+1 02401000 CVTATER EQU CVTMAP+248 02402000 CVTEXT1 EQU CVTMAP+252 02403000 CVTPURG EQU CVTMAP+260 02404000 CVTQMSG EQU CVTMAP+268 02405000 CVTDMSR EQU CVTMAP+272 02406000 CVTRSV37 EQU CVTDMSR 02407000 CVTDMSRF EQU CVTRSV37 02408000 CVTERPV EQU CVTMAP+316 02409000 CVTINTLA EQU CVTMAP+320 02410000 CVTAPF EQU CVTMAP+324 02411000 CVTEXT2 EQU CVTMAP+328 02412000 CVTHJES EQU CVTMAP+332 02413000 CVTPGSIA EQU CVTMAP+348 02414000 CVTA1F1 EQU CVTMAP+356 02415000 CVTSYSK EQU CVTMAP+357 02416000 CVTVOLM1 EQU CVTMAP+380 02417000 CVTVOLF1 EQU CVTVOLM1 02418000 CVTXTNT1 EQU 0 02419000 CVTXTNT2 EQU 0 02420000 CVTDSSV EQU CVTXTNT2 02421000 CVTFLGBT EQU CVTXTNT2+5 02422000 CVTQID EQU CVTXTNT2+24 02423000 CVTRV400 EQU CVTXTNT2+52 02424000 CVTRV409 EQU CVTXTNT2+53 02425000 CVTATCVT EQU CVTXTNT2+64 02426000 CVTRV429 EQU CVTXTNT2+84 02427000 CVTRV438 EQU CVTXTNT2+85 02428000 CVTRV457 EQU CVTXTNT2+112 02429000 CVTRV466 EQU CVTXTNT2+113 02430000 CVTFIX EQU 0 02431000 CVTRELNO EQU CVTFIX+252 02432000 TCBFIX EQU 0 02433000 TCBFRS EQU TCBFIX 02434000 TCB EQU 0 02435000 TCBRBP EQU TCB 02436000 TCBPIE EQU TCB+4 02437000 TCBPMASK EQU TCBPIE 02438000 TCBTIO EQU TCB+12 02439000 TCBCMP EQU TCB+16 02440000 TCBCMPF EQU TCBCMP 02441000 TCBCPP EQU TCBCMPF 02442000 TCBSTCC EQU TCBCMPF 02443000 TCBCDBL EQU TCBCMPF 02444000 TCBCWTO EQU TCBCMPF 02445000 TCBCIND EQU TCBCMPF 02446000 TCBCMSG EQU TCBCMPF 02447000 TCBTRN EQU TCB+20 02448000 TCBABF EQU TCBTRN 02449000 TCBMSS EQU TCB+24 02450000 TCBPKF EQU TCB+28 02451000 TCBFLGS EQU TCB+29 02452000 TCBFLGS1 EQU TCBFLGS 02453000 TCBFLGS2 EQU TCBFLGS+1 02454000 TCBFLGS3 EQU TCBFLGS+2 02455000 TCBFLGS4 EQU TCBFLGS+3 02456000 TCBFLGS5 EQU TCBFLGS+4 02457000 TCBFC EQU TCBFLGS5 02458000 TCBABWF EQU TCBFLGS5 02459000 TCBLLS EQU TCB+36 02460000 TCBJPQ EQU TCB+44 02461000 TCBPURGE EQU TCBJPQ 02462000 TCBGRS EQU TCB+48 02463000 TCBFSA EQU TCB+112 02464000 TCBTME EQU TCB+120 02465000 TCBJSTCB EQU TCB+124 02466000 TCBTSFLG EQU TCB+148 02467000 TCBTSTSK EQU TCBTSFLG 02468000 TCBSTAB EQU TCB+160 02469000 TCBNSTAE EQU TCBSTAB 02470000 TCBTCT EQU TCB+164 02471000 TCBTCTGF EQU TCBTCT 02472000 TCBSCNDY EQU TCB+172 02473000 TCBNDSP EQU TCBSCNDY 02474000 TCBNDSP1 EQU TCBNDSP+1 02475000 TCBNDSP2 EQU TCBNDSP+2 02476000 TCBNDSP3 EQU TCBNDSP+3 02477000 TCBJSCB EQU TCB+180 02478000 TCBRECDE EQU TCBJSCB 02479000 TCBEXT1 EQU TCB+196 02480000 TCBBITS EQU TCB+200 02481000 TCBNDSP4 EQU TCBBITS 02482000 TCBNDSP5 EQU TCBBITS+1 02483000 TCBFLGS6 EQU TCBBITS+2 02484000 TCBFLGS7 EQU TCBBITS+3 02485000 TCBDAR EQU TCB+204 02486000 TCBDARC EQU TCBDAR 02487000 TCBEXT2 EQU TCB+208 02488000 TCBXSCT EQU TCB+240 02489000 TCBXSCT1 EQU TCBXSCT 02490000 TCBFOE EQU TCB+244 02491000 TCBESTAE EQU TCB+264 02492000 TCBESTRM EQU TCBESTAE+1 02493000 TCBFBYT1 EQU TCB+276 02494000 TCBFBYT2 EQU TCB+277 02495000 TCBRV124 EQU TCB+278 02496000 TCBRV133 EQU TCB+279 02497000 TCBXTNT2 EQU 0 02498000 TCBGTF EQU TCBXTNT2 02499000 TCBTFLG EQU TCBGTF 02500000 TCBRV146 EQU TCBXTNT2+28 02501000 TCBRV155 EQU TCBXTNT2+29 02502000 TCBRV164 EQU TCBXTNT2+30 02503000 TCBRV173 EQU TCBXTNT2+31 02504000 TIOT1 EQU 0 02505000 TIOCNJOB EQU TIOT1 02506000 TIOCSTEP EQU TIOT1+8 02507000 TIOPROC EQU 0 02508000 RBPRFX EQU 0 02509000 RBBASIC EQU 0 02510000 RBEXRTNM EQU RBBASIC 02511000 RBTMFLD EQU RBEXRTNM 02512000 RBSTAB EQU RBBASIC+10 02513000 XSTAB EQU RBSTAB 02514000 RBSTAB1 EQU XSTAB 02515000 XSTAB1 EQU RBSTAB1 02516000 RBFTCKPT EQU XSTAB1 02517000 RBSTAB2 EQU XSTAB+1 02518000 XSTAB2 EQU RBSTAB2 02519000 RBTCBNXT EQU XSTAB2 02520000 RBFACTV EQU XSTAB2 02521000 RBFDYN EQU XSTAB2 02522000 RBECBWT EQU XSTAB2 02523000 RBOPSW EQU RBBASIC+16 02524000 XRBPSW EQU RBOPSW 02525000 RBOPSWB2 EQU XRBPSW+1 02526000 RBLINK EQU RBBASIC+28 02527000 XRBLNK EQU RBLINK 02528000 RBWCF EQU XRBLNK 02529000 RBLINKB EQU XRBLNK+1 02530000 RBGRSAVE EQU RBBASIC+32 02531000 XRBREG EQU RBGRSAVE 02532000 RBGRS0 EQU XRBREG 02533000 RBGRS1 EQU XRBREG+4 02534000 RBGRS2 EQU XRBREG+8 02535000 RBGRS3 EQU XRBREG+12 02536000 RBGRS4 EQU XRBREG+16 02537000 RBGRS5 EQU XRBREG+20 02538000 RBGRS6 EQU XRBREG+24 02539000 RBGRS7 EQU XRBREG+28 02540000 RBGRS8 EQU XRBREG+32 02541000 RBGRS9 EQU XRBREG+36 02542000 RBGRS10 EQU XRBREG+40 02543000 RBGRS11 EQU XRBREG+44 02544000 RBGRS12 EQU XRBREG+48 02545000 RBGRS13 EQU XRBREG+52 02546000 RBGRS14 EQU XRBREG+56 02547000 RBGRS15 EQU XRBREG+60 02548000 XRBESA EQU RBBASIC+96 02549000 RBEXSAVE EQU XRBESA 02550000 RBPREFIX EQU 0 02551000 RBRSV019 EQU RBPREFIX+14 02552000 RBRSV028 EQU RBPREFIX+15 02553000 RBRSV041 EQU RBPREFIX+27 02554000 RBRSV054 EQU RBPREFIX+39 02555000 RBRTOPSW EQU RBPREFIX+40 02556000 RBRTPSW2 EQU RBRTOPSW+8 02557000 RBRTICIL EQU RBRTPSW2 02558000 RBFLAGS1 EQU RBPREFIX+56 02559000 RBINTCDA EQU RBPREFIX+61 02560000 RBSECT EQU 0 02561000 RBPPSAV EQU RBSECT 02562000 RBSIZE EQU RBSECT+8 02563000 @NM00518 EQU RBSECT+10 02564000 @NM00519 EQU @NM00518 02565000 RBFTP EQU @NM00519 02566000 RBTRSVRB EQU @NM00519 02567000 @NM00521 EQU @NM00518+1 02568000 RBETXR EQU @NM00521 02569000 RBEP EQU RBSECT+12 02570000 RBPGMQ EQU RBSECT+24 02571000 @NM00528 EQU RBSECT+28 02572000 @NM00529 EQU @NM00528 02573000 IRBEND EQU RBSECT+96 02574000 @NM00532 EQU RBSECT+96 02575000 RBRSV138 EQU @NM00532+7 02576000 RBSCBB EQU RBSECT+144 02577000 RBSPARM EQU RBSCBB+8 02578000 RBSFLGS1 EQU RBSPARM 02579000 RBSIOPRC EQU RBSFLGS1 02580000 RBSOWNR EQU RBSCBB+12 02581000 RBSFLGS2 EQU RBSOWNR 02582000 RBSDATA EQU RBSCBB+16 02583000 RBSFLG3 EQU RBSDATA 02584000 RBRSV150 EQU RBSECT+167 02585000 RTCT EQU 0 02586000 RTCTPLIB EQU RTCT+4 02587000 RTCTSAP EQU RTCTPLIB 02588000 RTCTSAP1 EQU RTCTSAP 02589000 RTCTSAP2 EQU RTCTSAP+1 02590000 RTCTSAP3 EQU RTCTSAP+2 02591000 RTCTSUP EQU RTCTPLIB+4 02592000 RTCTSUP1 EQU RTCTSUP 02593000 RTCTSUP2 EQU RTCTSUP+1 02594000 RTCTSUP3 EQU RTCTSUP+2 02595000 RTCTSYD EQU RTCTPLIB+8 02596000 RTCTSY01 EQU RTCTSYD 02597000 RTCTSDDS EQU RTCT+36 02598000 RTCTFLG EQU RTCTSDDS+3 02599000 RTCTSDPL EQU RTCT+156 02600000 RTCTRFLG EQU RTCT+176 02601000 RTCTERID EQU RTCT+224 02602000 RTCTOPT EQU RTCT+236 02603000 RTCTASO EQU RTCT+252 02604000 RTCTASO1 EQU RTCTASO 02605000 RTCTASO2 EQU RTCTASO+1 02606000 RTCTSDI EQU RTCT+254 02607000 RTCTSDF EQU RTCT+264 02608000 RTCTSDF1 EQU RTCTSDF 02609000 RTCTSDF2 EQU RTCTSDF+1 02610000 RTCTSDF3 EQU RTCT+268 02611000 RTCTSDF4 EQU RTCTSDF3+2 02612000 RTCTMOPT EQU 0 02613000 RTCTMSAO EQU RTCTMOPT 02614000 RTCTSASD EQU RTCTMSAO 02615000 RTCTSAO1 EQU RTCTSASD 02616000 RTCTSAO2 EQU RTCTSASD+1 02617000 RTCTSAPD EQU RTCTMSAO+2 02618000 RTCTSAO3 EQU RTCTSAPD 02619000 RTCTSAO4 EQU RTCTSAPD+1 02620000 RTCTSAMG EQU RTCTSAO4 02621000 RTCTMSUO EQU RTCTMOPT+4 02622000 RTCTSUSD EQU RTCTMSUO 02623000 RTCTSUO1 EQU RTCTSUSD 02624000 RTCTSUO2 EQU RTCTSUSD+1 02625000 RTCTSUPD EQU RTCTMSUO+2 02626000 RTCTSUO3 EQU RTCTSUPD 02627000 RTCTSUO4 EQU RTCTSUPD+1 02628000 RTCTSUMG EQU RTCTSUO4 02629000 RTCTMSYO EQU RTCTMOPT+8 02630000 RTCTSD01 EQU RTCTMSYO 02631000 RTCTSD04 EQU RTCTMSYO+3 02632000 RTCTSMMG EQU RTCTSD04 02633000 RTCTMSDO EQU RTCTMOPT+12 02634000 RTCTSDOD EQU RTCTMSDO 02635000 RTCTSDO1 EQU RTCTSDOD 02636000 RTCTSDO2 EQU RTCTSDOD+1 02637000 RTCTSDO3 EQU RTCTMSDO+2 02638000 RTCTSDO4 EQU RTCTMSDO+3 02639000 RTCTSDMG EQU RTCTSDO4 02640000 I001C EQU 0 02641000 I008P EQU 0 02642000 I015F EQU 0 02643000 I015P EQU 0 02644000 I031F EQU 0 02645000 I031P EQU 0 02646000 I256C EQU 0 02647000 ABDWORKA EQU ABDWORK 02648000 ABDWORKB EQU ABDWORK+1 02649000 CVTS01 EQU CVTPGSIA 02650000 CVTLPDIA EQU CVTS01+12 02651000 CVTDIRST EQU CVTLPDIA 02652000 CVTSLIDA EQU CVTS01+24 02653000 CVTCTLFG EQU CVTS01+50 02654000 CVTRTMCT EQU CVTS01+224 02655000 CVTRV210 EQU CVTS01+424 02656000 CVTRV219 EQU CVTS01+425 02657000 CVTRV228 EQU CVTS01+426 02658000 CVTRV237 EQU CVTS01+427 02659000 CVTMFRTR EQU CVTS01+452 02660000 CVTRV262 EQU CVTS01+468 02661000 CVTRV271 EQU CVTS01+469 02662000 CVTRV280 EQU CVTS01+470 02663000 CVTRV289 EQU CVTS01+471 02664000 CVTGSDA EQU CVTS01+600 02665000 TIOENTRY EQU TIOT1+24 02666000 TIOELNGH EQU TIOENTRY 02667000 TIOESTTA EQU TIOENTRY+1 02668000 TIOERLOC EQU TIOENTRY+2 02669000 TIOELINK EQU TIOERLOC+1 02670000 TIOESYOT EQU TIOELINK 02671000 TIOEDDNM EQU TIOENTRY+4 02672000 TIOEJFCB EQU TIOENTRY+12 02673000 TIOESTTC EQU TIOENTRY+15 02674000 TIOESTTB EQU TIOENTRY+16 02675000 POOLSTAR EQU TIOENTRY+20 02676000 TIOEDEVE EQU TIOESTTB 02677000 TIOSTTB EQU TIOEDEVE 02678000 RBSECS03 EQU RBEP 02679000 RBCDE EQU RBSECS03 02680000 RBCDFLGS EQU RBCDE 02681000 RBCDE1 EQU RBCDE+1 02682000 RBSECS05 EQU RBPGMQ 02683000 RBSQE EQU RBSECS05 02684000 RBSECS06 EQU RBPGMQ 02685000 RBIQE EQU RBSECS06 02686000 RBSECS07 EQU RBPGMQ 02687000 RBIQE2 EQU RBSECS07 02688000 RBSECS08 EQU IRBEND 02689000 RBSECS09 EQU IRBEND 02690000 PSARSVTE EQU PSARSVT 02691000 FLC EQU PSA 02692000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02693000 PSARSAV EQU PSARSVTE+60 02694000 PSARSTK EQU PSARSVTE+56 02695000 PSAESAV3 EQU PSARSVTE+52 02696000 PSAESTK3 EQU PSARSVTE+48 02697000 PSAESAV2 EQU PSARSVTE+44 02698000 PSAESTK2 EQU PSARSVTE+40 02699000 PSAESAV1 EQU PSARSVTE+36 02700000 PSAESTK1 EQU PSARSVTE+32 02701000 PSAPSAV EQU PSARSVTE+28 02702000 PSAPSTK EQU PSARSVTE+24 02703000 PSAMSAV EQU PSARSVTE+20 02704000 PSAMSTK EQU PSARSVTE+16 02705000 PSASSAV EQU PSARSVTE+12 02706000 PSASSTK EQU PSARSVTE+8 02707000 PSANSTK EQU PSARSVTE+4 02708000 PSACSTK EQU PSARSVTE 02709000 RBRSV161 EQU RBSECS09+64 02710000 RBSIRBWA EQU RBSECS09 02711000 RBIQEWRK EQU RBSECS08+4 02712000 RBNEXAV EQU RBSECS08 02713000 RBIQEA EQU RBIQE2 02714000 RBIQE1 EQU RBIQE+1 02715000 RBUSE EQU RBIQE 02716000 RBSQEA EQU RBSQE+1 02717000 @NM00533 EQU RBSQE 02718000 RBCDLOAD EQU RBCDFLGS 02719000 RBCDXCTL EQU RBCDFLGS 02720000 RBCDSYNC EQU RBCDFLGS 02721000 RBCDNODE EQU RBCDFLGS 02722000 RBRSV010 EQU RBCDFLGS 02723000 RBCDATCH EQU RBCDFLGS 02724000 RBRSV009 EQU RBCDFLGS 02725000 RBNOCELL EQU RBCDFLGS 02726000 TIOUCBP EQU TIOEDEVE+1 02727000 TIOVERF EQU TIOSTTB 02728000 TIOUNLD EQU TIOSTTB 02729000 TIOMNTD EQU TIOSTTB 02730000 TIOSETU EQU TIOSTTB 02731000 TIOVLSR EQU TIOSTTB 02732000 TIOPVIO EQU TIOSTTB 02733000 TIOREQD EQU TIOSTTB 02734000 TIOUSED EQU TIOSTTB 02735000 TIOTFEND EQU POOLSTAR+16 02736000 TIOPSLOT EQU POOLSTAR+13 02737000 TIOPSTTB EQU POOLSTAR+12 02738000 TIOPPOOL EQU POOLSTAR+4 02739000 TIOPNSRT EQU POOLSTAR+3 02740000 @NM00506 EQU POOLSTAR+2 02741000 TIOPNSLT EQU POOLSTAR+1 02742000 @NM00505 EQU POOLSTAR 02743000 TIOEFSRT EQU TIOENTRY+17 02744000 TIOSVERF EQU TIOESTTB 02745000 TIOSUNLD EQU TIOESTTB 02746000 TIOSMNTD EQU TIOESTTB 02747000 TIOSSETU EQU TIOESTTB 02748000 TIOSVLSR EQU TIOESTTB 02749000 TIOSPVIO EQU TIOESTTB 02750000 TIOSREQD EQU TIOESTTB 02751000 TIOSUSED EQU TIOESTTB 02752000 TIOSBALS EQU TIOESTTC 02753000 TIOSBALP EQU TIOESTTC 02754000 TIOSVOLS EQU TIOESTTC 02755000 TIOSVOLP EQU TIOESTTC 02756000 TIOSAFFS EQU TIOESTTC 02757000 TIOSAFFP EQU TIOESTTC 02758000 TIOSDEFR EQU TIOESTTC 02759000 TIOSDKCR EQU TIOESTTC 02760000 TIOTREM EQU TIOELINK 02761000 TIOESSDS EQU TIOESYOT 02762000 TIOESYIN EQU TIOELINK 02763000 TIOEQNAM EQU TIOELINK 02764000 TIOEDYNM EQU TIOELINK 02765000 TIOTTERM EQU TIOELINK 02766000 TIOTRV01 EQU TIOELINK 02767000 TIOSYOUT EQU TIOELINK 02768000 TIOEWTCT EQU TIOERLOC 02769000 TIOSDSP2 EQU TIOESTTA 02770000 TIOSDSP1 EQU TIOESTTA 02771000 TIOSLABL EQU TIOESTTA 02772000 TIOSDADS EQU TIOESTTA 02773000 TIOSJBLB EQU TIOESTTA 02774000 TIOSPLTS EQU TIOESTTA 02775000 TIOSPLTP EQU TIOESTTA 02776000 TIOSLTYP EQU TIOESTTA 02777000 CVTRV628 EQU CVTS01+728 02778000 CVTRV627 EQU CVTS01+724 02779000 CVTRV626 EQU CVTS01+720 02780000 CVTRV625 EQU CVTS01+716 02781000 CVTRV624 EQU CVTS01+712 02782000 CVTRV623 EQU CVTS01+708 02783000 CVTRV622 EQU CVTS01+704 02784000 CVTRV621 EQU CVTS01+700 02785000 CVTIHASU EQU CVTS01+696 02786000 CVTSUSP EQU CVTS01+692 02787000 CVTT6SVC EQU CVTS01+688 02788000 CVTCDAL EQU CVTS01+684 02789000 CVTTCTL EQU CVTS01+680 02790000 CVTRSUME EQU CVTS01+676 02791000 CVTJTERM EQU CVTS01+672 02792000 CVTASMRM EQU CVTS01+668 02793000 CVTTCASP EQU CVTS01+664 02794000 CVT0PT03 EQU CVTS01+660 02795000 CVT0PT0E EQU CVTS01+656 02796000 CVTRV609 EQU CVTS01+652 02797000 CVTCGK EQU CVTS01+648 02798000 CVTRAC EQU CVTS01+644 02799000 CVTRV606 EQU CVTS01+640 02800000 CVTRV605 EQU CVTS01+636 02801000 CVTRV604 EQU CVTS01+632 02802000 CVTEFF02 EQU CVTS01+628 02803000 CVTCBBR EQU CVTS01+624 02804000 CVTSSCR EQU CVTS01+620 02805000 CVTEVENT EQU CVTS01+616 02806000 CVTCRCA EQU CVTS01+612 02807000 CVTTPIO EQU CVTS01+608 02808000 CVTADV EQU CVTS01+604 02809000 CVTGSDAB EQU CVTGSDA 02810000 CVTQV3 EQU CVTS01+596 02811000 CVTQV2 EQU CVTS01+592 02812000 CVTQV1 EQU CVTS01+588 02813000 CVTRPT EQU CVTS01+584 02814000 CVTSSRB EQU CVTS01+580 02815000 CVTCSDRL EQU CVTS01+576 02816000 CVTEXP1 EQU CVTS01+572 02817000 CVTRMPMT EQU CVTS01+568 02818000 CVTRMPTT EQU CVTS01+564 02819000 CVTVPSA EQU CVTS01+560 02820000 CVTVSTOP EQU CVTS01+556 02821000 CVTGTFR8 EQU CVTS01+552 02822000 CVTQUIT EQU CVTS01+548 02823000 CVTVACR EQU CVTS01+544 02824000 CVTWTCB EQU CVTS01+540 02825000 CVTSTPRS EQU CVTS01+536 02826000 CVT0PT02 EQU CVTS01+532 02827000 CVTDARCM EQU CVTS01+528 02828000 CVTIRECM EQU CVTS01+524 02829000 CVTJRECM EQU CVTS01+520 02830000 CVTVEMS0 EQU CVTS01+516 02831000 CVTSPFRR EQU CVTS01+512 02832000 CVTRLSTG EQU CVTS01+508 02833000 CVT0TC0A EQU CVTS01+504 02834000 CVTGMBR EQU CVTS01+500 02835000 CVTLFRM EQU CVTS01+496 02836000 CVTRMBR EQU CVTS01+492 02837000 CVTVIOP EQU CVTS01+488 02838000 CVTRV307 EQU CVTS01+486 02839000 CVTRV306 EQU CVTS01+484 02840000 CVTRV305 EQU CVTS01+482 02841000 CVTRV304 EQU CVTS01+480 02842000 CVTRV303 EQU CVTS01+478 02843000 CVTRV302 EQU CVTS01+476 02844000 CVTTRCA EQU CVTS01+472 02845000 CVTRV297 EQU CVTRV289 02846000 CVTRV296 EQU CVTRV289 02847000 CVTRV295 EQU CVTRV289 02848000 CVTRV294 EQU CVTRV289 02849000 CVTRV293 EQU CVTRV289 02850000 CVTRV292 EQU CVTRV289 02851000 CVTRV291 EQU CVTRV289 02852000 CVTRV290 EQU CVTRV289 02853000 CVTRV288 EQU CVTRV280 02854000 CVTRV287 EQU CVTRV280 02855000 CVTRV286 EQU CVTRV280 02856000 CVTRV285 EQU CVTRV280 02857000 CVTRV284 EQU CVTRV280 02858000 CVTRV283 EQU CVTRV280 02859000 CVTRV282 EQU CVTRV280 02860000 CVTRV281 EQU CVTRV280 02861000 CVTRV279 EQU CVTRV271 02862000 CVTRV278 EQU CVTRV271 02863000 CVTRV277 EQU CVTRV271 02864000 CVTRV276 EQU CVTRV271 02865000 CVTRV275 EQU CVTRV271 02866000 CVTRV274 EQU CVTRV271 02867000 CVTRV273 EQU CVTRV271 02868000 CVTRV272 EQU CVTRV271 02869000 CVTRV270 EQU CVTRV262 02870000 CVTRV269 EQU CVTRV262 02871000 CVTRV268 EQU CVTRV262 02872000 CVTRV267 EQU CVTRV262 02873000 CVTRV266 EQU CVTRV262 02874000 CVTRV265 EQU CVTRV262 02875000 CVTRV264 EQU CVTRV262 02876000 CVTRV263 EQU CVTRV262 02877000 CVTVFP EQU CVTS01+464 02878000 CVTVSI EQU CVTS01+460 02879000 CVTVPSIB EQU CVTS01+456 02880000 CVTMFACT EQU CVTMFRTR 02881000 CVTMFCTL EQU CVTS01+448 02882000 CVTPVBP EQU CVTS01+444 02883000 CVTPWI EQU CVTS01+440 02884000 CVTRV254 EQU CVTS01+438 02885000 CVTRV253 EQU CVTS01+436 02886000 CVTRV252 EQU CVTS01+434 02887000 CVTRV251 EQU CVTS01+433 02888000 CVTRV250 EQU CVTS01+432 02889000 CVTRV249 EQU CVTS01+431 02890000 CVTRV248 EQU CVTS01+430 02891000 CVTRV247 EQU CVTS01+429 02892000 CVTRV246 EQU CVTS01+428 02893000 CVTRV245 EQU CVTRV237 02894000 CVTRV244 EQU CVTRV237 02895000 CVTRV243 EQU CVTRV237 02896000 CVTRV242 EQU CVTRV237 02897000 CVTRV241 EQU CVTRV237 02898000 CVTRV240 EQU CVTRV237 02899000 CVTRV239 EQU CVTRV237 02900000 CVTRV238 EQU CVTRV237 02901000 CVTRV236 EQU CVTRV228 02902000 CVTRV235 EQU CVTRV228 02903000 CVTRV234 EQU CVTRV228 02904000 CVTRV233 EQU CVTRV228 02905000 CVTRV232 EQU CVTRV228 02906000 CVTRV231 EQU CVTRV228 02907000 CVTRV230 EQU CVTRV228 02908000 CVTRV229 EQU CVTRV228 02909000 CVTRV227 EQU CVTRV219 02910000 CVTRV226 EQU CVTRV219 02911000 CVTRV225 EQU CVTRV219 02912000 CVTRV224 EQU CVTRV219 02913000 CVTRV223 EQU CVTRV219 02914000 CVTRV222 EQU CVTRV219 02915000 CVTRV221 EQU CVTRV219 02916000 CVTRV220 EQU CVTRV219 02917000 CVTRV218 EQU CVTRV210 02918000 CVTRV217 EQU CVTRV210 02919000 CVTRV216 EQU CVTRV210 02920000 CVTRV215 EQU CVTRV210 02921000 CVTRV214 EQU CVTRV210 02922000 CVTRV213 EQU CVTRV210 02923000 CVTRV212 EQU CVTRV210 02924000 CVTRV211 EQU CVTRV210 02925000 CVTLCCAT EQU CVTS01+420 02926000 CVTPCCAT EQU CVTS01+416 02927000 CVTIPCRP EQU CVTS01+412 02928000 CVTIPCRI EQU CVTS01+408 02929000 CVTIPCDS EQU CVTS01+404 02930000 CVTAIDVT EQU CVTS01+400 02931000 CVTSSAP EQU CVTS01+396 02932000 CVTEHCIR EQU CVTS01+392 02933000 CVTEHDEF EQU CVTS01+388 02934000 CVTDAIR EQU CVTS01+384 02935000 CVTPERFM EQU CVTS01+380 02936000 CVT044R2 EQU CVTS01+376 02937000 CVTFETCH EQU CVTS01+372 02938000 CVTRSTWD EQU CVTS01+368 02939000 CVTSPOST EQU CVTS01+364 02940000 CVTIOBP EQU CVTS01+360 02941000 CVTASMVT EQU CVTS01+356 02942000 CVTRECRQ EQU CVTS01+352 02943000 CVTWSAC EQU CVTS01+348 02944000 CVTRV149 EQU CVTS01+344 02945000 CVTWSAL EQU CVTS01+340 02946000 CVTSPSA EQU CVTS01+336 02947000 CVTGLMN EQU CVTS01+332 02948000 CVTVEAC0 EQU CVTS01+328 02949000 CVT062R1 EQU CVTS01+324 02950000 CVTRPOST EQU CVTS01+320 02951000 CVTDQIQE EQU CVTS01+316 02952000 CVTCSD EQU CVTS01+312 02953000 CVTLKRMA EQU CVTS01+308 02954000 CVTRSPIE EQU CVTS01+304 02955000 CVTRENQ EQU CVTS01+300 02956000 CVTLQCB EQU CVTS01+296 02957000 CVTFQCB EQU CVTS01+292 02958000 CVTQCS01 EQU CVTS01+288 02959000 CVTAPFT EQU CVTS01+284 02960000 CVTPARRL EQU CVTS01+280 02961000 CVTVWAIT EQU CVTS01+276 02962000 CVTGSPL EQU CVTS01+272 02963000 CVTLSMQ EQU CVTS01+268 02964000 CVTGSMQ EQU CVTS01+264 02965000 CVTEXPRO EQU CVTS01+260 02966000 CVTOPCTP EQU CVTS01+256 02967000 CVTSIC EQU CVTS01+252 02968000 CVTTPIOS EQU CVTS01+248 02969000 CVTRTMS EQU CVTS01+244 02970000 CVTSDBF EQU CVTS01+240 02971000 CVTSCBP EQU CVTS01+236 02972000 CVTSDMP EQU CVTS01+232 02973000 CVTSV60 EQU CVTS01+228 02974000 CVTASCBL EQU CVTS01+220 02975000 CVTASCBH EQU CVTS01+216 02976000 CVTGDA EQU CVTS01+212 02977000 CVTASVT EQU CVTS01+208 02978000 CVTVVMDI EQU CVTS01+204 02979000 CVTAQTOP EQU CVTS01+200 02980000 CVTIOSCS EQU CVTS01+196 02981000 CVTSDRM EQU CVTS01+192 02982000 CVTOPTE EQU CVTS01+188 02983000 CVTSTXU EQU CVTS01+184 02984000 CVTQUIS EQU CVTS01+180 02985000 CVTPARS EQU CVTS01+176 02986000 CVTS1EE EQU CVTS01+172 02987000 CVTFRAS EQU CVTS01+168 02988000 CVTQSAS EQU CVTS01+164 02989000 CVTCRAS EQU CVTS01+160 02990000 CVTCRMN EQU CVTS01+156 02991000 CVTDELCP EQU CVTS01+152 02992000 CVTFRECL EQU CVTS01+148 02993000 CVTGETCL EQU CVTS01+144 02994000 CVTBLDCP EQU CVTS01+140 02995000 CVTAUTHL EQU CVTS01+136 02996000 CVTSCAN EQU CVTS01+132 02997000 CVTRV144 EQU CVTS01+130 02998000 CVTMAXMP EQU CVTS01+128 02999000 CVTSTCK EQU CVTS01+124 03000000 CVTRV139 EQU CVTS01+123 03001000 CVTDSSAC EQU CVTS01+122 03002000 CVTRV513 EQU CVTS01+121 03003000 CVTIOSPL EQU CVTS01+120 03004000 CVTPTGT EQU CVTS01+116 03005000 CVTCSPIE EQU CVTS01+112 03006000 CVTSMFEX EQU CVTS01+108 03007000 CVTOLT0A EQU CVTS01+104 03008000 CVTSRBRT EQU CVTS01+100 03009000 CVTPUTL EQU CVTS01+96 03010000 CVTASCRL EQU CVTS01+92 03011000 CVTASCRF EQU CVTS01+88 03012000 CVTRV326 EQU CVTS01+84 03013000 CVTRV325 EQU CVTS01+80 03014000 CVTRV324 EQU CVTS01+76 03015000 CVT0VL01 EQU CVTS01+72 03016000 CVTSHRVM EQU CVTS01+68 03017000 CVTRV332 EQU CVTS01+64 03018000 CVTTAS EQU CVTS01+60 03019000 CVTRSCN EQU CVTS01+56 03020000 CVTTRAC2 EQU CVTS01+54 03021000 CVTTRACE EQU CVTS01+52 03022000 CVTAPG EQU CVTS01+51 03023000 CVTSDTRC EQU CVTCTLFG 03024000 CVTGTRCE EQU CVTCTLFG 03025000 CVTNOMP EQU CVTCTLFG 03026000 CVTRSV79 EQU CVTCTLFG 03027000 CVTDSTAT EQU CVTCTLFG 03028000 CVTRSV78 EQU CVTCTLFG 03029000 CVTRV333 EQU CVTCTLFG 03030000 CVTRV323 EQU CVTCTLFG 03031000 CVTSPVLK EQU CVTS01+49 03032000 CVTRSV77 EQU CVTS01+48 03033000 CVTRV331 EQU CVTS01+44 03034000 CVTRV330 EQU CVTS01+40 03035000 CVTRV329 EQU CVTS01+36 03036000 CVTRV328 EQU CVTS01+32 03037000 CVTRV322 EQU CVTS01+28 03038000 CVTSLID EQU CVTSLIDA+1 03039000 CVTSYLK EQU CVTSLIDA 03040000 CVTRV321 EQU CVTS01+20 03041000 CVTRV320 EQU CVTS01+16 03042000 CVTLPDIR EQU CVTLPDIA+1 03043000 CVTRSV69 EQU CVTDIRST 03044000 CVTRSV68 EQU CVTDIRST 03045000 CVTRSV67 EQU CVTDIRST 03046000 CVTRSV66 EQU CVTDIRST 03047000 CVTRSV65 EQU CVTDIRST 03048000 CVTRSV64 EQU CVTDIRST 03049000 CVTRSV63 EQU CVTDIRST 03050000 CVTDICOM EQU CVTDIRST 03051000 CVTPVTP EQU CVTS01+8 03052000 CVTLPDSR EQU CVTS01+4 03053000 CVTGETL EQU CVTS01 03054000 RTCTISVC EQU RTCTSDO4 03055000 RTCTSDOV EQU RTCTSDMG 03056000 @NM00571 EQU RTCTSDO4 03057000 @NM00570 EQU RTCTSDO3 03058000 RTCTSDPH EQU RTCTSDO3 03059000 RTCTSDPG EQU RTCTSDO3 03060000 @NM00569 EQU RTCTSDO2 03061000 RTCTSDPD EQU RTCTSDO2 03062000 RTCTSDPC EQU RTCTSDO2 03063000 RTCTSDPB EQU RTCTSDO2 03064000 RTCTSDPA EQU RTCTSDO2 03065000 RTCTSDP9 EQU RTCTSDO2 03066000 RTCTSDP8 EQU RTCTSDO2 03067000 RTCTSDP7 EQU RTCTSDO1 03068000 RTCTSDP6 EQU RTCTSDO1 03069000 RTCTSDP5 EQU RTCTSDO1 03070000 RTCTSDP4 EQU RTCTSDO1 03071000 RTCTSDP3 EQU RTCTSDO1 03072000 RTCTSDP2 EQU RTCTSDO1 03073000 RTCTSDP1 EQU RTCTSDO1 03074000 RTCTSDP0 EQU RTCTSDO1 03075000 RTCTISYM EQU RTCTSD04 03076000 RTCTSMOV EQU RTCTSMMG 03077000 @NM00568 EQU RTCTSD04 03078000 RTCTSD03 EQU RTCTMSYO+2 03079000 RTCTSD02 EQU RTCTMSYO+1 03080000 RTCTSDS7 EQU RTCTSD01 03081000 RTCTSDS6 EQU RTCTSD01 03082000 RTCTSDS5 EQU RTCTSD01 03083000 RTCTSDS4 EQU RTCTSD01 03084000 RTCTSDS3 EQU RTCTSD01 03085000 RTCTSDS2 EQU RTCTSD01 03086000 RTCTSDS1 EQU RTCTSD01 03087000 RTCTSDS0 EQU RTCTSD01 03088000 RTCTISYU EQU RTCTSUO4 03089000 RTCTSUOV EQU RTCTSUMG 03090000 @NM00567 EQU RTCTSUO4 03091000 RTCTSYDF EQU RTCTSUO3 03092000 RTCTSYDE EQU RTCTSUO3 03093000 RTCTSYDD EQU RTCTSUO3 03094000 RTCTSYDC EQU RTCTSUO3 03095000 RTCTSYDB EQU RTCTSUO3 03096000 RTCTSYDA EQU RTCTSUO3 03097000 RTCTSYD9 EQU RTCTSUO3 03098000 RTCTSYD8 EQU RTCTSUO3 03099000 @NM00566 EQU RTCTSUO2 03100000 RTCTSYDH EQU RTCTSUO2 03101000 RTCTSYDG EQU RTCTSUO2 03102000 RTCTSYD7 EQU RTCTSUO1 03103000 RTCTSYD6 EQU RTCTSUO1 03104000 RTCTSYD5 EQU RTCTSUO1 03105000 RTCTSYD4 EQU RTCTSUO1 03106000 RTCTSYD3 EQU RTCTSUO1 03107000 RTCTSYD2 EQU RTCTSUO1 03108000 RTCTSYD1 EQU RTCTSUO1 03109000 RTCTSYD0 EQU RTCTSUO1 03110000 RTCTISAB EQU RTCTSAO4 03111000 RTCTSAOV EQU RTCTSAMG 03112000 @NM00565 EQU RTCTSAO4 03113000 RTCTSADF EQU RTCTSAO3 03114000 RTCTSADE EQU RTCTSAO3 03115000 RTCTSADD EQU RTCTSAO3 03116000 RTCTSADC EQU RTCTSAO3 03117000 RTCTSADB EQU RTCTSAO3 03118000 RTCTSADA EQU RTCTSAO3 03119000 RTCTSAD9 EQU RTCTSAO3 03120000 RTCTSAD8 EQU RTCTSAO3 03121000 @NM00564 EQU RTCTSAO2 03122000 RTCTSADH EQU RTCTSAO2 03123000 RTCTSADG EQU RTCTSAO2 03124000 RTCTSAD7 EQU RTCTSAO1 03125000 RTCTSAD6 EQU RTCTSAO1 03126000 RTCTSAD5 EQU RTCTSAO1 03127000 RTCTSAD4 EQU RTCTSAO1 03128000 RTCTSAD3 EQU RTCTSAO1 03129000 RTCTSAD2 EQU RTCTSAO1 03130000 RTCTSAD1 EQU RTCTSAO1 03131000 RTCTSAD0 EQU RTCTSAO1 03132000 RTCTZZZ5 EQU RTCT+340 03133000 RTCTZZZ4 EQU RTCT+336 03134000 RTCTMRMQ EQU RTCT+332 03135000 RTCTSDF5 EQU RTCTSDF3+3 03136000 RTCTSDDO EQU RTCTSDF4 03137000 RTCTSDEN EQU RTCTSDF4 03138000 RTCTSDEQ EQU RTCTSDF4 03139000 RTCTSDTR EQU RTCTSDF4 03140000 RTCTSDRM EQU RTCTSDF4 03141000 RTCTSDAN EQU RTCTSDF4 03142000 RTCTSDNC EQU RTCTSDF4 03143000 RTCTSDSS EQU RTCTSDF4 03144000 RTCTSDAS EQU RTCTSDF3 03145000 RTCTZZZ3 EQU RTCT+266 03146000 @NM00563 EQU RTCTSDF2 03147000 RTCTSDRW EQU RTCTSDF2 03148000 RTCTSDSL EQU RTCTSDF2 03149000 RTCTSDWF EQU RTCTSDF2 03150000 RTCTSDLA EQU RTCTSDF2 03151000 RTCTSDDI EQU RTCTSDF2 03152000 RTCTSDTQ EQU RTCTSDF2 03153000 RTCTSDMR EQU RTCTSDF2 03154000 RTCTSDSC EQU RTCTSDF1 03155000 RTCTSDRS EQU RTCTSDF1 03156000 RTCTSDSD EQU RTCTSDF1 03157000 RTCTSDEP EQU RTCTSDF1 03158000 RTCTSDMA EQU RTCTSDF1 03159000 RTCTSDSH EQU RTCTSDF1 03160000 RTCTSDND EQU RTCTSDF1 03161000 RTCTSDNO EQU RTCTSDF1 03162000 RTCTZZZ2 EQU RTCT+257 03163000 RTCTSDPR EQU RTCTSDI+2 03164000 RTCTINDX EQU RTCTSDI+1 03165000 RTCTSDNA EQU RTCTSDI 03166000 @NM00562 EQU RTCTASO2 03167000 RTCTASNQ EQU RTCTASO2 03168000 RTCTASNA EQU RTCTASO2 03169000 RTCTASNS EQU RTCTASO2 03170000 RTCTASSU EQU RTCTASO2 03171000 RTCTASSW EQU RTCTASO2 03172000 RTCTASCS EQU RTCTASO2 03173000 RTCTASTR EQU RTCTASO1 03174000 RTCTASLP EQU RTCTASO1 03175000 RTCTASRG EQU RTCTASO1 03176000 RTCTASLS EQU RTCTASO1 03177000 RTCTASSQ EQU RTCTASO1 03178000 RTCTASNU EQU RTCTASO1 03179000 RTCTASPS EQU RTCTASO1 03180000 RTCTASAL EQU RTCTASO1 03181000 RTCTSDO EQU RTCTOPT+12 03182000 RTCTSYO EQU RTCTOPT+8 03183000 RTCTSUO EQU RTCTOPT+4 03184000 RTCTSAO EQU RTCTOPT 03185000 RTCTXXX2 EQU RTCT+234 03186000 RTCTETIM EQU RTCTERID+6 03187000 RTCTEASD EQU RTCTERID+4 03188000 RTCTECPU EQU RTCTERID+2 03189000 RTCTESEQ EQU RTCTERID 03190000 RTCTSDWK EQU RTCT+220 03191000 RTCTTDCB EQU RTCT+184 03192000 RTCTSDSW EQU RTCT+180 03193000 RTCTSEQ# EQU RTCT+178 03194000 RTCTXXX1 EQU RTCT+177 03195000 @NM00561 EQU RTCTRFLG 03196000 RTCTRSTF EQU RTCTRFLG 03197000 RTCTRPER EQU RTCTRFLG 03198000 RTCTRTER EQU RTCTRFLG 03199000 RTCTTEST EQU RTCT+172 03200000 RTCTMSRB EQU RTCT+168 03201000 RTCTMLCK EQU RTCT+164 03202000 RTCTFMT EQU RTCT+160 03203000 RTCTSDIP EQU RTCTSDPL 03204000 RTCTDEV EQU RTCTSDDS+8 03205000 RTCTDCB EQU RTCTSDDS+4 03206000 @NM00560 EQU RTCTFLG 03207000 RTCTDETP EQU RTCTFLG 03208000 RTCTDSUS EQU RTCTFLG 03209000 RTCTDSST EQU RTCTFLG 03210000 RTCTDSNM EQU RTCTSDDS 03211000 RTCTRCB EQU RTCT+32 03212000 RTCTRECB EQU RTCT+28 03213000 RTCTFASB EQU RTCT+24 03214000 RTCTMECB EQU RTCT+20 03215000 RTCTSDID EQU RTCT+18 03216000 RTCTYYY1 EQU RTCT+16 03217000 RTCTSY04 EQU RTCTSYD+3 03218000 RTCTSY03 EQU RTCTSYD+2 03219000 RTCTSY02 EQU RTCTSYD+1 03220000 RTCTSYM7 EQU RTCTSY01 03221000 RTCTSYM6 EQU RTCTSY01 03222000 RTCTSYM5 EQU RTCTSY01 03223000 RTCTSYM4 EQU RTCTSY01 03224000 RTCTSYM3 EQU RTCTSY01 03225000 RTCTSYM2 EQU RTCTSY01 03226000 RTCTSYM1 EQU RTCTSY01 03227000 RTCTSYM0 EQU RTCTSY01 03228000 RTCTSUP4 EQU RTCTSUP+3 03229000 RTCTSUDF EQU RTCTSUP3 03230000 RTCTSUDE EQU RTCTSUP3 03231000 RTCTSUDD EQU RTCTSUP3 03232000 RTCTSUDC EQU RTCTSUP3 03233000 RTCTSUDB EQU RTCTSUP3 03234000 RTCTSUDA EQU RTCTSUP3 03235000 RTCTSUD9 EQU RTCTSUP3 03236000 RTCTSUD8 EQU RTCTSUP3 03237000 @NM00559 EQU RTCTSUP2 03238000 RTCTSUDH EQU RTCTSUP2 03239000 RTCTSUDG EQU RTCTSUP2 03240000 RTCTSUD7 EQU RTCTSUP1 03241000 RTCTSUD6 EQU RTCTSUP1 03242000 RTCTSUD5 EQU RTCTSUP1 03243000 RTCTSUD4 EQU RTCTSUP1 03244000 RTCTSUD3 EQU RTCTSUP1 03245000 RTCTSUD2 EQU RTCTSUP1 03246000 RTCTSUD1 EQU RTCTSUP1 03247000 RTCTSUD0 EQU RTCTSUP1 03248000 RTCTSAP4 EQU RTCTSAP+3 03249000 RTCTSABF EQU RTCTSAP3 03250000 RTCTSABE EQU RTCTSAP3 03251000 RTCTSABD EQU RTCTSAP3 03252000 RTCTSABC EQU RTCTSAP3 03253000 RTCTSABB EQU RTCTSAP3 03254000 RTCTSABA EQU RTCTSAP3 03255000 RTCTSAB9 EQU RTCTSAP3 03256000 RTCTSAB8 EQU RTCTSAP3 03257000 @NM00558 EQU RTCTSAP2 03258000 RTCTSABH EQU RTCTSAP2 03259000 RTCTSABG EQU RTCTSAP2 03260000 RTCTSAB7 EQU RTCTSAP1 03261000 RTCTSAB6 EQU RTCTSAP1 03262000 RTCTSAB5 EQU RTCTSAP1 03263000 RTCTSAB4 EQU RTCTSAP1 03264000 RTCTSAB3 EQU RTCTSAP1 03265000 RTCTSAB2 EQU RTCTSAP1 03266000 RTCTSAB1 EQU RTCTSAP1 03267000 RTCTSAB0 EQU RTCTSAP1 03268000 RTCTNAME EQU RTCT 03269000 SVRBEND EQU RBSECT+192 03270000 RBFEPARM EQU RBSECT+168 03271000 SIRBEND EQU RBSECT+168 03272000 RBRSV158 EQU RBRSV150 03273000 RBRSV157 EQU RBRSV150 03274000 RBRSV156 EQU RBRSV150 03275000 RBRSV155 EQU RBRSV150 03276000 RBRSV154 EQU RBRSV150 03277000 RBRSV153 EQU RBRSV150 03278000 RBRSV152 EQU RBRSV150 03279000 RBRSV151 EQU RBRSV150 03280000 RBRSV149 EQU RBSECT+166 03281000 RBRSV148 EQU RBSECT+164 03282000 RBRSV169 EQU RBSDATA+3 03283000 RBSID EQU RBSDATA+2 03284000 RBSPKEY EQU RBSDATA+1 03285000 RBRSV168 EQU RBSFLG3 03286000 RBSTERMO EQU RBSFLG3 03287000 RBSBRNTR EQU RBSFLG3 03288000 RBSPRNTR EQU RBSFLG3 03289000 RBSCNCEL EQU RBSFLG3 03290000 RBSRECRD EQU RBSFLG3 03291000 RBSTERMI EQU RBSFLG3 03292000 RBRSV167 EQU RBSFLG3 03293000 RBSOWNRA EQU RBSOWNR+1 03294000 RBSSUPER EQU RBSFLGS2 03295000 RBSKEY0 EQU RBSFLGS2 03296000 RBRSV166 EQU RBSFLGS2 03297000 RBRSV165 EQU RBSFLGS2 03298000 RBSINUSE EQU RBSFLGS2 03299000 RBRSV164 EQU RBSFLGS2 03300000 RBSXCTL2 EQU RBSFLGS2 03301000 RBRSV163 EQU RBSFLGS2 03302000 RBSPARMA EQU RBSPARM+1 03303000 RBSHALT EQU RBSIOPRC 03304000 RBSNOIOP EQU RBSIOPRC 03305000 RBSASYNC EQU RBSFLGS1 03306000 RBRSV162 EQU RBSFLGS1 03307000 RBSESTAE EQU RBSFLGS1 03308000 RBSDUMMY EQU RBSFLGS1 03309000 RBSSTAR EQU RBSFLGS1 03310000 RBSSTAI EQU RBSFLGS1 03311000 RBSEXIT EQU RBSCBB+4 03312000 RBSCHAIN EQU RBSCBB 03313000 TIRBEND EQU @NM00532+8 03314000 PRBEND EQU @NM00532+8 03315000 RBRSV146 EQU RBRSV138 03316000 RBRSV145 EQU RBRSV138 03317000 RBRSV144 EQU RBRSV138 03318000 RBRSV143 EQU RBRSV138 03319000 RBRSV142 EQU RBRSV138 03320000 RBRSV141 EQU RBRSV138 03321000 RBRSV140 EQU RBRSV138 03322000 RBRSV139 EQU RBRSV138 03323000 RBRSV137 EQU @NM00532+6 03324000 RBRSV136 EQU @NM00532+4 03325000 RBRSV135 EQU @NM00532 03326000 @NM00531 EQU RBSECT+32 03327000 @NM00530 EQU @NM00528+1 03328000 RBSCF EQU @NM00529 03329000 RBPGMQ1 EQU RBPGMQ+1 03330000 @NM00527 EQU RBPGMQ 03331000 @NM00526 EQU RBSECT+16 03332000 @NM00525 EQU @NM00521 03333000 @NM00524 EQU @NM00521 03334000 RBIQETP EQU @NM00521 03335000 RBUSIQE EQU RBETXR 03336000 RBATTN EQU @NM00521 03337000 @NM00523 EQU @NM00521 03338000 @NM00522 EQU @NM00521 03339000 RBPMSVRB EQU @NM00519 03340000 RBATNXIT EQU @NM00519 03341000 @NM00520 EQU @NM00519 03342000 RBWAITP EQU @NM00519 03343000 RBFNSVRB EQU RBTRSVRB 03344000 RBABOPSW EQU RBSECT+4 03345000 RBPPSAV1 EQU RBPPSAV+1 03346000 @NM00517 EQU RBPPSAV 03347000 RBPRFXND EQU RBPREFIX+64 03348000 RBINTCOD EQU RBINTCDA+1 03349000 RBINLNTH EQU RBINTCDA 03350000 RBWCSA EQU RBPREFIX+60 03351000 RBRSV004 EQU RBPREFIX+57 03352000 RBSSSYN EQU RBFLAGS1 03353000 RBSCB EQU RBFLAGS1 03354000 RBLONGWT EQU RBFLAGS1 03355000 RBASIR EQU RBFLAGS1 03356000 RBRSV159 EQU RBFLAGS1 03357000 RBABEND EQU RBFLAGS1 03358000 RBXWAIT EQU RBFLAGS1 03359000 RBSLOCK EQU RBFLAGS1 03360000 RBRTRAN EQU RBRTPSW2+4 03361000 RBRTINCD EQU RBRTICIL+2 03362000 RBRTILC EQU RBRTICIL+1 03363000 RBRSV160 EQU RBRTICIL 03364000 RBRTPSW1 EQU RBRTOPSW 03365000 RBRSV062 EQU RBRSV054 03366000 RBRSV061 EQU RBRSV054 03367000 RBRSV060 EQU RBRSV054 03368000 RBRSV059 EQU RBRSV054 03369000 RBRSV058 EQU RBRSV054 03370000 RBRSV057 EQU RBRSV054 03371000 RBRSV056 EQU RBRSV054 03372000 RBRSV055 EQU RBRSV054 03373000 RBRSV053 EQU RBPREFIX+38 03374000 RBRSV052 EQU RBPREFIX+36 03375000 RBRSV051 EQU RBPREFIX+32 03376000 RBPRFXST EQU RBPREFIX+32 03377000 RBRSV050 EQU RBPREFIX+28 03378000 RBRSV049 EQU RBRSV041 03379000 RBRSV048 EQU RBRSV041 03380000 RBRSV047 EQU RBRSV041 03381000 RBRSV046 EQU RBRSV041 03382000 RBRSV045 EQU RBRSV041 03383000 RBRSV044 EQU RBRSV041 03384000 RBRSV043 EQU RBRSV041 03385000 RBRSV042 EQU RBRSV041 03386000 RBRSV040 EQU RBPREFIX+26 03387000 RBRSV039 EQU RBPREFIX+24 03388000 RBRSV038 EQU RBPREFIX+20 03389000 RBRSV037 EQU RBPREFIX+16 03390000 RBRSV036 EQU RBRSV028 03391000 RBRSV035 EQU RBRSV028 03392000 RBRSV034 EQU RBRSV028 03393000 RBRSV033 EQU RBRSV028 03394000 RBRSV032 EQU RBRSV028 03395000 RBRSV031 EQU RBRSV028 03396000 RBRSV030 EQU RBRSV028 03397000 RBRSV029 EQU RBRSV028 03398000 RBRSV027 EQU RBRSV019 03399000 RBRSV026 EQU RBRSV019 03400000 RBRSV025 EQU RBRSV019 03401000 RBRSV024 EQU RBRSV019 03402000 RBRSV023 EQU RBRSV019 03403000 RBRSV022 EQU RBRSV019 03404000 RBRSV021 EQU RBRSV019 03405000 RBRSV020 EQU RBRSV019 03406000 RBRSV018 EQU RBPREFIX+13 03407000 RBRSV017 EQU RBPREFIX+12 03408000 RBSRV016 EQU RBPREFIX+11 03409000 RBRSV015 EQU RBPREFIX+10 03410000 RBRSV014 EQU RBPREFIX+8 03411000 RBRSV013 EQU RBPREFIX+4 03412000 RBRSV012 EQU RBPREFIX 03413000 XRBREG15 EQU RBGRS15 03414000 XRBREG14 EQU RBGRS14 03415000 XRBREG13 EQU RBGRS13 03416000 XRBREG12 EQU RBGRS12 03417000 XRBREG11 EQU RBGRS11 03418000 XRBREG10 EQU RBGRS10 03419000 XRBREG9 EQU RBGRS9 03420000 XRBREG8 EQU RBGRS8 03421000 XRBREG7 EQU RBGRS7 03422000 XRBREG6 EQU RBGRS6 03423000 XRBREG5 EQU RBGRS5 03424000 XRBREG4 EQU RBGRS4 03425000 XRBREG3 EQU RBGRS3 03426000 XRBREG2 EQU RBGRS2 03427000 XRBREG1 EQU RBGRS1 03428000 XRBREG0 EQU RBGRS0 03429000 XRBLNKA EQU RBLINKB 03430000 XRBWT EQU RBWCF 03431000 @NM00516 EQU RBBASIC+24 03432000 RBOPSWPS EQU RBOPSWB2 03433000 @NM00515 EQU RBOPSWB2 03434000 @NM00514 EQU XRBPSW 03435000 @NM00513 EQU RBBASIC+12 03436000 XRBWAIT EQU RBECBWT 03437000 XRBFRRB EQU RBFDYN 03438000 @NM00512 EQU XSTAB2 03439000 XRBACTV EQU RBFACTV 03440000 XRBTCBP EQU RBTCBNXT 03441000 @NM00511 EQU XSTAB1 03442000 XRBCKPT EQU RBFTCKPT 03443000 @NM00510 EQU XSTAB1 03444000 @NM00509 EQU RBBASIC+8 03445000 @NM00508 EQU RBEXRTNM+1 03446000 RBTMIND3 EQU RBTMFLD 03447000 RBTMIND2 EQU RBTMFLD 03448000 RBTMCMP EQU RBTMFLD 03449000 RBWLIM EQU RBTMFLD 03450000 RBRSV005 EQU RBTMFLD 03451000 RBTMTOD EQU RBTMFLD 03452000 RBTMQUE EQU RBTMFLD 03453000 @NM00507 EQU RBPRFX 03454000 @NM00504 EQU TCBXTNT2+32 03455000 TCBRV181 EQU TCBRV173 03456000 TCBRV180 EQU TCBRV173 03457000 TCBRV179 EQU TCBRV173 03458000 TCBRV178 EQU TCBRV173 03459000 TCBRV177 EQU TCBRV173 03460000 TCBRV176 EQU TCBRV173 03461000 TCBRV175 EQU TCBRV173 03462000 TCBRV174 EQU TCBRV173 03463000 TCBRV172 EQU TCBRV164 03464000 TCBRV171 EQU TCBRV164 03465000 TCBRV170 EQU TCBRV164 03466000 TCBRV169 EQU TCBRV164 03467000 TCBRV168 EQU TCBRV164 03468000 TCBRV167 EQU TCBRV164 03469000 TCBRV166 EQU TCBRV164 03470000 TCBRV165 EQU TCBRV164 03471000 TCBRV163 EQU TCBRV155 03472000 TCBRV162 EQU TCBRV155 03473000 TCBRV161 EQU TCBRV155 03474000 TCBRV160 EQU TCBRV155 03475000 TCBRV159 EQU TCBRV155 03476000 TCBRV158 EQU TCBRV155 03477000 TCBRV157 EQU TCBRV155 03478000 TCBRV156 EQU TCBRV155 03479000 TCBRV154 EQU TCBRV146 03480000 TCBRV153 EQU TCBRV146 03481000 TCBRV152 EQU TCBRV146 03482000 TCBRV151 EQU TCBRV146 03483000 TCBRV150 EQU TCBRV146 03484000 TCBRV149 EQU TCBRV146 03485000 TCBRV148 EQU TCBRV146 03486000 TCBRV147 EQU TCBRV146 03487000 TCBRV145 EQU TCBXTNT2+26 03488000 TCBRV144 EQU TCBXTNT2+24 03489000 TCBRV143 EQU TCBXTNT2+20 03490000 TCBRV142 EQU TCBXTNT2+16 03491000 TCBRSV49 EQU TCBXTNT2+12 03492000 TCBEVENT EQU TCBXTNT2+8 03493000 TCBRCMP EQU TCBXTNT2+5 03494000 TCBRSVAB EQU TCBXTNT2+4 03495000 TCBGTFA EQU TCBGTF+1 03496000 TCBRSV47 EQU TCBTFLG 03497000 TCBRSV46 EQU TCBTFLG 03498000 TCBRSV45 EQU TCBTFLG 03499000 TCBRSV44 EQU TCBTFLG 03500000 TCBRSV43 EQU TCBTFLG 03501000 TCBDSPIT EQU TCBTFLG 03502000 TCBERRTN EQU TCBTFLG 03503000 TCBASYNC EQU TCBTFLG 03504000 @NM00503 EQU TCB+296 03505000 TCBSVCA2 EQU TCB+292 03506000 TCBSWASA EQU TCB+288 03507000 TCBDBTB EQU TCB+284 03508000 TCBRPT EQU TCB+280 03509000 TCBRV141 EQU TCBRV133 03510000 TCBRV140 EQU TCBRV133 03511000 TCBRV139 EQU TCBRV133 03512000 TCBRV138 EQU TCBRV133 03513000 TCBRV137 EQU TCBRV133 03514000 TCBRV136 EQU TCBRV133 03515000 TCBRV135 EQU TCBRV133 03516000 TCBRV134 EQU TCBRV133 03517000 TCBRV132 EQU TCBRV124 03518000 TCBRV131 EQU TCBRV124 03519000 TCBRV130 EQU TCBRV124 03520000 TCBRV129 EQU TCBRV124 03521000 TCBRV128 EQU TCBRV124 03522000 TCBRV127 EQU TCBRV124 03523000 TCBRV126 EQU TCBRV124 03524000 TCBRV125 EQU TCBRV124 03525000 TCBRV123 EQU TCBFBYT2 03526000 TCBRV122 EQU TCBFBYT2 03527000 TCBECBNV EQU TCBFBYT2 03528000 TCBSSSYN EQU TCBFBYT2 03529000 TCBFPRAP EQU TCBFBYT2 03530000 TCBFDW EQU TCBFBYT2 03531000 TCBFMW EQU TCBFBYT2 03532000 TCBCNCB EQU TCBFBYT2 03533000 TCBLLH EQU TCBFBYT1 03534000 TCBRV113 EQU TCBFBYT1 03535000 TCBEOT EQU TCBFBYT1 03536000 TCBRTM2 EQU TCBFBYT1 03537000 TCBPGNLY EQU TCBFBYT1 03538000 TCBNDIOS EQU TCBFBYT1 03539000 TCBRV327 EQU TCBFBYT1 03540000 TCBEOTFM EQU TCBFBYT1 03541000 TCBAFFN EQU TCB+274 03542000 TCBRV326 EQU TCB+272 03543000 TCBUKYSP EQU TCB+268 03544000 TCBMODE EQU TCBESTAE+3 03545000 TCBERTYP EQU TCBESTAE+2 03546000 TCBRV314 EQU TCBESTRM 03547000 TCBRV313 EQU TCBESTRM 03548000 TCBRV312 EQU TCBESTRM 03549000 TCBRV311 EQU TCBESTRM 03550000 TCBRV310 EQU TCBESTRM 03551000 TCBRV309 EQU TCBESTRM 03552000 TCBRV308 EQU TCBESTRM 03553000 TCBETERM EQU TCBESTRM 03554000 TCBSCBKY EQU TCBESTAE 03555000 TCBRTM12 EQU TCB+260 03556000 TCBTCBID EQU TCB+256 03557000 TCBSTAWA EQU TCB+252 03558000 TCBSWA EQU TCB+248 03559000 TCBFOEA EQU TCBFOE+1 03560000 TCBRSV42 EQU TCBFOE 03561000 TCBCCPVI EQU TCBXSCT+2 03562000 TCBRV325 EQU TCBXSCT+1 03563000 TCBRV324 EQU TCBXSCT1 03564000 TCBRV323 EQU TCBXSCT1 03565000 TCBRV322 EQU TCBXSCT1 03566000 TCBRV321 EQU TCBXSCT1 03567000 TCBRV320 EQU TCBXSCT1 03568000 TCBRV319 EQU TCBXSCT1 03569000 TCBS3A EQU TCBXSCT1 03570000 TCBACTIV EQU TCBXSCT1 03571000 TCBRSV41 EQU TCB+239 03572000 TCBTID EQU TCB+238 03573000 TCBRSVAA EQU TCB+237 03574000 TCBABCUR EQU TCB+236 03575000 TCBTMSAV EQU TCB+232 03576000 TCBIOTIM EQU TCB+228 03577000 TCBRTWA EQU TCB+224 03578000 TCBBACK EQU TCB+220 03579000 TCBTIRB EQU TCB+216 03580000 TCBAECB EQU TCB+212 03581000 TCBEXT2A EQU TCBEXT2+1 03582000 TCBRSV39 EQU TCBEXT2 03583000 TCBSTMCT EQU TCB+207 03584000 TCBSYSCT EQU TCB+206 03585000 TCBRSV37 EQU TCB+205 03586000 TCBEXSVC EQU TCBDAR 03587000 TCBDARMS EQU TCBDAR 03588000 TCBDARWT EQU TCBDAR 03589000 TCBDARO EQU TCBDAR 03590000 TCBDARMC EQU TCBDARC 03591000 TCBDARD EQU TCBDAR 03592000 TCBDARS EQU TCBDAR 03593000 TCBDARP EQU TCBDAR 03594000 TCBGTOFM EQU TCBFLGS7 03595000 TCBADMP EQU TCBFLGS7 03596000 TCBRSTSK EQU TCBFLGS7 03597000 TCBSVCS EQU TCBFLGS7 03598000 TCBSTACK EQU TCBFLGS7 03599000 TCBRSV34 EQU TCBFLGS7 03600000 TCBRSV33 EQU TCBFLGS7 03601000 TCBGPECB EQU TCBFLGS7 03602000 TCBNTJS EQU TCBFLGS6 03603000 TCBAPG EQU TCBFLGS6 03604000 TCBMIGR EQU TCBFLGS6 03605000 TCBRV303 EQU TCBFLGS6 03606000 TCBSPVLK EQU TCBFLGS6 03607000 TCBCPU EQU TCBFLGS6 03608000 TCBPIE17 EQU TCBFLGS6 03609000 TCBRV EQU TCBFLGS6 03610000 TCBRSV79 EQU TCBNDSP5 03611000 TCBRSV78 EQU TCBNDSP5 03612000 TCBRSV77 EQU TCBNDSP5 03613000 TCBRSV76 EQU TCBNDSP5 03614000 TCBRSV75 EQU TCBNDSP5 03615000 TCBRSV74 EQU TCBNDSP5 03616000 TCBRSV95 EQU TCBNDSP5 03617000 TCBRSV94 EQU TCBNDSP5 03618000 TCBRSV93 EQU TCBNDSP4 03619000 TCBRSV92 EQU TCBNDSP4 03620000 TCBRSV91 EQU TCBNDSP4 03621000 TCBRSV90 EQU TCBNDSP4 03622000 TCBRSV89 EQU TCBNDSP4 03623000 TCBRSV88 EQU TCBNDSP4 03624000 TCBRSV87 EQU TCBNDSP4 03625000 TCBRSV86 EQU TCBNDSP4 03626000 TCBEXT1A EQU TCBEXT1+1 03627000 TCBRSV32 EQU TCBEXT1 03628000 TCBEXCPD EQU TCB+192 03629000 TCBIOBRC EQU TCB+188 03630000 TCBDDWTC EQU TCB+186 03631000 TCBDDEXC EQU TCB+184 03632000 TCBJSCBB EQU TCBJSCB+1 03633000 @NM00502 EQU TCBRECDE 03634000 TCBREC EQU TCBRECDE 03635000 TCBMDIDS EQU TCB+176 03636000 TCBNDINT EQU TCBNDSP3 03637000 TCBRSV27 EQU TCBNDSP3 03638000 TCBRSV26 EQU TCBNDSP3 03639000 TCBRSV25 EQU TCBNDSP3 03640000 TCBRSV24 EQU TCBNDSP3 03641000 TCBSRBND EQU TCBNDSP3 03642000 TCBRV302 EQU TCBNDSP3 03643000 TCBLJSND EQU TCBNDSP3 03644000 TCBABE EQU TCBNDSP2 03645000 TCBDSS EQU TCBNDSP2 03646000 TCBOWAIT EQU TCBNDSP2 03647000 TCBIWAIT EQU TCBNDSP2 03648000 TCBNDTS EQU TCBNDSP2 03649000 TCBNDSVC EQU TCBNDSP2 03650000 TCBSTPP EQU TCBNDSP2 03651000 TCBABD EQU TCBNDSP2 03652000 TCBRSV22 EQU TCBNDSP1 03653000 TCBPIEND EQU TCBNDSP1 03654000 TCBTPSP EQU TCBNDSP1 03655000 TCBDDRND EQU TCBNDSP1 03656000 TCBRSPND EQU TCBNDSP1 03657000 TCBRSTND EQU TCBNDSP1 03658000 TCBDARPN EQU TCBNDSP1 03659000 TCBDARTN EQU TCBNDSP1 03660000 TCBNDSP0 EQU TCBNDSP 03661000 TCBUSER EQU TCB+168 03662000 TCBTCTB EQU TCBTCT+1 03663000 TCBRSV9C EQU TCBTCTGF 03664000 TCBRSV9B EQU TCBTCTGF 03665000 TCBRSV9A EQU TCBTCTGF 03666000 TCBRSV99 EQU TCBTCTGF 03667000 TCBRSV98 EQU TCBTCTGF 03668000 TCBRSV97 EQU TCBTCTGF 03669000 TCBRSV20 EQU TCBTCTGF 03670000 TCBSMFGF EQU TCBTCTGF 03671000 TCBSTABB EQU TCBSTAB+1 03672000 TCBSTCUR EQU TCBNSTAE 03673000 TCBRV301 EQU TCBNSTAE 03674000 TCBSYNCH EQU TCBNSTAE 03675000 TCBHALT EQU TCBNSTAE 03676000 TCBPPSUP EQU TCBNSTAE 03677000 TCB33E EQU TCBNSTAE 03678000 TCBQUIES EQU TCBNSTAE 03679000 TCBSTABE EQU TCBNSTAE 03680000 TCBAQE EQU TCB+156 03681000 TCBPQE EQU TCB+152 03682000 TCBTSDP EQU TCB+151 03683000 TCBTSLP EQU TCB+150 03684000 TCBSTPCT EQU TCB+149 03685000 TCBCPUBN EQU TCBTSFLG 03686000 TCBDYDSP EQU TCBTSFLG 03687000 TCBRSV18 EQU TCBTSFLG 03688000 TCBRSV17 EQU TCBTSFLG 03689000 TCBTIOTG EQU TCBTSFLG 03690000 TCBATT EQU TCBTSFLG 03691000 TCBSTPPR EQU TCBTSFLG 03692000 TCBRV300 EQU TCBTSTSK 03693000 TCBECB EQU TCB+144 03694000 TCBIQE EQU TCB+140 03695000 TCBLTC EQU TCB+136 03696000 TCBOTC EQU TCB+132 03697000 TCBNTC EQU TCB+128 03698000 TCBJSTCA EQU TCBJSTCB+1 03699000 TCBRSV16 EQU TCBJSTCB 03700000 TCBTQET EQU TCBTME 03701000 TCBTCB EQU TCB+116 03702000 TCBFSAB EQU TCBFSA+1 03703000 TCBQEL EQU TCBFSA 03704000 TCBGRS15 EQU TCBGRS+60 03705000 TCBGRS14 EQU TCBGRS+56 03706000 TCBGRS13 EQU TCBGRS+52 03707000 TCBGRS12 EQU TCBGRS+48 03708000 TCBGRS11 EQU TCBGRS+44 03709000 TCBGRS10 EQU TCBGRS+40 03710000 TCBGRS9 EQU TCBGRS+36 03711000 TCBGRS8 EQU TCBGRS+32 03712000 TCBGRS7 EQU TCBGRS+28 03713000 TCBGRS6 EQU TCBGRS+24 03714000 TCBGRS5 EQU TCBGRS+20 03715000 TCBGRS4 EQU TCBGRS+16 03716000 TCBGRS3 EQU TCBGRS+12 03717000 TCBGRS2 EQU TCBGRS+8 03718000 TCBGRS1 EQU TCBGRS+4 03719000 TCBGRS0 EQU TCBGRS 03720000 TCBJPQB EQU TCBJPQ+1 03721000 TCBRSV15 EQU TCBPURGE 03722000 TCBRSV14 EQU TCBPURGE 03723000 TCBRSV13 EQU TCBPURGE 03724000 TCBRSV12 EQU TCBPURGE 03725000 TCBRSV11 EQU TCBPURGE 03726000 TCBRSV10 EQU TCBPURGE 03727000 TCBRSV09 EQU TCBPURGE 03728000 TCBJPQF EQU TCBPURGE 03729000 TCBJLB EQU TCB+40 03730000 TCBDSP EQU TCB+35 03731000 TCBLMP EQU TCB+34 03732000 TCBPNDSP EQU TCBFLGS5 03733000 TCBFCD1 EQU TCBFLGS5 03734000 TCBSTP EQU TCBFLGS5 03735000 TCBSYS EQU TCBFLGS5 03736000 TCBANDSP EQU TCBFLGS5 03737000 TCBPAGE EQU TCBFLGS5 03738000 TCBUXNDF EQU TCBABWF 03739000 TCBONDSP EQU TCBFLGS4 03740000 TCBMPCND EQU TCBFLGS4 03741000 TCBMPCVQ EQU TCBFLGS4 03742000 TCBUXNDV EQU TCBFLGS4 03743000 TCBHNDSP EQU TCBFLGS4 03744000 TCBRQENA EQU TCBFLGS4 03745000 TCBSER EQU TCBFLGS4 03746000 TCBNDUMP EQU TCBFLGS4 03747000 TCBDWSTA EQU TCBFLGS3 03748000 TCBRSV08 EQU TCBFLGS3 03749000 TCBRSV07 EQU TCBFLGS3 03750000 TCBRSV06 EQU TCBFLGS3 03751000 TCBABGM EQU TCBFLGS3 03752000 TCBABTRM EQU TCBFLGS3 03753000 TCBADINP EQU TCBFLGS3 03754000 TCBFSM EQU TCBFLGS3 03755000 TCBFTS EQU TCBFLGS2 03756000 TCBFETXR EQU TCBFLGS2 03757000 TCBFDSOP EQU TCBFLGS2 03758000 TCBFJMC EQU TCBFLGS2 03759000 TCBFSMC EQU TCBFLGS2 03760000 TCBFABOP EQU TCBFLGS2 03761000 TCBFSTI EQU TCBFLGS2 03762000 TCBFOINP EQU TCBFLGS2 03763000 TCBFX EQU TCBFLGS1 03764000 TCBFS EQU TCBFLGS1 03765000 TCBFT EQU TCBFLGS1 03766000 TCBPDUMP EQU TCBFLGS1 03767000 TCBNONPR EQU TCBFLGS1 03768000 TCBFERA EQU TCBFLGS1 03769000 TCBFE EQU TCBFLGS1 03770000 TCBFA EQU TCBFLGS1 03771000 TCBZERO EQU TCBPKF 03772000 TCBFLAG EQU TCBPKF 03773000 TCBMSSB EQU TCBMSS+1 03774000 TCBRSV03 EQU TCBMSS 03775000 TCBTRNB EQU TCBTRN+1 03776000 TCBRSV02 EQU TCBABF 03777000 TCBOLTEP EQU TCBABF 03778000 TCBTCP EQU TCBABF 03779000 TCBTCPP EQU TCBABF 03780000 TCBRSV01 EQU TCBABF 03781000 TCBGRPH EQU TCBABF 03782000 TCBNOCHK EQU TCBABF 03783000 TCBMOD91 EQU TCBABF 03784000 TCBCMPC EQU TCBCMP+1 03785000 TCBRV318 EQU TCBCMSG 03786000 TCBRV317 EQU TCBCIND 03787000 TCBRV316 EQU TCBCWTO 03788000 TCBCASID EQU TCBCDBL 03789000 TCBNOCC EQU TCBSTCC 03790000 TCBDMPO EQU TCBCPP 03791000 TCBCSTEP EQU TCBCMPF 03792000 TCBCREQ EQU TCBCMPF 03793000 TCBDEB EQU TCB+8 03794000 TCBPIEA EQU TCBPIE+1 03795000 TCBPM EQU TCBPMASK 03796000 @NM00501 EQU TCBPMASK 03797000 TCBFRS6 EQU TCBFRS+24 03798000 TCBFRS4 EQU TCBFRS+16 03799000 TCBFRS2 EQU TCBFRS+8 03800000 TCBFRS0 EQU TCBFRS 03801000 CVTLEVL EQU CVTRELNO+2 03802000 CVTNUMB EQU CVTRELNO 03803000 CVTMDL EQU CVTFIX+250 03804000 @NM00500 EQU CVTFIX+248 03805000 @NM00499 EQU CVTFIX 03806000 CVTRV482 EQU CVTXTNT2+128 03807000 CVTRV481 EQU CVTXTNT2+124 03808000 CVTRV480 EQU CVTXTNT2+120 03809000 CVTRV479 EQU CVTXTNT2+118 03810000 CVTRV478 EQU CVTXTNT2+117 03811000 CVTRV477 EQU CVTXTNT2+116 03812000 CVTRV476 EQU CVTXTNT2+115 03813000 CVTRV475 EQU CVTXTNT2+114 03814000 CVTRV474 EQU CVTRV466 03815000 CVTRV473 EQU CVTRV466 03816000 CVTRV472 EQU CVTRV466 03817000 CVTRV471 EQU CVTRV466 03818000 CVTRV470 EQU CVTRV466 03819000 CVTRV469 EQU CVTRV466 03820000 CVTRV468 EQU CVTRV466 03821000 CVTRV467 EQU CVTRV466 03822000 CVTRV465 EQU CVTRV457 03823000 CVTRV464 EQU CVTRV457 03824000 CVTRV463 EQU CVTRV457 03825000 CVTRV462 EQU CVTRV457 03826000 CVTRV461 EQU CVTRV457 03827000 CVTRV460 EQU CVTRV457 03828000 CVTRV459 EQU CVTRV457 03829000 CVTRV458 EQU CVTRV457 03830000 CVTRV456 EQU CVTXTNT2+108 03831000 CVTRV455 EQU CVTXTNT2+104 03832000 CVTRV454 EQU CVTXTNT2+100 03833000 CVTRV453 EQU CVTXTNT2+96 03834000 CVTRV452 EQU CVTXTNT2+94 03835000 CVTRV451 EQU CVTXTNT2+92 03836000 CVTRV450 EQU CVTXTNT2+90 03837000 CVTRV449 EQU CVTXTNT2+88 03838000 CVTRV448 EQU CVTXTNT2+87 03839000 CVTRV447 EQU CVTXTNT2+86 03840000 CVTRV446 EQU CVTRV438 03841000 CVTRV445 EQU CVTRV438 03842000 CVTRV444 EQU CVTRV438 03843000 CVTRV443 EQU CVTRV438 03844000 CVTRV442 EQU CVTRV438 03845000 CVTRV441 EQU CVTRV438 03846000 CVTRV440 EQU CVTRV438 03847000 CVTRV439 EQU CVTRV438 03848000 CVTRV437 EQU CVTRV429 03849000 CVTRV436 EQU CVTRV429 03850000 CVTRV435 EQU CVTRV429 03851000 CVTRV434 EQU CVTRV429 03852000 CVTRV433 EQU CVTRV429 03853000 CVTRV432 EQU CVTRV429 03854000 CVTRV431 EQU CVTRV429 03855000 CVTRV430 EQU CVTRV429 03856000 CVTRV428 EQU CVTXTNT2+80 03857000 CVTRV427 EQU CVTXTNT2+76 03858000 CVTRV426 EQU CVTXTNT2+72 03859000 CVTRV425 EQU CVTXTNT2+68 03860000 CVTATACT EQU CVTATCVT 03861000 CVTRV423 EQU CVTXTNT2+62 03862000 CVTRV422 EQU CVTXTNT2+60 03863000 CVTRV421 EQU CVTXTNT2+58 03864000 CVTRV420 EQU CVTXTNT2+56 03865000 CVTRV419 EQU CVTXTNT2+55 03866000 CVTRV418 EQU CVTXTNT2+54 03867000 CVTRV417 EQU CVTRV409 03868000 CVTRV416 EQU CVTRV409 03869000 CVTRV415 EQU CVTRV409 03870000 CVTRV414 EQU CVTRV409 03871000 CVTRV413 EQU CVTRV409 03872000 CVTRV412 EQU CVTRV409 03873000 CVTRV411 EQU CVTRV409 03874000 CVTRV410 EQU CVTRV409 03875000 CVTRV408 EQU CVTRV400 03876000 CVTRV407 EQU CVTRV400 03877000 CVTRV406 EQU CVTRV400 03878000 CVTRV405 EQU CVTRV400 03879000 CVTRV404 EQU CVTRV400 03880000 CVTRV403 EQU CVTRV400 03881000 CVTRV402 EQU CVTRV400 03882000 CVTRV401 EQU CVTRV400 03883000 CVTICB EQU CVTXTNT2+48 03884000 CVTSKTA EQU CVTXTNT2+44 03885000 CVTRSV99 EQU CVTXTNT2+40 03886000 CVTRSV98 EQU CVTXTNT2+36 03887000 CVTRSV97 EQU CVTXTNT2+34 03888000 CVTRSV96 EQU CVTXTNT2+32 03889000 CVTOLTEP EQU CVTXTNT2+28 03890000 CVTQIDA EQU CVTQID+1 03891000 CVTRSV95 EQU CVTQID 03892000 CVTRSV94 EQU CVTXTNT2+20 03893000 CVTRSV93 EQU CVTXTNT2+16 03894000 CVTRSV92 EQU CVTXTNT2+12 03895000 CVTDEBVR EQU CVTXTNT2+8 03896000 CVTRSV91 EQU CVTXTNT2+6 03897000 CVTRSV9H EQU CVTFLGBT 03898000 CVTRSV9G EQU CVTFLGBT 03899000 CVTRSV9F EQU CVTFLGBT 03900000 CVTRSV9E EQU CVTFLGBT 03901000 CVTRSV9D EQU CVTFLGBT 03902000 CVTBAH EQU CVTFLGBT 03903000 CVTVME EQU CVTFLGBT 03904000 CVTNPE EQU CVTFLGBT 03905000 CVTNUCLS EQU CVTXTNT2+4 03906000 CVTDSSVA EQU CVTDSSV+1 03907000 CVTRSV89 EQU CVTDSSV 03908000 CVTRSV88 EQU CVTXTNT1+8 03909000 CVTRSV87 EQU CVTXTNT1+4 03910000 CVTFACHN EQU CVTXTNT1 03911000 CVTRV488 EQU CVTMAP+412 03912000 CVTRV487 EQU CVTMAP+408 03913000 CVTRV486 EQU CVTMAP+404 03914000 CVTRV485 EQU CVTMAP+400 03915000 CVTACTAP EQU CVTMAP+396 03916000 CVTAUTH EQU CVTMAP+392 03917000 CVTRV490 EQU CVTMAP+388 03918000 CVTRSV61 EQU CVTMAP+384 03919000 CVTVOLT1 EQU CVTVOLM1+1 03920000 CVTVOLI1 EQU CVTVOLF1 03921000 CVTSTOA EQU CVTMAP+376 03922000 CVTRSV58 EQU CVTMAP+374 03923000 CVTRSV57 EQU CVTMAP+372 03924000 CVTDDCE EQU CVTMAP+368 03925000 CVTPNWFR EQU CVTMAP+364 03926000 CVTSMF EQU CVTMAP+360 03927000 CVTSULK EQU CVTMAP+358 03928000 CVTSLKO EQU CVTSYSK 03929000 CVTSLKP EQU CVTSYSK 03930000 CVTSLKQ EQU CVTSYSK 03931000 CVTSLKR EQU CVTSYSK 03932000 CVTRSV56 EQU CVTSYSK 03933000 CVTRSV55 EQU CVTSYSK 03934000 CVTRSV54 EQU CVTSYSK 03935000 CVTRSV53 EQU CVTSYSK 03936000 CVTRSV52 EQU CVTA1F1 03937000 CVTRSV51 EQU CVTA1F1 03938000 CVTRSV50 EQU CVTA1F1 03939000 CVTRSV49 EQU CVTA1F1 03940000 CVTRSV48 EQU CVTA1F1 03941000 CVTRSV47 EQU CVTA1F1 03942000 CVTSRSW EQU CVTA1F1 03943000 CVTPFSW EQU CVTA1F1 03944000 CVTPCVT EQU CVTMAP+352 03945000 CVTRSV46 EQU CVTMAP+344 03946000 CVTRSV45 EQU CVTMAP+340 03947000 CVTRSV44 EQU CVTMAP+338 03948000 CVTRSV43 EQU CVTMAP+336 03949000 CVTHJESA EQU CVTHJES+1 03950000 CVTRSV42 EQU CVTHJES 03951000 CVTEXT2A EQU CVTEXT2+1 03952000 CVTRSV41 EQU CVTEXT2 03953000 CVTAPFA EQU CVTAPF+1 03954000 CVTRSV40 EQU CVTAPF 03955000 CVTRV518 EQU CVTINTLA 03956000 CVTRV517 EQU CVTERPV 03957000 CVTEORM EQU CVTMAP+312 03958000 CVTMCHPR EQU CVTMAP+308 03959000 CVTTZ EQU CVTMAP+304 03960000 CVTJEPS EQU CVTMAP+300 03961000 CVTJESCT EQU CVTMAP+296 03962000 CVTMODE EQU CVTMAP+292 03963000 CVTPTRV EQU CVTMAP+288 03964000 CVTREAL EQU CVTMAP+284 03965000 CVTRSV39 EQU CVTMAP+280 03966000 CVTRSV38 EQU CVTMAP+276 03967000 CVTDMSRA EQU CVTDMSR+1 03968000 CVTRV634 EQU CVTDMSRF 03969000 CVTRV633 EQU CVTDMSRF 03970000 CVTRV632 EQU CVTDMSRF 03971000 CVTRV631 EQU CVTDMSRF 03972000 CVTRV630 EQU CVTDMSRF 03973000 CVTRV629 EQU CVTDMSRF 03974000 CVTUDUMP EQU CVTDMSRF 03975000 CVTSDUMP EQU CVTDMSRF 03976000 CVTQMSGA EQU CVTQMSG+1 03977000 CVTRSV36 EQU CVTQMSG 03978000 CVTAMFF EQU CVTMAP+264 03979000 CVTPURGA EQU CVTPURG+1 03980000 CVTRSV35 EQU CVTPURG 03981000 CVTCBSP EQU CVTMAP+256 03982000 CVTATERA EQU CVTATER+1 03983000 CVTSYST EQU CVTATER 03984000 CVTVOLT2 EQU CVTTAT 03985000 CVTVOLI2 EQU CVTVOLF2 03986000 CVTAQAVB EQU CVTAQAVT+1 03987000 CVTRSV34 EQU CVTTCMFG 03988000 CVTRSV33 EQU CVTTCMFG 03989000 CVTRSV32 EQU CVTTCMFG 03990000 CVTRSV31 EQU CVTTCMFG 03991000 CVTRSV30 EQU CVTTCMFG 03992000 CVTRSV29 EQU CVTTCMFG 03993000 CVTLDEV EQU CVTTCMFG 03994000 CVTTCRDY EQU CVTTCMFG 03995000 CVTGTFA EQU CVTGTF+1 03996000 CVTRSV27 EQU CVTGTFST 03997000 CVTRNIO EQU CVTGTFST 03998000 CVTUSR EQU CVTGTFST 03999000 CVTRV318 EQU CVTFORM 04000000 CVTRV317 EQU CVTTMODE 04001000 CVTRV316 EQU CVTSTATE 04002000 CVTRV315 EQU CVTGTFS 04003000 CVTGTFAV EQU CVTGTFS 04004000 CVT0SCR1 EQU CVTMAP+232 04005000 CVTRV515 EQU CVTMAP+228 04006000 CVTRMS EQU CVTMAP+224 04007000 CVTPATCH EQU CVTMAP+220 04008000 CVTTSCE EQU CVTMAP+216 04009000 CVTLNKSC EQU CVTMAP+214 04010000 CVTQABST EQU CVTMAP+212 04011000 CVTMDLDS EQU CVTMAP+208 04012000 CVTUSER EQU CVTMAP+204 04013000 CVTABEND EQU CVTMAP+200 04014000 CVTSMCA EQU CVTMAP+196 04015000 CVTRSV18 EQU CVTMAP+192 04016000 CVTQLPAQ EQU CVTMAP+188 04017000 CVTQCDSR EQU CVTMAP+184 04018000 CVTRSV17 EQU CVTOPTB 04019000 CVTVS1A EQU CVTOPTB 04020000 CVTFP EQU CVTOPTB 04021000 CVTAPTHR EQU CVTOPTB 04022000 CVTNLOG EQU CVTOPTB 04023000 CVTTOD EQU CVTOPTB 04024000 CVTCTIMS EQU CVTOPTB 04025000 CVTPROT EQU CVTOPTB 04026000 CVTXPFP EQU CVTOPTA 04027000 CVTASCII EQU CVTOPTA 04028000 CVTRSV13 EQU CVTOPTA 04029000 CVTRSV12 EQU CVTOPTA 04030000 CVTNIP EQU CVTOPTA 04031000 CVTDDR EQU CVTOPTA 04032000 CVTAPR EQU CVTOPTA 04033000 CVTCCH EQU CVTOPTA 04034000 CVTSNCTR EQU CVTMAP+180 04035000 CVTQMWR EQU CVTMAP+176 04036000 CVTQOCR EQU CVTMAP+172 04037000 CVT1EF00 EQU CVTMAP+168 04038000 CVTMZ00 EQU CVTMAP+164 04039000 CVTHEAD EQU CVTMAP+160 04040000 CVTRSV11 EQU CVTMAP+156 04041000 CVT0PT01 EQU CVTMAP+152 04042000 CVTMSER EQU CVTMAP+148 04043000 CVTRV516 EQU CVTIERLC 04044000 CVTILCH EQU CVTMAP+140 04045000 CVT0DS EQU CVTMAP+136 04046000 CVTFBOSV EQU CVTMAP+132 04047000 CVTNUCB EQU CVTMAP+128 04048000 CVTIXAVL EQU CVTMAP+124 04049000 CVTIOQET EQU CVTMAP+120 04050000 CVTDCBA EQU CVTMAP+117 04051000 CVTMVS2 EQU CVTDCB 04052000 CVT6DAT EQU CVTDCB 04053000 CVT4MPS EQU CVTDCB 04054000 CVTRSV09 EQU CVTDCB 04055000 CVT4MS1 EQU CVTDCB 04056000 CVT2SPS EQU CVTDCB 04057000 CVT1SSS EQU CVTDCB 04058000 CVTRSV08 EQU CVTDCB 04059000 CVTSTB EQU CVTMAP+112 04060000 CVTQTD00 EQU CVTMAP+108 04061000 CVTQTE00 EQU CVTMAP+104 04062000 CVTCUCB EQU CVTMAP+100 04063000 CVTSJQ EQU CVTMAP+96 04064000 CVTPBLDL EQU CVTMAP+92 04065000 CVTTPC EQU CVTMAP+88 04066000 CVTSVDCB EQU CVTMAP+84 04067000 CVTBRET EQU CVTMAP+82 04068000 CVTEXIT EQU CVTMAP+80 04069000 CVT0FN00 EQU CVTMAP+76 04070000 CVTDARA EQU CVTDAR+1 04071000 CVTRSV07 EQU CVTFLGS1 04072000 CVTRSV06 EQU CVTFLGS1 04073000 CVTRSV05 EQU CVTFLGS1 04074000 CVTRSV04 EQU CVTFLGS1 04075000 CVTRSV03 EQU CVTFLGS1 04076000 CVTRSV02 EQU CVTFLGS1 04077000 CVTRSV01 EQU CVTFLGS1 04078000 CVTDMPLK EQU CVTFLGS1 04079000 CVTXITP EQU CVTMAP+68 04080000 CVTZDTAB EQU CVTMAP+64 04081000 CVTMSLT EQU CVTMAP+60 04082000 CVTDATE EQU CVTMAP+56 04083000 CVTBTERM EQU CVTMAP+52 04084000 CVTSYSAD EQU CVTMAP+48 04085000 CVTXTLER EQU CVTMAP+44 04086000 CVTILK2 EQU CVTMAP+40 04087000 CVTILK1 EQU CVTMAP+36 04088000 CVTPRLTV EQU CVTMAP+32 04089000 CVTPCNVT EQU CVTMAP+28 04090000 CVT0VL00 EQU CVTMAP+24 04091000 CVTXAPG EQU CVTMAP+20 04092000 CVTBUF EQU CVTMAP+16 04093000 CVTJOB EQU CVTMAP+12 04094000 CVTLINK EQU CVTMAP+8 04095000 CVT0EF00 EQU CVTMAP+4 04096000 CVTTCBP EQU CVTMAP 04097000 CVT EQU CVTMAP 04098000 LLESYSCT EQU LLE+10 04099000 LLECOUNT EQU LLE+8 04100000 CDATTR3 EQU CDENTRY+30 04101000 CDAUTH EQU CDATTR2 04102000 CDSYSLIB EQU CDATTR2 04103000 CDOLY EQU CDATTR2 04104000 @NM00498 EQU CDATTR2 04105000 CDRLC EQU CDATTR2 04106000 CDREL EQU CDATTR2 04107000 CDSPZ EQU CDATTR2 04108000 CDNLR EQU CDATTR 04109000 CDJPA EQU CDATTR 04110000 CDNFN EQU CDATTR 04111000 CDSER EQU CDATTR 04112000 CDREN EQU CDATTR 04113000 CDNIP EQU CDATTR 04114000 @NM00497 EQU CDENTRY+26 04115000 CDUSE EQU CDENTRY+24 04116000 CDRRBP EQU CDENTRY+4 04117000 CDCHAIN EQU CDENTRY 04118000 ASCBEND EQU ASCB+208 04119000 ASCBSRBT EQU ASCB+200 04120000 ASCBSWTL EQU ASCB+196 04121000 ASCBRS14 EQU ASCB+195 04122000 ASCBSMCT EQU ASCB+194 04123000 ASCBRS12 EQU ASCB+192 04124000 ASCBPCTT EQU ASCB+188 04125000 ASCBVGTT EQU ASCB+184 04126000 ASCBRV43 EQU ASCBSRQ4 04127000 ASCBRV42 EQU ASCBSRQ4 04128000 ASCBRV41 EQU ASCBSRQ4 04129000 ASCBRV40 EQU ASCBSRQ4 04130000 ASCBRV39 EQU ASCBSRQ4 04131000 ASCBRV38 EQU ASCBSRQ4 04132000 ASCBRV37 EQU ASCBSRQ4 04133000 ASCBRV36 EQU ASCBSRQ4 04134000 ASCBRV35 EQU ASCBSRQ3 04135000 ASCBRV34 EQU ASCBSRQ3 04136000 ASCBRV33 EQU ASCBSRQ3 04137000 ASCBRV32 EQU ASCBSRQ3 04138000 ASCBRV31 EQU ASCBSRQ3 04139000 ASCBRV30 EQU ASCBSRQ3 04140000 ASCBRV29 EQU ASCBSRQ3 04141000 ASCBRV28 EQU ASCBSRQ3 04142000 ASCBRV27 EQU ASCBSRQ2 04143000 ASCBRV26 EQU ASCBSRQ2 04144000 ASCBRV25 EQU ASCBSRQ2 04145000 ASCBRV24 EQU ASCBSRQ2 04146000 ASCBRV23 EQU ASCBSRQ2 04147000 ASCBRV22 EQU ASCBSRQ2 04148000 ASCBRV21 EQU ASCBSRQ2 04149000 ASCBRV20 EQU ASCBSRQ2 04150000 ASCBRV19 EQU ASCBSRQ1 04151000 ASCBRV18 EQU ASCBSRQ1 04152000 ASCBRV17 EQU ASCBSRQ1 04153000 ASCBRV16 EQU ASCBSRQ1 04154000 ASCBRV15 EQU ASCBSRQ1 04155000 ASCBRV14 EQU ASCBSRQ1 04156000 ASCBRV13 EQU ASCBSRQ1 04157000 ASCBSTA EQU ASCBSRQ1 04158000 ASCBJBNS EQU ASCB+176 04159000 ASCBJBNI EQU ASCB+172 04160000 ASCBMCC EQU ASCB+168 04161000 ASCBRTWA EQU ASCB+164 04162000 ASCBIQEA EQU ASCB+160 04163000 ASCBXMPQ EQU ASCB+156 04164000 ASCBRS01 EQU ASCB+154 04165000 ASCBFMCT EQU ASCB+152 04166000 ASCBOUXB EQU ASCB+148 04167000 ASCBOUCB EQU ASCB+144 04168000 ASCBMECB EQU ASCB+140 04169000 ASCBQECB EQU ASCB+136 04170000 ASCBLSQH EQU ASCBLKGP+4 04171000 ASCBLOCK EQU ASCBLKGP 04172000 ASCBTCBS EQU ASCB+124 04173000 ASCBNVSC EQU ASCB+122 04174000 ASCBVSC EQU ASCB+120 04175000 ASCBSRBS EQU ASCB+118 04176000 ASCBSSRB EQU ASCB+116 04177000 ASCBRV06 EQU ASCBFLG2 04178000 ASCBRV05 EQU ASCBFLG2 04179000 ASCBRV04 EQU ASCBFLG2 04180000 ASCBSNQS EQU ASCBFLG2 04181000 ASCBS2S EQU ASCBFLG2 04182000 ASCBCEXT EQU ASCBFLG2 04183000 ASCBPXMT EQU ASCBFLG2 04184000 ASCBXMPT EQU ASCBFLG2 04185000 ASCBRF07 EQU ASCBDSP1 04186000 ASCBRF06 EQU ASCBDSP1 04187000 ASCBRF05 EQU ASCBDSP1 04188000 ASCBRF04 EQU ASCBDSP1 04189000 ASCBRF03 EQU ASCBDSP1 04190000 ASCBRF02 EQU ASCBDSP1 04191000 ASCBFAIL EQU ASCBDSP1 04192000 ASCBNOQ EQU ASCBDSP1 04193000 ASCBSWCT EQU ASCB+112 04194000 ASCBASXB EQU ASCB+108 04195000 ASCBTMCH EQU ASCB+104 04196000 ASCBNSWP EQU ASCBFLG1 04197000 ASCBTYP1 EQU ASCBFLG1 04198000 ASCBSTND EQU ASCBFLG1 04199000 ASCBABNT EQU ASCBFLG1 04200000 ASCBTERM EQU ASCBFLG1 04201000 ASCBS3S EQU ASCBFLG1 04202000 ASCBCMSH EQU ASCBFLG1 04203000 ASCBTOFF EQU ASCBFLG1 04204000 ASCBRF01 EQU ASCBRCTF 04205000 ASCBTMLW EQU ASCBRCTF 04206000 ASCBOUT EQU ASCBRCTF 04207000 ASCBWAIT EQU ASCBRCTF 04208000 ASCBRV08 EQU ASCBRCTF 04209000 ASCBFQU EQU ASCBRCTF 04210000 ASCBFRS EQU ASCBRCTF 04211000 ASCBTMNO EQU ASCBRCTF 04212000 ASCBAFFN EQU ASCBFW1 04213000 ASCBDUMP EQU ASCB+96 04214000 ASCBRV44 EQU ASCB+92 04215000 ASCBUBET EQU ASCB+88 04216000 ASCBECB EQU ASCB+84 04217000 ASCBJSTL EQU ASCB+80 04218000 ASCBEWST EQU ASCB+72 04219000 ASCBEJST EQU ASCB+64 04220000 ASCBTSB EQU ASCB+60 04221000 ASCBCSCB EQU ASCB+56 04222000 ASCBRSM EQU ASCB+52 04223000 ASCBLDA EQU ASCB+48 04224000 ASCBSTOR EQU ASCB+44 04225000 ASCBDP EQU ASCB+43 04226000 ASCBRV07 EQU ASCB+42 04227000 ASCBIOSM EQU ASCB+40 04228000 ASCBSEQN EQU ASCB+38 04229000 ASCBASID EQU ASCB+36 04230000 ASCBCPUS EQU ASCB+32 04231000 ASCBSPL EQU ASCB+28 04232000 ASCBIOSP EQU ASCB+24 04233000 ASCBSYNC EQU ASCBSUPC+4 04234000 ASCBSVRB EQU ASCBSUPC 04235000 ASCBCMSF EQU ASCB+12 04236000 ASCBBWDP EQU ASCB+8 04237000 ASCBFWDP EQU ASCB+4 04238000 ASCBASCB EQU ASCB 04239000 ASCBEGIN EQU ASCB 04240000 ABDSAVE1 EQU ABDAREA+672 04241000 ABDSAVHD EQU ABDAREA+592 04242000 ABDPADC EQU ABDAREA+589 04243000 ABDLINE EQU ABDLINEA+1 04244000 ABDSRC2 EQU ABDAREA+382 04245000 ABDLOG EQU ABDAREA+380 04246000 ABDSRC1 EQU ABDAREA+378 04247000 ABDPHY EQU ABDAREA+376 04248000 ABDLCNT EQU ABDAREA+372 04249000 @NM00496 EQU ESPARM+29 04250000 @NM00495 EQU ESTAEFLG 04251000 EDCB EQU ESTAEFLG 04252000 ETCB EQU ESTAEFLG 04253000 ESUBSYT EQU ESTAEFLG 04254000 ERESTART EQU ESPARM+24 04255000 EMODNAME EQU ESPARM+16 04256000 EABDAREA EQU ESPARM+12 04257000 ESAUTOP EQU ESPARM+8 04258000 ESBSREG2 EQU ESPARM+4 04259000 ESBSREG EQU ESPARM 04260000 ABDRTRN EQU ABDAREA+336 04261000 ABDSVCB EQU ABDAREA+332 04262000 @NM00494 EQU ABDGMA+14 04263000 ABDCDID EQU ABDGMA+12 04264000 ABDPAREA EQU ABDGMA+8 04265000 ABDBUFSZ EQU ABDBUFFS+4 04266000 ABDBUFAD EQU ABDBUFFS 04267000 ABSLCTSV EQU ABDAREA+304 04268000 ABDSTADS EQU ABDAREA+300 04269000 ABDUPRID EQU ABDAREA+296 04270000 ABDPCAP EQU ABDAREA+295 04271000 ABDLLNGH EQU ABDAREA+294 04272000 ABDINCPL EQU ABDAREA+292 04273000 ABDFWORK EQU ABDAREA+288 04274000 ABDIDENT EQU ABDAREA+286 04275000 ABDIND EQU ABDAREA+284 04276000 ABDSIZE EQU ABDAREA+280 04277000 ABDLENTH EQU ABDAREA+276 04278000 ABDBLOCK EQU ABDAREA+272 04279000 ABDSTAD EQU ABDAREA+268 04280000 @NM00493 EQU ABDBLNKS 04281000 @NM00492 EQU ABDBLNKS 04282000 @NM00491 EQU ABDBLNKS 04283000 @NM00490 EQU ABDBLNKS 04284000 @NM00489 EQU ABDBLNKS 04285000 @NM00488 EQU ABDBLNKS 04286000 @NM00487 EQU ABDBLNKS 04287000 ABDBLKN3 EQU ABDBLNKS 04288000 @NM00486 EQU ABDUPRFN 04289000 @NM00485 EQU ABDUPRFN 04290000 @NM00484 EQU ABDUPRFN 04291000 @NM00483 EQU ABDUPRFN 04292000 @NM00482 EQU ABDUPRFN 04293000 @NM00481 EQU ABDUPRFN 04294000 ABDUPRSL EQU ABDUPRFN 04295000 ABDUPRPM EQU ABDUPRFN 04296000 @NM00480 EQU ABDUPRF 04297000 @NM00479 EQU ABDUPRF 04298000 @NM00478 EQU ABDUPRF 04299000 @NM00477 EQU ABDUPRF 04300000 @NM00476 EQU ABDUPRF 04301000 UPRFMT20 EQU ABDUPRF 04302000 UPRFMET EQU ABDUPRF 04303000 UPRFMAT EQU ABDUPRF 04304000 ABDFMTWK EQU ABDAREA+256 04305000 ABDLPTR EQU ABDAREA+252 04306000 ABDSSPAR EQU ABDAREA+188 04307000 @NM00475 EQU ABDRES1 04308000 ABDPGHD EQU ABDRES1 04309000 ABDFMTLD EQU ABDRES1 04310000 ABDSQA EQU ABDRES1 04311000 ABDOLSQA EQU ABDRES1 04312000 ABDREGS EQU ABDRES1 04313000 ABDPSW EQU ABDRES1 04314000 ABDKEY EQU ABDAREA+138 04315000 ABDLSQA EQU ABDFLAG2 04316000 ABDSTAT EQU ABDFLAG2 04317000 ABDSWAP EQU ABDFLAG2 04318000 ABDGTFCL EQU ABDFLAG2 04319000 ABDTRNAV EQU ABDFLAG2 04320000 ABDTRBIT EQU ABDFLAG2 04321000 ABDGTF EQU ABDFLAG2 04322000 ABDSUPER EQU ABDFLAG2 04323000 ABDIDX EQU ABDFLAG1 04324000 ABDSPHD EQU ABDFLAG1 04325000 ABDSVCHD EQU ABDFLAG1 04326000 ABDSQSDM EQU ABDFLAG1 04327000 ABDLSTHD EQU ABDFLAG1 04328000 ABDQCBMN EQU ABDFLAG1 04329000 ABDQCBMJ EQU ABDFLAG1 04330000 ABDQCBHD EQU ABDFLAG1 04331000 ABDPGWK EQU ABDAREA+128 04332000 ABDWORK1 EQU ABDAREA+120 04333000 ABDRESV3 EQU ABDAREA+116 04334000 ABDUPRXT EQU ABDAREA+112 04335000 ABDCP1 EQU ABDAREA+108 04336000 ABDLP EQU ABDAREA+104 04337000 ABDFP EQU ABDAREA+100 04338000 ABDCP EQU ABDAREA+96 04339000 ABDPTRS3 EQU ABDPTRS+8 04340000 ABDPTRS2 EQU ABDPTRS+4 04341000 ABDPTRS1 EQU ABDPTRS 04342000 ABDPCTR EQU ABDAREA+82 04343000 ABDLCTR EQU ABDAREA+80 04344000 ABDIOBP EQU ABDAREA+76 04345000 ABDPTR EQU ABDAREA+72 04346000 ABDDCB EQU ABDAREA+68 04347000 ABDLEN EQU ABDAREA+66 04348000 ABDTYPE EQU ABDAREA+64 04349000 ABDECB EQU ABDAREA+60 04350000 ABDSAVE EQU ABDAREA+56 04351000 ABDDECB EQU ABDAREA+52 04352000 ABDPARA EQU ABDAREA+48 04353000 ABDTABPT EQU ABDAREA+44 04354000 ABDINXPT EQU ABDAREA+40 04355000 ABDCTR EQU ABDAREA+38 04356000 ABDTRLN EQU ABDAREA+36 04357000 ABDHDRAD EQU ABDPARMS+20 04358000 ABDSNAPP EQU ABDPARMS+16 04359000 ABDPTCBP EQU ABDPARMS+12 04360000 ABDPDCBP EQU ABDPARMS+8 04361000 @NM00474 EQU ABDPARMS+7 04362000 @NM00473 EQU APFPDATA 04363000 APFSPALL EQU APFPDATA 04364000 APFPSW EQU APFPDATA 04365000 APFJPA EQU APFPDATA 04366000 APFLPA EQU APFPDATA 04367000 APFREGS EQU APFPDATA 04368000 APFSAVE2 EQU APFPDATA 04369000 APFSAVE EQU APFPDATA 04370000 @NM00472 EQU APFSDAT1 04371000 APFERR EQU APFSDAT1 04372000 APFIO EQU APFSDAT1 04373000 APFDM EQU APFSDATA 04374000 APFQCB EQU APFSDATA 04375000 APFSUPDA EQU APFSDATA 04376000 APFTRACE EQU APFSDATA 04377000 APFSWA EQU APFSDATA 04378000 APFLSQA EQU APFSDATA 04379000 APFSQA EQU APFSDATA 04380000 APFNUC EQU APFSDATA 04381000 @NM00471 EQU ABDPARMS+2 04382000 APFHDR EQU ABDFLAG 04383000 APFSNAPP EQU ABDFLAG 04384000 APFTCB EQU ABDFLAG 04385000 APFID EQU ABDFLAG 04386000 APFABEND EQU ABDFLAG 04387000 APFENVS2 EQU ABDFLAG 04388000 APFVS2 EQU ABDFLAG 04389000 APFSNAP EQU ABDFLAG 04390000 ABDPID EQU ABDPARMS 04391000 ABDCRB EQU ABDAREA+8 04392000 @NM00557 EQU PSA+3668 04393000 PSASTAK EQU PSA+3072 04394000 @NM00556 EQU PSA+1048 04395000 PSAUSEND EQU PSA+1048 04396000 PSARV062 EQU PSA+1044 04397000 PSACDAL EQU PSA+1040 04398000 PSAWTCOD EQU PSA+1036 04399000 PSAATCVT EQU PSA+1032 04400000 PSAPCPSW EQU PSA+1024 04401000 PSAPIR2 EQU PSA+1020 04402000 PSARV059 EQU PSA+1018 04403000 PSASVC13 EQU PSA+1016 04404000 PSALSFCC EQU PSA+1012 04405000 PSASFACC EQU PSA+1008 04406000 PSASTOP EQU PSA+992 04407000 PSASTART EQU PSA+976 04408000 PSARSPSW EQU PSA+968 04409000 PSASRPSW EQU PSA+960 04410000 PSARV045 EQU PSA+892 04411000 PSARV044 EQU PSA+888 04412000 PSARV043 EQU PSA+884 04413000 PSARV042 EQU PSA+880 04414000 PSARV041 EQU PSA+876 04415000 PSARV040 EQU PSA+872 04416000 PSARV025 EQU PSA+868 04417000 PSADSSED EQU PSA+868 04418000 PSADSSPR EQU PSA+864 04419000 PSADSSFW EQU PSA+860 04420000 PSADSS14 EQU PSA+856 04421000 PSADSSPP EQU PSA+848 04422000 PSADSSRP EQU PSA+840 04423000 PSADSS05 EQU PSADSSF4 04424000 PSADSS10 EQU PSADSSF4 04425000 PSADSSVE EQU PSADSSF4 04426000 PSADSSDE EQU PSADSSF4 04427000 PSADSSC0 EQU PSADSSF4 04428000 PSADSSIE EQU PSADSSF4 04429000 PSADSS12 EQU PSADSSF4 04430000 PSADSSRC EQU PSADSSF4 04431000 PSARV057 EQU PSADSSF3 04432000 PSARV056 EQU PSADSSF3 04433000 PSARV055 EQU PSADSSF3 04434000 PSADSSMC EQU PSADSSF3 04435000 PSADSSRW EQU PSADSSF3 04436000 PSADSSNM EQU PSADSSF3 04437000 PSADSSES EQU PSADSSF3 04438000 PSADSSGP EQU PSADSSF3 04439000 PSADSSF2 EQU PSADSSFL+1 04440000 PSADSSPI EQU PSADSSF1 04441000 PSADSSOI EQU PSADSSF1 04442000 PSADSSSP EQU PSADSSF1 04443000 PSADSSTP EQU PSADSSF1 04444000 PSADSSDW EQU PSADSSF1 04445000 PSADSSDD EQU PSADSSF1 04446000 PSADSSDM EQU PSADSSF1 04447000 PSADSSMV EQU PSADSSF1 04448000 PSADSSTS EQU PSA+816 04449000 PSADSSWK EQU PSA+812 04450000 PSADSSR3 EQU PSA+808 04451000 PSADSSR2 EQU PSA+804 04452000 PSADSSRS EQU PSA+800 04453000 PSASTOR EQU PSA+796 04454000 PSACPUSA EQU PSA+794 04455000 PSAVSTAP EQU PSA+792 04456000 PSAWKVAP EQU PSA+788 04457000 PSAWKRAP EQU PSA+784 04458000 PSAMCHIC EQU PSA+783 04459000 PSARV061 EQU PSA+782 04460000 PSASYMSK EQU PSA+781 04461000 PSAMCHFL EQU PSA+780 04462000 PSACR0 EQU PSA+776 04463000 PSAPSWSV EQU PSA+768 04464000 PSALITA EQU PSA+764 04465000 PSACLHS EQU PSAHLHI 04466000 PSALKR15 EQU PSALKSA+60 04467000 PSALKR14 EQU PSALKSA+56 04468000 PSALKR13 EQU PSALKSA+52 04469000 PSALKR12 EQU PSALKSA+48 04470000 PSALKR11 EQU PSALKSA+44 04471000 PSALKR10 EQU PSALKSA+40 04472000 PSALKR9 EQU PSALKSA+36 04473000 PSALKR8 EQU PSALKSA+32 04474000 PSALKR7 EQU PSALKSA+28 04475000 PSALKR6 EQU PSALKSA+24 04476000 PSALKR5 EQU PSALKSA+20 04477000 PSALKR4 EQU PSALKSA+16 04478000 PSALKR3 EQU PSALKSA+12 04479000 PSALKR2 EQU PSALKSA+8 04480000 PSALKR1 EQU PSALKSA+4 04481000 PSALKR0 EQU PSALKSA 04482000 PSARV023 EQU PSACLHT+52 04483000 PSALOCAL EQU PSACLHT+48 04484000 PSACMSL EQU PSACLHT+44 04485000 PSAOPTL EQU PSACLHT+40 04486000 PSATPACL EQU PSACLHT+36 04487000 PSATPDNL EQU PSACLHT+32 04488000 PSATPNCL EQU PSACLHT+28 04489000 PSAIOSLL EQU PSACLHT+24 04490000 PSAIOSUL EQU PSACLHT+20 04491000 PSAIOSCL EQU PSACLHT+16 04492000 PSAIOSSL EQU PSACLHT+12 04493000 PSASALCL EQU PSACLHT+8 04494000 PSAASML EQU PSACLHT+4 04495000 PSADISPL EQU PSACLHT 04496000 PSASRSA EQU PSA+636 04497000 PSARV050 EQU PSA+634 04498000 PSADSSGO EQU PSA+633 04499000 PSARECUR EQU PSA+632 04500000 PSAHLHIS EQU PSA+628 04501000 PSAIPCSA EQU PSA+624 04502000 @NM00555 EQU PSA+621 04503000 PSAIPCDM EQU PSA+620 04504000 PSAIPCD EQU PSA+616 04505000 @NM00554 EQU PSA+613 04506000 PSAIPCRM EQU PSA+612 04507000 PSAIPCR EQU PSA+608 04508000 PSAMCHEX EQU PSA+600 04509000 PSAMPSW EQU PSA+592 04510000 PSAEXPS2 EQU PSA+584 04511000 PSAEXPS1 EQU PSA+576 04512000 PSAPIREG EQU PSA+572 04513000 PSARSREG EQU PSA+568 04514000 PSAGPREG EQU PSA+556 04515000 PSARV022 EQU PSASUP4 04516000 PSARV021 EQU PSASUP4 04517000 PSARV020 EQU PSASUP4 04518000 PSARV019 EQU PSASUP4 04519000 PSARV018 EQU PSASUP4 04520000 PSARV017 EQU PSASUP4 04521000 PSARV016 EQU PSASUP4 04522000 PSARV015 EQU PSASUP4 04523000 PSARV014 EQU PSASUP3 04524000 PSARV013 EQU PSASUP3 04525000 PSARV012 EQU PSASUP3 04526000 PSAESTA EQU PSASUP3 04527000 PSASPR EQU PSASUP3 04528000 PSAPSREG EQU PSASUP3 04529000 PSAPI2 EQU PSASUP3 04530000 PSAIOSUP EQU PSASUP3 04531000 PSALCR EQU PSASUP2 04532000 PSARTM EQU PSASUP2 04533000 PSAACR EQU PSASUP2 04534000 PSAIPCE2 EQU PSASUP2 04535000 PSAIPCES EQU PSASUP2 04536000 PSAIPCEC EQU PSASUP2 04537000 PSAGTF EQU PSASUP2 04538000 PSAIPCRI EQU PSASUP2 04539000 PSATYPE6 EQU PSASUP1 04540000 PSATCTL EQU PSASUP1 04541000 PSADISP EQU PSASUP1 04542000 PSALOCK EQU PSASUP1 04543000 PSAPI EQU PSASUP1 04544000 PSAEXT EQU PSASUP1 04545000 PSASVC EQU PSASUP1 04546000 PSAIO EQU PSASUP1 04547000 PSAANEW EQU PSA+544 04548000 PSATOLD EQU PSA+540 04549000 PSATNEW EQU PSA+536 04550000 PSALCCAR EQU PSA+532 04551000 PSALCCAV EQU PSA+528 04552000 PSAPCCAR EQU PSA+524 04553000 PSAPCCAV EQU PSA+520 04554000 PSACPULA EQU PSA+518 04555000 PSACPUPA EQU PSA+516 04556000 PSAPSA EQU PSA+512 04557000 FLCHDEND EQU PSA+512 04558000 FLCCRSAV EQU FLCMCLA+280 04559000 FLCGRSAV EQU FLCMCLA+216 04560000 FLCFPSAV EQU FLCMCLA+184 04561000 FLCFLA EQU FLCMCLA+88 04562000 FLCRGNCD EQU FLCMCLA+84 04563000 FLCFSAA EQU FLCFSA+1 04564000 @NM00553 EQU FLCFSA 04565000 @NM00552 EQU FLCMCLA+72 04566000 FLCMCIC EQU FLCMCLA+64 04567000 @NM00551 EQU FLCMCLA+20 04568000 FLCIOAA EQU FLCIOA+1 04569000 @NM00550 EQU FLCIOA 04570000 @NM00549 EQU FLCMCLA+15 04571000 @NM00548 EQU FLCMCLA+14 04572000 @NM00547 EQU FLCMCLA+12 04573000 FLCLCL EQU FLCMCLA+8 04574000 FLCIOELA EQU FLCIOEL+1 04575000 @NM00546 EQU FLCIOEL 04576000 FLCCHNID EQU FLCMCLA 04577000 @NM00545 EQU PSA+160 04578000 FLCMTRCD EQU PSA+157 04579000 @NM00544 EQU PSA+156 04580000 FLCPERA EQU FLCPER+1 04581000 @NM00543 EQU FLCPER 04582000 @NM00542 EQU PSA+151 04583000 FLCPERCD EQU PSA+150 04584000 FLCMCNUM EQU PSA+149 04585000 @NM00541 EQU PSA+148 04586000 FLCTEAA EQU FLCTEA+1 04587000 @NM00540 EQU FLCTEA 04588000 PSAPIPC EQU PSAPICOD 04589000 PSAPIMC EQU PSAPICOD 04590000 PSAPIPER EQU PSAPICOD 04591000 PSARV049 EQU FLCPICOD 04592000 FLCPILCB EQU FLCPIILC 04593000 @NM00539 EQU FLCPIILC 04594000 @NM00538 EQU PSAEPPSW 04595000 FLCSVCN EQU PSAESPSW+2 04596000 FLCSILCB EQU FLCSVILC 04597000 @NM00537 EQU FLCSVILC 04598000 @NM00536 EQU PSAESPSW 04599000 FLCEICOD EQU PSAEEPSW+2 04600000 PSASPAD EQU PSAEEPSW 04601000 @NM00535 EQU PSA+128 04602000 FLCINPSW EQU PSA+120 04603000 FLCMNPSW EQU PSA+112 04604000 FLCPNPSW EQU PSA+104 04605000 FLCSNPSW EQU PSA+96 04606000 FLCENPSW EQU PSA+88 04607000 FLCTRACE EQU PSA+84 04608000 FLCTIMER EQU PSA+80 04609000 FLCCVT2 EQU PSA+76 04610000 FLCCAW EQU PSA+72 04611000 FLCCSW EQU PSA+64 04612000 FLCIOPSW EQU PSA+56 04613000 FLCMOPSW EQU PSA+48 04614000 FLCPOPSW EQU PSA+40 04615000 FLCSOPSW EQU PSA+32 04616000 FLCEOPSW EQU PSA+24 04617000 @NM00534 EQU FLCICCW2+4 04618000 FLCICCW1 EQU FLCROPSW 04619000 FLCIPPSW EQU FLCRNPSW 04620000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04621000 @RT00142 EQU FREERET 04622000 @RT00150 EQU FREERET 04623000 @RT00163 EQU FREERET 04624000 @RT00166 EQU FREERET 04625000 @RT00170 EQU FREERET 04626000 @RT00173 EQU FREERET 04627000 @RT00176 EQU FREERET 04628000 @RT00179 EQU FREERET 04629000 @RT00186 EQU FREERET 04630000 @RT00189 EQU FREERET 04631000 @RT00192 EQU FREERET 04632000 @RT00195 EQU FREERET 04633000 @RT00203 EQU FREERET 04634000 @RT00206 EQU FREERET 04635000 @RT00212 EQU FREERET 04636000 @RT00215 EQU FREERET 04637000 @RT00217 EQU LLEOUT 04638000 @RT00223 EQU FREERET 04639000 @RT00226 EQU LLEOUT 04640000 @RT00233 EQU FREERET 04641000 @RT00237 EQU FREERET 04642000 @RT00250 EQU FREERET 04643000 @RT00253 EQU FREERET 04644000 @RT00256 EQU FREERET 04645000 @RT00259 EQU FREERET 04646000 @RT00262 EQU FREERET 04647000 @RT00270 EQU FREERET 04648000 @RT00273 EQU FREERET 04649000 @RT00276 EQU FREERET 04650000 @RT00282 EQU FREERET 04651000 @RT00285 EQU FREERET 04652000 @RT00288 EQU FREERET 04653000 @RT00291 EQU FREERET 04654000 @RT00304 EQU FREERET 04655000 @RT00307 EQU LAST 04656000 @RT00311 EQU FREERET 04657000 @RT00315 EQU FREERET 04658000 @RT00323 EQU FREERET 04659000 @RT00326 EQU FREERET 04660000 @RT00329 EQU FREERET 04661000 @RT00332 EQU FREERET 04662000 @RT00338 EQU FREERET 04663000 @RT00343 EQU FREERET 04664000 @RF00293 EQU RBNEXT 04665000 @RF00319 EQU RBNEXT 04666000 @RF00334 EQU RBNEXT 04667000 @RT00351 EQU CDEOUT 04668000 @RT00355 EQU FREERET 04669000 @RT00363 EQU FREERET 04670000 @RT00366 EQU LEAVELLE 04671000 @RT00370 EQU FREERET 04672000 @RT00374 EQU FREERET 04673000 @RT00376 EQU TIOTOUT 04674000 @RT00381 EQU FREERET 04675000 @RT00389 EQU GETRB 04676000 @RF00392 EQU GETRB 04677000 @RT00410 EQU RBCHKLP 04678000 @RT00413 EQU RBCHKLP 04679000 @RT00415 EQU LLECDE 04680000 @RT00417 EQU LLECDE 04681000 @RF00421 EQU RBCHKLP 04682000 @RT00433 EQU FREERET 04683000 @RT00444 EQU FREERET 04684000 @RT00456 EQU FREERET 04685000 @RT00464 EQU FREERET 04686000 @RT00474 EQU FREERET 04687000 @RT00482 EQU FREERET 04688000 @RT00489 EQU FREERET 04689000 @RT00497 EQU GOODOUT 04690000 @RT00501 EQU FREERET 04691000 @RT00507 EQU FREERET 04692000 @RT00516 EQU FREERET 04693000 @RC00534 EQU @EL00002 04694000 @RC00541 EQU @EL00002 04695000 @PB00002 EQU @PB00003 04696000 @RT00558 EQU BADDRET 04697000 @RT00562 EQU BADDRET 04698000 @RT00568 EQU BADDRET 04699000 @RT00571 EQU BADDRET 04700000 @RT00583 EQU @EL00003 04701000 @RT00594 EQU BADDRET 04702000 @RT00598 EQU BADDRET 04703000 @RT00612 EQU BADDRET 04704000 @RT00617 EQU BADDRET 04705000 @RT00624 EQU BADDRET 04706000 @RT00636 EQU BADDRET 04707000 @RT00642 EQU BADDRET 04708000 @RT00652 EQU BADDRET 04709000 @RC00552 EQU @EL00003 04710000 @RF00587 EQU @EL00003 04711000 @RF00649 EQU @EL00003 04712000 @RF00573 EQU @RC00552 04713000 @RF00575 EQU @RC00552 04714000 @ENDDATA EQU * 04715000 END IEAVAD03,(C'PLS1847',0701,77049) 04716000