TITLE 'IEAVAD10 DISPLAY PSW AND REGISTERS *00001000 ' 00002000 IEAVAD10 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVAD10 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 */* ************************************************************** */ 00022000 */* */ 00023000 */* INITIALIZATION ON ENTRY */ 00024000 */* FIRST THE ADDRESSING REGISTERS ARE INITIALIZED, THEN A */ 00025000 */* SAVEAREA FOR THE REGISTERS AND AUTOMATIC DATA */ 00026000 */* AREA IS OBTAINED FROM LSQA. THE SAVEAREAS ARE */ 00027000 */* CHAINED AND THE GETMAINED STORAGE IS CLEARED TO */ 00028000 */* ZEROS. */ 00029000 */* */ 00030000 */* ************************************************************** */ 00031000 * 0058 00032000 * ABDARPTR=PARMPTR; /* SAVE PARMLIST ADDRESS */ 00033000 LR ABDARPTR,PARMPTR 0058 00034000 * TCBPTR=ABDTCB; /* GET DUMPED TCB ADDRESS 0059 00035000 * @G33SPHW*/ 00036000 L TCBPTR,ABDTCB(,ABDARPTR) 0059 00037000 * PARMPTR=ADDR(ABDASIZE); 0060 00038000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0060 00039000 * GENERATE; 0061 00040000 GETMAIN EC,LV=@ENDDATD-@DATD+72,SP=253,A=ABDGMA(ABDARPTR), X00041000 MF=(E,(1)) 00042000 * IF RETCODE^=0 THEN /* GETMAIN FAILED */ 00043000 LTR RETCODE,RETCODE 0062 00044000 BZ @RF00062 0062 00045000 * DO; /* YES ... */ 00046000 * RETCODE=8; /* SEND RETURN CODE 8 BACK TO 0064 00047000 * CALLER */ 00048000 LA RETCODE,8 0064 00049000 * RETURN; /* RETURN TO CALLER */ 00050000 @EL00001 DS 0H 0065 00051000 @EF00001 DS 0H 0065 00052000 @ER00001 L @14,12(,@13) 0065 00053000 LM @00,@12,20(@13) 0065 00054000 BR @14 0065 00055000 * END; /* END... GETMAIN FAILED */ 00056000 * ELSE /* GETMAIN OK */ 00057000 * DO; /* */ 00058000 @RF00062 DS 0H 0068 00059000 * PARMPTR=ABDAAREA; /* POINT TO SAVEAREA */ 00060000 L PARMPTR,ABDAAREA(,ABDARPTR) 0068 00061000 * NEXSAPTR=PARMPTR; /* NEXT SAVEAREA IN OLD */ 00062000 ST PARMPTR,NEXSAPTR(,SAVEPTR) 0069 00063000 * PRESAPTR=SAVEPTR; /* PREVIOUS SAVEAREA IN NEW */ 00064000 ST SAVEPTR,PRESAPTR(,PARMPTR) 0070 00065000 * SAVEPTR=PARMPTR; /* R13 TO NEW SAVEAREA */ 00066000 LR SAVEPTR,PARMPTR 0071 00067000 * AUTOPTR=SAVEPTR+72; /* DATA AREA AFTER SAVEAREA */ 00068000 LA AUTOPTR,72 0072 00069000 ALR AUTOPTR,SAVEPTR 0072 00070000 * GENERATE; 0073 00071000 USING @DATD,AUTOPTR GET ADDRESSABILITY 00072000 XC 0(@ENDDATD-@DATD,AUTOPTR),0(AUTOPTR) ZERO STORAGE 00073000 * PARMPTR=ABDARPTR; /* SET R1 TO IHAABDA ADDRESS 0074 00074000 * @G33SPHW*/ 00075000 LR PARMPTR,ABDARPTR 0074 00076000 * IF ABDPSW=ON THEN /* PSW REQUESTED */ 00077000 TM ABDPSW(ABDARPTR),B'10000000' 0075 00078000 BNO @RF00075 0075 00079000 * DO; /* YES...OUTPUT PSW */ 00080000 * 0076 00081000 * /*********************************************************/ 00082000 * /* */ 00083000 * /* LINE 1- PSW, ILC, INTERRUPT CODE- IF THE PSW WAS */ 00084000 * /* SPECIFIED TO BE DUMPED, THE PSW, ILC, AND INTERRUPT */ 00085000 * /* CODE ARE DISPLAYED FROM THE RB IN CONTROL AT THE TIME */ 00086000 * /* OF THE SNAP OR ABEND PSW */ 00087000 * /* */ 00088000 * /*********************************************************/ 00089000 * 0077 00090000 * ABDLINEA(1:21)=PSWMSG; /* MOVE IN THE DOUBLE SPACE 0077 00091000 * CHARACTER AND PSW MESSAGE */ 00092000 MVC ABDLINEA(21,ABDARPTR),PSWMSG 0077 00093000 * RBSECPTR=ABDCRB; /* PICK UP ABDUMP SVRB POINTER */ 00094000 L RBSECPTR,ABDCRB(,ABDARPTR) 0078 00095000 * RBSECPTR=RBLINK; /* PICK UP USER RB IF SNAP ABEND 00096000 * SVRB IF ABEND */ 00097000 L RBSECPTR,RBLINK(,RBSECPTR) 0079 00098000 * IF APFABEND=OFF /* IF ABEND IS CALLER PICK UP */ 00099000 * THEN /* USER RB AND MOVE IN 'ABEND' */ 00100000 TM APFABEND(ABDARPTR),B'00010000' 0080 00101000 BNZ @RF00080 0080 00102000 * DO; 0081 00103000 * RBSECPTR=RBLINK; /* GET USER RB */ 00104000 L RBSECPTR,RBLINK(,RBSECPTR) 0082 00105000 * ABDLINEA(18:22)=ABEND;/* MOVE IN ABEND INSTEAD OF 0083 00106000 * SNAP */ 00107000 MVC ABDLINEA+17(5,ABDARPTR),ABEND 0083 00108000 * END; /* END OF ABEND CASE */ 00109000 * ABDBPTR=ADDR(RBOPSW); /* SET UP FOR FORMAT PSW */ 00110000 @RF00080 LA @14,RBOPSW(,RBSECPTR) 0085 00111000 ST @14,ABDBPTR(,ABDARPTR) 0085 00112000 * ABDLLINE=ADDR(PSWLINE); /* SET UP LAYOUT LINE */ 00113000 LA @14,PSWLINE 0086 00114000 ST @14,ABDLLINE(,ABDARPTR) 0086 00115000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0087 00116000 * @G33SPHW*/ 00117000 LR PARMPTR,ABDARPTR 0087 00118000 * CALL IEAVAD31; /* FORMAT FIRST HALF OF PSW */ 00119000 L @15,@CV00065 0088 00120000 BALR @14,@15 0088 00121000 * IF RETCODE^=0 /* IF ERROR CONDITION */ 00122000 * THEN /* RETURN AFTER FREE CORE */ 00123000 LTR RETCODE,RETCODE 0089 00124000 BNZ @RT00089 0089 00125000 * GOTO FREERET; 0090 00126000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0091 00127000 * @G33SPHW*/ 00128000 LR PARMPTR,ABDARPTR 0091 00129000 * CALL IEAVAD31; /* FORMAT SECOND HALF OF PSW */ 00130000 L @15,@CV00065 0092 00131000 BALR @14,@15 0092 00132000 * IF RETCODE^=0 /* IF ERROR CONDITION */ 00133000 * THEN /* RETURN AFTER FREE CORE */ 00134000 LTR RETCODE,RETCODE 0093 00135000 BNZ @RT00093 0093 00136000 * GOTO FREERET; 0094 00137000 * 0094 00138000 * /*********************************************************/ 00139000 * /* */ 00140000 * /* ILC */ 00141000 * /* */ 00142000 * /*********************************************************/ 00143000 * 0095 00144000 * RESPECIFY 0095 00145000 * SAVERET UNRESTRICTED; /* LET COMPILER USE SAVERET FOR 00146000 * RB PREFIX WORK */ 00147000 * ABDLINEA(50:52)=ILCMSG; /* SET UP ILC MESSAGE */ 00148000 MVC ABDLINEA+49(3,ABDARPTR),ILCMSG 0096 00149000 * ABDLINEA(54)=RBINLNTH; /* INSERT ILC INTO LINE */ 00150000 * 0097 00151000 LR @14,RBSECPTR 0097 00152000 SL @14,@CF00423 0097 00153000 MVC ABDLINEA+53(1,ABDARPTR),RBINLNTH(@14) 0097 00154000 * /*********************************************************/ 00155000 * /* */ 00156000 * /* SET UP ZONE BITS FOR ILC */ 00157000 * /* */ 00158000 * /*********************************************************/ 00159000 * 0098 00160000 * ABDLINEA(54)=ABDLINEA(54)|FOXO; 0098 00161000 * 0098 00162000 SLR @10,@10 0098 00163000 IC @10,ABDLINEA+53(,ABDARPTR) 0098 00164000 SLR @08,@08 0098 00165000 IC @08,FOXO 0098 00166000 OR @10,@08 0098 00167000 STC @10,ABDLINEA+53(,ABDARPTR) 0098 00168000 * /*********************************************************/ 00169000 * /* */ 00170000 * /* INTERRUPT CODE */ 00171000 * /* */ 00172000 * /*********************************************************/ 00173000 * 0099 00174000 * ABDBPTR=ADDR(RBINTCOD); /* POINT TO INTERRUPT CODE */ 00175000 LA @14,RBINTCOD(,@14) 0099 00176000 ST @14,ABDBPTR(,ABDARPTR) 0099 00177000 * RESPECIFY 0100 00178000 * SAVERET RESTRICTED; /* END OF RB PREFIX WORK GET 0100 00179000 * REGISTER BACK FROM COMPILER */ 00180000 * ABDLLINE=ADDR(INTCLINE);/* SET LAYOUT LINE POINTER */ 00181000 LA @14,INTCLINE 0101 00182000 ST @14,ABDLLINE(,ABDARPTR) 0101 00183000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0102 00184000 * @G33SPHW*/ 00185000 LR PARMPTR,ABDARPTR 0102 00186000 * CALL IEAVAD31; /* FORMAT THE INTERRUPT CODE */ 00187000 L @15,@CV00065 0103 00188000 BALR @14,@15 0103 00189000 * IF RETCODE^=0 /* IF ERROR CONDITION */ 00190000 * THEN /* RETURN AFTER FREE CORE */ 00191000 LTR RETCODE,RETCODE 0104 00192000 BNZ @RT00104 0104 00193000 * GOTO FREERET; 0105 00194000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0106 00195000 * @G33SPHW*/ 00196000 LR PARMPTR,ABDARPTR 0106 00197000 * CALL IEAVAD11; /* OUTPUT LINE 3 */ 00198000 L @15,@CV00064 0107 00199000 BALR @14,@15 0107 00200000 * RETCODE=0; /* SET CODE TO 0 FOR EXIT */ 00201000 SLR RETCODE,RETCODE 0108 00202000 * END; /* END PSW FORMAT */ 00203000 * ELSE /* NOT PSW THEN */ 00204000 * DO; /* CHECK FOR REGISTERS REQUESTED */ 00205000 B @RC00075 0110 00206000 @RF00075 DS 0H 0111 00207000 * IF ABDREGS=ON THEN /* REGISTERS REQUESTED */ 00208000 TM ABDREGS(ABDARPTR),B'01000000' 0111 00209000 BNO @RF00111 0111 00210000 * DO; /* YES... DISPLAY REGS */ 00211000 * 0112 00212000 * /*****************************************************/ 00213000 * /* */ 00214000 * /* THE NEXT SECTION OF CODE OUTPUTS THE FLOATING */ 00215000 * /* POINT REGS AND THE GENERAL PURPOSE REGISTERS IF */ 00216000 * /* THEY WERE REQUESTED. IF THE TASK BEING DUMPED IS */ 00217000 * /* THE CURRENT TASK, THE FLOATING REGISTERS HAVE THE */ 00218000 * /* VALUES TO BE DUMPED, AND THEY ARE STORED INTO THE */ 00219000 * /* CURRENT TCB FOR FORMATTING AND OUTPUT. THE GENERAL*/ 00220000 * /* REGISTERS ARE FOUND IN ABDUMP SVRB IF SNAP CALLED */ 00221000 * /* ABDUMP OR IN THE ABEND SVRB IF ABEND CALLED */ 00222000 * /* ABDUMP. IF THE CURRENT TASK IS NOT BEING DUMPED, */ 00223000 * /* THE FLOATING POINT REGISTERS AND GENERAL REGISTERS*/ 00224000 * /* ARE BOTH FOUND IN THE TCB OF THE TASK BEING */ 00225000 * /* DUMPED. THE REGISTERS ARE FORMATTED USING */ 00226000 * /* IEAVAD61, FORMAT22, WHICH UNPACKS THE FIELD IN */ 00227000 * /* HEX. THE LINES ARE PRINTED USING IEAVAD11, OUTPUT.*/ 00228000 * /* */ 00229000 * /*****************************************************/ 00230000 * 0113 00231000 * ABDLINEA(1:23)=REGMESS;/* PUT REGISTER MESSAGE OUT */ 00232000 MVC ABDLINEA(23,ABDARPTR),REGMESS 0113 00233000 * IF TCBPTR=ABDCTCB /* IF TCB IS CURRENT TCB THEN */ 00234000 * THEN /* USE FLOAT REGS IN REGS */ 00235000 C TCBPTR,ABDCTCB(,ABDARPTR) 0114 00236000 BNE @RF00114 0114 00237000 * DO; 0115 00238000 * TCBPTR=TCBPTR-32;/* LOCATE FLOATING REG SAVE AREA*/ 00239000 SL TCBPTR,@CF00335 0116 00240000 * GEN(STD 0,0(TCBPTR));/* STORE FLOAT REG 0 */ 00241000 STD 0,0(TCBPTR) 00242000 * GEN(STD 2,8(TCBPTR));/* STORE FLOAT REG 2 */ 00243000 STD 2,8(TCBPTR) 00244000 * GEN(STD 4,16(TCBPTR));/* STORE FLOAT REG 4 */ 00245000 STD 4,16(TCBPTR) 00246000 * GEN(STD 6,24(TCBPTR));/* STORE FLOAT REG 6 */ 00247000 STD 6,24(TCBPTR) 00248000 * TCBPTR=ABDTCB; /* RESTORE TCB REG */ 00249000 L TCBPTR,ABDTCB(,ABDARPTR) 0121 00250000 * RBSECPTR=ABDCRB;/* GET ABDUMP SVRB POINTER */ 00251000 L RBSECPTR,ABDCRB(,ABDARPTR) 0122 00252000 * IF APFABEND=OFF /* IF ABEND IS THE CALLER */ 00253000 * THEN /* USE ABEND SPECIAL CODE */ 00254000 TM APFABEND(ABDARPTR),B'00010000' 0123 00255000 BNZ @RF00123 0123 00256000 * DO; 0124 00257000 * 0124 00258000 * /*********************************************/ 00259000 * /* */ 00260000 * /* OVERLAY SNAP WITH ABEND */ 00261000 * /* */ 00262000 * /*********************************************/ 00263000 * 0125 00264000 * ABDLINEA(19:23)=ABENDMSG; 0125 00265000 * 0125 00266000 MVC ABDLINEA+18(5,ABDARPTR),ABENDMSG 0125 00267000 * /*********************************************/ 00268000 * /* */ 00269000 * /* GET ABEND RB PTR */ 00270000 * /* */ 00271000 * /*********************************************/ 00272000 * 0126 00273000 * RBSECPTR=RBLINKB; 0126 00274000 L @14,RBLINKB-1(,RBSECPTR) 0126 00275000 LA @14,0(,@14) 0126 00276000 LR RBSECPTR,@14 0126 00277000 * END; 0127 00278000 * 0127 00279000 * /*************************************************/ 00280000 * /* */ 00281000 * /* SET UP POINTER TO GPRS TO */ 00282000 * /* */ 00283000 * /*************************************************/ 00284000 * 0128 00285000 * REGPTR=ADDR(RBGRSAVE);/* PRINT */ 00286000 @RF00123 LA REGPTR,RBGRSAVE(,RBSECPTR) 0128 00287000 * END; 0129 00288000 * ELSE /* USE TCB REGS */ 00289000 * REGPTR=ADDR(TCBGRS); 0130 00290000 B @RC00114 0130 00291000 @RF00114 LA REGPTR,TCBGRS(,TCBPTR) 0130 00292000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0131 00293000 * @G33SPHW*/ 00294000 @RC00114 LR PARMPTR,ABDARPTR 0131 00295000 * CALL IEAVAD11; /* OUTPUT THE REG HEADING */ 00296000 L @15,@CV00064 0132 00297000 BALR @14,@15 0132 00298000 * IF RETCODE^=0 /* IF ERRED */ 00299000 * THEN /* LEAVE WITH */ 00300000 LTR RETCODE,RETCODE 0133 00301000 BNZ @RT00133 0133 00302000 * GOTO FREERET; /* BAD CODE */ 00303000 * ABDCC=ZIP; /* SET UP DOUBLE SPACE */ 00304000 MVI ABDCC(ABDARPTR),X'00' 0135 00305000 * ABDLINEA(7:14)=FLOATMES;/* SET UP FLOATING REG 0136 00306000 * MESSAGE */ 00307000 MVC ABDLINEA+6(8,ABDARPTR),FLOATMES 0136 00308000 * ABDBPTR=TCBPTR-32; /* POINT TO FLOAT REG SAVE */ 00309000 LR @14,TCBPTR 0137 00310000 SL @14,@CF00335 0137 00311000 ST @14,ABDBPTR(,ABDARPTR) 0137 00312000 * ABDLLINE=ADDR(FLOATLIN);/* POINT TO LAYOUT LINE */ 00313000 LA @14,FLOATLIN 0138 00314000 ST @14,ABDLLINE(,ABDARPTR) 0138 00315000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0139 00316000 * @G33SPHW*/ 00317000 LR PARMPTR,ABDARPTR 0139 00318000 * CALL IEAVAD61; /* UNPACK THE FLOAT REGS */ 00319000 L @15,@CV00066 0140 00320000 BALR @14,@15 0140 00321000 * IF RETCODE^=0 /* IF ERRED */ 00322000 * THEN /* LEAVE WITH */ 00323000 LTR RETCODE,RETCODE 0141 00324000 BNZ @RT00141 0141 00325000 * GOTO FREERET; /* BAD CODE */ 00326000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0143 00327000 * @G33SPHW*/ 00328000 LR PARMPTR,ABDARPTR 0143 00329000 * CALL IEAVAD11; /* OUTPUT THE FLOAT REGS */ 00330000 L @15,@CV00064 0144 00331000 BALR @14,@15 0144 00332000 * IF RETCODE^=0 /* IF ERRED */ 00333000 * THEN /* LEAVE WITH */ 00334000 LTR RETCODE,RETCODE 0145 00335000 BNZ @RT00145 0145 00336000 * GOTO FREERET; /* BAD CODE */ 00337000 * ABDCC=ZIP; /* SET TO DOUBLE SPACE */ 00338000 MVI ABDCC(ABDARPTR),X'00' 0147 00339000 * ABDLINEA(7:14)=REG1MESS;/* SET IN REGISTER MESSAGE */ 00340000 MVC ABDLINEA+6(8,ABDARPTR),REG1MESS 0148 00341000 * ABDBPTR=REGPTR; /* SET UP TO FORMAT REGS */ 00342000 ST REGPTR,ABDBPTR(,ABDARPTR) 0149 00343000 * ABDLLINE=ADDR(LAYOUT);/* INITIALIZE LAYOUT LINE */ 00344000 LA @14,LAYOUT 0150 00345000 ST @14,ABDLLINE(,ABDARPTR) 0150 00346000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0151 00347000 * @G33SPHW*/ 00348000 LR PARMPTR,ABDARPTR 0151 00349000 * CALL IEAVAD61; /* UNPACK THE REGS 0-7 */ 00350000 L @15,@CV00066 0152 00351000 BALR @14,@15 0152 00352000 * IF RETCODE^=0 /* IF ERRED */ 00353000 * THEN /* LEAVE WITH */ 00354000 LTR RETCODE,RETCODE 0153 00355000 BNZ @RT00153 0153 00356000 * GOTO FREERET; /* BAD CODE */ 00357000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0155 00358000 * @G33SPHW*/ 00359000 LR PARMPTR,ABDARPTR 0155 00360000 * CALL IEAVAD11; /* OUTPUT REGS 0-7 */ 00361000 L @15,@CV00064 0156 00362000 BALR @14,@15 0156 00363000 * IF RETCODE^=0 /* IF ERRED */ 00364000 * THEN /* LEAVE WITH */ 00365000 LTR RETCODE,RETCODE 0157 00366000 BNZ @RT00157 0157 00367000 * GOTO FREERET; /* BAD CODE */ 00368000 * ABDLINEA(7:15)=REG2MESS;/* SET UP 8-15 MESSAGE */ 00369000 MVC ABDLINEA+6(9,ABDARPTR),REG2MESS 0159 00370000 * ABDLLINE=ADDR(LAYOUT);/* SET UP LAYOUT LINE PTR */ 00371000 LA @14,LAYOUT 0160 00372000 ST @14,ABDLLINE(,ABDARPTR) 0160 00373000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0161 00374000 * @G33SPHW*/ 00375000 LR PARMPTR,ABDARPTR 0161 00376000 * CALL IEAVAD61; /* UNPACK REGS 8-15 */ 00377000 L @15,@CV00066 0162 00378000 BALR @14,@15 0162 00379000 * IF RETCODE^=0 /* IF ERRED */ 00380000 * THEN /* LEAVE WITH */ 00381000 LTR RETCODE,RETCODE 0163 00382000 BNZ @RT00163 0163 00383000 * GOTO FREERET; /* BAD CODE */ 00384000 * PARMPTR=ABDARPTR; /* SET R1 TO ABDA ADDRESS 0165 00385000 * @G33SPHW*/ 00386000 LR PARMPTR,ABDARPTR 0165 00387000 * CALL IEAVAD11; /* OUTPUT THE REGS 8-15 */ 00388000 L @15,@CV00064 0166 00389000 BALR @14,@15 0166 00390000 * IF RETCODE^=0 /* IF ERRED */ 00391000 * THEN /* LEAVE WITH */ 00392000 LTR RETCODE,RETCODE 0167 00393000 BNZ @RT00167 0167 00394000 * GOTO FREERET; /* BAD CODE */ 00395000 * END; /* END.. REG DISPLAY */ 00396000 * END; /* */ 00397000 @RF00111 DS 0H 0171 00398000 *FREERET: /* CLEANUP AND EXIT */ 00399000 * SAVERET=RETCODE; /* SETUP RETURN CODE */ 00400000 @RC00075 DS 0H 0171 00401000 FREERET LR SAVERET,RETCODE 0171 00402000 * PARMPTR=ADDR(ABDASIZE); /* SETUP FREEMAIN LIST */ 00403000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0172 00404000 * ABDAAREA=SAVEPTR; /* ADDRESS TO FREE */ 00405000 ST SAVEPTR,ABDAAREA(,ABDARPTR) 0173 00406000 * SAVEPTR=SAVEPTR->PRESAPTR; /* PREVIOUS SAVEAREA */ 00407000 L SAVEPTR,PRESAPTR(,SAVEPTR) 0174 00408000 * NEXSAPTR=0; /* CLEAR POINTER TO AREA TO BE 0175 00409000 * FREED */ 00410000 SLR @14,@14 0175 00411000 ST @14,NEXSAPTR(,SAVEPTR) 0175 00412000 * GENERATE; 0176 00413000 FREEMAIN E,LV=@ENDDATD-@DATD+72,SP=253,A=ABDGMA(ABDARPTR), X00414000 MF=(E,(1)) 00415000 * RETCODE=SAVERET; /* SETUP RETURN CODE */ 00416000 LR RETCODE,SAVERET 0177 00417000 * END; /* NO STORAGE GOTTEN */ 00418000 * DCL 0179 00419000 * PATCHLOC FIXED(31) STATIC; 0179 00420000 * GEN DATA DEFS(PATCHLOC); 0180 00421000 * DECLARE /* COMMON VARIABLES */ 00422000 * I256C CHAR(256) BASED, 0181 00423000 * I031F FIXED(31) BASED, 0181 00424000 * I031P PTR(31) BASED, 0181 00425000 * I015F FIXED(15) BASED, 0181 00426000 * I015P PTR(15) BASED, 0181 00427000 * I008P PTR(8) BASED, 0181 00428000 * I001C CHAR(1) BASED; 0181 00429000 * END IEAVAD10 0182 00430000 * 0182 00431000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00432000 */*%INCLUDE SYSLIB (AD10SPEC) */ 00433000 */*%INCLUDE SYSLIB (AD10DCL ) */ 00434000 */*%INCLUDE SYSLIB (IHAABDA ) */ 00435000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00436000 */*%INCLUDE SYSLIB (IHARB ) */ 00437000 */*%INCLUDE SYSLIB (IKJRB ) */ 00438000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00439000 */*%INCLUDE SYSLIB (AD10PSW ) */ 00440000 */*%INCLUDE SYSLIB (AD10REGS) */ 00441000 * 0182 00442000 * ; 0182 00443000 B @EL00001 0182 00444000 @DATA DS 0H 00445000 @DATD DSECT 00446000 DS 0F 00447000 IEAVAD10 CSECT 00448000 DS 0F 00449000 @CF00335 DC F'32' 00450000 @CF00423 DC F'64' 00451000 @DATD DSECT 00452000 DS 0D 00453000 IEAVAD10 CSECT 00454000 DS 0F 00455000 @SIZDATD DC AL1(0) 00456000 DC AL3(@ENDDATD-@DATD) 00457000 @CV00064 DC V(IEAVAD11) 00458000 @CV00065 DC V(IEAVAD31) 00459000 @CV00066 DC V(IEAVAD61) 00460000 DS 0D 00461000 FOXO DC XL1'F0' 00462000 ILCMSG DC CL3'ILC' 00463000 ABEND DC CL5'ABEND' 00464000 PSWLINE DS CL10 00465000 ORG PSWLINE 00466000 @NM00082 DC X'160300' 00467000 @NM00083 DC CL1' ' 00468000 @NM00084 DC X'FF' 00469000 @NM00085 DC X'1F0340' 00470000 @NM00086 DC CL1' ' 00471000 @NM00087 DC X'FF' 00472000 ORG PSWLINE+10 00473000 INTCLINE DS CL8 00474000 ORG INTCLINE 00475000 @NM00088 DC X'383101' 00476000 @NM00089 DC CL4'INTC' 00477000 @NM00090 DC X'FF' 00478000 ORG INTCLINE+8 00479000 LAYOUT DS CL17 00480000 ORG LAYOUT 00481000 @NM00091 DC X'1303' 00482000 @NM00092 DC X'1E03' 00483000 @NM00093 DC X'2903' 00484000 @NM00094 DC X'3403' 00485000 @NM00095 DC X'4703' 00486000 @NM00096 DC X'5203' 00487000 @NM00097 DC X'5D03' 00488000 @NM00098 DC X'6803FF' 00489000 ORG LAYOUT+17 00490000 FLOATLIN DS CL17 00491000 ORG FLOATLIN 00492000 @NM00099 DC X'1303' 00493000 @NM00100 DC X'1B03' 00494000 @NM00101 DC X'2903' 00495000 @NM00102 DC X'3103' 00496000 @NM00103 DC X'4703' 00497000 @NM00104 DC X'4F03' 00498000 @NM00105 DC X'5D03' 00499000 @NM00106 DC X'6503FF' 00500000 ORG FLOATLIN+17 00501000 PSWMSG DC CL21'0PSW AT ENTRY TO SNAP' 00502000 REGMESS DC CL23'-REGS AT ENTRY TO SNAP ' 00503000 ABENDMSG DC CL5'ABEND' 00504000 FLOATMES DC CL8'FLTR 0-6' 00505000 REG1MESS DC CL8'REGS 0-7' 00506000 REG2MESS DC CL9'REGS 8-15' 00507000 IEAVAD10 CSECT 00508000 DS 0H 00509000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 00510000 @DATD DSECT 00511000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00512000 @ENDDATD EQU * 00513000 IEAVAD10 CSECT 00514000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00515000 @01 EQU 01 00516000 @02 EQU 02 00517000 @03 EQU 03 00518000 @04 EQU 04 00519000 @05 EQU 05 00520000 @06 EQU 06 00521000 @07 EQU 07 00522000 @08 EQU 08 00523000 @09 EQU 09 00524000 @10 EQU 10 00525000 @11 EQU 11 00526000 @12 EQU 12 00527000 @13 EQU 13 00528000 @14 EQU 14 00529000 @15 EQU 15 00530000 PARMPTR EQU @01 00531000 ABDARPTR EQU @02 00532000 RBSECPTR EQU @03 00533000 TCBPTR EQU @04 00534000 SAVERET EQU @07 00535000 REGPTR EQU @09 00536000 AUTOPTR EQU @12 00537000 SAVEPTR EQU @13 00538000 RETCODE EQU @15 00539000 PSA EQU 0 00540000 FLCRNPSW EQU PSA 00541000 FLCROPSW EQU PSA+8 00542000 FLCICCW2 EQU PSA+16 00543000 PSAEEPSW EQU PSA+132 00544000 PSAESPSW EQU PSA+136 00545000 FLCSVILC EQU PSAESPSW+1 00546000 PSAEPPSW EQU PSA+140 00547000 FLCPIILC EQU PSAEPPSW+1 00548000 FLCPICOD EQU PSAEPPSW+2 00549000 PSAPICOD EQU FLCPICOD+1 00550000 FLCTEA EQU PSAEPPSW+4 00551000 FLCPER EQU PSA+152 00552000 FLCMCLA EQU PSA+168 00553000 FLCIOEL EQU FLCMCLA+4 00554000 FLCIOA EQU FLCMCLA+16 00555000 FLCFSA EQU FLCMCLA+80 00556000 PSASUPER EQU PSA+552 00557000 PSASUP1 EQU PSASUPER 00558000 PSASUP2 EQU PSASUPER+1 00559000 PSASUP3 EQU PSASUPER+2 00560000 PSASUP4 EQU PSASUPER+3 00561000 PSACLHT EQU PSA+640 00562000 PSALKSA EQU PSA+696 00563000 PSAHLHI EQU PSA+760 00564000 PSADSSFL EQU PSA+836 00565000 PSADSSF1 EQU PSADSSFL 00566000 PSADSSF3 EQU PSADSSFL+2 00567000 PSADSSF4 EQU PSADSSFL+3 00568000 PSARSVT EQU PSA+896 00569000 NEXSAPTR EQU 8 00570000 PRESAPTR EQU 4 00571000 ABDAREA EQU 0 00572000 ABDTCB EQU ABDAREA 00573000 ABDCTCB EQU ABDAREA+4 00574000 ABDCRB EQU ABDAREA+8 00575000 ABDPARMS EQU ABDAREA+12 00576000 ABDFLAG EQU ABDPARMS+1 00577000 APFABEND EQU ABDFLAG 00578000 APFSDATA EQU ABDPARMS+4 00579000 APFSDAT1 EQU ABDPARMS+5 00580000 APFPDATA EQU ABDPARMS+6 00581000 ABDPTRS EQU ABDAREA+84 00582000 ABDFLAG1 EQU ABDAREA+136 00583000 ABDFLAG2 EQU ABDAREA+137 00584000 ABDRES1 EQU ABDAREA+139 00585000 ABDPSW EQU ABDRES1 00586000 ABDREGS EQU ABDRES1 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 ABDBUFFS EQU ABDAREA+308 00593000 ABDGMA EQU ABDAREA+316 00594000 ABDAAREA EQU ABDGMA 00595000 ABDASIZE EQU ABDGMA+4 00596000 ESPARM EQU ABDAREA+340 00597000 ESTAEFLG EQU ESPARM+28 00598000 ABDLINEA EQU ABDAREA+384 00599000 ABDCC EQU ABDLINEA 00600000 RBPRFX EQU 0 00601000 RBBASIC EQU 0 00602000 RBEXRTNM EQU RBBASIC 00603000 RBTMFLD EQU RBEXRTNM 00604000 RBSTAB EQU RBBASIC+10 00605000 XSTAB EQU RBSTAB 00606000 RBSTAB1 EQU XSTAB 00607000 XSTAB1 EQU RBSTAB1 00608000 RBFTCKPT EQU XSTAB1 00609000 RBSTAB2 EQU XSTAB+1 00610000 XSTAB2 EQU RBSTAB2 00611000 RBTCBNXT EQU XSTAB2 00612000 RBFACTV EQU XSTAB2 00613000 RBFDYN EQU XSTAB2 00614000 RBECBWT EQU XSTAB2 00615000 RBOPSW EQU RBBASIC+16 00616000 XRBPSW EQU RBOPSW 00617000 RBOPSWB2 EQU XRBPSW+1 00618000 RBLINK EQU RBBASIC+28 00619000 XRBLNK EQU RBLINK 00620000 RBWCF EQU XRBLNK 00621000 RBLINKB EQU XRBLNK+1 00622000 RBGRSAVE EQU RBBASIC+32 00623000 XRBREG EQU RBGRSAVE 00624000 RBGRS0 EQU XRBREG 00625000 RBGRS1 EQU XRBREG+4 00626000 RBGRS2 EQU XRBREG+8 00627000 RBGRS3 EQU XRBREG+12 00628000 RBGRS4 EQU XRBREG+16 00629000 RBGRS5 EQU XRBREG+20 00630000 RBGRS6 EQU XRBREG+24 00631000 RBGRS7 EQU XRBREG+28 00632000 RBGRS8 EQU XRBREG+32 00633000 RBGRS9 EQU XRBREG+36 00634000 RBGRS10 EQU XRBREG+40 00635000 RBGRS11 EQU XRBREG+44 00636000 RBGRS12 EQU XRBREG+48 00637000 RBGRS13 EQU XRBREG+52 00638000 RBGRS14 EQU XRBREG+56 00639000 RBGRS15 EQU XRBREG+60 00640000 XRBESA EQU RBBASIC+96 00641000 RBPREFIX EQU 0 00642000 RBRSV019 EQU RBPREFIX+14 00643000 RBRSV028 EQU RBPREFIX+15 00644000 RBRSV041 EQU RBPREFIX+27 00645000 RBRSV054 EQU RBPREFIX+39 00646000 RBRTOPSW EQU RBPREFIX+40 00647000 RBRTPSW2 EQU RBRTOPSW+8 00648000 RBRTICIL EQU RBRTPSW2 00649000 RBFLAGS1 EQU RBPREFIX+56 00650000 RBINTCDA EQU RBPREFIX+61 00651000 RBINLNTH EQU RBINTCDA 00652000 RBINTCOD EQU RBINTCDA+1 00653000 RBSECT EQU 0 00654000 RBPPSAV EQU RBSECT 00655000 @NM00062 EQU RBSECT+10 00656000 @NM00063 EQU @NM00062 00657000 RBTRSVRB EQU @NM00063 00658000 @NM00065 EQU @NM00062+1 00659000 RBETXR EQU @NM00065 00660000 RBEP EQU RBSECT+12 00661000 RBPGMQ EQU RBSECT+24 00662000 @NM00072 EQU RBSECT+28 00663000 @NM00073 EQU @NM00072 00664000 IRBEND EQU RBSECT+96 00665000 @NM00076 EQU RBSECT+96 00666000 RBRSV138 EQU @NM00076+7 00667000 RBSCBB EQU RBSECT+144 00668000 RBSPARM EQU RBSCBB+8 00669000 RBSFLGS1 EQU RBSPARM 00670000 RBSIOPRC EQU RBSFLGS1 00671000 RBSOWNR EQU RBSCBB+12 00672000 RBSFLGS2 EQU RBSOWNR 00673000 RBSDATA EQU RBSCBB+16 00674000 RBSFLG3 EQU RBSDATA 00675000 RBRSV150 EQU RBSECT+167 00676000 TCBFIX EQU 0 00677000 TCBFRS EQU TCBFIX 00678000 TCB EQU 0 00679000 TCBPIE EQU TCB+4 00680000 TCBPMASK EQU TCBPIE 00681000 TCBCMP EQU TCB+16 00682000 TCBCMPF EQU TCBCMP 00683000 TCBCPP EQU TCBCMPF 00684000 TCBSTCC EQU TCBCMPF 00685000 TCBCDBL EQU TCBCMPF 00686000 TCBCWTO EQU TCBCMPF 00687000 TCBCIND EQU TCBCMPF 00688000 TCBCMSG EQU TCBCMPF 00689000 TCBTRN EQU TCB+20 00690000 TCBABF EQU TCBTRN 00691000 TCBMSS EQU TCB+24 00692000 TCBPKF EQU TCB+28 00693000 TCBFLGS EQU TCB+29 00694000 TCBFLGS1 EQU TCBFLGS 00695000 TCBFLGS2 EQU TCBFLGS+1 00696000 TCBFLGS3 EQU TCBFLGS+2 00697000 TCBFLGS4 EQU TCBFLGS+3 00698000 TCBFLGS5 EQU TCBFLGS+4 00699000 TCBABWF EQU TCBFLGS5 00700000 TCBJPQ EQU TCB+44 00701000 TCBPURGE EQU TCBJPQ 00702000 TCBGRS EQU TCB+48 00703000 TCBFSA EQU TCB+112 00704000 TCBTME EQU TCB+120 00705000 TCBJSTCB EQU TCB+124 00706000 TCBTSFLG EQU TCB+148 00707000 TCBTSTSK EQU TCBTSFLG 00708000 TCBSTAB EQU TCB+160 00709000 TCBNSTAE EQU TCBSTAB 00710000 TCBTCT EQU TCB+164 00711000 TCBTCTGF EQU TCBTCT 00712000 TCBSCNDY EQU TCB+172 00713000 TCBNDSP EQU TCBSCNDY 00714000 TCBNDSP1 EQU TCBNDSP+1 00715000 TCBNDSP2 EQU TCBNDSP+2 00716000 TCBNDSP3 EQU TCBNDSP+3 00717000 TCBJSCB EQU TCB+180 00718000 TCBRECDE EQU TCBJSCB 00719000 TCBEXT1 EQU TCB+196 00720000 TCBBITS EQU TCB+200 00721000 TCBNDSP4 EQU TCBBITS 00722000 TCBNDSP5 EQU TCBBITS+1 00723000 TCBFLGS6 EQU TCBBITS+2 00724000 TCBFLGS7 EQU TCBBITS+3 00725000 TCBDAR EQU TCB+204 00726000 TCBDARC EQU TCBDAR 00727000 TCBEXT2 EQU TCB+208 00728000 TCBXSCT EQU TCB+240 00729000 TCBXSCT1 EQU TCBXSCT 00730000 TCBFOE EQU TCB+244 00731000 TCBESTAE EQU TCB+264 00732000 TCBESTRM EQU TCBESTAE+1 00733000 TCBFBYT1 EQU TCB+276 00734000 TCBFBYT2 EQU TCB+277 00735000 TCBRV124 EQU TCB+278 00736000 TCBRV133 EQU TCB+279 00737000 TCBXTNT2 EQU 0 00738000 TCBGTF EQU TCBXTNT2 00739000 TCBTFLG EQU TCBGTF 00740000 TCBRV146 EQU TCBXTNT2+28 00741000 TCBRV155 EQU TCBXTNT2+29 00742000 TCBRV164 EQU TCBXTNT2+30 00743000 TCBRV173 EQU TCBXTNT2+31 00744000 I001C EQU 0 00745000 I008P EQU 0 00746000 I015F EQU 0 00747000 I015P EQU 0 00748000 I031F EQU 0 00749000 I031P EQU 0 00750000 I256C EQU 0 00751000 PSARSVTE EQU PSARSVT 00752000 RBSECS03 EQU RBEP 00753000 RBCDE EQU RBSECS03 00754000 RBCDFLGS EQU RBCDE 00755000 RBSECS05 EQU RBPGMQ 00756000 RBSQE EQU RBSECS05 00757000 RBSECS06 EQU RBPGMQ 00758000 RBIQE EQU RBSECS06 00759000 RBSECS07 EQU RBPGMQ 00760000 RBIQE2 EQU RBSECS07 00761000 RBSECS08 EQU IRBEND 00762000 RBSECS09 EQU IRBEND 00763000 FLC EQU PSA 00764000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00765000 RBRSV161 EQU RBSECS09+64 00766000 RBSIRBWA EQU RBSECS09 00767000 RBIQEWRK EQU RBSECS08+4 00768000 RBNEXAV EQU RBSECS08 00769000 RBIQEA EQU RBIQE2 00770000 RBIQE1 EQU RBIQE+1 00771000 RBUSE EQU RBIQE 00772000 RBSQEA EQU RBSQE+1 00773000 @NM00077 EQU RBSQE 00774000 RBCDE1 EQU RBCDE+1 00775000 RBCDLOAD EQU RBCDFLGS 00776000 RBCDXCTL EQU RBCDFLGS 00777000 RBCDSYNC EQU RBCDFLGS 00778000 RBCDNODE EQU RBCDFLGS 00779000 RBRSV010 EQU RBCDFLGS 00780000 RBCDATCH EQU RBCDFLGS 00781000 RBRSV009 EQU RBCDFLGS 00782000 RBNOCELL EQU RBCDFLGS 00783000 PSARSAV EQU PSARSVTE+60 00784000 PSARSTK EQU PSARSVTE+56 00785000 PSAESAV3 EQU PSARSVTE+52 00786000 PSAESTK3 EQU PSARSVTE+48 00787000 PSAESAV2 EQU PSARSVTE+44 00788000 PSAESTK2 EQU PSARSVTE+40 00789000 PSAESAV1 EQU PSARSVTE+36 00790000 PSAESTK1 EQU PSARSVTE+32 00791000 PSAPSAV EQU PSARSVTE+28 00792000 PSAPSTK EQU PSARSVTE+24 00793000 PSAMSAV EQU PSARSVTE+20 00794000 PSAMSTK EQU PSARSVTE+16 00795000 PSASSAV EQU PSARSVTE+12 00796000 PSASSTK EQU PSARSVTE+8 00797000 PSANSTK EQU PSARSVTE+4 00798000 PSACSTK EQU PSARSVTE 00799000 @NM00081 EQU TCBXTNT2+32 00800000 TCBRV181 EQU TCBRV173 00801000 TCBRV180 EQU TCBRV173 00802000 TCBRV179 EQU TCBRV173 00803000 TCBRV178 EQU TCBRV173 00804000 TCBRV177 EQU TCBRV173 00805000 TCBRV176 EQU TCBRV173 00806000 TCBRV175 EQU TCBRV173 00807000 TCBRV174 EQU TCBRV173 00808000 TCBRV172 EQU TCBRV164 00809000 TCBRV171 EQU TCBRV164 00810000 TCBRV170 EQU TCBRV164 00811000 TCBRV169 EQU TCBRV164 00812000 TCBRV168 EQU TCBRV164 00813000 TCBRV167 EQU TCBRV164 00814000 TCBRV166 EQU TCBRV164 00815000 TCBRV165 EQU TCBRV164 00816000 TCBRV163 EQU TCBRV155 00817000 TCBRV162 EQU TCBRV155 00818000 TCBRV161 EQU TCBRV155 00819000 TCBRV160 EQU TCBRV155 00820000 TCBRV159 EQU TCBRV155 00821000 TCBRV158 EQU TCBRV155 00822000 TCBRV157 EQU TCBRV155 00823000 TCBRV156 EQU TCBRV155 00824000 TCBRV154 EQU TCBRV146 00825000 TCBRV153 EQU TCBRV146 00826000 TCBRV152 EQU TCBRV146 00827000 TCBRV151 EQU TCBRV146 00828000 TCBRV150 EQU TCBRV146 00829000 TCBRV149 EQU TCBRV146 00830000 TCBRV148 EQU TCBRV146 00831000 TCBRV147 EQU TCBRV146 00832000 TCBRV145 EQU TCBXTNT2+26 00833000 TCBRV144 EQU TCBXTNT2+24 00834000 TCBRV143 EQU TCBXTNT2+20 00835000 TCBRV142 EQU TCBXTNT2+16 00836000 TCBRSV49 EQU TCBXTNT2+12 00837000 TCBEVENT EQU TCBXTNT2+8 00838000 TCBRCMP EQU TCBXTNT2+5 00839000 TCBRSVAB EQU TCBXTNT2+4 00840000 TCBGTFA EQU TCBGTF+1 00841000 TCBRSV47 EQU TCBTFLG 00842000 TCBRSV46 EQU TCBTFLG 00843000 TCBRSV45 EQU TCBTFLG 00844000 TCBRSV44 EQU TCBTFLG 00845000 TCBRSV43 EQU TCBTFLG 00846000 TCBDSPIT EQU TCBTFLG 00847000 TCBERRTN EQU TCBTFLG 00848000 TCBASYNC EQU TCBTFLG 00849000 @NM00080 EQU TCB+296 00850000 TCBSVCA2 EQU TCB+292 00851000 TCBSWASA EQU TCB+288 00852000 TCBDBTB EQU TCB+284 00853000 TCBRPT EQU TCB+280 00854000 TCBRV141 EQU TCBRV133 00855000 TCBRV140 EQU TCBRV133 00856000 TCBRV139 EQU TCBRV133 00857000 TCBRV138 EQU TCBRV133 00858000 TCBRV137 EQU TCBRV133 00859000 TCBRV136 EQU TCBRV133 00860000 TCBRV135 EQU TCBRV133 00861000 TCBRV134 EQU TCBRV133 00862000 TCBRV132 EQU TCBRV124 00863000 TCBRV131 EQU TCBRV124 00864000 TCBRV130 EQU TCBRV124 00865000 TCBRV129 EQU TCBRV124 00866000 TCBRV128 EQU TCBRV124 00867000 TCBRV127 EQU TCBRV124 00868000 TCBRV126 EQU TCBRV124 00869000 TCBRV125 EQU TCBRV124 00870000 TCBRV123 EQU TCBFBYT2 00871000 TCBRV122 EQU TCBFBYT2 00872000 TCBECBNV EQU TCBFBYT2 00873000 TCBSSSYN EQU TCBFBYT2 00874000 TCBFPRAP EQU TCBFBYT2 00875000 TCBFDW EQU TCBFBYT2 00876000 TCBFMW EQU TCBFBYT2 00877000 TCBCNCB EQU TCBFBYT2 00878000 TCBLLH EQU TCBFBYT1 00879000 TCBRV113 EQU TCBFBYT1 00880000 TCBEOT EQU TCBFBYT1 00881000 TCBRTM2 EQU TCBFBYT1 00882000 TCBPGNLY EQU TCBFBYT1 00883000 TCBNDIOS EQU TCBFBYT1 00884000 TCBRV327 EQU TCBFBYT1 00885000 TCBEOTFM EQU TCBFBYT1 00886000 TCBAFFN EQU TCB+274 00887000 TCBRV326 EQU TCB+272 00888000 TCBUKYSP EQU TCB+268 00889000 TCBMODE EQU TCBESTAE+3 00890000 TCBERTYP EQU TCBESTAE+2 00891000 TCBRV314 EQU TCBESTRM 00892000 TCBRV313 EQU TCBESTRM 00893000 TCBRV312 EQU TCBESTRM 00894000 TCBRV311 EQU TCBESTRM 00895000 TCBRV310 EQU TCBESTRM 00896000 TCBRV309 EQU TCBESTRM 00897000 TCBRV308 EQU TCBESTRM 00898000 TCBETERM EQU TCBESTRM 00899000 TCBSCBKY EQU TCBESTAE 00900000 TCBRTM12 EQU TCB+260 00901000 TCBTCBID EQU TCB+256 00902000 TCBSTAWA EQU TCB+252 00903000 TCBSWA EQU TCB+248 00904000 TCBFOEA EQU TCBFOE+1 00905000 TCBRSV42 EQU TCBFOE 00906000 TCBCCPVI EQU TCBXSCT+2 00907000 TCBRV325 EQU TCBXSCT+1 00908000 TCBRV324 EQU TCBXSCT1 00909000 TCBRV323 EQU TCBXSCT1 00910000 TCBRV322 EQU TCBXSCT1 00911000 TCBRV321 EQU TCBXSCT1 00912000 TCBRV320 EQU TCBXSCT1 00913000 TCBRV319 EQU TCBXSCT1 00914000 TCBS3A EQU TCBXSCT1 00915000 TCBACTIV EQU TCBXSCT1 00916000 TCBRSV41 EQU TCB+239 00917000 TCBTID EQU TCB+238 00918000 TCBRSVAA EQU TCB+237 00919000 TCBABCUR EQU TCB+236 00920000 TCBTMSAV EQU TCB+232 00921000 TCBIOTIM EQU TCB+228 00922000 TCBRTWA EQU TCB+224 00923000 TCBBACK EQU TCB+220 00924000 TCBTIRB EQU TCB+216 00925000 TCBAECB EQU TCB+212 00926000 TCBEXT2A EQU TCBEXT2+1 00927000 TCBRSV39 EQU TCBEXT2 00928000 TCBSTMCT EQU TCB+207 00929000 TCBSYSCT EQU TCB+206 00930000 TCBRSV37 EQU TCB+205 00931000 TCBEXSVC EQU TCBDAR 00932000 TCBDARMS EQU TCBDAR 00933000 TCBDARWT EQU TCBDAR 00934000 TCBDARO EQU TCBDAR 00935000 TCBDARMC EQU TCBDARC 00936000 TCBDARD EQU TCBDAR 00937000 TCBDARS EQU TCBDAR 00938000 TCBDARP EQU TCBDAR 00939000 TCBGTOFM EQU TCBFLGS7 00940000 TCBADMP EQU TCBFLGS7 00941000 TCBRSTSK EQU TCBFLGS7 00942000 TCBSVCS EQU TCBFLGS7 00943000 TCBSTACK EQU TCBFLGS7 00944000 TCBRSV34 EQU TCBFLGS7 00945000 TCBRSV33 EQU TCBFLGS7 00946000 TCBGPECB EQU TCBFLGS7 00947000 TCBNTJS EQU TCBFLGS6 00948000 TCBAPG EQU TCBFLGS6 00949000 TCBMIGR EQU TCBFLGS6 00950000 TCBRV303 EQU TCBFLGS6 00951000 TCBSPVLK EQU TCBFLGS6 00952000 TCBCPU EQU TCBFLGS6 00953000 TCBPIE17 EQU TCBFLGS6 00954000 TCBRV EQU TCBFLGS6 00955000 TCBRSV79 EQU TCBNDSP5 00956000 TCBRSV78 EQU TCBNDSP5 00957000 TCBRSV77 EQU TCBNDSP5 00958000 TCBRSV76 EQU TCBNDSP5 00959000 TCBRSV75 EQU TCBNDSP5 00960000 TCBRSV74 EQU TCBNDSP5 00961000 TCBRSV95 EQU TCBNDSP5 00962000 TCBRSV94 EQU TCBNDSP5 00963000 TCBRSV93 EQU TCBNDSP4 00964000 TCBRSV92 EQU TCBNDSP4 00965000 TCBRSV91 EQU TCBNDSP4 00966000 TCBRSV90 EQU TCBNDSP4 00967000 TCBRSV89 EQU TCBNDSP4 00968000 TCBRSV88 EQU TCBNDSP4 00969000 TCBRSV87 EQU TCBNDSP4 00970000 TCBRSV86 EQU TCBNDSP4 00971000 TCBEXT1A EQU TCBEXT1+1 00972000 TCBRSV32 EQU TCBEXT1 00973000 TCBEXCPD EQU TCB+192 00974000 TCBIOBRC EQU TCB+188 00975000 TCBDDWTC EQU TCB+186 00976000 TCBDDEXC EQU TCB+184 00977000 TCBJSCBB EQU TCBJSCB+1 00978000 @NM00079 EQU TCBRECDE 00979000 TCBREC EQU TCBRECDE 00980000 TCBMDIDS EQU TCB+176 00981000 TCBNDINT EQU TCBNDSP3 00982000 TCBRSV27 EQU TCBNDSP3 00983000 TCBRSV26 EQU TCBNDSP3 00984000 TCBRSV25 EQU TCBNDSP3 00985000 TCBRSV24 EQU TCBNDSP3 00986000 TCBSRBND EQU TCBNDSP3 00987000 TCBRV302 EQU TCBNDSP3 00988000 TCBLJSND EQU TCBNDSP3 00989000 TCBABE EQU TCBNDSP2 00990000 TCBDSS EQU TCBNDSP2 00991000 TCBOWAIT EQU TCBNDSP2 00992000 TCBIWAIT EQU TCBNDSP2 00993000 TCBNDTS EQU TCBNDSP2 00994000 TCBNDSVC EQU TCBNDSP2 00995000 TCBSTPP EQU TCBNDSP2 00996000 TCBABD EQU TCBNDSP2 00997000 TCBRSV22 EQU TCBNDSP1 00998000 TCBPIEND EQU TCBNDSP1 00999000 TCBTPSP EQU TCBNDSP1 01000000 TCBDDRND EQU TCBNDSP1 01001000 TCBRSPND EQU TCBNDSP1 01002000 TCBRSTND EQU TCBNDSP1 01003000 TCBDARPN EQU TCBNDSP1 01004000 TCBDARTN EQU TCBNDSP1 01005000 TCBNDSP0 EQU TCBNDSP 01006000 TCBUSER EQU TCB+168 01007000 TCBTCTB EQU TCBTCT+1 01008000 TCBRSV9C EQU TCBTCTGF 01009000 TCBRSV9B EQU TCBTCTGF 01010000 TCBRSV9A EQU TCBTCTGF 01011000 TCBRSV99 EQU TCBTCTGF 01012000 TCBRSV98 EQU TCBTCTGF 01013000 TCBRSV97 EQU TCBTCTGF 01014000 TCBRSV20 EQU TCBTCTGF 01015000 TCBSMFGF EQU TCBTCTGF 01016000 TCBSTABB EQU TCBSTAB+1 01017000 TCBSTCUR EQU TCBNSTAE 01018000 TCBRV301 EQU TCBNSTAE 01019000 TCBSYNCH EQU TCBNSTAE 01020000 TCBHALT EQU TCBNSTAE 01021000 TCBPPSUP EQU TCBNSTAE 01022000 TCB33E EQU TCBNSTAE 01023000 TCBQUIES EQU TCBNSTAE 01024000 TCBSTABE EQU TCBNSTAE 01025000 TCBAQE EQU TCB+156 01026000 TCBPQE EQU TCB+152 01027000 TCBTSDP EQU TCB+151 01028000 TCBTSLP EQU TCB+150 01029000 TCBSTPCT EQU TCB+149 01030000 TCBCPUBN EQU TCBTSFLG 01031000 TCBDYDSP EQU TCBTSFLG 01032000 TCBRSV18 EQU TCBTSFLG 01033000 TCBRSV17 EQU TCBTSFLG 01034000 TCBTIOTG EQU TCBTSFLG 01035000 TCBATT EQU TCBTSFLG 01036000 TCBSTPPR EQU TCBTSFLG 01037000 TCBRV300 EQU TCBTSTSK 01038000 TCBECB EQU TCB+144 01039000 TCBIQE EQU TCB+140 01040000 TCBLTC EQU TCB+136 01041000 TCBOTC EQU TCB+132 01042000 TCBNTC EQU TCB+128 01043000 TCBJSTCA EQU TCBJSTCB+1 01044000 TCBRSV16 EQU TCBJSTCB 01045000 TCBTQET EQU TCBTME 01046000 TCBTCB EQU TCB+116 01047000 TCBFSAB EQU TCBFSA+1 01048000 TCBQEL EQU TCBFSA 01049000 TCBGRS15 EQU TCBGRS+60 01050000 TCBGRS14 EQU TCBGRS+56 01051000 TCBGRS13 EQU TCBGRS+52 01052000 TCBGRS12 EQU TCBGRS+48 01053000 TCBGRS11 EQU TCBGRS+44 01054000 TCBGRS10 EQU TCBGRS+40 01055000 TCBGRS9 EQU TCBGRS+36 01056000 TCBGRS8 EQU TCBGRS+32 01057000 TCBGRS7 EQU TCBGRS+28 01058000 TCBGRS6 EQU TCBGRS+24 01059000 TCBGRS5 EQU TCBGRS+20 01060000 TCBGRS4 EQU TCBGRS+16 01061000 TCBGRS3 EQU TCBGRS+12 01062000 TCBGRS2 EQU TCBGRS+8 01063000 TCBGRS1 EQU TCBGRS+4 01064000 TCBGRS0 EQU TCBGRS 01065000 TCBJPQB EQU TCBJPQ+1 01066000 TCBRSV15 EQU TCBPURGE 01067000 TCBRSV14 EQU TCBPURGE 01068000 TCBRSV13 EQU TCBPURGE 01069000 TCBRSV12 EQU TCBPURGE 01070000 TCBRSV11 EQU TCBPURGE 01071000 TCBRSV10 EQU TCBPURGE 01072000 TCBRSV09 EQU TCBPURGE 01073000 TCBJPQF EQU TCBPURGE 01074000 TCBJLB EQU TCB+40 01075000 TCBLLS EQU TCB+36 01076000 TCBDSP EQU TCB+35 01077000 TCBLMP EQU TCB+34 01078000 TCBPNDSP EQU TCBFLGS5 01079000 TCBFCD1 EQU TCBFLGS5 01080000 TCBSTP EQU TCBFLGS5 01081000 TCBSYS EQU TCBFLGS5 01082000 TCBANDSP EQU TCBFLGS5 01083000 TCBPAGE EQU TCBFLGS5 01084000 TCBUXNDF EQU TCBABWF 01085000 TCBFC EQU TCBFLGS5 01086000 TCBONDSP EQU TCBFLGS4 01087000 TCBMPCND EQU TCBFLGS4 01088000 TCBMPCVQ EQU TCBFLGS4 01089000 TCBUXNDV EQU TCBFLGS4 01090000 TCBHNDSP EQU TCBFLGS4 01091000 TCBRQENA EQU TCBFLGS4 01092000 TCBSER EQU TCBFLGS4 01093000 TCBNDUMP EQU TCBFLGS4 01094000 TCBDWSTA EQU TCBFLGS3 01095000 TCBRSV08 EQU TCBFLGS3 01096000 TCBRSV07 EQU TCBFLGS3 01097000 TCBRSV06 EQU TCBFLGS3 01098000 TCBABGM EQU TCBFLGS3 01099000 TCBABTRM EQU TCBFLGS3 01100000 TCBADINP EQU TCBFLGS3 01101000 TCBFSM EQU TCBFLGS3 01102000 TCBFTS EQU TCBFLGS2 01103000 TCBFETXR EQU TCBFLGS2 01104000 TCBFDSOP EQU TCBFLGS2 01105000 TCBFJMC EQU TCBFLGS2 01106000 TCBFSMC EQU TCBFLGS2 01107000 TCBFABOP EQU TCBFLGS2 01108000 TCBFSTI EQU TCBFLGS2 01109000 TCBFOINP EQU TCBFLGS2 01110000 TCBFX EQU TCBFLGS1 01111000 TCBFS EQU TCBFLGS1 01112000 TCBFT EQU TCBFLGS1 01113000 TCBPDUMP EQU TCBFLGS1 01114000 TCBNONPR EQU TCBFLGS1 01115000 TCBFERA EQU TCBFLGS1 01116000 TCBFE EQU TCBFLGS1 01117000 TCBFA EQU TCBFLGS1 01118000 TCBZERO EQU TCBPKF 01119000 TCBFLAG EQU TCBPKF 01120000 TCBMSSB EQU TCBMSS+1 01121000 TCBRSV03 EQU TCBMSS 01122000 TCBTRNB EQU TCBTRN+1 01123000 TCBRSV02 EQU TCBABF 01124000 TCBOLTEP EQU TCBABF 01125000 TCBTCP EQU TCBABF 01126000 TCBTCPP EQU TCBABF 01127000 TCBRSV01 EQU TCBABF 01128000 TCBGRPH EQU TCBABF 01129000 TCBNOCHK EQU TCBABF 01130000 TCBMOD91 EQU TCBABF 01131000 TCBCMPC EQU TCBCMP+1 01132000 TCBRV318 EQU TCBCMSG 01133000 TCBRV317 EQU TCBCIND 01134000 TCBRV316 EQU TCBCWTO 01135000 TCBCASID EQU TCBCDBL 01136000 TCBNOCC EQU TCBSTCC 01137000 TCBDMPO EQU TCBCPP 01138000 TCBCSTEP EQU TCBCMPF 01139000 TCBCREQ EQU TCBCMPF 01140000 TCBTIO EQU TCB+12 01141000 TCBDEB EQU TCB+8 01142000 TCBPIEA EQU TCBPIE+1 01143000 TCBPM EQU TCBPMASK 01144000 @NM00078 EQU TCBPMASK 01145000 TCBRBP EQU TCB 01146000 TCBFRS6 EQU TCBFRS+24 01147000 TCBFRS4 EQU TCBFRS+16 01148000 TCBFRS2 EQU TCBFRS+8 01149000 TCBFRS0 EQU TCBFRS 01150000 SVRBEND EQU RBSECT+192 01151000 RBFEPARM EQU RBSECT+168 01152000 SIRBEND EQU RBSECT+168 01153000 RBRSV158 EQU RBRSV150 01154000 RBRSV157 EQU RBRSV150 01155000 RBRSV156 EQU RBRSV150 01156000 RBRSV155 EQU RBRSV150 01157000 RBRSV154 EQU RBRSV150 01158000 RBRSV153 EQU RBRSV150 01159000 RBRSV152 EQU RBRSV150 01160000 RBRSV151 EQU RBRSV150 01161000 RBRSV149 EQU RBSECT+166 01162000 RBRSV148 EQU RBSECT+164 01163000 RBRSV169 EQU RBSDATA+3 01164000 RBSID EQU RBSDATA+2 01165000 RBSPKEY EQU RBSDATA+1 01166000 RBRSV168 EQU RBSFLG3 01167000 RBSTERMO EQU RBSFLG3 01168000 RBSBRNTR EQU RBSFLG3 01169000 RBSPRNTR EQU RBSFLG3 01170000 RBSCNCEL EQU RBSFLG3 01171000 RBSRECRD EQU RBSFLG3 01172000 RBSTERMI EQU RBSFLG3 01173000 RBRSV167 EQU RBSFLG3 01174000 RBSOWNRA EQU RBSOWNR+1 01175000 RBSSUPER EQU RBSFLGS2 01176000 RBSKEY0 EQU RBSFLGS2 01177000 RBRSV166 EQU RBSFLGS2 01178000 RBRSV165 EQU RBSFLGS2 01179000 RBSINUSE EQU RBSFLGS2 01180000 RBRSV164 EQU RBSFLGS2 01181000 RBSXCTL2 EQU RBSFLGS2 01182000 RBRSV163 EQU RBSFLGS2 01183000 RBSPARMA EQU RBSPARM+1 01184000 RBSHALT EQU RBSIOPRC 01185000 RBSNOIOP EQU RBSIOPRC 01186000 RBSASYNC EQU RBSFLGS1 01187000 RBRSV162 EQU RBSFLGS1 01188000 RBSESTAE EQU RBSFLGS1 01189000 RBSDUMMY EQU RBSFLGS1 01190000 RBSSTAR EQU RBSFLGS1 01191000 RBSSTAI EQU RBSFLGS1 01192000 RBSEXIT EQU RBSCBB+4 01193000 RBSCHAIN EQU RBSCBB 01194000 TIRBEND EQU @NM00076+8 01195000 PRBEND EQU @NM00076+8 01196000 RBRSV146 EQU RBRSV138 01197000 RBRSV145 EQU RBRSV138 01198000 RBRSV144 EQU RBRSV138 01199000 RBRSV143 EQU RBRSV138 01200000 RBRSV142 EQU RBRSV138 01201000 RBRSV141 EQU RBRSV138 01202000 RBRSV140 EQU RBRSV138 01203000 RBRSV139 EQU RBRSV138 01204000 RBRSV137 EQU @NM00076+6 01205000 RBRSV136 EQU @NM00076+4 01206000 RBRSV135 EQU @NM00076 01207000 @NM00075 EQU RBSECT+32 01208000 @NM00074 EQU @NM00072+1 01209000 RBSCF EQU @NM00073 01210000 RBPGMQ1 EQU RBPGMQ+1 01211000 @NM00071 EQU RBPGMQ 01212000 @NM00070 EQU RBSECT+16 01213000 @NM00069 EQU @NM00065 01214000 @NM00068 EQU @NM00065 01215000 RBIQETP EQU @NM00065 01216000 RBUSIQE EQU RBETXR 01217000 RBATTN EQU @NM00065 01218000 @NM00067 EQU @NM00065 01219000 @NM00066 EQU @NM00065 01220000 RBPMSVRB EQU @NM00063 01221000 RBATNXIT EQU @NM00063 01222000 @NM00064 EQU @NM00063 01223000 RBWAITP EQU @NM00063 01224000 RBFNSVRB EQU RBTRSVRB 01225000 RBFTP EQU @NM00063 01226000 RBSIZE EQU RBSECT+8 01227000 RBABOPSW EQU RBSECT+4 01228000 RBPPSAV1 EQU RBPPSAV+1 01229000 @NM00061 EQU RBPPSAV 01230000 RBPRFXND EQU RBPREFIX+64 01231000 RBWCSA EQU RBPREFIX+60 01232000 RBRSV004 EQU RBPREFIX+57 01233000 RBSSSYN EQU RBFLAGS1 01234000 RBSCB EQU RBFLAGS1 01235000 RBLONGWT EQU RBFLAGS1 01236000 RBASIR EQU RBFLAGS1 01237000 RBRSV159 EQU RBFLAGS1 01238000 RBABEND EQU RBFLAGS1 01239000 RBXWAIT EQU RBFLAGS1 01240000 RBSLOCK EQU RBFLAGS1 01241000 RBRTRAN EQU RBRTPSW2+4 01242000 RBRTINCD EQU RBRTICIL+2 01243000 RBRTILC EQU RBRTICIL+1 01244000 RBRSV160 EQU RBRTICIL 01245000 RBRTPSW1 EQU RBRTOPSW 01246000 RBRSV062 EQU RBRSV054 01247000 RBRSV061 EQU RBRSV054 01248000 RBRSV060 EQU RBRSV054 01249000 RBRSV059 EQU RBRSV054 01250000 RBRSV058 EQU RBRSV054 01251000 RBRSV057 EQU RBRSV054 01252000 RBRSV056 EQU RBRSV054 01253000 RBRSV055 EQU RBRSV054 01254000 RBRSV053 EQU RBPREFIX+38 01255000 RBRSV052 EQU RBPREFIX+36 01256000 RBRSV051 EQU RBPREFIX+32 01257000 RBPRFXST EQU RBPREFIX+32 01258000 RBRSV050 EQU RBPREFIX+28 01259000 RBRSV049 EQU RBRSV041 01260000 RBRSV048 EQU RBRSV041 01261000 RBRSV047 EQU RBRSV041 01262000 RBRSV046 EQU RBRSV041 01263000 RBRSV045 EQU RBRSV041 01264000 RBRSV044 EQU RBRSV041 01265000 RBRSV043 EQU RBRSV041 01266000 RBRSV042 EQU RBRSV041 01267000 RBRSV040 EQU RBPREFIX+26 01268000 RBRSV039 EQU RBPREFIX+24 01269000 RBRSV038 EQU RBPREFIX+20 01270000 RBRSV037 EQU RBPREFIX+16 01271000 RBRSV036 EQU RBRSV028 01272000 RBRSV035 EQU RBRSV028 01273000 RBRSV034 EQU RBRSV028 01274000 RBRSV033 EQU RBRSV028 01275000 RBRSV032 EQU RBRSV028 01276000 RBRSV031 EQU RBRSV028 01277000 RBRSV030 EQU RBRSV028 01278000 RBRSV029 EQU RBRSV028 01279000 RBRSV027 EQU RBRSV019 01280000 RBRSV026 EQU RBRSV019 01281000 RBRSV025 EQU RBRSV019 01282000 RBRSV024 EQU RBRSV019 01283000 RBRSV023 EQU RBRSV019 01284000 RBRSV022 EQU RBRSV019 01285000 RBRSV021 EQU RBRSV019 01286000 RBRSV020 EQU RBRSV019 01287000 RBRSV018 EQU RBPREFIX+13 01288000 RBRSV017 EQU RBPREFIX+12 01289000 RBSRV016 EQU RBPREFIX+11 01290000 RBRSV015 EQU RBPREFIX+10 01291000 RBRSV014 EQU RBPREFIX+8 01292000 RBRSV013 EQU RBPREFIX+4 01293000 RBRSV012 EQU RBPREFIX 01294000 RBEXSAVE EQU XRBESA 01295000 XRBREG15 EQU RBGRS15 01296000 XRBREG14 EQU RBGRS14 01297000 XRBREG13 EQU RBGRS13 01298000 XRBREG12 EQU RBGRS12 01299000 XRBREG11 EQU RBGRS11 01300000 XRBREG10 EQU RBGRS10 01301000 XRBREG9 EQU RBGRS9 01302000 XRBREG8 EQU RBGRS8 01303000 XRBREG7 EQU RBGRS7 01304000 XRBREG6 EQU RBGRS6 01305000 XRBREG5 EQU RBGRS5 01306000 XRBREG4 EQU RBGRS4 01307000 XRBREG3 EQU RBGRS3 01308000 XRBREG2 EQU RBGRS2 01309000 XRBREG1 EQU RBGRS1 01310000 XRBREG0 EQU RBGRS0 01311000 XRBLNKA EQU RBLINKB 01312000 XRBWT EQU RBWCF 01313000 @NM00060 EQU RBBASIC+24 01314000 RBOPSWPS EQU RBOPSWB2 01315000 @NM00059 EQU RBOPSWB2 01316000 @NM00058 EQU XRBPSW 01317000 @NM00057 EQU RBBASIC+12 01318000 XRBWAIT EQU RBECBWT 01319000 XRBFRRB EQU RBFDYN 01320000 @NM00056 EQU XSTAB2 01321000 XRBACTV EQU RBFACTV 01322000 XRBTCBP EQU RBTCBNXT 01323000 @NM00055 EQU XSTAB1 01324000 XRBCKPT EQU RBFTCKPT 01325000 @NM00054 EQU XSTAB1 01326000 @NM00053 EQU RBBASIC+8 01327000 @NM00052 EQU RBEXRTNM+1 01328000 RBTMIND3 EQU RBTMFLD 01329000 RBTMIND2 EQU RBTMFLD 01330000 RBTMCMP EQU RBTMFLD 01331000 RBWLIM EQU RBTMFLD 01332000 RBRSV005 EQU RBTMFLD 01333000 RBTMTOD EQU RBTMFLD 01334000 RBTMQUE EQU RBTMFLD 01335000 @NM00051 EQU RBPRFX 01336000 ABDSAVE1 EQU ABDAREA+672 01337000 ABDSAVHD EQU ABDAREA+592 01338000 ABDPADC EQU ABDAREA+589 01339000 ABDLINE EQU ABDLINEA+1 01340000 ABDSRC2 EQU ABDAREA+382 01341000 ABDLOG EQU ABDAREA+380 01342000 ABDSRC1 EQU ABDAREA+378 01343000 ABDPHY EQU ABDAREA+376 01344000 ABDLCNT EQU ABDAREA+372 01345000 @NM00026 EQU ESPARM+29 01346000 @NM00025 EQU ESTAEFLG 01347000 EDCB EQU ESTAEFLG 01348000 ETCB EQU ESTAEFLG 01349000 ESUBSYT EQU ESTAEFLG 01350000 ERESTART EQU ESPARM+24 01351000 EMODNAME EQU ESPARM+16 01352000 EABDAREA EQU ESPARM+12 01353000 ESAUTOP EQU ESPARM+8 01354000 ESBSREG2 EQU ESPARM+4 01355000 ESBSREG EQU ESPARM 01356000 ABDRTRN EQU ABDAREA+336 01357000 ABDSVCB EQU ABDAREA+332 01358000 @NM00024 EQU ABDGMA+14 01359000 ABDCDID EQU ABDGMA+12 01360000 ABDPAREA EQU ABDGMA+8 01361000 ABDBUFSZ EQU ABDBUFFS+4 01362000 ABDBUFAD EQU ABDBUFFS 01363000 ABSLCTSV EQU ABDAREA+304 01364000 ABDSTADS EQU ABDAREA+300 01365000 ABDUPRID EQU ABDAREA+296 01366000 ABDPCAP EQU ABDAREA+295 01367000 ABDLLNGH EQU ABDAREA+294 01368000 ABDINCPL EQU ABDAREA+292 01369000 ABDFWORK EQU ABDAREA+288 01370000 ABDIDENT EQU ABDAREA+286 01371000 ABDIND EQU ABDAREA+284 01372000 ABDSIZE EQU ABDAREA+280 01373000 ABDLENTH EQU ABDAREA+276 01374000 ABDBLOCK EQU ABDAREA+272 01375000 ABDSTAD EQU ABDAREA+268 01376000 @NM00023 EQU ABDBLNKS 01377000 @NM00022 EQU ABDBLNKS 01378000 @NM00021 EQU ABDBLNKS 01379000 @NM00020 EQU ABDBLNKS 01380000 @NM00019 EQU ABDBLNKS 01381000 @NM00018 EQU ABDBLNKS 01382000 @NM00017 EQU ABDBLNKS 01383000 ABDBLKN3 EQU ABDBLNKS 01384000 @NM00016 EQU ABDUPRFN 01385000 @NM00015 EQU ABDUPRFN 01386000 @NM00014 EQU ABDUPRFN 01387000 @NM00013 EQU ABDUPRFN 01388000 @NM00012 EQU ABDUPRFN 01389000 @NM00011 EQU ABDUPRFN 01390000 ABDUPRSL EQU ABDUPRFN 01391000 ABDUPRPM EQU ABDUPRFN 01392000 @NM00010 EQU ABDUPRF 01393000 @NM00009 EQU ABDUPRF 01394000 @NM00008 EQU ABDUPRF 01395000 @NM00007 EQU ABDUPRF 01396000 @NM00006 EQU ABDUPRF 01397000 UPRFMT20 EQU ABDUPRF 01398000 UPRFMET EQU ABDUPRF 01399000 UPRFMAT EQU ABDUPRF 01400000 ABDFMTWK EQU ABDAREA+256 01401000 ABDLPTR EQU ABDAREA+252 01402000 ABDSSPAR EQU ABDAREA+188 01403000 ABDWORK EQU ABDAREA+140 01404000 @NM00005 EQU ABDRES1 01405000 ABDPGHD EQU ABDRES1 01406000 ABDFMTLD EQU ABDRES1 01407000 ABDSQA EQU ABDRES1 01408000 ABDOLSQA EQU ABDRES1 01409000 ABDKEY EQU ABDAREA+138 01410000 ABDLSQA EQU ABDFLAG2 01411000 ABDSTAT EQU ABDFLAG2 01412000 ABDSWAP EQU ABDFLAG2 01413000 ABDGTFCL EQU ABDFLAG2 01414000 ABDTRNAV EQU ABDFLAG2 01415000 ABDTRBIT EQU ABDFLAG2 01416000 ABDGTF EQU ABDFLAG2 01417000 ABDSUPER EQU ABDFLAG2 01418000 ABDIDX EQU ABDFLAG1 01419000 ABDSPHD EQU ABDFLAG1 01420000 ABDSVCHD EQU ABDFLAG1 01421000 ABDSQSDM EQU ABDFLAG1 01422000 ABDLSTHD EQU ABDFLAG1 01423000 ABDQCBMN EQU ABDFLAG1 01424000 ABDQCBMJ EQU ABDFLAG1 01425000 ABDQCBHD EQU ABDFLAG1 01426000 ABDPGWK EQU ABDAREA+128 01427000 ABDWORK1 EQU ABDAREA+120 01428000 ABDRESV3 EQU ABDAREA+116 01429000 ABDUPRXT EQU ABDAREA+112 01430000 ABDCP1 EQU ABDAREA+108 01431000 ABDLP EQU ABDAREA+104 01432000 ABDFP EQU ABDAREA+100 01433000 ABDCP EQU ABDAREA+96 01434000 ABDPTRS3 EQU ABDPTRS+8 01435000 ABDPTRS2 EQU ABDPTRS+4 01436000 ABDPTRS1 EQU ABDPTRS 01437000 ABDPCTR EQU ABDAREA+82 01438000 ABDLCTR EQU ABDAREA+80 01439000 ABDIOBP EQU ABDAREA+76 01440000 ABDPTR EQU ABDAREA+72 01441000 ABDDCB EQU ABDAREA+68 01442000 ABDLEN EQU ABDAREA+66 01443000 ABDTYPE EQU ABDAREA+64 01444000 ABDECB EQU ABDAREA+60 01445000 ABDSAVE EQU ABDAREA+56 01446000 ABDDECB EQU ABDAREA+52 01447000 ABDPARA EQU ABDAREA+48 01448000 ABDTABPT EQU ABDAREA+44 01449000 ABDINXPT EQU ABDAREA+40 01450000 ABDCTR EQU ABDAREA+38 01451000 ABDTRLN EQU ABDAREA+36 01452000 ABDHDRAD EQU ABDPARMS+20 01453000 ABDSNAPP EQU ABDPARMS+16 01454000 ABDPTCBP EQU ABDPARMS+12 01455000 ABDPDCBP EQU ABDPARMS+8 01456000 @NM00004 EQU ABDPARMS+7 01457000 @NM00003 EQU APFPDATA 01458000 APFSPALL EQU APFPDATA 01459000 APFPSW EQU APFPDATA 01460000 APFJPA EQU APFPDATA 01461000 APFLPA EQU APFPDATA 01462000 APFREGS EQU APFPDATA 01463000 APFSAVE2 EQU APFPDATA 01464000 APFSAVE EQU APFPDATA 01465000 @NM00002 EQU APFSDAT1 01466000 APFERR EQU APFSDAT1 01467000 APFIO EQU APFSDAT1 01468000 APFDM EQU APFSDATA 01469000 APFQCB EQU APFSDATA 01470000 APFSUPDA EQU APFSDATA 01471000 APFTRACE EQU APFSDATA 01472000 APFSWA EQU APFSDATA 01473000 APFLSQA EQU APFSDATA 01474000 APFSQA EQU APFSDATA 01475000 APFNUC EQU APFSDATA 01476000 @NM00001 EQU ABDPARMS+2 01477000 APFHDR EQU ABDFLAG 01478000 APFSNAPP EQU ABDFLAG 01479000 APFTCB EQU ABDFLAG 01480000 APFID EQU ABDFLAG 01481000 APFENVS2 EQU ABDFLAG 01482000 APFVS2 EQU ABDFLAG 01483000 APFSNAP EQU ABDFLAG 01484000 ABDPID EQU ABDPARMS 01485000 @NM00050 EQU PSA+3668 01486000 PSASTAK EQU PSA+3072 01487000 @NM00049 EQU PSA+1048 01488000 PSAUSEND EQU PSA+1048 01489000 PSARV062 EQU PSA+1044 01490000 PSACDAL EQU PSA+1040 01491000 PSAWTCOD EQU PSA+1036 01492000 PSAATCVT EQU PSA+1032 01493000 PSAPCPSW EQU PSA+1024 01494000 PSAPIR2 EQU PSA+1020 01495000 PSARV059 EQU PSA+1018 01496000 PSASVC13 EQU PSA+1016 01497000 PSALSFCC EQU PSA+1012 01498000 PSASFACC EQU PSA+1008 01499000 PSASTOP EQU PSA+992 01500000 PSASTART EQU PSA+976 01501000 PSARSPSW EQU PSA+968 01502000 PSASRPSW EQU PSA+960 01503000 PSARV045 EQU PSA+892 01504000 PSARV044 EQU PSA+888 01505000 PSARV043 EQU PSA+884 01506000 PSARV042 EQU PSA+880 01507000 PSARV041 EQU PSA+876 01508000 PSARV040 EQU PSA+872 01509000 PSARV025 EQU PSA+868 01510000 PSADSSED EQU PSA+868 01511000 PSADSSPR EQU PSA+864 01512000 PSADSSFW EQU PSA+860 01513000 PSADSS14 EQU PSA+856 01514000 PSADSSPP EQU PSA+848 01515000 PSADSSRP EQU PSA+840 01516000 PSADSS05 EQU PSADSSF4 01517000 PSADSS10 EQU PSADSSF4 01518000 PSADSSVE EQU PSADSSF4 01519000 PSADSSDE EQU PSADSSF4 01520000 PSADSSC0 EQU PSADSSF4 01521000 PSADSSIE EQU PSADSSF4 01522000 PSADSS12 EQU PSADSSF4 01523000 PSADSSRC EQU PSADSSF4 01524000 PSARV057 EQU PSADSSF3 01525000 PSARV056 EQU PSADSSF3 01526000 PSARV055 EQU PSADSSF3 01527000 PSADSSMC EQU PSADSSF3 01528000 PSADSSRW EQU PSADSSF3 01529000 PSADSSNM EQU PSADSSF3 01530000 PSADSSES EQU PSADSSF3 01531000 PSADSSGP EQU PSADSSF3 01532000 PSADSSF2 EQU PSADSSFL+1 01533000 PSADSSPI EQU PSADSSF1 01534000 PSADSSOI EQU PSADSSF1 01535000 PSADSSSP EQU PSADSSF1 01536000 PSADSSTP EQU PSADSSF1 01537000 PSADSSDW EQU PSADSSF1 01538000 PSADSSDD EQU PSADSSF1 01539000 PSADSSDM EQU PSADSSF1 01540000 PSADSSMV EQU PSADSSF1 01541000 PSADSSTS EQU PSA+816 01542000 PSADSSWK EQU PSA+812 01543000 PSADSSR3 EQU PSA+808 01544000 PSADSSR2 EQU PSA+804 01545000 PSADSSRS EQU PSA+800 01546000 PSASTOR EQU PSA+796 01547000 PSACPUSA EQU PSA+794 01548000 PSAVSTAP EQU PSA+792 01549000 PSAWKVAP EQU PSA+788 01550000 PSAWKRAP EQU PSA+784 01551000 PSAMCHIC EQU PSA+783 01552000 PSARV061 EQU PSA+782 01553000 PSASYMSK EQU PSA+781 01554000 PSAMCHFL EQU PSA+780 01555000 PSACR0 EQU PSA+776 01556000 PSAPSWSV EQU PSA+768 01557000 PSALITA EQU PSA+764 01558000 PSACLHS EQU PSAHLHI 01559000 PSALKR15 EQU PSALKSA+60 01560000 PSALKR14 EQU PSALKSA+56 01561000 PSALKR13 EQU PSALKSA+52 01562000 PSALKR12 EQU PSALKSA+48 01563000 PSALKR11 EQU PSALKSA+44 01564000 PSALKR10 EQU PSALKSA+40 01565000 PSALKR9 EQU PSALKSA+36 01566000 PSALKR8 EQU PSALKSA+32 01567000 PSALKR7 EQU PSALKSA+28 01568000 PSALKR6 EQU PSALKSA+24 01569000 PSALKR5 EQU PSALKSA+20 01570000 PSALKR4 EQU PSALKSA+16 01571000 PSALKR3 EQU PSALKSA+12 01572000 PSALKR2 EQU PSALKSA+8 01573000 PSALKR1 EQU PSALKSA+4 01574000 PSALKR0 EQU PSALKSA 01575000 PSARV023 EQU PSACLHT+52 01576000 PSALOCAL EQU PSACLHT+48 01577000 PSACMSL EQU PSACLHT+44 01578000 PSAOPTL EQU PSACLHT+40 01579000 PSATPACL EQU PSACLHT+36 01580000 PSATPDNL EQU PSACLHT+32 01581000 PSATPNCL EQU PSACLHT+28 01582000 PSAIOSLL EQU PSACLHT+24 01583000 PSAIOSUL EQU PSACLHT+20 01584000 PSAIOSCL EQU PSACLHT+16 01585000 PSAIOSSL EQU PSACLHT+12 01586000 PSASALCL EQU PSACLHT+8 01587000 PSAASML EQU PSACLHT+4 01588000 PSADISPL EQU PSACLHT 01589000 PSASRSA EQU PSA+636 01590000 PSARV050 EQU PSA+634 01591000 PSADSSGO EQU PSA+633 01592000 PSARECUR EQU PSA+632 01593000 PSAHLHIS EQU PSA+628 01594000 PSAIPCSA EQU PSA+624 01595000 @NM00048 EQU PSA+621 01596000 PSAIPCDM EQU PSA+620 01597000 PSAIPCD EQU PSA+616 01598000 @NM00047 EQU PSA+613 01599000 PSAIPCRM EQU PSA+612 01600000 PSAIPCR EQU PSA+608 01601000 PSAMCHEX EQU PSA+600 01602000 PSAMPSW EQU PSA+592 01603000 PSAEXPS2 EQU PSA+584 01604000 PSAEXPS1 EQU PSA+576 01605000 PSAPIREG EQU PSA+572 01606000 PSARSREG EQU PSA+568 01607000 PSAGPREG EQU PSA+556 01608000 PSARV022 EQU PSASUP4 01609000 PSARV021 EQU PSASUP4 01610000 PSARV020 EQU PSASUP4 01611000 PSARV019 EQU PSASUP4 01612000 PSARV018 EQU PSASUP4 01613000 PSARV017 EQU PSASUP4 01614000 PSARV016 EQU PSASUP4 01615000 PSARV015 EQU PSASUP4 01616000 PSARV014 EQU PSASUP3 01617000 PSARV013 EQU PSASUP3 01618000 PSARV012 EQU PSASUP3 01619000 PSAESTA EQU PSASUP3 01620000 PSASPR EQU PSASUP3 01621000 PSAPSREG EQU PSASUP3 01622000 PSAPI2 EQU PSASUP3 01623000 PSAIOSUP EQU PSASUP3 01624000 PSALCR EQU PSASUP2 01625000 PSARTM EQU PSASUP2 01626000 PSAACR EQU PSASUP2 01627000 PSAIPCE2 EQU PSASUP2 01628000 PSAIPCES EQU PSASUP2 01629000 PSAIPCEC EQU PSASUP2 01630000 PSAGTF EQU PSASUP2 01631000 PSAIPCRI EQU PSASUP2 01632000 PSATYPE6 EQU PSASUP1 01633000 PSATCTL EQU PSASUP1 01634000 PSADISP EQU PSASUP1 01635000 PSALOCK EQU PSASUP1 01636000 PSAPI EQU PSASUP1 01637000 PSAEXT EQU PSASUP1 01638000 PSASVC EQU PSASUP1 01639000 PSAIO EQU PSASUP1 01640000 PSAAOLD EQU PSA+548 01641000 PSAANEW EQU PSA+544 01642000 PSATOLD EQU PSA+540 01643000 PSATNEW EQU PSA+536 01644000 PSALCCAR EQU PSA+532 01645000 PSALCCAV EQU PSA+528 01646000 PSAPCCAR EQU PSA+524 01647000 PSAPCCAV EQU PSA+520 01648000 PSACPULA EQU PSA+518 01649000 PSACPUPA EQU PSA+516 01650000 PSAPSA EQU PSA+512 01651000 FLCHDEND EQU PSA+512 01652000 FLCCRSAV EQU FLCMCLA+280 01653000 FLCGRSAV EQU FLCMCLA+216 01654000 FLCFPSAV EQU FLCMCLA+184 01655000 FLCFLA EQU FLCMCLA+88 01656000 FLCRGNCD EQU FLCMCLA+84 01657000 FLCFSAA EQU FLCFSA+1 01658000 @NM00046 EQU FLCFSA 01659000 @NM00045 EQU FLCMCLA+72 01660000 FLCMCIC EQU FLCMCLA+64 01661000 @NM00044 EQU FLCMCLA+20 01662000 FLCIOAA EQU FLCIOA+1 01663000 @NM00043 EQU FLCIOA 01664000 @NM00042 EQU FLCMCLA+15 01665000 @NM00041 EQU FLCMCLA+14 01666000 @NM00040 EQU FLCMCLA+12 01667000 FLCLCL EQU FLCMCLA+8 01668000 FLCIOELA EQU FLCIOEL+1 01669000 @NM00039 EQU FLCIOEL 01670000 FLCCHNID EQU FLCMCLA 01671000 @NM00038 EQU PSA+160 01672000 FLCMTRCD EQU PSA+157 01673000 @NM00037 EQU PSA+156 01674000 FLCPERA EQU FLCPER+1 01675000 @NM00036 EQU FLCPER 01676000 @NM00035 EQU PSA+151 01677000 FLCPERCD EQU PSA+150 01678000 FLCMCNUM EQU PSA+149 01679000 @NM00034 EQU PSA+148 01680000 FLCTEAA EQU FLCTEA+1 01681000 @NM00033 EQU FLCTEA 01682000 PSAPIPC EQU PSAPICOD 01683000 PSAPIMC EQU PSAPICOD 01684000 PSAPIPER EQU PSAPICOD 01685000 PSARV049 EQU FLCPICOD 01686000 FLCPILCB EQU FLCPIILC 01687000 @NM00032 EQU FLCPIILC 01688000 @NM00031 EQU PSAEPPSW 01689000 FLCSVCN EQU PSAESPSW+2 01690000 FLCSILCB EQU FLCSVILC 01691000 @NM00030 EQU FLCSVILC 01692000 @NM00029 EQU PSAESPSW 01693000 FLCEICOD EQU PSAEEPSW+2 01694000 PSASPAD EQU PSAEEPSW 01695000 @NM00028 EQU PSA+128 01696000 FLCINPSW EQU PSA+120 01697000 FLCMNPSW EQU PSA+112 01698000 FLCPNPSW EQU PSA+104 01699000 FLCSNPSW EQU PSA+96 01700000 FLCENPSW EQU PSA+88 01701000 FLCTRACE EQU PSA+84 01702000 FLCTIMER EQU PSA+80 01703000 FLCCVT2 EQU PSA+76 01704000 FLCCAW EQU PSA+72 01705000 FLCCSW EQU PSA+64 01706000 FLCIOPSW EQU PSA+56 01707000 FLCMOPSW EQU PSA+48 01708000 FLCPOPSW EQU PSA+40 01709000 FLCSOPSW EQU PSA+32 01710000 FLCEOPSW EQU PSA+24 01711000 @NM00027 EQU FLCICCW2+4 01712000 FLCCVT EQU FLCICCW2 01713000 FLCICCW1 EQU FLCROPSW 01714000 FLCIPPSW EQU FLCRNPSW 01715000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01716000 @RT00089 EQU FREERET 01717000 @RT00093 EQU FREERET 01718000 @RT00104 EQU FREERET 01719000 @RT00133 EQU FREERET 01720000 @RT00141 EQU FREERET 01721000 @RT00145 EQU FREERET 01722000 @RT00153 EQU FREERET 01723000 @RT00157 EQU FREERET 01724000 @RT00163 EQU FREERET 01725000 @RT00167 EQU FREERET 01726000 @ENDDATA EQU * 01727000 END IEAVAD10,(C'PLS2026',0701,77049) 01728000