TITLE 'IEAVAD08 - INTERFACE MODULE FOR SPECIAL SNAP FORMATTERS*00001000 S ' 00002000 IEAVAD08 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVAD08 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 */* END OF TCB */ 00016000 * 0060 00017000 * 0060 00018000 * /*****************************************************************/ 00019000 * /* */ 00020000 * /* INITIALIZATION ON ENTRY FIRST THE ADDRESSING REGISTERS ARE */ 00021000 * /* INITIALIZED, THEN A SAVE AREA FOR THE REGISTER SAVE AREA AND */ 00022000 * /* AUTOMATIC DATA AREA IS OBTAINED FROM LSQA. THE ADDRESS OF THE */ 00023000 * /* AREA IS RETURNED IN ABDGMA, AND THE ADDRESS OF THE GETMAIN */ 00024000 * /* PARAMETER LIST IS PASSED IN REGISTER 1. NEXT THE SAVE AREAS */ 00025000 * /* ARE CHAINED, AND THE TEMPORARY WORK AREA IS CLEARED TO ZEROS */ 00026000 * /* SO THAT THE BOUNDARY ADJUSTMENT MOVES CAN BE DONE PROPERLY. */ 00027000 * /* */ 00028000 * /*****************************************************************/ 00029000 * 0060 00030000 * SAVERET=0; /* THE RETURN CODE SAVE REGISTER 00031000 * IS INITIALIZED TO ZERO */ 00032000 SLR SAVERET,SAVERET 0060 00033000 * ABDARPTR=PARMPTR; /* THE ABDAREA POINTER IS 0061 00034000 * INITIALIZED FROM THE VALUE IN 00035000 * REGISTER 1 */ 00036000 LR ABDARPTR,PARMPTR 0061 00037000 * ABDPLPTR=ADDR(ABDSSPAR); /* THE COMPONENT PARAMETER LIST 00038000 * WILL BE BUILT IN THE ABDSSPAR 00039000 * AREA OF ABDAREA */ 00040000 LA ABDPLPTR,ABDSSPAR(,ABDARPTR) 0062 00041000 * CVTPTR=CVTADD; /* THE CVT POINTER IS INIT- 0063 00042000 * IALIZED FROM LOW CORE */ 00043000 L CVTPTR,CVTADD 0063 00044000 * TCBPTR=ABDTCB; /* THE TCBPTR IS THE TCB OF THE 00045000 * TASK TO BE DISPLAYED */ 00046000 L TCBPTR,ABDTCB(,ABDARPTR) 0064 00047000 * PARMPTR=ADDR(ABDASIZE); /* REGISTER 1 IS SET TO POINT TO 00048000 * THE GETMAIN PARAMETER LIST */ 00049000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0065 00050000 * GENERATE; 0066 00051000 GETMAIN EC,LV=72, *00052000 SP=253, *00053000 A=ABDGMA(ABDARPTR), *00054000 MF=(E,(1)) 00055000 * IF RETCODE^=0 /* IF GETMAIN IS UNSUCCESSFUL */ 00056000 * THEN /* RETURN IMMEDIATELY. */ 00057000 LTR RETCODE,RETCODE 0067 00058000 BZ @RF00067 0067 00059000 * DO; 0068 00060000 * RETCODE=8; 0069 00061000 LA RETCODE,8 0069 00062000 * RETURN; /* OTHERWISE CONTINUE */ 00063000 @EL00001 DS 0H 0070 00064000 @EF00001 DS 0H 0070 00065000 @ER00001 L @14,12(,@13) 0070 00066000 LM @00,@12,20(@13) 0070 00067000 BR @14 0070 00068000 * END; 0071 00069000 * ELSE 0072 00070000 * DO; 0072 00071000 @RF00067 DS 0H 0073 00072000 * PARMPTR=ABDAAREA; /* USE PARMPTR AS TEMPORARY 0073 00073000 * POINTER TO SAVE AREA */ 00074000 L PARMPTR,ABDAAREA(,ABDARPTR) 0073 00075000 * NEXSAPTR=PARMPTR; /* INITIALIZE NEXT SAVE AREA 0074 00076000 * POINTER IN OLD SAVE AREA */ 00077000 ST PARMPTR,NEXSAPTR(,SAVEPTR) 0074 00078000 * PRESAPTR=SAVEPTR; /* INITIALIZE PREVIOUS SAVE AREA 00079000 * POINTER IN NEW AREA */ 00080000 ST SAVEPTR,PRESAPTR(,PARMPTR) 0075 00081000 * SAVEPTR=PARMPTR; /* SET SAVE REGISTER TO NEW SAVE 00082000 * AREA ADDRESS */ 00083000 * 0076 00084000 LR SAVEPTR,PARMPTR 0076 00085000 * /*************************************************************/ 00086000 * /* */ 00087000 * /* THIS SECTION OF CODE INITIALIZES THE COMPONENT PARAMETER */ 00088000 * /* LIST, SINCE AT LEAST ONE COMPONENT WILL GET CONTROL IF */ 00089000 * /* IEAVAD08 IS IN CONTROL. THE PARAMETER LIST IS INITIALIZED */ 00090000 * /* ONLY ONCE BECAUSE THE DATA IS READ ONLY TO THE COMPONENTS */ 00091000 * /* */ 00092000 * /*************************************************************/ 00093000 * 0077 00094000 * ADPLTCB=TCBPTR; /* THE TCB PASSED IS THE TCB OF 00095000 * THE TASK BEING DISPLAYED */ 00096000 ST TCBPTR,ADPLTCB(,ABDPLPTR) 0077 00097000 * ASCBPTR=PSAAOLD; /* GET CURRENT ASCB @Y02705 00098000 * THE ASID IS OBTAINED FROM */ 00099000 L ASCBPTR,PSAAOLD 0078 00100000 * ADPLASID=ASCBASID; /* THE ASCB @Y02705*/ 00101000 MVC ADPLASID(2,ABDPLPTR),ASCBASID(ASCBPTR) 0079 00102000 * ADPLCVT=CVTPTR; /* GET CVT ADDR */ 00103000 ST CVTPTR,ADPLCVT(,ABDPLPTR) 0080 00104000 * ADPLBUF=ADDR(ABDLINEA)+1; /* SET THE ADDRESS OF THE PRINT 00105000 * BUFFER @YM04153*/ 00106000 LA @10,ABDLINEA(,ABDARPTR) 0081 00107000 AH @10,@CH00094 0081 00108000 ST @10,ADPLBUF(,ABDPLPTR) 0081 00109000 * ADPLSBPL='FD'X; /* SUBPOOL FOR SAVE AREA */ 00110000 MVI ADPLSBPL(ABDPLPTR),X'FD' 0082 00111000 * ADPLPRNT=ADDR(IEAVAD81); /* THE ADDRESS OF IEAVAD81 IS 0083 00112000 * PASSED TO THE COMPONENT */ 00113000 L @10,@CV00050 0083 00114000 ST @10,ADPLPRNT(,ABDPLPTR) 0083 00115000 * ADPLMEMA=ADDR(MEMACESS); /* DUMMY MEMORY ACCESS RTN */ 00116000 LA @10,MEMACESS 0084 00117000 ST @10,ADPLMEMA(,ABDPLPTR) 0084 00118000 * PARMPTR=CVTLINK; /* PTR TO LINKLIB DCB @ZA04824*/ 00119000 L PARMPTR,CVTLINK(,CVTPTR) 0085 00120000 * GEN(LOAD EP=AMDPRFMT,DCB=(1));/* LOAD FORMAT RTN @ZA04824*/ 00121000 LOAD EP=AMDPRFMT,DCB=(1) 00122000 * ADPLFRMT=ENTRYREG; /* STOR ADDR IN PLIST @YM04153*/ 00123000 ST ENTRYREG,ADPLFRMT(,ABDPLPTR) 0087 00124000 * ABDFMTLD='1'B; /* SET PRINT DUMP FLAG ON 0088 00125000 * @G33SPHW*/ 00126000 * 0088 00127000 OI ABDFMTLD(ABDARPTR),B'00001000' 0088 00128000 * /*************************************************************/ 00129000 * /* */ 00130000 * /* THIS SECTION OF CODE DETERMINES WHETHER IEAVAD08 WAS */ 00131000 * /* ENTERED TO PASS CONTROL TO THE CONTROL BLOCK FORMATTING */ 00132000 * /* ROUTINES OR TO PASS CONTROL TO THE GTF FORMATTING MODULE */ 00133000 * /* */ 00134000 * /*************************************************************/ 00135000 * 0089 00136000 * IF ABDGTFCL='0'B THEN /* ARE CONTROL BLOCKS TO BE */ 00137000 TM ABDGTFCL(ABDARPTR),B'00001000' 0089 00138000 BNZ @RF00089 0089 00139000 * DO; /* FORMATTED? */ 00140000 * 0090 00141000 * /*********************************************************/ 00142000 * /* */ 00143000 * /* THIS SECTION OF CODE UNCONDITIONALLY TRANSFERS CONTROL*/ 00144000 * /* TO THE VTAM MODULE ISTRAFD1. ISTRAFD1 WILL DETERMINE */ 00145000 * /* WHETHER VTAM CONTROL BLOCKS SHOULD BE FORMATTED. */ 00146000 * /* */ 00147000 * /*********************************************************/ 00148000 * 0091 00149000 * MODNAME=VTAMNAME; /* SET UP MODULE NAME FOR LOAD */ 00150000 MVC MODNAME(8,ABDARPTR),VTAMNAME 0091 00151000 * MODID=VTAMMESS; /* SET UP POSSIBLE ERROR MSG 0092 00152000 * @Y02705*/ 00153000 MVC MODID(8,ABDARPTR),VTAMMESS 0092 00154000 * CALL INTRFACE; /* PASS CNTRL TO INTERFACE 0093 00155000 * SUBROUTINE @Y02705*/ 00156000 * 0093 00157000 BAL @14,INTRFACE 0093 00158000 * /*********************************************************/ 00159000 * /* */ 00160000 * /* THIS SECTION OF CODE TRANSFERS CONTROL TO THE TCAM */ 00161000 * /* FORMATTING MODULE IF A TCAM AVT EXISTS. THE TRANSFER */ 00162000 * /* OF CONTROL IS PERFORMED BY THE INTRFACE SUBROUTINE, */ 00163000 * /* WHICH IS PASSED THE ENTRY NAME TO BE GIVEN CONTROL, */ 00164000 * /* AND A TCAM IDENTIFIER MESSAGE IN THE EVENT THAT THE */ 00165000 * /* TCAM FORMATTING MODULE CANNOT ALLOCATE SPACE FOR ITS */ 00166000 * /* WORK OR SAVE AREAS. */ 00167000 * /* */ 00168000 * /*********************************************************/ 00169000 * 0094 00170000 * IF CVTAQAVT^=0 /* CHECK IF THERE IS AN AVT */ 00171000 * THEN 0094 00172000 ICM @10,15,CVTAQAVT(CVTPTR) 0094 00173000 BZ @RF00094 0094 00174000 * DO; /* YES GOTO TCAM */ 00175000 * MODNAME=TCAMNAME; /* SET UP MODULE NAME FOR LOAD */ 00176000 MVC MODNAME(8,ABDARPTR),TCAMNAME 0096 00177000 * MODID=TCAMMESS; /* SET UP POSSIBLE ERROR MSG */ 00178000 MVC MODID(8,ABDARPTR),TCAMMESS 0097 00179000 * CALL INTRFACE; /* GO TO INTERFACING ROUTINE */ 00180000 BAL @14,INTRFACE 0098 00181000 * END; /* @Y02705*/ 00182000 * 0099 00183000 * /*********************************************************/ 00184000 * /* */ 00185000 * /* THIS SECTION CALLS THE VSAM FORMATTING MODULE. */ 00186000 * /* @ZA05240*/ 00187000 * /* THE TRANSFER OF CONTROL IS PERFORMED BY THE @ZA05240*/ 00188000 * /* INTERFACE SUBROUTINE, WHICH IS PASSED THE ENTRY */ 00189000 * /* @ZA05240*/ 00190000 * /* POINT NAME TO BE GIVEN CONTROL. @ZA05240*/ 00191000 * /* */ 00192000 * /*********************************************************/ 00193000 * 0100 00194000 * DO; /* @ZA05240*/ 00195000 @RF00094 DS 0H 0101 00196000 * MODNAME=VSAMNAME; /* SET MOD TO LOAD @ZA05240*/ 00197000 MVC MODNAME(8,ABDARPTR),VSAMNAME 0101 00198000 * MODID=VSAMMESS; /* SET MSG TEXT @ZA05240*/ 00199000 MVC MODID(8,ABDARPTR),VSAMMESS 0102 00200000 * CALL INTRFACE; /* GO TO INTERFACE @ZA05240*/ 00201000 BAL @14,INTRFACE 0103 00202000 * END; /* SUBROUTINE @ZA05240*/ 00203000 * 0104 00204000 * /*********************************************************/ 00205000 * /* */ 00206000 * /* THIS SECTION CALLS THE USER/PP EXIT IN LOAD @Z40IPXG*/ 00207000 * /* MODULE IGC0905A TO FORMAT INSTALLATION DEFINED */ 00208000 * /* @Z40IPXG*/ 00209000 * /* OR PP CONTROL BLOCKS. THE MODULE IS PASSED @Z40IPXG*/ 00210000 * /* CONTROL VIA THE INTERFACE SUBROUTINE. @Z40IPXG*/ 00211000 * /* */ 00212000 * /*********************************************************/ 00213000 * 0105 00214000 * DO; /* @Z40IPXG*/ 00215000 * MODNAME=USERNAME; /* SET MOD TO LOAD @Z40IPXG*/ 00216000 MVC MODNAME(8,ABDARPTR),USERNAME 0106 00217000 * MODID=USERMESS; /* SET MSG TEXT @Z40IPXG*/ 00218000 MVC MODID(8,ABDARPTR),USERMESS 0107 00219000 * CALL INTRFACE; /* GO TO INTERFACE @Z40IPXG*/ 00220000 BAL @14,INTRFACE 0108 00221000 * END; /* SUBROUTINE @Z40IPXG*/ 00222000 * 0110 00223000 * /*********************************************************/ 00224000 * /* */ 00225000 * /* THIS SECTION CALLS THE USER FORMATTERS WHOSE NAMES ARE*/ 00226000 * /* FOUND IN FORMAT CSECT IEAVADFM. THE FORMATTERS ARE */ 00227000 * /* LOADED AND BRANCHED TO IN KEY 0 SUPERVISOR. THE */ 00228000 * /* FORMATTERS WILL UPON RECEIVING CONTROL HAVE REG1 */ 00229000 * /* POINTING AT A PARMLIST, MAPPED BY IHAABDPL, REG13 */ 00230000 * /* POINTING AT A SAVEAREA, REG14 CONTAINS RETURN ADDRESS */ 00231000 * /* AND REG15 CONTAINS ENTRY POINT. */ 00232000 * /* */ 00233000 * /*********************************************************/ 00234000 * 0110 00235000 * MODPTR=ADDR(IEAVADFM); /* USER FORMAT NAME @G33SPHW*/ 00236000 L MODPTR,@CV00052 0110 00237000 * DO WHILE MODEND^=0; /* PROCESS EACH USER FORMATTER 0111 00238000 * @G33SPHW*/ 00239000 B @DE00111 0111 00240000 @DL00111 DS 0H 0112 00241000 * MODNAME(1:8)=MODENT(1:8);/* PUT USER NAME IN LOAD PARMS 00242000 * @G33SPHW*/ 00243000 MVC MODNAME(8,ABDARPTR),MODENT(MODPTR) 0112 00244000 * IF MODNAME^=BLNKNAME THEN/* BLANK FORMATTER ENTRY 0113 00245000 * @G33SPHW*/ 00246000 CLC MODNAME(8,ABDARPTR),BLNKNAME 0113 00247000 BE @RF00113 0113 00248000 * DO; /* NO... PROCESS FORMATTER 0114 00249000 * @G33SPHW*/ 00250000 * MODID=MODENT; /* PUT MODULE NAME IN MSG IN CASE 00251000 * OF ERROR @G33SPHW*/ 00252000 MVC MODID(8,ABDARPTR),MODENT(MODPTR) 0115 00253000 * CALL INTRFACE; /* GO TO INTERFACE ROUTING 0116 00254000 * @G33SPHW*/ 00255000 BAL @14,INTRFACE 0116 00256000 * END; /* END NOT BLANK ENTRY @G33SPHW*/ 00257000 * MODPTR=MODPTR+8; /* NEXT USER FORMATTER @G33SPHW*/ 00258000 @RF00113 AH MODPTR,@CH00070 0118 00259000 * END; /* END DO-WHILE @G33SPHW*/ 00260000 @DE00111 ICM @10,15,MODEND(MODPTR) 0119 00261000 BNZ @DL00111 0119 00262000 * END; 0120 00263000 * ELSE 0121 00264000 * DO; /* SET UP TO CALL GTF MODULE */ 00265000 B @RC00089 0121 00266000 @RF00089 DS 0H 0122 00267000 * MODNAME=GTFNAME; /* SET UP MODULE NAME FOR LOAD */ 00268000 MVC MODNAME(8,ABDARPTR),GTFNAME 0122 00269000 * CALL INTRFACE; /* PASS CNTRL TO INTERFACE */ 00270000 BAL @14,INTRFACE 0123 00271000 * END; /* SUBROUTINE */ 00272000 * 0125 00273000 * /*************************************************************/ 00274000 * /* */ 00275000 * /* FINAL PROCESSING CONSISTS OF UNCHAINING THE SAVE AREA, */ 00276000 * /* FREEING IT, SETTING THE RETURN CODE TO THE VALUE SAVED, */ 00277000 * /* AND RETURNING TO THE MAINLINE OF ABDUMP, AFTER THE */ 00278000 * /* REGISTERS ARE RESTORED. */ 00279000 * /* */ 00280000 * /*************************************************************/ 00281000 * 0125 00282000 * ESUBSYT='0'B; /* TURN OFF RECVRY BIT @Y02705*/ 00283000 @RC00089 NI ESUBSYT(ABDARPTR),B'01111111' 0125 00284000 *FREERET: 0126 00285000 * GEN(DELETE EP=AMDPRFMT); /* DELETE FORMAT RTN */ 00286000 FREERET DELETE EP=AMDPRFMT 00287000 * ABDFMTLD='0'B; /* RESET FORMAT FLAG @G33SPHW*/ 00288000 NI ABDFMTLD(ABDARPTR),B'11110111' 0127 00289000 * PARMPTR=ADDR(ABDASIZE); /* SET UP FREEMAIN LIST REG */ 00290000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0128 00291000 * ABDAAREA=SAVEPTR; /* SET UP ADDRESS TO FREE */ 00292000 ST SAVEPTR,ABDAAREA(,ABDARPTR) 0129 00293000 * SAVEPTR=SAVEPTR->PRESAPTR; /* SET UP PREVIOUS SAVE AREA */ 00294000 L SAVEPTR,PRESAPTR(,SAVEPTR) 0130 00295000 * NEXSAPTR=0; /* CLEAR POINTER TO AREA TO BE 0131 00296000 * FREED */ 00297000 SLR @10,@10 0131 00298000 ST @10,NEXSAPTR(,SAVEPTR) 0131 00299000 * GENERATE; 0132 00300000 FREEMAIN E,LV=72, *00301000 SP=253, *00302000 A=ABDGMA(ABDARPTR), *00303000 MF=(E,(1)) 00304000 * RETCODE=SAVERET; /* PASS RETURN CODE TO MAIN */ 00305000 LR RETCODE,SAVERET 0133 00306000 * END; 0134 00307000 * 0135 00308000 * /*****************************************************************/ 00309000 * /* */ 00310000 * /* INTRFACE IS USED TO TRANSFER CONTROL TO EACH OF THE FORMATTING*/ 00311000 * /* MODULES.IT IS PASSED AN ENTRY POINT NAME AND AN ERROR MESSAGE */ 00312000 * /* ID. THE REQUESTED MODULE IS LOADED, PASSED CONTROL, AND THE */ 00313000 * /* DELETED. THEN THE RETURN CODE IS TESTED. IF IT IS NON-ZERO, IT*/ 00314000 * /* IS SAVED, AN ERROR IS MESSAGE PRINTED IN THE DUMP, AND CONTROL*/ 00315000 * /* IS RETURNED TO THE INSTRUCTION AFTER THE CALL. OTHERWISE */ 00316000 * /* CONTROL IS RETURNED DIRECTLY. IF OUTPUT RETURNS A NON-ZERO */ 00317000 * /* CODE, INTERFACE PROCESSING IS TERMINATED, AND CONTROL IS */ 00318000 * /* PASSED IMMEDIATELY BACK TO MAINLINE IEAVAD01. */ 00319000 * /* */ 00320000 * /*****************************************************************/ 00321000 * 0135 00322000 *INTRFACE: 0135 00323000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0135 00324000 B @PB00002 0135 00325000 INTRFACE DS 0H 0136 00326000 * SAVE14=RETERN; /* SAVE REGISTER 14 OVER 0136 00327000 * INTERFACES */ 00328000 * 0136 00329000 ST RETERN,SAVE14(,ABDARPTR) 0136 00330000 * /*****************************************************************/ 00331000 * /* */ 00332000 * /* LOAD THE FORMATTING MODULE */ 00333000 * /* */ 00334000 * /*****************************************************************/ 00335000 * 0137 00336000 * PARMPTR=CVTLINK; /* PTR TO LINKLIB DCB @ZA04824*/ 00337000 * 0137 00338000 L PARMPTR,CVTLINK(,CVTPTR) 0137 00339000 * /*****************************************************************/ 00340000 * /* */ 00341000 * /* ISSUE LOAD FOR FORMATTER @G33SPHW*/ 00342000 * /* */ 00343000 * /*****************************************************************/ 00344000 * 0138 00345000 * GENERATE(LOAD EPLOC=MODNAME(ABDARPTR),DCB=(1),ERRET=ERREXIT); 0138 00346000 LOAD EPLOC=MODNAME(ABDARPTR),DCB=(1),ERRET=ERREXIT 00347000 * ENTRYPTR=ENTRYREG; /* SET REGISTER 15 TO ENTRY */ 00348000 LR ENTRYPTR,ENTRYREG 0139 00349000 * PARMPTR=ABDPLPTR; /* PARAMETER LIST IN REG 1 */ 00350000 LR PARMPTR,ABDPLPTR 0140 00351000 * ESUBSYT='1'B; /* SET SUBSYTEM FLAG ON @G33SPHW*/ 00352000 * 0141 00353000 OI ESUBSYT(ABDARPTR),B'10000000' 0141 00354000 * /*****************************************************************/ 00355000 * /* */ 00356000 * /* GO TO FORMATTING MODULE */ 00357000 * /* */ 00358000 * /*****************************************************************/ 00359000 * 0142 00360000 * GENERATE(BALR RETERN,ENTRYPTR); 0142 00361000 BALR RETERN,ENTRYPTR 00362000 * RETSAVE=RETCODE; /* SAVE THE RETURN CODE OVER THE 00363000 * DELETE MACRO */ 00364000 ST RETCODE,RETSAVE(,ABDARPTR) 0143 00365000 * ESUBSYT='0'B; /* RESET SUBSYTEM FLAG ON 0144 00366000 * @G33SPHW*/ 00367000 * 0144 00368000 NI ESUBSYT(ABDARPTR),B'01111111' 0144 00369000 * /*****************************************************************/ 00370000 * /* */ 00371000 * /* DELETE FORMATTING MODULE */ 00372000 * /* */ 00373000 * /*****************************************************************/ 00374000 * 0145 00375000 * GENERATE(DELETE EPLOC=MODNAME(ABDARPTR)); 0145 00376000 DELETE EPLOC=MODNAME(ABDARPTR) 00377000 * IF RETSAVE=0 /* NORMAL RETURN CONTINUE */ 00378000 * THEN 0146 00379000 ICM @10,15,RETSAVE(ABDARPTR) 0146 00380000 BZ @RT00146 0146 00381000 * ; /* WITH NORMAL PROCESS */ 00382000 * ELSE /* PRINT MESSAGE SET SAVERET=4 */ 00383000 * DO; /* AND CONTINUE */ 00384000 * SAVERET=RETSAVE; /* SAVE RETURN CODE */ 00385000 L SAVERET,RETSAVE(,ABDARPTR) 0149 00386000 *ERREXIT: 0150 00387000 * ABDLINEA=' '; /* BLANK FOR CONTROLCHARACTER 0150 00388000 * CLEAR OUTPUT LINE */ 00389000 ERREXIT MVI ABDLINEA+1(ABDARPTR),C' ' 0150 00390000 MVC ABDLINEA+2(203,ABDARPTR),ABDLINEA+1(ABDARPTR) 0150 00391000 MVI ABDLINEA(ABDARPTR),C' ' 0150 00392000 * IF ABDGTFCL='1'B THEN /* WAS GTF REQUESTED @Y02705*/ 00393000 TM ABDGTFCL(ABDARPTR),B'00001000' 0151 00394000 BNO @RF00151 0151 00395000 * ABDLINEA(1:27)=FAILMSG; /* YES, PUT OUT FAIL MSG */ 00396000 MVC ABDLINEA(27,ABDARPTR),FAILMSG 0152 00397000 * ELSE 0153 00398000 * DO; 0153 00399000 * 0153 00400000 B @RC00151 0153 00401000 @RF00151 DS 0H 0154 00402000 * /*********************************************************/ 00403000 * /* */ 00404000 * /* SET UP THE ERROR MESSAGE */ 00405000 * /* */ 00406000 * /*********************************************************/ 00407000 * 0154 00408000 * ABDLINE(1:8)=MODID; /* XXXX CONTROL BLOCKS */ 00409000 MVC ABDLINE(8,ABDARPTR),MODID(ABDARPTR) 0154 00410000 * ABDLINE(10:35)=ERRMESS; /* UNAVAILABLE */ 00411000 MVC ABDLINE+9(26,ABDARPTR),ERRMESS 0155 00412000 * END; 0156 00413000 * PARMPTR=ABDARPTR; /* SET REG 1 = ABDAREA ADDR */ 00414000 * 0157 00415000 @RC00151 LR PARMPTR,ABDARPTR 0157 00416000 * /*************************************************************/ 00417000 * /* */ 00418000 * /* INTERFACE WITH OUTPUT */ 00419000 * /* */ 00420000 * /*************************************************************/ 00421000 * 0158 00422000 * CALL IEAVAD11; 0158 00423000 L @15,@CV00051 0158 00424000 BALR @14,@15 0158 00425000 * IF RETCODE^=0 /* IF OUTPUT FAILED */ 00426000 * THEN /* FREE SAVE AREA AND RETURN */ 00427000 LTR RETCODE,RETCODE 0159 00428000 BZ @RF00159 0159 00429000 * DO; /* SAVE RETURN CODE OVER FREE */ 00430000 * SAVERET=RETCODE; /* FREE SAVE AREA AND RETURN */ 00431000 LR SAVERET,RETCODE 0161 00432000 * RETURN TO FREERET; /* RETURN TO ERROR EXIT */ 00433000 LA @14,FREERET 0162 00434000 @EL00002 DS 0H 0162 00435000 @EF00002 DS 0H 0162 00436000 @ER00002 BR @14 0162 00437000 * END; 0163 00438000 * END; /* END OF ERROR SECTION */ 00439000 @RF00159 DS 0H 0165 00440000 * RETERN=SAVE14; /* RESET RETURN REGISTER */ 00441000 @RT00146 L RETERN,SAVE14(,ABDARPTR) 0165 00442000 * END INTRFACE; /* END OF INTERFACE SECTION */ 00443000 B @EL00002 0166 00444000 *MEMACESS: 0167 00445000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* DUMMY RTN -PRDUMP SUPPLIES 0167 00446000 * REAL RTN FOR ITS USERS */ 00447000 MEMACESS DS 0H 0168 00448000 * RETCODE=0; 0168 00449000 SLR RETCODE,RETCODE 0168 00450000 * END MEMACESS; 0169 00451000 @EL00003 DS 0H 0169 00452000 @EF00003 DS 0H 0169 00453000 @ER00003 BR @14 0169 00454000 @PB00003 DS 0H 0170 00455000 * DCL 0170 00456000 * PATCHLOC FIXED(31) STATIC; 0170 00457000 * GEN DATA DEFS(PATCHLOC); 0171 00458000 * DECLARE /* COMMON VARIABLES */ 00459000 * I256C CHAR(256) BASED, 0172 00460000 * I031F FIXED(31) BASED, 0172 00461000 * I031P PTR(31) BASED, 0172 00462000 * I015F FIXED(15) BASED, 0172 00463000 * I015P PTR(15) BASED, 0172 00464000 * I008P PTR(8) BASED, 0172 00465000 * I001C CHAR(1) BASED; /* @Y02705*/ 00466000 * END IEAVAD08 0173 00467000 * 0173 00468000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00469000 */*%INCLUDE SYSLIB (AD08SPEC) */ 00470000 */*%INCLUDE SYSLIB (AD08DCL ) */ 00471000 */*%INCLUDE SYSLIB (IHAABDA ) */ 00472000 */*%INCLUDE SYSLIB (IHAABDPL) */ 00473000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00474000 */*%INCLUDE SYSLIB (TAVTD ) */ 00475000 */*%INCLUDE SYSLIB (CVT ) */ 00476000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00477000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00478000 */*%INCLUDE SYSLIB (AD08USER) */ 00479000 * 0173 00480000 * ; 0173 00481000 B @EL00001 0173 00482000 @DATA DS 0H 00483000 @CH00094 DC H'1' 00484000 @CH00070 DC H'8' 00485000 @DATD DSECT 00486000 DS 0F 00487000 IEAVAD08 CSECT 00488000 DS 0F 00489000 @DATD DSECT 00490000 DS 0D 00491000 IEAVAD08 CSECT 00492000 DS 0F 00493000 @SIZDATD DC AL1(0) 00494000 DC AL3(@ENDDATD-@DATD) 00495000 @CV00050 DC V(IEAVAD81) 00496000 @CV00051 DC V(IEAVAD11) 00497000 @CV00052 DC V(IEAVADFM) 00498000 DS 0D 00499000 ERRMESS DC CL26'CONTROL BLOCKS UNAVAILABLE' 00500000 FAILMSG DC CL27'-GTF FAILURE-NO TRACE TABLE' 00501000 TCAMMESS DC CL8' TCAM ' 00502000 VTAMMESS DC CL8' VTAM ' 00503000 USERMESS DC CL8'USER/PP ' 00504000 VSAMMESS DC CL8' VSAM ' 00505000 TCAMNAME DC CL8'IGC0E05A' 00506000 VTAMNAME DC CL8'ISTRAFD1' 00507000 GTFNAME DC CL8'IGC0F05A' 00508000 VSAMNAME DC CL8'IDA0195A' 00509000 USERNAME DC CL8'IGC0905A' 00510000 BLNKNAME DC CL8' ' 00511000 IEAVAD08 CSECT 00512000 DS 0H 00513000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 00514000 @DATD DSECT 00515000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00516000 @ENDDATD EQU * 00517000 IEAVAD08 CSECT 00518000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00519000 @01 EQU 01 00520000 @02 EQU 02 00521000 @03 EQU 03 00522000 @04 EQU 04 00523000 @05 EQU 05 00524000 @06 EQU 06 00525000 @07 EQU 07 00526000 @08 EQU 08 00527000 @09 EQU 09 00528000 @10 EQU 10 00529000 @11 EQU 11 00530000 @12 EQU 12 00531000 @13 EQU 13 00532000 @14 EQU 14 00533000 @15 EQU 15 00534000 ENTRYREG EQU @00 00535000 PARMPTR EQU @01 00536000 ABDARPTR EQU @02 00537000 ABDPLPTR EQU @03 00538000 CVTPTR EQU @04 00539000 ASCBPTR EQU @05 00540000 TCBPTR EQU @06 00541000 IEDQAPTR EQU @07 00542000 SAVERET EQU @08 00543000 AUTOPTR EQU @12 00544000 SAVEPTR EQU @13 00545000 RETERN EQU @14 00546000 ENTRYPTR EQU @15 00547000 RETCODE EQU @15 00548000 MODPTR EQU @09 00549000 PSA EQU 0 00550000 FLCRNPSW EQU PSA 00551000 FLCROPSW EQU PSA+8 00552000 FLCICCW2 EQU PSA+16 00553000 FLCCVT EQU FLCICCW2 00554000 PSAEEPSW EQU PSA+132 00555000 PSAESPSW EQU PSA+136 00556000 FLCSVILC EQU PSAESPSW+1 00557000 PSAEPPSW EQU PSA+140 00558000 FLCPIILC EQU PSAEPPSW+1 00559000 FLCPICOD EQU PSAEPPSW+2 00560000 PSAPICOD EQU FLCPICOD+1 00561000 FLCTEA EQU PSAEPPSW+4 00562000 FLCPER EQU PSA+152 00563000 FLCMCLA EQU PSA+168 00564000 FLCIOEL EQU FLCMCLA+4 00565000 FLCIOA EQU FLCMCLA+16 00566000 FLCFSA EQU FLCMCLA+80 00567000 PSAAOLD EQU PSA+548 00568000 PSASUPER EQU PSA+552 00569000 PSASUP1 EQU PSASUPER 00570000 PSASUP2 EQU PSASUPER+1 00571000 PSASUP3 EQU PSASUPER+2 00572000 PSASUP4 EQU PSASUPER+3 00573000 PSACLHT EQU PSA+640 00574000 PSALKSA EQU PSA+696 00575000 PSAHLHI EQU PSA+760 00576000 PSADSSFL EQU PSA+836 00577000 PSADSSF1 EQU PSADSSFL 00578000 PSADSSF3 EQU PSADSSFL+2 00579000 PSADSSF4 EQU PSADSSFL+3 00580000 PSARSVT EQU PSA+896 00581000 NEXSAPTR EQU 8 00582000 PRESAPTR EQU 4 00583000 MODEND EQU 0 00584000 MODENT EQU 0 00585000 ABDAREA EQU 0 00586000 ABDTCB EQU ABDAREA 00587000 ABDPARMS EQU ABDAREA+12 00588000 ABDFLAG EQU ABDPARMS+1 00589000 APFSDATA EQU ABDPARMS+4 00590000 APFSDAT1 EQU ABDPARMS+5 00591000 APFPDATA EQU ABDPARMS+6 00592000 ABDPTRS EQU ABDAREA+84 00593000 ABDFLAG1 EQU ABDAREA+136 00594000 ABDFLAG2 EQU ABDAREA+137 00595000 ABDGTFCL EQU ABDFLAG2 00596000 ABDRES1 EQU ABDAREA+139 00597000 ABDFMTLD EQU ABDRES1 00598000 ABDWORK EQU ABDAREA+140 00599000 ABDSSPAR EQU ABDAREA+188 00600000 ABDUPRF EQU ABDAREA+265 00601000 ABDUPRFN EQU ABDAREA+266 00602000 ABDBLNKS EQU ABDAREA+267 00603000 ABDBUFFS EQU ABDAREA+308 00604000 ABDGMA EQU ABDAREA+316 00605000 ABDAAREA EQU ABDGMA 00606000 ABDASIZE EQU ABDGMA+4 00607000 ESPARM EQU ABDAREA+340 00608000 ESTAEFLG EQU ESPARM+28 00609000 ESUBSYT EQU ESTAEFLG 00610000 ABDLINEA EQU ABDAREA+384 00611000 ABDLINE EQU ABDLINEA+1 00612000 ABDPL EQU 0 00613000 ADPLTCB EQU ABDPL 00614000 ADPLASID EQU ABDPL+4 00615000 ADPLSBPL EQU ABDPL+6 00616000 ADPLFLAG EQU ABDPL+7 00617000 ADPLBUF EQU ABDPL+8 00618000 ADPLPRNT EQU ABDPL+12 00619000 ADPLCVT EQU ABDPL+16 00620000 ADPLMEMA EQU ABDPL+20 00621000 ADPLFRMT EQU ABDPL+24 00622000 ASCB EQU 0 00623000 ASCBSUPC EQU ASCB+16 00624000 ASCBASID EQU ASCB+36 00625000 ASCBFW1 EQU ASCB+100 00626000 ASCBRCTF EQU ASCBFW1+2 00627000 ASCBFLG1 EQU ASCBFW1+3 00628000 ASCBDSP1 EQU ASCB+114 00629000 ASCBFLG2 EQU ASCB+115 00630000 ASCBLKGP EQU ASCB+128 00631000 ASCBSRQ EQU ASCB+180 00632000 ASCBSRQ1 EQU ASCBSRQ 00633000 ASCBSRQ2 EQU ASCBSRQ+1 00634000 ASCBSRQ3 EQU ASCBSRQ+2 00635000 ASCBSRQ4 EQU ASCBSRQ+3 00636000 IEDQAVTD EQU 0 00637000 AVTSAVEX EQU IEDQAVTD+288 00638000 AVTBASE EQU IEDQAVTD+412 00639000 AVTPKF EQU AVTBASE 00640000 AVTHG02 EQU IEDQAVTD+528 00641000 AVTDISP EQU IEDQAVTD+552 00642000 AVTHD EQU IEDQAVTD+556 00643000 AVTSCOPT EQU AVTHD 00644000 AVTSAVTP EQU IEDQAVTD+612 00645000 AVTSAVTF EQU AVTSAVTP 00646000 AVTCKELF EQU IEDQAVTD+680 00647000 AVTCKBYT EQU IEDQAVTD+691 00648000 AVTHG01 EQU IEDQAVTD+692 00649000 AVTCKLNK EQU IEDQAVTD+696 00650000 AVTCLRHI EQU IEDQAVTD+716 00651000 AVTSYSER EQU IEDQAVTD+728 00652000 AVTCWFL1 EQU IEDQAVTD+924 00653000 AVTCWFL2 EQU IEDQAVTD+925 00654000 AVTBIT1 EQU IEDQAVTD+1050 00655000 AVTBIT2 EQU IEDQAVTD+1051 00656000 AVTBIT3 EQU IEDQAVTD+1052 00657000 AVTBIT4 EQU IEDQAVTD+1116 00658000 @NM00103 EQU IEDQAVTD+1212 00659000 IEDNSVTD EQU 0 00660000 SAVTDIAG EQU IEDNSVTD 00661000 SAVTDIAF EQU SAVTDIAG 00662000 SAVTCLSE EQU IEDNSVTD+88 00663000 SAVTSTAT EQU SAVTCLSE 00664000 SAVTSCAN EQU SAVTCLSE+12 00665000 SAVTREST EQU IEDNSVTD+104 00666000 SAVTRESP EQU IEDNSVTD+105 00667000 SAVTTSTB EQU IEDNSVTD+106 00668000 CVTMAP EQU 0 00669000 CVTLINK EQU CVTMAP+8 00670000 CVTDAR EQU CVTMAP+72 00671000 CVTFLGS1 EQU CVTDAR 00672000 CVTDCB EQU CVTMAP+116 00673000 CVTIERLC EQU CVTMAP+144 00674000 CVTOPTA EQU CVTMAP+182 00675000 CVTOPTB EQU CVTMAP+183 00676000 CVTGTF EQU CVTMAP+236 00677000 CVTGTFST EQU CVTGTF 00678000 CVTGTFS EQU CVTGTFST 00679000 CVTSTATE EQU CVTGTFST 00680000 CVTTMODE EQU CVTGTFST 00681000 CVTFORM EQU CVTGTFST 00682000 CVTAQAVT EQU CVTMAP+240 00683000 CVTTCMFG EQU CVTAQAVT 00684000 CVTVOLM2 EQU CVTMAP+244 00685000 CVTTATA EQU CVTVOLM2 00686000 CVTTSKS EQU CVTTATA 00687000 CVTVOLF2 EQU CVTTSKS 00688000 CVTTAT EQU CVTTATA+1 00689000 CVTATER EQU CVTMAP+248 00690000 CVTEXT1 EQU CVTMAP+252 00691000 CVTPURG EQU CVTMAP+260 00692000 CVTQMSG EQU CVTMAP+268 00693000 CVTDMSR EQU CVTMAP+272 00694000 CVTRSV37 EQU CVTDMSR 00695000 CVTDMSRF EQU CVTRSV37 00696000 CVTERPV EQU CVTMAP+316 00697000 CVTINTLA EQU CVTMAP+320 00698000 CVTAPF EQU CVTMAP+324 00699000 CVTEXT2 EQU CVTMAP+328 00700000 CVTHJES EQU CVTMAP+332 00701000 CVTPGSIA EQU CVTMAP+348 00702000 CVTA1F1 EQU CVTMAP+356 00703000 CVTSYSK EQU CVTMAP+357 00704000 CVTVOLM1 EQU CVTMAP+380 00705000 CVTVOLF1 EQU CVTVOLM1 00706000 CVTXTNT1 EQU 0 00707000 CVTXTNT2 EQU 0 00708000 CVTDSSV EQU CVTXTNT2 00709000 CVTFLGBT EQU CVTXTNT2+5 00710000 CVTQID EQU CVTXTNT2+24 00711000 CVTRV400 EQU CVTXTNT2+52 00712000 CVTRV409 EQU CVTXTNT2+53 00713000 CVTATCVT EQU CVTXTNT2+64 00714000 CVTRV429 EQU CVTXTNT2+84 00715000 CVTRV438 EQU CVTXTNT2+85 00716000 CVTRV457 EQU CVTXTNT2+112 00717000 CVTRV466 EQU CVTXTNT2+113 00718000 CVTFIX EQU 0 00719000 CVTRELNO EQU CVTFIX+252 00720000 TCBFIX EQU 0 00721000 TCBFRS EQU TCBFIX 00722000 TCB EQU 0 00723000 TCBPIE EQU TCB+4 00724000 TCBPMASK EQU TCBPIE 00725000 TCBCMP EQU TCB+16 00726000 TCBCMPF EQU TCBCMP 00727000 TCBCPP EQU TCBCMPF 00728000 TCBSTCC EQU TCBCMPF 00729000 TCBCDBL EQU TCBCMPF 00730000 TCBCWTO EQU TCBCMPF 00731000 TCBCIND EQU TCBCMPF 00732000 TCBCMSG EQU TCBCMPF 00733000 TCBTRN EQU TCB+20 00734000 TCBABF EQU TCBTRN 00735000 TCBMSS EQU TCB+24 00736000 TCBPKF EQU TCB+28 00737000 TCBFLGS EQU TCB+29 00738000 TCBFLGS1 EQU TCBFLGS 00739000 TCBFLGS2 EQU TCBFLGS+1 00740000 TCBFLGS3 EQU TCBFLGS+2 00741000 TCBFLGS4 EQU TCBFLGS+3 00742000 TCBFLGS5 EQU TCBFLGS+4 00743000 TCBABWF EQU TCBFLGS5 00744000 TCBJPQ EQU TCB+44 00745000 TCBPURGE EQU TCBJPQ 00746000 TCBGRS EQU TCB+48 00747000 TCBFSA EQU TCB+112 00748000 TCBTME EQU TCB+120 00749000 TCBJSTCB EQU TCB+124 00750000 TCBTSFLG EQU TCB+148 00751000 TCBTSTSK EQU TCBTSFLG 00752000 TCBSTAB EQU TCB+160 00753000 TCBNSTAE EQU TCBSTAB 00754000 TCBTCT EQU TCB+164 00755000 TCBTCTGF EQU TCBTCT 00756000 TCBSCNDY EQU TCB+172 00757000 TCBNDSP EQU TCBSCNDY 00758000 TCBNDSP1 EQU TCBNDSP+1 00759000 TCBNDSP2 EQU TCBNDSP+2 00760000 TCBNDSP3 EQU TCBNDSP+3 00761000 TCBJSCB EQU TCB+180 00762000 TCBRECDE EQU TCBJSCB 00763000 TCBEXT1 EQU TCB+196 00764000 TCBBITS EQU TCB+200 00765000 TCBNDSP4 EQU TCBBITS 00766000 TCBNDSP5 EQU TCBBITS+1 00767000 TCBFLGS6 EQU TCBBITS+2 00768000 TCBFLGS7 EQU TCBBITS+3 00769000 TCBDAR EQU TCB+204 00770000 TCBDARC EQU TCBDAR 00771000 TCBEXT2 EQU TCB+208 00772000 TCBXSCT EQU TCB+240 00773000 TCBXSCT1 EQU TCBXSCT 00774000 TCBFOE EQU TCB+244 00775000 TCBESTAE EQU TCB+264 00776000 TCBESTRM EQU TCBESTAE+1 00777000 TCBFBYT1 EQU TCB+276 00778000 TCBFBYT2 EQU TCB+277 00779000 TCBRV124 EQU TCB+278 00780000 TCBRV133 EQU TCB+279 00781000 TCBXTNT2 EQU 0 00782000 TCBGTF EQU TCBXTNT2 00783000 TCBTFLG EQU TCBGTF 00784000 TCBRV146 EQU TCBXTNT2+28 00785000 TCBRV155 EQU TCBXTNT2+29 00786000 TCBRV164 EQU TCBXTNT2+30 00787000 TCBRV173 EQU TCBXTNT2+31 00788000 AVTPTRR EQU 0 00789000 I001C EQU 0 00790000 I008P EQU 0 00791000 I015F EQU 0 00792000 I015P EQU 0 00793000 I031F EQU 0 00794000 I031P EQU 0 00795000 I256C EQU 0 00796000 CVTADD EQU FLCCVT 00797000 INTERWRK EQU ABDWORK 00798000 RETSAVE EQU INTERWRK 00799000 SAVE14 EQU INTERWRK+4 00800000 MODNAME EQU INTERWRK+8 00801000 MODID EQU INTERWRK+16 00802000 CVTS01 EQU CVTPGSIA 00803000 CVTLPDIA EQU CVTS01+12 00804000 CVTDIRST EQU CVTLPDIA 00805000 CVTSLIDA EQU CVTS01+24 00806000 CVTCTLFG EQU CVTS01+50 00807000 CVTRV210 EQU CVTS01+424 00808000 CVTRV219 EQU CVTS01+425 00809000 CVTRV228 EQU CVTS01+426 00810000 CVTRV237 EQU CVTS01+427 00811000 CVTMFRTR EQU CVTS01+452 00812000 CVTRV262 EQU CVTS01+468 00813000 CVTRV271 EQU CVTS01+469 00814000 CVTRV280 EQU CVTS01+470 00815000 CVTRV289 EQU CVTS01+471 00816000 CVTGSDA EQU CVTS01+600 00817000 PSARSVTE EQU PSARSVT 00818000 FLC EQU PSA 00819000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00820000 PSARSAV EQU PSARSVTE+60 00821000 PSARSTK EQU PSARSVTE+56 00822000 PSAESAV3 EQU PSARSVTE+52 00823000 PSAESTK3 EQU PSARSVTE+48 00824000 PSAESAV2 EQU PSARSVTE+44 00825000 PSAESTK2 EQU PSARSVTE+40 00826000 PSAESAV1 EQU PSARSVTE+36 00827000 PSAESTK1 EQU PSARSVTE+32 00828000 PSAPSAV EQU PSARSVTE+28 00829000 PSAPSTK EQU PSARSVTE+24 00830000 PSAMSAV EQU PSARSVTE+20 00831000 PSAMSTK EQU PSARSVTE+16 00832000 PSASSAV EQU PSARSVTE+12 00833000 PSASSTK EQU PSARSVTE+8 00834000 PSANSTK EQU PSARSVTE+4 00835000 PSACSTK EQU PSARSVTE 00836000 CVTRV628 EQU CVTS01+728 00837000 CVTRV627 EQU CVTS01+724 00838000 CVTRV626 EQU CVTS01+720 00839000 CVTRV625 EQU CVTS01+716 00840000 CVTRV624 EQU CVTS01+712 00841000 CVTRV623 EQU CVTS01+708 00842000 CVTRV622 EQU CVTS01+704 00843000 CVTRV621 EQU CVTS01+700 00844000 CVTIHASU EQU CVTS01+696 00845000 CVTSUSP EQU CVTS01+692 00846000 CVTT6SVC EQU CVTS01+688 00847000 CVTCDAL EQU CVTS01+684 00848000 CVTTCTL EQU CVTS01+680 00849000 CVTRSUME EQU CVTS01+676 00850000 CVTJTERM EQU CVTS01+672 00851000 CVTASMRM EQU CVTS01+668 00852000 CVTTCASP EQU CVTS01+664 00853000 CVT0PT03 EQU CVTS01+660 00854000 CVT0PT0E EQU CVTS01+656 00855000 CVTRV609 EQU CVTS01+652 00856000 CVTCGK EQU CVTS01+648 00857000 CVTRAC EQU CVTS01+644 00858000 CVTRV606 EQU CVTS01+640 00859000 CVTRV605 EQU CVTS01+636 00860000 CVTRV604 EQU CVTS01+632 00861000 CVTEFF02 EQU CVTS01+628 00862000 CVTCBBR EQU CVTS01+624 00863000 CVTSSCR EQU CVTS01+620 00864000 CVTEVENT EQU CVTS01+616 00865000 CVTCRCA EQU CVTS01+612 00866000 CVTTPIO EQU CVTS01+608 00867000 CVTADV EQU CVTS01+604 00868000 CVTGSDAB EQU CVTGSDA 00869000 CVTQV3 EQU CVTS01+596 00870000 CVTQV2 EQU CVTS01+592 00871000 CVTQV1 EQU CVTS01+588 00872000 CVTRPT EQU CVTS01+584 00873000 CVTSSRB EQU CVTS01+580 00874000 CVTCSDRL EQU CVTS01+576 00875000 CVTEXP1 EQU CVTS01+572 00876000 CVTRMPMT EQU CVTS01+568 00877000 CVTRMPTT EQU CVTS01+564 00878000 CVTVPSA EQU CVTS01+560 00879000 CVTVSTOP EQU CVTS01+556 00880000 CVTGTFR8 EQU CVTS01+552 00881000 CVTQUIT EQU CVTS01+548 00882000 CVTVACR EQU CVTS01+544 00883000 CVTWTCB EQU CVTS01+540 00884000 CVTSTPRS EQU CVTS01+536 00885000 CVT0PT02 EQU CVTS01+532 00886000 CVTDARCM EQU CVTS01+528 00887000 CVTIRECM EQU CVTS01+524 00888000 CVTJRECM EQU CVTS01+520 00889000 CVTVEMS0 EQU CVTS01+516 00890000 CVTSPFRR EQU CVTS01+512 00891000 CVTRLSTG EQU CVTS01+508 00892000 CVT0TC0A EQU CVTS01+504 00893000 CVTGMBR EQU CVTS01+500 00894000 CVTLFRM EQU CVTS01+496 00895000 CVTRMBR EQU CVTS01+492 00896000 CVTVIOP EQU CVTS01+488 00897000 CVTRV307 EQU CVTS01+486 00898000 CVTRV306 EQU CVTS01+484 00899000 CVTRV305 EQU CVTS01+482 00900000 CVTRV304 EQU CVTS01+480 00901000 CVTRV303 EQU CVTS01+478 00902000 CVTRV302 EQU CVTS01+476 00903000 CVTTRCA EQU CVTS01+472 00904000 CVTRV297 EQU CVTRV289 00905000 CVTRV296 EQU CVTRV289 00906000 CVTRV295 EQU CVTRV289 00907000 CVTRV294 EQU CVTRV289 00908000 CVTRV293 EQU CVTRV289 00909000 CVTRV292 EQU CVTRV289 00910000 CVTRV291 EQU CVTRV289 00911000 CVTRV290 EQU CVTRV289 00912000 CVTRV288 EQU CVTRV280 00913000 CVTRV287 EQU CVTRV280 00914000 CVTRV286 EQU CVTRV280 00915000 CVTRV285 EQU CVTRV280 00916000 CVTRV284 EQU CVTRV280 00917000 CVTRV283 EQU CVTRV280 00918000 CVTRV282 EQU CVTRV280 00919000 CVTRV281 EQU CVTRV280 00920000 CVTRV279 EQU CVTRV271 00921000 CVTRV278 EQU CVTRV271 00922000 CVTRV277 EQU CVTRV271 00923000 CVTRV276 EQU CVTRV271 00924000 CVTRV275 EQU CVTRV271 00925000 CVTRV274 EQU CVTRV271 00926000 CVTRV273 EQU CVTRV271 00927000 CVTRV272 EQU CVTRV271 00928000 CVTRV270 EQU CVTRV262 00929000 CVTRV269 EQU CVTRV262 00930000 CVTRV268 EQU CVTRV262 00931000 CVTRV267 EQU CVTRV262 00932000 CVTRV266 EQU CVTRV262 00933000 CVTRV265 EQU CVTRV262 00934000 CVTRV264 EQU CVTRV262 00935000 CVTRV263 EQU CVTRV262 00936000 CVTVFP EQU CVTS01+464 00937000 CVTVSI EQU CVTS01+460 00938000 CVTVPSIB EQU CVTS01+456 00939000 CVTMFACT EQU CVTMFRTR 00940000 CVTMFCTL EQU CVTS01+448 00941000 CVTPVBP EQU CVTS01+444 00942000 CVTPWI EQU CVTS01+440 00943000 CVTRV254 EQU CVTS01+438 00944000 CVTRV253 EQU CVTS01+436 00945000 CVTRV252 EQU CVTS01+434 00946000 CVTRV251 EQU CVTS01+433 00947000 CVTRV250 EQU CVTS01+432 00948000 CVTRV249 EQU CVTS01+431 00949000 CVTRV248 EQU CVTS01+430 00950000 CVTRV247 EQU CVTS01+429 00951000 CVTRV246 EQU CVTS01+428 00952000 CVTRV245 EQU CVTRV237 00953000 CVTRV244 EQU CVTRV237 00954000 CVTRV243 EQU CVTRV237 00955000 CVTRV242 EQU CVTRV237 00956000 CVTRV241 EQU CVTRV237 00957000 CVTRV240 EQU CVTRV237 00958000 CVTRV239 EQU CVTRV237 00959000 CVTRV238 EQU CVTRV237 00960000 CVTRV236 EQU CVTRV228 00961000 CVTRV235 EQU CVTRV228 00962000 CVTRV234 EQU CVTRV228 00963000 CVTRV233 EQU CVTRV228 00964000 CVTRV232 EQU CVTRV228 00965000 CVTRV231 EQU CVTRV228 00966000 CVTRV230 EQU CVTRV228 00967000 CVTRV229 EQU CVTRV228 00968000 CVTRV227 EQU CVTRV219 00969000 CVTRV226 EQU CVTRV219 00970000 CVTRV225 EQU CVTRV219 00971000 CVTRV224 EQU CVTRV219 00972000 CVTRV223 EQU CVTRV219 00973000 CVTRV222 EQU CVTRV219 00974000 CVTRV221 EQU CVTRV219 00975000 CVTRV220 EQU CVTRV219 00976000 CVTRV218 EQU CVTRV210 00977000 CVTRV217 EQU CVTRV210 00978000 CVTRV216 EQU CVTRV210 00979000 CVTRV215 EQU CVTRV210 00980000 CVTRV214 EQU CVTRV210 00981000 CVTRV213 EQU CVTRV210 00982000 CVTRV212 EQU CVTRV210 00983000 CVTRV211 EQU CVTRV210 00984000 CVTLCCAT EQU CVTS01+420 00985000 CVTPCCAT EQU CVTS01+416 00986000 CVTIPCRP EQU CVTS01+412 00987000 CVTIPCRI EQU CVTS01+408 00988000 CVTIPCDS EQU CVTS01+404 00989000 CVTAIDVT EQU CVTS01+400 00990000 CVTSSAP EQU CVTS01+396 00991000 CVTEHCIR EQU CVTS01+392 00992000 CVTEHDEF EQU CVTS01+388 00993000 CVTDAIR EQU CVTS01+384 00994000 CVTPERFM EQU CVTS01+380 00995000 CVT044R2 EQU CVTS01+376 00996000 CVTFETCH EQU CVTS01+372 00997000 CVTRSTWD EQU CVTS01+368 00998000 CVTSPOST EQU CVTS01+364 00999000 CVTIOBP EQU CVTS01+360 01000000 CVTASMVT EQU CVTS01+356 01001000 CVTRECRQ EQU CVTS01+352 01002000 CVTWSAC EQU CVTS01+348 01003000 CVTRV149 EQU CVTS01+344 01004000 CVTWSAL EQU CVTS01+340 01005000 CVTSPSA EQU CVTS01+336 01006000 CVTGLMN EQU CVTS01+332 01007000 CVTVEAC0 EQU CVTS01+328 01008000 CVT062R1 EQU CVTS01+324 01009000 CVTRPOST EQU CVTS01+320 01010000 CVTDQIQE EQU CVTS01+316 01011000 CVTCSD EQU CVTS01+312 01012000 CVTLKRMA EQU CVTS01+308 01013000 CVTRSPIE EQU CVTS01+304 01014000 CVTRENQ EQU CVTS01+300 01015000 CVTLQCB EQU CVTS01+296 01016000 CVTFQCB EQU CVTS01+292 01017000 CVTQCS01 EQU CVTS01+288 01018000 CVTAPFT EQU CVTS01+284 01019000 CVTPARRL EQU CVTS01+280 01020000 CVTVWAIT EQU CVTS01+276 01021000 CVTGSPL EQU CVTS01+272 01022000 CVTLSMQ EQU CVTS01+268 01023000 CVTGSMQ EQU CVTS01+264 01024000 CVTEXPRO EQU CVTS01+260 01025000 CVTOPCTP EQU CVTS01+256 01026000 CVTSIC EQU CVTS01+252 01027000 CVTTPIOS EQU CVTS01+248 01028000 CVTRTMS EQU CVTS01+244 01029000 CVTSDBF EQU CVTS01+240 01030000 CVTSCBP EQU CVTS01+236 01031000 CVTSDMP EQU CVTS01+232 01032000 CVTSV60 EQU CVTS01+228 01033000 CVTRTMCT EQU CVTS01+224 01034000 CVTASCBL EQU CVTS01+220 01035000 CVTASCBH EQU CVTS01+216 01036000 CVTGDA EQU CVTS01+212 01037000 CVTASVT EQU CVTS01+208 01038000 CVTVVMDI EQU CVTS01+204 01039000 CVTAQTOP EQU CVTS01+200 01040000 CVTIOSCS EQU CVTS01+196 01041000 CVTSDRM EQU CVTS01+192 01042000 CVTOPTE EQU CVTS01+188 01043000 CVTSTXU EQU CVTS01+184 01044000 CVTQUIS EQU CVTS01+180 01045000 CVTPARS EQU CVTS01+176 01046000 CVTS1EE EQU CVTS01+172 01047000 CVTFRAS EQU CVTS01+168 01048000 CVTQSAS EQU CVTS01+164 01049000 CVTCRAS EQU CVTS01+160 01050000 CVTCRMN EQU CVTS01+156 01051000 CVTDELCP EQU CVTS01+152 01052000 CVTFRECL EQU CVTS01+148 01053000 CVTGETCL EQU CVTS01+144 01054000 CVTBLDCP EQU CVTS01+140 01055000 CVTAUTHL EQU CVTS01+136 01056000 CVTSCAN EQU CVTS01+132 01057000 CVTRV144 EQU CVTS01+130 01058000 CVTMAXMP EQU CVTS01+128 01059000 CVTSTCK EQU CVTS01+124 01060000 CVTRV139 EQU CVTS01+123 01061000 CVTDSSAC EQU CVTS01+122 01062000 CVTRV513 EQU CVTS01+121 01063000 CVTIOSPL EQU CVTS01+120 01064000 CVTPTGT EQU CVTS01+116 01065000 CVTCSPIE EQU CVTS01+112 01066000 CVTSMFEX EQU CVTS01+108 01067000 CVTOLT0A EQU CVTS01+104 01068000 CVTSRBRT EQU CVTS01+100 01069000 CVTPUTL EQU CVTS01+96 01070000 CVTASCRL EQU CVTS01+92 01071000 CVTASCRF EQU CVTS01+88 01072000 CVTRV326 EQU CVTS01+84 01073000 CVTRV325 EQU CVTS01+80 01074000 CVTRV324 EQU CVTS01+76 01075000 CVT0VL01 EQU CVTS01+72 01076000 CVTSHRVM EQU CVTS01+68 01077000 CVTRV332 EQU CVTS01+64 01078000 CVTTAS EQU CVTS01+60 01079000 CVTRSCN EQU CVTS01+56 01080000 CVTTRAC2 EQU CVTS01+54 01081000 CVTTRACE EQU CVTS01+52 01082000 CVTAPG EQU CVTS01+51 01083000 CVTSDTRC EQU CVTCTLFG 01084000 CVTGTRCE EQU CVTCTLFG 01085000 CVTNOMP EQU CVTCTLFG 01086000 CVTRSV79 EQU CVTCTLFG 01087000 CVTDSTAT EQU CVTCTLFG 01088000 CVTRSV78 EQU CVTCTLFG 01089000 CVTRV333 EQU CVTCTLFG 01090000 CVTRV323 EQU CVTCTLFG 01091000 CVTSPVLK EQU CVTS01+49 01092000 CVTRSV77 EQU CVTS01+48 01093000 CVTRV331 EQU CVTS01+44 01094000 CVTRV330 EQU CVTS01+40 01095000 CVTRV329 EQU CVTS01+36 01096000 CVTRV328 EQU CVTS01+32 01097000 CVTRV322 EQU CVTS01+28 01098000 CVTSLID EQU CVTSLIDA+1 01099000 CVTSYLK EQU CVTSLIDA 01100000 CVTRV321 EQU CVTS01+20 01101000 CVTRV320 EQU CVTS01+16 01102000 CVTLPDIR EQU CVTLPDIA+1 01103000 CVTRSV69 EQU CVTDIRST 01104000 CVTRSV68 EQU CVTDIRST 01105000 CVTRSV67 EQU CVTDIRST 01106000 CVTRSV66 EQU CVTDIRST 01107000 CVTRSV65 EQU CVTDIRST 01108000 CVTRSV64 EQU CVTDIRST 01109000 CVTRSV63 EQU CVTDIRST 01110000 CVTDICOM EQU CVTDIRST 01111000 CVTPVTP EQU CVTS01+8 01112000 CVTLPDSR EQU CVTS01+4 01113000 CVTGETL EQU CVTS01 01114000 @NM00151 EQU TCBXTNT2+32 01115000 TCBRV181 EQU TCBRV173 01116000 TCBRV180 EQU TCBRV173 01117000 TCBRV179 EQU TCBRV173 01118000 TCBRV178 EQU TCBRV173 01119000 TCBRV177 EQU TCBRV173 01120000 TCBRV176 EQU TCBRV173 01121000 TCBRV175 EQU TCBRV173 01122000 TCBRV174 EQU TCBRV173 01123000 TCBRV172 EQU TCBRV164 01124000 TCBRV171 EQU TCBRV164 01125000 TCBRV170 EQU TCBRV164 01126000 TCBRV169 EQU TCBRV164 01127000 TCBRV168 EQU TCBRV164 01128000 TCBRV167 EQU TCBRV164 01129000 TCBRV166 EQU TCBRV164 01130000 TCBRV165 EQU TCBRV164 01131000 TCBRV163 EQU TCBRV155 01132000 TCBRV162 EQU TCBRV155 01133000 TCBRV161 EQU TCBRV155 01134000 TCBRV160 EQU TCBRV155 01135000 TCBRV159 EQU TCBRV155 01136000 TCBRV158 EQU TCBRV155 01137000 TCBRV157 EQU TCBRV155 01138000 TCBRV156 EQU TCBRV155 01139000 TCBRV154 EQU TCBRV146 01140000 TCBRV153 EQU TCBRV146 01141000 TCBRV152 EQU TCBRV146 01142000 TCBRV151 EQU TCBRV146 01143000 TCBRV150 EQU TCBRV146 01144000 TCBRV149 EQU TCBRV146 01145000 TCBRV148 EQU TCBRV146 01146000 TCBRV147 EQU TCBRV146 01147000 TCBRV145 EQU TCBXTNT2+26 01148000 TCBRV144 EQU TCBXTNT2+24 01149000 TCBRV143 EQU TCBXTNT2+20 01150000 TCBRV142 EQU TCBXTNT2+16 01151000 TCBRSV49 EQU TCBXTNT2+12 01152000 TCBEVENT EQU TCBXTNT2+8 01153000 TCBRCMP EQU TCBXTNT2+5 01154000 TCBRSVAB EQU TCBXTNT2+4 01155000 TCBGTFA EQU TCBGTF+1 01156000 TCBRSV47 EQU TCBTFLG 01157000 TCBRSV46 EQU TCBTFLG 01158000 TCBRSV45 EQU TCBTFLG 01159000 TCBRSV44 EQU TCBTFLG 01160000 TCBRSV43 EQU TCBTFLG 01161000 TCBDSPIT EQU TCBTFLG 01162000 TCBERRTN EQU TCBTFLG 01163000 TCBASYNC EQU TCBTFLG 01164000 @NM00150 EQU TCB+296 01165000 TCBSVCA2 EQU TCB+292 01166000 TCBSWASA EQU TCB+288 01167000 TCBDBTB EQU TCB+284 01168000 TCBRPT EQU TCB+280 01169000 TCBRV141 EQU TCBRV133 01170000 TCBRV140 EQU TCBRV133 01171000 TCBRV139 EQU TCBRV133 01172000 TCBRV138 EQU TCBRV133 01173000 TCBRV137 EQU TCBRV133 01174000 TCBRV136 EQU TCBRV133 01175000 TCBRV135 EQU TCBRV133 01176000 TCBRV134 EQU TCBRV133 01177000 TCBRV132 EQU TCBRV124 01178000 TCBRV131 EQU TCBRV124 01179000 TCBRV130 EQU TCBRV124 01180000 TCBRV129 EQU TCBRV124 01181000 TCBRV128 EQU TCBRV124 01182000 TCBRV127 EQU TCBRV124 01183000 TCBRV126 EQU TCBRV124 01184000 TCBRV125 EQU TCBRV124 01185000 TCBRV123 EQU TCBFBYT2 01186000 TCBRV122 EQU TCBFBYT2 01187000 TCBECBNV EQU TCBFBYT2 01188000 TCBSSSYN EQU TCBFBYT2 01189000 TCBFPRAP EQU TCBFBYT2 01190000 TCBFDW EQU TCBFBYT2 01191000 TCBFMW EQU TCBFBYT2 01192000 TCBCNCB EQU TCBFBYT2 01193000 TCBLLH EQU TCBFBYT1 01194000 TCBRV113 EQU TCBFBYT1 01195000 TCBEOT EQU TCBFBYT1 01196000 TCBRTM2 EQU TCBFBYT1 01197000 TCBPGNLY EQU TCBFBYT1 01198000 TCBNDIOS EQU TCBFBYT1 01199000 TCBRV327 EQU TCBFBYT1 01200000 TCBEOTFM EQU TCBFBYT1 01201000 TCBAFFN EQU TCB+274 01202000 TCBRV326 EQU TCB+272 01203000 TCBUKYSP EQU TCB+268 01204000 TCBMODE EQU TCBESTAE+3 01205000 TCBERTYP EQU TCBESTAE+2 01206000 TCBRV314 EQU TCBESTRM 01207000 TCBRV313 EQU TCBESTRM 01208000 TCBRV312 EQU TCBESTRM 01209000 TCBRV311 EQU TCBESTRM 01210000 TCBRV310 EQU TCBESTRM 01211000 TCBRV309 EQU TCBESTRM 01212000 TCBRV308 EQU TCBESTRM 01213000 TCBETERM EQU TCBESTRM 01214000 TCBSCBKY EQU TCBESTAE 01215000 TCBRTM12 EQU TCB+260 01216000 TCBTCBID EQU TCB+256 01217000 TCBSTAWA EQU TCB+252 01218000 TCBSWA EQU TCB+248 01219000 TCBFOEA EQU TCBFOE+1 01220000 TCBRSV42 EQU TCBFOE 01221000 TCBCCPVI EQU TCBXSCT+2 01222000 TCBRV325 EQU TCBXSCT+1 01223000 TCBRV324 EQU TCBXSCT1 01224000 TCBRV323 EQU TCBXSCT1 01225000 TCBRV322 EQU TCBXSCT1 01226000 TCBRV321 EQU TCBXSCT1 01227000 TCBRV320 EQU TCBXSCT1 01228000 TCBRV319 EQU TCBXSCT1 01229000 TCBS3A EQU TCBXSCT1 01230000 TCBACTIV EQU TCBXSCT1 01231000 TCBRSV41 EQU TCB+239 01232000 TCBTID EQU TCB+238 01233000 TCBRSVAA EQU TCB+237 01234000 TCBABCUR EQU TCB+236 01235000 TCBTMSAV EQU TCB+232 01236000 TCBIOTIM EQU TCB+228 01237000 TCBRTWA EQU TCB+224 01238000 TCBBACK EQU TCB+220 01239000 TCBTIRB EQU TCB+216 01240000 TCBAECB EQU TCB+212 01241000 TCBEXT2A EQU TCBEXT2+1 01242000 TCBRSV39 EQU TCBEXT2 01243000 TCBSTMCT EQU TCB+207 01244000 TCBSYSCT EQU TCB+206 01245000 TCBRSV37 EQU TCB+205 01246000 TCBEXSVC EQU TCBDAR 01247000 TCBDARMS EQU TCBDAR 01248000 TCBDARWT EQU TCBDAR 01249000 TCBDARO EQU TCBDAR 01250000 TCBDARMC EQU TCBDARC 01251000 TCBDARD EQU TCBDAR 01252000 TCBDARS EQU TCBDAR 01253000 TCBDARP EQU TCBDAR 01254000 TCBGTOFM EQU TCBFLGS7 01255000 TCBADMP EQU TCBFLGS7 01256000 TCBRSTSK EQU TCBFLGS7 01257000 TCBSVCS EQU TCBFLGS7 01258000 TCBSTACK EQU TCBFLGS7 01259000 TCBRSV34 EQU TCBFLGS7 01260000 TCBRSV33 EQU TCBFLGS7 01261000 TCBGPECB EQU TCBFLGS7 01262000 TCBNTJS EQU TCBFLGS6 01263000 TCBAPG EQU TCBFLGS6 01264000 TCBMIGR EQU TCBFLGS6 01265000 TCBRV303 EQU TCBFLGS6 01266000 TCBSPVLK EQU TCBFLGS6 01267000 TCBCPU EQU TCBFLGS6 01268000 TCBPIE17 EQU TCBFLGS6 01269000 TCBRV EQU TCBFLGS6 01270000 TCBRSV79 EQU TCBNDSP5 01271000 TCBRSV78 EQU TCBNDSP5 01272000 TCBRSV77 EQU TCBNDSP5 01273000 TCBRSV76 EQU TCBNDSP5 01274000 TCBRSV75 EQU TCBNDSP5 01275000 TCBRSV74 EQU TCBNDSP5 01276000 TCBRSV95 EQU TCBNDSP5 01277000 TCBRSV94 EQU TCBNDSP5 01278000 TCBRSV93 EQU TCBNDSP4 01279000 TCBRSV92 EQU TCBNDSP4 01280000 TCBRSV91 EQU TCBNDSP4 01281000 TCBRSV90 EQU TCBNDSP4 01282000 TCBRSV89 EQU TCBNDSP4 01283000 TCBRSV88 EQU TCBNDSP4 01284000 TCBRSV87 EQU TCBNDSP4 01285000 TCBRSV86 EQU TCBNDSP4 01286000 TCBEXT1A EQU TCBEXT1+1 01287000 TCBRSV32 EQU TCBEXT1 01288000 TCBEXCPD EQU TCB+192 01289000 TCBIOBRC EQU TCB+188 01290000 TCBDDWTC EQU TCB+186 01291000 TCBDDEXC EQU TCB+184 01292000 TCBJSCBB EQU TCBJSCB+1 01293000 @NM00149 EQU TCBRECDE 01294000 TCBREC EQU TCBRECDE 01295000 TCBMDIDS EQU TCB+176 01296000 TCBNDINT EQU TCBNDSP3 01297000 TCBRSV27 EQU TCBNDSP3 01298000 TCBRSV26 EQU TCBNDSP3 01299000 TCBRSV25 EQU TCBNDSP3 01300000 TCBRSV24 EQU TCBNDSP3 01301000 TCBSRBND EQU TCBNDSP3 01302000 TCBRV302 EQU TCBNDSP3 01303000 TCBLJSND EQU TCBNDSP3 01304000 TCBABE EQU TCBNDSP2 01305000 TCBDSS EQU TCBNDSP2 01306000 TCBOWAIT EQU TCBNDSP2 01307000 TCBIWAIT EQU TCBNDSP2 01308000 TCBNDTS EQU TCBNDSP2 01309000 TCBNDSVC EQU TCBNDSP2 01310000 TCBSTPP EQU TCBNDSP2 01311000 TCBABD EQU TCBNDSP2 01312000 TCBRSV22 EQU TCBNDSP1 01313000 TCBPIEND EQU TCBNDSP1 01314000 TCBTPSP EQU TCBNDSP1 01315000 TCBDDRND EQU TCBNDSP1 01316000 TCBRSPND EQU TCBNDSP1 01317000 TCBRSTND EQU TCBNDSP1 01318000 TCBDARPN EQU TCBNDSP1 01319000 TCBDARTN EQU TCBNDSP1 01320000 TCBNDSP0 EQU TCBNDSP 01321000 TCBUSER EQU TCB+168 01322000 TCBTCTB EQU TCBTCT+1 01323000 TCBRSV9C EQU TCBTCTGF 01324000 TCBRSV9B EQU TCBTCTGF 01325000 TCBRSV9A EQU TCBTCTGF 01326000 TCBRSV99 EQU TCBTCTGF 01327000 TCBRSV98 EQU TCBTCTGF 01328000 TCBRSV97 EQU TCBTCTGF 01329000 TCBRSV20 EQU TCBTCTGF 01330000 TCBSMFGF EQU TCBTCTGF 01331000 TCBSTABB EQU TCBSTAB+1 01332000 TCBSTCUR EQU TCBNSTAE 01333000 TCBRV301 EQU TCBNSTAE 01334000 TCBSYNCH EQU TCBNSTAE 01335000 TCBHALT EQU TCBNSTAE 01336000 TCBPPSUP EQU TCBNSTAE 01337000 TCB33E EQU TCBNSTAE 01338000 TCBQUIES EQU TCBNSTAE 01339000 TCBSTABE EQU TCBNSTAE 01340000 TCBAQE EQU TCB+156 01341000 TCBPQE EQU TCB+152 01342000 TCBTSDP EQU TCB+151 01343000 TCBTSLP EQU TCB+150 01344000 TCBSTPCT EQU TCB+149 01345000 TCBCPUBN EQU TCBTSFLG 01346000 TCBDYDSP EQU TCBTSFLG 01347000 TCBRSV18 EQU TCBTSFLG 01348000 TCBRSV17 EQU TCBTSFLG 01349000 TCBTIOTG EQU TCBTSFLG 01350000 TCBATT EQU TCBTSFLG 01351000 TCBSTPPR EQU TCBTSFLG 01352000 TCBRV300 EQU TCBTSTSK 01353000 TCBECB EQU TCB+144 01354000 TCBIQE EQU TCB+140 01355000 TCBLTC EQU TCB+136 01356000 TCBOTC EQU TCB+132 01357000 TCBNTC EQU TCB+128 01358000 TCBJSTCA EQU TCBJSTCB+1 01359000 TCBRSV16 EQU TCBJSTCB 01360000 TCBTQET EQU TCBTME 01361000 TCBTCB EQU TCB+116 01362000 TCBFSAB EQU TCBFSA+1 01363000 TCBQEL EQU TCBFSA 01364000 TCBGRS15 EQU TCBGRS+60 01365000 TCBGRS14 EQU TCBGRS+56 01366000 TCBGRS13 EQU TCBGRS+52 01367000 TCBGRS12 EQU TCBGRS+48 01368000 TCBGRS11 EQU TCBGRS+44 01369000 TCBGRS10 EQU TCBGRS+40 01370000 TCBGRS9 EQU TCBGRS+36 01371000 TCBGRS8 EQU TCBGRS+32 01372000 TCBGRS7 EQU TCBGRS+28 01373000 TCBGRS6 EQU TCBGRS+24 01374000 TCBGRS5 EQU TCBGRS+20 01375000 TCBGRS4 EQU TCBGRS+16 01376000 TCBGRS3 EQU TCBGRS+12 01377000 TCBGRS2 EQU TCBGRS+8 01378000 TCBGRS1 EQU TCBGRS+4 01379000 TCBGRS0 EQU TCBGRS 01380000 TCBJPQB EQU TCBJPQ+1 01381000 TCBRSV15 EQU TCBPURGE 01382000 TCBRSV14 EQU TCBPURGE 01383000 TCBRSV13 EQU TCBPURGE 01384000 TCBRSV12 EQU TCBPURGE 01385000 TCBRSV11 EQU TCBPURGE 01386000 TCBRSV10 EQU TCBPURGE 01387000 TCBRSV09 EQU TCBPURGE 01388000 TCBJPQF EQU TCBPURGE 01389000 TCBJLB EQU TCB+40 01390000 TCBLLS EQU TCB+36 01391000 TCBDSP EQU TCB+35 01392000 TCBLMP EQU TCB+34 01393000 TCBPNDSP EQU TCBFLGS5 01394000 TCBFCD1 EQU TCBFLGS5 01395000 TCBSTP EQU TCBFLGS5 01396000 TCBSYS EQU TCBFLGS5 01397000 TCBANDSP EQU TCBFLGS5 01398000 TCBPAGE EQU TCBFLGS5 01399000 TCBUXNDF EQU TCBABWF 01400000 TCBFC EQU TCBFLGS5 01401000 TCBONDSP EQU TCBFLGS4 01402000 TCBMPCND EQU TCBFLGS4 01403000 TCBMPCVQ EQU TCBFLGS4 01404000 TCBUXNDV EQU TCBFLGS4 01405000 TCBHNDSP EQU TCBFLGS4 01406000 TCBRQENA EQU TCBFLGS4 01407000 TCBSER EQU TCBFLGS4 01408000 TCBNDUMP EQU TCBFLGS4 01409000 TCBDWSTA EQU TCBFLGS3 01410000 TCBRSV08 EQU TCBFLGS3 01411000 TCBRSV07 EQU TCBFLGS3 01412000 TCBRSV06 EQU TCBFLGS3 01413000 TCBABGM EQU TCBFLGS3 01414000 TCBABTRM EQU TCBFLGS3 01415000 TCBADINP EQU TCBFLGS3 01416000 TCBFSM EQU TCBFLGS3 01417000 TCBFTS EQU TCBFLGS2 01418000 TCBFETXR EQU TCBFLGS2 01419000 TCBFDSOP EQU TCBFLGS2 01420000 TCBFJMC EQU TCBFLGS2 01421000 TCBFSMC EQU TCBFLGS2 01422000 TCBFABOP EQU TCBFLGS2 01423000 TCBFSTI EQU TCBFLGS2 01424000 TCBFOINP EQU TCBFLGS2 01425000 TCBFX EQU TCBFLGS1 01426000 TCBFS EQU TCBFLGS1 01427000 TCBFT EQU TCBFLGS1 01428000 TCBPDUMP EQU TCBFLGS1 01429000 TCBNONPR EQU TCBFLGS1 01430000 TCBFERA EQU TCBFLGS1 01431000 TCBFE EQU TCBFLGS1 01432000 TCBFA EQU TCBFLGS1 01433000 TCBZERO EQU TCBPKF 01434000 TCBFLAG EQU TCBPKF 01435000 TCBMSSB EQU TCBMSS+1 01436000 TCBRSV03 EQU TCBMSS 01437000 TCBTRNB EQU TCBTRN+1 01438000 TCBRSV02 EQU TCBABF 01439000 TCBOLTEP EQU TCBABF 01440000 TCBTCP EQU TCBABF 01441000 TCBTCPP EQU TCBABF 01442000 TCBRSV01 EQU TCBABF 01443000 TCBGRPH EQU TCBABF 01444000 TCBNOCHK EQU TCBABF 01445000 TCBMOD91 EQU TCBABF 01446000 TCBCMPC EQU TCBCMP+1 01447000 TCBRV318 EQU TCBCMSG 01448000 TCBRV317 EQU TCBCIND 01449000 TCBRV316 EQU TCBCWTO 01450000 TCBCASID EQU TCBCDBL 01451000 TCBNOCC EQU TCBSTCC 01452000 TCBDMPO EQU TCBCPP 01453000 TCBCSTEP EQU TCBCMPF 01454000 TCBCREQ EQU TCBCMPF 01455000 TCBTIO EQU TCB+12 01456000 TCBDEB EQU TCB+8 01457000 TCBPIEA EQU TCBPIE+1 01458000 TCBPM EQU TCBPMASK 01459000 @NM00148 EQU TCBPMASK 01460000 TCBRBP EQU TCB 01461000 TCBFRS6 EQU TCBFRS+24 01462000 TCBFRS4 EQU TCBFRS+16 01463000 TCBFRS2 EQU TCBFRS+8 01464000 TCBFRS0 EQU TCBFRS 01465000 CVTLEVL EQU CVTRELNO+2 01466000 CVTNUMB EQU CVTRELNO 01467000 CVTMDL EQU CVTFIX+250 01468000 @NM00123 EQU CVTFIX+248 01469000 @NM00122 EQU CVTFIX 01470000 CVTRV482 EQU CVTXTNT2+128 01471000 CVTRV481 EQU CVTXTNT2+124 01472000 CVTRV480 EQU CVTXTNT2+120 01473000 CVTRV479 EQU CVTXTNT2+118 01474000 CVTRV478 EQU CVTXTNT2+117 01475000 CVTRV477 EQU CVTXTNT2+116 01476000 CVTRV476 EQU CVTXTNT2+115 01477000 CVTRV475 EQU CVTXTNT2+114 01478000 CVTRV474 EQU CVTRV466 01479000 CVTRV473 EQU CVTRV466 01480000 CVTRV472 EQU CVTRV466 01481000 CVTRV471 EQU CVTRV466 01482000 CVTRV470 EQU CVTRV466 01483000 CVTRV469 EQU CVTRV466 01484000 CVTRV468 EQU CVTRV466 01485000 CVTRV467 EQU CVTRV466 01486000 CVTRV465 EQU CVTRV457 01487000 CVTRV464 EQU CVTRV457 01488000 CVTRV463 EQU CVTRV457 01489000 CVTRV462 EQU CVTRV457 01490000 CVTRV461 EQU CVTRV457 01491000 CVTRV460 EQU CVTRV457 01492000 CVTRV459 EQU CVTRV457 01493000 CVTRV458 EQU CVTRV457 01494000 CVTRV456 EQU CVTXTNT2+108 01495000 CVTRV455 EQU CVTXTNT2+104 01496000 CVTRV454 EQU CVTXTNT2+100 01497000 CVTRV453 EQU CVTXTNT2+96 01498000 CVTRV452 EQU CVTXTNT2+94 01499000 CVTRV451 EQU CVTXTNT2+92 01500000 CVTRV450 EQU CVTXTNT2+90 01501000 CVTRV449 EQU CVTXTNT2+88 01502000 CVTRV448 EQU CVTXTNT2+87 01503000 CVTRV447 EQU CVTXTNT2+86 01504000 CVTRV446 EQU CVTRV438 01505000 CVTRV445 EQU CVTRV438 01506000 CVTRV444 EQU CVTRV438 01507000 CVTRV443 EQU CVTRV438 01508000 CVTRV442 EQU CVTRV438 01509000 CVTRV441 EQU CVTRV438 01510000 CVTRV440 EQU CVTRV438 01511000 CVTRV439 EQU CVTRV438 01512000 CVTRV437 EQU CVTRV429 01513000 CVTRV436 EQU CVTRV429 01514000 CVTRV435 EQU CVTRV429 01515000 CVTRV434 EQU CVTRV429 01516000 CVTRV433 EQU CVTRV429 01517000 CVTRV432 EQU CVTRV429 01518000 CVTRV431 EQU CVTRV429 01519000 CVTRV430 EQU CVTRV429 01520000 CVTRV428 EQU CVTXTNT2+80 01521000 CVTRV427 EQU CVTXTNT2+76 01522000 CVTRV426 EQU CVTXTNT2+72 01523000 CVTRV425 EQU CVTXTNT2+68 01524000 CVTATACT EQU CVTATCVT 01525000 CVTRV423 EQU CVTXTNT2+62 01526000 CVTRV422 EQU CVTXTNT2+60 01527000 CVTRV421 EQU CVTXTNT2+58 01528000 CVTRV420 EQU CVTXTNT2+56 01529000 CVTRV419 EQU CVTXTNT2+55 01530000 CVTRV418 EQU CVTXTNT2+54 01531000 CVTRV417 EQU CVTRV409 01532000 CVTRV416 EQU CVTRV409 01533000 CVTRV415 EQU CVTRV409 01534000 CVTRV414 EQU CVTRV409 01535000 CVTRV413 EQU CVTRV409 01536000 CVTRV412 EQU CVTRV409 01537000 CVTRV411 EQU CVTRV409 01538000 CVTRV410 EQU CVTRV409 01539000 CVTRV408 EQU CVTRV400 01540000 CVTRV407 EQU CVTRV400 01541000 CVTRV406 EQU CVTRV400 01542000 CVTRV405 EQU CVTRV400 01543000 CVTRV404 EQU CVTRV400 01544000 CVTRV403 EQU CVTRV400 01545000 CVTRV402 EQU CVTRV400 01546000 CVTRV401 EQU CVTRV400 01547000 CVTICB EQU CVTXTNT2+48 01548000 CVTSKTA EQU CVTXTNT2+44 01549000 CVTRSV99 EQU CVTXTNT2+40 01550000 CVTRSV98 EQU CVTXTNT2+36 01551000 CVTRSV97 EQU CVTXTNT2+34 01552000 CVTRSV96 EQU CVTXTNT2+32 01553000 CVTOLTEP EQU CVTXTNT2+28 01554000 CVTQIDA EQU CVTQID+1 01555000 CVTRSV95 EQU CVTQID 01556000 CVTRSV94 EQU CVTXTNT2+20 01557000 CVTRSV93 EQU CVTXTNT2+16 01558000 CVTRSV92 EQU CVTXTNT2+12 01559000 CVTDEBVR EQU CVTXTNT2+8 01560000 CVTRSV91 EQU CVTXTNT2+6 01561000 CVTRSV9H EQU CVTFLGBT 01562000 CVTRSV9G EQU CVTFLGBT 01563000 CVTRSV9F EQU CVTFLGBT 01564000 CVTRSV9E EQU CVTFLGBT 01565000 CVTRSV9D EQU CVTFLGBT 01566000 CVTBAH EQU CVTFLGBT 01567000 CVTVME EQU CVTFLGBT 01568000 CVTNPE EQU CVTFLGBT 01569000 CVTNUCLS EQU CVTXTNT2+4 01570000 CVTDSSVA EQU CVTDSSV+1 01571000 CVTRSV89 EQU CVTDSSV 01572000 CVTRSV88 EQU CVTXTNT1+8 01573000 CVTRSV87 EQU CVTXTNT1+4 01574000 CVTFACHN EQU CVTXTNT1 01575000 CVTRV488 EQU CVTMAP+412 01576000 CVTRV487 EQU CVTMAP+408 01577000 CVTRV486 EQU CVTMAP+404 01578000 CVTRV485 EQU CVTMAP+400 01579000 CVTACTAP EQU CVTMAP+396 01580000 CVTAUTH EQU CVTMAP+392 01581000 CVTRV490 EQU CVTMAP+388 01582000 CVTRSV61 EQU CVTMAP+384 01583000 CVTVOLT1 EQU CVTVOLM1+1 01584000 CVTVOLI1 EQU CVTVOLF1 01585000 CVTSTOA EQU CVTMAP+376 01586000 CVTRSV58 EQU CVTMAP+374 01587000 CVTRSV57 EQU CVTMAP+372 01588000 CVTDDCE EQU CVTMAP+368 01589000 CVTPNWFR EQU CVTMAP+364 01590000 CVTSMF EQU CVTMAP+360 01591000 CVTSULK EQU CVTMAP+358 01592000 CVTSLKO EQU CVTSYSK 01593000 CVTSLKP EQU CVTSYSK 01594000 CVTSLKQ EQU CVTSYSK 01595000 CVTSLKR EQU CVTSYSK 01596000 CVTRSV56 EQU CVTSYSK 01597000 CVTRSV55 EQU CVTSYSK 01598000 CVTRSV54 EQU CVTSYSK 01599000 CVTRSV53 EQU CVTSYSK 01600000 CVTRSV52 EQU CVTA1F1 01601000 CVTRSV51 EQU CVTA1F1 01602000 CVTRSV50 EQU CVTA1F1 01603000 CVTRSV49 EQU CVTA1F1 01604000 CVTRSV48 EQU CVTA1F1 01605000 CVTRSV47 EQU CVTA1F1 01606000 CVTSRSW EQU CVTA1F1 01607000 CVTPFSW EQU CVTA1F1 01608000 CVTPCVT EQU CVTMAP+352 01609000 CVTRSV46 EQU CVTMAP+344 01610000 CVTRSV45 EQU CVTMAP+340 01611000 CVTRSV44 EQU CVTMAP+338 01612000 CVTRSV43 EQU CVTMAP+336 01613000 CVTHJESA EQU CVTHJES+1 01614000 CVTRSV42 EQU CVTHJES 01615000 CVTEXT2A EQU CVTEXT2+1 01616000 CVTRSV41 EQU CVTEXT2 01617000 CVTAPFA EQU CVTAPF+1 01618000 CVTRSV40 EQU CVTAPF 01619000 CVTRV518 EQU CVTINTLA 01620000 CVTRV517 EQU CVTERPV 01621000 CVTEORM EQU CVTMAP+312 01622000 CVTMCHPR EQU CVTMAP+308 01623000 CVTTZ EQU CVTMAP+304 01624000 CVTJEPS EQU CVTMAP+300 01625000 CVTJESCT EQU CVTMAP+296 01626000 CVTMODE EQU CVTMAP+292 01627000 CVTPTRV EQU CVTMAP+288 01628000 CVTREAL EQU CVTMAP+284 01629000 CVTRSV39 EQU CVTMAP+280 01630000 CVTRSV38 EQU CVTMAP+276 01631000 CVTDMSRA EQU CVTDMSR+1 01632000 CVTRV634 EQU CVTDMSRF 01633000 CVTRV633 EQU CVTDMSRF 01634000 CVTRV632 EQU CVTDMSRF 01635000 CVTRV631 EQU CVTDMSRF 01636000 CVTRV630 EQU CVTDMSRF 01637000 CVTRV629 EQU CVTDMSRF 01638000 CVTUDUMP EQU CVTDMSRF 01639000 CVTSDUMP EQU CVTDMSRF 01640000 CVTQMSGA EQU CVTQMSG+1 01641000 CVTRSV36 EQU CVTQMSG 01642000 CVTAMFF EQU CVTMAP+264 01643000 CVTPURGA EQU CVTPURG+1 01644000 CVTRSV35 EQU CVTPURG 01645000 CVTCBSP EQU CVTMAP+256 01646000 CVTATERA EQU CVTATER+1 01647000 CVTSYST EQU CVTATER 01648000 CVTVOLT2 EQU CVTTAT 01649000 CVTVOLI2 EQU CVTVOLF2 01650000 CVTAQAVB EQU CVTAQAVT+1 01651000 CVTRSV34 EQU CVTTCMFG 01652000 CVTRSV33 EQU CVTTCMFG 01653000 CVTRSV32 EQU CVTTCMFG 01654000 CVTRSV31 EQU CVTTCMFG 01655000 CVTRSV30 EQU CVTTCMFG 01656000 CVTRSV29 EQU CVTTCMFG 01657000 CVTLDEV EQU CVTTCMFG 01658000 CVTTCRDY EQU CVTTCMFG 01659000 CVTGTFA EQU CVTGTF+1 01660000 CVTRSV27 EQU CVTGTFST 01661000 CVTRNIO EQU CVTGTFST 01662000 CVTUSR EQU CVTGTFST 01663000 CVTRV318 EQU CVTFORM 01664000 CVTRV317 EQU CVTTMODE 01665000 CVTRV316 EQU CVTSTATE 01666000 CVTRV315 EQU CVTGTFS 01667000 CVTGTFAV EQU CVTGTFS 01668000 CVT0SCR1 EQU CVTMAP+232 01669000 CVTRV515 EQU CVTMAP+228 01670000 CVTRMS EQU CVTMAP+224 01671000 CVTPATCH EQU CVTMAP+220 01672000 CVTTSCE EQU CVTMAP+216 01673000 CVTLNKSC EQU CVTMAP+214 01674000 CVTQABST EQU CVTMAP+212 01675000 CVTMDLDS EQU CVTMAP+208 01676000 CVTUSER EQU CVTMAP+204 01677000 CVTABEND EQU CVTMAP+200 01678000 CVTSMCA EQU CVTMAP+196 01679000 CVTRSV18 EQU CVTMAP+192 01680000 CVTQLPAQ EQU CVTMAP+188 01681000 CVTQCDSR EQU CVTMAP+184 01682000 CVTRSV17 EQU CVTOPTB 01683000 CVTVS1A EQU CVTOPTB 01684000 CVTFP EQU CVTOPTB 01685000 CVTAPTHR EQU CVTOPTB 01686000 CVTNLOG EQU CVTOPTB 01687000 CVTTOD EQU CVTOPTB 01688000 CVTCTIMS EQU CVTOPTB 01689000 CVTPROT EQU CVTOPTB 01690000 CVTXPFP EQU CVTOPTA 01691000 CVTASCII EQU CVTOPTA 01692000 CVTRSV13 EQU CVTOPTA 01693000 CVTRSV12 EQU CVTOPTA 01694000 CVTNIP EQU CVTOPTA 01695000 CVTDDR EQU CVTOPTA 01696000 CVTAPR EQU CVTOPTA 01697000 CVTCCH EQU CVTOPTA 01698000 CVTSNCTR EQU CVTMAP+180 01699000 CVTQMWR EQU CVTMAP+176 01700000 CVTQOCR EQU CVTMAP+172 01701000 CVT1EF00 EQU CVTMAP+168 01702000 CVTMZ00 EQU CVTMAP+164 01703000 CVTHEAD EQU CVTMAP+160 01704000 CVTRSV11 EQU CVTMAP+156 01705000 CVT0PT01 EQU CVTMAP+152 01706000 CVTMSER EQU CVTMAP+148 01707000 CVTRV516 EQU CVTIERLC 01708000 CVTILCH EQU CVTMAP+140 01709000 CVT0DS EQU CVTMAP+136 01710000 CVTFBOSV EQU CVTMAP+132 01711000 CVTNUCB EQU CVTMAP+128 01712000 CVTIXAVL EQU CVTMAP+124 01713000 CVTIOQET EQU CVTMAP+120 01714000 CVTDCBA EQU CVTMAP+117 01715000 CVTMVS2 EQU CVTDCB 01716000 CVT6DAT EQU CVTDCB 01717000 CVT4MPS EQU CVTDCB 01718000 CVTRSV09 EQU CVTDCB 01719000 CVT4MS1 EQU CVTDCB 01720000 CVT2SPS EQU CVTDCB 01721000 CVT1SSS EQU CVTDCB 01722000 CVTRSV08 EQU CVTDCB 01723000 CVTSTB EQU CVTMAP+112 01724000 CVTQTD00 EQU CVTMAP+108 01725000 CVTQTE00 EQU CVTMAP+104 01726000 CVTCUCB EQU CVTMAP+100 01727000 CVTSJQ EQU CVTMAP+96 01728000 CVTPBLDL EQU CVTMAP+92 01729000 CVTTPC EQU CVTMAP+88 01730000 CVTSVDCB EQU CVTMAP+84 01731000 CVTBRET EQU CVTMAP+82 01732000 CVTEXIT EQU CVTMAP+80 01733000 CVT0FN00 EQU CVTMAP+76 01734000 CVTDARA EQU CVTDAR+1 01735000 CVTRSV07 EQU CVTFLGS1 01736000 CVTRSV06 EQU CVTFLGS1 01737000 CVTRSV05 EQU CVTFLGS1 01738000 CVTRSV04 EQU CVTFLGS1 01739000 CVTRSV03 EQU CVTFLGS1 01740000 CVTRSV02 EQU CVTFLGS1 01741000 CVTRSV01 EQU CVTFLGS1 01742000 CVTDMPLK EQU CVTFLGS1 01743000 CVTXITP EQU CVTMAP+68 01744000 CVTZDTAB EQU CVTMAP+64 01745000 CVTMSLT EQU CVTMAP+60 01746000 CVTDATE EQU CVTMAP+56 01747000 CVTBTERM EQU CVTMAP+52 01748000 CVTSYSAD EQU CVTMAP+48 01749000 CVTXTLER EQU CVTMAP+44 01750000 CVTILK2 EQU CVTMAP+40 01751000 CVTILK1 EQU CVTMAP+36 01752000 CVTPRLTV EQU CVTMAP+32 01753000 CVTPCNVT EQU CVTMAP+28 01754000 CVT0VL00 EQU CVTMAP+24 01755000 CVTXAPG EQU CVTMAP+20 01756000 CVTBUF EQU CVTMAP+16 01757000 CVTJOB EQU CVTMAP+12 01758000 CVT0EF00 EQU CVTMAP+4 01759000 CVTTCBP EQU CVTMAP 01760000 CVT EQU CVTMAP 01761000 SAVTTTRC EQU IEDNSVTD+144 01762000 SAVTLCPB EQU IEDNSVTD+142 01763000 SAVTRQTG EQU IEDNSVTD+140 01764000 SAVTRQCH EQU IEDNSVTD+136 01765000 SAVTMAND EQU IEDNSVTD+132 01766000 SAVTSPLN EQU IEDNSVTD+128 01767000 SAVTLTRM EQU IEDNSVTD+124 01768000 SAVTTPE EQU IEDNSVTD+120 01769000 SAVTLER EQU IEDNSVTD+116 01770000 SAVTPSWD EQU IEDNSVTD+108 01771000 SAVTPLEN EQU IEDNSVTD+107 01772000 SAVTPOST EQU SAVTTSTB 01773000 @NM00121 EQU SAVTRESP 01774000 @NM00120 EQU SAVTRESP 01775000 SAVTSLOG EQU SAVTRESP 01776000 SAVTOERR EQU SAVTRESP 01777000 @NM00119 EQU SAVTRESP 01778000 SAVTOPCT EQU SAVTREST 01779000 SAVTOAGN EQU SAVTREST 01780000 SAVTPARM EQU SAVTCLSE+13 01781000 @NM00118 EQU SAVTSCAN 01782000 @NM00117 EQU SAVTSCAN 01783000 @NM00116 EQU SAVTSCAN 01784000 SAVTSTRM EQU SAVTSCAN 01785000 SAVTOPEN EQU SAVTCLSE+9 01786000 SAVTRCDE EQU SAVTCLSE+8 01787000 SAVTLINK EQU SAVTCLSE+5 01788000 SAVTCPRI EQU SAVTCLSE+4 01789000 SAVTCQCB EQU SAVTCLSE+1 01790000 SAVTVQCK EQU SAVTSTAT 01791000 SAVTVCLS EQU SAVTSTAT 01792000 @NM00115 EQU SAVTSTAT 01793000 @NM00114 EQU SAVTSTAT 01794000 SAVTINQR EQU SAVTSTAT 01795000 SAVTQSCE EQU SAVTSTAT 01796000 SAVTCACB EQU SAVTSTAT 01797000 SAVTOACB EQU SAVTSTAT 01798000 SAVTWAIT EQU IEDNSVTD+84 01799000 @NM00113 EQU IEDNSVTD+76 01800000 SAVTOCRT EQU IEDNSVTD+72 01801000 @NM00112 EQU IEDNSVTD+64 01802000 SAVTPRTQ EQU IEDNSVTD+60 01803000 @NM00111 EQU IEDNSVTD+52 01804000 SAVTFLDQ EQU IEDNSVTD+48 01805000 @NM00110 EQU IEDNSVTD+40 01806000 SAVTOCLQ EQU IEDNSVTD+36 01807000 @NM00109 EQU IEDNSVTD+28 01808000 SAVTLCWQ EQU IEDNSVTD+24 01809000 SAVTACB EQU IEDNSVTD+20 01810000 SAVTNIB EQU IEDNSVTD+16 01811000 SAVTRPL EQU IEDNSVTD+12 01812000 SAVTPLCB EQU IEDNSVTD+8 01813000 SAVTPOOL EQU IEDNSVTD+4 01814000 SAVTPRMT EQU SAVTDIAF 01815000 SAVTVIRT EQU SAVTDIAF 01816000 AVTCPBNO EQU IEDQAVTD+1224 01817000 AVTHRESS EQU IEDQAVTD+1223 01818000 @NM00108 EQU IEDQAVTD+1222 01819000 @NM00107 EQU IEDQAVTD+1221 01820000 @NM00106 EQU IEDQAVTD+1220 01821000 @NM00105 EQU IEDQAVTD+1217 01822000 @NM00104 EQU IEDQAVTD+1216 01823000 AVTHRESE EQU @NM00103 01824000 AVTRADDR EQU IEDQAVTD+1208 01825000 AVTNADDR EQU IEDQAVTD+1204 01826000 AVTHRESN EQU IEDQAVTD+1200 01827000 AVTVOLRN EQU IEDQAVTD+1196 01828000 AVTTOTNN EQU IEDQAVTD+1192 01829000 AVTTRCYN EQU IEDQAVTD+1188 01830000 AVTRCTRN EQU IEDQAVTD+1184 01831000 AVTNOVON EQU IEDQAVTD+1180 01832000 AVTADEBN EQU IEDQAVTD+1176 01833000 AVTVOLRR EQU IEDQAVTD+1172 01834000 AVTTOTNR EQU IEDQAVTD+1168 01835000 AVTTRCYR EQU IEDQAVTD+1164 01836000 AVTRCTRR EQU IEDQAVTD+1160 01837000 AVTNOVOR EQU IEDQAVTD+1156 01838000 AVTADEBR EQU IEDQAVTD+1152 01839000 AVTLODPT EQU IEDQAVTD+1148 01840000 AVTIOBN EQU IEDQAVTD+1144 01841000 AVTIOBR EQU IEDQAVTD+1140 01842000 AVTCPBPT EQU IEDQAVTD+1136 01843000 AVTFCPB EQU IEDQAVTD+1132 01844000 @NM00102 EQU IEDQAVTD+1128 01845000 AVTINCPQ EQU IEDQAVTD+1124 01846000 @NM00101 EQU IEDQAVTD+1120 01847000 @NM00100 EQU IEDQAVTD+1117 01848000 @NM00099 EQU AVTBIT4 01849000 @NM00098 EQU AVTBIT4 01850000 @NM00097 EQU AVTBIT4 01851000 @NM00096 EQU AVTBIT4 01852000 @NM00095 EQU AVTBIT4 01853000 @NM00094 EQU AVTBIT4 01854000 @NM00093 EQU AVTBIT4 01855000 AVTRUFTN EQU AVTBIT4 01856000 @NM00092 EQU IEDQAVTD+1112 01857000 AVTNOBFQ EQU IEDQAVTD+1108 01858000 @NM00091 EQU IEDQAVTD+1104 01859000 AVTDKENQ EQU IEDQAVTD+1100 01860000 @NM00090 EQU IEDQAVTD+1096 01861000 AVTDKAPQ EQU IEDQAVTD+1092 01862000 AVTCOPY EQU IEDQAVTD+1088 01863000 AVTIA EQU IEDQAVTD+1084 01864000 AVTFL EQU IEDQAVTD+1080 01865000 @NM00089 EQU IEDQAVTD+1076 01866000 AVTNCPBQ EQU IEDQAVTD+1072 01867000 AVTTOTNC EQU IEDQAVTD+1068 01868000 AVTCMAX EQU IEDQAVTD+1064 01869000 AVTCMIN EQU IEDQAVTD+1060 01870000 AVTHM02 EQU IEDQAVTD+1056 01871000 AVTDSKCT EQU IEDQAVTD+1054 01872000 AVTCKRST EQU IEDQAVTD+1053 01873000 AVTSTAN EQU AVTBIT3 01874000 AVTSTACN EQU AVTBIT3 01875000 AVTSTAIN EQU AVTBIT3 01876000 AVTSTAYN EQU AVTBIT3 01877000 AVTOLTBN EQU AVTBIT3 01878000 AVTTSAB EQU AVTBIT3 01879000 AVTRFULN EQU AVTBIT3 01880000 AVTRECVN EQU AVTBIT3 01881000 @NM00088 EQU AVTBIT2 01882000 @NM00087 EQU AVTBIT2 01883000 AVTOPEIN EQU AVTBIT2 01884000 AVTSTRTN EQU AVTBIT2 01885000 AVTTOPOL EQU AVTBIT2 01886000 AVTCOPYN EQU AVTBIT2 01887000 AVTREUSN EQU AVTBIT2 01888000 AVTEXTSC EQU AVTBIT2 01889000 AVTDISKN EQU AVTBIT1 01890000 AVTQUCKN EQU AVTBIT1 01891000 AVTCLOSN EQU AVTBIT1 01892000 AVTREADN EQU AVTBIT1 01893000 AVTDLAYN EQU AVTBIT1 01894000 AVTAQTAN EQU AVTBIT1 01895000 AVTTSON EQU AVTBIT1 01896000 AVTAPLKN EQU AVTBIT1 01897000 AVTDUMBR EQU IEDQAVTD+1048 01898000 AVTDLQX EQU IEDQAVTD+1046 01899000 AVTINTLV EQU IEDQAVTD+1044 01900000 AVTSMCNT EQU IEDQAVTD+1042 01901000 AVTAVFCT EQU IEDQAVTD+1040 01902000 AVTOPCON EQU IEDQAVTD+1038 01903000 AVTOPCNT EQU IEDQAVTD+1036 01904000 AVTLNCNT EQU IEDQAVTD+1034 01905000 AVTKEYLE EQU IEDQAVTD+1032 01906000 AVTHA16 EQU IEDQAVTD+1030 01907000 AVTHA7 EQU IEDQAVTD+1028 01908000 AVTHA4 EQU IEDQAVTD+1026 01909000 AVTHA3 EQU IEDQAVTD+1024 01910000 AVTHA2 EQU IEDQAVTD+1022 01911000 AVTGETMS EQU IEDQAVTD+1021 01912000 @NM00086 EQU IEDQAVTD+1020 01913000 AVTGETMD EQU IEDQAVTD+1016 01914000 AVTGETMN EQU IEDQAVTD+1012 01915000 AVTCWTOT EQU IEDQAVTD+1008 01916000 AVTCWINT EQU IEDQAVTD+948 01917000 AVTAFE30 EQU IEDQAVTD+944 01918000 AVTAFE20 EQU IEDQAVTD+940 01919000 AVTAFE10 EQU IEDQAVTD+936 01920000 AVTCWEC2 EQU IEDQAVTD+932 01921000 AVTCWPM2 EQU IEDQAVTD+928 01922000 AVTCWTS2 EQU IEDQAVTD+927 01923000 AVTCWTS1 EQU IEDQAVTD+926 01924000 AVTCWCLD EQU AVTCWFL2 01925000 AVTCWRAP EQU AVTCWFL2 01926000 @NM00085 EQU AVTCWFL2 01927000 @NM00084 EQU AVTCWFL2 01928000 @NM00083 EQU AVTCWFL2 01929000 @NM00082 EQU AVTCWFL2 01930000 @NM00081 EQU AVTCWFL2 01931000 AVTCWACT EQU AVTCWFL2 01932000 @NM00080 EQU AVTCWFL1 01933000 @NM00079 EQU AVTCWFL1 01934000 @NM00078 EQU AVTCWFL1 01935000 @NM00077 EQU AVTCWFL1 01936000 @NM00076 EQU AVTCWFL1 01937000 @NM00075 EQU AVTCWFL1 01938000 @NM00074 EQU AVTCWFL1 01939000 AVTCOMWN EQU AVTCWFL1 01940000 AVTCWEC1 EQU IEDQAVTD+920 01941000 AVTCWPM1 EQU IEDQAVTD+916 01942000 AVTCAREA EQU IEDQAVTD+912 01943000 AVTFZERO EQU IEDQAVTD+908 01944000 AVTCADDR EQU IEDQAVTD+904 01945000 AVTCOREC EQU IEDQAVTD+900 01946000 @NM00073 EQU IEDQAVTD+892 01947000 AVTCPBCB EQU IEDQAVTD+888 01948000 @NM00072 EQU IEDQAVTD+880 01949000 AVTDSIOB EQU IEDQAVTD+876 01950000 @NM00071 EQU IEDQAVTD+868 01951000 AVTCPRMB EQU IEDQAVTD+864 01952000 @NM00070 EQU IEDQAVTD+856 01953000 AVTCLOSB EQU IEDQAVTD+852 01954000 @NM00069 EQU IEDQAVTD+844 01955000 AVTACTIB EQU IEDQAVTD+840 01956000 @NM00068 EQU IEDQAVTD+832 01957000 AVTOLTQB EQU IEDQAVTD+828 01958000 @NM00067 EQU IEDQAVTD+820 01959000 AVTOPCOB EQU IEDQAVTD+816 01960000 @NM00066 EQU IEDQAVTD+808 01961000 AVTCKPTB EQU IEDQAVTD+804 01962000 @NM00065 EQU IEDQAVTD+796 01963000 AVTBFRTB EQU IEDQAVTD+792 01964000 @NM00064 EQU IEDQAVTD+784 01965000 AVTBFREB EQU IEDQAVTD+780 01966000 AVTTIMQ EQU IEDQAVTD+776 01967000 @NM00063 EQU IEDQAVTD+772 01968000 AVTIMQPS EQU IEDQAVTD+768 01969000 AVTINOUT EQU IEDQAVTD+766 01970000 AVTREFTM EQU IEDQAVTD+764 01971000 @NM00062 EQU IEDQAVTD+752 01972000 AVTDELYB EQU IEDQAVTD+748 01973000 AVTOCQPT EQU IEDQAVTD+744 01974000 AVTTSOPT EQU IEDQAVTD+740 01975000 AVTSUPPT EQU IEDQAVTD+736 01976000 AVTCBQCB EQU IEDQAVTD+732 01977000 AVTMSGS EQU IEDQAVTD+729 01978000 @NM00061 EQU AVTSYSER 01979000 @NM00060 EQU AVTSYSER 01980000 @NM00059 EQU AVTSYSER 01981000 @NM00058 EQU AVTSYSER 01982000 @NM00057 EQU AVTSYSER 01983000 @NM00056 EQU AVTSYSER 01984000 AVTCMAXN EQU AVTSYSER 01985000 AVTCMINN EQU AVTSYSER 01986000 AVT2260L EQU IEDQAVTD+724 01987000 AVTADBUF EQU IEDQAVTD+720 01988000 AVTHFF EQU AVTCLRHI+2 01989000 @NM00055 EQU AVTCLRHI 01990000 @NM00054 EQU IEDQAVTD+712 01991000 AVTCCELE EQU IEDQAVTD+708 01992000 AVTDELAD EQU IEDQAVTD+704 01993000 AVTDELEM EQU IEDQAVTD+700 01994000 AVTBSX EQU AVTCKLNK 01995000 AVTOPETR EQU AVTHG01 01996000 @NM00053 EQU AVTCKBYT 01997000 AVTCKONQ EQU AVTCKBYT 01998000 @NM00052 EQU AVTCKBYT 01999000 @NM00051 EQU AVTCKBYT 02000000 @NM00050 EQU AVTCKBYT 02001000 @NM00049 EQU AVTCKBYT 02002000 @NM00048 EQU AVTCKBYT 02003000 @NM00047 EQU AVTCKBYT 02004000 AVTOPERT EQU IEDQAVTD+690 02005000 AVTOPXCL EQU IEDQAVTD+688 02006000 AVTOPERL EQU IEDQAVTD+687 02007000 @NM00046 EQU IEDQAVTD+686 02008000 AVTCKTIM EQU IEDQAVTD+684 02009000 AVTCKELV EQU IEDQAVTD+682 02010000 AVTCPRCD EQU IEDQAVTD+681 02011000 AVTWARMN EQU AVTCKELF 02012000 AVTCRTLN EQU AVTCKELF 02013000 AVTCPIPN EQU AVTCKELF 02014000 AVTCCLCN EQU AVTCKELF 02015000 AVTCINCN EQU AVTCKELF 02016000 @NM00045 EQU AVTCKELF 02017000 AVTCMCPN EQU AVTCKELF 02018000 AVTCRDYN EQU AVTCKELF 02019000 AVTCKQAD EQU IEDQAVTD+677 02020000 AVTSCBSZ EQU IEDQAVTD+676 02021000 @NM00044 EQU IEDQAVTD+672 02022000 AVTCKELE EQU IEDQAVTD+668 02023000 @NM00043 EQU IEDQAVTD+656 02024000 AVTCKRMV EQU IEDQAVTD+652 02025000 AVTHK EQU IEDQAVTD+648 02026000 AVTHI EQU IEDQAVTD+644 02027000 AVTIOT EQU IEDQAVTD+640 02028000 AVTNX EQU IEDQAVTD+636 02029000 AVTTONE EQU IEDQAVTD+632 02030000 AVTA3TL EQU IEDQAVTD+628 02031000 AVTDMECB EQU IEDQAVTD+624 02032000 AVTABEND EQU IEDQAVTD+618 02033000 AVTPLCBN EQU IEDQAVTD+616 02034000 @NM00042 EQU AVTSAVTP+1 02035000 @NM00041 EQU AVTSAVTF 02036000 AVTVTMCP EQU AVTSAVTF 02037000 @NM00040 EQU IEDQAVTD+608 02038000 AVTCMBSS EQU IEDQAVTD+604 02039000 AVTIAM EQU IEDQAVTD+600 02040000 AVTIAQ EQU IEDQAVTD+596 02041000 AVTCSCH EQU IEDQAVTD+592 02042000 AVTQ1 EQU IEDQAVTD+588 02043000 AVTE7 EQU IEDQAVTD+584 02044000 AVTHB EQU IEDQAVTD+580 02045000 AVTR1 EQU IEDQAVTD+576 02046000 AVTBZ EQU IEDQAVTD+572 02047000 AVTEZ EQU IEDQAVTD+568 02048000 AVTEC EQU IEDQAVTD+564 02049000 AVTEW EQU IEDQAVTD+560 02050000 AVTNDIAL EQU AVTSCOPT 02051000 AVTN2741 EQU AVTSCOPT 02052000 AVTCONCO EQU AVTSCOPT 02053000 AVTCONC EQU AVTSCOPT 02054000 AVTCMBUF EQU AVTSCOPT 02055000 @NM00039 EQU AVTSCOPT 02056000 AVTHA EQU AVTDISP 02057000 AVTEA EQU IEDQAVTD+548 02058000 AVTAX EQU IEDQAVTD+544 02059000 AVTA3 EQU IEDQAVTD+540 02060000 AVTGD EQU IEDQAVTD+536 02061000 AVTAL EQU IEDQAVTD+532 02062000 AVTOLTST EQU AVTHG02 02063000 AVTE8 EQU IEDQAVTD+524 02064000 AVTUI EQU IEDQAVTD+520 02065000 AVTCOMPT EQU IEDQAVTD+516 02066000 AVTCRSRF EQU IEDQAVTD+512 02067000 @NM00038 EQU IEDQAVTD+508 02068000 AVTKA02 EQU IEDQAVTD+504 02069000 AVTOPTPT EQU IEDQAVTD+500 02070000 AVTPCBPT EQU IEDQAVTD+496 02071000 AVTOSECB EQU IEDQAVTD+492 02072000 AVTOPECA EQU IEDQAVTD+488 02073000 AVTOLECA EQU IEDQAVTD+484 02074000 AVTCKECA EQU IEDQAVTD+480 02075000 AVTCWECA EQU IEDQAVTD+476 02076000 AVTCWTCB EQU IEDQAVTD+472 02077000 AVTOLTCB EQU IEDQAVTD+468 02078000 AVTOCTCB EQU IEDQAVTD+464 02079000 AVTCKTCB EQU IEDQAVTD+460 02080000 AVTAS EQU IEDQAVTD+456 02081000 AVTNOLBF EQU IEDQAVTD+454 02082000 AVTNCKPR EQU IEDQAVTD+453 02083000 AVTCIB EQU IEDQAVTD+452 02084000 AVTSPLPT EQU IEDQAVTD+448 02085000 @NM00037 EQU IEDQAVTD+444 02086000 AVTPOST EQU IEDQAVTD+440 02087000 AVTRARTN EQU IEDQAVTD+436 02088000 AVTBSCAN EQU IEDQAVTD+432 02089000 AVTRDYA EQU IEDQAVTD+428 02090000 AVTRNMPT EQU IEDQAVTD+424 02091000 AVTDISTR EQU IEDQAVTD+420 02092000 AVTPARM3 EQU IEDQAVTD+416 02093000 @NM00036 EQU AVTPKF 02094000 @NM00035 EQU AVTPKF 02095000 @NM00034 EQU AVTPKF 02096000 AVTFTCHF EQU AVTPKF 02097000 @NM00033 EQU AVTPKF 02098000 @NM00032 EQU AVTPKF 02099000 @NM00031 EQU AVTPKF 02100000 @NM00030 EQU AVTPKF 02101000 AVTPARM EQU IEDQAVTD+408 02102000 AVTEXS2A EQU IEDQAVTD+402 02103000 AVTEXA2S EQU IEDQAVTD+396 02104000 AVTOCGET EQU IEDQAVTD+392 02105000 AVTCKGET EQU IEDQAVTD+388 02106000 @NM00029 EQU IEDQAVTD+384 02107000 AVTREADD EQU IEDQAVTD+380 02108000 AVTREADY EQU IEDQAVTD+376 02109000 AVTRACE EQU IEDQAVTD+372 02110000 AVTTCB EQU IEDQAVTD+368 02111000 AVTPASWD EQU IEDQAVTD+360 02112000 AVTCTLCH EQU IEDQAVTD+352 02113000 AVTDOUBL EQU IEDQAVTD+344 02114000 AVTDOUBX EQU IEDQAVTD+336 02115000 AVTDPARM EQU IEDQAVTD+332 02116000 AVTCSTCS EQU IEDQAVTD+328 02117000 AVTDLQ EQU AVTSAVEX+32 02118000 @NM00028 EQU AVTSAVEX 02119000 AVTSAVE4 EQU IEDQAVTD+216 02120000 AVTSAVE3 EQU IEDQAVTD+144 02121000 AVTSAVE2 EQU IEDQAVTD+72 02122000 AVTSAVE1 EQU IEDQAVTD 02123000 ASCBEND EQU ASCB+208 02124000 ASCBSRBT EQU ASCB+200 02125000 ASCBSWTL EQU ASCB+196 02126000 ASCBRS14 EQU ASCB+195 02127000 ASCBSMCT EQU ASCB+194 02128000 ASCBRS12 EQU ASCB+192 02129000 ASCBPCTT EQU ASCB+188 02130000 ASCBVGTT EQU ASCB+184 02131000 ASCBRV43 EQU ASCBSRQ4 02132000 ASCBRV42 EQU ASCBSRQ4 02133000 ASCBRV41 EQU ASCBSRQ4 02134000 ASCBRV40 EQU ASCBSRQ4 02135000 ASCBRV39 EQU ASCBSRQ4 02136000 ASCBRV38 EQU ASCBSRQ4 02137000 ASCBRV37 EQU ASCBSRQ4 02138000 ASCBRV36 EQU ASCBSRQ4 02139000 ASCBRV35 EQU ASCBSRQ3 02140000 ASCBRV34 EQU ASCBSRQ3 02141000 ASCBRV33 EQU ASCBSRQ3 02142000 ASCBRV32 EQU ASCBSRQ3 02143000 ASCBRV31 EQU ASCBSRQ3 02144000 ASCBRV30 EQU ASCBSRQ3 02145000 ASCBRV29 EQU ASCBSRQ3 02146000 ASCBRV28 EQU ASCBSRQ3 02147000 ASCBRV27 EQU ASCBSRQ2 02148000 ASCBRV26 EQU ASCBSRQ2 02149000 ASCBRV25 EQU ASCBSRQ2 02150000 ASCBRV24 EQU ASCBSRQ2 02151000 ASCBRV23 EQU ASCBSRQ2 02152000 ASCBRV22 EQU ASCBSRQ2 02153000 ASCBRV21 EQU ASCBSRQ2 02154000 ASCBRV20 EQU ASCBSRQ2 02155000 ASCBRV19 EQU ASCBSRQ1 02156000 ASCBRV18 EQU ASCBSRQ1 02157000 ASCBRV17 EQU ASCBSRQ1 02158000 ASCBRV16 EQU ASCBSRQ1 02159000 ASCBRV15 EQU ASCBSRQ1 02160000 ASCBRV14 EQU ASCBSRQ1 02161000 ASCBRV13 EQU ASCBSRQ1 02162000 ASCBSTA EQU ASCBSRQ1 02163000 ASCBJBNS EQU ASCB+176 02164000 ASCBJBNI EQU ASCB+172 02165000 ASCBMCC EQU ASCB+168 02166000 ASCBRTWA EQU ASCB+164 02167000 ASCBIQEA EQU ASCB+160 02168000 ASCBXMPQ EQU ASCB+156 02169000 ASCBRS01 EQU ASCB+154 02170000 ASCBFMCT EQU ASCB+152 02171000 ASCBOUXB EQU ASCB+148 02172000 ASCBOUCB EQU ASCB+144 02173000 ASCBMECB EQU ASCB+140 02174000 ASCBQECB EQU ASCB+136 02175000 ASCBLSQH EQU ASCBLKGP+4 02176000 ASCBLOCK EQU ASCBLKGP 02177000 ASCBTCBS EQU ASCB+124 02178000 ASCBNVSC EQU ASCB+122 02179000 ASCBVSC EQU ASCB+120 02180000 ASCBSRBS EQU ASCB+118 02181000 ASCBSSRB EQU ASCB+116 02182000 ASCBRV06 EQU ASCBFLG2 02183000 ASCBRV05 EQU ASCBFLG2 02184000 ASCBRV04 EQU ASCBFLG2 02185000 ASCBSNQS EQU ASCBFLG2 02186000 ASCBS2S EQU ASCBFLG2 02187000 ASCBCEXT EQU ASCBFLG2 02188000 ASCBPXMT EQU ASCBFLG2 02189000 ASCBXMPT EQU ASCBFLG2 02190000 ASCBRF07 EQU ASCBDSP1 02191000 ASCBRF06 EQU ASCBDSP1 02192000 ASCBRF05 EQU ASCBDSP1 02193000 ASCBRF04 EQU ASCBDSP1 02194000 ASCBRF03 EQU ASCBDSP1 02195000 ASCBRF02 EQU ASCBDSP1 02196000 ASCBFAIL EQU ASCBDSP1 02197000 ASCBNOQ EQU ASCBDSP1 02198000 ASCBSWCT EQU ASCB+112 02199000 ASCBASXB EQU ASCB+108 02200000 ASCBTMCH EQU ASCB+104 02201000 ASCBNSWP EQU ASCBFLG1 02202000 ASCBTYP1 EQU ASCBFLG1 02203000 ASCBSTND EQU ASCBFLG1 02204000 ASCBABNT EQU ASCBFLG1 02205000 ASCBTERM EQU ASCBFLG1 02206000 ASCBS3S EQU ASCBFLG1 02207000 ASCBCMSH EQU ASCBFLG1 02208000 ASCBTOFF EQU ASCBFLG1 02209000 ASCBRF01 EQU ASCBRCTF 02210000 ASCBTMLW EQU ASCBRCTF 02211000 ASCBOUT EQU ASCBRCTF 02212000 ASCBWAIT EQU ASCBRCTF 02213000 ASCBRV08 EQU ASCBRCTF 02214000 ASCBFQU EQU ASCBRCTF 02215000 ASCBFRS EQU ASCBRCTF 02216000 ASCBTMNO EQU ASCBRCTF 02217000 ASCBAFFN EQU ASCBFW1 02218000 ASCBDUMP EQU ASCB+96 02219000 ASCBRV44 EQU ASCB+92 02220000 ASCBUBET EQU ASCB+88 02221000 ASCBECB EQU ASCB+84 02222000 ASCBJSTL EQU ASCB+80 02223000 ASCBEWST EQU ASCB+72 02224000 ASCBEJST EQU ASCB+64 02225000 ASCBTSB EQU ASCB+60 02226000 ASCBCSCB EQU ASCB+56 02227000 ASCBRSM EQU ASCB+52 02228000 ASCBLDA EQU ASCB+48 02229000 ASCBSTOR EQU ASCB+44 02230000 ASCBDP EQU ASCB+43 02231000 ASCBRV07 EQU ASCB+42 02232000 ASCBIOSM EQU ASCB+40 02233000 ASCBSEQN EQU ASCB+38 02234000 ASCBCPUS EQU ASCB+32 02235000 ASCBSPL EQU ASCB+28 02236000 ASCBIOSP EQU ASCB+24 02237000 ASCBSYNC EQU ASCBSUPC+4 02238000 ASCBSVRB EQU ASCBSUPC 02239000 ASCBCMSF EQU ASCB+12 02240000 ASCBBWDP EQU ASCB+8 02241000 ASCBFWDP EQU ASCB+4 02242000 ASCBASCB EQU ASCB 02243000 ASCBEGIN EQU ASCB 02244000 ADPLABDA EQU ABDPL+56 02245000 ADPLEXT EQU ABDPL+52 02246000 ADPLFMT2 EQU ABDPL+48 02247000 ADPLFMT1 EQU ABDPL+44 02248000 ADPLCOM4 EQU ABDPL+40 02249000 ADPLCOM3 EQU ABDPL+36 02250000 ADPLCOM2 EQU ABDPL+32 02251000 ADPLCOM1 EQU ABDPL+28 02252000 @NM00027 EQU ADPLFLAG 02253000 ADPLDMGT EQU ADPLFLAG 02254000 ADPLSYTM EQU ADPLFLAG 02255000 ADPLSNPR EQU ADPLFLAG 02256000 ABDSAVE1 EQU ABDAREA+672 02257000 ABDSAVHD EQU ABDAREA+592 02258000 ABDPADC EQU ABDAREA+589 02259000 ABDCC EQU ABDLINEA 02260000 ABDSRC2 EQU ABDAREA+382 02261000 ABDLOG EQU ABDAREA+380 02262000 ABDSRC1 EQU ABDAREA+378 02263000 ABDPHY EQU ABDAREA+376 02264000 ABDLCNT EQU ABDAREA+372 02265000 @NM00026 EQU ESPARM+29 02266000 @NM00025 EQU ESTAEFLG 02267000 EDCB EQU ESTAEFLG 02268000 ETCB EQU ESTAEFLG 02269000 ERESTART EQU ESPARM+24 02270000 EMODNAME EQU ESPARM+16 02271000 EABDAREA EQU ESPARM+12 02272000 ESAUTOP EQU ESPARM+8 02273000 ESBSREG2 EQU ESPARM+4 02274000 ESBSREG EQU ESPARM 02275000 ABDRTRN EQU ABDAREA+336 02276000 ABDSVCB EQU ABDAREA+332 02277000 @NM00024 EQU ABDGMA+14 02278000 ABDCDID EQU ABDGMA+12 02279000 ABDPAREA EQU ABDGMA+8 02280000 ABDBUFSZ EQU ABDBUFFS+4 02281000 ABDBUFAD EQU ABDBUFFS 02282000 ABSLCTSV EQU ABDAREA+304 02283000 ABDSTADS EQU ABDAREA+300 02284000 ABDUPRID EQU ABDAREA+296 02285000 ABDPCAP EQU ABDAREA+295 02286000 ABDLLNGH EQU ABDAREA+294 02287000 ABDINCPL EQU ABDAREA+292 02288000 ABDFWORK EQU ABDAREA+288 02289000 ABDIDENT EQU ABDAREA+286 02290000 ABDIND EQU ABDAREA+284 02291000 ABDSIZE EQU ABDAREA+280 02292000 ABDLENTH EQU ABDAREA+276 02293000 ABDBLOCK EQU ABDAREA+272 02294000 ABDSTAD EQU ABDAREA+268 02295000 @NM00023 EQU ABDBLNKS 02296000 @NM00022 EQU ABDBLNKS 02297000 @NM00021 EQU ABDBLNKS 02298000 @NM00020 EQU ABDBLNKS 02299000 @NM00019 EQU ABDBLNKS 02300000 @NM00018 EQU ABDBLNKS 02301000 @NM00017 EQU ABDBLNKS 02302000 ABDBLKN3 EQU ABDBLNKS 02303000 @NM00016 EQU ABDUPRFN 02304000 @NM00015 EQU ABDUPRFN 02305000 @NM00014 EQU ABDUPRFN 02306000 @NM00013 EQU ABDUPRFN 02307000 @NM00012 EQU ABDUPRFN 02308000 @NM00011 EQU ABDUPRFN 02309000 ABDUPRSL EQU ABDUPRFN 02310000 ABDUPRPM EQU ABDUPRFN 02311000 @NM00010 EQU ABDUPRF 02312000 @NM00009 EQU ABDUPRF 02313000 @NM00008 EQU ABDUPRF 02314000 @NM00007 EQU ABDUPRF 02315000 @NM00006 EQU ABDUPRF 02316000 UPRFMT20 EQU ABDUPRF 02317000 UPRFMET EQU ABDUPRF 02318000 UPRFMAT EQU ABDUPRF 02319000 ABDFMTWK EQU ABDAREA+256 02320000 ABDLPTR EQU ABDAREA+252 02321000 ABDLLINE EQU ABDAREA+248 02322000 ABDBPTR EQU ABDAREA+244 02323000 @NM00005 EQU ABDRES1 02324000 ABDPGHD EQU ABDRES1 02325000 ABDSQA EQU ABDRES1 02326000 ABDOLSQA EQU ABDRES1 02327000 ABDREGS EQU ABDRES1 02328000 ABDPSW EQU ABDRES1 02329000 ABDKEY EQU ABDAREA+138 02330000 ABDLSQA EQU ABDFLAG2 02331000 ABDSTAT EQU ABDFLAG2 02332000 ABDSWAP EQU ABDFLAG2 02333000 ABDTRNAV EQU ABDFLAG2 02334000 ABDTRBIT EQU ABDFLAG2 02335000 ABDGTF EQU ABDFLAG2 02336000 ABDSUPER EQU ABDFLAG2 02337000 ABDIDX EQU ABDFLAG1 02338000 ABDSPHD EQU ABDFLAG1 02339000 ABDSVCHD EQU ABDFLAG1 02340000 ABDSQSDM EQU ABDFLAG1 02341000 ABDLSTHD EQU ABDFLAG1 02342000 ABDQCBMN EQU ABDFLAG1 02343000 ABDQCBMJ EQU ABDFLAG1 02344000 ABDQCBHD EQU ABDFLAG1 02345000 ABDPGWK EQU ABDAREA+128 02346000 ABDWORK1 EQU ABDAREA+120 02347000 ABDRESV3 EQU ABDAREA+116 02348000 ABDUPRXT EQU ABDAREA+112 02349000 ABDCP1 EQU ABDAREA+108 02350000 ABDLP EQU ABDAREA+104 02351000 ABDFP EQU ABDAREA+100 02352000 ABDCP EQU ABDAREA+96 02353000 ABDPTRS3 EQU ABDPTRS+8 02354000 ABDPTRS2 EQU ABDPTRS+4 02355000 ABDPTRS1 EQU ABDPTRS 02356000 ABDPCTR EQU ABDAREA+82 02357000 ABDLCTR EQU ABDAREA+80 02358000 ABDIOBP EQU ABDAREA+76 02359000 ABDPTR EQU ABDAREA+72 02360000 ABDDCB EQU ABDAREA+68 02361000 ABDLEN EQU ABDAREA+66 02362000 ABDTYPE EQU ABDAREA+64 02363000 ABDECB EQU ABDAREA+60 02364000 ABDSAVE EQU ABDAREA+56 02365000 ABDDECB EQU ABDAREA+52 02366000 ABDPARA EQU ABDAREA+48 02367000 ABDTABPT EQU ABDAREA+44 02368000 ABDINXPT EQU ABDAREA+40 02369000 ABDCTR EQU ABDAREA+38 02370000 ABDTRLN EQU ABDAREA+36 02371000 ABDHDRAD EQU ABDPARMS+20 02372000 ABDSNAPP EQU ABDPARMS+16 02373000 ABDPTCBP EQU ABDPARMS+12 02374000 ABDPDCBP EQU ABDPARMS+8 02375000 @NM00004 EQU ABDPARMS+7 02376000 @NM00003 EQU APFPDATA 02377000 APFSPALL EQU APFPDATA 02378000 APFPSW EQU APFPDATA 02379000 APFJPA EQU APFPDATA 02380000 APFLPA EQU APFPDATA 02381000 APFREGS EQU APFPDATA 02382000 APFSAVE2 EQU APFPDATA 02383000 APFSAVE EQU APFPDATA 02384000 @NM00002 EQU APFSDAT1 02385000 APFERR EQU APFSDAT1 02386000 APFIO EQU APFSDAT1 02387000 APFDM EQU APFSDATA 02388000 APFQCB EQU APFSDATA 02389000 APFSUPDA EQU APFSDATA 02390000 APFTRACE EQU APFSDATA 02391000 APFSWA EQU APFSDATA 02392000 APFLSQA EQU APFSDATA 02393000 APFSQA EQU APFSDATA 02394000 APFNUC EQU APFSDATA 02395000 @NM00001 EQU ABDPARMS+2 02396000 APFHDR EQU ABDFLAG 02397000 APFSNAPP EQU ABDFLAG 02398000 APFTCB EQU ABDFLAG 02399000 APFID EQU ABDFLAG 02400000 APFABEND EQU ABDFLAG 02401000 APFENVS2 EQU ABDFLAG 02402000 APFVS2 EQU ABDFLAG 02403000 APFSNAP EQU ABDFLAG 02404000 ABDPID EQU ABDPARMS 02405000 ABDCRB EQU ABDAREA+8 02406000 ABDCTCB EQU ABDAREA+4 02407000 @NM00147 EQU PSA+3668 02408000 PSASTAK EQU PSA+3072 02409000 @NM00146 EQU PSA+1048 02410000 PSAUSEND EQU PSA+1048 02411000 PSARV062 EQU PSA+1044 02412000 PSACDAL EQU PSA+1040 02413000 PSAWTCOD EQU PSA+1036 02414000 PSAATCVT EQU PSA+1032 02415000 PSAPCPSW EQU PSA+1024 02416000 PSAPIR2 EQU PSA+1020 02417000 PSARV059 EQU PSA+1018 02418000 PSASVC13 EQU PSA+1016 02419000 PSALSFCC EQU PSA+1012 02420000 PSASFACC EQU PSA+1008 02421000 PSASTOP EQU PSA+992 02422000 PSASTART EQU PSA+976 02423000 PSARSPSW EQU PSA+968 02424000 PSASRPSW EQU PSA+960 02425000 PSARV045 EQU PSA+892 02426000 PSARV044 EQU PSA+888 02427000 PSARV043 EQU PSA+884 02428000 PSARV042 EQU PSA+880 02429000 PSARV041 EQU PSA+876 02430000 PSARV040 EQU PSA+872 02431000 PSARV025 EQU PSA+868 02432000 PSADSSED EQU PSA+868 02433000 PSADSSPR EQU PSA+864 02434000 PSADSSFW EQU PSA+860 02435000 PSADSS14 EQU PSA+856 02436000 PSADSSPP EQU PSA+848 02437000 PSADSSRP EQU PSA+840 02438000 PSADSS05 EQU PSADSSF4 02439000 PSADSS10 EQU PSADSSF4 02440000 PSADSSVE EQU PSADSSF4 02441000 PSADSSDE EQU PSADSSF4 02442000 PSADSSC0 EQU PSADSSF4 02443000 PSADSSIE EQU PSADSSF4 02444000 PSADSS12 EQU PSADSSF4 02445000 PSADSSRC EQU PSADSSF4 02446000 PSARV057 EQU PSADSSF3 02447000 PSARV056 EQU PSADSSF3 02448000 PSARV055 EQU PSADSSF3 02449000 PSADSSMC EQU PSADSSF3 02450000 PSADSSRW EQU PSADSSF3 02451000 PSADSSNM EQU PSADSSF3 02452000 PSADSSES EQU PSADSSF3 02453000 PSADSSGP EQU PSADSSF3 02454000 PSADSSF2 EQU PSADSSFL+1 02455000 PSADSSPI EQU PSADSSF1 02456000 PSADSSOI EQU PSADSSF1 02457000 PSADSSSP EQU PSADSSF1 02458000 PSADSSTP EQU PSADSSF1 02459000 PSADSSDW EQU PSADSSF1 02460000 PSADSSDD EQU PSADSSF1 02461000 PSADSSDM EQU PSADSSF1 02462000 PSADSSMV EQU PSADSSF1 02463000 PSADSSTS EQU PSA+816 02464000 PSADSSWK EQU PSA+812 02465000 PSADSSR3 EQU PSA+808 02466000 PSADSSR2 EQU PSA+804 02467000 PSADSSRS EQU PSA+800 02468000 PSASTOR EQU PSA+796 02469000 PSACPUSA EQU PSA+794 02470000 PSAVSTAP EQU PSA+792 02471000 PSAWKVAP EQU PSA+788 02472000 PSAWKRAP EQU PSA+784 02473000 PSAMCHIC EQU PSA+783 02474000 PSARV061 EQU PSA+782 02475000 PSASYMSK EQU PSA+781 02476000 PSAMCHFL EQU PSA+780 02477000 PSACR0 EQU PSA+776 02478000 PSAPSWSV EQU PSA+768 02479000 PSALITA EQU PSA+764 02480000 PSACLHS EQU PSAHLHI 02481000 PSALKR15 EQU PSALKSA+60 02482000 PSALKR14 EQU PSALKSA+56 02483000 PSALKR13 EQU PSALKSA+52 02484000 PSALKR12 EQU PSALKSA+48 02485000 PSALKR11 EQU PSALKSA+44 02486000 PSALKR10 EQU PSALKSA+40 02487000 PSALKR9 EQU PSALKSA+36 02488000 PSALKR8 EQU PSALKSA+32 02489000 PSALKR7 EQU PSALKSA+28 02490000 PSALKR6 EQU PSALKSA+24 02491000 PSALKR5 EQU PSALKSA+20 02492000 PSALKR4 EQU PSALKSA+16 02493000 PSALKR3 EQU PSALKSA+12 02494000 PSALKR2 EQU PSALKSA+8 02495000 PSALKR1 EQU PSALKSA+4 02496000 PSALKR0 EQU PSALKSA 02497000 PSARV023 EQU PSACLHT+52 02498000 PSALOCAL EQU PSACLHT+48 02499000 PSACMSL EQU PSACLHT+44 02500000 PSAOPTL EQU PSACLHT+40 02501000 PSATPACL EQU PSACLHT+36 02502000 PSATPDNL EQU PSACLHT+32 02503000 PSATPNCL EQU PSACLHT+28 02504000 PSAIOSLL EQU PSACLHT+24 02505000 PSAIOSUL EQU PSACLHT+20 02506000 PSAIOSCL EQU PSACLHT+16 02507000 PSAIOSSL EQU PSACLHT+12 02508000 PSASALCL EQU PSACLHT+8 02509000 PSAASML EQU PSACLHT+4 02510000 PSADISPL EQU PSACLHT 02511000 PSASRSA EQU PSA+636 02512000 PSARV050 EQU PSA+634 02513000 PSADSSGO EQU PSA+633 02514000 PSARECUR EQU PSA+632 02515000 PSAHLHIS EQU PSA+628 02516000 PSAIPCSA EQU PSA+624 02517000 @NM00145 EQU PSA+621 02518000 PSAIPCDM EQU PSA+620 02519000 PSAIPCD EQU PSA+616 02520000 @NM00144 EQU PSA+613 02521000 PSAIPCRM EQU PSA+612 02522000 PSAIPCR EQU PSA+608 02523000 PSAMCHEX EQU PSA+600 02524000 PSAMPSW EQU PSA+592 02525000 PSAEXPS2 EQU PSA+584 02526000 PSAEXPS1 EQU PSA+576 02527000 PSAPIREG EQU PSA+572 02528000 PSARSREG EQU PSA+568 02529000 PSAGPREG EQU PSA+556 02530000 PSARV022 EQU PSASUP4 02531000 PSARV021 EQU PSASUP4 02532000 PSARV020 EQU PSASUP4 02533000 PSARV019 EQU PSASUP4 02534000 PSARV018 EQU PSASUP4 02535000 PSARV017 EQU PSASUP4 02536000 PSARV016 EQU PSASUP4 02537000 PSARV015 EQU PSASUP4 02538000 PSARV014 EQU PSASUP3 02539000 PSARV013 EQU PSASUP3 02540000 PSARV012 EQU PSASUP3 02541000 PSAESTA EQU PSASUP3 02542000 PSASPR EQU PSASUP3 02543000 PSAPSREG EQU PSASUP3 02544000 PSAPI2 EQU PSASUP3 02545000 PSAIOSUP EQU PSASUP3 02546000 PSALCR EQU PSASUP2 02547000 PSARTM EQU PSASUP2 02548000 PSAACR EQU PSASUP2 02549000 PSAIPCE2 EQU PSASUP2 02550000 PSAIPCES EQU PSASUP2 02551000 PSAIPCEC EQU PSASUP2 02552000 PSAGTF EQU PSASUP2 02553000 PSAIPCRI EQU PSASUP2 02554000 PSATYPE6 EQU PSASUP1 02555000 PSATCTL EQU PSASUP1 02556000 PSADISP EQU PSASUP1 02557000 PSALOCK EQU PSASUP1 02558000 PSAPI EQU PSASUP1 02559000 PSAEXT EQU PSASUP1 02560000 PSASVC EQU PSASUP1 02561000 PSAIO EQU PSASUP1 02562000 PSAANEW EQU PSA+544 02563000 PSATOLD EQU PSA+540 02564000 PSATNEW EQU PSA+536 02565000 PSALCCAR EQU PSA+532 02566000 PSALCCAV EQU PSA+528 02567000 PSAPCCAR EQU PSA+524 02568000 PSAPCCAV EQU PSA+520 02569000 PSACPULA EQU PSA+518 02570000 PSACPUPA EQU PSA+516 02571000 PSAPSA EQU PSA+512 02572000 FLCHDEND EQU PSA+512 02573000 FLCCRSAV EQU FLCMCLA+280 02574000 FLCGRSAV EQU FLCMCLA+216 02575000 FLCFPSAV EQU FLCMCLA+184 02576000 FLCFLA EQU FLCMCLA+88 02577000 FLCRGNCD EQU FLCMCLA+84 02578000 FLCFSAA EQU FLCFSA+1 02579000 @NM00143 EQU FLCFSA 02580000 @NM00142 EQU FLCMCLA+72 02581000 FLCMCIC EQU FLCMCLA+64 02582000 @NM00141 EQU FLCMCLA+20 02583000 FLCIOAA EQU FLCIOA+1 02584000 @NM00140 EQU FLCIOA 02585000 @NM00139 EQU FLCMCLA+15 02586000 @NM00138 EQU FLCMCLA+14 02587000 @NM00137 EQU FLCMCLA+12 02588000 FLCLCL EQU FLCMCLA+8 02589000 FLCIOELA EQU FLCIOEL+1 02590000 @NM00136 EQU FLCIOEL 02591000 FLCCHNID EQU FLCMCLA 02592000 @NM00135 EQU PSA+160 02593000 FLCMTRCD EQU PSA+157 02594000 @NM00134 EQU PSA+156 02595000 FLCPERA EQU FLCPER+1 02596000 @NM00133 EQU FLCPER 02597000 @NM00132 EQU PSA+151 02598000 FLCPERCD EQU PSA+150 02599000 FLCMCNUM EQU PSA+149 02600000 @NM00131 EQU PSA+148 02601000 FLCTEAA EQU FLCTEA+1 02602000 @NM00130 EQU FLCTEA 02603000 PSAPIPC EQU PSAPICOD 02604000 PSAPIMC EQU PSAPICOD 02605000 PSAPIPER EQU PSAPICOD 02606000 PSARV049 EQU FLCPICOD 02607000 FLCPILCB EQU FLCPIILC 02608000 @NM00129 EQU FLCPIILC 02609000 @NM00128 EQU PSAEPPSW 02610000 FLCSVCN EQU PSAESPSW+2 02611000 FLCSILCB EQU FLCSVILC 02612000 @NM00127 EQU FLCSVILC 02613000 @NM00126 EQU PSAESPSW 02614000 FLCEICOD EQU PSAEEPSW+2 02615000 PSASPAD EQU PSAEEPSW 02616000 @NM00125 EQU PSA+128 02617000 FLCINPSW EQU PSA+120 02618000 FLCMNPSW EQU PSA+112 02619000 FLCPNPSW EQU PSA+104 02620000 FLCSNPSW EQU PSA+96 02621000 FLCENPSW EQU PSA+88 02622000 FLCTRACE EQU PSA+84 02623000 FLCTIMER EQU PSA+80 02624000 FLCCVT2 EQU PSA+76 02625000 FLCCAW EQU PSA+72 02626000 FLCCSW EQU PSA+64 02627000 FLCIOPSW EQU PSA+56 02628000 FLCMOPSW EQU PSA+48 02629000 FLCPOPSW EQU PSA+40 02630000 FLCSOPSW EQU PSA+32 02631000 FLCEOPSW EQU PSA+24 02632000 @NM00124 EQU FLCICCW2+4 02633000 FLCICCW1 EQU FLCROPSW 02634000 FLCIPPSW EQU FLCRNPSW 02635000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02636000 @PB00002 EQU @PB00003 02637000 @ENDDATA EQU * 02638000 END IEAVAD08,(C'PLS1929',0701,77049) 02639000