TITLE 'IEAVAD0C - SUPERVISOR TRACE *00001000 ' 00002000 IEAVAD0C CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVAD0C 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 * 0059 00015000 * /*****************************************************************/ 00016000 * /* */ 00017000 * /* INITIALIZATION ON ENTRY FIRST THE ADDRESSING REGISTERS ARE */ 00018000 * /* INITIALIZED, THEN A SAVE AREA FOR THE REGISTER SAVE AREA IS */ 00019000 * /* OBTAINED FROM LSQA. THE ADDRESS OF THE AREA IS RETURNED IN */ 00020000 * /* ABDGMA, AND THE ADDRESS OF THE GETMAIN PARAMETER LIST IS */ 00021000 * /* PASSED IN REGISTER 1. NEXT THE SAVE AREAS ARE CHAINED */ 00022000 * /* */ 00023000 * /*****************************************************************/ 00024000 * 0059 00025000 * ABDARPTR=PARMPTR; /* THE ABDAREA POINTER IS 0059 00026000 * INITIALIZED FROM THE VALUE IN 00027000 * REGISTER 1 */ 00028000 LR ABDARPTR,PARMPTR 0059 00029000 * PARMPTR=ADDR(ABDASIZE); /* REGISTER 1 IS SET TO POINT TO 00030000 * THE GETMAIN PARAMETER LIST */ 00031000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0060 00032000 * GENERATE; 0061 00033000 GETMAIN EC,LV=72, *00034000 SP=253, *00035000 A=ABDGMA(ABDARPTR), *00036000 MF=(E,(1)) 00037000 * IF RETCODE^=0 /* IF GETMAIN IS UNSUCCESSFUL */ 00038000 * THEN /* RETURN IMMEDIATELY. */ 00039000 LTR RETCODE,RETCODE 0062 00040000 BZ @RF00062 0062 00041000 * DO; 0063 00042000 * RETCODE=8; 0064 00043000 LA RETCODE,8 0064 00044000 * RETURN; /* BACK TO CALLER */ 00045000 @EL00001 DS 0H 0065 00046000 @EF00001 DS 0H 0065 00047000 @ER00001 L @14,12(,@13) 0065 00048000 LM @00,@12,20(@13) 0065 00049000 BR @14 0065 00050000 * END; /* OTHERWISE CONTINUE */ 00051000 * PARMPTR=ABDAAREA; /* USE PARMPTR AS TEMPORARY 0067 00052000 * POINTER TO SAVE AREA */ 00053000 @RF00062 L PARMPTR,ABDAAREA(,ABDARPTR) 0067 00054000 * NEXSAPTR=PARMPTR; /* INITIALIZE NEXT SAVE AREA 0068 00055000 * POINTER IN OLD SAVE AREA */ 00056000 ST PARMPTR,NEXSAPTR(,SAVEPTR) 0068 00057000 * PRESAPTR=SAVEPTR; /* INITIALIZE PREVIOUS SAVE AREA 00058000 * POINTER IN NEW AREA */ 00059000 ST SAVEPTR,PRESAPTR(,PARMPTR) 0069 00060000 * SAVEPTR=PARMPTR; /* SET SAVE REGISTER TO NEW SAVE 00061000 * AREA ADDRESS */ 00062000 LR SAVEPTR,PARMPTR 0070 00063000 * 0071 00064000 * /*****************************************************************/ 00065000 * /* */ 00066000 * /* THIS SECTION IS ENTERED TO PRODUCE THE SUPERVISOR TRACE, IF */ 00067000 * /* GTF IS NOT IN USE. A CHECK IS MADE TO DETERMINE IF THE */ 00068000 * /* MAINLINE OBTAINED A TRACE BUFFER. IF THERE WAS NO SPACE */ 00069000 * /* AVAILABLE FOR THE TRACE BUFFER, NO TRACE WAS SAVED TO BE */ 00070000 * /* PRINTED, SO A MESSAGE IS ISSUED AND THIS MODULE EXITS. IF */ 00071000 * /* THERE IS A BUFFER, IT IS PRINTED. ALL OF THE ENTRIES ARE */ 00072000 * /* FORMATTED AND PRINTED, BEGINNING WITH THE OLDEST ENTRY IN THE */ 00073000 * /* TABLE, THAT IS, THE ONE AFTER THE NEW CURRENT ENTRY. THE TRACE*/ 00074000 * /* ENDS AT THE OLD CURRENT TRACE ENTRY, THE ONE AT THE TIME THE */ 00075000 * /* DUMP WAS TAKEN. THE ENTRIES BETWEEN THE OLD CURRENT AND NEW */ 00076000 * /* CURRENT ENTRIES ARE CONSIDERED INVALID, THAT IS THEY OCCUR */ 00077000 * /* DURING THE TIME THE TRACE TABLE WAS BEING MOVED. BEFORE EACH */ 00078000 * /* ENTRY IS FORMATTED, IT IS CHECKED FOR THE BIT WHICH INDICATED */ 00079000 * /* THAT GTF HAD SUSPENDED THE TRACE. IF THE BIT IS ON IT MEANS */ 00080000 * /* THERE WAS A TIME PERIOD BETWEEN THE PREVIOUS ENTRY AND THE */ 00081000 * /* ENTRY BEING FORMATTED IN WHICH TRACE ENTRIES WERE BYPASSED BY */ 00082000 * /* GTF, ALTHOUGH THE NUMBER IS UNCERTAIN, AND MIGHT BE ZERO. A */ 00083000 * /* MESSAGE IS PRINTED TO INDICATE THAT THERE INDEED MIGHT BE */ 00084000 * /* TRACE ENTRIES WHICH MAY NOT EXIST DUE TO GTF SUSPENSION OF */ 00085000 * /* TRACE. */ 00086000 * /* */ 00087000 * /*****************************************************************/ 00088000 * 0071 00089000 * PARMPTR=ABDARPTR; /* RESTORE ADDR OF WORKAREA */ 00090000 LR PARMPTR,ABDARPTR 0071 00091000 * IF ABDTRBIT='0'B /* IF BUFFER WAS NOT OBTAINED */ 00092000 * THEN /* PRINT MESSAGE AND LEAVE */ 00093000 TM ABDTRBIT(ABDARPTR),B'00100000' 0072 00094000 BNZ @RF00072 0072 00095000 * DO; 0073 00096000 * ABDLINEA(1:24)=NOBUFMSG; /* SET UP MESSAGE */ 00097000 MVC ABDLINEA(24,ABDARPTR),NOBUFMSG 0074 00098000 * CALL IEAVAD11; /* OUTPUT MSG */ 00099000 L @15,@CV00118 0075 00100000 BALR @14,@15 0075 00101000 * END; 0076 00102000 * ELSE 0077 00103000 * DO; 0077 00104000 * 0077 00105000 B @RC00072 0077 00106000 @RF00072 DS 0H 0078 00107000 * /*************************************************************/ 00108000 * /* */ 00109000 * /* FORMAT AND OUTPUT UNFOLDED TRACE TABLE ENTRIES */ 00110000 * /* */ 00111000 * /*************************************************************/ 00112000 * 0078 00113000 * TRACESRT=ABDFP; /* START OF TRACE TABLE */ 00114000 L TRACESRT,ABDFP(,ABDARPTR) 0078 00115000 * TRACEND=ABDLP; /* END OF TRACE TABLE */ 00116000 L TRACEND,ABDLP(,ABDARPTR) 0079 00117000 * OLDCUR=ABDCP1; /* OLD POINTER TO CURRENT TRACE 00118000 * TABLE ENTRY */ 00119000 L OLDCUR,ABDCP1(,ABDARPTR) 0080 00120000 * NEWCUR=ABDCP; /* POINTER TO CURRENT AFTER TABLE 00121000 * WAS MOVED TO BUFFER */ 00122000 L NEWCUR,ABDCP(,ABDARPTR) 0081 00123000 * TOPRINT=TOPRINT+32; /* START WITH ONE AFTER CURRENT */ 00124000 LA TOPRINT,32(,TOPRINT) 0082 00125000 * ABDLINEA(1:12)=TRACEMSG; /* SET UP HEADING MESSAGE */ 00126000 MVC ABDLINEA(12,ABDARPTR),TRACEMSG 0083 00127000 * CALL IEAVAD11; /* OUTPUT THE HEADER */ 00128000 L @15,@CV00118 0084 00129000 BALR @14,@15 0084 00130000 * IF RETCODE^=0 /* IF ERRED */ 00131000 * THEN /* LEAVE WITH BAD CODE */ 00132000 LTR RETCODE,RETCODE 0085 00133000 BNZ @RT00085 0085 00134000 * GOTO FREEBUF; /* FREE BUFFER AND LEAVE */ 00135000 * ABDCC='0'; /* DOUBLE SPACE FIRST ENTRY */ 00136000 MVI ABDCC(ABDARPTR),C'0' 0087 00137000 *CHKEND: 0088 00138000 * IF TOPRINT>TRACEND /* IF ABOVE TABLE */ 00139000 * THEN /* START FROM BOTTOM */ 00140000 CHKEND CR TOPRINT,TRACEND 0088 00141000 BNH @RF00088 0088 00142000 * TOPRINT=TRACESRT; 0089 00143000 LR TOPRINT,TRACESRT 0089 00144000 * IF TOPRINT=OLDCUR /* IF THIS IS LAST ENTRY TO */ 00145000 * THEN /* PRINT */ 00146000 @RF00088 CR TOPRINT,OLDCUR 0090 00147000 BNE @RF00090 0090 00148000 * OLDCUR=0; /* SET AN INDICATOR FOR RETURN */ 00149000 SLR OLDCUR,OLDCUR 0091 00150000 * IF SUSPEND='1'B /* IF GTF SUSPENDED TRACE */ 00151000 * THEN /* PRINT A MESSAGE */ 00152000 @RF00090 TM SUSPEND(TOPRINT),B'10000000' 0092 00153000 BNO @RF00092 0092 00154000 * DO; 0093 00155000 * ABDLINEA(1:39)=SUSMSG; /* SET UP MESSAGE */ 00156000 MVC ABDLINEA(39,ABDARPTR),SUSMSG 0094 00157000 * CALL IEAVAD11; /* PRINT MESSAGE */ 00158000 L @15,@CV00118 0095 00159000 BALR @14,@15 0095 00160000 * IF RETCODE^=0 /* IF ERRED */ 00161000 * THEN /* LEAVE WITH BAD CODE */ 00162000 LTR RETCODE,RETCODE 0096 00163000 BNZ @RT00096 0096 00164000 * GOTO FREEBUF; /* FREE BUFFER AND LEAVE */ 00165000 * END; 0098 00166000 * 0099 00167000 * /*************************************************************/ 00168000 * /* */ 00169000 * /* THE FOLLOWING CODE FORMATS EACH TRACE ENTRY INTO THE */ 00170000 * /* OUTPUT LINE IN ABDAREA, IN A GENERAL FORMAT WHICH CAN BE */ 00171000 * /* MODIFIED BY CHANGING LABELS TO PRODUCE THE EIGHT TYPES OF */ 00172000 * /* TRACE ENTRY DISPLAY. */ 00173000 * /* */ 00174000 * /*************************************************************/ 00175000 * 0099 00176000 * ABDBPTR=TOPRINT; /* SET UP FORMAT PARAMETERS */ 00177000 @RF00092 ST TOPRINT,ABDBPTR(,ABDARPTR) 0099 00178000 * ABDLLINE=ADDR(TTLINE); /* SET UP LAYOUT LINE */ 00179000 LA @14,TTLINE 0100 00180000 ST @14,ABDLLINE(,ABDARPTR) 0100 00181000 * CALL IEAVAD31; /* FORMAT FIRST THIRD OF LINE */ 00182000 L @15,@CV00119 0101 00183000 BALR @14,@15 0101 00184000 * IF RETCODE^=0 /* IF ERRED */ 00185000 * THEN /* LEAVE WITH BAD CODE */ 00186000 LTR RETCODE,RETCODE 0102 00187000 BNZ @RT00102 0102 00188000 * GOTO FREEBUF; /* FREE BUFFER AND LEAVE */ 00189000 * CALL IEAVAD31; /* FORMAT SECOND THIRD OF LINE */ 00190000 L @15,@CV00119 0104 00191000 BALR @14,@15 0104 00192000 * IF RETCODE^=0 /* IF ERRED */ 00193000 * THEN /* LEAVE WITH BAD CODE */ 00194000 LTR RETCODE,RETCODE 0105 00195000 BNZ @RT00105 0105 00196000 * GOTO FREEBUF; /* FREE BUFFER AND LEAVE */ 00197000 * CALL IEAVAD31; /* FORMAT LAST THIRD OF LINE */ 00198000 L @15,@CV00119 0107 00199000 BALR @14,@15 0107 00200000 * IF RETCODE^=0 /* IF ERRED */ 00201000 * THEN /* LEAVE WITH BAD CODE */ 00202000 LTR RETCODE,RETCODE 0108 00203000 BNZ @RT00108 0108 00204000 * GOTO FREEBUF; /* FREE BUFFER AND LEAVE */ 00205000 * 0110 00206000 * /*************************************************************/ 00207000 * /* */ 00208000 * /* THE FOLLOWING CODE INSERTS THE PROPER LABELS TO CHANGE THE*/ 00209000 * /* GENERAL FORMATTED LINE INTO THE SPECIFIC TRACE TABLE */ 00210000 * /* ENTRY. IT IS DEPENDANT ON THE BIT PATTERNS FOR EACH TYPE */ 00211000 * /* OF ENTRY. */ 00212000 * /* */ 00213000 * /*************************************************************/ 00214000 * 0110 00215000 * IF ISDSP='111'B /* IS DISPATHCHER ENTRY */ 00216000 * THEN /* DO DISPATCHER LABELS */ 00217000 TM ISDSP(TOPRINT),B'01110000' 0110 00218000 BNO @RF00110 0110 00219000 * DO; 0111 00220000 * IDPTR=ADDR(DSPMSG); /* SET UP DSP LABEL */ 00221000 LA IDPTR,DSPMSG 0112 00222000 * ABDLINEA(7:9)=NEWMSG; /* NEW PSW INSTEAD OF OLD */ 00223000 MVC ABDLINEA+6(3,ABDARPTR),NEWMSG 0113 00224000 * GOTO OUTPUTUM; /* OUTPUT THE ENTRY */ 00225000 B OUTPUTUM 0114 00226000 * END; 0115 00227000 * IF ISSSR='11'B /* IF SUSPENDED SRB @Y02705*/ 00228000 * THEN /* REDISPATCH ENTRY @Y02705*/ 00229000 @RF00110 TM ISSSR(TOPRINT),B'01100000' 0116 00230000 BNO @RF00116 0116 00231000 * DO; /* SET UP SSR LABELS @Y02705*/ 00232000 * IDPTR=ADDR(SSRMSG); /* GET LABEL ADDRESS @Y02705*/ 00233000 LA IDPTR,SSRMSG 0118 00234000 * ABDLINEA(38:43)=ASIDWD; /* SET UP ASID LBL @Y02705*/ 00235000 MVC ABDLINEA+37(6,ABDARPTR),ASIDWD 0119 00236000 * GOTO OUTPUTUM; /* PRINT THE ENTRY @Y02705*/ 00237000 B OUTPUTUM 0120 00238000 * END; /* @Y02705*/ 00239000 * IF ISIO='1'B&ISONE='1'B /* IF IO ENTRY @Y02705*/ 00240000 * THEN /* DO IO LABELS @Y02705*/ 00241000 @RF00116 TM ISIO(TOPRINT),B'01010000' 0122 00242000 BNO @RF00122 0122 00243000 * DO; /* @Y02705*/ 00244000 * IDPTR=ADDR(IOMSG); /* SET UP IO LABEL @Y02705*/ 00245000 LA IDPTR,IOMSG 0124 00246000 * ABDLINEA(38:43)=SIOMSG2;/* MOVE IN CSW LBL @Y02705*/ 00247000 MVC ABDLINEA+37(6,ABDARPTR),SIOMSG2 0125 00248000 * ABDLINEA(65:67)=RESWD; /* OVRLY R1 WITH RES @Y02705*/ 00249000 MVC ABDLINEA+64(3,ABDARPTR),RESWD 0126 00250000 * GOTO OUTPUTUM; /* PRINT THE ENTRY @Y02705*/ 00251000 B OUTPUTUM 0127 00252000 * END; /* @Y02705*/ 00253000 * IF ISISD='1'B /* IF INITIAL SRB DISP @Y02705*/ 00254000 * THEN /* ENTRY @Y02705*/ 00255000 @RF00122 TM ISISD(TOPRINT),B'01000000' 0129 00256000 BNO @RF00129 0129 00257000 * DO; /* SET UP ISD LABEL @Y02705*/ 00258000 * IDPTR=ADDR(ISDMSG); /* GET LABEL ADDRESS @Y02705*/ 00259000 LA IDPTR,ISDMSG 0131 00260000 * ABDLINEA(38:43)=ASIDWD; /* GET ASID LBL @YM06193*/ 00261000 MVC ABDLINEA+37(6,ABDARPTR),ASIDWD 0132 00262000 * GOTO OUTPUTUM; /* PRINT THE ENTRY @Y02705*/ 00263000 B OUTPUTUM 0133 00264000 * END; /* @Y02705*/ 00265000 * IF ISPGM='1'B&ISONE='1'B /* IF PGM ENTRY @Y02705*/ 00266000 * THEN /* DO PGM LABELS */ 00267000 @RF00129 TM ISPGM(TOPRINT),B'00110000' 0135 00268000 BNO @RF00135 0135 00269000 * DO; 0136 00270000 * IDPTR=ADDR(PGMMSG); /* SET UP PGM LABEL */ 00271000 LA IDPTR,PGMMSG 0137 00272000 * GOTO OUTPUTUM; /* PRINT THE ENTRY */ 00273000 B OUTPUTUM 0138 00274000 * END; 0139 00275000 * IF ISSVC='1'B /* IF SVC ENTRY */ 00276000 * THEN /* SET UP SVC LABELS */ 00277000 @RF00135 TM ISSVC(TOPRINT),B'00100000' 0140 00278000 BNO @RF00140 0140 00279000 * DO; 0141 00280000 * IDPTR=ADDR(SVCMSG); /* SET UP SVC LABEL */ 00281000 LA IDPTR,SVCMSG 0142 00282000 * GOTO OUTPUTUM; /* PRINT THE ENTRY */ 00283000 B OUTPUTUM 0143 00284000 * END; 0144 00285000 * IF ISEXT='1'B /* IF EXTERNAL ENTRY */ 00286000 * THEN /* SET EXTERNAL LABELS */ 00287000 @RF00140 TM ISEXT(TOPRINT),B'00010000' 0145 00288000 BNO @RF00145 0145 00289000 * DO; 0146 00290000 * IDPTR=ADDR(EXTMSG); /* SET UP EXTERNAL LABEL */ 00291000 LA IDPTR,EXTMSG 0147 00292000 * END; /* PRINT THE ENTRY */ 00293000 * ELSE /* SET UP SIO LABEL */ 00294000 * DO; 0149 00295000 B @RC00145 0149 00296000 @RF00145 DS 0H 0150 00297000 * ABDLINEA(7:16)=SIOMSG1; /* SET UP FIRST SIO MSG */ 00298000 MVC ABDLINEA+6(10,ABDARPTR),SIOMSG1 0150 00299000 * ABDLINEA(38:43)=SIOMSG2;/* SECOND LABEL CHANGE */ 00300000 MVC ABDLINEA+37(6,ABDARPTR),SIOMSG2 0151 00301000 * ABDLINEA(65:67)=ISBWD; /* OVERLAY R1 WITH ISB */ 00302000 MVC ABDLINEA+64(3,ABDARPTR),ISBWD 0152 00303000 * IDPTR=ADDR(SIOMSG); /* SET UP SIO MSG */ 00304000 LA IDPTR,SIOMSG 0153 00305000 * END; /* PRINT THE ENTRY */ 00306000 *OUTPUTUM: 0155 00307000 * ABDLINEA(2:4)=TRACEID; /* MOVE IN PROPER LABEL */ 00308000 @RC00145 DS 0H 0155 00309000 OUTPUTUM MVC ABDLINEA+1(3,ABDARPTR),TRACEID(IDPTR) 0155 00310000 * CALL IEAVAD11; /* OUTPUT THE ENTRY */ 00311000 L @15,@CV00118 0156 00312000 BALR @14,@15 0156 00313000 * IF RETCODE^=0 /* IF ERRED */ 00314000 * THEN /* LEAVE WITH BAD CODE */ 00315000 SLR @14,@14 0157 00316000 CR RETCODE,@14 0157 00317000 BNE @RT00157 0157 00318000 * GOTO FREEBUF; /* FREE BUFFER AND LEAVE */ 00319000 * IF OLDCUR=0 /* IF LAST ENTRY TO PRINT */ 00320000 * THEN /* LEAVE CODE=0 */ 00321000 CR OLDCUR,@14 0159 00322000 BNE @RF00159 0159 00323000 * DO; 0160 00324000 * RETCODE=0; /* SET RETURN CODE TO ZERO */ 00325000 * 0161 00326000 SLR RETCODE,RETCODE 0161 00327000 * /*********************************************************/ 00328000 * /* */ 00329000 * /* THE FOLLOWING AREA IS ENTERED AT END OF TRACE FORMAT */ 00330000 * /* OR IF AN ERROR OCCURED FORMATTING TRACE TABLE @G33SPHW*/ 00331000 * /* */ 00332000 * /*********************************************************/ 00333000 * 0162 00334000 *FREEBUF: /* FREE TRACE BUFFER */ 00335000 * SAVERET=RETCODE; /* SAVE RETURN CODE OVER FREE */ 00336000 FREEBUF LR SAVERET,RETCODE 0162 00337000 * END; 0163 00338000 * ELSE /* CONTINUE WITH NEXT ENTRY */ 00339000 * DO; 0164 00340000 B @RC00159 0164 00341000 @RF00159 DS 0H 0165 00342000 * TOPRINT=TOPRINT+32; /* POINT TO NEXT ENTRY */ 00343000 LA TOPRINT,32(,TOPRINT) 0165 00344000 * GOTO CHKEND; /* CONTINUE LOOP */ 00345000 B CHKEND 0166 00346000 * END; 0167 00347000 * END; 0168 00348000 @RC00159 DS 0H 0169 00349000 * 0169 00350000 * /*****************************************************************/ 00351000 * /* */ 00352000 * /* FINAL PROCESSING CONSISTS OF UNCHAINING THE SAVE AREA, FREEING*/ 00353000 * /* IT, SETTING THE RETURN CODE TO THE VALUE SAVED, AND RETURNING */ 00354000 * /* TO THE MAINLINE OF ABDUMP, AFTER THE REGISTERS ARE RESTORED. */ 00355000 * /* */ 00356000 * /*****************************************************************/ 00357000 * 0169 00358000 *FREERET: 0169 00359000 * PARMPTR=ADDR(ABDASIZE); /* SET UP FREEMAIN LIST REG */ 00360000 @RC00072 DS 0H 0169 00361000 FREERET LA PARMPTR,ABDASIZE(,ABDARPTR) 0169 00362000 * ABDAAREA=SAVEPTR; /* SET UP ADDRESS TO FREE */ 00363000 ST SAVEPTR,ABDAAREA(,ABDARPTR) 0170 00364000 * SAVEPTR=SAVEPTR->PRESAPTR; /* SET UP PREVIOUS SAVE AREA */ 00365000 L SAVEPTR,PRESAPTR(,SAVEPTR) 0171 00366000 * NEXSAPTR=0; /* CLEAR POINTER TO AREA TO BE 0172 00367000 * FREED */ 00368000 SLR @14,@14 0172 00369000 ST @14,NEXSAPTR(,SAVEPTR) 0172 00370000 * GENERATE; 0173 00371000 FREEMAIN E,LV=72, *00372000 SP=253, *00373000 A=ABDGMA(ABDARPTR), *00374000 MF=(E,(1)) 00375000 * RETCODE=SAVERET; /* PASS RETURN CODE TO MAIN */ 00376000 LR RETCODE,SAVERET 0174 00377000 * DCL 0175 00378000 * PATCHLOC FIXED(31) STATIC; 0175 00379000 * GEN DATA DEFS(PATCHLOC); 0176 00380000 * DECLARE /* COMMON VARIABLES */ 00381000 * I256C CHAR(256) BASED, 0177 00382000 * I031F FIXED(31) BASED, 0177 00383000 * I031P PTR(31) BASED, 0177 00384000 * I015F FIXED(15) BASED, 0177 00385000 * I015P PTR(15) BASED, 0177 00386000 * I008P PTR(8) BASED, 0177 00387000 * I001C CHAR(1) BASED; /* @Y02705*/ 00388000 * END IEAVAD0C 0178 00389000 * 0178 00390000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00391000 */*%INCLUDE SYSLIB (IHAABDA ) */ 00392000 */*%INCLUDE SYSLIB (CVT ) */ 00393000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00394000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00395000 */*%INCLUDE SYSLIB (IEAPXNIP) */ 00396000 * 0178 00397000 * ; 0178 00398000 B @EL00001 0178 00399000 @DATA DS 0H 00400000 @DATD DSECT 00401000 DS 0F 00402000 IEAVAD0C CSECT 00403000 DS 0F 00404000 @DATD DSECT 00405000 DS 0D 00406000 IEAVAD0C CSECT 00407000 DS 0F 00408000 @SIZDATD DC AL1(0) 00409000 DC AL3(@ENDDATD-@DATD) 00410000 @CV00118 DC V(IEAVAD11) 00411000 @CV00119 DC V(IEAVAD31) 00412000 DS 0D 00413000 DSPMSG DC CL3'DSP' 00414000 EXTMSG DC CL3'EXT' 00415000 IOMSG DC CL3'I/O' 00416000 PGMMSG DC CL3'PGM' 00417000 SVCMSG DC CL3'SVC' 00418000 SIOMSG DC CL3'SIO' 00419000 ISDMSG DC CL3'ISD' 00420000 SSRMSG DC CL3'SSR' 00421000 RESWD DC CL3'RES' 00422000 ISBWD DC CL3'ISB' 00423000 NEWMSG DC CL3'NEW' 00424000 SIOMSG1 DC CL10'CC/DEV/CAW' 00425000 SIOMSG2 DC CL6'CSW ' 00426000 ASIDWD DC CL6'ASD/R0' 00427000 NOBUFMSG DS CL24 00428000 ORG NOBUFMSG 00429000 @NM00002 DC CL12'-NO CORE FOR' 00430000 TRACEMSG DC CL12'-TRACE TABLE' 00431000 ORG NOBUFMSG+24 00432000 SUSMSG DC CL39'-SUPERVISOR TRACE TEMPORARILY SUSPENDED' 00433000 TTLINE DS CL48 00434000 ORG TTLINE 00435000 @NM00003 DC X'056304' 00436000 @NM00004 DC CL7'OLD PSW' 00437000 @NM00005 DC X'FF' 00438000 @NM00006 DC X'180340' 00439000 @NM00007 DC CL1' ' 00440000 @NM00008 DC X'5341' 00441000 @NM00009 DC CL6'R15/R0' 00442000 @NM00010 DC X'FF' 00443000 @NM00011 DC X'330340' 00444000 @NM00012 DC CL1' ' 00445000 @NM00013 DC X'1342' 00446000 @NM00014 DC CL2'R1' 00447000 @NM00015 DC X'2341' 00448000 @NM00016 DC CL3'IDS' 00449000 @NM00017 DC X'2341' 00450000 @NM00018 DC CL3'TCB' 00451000 @NM00019 DC X'2341' 00452000 @NM00020 DC CL3'TME' 00453000 @NM00021 DC X'FF' 00454000 ORG TTLINE+48 00455000 IEAVAD0C CSECT 00456000 DS 0H 00457000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 00458000 @DATD DSECT 00459000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00460000 @ENDDATD EQU * 00461000 IEAVAD0C CSECT 00462000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00463000 @01 EQU 01 00464000 @02 EQU 02 00465000 @03 EQU 03 00466000 @04 EQU 04 00467000 @05 EQU 05 00468000 @06 EQU 06 00469000 @07 EQU 07 00470000 @08 EQU 08 00471000 @09 EQU 09 00472000 @10 EQU 10 00473000 @11 EQU 11 00474000 @12 EQU 12 00475000 @13 EQU 13 00476000 @14 EQU 14 00477000 @15 EQU 15 00478000 PARMPTR EQU @01 00479000 ABDARPTR EQU @02 00480000 NEWCUR EQU @03 00481000 TOPRINT EQU @03 00482000 IDPTR EQU @04 00483000 CVTPTR EQU @04 00484000 OLDCUR EQU @05 00485000 TCBPTR EQU @06 00486000 TRACEND EQU @06 00487000 TRACENDA EQU @06 00488000 TRACESRT EQU @07 00489000 SAVERET EQU @08 00490000 AUTOPTR EQU @12 00491000 SAVEPTR EQU @13 00492000 RETCODE EQU @15 00493000 ENTRYPTR EQU @15 00494000 ENTRYREG EQU @00 00495000 RETERN EQU @14 00496000 PSA EQU 0 00497000 FLCRNPSW EQU PSA 00498000 FLCROPSW EQU PSA+8 00499000 FLCICCW2 EQU PSA+16 00500000 PSAEEPSW EQU PSA+132 00501000 PSAESPSW EQU PSA+136 00502000 FLCSVILC EQU PSAESPSW+1 00503000 PSAEPPSW EQU PSA+140 00504000 FLCPIILC EQU PSAEPPSW+1 00505000 FLCPICOD EQU PSAEPPSW+2 00506000 PSAPICOD EQU FLCPICOD+1 00507000 FLCTEA EQU PSAEPPSW+4 00508000 FLCPER EQU PSA+152 00509000 FLCMCLA EQU PSA+168 00510000 FLCIOEL EQU FLCMCLA+4 00511000 FLCIOA EQU FLCMCLA+16 00512000 FLCFSA EQU FLCMCLA+80 00513000 PSASUPER EQU PSA+552 00514000 PSASUP1 EQU PSASUPER 00515000 PSASUP2 EQU PSASUPER+1 00516000 PSASUP3 EQU PSASUPER+2 00517000 PSASUP4 EQU PSASUPER+3 00518000 PSACLHT EQU PSA+640 00519000 PSALKSA EQU PSA+696 00520000 PSAHLHI EQU PSA+760 00521000 PSADSSFL EQU PSA+836 00522000 PSADSSF1 EQU PSADSSFL 00523000 PSADSSF3 EQU PSADSSFL+2 00524000 PSADSSF4 EQU PSADSSFL+3 00525000 PSARSVT EQU PSA+896 00526000 NEXSAPTR EQU 8 00527000 PRESAPTR EQU 4 00528000 TRACEID EQU 0 00529000 TRTYPE EQU 2 00530000 ISDSP EQU TRTYPE 00531000 ISSSR EQU ISDSP 00532000 ISIO EQU ISSSR 00533000 ISISD EQU ISIO 00534000 ISSVC EQU ISSSR 00535000 ISPGM EQU ISSVC 00536000 ISEXT EQU ISDSP 00537000 ISONE EQU ISEXT 00538000 TRGTFBIT EQU 20 00539000 SUSPEND EQU TRGTFBIT 00540000 ABDAREA EQU 0 00541000 ABDPARMS EQU ABDAREA+12 00542000 ABDFLAG EQU ABDPARMS+1 00543000 APFSDATA EQU ABDPARMS+4 00544000 APFSDAT1 EQU ABDPARMS+5 00545000 APFPDATA EQU ABDPARMS+6 00546000 ABDPTRS EQU ABDAREA+84 00547000 ABDCP EQU ABDAREA+96 00548000 ABDFP EQU ABDAREA+100 00549000 ABDLP EQU ABDAREA+104 00550000 ABDCP1 EQU ABDAREA+108 00551000 ABDFLAG1 EQU ABDAREA+136 00552000 ABDFLAG2 EQU ABDAREA+137 00553000 ABDTRBIT EQU ABDFLAG2 00554000 ABDRES1 EQU ABDAREA+139 00555000 ABDBPTR EQU ABDAREA+244 00556000 ABDLLINE EQU ABDAREA+248 00557000 ABDUPRF EQU ABDAREA+265 00558000 ABDUPRFN EQU ABDAREA+266 00559000 ABDBLNKS EQU ABDAREA+267 00560000 ABDBUFFS EQU ABDAREA+308 00561000 ABDGMA EQU ABDAREA+316 00562000 ABDAAREA EQU ABDGMA 00563000 ABDASIZE EQU ABDGMA+4 00564000 ESPARM EQU ABDAREA+340 00565000 ESTAEFLG EQU ESPARM+28 00566000 ABDLINEA EQU ABDAREA+384 00567000 ABDCC EQU ABDLINEA 00568000 CVTMAP EQU 0 00569000 CVTDAR EQU CVTMAP+72 00570000 CVTFLGS1 EQU CVTDAR 00571000 CVTDCB EQU CVTMAP+116 00572000 CVTIERLC EQU CVTMAP+144 00573000 CVTOPTA EQU CVTMAP+182 00574000 CVTOPTB EQU CVTMAP+183 00575000 CVTGTF EQU CVTMAP+236 00576000 CVTGTFST EQU CVTGTF 00577000 CVTGTFS EQU CVTGTFST 00578000 CVTSTATE EQU CVTGTFST 00579000 CVTTMODE EQU CVTGTFST 00580000 CVTFORM EQU CVTGTFST 00581000 CVTAQAVT EQU CVTMAP+240 00582000 CVTTCMFG EQU CVTAQAVT 00583000 CVTVOLM2 EQU CVTMAP+244 00584000 CVTTATA EQU CVTVOLM2 00585000 CVTTSKS EQU CVTTATA 00586000 CVTVOLF2 EQU CVTTSKS 00587000 CVTTAT EQU CVTTATA+1 00588000 CVTATER EQU CVTMAP+248 00589000 CVTEXT1 EQU CVTMAP+252 00590000 CVTPURG EQU CVTMAP+260 00591000 CVTQMSG EQU CVTMAP+268 00592000 CVTDMSR EQU CVTMAP+272 00593000 CVTRSV37 EQU CVTDMSR 00594000 CVTDMSRF EQU CVTRSV37 00595000 CVTERPV EQU CVTMAP+316 00596000 CVTINTLA EQU CVTMAP+320 00597000 CVTAPF EQU CVTMAP+324 00598000 CVTEXT2 EQU CVTMAP+328 00599000 CVTHJES EQU CVTMAP+332 00600000 CVTPGSIA EQU CVTMAP+348 00601000 CVTA1F1 EQU CVTMAP+356 00602000 CVTSYSK EQU CVTMAP+357 00603000 CVTVOLM1 EQU CVTMAP+380 00604000 CVTVOLF1 EQU CVTVOLM1 00605000 CVTXTNT1 EQU 0 00606000 CVTXTNT2 EQU 0 00607000 CVTDSSV EQU CVTXTNT2 00608000 CVTFLGBT EQU CVTXTNT2+5 00609000 CVTQID EQU CVTXTNT2+24 00610000 CVTRV400 EQU CVTXTNT2+52 00611000 CVTRV409 EQU CVTXTNT2+53 00612000 CVTATCVT EQU CVTXTNT2+64 00613000 CVTRV429 EQU CVTXTNT2+84 00614000 CVTRV438 EQU CVTXTNT2+85 00615000 CVTRV457 EQU CVTXTNT2+112 00616000 CVTRV466 EQU CVTXTNT2+113 00617000 CVTFIX EQU 0 00618000 CVTRELNO EQU CVTFIX+252 00619000 TCBFIX EQU 0 00620000 TCBFRS EQU TCBFIX 00621000 TCB EQU 0 00622000 TCBPIE EQU TCB+4 00623000 TCBPMASK EQU TCBPIE 00624000 TCBCMP EQU TCB+16 00625000 TCBCMPF EQU TCBCMP 00626000 TCBCPP EQU TCBCMPF 00627000 TCBSTCC EQU TCBCMPF 00628000 TCBCDBL EQU TCBCMPF 00629000 TCBCWTO EQU TCBCMPF 00630000 TCBCIND EQU TCBCMPF 00631000 TCBCMSG EQU TCBCMPF 00632000 TCBTRN EQU TCB+20 00633000 TCBABF EQU TCBTRN 00634000 TCBMSS EQU TCB+24 00635000 TCBPKF EQU TCB+28 00636000 TCBFLGS EQU TCB+29 00637000 TCBFLGS1 EQU TCBFLGS 00638000 TCBFLGS2 EQU TCBFLGS+1 00639000 TCBFLGS3 EQU TCBFLGS+2 00640000 TCBFLGS4 EQU TCBFLGS+3 00641000 TCBFLGS5 EQU TCBFLGS+4 00642000 TCBABWF EQU TCBFLGS5 00643000 TCBJPQ EQU TCB+44 00644000 TCBPURGE EQU TCBJPQ 00645000 TCBGRS EQU TCB+48 00646000 TCBFSA EQU TCB+112 00647000 TCBTME EQU TCB+120 00648000 TCBJSTCB EQU TCB+124 00649000 TCBTSFLG EQU TCB+148 00650000 TCBTSTSK EQU TCBTSFLG 00651000 TCBSTAB EQU TCB+160 00652000 TCBNSTAE EQU TCBSTAB 00653000 TCBTCT EQU TCB+164 00654000 TCBTCTGF EQU TCBTCT 00655000 TCBSCNDY EQU TCB+172 00656000 TCBNDSP EQU TCBSCNDY 00657000 TCBNDSP1 EQU TCBNDSP+1 00658000 TCBNDSP2 EQU TCBNDSP+2 00659000 TCBNDSP3 EQU TCBNDSP+3 00660000 TCBJSCB EQU TCB+180 00661000 TCBRECDE EQU TCBJSCB 00662000 TCBEXT1 EQU TCB+196 00663000 TCBBITS EQU TCB+200 00664000 TCBNDSP4 EQU TCBBITS 00665000 TCBNDSP5 EQU TCBBITS+1 00666000 TCBFLGS6 EQU TCBBITS+2 00667000 TCBFLGS7 EQU TCBBITS+3 00668000 TCBDAR EQU TCB+204 00669000 TCBDARC EQU TCBDAR 00670000 TCBEXT2 EQU TCB+208 00671000 TCBXSCT EQU TCB+240 00672000 TCBXSCT1 EQU TCBXSCT 00673000 TCBFOE EQU TCB+244 00674000 TCBESTAE EQU TCB+264 00675000 TCBESTRM EQU TCBESTAE+1 00676000 TCBFBYT1 EQU TCB+276 00677000 TCBFBYT2 EQU TCB+277 00678000 TCBRV124 EQU TCB+278 00679000 TCBRV133 EQU TCB+279 00680000 TCBXTNT2 EQU 0 00681000 TCBGTF EQU TCBXTNT2 00682000 TCBTFLG EQU TCBGTF 00683000 TCBRV146 EQU TCBXTNT2+28 00684000 TCBRV155 EQU TCBXTNT2+29 00685000 TCBRV164 EQU TCBXTNT2+30 00686000 TCBRV173 EQU TCBXTNT2+31 00687000 TRHDR EQU 0 00688000 TRSIZE EQU TRHDR+12 00689000 IPLDATA EQU 0 00690000 GENLIST EQU 0 00691000 I001C EQU 0 00692000 I008P EQU 0 00693000 I015F EQU 0 00694000 I015P EQU 0 00695000 I031F EQU 0 00696000 I031P EQU 0 00697000 I256C EQU 0 00698000 CVTS01 EQU CVTPGSIA 00699000 CVTLPDIA EQU CVTS01+12 00700000 CVTDIRST EQU CVTLPDIA 00701000 CVTSLIDA EQU CVTS01+24 00702000 CVTCTLFG EQU CVTS01+50 00703000 CVTRV210 EQU CVTS01+424 00704000 CVTRV219 EQU CVTS01+425 00705000 CVTRV228 EQU CVTS01+426 00706000 CVTRV237 EQU CVTS01+427 00707000 CVTMFRTR EQU CVTS01+452 00708000 CVTRV262 EQU CVTS01+468 00709000 CVTRV271 EQU CVTS01+469 00710000 CVTRV280 EQU CVTS01+470 00711000 CVTRV289 EQU CVTS01+471 00712000 CVTGSDA EQU CVTS01+600 00713000 PSARSVTE EQU PSARSVT 00714000 FLC EQU PSA 00715000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00716000 PSARSAV EQU PSARSVTE+60 00717000 PSARSTK EQU PSARSVTE+56 00718000 PSAESAV3 EQU PSARSVTE+52 00719000 PSAESTK3 EQU PSARSVTE+48 00720000 PSAESAV2 EQU PSARSVTE+44 00721000 PSAESTK2 EQU PSARSVTE+40 00722000 PSAESAV1 EQU PSARSVTE+36 00723000 PSAESTK1 EQU PSARSVTE+32 00724000 PSAPSAV EQU PSARSVTE+28 00725000 PSAPSTK EQU PSARSVTE+24 00726000 PSAMSAV EQU PSARSVTE+20 00727000 PSAMSTK EQU PSARSVTE+16 00728000 PSASSAV EQU PSARSVTE+12 00729000 PSASSTK EQU PSARSVTE+8 00730000 PSANSTK EQU PSARSVTE+4 00731000 PSACSTK EQU PSARSVTE 00732000 CVTRV628 EQU CVTS01+728 00733000 CVTRV627 EQU CVTS01+724 00734000 CVTRV626 EQU CVTS01+720 00735000 CVTRV625 EQU CVTS01+716 00736000 CVTRV624 EQU CVTS01+712 00737000 CVTRV623 EQU CVTS01+708 00738000 CVTRV622 EQU CVTS01+704 00739000 CVTRV621 EQU CVTS01+700 00740000 CVTIHASU EQU CVTS01+696 00741000 CVTSUSP EQU CVTS01+692 00742000 CVTT6SVC EQU CVTS01+688 00743000 CVTCDAL EQU CVTS01+684 00744000 CVTTCTL EQU CVTS01+680 00745000 CVTRSUME EQU CVTS01+676 00746000 CVTJTERM EQU CVTS01+672 00747000 CVTASMRM EQU CVTS01+668 00748000 CVTTCASP EQU CVTS01+664 00749000 CVT0PT03 EQU CVTS01+660 00750000 CVT0PT0E EQU CVTS01+656 00751000 CVTRV609 EQU CVTS01+652 00752000 CVTCGK EQU CVTS01+648 00753000 CVTRAC EQU CVTS01+644 00754000 CVTRV606 EQU CVTS01+640 00755000 CVTRV605 EQU CVTS01+636 00756000 CVTRV604 EQU CVTS01+632 00757000 CVTEFF02 EQU CVTS01+628 00758000 CVTCBBR EQU CVTS01+624 00759000 CVTSSCR EQU CVTS01+620 00760000 CVTEVENT EQU CVTS01+616 00761000 CVTCRCA EQU CVTS01+612 00762000 CVTTPIO EQU CVTS01+608 00763000 CVTADV EQU CVTS01+604 00764000 CVTGSDAB EQU CVTGSDA 00765000 CVTQV3 EQU CVTS01+596 00766000 CVTQV2 EQU CVTS01+592 00767000 CVTQV1 EQU CVTS01+588 00768000 CVTRPT EQU CVTS01+584 00769000 CVTSSRB EQU CVTS01+580 00770000 CVTCSDRL EQU CVTS01+576 00771000 CVTEXP1 EQU CVTS01+572 00772000 CVTRMPMT EQU CVTS01+568 00773000 CVTRMPTT EQU CVTS01+564 00774000 CVTVPSA EQU CVTS01+560 00775000 CVTVSTOP EQU CVTS01+556 00776000 CVTGTFR8 EQU CVTS01+552 00777000 CVTQUIT EQU CVTS01+548 00778000 CVTVACR EQU CVTS01+544 00779000 CVTWTCB EQU CVTS01+540 00780000 CVTSTPRS EQU CVTS01+536 00781000 CVT0PT02 EQU CVTS01+532 00782000 CVTDARCM EQU CVTS01+528 00783000 CVTIRECM EQU CVTS01+524 00784000 CVTJRECM EQU CVTS01+520 00785000 CVTVEMS0 EQU CVTS01+516 00786000 CVTSPFRR EQU CVTS01+512 00787000 CVTRLSTG EQU CVTS01+508 00788000 CVT0TC0A EQU CVTS01+504 00789000 CVTGMBR EQU CVTS01+500 00790000 CVTLFRM EQU CVTS01+496 00791000 CVTRMBR EQU CVTS01+492 00792000 CVTVIOP EQU CVTS01+488 00793000 CVTRV307 EQU CVTS01+486 00794000 CVTRV306 EQU CVTS01+484 00795000 CVTRV305 EQU CVTS01+482 00796000 CVTRV304 EQU CVTS01+480 00797000 CVTRV303 EQU CVTS01+478 00798000 CVTRV302 EQU CVTS01+476 00799000 CVTTRCA EQU CVTS01+472 00800000 CVTRV297 EQU CVTRV289 00801000 CVTRV296 EQU CVTRV289 00802000 CVTRV295 EQU CVTRV289 00803000 CVTRV294 EQU CVTRV289 00804000 CVTRV293 EQU CVTRV289 00805000 CVTRV292 EQU CVTRV289 00806000 CVTRV291 EQU CVTRV289 00807000 CVTRV290 EQU CVTRV289 00808000 CVTRV288 EQU CVTRV280 00809000 CVTRV287 EQU CVTRV280 00810000 CVTRV286 EQU CVTRV280 00811000 CVTRV285 EQU CVTRV280 00812000 CVTRV284 EQU CVTRV280 00813000 CVTRV283 EQU CVTRV280 00814000 CVTRV282 EQU CVTRV280 00815000 CVTRV281 EQU CVTRV280 00816000 CVTRV279 EQU CVTRV271 00817000 CVTRV278 EQU CVTRV271 00818000 CVTRV277 EQU CVTRV271 00819000 CVTRV276 EQU CVTRV271 00820000 CVTRV275 EQU CVTRV271 00821000 CVTRV274 EQU CVTRV271 00822000 CVTRV273 EQU CVTRV271 00823000 CVTRV272 EQU CVTRV271 00824000 CVTRV270 EQU CVTRV262 00825000 CVTRV269 EQU CVTRV262 00826000 CVTRV268 EQU CVTRV262 00827000 CVTRV267 EQU CVTRV262 00828000 CVTRV266 EQU CVTRV262 00829000 CVTRV265 EQU CVTRV262 00830000 CVTRV264 EQU CVTRV262 00831000 CVTRV263 EQU CVTRV262 00832000 CVTVFP EQU CVTS01+464 00833000 CVTVSI EQU CVTS01+460 00834000 CVTVPSIB EQU CVTS01+456 00835000 CVTMFACT EQU CVTMFRTR 00836000 CVTMFCTL EQU CVTS01+448 00837000 CVTPVBP EQU CVTS01+444 00838000 CVTPWI EQU CVTS01+440 00839000 CVTRV254 EQU CVTS01+438 00840000 CVTRV253 EQU CVTS01+436 00841000 CVTRV252 EQU CVTS01+434 00842000 CVTRV251 EQU CVTS01+433 00843000 CVTRV250 EQU CVTS01+432 00844000 CVTRV249 EQU CVTS01+431 00845000 CVTRV248 EQU CVTS01+430 00846000 CVTRV247 EQU CVTS01+429 00847000 CVTRV246 EQU CVTS01+428 00848000 CVTRV245 EQU CVTRV237 00849000 CVTRV244 EQU CVTRV237 00850000 CVTRV243 EQU CVTRV237 00851000 CVTRV242 EQU CVTRV237 00852000 CVTRV241 EQU CVTRV237 00853000 CVTRV240 EQU CVTRV237 00854000 CVTRV239 EQU CVTRV237 00855000 CVTRV238 EQU CVTRV237 00856000 CVTRV236 EQU CVTRV228 00857000 CVTRV235 EQU CVTRV228 00858000 CVTRV234 EQU CVTRV228 00859000 CVTRV233 EQU CVTRV228 00860000 CVTRV232 EQU CVTRV228 00861000 CVTRV231 EQU CVTRV228 00862000 CVTRV230 EQU CVTRV228 00863000 CVTRV229 EQU CVTRV228 00864000 CVTRV227 EQU CVTRV219 00865000 CVTRV226 EQU CVTRV219 00866000 CVTRV225 EQU CVTRV219 00867000 CVTRV224 EQU CVTRV219 00868000 CVTRV223 EQU CVTRV219 00869000 CVTRV222 EQU CVTRV219 00870000 CVTRV221 EQU CVTRV219 00871000 CVTRV220 EQU CVTRV219 00872000 CVTRV218 EQU CVTRV210 00873000 CVTRV217 EQU CVTRV210 00874000 CVTRV216 EQU CVTRV210 00875000 CVTRV215 EQU CVTRV210 00876000 CVTRV214 EQU CVTRV210 00877000 CVTRV213 EQU CVTRV210 00878000 CVTRV212 EQU CVTRV210 00879000 CVTRV211 EQU CVTRV210 00880000 CVTLCCAT EQU CVTS01+420 00881000 CVTPCCAT EQU CVTS01+416 00882000 CVTIPCRP EQU CVTS01+412 00883000 CVTIPCRI EQU CVTS01+408 00884000 CVTIPCDS EQU CVTS01+404 00885000 CVTAIDVT EQU CVTS01+400 00886000 CVTSSAP EQU CVTS01+396 00887000 CVTEHCIR EQU CVTS01+392 00888000 CVTEHDEF EQU CVTS01+388 00889000 CVTDAIR EQU CVTS01+384 00890000 CVTPERFM EQU CVTS01+380 00891000 CVT044R2 EQU CVTS01+376 00892000 CVTFETCH EQU CVTS01+372 00893000 CVTRSTWD EQU CVTS01+368 00894000 CVTSPOST EQU CVTS01+364 00895000 CVTIOBP EQU CVTS01+360 00896000 CVTASMVT EQU CVTS01+356 00897000 CVTRECRQ EQU CVTS01+352 00898000 CVTWSAC EQU CVTS01+348 00899000 CVTRV149 EQU CVTS01+344 00900000 CVTWSAL EQU CVTS01+340 00901000 CVTSPSA EQU CVTS01+336 00902000 CVTGLMN EQU CVTS01+332 00903000 CVTVEAC0 EQU CVTS01+328 00904000 CVT062R1 EQU CVTS01+324 00905000 CVTRPOST EQU CVTS01+320 00906000 CVTDQIQE EQU CVTS01+316 00907000 CVTCSD EQU CVTS01+312 00908000 CVTLKRMA EQU CVTS01+308 00909000 CVTRSPIE EQU CVTS01+304 00910000 CVTRENQ EQU CVTS01+300 00911000 CVTLQCB EQU CVTS01+296 00912000 CVTFQCB EQU CVTS01+292 00913000 CVTQCS01 EQU CVTS01+288 00914000 CVTAPFT EQU CVTS01+284 00915000 CVTPARRL EQU CVTS01+280 00916000 CVTVWAIT EQU CVTS01+276 00917000 CVTGSPL EQU CVTS01+272 00918000 CVTLSMQ EQU CVTS01+268 00919000 CVTGSMQ EQU CVTS01+264 00920000 CVTEXPRO EQU CVTS01+260 00921000 CVTOPCTP EQU CVTS01+256 00922000 CVTSIC EQU CVTS01+252 00923000 CVTTPIOS EQU CVTS01+248 00924000 CVTRTMS EQU CVTS01+244 00925000 CVTSDBF EQU CVTS01+240 00926000 CVTSCBP EQU CVTS01+236 00927000 CVTSDMP EQU CVTS01+232 00928000 CVTSV60 EQU CVTS01+228 00929000 CVTRTMCT EQU CVTS01+224 00930000 CVTASCBL EQU CVTS01+220 00931000 CVTASCBH EQU CVTS01+216 00932000 CVTGDA EQU CVTS01+212 00933000 CVTASVT EQU CVTS01+208 00934000 CVTVVMDI EQU CVTS01+204 00935000 CVTAQTOP EQU CVTS01+200 00936000 CVTIOSCS EQU CVTS01+196 00937000 CVTSDRM EQU CVTS01+192 00938000 CVTOPTE EQU CVTS01+188 00939000 CVTSTXU EQU CVTS01+184 00940000 CVTQUIS EQU CVTS01+180 00941000 CVTPARS EQU CVTS01+176 00942000 CVTS1EE EQU CVTS01+172 00943000 CVTFRAS EQU CVTS01+168 00944000 CVTQSAS EQU CVTS01+164 00945000 CVTCRAS EQU CVTS01+160 00946000 CVTCRMN EQU CVTS01+156 00947000 CVTDELCP EQU CVTS01+152 00948000 CVTFRECL EQU CVTS01+148 00949000 CVTGETCL EQU CVTS01+144 00950000 CVTBLDCP EQU CVTS01+140 00951000 CVTAUTHL EQU CVTS01+136 00952000 CVTSCAN EQU CVTS01+132 00953000 CVTRV144 EQU CVTS01+130 00954000 CVTMAXMP EQU CVTS01+128 00955000 CVTSTCK EQU CVTS01+124 00956000 CVTRV139 EQU CVTS01+123 00957000 CVTDSSAC EQU CVTS01+122 00958000 CVTRV513 EQU CVTS01+121 00959000 CVTIOSPL EQU CVTS01+120 00960000 CVTPTGT EQU CVTS01+116 00961000 CVTCSPIE EQU CVTS01+112 00962000 CVTSMFEX EQU CVTS01+108 00963000 CVTOLT0A EQU CVTS01+104 00964000 CVTSRBRT EQU CVTS01+100 00965000 CVTPUTL EQU CVTS01+96 00966000 CVTASCRL EQU CVTS01+92 00967000 CVTASCRF EQU CVTS01+88 00968000 CVTRV326 EQU CVTS01+84 00969000 CVTRV325 EQU CVTS01+80 00970000 CVTRV324 EQU CVTS01+76 00971000 CVT0VL01 EQU CVTS01+72 00972000 CVTSHRVM EQU CVTS01+68 00973000 CVTRV332 EQU CVTS01+64 00974000 CVTTAS EQU CVTS01+60 00975000 CVTRSCN EQU CVTS01+56 00976000 CVTTRAC2 EQU CVTS01+54 00977000 CVTTRACE EQU CVTS01+52 00978000 CVTAPG EQU CVTS01+51 00979000 CVTSDTRC EQU CVTCTLFG 00980000 CVTGTRCE EQU CVTCTLFG 00981000 CVTNOMP EQU CVTCTLFG 00982000 CVTRSV79 EQU CVTCTLFG 00983000 CVTDSTAT EQU CVTCTLFG 00984000 CVTRSV78 EQU CVTCTLFG 00985000 CVTRV333 EQU CVTCTLFG 00986000 CVTRV323 EQU CVTCTLFG 00987000 CVTSPVLK EQU CVTS01+49 00988000 CVTRSV77 EQU CVTS01+48 00989000 CVTRV331 EQU CVTS01+44 00990000 CVTRV330 EQU CVTS01+40 00991000 CVTRV329 EQU CVTS01+36 00992000 CVTRV328 EQU CVTS01+32 00993000 CVTRV322 EQU CVTS01+28 00994000 CVTSLID EQU CVTSLIDA+1 00995000 CVTSYLK EQU CVTSLIDA 00996000 CVTRV321 EQU CVTS01+20 00997000 CVTRV320 EQU CVTS01+16 00998000 CVTLPDIR EQU CVTLPDIA+1 00999000 CVTRSV69 EQU CVTDIRST 01000000 CVTRSV68 EQU CVTDIRST 01001000 CVTRSV67 EQU CVTDIRST 01002000 CVTRSV66 EQU CVTDIRST 01003000 CVTRSV65 EQU CVTDIRST 01004000 CVTRSV64 EQU CVTDIRST 01005000 CVTRSV63 EQU CVTDIRST 01006000 CVTDICOM EQU CVTDIRST 01007000 CVTPVTP EQU CVTS01+8 01008000 CVTLPDSR EQU CVTS01+4 01009000 CVTGETL EQU CVTS01 01010000 NIPTRACE EQU GENLIST+2 01011000 @NM00078 EQU GENLIST 01012000 IPLDNUCE EQU IPLDATA+16 01013000 IPLDNUCS EQU IPLDATA+12 01014000 IPLDNUCM EQU IPLDATA+11 01015000 IPLDVTOC EQU IPLDATA+6 01016000 IPLDVSER EQU IPLDATA 01017000 TRLEN EQU TRSIZE+1 01018000 TRSBPOOL EQU TRSIZE 01019000 TREND EQU TRHDR+8 01020000 TRBEG EQU TRHDR+4 01021000 TRPTR EQU TRHDR 01022000 @NM00077 EQU TCBXTNT2+32 01023000 TCBRV181 EQU TCBRV173 01024000 TCBRV180 EQU TCBRV173 01025000 TCBRV179 EQU TCBRV173 01026000 TCBRV178 EQU TCBRV173 01027000 TCBRV177 EQU TCBRV173 01028000 TCBRV176 EQU TCBRV173 01029000 TCBRV175 EQU TCBRV173 01030000 TCBRV174 EQU TCBRV173 01031000 TCBRV172 EQU TCBRV164 01032000 TCBRV171 EQU TCBRV164 01033000 TCBRV170 EQU TCBRV164 01034000 TCBRV169 EQU TCBRV164 01035000 TCBRV168 EQU TCBRV164 01036000 TCBRV167 EQU TCBRV164 01037000 TCBRV166 EQU TCBRV164 01038000 TCBRV165 EQU TCBRV164 01039000 TCBRV163 EQU TCBRV155 01040000 TCBRV162 EQU TCBRV155 01041000 TCBRV161 EQU TCBRV155 01042000 TCBRV160 EQU TCBRV155 01043000 TCBRV159 EQU TCBRV155 01044000 TCBRV158 EQU TCBRV155 01045000 TCBRV157 EQU TCBRV155 01046000 TCBRV156 EQU TCBRV155 01047000 TCBRV154 EQU TCBRV146 01048000 TCBRV153 EQU TCBRV146 01049000 TCBRV152 EQU TCBRV146 01050000 TCBRV151 EQU TCBRV146 01051000 TCBRV150 EQU TCBRV146 01052000 TCBRV149 EQU TCBRV146 01053000 TCBRV148 EQU TCBRV146 01054000 TCBRV147 EQU TCBRV146 01055000 TCBRV145 EQU TCBXTNT2+26 01056000 TCBRV144 EQU TCBXTNT2+24 01057000 TCBRV143 EQU TCBXTNT2+20 01058000 TCBRV142 EQU TCBXTNT2+16 01059000 TCBRSV49 EQU TCBXTNT2+12 01060000 TCBEVENT EQU TCBXTNT2+8 01061000 TCBRCMP EQU TCBXTNT2+5 01062000 TCBRSVAB EQU TCBXTNT2+4 01063000 TCBGTFA EQU TCBGTF+1 01064000 TCBRSV47 EQU TCBTFLG 01065000 TCBRSV46 EQU TCBTFLG 01066000 TCBRSV45 EQU TCBTFLG 01067000 TCBRSV44 EQU TCBTFLG 01068000 TCBRSV43 EQU TCBTFLG 01069000 TCBDSPIT EQU TCBTFLG 01070000 TCBERRTN EQU TCBTFLG 01071000 TCBASYNC EQU TCBTFLG 01072000 @NM00076 EQU TCB+296 01073000 TCBSVCA2 EQU TCB+292 01074000 TCBSWASA EQU TCB+288 01075000 TCBDBTB EQU TCB+284 01076000 TCBRPT EQU TCB+280 01077000 TCBRV141 EQU TCBRV133 01078000 TCBRV140 EQU TCBRV133 01079000 TCBRV139 EQU TCBRV133 01080000 TCBRV138 EQU TCBRV133 01081000 TCBRV137 EQU TCBRV133 01082000 TCBRV136 EQU TCBRV133 01083000 TCBRV135 EQU TCBRV133 01084000 TCBRV134 EQU TCBRV133 01085000 TCBRV132 EQU TCBRV124 01086000 TCBRV131 EQU TCBRV124 01087000 TCBRV130 EQU TCBRV124 01088000 TCBRV129 EQU TCBRV124 01089000 TCBRV128 EQU TCBRV124 01090000 TCBRV127 EQU TCBRV124 01091000 TCBRV126 EQU TCBRV124 01092000 TCBRV125 EQU TCBRV124 01093000 TCBRV123 EQU TCBFBYT2 01094000 TCBRV122 EQU TCBFBYT2 01095000 TCBECBNV EQU TCBFBYT2 01096000 TCBSSSYN EQU TCBFBYT2 01097000 TCBFPRAP EQU TCBFBYT2 01098000 TCBFDW EQU TCBFBYT2 01099000 TCBFMW EQU TCBFBYT2 01100000 TCBCNCB EQU TCBFBYT2 01101000 TCBLLH EQU TCBFBYT1 01102000 TCBRV113 EQU TCBFBYT1 01103000 TCBEOT EQU TCBFBYT1 01104000 TCBRTM2 EQU TCBFBYT1 01105000 TCBPGNLY EQU TCBFBYT1 01106000 TCBNDIOS EQU TCBFBYT1 01107000 TCBRV327 EQU TCBFBYT1 01108000 TCBEOTFM EQU TCBFBYT1 01109000 TCBAFFN EQU TCB+274 01110000 TCBRV326 EQU TCB+272 01111000 TCBUKYSP EQU TCB+268 01112000 TCBMODE EQU TCBESTAE+3 01113000 TCBERTYP EQU TCBESTAE+2 01114000 TCBRV314 EQU TCBESTRM 01115000 TCBRV313 EQU TCBESTRM 01116000 TCBRV312 EQU TCBESTRM 01117000 TCBRV311 EQU TCBESTRM 01118000 TCBRV310 EQU TCBESTRM 01119000 TCBRV309 EQU TCBESTRM 01120000 TCBRV308 EQU TCBESTRM 01121000 TCBETERM EQU TCBESTRM 01122000 TCBSCBKY EQU TCBESTAE 01123000 TCBRTM12 EQU TCB+260 01124000 TCBTCBID EQU TCB+256 01125000 TCBSTAWA EQU TCB+252 01126000 TCBSWA EQU TCB+248 01127000 TCBFOEA EQU TCBFOE+1 01128000 TCBRSV42 EQU TCBFOE 01129000 TCBCCPVI EQU TCBXSCT+2 01130000 TCBRV325 EQU TCBXSCT+1 01131000 TCBRV324 EQU TCBXSCT1 01132000 TCBRV323 EQU TCBXSCT1 01133000 TCBRV322 EQU TCBXSCT1 01134000 TCBRV321 EQU TCBXSCT1 01135000 TCBRV320 EQU TCBXSCT1 01136000 TCBRV319 EQU TCBXSCT1 01137000 TCBS3A EQU TCBXSCT1 01138000 TCBACTIV EQU TCBXSCT1 01139000 TCBRSV41 EQU TCB+239 01140000 TCBTID EQU TCB+238 01141000 TCBRSVAA EQU TCB+237 01142000 TCBABCUR EQU TCB+236 01143000 TCBTMSAV EQU TCB+232 01144000 TCBIOTIM EQU TCB+228 01145000 TCBRTWA EQU TCB+224 01146000 TCBBACK EQU TCB+220 01147000 TCBTIRB EQU TCB+216 01148000 TCBAECB EQU TCB+212 01149000 TCBEXT2A EQU TCBEXT2+1 01150000 TCBRSV39 EQU TCBEXT2 01151000 TCBSTMCT EQU TCB+207 01152000 TCBSYSCT EQU TCB+206 01153000 TCBRSV37 EQU TCB+205 01154000 TCBEXSVC EQU TCBDAR 01155000 TCBDARMS EQU TCBDAR 01156000 TCBDARWT EQU TCBDAR 01157000 TCBDARO EQU TCBDAR 01158000 TCBDARMC EQU TCBDARC 01159000 TCBDARD EQU TCBDAR 01160000 TCBDARS EQU TCBDAR 01161000 TCBDARP EQU TCBDAR 01162000 TCBGTOFM EQU TCBFLGS7 01163000 TCBADMP EQU TCBFLGS7 01164000 TCBRSTSK EQU TCBFLGS7 01165000 TCBSVCS EQU TCBFLGS7 01166000 TCBSTACK EQU TCBFLGS7 01167000 TCBRSV34 EQU TCBFLGS7 01168000 TCBRSV33 EQU TCBFLGS7 01169000 TCBGPECB EQU TCBFLGS7 01170000 TCBNTJS EQU TCBFLGS6 01171000 TCBAPG EQU TCBFLGS6 01172000 TCBMIGR EQU TCBFLGS6 01173000 TCBRV303 EQU TCBFLGS6 01174000 TCBSPVLK EQU TCBFLGS6 01175000 TCBCPU EQU TCBFLGS6 01176000 TCBPIE17 EQU TCBFLGS6 01177000 TCBRV EQU TCBFLGS6 01178000 TCBRSV79 EQU TCBNDSP5 01179000 TCBRSV78 EQU TCBNDSP5 01180000 TCBRSV77 EQU TCBNDSP5 01181000 TCBRSV76 EQU TCBNDSP5 01182000 TCBRSV75 EQU TCBNDSP5 01183000 TCBRSV74 EQU TCBNDSP5 01184000 TCBRSV95 EQU TCBNDSP5 01185000 TCBRSV94 EQU TCBNDSP5 01186000 TCBRSV93 EQU TCBNDSP4 01187000 TCBRSV92 EQU TCBNDSP4 01188000 TCBRSV91 EQU TCBNDSP4 01189000 TCBRSV90 EQU TCBNDSP4 01190000 TCBRSV89 EQU TCBNDSP4 01191000 TCBRSV88 EQU TCBNDSP4 01192000 TCBRSV87 EQU TCBNDSP4 01193000 TCBRSV86 EQU TCBNDSP4 01194000 TCBEXT1A EQU TCBEXT1+1 01195000 TCBRSV32 EQU TCBEXT1 01196000 TCBEXCPD EQU TCB+192 01197000 TCBIOBRC EQU TCB+188 01198000 TCBDDWTC EQU TCB+186 01199000 TCBDDEXC EQU TCB+184 01200000 TCBJSCBB EQU TCBJSCB+1 01201000 @NM00075 EQU TCBRECDE 01202000 TCBREC EQU TCBRECDE 01203000 TCBMDIDS EQU TCB+176 01204000 TCBNDINT EQU TCBNDSP3 01205000 TCBRSV27 EQU TCBNDSP3 01206000 TCBRSV26 EQU TCBNDSP3 01207000 TCBRSV25 EQU TCBNDSP3 01208000 TCBRSV24 EQU TCBNDSP3 01209000 TCBSRBND EQU TCBNDSP3 01210000 TCBRV302 EQU TCBNDSP3 01211000 TCBLJSND EQU TCBNDSP3 01212000 TCBABE EQU TCBNDSP2 01213000 TCBDSS EQU TCBNDSP2 01214000 TCBOWAIT EQU TCBNDSP2 01215000 TCBIWAIT EQU TCBNDSP2 01216000 TCBNDTS EQU TCBNDSP2 01217000 TCBNDSVC EQU TCBNDSP2 01218000 TCBSTPP EQU TCBNDSP2 01219000 TCBABD EQU TCBNDSP2 01220000 TCBRSV22 EQU TCBNDSP1 01221000 TCBPIEND EQU TCBNDSP1 01222000 TCBTPSP EQU TCBNDSP1 01223000 TCBDDRND EQU TCBNDSP1 01224000 TCBRSPND EQU TCBNDSP1 01225000 TCBRSTND EQU TCBNDSP1 01226000 TCBDARPN EQU TCBNDSP1 01227000 TCBDARTN EQU TCBNDSP1 01228000 TCBNDSP0 EQU TCBNDSP 01229000 TCBUSER EQU TCB+168 01230000 TCBTCTB EQU TCBTCT+1 01231000 TCBRSV9C EQU TCBTCTGF 01232000 TCBRSV9B EQU TCBTCTGF 01233000 TCBRSV9A EQU TCBTCTGF 01234000 TCBRSV99 EQU TCBTCTGF 01235000 TCBRSV98 EQU TCBTCTGF 01236000 TCBRSV97 EQU TCBTCTGF 01237000 TCBRSV20 EQU TCBTCTGF 01238000 TCBSMFGF EQU TCBTCTGF 01239000 TCBSTABB EQU TCBSTAB+1 01240000 TCBSTCUR EQU TCBNSTAE 01241000 TCBRV301 EQU TCBNSTAE 01242000 TCBSYNCH EQU TCBNSTAE 01243000 TCBHALT EQU TCBNSTAE 01244000 TCBPPSUP EQU TCBNSTAE 01245000 TCB33E EQU TCBNSTAE 01246000 TCBQUIES EQU TCBNSTAE 01247000 TCBSTABE EQU TCBNSTAE 01248000 TCBAQE EQU TCB+156 01249000 TCBPQE EQU TCB+152 01250000 TCBTSDP EQU TCB+151 01251000 TCBTSLP EQU TCB+150 01252000 TCBSTPCT EQU TCB+149 01253000 TCBCPUBN EQU TCBTSFLG 01254000 TCBDYDSP EQU TCBTSFLG 01255000 TCBRSV18 EQU TCBTSFLG 01256000 TCBRSV17 EQU TCBTSFLG 01257000 TCBTIOTG EQU TCBTSFLG 01258000 TCBATT EQU TCBTSFLG 01259000 TCBSTPPR EQU TCBTSFLG 01260000 TCBRV300 EQU TCBTSTSK 01261000 TCBECB EQU TCB+144 01262000 TCBIQE EQU TCB+140 01263000 TCBLTC EQU TCB+136 01264000 TCBOTC EQU TCB+132 01265000 TCBNTC EQU TCB+128 01266000 TCBJSTCA EQU TCBJSTCB+1 01267000 TCBRSV16 EQU TCBJSTCB 01268000 TCBTQET EQU TCBTME 01269000 TCBTCB EQU TCB+116 01270000 TCBFSAB EQU TCBFSA+1 01271000 TCBQEL EQU TCBFSA 01272000 TCBGRS15 EQU TCBGRS+60 01273000 TCBGRS14 EQU TCBGRS+56 01274000 TCBGRS13 EQU TCBGRS+52 01275000 TCBGRS12 EQU TCBGRS+48 01276000 TCBGRS11 EQU TCBGRS+44 01277000 TCBGRS10 EQU TCBGRS+40 01278000 TCBGRS9 EQU TCBGRS+36 01279000 TCBGRS8 EQU TCBGRS+32 01280000 TCBGRS7 EQU TCBGRS+28 01281000 TCBGRS6 EQU TCBGRS+24 01282000 TCBGRS5 EQU TCBGRS+20 01283000 TCBGRS4 EQU TCBGRS+16 01284000 TCBGRS3 EQU TCBGRS+12 01285000 TCBGRS2 EQU TCBGRS+8 01286000 TCBGRS1 EQU TCBGRS+4 01287000 TCBGRS0 EQU TCBGRS 01288000 TCBJPQB EQU TCBJPQ+1 01289000 TCBRSV15 EQU TCBPURGE 01290000 TCBRSV14 EQU TCBPURGE 01291000 TCBRSV13 EQU TCBPURGE 01292000 TCBRSV12 EQU TCBPURGE 01293000 TCBRSV11 EQU TCBPURGE 01294000 TCBRSV10 EQU TCBPURGE 01295000 TCBRSV09 EQU TCBPURGE 01296000 TCBJPQF EQU TCBPURGE 01297000 TCBJLB EQU TCB+40 01298000 TCBLLS EQU TCB+36 01299000 TCBDSP EQU TCB+35 01300000 TCBLMP EQU TCB+34 01301000 TCBPNDSP EQU TCBFLGS5 01302000 TCBFCD1 EQU TCBFLGS5 01303000 TCBSTP EQU TCBFLGS5 01304000 TCBSYS EQU TCBFLGS5 01305000 TCBANDSP EQU TCBFLGS5 01306000 TCBPAGE EQU TCBFLGS5 01307000 TCBUXNDF EQU TCBABWF 01308000 TCBFC EQU TCBFLGS5 01309000 TCBONDSP EQU TCBFLGS4 01310000 TCBMPCND EQU TCBFLGS4 01311000 TCBMPCVQ EQU TCBFLGS4 01312000 TCBUXNDV EQU TCBFLGS4 01313000 TCBHNDSP EQU TCBFLGS4 01314000 TCBRQENA EQU TCBFLGS4 01315000 TCBSER EQU TCBFLGS4 01316000 TCBNDUMP EQU TCBFLGS4 01317000 TCBDWSTA EQU TCBFLGS3 01318000 TCBRSV08 EQU TCBFLGS3 01319000 TCBRSV07 EQU TCBFLGS3 01320000 TCBRSV06 EQU TCBFLGS3 01321000 TCBABGM EQU TCBFLGS3 01322000 TCBABTRM EQU TCBFLGS3 01323000 TCBADINP EQU TCBFLGS3 01324000 TCBFSM EQU TCBFLGS3 01325000 TCBFTS EQU TCBFLGS2 01326000 TCBFETXR EQU TCBFLGS2 01327000 TCBFDSOP EQU TCBFLGS2 01328000 TCBFJMC EQU TCBFLGS2 01329000 TCBFSMC EQU TCBFLGS2 01330000 TCBFABOP EQU TCBFLGS2 01331000 TCBFSTI EQU TCBFLGS2 01332000 TCBFOINP EQU TCBFLGS2 01333000 TCBFX EQU TCBFLGS1 01334000 TCBFS EQU TCBFLGS1 01335000 TCBFT EQU TCBFLGS1 01336000 TCBPDUMP EQU TCBFLGS1 01337000 TCBNONPR EQU TCBFLGS1 01338000 TCBFERA EQU TCBFLGS1 01339000 TCBFE EQU TCBFLGS1 01340000 TCBFA EQU TCBFLGS1 01341000 TCBZERO EQU TCBPKF 01342000 TCBFLAG EQU TCBPKF 01343000 TCBMSSB EQU TCBMSS+1 01344000 TCBRSV03 EQU TCBMSS 01345000 TCBTRNB EQU TCBTRN+1 01346000 TCBRSV02 EQU TCBABF 01347000 TCBOLTEP EQU TCBABF 01348000 TCBTCP EQU TCBABF 01349000 TCBTCPP EQU TCBABF 01350000 TCBRSV01 EQU TCBABF 01351000 TCBGRPH EQU TCBABF 01352000 TCBNOCHK EQU TCBABF 01353000 TCBMOD91 EQU TCBABF 01354000 TCBCMPC EQU TCBCMP+1 01355000 TCBRV318 EQU TCBCMSG 01356000 TCBRV317 EQU TCBCIND 01357000 TCBRV316 EQU TCBCWTO 01358000 TCBCASID EQU TCBCDBL 01359000 TCBNOCC EQU TCBSTCC 01360000 TCBDMPO EQU TCBCPP 01361000 TCBCSTEP EQU TCBCMPF 01362000 TCBCREQ EQU TCBCMPF 01363000 TCBTIO EQU TCB+12 01364000 TCBDEB EQU TCB+8 01365000 TCBPIEA EQU TCBPIE+1 01366000 TCBPM EQU TCBPMASK 01367000 @NM00074 EQU TCBPMASK 01368000 TCBRBP EQU TCB 01369000 TCBFRS6 EQU TCBFRS+24 01370000 TCBFRS4 EQU TCBFRS+16 01371000 TCBFRS2 EQU TCBFRS+8 01372000 TCBFRS0 EQU TCBFRS 01373000 CVTLEVL EQU CVTRELNO+2 01374000 CVTNUMB EQU CVTRELNO 01375000 CVTMDL EQU CVTFIX+250 01376000 @NM00049 EQU CVTFIX+248 01377000 @NM00048 EQU CVTFIX 01378000 CVTRV482 EQU CVTXTNT2+128 01379000 CVTRV481 EQU CVTXTNT2+124 01380000 CVTRV480 EQU CVTXTNT2+120 01381000 CVTRV479 EQU CVTXTNT2+118 01382000 CVTRV478 EQU CVTXTNT2+117 01383000 CVTRV477 EQU CVTXTNT2+116 01384000 CVTRV476 EQU CVTXTNT2+115 01385000 CVTRV475 EQU CVTXTNT2+114 01386000 CVTRV474 EQU CVTRV466 01387000 CVTRV473 EQU CVTRV466 01388000 CVTRV472 EQU CVTRV466 01389000 CVTRV471 EQU CVTRV466 01390000 CVTRV470 EQU CVTRV466 01391000 CVTRV469 EQU CVTRV466 01392000 CVTRV468 EQU CVTRV466 01393000 CVTRV467 EQU CVTRV466 01394000 CVTRV465 EQU CVTRV457 01395000 CVTRV464 EQU CVTRV457 01396000 CVTRV463 EQU CVTRV457 01397000 CVTRV462 EQU CVTRV457 01398000 CVTRV461 EQU CVTRV457 01399000 CVTRV460 EQU CVTRV457 01400000 CVTRV459 EQU CVTRV457 01401000 CVTRV458 EQU CVTRV457 01402000 CVTRV456 EQU CVTXTNT2+108 01403000 CVTRV455 EQU CVTXTNT2+104 01404000 CVTRV454 EQU CVTXTNT2+100 01405000 CVTRV453 EQU CVTXTNT2+96 01406000 CVTRV452 EQU CVTXTNT2+94 01407000 CVTRV451 EQU CVTXTNT2+92 01408000 CVTRV450 EQU CVTXTNT2+90 01409000 CVTRV449 EQU CVTXTNT2+88 01410000 CVTRV448 EQU CVTXTNT2+87 01411000 CVTRV447 EQU CVTXTNT2+86 01412000 CVTRV446 EQU CVTRV438 01413000 CVTRV445 EQU CVTRV438 01414000 CVTRV444 EQU CVTRV438 01415000 CVTRV443 EQU CVTRV438 01416000 CVTRV442 EQU CVTRV438 01417000 CVTRV441 EQU CVTRV438 01418000 CVTRV440 EQU CVTRV438 01419000 CVTRV439 EQU CVTRV438 01420000 CVTRV437 EQU CVTRV429 01421000 CVTRV436 EQU CVTRV429 01422000 CVTRV435 EQU CVTRV429 01423000 CVTRV434 EQU CVTRV429 01424000 CVTRV433 EQU CVTRV429 01425000 CVTRV432 EQU CVTRV429 01426000 CVTRV431 EQU CVTRV429 01427000 CVTRV430 EQU CVTRV429 01428000 CVTRV428 EQU CVTXTNT2+80 01429000 CVTRV427 EQU CVTXTNT2+76 01430000 CVTRV426 EQU CVTXTNT2+72 01431000 CVTRV425 EQU CVTXTNT2+68 01432000 CVTATACT EQU CVTATCVT 01433000 CVTRV423 EQU CVTXTNT2+62 01434000 CVTRV422 EQU CVTXTNT2+60 01435000 CVTRV421 EQU CVTXTNT2+58 01436000 CVTRV420 EQU CVTXTNT2+56 01437000 CVTRV419 EQU CVTXTNT2+55 01438000 CVTRV418 EQU CVTXTNT2+54 01439000 CVTRV417 EQU CVTRV409 01440000 CVTRV416 EQU CVTRV409 01441000 CVTRV415 EQU CVTRV409 01442000 CVTRV414 EQU CVTRV409 01443000 CVTRV413 EQU CVTRV409 01444000 CVTRV412 EQU CVTRV409 01445000 CVTRV411 EQU CVTRV409 01446000 CVTRV410 EQU CVTRV409 01447000 CVTRV408 EQU CVTRV400 01448000 CVTRV407 EQU CVTRV400 01449000 CVTRV406 EQU CVTRV400 01450000 CVTRV405 EQU CVTRV400 01451000 CVTRV404 EQU CVTRV400 01452000 CVTRV403 EQU CVTRV400 01453000 CVTRV402 EQU CVTRV400 01454000 CVTRV401 EQU CVTRV400 01455000 CVTICB EQU CVTXTNT2+48 01456000 CVTSKTA EQU CVTXTNT2+44 01457000 CVTRSV99 EQU CVTXTNT2+40 01458000 CVTRSV98 EQU CVTXTNT2+36 01459000 CVTRSV97 EQU CVTXTNT2+34 01460000 CVTRSV96 EQU CVTXTNT2+32 01461000 CVTOLTEP EQU CVTXTNT2+28 01462000 CVTQIDA EQU CVTQID+1 01463000 CVTRSV95 EQU CVTQID 01464000 CVTRSV94 EQU CVTXTNT2+20 01465000 CVTRSV93 EQU CVTXTNT2+16 01466000 CVTRSV92 EQU CVTXTNT2+12 01467000 CVTDEBVR EQU CVTXTNT2+8 01468000 CVTRSV91 EQU CVTXTNT2+6 01469000 CVTRSV9H EQU CVTFLGBT 01470000 CVTRSV9G EQU CVTFLGBT 01471000 CVTRSV9F EQU CVTFLGBT 01472000 CVTRSV9E EQU CVTFLGBT 01473000 CVTRSV9D EQU CVTFLGBT 01474000 CVTBAH EQU CVTFLGBT 01475000 CVTVME EQU CVTFLGBT 01476000 CVTNPE EQU CVTFLGBT 01477000 CVTNUCLS EQU CVTXTNT2+4 01478000 CVTDSSVA EQU CVTDSSV+1 01479000 CVTRSV89 EQU CVTDSSV 01480000 CVTRSV88 EQU CVTXTNT1+8 01481000 CVTRSV87 EQU CVTXTNT1+4 01482000 CVTFACHN EQU CVTXTNT1 01483000 CVTRV488 EQU CVTMAP+412 01484000 CVTRV487 EQU CVTMAP+408 01485000 CVTRV486 EQU CVTMAP+404 01486000 CVTRV485 EQU CVTMAP+400 01487000 CVTACTAP EQU CVTMAP+396 01488000 CVTAUTH EQU CVTMAP+392 01489000 CVTRV490 EQU CVTMAP+388 01490000 CVTRSV61 EQU CVTMAP+384 01491000 CVTVOLT1 EQU CVTVOLM1+1 01492000 CVTVOLI1 EQU CVTVOLF1 01493000 CVTSTOA EQU CVTMAP+376 01494000 CVTRSV58 EQU CVTMAP+374 01495000 CVTRSV57 EQU CVTMAP+372 01496000 CVTDDCE EQU CVTMAP+368 01497000 CVTPNWFR EQU CVTMAP+364 01498000 CVTSMF EQU CVTMAP+360 01499000 CVTSULK EQU CVTMAP+358 01500000 CVTSLKO EQU CVTSYSK 01501000 CVTSLKP EQU CVTSYSK 01502000 CVTSLKQ EQU CVTSYSK 01503000 CVTSLKR EQU CVTSYSK 01504000 CVTRSV56 EQU CVTSYSK 01505000 CVTRSV55 EQU CVTSYSK 01506000 CVTRSV54 EQU CVTSYSK 01507000 CVTRSV53 EQU CVTSYSK 01508000 CVTRSV52 EQU CVTA1F1 01509000 CVTRSV51 EQU CVTA1F1 01510000 CVTRSV50 EQU CVTA1F1 01511000 CVTRSV49 EQU CVTA1F1 01512000 CVTRSV48 EQU CVTA1F1 01513000 CVTRSV47 EQU CVTA1F1 01514000 CVTSRSW EQU CVTA1F1 01515000 CVTPFSW EQU CVTA1F1 01516000 CVTPCVT EQU CVTMAP+352 01517000 CVTRSV46 EQU CVTMAP+344 01518000 CVTRSV45 EQU CVTMAP+340 01519000 CVTRSV44 EQU CVTMAP+338 01520000 CVTRSV43 EQU CVTMAP+336 01521000 CVTHJESA EQU CVTHJES+1 01522000 CVTRSV42 EQU CVTHJES 01523000 CVTEXT2A EQU CVTEXT2+1 01524000 CVTRSV41 EQU CVTEXT2 01525000 CVTAPFA EQU CVTAPF+1 01526000 CVTRSV40 EQU CVTAPF 01527000 CVTRV518 EQU CVTINTLA 01528000 CVTRV517 EQU CVTERPV 01529000 CVTEORM EQU CVTMAP+312 01530000 CVTMCHPR EQU CVTMAP+308 01531000 CVTTZ EQU CVTMAP+304 01532000 CVTJEPS EQU CVTMAP+300 01533000 CVTJESCT EQU CVTMAP+296 01534000 CVTMODE EQU CVTMAP+292 01535000 CVTPTRV EQU CVTMAP+288 01536000 CVTREAL EQU CVTMAP+284 01537000 CVTRSV39 EQU CVTMAP+280 01538000 CVTRSV38 EQU CVTMAP+276 01539000 CVTDMSRA EQU CVTDMSR+1 01540000 CVTRV634 EQU CVTDMSRF 01541000 CVTRV633 EQU CVTDMSRF 01542000 CVTRV632 EQU CVTDMSRF 01543000 CVTRV631 EQU CVTDMSRF 01544000 CVTRV630 EQU CVTDMSRF 01545000 CVTRV629 EQU CVTDMSRF 01546000 CVTUDUMP EQU CVTDMSRF 01547000 CVTSDUMP EQU CVTDMSRF 01548000 CVTQMSGA EQU CVTQMSG+1 01549000 CVTRSV36 EQU CVTQMSG 01550000 CVTAMFF EQU CVTMAP+264 01551000 CVTPURGA EQU CVTPURG+1 01552000 CVTRSV35 EQU CVTPURG 01553000 CVTCBSP EQU CVTMAP+256 01554000 CVTATERA EQU CVTATER+1 01555000 CVTSYST EQU CVTATER 01556000 CVTVOLT2 EQU CVTTAT 01557000 CVTVOLI2 EQU CVTVOLF2 01558000 CVTAQAVB EQU CVTAQAVT+1 01559000 CVTRSV34 EQU CVTTCMFG 01560000 CVTRSV33 EQU CVTTCMFG 01561000 CVTRSV32 EQU CVTTCMFG 01562000 CVTRSV31 EQU CVTTCMFG 01563000 CVTRSV30 EQU CVTTCMFG 01564000 CVTRSV29 EQU CVTTCMFG 01565000 CVTLDEV EQU CVTTCMFG 01566000 CVTTCRDY EQU CVTTCMFG 01567000 CVTGTFA EQU CVTGTF+1 01568000 CVTRSV27 EQU CVTGTFST 01569000 CVTRNIO EQU CVTGTFST 01570000 CVTUSR EQU CVTGTFST 01571000 CVTRV318 EQU CVTFORM 01572000 CVTRV317 EQU CVTTMODE 01573000 CVTRV316 EQU CVTSTATE 01574000 CVTRV315 EQU CVTGTFS 01575000 CVTGTFAV EQU CVTGTFS 01576000 CVT0SCR1 EQU CVTMAP+232 01577000 CVTRV515 EQU CVTMAP+228 01578000 CVTRMS EQU CVTMAP+224 01579000 CVTPATCH EQU CVTMAP+220 01580000 CVTTSCE EQU CVTMAP+216 01581000 CVTLNKSC EQU CVTMAP+214 01582000 CVTQABST EQU CVTMAP+212 01583000 CVTMDLDS EQU CVTMAP+208 01584000 CVTUSER EQU CVTMAP+204 01585000 CVTABEND EQU CVTMAP+200 01586000 CVTSMCA EQU CVTMAP+196 01587000 CVTRSV18 EQU CVTMAP+192 01588000 CVTQLPAQ EQU CVTMAP+188 01589000 CVTQCDSR EQU CVTMAP+184 01590000 CVTRSV17 EQU CVTOPTB 01591000 CVTVS1A EQU CVTOPTB 01592000 CVTFP EQU CVTOPTB 01593000 CVTAPTHR EQU CVTOPTB 01594000 CVTNLOG EQU CVTOPTB 01595000 CVTTOD EQU CVTOPTB 01596000 CVTCTIMS EQU CVTOPTB 01597000 CVTPROT EQU CVTOPTB 01598000 CVTXPFP EQU CVTOPTA 01599000 CVTASCII EQU CVTOPTA 01600000 CVTRSV13 EQU CVTOPTA 01601000 CVTRSV12 EQU CVTOPTA 01602000 CVTNIP EQU CVTOPTA 01603000 CVTDDR EQU CVTOPTA 01604000 CVTAPR EQU CVTOPTA 01605000 CVTCCH EQU CVTOPTA 01606000 CVTSNCTR EQU CVTMAP+180 01607000 CVTQMWR EQU CVTMAP+176 01608000 CVTQOCR EQU CVTMAP+172 01609000 CVT1EF00 EQU CVTMAP+168 01610000 CVTMZ00 EQU CVTMAP+164 01611000 CVTHEAD EQU CVTMAP+160 01612000 CVTRSV11 EQU CVTMAP+156 01613000 CVT0PT01 EQU CVTMAP+152 01614000 CVTMSER EQU CVTMAP+148 01615000 CVTRV516 EQU CVTIERLC 01616000 CVTILCH EQU CVTMAP+140 01617000 CVT0DS EQU CVTMAP+136 01618000 CVTFBOSV EQU CVTMAP+132 01619000 CVTNUCB EQU CVTMAP+128 01620000 CVTIXAVL EQU CVTMAP+124 01621000 CVTIOQET EQU CVTMAP+120 01622000 CVTDCBA EQU CVTMAP+117 01623000 CVTMVS2 EQU CVTDCB 01624000 CVT6DAT EQU CVTDCB 01625000 CVT4MPS EQU CVTDCB 01626000 CVTRSV09 EQU CVTDCB 01627000 CVT4MS1 EQU CVTDCB 01628000 CVT2SPS EQU CVTDCB 01629000 CVT1SSS EQU CVTDCB 01630000 CVTRSV08 EQU CVTDCB 01631000 CVTSTB EQU CVTMAP+112 01632000 CVTQTD00 EQU CVTMAP+108 01633000 CVTQTE00 EQU CVTMAP+104 01634000 CVTCUCB EQU CVTMAP+100 01635000 CVTSJQ EQU CVTMAP+96 01636000 CVTPBLDL EQU CVTMAP+92 01637000 CVTTPC EQU CVTMAP+88 01638000 CVTSVDCB EQU CVTMAP+84 01639000 CVTBRET EQU CVTMAP+82 01640000 CVTEXIT EQU CVTMAP+80 01641000 CVT0FN00 EQU CVTMAP+76 01642000 CVTDARA EQU CVTDAR+1 01643000 CVTRSV07 EQU CVTFLGS1 01644000 CVTRSV06 EQU CVTFLGS1 01645000 CVTRSV05 EQU CVTFLGS1 01646000 CVTRSV04 EQU CVTFLGS1 01647000 CVTRSV03 EQU CVTFLGS1 01648000 CVTRSV02 EQU CVTFLGS1 01649000 CVTRSV01 EQU CVTFLGS1 01650000 CVTDMPLK EQU CVTFLGS1 01651000 CVTXITP EQU CVTMAP+68 01652000 CVTZDTAB EQU CVTMAP+64 01653000 CVTMSLT EQU CVTMAP+60 01654000 CVTDATE EQU CVTMAP+56 01655000 CVTBTERM EQU CVTMAP+52 01656000 CVTSYSAD EQU CVTMAP+48 01657000 CVTXTLER EQU CVTMAP+44 01658000 CVTILK2 EQU CVTMAP+40 01659000 CVTILK1 EQU CVTMAP+36 01660000 CVTPRLTV EQU CVTMAP+32 01661000 CVTPCNVT EQU CVTMAP+28 01662000 CVT0VL00 EQU CVTMAP+24 01663000 CVTXAPG EQU CVTMAP+20 01664000 CVTBUF EQU CVTMAP+16 01665000 CVTJOB EQU CVTMAP+12 01666000 CVTLINK EQU CVTMAP+8 01667000 CVT0EF00 EQU CVTMAP+4 01668000 CVTTCBP EQU CVTMAP 01669000 CVT EQU CVTMAP 01670000 ABDSAVE1 EQU ABDAREA+672 01671000 ABDSAVHD EQU ABDAREA+592 01672000 ABDPADC EQU ABDAREA+589 01673000 ABDLINE EQU ABDLINEA+1 01674000 ABDSRC2 EQU ABDAREA+382 01675000 ABDLOG EQU ABDAREA+380 01676000 ABDSRC1 EQU ABDAREA+378 01677000 ABDPHY EQU ABDAREA+376 01678000 ABDLCNT EQU ABDAREA+372 01679000 @NM00047 EQU ESPARM+29 01680000 @NM00046 EQU ESTAEFLG 01681000 EDCB EQU ESTAEFLG 01682000 ETCB EQU ESTAEFLG 01683000 ESUBSYT EQU ESTAEFLG 01684000 ERESTART EQU ESPARM+24 01685000 EMODNAME EQU ESPARM+16 01686000 EABDAREA EQU ESPARM+12 01687000 ESAUTOP EQU ESPARM+8 01688000 ESBSREG2 EQU ESPARM+4 01689000 ESBSREG EQU ESPARM 01690000 ABDRTRN EQU ABDAREA+336 01691000 ABDSVCB EQU ABDAREA+332 01692000 @NM00045 EQU ABDGMA+14 01693000 ABDCDID EQU ABDGMA+12 01694000 ABDPAREA EQU ABDGMA+8 01695000 ABDBUFSZ EQU ABDBUFFS+4 01696000 ABDBUFAD EQU ABDBUFFS 01697000 ABSLCTSV EQU ABDAREA+304 01698000 ABDSTADS EQU ABDAREA+300 01699000 ABDUPRID EQU ABDAREA+296 01700000 ABDPCAP EQU ABDAREA+295 01701000 ABDLLNGH EQU ABDAREA+294 01702000 ABDINCPL EQU ABDAREA+292 01703000 ABDFWORK EQU ABDAREA+288 01704000 ABDIDENT EQU ABDAREA+286 01705000 ABDIND EQU ABDAREA+284 01706000 ABDSIZE EQU ABDAREA+280 01707000 ABDLENTH EQU ABDAREA+276 01708000 ABDBLOCK EQU ABDAREA+272 01709000 ABDSTAD EQU ABDAREA+268 01710000 @NM00044 EQU ABDBLNKS 01711000 @NM00043 EQU ABDBLNKS 01712000 @NM00042 EQU ABDBLNKS 01713000 @NM00041 EQU ABDBLNKS 01714000 @NM00040 EQU ABDBLNKS 01715000 @NM00039 EQU ABDBLNKS 01716000 @NM00038 EQU ABDBLNKS 01717000 ABDBLKN3 EQU ABDBLNKS 01718000 @NM00037 EQU ABDUPRFN 01719000 @NM00036 EQU ABDUPRFN 01720000 @NM00035 EQU ABDUPRFN 01721000 @NM00034 EQU ABDUPRFN 01722000 @NM00033 EQU ABDUPRFN 01723000 @NM00032 EQU ABDUPRFN 01724000 ABDUPRSL EQU ABDUPRFN 01725000 ABDUPRPM EQU ABDUPRFN 01726000 @NM00031 EQU ABDUPRF 01727000 @NM00030 EQU ABDUPRF 01728000 @NM00029 EQU ABDUPRF 01729000 @NM00028 EQU ABDUPRF 01730000 @NM00027 EQU ABDUPRF 01731000 UPRFMT20 EQU ABDUPRF 01732000 UPRFMET EQU ABDUPRF 01733000 UPRFMAT EQU ABDUPRF 01734000 ABDFMTWK EQU ABDAREA+256 01735000 ABDLPTR EQU ABDAREA+252 01736000 ABDSSPAR EQU ABDAREA+188 01737000 ABDWORK EQU ABDAREA+140 01738000 @NM00026 EQU ABDRES1 01739000 ABDPGHD EQU ABDRES1 01740000 ABDFMTLD EQU ABDRES1 01741000 ABDSQA EQU ABDRES1 01742000 ABDOLSQA EQU ABDRES1 01743000 ABDREGS EQU ABDRES1 01744000 ABDPSW EQU ABDRES1 01745000 ABDKEY EQU ABDAREA+138 01746000 ABDLSQA EQU ABDFLAG2 01747000 ABDSTAT EQU ABDFLAG2 01748000 ABDSWAP EQU ABDFLAG2 01749000 ABDGTFCL EQU ABDFLAG2 01750000 ABDTRNAV EQU ABDFLAG2 01751000 ABDGTF EQU ABDFLAG2 01752000 ABDSUPER EQU ABDFLAG2 01753000 ABDIDX EQU ABDFLAG1 01754000 ABDSPHD EQU ABDFLAG1 01755000 ABDSVCHD EQU ABDFLAG1 01756000 ABDSQSDM EQU ABDFLAG1 01757000 ABDLSTHD EQU ABDFLAG1 01758000 ABDQCBMN EQU ABDFLAG1 01759000 ABDQCBMJ EQU ABDFLAG1 01760000 ABDQCBHD EQU ABDFLAG1 01761000 ABDPGWK EQU ABDAREA+128 01762000 ABDWORK1 EQU ABDAREA+120 01763000 ABDRESV3 EQU ABDAREA+116 01764000 ABDUPRXT EQU ABDAREA+112 01765000 ABDPTRS3 EQU ABDPTRS+8 01766000 ABDPTRS2 EQU ABDPTRS+4 01767000 ABDPTRS1 EQU ABDPTRS 01768000 ABDPCTR EQU ABDAREA+82 01769000 ABDLCTR EQU ABDAREA+80 01770000 ABDIOBP EQU ABDAREA+76 01771000 ABDPTR EQU ABDAREA+72 01772000 ABDDCB EQU ABDAREA+68 01773000 ABDLEN EQU ABDAREA+66 01774000 ABDTYPE EQU ABDAREA+64 01775000 ABDECB EQU ABDAREA+60 01776000 ABDSAVE EQU ABDAREA+56 01777000 ABDDECB EQU ABDAREA+52 01778000 ABDPARA EQU ABDAREA+48 01779000 ABDTABPT EQU ABDAREA+44 01780000 ABDINXPT EQU ABDAREA+40 01781000 ABDCTR EQU ABDAREA+38 01782000 ABDTRLN EQU ABDAREA+36 01783000 ABDHDRAD EQU ABDPARMS+20 01784000 ABDSNAPP EQU ABDPARMS+16 01785000 ABDPTCBP EQU ABDPARMS+12 01786000 ABDPDCBP EQU ABDPARMS+8 01787000 @NM00025 EQU ABDPARMS+7 01788000 @NM00024 EQU APFPDATA 01789000 APFSPALL EQU APFPDATA 01790000 APFPSW EQU APFPDATA 01791000 APFJPA EQU APFPDATA 01792000 APFLPA EQU APFPDATA 01793000 APFREGS EQU APFPDATA 01794000 APFSAVE2 EQU APFPDATA 01795000 APFSAVE EQU APFPDATA 01796000 @NM00023 EQU APFSDAT1 01797000 APFERR EQU APFSDAT1 01798000 APFIO EQU APFSDAT1 01799000 APFDM EQU APFSDATA 01800000 APFQCB EQU APFSDATA 01801000 APFSUPDA EQU APFSDATA 01802000 APFTRACE EQU APFSDATA 01803000 APFSWA EQU APFSDATA 01804000 APFLSQA EQU APFSDATA 01805000 APFSQA EQU APFSDATA 01806000 APFNUC EQU APFSDATA 01807000 @NM00022 EQU ABDPARMS+2 01808000 APFHDR EQU ABDFLAG 01809000 APFSNAPP EQU ABDFLAG 01810000 APFTCB EQU ABDFLAG 01811000 APFID EQU ABDFLAG 01812000 APFABEND EQU ABDFLAG 01813000 APFENVS2 EQU ABDFLAG 01814000 APFVS2 EQU ABDFLAG 01815000 APFSNAP EQU ABDFLAG 01816000 ABDPID EQU ABDPARMS 01817000 ABDCRB EQU ABDAREA+8 01818000 ABDCTCB EQU ABDAREA+4 01819000 ABDTCB EQU ABDAREA 01820000 @NM00001 EQU TRTYPE 01821000 @NM00073 EQU PSA+3668 01822000 PSASTAK EQU PSA+3072 01823000 @NM00072 EQU PSA+1048 01824000 PSAUSEND EQU PSA+1048 01825000 PSARV062 EQU PSA+1044 01826000 PSACDAL EQU PSA+1040 01827000 PSAWTCOD EQU PSA+1036 01828000 PSAATCVT EQU PSA+1032 01829000 PSAPCPSW EQU PSA+1024 01830000 PSAPIR2 EQU PSA+1020 01831000 PSARV059 EQU PSA+1018 01832000 PSASVC13 EQU PSA+1016 01833000 PSALSFCC EQU PSA+1012 01834000 PSASFACC EQU PSA+1008 01835000 PSASTOP EQU PSA+992 01836000 PSASTART EQU PSA+976 01837000 PSARSPSW EQU PSA+968 01838000 PSASRPSW EQU PSA+960 01839000 PSARV045 EQU PSA+892 01840000 PSARV044 EQU PSA+888 01841000 PSARV043 EQU PSA+884 01842000 PSARV042 EQU PSA+880 01843000 PSARV041 EQU PSA+876 01844000 PSARV040 EQU PSA+872 01845000 PSARV025 EQU PSA+868 01846000 PSADSSED EQU PSA+868 01847000 PSADSSPR EQU PSA+864 01848000 PSADSSFW EQU PSA+860 01849000 PSADSS14 EQU PSA+856 01850000 PSADSSPP EQU PSA+848 01851000 PSADSSRP EQU PSA+840 01852000 PSADSS05 EQU PSADSSF4 01853000 PSADSS10 EQU PSADSSF4 01854000 PSADSSVE EQU PSADSSF4 01855000 PSADSSDE EQU PSADSSF4 01856000 PSADSSC0 EQU PSADSSF4 01857000 PSADSSIE EQU PSADSSF4 01858000 PSADSS12 EQU PSADSSF4 01859000 PSADSSRC EQU PSADSSF4 01860000 PSARV057 EQU PSADSSF3 01861000 PSARV056 EQU PSADSSF3 01862000 PSARV055 EQU PSADSSF3 01863000 PSADSSMC EQU PSADSSF3 01864000 PSADSSRW EQU PSADSSF3 01865000 PSADSSNM EQU PSADSSF3 01866000 PSADSSES EQU PSADSSF3 01867000 PSADSSGP EQU PSADSSF3 01868000 PSADSSF2 EQU PSADSSFL+1 01869000 PSADSSPI EQU PSADSSF1 01870000 PSADSSOI EQU PSADSSF1 01871000 PSADSSSP EQU PSADSSF1 01872000 PSADSSTP EQU PSADSSF1 01873000 PSADSSDW EQU PSADSSF1 01874000 PSADSSDD EQU PSADSSF1 01875000 PSADSSDM EQU PSADSSF1 01876000 PSADSSMV EQU PSADSSF1 01877000 PSADSSTS EQU PSA+816 01878000 PSADSSWK EQU PSA+812 01879000 PSADSSR3 EQU PSA+808 01880000 PSADSSR2 EQU PSA+804 01881000 PSADSSRS EQU PSA+800 01882000 PSASTOR EQU PSA+796 01883000 PSACPUSA EQU PSA+794 01884000 PSAVSTAP EQU PSA+792 01885000 PSAWKVAP EQU PSA+788 01886000 PSAWKRAP EQU PSA+784 01887000 PSAMCHIC EQU PSA+783 01888000 PSARV061 EQU PSA+782 01889000 PSASYMSK EQU PSA+781 01890000 PSAMCHFL EQU PSA+780 01891000 PSACR0 EQU PSA+776 01892000 PSAPSWSV EQU PSA+768 01893000 PSALITA EQU PSA+764 01894000 PSACLHS EQU PSAHLHI 01895000 PSALKR15 EQU PSALKSA+60 01896000 PSALKR14 EQU PSALKSA+56 01897000 PSALKR13 EQU PSALKSA+52 01898000 PSALKR12 EQU PSALKSA+48 01899000 PSALKR11 EQU PSALKSA+44 01900000 PSALKR10 EQU PSALKSA+40 01901000 PSALKR9 EQU PSALKSA+36 01902000 PSALKR8 EQU PSALKSA+32 01903000 PSALKR7 EQU PSALKSA+28 01904000 PSALKR6 EQU PSALKSA+24 01905000 PSALKR5 EQU PSALKSA+20 01906000 PSALKR4 EQU PSALKSA+16 01907000 PSALKR3 EQU PSALKSA+12 01908000 PSALKR2 EQU PSALKSA+8 01909000 PSALKR1 EQU PSALKSA+4 01910000 PSALKR0 EQU PSALKSA 01911000 PSARV023 EQU PSACLHT+52 01912000 PSALOCAL EQU PSACLHT+48 01913000 PSACMSL EQU PSACLHT+44 01914000 PSAOPTL EQU PSACLHT+40 01915000 PSATPACL EQU PSACLHT+36 01916000 PSATPDNL EQU PSACLHT+32 01917000 PSATPNCL EQU PSACLHT+28 01918000 PSAIOSLL EQU PSACLHT+24 01919000 PSAIOSUL EQU PSACLHT+20 01920000 PSAIOSCL EQU PSACLHT+16 01921000 PSAIOSSL EQU PSACLHT+12 01922000 PSASALCL EQU PSACLHT+8 01923000 PSAASML EQU PSACLHT+4 01924000 PSADISPL EQU PSACLHT 01925000 PSASRSA EQU PSA+636 01926000 PSARV050 EQU PSA+634 01927000 PSADSSGO EQU PSA+633 01928000 PSARECUR EQU PSA+632 01929000 PSAHLHIS EQU PSA+628 01930000 PSAIPCSA EQU PSA+624 01931000 @NM00071 EQU PSA+621 01932000 PSAIPCDM EQU PSA+620 01933000 PSAIPCD EQU PSA+616 01934000 @NM00070 EQU PSA+613 01935000 PSAIPCRM EQU PSA+612 01936000 PSAIPCR EQU PSA+608 01937000 PSAMCHEX EQU PSA+600 01938000 PSAMPSW EQU PSA+592 01939000 PSAEXPS2 EQU PSA+584 01940000 PSAEXPS1 EQU PSA+576 01941000 PSAPIREG EQU PSA+572 01942000 PSARSREG EQU PSA+568 01943000 PSAGPREG EQU PSA+556 01944000 PSARV022 EQU PSASUP4 01945000 PSARV021 EQU PSASUP4 01946000 PSARV020 EQU PSASUP4 01947000 PSARV019 EQU PSASUP4 01948000 PSARV018 EQU PSASUP4 01949000 PSARV017 EQU PSASUP4 01950000 PSARV016 EQU PSASUP4 01951000 PSARV015 EQU PSASUP4 01952000 PSARV014 EQU PSASUP3 01953000 PSARV013 EQU PSASUP3 01954000 PSARV012 EQU PSASUP3 01955000 PSAESTA EQU PSASUP3 01956000 PSASPR EQU PSASUP3 01957000 PSAPSREG EQU PSASUP3 01958000 PSAPI2 EQU PSASUP3 01959000 PSAIOSUP EQU PSASUP3 01960000 PSALCR EQU PSASUP2 01961000 PSARTM EQU PSASUP2 01962000 PSAACR EQU PSASUP2 01963000 PSAIPCE2 EQU PSASUP2 01964000 PSAIPCES EQU PSASUP2 01965000 PSAIPCEC EQU PSASUP2 01966000 PSAGTF EQU PSASUP2 01967000 PSAIPCRI EQU PSASUP2 01968000 PSATYPE6 EQU PSASUP1 01969000 PSATCTL EQU PSASUP1 01970000 PSADISP EQU PSASUP1 01971000 PSALOCK EQU PSASUP1 01972000 PSAPI EQU PSASUP1 01973000 PSAEXT EQU PSASUP1 01974000 PSASVC EQU PSASUP1 01975000 PSAIO EQU PSASUP1 01976000 PSAAOLD EQU PSA+548 01977000 PSAANEW EQU PSA+544 01978000 PSATOLD EQU PSA+540 01979000 PSATNEW EQU PSA+536 01980000 PSALCCAR EQU PSA+532 01981000 PSALCCAV EQU PSA+528 01982000 PSAPCCAR EQU PSA+524 01983000 PSAPCCAV EQU PSA+520 01984000 PSACPULA EQU PSA+518 01985000 PSACPUPA EQU PSA+516 01986000 PSAPSA EQU PSA+512 01987000 FLCHDEND EQU PSA+512 01988000 FLCCRSAV EQU FLCMCLA+280 01989000 FLCGRSAV EQU FLCMCLA+216 01990000 FLCFPSAV EQU FLCMCLA+184 01991000 FLCFLA EQU FLCMCLA+88 01992000 FLCRGNCD EQU FLCMCLA+84 01993000 FLCFSAA EQU FLCFSA+1 01994000 @NM00069 EQU FLCFSA 01995000 @NM00068 EQU FLCMCLA+72 01996000 FLCMCIC EQU FLCMCLA+64 01997000 @NM00067 EQU FLCMCLA+20 01998000 FLCIOAA EQU FLCIOA+1 01999000 @NM00066 EQU FLCIOA 02000000 @NM00065 EQU FLCMCLA+15 02001000 @NM00064 EQU FLCMCLA+14 02002000 @NM00063 EQU FLCMCLA+12 02003000 FLCLCL EQU FLCMCLA+8 02004000 FLCIOELA EQU FLCIOEL+1 02005000 @NM00062 EQU FLCIOEL 02006000 FLCCHNID EQU FLCMCLA 02007000 @NM00061 EQU PSA+160 02008000 FLCMTRCD EQU PSA+157 02009000 @NM00060 EQU PSA+156 02010000 FLCPERA EQU FLCPER+1 02011000 @NM00059 EQU FLCPER 02012000 @NM00058 EQU PSA+151 02013000 FLCPERCD EQU PSA+150 02014000 FLCMCNUM EQU PSA+149 02015000 @NM00057 EQU PSA+148 02016000 FLCTEAA EQU FLCTEA+1 02017000 @NM00056 EQU FLCTEA 02018000 PSAPIPC EQU PSAPICOD 02019000 PSAPIMC EQU PSAPICOD 02020000 PSAPIPER EQU PSAPICOD 02021000 PSARV049 EQU FLCPICOD 02022000 FLCPILCB EQU FLCPIILC 02023000 @NM00055 EQU FLCPIILC 02024000 @NM00054 EQU PSAEPPSW 02025000 FLCSVCN EQU PSAESPSW+2 02026000 FLCSILCB EQU FLCSVILC 02027000 @NM00053 EQU FLCSVILC 02028000 @NM00052 EQU PSAESPSW 02029000 FLCEICOD EQU PSAEEPSW+2 02030000 PSASPAD EQU PSAEEPSW 02031000 @NM00051 EQU PSA+128 02032000 FLCINPSW EQU PSA+120 02033000 FLCMNPSW EQU PSA+112 02034000 FLCPNPSW EQU PSA+104 02035000 FLCSNPSW EQU PSA+96 02036000 FLCENPSW EQU PSA+88 02037000 FLCTRACE EQU PSA+84 02038000 FLCTIMER EQU PSA+80 02039000 FLCCVT2 EQU PSA+76 02040000 FLCCAW EQU PSA+72 02041000 FLCCSW EQU PSA+64 02042000 FLCIOPSW EQU PSA+56 02043000 FLCMOPSW EQU PSA+48 02044000 FLCPOPSW EQU PSA+40 02045000 FLCSOPSW EQU PSA+32 02046000 FLCEOPSW EQU PSA+24 02047000 @NM00050 EQU FLCICCW2+4 02048000 FLCCVT EQU FLCICCW2 02049000 FLCICCW1 EQU FLCROPSW 02050000 FLCIPPSW EQU FLCRNPSW 02051000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02052000 @RT00085 EQU FREEBUF 02053000 @RT00096 EQU FREEBUF 02054000 @RT00102 EQU FREEBUF 02055000 @RT00105 EQU FREEBUF 02056000 @RT00108 EQU FREEBUF 02057000 @RT00157 EQU FREEBUF 02058000 @ENDDATA EQU * 02059000 END IEAVAD0C,(C'PLS1951',0701,77049) 02060000