TITLE 'IEAVAD02 - HEADER *00001000 ' 00002000 IEAVAD02 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVAD02 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 * ADDRESS OF THE UCB. DURING 0062 00022000 * ALLOCATION, BITS 0-11 CONTAIN 00023000 * OFFSET, IN THE UCB LOOK-UP 0062 00024000 * TABLE, TO AN ADDRESS FOR A 0062 00025000 * DEVICE REQUIRED OR ELIGIBLE 0062 00026000 * FOR THIS DATA SET. THE UCB 0062 00027000 * LOOK-UP TABLE HAS ADDRESSES OF 00028000 * UCB'S. BITS 12-23 CONTAIN 0062 00029000 * OFFSET, IN THE STEP VOLUME 0062 00030000 * TABLE (VOLT) TO THE VOLUME 0062 00031000 * SERIAL NUMBER FOR THE VOLUME 00032000 * REQUIRED OR ELIGIBLE FOR THIS 00033000 * DATA SET. */ 00034000 * 0062 00035000 * /*****************************************************************/ 00036000 * /* */ 00037000 * /* INITIALIZATION ON ENTRY FIRST THE ADDRESSING REGISTERS ARE */ 00038000 * /* INITIALIZED, THEN A SAVE AREA FOR THE REGISTER SAVE AREA AND */ 00039000 * /* AUTOMATIC DATA AREA IS OBTAINED FROM LSQA. THE ADDRESS OF THE */ 00040000 * /* AREA IS RETURNED IN ABDGMA, AND THE ADDRESS OF THE GETMAIN */ 00041000 * /* PARAMETER LIST IS PASSED IN REGISTER 1. NEXT THE SAVE AREAS */ 00042000 * /* ARE CHAINED, AND THE TEMPORARY WORK AREA IS CLEARED TO ZEROS */ 00043000 * /* SO THAT THE BOUNDARY ADJUSTMENT MOVES CAN BE DONE PROPERLY. */ 00044000 * /* */ 00045000 * /*****************************************************************/ 00046000 * 0063 00047000 * ABDARPTR=PARMPTR; /* THE ABDAREA POINTER IS 0063 00048000 * INITIALIZED FROM THE VALUE IN 00049000 * REGISTER 1 */ 00050000 LR ABDARPTR,PARMPTR 0063 00051000 * TCBPTR=ABDTCB; /* THE TCBPTR IS THE TCB OF THE 00052000 * TASK TO BE DISPLAYED */ 00053000 L TCBPTR,ABDTCB(,ABDARPTR) 0064 00054000 * TIOTPTR=TCBTIO; /* THE TIOT IS LOCATED FROM THE 00055000 * TCB */ 00056000 L TIOTPTR,TCBTIO(,TCBPTR) 0065 00057000 * PARMPTR=ADDR(ABDASIZE); /* REGISTER 1 POINTS TO THE 0066 00058000 * GETMAIN PARAMETER LIST */ 00059000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0066 00060000 * GENERATE; 0067 00061000 GETMAIN EC,LV=@ENDDATD-@DATD+72, *00062000 SP=253, *00063000 A=ABDGMA(ABDARPTR), *00064000 MF=(E,(1)) 00065000 * IF RETCODE^=0 /* IF GETMAIN IS UNSUCCESSFUL */ 00066000 * THEN /* RETURN IMMEDIATELY. */ 00067000 LTR RETCODE,RETCODE 0068 00068000 BZ @RF00068 0068 00069000 * DO; /* @Y02705*/ 00070000 * RETCODE=8; /* GETMAIN UNSUCESSFUL @Y02705*/ 00071000 LA RETCODE,8 0070 00072000 * RETURN; /* OTHERWISE CONTINUE */ 00073000 @EL00001 DS 0H 0071 00074000 @EF00001 DS 0H 0071 00075000 @ER00001 L @14,12(,@13) 0071 00076000 LM @00,@12,20(@13) 0071 00077000 BR @14 0071 00078000 * END; /* @Y02705*/ 00079000 * ELSE /* @Y02705*/ 00080000 * DO; /* @Y02705*/ 00081000 @RF00068 DS 0H 0074 00082000 * PARMPTR=ABDAAREA; /* USE PARMPTR AS TEMPORARY 0074 00083000 * POINTER TO SAVE AREA */ 00084000 L PARMPTR,ABDAAREA(,ABDARPTR) 0074 00085000 * NEXSAPTR=PARMPTR; /* INITIALIZE NEXT SAVE AREA 0075 00086000 * POINTER IN OLD SAVE AREA */ 00087000 ST PARMPTR,NEXSAPTR(,SAVEPTR) 0075 00088000 * PRESAPTR=SAVEPTR; /* INITIALIZE PREVIOUS SAVE AREA 00089000 * POINTER IN NEW AREA */ 00090000 ST SAVEPTR,PRESAPTR(,PARMPTR) 0076 00091000 * SAVEPTR=PARMPTR; /* SET SAVE REGISTER TO NEW SAVE 00092000 * AREA ADDRESS */ 00093000 LR SAVEPTR,PARMPTR 0077 00094000 * AUTOPTR=SAVEPTR+72; /* SET UP AUTOMATIC DATA 0078 00095000 * ADDRESSABILITY BEYOND SAVE 0078 00096000 * AREA */ 00097000 LA AUTOPTR,72 0078 00098000 ALR AUTOPTR,SAVEPTR 0078 00099000 * GENERATE; 0079 00100000 * 0079 00101000 USING @DATD,AUTOPTR ESTABLISH ADDRESSABILITY 00102000 XC 0(@ENDDATD-@DATD,AUTOPTR),0(AUTOPTR) ZERO TEMP SPACE 00103000 * /*************************************************************/ 00104000 * /* */ 00105000 * /* LINE 1- HEADER- FIRST THE JOB NAME AND STEP NAME ARE */ 00106000 * /* FORMATTED ASSUMING ABDLINE IS BLANK TO START */ 00107000 * /* */ 00108000 * /*************************************************************/ 00109000 * 0080 00110000 * ABDLINEA(1:4)=JOBMSG; /* SET THE CONTROL CHARACTER AND 00111000 * JOB LABEL */ 00112000 MVC ABDLINEA(4,ABDARPTR),JOBMSG 0080 00113000 * ABDLINEA(6:13)=TIOCNJOB; /* MOVE IN JOB NAME FROM TIOT */ 00114000 MVC ABDLINEA+5(8,ABDARPTR),TIOCNJOB(TIOTPTR) 0081 00115000 * ABDLINEA(23:26)=STEPMSG; /* SET THE STEP LABEL */ 00116000 MVC ABDLINEA+22(4,ABDARPTR),STEPMSG 0082 00117000 * ABDLINEA(28:35)=TIOCSTEP; /* MOVE IN STEP NAME */ 00118000 * 0083 00119000 MVC ABDLINEA+27(8,ABDARPTR),TIOCSTEP(TIOTPTR) 0083 00120000 * /*************************************************************/ 00121000 * /* */ 00122000 * /* NEXT THE TIME AND DATE ARE FORMATTED */ 00123000 * /* */ 00124000 * /*************************************************************/ 00125000 * 0084 00126000 * GEN(TIME DEC); /* GET THE TIME IN REGISTER 0 AND 00127000 * THE DATE IN REGISTER 1 */ 00128000 * 0084 00129000 TIME DEC 00130000 * /*************************************************************/ 00131000 * /* */ 00132000 * /* MOVE TIME AND DATE TO WORK AREA ON WORD BOUNDARY */ 00133000 * /* */ 00134000 * /*************************************************************/ 00135000 * 0085 00136000 * GEN(STM @00,@01,ABDWORK1(ABDARPTR)); 0085 00137000 * 0085 00138000 STM @00,@01,ABDWORK1(ABDARPTR) 00139000 * /*************************************************************/ 00140000 * /* */ 00141000 * /* ABDWORK1(1:8)='HHMMSSTH00YYDDDG' */ 00142000 * /* */ 00143000 * /*************************************************************/ 00144000 * 0086 00145000 * ABDBPTR=ADDR(ABDWORK1); /* SET UP BLOCK POINTER */ 00146000 LA @10,ABDWORK1(,ABDARPTR) 0086 00147000 ST @10,ABDBPTR(,ABDARPTR) 0086 00148000 * ABDLLINE=ADDR(TIMELINE); /* SET UP LAYOUT POINTER */ 00149000 LA @10,TIMELINE 0087 00150000 ST @10,ABDLLINE(,ABDARPTR) 0087 00151000 * PARMPTR=ABDARPTR; /* SET UP PARAMETER REGISTER */ 00152000 LR PARMPTR,ABDARPTR 0088 00153000 * CALL IEAVAD31; /* FORMAT THE TIME AND DATE */ 00154000 * 0089 00155000 L @15,@CV02287 0089 00156000 BALR @14,@15 0089 00157000 * /*************************************************************/ 00158000 * /* */ 00159000 * /* ABDLINEA(44:68)='TIME HHMMSS DATE YYDDDG' */ 00160000 * /* */ 00161000 * /*************************************************************/ 00162000 * 0090 00163000 * ABDLINEA(68)=' '; /* BLANK OUT GARBAGE SIGN BYTE */ 00164000 * 0090 00165000 MVI ABDLINEA+67(ABDARPTR),C' ' 0090 00166000 * /*************************************************************/ 00167000 * /* */ 00168000 * /* ABDLINEA(44:68)='TIME HHMMSS DATE YYDDD ' */ 00169000 * /* */ 00170000 * /*************************************************************/ 00171000 * 0091 00172000 * IF RETCODE^=0 /* RETURN WITH CODE=8 */ 00173000 * THEN 0091 00174000 LTR RETCODE,RETCODE 0091 00175000 BNZ @RT00091 0091 00176000 * GO TO FREERET; 0092 00177000 * 0092 00178000 * /*************************************************************/ 00179000 * /* */ 00180000 * /* NEXT THE USER SUPPLIED ID IS FORMATTED */ 00181000 * /* */ 00182000 * /*************************************************************/ 00183000 * 0093 00184000 * IF APFID='1'B /* IF AN ID WAS SUPPLIED */ 00185000 * THEN /* PUT THE ID IN THE HEADER */ 00186000 TM APFID(ABDARPTR),B'00001000' 0093 00187000 BNO @RF00093 0093 00188000 * DO; 0094 00189000 * ABDLINEA(72:75)=IDMSG; /* PUT IN LABEL */ 00190000 MVC ABDLINEA+71(4,ABDARPTR),IDMSG 0095 00191000 * CONVERT=ABDPID; /* PUT ID BYTE INTO REGISTER */ 00192000 SLR CONVERT,CONVERT 0096 00193000 IC CONVERT,ABDPID(,ABDARPTR) 0096 00194000 * GEN(CVD CONVERT,ABDWORK1(ABDARPTR)); 0097 00195000 * 0097 00196000 CVD CONVERT,ABDWORK1(ABDARPTR) 00197000 * /*********************************************************/ 00198000 * /* */ 00199000 * /* ABDWORK1(1:8)='000000000000NNNS' */ 00200000 * /* */ 00201000 * /*********************************************************/ 00202000 * 0098 00203000 * GEN(UNPK ABDLINEA+76(3,ABDARPTR),ABDWORK1+6(2,ABDARPTR)); 00204000 * 0098 00205000 UNPK ABDLINEA+76(3,ABDARPTR),ABDWORK1+6(2,ABDARPTR) 00206000 * /*********************************************************/ 00207000 * /* */ 00208000 * /* ABDLINEA(77:79)='NNG' */ 00209000 * /* */ 00210000 * /*********************************************************/ 00211000 * 0099 00212000 * ABDLINEA(79)=ABDLINEA(79)|'11110000'B; 0099 00213000 * 0099 00214000 OI ABDLINEA+78(ABDARPTR),B'11110000' 0099 00215000 * /*********************************************************/ 00216000 * /* */ 00217000 * /* ABDLINEA(77:79)='NNN' */ 00218000 * /* */ 00219000 * /*********************************************************/ 00220000 * 0100 00221000 * END; /* END IF ID PROCESSING */ 00222000 * 0100 00223000 * /*************************************************************/ 00224000 * /* */ 00225000 * /* NEXT THE PAGE NUMBER IS FORMATTED AND THE FIRST LINE IS */ 00226000 * /* DISPLAYED. IF WRITING 204 CHARACTER LINES, THE @Z40MPXG*/ 00227000 * /* PAGE NUMBER IS SET AT END. OTHERWISE 120 CHAR. @Z40MPXG*/ 00228000 * /* LINE LENGTH IS ASSUMED. @Z40MPXG*/ 00229000 * /* @Z40MPXG*/ 00230000 * /* */ 00231000 * /*************************************************************/ 00232000 * 0101 00233000 * ABDSAVHD(1:79)=ABDLINE(1:79);/* SAVE HEADER LINE @G33SPHW*/ 00234000 @RF00093 MVC ABDSAVHD(79,ABDARPTR),ABDLINE(ABDARPTR) 0101 00235000 * IF ABDLLNGH=204 THEN /* IF LONG PAGE THEN @Z40MPXG*/ 00236000 CLI ABDLLNGH(ABDARPTR),204 0102 00237000 BNE @RF00102 0102 00238000 * ABDLINEA(195:203)=PAGEMSG;/* SET PAGE AT END @Z40MPXG*/ 00239000 MVC ABDLINEA+194(9,ABDARPTR),PAGEMSG 0103 00240000 * ELSE /* OTHERWISE SET AT @Z40MPXG*/ 00241000 * ABDLINEA(111:119)=PAGEMSG;/* END OF SHORT LINE @Z40MPXG*/ 00242000 B @RC00102 0104 00243000 @RF00102 MVC ABDLINEA+110(9,ABDARPTR),PAGEMSG 0104 00244000 * CALL IEAVAD11; /* OUTPUT THE LINE */ 00245000 @RC00102 L @15,@CV02299 0105 00246000 BALR @14,@15 0105 00247000 * RESPECIFY 0106 00248000 * CVTPTR RESTRICTED; /* @Y02705*/ 00249000 * CVTPTR=FLCCVT; /* GET CVT ADDR @Y02705*/ 00250000 * 0107 00251000 L CVTPTR,FLCCVT 0107 00252000 * /*************************************************************/ 00253000 * /* */ 00254000 * /* @Y02705*/ 00255000 * /* LINE 2- COMPLETION CODE- IF THIS IS AN ABEND CALL THE */ 00256000 * /* COMPLETION CODE IS FORMATTED AND DISPLAYED ON LINE 2 */ 00257000 * /* */ 00258000 * /*************************************************************/ 00259000 * 0108 00260000 * IF APFABEND='0'B /* IF ABEND IS THE CALLER PUT */ 00261000 * THEN /* OUT THE COMPLETION CODE */ 00262000 TM APFABEND(ABDARPTR),B'00010000' 0108 00263000 BNZ @RF00108 0108 00264000 * DO; 0109 00265000 * ABDLINEA(1:16)=CMPMSG; /* INITIALIZE COMPLETION MSG */ 00266000 MVC ABDLINEA(16,ABDARPTR),CMPMSG 0110 00267000 * SYSTEM=0; /* SET REGISTER TO ZERO */ 00268000 SLR SYSTEM,SYSTEM 0111 00269000 * USER=TCBCMPC; /* GET CODES INTO REGISTER */ 00270000 * 0112 00271000 SLR USER,USER 0112 00272000 ICM USER,7,TCBCMPC(TCBPTR) 0112 00273000 * /*********************************************************/ 00274000 * /* */ 00275000 * /* SYSTEM='00000000' USER='00SSSUUU' */ 00276000 * /* */ 00277000 * /*********************************************************/ 00278000 * 0113 00279000 * GEN(SLDL SYSTEM,20); /* ISOLATE CODES */ 00280000 * 0113 00281000 SLDL SYSTEM,20 00282000 * /*********************************************************/ 00283000 * /* */ 00284000 * /* SYSTEM='00000SSS' USER='UUU00000' */ 00285000 * /* */ 00286000 * /*********************************************************/ 00287000 * 0114 00288000 * IF SYSTEM=0 /* ONE OF THE CODES MUST BE 0 */ 00289000 * THEN 0114 00290000 LTR SYSTEM,SYSTEM 0114 00291000 BNZ @RF00114 0114 00292000 * DO; /* FORMAT THE USER CODE IN 0115 00293000 * DECIMAL */ 00294000 * GEN(SRL USER,20); /* REALIGN USER CODE */ 00295000 * 0116 00296000 SRL USER,20 00297000 * /*****************************************************/ 00298000 * /* */ 00299000 * /* USER='00000UUU' */ 00300000 * /* */ 00301000 * /*****************************************************/ 00302000 * 0117 00303000 * GEN(CVD USER,ABDWORK1(ABDARPTR)); 0117 00304000 * 0117 00305000 CVD USER,ABDWORK1(ABDARPTR) 00306000 * /*****************************************************/ 00307000 * /* */ 00308000 * /* ABDWORK1(1:8)=00000000000UUUUS' */ 00309000 * /* */ 00310000 * /*****************************************************/ 00311000 * 0118 00312000 * ABDBPTR=ADDR(ABDWORK1)+5;/* INITIALIZE FOR FORMAT */ 00313000 LA @00,ABDWORK1(,ABDARPTR) 0118 00314000 AH @00,@CH00052 0118 00315000 ST @00,ABDBPTR(,ABDARPTR) 0118 00316000 * ABDLLINE=ADDR(CMPLINE2); 0119 00317000 LA @00,CMPLINE2 0119 00318000 ST @00,ABDLLINE(,ABDARPTR) 0119 00319000 * CALL IEAVAD31; /* FORMAT THE USER CODE */ 00320000 L @15,@CV02287 0120 00321000 BALR @14,@15 0120 00322000 * IF RETCODE^=0 /* RETURN WITH CODE=4 */ 00323000 * THEN 0121 00324000 LTR RETCODE,RETCODE 0121 00325000 BNZ @RT00121 0121 00326000 * GO TO FREERET; 0122 00327000 * 0122 00328000 * /*****************************************************/ 00329000 * /* */ 00330000 * /* ABDLINEA(23:34)='USER =GNNNNG' */ 00331000 * /* */ 00332000 * /*****************************************************/ 00333000 * 0123 00334000 * ABDLINEA(29)=' '; /* BLANK OUT GARBAGE BYTE */ 00335000 MVI ABDLINEA+28(ABDARPTR),C' ' 0123 00336000 * ABDLINEA(34)=' '; /* BLANK OUT GARBAGE BYTE */ 00337000 * 0124 00338000 MVI ABDLINEA+33(ABDARPTR),C' ' 0124 00339000 * /*****************************************************/ 00340000 * /* */ 00341000 * /* ABDLINEA(23:34)='USER = NNNN ' */ 00342000 * /* */ 00343000 * /*****************************************************/ 00344000 * 0125 00345000 * END; /* END OF USER FORMATTING */ 00346000 * ELSE /* FORMAT THE SYSTEM CODE */ 00347000 * DO; 0126 00348000 B @RC00114 0126 00349000 @RF00114 DS 0H 0127 00350000 * GEN(SLL SYSTEM,12); 0127 00351000 * 0127 00352000 SLL SYSTEM,12 00353000 * /*****************************************************/ 00354000 * /* */ 00355000 * /* SYSTEM='00SSS000' */ 00356000 * /* */ 00357000 * /*****************************************************/ 00358000 * 0128 00359000 * ABDWRK11=SYSTEM; /* ABDWORK1(1:4)='00SSS000' */ 00360000 ST SYSTEM,ABDWRK11(,ABDARPTR) 0128 00361000 * ABDBPTR=ADDR(ABDWORK1)+1;/* INITIALIZE FOR FORMAT */ 00362000 LA @00,ABDWORK1(,ABDARPTR) 0129 00363000 AH @00,@CH00067 0129 00364000 ST @00,ABDBPTR(,ABDARPTR) 0129 00365000 * ABDLLINE=ADDR(CMPLINE1); 0130 00366000 LA @00,CMPLINE1 0130 00367000 ST @00,ABDLLINE(,ABDARPTR) 0130 00368000 * CALL IEAVAD31; /* FORMAT THE SYSTEM CODE */ 00369000 L @15,@CV02287 0131 00370000 BALR @14,@15 0131 00371000 * IF RETCODE^=0 /* RETURN WITH CODE=4 */ 00372000 * THEN 0132 00373000 LTR RETCODE,RETCODE 0132 00374000 BNZ @RT00132 0132 00375000 * GO TO FREERET; 0133 00376000 * 0133 00377000 * /*****************************************************/ 00378000 * /* */ 00379000 * /* ABDLINEA(23:35)='SYSTEM = NNNG' */ 00380000 * /* */ 00381000 * /*****************************************************/ 00382000 * 0134 00383000 * ABDLINEA(35)=' '; 0134 00384000 * 0134 00385000 MVI ABDLINEA+34(ABDARPTR),C' ' 0134 00386000 * /*****************************************************/ 00387000 * /* */ 00388000 * /* ABDLINEA(23:35)='SYSTEM = NNN ' */ 00389000 * /* */ 00390000 * /*****************************************************/ 00391000 * 0135 00392000 * END; /* END OF SYSTEM FORMATTING */ 00393000 * CALL IEAVAD11; /* OUTPUT LINE 2 */ 00394000 @RC00114 L @15,@CV02299 0136 00395000 BALR @14,@15 0136 00396000 * END; /* END OF COMPLETION CODE */ 00397000 * 0137 00398000 * /*************************************************************/ 00399000 * /* */ 00400000 * /* @Y02705*/ 00401000 * /* END OF ROUTINE PROCESSING */ 00402000 * /* */ 00403000 * /*************************************************************/ 00404000 * 0138 00405000 *FREERET: 0138 00406000 * SAVERET=RETCODE; /* SET UP RETURN CODE */ 00407000 * 0138 00408000 @RF00108 DS 0H 0138 00409000 FREERET LR SAVERET,RETCODE 0138 00410000 * /*************************************************************/ 00411000 * /* */ 00412000 * /* SET UP FREEMAIN LIST REGISTER */ 00413000 * /* */ 00414000 * /*************************************************************/ 00415000 * 0139 00416000 * PARMPTR=ADDR(ABDASIZE); 0139 00417000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0139 00418000 * ABDAAREA=SAVEPTR; /* SET UP ADDRESS TO FREE */ 00419000 ST SAVEPTR,ABDAAREA(,ABDARPTR) 0140 00420000 * SAVEPTR=SAVEPTR->PRESAPTR; /* SET UP PREVIOUS SAVE AREA */ 00421000 L SAVEPTR,PRESAPTR(,SAVEPTR) 0141 00422000 * NEXSAPTR=0; /* CLEAR POINTER TO AREA TO BE 0142 00423000 * FREED */ 00424000 SLR @00,@00 0142 00425000 ST @00,NEXSAPTR(,SAVEPTR) 0142 00426000 * GENERATE; 0143 00427000 FREEMAIN E,LV=@ENDDATD-@DATD+72, *00428000 SP=253, *00429000 A=ABDGMA(ABDARPTR), *00430000 MF=(E,(1)) 00431000 * RETCODE=SAVERET; /* SET UP RETURN CODE */ 00432000 LR RETCODE,SAVERET 0144 00433000 * END; /* @Y02705*/ 00434000 * DCL 0146 00435000 * PATCHLOC FIXED(31) STATIC; 0146 00436000 * GEN DATA DEFS(PATCHLOC); 0147 00437000 * DECLARE /* COMMON VARIABLES */ 00438000 * I256C CHAR(256) BASED, 0148 00439000 * I031F FIXED(31) BASED, 0148 00440000 * I031P PTR(31) BASED, 0148 00441000 * I015F FIXED(15) BASED, 0148 00442000 * I015P PTR(15) BASED, 0148 00443000 * I008P PTR(8) BASED, 0148 00444000 * I001C CHAR(1) BASED; /* @Y02705*/ 00445000 * END IEAVAD02 0149 00446000 * 0149 00447000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00448000 */*%INCLUDE SYSLIB (IHAABDA ) */ 00449000 */*%INCLUDE SYSLIB (CVT ) */ 00450000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00451000 */*%INCLUDE SYSLIB (IHARTCT ) */ 00452000 */*%INCLUDE SYSLIB (IHARB ) */ 00453000 */*%INCLUDE SYSLIB (IKJRB ) */ 00454000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00455000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 00456000 * 0149 00457000 * ; 0149 00458000 B @EL00001 0149 00459000 @DATA DS 0H 00460000 @CH00067 DC H'1' 00461000 @CH00052 DC H'5' 00462000 @DATD DSECT 00463000 DS 0F 00464000 IEAVAD02 CSECT 00465000 DS 0F 00466000 @DATD DSECT 00467000 DS 0D 00468000 IEAVAD02 CSECT 00469000 DS 0F 00470000 @SIZDATD DC AL1(0) 00471000 DC AL3(@ENDDATD-@DATD) 00472000 @CV02287 DC V(IEAVAD31) 00473000 @CV02299 DC V(IEAVAD11) 00474000 DS 0D 00475000 TIMELINE DS CL14 00476000 ORG TIMELINE 00477000 @NM00001 DC X'2A3201' 00478000 @NM00002 DC CL4'TIME' 00479000 @NM00003 DC X'3251' 00480000 @NM00004 DC CL4'DATE' 00481000 @NM00005 DC X'FF' 00482000 ORG TIMELINE+14 00483000 CMPLINE1 DS CL12 00484000 ORG CMPLINE1 00485000 @NM00006 DC X'157101' 00486000 @NM00007 DC CL8'SYSTEM =' 00487000 @NM00008 DC X'FF' 00488000 ORG CMPLINE1+12 00489000 CMPLINE2 DS CL10 00490000 ORG CMPLINE2 00491000 @NM00009 DC X'155200' 00492000 @NM00010 DC CL6'USER =' 00493000 @NM00011 DC X'FF' 00494000 ORG CMPLINE2+10 00495000 JOBMSG DC CL4'1JOB' 00496000 STEPMSG DC CL4'STEP' 00497000 PAGEMSG DC CL9'PAGE 0001' 00498000 IDMSG DC CL4'ID =' 00499000 CMPMSG DC CL16'0COMPLETION CODE' 00500000 ABEND DC CL5'ABEND' 00501000 IEAVAD02 CSECT 00502000 DS 0H 00503000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 00504000 @DATD DSECT 00505000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00506000 @ENDDATD EQU * 00507000 IEAVAD02 CSECT 00508000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00509000 @01 EQU 01 00510000 @02 EQU 02 00511000 @03 EQU 03 00512000 @04 EQU 04 00513000 @05 EQU 05 00514000 @06 EQU 06 00515000 @07 EQU 07 00516000 @08 EQU 08 00517000 @09 EQU 09 00518000 @10 EQU 10 00519000 @11 EQU 11 00520000 @12 EQU 12 00521000 @13 EQU 13 00522000 @14 EQU 14 00523000 @15 EQU 15 00524000 PARMPTR EQU @01 00525000 ABDARPTR EQU @02 00526000 RBSECPTR EQU @03 00527000 TIOTPTR EQU @04 00528000 CONVERT EQU @05 00529000 TCBPTR EQU @06 00530000 SAVERET EQU @07 00531000 SYSTEM EQU @08 00532000 USER EQU @09 00533000 CVTPTR EQU @10 00534000 AUTOPTR EQU @12 00535000 SAVEPTR EQU @13 00536000 RETCODE EQU @15 00537000 ENTRYPTR EQU @15 00538000 RETERN EQU @14 00539000 PSA EQU 0 00540000 FLCRNPSW EQU PSA 00541000 FLCROPSW EQU PSA+8 00542000 FLCICCW2 EQU PSA+16 00543000 FLCCVT EQU FLCICCW2 00544000 PSAEEPSW EQU PSA+132 00545000 PSAESPSW EQU PSA+136 00546000 FLCSVILC EQU PSAESPSW+1 00547000 PSAEPPSW EQU PSA+140 00548000 FLCPIILC EQU PSAEPPSW+1 00549000 FLCPICOD EQU PSAEPPSW+2 00550000 PSAPICOD EQU FLCPICOD+1 00551000 FLCTEA EQU PSAEPPSW+4 00552000 FLCPER EQU PSA+152 00553000 FLCMCLA EQU PSA+168 00554000 FLCIOEL EQU FLCMCLA+4 00555000 FLCIOA EQU FLCMCLA+16 00556000 FLCFSA EQU FLCMCLA+80 00557000 PSASUPER EQU PSA+552 00558000 PSASUP1 EQU PSASUPER 00559000 PSASUP2 EQU PSASUPER+1 00560000 PSASUP3 EQU PSASUPER+2 00561000 PSASUP4 EQU PSASUPER+3 00562000 PSACLHT EQU PSA+640 00563000 PSALKSA EQU PSA+696 00564000 PSAHLHI EQU PSA+760 00565000 PSADSSFL EQU PSA+836 00566000 PSADSSF1 EQU PSADSSFL 00567000 PSADSSF3 EQU PSADSSFL+2 00568000 PSADSSF4 EQU PSADSSFL+3 00569000 PSARSVT EQU PSA+896 00570000 NEXSAPTR EQU 8 00571000 PRESAPTR EQU 4 00572000 ABDAREA EQU 0 00573000 ABDTCB EQU ABDAREA 00574000 ABDPARMS EQU ABDAREA+12 00575000 ABDPID EQU ABDPARMS 00576000 ABDFLAG EQU ABDPARMS+1 00577000 APFABEND EQU ABDFLAG 00578000 APFID EQU ABDFLAG 00579000 APFSDATA EQU ABDPARMS+4 00580000 APFSDAT1 EQU ABDPARMS+5 00581000 APFPDATA EQU ABDPARMS+6 00582000 ABDPTRS EQU ABDAREA+84 00583000 ABDWORK1 EQU ABDAREA+120 00584000 ABDFLAG1 EQU ABDAREA+136 00585000 ABDFLAG2 EQU ABDAREA+137 00586000 ABDRES1 EQU ABDAREA+139 00587000 ABDBPTR EQU ABDAREA+244 00588000 ABDLLINE EQU ABDAREA+248 00589000 ABDUPRF EQU ABDAREA+265 00590000 ABDUPRFN EQU ABDAREA+266 00591000 ABDBLNKS EQU ABDAREA+267 00592000 ABDLLNGH EQU ABDAREA+294 00593000 ABDBUFFS EQU ABDAREA+308 00594000 ABDGMA EQU ABDAREA+316 00595000 ABDAAREA EQU ABDGMA 00596000 ABDASIZE EQU ABDGMA+4 00597000 ESPARM EQU ABDAREA+340 00598000 ESTAEFLG EQU ESPARM+28 00599000 ABDLINEA EQU ABDAREA+384 00600000 ABDLINE EQU ABDLINEA+1 00601000 ABDSAVHD EQU ABDAREA+592 00602000 CVTMAP EQU 0 00603000 CVTDAR EQU CVTMAP+72 00604000 CVTFLGS1 EQU CVTDAR 00605000 CVTDCB EQU CVTMAP+116 00606000 CVTIERLC EQU CVTMAP+144 00607000 CVTOPTA EQU CVTMAP+182 00608000 CVTOPTB EQU CVTMAP+183 00609000 CVTGTF EQU CVTMAP+236 00610000 CVTGTFST EQU CVTGTF 00611000 CVTGTFS EQU CVTGTFST 00612000 CVTSTATE EQU CVTGTFST 00613000 CVTTMODE EQU CVTGTFST 00614000 CVTFORM EQU CVTGTFST 00615000 CVTAQAVT EQU CVTMAP+240 00616000 CVTTCMFG EQU CVTAQAVT 00617000 CVTVOLM2 EQU CVTMAP+244 00618000 CVTTATA EQU CVTVOLM2 00619000 CVTTSKS EQU CVTTATA 00620000 CVTVOLF2 EQU CVTTSKS 00621000 CVTTAT EQU CVTTATA+1 00622000 CVTATER EQU CVTMAP+248 00623000 CVTEXT1 EQU CVTMAP+252 00624000 CVTPURG EQU CVTMAP+260 00625000 CVTQMSG EQU CVTMAP+268 00626000 CVTDMSR EQU CVTMAP+272 00627000 CVTRSV37 EQU CVTDMSR 00628000 CVTDMSRF EQU CVTRSV37 00629000 CVTERPV EQU CVTMAP+316 00630000 CVTINTLA EQU CVTMAP+320 00631000 CVTAPF EQU CVTMAP+324 00632000 CVTEXT2 EQU CVTMAP+328 00633000 CVTHJES EQU CVTMAP+332 00634000 CVTPGSIA EQU CVTMAP+348 00635000 CVTA1F1 EQU CVTMAP+356 00636000 CVTSYSK EQU CVTMAP+357 00637000 CVTVOLM1 EQU CVTMAP+380 00638000 CVTVOLF1 EQU CVTVOLM1 00639000 CVTXTNT1 EQU 0 00640000 CVTXTNT2 EQU 0 00641000 CVTDSSV EQU CVTXTNT2 00642000 CVTFLGBT EQU CVTXTNT2+5 00643000 CVTQID EQU CVTXTNT2+24 00644000 CVTRV400 EQU CVTXTNT2+52 00645000 CVTRV409 EQU CVTXTNT2+53 00646000 CVTATCVT EQU CVTXTNT2+64 00647000 CVTRV429 EQU CVTXTNT2+84 00648000 CVTRV438 EQU CVTXTNT2+85 00649000 CVTRV457 EQU CVTXTNT2+112 00650000 CVTRV466 EQU CVTXTNT2+113 00651000 CVTFIX EQU 0 00652000 CVTRELNO EQU CVTFIX+252 00653000 RTCT EQU 0 00654000 RTCTPLIB EQU RTCT+4 00655000 RTCTSAP EQU RTCTPLIB 00656000 RTCTSAP1 EQU RTCTSAP 00657000 RTCTSAP2 EQU RTCTSAP+1 00658000 RTCTSAP3 EQU RTCTSAP+2 00659000 RTCTSUP EQU RTCTPLIB+4 00660000 RTCTSUP1 EQU RTCTSUP 00661000 RTCTSUP2 EQU RTCTSUP+1 00662000 RTCTSUP3 EQU RTCTSUP+2 00663000 RTCTSYD EQU RTCTPLIB+8 00664000 RTCTSY01 EQU RTCTSYD 00665000 RTCTSDDS EQU RTCT+36 00666000 RTCTFLG EQU RTCTSDDS+3 00667000 RTCTSDPL EQU RTCT+156 00668000 RTCTRFLG EQU RTCT+176 00669000 RTCTERID EQU RTCT+224 00670000 RTCTOPT EQU RTCT+236 00671000 RTCTASO EQU RTCT+252 00672000 RTCTASO1 EQU RTCTASO 00673000 RTCTASO2 EQU RTCTASO+1 00674000 RTCTSDI EQU RTCT+254 00675000 RTCTSDF EQU RTCT+264 00676000 RTCTSDF1 EQU RTCTSDF 00677000 RTCTSDF2 EQU RTCTSDF+1 00678000 RTCTSDF3 EQU RTCT+268 00679000 RTCTSDF4 EQU RTCTSDF3+2 00680000 RTCTMOPT EQU 0 00681000 RTCTMSAO EQU RTCTMOPT 00682000 RTCTSASD EQU RTCTMSAO 00683000 RTCTSAO1 EQU RTCTSASD 00684000 RTCTSAO2 EQU RTCTSASD+1 00685000 RTCTSAPD EQU RTCTMSAO+2 00686000 RTCTSAO3 EQU RTCTSAPD 00687000 RTCTSAO4 EQU RTCTSAPD+1 00688000 RTCTSAMG EQU RTCTSAO4 00689000 RTCTMSUO EQU RTCTMOPT+4 00690000 RTCTSUSD EQU RTCTMSUO 00691000 RTCTSUO1 EQU RTCTSUSD 00692000 RTCTSUO2 EQU RTCTSUSD+1 00693000 RTCTSUPD EQU RTCTMSUO+2 00694000 RTCTSUO3 EQU RTCTSUPD 00695000 RTCTSUO4 EQU RTCTSUPD+1 00696000 RTCTSUMG EQU RTCTSUO4 00697000 RTCTMSYO EQU RTCTMOPT+8 00698000 RTCTSD01 EQU RTCTMSYO 00699000 RTCTSD04 EQU RTCTMSYO+3 00700000 RTCTSMMG EQU RTCTSD04 00701000 RTCTMSDO EQU RTCTMOPT+12 00702000 RTCTSDOD EQU RTCTMSDO 00703000 RTCTSDO1 EQU RTCTSDOD 00704000 RTCTSDO2 EQU RTCTSDOD+1 00705000 RTCTSDO3 EQU RTCTMSDO+2 00706000 RTCTSDO4 EQU RTCTMSDO+3 00707000 RTCTSDMG EQU RTCTSDO4 00708000 RBPRFX EQU 0 00709000 RBBASIC EQU 0 00710000 RBEXRTNM EQU RBBASIC 00711000 RBTMFLD EQU RBEXRTNM 00712000 RBSTAB EQU RBBASIC+10 00713000 XSTAB EQU RBSTAB 00714000 RBSTAB1 EQU XSTAB 00715000 XSTAB1 EQU RBSTAB1 00716000 RBFTCKPT EQU XSTAB1 00717000 RBSTAB2 EQU XSTAB+1 00718000 XSTAB2 EQU RBSTAB2 00719000 RBTCBNXT EQU XSTAB2 00720000 RBFACTV EQU XSTAB2 00721000 RBFDYN EQU XSTAB2 00722000 RBECBWT EQU XSTAB2 00723000 RBOPSW EQU RBBASIC+16 00724000 XRBPSW EQU RBOPSW 00725000 RBOPSWB2 EQU XRBPSW+1 00726000 RBLINK EQU RBBASIC+28 00727000 XRBLNK EQU RBLINK 00728000 RBWCF EQU XRBLNK 00729000 RBLINKB EQU XRBLNK+1 00730000 RBGRSAVE EQU RBBASIC+32 00731000 XRBREG EQU RBGRSAVE 00732000 RBGRS0 EQU XRBREG 00733000 RBGRS1 EQU XRBREG+4 00734000 RBGRS2 EQU XRBREG+8 00735000 RBGRS3 EQU XRBREG+12 00736000 RBGRS4 EQU XRBREG+16 00737000 RBGRS5 EQU XRBREG+20 00738000 RBGRS6 EQU XRBREG+24 00739000 RBGRS7 EQU XRBREG+28 00740000 RBGRS8 EQU XRBREG+32 00741000 RBGRS9 EQU XRBREG+36 00742000 RBGRS10 EQU XRBREG+40 00743000 RBGRS11 EQU XRBREG+44 00744000 RBGRS12 EQU XRBREG+48 00745000 RBGRS13 EQU XRBREG+52 00746000 RBGRS14 EQU XRBREG+56 00747000 RBGRS15 EQU XRBREG+60 00748000 XRBESA EQU RBBASIC+96 00749000 RBPREFIX EQU 0 00750000 RBRSV019 EQU RBPREFIX+14 00751000 RBRSV028 EQU RBPREFIX+15 00752000 RBRSV041 EQU RBPREFIX+27 00753000 RBRSV054 EQU RBPREFIX+39 00754000 RBRTOPSW EQU RBPREFIX+40 00755000 RBRTPSW2 EQU RBRTOPSW+8 00756000 RBRTICIL EQU RBRTPSW2 00757000 RBFLAGS1 EQU RBPREFIX+56 00758000 RBINTCDA EQU RBPREFIX+61 00759000 RBSECT EQU 0 00760000 RBPPSAV EQU RBSECT 00761000 @NM00089 EQU RBSECT+10 00762000 @NM00090 EQU @NM00089 00763000 RBTRSVRB EQU @NM00090 00764000 @NM00092 EQU @NM00089+1 00765000 RBETXR EQU @NM00092 00766000 RBEP EQU RBSECT+12 00767000 RBPGMQ EQU RBSECT+24 00768000 @NM00099 EQU RBSECT+28 00769000 @NM00100 EQU @NM00099 00770000 IRBEND EQU RBSECT+96 00771000 @NM00103 EQU RBSECT+96 00772000 RBRSV138 EQU @NM00103+7 00773000 RBSCBB EQU RBSECT+144 00774000 RBSPARM EQU RBSCBB+8 00775000 RBSFLGS1 EQU RBSPARM 00776000 RBSIOPRC EQU RBSFLGS1 00777000 RBSOWNR EQU RBSCBB+12 00778000 RBSFLGS2 EQU RBSOWNR 00779000 RBSDATA EQU RBSCBB+16 00780000 RBSFLG3 EQU RBSDATA 00781000 RBRSV150 EQU RBSECT+167 00782000 TCBFIX EQU 0 00783000 TCBFRS EQU TCBFIX 00784000 TCB EQU 0 00785000 TCBPIE EQU TCB+4 00786000 TCBPMASK EQU TCBPIE 00787000 TCBTIO EQU TCB+12 00788000 TCBCMP EQU TCB+16 00789000 TCBCMPF EQU TCBCMP 00790000 TCBCPP EQU TCBCMPF 00791000 TCBSTCC EQU TCBCMPF 00792000 TCBCDBL EQU TCBCMPF 00793000 TCBCWTO EQU TCBCMPF 00794000 TCBCIND EQU TCBCMPF 00795000 TCBCMSG EQU TCBCMPF 00796000 TCBCMPC EQU TCBCMP+1 00797000 TCBTRN EQU TCB+20 00798000 TCBABF EQU TCBTRN 00799000 TCBMSS EQU TCB+24 00800000 TCBPKF EQU TCB+28 00801000 TCBFLGS EQU TCB+29 00802000 TCBFLGS1 EQU TCBFLGS 00803000 TCBFLGS2 EQU TCBFLGS+1 00804000 TCBFLGS3 EQU TCBFLGS+2 00805000 TCBFLGS4 EQU TCBFLGS+3 00806000 TCBFLGS5 EQU TCBFLGS+4 00807000 TCBABWF EQU TCBFLGS5 00808000 TCBJPQ EQU TCB+44 00809000 TCBPURGE EQU TCBJPQ 00810000 TCBGRS EQU TCB+48 00811000 TCBFSA EQU TCB+112 00812000 TCBTME EQU TCB+120 00813000 TCBJSTCB EQU TCB+124 00814000 TCBTSFLG EQU TCB+148 00815000 TCBTSTSK EQU TCBTSFLG 00816000 TCBSTAB EQU TCB+160 00817000 TCBNSTAE EQU TCBSTAB 00818000 TCBTCT EQU TCB+164 00819000 TCBTCTGF EQU TCBTCT 00820000 TCBSCNDY EQU TCB+172 00821000 TCBNDSP EQU TCBSCNDY 00822000 TCBNDSP1 EQU TCBNDSP+1 00823000 TCBNDSP2 EQU TCBNDSP+2 00824000 TCBNDSP3 EQU TCBNDSP+3 00825000 TCBJSCB EQU TCB+180 00826000 TCBRECDE EQU TCBJSCB 00827000 TCBEXT1 EQU TCB+196 00828000 TCBBITS EQU TCB+200 00829000 TCBNDSP4 EQU TCBBITS 00830000 TCBNDSP5 EQU TCBBITS+1 00831000 TCBFLGS6 EQU TCBBITS+2 00832000 TCBFLGS7 EQU TCBBITS+3 00833000 TCBDAR EQU TCB+204 00834000 TCBDARC EQU TCBDAR 00835000 TCBEXT2 EQU TCB+208 00836000 TCBXSCT EQU TCB+240 00837000 TCBXSCT1 EQU TCBXSCT 00838000 TCBFOE EQU TCB+244 00839000 TCBESTAE EQU TCB+264 00840000 TCBESTRM EQU TCBESTAE+1 00841000 TCBFBYT1 EQU TCB+276 00842000 TCBFBYT2 EQU TCB+277 00843000 TCBRV124 EQU TCB+278 00844000 TCBRV133 EQU TCB+279 00845000 TCBXTNT2 EQU 0 00846000 TCBGTF EQU TCBXTNT2 00847000 TCBTFLG EQU TCBGTF 00848000 TCBRV146 EQU TCBXTNT2+28 00849000 TCBRV155 EQU TCBXTNT2+29 00850000 TCBRV164 EQU TCBXTNT2+30 00851000 TCBRV173 EQU TCBXTNT2+31 00852000 TIOT1 EQU 0 00853000 TIOCNJOB EQU TIOT1 00854000 TIOCSTEP EQU TIOT1+8 00855000 I001C EQU 0 00856000 I008P EQU 0 00857000 I015F EQU 0 00858000 I015P EQU 0 00859000 I031F EQU 0 00860000 I031P EQU 0 00861000 I256C EQU 0 00862000 ABDWRK11 EQU ABDWORK1 00863000 CVTS01 EQU CVTPGSIA 00864000 CVTLPDIA EQU CVTS01+12 00865000 CVTDIRST EQU CVTLPDIA 00866000 CVTSLIDA EQU CVTS01+24 00867000 CVTCTLFG EQU CVTS01+50 00868000 CVTRTMCT EQU CVTS01+224 00869000 CVTRV210 EQU CVTS01+424 00870000 CVTRV219 EQU CVTS01+425 00871000 CVTRV228 EQU CVTS01+426 00872000 CVTRV237 EQU CVTS01+427 00873000 CVTMFRTR EQU CVTS01+452 00874000 CVTRV262 EQU CVTS01+468 00875000 CVTRV271 EQU CVTS01+469 00876000 CVTRV280 EQU CVTS01+470 00877000 CVTRV289 EQU CVTS01+471 00878000 CVTGSDA EQU CVTS01+600 00879000 PSARSVTE EQU PSARSVT 00880000 RBSECS03 EQU RBEP 00881000 RBCDE EQU RBSECS03 00882000 RBCDFLGS EQU RBCDE 00883000 RBSECS05 EQU RBPGMQ 00884000 RBSQE EQU RBSECS05 00885000 RBSECS06 EQU RBPGMQ 00886000 RBIQE EQU RBSECS06 00887000 RBSECS07 EQU RBPGMQ 00888000 RBIQE2 EQU RBSECS07 00889000 RBSECS08 EQU IRBEND 00890000 RBSECS09 EQU IRBEND 00891000 TIOENTRY EQU TIOT1+24 00892000 TIOESTTA EQU TIOENTRY+1 00893000 TIOERLOC EQU TIOENTRY+2 00894000 TIOELINK EQU TIOERLOC+1 00895000 TIOESYOT EQU TIOELINK 00896000 TIOESTTC EQU TIOENTRY+15 00897000 TIOESTTB EQU TIOENTRY+16 00898000 POOLSTAR EQU TIOENTRY+20 00899000 TIOEDEVE EQU TIOESTTB 00900000 TIOSTTB EQU TIOEDEVE 00901000 FLC EQU PSA 00902000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00903000 TIOUCBP EQU TIOEDEVE+1 00904000 TIOVERF EQU TIOSTTB 00905000 TIOUNLD EQU TIOSTTB 00906000 TIOMNTD EQU TIOSTTB 00907000 TIOSETU EQU TIOSTTB 00908000 TIOVLSR EQU TIOSTTB 00909000 TIOPVIO EQU TIOSTTB 00910000 TIOREQD EQU TIOSTTB 00911000 TIOUSED EQU TIOSTTB 00912000 TIOTFEND EQU POOLSTAR+16 00913000 TIOPSLOT EQU POOLSTAR+13 00914000 TIOPSTTB EQU POOLSTAR+12 00915000 TIOPPOOL EQU POOLSTAR+4 00916000 TIOPNSRT EQU POOLSTAR+3 00917000 @NM00110 EQU POOLSTAR+2 00918000 TIOPNSLT EQU POOLSTAR+1 00919000 @NM00109 EQU POOLSTAR 00920000 TIOEFSRT EQU TIOENTRY+17 00921000 TIOSVERF EQU TIOESTTB 00922000 TIOSUNLD EQU TIOESTTB 00923000 TIOSMNTD EQU TIOESTTB 00924000 TIOSSETU EQU TIOESTTB 00925000 TIOSVLSR EQU TIOESTTB 00926000 TIOSPVIO EQU TIOESTTB 00927000 TIOSREQD EQU TIOESTTB 00928000 TIOSUSED EQU TIOESTTB 00929000 TIOSBALS EQU TIOESTTC 00930000 TIOSBALP EQU TIOESTTC 00931000 TIOSVOLS EQU TIOESTTC 00932000 TIOSVOLP EQU TIOESTTC 00933000 TIOSAFFS EQU TIOESTTC 00934000 TIOSAFFP EQU TIOESTTC 00935000 TIOSDEFR EQU TIOESTTC 00936000 TIOSDKCR EQU TIOESTTC 00937000 TIOEJFCB EQU TIOENTRY+12 00938000 TIOEDDNM EQU TIOENTRY+4 00939000 TIOTREM EQU TIOELINK 00940000 TIOESSDS EQU TIOESYOT 00941000 TIOESYIN EQU TIOELINK 00942000 TIOEQNAM EQU TIOELINK 00943000 TIOEDYNM EQU TIOELINK 00944000 TIOTTERM EQU TIOELINK 00945000 TIOTRV01 EQU TIOELINK 00946000 TIOSYOUT EQU TIOELINK 00947000 TIOEWTCT EQU TIOERLOC 00948000 TIOSDSP2 EQU TIOESTTA 00949000 TIOSDSP1 EQU TIOESTTA 00950000 TIOSLABL EQU TIOESTTA 00951000 TIOSDADS EQU TIOESTTA 00952000 TIOSJBLB EQU TIOESTTA 00953000 TIOSPLTS EQU TIOESTTA 00954000 TIOSPLTP EQU TIOESTTA 00955000 TIOSLTYP EQU TIOESTTA 00956000 TIOELNGH EQU TIOENTRY 00957000 RBRSV161 EQU RBSECS09+64 00958000 RBSIRBWA EQU RBSECS09 00959000 RBIQEWRK EQU RBSECS08+4 00960000 RBNEXAV EQU RBSECS08 00961000 RBIQEA EQU RBIQE2 00962000 RBIQE1 EQU RBIQE+1 00963000 RBUSE EQU RBIQE 00964000 RBSQEA EQU RBSQE+1 00965000 @NM00104 EQU RBSQE 00966000 RBCDE1 EQU RBCDE+1 00967000 RBCDLOAD EQU RBCDFLGS 00968000 RBCDXCTL EQU RBCDFLGS 00969000 RBCDSYNC EQU RBCDFLGS 00970000 RBCDNODE EQU RBCDFLGS 00971000 RBRSV010 EQU RBCDFLGS 00972000 RBCDATCH EQU RBCDFLGS 00973000 RBRSV009 EQU RBCDFLGS 00974000 RBNOCELL EQU RBCDFLGS 00975000 PSARSAV EQU PSARSVTE+60 00976000 PSARSTK EQU PSARSVTE+56 00977000 PSAESAV3 EQU PSARSVTE+52 00978000 PSAESTK3 EQU PSARSVTE+48 00979000 PSAESAV2 EQU PSARSVTE+44 00980000 PSAESTK2 EQU PSARSVTE+40 00981000 PSAESAV1 EQU PSARSVTE+36 00982000 PSAESTK1 EQU PSARSVTE+32 00983000 PSAPSAV EQU PSARSVTE+28 00984000 PSAPSTK EQU PSARSVTE+24 00985000 PSAMSAV EQU PSARSVTE+20 00986000 PSAMSTK EQU PSARSVTE+16 00987000 PSASSAV EQU PSARSVTE+12 00988000 PSASSTK EQU PSARSVTE+8 00989000 PSANSTK EQU PSARSVTE+4 00990000 PSACSTK EQU PSARSVTE 00991000 CVTRV628 EQU CVTS01+728 00992000 CVTRV627 EQU CVTS01+724 00993000 CVTRV626 EQU CVTS01+720 00994000 CVTRV625 EQU CVTS01+716 00995000 CVTRV624 EQU CVTS01+712 00996000 CVTRV623 EQU CVTS01+708 00997000 CVTRV622 EQU CVTS01+704 00998000 CVTRV621 EQU CVTS01+700 00999000 CVTIHASU EQU CVTS01+696 01000000 CVTSUSP EQU CVTS01+692 01001000 CVTT6SVC EQU CVTS01+688 01002000 CVTCDAL EQU CVTS01+684 01003000 CVTTCTL EQU CVTS01+680 01004000 CVTRSUME EQU CVTS01+676 01005000 CVTJTERM EQU CVTS01+672 01006000 CVTASMRM EQU CVTS01+668 01007000 CVTTCASP EQU CVTS01+664 01008000 CVT0PT03 EQU CVTS01+660 01009000 CVT0PT0E EQU CVTS01+656 01010000 CVTRV609 EQU CVTS01+652 01011000 CVTCGK EQU CVTS01+648 01012000 CVTRAC EQU CVTS01+644 01013000 CVTRV606 EQU CVTS01+640 01014000 CVTRV605 EQU CVTS01+636 01015000 CVTRV604 EQU CVTS01+632 01016000 CVTEFF02 EQU CVTS01+628 01017000 CVTCBBR EQU CVTS01+624 01018000 CVTSSCR EQU CVTS01+620 01019000 CVTEVENT EQU CVTS01+616 01020000 CVTCRCA EQU CVTS01+612 01021000 CVTTPIO EQU CVTS01+608 01022000 CVTADV EQU CVTS01+604 01023000 CVTGSDAB EQU CVTGSDA 01024000 CVTQV3 EQU CVTS01+596 01025000 CVTQV2 EQU CVTS01+592 01026000 CVTQV1 EQU CVTS01+588 01027000 CVTRPT EQU CVTS01+584 01028000 CVTSSRB EQU CVTS01+580 01029000 CVTCSDRL EQU CVTS01+576 01030000 CVTEXP1 EQU CVTS01+572 01031000 CVTRMPMT EQU CVTS01+568 01032000 CVTRMPTT EQU CVTS01+564 01033000 CVTVPSA EQU CVTS01+560 01034000 CVTVSTOP EQU CVTS01+556 01035000 CVTGTFR8 EQU CVTS01+552 01036000 CVTQUIT EQU CVTS01+548 01037000 CVTVACR EQU CVTS01+544 01038000 CVTWTCB EQU CVTS01+540 01039000 CVTSTPRS EQU CVTS01+536 01040000 CVT0PT02 EQU CVTS01+532 01041000 CVTDARCM EQU CVTS01+528 01042000 CVTIRECM EQU CVTS01+524 01043000 CVTJRECM EQU CVTS01+520 01044000 CVTVEMS0 EQU CVTS01+516 01045000 CVTSPFRR EQU CVTS01+512 01046000 CVTRLSTG EQU CVTS01+508 01047000 CVT0TC0A EQU CVTS01+504 01048000 CVTGMBR EQU CVTS01+500 01049000 CVTLFRM EQU CVTS01+496 01050000 CVTRMBR EQU CVTS01+492 01051000 CVTVIOP EQU CVTS01+488 01052000 CVTRV307 EQU CVTS01+486 01053000 CVTRV306 EQU CVTS01+484 01054000 CVTRV305 EQU CVTS01+482 01055000 CVTRV304 EQU CVTS01+480 01056000 CVTRV303 EQU CVTS01+478 01057000 CVTRV302 EQU CVTS01+476 01058000 CVTTRCA EQU CVTS01+472 01059000 CVTRV297 EQU CVTRV289 01060000 CVTRV296 EQU CVTRV289 01061000 CVTRV295 EQU CVTRV289 01062000 CVTRV294 EQU CVTRV289 01063000 CVTRV293 EQU CVTRV289 01064000 CVTRV292 EQU CVTRV289 01065000 CVTRV291 EQU CVTRV289 01066000 CVTRV290 EQU CVTRV289 01067000 CVTRV288 EQU CVTRV280 01068000 CVTRV287 EQU CVTRV280 01069000 CVTRV286 EQU CVTRV280 01070000 CVTRV285 EQU CVTRV280 01071000 CVTRV284 EQU CVTRV280 01072000 CVTRV283 EQU CVTRV280 01073000 CVTRV282 EQU CVTRV280 01074000 CVTRV281 EQU CVTRV280 01075000 CVTRV279 EQU CVTRV271 01076000 CVTRV278 EQU CVTRV271 01077000 CVTRV277 EQU CVTRV271 01078000 CVTRV276 EQU CVTRV271 01079000 CVTRV275 EQU CVTRV271 01080000 CVTRV274 EQU CVTRV271 01081000 CVTRV273 EQU CVTRV271 01082000 CVTRV272 EQU CVTRV271 01083000 CVTRV270 EQU CVTRV262 01084000 CVTRV269 EQU CVTRV262 01085000 CVTRV268 EQU CVTRV262 01086000 CVTRV267 EQU CVTRV262 01087000 CVTRV266 EQU CVTRV262 01088000 CVTRV265 EQU CVTRV262 01089000 CVTRV264 EQU CVTRV262 01090000 CVTRV263 EQU CVTRV262 01091000 CVTVFP EQU CVTS01+464 01092000 CVTVSI EQU CVTS01+460 01093000 CVTVPSIB EQU CVTS01+456 01094000 CVTMFACT EQU CVTMFRTR 01095000 CVTMFCTL EQU CVTS01+448 01096000 CVTPVBP EQU CVTS01+444 01097000 CVTPWI EQU CVTS01+440 01098000 CVTRV254 EQU CVTS01+438 01099000 CVTRV253 EQU CVTS01+436 01100000 CVTRV252 EQU CVTS01+434 01101000 CVTRV251 EQU CVTS01+433 01102000 CVTRV250 EQU CVTS01+432 01103000 CVTRV249 EQU CVTS01+431 01104000 CVTRV248 EQU CVTS01+430 01105000 CVTRV247 EQU CVTS01+429 01106000 CVTRV246 EQU CVTS01+428 01107000 CVTRV245 EQU CVTRV237 01108000 CVTRV244 EQU CVTRV237 01109000 CVTRV243 EQU CVTRV237 01110000 CVTRV242 EQU CVTRV237 01111000 CVTRV241 EQU CVTRV237 01112000 CVTRV240 EQU CVTRV237 01113000 CVTRV239 EQU CVTRV237 01114000 CVTRV238 EQU CVTRV237 01115000 CVTRV236 EQU CVTRV228 01116000 CVTRV235 EQU CVTRV228 01117000 CVTRV234 EQU CVTRV228 01118000 CVTRV233 EQU CVTRV228 01119000 CVTRV232 EQU CVTRV228 01120000 CVTRV231 EQU CVTRV228 01121000 CVTRV230 EQU CVTRV228 01122000 CVTRV229 EQU CVTRV228 01123000 CVTRV227 EQU CVTRV219 01124000 CVTRV226 EQU CVTRV219 01125000 CVTRV225 EQU CVTRV219 01126000 CVTRV224 EQU CVTRV219 01127000 CVTRV223 EQU CVTRV219 01128000 CVTRV222 EQU CVTRV219 01129000 CVTRV221 EQU CVTRV219 01130000 CVTRV220 EQU CVTRV219 01131000 CVTRV218 EQU CVTRV210 01132000 CVTRV217 EQU CVTRV210 01133000 CVTRV216 EQU CVTRV210 01134000 CVTRV215 EQU CVTRV210 01135000 CVTRV214 EQU CVTRV210 01136000 CVTRV213 EQU CVTRV210 01137000 CVTRV212 EQU CVTRV210 01138000 CVTRV211 EQU CVTRV210 01139000 CVTLCCAT EQU CVTS01+420 01140000 CVTPCCAT EQU CVTS01+416 01141000 CVTIPCRP EQU CVTS01+412 01142000 CVTIPCRI EQU CVTS01+408 01143000 CVTIPCDS EQU CVTS01+404 01144000 CVTAIDVT EQU CVTS01+400 01145000 CVTSSAP EQU CVTS01+396 01146000 CVTEHCIR EQU CVTS01+392 01147000 CVTEHDEF EQU CVTS01+388 01148000 CVTDAIR EQU CVTS01+384 01149000 CVTPERFM EQU CVTS01+380 01150000 CVT044R2 EQU CVTS01+376 01151000 CVTFETCH EQU CVTS01+372 01152000 CVTRSTWD EQU CVTS01+368 01153000 CVTSPOST EQU CVTS01+364 01154000 CVTIOBP EQU CVTS01+360 01155000 CVTASMVT EQU CVTS01+356 01156000 CVTRECRQ EQU CVTS01+352 01157000 CVTWSAC EQU CVTS01+348 01158000 CVTRV149 EQU CVTS01+344 01159000 CVTWSAL EQU CVTS01+340 01160000 CVTSPSA EQU CVTS01+336 01161000 CVTGLMN EQU CVTS01+332 01162000 CVTVEAC0 EQU CVTS01+328 01163000 CVT062R1 EQU CVTS01+324 01164000 CVTRPOST EQU CVTS01+320 01165000 CVTDQIQE EQU CVTS01+316 01166000 CVTCSD EQU CVTS01+312 01167000 CVTLKRMA EQU CVTS01+308 01168000 CVTRSPIE EQU CVTS01+304 01169000 CVTRENQ EQU CVTS01+300 01170000 CVTLQCB EQU CVTS01+296 01171000 CVTFQCB EQU CVTS01+292 01172000 CVTQCS01 EQU CVTS01+288 01173000 CVTAPFT EQU CVTS01+284 01174000 CVTPARRL EQU CVTS01+280 01175000 CVTVWAIT EQU CVTS01+276 01176000 CVTGSPL EQU CVTS01+272 01177000 CVTLSMQ EQU CVTS01+268 01178000 CVTGSMQ EQU CVTS01+264 01179000 CVTEXPRO EQU CVTS01+260 01180000 CVTOPCTP EQU CVTS01+256 01181000 CVTSIC EQU CVTS01+252 01182000 CVTTPIOS EQU CVTS01+248 01183000 CVTRTMS EQU CVTS01+244 01184000 CVTSDBF EQU CVTS01+240 01185000 CVTSCBP EQU CVTS01+236 01186000 CVTSDMP EQU CVTS01+232 01187000 CVTSV60 EQU CVTS01+228 01188000 CVTASCBL EQU CVTS01+220 01189000 CVTASCBH EQU CVTS01+216 01190000 CVTGDA EQU CVTS01+212 01191000 CVTASVT EQU CVTS01+208 01192000 CVTVVMDI EQU CVTS01+204 01193000 CVTAQTOP EQU CVTS01+200 01194000 CVTIOSCS EQU CVTS01+196 01195000 CVTSDRM EQU CVTS01+192 01196000 CVTOPTE EQU CVTS01+188 01197000 CVTSTXU EQU CVTS01+184 01198000 CVTQUIS EQU CVTS01+180 01199000 CVTPARS EQU CVTS01+176 01200000 CVTS1EE EQU CVTS01+172 01201000 CVTFRAS EQU CVTS01+168 01202000 CVTQSAS EQU CVTS01+164 01203000 CVTCRAS EQU CVTS01+160 01204000 CVTCRMN EQU CVTS01+156 01205000 CVTDELCP EQU CVTS01+152 01206000 CVTFRECL EQU CVTS01+148 01207000 CVTGETCL EQU CVTS01+144 01208000 CVTBLDCP EQU CVTS01+140 01209000 CVTAUTHL EQU CVTS01+136 01210000 CVTSCAN EQU CVTS01+132 01211000 CVTRV144 EQU CVTS01+130 01212000 CVTMAXMP EQU CVTS01+128 01213000 CVTSTCK EQU CVTS01+124 01214000 CVTRV139 EQU CVTS01+123 01215000 CVTDSSAC EQU CVTS01+122 01216000 CVTRV513 EQU CVTS01+121 01217000 CVTIOSPL EQU CVTS01+120 01218000 CVTPTGT EQU CVTS01+116 01219000 CVTCSPIE EQU CVTS01+112 01220000 CVTSMFEX EQU CVTS01+108 01221000 CVTOLT0A EQU CVTS01+104 01222000 CVTSRBRT EQU CVTS01+100 01223000 CVTPUTL EQU CVTS01+96 01224000 CVTASCRL EQU CVTS01+92 01225000 CVTASCRF EQU CVTS01+88 01226000 CVTRV326 EQU CVTS01+84 01227000 CVTRV325 EQU CVTS01+80 01228000 CVTRV324 EQU CVTS01+76 01229000 CVT0VL01 EQU CVTS01+72 01230000 CVTSHRVM EQU CVTS01+68 01231000 CVTRV332 EQU CVTS01+64 01232000 CVTTAS EQU CVTS01+60 01233000 CVTRSCN EQU CVTS01+56 01234000 CVTTRAC2 EQU CVTS01+54 01235000 CVTTRACE EQU CVTS01+52 01236000 CVTAPG EQU CVTS01+51 01237000 CVTSDTRC EQU CVTCTLFG 01238000 CVTGTRCE EQU CVTCTLFG 01239000 CVTNOMP EQU CVTCTLFG 01240000 CVTRSV79 EQU CVTCTLFG 01241000 CVTDSTAT EQU CVTCTLFG 01242000 CVTRSV78 EQU CVTCTLFG 01243000 CVTRV333 EQU CVTCTLFG 01244000 CVTRV323 EQU CVTCTLFG 01245000 CVTSPVLK EQU CVTS01+49 01246000 CVTRSV77 EQU CVTS01+48 01247000 CVTRV331 EQU CVTS01+44 01248000 CVTRV330 EQU CVTS01+40 01249000 CVTRV329 EQU CVTS01+36 01250000 CVTRV328 EQU CVTS01+32 01251000 CVTRV322 EQU CVTS01+28 01252000 CVTSLID EQU CVTSLIDA+1 01253000 CVTSYLK EQU CVTSLIDA 01254000 CVTRV321 EQU CVTS01+20 01255000 CVTRV320 EQU CVTS01+16 01256000 CVTLPDIR EQU CVTLPDIA+1 01257000 CVTRSV69 EQU CVTDIRST 01258000 CVTRSV68 EQU CVTDIRST 01259000 CVTRSV67 EQU CVTDIRST 01260000 CVTRSV66 EQU CVTDIRST 01261000 CVTRSV65 EQU CVTDIRST 01262000 CVTRSV64 EQU CVTDIRST 01263000 CVTRSV63 EQU CVTDIRST 01264000 CVTDICOM EQU CVTDIRST 01265000 CVTPVTP EQU CVTS01+8 01266000 CVTLPDSR EQU CVTS01+4 01267000 CVTGETL EQU CVTS01 01268000 @NM00108 EQU TCBXTNT2+32 01269000 TCBRV181 EQU TCBRV173 01270000 TCBRV180 EQU TCBRV173 01271000 TCBRV179 EQU TCBRV173 01272000 TCBRV178 EQU TCBRV173 01273000 TCBRV177 EQU TCBRV173 01274000 TCBRV176 EQU TCBRV173 01275000 TCBRV175 EQU TCBRV173 01276000 TCBRV174 EQU TCBRV173 01277000 TCBRV172 EQU TCBRV164 01278000 TCBRV171 EQU TCBRV164 01279000 TCBRV170 EQU TCBRV164 01280000 TCBRV169 EQU TCBRV164 01281000 TCBRV168 EQU TCBRV164 01282000 TCBRV167 EQU TCBRV164 01283000 TCBRV166 EQU TCBRV164 01284000 TCBRV165 EQU TCBRV164 01285000 TCBRV163 EQU TCBRV155 01286000 TCBRV162 EQU TCBRV155 01287000 TCBRV161 EQU TCBRV155 01288000 TCBRV160 EQU TCBRV155 01289000 TCBRV159 EQU TCBRV155 01290000 TCBRV158 EQU TCBRV155 01291000 TCBRV157 EQU TCBRV155 01292000 TCBRV156 EQU TCBRV155 01293000 TCBRV154 EQU TCBRV146 01294000 TCBRV153 EQU TCBRV146 01295000 TCBRV152 EQU TCBRV146 01296000 TCBRV151 EQU TCBRV146 01297000 TCBRV150 EQU TCBRV146 01298000 TCBRV149 EQU TCBRV146 01299000 TCBRV148 EQU TCBRV146 01300000 TCBRV147 EQU TCBRV146 01301000 TCBRV145 EQU TCBXTNT2+26 01302000 TCBRV144 EQU TCBXTNT2+24 01303000 TCBRV143 EQU TCBXTNT2+20 01304000 TCBRV142 EQU TCBXTNT2+16 01305000 TCBRSV49 EQU TCBXTNT2+12 01306000 TCBEVENT EQU TCBXTNT2+8 01307000 TCBRCMP EQU TCBXTNT2+5 01308000 TCBRSVAB EQU TCBXTNT2+4 01309000 TCBGTFA EQU TCBGTF+1 01310000 TCBRSV47 EQU TCBTFLG 01311000 TCBRSV46 EQU TCBTFLG 01312000 TCBRSV45 EQU TCBTFLG 01313000 TCBRSV44 EQU TCBTFLG 01314000 TCBRSV43 EQU TCBTFLG 01315000 TCBDSPIT EQU TCBTFLG 01316000 TCBERRTN EQU TCBTFLG 01317000 TCBASYNC EQU TCBTFLG 01318000 @NM00107 EQU TCB+296 01319000 TCBSVCA2 EQU TCB+292 01320000 TCBSWASA EQU TCB+288 01321000 TCBDBTB EQU TCB+284 01322000 TCBRPT EQU TCB+280 01323000 TCBRV141 EQU TCBRV133 01324000 TCBRV140 EQU TCBRV133 01325000 TCBRV139 EQU TCBRV133 01326000 TCBRV138 EQU TCBRV133 01327000 TCBRV137 EQU TCBRV133 01328000 TCBRV136 EQU TCBRV133 01329000 TCBRV135 EQU TCBRV133 01330000 TCBRV134 EQU TCBRV133 01331000 TCBRV132 EQU TCBRV124 01332000 TCBRV131 EQU TCBRV124 01333000 TCBRV130 EQU TCBRV124 01334000 TCBRV129 EQU TCBRV124 01335000 TCBRV128 EQU TCBRV124 01336000 TCBRV127 EQU TCBRV124 01337000 TCBRV126 EQU TCBRV124 01338000 TCBRV125 EQU TCBRV124 01339000 TCBRV123 EQU TCBFBYT2 01340000 TCBRV122 EQU TCBFBYT2 01341000 TCBECBNV EQU TCBFBYT2 01342000 TCBSSSYN EQU TCBFBYT2 01343000 TCBFPRAP EQU TCBFBYT2 01344000 TCBFDW EQU TCBFBYT2 01345000 TCBFMW EQU TCBFBYT2 01346000 TCBCNCB EQU TCBFBYT2 01347000 TCBLLH EQU TCBFBYT1 01348000 TCBRV113 EQU TCBFBYT1 01349000 TCBEOT EQU TCBFBYT1 01350000 TCBRTM2 EQU TCBFBYT1 01351000 TCBPGNLY EQU TCBFBYT1 01352000 TCBNDIOS EQU TCBFBYT1 01353000 TCBRV327 EQU TCBFBYT1 01354000 TCBEOTFM EQU TCBFBYT1 01355000 TCBAFFN EQU TCB+274 01356000 TCBRV326 EQU TCB+272 01357000 TCBUKYSP EQU TCB+268 01358000 TCBMODE EQU TCBESTAE+3 01359000 TCBERTYP EQU TCBESTAE+2 01360000 TCBRV314 EQU TCBESTRM 01361000 TCBRV313 EQU TCBESTRM 01362000 TCBRV312 EQU TCBESTRM 01363000 TCBRV311 EQU TCBESTRM 01364000 TCBRV310 EQU TCBESTRM 01365000 TCBRV309 EQU TCBESTRM 01366000 TCBRV308 EQU TCBESTRM 01367000 TCBETERM EQU TCBESTRM 01368000 TCBSCBKY EQU TCBESTAE 01369000 TCBRTM12 EQU TCB+260 01370000 TCBTCBID EQU TCB+256 01371000 TCBSTAWA EQU TCB+252 01372000 TCBSWA EQU TCB+248 01373000 TCBFOEA EQU TCBFOE+1 01374000 TCBRSV42 EQU TCBFOE 01375000 TCBCCPVI EQU TCBXSCT+2 01376000 TCBRV325 EQU TCBXSCT+1 01377000 TCBRV324 EQU TCBXSCT1 01378000 TCBRV323 EQU TCBXSCT1 01379000 TCBRV322 EQU TCBXSCT1 01380000 TCBRV321 EQU TCBXSCT1 01381000 TCBRV320 EQU TCBXSCT1 01382000 TCBRV319 EQU TCBXSCT1 01383000 TCBS3A EQU TCBXSCT1 01384000 TCBACTIV EQU TCBXSCT1 01385000 TCBRSV41 EQU TCB+239 01386000 TCBTID EQU TCB+238 01387000 TCBRSVAA EQU TCB+237 01388000 TCBABCUR EQU TCB+236 01389000 TCBTMSAV EQU TCB+232 01390000 TCBIOTIM EQU TCB+228 01391000 TCBRTWA EQU TCB+224 01392000 TCBBACK EQU TCB+220 01393000 TCBTIRB EQU TCB+216 01394000 TCBAECB EQU TCB+212 01395000 TCBEXT2A EQU TCBEXT2+1 01396000 TCBRSV39 EQU TCBEXT2 01397000 TCBSTMCT EQU TCB+207 01398000 TCBSYSCT EQU TCB+206 01399000 TCBRSV37 EQU TCB+205 01400000 TCBEXSVC EQU TCBDAR 01401000 TCBDARMS EQU TCBDAR 01402000 TCBDARWT EQU TCBDAR 01403000 TCBDARO EQU TCBDAR 01404000 TCBDARMC EQU TCBDARC 01405000 TCBDARD EQU TCBDAR 01406000 TCBDARS EQU TCBDAR 01407000 TCBDARP EQU TCBDAR 01408000 TCBGTOFM EQU TCBFLGS7 01409000 TCBADMP EQU TCBFLGS7 01410000 TCBRSTSK EQU TCBFLGS7 01411000 TCBSVCS EQU TCBFLGS7 01412000 TCBSTACK EQU TCBFLGS7 01413000 TCBRSV34 EQU TCBFLGS7 01414000 TCBRSV33 EQU TCBFLGS7 01415000 TCBGPECB EQU TCBFLGS7 01416000 TCBNTJS EQU TCBFLGS6 01417000 TCBAPG EQU TCBFLGS6 01418000 TCBMIGR EQU TCBFLGS6 01419000 TCBRV303 EQU TCBFLGS6 01420000 TCBSPVLK EQU TCBFLGS6 01421000 TCBCPU EQU TCBFLGS6 01422000 TCBPIE17 EQU TCBFLGS6 01423000 TCBRV EQU TCBFLGS6 01424000 TCBRSV79 EQU TCBNDSP5 01425000 TCBRSV78 EQU TCBNDSP5 01426000 TCBRSV77 EQU TCBNDSP5 01427000 TCBRSV76 EQU TCBNDSP5 01428000 TCBRSV75 EQU TCBNDSP5 01429000 TCBRSV74 EQU TCBNDSP5 01430000 TCBRSV95 EQU TCBNDSP5 01431000 TCBRSV94 EQU TCBNDSP5 01432000 TCBRSV93 EQU TCBNDSP4 01433000 TCBRSV92 EQU TCBNDSP4 01434000 TCBRSV91 EQU TCBNDSP4 01435000 TCBRSV90 EQU TCBNDSP4 01436000 TCBRSV89 EQU TCBNDSP4 01437000 TCBRSV88 EQU TCBNDSP4 01438000 TCBRSV87 EQU TCBNDSP4 01439000 TCBRSV86 EQU TCBNDSP4 01440000 TCBEXT1A EQU TCBEXT1+1 01441000 TCBRSV32 EQU TCBEXT1 01442000 TCBEXCPD EQU TCB+192 01443000 TCBIOBRC EQU TCB+188 01444000 TCBDDWTC EQU TCB+186 01445000 TCBDDEXC EQU TCB+184 01446000 TCBJSCBB EQU TCBJSCB+1 01447000 @NM00106 EQU TCBRECDE 01448000 TCBREC EQU TCBRECDE 01449000 TCBMDIDS EQU TCB+176 01450000 TCBNDINT EQU TCBNDSP3 01451000 TCBRSV27 EQU TCBNDSP3 01452000 TCBRSV26 EQU TCBNDSP3 01453000 TCBRSV25 EQU TCBNDSP3 01454000 TCBRSV24 EQU TCBNDSP3 01455000 TCBSRBND EQU TCBNDSP3 01456000 TCBRV302 EQU TCBNDSP3 01457000 TCBLJSND EQU TCBNDSP3 01458000 TCBABE EQU TCBNDSP2 01459000 TCBDSS EQU TCBNDSP2 01460000 TCBOWAIT EQU TCBNDSP2 01461000 TCBIWAIT EQU TCBNDSP2 01462000 TCBNDTS EQU TCBNDSP2 01463000 TCBNDSVC EQU TCBNDSP2 01464000 TCBSTPP EQU TCBNDSP2 01465000 TCBABD EQU TCBNDSP2 01466000 TCBRSV22 EQU TCBNDSP1 01467000 TCBPIEND EQU TCBNDSP1 01468000 TCBTPSP EQU TCBNDSP1 01469000 TCBDDRND EQU TCBNDSP1 01470000 TCBRSPND EQU TCBNDSP1 01471000 TCBRSTND EQU TCBNDSP1 01472000 TCBDARPN EQU TCBNDSP1 01473000 TCBDARTN EQU TCBNDSP1 01474000 TCBNDSP0 EQU TCBNDSP 01475000 TCBUSER EQU TCB+168 01476000 TCBTCTB EQU TCBTCT+1 01477000 TCBRSV9C EQU TCBTCTGF 01478000 TCBRSV9B EQU TCBTCTGF 01479000 TCBRSV9A EQU TCBTCTGF 01480000 TCBRSV99 EQU TCBTCTGF 01481000 TCBRSV98 EQU TCBTCTGF 01482000 TCBRSV97 EQU TCBTCTGF 01483000 TCBRSV20 EQU TCBTCTGF 01484000 TCBSMFGF EQU TCBTCTGF 01485000 TCBSTABB EQU TCBSTAB+1 01486000 TCBSTCUR EQU TCBNSTAE 01487000 TCBRV301 EQU TCBNSTAE 01488000 TCBSYNCH EQU TCBNSTAE 01489000 TCBHALT EQU TCBNSTAE 01490000 TCBPPSUP EQU TCBNSTAE 01491000 TCB33E EQU TCBNSTAE 01492000 TCBQUIES EQU TCBNSTAE 01493000 TCBSTABE EQU TCBNSTAE 01494000 TCBAQE EQU TCB+156 01495000 TCBPQE EQU TCB+152 01496000 TCBTSDP EQU TCB+151 01497000 TCBTSLP EQU TCB+150 01498000 TCBSTPCT EQU TCB+149 01499000 TCBCPUBN EQU TCBTSFLG 01500000 TCBDYDSP EQU TCBTSFLG 01501000 TCBRSV18 EQU TCBTSFLG 01502000 TCBRSV17 EQU TCBTSFLG 01503000 TCBTIOTG EQU TCBTSFLG 01504000 TCBATT EQU TCBTSFLG 01505000 TCBSTPPR EQU TCBTSFLG 01506000 TCBRV300 EQU TCBTSTSK 01507000 TCBECB EQU TCB+144 01508000 TCBIQE EQU TCB+140 01509000 TCBLTC EQU TCB+136 01510000 TCBOTC EQU TCB+132 01511000 TCBNTC EQU TCB+128 01512000 TCBJSTCA EQU TCBJSTCB+1 01513000 TCBRSV16 EQU TCBJSTCB 01514000 TCBTQET EQU TCBTME 01515000 TCBTCB EQU TCB+116 01516000 TCBFSAB EQU TCBFSA+1 01517000 TCBQEL EQU TCBFSA 01518000 TCBGRS15 EQU TCBGRS+60 01519000 TCBGRS14 EQU TCBGRS+56 01520000 TCBGRS13 EQU TCBGRS+52 01521000 TCBGRS12 EQU TCBGRS+48 01522000 TCBGRS11 EQU TCBGRS+44 01523000 TCBGRS10 EQU TCBGRS+40 01524000 TCBGRS9 EQU TCBGRS+36 01525000 TCBGRS8 EQU TCBGRS+32 01526000 TCBGRS7 EQU TCBGRS+28 01527000 TCBGRS6 EQU TCBGRS+24 01528000 TCBGRS5 EQU TCBGRS+20 01529000 TCBGRS4 EQU TCBGRS+16 01530000 TCBGRS3 EQU TCBGRS+12 01531000 TCBGRS2 EQU TCBGRS+8 01532000 TCBGRS1 EQU TCBGRS+4 01533000 TCBGRS0 EQU TCBGRS 01534000 TCBJPQB EQU TCBJPQ+1 01535000 TCBRSV15 EQU TCBPURGE 01536000 TCBRSV14 EQU TCBPURGE 01537000 TCBRSV13 EQU TCBPURGE 01538000 TCBRSV12 EQU TCBPURGE 01539000 TCBRSV11 EQU TCBPURGE 01540000 TCBRSV10 EQU TCBPURGE 01541000 TCBRSV09 EQU TCBPURGE 01542000 TCBJPQF EQU TCBPURGE 01543000 TCBJLB EQU TCB+40 01544000 TCBLLS EQU TCB+36 01545000 TCBDSP EQU TCB+35 01546000 TCBLMP EQU TCB+34 01547000 TCBPNDSP EQU TCBFLGS5 01548000 TCBFCD1 EQU TCBFLGS5 01549000 TCBSTP EQU TCBFLGS5 01550000 TCBSYS EQU TCBFLGS5 01551000 TCBANDSP EQU TCBFLGS5 01552000 TCBPAGE EQU TCBFLGS5 01553000 TCBUXNDF EQU TCBABWF 01554000 TCBFC EQU TCBFLGS5 01555000 TCBONDSP EQU TCBFLGS4 01556000 TCBMPCND EQU TCBFLGS4 01557000 TCBMPCVQ EQU TCBFLGS4 01558000 TCBUXNDV EQU TCBFLGS4 01559000 TCBHNDSP EQU TCBFLGS4 01560000 TCBRQENA EQU TCBFLGS4 01561000 TCBSER EQU TCBFLGS4 01562000 TCBNDUMP EQU TCBFLGS4 01563000 TCBDWSTA EQU TCBFLGS3 01564000 TCBRSV08 EQU TCBFLGS3 01565000 TCBRSV07 EQU TCBFLGS3 01566000 TCBRSV06 EQU TCBFLGS3 01567000 TCBABGM EQU TCBFLGS3 01568000 TCBABTRM EQU TCBFLGS3 01569000 TCBADINP EQU TCBFLGS3 01570000 TCBFSM EQU TCBFLGS3 01571000 TCBFTS EQU TCBFLGS2 01572000 TCBFETXR EQU TCBFLGS2 01573000 TCBFDSOP EQU TCBFLGS2 01574000 TCBFJMC EQU TCBFLGS2 01575000 TCBFSMC EQU TCBFLGS2 01576000 TCBFABOP EQU TCBFLGS2 01577000 TCBFSTI EQU TCBFLGS2 01578000 TCBFOINP EQU TCBFLGS2 01579000 TCBFX EQU TCBFLGS1 01580000 TCBFS EQU TCBFLGS1 01581000 TCBFT EQU TCBFLGS1 01582000 TCBPDUMP EQU TCBFLGS1 01583000 TCBNONPR EQU TCBFLGS1 01584000 TCBFERA EQU TCBFLGS1 01585000 TCBFE EQU TCBFLGS1 01586000 TCBFA EQU TCBFLGS1 01587000 TCBZERO EQU TCBPKF 01588000 TCBFLAG EQU TCBPKF 01589000 TCBMSSB EQU TCBMSS+1 01590000 TCBRSV03 EQU TCBMSS 01591000 TCBTRNB EQU TCBTRN+1 01592000 TCBRSV02 EQU TCBABF 01593000 TCBOLTEP EQU TCBABF 01594000 TCBTCP EQU TCBABF 01595000 TCBTCPP EQU TCBABF 01596000 TCBRSV01 EQU TCBABF 01597000 TCBGRPH EQU TCBABF 01598000 TCBNOCHK EQU TCBABF 01599000 TCBMOD91 EQU TCBABF 01600000 TCBRV318 EQU TCBCMSG 01601000 TCBRV317 EQU TCBCIND 01602000 TCBRV316 EQU TCBCWTO 01603000 TCBCASID EQU TCBCDBL 01604000 TCBNOCC EQU TCBSTCC 01605000 TCBDMPO EQU TCBCPP 01606000 TCBCSTEP EQU TCBCMPF 01607000 TCBCREQ EQU TCBCMPF 01608000 TCBDEB EQU TCB+8 01609000 TCBPIEA EQU TCBPIE+1 01610000 TCBPM EQU TCBPMASK 01611000 @NM00105 EQU TCBPMASK 01612000 TCBRBP EQU TCB 01613000 TCBFRS6 EQU TCBFRS+24 01614000 TCBFRS4 EQU TCBFRS+16 01615000 TCBFRS2 EQU TCBFRS+8 01616000 TCBFRS0 EQU TCBFRS 01617000 SVRBEND EQU RBSECT+192 01618000 RBFEPARM EQU RBSECT+168 01619000 SIRBEND EQU RBSECT+168 01620000 RBRSV158 EQU RBRSV150 01621000 RBRSV157 EQU RBRSV150 01622000 RBRSV156 EQU RBRSV150 01623000 RBRSV155 EQU RBRSV150 01624000 RBRSV154 EQU RBRSV150 01625000 RBRSV153 EQU RBRSV150 01626000 RBRSV152 EQU RBRSV150 01627000 RBRSV151 EQU RBRSV150 01628000 RBRSV149 EQU RBSECT+166 01629000 RBRSV148 EQU RBSECT+164 01630000 RBRSV169 EQU RBSDATA+3 01631000 RBSID EQU RBSDATA+2 01632000 RBSPKEY EQU RBSDATA+1 01633000 RBRSV168 EQU RBSFLG3 01634000 RBSTERMO EQU RBSFLG3 01635000 RBSBRNTR EQU RBSFLG3 01636000 RBSPRNTR EQU RBSFLG3 01637000 RBSCNCEL EQU RBSFLG3 01638000 RBSRECRD EQU RBSFLG3 01639000 RBSTERMI EQU RBSFLG3 01640000 RBRSV167 EQU RBSFLG3 01641000 RBSOWNRA EQU RBSOWNR+1 01642000 RBSSUPER EQU RBSFLGS2 01643000 RBSKEY0 EQU RBSFLGS2 01644000 RBRSV166 EQU RBSFLGS2 01645000 RBRSV165 EQU RBSFLGS2 01646000 RBSINUSE EQU RBSFLGS2 01647000 RBRSV164 EQU RBSFLGS2 01648000 RBSXCTL2 EQU RBSFLGS2 01649000 RBRSV163 EQU RBSFLGS2 01650000 RBSPARMA EQU RBSPARM+1 01651000 RBSHALT EQU RBSIOPRC 01652000 RBSNOIOP EQU RBSIOPRC 01653000 RBSASYNC EQU RBSFLGS1 01654000 RBRSV162 EQU RBSFLGS1 01655000 RBSESTAE EQU RBSFLGS1 01656000 RBSDUMMY EQU RBSFLGS1 01657000 RBSSTAR EQU RBSFLGS1 01658000 RBSSTAI EQU RBSFLGS1 01659000 RBSEXIT EQU RBSCBB+4 01660000 RBSCHAIN EQU RBSCBB 01661000 TIRBEND EQU @NM00103+8 01662000 PRBEND EQU @NM00103+8 01663000 RBRSV146 EQU RBRSV138 01664000 RBRSV145 EQU RBRSV138 01665000 RBRSV144 EQU RBRSV138 01666000 RBRSV143 EQU RBRSV138 01667000 RBRSV142 EQU RBRSV138 01668000 RBRSV141 EQU RBRSV138 01669000 RBRSV140 EQU RBRSV138 01670000 RBRSV139 EQU RBRSV138 01671000 RBRSV137 EQU @NM00103+6 01672000 RBRSV136 EQU @NM00103+4 01673000 RBRSV135 EQU @NM00103 01674000 @NM00102 EQU RBSECT+32 01675000 @NM00101 EQU @NM00099+1 01676000 RBSCF EQU @NM00100 01677000 RBPGMQ1 EQU RBPGMQ+1 01678000 @NM00098 EQU RBPGMQ 01679000 @NM00097 EQU RBSECT+16 01680000 @NM00096 EQU @NM00092 01681000 @NM00095 EQU @NM00092 01682000 RBIQETP EQU @NM00092 01683000 RBUSIQE EQU RBETXR 01684000 RBATTN EQU @NM00092 01685000 @NM00094 EQU @NM00092 01686000 @NM00093 EQU @NM00092 01687000 RBPMSVRB EQU @NM00090 01688000 RBATNXIT EQU @NM00090 01689000 @NM00091 EQU @NM00090 01690000 RBWAITP EQU @NM00090 01691000 RBFNSVRB EQU RBTRSVRB 01692000 RBFTP EQU @NM00090 01693000 RBSIZE EQU RBSECT+8 01694000 RBABOPSW EQU RBSECT+4 01695000 RBPPSAV1 EQU RBPPSAV+1 01696000 @NM00088 EQU RBPPSAV 01697000 RBPRFXND EQU RBPREFIX+64 01698000 RBINTCOD EQU RBINTCDA+1 01699000 RBINLNTH EQU RBINTCDA 01700000 RBWCSA EQU RBPREFIX+60 01701000 RBRSV004 EQU RBPREFIX+57 01702000 RBSSSYN EQU RBFLAGS1 01703000 RBSCB EQU RBFLAGS1 01704000 RBLONGWT EQU RBFLAGS1 01705000 RBASIR EQU RBFLAGS1 01706000 RBRSV159 EQU RBFLAGS1 01707000 RBABEND EQU RBFLAGS1 01708000 RBXWAIT EQU RBFLAGS1 01709000 RBSLOCK EQU RBFLAGS1 01710000 RBRTRAN EQU RBRTPSW2+4 01711000 RBRTINCD EQU RBRTICIL+2 01712000 RBRTILC EQU RBRTICIL+1 01713000 RBRSV160 EQU RBRTICIL 01714000 RBRTPSW1 EQU RBRTOPSW 01715000 RBRSV062 EQU RBRSV054 01716000 RBRSV061 EQU RBRSV054 01717000 RBRSV060 EQU RBRSV054 01718000 RBRSV059 EQU RBRSV054 01719000 RBRSV058 EQU RBRSV054 01720000 RBRSV057 EQU RBRSV054 01721000 RBRSV056 EQU RBRSV054 01722000 RBRSV055 EQU RBRSV054 01723000 RBRSV053 EQU RBPREFIX+38 01724000 RBRSV052 EQU RBPREFIX+36 01725000 RBRSV051 EQU RBPREFIX+32 01726000 RBPRFXST EQU RBPREFIX+32 01727000 RBRSV050 EQU RBPREFIX+28 01728000 RBRSV049 EQU RBRSV041 01729000 RBRSV048 EQU RBRSV041 01730000 RBRSV047 EQU RBRSV041 01731000 RBRSV046 EQU RBRSV041 01732000 RBRSV045 EQU RBRSV041 01733000 RBRSV044 EQU RBRSV041 01734000 RBRSV043 EQU RBRSV041 01735000 RBRSV042 EQU RBRSV041 01736000 RBRSV040 EQU RBPREFIX+26 01737000 RBRSV039 EQU RBPREFIX+24 01738000 RBRSV038 EQU RBPREFIX+20 01739000 RBRSV037 EQU RBPREFIX+16 01740000 RBRSV036 EQU RBRSV028 01741000 RBRSV035 EQU RBRSV028 01742000 RBRSV034 EQU RBRSV028 01743000 RBRSV033 EQU RBRSV028 01744000 RBRSV032 EQU RBRSV028 01745000 RBRSV031 EQU RBRSV028 01746000 RBRSV030 EQU RBRSV028 01747000 RBRSV029 EQU RBRSV028 01748000 RBRSV027 EQU RBRSV019 01749000 RBRSV026 EQU RBRSV019 01750000 RBRSV025 EQU RBRSV019 01751000 RBRSV024 EQU RBRSV019 01752000 RBRSV023 EQU RBRSV019 01753000 RBRSV022 EQU RBRSV019 01754000 RBRSV021 EQU RBRSV019 01755000 RBRSV020 EQU RBRSV019 01756000 RBRSV018 EQU RBPREFIX+13 01757000 RBRSV017 EQU RBPREFIX+12 01758000 RBSRV016 EQU RBPREFIX+11 01759000 RBRSV015 EQU RBPREFIX+10 01760000 RBRSV014 EQU RBPREFIX+8 01761000 RBRSV013 EQU RBPREFIX+4 01762000 RBRSV012 EQU RBPREFIX 01763000 RBEXSAVE EQU XRBESA 01764000 XRBREG15 EQU RBGRS15 01765000 XRBREG14 EQU RBGRS14 01766000 XRBREG13 EQU RBGRS13 01767000 XRBREG12 EQU RBGRS12 01768000 XRBREG11 EQU RBGRS11 01769000 XRBREG10 EQU RBGRS10 01770000 XRBREG9 EQU RBGRS9 01771000 XRBREG8 EQU RBGRS8 01772000 XRBREG7 EQU RBGRS7 01773000 XRBREG6 EQU RBGRS6 01774000 XRBREG5 EQU RBGRS5 01775000 XRBREG4 EQU RBGRS4 01776000 XRBREG3 EQU RBGRS3 01777000 XRBREG2 EQU RBGRS2 01778000 XRBREG1 EQU RBGRS1 01779000 XRBREG0 EQU RBGRS0 01780000 XRBLNKA EQU RBLINKB 01781000 XRBWT EQU RBWCF 01782000 @NM00087 EQU RBBASIC+24 01783000 RBOPSWPS EQU RBOPSWB2 01784000 @NM00086 EQU RBOPSWB2 01785000 @NM00085 EQU XRBPSW 01786000 @NM00084 EQU RBBASIC+12 01787000 XRBWAIT EQU RBECBWT 01788000 XRBFRRB EQU RBFDYN 01789000 @NM00083 EQU XSTAB2 01790000 XRBACTV EQU RBFACTV 01791000 XRBTCBP EQU RBTCBNXT 01792000 @NM00082 EQU XSTAB1 01793000 XRBCKPT EQU RBFTCKPT 01794000 @NM00081 EQU XSTAB1 01795000 @NM00080 EQU RBBASIC+8 01796000 @NM00079 EQU RBEXRTNM+1 01797000 RBTMIND3 EQU RBTMFLD 01798000 RBTMIND2 EQU RBTMFLD 01799000 RBTMCMP EQU RBTMFLD 01800000 RBWLIM EQU RBTMFLD 01801000 RBRSV005 EQU RBTMFLD 01802000 RBTMTOD EQU RBTMFLD 01803000 RBTMQUE EQU RBTMFLD 01804000 @NM00078 EQU RBPRFX 01805000 RTCTISVC EQU RTCTSDO4 01806000 RTCTSDOV EQU RTCTSDMG 01807000 @NM00077 EQU RTCTSDO4 01808000 @NM00076 EQU RTCTSDO3 01809000 RTCTSDPH EQU RTCTSDO3 01810000 RTCTSDPG EQU RTCTSDO3 01811000 @NM00075 EQU RTCTSDO2 01812000 RTCTSDPD EQU RTCTSDO2 01813000 RTCTSDPC EQU RTCTSDO2 01814000 RTCTSDPB EQU RTCTSDO2 01815000 RTCTSDPA EQU RTCTSDO2 01816000 RTCTSDP9 EQU RTCTSDO2 01817000 RTCTSDP8 EQU RTCTSDO2 01818000 RTCTSDP7 EQU RTCTSDO1 01819000 RTCTSDP6 EQU RTCTSDO1 01820000 RTCTSDP5 EQU RTCTSDO1 01821000 RTCTSDP4 EQU RTCTSDO1 01822000 RTCTSDP3 EQU RTCTSDO1 01823000 RTCTSDP2 EQU RTCTSDO1 01824000 RTCTSDP1 EQU RTCTSDO1 01825000 RTCTSDP0 EQU RTCTSDO1 01826000 RTCTISYM EQU RTCTSD04 01827000 RTCTSMOV EQU RTCTSMMG 01828000 @NM00074 EQU RTCTSD04 01829000 RTCTSD03 EQU RTCTMSYO+2 01830000 RTCTSD02 EQU RTCTMSYO+1 01831000 RTCTSDS7 EQU RTCTSD01 01832000 RTCTSDS6 EQU RTCTSD01 01833000 RTCTSDS5 EQU RTCTSD01 01834000 RTCTSDS4 EQU RTCTSD01 01835000 RTCTSDS3 EQU RTCTSD01 01836000 RTCTSDS2 EQU RTCTSD01 01837000 RTCTSDS1 EQU RTCTSD01 01838000 RTCTSDS0 EQU RTCTSD01 01839000 RTCTISYU EQU RTCTSUO4 01840000 RTCTSUOV EQU RTCTSUMG 01841000 @NM00073 EQU RTCTSUO4 01842000 RTCTSYDF EQU RTCTSUO3 01843000 RTCTSYDE EQU RTCTSUO3 01844000 RTCTSYDD EQU RTCTSUO3 01845000 RTCTSYDC EQU RTCTSUO3 01846000 RTCTSYDB EQU RTCTSUO3 01847000 RTCTSYDA EQU RTCTSUO3 01848000 RTCTSYD9 EQU RTCTSUO3 01849000 RTCTSYD8 EQU RTCTSUO3 01850000 @NM00072 EQU RTCTSUO2 01851000 RTCTSYDH EQU RTCTSUO2 01852000 RTCTSYDG EQU RTCTSUO2 01853000 RTCTSYD7 EQU RTCTSUO1 01854000 RTCTSYD6 EQU RTCTSUO1 01855000 RTCTSYD5 EQU RTCTSUO1 01856000 RTCTSYD4 EQU RTCTSUO1 01857000 RTCTSYD3 EQU RTCTSUO1 01858000 RTCTSYD2 EQU RTCTSUO1 01859000 RTCTSYD1 EQU RTCTSUO1 01860000 RTCTSYD0 EQU RTCTSUO1 01861000 RTCTISAB EQU RTCTSAO4 01862000 RTCTSAOV EQU RTCTSAMG 01863000 @NM00071 EQU RTCTSAO4 01864000 RTCTSADF EQU RTCTSAO3 01865000 RTCTSADE EQU RTCTSAO3 01866000 RTCTSADD EQU RTCTSAO3 01867000 RTCTSADC EQU RTCTSAO3 01868000 RTCTSADB EQU RTCTSAO3 01869000 RTCTSADA EQU RTCTSAO3 01870000 RTCTSAD9 EQU RTCTSAO3 01871000 RTCTSAD8 EQU RTCTSAO3 01872000 @NM00070 EQU RTCTSAO2 01873000 RTCTSADH EQU RTCTSAO2 01874000 RTCTSADG EQU RTCTSAO2 01875000 RTCTSAD7 EQU RTCTSAO1 01876000 RTCTSAD6 EQU RTCTSAO1 01877000 RTCTSAD5 EQU RTCTSAO1 01878000 RTCTSAD4 EQU RTCTSAO1 01879000 RTCTSAD3 EQU RTCTSAO1 01880000 RTCTSAD2 EQU RTCTSAO1 01881000 RTCTSAD1 EQU RTCTSAO1 01882000 RTCTSAD0 EQU RTCTSAO1 01883000 RTCTZZZ5 EQU RTCT+340 01884000 RTCTZZZ4 EQU RTCT+336 01885000 RTCTMRMQ EQU RTCT+332 01886000 RTCTSDF5 EQU RTCTSDF3+3 01887000 RTCTSDDO EQU RTCTSDF4 01888000 RTCTSDEN EQU RTCTSDF4 01889000 RTCTSDEQ EQU RTCTSDF4 01890000 RTCTSDTR EQU RTCTSDF4 01891000 RTCTSDRM EQU RTCTSDF4 01892000 RTCTSDAN EQU RTCTSDF4 01893000 RTCTSDNC EQU RTCTSDF4 01894000 RTCTSDSS EQU RTCTSDF4 01895000 RTCTSDAS EQU RTCTSDF3 01896000 RTCTZZZ3 EQU RTCT+266 01897000 @NM00069 EQU RTCTSDF2 01898000 RTCTSDRW EQU RTCTSDF2 01899000 RTCTSDSL EQU RTCTSDF2 01900000 RTCTSDWF EQU RTCTSDF2 01901000 RTCTSDLA EQU RTCTSDF2 01902000 RTCTSDDI EQU RTCTSDF2 01903000 RTCTSDTQ EQU RTCTSDF2 01904000 RTCTSDMR EQU RTCTSDF2 01905000 RTCTSDSC EQU RTCTSDF1 01906000 RTCTSDRS EQU RTCTSDF1 01907000 RTCTSDSD EQU RTCTSDF1 01908000 RTCTSDEP EQU RTCTSDF1 01909000 RTCTSDMA EQU RTCTSDF1 01910000 RTCTSDSH EQU RTCTSDF1 01911000 RTCTSDND EQU RTCTSDF1 01912000 RTCTSDNO EQU RTCTSDF1 01913000 RTCTZZZ2 EQU RTCT+257 01914000 RTCTSDPR EQU RTCTSDI+2 01915000 RTCTINDX EQU RTCTSDI+1 01916000 RTCTSDNA EQU RTCTSDI 01917000 @NM00068 EQU RTCTASO2 01918000 RTCTASNQ EQU RTCTASO2 01919000 RTCTASNA EQU RTCTASO2 01920000 RTCTASNS EQU RTCTASO2 01921000 RTCTASSU EQU RTCTASO2 01922000 RTCTASSW EQU RTCTASO2 01923000 RTCTASCS EQU RTCTASO2 01924000 RTCTASTR EQU RTCTASO1 01925000 RTCTASLP EQU RTCTASO1 01926000 RTCTASRG EQU RTCTASO1 01927000 RTCTASLS EQU RTCTASO1 01928000 RTCTASSQ EQU RTCTASO1 01929000 RTCTASNU EQU RTCTASO1 01930000 RTCTASPS EQU RTCTASO1 01931000 RTCTASAL EQU RTCTASO1 01932000 RTCTSDO EQU RTCTOPT+12 01933000 RTCTSYO EQU RTCTOPT+8 01934000 RTCTSUO EQU RTCTOPT+4 01935000 RTCTSAO EQU RTCTOPT 01936000 RTCTXXX2 EQU RTCT+234 01937000 RTCTETIM EQU RTCTERID+6 01938000 RTCTEASD EQU RTCTERID+4 01939000 RTCTECPU EQU RTCTERID+2 01940000 RTCTESEQ EQU RTCTERID 01941000 RTCTSDWK EQU RTCT+220 01942000 RTCTTDCB EQU RTCT+184 01943000 RTCTSDSW EQU RTCT+180 01944000 RTCTSEQ# EQU RTCT+178 01945000 RTCTXXX1 EQU RTCT+177 01946000 @NM00067 EQU RTCTRFLG 01947000 RTCTRSTF EQU RTCTRFLG 01948000 RTCTRPER EQU RTCTRFLG 01949000 RTCTRTER EQU RTCTRFLG 01950000 RTCTTEST EQU RTCT+172 01951000 RTCTMSRB EQU RTCT+168 01952000 RTCTMLCK EQU RTCT+164 01953000 RTCTFMT EQU RTCT+160 01954000 RTCTSDIP EQU RTCTSDPL 01955000 RTCTDEV EQU RTCTSDDS+8 01956000 RTCTDCB EQU RTCTSDDS+4 01957000 @NM00066 EQU RTCTFLG 01958000 RTCTDETP EQU RTCTFLG 01959000 RTCTDSUS EQU RTCTFLG 01960000 RTCTDSST EQU RTCTFLG 01961000 RTCTDSNM EQU RTCTSDDS 01962000 RTCTRCB EQU RTCT+32 01963000 RTCTRECB EQU RTCT+28 01964000 RTCTFASB EQU RTCT+24 01965000 RTCTMECB EQU RTCT+20 01966000 RTCTSDID EQU RTCT+18 01967000 RTCTYYY1 EQU RTCT+16 01968000 RTCTSY04 EQU RTCTSYD+3 01969000 RTCTSY03 EQU RTCTSYD+2 01970000 RTCTSY02 EQU RTCTSYD+1 01971000 RTCTSYM7 EQU RTCTSY01 01972000 RTCTSYM6 EQU RTCTSY01 01973000 RTCTSYM5 EQU RTCTSY01 01974000 RTCTSYM4 EQU RTCTSY01 01975000 RTCTSYM3 EQU RTCTSY01 01976000 RTCTSYM2 EQU RTCTSY01 01977000 RTCTSYM1 EQU RTCTSY01 01978000 RTCTSYM0 EQU RTCTSY01 01979000 RTCTSUP4 EQU RTCTSUP+3 01980000 RTCTSUDF EQU RTCTSUP3 01981000 RTCTSUDE EQU RTCTSUP3 01982000 RTCTSUDD EQU RTCTSUP3 01983000 RTCTSUDC EQU RTCTSUP3 01984000 RTCTSUDB EQU RTCTSUP3 01985000 RTCTSUDA EQU RTCTSUP3 01986000 RTCTSUD9 EQU RTCTSUP3 01987000 RTCTSUD8 EQU RTCTSUP3 01988000 @NM00065 EQU RTCTSUP2 01989000 RTCTSUDH EQU RTCTSUP2 01990000 RTCTSUDG EQU RTCTSUP2 01991000 RTCTSUD7 EQU RTCTSUP1 01992000 RTCTSUD6 EQU RTCTSUP1 01993000 RTCTSUD5 EQU RTCTSUP1 01994000 RTCTSUD4 EQU RTCTSUP1 01995000 RTCTSUD3 EQU RTCTSUP1 01996000 RTCTSUD2 EQU RTCTSUP1 01997000 RTCTSUD1 EQU RTCTSUP1 01998000 RTCTSUD0 EQU RTCTSUP1 01999000 RTCTSAP4 EQU RTCTSAP+3 02000000 RTCTSABF EQU RTCTSAP3 02001000 RTCTSABE EQU RTCTSAP3 02002000 RTCTSABD EQU RTCTSAP3 02003000 RTCTSABC EQU RTCTSAP3 02004000 RTCTSABB EQU RTCTSAP3 02005000 RTCTSABA EQU RTCTSAP3 02006000 RTCTSAB9 EQU RTCTSAP3 02007000 RTCTSAB8 EQU RTCTSAP3 02008000 @NM00064 EQU RTCTSAP2 02009000 RTCTSABH EQU RTCTSAP2 02010000 RTCTSABG EQU RTCTSAP2 02011000 RTCTSAB7 EQU RTCTSAP1 02012000 RTCTSAB6 EQU RTCTSAP1 02013000 RTCTSAB5 EQU RTCTSAP1 02014000 RTCTSAB4 EQU RTCTSAP1 02015000 RTCTSAB3 EQU RTCTSAP1 02016000 RTCTSAB2 EQU RTCTSAP1 02017000 RTCTSAB1 EQU RTCTSAP1 02018000 RTCTSAB0 EQU RTCTSAP1 02019000 RTCTNAME EQU RTCT 02020000 CVTLEVL EQU CVTRELNO+2 02021000 CVTNUMB EQU CVTRELNO 02022000 CVTMDL EQU CVTFIX+250 02023000 @NM00039 EQU CVTFIX+248 02024000 @NM00038 EQU CVTFIX 02025000 CVTRV482 EQU CVTXTNT2+128 02026000 CVTRV481 EQU CVTXTNT2+124 02027000 CVTRV480 EQU CVTXTNT2+120 02028000 CVTRV479 EQU CVTXTNT2+118 02029000 CVTRV478 EQU CVTXTNT2+117 02030000 CVTRV477 EQU CVTXTNT2+116 02031000 CVTRV476 EQU CVTXTNT2+115 02032000 CVTRV475 EQU CVTXTNT2+114 02033000 CVTRV474 EQU CVTRV466 02034000 CVTRV473 EQU CVTRV466 02035000 CVTRV472 EQU CVTRV466 02036000 CVTRV471 EQU CVTRV466 02037000 CVTRV470 EQU CVTRV466 02038000 CVTRV469 EQU CVTRV466 02039000 CVTRV468 EQU CVTRV466 02040000 CVTRV467 EQU CVTRV466 02041000 CVTRV465 EQU CVTRV457 02042000 CVTRV464 EQU CVTRV457 02043000 CVTRV463 EQU CVTRV457 02044000 CVTRV462 EQU CVTRV457 02045000 CVTRV461 EQU CVTRV457 02046000 CVTRV460 EQU CVTRV457 02047000 CVTRV459 EQU CVTRV457 02048000 CVTRV458 EQU CVTRV457 02049000 CVTRV456 EQU CVTXTNT2+108 02050000 CVTRV455 EQU CVTXTNT2+104 02051000 CVTRV454 EQU CVTXTNT2+100 02052000 CVTRV453 EQU CVTXTNT2+96 02053000 CVTRV452 EQU CVTXTNT2+94 02054000 CVTRV451 EQU CVTXTNT2+92 02055000 CVTRV450 EQU CVTXTNT2+90 02056000 CVTRV449 EQU CVTXTNT2+88 02057000 CVTRV448 EQU CVTXTNT2+87 02058000 CVTRV447 EQU CVTXTNT2+86 02059000 CVTRV446 EQU CVTRV438 02060000 CVTRV445 EQU CVTRV438 02061000 CVTRV444 EQU CVTRV438 02062000 CVTRV443 EQU CVTRV438 02063000 CVTRV442 EQU CVTRV438 02064000 CVTRV441 EQU CVTRV438 02065000 CVTRV440 EQU CVTRV438 02066000 CVTRV439 EQU CVTRV438 02067000 CVTRV437 EQU CVTRV429 02068000 CVTRV436 EQU CVTRV429 02069000 CVTRV435 EQU CVTRV429 02070000 CVTRV434 EQU CVTRV429 02071000 CVTRV433 EQU CVTRV429 02072000 CVTRV432 EQU CVTRV429 02073000 CVTRV431 EQU CVTRV429 02074000 CVTRV430 EQU CVTRV429 02075000 CVTRV428 EQU CVTXTNT2+80 02076000 CVTRV427 EQU CVTXTNT2+76 02077000 CVTRV426 EQU CVTXTNT2+72 02078000 CVTRV425 EQU CVTXTNT2+68 02079000 CVTATACT EQU CVTATCVT 02080000 CVTRV423 EQU CVTXTNT2+62 02081000 CVTRV422 EQU CVTXTNT2+60 02082000 CVTRV421 EQU CVTXTNT2+58 02083000 CVTRV420 EQU CVTXTNT2+56 02084000 CVTRV419 EQU CVTXTNT2+55 02085000 CVTRV418 EQU CVTXTNT2+54 02086000 CVTRV417 EQU CVTRV409 02087000 CVTRV416 EQU CVTRV409 02088000 CVTRV415 EQU CVTRV409 02089000 CVTRV414 EQU CVTRV409 02090000 CVTRV413 EQU CVTRV409 02091000 CVTRV412 EQU CVTRV409 02092000 CVTRV411 EQU CVTRV409 02093000 CVTRV410 EQU CVTRV409 02094000 CVTRV408 EQU CVTRV400 02095000 CVTRV407 EQU CVTRV400 02096000 CVTRV406 EQU CVTRV400 02097000 CVTRV405 EQU CVTRV400 02098000 CVTRV404 EQU CVTRV400 02099000 CVTRV403 EQU CVTRV400 02100000 CVTRV402 EQU CVTRV400 02101000 CVTRV401 EQU CVTRV400 02102000 CVTICB EQU CVTXTNT2+48 02103000 CVTSKTA EQU CVTXTNT2+44 02104000 CVTRSV99 EQU CVTXTNT2+40 02105000 CVTRSV98 EQU CVTXTNT2+36 02106000 CVTRSV97 EQU CVTXTNT2+34 02107000 CVTRSV96 EQU CVTXTNT2+32 02108000 CVTOLTEP EQU CVTXTNT2+28 02109000 CVTQIDA EQU CVTQID+1 02110000 CVTRSV95 EQU CVTQID 02111000 CVTRSV94 EQU CVTXTNT2+20 02112000 CVTRSV93 EQU CVTXTNT2+16 02113000 CVTRSV92 EQU CVTXTNT2+12 02114000 CVTDEBVR EQU CVTXTNT2+8 02115000 CVTRSV91 EQU CVTXTNT2+6 02116000 CVTRSV9H EQU CVTFLGBT 02117000 CVTRSV9G EQU CVTFLGBT 02118000 CVTRSV9F EQU CVTFLGBT 02119000 CVTRSV9E EQU CVTFLGBT 02120000 CVTRSV9D EQU CVTFLGBT 02121000 CVTBAH EQU CVTFLGBT 02122000 CVTVME EQU CVTFLGBT 02123000 CVTNPE EQU CVTFLGBT 02124000 CVTNUCLS EQU CVTXTNT2+4 02125000 CVTDSSVA EQU CVTDSSV+1 02126000 CVTRSV89 EQU CVTDSSV 02127000 CVTRSV88 EQU CVTXTNT1+8 02128000 CVTRSV87 EQU CVTXTNT1+4 02129000 CVTFACHN EQU CVTXTNT1 02130000 CVTRV488 EQU CVTMAP+412 02131000 CVTRV487 EQU CVTMAP+408 02132000 CVTRV486 EQU CVTMAP+404 02133000 CVTRV485 EQU CVTMAP+400 02134000 CVTACTAP EQU CVTMAP+396 02135000 CVTAUTH EQU CVTMAP+392 02136000 CVTRV490 EQU CVTMAP+388 02137000 CVTRSV61 EQU CVTMAP+384 02138000 CVTVOLT1 EQU CVTVOLM1+1 02139000 CVTVOLI1 EQU CVTVOLF1 02140000 CVTSTOA EQU CVTMAP+376 02141000 CVTRSV58 EQU CVTMAP+374 02142000 CVTRSV57 EQU CVTMAP+372 02143000 CVTDDCE EQU CVTMAP+368 02144000 CVTPNWFR EQU CVTMAP+364 02145000 CVTSMF EQU CVTMAP+360 02146000 CVTSULK EQU CVTMAP+358 02147000 CVTSLKO EQU CVTSYSK 02148000 CVTSLKP EQU CVTSYSK 02149000 CVTSLKQ EQU CVTSYSK 02150000 CVTSLKR EQU CVTSYSK 02151000 CVTRSV56 EQU CVTSYSK 02152000 CVTRSV55 EQU CVTSYSK 02153000 CVTRSV54 EQU CVTSYSK 02154000 CVTRSV53 EQU CVTSYSK 02155000 CVTRSV52 EQU CVTA1F1 02156000 CVTRSV51 EQU CVTA1F1 02157000 CVTRSV50 EQU CVTA1F1 02158000 CVTRSV49 EQU CVTA1F1 02159000 CVTRSV48 EQU CVTA1F1 02160000 CVTRSV47 EQU CVTA1F1 02161000 CVTSRSW EQU CVTA1F1 02162000 CVTPFSW EQU CVTA1F1 02163000 CVTPCVT EQU CVTMAP+352 02164000 CVTRSV46 EQU CVTMAP+344 02165000 CVTRSV45 EQU CVTMAP+340 02166000 CVTRSV44 EQU CVTMAP+338 02167000 CVTRSV43 EQU CVTMAP+336 02168000 CVTHJESA EQU CVTHJES+1 02169000 CVTRSV42 EQU CVTHJES 02170000 CVTEXT2A EQU CVTEXT2+1 02171000 CVTRSV41 EQU CVTEXT2 02172000 CVTAPFA EQU CVTAPF+1 02173000 CVTRSV40 EQU CVTAPF 02174000 CVTRV518 EQU CVTINTLA 02175000 CVTRV517 EQU CVTERPV 02176000 CVTEORM EQU CVTMAP+312 02177000 CVTMCHPR EQU CVTMAP+308 02178000 CVTTZ EQU CVTMAP+304 02179000 CVTJEPS EQU CVTMAP+300 02180000 CVTJESCT EQU CVTMAP+296 02181000 CVTMODE EQU CVTMAP+292 02182000 CVTPTRV EQU CVTMAP+288 02183000 CVTREAL EQU CVTMAP+284 02184000 CVTRSV39 EQU CVTMAP+280 02185000 CVTRSV38 EQU CVTMAP+276 02186000 CVTDMSRA EQU CVTDMSR+1 02187000 CVTRV634 EQU CVTDMSRF 02188000 CVTRV633 EQU CVTDMSRF 02189000 CVTRV632 EQU CVTDMSRF 02190000 CVTRV631 EQU CVTDMSRF 02191000 CVTRV630 EQU CVTDMSRF 02192000 CVTRV629 EQU CVTDMSRF 02193000 CVTUDUMP EQU CVTDMSRF 02194000 CVTSDUMP EQU CVTDMSRF 02195000 CVTQMSGA EQU CVTQMSG+1 02196000 CVTRSV36 EQU CVTQMSG 02197000 CVTAMFF EQU CVTMAP+264 02198000 CVTPURGA EQU CVTPURG+1 02199000 CVTRSV35 EQU CVTPURG 02200000 CVTCBSP EQU CVTMAP+256 02201000 CVTATERA EQU CVTATER+1 02202000 CVTSYST EQU CVTATER 02203000 CVTVOLT2 EQU CVTTAT 02204000 CVTVOLI2 EQU CVTVOLF2 02205000 CVTAQAVB EQU CVTAQAVT+1 02206000 CVTRSV34 EQU CVTTCMFG 02207000 CVTRSV33 EQU CVTTCMFG 02208000 CVTRSV32 EQU CVTTCMFG 02209000 CVTRSV31 EQU CVTTCMFG 02210000 CVTRSV30 EQU CVTTCMFG 02211000 CVTRSV29 EQU CVTTCMFG 02212000 CVTLDEV EQU CVTTCMFG 02213000 CVTTCRDY EQU CVTTCMFG 02214000 CVTGTFA EQU CVTGTF+1 02215000 CVTRSV27 EQU CVTGTFST 02216000 CVTRNIO EQU CVTGTFST 02217000 CVTUSR EQU CVTGTFST 02218000 CVTRV318 EQU CVTFORM 02219000 CVTRV317 EQU CVTTMODE 02220000 CVTRV316 EQU CVTSTATE 02221000 CVTRV315 EQU CVTGTFS 02222000 CVTGTFAV EQU CVTGTFS 02223000 CVT0SCR1 EQU CVTMAP+232 02224000 CVTRV515 EQU CVTMAP+228 02225000 CVTRMS EQU CVTMAP+224 02226000 CVTPATCH EQU CVTMAP+220 02227000 CVTTSCE EQU CVTMAP+216 02228000 CVTLNKSC EQU CVTMAP+214 02229000 CVTQABST EQU CVTMAP+212 02230000 CVTMDLDS EQU CVTMAP+208 02231000 CVTUSER EQU CVTMAP+204 02232000 CVTABEND EQU CVTMAP+200 02233000 CVTSMCA EQU CVTMAP+196 02234000 CVTRSV18 EQU CVTMAP+192 02235000 CVTQLPAQ EQU CVTMAP+188 02236000 CVTQCDSR EQU CVTMAP+184 02237000 CVTRSV17 EQU CVTOPTB 02238000 CVTVS1A EQU CVTOPTB 02239000 CVTFP EQU CVTOPTB 02240000 CVTAPTHR EQU CVTOPTB 02241000 CVTNLOG EQU CVTOPTB 02242000 CVTTOD EQU CVTOPTB 02243000 CVTCTIMS EQU CVTOPTB 02244000 CVTPROT EQU CVTOPTB 02245000 CVTXPFP EQU CVTOPTA 02246000 CVTASCII EQU CVTOPTA 02247000 CVTRSV13 EQU CVTOPTA 02248000 CVTRSV12 EQU CVTOPTA 02249000 CVTNIP EQU CVTOPTA 02250000 CVTDDR EQU CVTOPTA 02251000 CVTAPR EQU CVTOPTA 02252000 CVTCCH EQU CVTOPTA 02253000 CVTSNCTR EQU CVTMAP+180 02254000 CVTQMWR EQU CVTMAP+176 02255000 CVTQOCR EQU CVTMAP+172 02256000 CVT1EF00 EQU CVTMAP+168 02257000 CVTMZ00 EQU CVTMAP+164 02258000 CVTHEAD EQU CVTMAP+160 02259000 CVTRSV11 EQU CVTMAP+156 02260000 CVT0PT01 EQU CVTMAP+152 02261000 CVTMSER EQU CVTMAP+148 02262000 CVTRV516 EQU CVTIERLC 02263000 CVTILCH EQU CVTMAP+140 02264000 CVT0DS EQU CVTMAP+136 02265000 CVTFBOSV EQU CVTMAP+132 02266000 CVTNUCB EQU CVTMAP+128 02267000 CVTIXAVL EQU CVTMAP+124 02268000 CVTIOQET EQU CVTMAP+120 02269000 CVTDCBA EQU CVTMAP+117 02270000 CVTMVS2 EQU CVTDCB 02271000 CVT6DAT EQU CVTDCB 02272000 CVT4MPS EQU CVTDCB 02273000 CVTRSV09 EQU CVTDCB 02274000 CVT4MS1 EQU CVTDCB 02275000 CVT2SPS EQU CVTDCB 02276000 CVT1SSS EQU CVTDCB 02277000 CVTRSV08 EQU CVTDCB 02278000 CVTSTB EQU CVTMAP+112 02279000 CVTQTD00 EQU CVTMAP+108 02280000 CVTQTE00 EQU CVTMAP+104 02281000 CVTCUCB EQU CVTMAP+100 02282000 CVTSJQ EQU CVTMAP+96 02283000 CVTPBLDL EQU CVTMAP+92 02284000 CVTTPC EQU CVTMAP+88 02285000 CVTSVDCB EQU CVTMAP+84 02286000 CVTBRET EQU CVTMAP+82 02287000 CVTEXIT EQU CVTMAP+80 02288000 CVT0FN00 EQU CVTMAP+76 02289000 CVTDARA EQU CVTDAR+1 02290000 CVTRSV07 EQU CVTFLGS1 02291000 CVTRSV06 EQU CVTFLGS1 02292000 CVTRSV05 EQU CVTFLGS1 02293000 CVTRSV04 EQU CVTFLGS1 02294000 CVTRSV03 EQU CVTFLGS1 02295000 CVTRSV02 EQU CVTFLGS1 02296000 CVTRSV01 EQU CVTFLGS1 02297000 CVTDMPLK EQU CVTFLGS1 02298000 CVTXITP EQU CVTMAP+68 02299000 CVTZDTAB EQU CVTMAP+64 02300000 CVTMSLT EQU CVTMAP+60 02301000 CVTDATE EQU CVTMAP+56 02302000 CVTBTERM EQU CVTMAP+52 02303000 CVTSYSAD EQU CVTMAP+48 02304000 CVTXTLER EQU CVTMAP+44 02305000 CVTILK2 EQU CVTMAP+40 02306000 CVTILK1 EQU CVTMAP+36 02307000 CVTPRLTV EQU CVTMAP+32 02308000 CVTPCNVT EQU CVTMAP+28 02309000 CVT0VL00 EQU CVTMAP+24 02310000 CVTXAPG EQU CVTMAP+20 02311000 CVTBUF EQU CVTMAP+16 02312000 CVTJOB EQU CVTMAP+12 02313000 CVTLINK EQU CVTMAP+8 02314000 CVT0EF00 EQU CVTMAP+4 02315000 CVTTCBP EQU CVTMAP 02316000 CVT EQU CVTMAP 02317000 ABDSAVE1 EQU ABDAREA+672 02318000 ABDPADC EQU ABDAREA+589 02319000 ABDCC EQU ABDLINEA 02320000 ABDSRC2 EQU ABDAREA+382 02321000 ABDLOG EQU ABDAREA+380 02322000 ABDSRC1 EQU ABDAREA+378 02323000 ABDPHY EQU ABDAREA+376 02324000 ABDLCNT EQU ABDAREA+372 02325000 @NM00037 EQU ESPARM+29 02326000 @NM00036 EQU ESTAEFLG 02327000 EDCB EQU ESTAEFLG 02328000 ETCB EQU ESTAEFLG 02329000 ESUBSYT EQU ESTAEFLG 02330000 ERESTART EQU ESPARM+24 02331000 EMODNAME EQU ESPARM+16 02332000 EABDAREA EQU ESPARM+12 02333000 ESAUTOP EQU ESPARM+8 02334000 ESBSREG2 EQU ESPARM+4 02335000 ESBSREG EQU ESPARM 02336000 ABDRTRN EQU ABDAREA+336 02337000 ABDSVCB EQU ABDAREA+332 02338000 @NM00035 EQU ABDGMA+14 02339000 ABDCDID EQU ABDGMA+12 02340000 ABDPAREA EQU ABDGMA+8 02341000 ABDBUFSZ EQU ABDBUFFS+4 02342000 ABDBUFAD EQU ABDBUFFS 02343000 ABSLCTSV EQU ABDAREA+304 02344000 ABDSTADS EQU ABDAREA+300 02345000 ABDUPRID EQU ABDAREA+296 02346000 ABDPCAP EQU ABDAREA+295 02347000 ABDINCPL EQU ABDAREA+292 02348000 ABDFWORK EQU ABDAREA+288 02349000 ABDIDENT EQU ABDAREA+286 02350000 ABDIND EQU ABDAREA+284 02351000 ABDSIZE EQU ABDAREA+280 02352000 ABDLENTH EQU ABDAREA+276 02353000 ABDBLOCK EQU ABDAREA+272 02354000 ABDSTAD EQU ABDAREA+268 02355000 @NM00034 EQU ABDBLNKS 02356000 @NM00033 EQU ABDBLNKS 02357000 @NM00032 EQU ABDBLNKS 02358000 @NM00031 EQU ABDBLNKS 02359000 @NM00030 EQU ABDBLNKS 02360000 @NM00029 EQU ABDBLNKS 02361000 @NM00028 EQU ABDBLNKS 02362000 ABDBLKN3 EQU ABDBLNKS 02363000 @NM00027 EQU ABDUPRFN 02364000 @NM00026 EQU ABDUPRFN 02365000 @NM00025 EQU ABDUPRFN 02366000 @NM00024 EQU ABDUPRFN 02367000 @NM00023 EQU ABDUPRFN 02368000 @NM00022 EQU ABDUPRFN 02369000 ABDUPRSL EQU ABDUPRFN 02370000 ABDUPRPM EQU ABDUPRFN 02371000 @NM00021 EQU ABDUPRF 02372000 @NM00020 EQU ABDUPRF 02373000 @NM00019 EQU ABDUPRF 02374000 @NM00018 EQU ABDUPRF 02375000 @NM00017 EQU ABDUPRF 02376000 UPRFMT20 EQU ABDUPRF 02377000 UPRFMET EQU ABDUPRF 02378000 UPRFMAT EQU ABDUPRF 02379000 ABDFMTWK EQU ABDAREA+256 02380000 ABDLPTR EQU ABDAREA+252 02381000 ABDSSPAR EQU ABDAREA+188 02382000 ABDWORK EQU ABDAREA+140 02383000 @NM00016 EQU ABDRES1 02384000 ABDPGHD EQU ABDRES1 02385000 ABDFMTLD EQU ABDRES1 02386000 ABDSQA EQU ABDRES1 02387000 ABDOLSQA EQU ABDRES1 02388000 ABDREGS EQU ABDRES1 02389000 ABDPSW EQU ABDRES1 02390000 ABDKEY EQU ABDAREA+138 02391000 ABDLSQA EQU ABDFLAG2 02392000 ABDSTAT EQU ABDFLAG2 02393000 ABDSWAP EQU ABDFLAG2 02394000 ABDGTFCL EQU ABDFLAG2 02395000 ABDTRNAV EQU ABDFLAG2 02396000 ABDTRBIT EQU ABDFLAG2 02397000 ABDGTF EQU ABDFLAG2 02398000 ABDSUPER EQU ABDFLAG2 02399000 ABDIDX EQU ABDFLAG1 02400000 ABDSPHD EQU ABDFLAG1 02401000 ABDSVCHD EQU ABDFLAG1 02402000 ABDSQSDM EQU ABDFLAG1 02403000 ABDLSTHD EQU ABDFLAG1 02404000 ABDQCBMN EQU ABDFLAG1 02405000 ABDQCBMJ EQU ABDFLAG1 02406000 ABDQCBHD EQU ABDFLAG1 02407000 ABDPGWK EQU ABDAREA+128 02408000 ABDRESV3 EQU ABDAREA+116 02409000 ABDUPRXT EQU ABDAREA+112 02410000 ABDCP1 EQU ABDAREA+108 02411000 ABDLP EQU ABDAREA+104 02412000 ABDFP EQU ABDAREA+100 02413000 ABDCP EQU ABDAREA+96 02414000 ABDPTRS3 EQU ABDPTRS+8 02415000 ABDPTRS2 EQU ABDPTRS+4 02416000 ABDPTRS1 EQU ABDPTRS 02417000 ABDPCTR EQU ABDAREA+82 02418000 ABDLCTR EQU ABDAREA+80 02419000 ABDIOBP EQU ABDAREA+76 02420000 ABDPTR EQU ABDAREA+72 02421000 ABDDCB EQU ABDAREA+68 02422000 ABDLEN EQU ABDAREA+66 02423000 ABDTYPE EQU ABDAREA+64 02424000 ABDECB EQU ABDAREA+60 02425000 ABDSAVE EQU ABDAREA+56 02426000 ABDDECB EQU ABDAREA+52 02427000 ABDPARA EQU ABDAREA+48 02428000 ABDTABPT EQU ABDAREA+44 02429000 ABDINXPT EQU ABDAREA+40 02430000 ABDCTR EQU ABDAREA+38 02431000 ABDTRLN EQU ABDAREA+36 02432000 ABDHDRAD EQU ABDPARMS+20 02433000 ABDSNAPP EQU ABDPARMS+16 02434000 ABDPTCBP EQU ABDPARMS+12 02435000 ABDPDCBP EQU ABDPARMS+8 02436000 @NM00015 EQU ABDPARMS+7 02437000 @NM00014 EQU APFPDATA 02438000 APFSPALL EQU APFPDATA 02439000 APFPSW EQU APFPDATA 02440000 APFJPA EQU APFPDATA 02441000 APFLPA EQU APFPDATA 02442000 APFREGS EQU APFPDATA 02443000 APFSAVE2 EQU APFPDATA 02444000 APFSAVE EQU APFPDATA 02445000 @NM00013 EQU APFSDAT1 02446000 APFERR EQU APFSDAT1 02447000 APFIO EQU APFSDAT1 02448000 APFDM EQU APFSDATA 02449000 APFQCB EQU APFSDATA 02450000 APFSUPDA EQU APFSDATA 02451000 APFTRACE EQU APFSDATA 02452000 APFSWA EQU APFSDATA 02453000 APFLSQA EQU APFSDATA 02454000 APFSQA EQU APFSDATA 02455000 APFNUC EQU APFSDATA 02456000 @NM00012 EQU ABDPARMS+2 02457000 APFHDR EQU ABDFLAG 02458000 APFSNAPP EQU ABDFLAG 02459000 APFTCB EQU ABDFLAG 02460000 APFENVS2 EQU ABDFLAG 02461000 APFVS2 EQU ABDFLAG 02462000 APFSNAP EQU ABDFLAG 02463000 ABDCRB EQU ABDAREA+8 02464000 ABDCTCB EQU ABDAREA+4 02465000 @NM00063 EQU PSA+3668 02466000 PSASTAK EQU PSA+3072 02467000 @NM00062 EQU PSA+1048 02468000 PSAUSEND EQU PSA+1048 02469000 PSARV062 EQU PSA+1044 02470000 PSACDAL EQU PSA+1040 02471000 PSAWTCOD EQU PSA+1036 02472000 PSAATCVT EQU PSA+1032 02473000 PSAPCPSW EQU PSA+1024 02474000 PSAPIR2 EQU PSA+1020 02475000 PSARV059 EQU PSA+1018 02476000 PSASVC13 EQU PSA+1016 02477000 PSALSFCC EQU PSA+1012 02478000 PSASFACC EQU PSA+1008 02479000 PSASTOP EQU PSA+992 02480000 PSASTART EQU PSA+976 02481000 PSARSPSW EQU PSA+968 02482000 PSASRPSW EQU PSA+960 02483000 PSARV045 EQU PSA+892 02484000 PSARV044 EQU PSA+888 02485000 PSARV043 EQU PSA+884 02486000 PSARV042 EQU PSA+880 02487000 PSARV041 EQU PSA+876 02488000 PSARV040 EQU PSA+872 02489000 PSARV025 EQU PSA+868 02490000 PSADSSED EQU PSA+868 02491000 PSADSSPR EQU PSA+864 02492000 PSADSSFW EQU PSA+860 02493000 PSADSS14 EQU PSA+856 02494000 PSADSSPP EQU PSA+848 02495000 PSADSSRP EQU PSA+840 02496000 PSADSS05 EQU PSADSSF4 02497000 PSADSS10 EQU PSADSSF4 02498000 PSADSSVE EQU PSADSSF4 02499000 PSADSSDE EQU PSADSSF4 02500000 PSADSSC0 EQU PSADSSF4 02501000 PSADSSIE EQU PSADSSF4 02502000 PSADSS12 EQU PSADSSF4 02503000 PSADSSRC EQU PSADSSF4 02504000 PSARV057 EQU PSADSSF3 02505000 PSARV056 EQU PSADSSF3 02506000 PSARV055 EQU PSADSSF3 02507000 PSADSSMC EQU PSADSSF3 02508000 PSADSSRW EQU PSADSSF3 02509000 PSADSSNM EQU PSADSSF3 02510000 PSADSSES EQU PSADSSF3 02511000 PSADSSGP EQU PSADSSF3 02512000 PSADSSF2 EQU PSADSSFL+1 02513000 PSADSSPI EQU PSADSSF1 02514000 PSADSSOI EQU PSADSSF1 02515000 PSADSSSP EQU PSADSSF1 02516000 PSADSSTP EQU PSADSSF1 02517000 PSADSSDW EQU PSADSSF1 02518000 PSADSSDD EQU PSADSSF1 02519000 PSADSSDM EQU PSADSSF1 02520000 PSADSSMV EQU PSADSSF1 02521000 PSADSSTS EQU PSA+816 02522000 PSADSSWK EQU PSA+812 02523000 PSADSSR3 EQU PSA+808 02524000 PSADSSR2 EQU PSA+804 02525000 PSADSSRS EQU PSA+800 02526000 PSASTOR EQU PSA+796 02527000 PSACPUSA EQU PSA+794 02528000 PSAVSTAP EQU PSA+792 02529000 PSAWKVAP EQU PSA+788 02530000 PSAWKRAP EQU PSA+784 02531000 PSAMCHIC EQU PSA+783 02532000 PSARV061 EQU PSA+782 02533000 PSASYMSK EQU PSA+781 02534000 PSAMCHFL EQU PSA+780 02535000 PSACR0 EQU PSA+776 02536000 PSAPSWSV EQU PSA+768 02537000 PSALITA EQU PSA+764 02538000 PSACLHS EQU PSAHLHI 02539000 PSALKR15 EQU PSALKSA+60 02540000 PSALKR14 EQU PSALKSA+56 02541000 PSALKR13 EQU PSALKSA+52 02542000 PSALKR12 EQU PSALKSA+48 02543000 PSALKR11 EQU PSALKSA+44 02544000 PSALKR10 EQU PSALKSA+40 02545000 PSALKR9 EQU PSALKSA+36 02546000 PSALKR8 EQU PSALKSA+32 02547000 PSALKR7 EQU PSALKSA+28 02548000 PSALKR6 EQU PSALKSA+24 02549000 PSALKR5 EQU PSALKSA+20 02550000 PSALKR4 EQU PSALKSA+16 02551000 PSALKR3 EQU PSALKSA+12 02552000 PSALKR2 EQU PSALKSA+8 02553000 PSALKR1 EQU PSALKSA+4 02554000 PSALKR0 EQU PSALKSA 02555000 PSARV023 EQU PSACLHT+52 02556000 PSALOCAL EQU PSACLHT+48 02557000 PSACMSL EQU PSACLHT+44 02558000 PSAOPTL EQU PSACLHT+40 02559000 PSATPACL EQU PSACLHT+36 02560000 PSATPDNL EQU PSACLHT+32 02561000 PSATPNCL EQU PSACLHT+28 02562000 PSAIOSLL EQU PSACLHT+24 02563000 PSAIOSUL EQU PSACLHT+20 02564000 PSAIOSCL EQU PSACLHT+16 02565000 PSAIOSSL EQU PSACLHT+12 02566000 PSASALCL EQU PSACLHT+8 02567000 PSAASML EQU PSACLHT+4 02568000 PSADISPL EQU PSACLHT 02569000 PSASRSA EQU PSA+636 02570000 PSARV050 EQU PSA+634 02571000 PSADSSGO EQU PSA+633 02572000 PSARECUR EQU PSA+632 02573000 PSAHLHIS EQU PSA+628 02574000 PSAIPCSA EQU PSA+624 02575000 @NM00061 EQU PSA+621 02576000 PSAIPCDM EQU PSA+620 02577000 PSAIPCD EQU PSA+616 02578000 @NM00060 EQU PSA+613 02579000 PSAIPCRM EQU PSA+612 02580000 PSAIPCR EQU PSA+608 02581000 PSAMCHEX EQU PSA+600 02582000 PSAMPSW EQU PSA+592 02583000 PSAEXPS2 EQU PSA+584 02584000 PSAEXPS1 EQU PSA+576 02585000 PSAPIREG EQU PSA+572 02586000 PSARSREG EQU PSA+568 02587000 PSAGPREG EQU PSA+556 02588000 PSARV022 EQU PSASUP4 02589000 PSARV021 EQU PSASUP4 02590000 PSARV020 EQU PSASUP4 02591000 PSARV019 EQU PSASUP4 02592000 PSARV018 EQU PSASUP4 02593000 PSARV017 EQU PSASUP4 02594000 PSARV016 EQU PSASUP4 02595000 PSARV015 EQU PSASUP4 02596000 PSARV014 EQU PSASUP3 02597000 PSARV013 EQU PSASUP3 02598000 PSARV012 EQU PSASUP3 02599000 PSAESTA EQU PSASUP3 02600000 PSASPR EQU PSASUP3 02601000 PSAPSREG EQU PSASUP3 02602000 PSAPI2 EQU PSASUP3 02603000 PSAIOSUP EQU PSASUP3 02604000 PSALCR EQU PSASUP2 02605000 PSARTM EQU PSASUP2 02606000 PSAACR EQU PSASUP2 02607000 PSAIPCE2 EQU PSASUP2 02608000 PSAIPCES EQU PSASUP2 02609000 PSAIPCEC EQU PSASUP2 02610000 PSAGTF EQU PSASUP2 02611000 PSAIPCRI EQU PSASUP2 02612000 PSATYPE6 EQU PSASUP1 02613000 PSATCTL EQU PSASUP1 02614000 PSADISP EQU PSASUP1 02615000 PSALOCK EQU PSASUP1 02616000 PSAPI EQU PSASUP1 02617000 PSAEXT EQU PSASUP1 02618000 PSASVC EQU PSASUP1 02619000 PSAIO EQU PSASUP1 02620000 PSAAOLD EQU PSA+548 02621000 PSAANEW EQU PSA+544 02622000 PSATOLD EQU PSA+540 02623000 PSATNEW EQU PSA+536 02624000 PSALCCAR EQU PSA+532 02625000 PSALCCAV EQU PSA+528 02626000 PSAPCCAR EQU PSA+524 02627000 PSAPCCAV EQU PSA+520 02628000 PSACPULA EQU PSA+518 02629000 PSACPUPA EQU PSA+516 02630000 PSAPSA EQU PSA+512 02631000 FLCHDEND EQU PSA+512 02632000 FLCCRSAV EQU FLCMCLA+280 02633000 FLCGRSAV EQU FLCMCLA+216 02634000 FLCFPSAV EQU FLCMCLA+184 02635000 FLCFLA EQU FLCMCLA+88 02636000 FLCRGNCD EQU FLCMCLA+84 02637000 FLCFSAA EQU FLCFSA+1 02638000 @NM00059 EQU FLCFSA 02639000 @NM00058 EQU FLCMCLA+72 02640000 FLCMCIC EQU FLCMCLA+64 02641000 @NM00057 EQU FLCMCLA+20 02642000 FLCIOAA EQU FLCIOA+1 02643000 @NM00056 EQU FLCIOA 02644000 @NM00055 EQU FLCMCLA+15 02645000 @NM00054 EQU FLCMCLA+14 02646000 @NM00053 EQU FLCMCLA+12 02647000 FLCLCL EQU FLCMCLA+8 02648000 FLCIOELA EQU FLCIOEL+1 02649000 @NM00052 EQU FLCIOEL 02650000 FLCCHNID EQU FLCMCLA 02651000 @NM00051 EQU PSA+160 02652000 FLCMTRCD EQU PSA+157 02653000 @NM00050 EQU PSA+156 02654000 FLCPERA EQU FLCPER+1 02655000 @NM00049 EQU FLCPER 02656000 @NM00048 EQU PSA+151 02657000 FLCPERCD EQU PSA+150 02658000 FLCMCNUM EQU PSA+149 02659000 @NM00047 EQU PSA+148 02660000 FLCTEAA EQU FLCTEA+1 02661000 @NM00046 EQU FLCTEA 02662000 PSAPIPC EQU PSAPICOD 02663000 PSAPIMC EQU PSAPICOD 02664000 PSAPIPER EQU PSAPICOD 02665000 PSARV049 EQU FLCPICOD 02666000 FLCPILCB EQU FLCPIILC 02667000 @NM00045 EQU FLCPIILC 02668000 @NM00044 EQU PSAEPPSW 02669000 FLCSVCN EQU PSAESPSW+2 02670000 FLCSILCB EQU FLCSVILC 02671000 @NM00043 EQU FLCSVILC 02672000 @NM00042 EQU PSAESPSW 02673000 FLCEICOD EQU PSAEEPSW+2 02674000 PSASPAD EQU PSAEEPSW 02675000 @NM00041 EQU PSA+128 02676000 FLCINPSW EQU PSA+120 02677000 FLCMNPSW EQU PSA+112 02678000 FLCPNPSW EQU PSA+104 02679000 FLCSNPSW EQU PSA+96 02680000 FLCENPSW EQU PSA+88 02681000 FLCTRACE EQU PSA+84 02682000 FLCTIMER EQU PSA+80 02683000 FLCCVT2 EQU PSA+76 02684000 FLCCAW EQU PSA+72 02685000 FLCCSW EQU PSA+64 02686000 FLCIOPSW EQU PSA+56 02687000 FLCMOPSW EQU PSA+48 02688000 FLCPOPSW EQU PSA+40 02689000 FLCSOPSW EQU PSA+32 02690000 FLCEOPSW EQU PSA+24 02691000 @NM00040 EQU FLCICCW2+4 02692000 FLCICCW1 EQU FLCROPSW 02693000 FLCIPPSW EQU FLCRNPSW 02694000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02695000 @RT00091 EQU FREERET 02696000 @RT00121 EQU FREERET 02697000 @RT00132 EQU FREERET 02698000 @ENDDATA EQU * 02699000 END IEAVAD02,(C'PLS1840',0701,77049) 02700000