TITLE 'IEAVAD01 - SNAP MAINLINE *00001000 ' 00002000 IEAVAD01 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVAD01 78.026' 0001 00008000 DROP @15 00009000 @PROLOG BALR @06,0 0001 00010000 @PSTART LA @07,4095(,@06) 0001 00011000 USING @PSTART,@06 0001 00012000 USING @PSTART+4095,@07 0001 00013000 RBPRFXLN EQU 64 00014000 RBPRFLNA EQU 32 00015000 PRBLEN EQU 136 00016000 SIRBLEN EQU 200 00017000 TIRBLEN EQU 136 00018000 IRBLEN EQU 128 00019000 SVRBLEN EQU 224 00020000 * R0=R9; /* SAVE SVC 51'S BASE REG */ 00021000 LR R0,R9 0209 00022000 * SNAPPTR=PARMPTR; /* SAVE ADDR OF SNAP PARAMETER 0210 00023000 * LIST */ 00024000 LR SNAPPTR,PARMPTR 0210 00025000 * R3=RETRG; /* SAVE RETURN REGISTER */ 00026000 LR R3,RETRG 0211 00027000 * GENERATE REFS(PSALITA); 0212 00028000 *********************************************************************** 00029000 * FREE LOCAL LOCK OBTAINED BY SVC SECOND LEVEL INTERRUPT HANDLER * 00030000 *********************************************************************** 00031000 SETLOCK RELEASE,TYPE=LOCAL,RELATED=('SVC DUMP') @YM00084 00032000 LR R11,R0 SAVE BASE OVER GETMAIN 00033000 GETMAIN R,LV=@ENDDATD-@DATD,SP=253 00034000 LR AUTOPTR,PARMPTR SAVE ADDR OF AUTOMATIC STORAGE 00035000 USING @DATD,AUTOPTR ESTABLISH BASE FOR AUTOMATIC STORAGE 00036000 XC 0(@ENDDATD-@DATD,AUTOPTR),0(AUTOPTR) 0 STORAGE 00037000 * RFY 0213 00038000 * (R5) RSTD; 0213 00039000 * RBSECPTR=R5; /* SAVE SNAPS RB ADDRESS @G33SPHW*/ 00040000 ST R5,RBSECPTR 0214 00041000 * RFY 0215 00042000 * (R5) UNRSTD; 0215 00043000 * RFY 0216 00044000 * R0 UNRSTD; 0216 00045000 EJECT 00046000 * 0217 00047000 * /*****************************************************************/ 00048000 * /* */ 00049000 * /* OBTAIN STORAGE FROM SP253 FOR THE FOLLOWING : SNAP WORK AREA, */ 00050000 * /* PLUS 72 BYTES FOR REGISTER SAVE AREA FOR PRINT ROUTINE */ 00051000 * /* (IEAVAD11) */ 00052000 * /* */ 00053000 * /*****************************************************************/ 00054000 * 0217 00055000 * RFY 0217 00056000 * R0 RSTD; 0217 00057000 * R0=LENGTH(COREAREA); /* AMT OF CORE TO OBTAIN @Z40MPXG*/ 00058000 LA R0,1140 0218 00059000 * PARMPTR=ADDR(GMPARM2); /* POINTER TO PARMLIST FOR 0219 00060000 * GETMAIN */ 00061000 L @10,RBSECPTR 0219 00062000 LA PARMPTR,GMPARM2(,@10) 0219 00063000 * RFY 0220 00064000 * R5 RSTD; 0220 00065000 * R5=RBSECPTR; 0221 00066000 LR R5,@10 0221 00067000 * GENERATE SETS(GMREPLY2) REFS(R5); 0222 00068000 GETMAIN EC,LV=(0),SP=253,A=GMREPLY2(R5),MF=(E,(1)) 00069000 * RFY 0223 00070000 * R5 UNRSTD; 0223 00071000 * IF RETCODE=0 THEN 0224 00072000 LTR RETCODE,RETCODE 0224 00073000 BNZ @RF00224 0224 00074000 * DO; 0225 00075000 * SAVERET=0; /* INDICATE SUCCESSFUL GETMAIN */ 00076000 SLR SAVERET,SAVERET 0226 00077000 * ABDARPTR=GMREPLY2; /* SET BASE REGISTER FOR SNAPS 0227 00078000 * WORK AREA */ 00079000 L @10,RBSECPTR 0227 00080000 L ABDARPTR,GMREPLY2(,@10) 0227 00081000 * RFY 0228 00082000 * (COREAREA) BASED(ABDARPTR);/* SET BASE FOR GETM AREA 0228 00083000 * @Z40MPXG*/ 00084000 * 0228 00085000 * /*************************************************************/ 00086000 * /* */ 00087000 * /* ZERO CORE OBTAINED FOR SNAP'S WORK AREA, ESTAE PARAMETER */ 00088000 * /* LIST, SAVE AREA FOR PRINT ROUTINE, QMNGRIO WORKAREA, */ 00089000 * /* @Z40MPXG*/ 00090000 * /* BUFFER, AND PARAMETER LIST. @Z40MPXG*/ 00091000 * /* */ 00092000 * /*************************************************************/ 00093000 * 0229 00094000 * COREAREA(1:256)=''B; /* CLEAR GOTTEN AREA @Z40MPXG*/ 00095000 XC COREAREA(256,ABDARPTR),COREAREA(ABDARPTR) 0229 00096000 * COREAREA(257:512)=''B; /* @Z40MPXG*/ 00097000 XC COREAREA+256(256,ABDARPTR),COREAREA+256(ABDARPTR) 0230 00098000 * COREAREA(513:768)=''B; /* @Z40MPXG*/ 00099000 XC COREAREA+512(256,ABDARPTR),COREAREA+512(ABDARPTR) 0231 00100000 * COREAREA(769:1024)=''B; /* @G33SPHW*/ 00101000 XC COREAREA+768(256,ABDARPTR),COREAREA+768(ABDARPTR) 0232 00102000 * COREAREA(1025:LENGTH(COREAREA))=''B;/* @G33SPHW*/ 00103000 * 0233 00104000 XC COREAREA+1024(116,ABDARPTR),COREAREA+1024(ABDARPTR) 0233 00105000 * /*************************************************************/ 00106000 * /* */ 00107000 * /* INITIALIZE THE QMNGRIO PARAMETER LIST @Z40MPXG*/ 00108000 * /* */ 00109000 * /*************************************************************/ 00110000 * 0234 00111000 * QMIOPPTR=ADDR(QMIPARM); /* ADDR OF PARMLIST @Z40MPXG*/ 00112000 LA @05,QMIPARM(,ABDARPTR) 0234 00113000 ST @05,QMIOPPTR 0234 00114000 * QMIRECAD=ADDR(JFCBAREA); /* PTR TO BUFFER FOR JFCB 0235 00115000 * @Z40MPXG*/ 00116000 LA @10,JFCBAREA(,ABDARPTR) 0235 00117000 ST @10,QMIRECAD(,@05) 0235 00118000 * QMIWRKAD=ADDR(QMIAREA); /* PTR TO WORKAREA @Z40MPXG*/ 00119000 LA @10,QMIAREA(,ABDARPTR) 0236 00120000 ST @10,QMIWRKAD(,@05) 0236 00121000 * QMIRECL=LENGTH(JFCBAREA); /* LENGTH OF BUFFER @Z40MPXG*/ 00122000 MVC QMIRECL(2,@05),@CH04238 0237 00123000 * QMITCBAD=TCBPTR; /* CURRENT TCB ADDRESS @Z40MPXG*/ 00124000 ST TCBPTR,QMITCBAD(,@05) 0238 00125000 * QMIOREAD=ON; /* TURN ON READ ONLY BIT @Z40MPXG*/ 00126000 * 0239 00127000 OI QMIOREAD(@05),B'10000000' 0239 00128000 * /*************************************************************/ 00129000 * /* */ 00130000 * /* INITIALIZE THE ABDAREA @Z40MPXG*/ 00131000 * /* */ 00132000 * /*************************************************************/ 00133000 * 0240 00134000 * ABDPARA=SNAPPTR; /* SAVE ADDRESS OF SNAP PARMLIST */ 00135000 ST SNAPPTR,ABDPARA(,ABDARPTR) 0240 00136000 * ABDCTCB=TCBPTR; /* SAVE ADDRESS OF CURRENT TCB */ 00137000 ST TCBPTR,ABDCTCB(,ABDARPTR) 0241 00138000 * ABDCRB=RBSECPTR; /* SAVE ADDRESS OF SNAP'S SVRB */ 00139000 L @10,RBSECPTR 0242 00140000 ST @10,ABDCRB(,ABDARPTR) 0242 00141000 * ABDSVCB=R11; /* SAVE BASE OF SVC 51 */ 00142000 ST R11,ABDSVCB(,ABDARPTR) 0243 00143000 * ABDRTRN=R3; /* SAVE ADDRESS OF SVC 51 */ 00144000 ST R3,ABDRTRN(,ABDARPTR) 0244 00145000 * SAVREG=ADDR(SAVAREA); /* GET ADDRESS OF SAVE AREA 0245 00146000 * @Z40MPXG*/ 00147000 LA SAVREG,SAVAREA(,ABDARPTR) 0245 00148000 * ABDSAVE1=ADDR(SAVAREA1); /* GET ADDRESS OF AD11 SAVEAREA 00149000 * USED TO SAVE REGISTERS PRIOR 00150000 * TO SYNCH TO WRITE @ZA16374*/ 00151000 LA @10,SAVAREA1(,ABDARPTR) 0246 00152000 ST @10,ABDSAVE1(,ABDARPTR) 0246 00153000 * EMODNAME='IEAVAD01'; /* PUT MODNAME IN ESATE PARMLIST */ 00154000 MVC EMODNAME(8,ABDARPTR),@CC04285 0247 00155000 * ESBSREG=BASE; /* SAVE BASE REG */ 00156000 ST BASE,ESBSREG(,ABDARPTR) 0248 00157000 * ESBSREG2=BASE2; /* SAVE SECOND BASE REG @G33SPHW*/ 00158000 ST BASE2,ESBSREG2(,ABDARPTR) 0249 00159000 * ESAUTOP=AUTOPTR; /* SAVE ADDR OF COMPILER STORAGE */ 00160000 ST AUTOPTR,ESAUTOP(,ABDARPTR) 0250 00161000 * EABDAREA=ABDARPTR; /* SAVE ADDR OF SNAP WORK AREA */ 00162000 ST ABDARPTR,EABDAREA(,ABDARPTR) 0251 00163000 * RESPECIFY 0252 00164000 * (R3, 0252 00165000 * R9) UNRESTRICTED; 0252 00166000 * R11=ADDR(ESPARM); /* ADDR ESTAE PARM LIST */ 00167000 LA R11,ESPARM(,ABDARPTR) 0253 00168000 * MFLESTAE=ESTAELST; /* MOVE MF-L FORM TO GM STORAGE. */ 00169000 MVC MFLESTAE(16),ESTAELST 0254 00170000 * PARMPTR=ADDR(MFLESTAE); /* ADDR OF LIST FOR MF-E FORM. 0255 00171000 * @YM03533*/ 00172000 LA PARMPTR,MFLESTAE 0255 00173000 * GENERATE; 0256 00174000 ESTAE SNPRCVR,PARAM=(11),MF=(E,(1)) 00175000 * END; 0257 00176000 * ELSE 0258 00177000 * DO; 0258 00178000 B @RC00224 0258 00179000 @RF00224 DS 0H 0259 00180000 * GEN(FREEMAIN R,LV=@ENDDATD-@DATD,SP=253,A=(AUTOPTR)); 0259 00181000 FREEMAIN R,LV=@ENDDATD-@DATD,SP=253,A=(AUTOPTR) 00182000 * SAVERET=8; /* INDICATE GETMAIN UNSUCCESSFUL */ 00183000 LA SAVERET,8 0260 00184000 * R8=R11; /* RESTORE SVC 51 BASE REG */ 00185000 LR R8,R11 0261 00186000 * END; 0262 00187000 * RFY 0263 00188000 * (R0, 0263 00189000 * R11) UNRSTD; 0263 00190000 @RC00224 DS 0H 0264 00191000 * IF SAVERET=0 /* GETMAIN SUCCESSFUL */ 00192000 * THEN /* YES */ 00193000 LTR SAVERET,SAVERET 0264 00194000 BNZ @RF00264 0264 00195000 * DO; 0265 00196000 * TCBFX='1'B; /* ASYNCHRONOUS EXITS ARE NOT 0266 00197000 * PERMITTED DURING LIFE OF DUMP */ 00198000 OI TCBFX(TCBPTR),B'00000001' 0266 00199000 EJECT 00200000 * 0267 00201000 * /*************************************************************/ 00202000 * /* */ 00203000 * /* DETERMINE CALLER OF SNAP. IF ABDUMP IS THE CALLER, MODESET*/ 00204000 * /* IS NOT ISSUED BEFORE MOVING THE SNAP PARAMETER LIST INTO */ 00205000 * /* SNAP'S WORK AREA. OTHERWISE, MODESET IS ISSUED TO INSURE */ 00206000 * /* THAT THE PARAMETER LIST IS ADDRESSABLE BY THE REQUESTOR OF*/ 00207000 * /* THE DUMP. AFTER THE PARAMETER LIST IS MOVED, RETURN TO */ 00208000 * /* SUPERVISOR KEY */ 00209000 * /* */ 00210000 * /*************************************************************/ 00211000 * 0267 00212000 * IF SNPVS2='1'B /* VS2-1 OR VS2-2 SNAP PARM 0267 00213000 * LIST.. */ 00214000 * THEN /* --LIST TYPE IS VS2-2. */ 00215000 TM SNPVS2(SNAPPTR),B'01000000' 0267 00216000 BNO @RF00267 0267 00217000 * DO; 0268 00218000 * IF SNPABEND='1'B /* VS2-2 ABEND OR USER CALLING...*/ 00219000 * THEN 0269 00220000 TM SNPABEND(SNAPPTR),B'00010000' 0269 00221000 BNO @RF00269 0269 00222000 * APFABEND='1'B; /* --USER. */ 00223000 OI APFABEND(ABDARPTR),B'00010000' 0270 00224000 * ELSE 0271 00225000 * ; /* --ABEND(IE, ABDUMP). */ 00226000 @RF00269 DS 0H 0272 00227000 * END; 0272 00228000 * ELSE /* --LIST TYPE IS VS2-1. */ 00229000 * DO; 0273 00230000 B @RC00267 0273 00231000 @RF00267 DS 0H 0274 00232000 * IF SPABEND='1'B /* VS2-1 (ABEND OR) USER 0274 00233000 * CALLING.. */ 00234000 * THEN 0274 00235000 TM SPABEND(SNAPPTR),B'10000000' 0274 00236000 BNO @RF00274 0274 00237000 * APFABEND='1'B; /* --USER. */ 00238000 OI APFABEND(ABDARPTR),B'00010000' 0275 00239000 * ELSE 0276 00240000 * ; /* --ABEND(IE, ABDUMP). */ 00241000 @RF00274 DS 0H 0277 00242000 * END; 0277 00243000 * 0277 00244000 * /*************************************************************/ 00245000 * /* */ 00246000 * /* COPY AND TRANSFORM LIST TO ABDAREA. */ 00247000 * /* */ 00248000 * /*************************************************************/ 00249000 * 0278 00250000 * IF APFABEND='1'B /* SHOULD MODESET BE ISSUED... */ 00251000 * THEN /* -YES, USER IS CALLING. */ 00252000 @RC00267 TM APFABEND(ABDARPTR),B'00010000' 0278 00253000 BNO @RF00278 0278 00254000 * DO; 0279 00255000 * RFY 0280 00256000 * (R3, 0280 00257000 * R10) RSTD; 0280 00258000 * RFY 0281 00259000 * ABDAREA BASED(R3); /* @YM06187*/ 00260000 * R3=ABDARPTR; /* R2 DESTROYED BY MODESET */ 00261000 LR R3,ABDARPTR 0282 00262000 * DO; /* MODESET SAVEKEY(ABDKEY) 0283 00263000 * EXTKEY(RBT234) WORKREG(R10) */ 00264000 * RESPECIFY 0284 00265000 * (GPR02F) RESTRICTED; 0284 00266000 * R10=GPR02F; /* SAVE REGISTER 2 */ 00267000 LR R10,GPR02F 0285 00268000 * IPK; /* SAVE CURRENT PSW KEY */ 00269000 IPK 0286 00270000 * ABDKEY=GPR02F; 0287 00271000 STC GPR02F,ABDKEY(,R3) 0287 00272000 * GPR02F=R10; /* RESTORE REGISTER 2 */ 00273000 LR GPR02F,R10 0288 00274000 * R10=TCBRBP; /* RB PTR FROM TCB */ 00275000 L R10,TCBRBP(,TCBPTR) 0289 00276000 * R10=R10->RBLINK; /* NEXT RB ADDRESS */ 00277000 L R10,RBLINK(,R10) 0290 00278000 * R10=R10->RBOPSW(2); /* PSW KEY FROM RB OLD PSW */ 00279000 SLR @11,@11 0291 00280000 IC @11,RBOPSW+1(,R10) 0291 00281000 LR R10,@11 0291 00282000 * SPKA(R10); /* SET PSW KEY */ 00283000 SPKA 0(R10) 0292 00284000 * RESPECIFY 0293 00285000 * (GPR02F) UNRESTRICTED; 0293 00286000 * END; /* MODESET SAVEKEY(ABDKEY) 0294 00287000 * EXTKEY(RBT234) WORKREG(R10) GO 00288000 * TO USER KEY */ 00289000 * R9=AUTOPTR; /* SAVE PTR TO AUTOMATIC STORAGE */ 00290000 LR R9,AUTOPTR 0295 00291000 * IF SNPVS2=ON THEN /* IS PARMLIST VS2-2 TYPE */ 00292000 TM SNPVS2(SNAPPTR),B'01000000' 0296 00293000 BNO @RF00296 0296 00294000 * DO; /* YES */ 00295000 * GEN(LM 11,15,0(SNAPPTR));/* CHECK FOR FETCH 0298 00296000 * PROTECTION */ 00297000 LM 11,15,0(SNAPPTR) 00298000 * GEN(STM 11,15,0(SNAPPTR));/* CHECK FOR STORE 0299 00299000 * PROTECTION */ 00300000 STM 11,15,0(SNAPPTR) 00301000 * END; 0300 00302000 * ELSE 0301 00303000 * DO; /* VS2-1 TYPE PARMLIST */ 00304000 B @RC00296 0301 00305000 @RF00296 DS 0H 0302 00306000 * GEN(LM 11,14,0(SNAPPTR));/* CHECK FOR FETCH 0302 00307000 * PROTECTION */ 00308000 LM 11,14,0(SNAPPTR) 00309000 * GEN(STM 11,14,0(SNAPPTR));/* CHECK FOR STORE 0303 00310000 * PROTECTION */ 00311000 STM 11,14,0(SNAPPTR) 00312000 * END; 0304 00313000 * DO; /* MODESET KEYADDR(ABDKEY) 0305 00314000 * WORKREG(R10) */ 00315000 @RC00296 DS 0H 0306 00316000 * R10=ABDKEY; /* GET KEY FORM SAVE LOCATION */ 00317000 SLR R10,R10 0306 00318000 IC R10,ABDKEY(,R3) 0306 00319000 * SPKA(R10); /* SET PSW KEY */ 00320000 SPKA 0(R10) 0307 00321000 * END; /* MODESET KEYADDR(ABDKEY) 0308 00322000 * WORKREG(R10) RETURN TO SNAP 0308 00323000 * KEY */ 00324000 * ABDARPTR=R3; /* RESTORE WORKAREA PTR */ 00325000 LR ABDARPTR,R3 0309 00326000 * RFY 0310 00327000 * ABDAREA BASED(ABDARPTR);/* @YM06187*/ 00328000 * AUTOPTR=R9; /* RESTORE AUTOMATIC STORAGE PTR */ 00329000 LR AUTOPTR,R9 0311 00330000 * SAVERET=0; /* REINIT RETURN CODE REG TO 0 */ 00331000 SLR SAVERET,SAVERET 0312 00332000 EJECT 00333000 * 0313 00334000 * /*********************************************************/ 00335000 * /* */ 00336000 * /* BEFORE MOVING THE SNAP PARAMETER LIST INTO SNAP'S */ 00337000 * /* WORKARE, TYPE OF PARAMETER LIST (OS/VS2 REL.1 OR */ 00338000 * /* OS/VS2 REL.2) MUST BE DETERMINED. */ 00339000 * /* */ 00340000 * /*********************************************************/ 00341000 * 0313 00342000 * IF SNPVS2=ON /* IS PARMLIST VS2-2 TYPE */ 00343000 * THEN /* YES */ 00344000 TM SNPVS2(SNAPPTR),B'01000000' 0313 00345000 BNO @RF00313 0313 00346000 * DO; 0314 00347000 * IF SNPVS2EN=ON THEN /* ENHANCED SNAP PARMLIST 0315 00348000 * @G33SPHW*/ 00349000 TM SNPVS2EN(SNAPPTR),B'00100000' 0315 00350000 BNO @RF00315 0315 00351000 * DO; /* YES... @G33SPHW*/ 00352000 * ABDPARMS=SNPPARMS;/* MOVE OVER ENTIRE PARMLIST 0317 00353000 * @G33SPHW*/ 00354000 MVC ABDPARMS(24,ABDARPTR),SNPPARMS(SNAPPTR) 0317 00355000 * END; /* @G33SPHW*/ 00356000 * ELSE /* NOT ENHANCED SNAP @G33SPHW*/ 00357000 * DO; /* @G33SPHW*/ 00358000 B @RC00315 0319 00359000 @RF00315 DS 0H 0320 00360000 * ABDPARMS(1:20)=SNPPARMS(1:20);/* MOVE OVER ONLY 00361000 * OLD PARMLIST @G33SPHW*/ 00362000 MVC ABDPARMS(20,ABDARPTR),SNPPARMS(SNAPPTR) 0320 00363000 * END; 0321 00364000 * END; 0322 00365000 * ELSE 0323 00366000 * DO; /* MOVE REL.1 PARMLIST TO SNAP 0323 00367000 * WORKAREA */ 00368000 B @RC00313 0323 00369000 @RF00313 DS 0H 0324 00370000 * ABDPID=SPIDENT; /* INIT ID FIELD */ 00371000 MVC ABDPID(1,ABDARPTR),SPIDENT(SNAPPTR) 0324 00372000 * IF SPABEND='1'B THEN/* CALLER (SNAP OR ABEND) */ 00373000 TM SPABEND(SNAPPTR),B'10000000' 0325 00374000 BNO @RF00325 0325 00375000 * APFABEND='1'B; 0326 00376000 OI APFABEND(ABDARPTR),B'00010000' 0326 00377000 * IF SPID='1'B THEN /* ID PROVIDED */ 00378000 @RF00325 TM SPID(SNAPPTR),B'00000010' 0327 00379000 BNO @RF00327 0327 00380000 * APFID='1'B; 0328 00381000 OI APFID(ABDARPTR),B'00001000' 0328 00382000 * IF SPTCB='1'B THEN /* TCB PROVIDED */ 00383000 @RF00327 TM SPTCB(SNAPPTR),B'01000000' 0329 00384000 BNO @RF00329 0329 00385000 * APFTCB='1'B; 0330 00386000 OI APFTCB(ABDARPTR),B'00000100' 0330 00387000 * IF SPSNAP='1'B THEN /* SNAP STORAGE LIST PROVIDED */ 00388000 @RF00329 TM SPSNAP(SNAPPTR),B'00000100' 0331 00389000 BNO @RF00331 0331 00390000 * APFSNAPP='1'B; 0332 00391000 OI APFSNAPP(ABDARPTR),B'00000010' 0332 00392000 * IF SPNUC='1'B THEN /* NUCLEUS REQESTED */ 00393000 @RF00331 TM SPNUC(SNAPPTR),B'00001000' 0333 00394000 BNO @RF00333 0333 00395000 * APFNUC='1'B; 0334 00396000 OI APFNUC(ABDARPTR),B'10000000' 0334 00397000 * IF SPTRACE='1'B THEN/* TRACE REQUESTED */ 00398000 @RF00333 TM SPTRACE(SNAPPTR),B'00010000' 0335 00399000 BNO @RF00335 0335 00400000 * APFTRACE='1'B; 0336 00401000 OI APFTRACE(ABDARPTR),B'00001000' 0336 00402000 * IF SPSUPDA='1'B THEN/* CONTROL BLOCKS REQUESTED */ 00403000 @RF00335 TM SPSUPDA(SNAPPTR),B'00100000' 0337 00404000 BNO @RF00337 0337 00405000 * APFSUPDA='1'B; 0338 00406000 OI APFSUPDA(ABDARPTR),B'00000100' 0338 00407000 * IF SPQCB='1'B THEN /* QCBS AND QELS REQESTED */ 00408000 @RF00337 TM SPQCB(SNAPPTR),B'00000001' 0339 00409000 BNO @RF00339 0339 00410000 * APFQCB='1'B; 0340 00411000 OI APFQCB(ABDARPTR),B'00000010' 0340 00412000 * APFPDATA=SPFLAG2; /* PDATA OPTIONS */ 00413000 @RF00339 MVC APFPDATA(1,ABDARPTR),SPFLAG2(SNAPPTR) 0341 00414000 * ABDPDCBP=SPDCBP; /* DCB ADDR */ 00415000 L @11,SPDCBP(,SNAPPTR) 0342 00416000 ST @11,ABDPDCBP(,ABDARPTR) 0342 00417000 * ABDPTCBP=SPTCBP; /* TCB ADDR */ 00418000 L @11,SPTCBP(,SNAPPTR) 0343 00419000 ST @11,ABDPTCBP(,ABDARPTR) 0343 00420000 * ABDSNAPP=SPSNAPP; /* STORAGE LIST ADDR */ 00421000 L @11,SPSNAPP(,SNAPPTR) 0344 00422000 ST @11,ABDSNAPP(,ABDARPTR) 0344 00423000 * END; 0345 00424000 * END; 0346 00425000 * ELSE /* ABEND CALLING, MODESET 0347 00426000 * UNNEEDED */ 00427000 * ABDPARMS=SNPPARMS; /* COPY LIST TO WORKAREA. */ 00428000 B @RC00278 0347 00429000 @RF00278 MVC ABDPARMS(24,ABDARPTR),SNPPARMS(SNAPPTR) 0347 00430000 * RFY 0348 00431000 * (R3, 0348 00432000 * R10) UNRSTD; 0348 00433000 @RC00278 DS 0H 0349 00434000 EJECT 00435000 * IF APFABEND=ON THEN /* WAS ABEND THE CALLER... */ 00436000 TM APFABEND(ABDARPTR),B'00010000' 0349 00437000 BNO @RF00349 0349 00438000 * DO; 0350 00439000 * 0350 00440000 * /*********************************************************/ 00441000 * /* */ 00442000 * /* ENQ ON DUMP DATA SET WITH MAJOR NAME OF SYSIEA01 AND */ 00443000 * /* MINOR NAME OF DCB ADDRESS SUPPLIED BY CALLER */ 00444000 * /* */ 00445000 * /*********************************************************/ 00446000 * 0351 00447000 * ENQLIST(1:20)=''B; /* ZERO ENQ PARAMETER LIST */ 00448000 L @05,RBSECPTR 0351 00449000 XC ENQLIST(20,@05),ENQLIST(@05) 0351 00450000 * LASTIND='FF'X; /* SET LAST ENTRY INDICATOR */ 00451000 MVI LASTIND(@05),X'FF' 0352 00452000 * SIZEMIN='04'X; /* SET MINOR NAME LENGTH TO 4 */ 00453000 MVI SIZEMIN(@05),X'04' 0353 00454000 * MAJAD=ADDR(MAJNM); /* SET ADDRESS OF MAJOR NAME */ 00455000 LA @03,MAJNM(,@05) 0354 00456000 ST @03,MAJAD(,@05) 0354 00457000 * MINAD=ADDR(ABDPDCBP); /* SET MINOR NAME TO ADDR OF DCB */ 00458000 LA @03,ABDPDCBP(,ABDARPTR) 0355 00459000 ST @03,MINAD(,@05) 0355 00460000 * PARMPTR=ADDR(ENQLIST); /* GET ADDR OF ENQUEUE PARMLIST */ 00461000 LA PARMPTR,ENQLIST(,@05) 0356 00462000 * MAJNM='SYSIEA01'; 0357 00463000 MVC MAJNM(8,@05),@CC04293 0357 00464000 * GEN(ENQ (,,E,,STEP),MF=(E,(PARMPTR))); 0358 00465000 ENQ (,,E,,STEP),MF=(E,(PARMPTR)) 00466000 * END; 0359 00467000 EJECT 00468000 * EDCB='1'B; /* INDICATE DCB VALIDITY CHECK */ 00469000 @RF00349 OI EDCB(ABDARPTR),B'00100000' 0360 00470000 * DCBPTR=ABDPDCBP; /* GET ADDRESS OF DCB FROM SNAP 00471000 * WORK AREA */ 00472000 L @05,ABDPDCBP(,ABDARPTR) 0361 00473000 ST @05,DCBPTR 0361 00474000 * IF DCBPTR=0| /* IF NO DCB ADDRESS PROVIDED OR */ 00475000 * DCBOFOPN=OFF /* IF DCB IS NOT FLAGGED AS 0362 00476000 * OPENED */ 00477000 * THEN /* DCB IS NOT VALID */ 00478000 LTR @05,@05 0362 00479000 BZ @RT00362 0362 00480000 TM DCBOFOPN+40(@05),B'00010000' 0362 00481000 BNZ @RF00362 0362 00482000 @RT00362 DS 0H 0363 00483000 * DO; 0363 00484000 * CALL DEQFREE; /* FREE WORK AREA */ 00485000 BAL @14,DEQFREE 0364 00486000 * SAVERET=4; /* SET RETURN CODE FOR INVALID 0365 00487000 * DCB */ 00488000 LA SAVERET,4 0365 00489000 * END; 0366 00490000 * ELSE 0367 00491000 * DO; 0367 00492000 * 0367 00493000 B @RC00362 0367 00494000 @RF00362 DS 0H 0368 00495000 * /*********************************************************/ 00496000 * /* */ 00497000 * /* THE FOLLOWING SECTION ISSUES A QMNGRIO MACRO TO BRING */ 00498000 * /* @Z40MPXG*/ 00499000 * /* THE JFCB IN FROM SWA. WE CHECK JFCFCBID FOR STD3 */ 00500000 * /* @Z40MPXG*/ 00501000 * /* AND IF EQUAL, SET ABDPCAP TO 78 FOR A CONDENSED PAGE */ 00502000 * /* @ZA28973*/ 00503000 * /* OTHERWISE SET IT TO 51 FOR A STANDARD LENGTH PAGE */ 00504000 * /* @Z40MPXG*/ 00505000 * /* THEN IF A JFCBE EXISTS (JFCBEXTP ON) REISSUE THE */ 00506000 * /* @Z40MPXG*/ 00507000 * /* MACRO TO BRING IN THE JFCBE. HERE WE CHECK FOR THE */ 00508000 * /* @Z40MPXG*/ 00509000 * /* CONDENSED LINE (204 CHARS) OPTION, I.E. IF JFCBTRS1 */ 00510000 * /* @Z40MPXG*/ 00511000 * /* IS EQUAL TO DUMP. IF NO JFCBE, ASSUME STANDARD LINE */ 00512000 * /* @Z40MPXG*/ 00513000 * /* */ 00514000 * /*********************************************************/ 00515000 * 0368 00516000 * SAVREG=ADDR(SAVAREA); /* RESTORE R13 VALUE @Z40MPXG*/ 00517000 LA SAVREG,SAVAREA(,ABDARPTR) 0368 00518000 * TIOTPTR=DCBTIOT-LENGTH(TIOT1)+TCBTIO;/* TO TIOT @Z40MPXG*/ 00519000 L @05,DCBPTR 0369 00520000 LH @05,DCBTIOT+40(,@05) 0369 00521000 SL @05,@CF00482 0369 00522000 AL @05,TCBTIO(,TCBPTR) 0369 00523000 ST @05,TIOTPTR 0369 00524000 * RFY 0370 00525000 * R10 RSTD; /* RESTRICT FOR SHIFT @Z40MPXG*/ 00526000 * R10=TIOEJFCB; /* GET SVA OF THE JFCB @Z40MPXG*/ 00527000 SLR R10,R10 0371 00528000 ICM R10,7,TIOEJFCB(@05) 0371 00529000 * SLL(R10,8); /* SHIFT TO HIGH ORDER BYTE 0372 00530000 * @Z40MPXG*/ 00531000 SLL R10,8 0372 00532000 * QMIDSKAD=R10; /* SAVE IN PARAMETER LIST 0373 00533000 * @Z40MPXG*/ 00534000 L @11,QMIOPPTR 0373 00535000 ST R10,QMIDSKAD(,@11) 0373 00536000 * RFY 0374 00537000 * R10 UNRSTD; /* FREE THE REGISTER @Z40MPXG*/ 00538000 * RFY 0375 00539000 * (R1) RSTD; /* RESTRICT PARMLIST PTR @Z40MPXG*/ 00540000 * R1=QMIOPPTR; /* SET PARMLIST PTR IN R1 0376 00541000 * @Z40MPXG*/ 00542000 LR R1,@11 0376 00543000 * ERESTART=ADDR(QMRECVR); /* SET RECOVERY ADDRESS @Z40MPXG*/ 00544000 LA @05,QMRECVR 0377 00545000 ST @05,ERESTART(,ABDARPTR) 0377 00546000 * GEN REFS(CVTJESCT,JESRESQM); 0378 00547000 * /* GENERATE MACRO CALL @Z40MPXG*/ 00548000 QMNGRIO Z40MPXG 00549000 * ERESTART=0; /* CLEAR RECOVERY ROUTINE 0379 00550000 * @Z40MPXG*/ 00551000 SLR @05,@05 0379 00552000 ST @05,ERESTART(,ABDARPTR) 0379 00553000 * JFCBPTR=QMIRECAD; /* SET BASE FOR JFCB @Z40MPXG*/ 00554000 L @05,QMIOPPTR 0380 00555000 L @05,QMIRECAD(,@05) 0380 00556000 ST @05,JFCBPTR 0380 00557000 * IF JFCFCBID='STD3' THEN /* IF CONDENSED PAGE REQUESTED 0381 00558000 * @Z40MPXG*/ 00559000 CLC JFCFCBID(4,@05),@CC04297 0381 00560000 BNE @RF00381 0381 00561000 * ABDPCAP=78; /* SET PAGE CAPACITY TO 78 0382 00562000 * @ZA28973*/ 00563000 MVI ABDPCAP(ABDARPTR),X'4E' 0382 00564000 * ELSE /* OTHERWISE, STANDARD PAGE 0383 00565000 * @Z40MPXG*/ 00566000 * ABDPCAP=56; /* CAPACITY OF 55 LINES @Z40MPXG*/ 00567000 B @RC00381 0383 00568000 @RF00381 MVI ABDPCAP(ABDARPTR),X'38' 0383 00569000 * IF JFCBEXTP=ON THEN /* IF JFCBE EXISTS THEN GET IT 0384 00570000 * @Z40MPXG*/ 00571000 @RC00381 L @05,JFCBPTR 0384 00572000 TM JFCBEXTP(@05),B'10000000' 0384 00573000 BNO @RF00384 0384 00574000 * DO; /* THROUGH ANOTHER MACRO CALL 0385 00575000 * @Z40MPXG*/ 00576000 * RFY 0386 00577000 * R10 RSTD; /* RESTRICT FOR SHIFT @Z40MPXG*/ 00578000 * R10=JFCBEXAD; /* GET SVA OF JFCBE @Z40MPXG*/ 00579000 L R10,JFCBEXAD-1(,@05) 0387 00580000 LA R10,0(,R10) 0387 00581000 * SLL(R10,8); /* SHIFT TO HIGH ORDER @Z40MPXG*/ 00582000 SLL R10,8 0388 00583000 * QMIDSKAD=R10; /* SAVE IN PARMLIST @Z40MPXG*/ 00584000 L @11,QMIOPPTR 0389 00585000 ST R10,QMIDSKAD(,@11) 0389 00586000 * RFY 0390 00587000 * R10 UNRSTD; /* FREE THE REGISTER @Z40MPXG*/ 00588000 * R1=QMIOPPTR; /* SET ADDRESS OF PARMLIST 0391 00589000 * @Z40MPXG*/ 00590000 LR R1,@11 0391 00591000 * ERESTART=ADDR(QMRECVR);/* SETIRECOVERY ADDRESS 0392 00592000 * @Z40MPXG*/ 00593000 LA @05,QMRECVR 0392 00594000 ST @05,ERESTART(,ABDARPTR) 0392 00595000 * GEN REFS(CVTJESCT,JESRESQM); 0393 00596000 * /* GENERATE MACRO CALL @Z40MPXG*/ 00597000 QMNGRIO Z40MPXG 00598000 * ERESTART=0; /* CLEAR RECOVERY ROUTINE 0394 00599000 * @Z40MPXG*/ 00600000 SLR @05,@05 0394 00601000 ST @05,ERESTART(,ABDARPTR) 0394 00602000 * JFCBEPTR=QMIRECAD; /* SET BASE FOR JFCBE @Z40MPXG*/ 00603000 L @05,QMIOPPTR 0395 00604000 L @05,QMIRECAD(,@05) 0395 00605000 ST @05,JFCBEPTR 0395 00606000 * IF JFCBTRS1='DUMP' THEN/* IF LONG LINE REQUESTED 0396 00607000 * @Z40MPXG*/ 00608000 CLC JFCBTRS1(4,@05),@CC04299 0396 00609000 BNE @RF00396 0396 00610000 * ABDLLNGH=204; /* SET LINE CAPACITY TO 204 0397 00611000 * @Z40MPXG*/ 00612000 MVI ABDLLNGH(ABDARPTR),X'CC' 0397 00613000 * ELSE /* OTHERWISE USE STANDARD LINE 0398 00614000 * @Z40MPXG*/ 00615000 * ABDLLNGH=120; /* LENGTH OF 120 CHARACTERS 0398 00616000 * @Z40MPXG*/ 00617000 B @RC00396 0398 00618000 @RF00396 MVI ABDLLNGH(ABDARPTR),X'78' 0398 00619000 * END; /* END JFCBE PROCESSING @Z40MPXG*/ 00620000 * ELSE /* IF NO JFCBE THEN SET LINE 0400 00621000 * @Z40MPXG*/ 00622000 * ABDLLNGH=120; /* CAPACITY TO NORMAL 120 CHARS 00623000 * @Z40MPXG*/ 00624000 B @RC00384 0400 00625000 @RF00384 MVI ABDLLNGH(ABDARPTR),X'78' 0400 00626000 * RFY 0401 00627000 * (R1) UNRSTD; /* FREE UP REG 1 @Z40MPXG*/ 00628000 * 0401 00629000 @RC00384 DS 0H 0402 00630000 * /*********************************************************/ 00631000 * /* */ 00632000 * /* ALL OF THE FOLLOWING CONDITIONS MUST BE TRUE OR */ 00633000 * /* CONTROL IS RETURNED TO THE CALLER WITH A CODE OF */ 00634000 * /* TWELVE 1. THE DCB DSORG VALUE MUST SPECIFY PHYSICAL */ 00635000 * /* SEQUENTIAL 2. RECORD FORMAT MUST BE VBA 3. LOGICAL */ 00636000 * /* RECORD LENGTH MUST BE 125 (209 FOR 3800 PRINTER) 4. */ 00637000 * /* MACRF MUST BE BSAM WRITE 5. BLOCKSIZE MUST BE 882 OR */ 00638000 * /* 1632 (1470 OR 2724 FOR 3800 PRTR) */ 00639000 * /* */ 00640000 * /*********************************************************/ 00641000 * 0402 00642000 * IF(ABDLLNGH=120&(DCBDSGPS=OFF|DCBRECFM^='54'X|DCBLRECL^=125 00643000 * |DCBMACRF^='0020'X|DCBBLKSI^=882&DCBBLKSI^=1632))|( 00644000 * ABDLLNGH=204& /* IF LONG LINE AND ANY @Z40MPXG*/ 00645000 * (DCBDSGPS=OFF| /* OF THE FOLLOWING @Z40MPXG*/ 00646000 * DCBRECFM^='54'X| /* CONDITIONS ARE NOT @Z40MPXG*/ 00647000 * DCBLRECL^=209| /* MET, THEN DCB IS IN @Z40MPXG*/ 00648000 * DCBMACRF^='0020'X| /* ERROR. @Z40MPXG*/ 00649000 * DCBBLKSI^=1470& /* @Z40MPXG*/ 00650000 * DCBBLKSI^=2724)) /* @Z40MPXG*/ 00651000 * THEN 0402 00652000 CLI ABDLLNGH(ABDARPTR),120 0402 00653000 BNE @GL00002 0402 00654000 L @05,DCBPTR 0402 00655000 TM DCBDSGPS+16(@05),B'01000000' 0402 00656000 BZ @RT00402 0402 00657000 CLI DCBRECFM+28(@05),X'54' 0402 00658000 BNE @RT00402 0402 00659000 CLC DCBLRECL+72(2,@05),@CH04301 0402 00660000 BNE @RT00402 0402 00661000 CLC DCBMACRF+40(2,@05),@CB04302 0402 00662000 BNE @RT00402 0402 00663000 LH @05,DCBBLKSI+52(,@05) 0402 00664000 C @05,@CF04303 0402 00665000 BE @GL00002 0402 00666000 C @05,@CF04304 0402 00667000 BNE @RT00402 0402 00668000 @GL00002 CLI ABDLLNGH(ABDARPTR),204 0402 00669000 BNE @RF00402 0402 00670000 L @05,DCBPTR 0402 00671000 TM DCBDSGPS+16(@05),B'01000000' 0402 00672000 BZ @RT00402 0402 00673000 CLI DCBRECFM+28(@05),X'54' 0402 00674000 BNE @RT00402 0402 00675000 CLC DCBLRECL+72(2,@05),@CH04305 0402 00676000 BNE @RT00402 0402 00677000 CLC DCBMACRF+40(2,@05),@CB04302 0402 00678000 BNE @RT00402 0402 00679000 LH @05,DCBBLKSI+52(,@05) 0402 00680000 C @05,@CF04306 0402 00681000 BE @RF00402 0402 00682000 C @05,@CF04307 0402 00683000 BE @RF00402 0402 00684000 @RT00402 DS 0H 0403 00685000 * DO; 0403 00686000 * CALL DEQFREE; /* FREE WORK AREA */ 00687000 BAL @14,DEQFREE 0404 00688000 * SAVERET=12; /* SET RETURN CODE FOR INVLAID 0405 00689000 * DCB */ 00690000 LA SAVERET,12 0405 00691000 * END; 0406 00692000 * ELSE 0407 00693000 * DO; 0407 00694000 * 0407 00695000 B @RC00402 0407 00696000 @RF00402 DS 0H 0408 00697000 * /*****************************************************/ 00698000 * /* */ 00699000 * /* STORAGE FOR AN UNPROTECTED DECB AND UNPROTECTED */ 00700000 * /* SAVE AREA ARE OBTAINED FORM SP250 FOR USE BY THE */ 00701000 * /* PRINT ROUTINE(IEAVAD11) */ 00702000 * /* */ 00703000 * /*****************************************************/ 00704000 * 0408 00705000 *QMRETRY: 0408 00706000 * EDCB='0'B; /* TURN OFF VALIDITY CHK @Z40MPXG*/ 00707000 QMRETRY NI EDCB(ABDARPTR),B'11011111' 0408 00708000 * PARMPTR=ADDR(ABDGMA);/* INIT GETMAIN PARMLIST PTR */ 00709000 LA PARMPTR,ABDGMA(,ABDARPTR) 0409 00710000 * GENERATE; 0410 00711000 GETMAIN EC,LV=96, 72 BYTE SAVE AREA; 24 BYTE DECB C00712000 SP=250, C00713000 A=ABDDECB(ABDARPTR), C00714000 MF=(E,(1)) 00715000 * IF RETCODE^=0 /* SPACE AVAILABLE? */ 00716000 * THEN /* NO */ 00717000 LTR RETCODE,RETCODE 0411 00718000 BZ @RF00411 0411 00719000 * DO; /* SET RETURN CODE */ 00720000 * CALL DEQFREE; /* FREE WORK AREA */ 00721000 BAL @14,DEQFREE 0413 00722000 * SAVERET=8; /* RETURN CODE FOR NO SPACE. */ 00723000 LA SAVERET,8 0414 00724000 * END; 0415 00725000 * ELSE 0416 00726000 * DO; 0416 00727000 B @RC00411 0416 00728000 @RF00411 DS 0H 0417 00729000 * ABDSAVE=ABDDECB+24;/* SAVE ADDR OF OUTPUT SAVE 0417 00730000 * AREA */ 00731000 LA @05,24 0417 00732000 AL @05,ABDDECB(,ABDARPTR) 0417 00733000 ST @05,ABDSAVE(,ABDARPTR) 0417 00734000 * ABDDCB=DCBPTR; /* SAVE ADDR OF DCB */ 00735000 * 0418 00736000 L @05,DCBPTR 0418 00737000 ST @05,ABDDCB(,ABDARPTR) 0418 00738000 * /*************************************************/ 00739000 * /* */ 00740000 * /* IF OUTPUT DEVICE IS A PRINTER, OUTPUT IS */ 00741000 * /* UNBLOCKED AND THE SYNAD ROUTINE IS FORCED TO A*/ 00742000 * /* BR 14 INSTRUCTION. */ 00743000 * /* */ 00744000 * /*************************************************/ 00745000 * 0419 00746000 * IF ABDLLNGH=204 THEN/* IF LONG LINE THEN @Z40MPXG*/ 00747000 CLI ABDLLNGH(ABDARPTR),204 0419 00748000 BNE @RF00419 0419 00749000 * MINSIZE=220; /* INIT LONG MINIMUM @Z40MPXG*/ 00750000 MVC MINSIZE(4),@CF04310 0420 00751000 * ELSE /* OTHERWISE, SHORT LINE @Z40MPXG*/ 00752000 * MINSIZE=136; /* INIT MINIMUM BLKSIZE. */ 00753000 B @RC00419 0421 00754000 @RF00419 MVC MINSIZE(4),@CF04311 0421 00755000 * IF DCBDEVT='48'X|/* OUTPUT DEVICE A 1403? 0422 00756000 * @YM06614*/ 00757000 * DCBDEVT='49'X|/* OUTPUT DEVICE A 3211? 0422 00758000 * @YM06614*/ 00759000 * DCBDEVT='4A'X|/* OUTPUT DEVICE A 1443? 0422 00760000 * @YM06614*/ 00761000 * DCBDEVT='4E'X/* OUTPUT DEVICE A 3800? 0422 00762000 * @Z40MPXG*/ 00763000 * THEN /* YES */ 00764000 @RC00419 LA @05,16 0422 00765000 AL @05,DCBPTR 0422 00766000 CLI DCBDEVT(@05),X'48' 0422 00767000 BE @RT00422 0422 00768000 CLI DCBDEVT(@05),X'49' 0422 00769000 BE @RT00422 0422 00770000 CLI DCBDEVT(@05),X'4A' 0422 00771000 BE @RT00422 0422 00772000 CLI DCBDEVT(@05),X'4E' 0422 00773000 BNE @RF00422 0422 00774000 @RT00422 DS 0H 0423 00775000 * DO; 0423 00776000 * DCBSYNA=ADDR(CVTBRET);/* SET DCB SYNAD RTN 0424 00777000 * ADDR TO BR 14 IN CVT */ 00778000 L @05,CVTPTR 0424 00779000 LA @05,CVTBRET(,@05) 0424 00780000 L @03,DCBPTR 0424 00781000 STCM @05,7,DCBSYNA+52(@03) 0424 00782000 * IF ABDLLNGH=204 THEN/* IF LONG LINE THEN 0425 00783000 * @Z40MPXG*/ 00784000 CLI ABDLLNGH(ABDARPTR),204 0425 00785000 BNE @RF00425 0425 00786000 * MAXSIZE=220;/* SET LONG MAXIMUM @Z40MPXG*/ 00787000 MVC MAXSIZE(4),@CF04310 0426 00788000 * ELSE /* OTHERWISE @Z40MPXG*/ 00789000 * MAXSIZE=136;/* NO BLOCKING IS PROVIDED */ 00790000 B @RC00425 0427 00791000 @RF00425 MVC MAXSIZE(4),@CF04311 0427 00792000 * END; 0428 00793000 * ELSE /* TRY TO BLOCK OUTPUT */ 00794000 * DO; 0429 00795000 B @RC00422 0429 00796000 @RF00422 DS 0H 0430 00797000 * MAXSIZE=DCBBLKSI;/* BLOCKING REQUESTED BY 0430 00798000 * USER */ 00799000 L @05,DCBPTR 0430 00800000 LH @05,DCBBLKSI+52(,@05) 0430 00801000 ST @05,MAXSIZE 0430 00802000 * END; 0431 00803000 * EDCB='0'B; /* TURN OFF VALIDITY CHECK 0432 00804000 * INDICATOR */ 00805000 * 0432 00806000 @RC00422 NI EDCB(ABDARPTR),B'11011111' 0432 00807000 * /*************************************************/ 00808000 * /* */ 00809000 * /* A CONDITIONAL VARIABLE GETMAIN IS ISSUED FOR */ 00810000 * /* 136 OR 220 TO THE DCB BUFFER SIZE AS */ 00811000 * /* PREVIOULSY DETERMINED. IF GETMAIN FAILS NO */ 00812000 * /* DUMP WILL BE PROVIDED */ 00813000 * /* */ 00814000 * /*************************************************/ 00815000 * 0433 00816000 * PARMPTR=ADDR(ABDGMA);/* INIT GETMAIN PARMLIST PTR*/ 00817000 LA PARMPTR,ABDGMA(,ABDARPTR) 0433 00818000 * GENERATE REFS(MINMAX); 0434 00819000 * /* ISSUE GETMAIN @G33SPHW*/ 00820000 GETMAIN VC,LA=MINMAX,A=ABDBUFFS(ABDARPTR),SP=250,MF=(E,(1)) 00821000 * IF RETCODE^=0 /* WAS GETAMIN SUCCESSFUL? */ 00822000 * THEN /* NO */ 00823000 LTR RETCODE,RETCODE 0435 00824000 BZ @RF00435 0435 00825000 * DO; 0436 00826000 * CALL DEQFREE;/* FREE WORK AREA */ 00827000 BAL @14,DEQFREE 0437 00828000 * SAVERET=8; /* NO BUFFER SPACE RETURN CODE. */ 00829000 LA SAVERET,8 0438 00830000 * END; 0439 00831000 * ELSE 0440 00832000 * DO; 0440 00833000 B @RC00435 0440 00834000 @RF00435 DS 0H 0441 00835000 * ABDPTR=ABDBUFAD;/* PUT OUTPUT BUFFER ADDRESS 00836000 * IN DECB */ 00837000 L @05,ABDBUFAD(,ABDARPTR) 0441 00838000 ST @05,ABDPTR(,ABDARPTR) 0441 00839000 * ABDPTRS1=ABDBUFAD;/* SET INITIAL BUFFER ADDR 00840000 * FOR PRINT ROUTINE */ 00841000 ST @05,ABDPTRS1(,ABDARPTR) 0442 00842000 * ABDPTRS2=ABDBUFAD+4;/* SET NEXT AVAILABLE 0443 00843000 * BUFF ADDR */ 00844000 LA @03,4 0443 00845000 ALR @03,@05 0443 00846000 ST @03,ABDPTRS2(,ABDARPTR) 0443 00847000 * ABDPTRS3=ABDBUFAD+ABDBUFSZ;/* SET END OF 0444 00848000 * BUFFER PLUS 1 */ 00849000 AL @05,ABDBUFSZ(,ABDARPTR) 0444 00850000 ST @05,ABDPTRS3(,ABDARPTR) 0444 00851000 * IF ABDLLNGH=204 THEN/* IF LONG LINE THEN SET 00852000 * THE @Z40MPXG*/ 00853000 CLI ABDLLNGH(ABDARPTR),204 0445 00854000 BNE @RF00445 0445 00855000 * DO; /* CORRECT PHY AND LOG @Z40MPXG*/ 00856000 * ABDPHY=213;/* SET PHY @Z40MPXG*/ 00857000 MVC ABDPHY(2,ABDARPTR),@CH04316 0447 00858000 * ABDLOG=209;/* SET RDL @Z40MPXG*/ 00859000 MVC ABDLOG(2,ABDARPTR),@CH04305 0448 00860000 * END; /* END LONG LINE PROCESSING 0449 00861000 * @Z40MPXG*/ 00862000 * ELSE /* OTHERWISE SET VALUES FOR 0450 00863000 * @Z40MPXG*/ 00864000 * DO; /* SHORT LINE @Z40MPXG*/ 00865000 B @RC00445 0450 00866000 @RF00445 DS 0H 0451 00867000 * ABDPHY=129;/* SET RECORD LENGTH IN OUTPUT 00868000 * RECORD */ 00869000 MVC ABDPHY(2,ABDARPTR),@CH04317 0451 00870000 * ABDLOG=125;/* SET BLOCK LENGTH FOR 0452 00871000 * VARIABLE OUTPUT */ 00872000 MVC ABDLOG(2,ABDARPTR),@CH04301 0452 00873000 * END; 0453 00874000 * SRC1=' '; /* BLANK RESERVED CHARACTER */ 00875000 @RC00445 MVC SRC1(2,ABDARPTR),@CC04318 0454 00876000 * ABDLINEA=' ';/* BLANK LINE */ 00877000 MVI ABDLINEA+1(ABDARPTR),C' ' 0455 00878000 MVC ABDLINEA+2(203,ABDARPTR),ABDLINEA+1(ABDARPTR) 0455 00879000 MVI ABDLINEA(ABDARPTR),C' ' 0455 00880000 * ABDLCTR=1; /* SET LINE COUNT TO ONE */ 00881000 LA @05,1 0456 00882000 STH @05,ABDLCTR(,ABDARPTR) 0456 00883000 * ABDPCTR=1; /* SET PAGE COUNT TO ONE */ 00884000 STH @05,ABDPCTR(,ABDARPTR) 0457 00885000 * END; 0458 00886000 * END; 0459 00887000 @RC00435 DS 0H 0460 00888000 * END; 0460 00889000 @RC00411 DS 0H 0461 00890000 * END; 0461 00891000 @RC00402 DS 0H 0462 00892000 * IF SAVERET=0 /* WAS DCB VALID */ 00893000 * THEN 0462 00894000 @RC00362 LTR SAVERET,SAVERET 0462 00895000 BNZ @RF00462 0462 00896000 * DO; 0463 00897000 * 0463 00898000 * /*********************************************************/ 00899000 * /* */ 00900000 * /* INITIALIZATION FOR THE DISPLAY OF THE SUPERVISOR TRACE*/ 00901000 * /* TABLE IS DEPENDENT UPON THE FOLLOWING CONDITIONS BEING*/ 00902000 * /* SATISFIED: 1. THE USER REQUESTED THE TRACE TABLE TO BE*/ 00903000 * /* FORMATTED. 2. GTF IS NOT ACTIVE. 3. SUPERVISOR TRACE */ 00904000 * /* IS ACTIVE 4. SUFFICIENT CORE TO HOLD THE ENTIRE TRACE */ 00905000 * /* TABLE IS AVAIL- ABLE */ 00906000 * /* */ 00907000 * /*********************************************************/ 00908000 * 0464 00909000 * RFY 0464 00910000 * (R10, 0464 00911000 * R14, 0464 00912000 * R15) RSTD; 0464 00913000 * IF APFTRACE=ON /* WAS DISPLAY OF TRACE TABLE 0465 00914000 * REQESTED */ 00915000 * THEN 0465 00916000 TM APFTRACE(ABDARPTR),B'00001000' 0465 00917000 BNO @RF00465 0465 00918000 * DO; /* YES */ 00919000 * IF CVTGTFAV=ON /* IS GTF ACTIVE */ 00920000 * THEN 0467 00921000 L @11,CVTPTR 0467 00922000 TM CVTGTFAV(@11),B'10000000' 0467 00923000 BNO @RF00467 0467 00924000 * DO; /* YES */ 00925000 * PARMPTR=ABDCTCB;/* PASS ADDR OF CURRENT TCB TO 0469 00926000 * GTF */ 00927000 L PARMPTR,ABDCTCB(,ABDARPTR) 0469 00928000 * GENERATE; 0470 00929000 HOOK EID=IEAABOF,TYPE=P INDICATE TO GTF THAT CURRENT BUFFER 00930000 * CONTENTS ARE TO BE SAVED 00931000 * ABDGTF=ON; /* INDICATE GTF REQUESTED */ 00932000 OI ABDGTF(ABDARPTR),B'01000000' 0471 00933000 * END; 0472 00934000 * ELSE 0473 00935000 * DO; /* SUPERVISOR TRACE @G33SPHW*/ 00936000 B @RC00467 0473 00937000 @RF00467 DS 0H 0474 00938000 * IF APFABEND=OFF THEN/* ABEND CALLER @G33SPHW*/ 00939000 TM APFABEND(ABDARPTR),B'00010000' 0474 00940000 BNZ @RF00474 0474 00941000 * DO; /* YES... @G33SPHW*/ 00942000 * IF TCBRTWA^=0 THEN/* RTM2WA AVAILABLE 0476 00943000 * @G33SPHW*/ 00944000 SLR @11,@11 0476 00945000 C @11,TCBRTWA(,TCBPTR) 0476 00946000 BE @RF00476 0476 00947000 * DO; /* @G33SPHW*/ 00948000 * IF RTM2TRTB^=0 THEN/* TRACE SAVED BY RTM2 00949000 * @G33SPHW*/ 00950000 L @05,RTM2PTR(,TCBPTR) 0478 00951000 C @11,RTM2TRTB(,@05) 0478 00952000 BE @RF00478 0478 00953000 * DO; /* YES...MOVE POINTERS @G33SPHW*/ 00954000 * ABDCP=RTM2TRCU;/* SAVE TRACE CURRENT 00955000 * @G33SPHW*/ 00956000 L @11,RTM2TRCU(,@05) 0480 00957000 ST @11,ABDCP(,ABDARPTR) 0480 00958000 * ABDCP1=RTM2TRCU;/* SAVE CURRENT ENTRY 00959000 * @G33SPHW*/ 00960000 ST @11,ABDCP1(,ABDARPTR) 0481 00961000 * ABDFP=RTM2TRFS;/* SAVE FIRST ENTRY 0482 00962000 * @G33SPHW*/ 00963000 L @11,RTM2TRFS(,@05) 0482 00964000 ST @11,ABDFP(,ABDARPTR) 0482 00965000 * ABDLP=RTM2TRLS;/* SAVE LAST ENTRY 0483 00966000 * @G33SPHW*/ 00967000 L @11,RTM2TRLS(,@05) 0483 00968000 ST @11,ABDLP(,ABDARPTR) 0483 00969000 * ABDTRLN=RTM2TRLN;/* SAVE LENGTH OF 0484 00970000 * TABLE @G33SPHW*/ 00971000 L @11,RTM2TRLN(,@05) 0484 00972000 ST @11,ABDTRLN(,ABDARPTR) 0484 00973000 * ABDSUPER=ON;/* INDICATE TRACE SAVED 00974000 * @G33SPHW*/ 00975000 * ABDTRBIT=ON;/* INDICATE CORE OBTAINED 00976000 * FOR TRACE TABLE @G33SPHW*/ 00977000 OI ABDSUPER(ABDARPTR),B'10100000' 0486 00978000 * ABDTRSV=OFF;/* INSURE SAVED FLAG OFF 00979000 * @ZM45190*/ 00980000 NI ABDTRSV(ABDARPTR),B'11111101' 0487 00981000 * END; /* @G33SPHW*/ 00982000 * END; /* @G33SPHW*/ 00983000 @RF00478 DS 0H 0490 00984000 * END; /* @G33SPHW*/ 00985000 @RF00476 DS 0H 0491 00986000 * IF ABDCP=0 THEN /* TRACE NOT AVAILABLE @G33SPHW*/ 00987000 @RF00474 SLR @11,@11 0491 00988000 C @11,ABDCP(,ABDARPTR) 0491 00989000 BNE @RF00491 0491 00990000 * DO; /* NO OBTAIN @G33SPHW*/ 00991000 * IF FLCTRACE=0|/* IF TRACE TABLE IS NOT 0493 00992000 * AVAILABLE OR */ 00993000 * CVTTRACE^='07FA'X/* TRACE TABLE IS NOT 0493 00994000 * ACTIVE */ 00995000 * THEN 0493 00996000 C @11,FLCTRACE 0493 00997000 BE @RT00493 0493 00998000 L @11,CVTPTR 0493 00999000 CLC CVTTRACE(2,@11),@CB04320 0493 01000000 BE @RF00493 0493 01001000 @RT00493 DS 0H 0494 01002000 * DO; 0494 01003000 * ABDTRNAV=ON;/* SET TRACE TABLE 0495 01004000 * NOTAVAILABLE SWITCH */ 01005000 OI ABDTRNAV(ABDARPTR),B'00010000' 0495 01006000 * END; 0496 01007000 * ELSE 0497 01008000 *TR1: 0497 01009000 * DO; 0497 01010000 * 0497 01011000 B @RC00493 0497 01012000 @RF00493 DS 0H 0497 01013000 TR1 DS 0H 0498 01014000 * /*****************************************/ 01015000 * /* */ 01016000 * /* GET CORE FOR TRACE TABLE BUFFER FROM */ 01017000 * /* SUPBOOL 253. THE BUFFER IS EQUAL TO */ 01018000 * /* THE LAST TRACE TABLE ENTRY MINUS THE */ 01019000 * /* FIRST TRACE TABLE ENTRY PLUS 32 */ 01020000 * /* */ 01021000 * /*****************************************/ 01022000 * 0498 01023000 * TTPTR=FLCTRACE;/* GET ADDR OF TRACE TABLE 01024000 * PTRS */ 01025000 L @11,FLCTRACE 0498 01026000 ST @11,TTPTR 0498 01027000 * SIZE=LASTENT-FIRSTENT;/* CALCULATE SIZE 01028000 * OF TRACE TABLE */ 01029000 L SIZE,LASTENT(,@11) 0499 01030000 SL SIZE,FIRSTENT(,@11) 0499 01031000 * TRACESZ=SIZE;/* SAVE TRACE TABLE SIZE 0500 01032000 * @G33SPHW*/ 01033000 ST SIZE,TRACESZ 0500 01034000 * PARMPTR=ADDR(ABDGMA);/* SET-UP PTR TO 0501 01035000 * PARMLIST */ 01036000 LA PARMPTR,ABDGMA(,ABDARPTR) 0501 01037000 * GENERATE REFS(SIZE); 0502 01038000 * 0502 01039000 GETMAIN EC,LV=(SIZE),SP=253,A=ABDFP(ABDARPTR),MF=(E,(1)) 01040000 * /*****************************************/ 01041000 * /* */ 01042000 * /* IF STORAGE IS NOT AVAILABLE, THE TRACE*/ 01043000 * /* TABLE WILL NOT BE DIS PLAYED. */ 01044000 * /* */ 01045000 * /*****************************************/ 01046000 * 0503 01047000 * IF RETCODE^=0/* WAS STORAGE AVAILABLE */ 01048000 * THEN 0503 01049000 LTR RETCODE,RETCODE 0503 01050000 BZ @RF00503 0503 01051000 * DO; 0504 01052000 * ABDTRNAV=ON;/* SET TRACE TABLE NOT 0505 01053000 * AVAILABLE SWITCH*/ 01054000 OI ABDTRNAV(ABDARPTR),B'00010000' 0505 01055000 * END; 0506 01056000 * ELSE 0507 01057000 *TR2: 0507 01058000 * DO; 0507 01059000 * 0507 01060000 B @RC00503 0507 01061000 @RF00503 DS 0H 0507 01062000 TR2 DS 0H 0508 01063000 * /*************************************/ 01064000 * /* */ 01065000 * /* THE ENTIRE TRACE TABLE WILL BE */ 01066000 * /* MOVED INTO THE GETMAINED AREA THE */ 01067000 * /* TRACE TABLE POINTERS MUST BE */ 01068000 * /* TRANSLATED INTO THE CORRECT */ 01069000 * /* LOCATIONS WITHIN THE BUFFER. NOTE */ 01070000 * /* THAT GETMAIN RETURNED THE INITIAL */ 01071000 * /* ADDRESS INTO THE FIELD USED AS THE*/ 01072000 * /* POINTER TO THE FIRST TRACE TABLE */ 01073000 * /* ENTRY IN THE BUFFER */ 01074000 * /* */ 01075000 * /*************************************/ 01076000 * 0508 01077000 * ABDSUPER=ON;/* INDICATE SUPERVISOR 0508 01078000 * TRACE TO BE GIVEN */ 01079000 OI ABDSUPER(ABDARPTR),B'10000000' 0508 01080000 * ABDTRSV=ON;/* INDICATE SUPERVISOR 0509 01081000 * TRACE SAVED IN SNAP NOT RTM 0509 01082000 * @ZM45190*/ 01083000 OI ABDTRSV(ABDARPTR),B'00000010' 0509 01084000 * ABDTRBIT=ON;/* INDICATE CORE OBTAINED 01085000 * FOR TRACE TBL */ 01086000 OI ABDTRBIT(ABDARPTR),B'00100000' 0510 01087000 * ABDLP=TRACESZ+ABDFP-32;/* ADDR OF THE 01088000 * LAST ENTRY IN THE TRACE TABLE 01089000 * BUFFER IS THE ISZE OF THE 0511 01090000 * TABLE PLUS THE INIT ADDR MINUS 01091000 * 32 @G33SPHW*/ 01092000 * 0511 01093000 L @11,TRACESZ 0511 01094000 L @05,ABDFP(,ABDARPTR) 0511 01095000 LR @03,@11 0511 01096000 ALR @03,@05 0511 01097000 SL @03,@CF00123 0511 01098000 ST @03,ABDLP(,ABDARPTR) 0511 01099000 * /*************************************/ 01100000 * /* */ 01101000 * /* THE LOCATION OF THE CURRENT ENTRY */ 01102000 * /* IN THE TRACE TABLE BUFFER IS */ 01103000 * /* LOCATED BY ADDING THE OFFSET TO */ 01104000 * /* THE CURRENT ENTRY IN THE REAL */ 01105000 * /* TABLE TO THE INITIAL ADDRESS OF */ 01106000 * /* THE BUFFER */ 01107000 * /* */ 01108000 * /*************************************/ 01109000 * 0512 01110000 * ABDCP1=ABDFP+CURRENT-FIRSTENT;/* 0512 01111000 * CALCULATE ADDR OF CURRENT 0512 01112000 * ENTRY BEFORE MOVE */ 01113000 L @03,TTPTR 0512 01114000 LR @11,@05 0512 01115000 AL @11,CURRENT(,@03) 0512 01116000 L @03,FIRSTENT(,@03) 0512 01117000 SLR @11,@03 0512 01118000 ST @11,ABDCP1(,ABDARPTR) 0512 01119000 * ABDCP=ABDCP1;/* SAVE ADDR AFTR MOVE 01120000 * @YM03361*/ 01121000 ST @11,ABDCP(,ABDARPTR) 0513 01122000 * R14=ABDFP;/* GET INIT ADDR OF BUFFER */ 01123000 LR R14,@05 0514 01124000 * R15=TRACESZ;/* GET SIZE OF BUFFER */ 01125000 L @11,TRACESZ 0515 01126000 LR R15,@11 0515 01127000 * R10=R9;/* SAVE PTR TO TRACE TABLE 0516 01128000 * PTRS */ 01129000 LR R10,R9 0516 01130000 * R8=FIRSTENT;/* GET INIT ADDR OF TRACE 01131000 * TABLE */ 01132000 LR R8,@03 0517 01133000 * R9=TRACESZ;/* GET LENGTH OF TRACE 0518 01134000 * TABLE */ 01135000 LR R9,@11 0518 01136000 * GENERATE; 0519 01137000 MVCL R14,R8 MOVE TRACE TABLE TO BUFFER 01138000 * R9=R10;/* RESTORE PTR TO TRACE TABLE 01139000 * PTRS */ 01140000 LR R9,R10 0520 01141000 * END TR2; 0521 01142000 * END TR1; 0522 01143000 @RC00503 DS 0H 0523 01144000 * END; 0523 01145000 @RC00493 DS 0H 0524 01146000 * END; /* TRACE TABLE FROM RTM2 @G33SPHW*/ 01147000 @RF00491 DS 0H 0525 01148000 * END; /* GTF AVAILABLE @G33SPHW*/ 01149000 @RC00467 DS 0H 0526 01150000 * SAVERET=0; /* R9 IS DESTROYED BY MVCL */ 01151000 @RF00465 SLR SAVERET,SAVERET 0526 01152000 * RFY 0527 01153000 * (R10, 0527 01154000 * R14, 0527 01155000 * R15) RSTD; 0527 01156000 EJECT 01157000 * 0528 01158000 * /*********************************************************/ 01159000 * /* */ 01160000 * /* THIS SECTION OF CODE DETERMINES WHETHER THE CURRENT */ 01161000 * /* TASK IS TO BE DUMPED. THE CURRENT TCB IS DUMPED IF */ 01162000 * /* 1)NO TCB ADDRESS WAS PROVIDED. 2)TCB ADDRESS WAS SET */ 01163000 * /* TO ZERO. 3)TCB ADDRESS PROVIDED WAS SAME AS ADDRESS OF*/ 01164000 * /* CURRENT TCB. */ 01165000 * /* */ 01166000 * /*********************************************************/ 01167000 * 0528 01168000 * ETCB='1'B; /* INDICATE TCB VALIDITY CHECK */ 01169000 OI ETCB(ABDARPTR),B'01000000' 0528 01170000 * IF ABDPTCBP=0| /* IF TCB VALUE IS ZERO OR */ 01171000 * ABDCTCB=ABDPTCBP /* TCB ADDR EQUALS CURRENT TCB 0529 01172000 * ADDR */ 01173000 * THEN /* DUMP CURRENT TCB */ 01174000 L @11,ABDPTCBP(,ABDARPTR) 0529 01175000 LTR @11,@11 0529 01176000 BZ @RT00529 0529 01177000 C @11,ABDCTCB(,ABDARPTR) 0529 01178000 BNE @RF00529 0529 01179000 @RT00529 DS 0H 0530 01180000 * DO; 0530 01181000 * APFTCB=OFF; /* INDICATE CURRENT TCB WILL BE 01182000 * DUMPED */ 01183000 NI APFTCB(ABDARPTR),B'11111011' 0531 01184000 * ABDTCB=ABDCTCB; /* SET ADDR OF TASK BEING DUMPED 01185000 * TO ADDR OF CURRENT TCB */ 01186000 L @11,ABDCTCB(,ABDARPTR) 0532 01187000 ST @11,ABDTCB(,ABDARPTR) 0532 01188000 * ETCB='0'B; /* TURN OF VALIDITY CHECK 0533 01189000 * INDICATOR @G33SPHW*/ 01190000 NI ETCB(ABDARPTR),B'10111111' 0533 01191000 * END; 0534 01192000 * ELSE 0535 01193000 * DO; /* OTHERWISE VALIDITY CHECK TCB 01194000 * TO BE DUMPED */ 01195000 B @RC00529 0535 01196000 @RF00529 DS 0H 0536 01197000 * IF TCBLTC^=0& /* DOES TASK HAVE DAU. */ 01198000 * TCBLTC->TCBJSTCB=TCBLTC/* WHICH IS A JOB STEP TCB*/ 01199000 * THEN 0536 01200000 L @11,TCBLTC(,TCBPTR) 0536 01201000 LTR @11,@11 0536 01202000 BZ @RF00536 0536 01203000 C @11,TCBJSTCB(,@11) 0536 01204000 BNE @RF00536 0536 01205000 * DO; /* YES, ERROR */ 01206000 * CALL DEQFREE; /* FREE RESOURCES */ 01207000 BAL @14,DEQFREE 0538 01208000 * SAVERET=8; /* SET RETURN CODE */ 01209000 LA SAVERET,8 0539 01210000 * END; 0540 01211000 * ELSE 0541 01212000 * DO; 0541 01213000 B @RC00536 0541 01214000 @RF00536 DS 0H 0542 01215000 *VTCBG: 0542 01216000 * GENERATE REFS(PSALITA,ABDWORK); 0542 01217000 VTCBG DS 0H 0542 01218000 * GET LOCAL LOCK FOR BRANCH ENTY TO IEATRSCN. LOCAL LOCK WILL ALSO BE * 01219000 * HELD DURING BRANCH ENTRY TO STATUS. * 01220000 STM R11,R14,ABDWORK(ABDARPTR) SAVE REGS OVER SETLOCK 01221000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, C01222000 RELATED=(IEAVAD01,VTCBR(IEATRSCN)) 01223000 LM R11,R14,ABDWORK(ABDARPTR) RESTORE REGS 01224000 * CALL VALCKTCB; /* CALL IEATRSCN TO VALIDITY 0543 01225000 * CHECK TCB */ 01226000 * 0543 01227000 BAL @14,VALCKTCB 0543 01228000 * /*************************************************/ 01229000 * /* */ 01230000 * /* VALCKTCB RETURNS A CODE OF 4 TO INDICATE THAT */ 01231000 * /* THE TCB ADDR IS NOT VALID. OTHERWISE, THE CODE*/ 01232000 * /* IS ZERO. */ 01233000 * /* */ 01234000 * /*************************************************/ 01235000 * 0544 01236000 * RFY 0544 01237000 * (R0, 0544 01238000 * R15, 0544 01239000 * RETCODE) RSTD; 0544 01240000 * IF RETCODE=0 /* IF TCB ADDRESS IS VALID */ 01241000 * THEN 0545 01242000 LTR RETCODE,RETCODE 0545 01243000 BNZ @RF00545 0545 01244000 * DO; 0546 01245000 * ABDTCB=ABDPTCBP;/* INITIALIZE WORK AREA WITH 01246000 * TCB ADDR SUPPLIED BY CALLER */ 01247000 L @11,ABDPTCBP(,ABDARPTR) 0547 01248000 ST @11,ABDTCB(,ABDARPTR) 0547 01249000 * SAVREG=0; /* NO ASID PROVIDED */ 01250000 SLR SAVREG,SAVREG 0548 01251000 * R0='80000003'X;/* SET UP MASK & ENTRY CODE 0549 01252000 * FOR STATUS */ 01253000 L R0,@CF04328 0549 01254000 * R1=ABDPTCBP;/* INITIALIZE R1 WITH TCB ADDRESS*/ 01255000 LR R1,@11 0550 01256000 * SCVTSPTR=CVTABEND;/* GET ADDR OF SCVT */ 01257000 L @11,CVTPTR 0551 01258000 L @11,CVTABEND(,@11) 0551 01259000 ST @11,SCVTSPTR 0551 01260000 * R15=SCVTSTAT;/* GET ADDR OF BRANCH ENTRY TO 01261000 * STATUS */ 01262000 L R15,SCVTSTAT(,@11) 0552 01263000 * TCBADMP=ON; /* INDICATE WHICH TASK REQUESTED 01264000 * ALL OTHER TASKS IN JOB STEP TO 01265000 * BE SET NON-DISPATCHABLE */ 01266000 OI TCBADMP(TCBPTR),B'00000010' 0553 01267000 * SAVERET=0; /* SAVE RETURN CODE */ 01268000 SLR SAVERET,SAVERET 0554 01269000 * GENERATE; 0555 01270000 BALR R14,R15 CALL SVC STATUS VIA BRANCH ENTRY TO 01271000 * SET JOB STEP NON-DISPATCHABLE 01272000 * ABDSTAT='1'B;/* INDICATE STATUS ISSUED */ 01273000 OI ABDSTAT(ABDARPTR),B'00000010' 0556 01274000 * ETCB='0'B; /* TURN OF VALIDITY CHECK 0557 01275000 * INDICATOR */ 01276000 NI ETCB(ABDARPTR),B'10111111' 0557 01277000 *VTCBS: 0558 01278000 * GENERATE REFS(PSALITA,ABDWORK); 0558 01279000 VTCBS DS 0H 0558 01280000 STM R11,R14,ABDWORK(ABDARPTR) SAVE REGS OVER SETLOCK 01281000 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(IEATRSCN,IEAVAD01(VTCBG)) 01282000 LM R11,R14,ABDWORK(ABDARPTR) RESTORE REGS 01283000 * RFY 0559 01284000 * (R0, 0559 01285000 * R15, 0559 01286000 * RETCODE) UNRSTD; 0559 01287000 * END; 0560 01288000 * ELSE 0561 01289000 * DO; 0561 01290000 * 0561 01291000 B @RC00545 0561 01292000 @RF00545 DS 0H 0562 01293000 * /*********************************************/ 01294000 * /* */ 01295000 * /* THE TCB ADDRESS SUPPLIED BY THE CALLER WAS*/ 01296000 * /* INVALID. THEREFORE DEQ OFF DUMP DATA SET */ 01297000 * /* IF ABDUMP IS THE CALLER. FREE SUPERVISOR */ 01298000 * /* TRACE BUFFERS IF NECESSARY. FREE DECB AND */ 01299000 * /* SAVE AREA. FREE SNAP'S WORK AREA. RETURN */ 01300000 * /* TO CALLER WITH EIGHT RETURN CODE */ 01301000 * /* */ 01302000 * /*********************************************/ 01303000 * 0562 01304000 *VTCBR: 0562 01305000 * GENERATE REFS(PSALITA,ABDWORK); 0562 01306000 VTCBR DS 0H 0562 01307000 STM R11,R14,ABDWORK(ABDARPTR) SAVE REGS OVER SETLOCK 01308000 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(IEATRSCN,IEAVAD01(VTCBG)) 01309000 LM R11,R14,ABDWORK(ABDARPTR) RESTORE REGS 01310000 * CALL DEQFREE;/* DEQ AND FREE WORK AREA */ 01311000 BAL @14,DEQFREE 0563 01312000 * RFY 0564 01313000 * (R3, 0564 01314000 * R8) RSTD; /* PRESERVE BASE & RETURN REGS */ 01315000 * SAVERET=8; /* SET RETURN CODE */ 01316000 LA SAVERET,8 0565 01317000 * END; 0566 01318000 * END; 0567 01319000 @RC00545 DS 0H 0568 01320000 * END; 0568 01321000 @RC00536 DS 0H 0569 01322000 * IF SAVERET=0 /* WAS TCB VALID */ 01323000 * THEN /* YES */ 01324000 @RC00529 LTR SAVERET,SAVERET 0569 01325000 BNZ @RF00569 0569 01326000 * DO; 0570 01327000 * 0570 01328000 * /*****************************************************/ 01329000 * /* */ 01330000 * /* OBTAIN AND INITIALIZE INDEX @G33SPHW*/ 01331000 * /* */ 01332000 * /*****************************************************/ 01333000 * 0571 01334000 * RFY 0571 01335000 * (R0, 0571 01336000 * R1, 0571 01337000 * R15) RSTD; /* @G33SPHW*/ 01338000 * R0=NUMOPTS*LENGTH(INDXENT);/* DETERMINE SIZE OF INDEX 01339000 * NEEDED @G33SPHW*/ 01340000 LA R0,660 0572 01341000 * GEN REFS(R0); 0573 01342000 * /* @G33SPHW*/ 01343000 GETMAIN RC,LV=(R0),SP=253 /* OBTAIN INDEX BUFFER @G33SPHW*/ 01344000 * IF R15=0 THEN /* GETMAIN SUCCESSFUL @G33SPHW*/ 01345000 LTR R15,R15 0574 01346000 BNZ @RF00574 0574 01347000 * DO; /* YES... @G33SPHW*/ 01348000 * ABDINXPT=R1; /* SAVE INDEX ADDRESS IN WORKAREA 01349000 * @G33SPHW*/ 01350000 ST R1,ABDINXPT(,ABDARPTR) 0576 01351000 * ABDIDX=ON; /* INDICATE INDEX AVAILABLE 0577 01352000 * @G33SPHW*/ 01353000 OI ABDIDX(ABDARPTR),B'00000001' 0577 01354000 * INDXPTR=R1; /* INITIALIZE INDEX POINTER 0578 01355000 * @G33SPHW*/ 01356000 ST R1,INDXPTR 0578 01357000 * DO I=1 TO NUMOPTS BY 1;/* CLEAR INDEX TABLE 0579 01358000 * @G33SPHW*/ 01359000 LA @11,1 0579 01360000 STH @11,I 0579 01361000 @DL00579 DS 0H 0580 01362000 * INDXENT=' '; /* BLANK ENTRY @G33SPHW*/ 01363000 L @05,INDXPTR 0580 01364000 MVI INDXENT+1(@05),C' ' 0580 01365000 MVC INDXENT+2(42,@05),INDXENT+1(@05) 0580 01366000 MVI INDXENT(@05),C' ' 0580 01367000 * INDXPTR=INDXPTR+LENGTH(INDXENT);/* NEXT ENTRY 01368000 * @G33SPHW*/ 01369000 AL @05,@CF01670 0581 01370000 ST @05,INDXPTR 0581 01371000 * END; /* END OF INDEX CLEAR @G33SPHW*/ 01372000 AL @11,@CF00118 0582 01373000 STH @11,I 0582 01374000 C @11,@CF00081 0582 01375000 BNH @DL00579 0582 01376000 * INDXPTR=ABDINXPT;/* START OF INDEX @G33SPHW*/ 01377000 L @11,ABDINXPT(,ABDARPTR) 0583 01378000 ST @11,INDXPTR 0583 01379000 * END; /* INDEX BUILD @G33SPHW*/ 01380000 * RFY 0585 01381000 * (R0, 0585 01382000 * R1, 0585 01383000 * R15) UNRSTD; /* @G33SPHW*/ 01384000 @RF00574 DS 0H 0586 01385000 EJECT 01386000 * 0586 01387000 */********************************************************************/ 01388000 */* CONTROL IS ROUTED TO THE FUNCTIONAL AREAS OF SNAP BASED ON */ 01389000 */* THE SNAP PARAMETER LIST. CONTROL IS PASSED SUCH THAT THE DUMP */ 01390000 */* IS FORMATTED IN THE FOLLOWING ORDER: */ 01391000 */* 1 HEADING OF DUMP */ 01392000 */* 2 PSW @G33SPHW*/ 01393000 */* 3 CONTROL BLOCKS: ASCB,TCB, RBS, LLE, CDE, XTLIST, TIOT */ 01394000 */* 4 CONTROL BLOCKS: IQE, SPQE, DQE, FQE, PQE, FBQE */ 01395000 */* 5 QCB/QELS */ 01396000 */* 6 DATA MANAGEMENT C.B @G33SPHW*/ 01397000 */* 7 IOS CONTROL BLOCKS @G33SPHW*/ 01398000 */* 8 ERROR CONTROL BLOCKS @G33SPHW*/ 01399000 */* 9 SAVE AREA TRACE @G33SPHW*/ 01400000 */* 10 SUBSYSTEM INTERFACES,USER FORMATTERS @G33SPHW*/ 01401000 */* 11 NUCLEUS @G33SPHW*/ 01402000 */* 12 LSQA @G33SPHW*/ 01403000 */* 13 SP- 229/230 @G33SPHW*/ 01404000 */* 14 SWA @G33SPHW*/ 01405000 */* 15 SQA @G33SPHW*/ 01406000 */* 16 REGS @G33SPHW*/ 01407000 */* 17 SNAP LIST @G33SPHW*/ 01408000 */* 18 JPA, LPA, ACTIVE SVC'S @G33SPHW*/ 01409000 */* 19 GTF OR SUPERVISOR TRACE @G33SPHW*/ 01410000 */* 20 SUBPOOLS @G33SPHW*/ 01411000 */********************************************************************/ 01412000 * 0586 01413000 * RESPECIFY 0586 01414000 * RETCODE RESTRICTED; 0586 01415000 * PARMPTR=ABDARPTR; /* PASS SNAP W.A. TO FUNCTIONAL 01416000 * RTNS */ 01417000 LR PARMPTR,ABDARPTR 0587 01418000 * SAVREG=ABDARPTR+LENGTH(ABDAREA);/* PASS SAVE AREA, 0588 01419000 * TOO */ 01420000 LA SAVREG,680 0588 01421000 ALR SAVREG,ABDARPTR 0588 01422000 * RETCODE=0; 0589 01423000 SLR RETCODE,RETCODE 0589 01424000 * EMODNAME='IEAVAD02';/* RECOVERY MODULE ID */ 01425000 MVC EMODNAME(8,ABDARPTR),@CC04333 0590 01426000 * ERESTART=ADDR(CKPSW);/* RESTART ADDRESS @G33SPHW*/ 01427000 LA @11,CKPSW 0591 01428000 ST @11,ERESTART(,ABDARPTR) 0591 01429000 * CALL IEAVAD02; /* PROVIDE HEADER INFORMATION */ 01430000 L @15,@CV00099 0592 01431000 BALR @14,@15 0592 01432000 * IF RETCODE=0 THEN /* HEADER OK @G33SPHW*/ 01433000 * 0593 01434000 LTR RETCODE,RETCODE 0593 01435000 BNZ @RF00593 0593 01436000 * /***************************************************/ 01437000 * /* */ 01438000 * /* DISPLAY PSW IF REQUESTED @G33SPHW*/ 01439000 * /* */ 01440000 * /***************************************************/ 01441000 * 0594 01442000 *CKPSW: /* PSW DISPLAY @G33SPHW*/ 01443000 * DO; 0594 01444000 CKPSW DS 0H 0595 01445000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 01446000 * RTNS */ 01447000 LR PARMPTR,ABDARPTR 0595 01448000 * IF APFPSW=ON THEN/* PSW REQUESTED @G33SPHW*/ 01449000 TM APFPSW(ABDARPTR),B'00000100' 0596 01450000 BNO @RF00596 0596 01451000 * DO; /* YES.... @G33SPHW*/ 01452000 * EMODNAME='IEAVAD10';/* UPDATE MOD NAME 0598 01453000 * @G33SPHW*/ 01454000 MVC EMODNAME(8,ABDARPTR),@CC04336 0598 01455000 * ERESTART=ADDR(CK03);/* UPDATE RESTART ADDRESS 01456000 * @G33SPHW*/ 01457000 LA @11,CK03 0599 01458000 ST @11,ERESTART(,ABDARPTR) 0599 01459000 * ABDPSW=ON; /* INDICATE PSW DISPLAY @G33SPHW*/ 01460000 OI ABDPSW(ABDARPTR),B'10000000' 0600 01461000 * CALL IEAVAD10;/* OUTPUT PSW @G33SPHW*/ 01462000 L @15,@CV00115 0601 01463000 BALR @14,@15 0601 01464000 * ABDPSW=OFF; /* RESET PSW FLAG @G33SPHW*/ 01465000 NI ABDPSW(ABDARPTR),B'01111111' 0602 01466000 * END; 0603 01467000 * END; 0604 01468000 @RF00596 DS 0H 0605 01469000 EJECT 01470000 * IF RETCODE=0 THEN /* PSW OK @G33SPHW*/ 01471000 * 0605 01472000 @RF00593 LTR RETCODE,RETCODE 0605 01473000 BNZ @RF00605 0605 01474000 * /***************************************************/ 01475000 * /* */ 01476000 * /* DISPLAY CONTROL BLOCKS IF REQUESTED @G33SPHW*/ 01477000 * /* */ 01478000 * /***************************************************/ 01479000 * 0606 01480000 *CK03: 0606 01481000 * DO; 0606 01482000 CK03 DS 0H 0607 01483000 * IF APFSUPDA=ON /* WERE CONTROL BLOCKS REQUESTED */ 01484000 * THEN /* YES */ 01485000 TM APFSUPDA(ABDARPTR),B'00000100' 0607 01486000 BNO @RF00607 0607 01487000 * DO; 0608 01488000 * EMODNAME='IEAVAD03';/* RECOVERY MODULE ID */ 01489000 MVC EMODNAME(8,ABDARPTR),@CC04339 0609 01490000 * ERESTART=ADDR(CK06);/* RESTART ADDR */ 01491000 LA @11,CK06 0610 01492000 ST @11,ERESTART(,ABDARPTR) 0610 01493000 * CALL IEAVAD03;/* FORMAT FIRST SET OF CONTROL 01494000 * BLOCKS */ 01495000 L @15,@CV00100 0611 01496000 BALR @14,@15 0611 01497000 * IF RETCODE=0 THEN/* WAS FORMAT SUCCESSFUL */ 01498000 LTR RETCODE,RETCODE 0612 01499000 BNZ @RF00612 0612 01500000 * DO; 0613 01501000 * EMODNAME='IEAVAD05';/* UPDATE MODULE NAME*/ 01502000 MVC EMODNAME(8,ABDARPTR),@CC04341 0614 01503000 * CALL IEAVAD05;/* YES, FORMAT SECOND SET */ 01504000 L @15,@CV00101 0615 01505000 BALR @14,@15 0615 01506000 * END; 0616 01507000 * END; 0617 01508000 @RF00612 DS 0H 0618 01509000 * END; 0618 01510000 @RF00607 DS 0H 0619 01511000 EJECT 01512000 * IF RETCODE=0 THEN 0619 01513000 * 0619 01514000 @RF00605 LTR RETCODE,RETCODE 0619 01515000 BNZ @RF00619 0619 01516000 * /***************************************************/ 01517000 * /* */ 01518000 * /* DISPLAY QCBS AND QELS IF REQUESTED @G33SPHW*/ 01519000 * /* */ 01520000 * /***************************************************/ 01521000 * 0620 01522000 *CK06: 0620 01523000 * DO; 0620 01524000 CK06 DS 0H 0621 01525000 * IF APFQCB=ON THEN/* WERE QCB/QELS REQUESTED */ 01526000 TM APFQCB(ABDARPTR),B'00000010' 0621 01527000 BNO @RF00621 0621 01528000 * DO; 0622 01529000 * EMODNAME='IEAVAD06';/* UPDATE MODULE NAME */ 01530000 MVC EMODNAME(8,ABDARPTR),@CC04343 0623 01531000 * ERESTART=ADDR(CKDM);/* RESTART ADDR */ 01532000 LA @11,CKDM 0624 01533000 ST @11,ERESTART(,ABDARPTR) 0624 01534000 * CALL IEAVAD06;/* YES, FORMAT */ 01535000 L @15,@CV00102 0625 01536000 BALR @14,@15 0625 01537000 * END; 0626 01538000 * END; 0627 01539000 @RF00621 DS 0H 0628 01540000 EJECT 01541000 * IF RETCODE=0 THEN 0628 01542000 * 0628 01543000 @RF00619 LTR RETCODE,RETCODE 0628 01544000 BNZ @RF00628 0628 01545000 * /***************************************************/ 01546000 * /* */ 01547000 * /* FORMAT DATA MANAGEMENT CONTROL BLOCKS IF */ 01548000 * /* REQUESTED @G33SPHW*/ 01549000 * /* */ 01550000 * /***************************************************/ 01551000 * 0629 01552000 *CKDM: /* @G33SPHW*/ 01553000 * DO; /* @G33SPHW*/ 01554000 CKDM DS 0H 0630 01555000 * IF APFDM=ON| /* DATA MANAGEMENT CONTROL BLOCKS 01556000 * @G33SPHW*/ 01557000 * APFSUPDA=ON THEN/* OR CONTROL BLOCKS 0630 01558000 * REQUESTED @G33SPHW*/ 01559000 TM APFDM(ABDARPTR),B'00000101' 0630 01560000 BZ @RF00630 0630 01561000 * DO; /* YES... @G33SPHW*/ 01562000 * CALL ROUTINIT;/* SETUP COMPONENT PARMLIST 0632 01563000 * @G33SPHW*/ 01564000 BAL @14,ROUTINIT 0632 01565000 * IF APFDM=ON THEN/* DATA MGT REQUESTED 0633 01566000 * @G33SPHW*/ 01567000 TM APFDM(ABDARPTR),B'00000001' 0633 01568000 BNO @RF00633 0633 01569000 * DO; /* YES ... DUMP ALL DM @G33SPHW*/ 01570000 * ADPLDMGT=ON;/* DUMP ALL DATA MGT @G33SPHW*/ 01571000 L @11,ABDPLPTR 0635 01572000 OI ADPLDMGT(@11),B'00100000' 0635 01573000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE 0636 01574000 * @G33SPHW*/ 01575000 TM ABDIDX(ABDARPTR),B'00000001' 0636 01576000 BNO @RF00636 0636 01577000 * INDXNAME=DMNAME;/* DATAMGT NAME IN 0637 01578000 * INDEX @G33SPHW*/ 01579000 L @11,INDXPTR 0637 01580000 MVI INDXNAME+38(@11),C' ' 0637 01581000 MVI INDXNAME+39(@11),C' ' 0637 01582000 MVC INDXNAME(38,@11),DMNAME 0637 01583000 * ELSE 0638 01584000 * ; /* INDEX NOT AVAILABLE @G33SPHW*/ 01585000 @RF00636 DS 0H 0639 01586000 * END; /* DATA MGT REQUESTED @G33SPHW*/ 01587000 * ELSE /* ONLY DEB @G33SPHW*/ 01588000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE 0640 01589000 * @G33SPHW*/ 01590000 B @RC00633 0640 01591000 @RF00633 TM ABDIDX(ABDARPTR),B'00000001' 0640 01592000 BNO @RF00640 0640 01593000 * INDXNAME=DEBNAME;/* DEB NAME IN INDEX 0641 01594000 * @G33SPHW*/ 01595000 L @11,INDXPTR 0641 01596000 MVI INDXNAME+38(@11),C' ' 0641 01597000 MVI INDXNAME+39(@11),C' ' 0641 01598000 MVC INDXNAME(38,@11),DEBNAME 0641 01599000 * ELSE 0642 01600000 * ; /* INDEX NOT AVAILABLE @G33SPHW*/ 01601000 @RF00640 DS 0H 0643 01602000 * CALL SNPOINDX;/* CALL INDEX ROUTINE TO GET 0643 01603000 * PAGE NUMBER IN INDEX @G33SPHW*/ 01604000 @RC00633 BAL @14,SNPOINDX 0643 01605000 * EMODNAME='IECDAFMT';/* UPDATE MODULE NAME 0644 01606000 * @G33SPHW*/ 01607000 MVC EMODNAME(8,ABDARPTR),@CC04348 0644 01608000 * ERESTART=ADDR(CKIO);/* UPDATE RESTART ADDRESS 01609000 * @G33SPHW*/ 01610000 LA @11,CKIO 0645 01611000 ST @11,ERESTART(,ABDARPTR) 0645 01612000 * PARMPTR=CVTLINK;/* LINKLIB DCB @G33SPHW*/ 01613000 L @11,CVTPTR 0646 01614000 L PARMPTR,CVTLINK(,@11) 0646 01615000 * GEN( LOAD EP=IECDAFMT,DCB=(1));/* LOAD DM 0647 01616000 * FORMATTER @G33SPHW*/ 01617000 LOAD EP=IECDAFMT,DCB=(1) 01618000 * ERESTART=ADDR(DMDEL);/* UPDATE RESTART 0648 01619000 * ADDRESS @G33SPHW*/ 01620000 LA @11,DMDEL 0648 01621000 ST @11,ERESTART(,ABDARPTR) 0648 01622000 * ENTRYPTR=ENTRYREG;/* SET REG 15 TO ENTRY 0649 01623000 * POINT OF FORMATTER @G33SPHW*/ 01624000 LR ENTRYPTR,ENTRYREG 0649 01625000 * PARMPTR=ABDPLPTR;/* PUT COMPONENT PARMLIST IN 01626000 * R1 @G33SPHW*/ 01627000 L PARMPTR,ABDPLPTR 0650 01628000 * GEN(BALR RETERN,ENTRYPTR);/* INVOKE DM 0651 01629000 * FORMATTER @G33SPHW*/ 01630000 BALR RETERN,ENTRYPTR 01631000 *DMDEL: 0652 01632000 * SAV15=RETCODE;/* SAVE R15 ACROSS DELETE 0652 01633000 * @G33SPHW*/ 01634000 DMDEL ST RETCODE,SAV15 0652 01635000 * GEN(DELETE EP=IECDAFMT);/* DELETE DATAMGT 0653 01636000 * FORMATTER @G33SPHW*/ 01637000 DELETE EP=IECDAFMT 01638000 * GEN(DELETE EP=AMDPRFMT);/* DELETE PRINT DUMP 01639000 * FORMATTER @G33SPHW*/ 01640000 DELETE EP=AMDPRFMT 01641000 * ABDFMTLD=OFF;/* RESET FORMATTER LOADED FLAG 01642000 * @G33SPHW*/ 01643000 NI ABDFMTLD(ABDARPTR),B'11110111' 0655 01644000 * RETCODE=SAV15;/* RESTORE R15 @G33SPHW*/ 01645000 L RETCODE,SAV15 0656 01646000 * END; /* END. DM FORMATTER @G33SPHW*/ 01647000 * END; /* END. NO ERROR @G33SPHW*/ 01648000 @RF00630 DS 0H 0659 01649000 EJECT 01650000 * IF RETCODE=0 THEN /* DATA MGT OK @G33SPHW*/ 01651000 * 0659 01652000 @RF00628 LTR RETCODE,RETCODE 0659 01653000 BNZ @RF00659 0659 01654000 * /***************************************************/ 01655000 * /* */ 01656000 * /* FORMAT IOS CONTROL BLOCKS IF REQUESTED @G33SPHW*/ 01657000 * /* */ 01658000 * /***************************************************/ 01659000 * 0660 01660000 *CKIO: /* @G33SPHW*/ 01661000 * DO; /* @G33SPHW*/ 01662000 CKIO DS 0H 0661 01663000 * IF APFIO=ON THEN/* IO OPTION REQUESTED @G33SPHW*/ 01664000 TM APFIO(ABDARPTR),B'10000000' 0661 01665000 BNO @RF00661 0661 01666000 * DO; /* YES... @G33SPHW*/ 01667000 * CALL ROUTINIT;/* INITIALIZE IHAABDPL @G33SPHW*/ 01668000 BAL @14,ROUTINIT 0663 01669000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 01670000 TM ABDIDX(ABDARPTR),B'00000001' 0664 01671000 BNO @RF00664 0664 01672000 * DO; /* YES... UPDATE @G33SPHW*/ 01673000 * INDXNAME=IONAME;/* PUT IOS NAME IN INDEX 01674000 * @G33SPHW*/ 01675000 L @11,INDXPTR 0666 01676000 MVI INDXNAME+38(@11),C' ' 0666 01677000 MVI INDXNAME+39(@11),C' ' 0666 01678000 MVC INDXNAME(38,@11),IONAME 0666 01679000 * CALL SNPOINDX;/* CALL INDEX ROUTINE TO 0667 01680000 * PUT @G33SPHW*/ 01681000 BAL @14,SNPOINDX 0667 01682000 * END; /* PAGE NUMBER IN INDEX @G33SPHW*/ 01683000 * EMODNAME='IECIOFMT';/* UPDATE MODULE NAME 0669 01684000 * @G33SPHW*/ 01685000 @RF00664 MVC EMODNAME(8,ABDARPTR),@CC04353 0669 01686000 * ERESTART=ADDR(CKERR);/* UPDATE RESTART 0670 01687000 * ADDRESS @G33SPHW*/ 01688000 LA @11,CKERR 0670 01689000 ST @11,ERESTART(,ABDARPTR) 0670 01690000 * PARMPTR=CVTLINK;/* LINKLIB DCB @G33SPHW*/ 01691000 L @11,CVTPTR 0671 01692000 L PARMPTR,CVTLINK(,@11) 0671 01693000 * GEN(LOAD EP=IECIOFMT,DCB=(1));/* LOAD IOS 0672 01694000 * FORMATTER @G33SPHW*/ 01695000 LOAD EP=IECIOFMT,DCB=(1) 01696000 * ERESTART=ADDR(IODEL);/* UPDATE RESTART 0673 01697000 * ADDRESS @G33SPHW*/ 01698000 LA @11,IODEL 0673 01699000 ST @11,ERESTART(,ABDARPTR) 0673 01700000 * ENTRYPTR=ENTRYREG;/* R15 EQUAL ENTRY ADDRESS 01701000 * @G33SPHW*/ 01702000 LR ENTRYPTR,ENTRYREG 0674 01703000 * PARMPTR=ABDPLPTR;/* R1=PARMLIST @G33SPHW*/ 01704000 L PARMPTR,ABDPLPTR 0675 01705000 * GEN(BALR RETERN,ENTRYPTR);/* INVOKE IOS 0676 01706000 * FORMATTER @G33SPHW*/ 01707000 BALR RETERN,ENTRYPTR 01708000 *IODEL: 0677 01709000 * SAV15=RETCODE;/* SAVE R15 ACROSS DELETE 0677 01710000 * @G33SPHW*/ 01711000 IODEL ST RETCODE,SAV15 0677 01712000 * GEN(DELETE EP=IECIOFMT);/* DELETE IOS 0678 01713000 * FORMATTER @G33SPHW*/ 01714000 DELETE EP=IECIOFMT 01715000 * GEN(DELETE EP=AMDPRFMT);/* DELETE PRINT DUMP 01716000 * FORMATTER @G33SPHW*/ 01717000 DELETE EP=AMDPRFMT 01718000 * ABDFMTLD=OFF;/* RESET FORMATTER LOADED FLAG 01719000 * @G33SPHW*/ 01720000 NI ABDFMTLD(ABDARPTR),B'11110111' 0680 01721000 * RETCODE=SAV15;/* RESTORE R15 @G33SPHW*/ 01722000 L RETCODE,SAV15 0681 01723000 * END; /* END IOS FORMATTER @G33SPHW*/ 01724000 * END; /* END NO ERROR @G33SPHW*/ 01725000 @RF00661 DS 0H 0684 01726000 EJECT 01727000 * IF RETCODE=0 THEN /* IOS OK @G33SPHW*/ 01728000 * 0684 01729000 @RF00659 LTR RETCODE,RETCODE 0684 01730000 BNZ @RF00684 0684 01731000 * /***************************************************/ 01732000 * /* */ 01733000 * /* FORMAT RTM CONTROL BLOCKS IF REQUESTED @G33SPHW*/ 01734000 * /* */ 01735000 * /***************************************************/ 01736000 * 0685 01737000 *CKERR: /* @G33SPHW*/ 01738000 * DO; /* @G33SPHW*/ 01739000 CKERR DS 0H 0686 01740000 * IF APFERR=ON THEN/* ERR OPTION REQUESTED @G33SPHW*/ 01741000 TM APFERR(ABDARPTR),B'01000000' 0686 01742000 BNO @RF00686 0686 01743000 * DO; /* YES... @G33SPHW*/ 01744000 * CALL ROUTINIT;/* INITIALIZE PARMLIST @G33SPHW*/ 01745000 BAL @14,ROUTINIT 0688 01746000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 01747000 TM ABDIDX(ABDARPTR),B'00000001' 0689 01748000 BNO @RF00689 0689 01749000 * DO; /* YES... UPDATE @G33SPHW*/ 01750000 * INDXNAME=ERRNAME;/* PUT ERR NAME IN INDEX 01751000 * @G33SPHW*/ 01752000 L @11,INDXPTR 0691 01753000 MVI INDXNAME+38(@11),C' ' 0691 01754000 MVI INDXNAME+39(@11),C' ' 0691 01755000 MVC INDXNAME(38,@11),ERRNAME 0691 01756000 * CALL SNPOINDX;/* CALL INDEX ROUTINE TO 0692 01757000 * PUT @G33SPHW*/ 01758000 BAL @14,SNPOINDX 0692 01759000 * END; /* PAGE NUMBER IN INDEX @G33SPHW*/ 01760000 * EMODNAME='IEAVTFMT';/* UPDATE MODULE NAME 0694 01761000 * @G33SPHW*/ 01762000 @RF00689 MVC EMODNAME(8,ABDARPTR),@CC04358 0694 01763000 * ERESTART=ADDR(CK07);/* UPDATE RESTART ADDRESS 01764000 * @G33SPHW*/ 01765000 LA @11,CK07 0695 01766000 ST @11,ERESTART(,ABDARPTR) 0695 01767000 * PARMPTR=CVTLINK;/* LINKLIB DCB @G33SPHW*/ 01768000 L @11,CVTPTR 0696 01769000 L PARMPTR,CVTLINK(,@11) 0696 01770000 * GEN(LOAD EP=IEAVTFMT,DCB=(1));/* LOAD RTM 0697 01771000 * FORMATTER @G33SPHW*/ 01772000 LOAD EP=IEAVTFMT,DCB=(1) 01773000 * ERESTART=ADDR(ERRDEL);/* UPDATE RESTART 0698 01774000 * ADDRESS @G33SPHW*/ 01775000 LA @11,ERRDEL 0698 01776000 ST @11,ERESTART(,ABDARPTR) 0698 01777000 * ENTRYPTR=ENTRYREG;/* R15 EQUAL TO ENTRY 0699 01778000 * ADDRESS @G33SPHW*/ 01779000 LR ENTRYPTR,ENTRYREG 0699 01780000 * PARMPTR=ABDPLPTR;/* R1 EQUAL TO PARMLIST 0700 01781000 * @G33SPHW*/ 01782000 L PARMPTR,ABDPLPTR 0700 01783000 * GEN(BALR RETERN,ENTRYPTR);/* INVOKE RTM 0701 01784000 * FORMATTER @G33SPHW*/ 01785000 BALR RETERN,ENTRYPTR 01786000 *ERRDEL: 0702 01787000 * SAV15=RETCODE;/* SAVE R15 ACROSS DELETE 0702 01788000 * @G33SPHW*/ 01789000 ERRDEL ST RETCODE,SAV15 0702 01790000 * GEN(DELETE EP=IEAVTFMT);/* DELETE ERROR 0703 01791000 * FORMATTER @G33SPHW*/ 01792000 DELETE EP=IEAVTFMT 01793000 * GEN(DELETE EP=AMDPRFMT);/* DELETE PRINT DUMP 01794000 * FORMATTER @G33SPHW*/ 01795000 DELETE EP=AMDPRFMT 01796000 * ABDFMTLD=OFF;/* RESET FORMATTER LOADED FLAG 01797000 * @G33SPHW*/ 01798000 NI ABDFMTLD(ABDARPTR),B'11110111' 0705 01799000 * RETCODE=SAV15;/* RESTORE R15 @G33SPHW*/ 01800000 L RETCODE,SAV15 0706 01801000 * END; /* END ERR FORMATTER @G33SPHW*/ 01802000 * END; /* END.. NO ERROR @G33SPHW*/ 01803000 @RF00686 DS 0H 0709 01804000 EJECT 01805000 * IF RETCODE=0 THEN /* ERROR OK @G33SPHW*/ 01806000 * 0709 01807000 @RF00684 LTR RETCODE,RETCODE 0709 01808000 BNZ @RF00709 0709 01809000 * /***************************************************/ 01810000 * /* */ 01811000 * /* DISPLAY SAVEAREAS IF REQUESTED @G33SPHW*/ 01812000 * /* */ 01813000 * /***************************************************/ 01814000 * 0710 01815000 *CK07: 0710 01816000 * DO; 0710 01817000 CK07 DS 0H 0711 01818000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 01819000 * RTNS */ 01820000 LR PARMPTR,ABDARPTR 0711 01821000 * IF APFSAVE=ON THEN/* WERE SAVE AREAS REQUESTED */ 01822000 TM APFSAVE(ABDARPTR),B'10000000' 0712 01823000 BNO @RF00712 0712 01824000 * DO; 0713 01825000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 01826000 TM ABDIDX(ABDARPTR),B'00000001' 0714 01827000 BNO @RF00714 0714 01828000 * DO; /* YES... UPDATE @G33SPHW*/ 01829000 * INDXNAME=SAVENAME;/* SAVEAREA NAME IN 0716 01830000 * INDEX @G33SPHW*/ 01831000 L @11,INDXPTR 0716 01832000 MVI INDXNAME+38(@11),C' ' 0716 01833000 MVI INDXNAME+39(@11),C' ' 0716 01834000 MVC INDXNAME(38,@11),SAVENAME 0716 01835000 * CALL SNPOINDX;/* PAGE NUMBER IN INDEX 0717 01836000 * @G33SPHW*/ 01837000 BAL @14,SNPOINDX 0717 01838000 * END; /* END... INDEX @G33SPHW*/ 01839000 * EMODNAME='IEAVAD07';/* UPDATE MODULE NAME */ 01840000 @RF00714 MVC EMODNAME(8,ABDARPTR),@CC04363 0719 01841000 * ERESTART=ADDR(CK08);/* UPDATE RESTART ADDR */ 01842000 LA @11,CK08 0720 01843000 ST @11,ERESTART(,ABDARPTR) 0720 01844000 * CALL IEAVAD07;/* YES, FORMAT */ 01845000 L @15,@CV00103 0721 01846000 BALR @14,@15 0721 01847000 * END; 0722 01848000 * END; 0723 01849000 @RF00712 DS 0H 0724 01850000 EJECT 01851000 * IF RETCODE=0 THEN 0724 01852000 * 0724 01853000 @RF00709 LTR RETCODE,RETCODE 0724 01854000 BNZ @RF00724 0724 01855000 * /***************************************************/ 01856000 * /* */ 01857000 * /* DISPLAY SUBSYSTEM AND USER FORMATTERS IF */ 01858000 * /* REQUESTED @G33SPHW*/ 01859000 * /* */ 01860000 * /***************************************************/ 01861000 * 0725 01862000 *CK08: 0725 01863000 * DO; 0725 01864000 CK08 DS 0H 0726 01865000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 01866000 * RTNS */ 01867000 LR PARMPTR,ABDARPTR 0726 01868000 * IF APFSUPDA=ON THEN/* SHOULD SUBSYSTEM RTNS BE 0727 01869000 * CALLED */ 01870000 TM APFSUPDA(ABDARPTR),B'00000100' 0727 01871000 BNO @RF00727 0727 01872000 * DO; 0728 01873000 * EMODNAME='IEAVAD08';/* UPDATE MODULE NAME */ 01874000 MVC EMODNAME(8,ABDARPTR),@CC04366 0729 01875000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 01876000 TM ABDIDX(ABDARPTR),B'00000001' 0730 01877000 BNO @RF00730 0730 01878000 * DO; /* YES... UPDATE @G33SPHW*/ 01879000 * INDXNAME=SUBNAME;/* SUBSYSTEM NAME IN 0732 01880000 * INDEX @G33SPHW*/ 01881000 L @11,INDXPTR 0732 01882000 MVI INDXNAME+38(@11),C' ' 0732 01883000 MVI INDXNAME+39(@11),C' ' 0732 01884000 MVC INDXNAME(38,@11),SUBNAME 0732 01885000 * CALL SNPOINDX;/* PAGE NUMBER IN INDEX 0733 01886000 * @G33SPHW*/ 01887000 BAL @14,SNPOINDX 0733 01888000 * END; /* END -- INDEX @G33SPHW*/ 01889000 * ERESTART=ADDR(CK09);/* UPDATE RESTART ADDR */ 01890000 @RF00730 LA @11,CK09 0735 01891000 ST @11,ERESTART(,ABDARPTR) 0735 01892000 * CALL IEAVAD08;/* YES */ 01893000 L @15,@CV00104 0736 01894000 BALR @14,@15 0736 01895000 * END; 0737 01896000 * END; 0738 01897000 @RF00727 DS 0H 0739 01898000 EJECT 01899000 * IF RETCODE=0 THEN 0739 01900000 * 0739 01901000 @RF00724 LTR RETCODE,RETCODE 0739 01902000 BNZ @RF00739 0739 01903000 * /***************************************************/ 01904000 * /* */ 01905000 * /* DISPLAY NUCLEUS AND PSA IF REQUESTED @G33SPHW*/ 01906000 * /* */ 01907000 * /***************************************************/ 01908000 * 0740 01909000 *CK09: 0740 01910000 * DO; 0740 01911000 CK09 DS 0H 0741 01912000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 01913000 * RTNS */ 01914000 LR PARMPTR,ABDARPTR 0741 01915000 * IF APFNUC=ON /* WAS NUCLEUS @G33SPHW*/ 01916000 * THEN 0742 01917000 TM APFNUC(ABDARPTR),B'10000000' 0742 01918000 BNO @RF00742 0742 01919000 * DO; 0743 01920000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 01921000 TM ABDIDX(ABDARPTR),B'00000001' 0744 01922000 BNO @RF00744 0744 01923000 * DO; /* YES @G33SPHW*/ 01924000 * INDXNAME=NUCNAME;/* PUT NUCLEUS NAME IN 01925000 * INDEX @G33SPHW*/ 01926000 L @11,INDXPTR 0746 01927000 MVI INDXNAME+38(@11),C' ' 0746 01928000 MVI INDXNAME+39(@11),C' ' 0746 01929000 MVC INDXNAME(38,@11),NUCNAME 0746 01930000 * CALL SNPOINDX;/* CALL INDEX ROUTINE TO 0747 01931000 * PUT @G33SPHW*/ 01932000 * 0747 01933000 BAL @14,SNPOINDX 0747 01934000 * /*****************************************/ 01935000 * /* */ 01936000 * /* PAGE NUMBER IN INDEX @G33SPHW*/ 01937000 * /* */ 01938000 * /*****************************************/ 01939000 * 0748 01940000 * END; /* @G33SPHW*/ 01941000 * EMODNAME='IEAVAD09';/* UPDATE MODULE NAME 0749 01942000 * @G33SPHW*/ 01943000 @RF00744 MVC EMODNAME(8,ABDARPTR),@CC04369 0749 01944000 * ERESTART=ADDR(CK0A);/* UPDATE RESTART ADDR 0750 01945000 * @G33SPHW*/ 01946000 LA @11,CK0A 0750 01947000 ST @11,ERESTART(,ABDARPTR) 0750 01948000 * CALL IEAVAD09;/* YES, DISPLAY @G33SPHW*/ 01949000 L @15,@CV00112 0751 01950000 BALR @14,@15 0751 01951000 * END; 0752 01952000 * END; 0753 01953000 @RF00742 DS 0H 0754 01954000 EJECT 01955000 * IF RETCODE=0 THEN 0754 01956000 * 0754 01957000 @RF00739 LTR RETCODE,RETCODE 0754 01958000 BNZ @RF00754 0754 01959000 */* IF LSQA WAS REQUESTED INVOKE FORMATTER @G33SPHW*/ 01960000 * 0755 01961000 *CK0A: 0755 01962000 * DO; /* @G33SPHW*/ 01963000 CK0A DS 0H 0756 01964000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 01965000 * RTNS */ 01966000 LR PARMPTR,ABDARPTR 0756 01967000 * IF APFLSQA=ON THEN/* LSQA REQUESTED OPTIONS 0757 01968000 * @G33SPHW*/ 01969000 TM APFLSQA(ABDARPTR),B'00100000' 0757 01970000 BNO @RF00757 0757 01971000 * DO; /* YES... @G33SPHW*/ 01972000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 01973000 TM ABDIDX(ABDARPTR),B'00000001' 0759 01974000 BNO @RF00759 0759 01975000 * DO; /* YES .. UPDATE @G33SPHW*/ 01976000 * INDXNAME=LSQANAME;/* PUT LSQA NAME IN 0761 01977000 * INDEX @G33SPHW*/ 01978000 L @11,INDXPTR 0761 01979000 MVI INDXNAME+38(@11),C' ' 0761 01980000 MVI INDXNAME+39(@11),C' ' 0761 01981000 MVC INDXNAME(38,@11),LSQANAME 0761 01982000 * CALL SNPOINDX;/* CALL INDEX ROUTINE TO 0762 01983000 * @G33SPHW*/ 01984000 BAL @14,SNPOINDX 0762 01985000 * END; /* GET PAGE NUMBER IN INDEX 0763 01986000 * @G33SPHW*/ 01987000 * IF APFLSQA=ON&/* LSQA REQUESTED AND @G33SPHW*/ 01988000 * ABDTCB->TCBUKYSP^=0 THEN/* SP229/230 0764 01989000 * POINTER NON ZERO @G33SPHW*/ 01990000 @RF00759 TM APFLSQA(ABDARPTR),B'00100000' 0764 01991000 BNO @RF00764 0764 01992000 L @11,ABDTCB(,ABDARPTR) 0764 01993000 L @11,TCBUKYSP(,@11) 0764 01994000 LTR @11,@11 0764 01995000 BZ @RF00764 0764 01996000 * ABDLSQA=ON;/* INDICATE DUMP SP229/230 0765 01997000 * @G33SPHW*/ 01998000 OI ABDLSQA(ABDARPTR),B'00000001' 0765 01999000 * ELSE 0766 02000000 * ; /* NULL ELSE @G33SPHW*/ 02001000 @RF00764 DS 0H 0767 02002000 * EMODNAME='IEAVAD0A';/* UPDATE MODULE NAME 0767 02003000 * @G33SPHW*/ 02004000 MVC EMODNAME(8,ABDARPTR),@CC04372 0767 02005000 * ERESTART=ADDR(CK0E);/* UPDATE RESTART ADDRESS 02006000 * @G33SPHW*/ 02007000 LA @11,CK0E 0768 02008000 ST @11,ERESTART(,ABDARPTR) 0768 02009000 * ABDOLSQA=ON;/* PUT LSQA FLAG ON @G33SPHW*/ 02010000 OI ABDOLSQA(ABDARPTR),B'00100000' 0769 02011000 * CALL IEAVAD0A;/* DISPLAY LSQA/SQA @G33SPHW*/ 02012000 L @15,@CV00105 0770 02013000 BALR @14,@15 0770 02014000 * ABDOLSQA=OFF;/* PUT LSQA FLAG OFF @G33SPHW*/ 02015000 NI ABDOLSQA(ABDARPTR),B'11011111' 0771 02016000 * END; /* END...LSQA DISPLAY @G33SPHW*/ 02017000 * END; /* NO ERROR @G33SPHW*/ 02018000 @RF00757 DS 0H 0774 02019000 EJECT 02020000 * IF RETCODE=0 THEN /* LSQA FORMAT OK @G33SPHW*/ 02021000 * 0774 02022000 @RF00754 LTR RETCODE,RETCODE 0774 02023000 BNZ @RF00774 0774 02024000 * /***************************************************/ 02025000 * /* */ 02026000 * /* DISPLAY SWA AND/OR SUBPOOLS 229/230 IF REQUESTED*/ 02027000 * /* @G33SPHW*/ 02028000 * /* */ 02029000 * /***************************************************/ 02030000 * 0775 02031000 *CK0E: 0775 02032000 * DO; /* @G33SPHW*/ 02033000 CK0E DS 0H 0776 02034000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 02035000 * RTNS */ 02036000 LR PARMPTR,ABDARPTR 0776 02037000 * IF APFSWA=ON| /* SWA REQUESTED @G33SPHW*/ 02038000 * ABDLSQA=ON THEN/* OR LSQA REQUESTED @G33SPHW*/ 02039000 TM APFSWA(ABDARPTR),B'00010000' 0777 02040000 BO @RT00777 0777 02041000 TM ABDLSQA(ABDARPTR),B'00000001' 0777 02042000 BNO @RF00777 0777 02043000 @RT00777 DS 0H 0778 02044000 * DO; /* YES... @G33SPHW*/ 02045000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 02046000 TM ABDIDX(ABDARPTR),B'00000001' 0779 02047000 BNO @RF00779 0779 02048000 * DO; /* YES... UPDATE @G33SPHW*/ 02049000 * IF APFSWA=ON&ABDLSQA=ON THEN/* BOTH SWA 02050000 * AND LSQA @G33SPHW*/ 02051000 TM APFSWA(ABDARPTR),B'00010000' 0781 02052000 BNO @RF00781 0781 02053000 TM ABDLSQA(ABDARPTR),B'00000001' 0781 02054000 BNO @RF00781 0781 02055000 * INDXNAME=SWALSQA;/* PUT BOTH NAMES IN 02056000 * INDEX @G33SPHW*/ 02057000 L @11,INDXPTR 0782 02058000 MVI INDXNAME+38(@11),C' ' 0782 02059000 MVI INDXNAME+39(@11),C' ' 0782 02060000 MVC INDXNAME(38,@11),SWALSQA 0782 02061000 * ELSE /* NOT BOTH REQUESTED @G33SPHW*/ 02062000 * IF APFSWA=ON THEN/* SWA REQUESTED 0783 02063000 * @G33SPHW*/ 02064000 B @RC00781 0783 02065000 @RF00781 TM APFSWA(ABDARPTR),B'00010000' 0783 02066000 BNO @RF00783 0783 02067000 * INDXNAME=SWANAME;/* PUT SWA NAME IN 02068000 * INDEX @G33SPHW*/ 02069000 L @11,INDXPTR 0784 02070000 MVI INDXNAME+38(@11),C' ' 0784 02071000 MVI INDXNAME+39(@11),C' ' 0784 02072000 MVC INDXNAME(38,@11),SWANAME 0784 02073000 * ELSE /* LSQA SP229/230 ONLY @G33SPHW*/ 02074000 * INDXNAME=LSQASP29;/* PUT SP229/230 IN 02075000 * INDEX @G33SPHW*/ 02076000 B @RC00783 0785 02077000 @RF00783 L @11,INDXPTR 0785 02078000 MVI INDXNAME+38(@11),C' ' 0785 02079000 MVI INDXNAME+39(@11),C' ' 0785 02080000 MVC INDXNAME(38,@11),LSQASP29 0785 02081000 * CALL SNPOINDX;/* CALL INDEX ROUTINE 0786 02082000 * @G33SPHW*/ 02083000 @RC00783 DS 0H 0786 02084000 @RC00781 BAL @14,SNPOINDX 0786 02085000 * END; /* PAGE NUMBER IN INDEX @G33SPHW*/ 02086000 * EMODNAME='IEAVAD0E';/* UPDATE MODULE NAME 0788 02087000 * @G33SPHW*/ 02088000 @RF00779 MVC EMODNAME(8,ABDARPTR),@CC04375 0788 02089000 * ERESTART=ADDR(CKSQA);/* UPDATE RESTART 0789 02090000 * ADDRESS @G33SPHW*/ 02091000 LA @11,CKSQA 0789 02092000 ST @11,ERESTART(,ABDARPTR) 0789 02093000 * CALL IEAVAD0E;/* DISPLAY SWA @G33SPHW*/ 02094000 L @15,@CV00113 0790 02095000 BALR @14,@15 0790 02096000 * ABDLSQA=OFF;/* RESET LSQA FLAG @G33SPHW*/ 02097000 NI ABDLSQA(ABDARPTR),B'11111110' 0791 02098000 * END; /* END... SWA DISPLAY @G33SPHW*/ 02099000 * END; /* NO ERROR @G33SPHW*/ 02100000 @RF00777 DS 0H 0794 02101000 EJECT 02102000 * IF RETCODE=0 THEN 0794 02103000 * 0794 02104000 @RF00774 LTR RETCODE,RETCODE 0794 02105000 BNZ @RF00794 0794 02106000 */* IF SQA WAS REQUESTED INVOKE FORMATTER @G33SPHW*/ 02107000 * 0795 02108000 *CKSQA: 0795 02109000 * DO; /* @G33SPHW*/ 02110000 CKSQA DS 0H 0796 02111000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 02112000 * RTNS */ 02113000 LR PARMPTR,ABDARPTR 0796 02114000 * IF APFSQA=ON THEN/* SQA OR @G33SPHW*/ 02115000 TM APFSQA(ABDARPTR),B'01000000' 0797 02116000 BNO @RF00797 0797 02117000 * DO; /* YES... @G33SPHW*/ 02118000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 02119000 TM ABDIDX(ABDARPTR),B'00000001' 0799 02120000 BNO @RF00799 0799 02121000 * DO; /* YES .. UPDATE @G33SPHW*/ 02122000 * INDXNAME=SQANAME;/* PUT SQA NAME IN INDEX 02123000 * @G33SPHW*/ 02124000 L @11,INDXPTR 0801 02125000 MVI INDXNAME+38(@11),C' ' 0801 02126000 MVI INDXNAME+39(@11),C' ' 0801 02127000 MVC INDXNAME(38,@11),SQANAME 0801 02128000 * CALL SNPOINDX;/* CALL INDEX ROUTINE TO 0802 02129000 * @G33SPHW*/ 02130000 BAL @14,SNPOINDX 0802 02131000 * END; /* GET PAGE NUMBER IN INDEX 0803 02132000 * @G33SPHW*/ 02133000 * ABDSQA=ON; /* DUMP SQA FLAG ON @G33SPHW*/ 02134000 @RF00799 DS 0H 0805 02135000 * ABDOLSQA=OFF;/* INSURE LSQA FLAG OFF @ZA17294*/ 02136000 OI ABDSQA(ABDARPTR),B'00010000' 0805 02137000 NI ABDOLSQA(ABDARPTR),B'11011111' 0805 02138000 * EMODNAME='IEAVAD0A';/* UPDATE MODULE NAME 0806 02139000 * @G33SPHW*/ 02140000 MVC EMODNAME(8,ABDARPTR),@CC04372 0806 02141000 * ERESTART=ADDR(CK10);/* UPDATE RESTART ADDRESS 02142000 * @G33SPHW*/ 02143000 LA @11,CK10 0807 02144000 ST @11,ERESTART(,ABDARPTR) 0807 02145000 * CALL IEAVAD0A;/* DISPLAY LSQA/SQA @G33SPHW*/ 02146000 L @15,@CV00105 0808 02147000 BALR @14,@15 0808 02148000 * ABDSQA=OFF; /* DUMP SQA FLAG OFF @G33SPHW*/ 02149000 NI ABDSQA(ABDARPTR),B'11101111' 0809 02150000 * END; /* END...SQA DISPLAY @G33SPHW*/ 02151000 * END; /* NO ERROR @G33SPHW*/ 02152000 @RF00797 DS 0H 0812 02153000 EJECT 02154000 * IF RETCODE=0 THEN /* SWA FORMAT OK @G33SPHW*/ 02155000 * 0812 02156000 @RF00794 LTR RETCODE,RETCODE 0812 02157000 BNZ @RF00812 0812 02158000 * /***************************************************/ 02159000 * /* */ 02160000 * /* DISPLAY REGISTERS IF REQUESTED @G33SPHW*/ 02161000 * /* */ 02162000 * /***************************************************/ 02163000 * 0813 02164000 *CK10: /* REGISTER DISPLAY @G33SPHW*/ 02165000 * DO; /* REQUESTED @G33SPHW*/ 02166000 CK10 DS 0H 0814 02167000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 02168000 * RTNS */ 02169000 LR PARMPTR,ABDARPTR 0814 02170000 * IF APFREGS=ON THEN/* REGISTERS REQUESTED @G33SPHW*/ 02171000 TM APFREGS(ABDARPTR),B'00100000' 0815 02172000 BNO @RF00815 0815 02173000 * DO; /* YES... @G33SPHW*/ 02174000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 02175000 TM ABDIDX(ABDARPTR),B'00000001' 0817 02176000 BNO @RF00817 0817 02177000 * DO; /* YES... UPDATE @G33SPHW*/ 02178000 * INDXNAME=REGNAME;/* PUT REG NAME IN INDEX 02179000 * @G33SPHW*/ 02180000 L @11,INDXPTR 0819 02181000 MVI INDXNAME+38(@11),C' ' 0819 02182000 MVI INDXNAME+39(@11),C' ' 0819 02183000 MVC INDXNAME(38,@11),REGNAME 0819 02184000 * CALL SNPOINDX;/* CALL INDEX ROUTINE 0820 02185000 * @G33SPHW*/ 02186000 BAL @14,SNPOINDX 0820 02187000 * END; /* PAGE NUMBER IN INDEX @G33SPHW*/ 02188000 * EMODNAME='IEAVAD10';/* UPDATE MODULE NAME 0822 02189000 * @G33SPHW*/ 02190000 @RF00817 MVC EMODNAME(8,ABDARPTR),@CC04336 0822 02191000 * ERESTART=ADDR(CK0F);/* UPDATE RESTART ADDRESS 02192000 * @G33SPHW*/ 02193000 LA @11,CK0F 0823 02194000 ST @11,ERESTART(,ABDARPTR) 0823 02195000 * ABDREGS=ON; /* INDICATE DISPLAY REGS @G33SPHW*/ 02196000 OI ABDREGS(ABDARPTR),B'01000000' 0824 02197000 * CALL IEAVAD10;/* DISPLAY REGISTERS @G33SPHW*/ 02198000 L @15,@CV00115 0825 02199000 BALR @14,@15 0825 02200000 * ABDREGS=OFF;/* RESET REGS FLAG @G33SPHW*/ 02201000 NI ABDREGS(ABDARPTR),B'10111111' 0826 02202000 * END; /* END... REGISTER DISPLAY 0827 02203000 * @G33SPHW*/ 02204000 * END; /* END... NO ERROR @G33SPHW*/ 02205000 @RF00815 DS 0H 0829 02206000 EJECT 02207000 * IF RETCODE=0 THEN /* REGISTER FORMAT OK @G33SPHW*/ 02208000 * 0829 02209000 @RF00812 LTR RETCODE,RETCODE 0829 02210000 BNZ @RF00829 0829 02211000 * /***************************************************/ 02212000 * /* */ 02213000 * /* DISPLAY STORAGE IF REQUESTED @G33SPHW*/ 02214000 * /* */ 02215000 * /***************************************************/ 02216000 * 0830 02217000 *CK0F: /* STORAGE LIST DISPLAY @G33SPHW*/ 02218000 * DO; /* @G33SPHW*/ 02219000 CK0F DS 0H 0831 02220000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 02221000 * RTNS */ 02222000 LR PARMPTR,ABDARPTR 0831 02223000 * IF APFSNAPP=ON THEN/* STORAGE LIST PASSED 0832 02224000 * @G33SPHW*/ 02225000 TM APFSNAPP(ABDARPTR),B'00000010' 0832 02226000 BNO @RF00832 0832 02227000 * DO; /* YES... @G33SPHW*/ 02228000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 02229000 TM ABDIDX(ABDARPTR),B'00000001' 0834 02230000 BNO @RF00834 0834 02231000 * DO; /* YES... UPDATE @G33SPHW*/ 02232000 * INDXNAME=STORNAME;/* PUT STORAGE LIST 0836 02233000 * NAME IN INDEX @G33SPHW*/ 02234000 L @11,INDXPTR 0836 02235000 MVI INDXNAME+38(@11),C' ' 0836 02236000 MVI INDXNAME+39(@11),C' ' 0836 02237000 MVC INDXNAME(38,@11),STORNAME 0836 02238000 * CALL SNPOINDX;/* CALL INDEX ROUTINE 0837 02239000 * @G33SPHW*/ 02240000 BAL @14,SNPOINDX 0837 02241000 * END; /* PAGE NUMBER IN INDEX @G33SPHW*/ 02242000 * EMODNAME='IEAVAD0F';/* UPDATE MODULE NAME 0839 02243000 * @G33SPHW*/ 02244000 @RF00834 MVC EMODNAME(8,ABDARPTR),@CC04382 0839 02245000 * ERESTART=ADDR(CK0B);/* UPDATE RESTART ADDRESS 02246000 * @G33SPHW*/ 02247000 LA @11,CK0B 0840 02248000 ST @11,ERESTART(,ABDARPTR) 0840 02249000 * CALL IEAVAD0F;/* DISPLAY STORAGE @G33SPHW*/ 02250000 L @15,@CV00114 0841 02251000 BALR @14,@15 0841 02252000 * END; /* END STORAGE DISPLAY @G33SPHW*/ 02253000 * END; /* END... NO ERROR @G33SPHW*/ 02254000 @RF00832 DS 0H 0844 02255000 EJECT 02256000 * IF RETCODE=0 THEN /* STORAGE FORMAT OK @G33SPHW*/ 02257000 * 0844 02258000 @RF00829 LTR RETCODE,RETCODE 0844 02259000 BNZ @RF00844 0844 02260000 * /***************************************************/ 02261000 * /* */ 02262000 * /* DISPLAY MODULES IF REQUESTED @G33SPHW*/ 02263000 * /* */ 02264000 * /***************************************************/ 02265000 * 0845 02266000 *CK0B: 0845 02267000 * DO; 0845 02268000 CK0B DS 0H 0846 02269000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 02270000 * RTNS */ 02271000 LR PARMPTR,ABDARPTR 0846 02272000 * IF APFJPA=ON| /* JPA MODULES @G33SPHW*/ 02273000 * APFLPA=ON /* LPA MODLUES REQUESTED */ 02274000 * THEN 0847 02275000 TM APFJPA(ABDARPTR),B'00011000' 0847 02276000 BZ @RF00847 0847 02277000 * DO; 0848 02278000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 02279000 TM ABDIDX(ABDARPTR),B'00000001' 0849 02280000 BNO @RF00849 0849 02281000 * DO; /* YES...... @G33SPHW*/ 02282000 * INDXNAME=MODNAME;/* PUT MODULE NAME IN 0851 02283000 * INDEX @G33SPHW*/ 02284000 L @11,INDXPTR 0851 02285000 MVI INDXNAME+38(@11),C' ' 0851 02286000 MVI INDXNAME+39(@11),C' ' 0851 02287000 MVC INDXNAME(38,@11),MODNAME 0851 02288000 * CALL SNPOINDX;/* CALL INDEX ROUTINE TO 0852 02289000 * GET @G33SPHW*/ 02290000 * 0852 02291000 BAL @14,SNPOINDX 0852 02292000 * /*****************************************/ 02293000 * /* */ 02294000 * /* PAGE NUMBER IN INDEX @G33SPHW*/ 02295000 * /* */ 02296000 * /*****************************************/ 02297000 * 0853 02298000 * END; /* END INDEX AVAILABLE @G33SPHW*/ 02299000 * EMODNAME='IEAVAD0B';/* UPDATE MODULE NAME */ 02300000 @RF00849 MVC EMODNAME(8,ABDARPTR),@CC04385 0854 02301000 * ERESTART=ADDR(CK0C);/* UPDATE RESTART ADDR */ 02302000 LA @11,CK0C 0855 02303000 ST @11,ERESTART(,ABDARPTR) 0855 02304000 * CALL IEAVAD0B;/* YES, DISPLAY */ 02305000 L @15,@CV00106 0856 02306000 BALR @14,@15 0856 02307000 * END; 0857 02308000 * END; 0858 02309000 @RF00847 DS 0H 0859 02310000 EJECT 02311000 * IF RETCODE=0 THEN 0859 02312000 * 0859 02313000 @RF00844 LTR RETCODE,RETCODE 0859 02314000 BNZ @RF00859 0859 02315000 * /***************************************************/ 02316000 * /* */ 02317000 * /* DISPLAY TRACE TABLE IF AVAILABLE AND REQUESTED */ 02318000 * /* @G33SPHW*/ 02319000 * /* */ 02320000 * /***************************************************/ 02321000 * 0860 02322000 *CK0C: 0860 02323000 * DO; 0860 02324000 CK0C DS 0H 0861 02325000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 02326000 * RTNS */ 02327000 LR PARMPTR,ABDARPTR 0861 02328000 * IF ABDGTF=ON /* GTF REQUESTED */ 02329000 * THEN 0862 02330000 TM ABDGTF(ABDARPTR),B'01000000' 0862 02331000 BNO @RF00862 0862 02332000 * DO; 0863 02333000 * ABDGTFCL=ON;/* INDICATE VAD08 CALLED FOR GTF */ 02334000 OI ABDGTFCL(ABDARPTR),B'00001000' 0864 02335000 * DO; 0865 02336000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE 0866 02337000 * @G33SPHW*/ 02338000 TM ABDIDX(ABDARPTR),B'00000001' 0866 02339000 BNO @RF00866 0866 02340000 * DO; /* YES..... @G33SPHW*/ 02341000 * INDXNAME=TRTNAME;/* PUT MODULE NAME IN 02342000 * INDEX @G33SPHW*/ 02343000 L @11,INDXPTR 0868 02344000 MVI INDXNAME+38(@11),C' ' 0868 02345000 MVI INDXNAME+39(@11),C' ' 0868 02346000 MVC INDXNAME(38,@11),TRTNAME 0868 02347000 * CALL SNPOINDX;/* CALL INDEX ROUTINE TO 02348000 * GET @G33SPHW*/ 02349000 * 0869 02350000 BAL @14,SNPOINDX 0869 02351000 * /***************************************/ 02352000 * /* */ 02353000 * /* PAGE NUMBER IN INDEX @G33SPHW*/ 02354000 * /* */ 02355000 * /***************************************/ 02356000 * 0870 02357000 * END; /* END INDEX AVAILABLE @G33SPHW*/ 02358000 * EMODNAME='IEAVAD08';/* UPDATE MODULE NAME */ 02359000 @RF00866 MVC EMODNAME(8,ABDARPTR),@CC04366 0871 02360000 * ERESTART=ADDR(CK0D);/* UPDATE RESTART ADDR */ 02361000 LA @11,CK0D 0872 02362000 ST @11,ERESTART(,ABDARPTR) 0872 02363000 * CALL IEAVAD08;/* YES, CALL GTF */ 02364000 L @15,@CV00104 0873 02365000 BALR @14,@15 0873 02366000 * END; 0874 02367000 * END; 0875 02368000 * ELSE 0876 02369000 * IF ABDSUPER=ON/* SUPERVISOR TRACE REQUESTED */ 02370000 * THEN 0876 02371000 B @RC00862 0876 02372000 @RF00862 TM ABDSUPER(ABDARPTR),B'10000000' 0876 02373000 BNO @RF00876 0876 02374000 * DO; 0877 02375000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE 0878 02376000 * @G33SPHW*/ 02377000 TM ABDIDX(ABDARPTR),B'00000001' 0878 02378000 BNO @RF00878 0878 02379000 * DO; /* YES...... @G33SPHW*/ 02380000 * INDXNAME=TRTNAME;/* PUT MODULE NAME IN 02381000 * INDEX @G33SPHW*/ 02382000 L @11,INDXPTR 0880 02383000 MVI INDXNAME+38(@11),C' ' 0880 02384000 MVI INDXNAME+39(@11),C' ' 0880 02385000 MVC INDXNAME(38,@11),TRTNAME 0880 02386000 * CALL SNPOINDX;/* CALL INDEX ROUTINE TO 02387000 * GET @G33SPHW*/ 02388000 * 0881 02389000 BAL @14,SNPOINDX 0881 02390000 * /***************************************/ 02391000 * /* */ 02392000 * /* PAGE NUMBER IN INDEX @G33SPHW*/ 02393000 * /* */ 02394000 * /***************************************/ 02395000 * 0882 02396000 * END; /* END... INDEX AVAILABLE 0882 02397000 * @G33SPHW*/ 02398000 * EMODNAME='IEAVAD0C';/* UPDATE MODULE NAME */ 02399000 @RF00878 MVC EMODNAME(8,ABDARPTR),@CC04389 0883 02400000 * ERESTART=ADDR(CK0D);/* UPDATE RESTART ADDR */ 02401000 LA @11,CK0D 0884 02402000 ST @11,ERESTART(,ABDARPTR) 0884 02403000 * CALL IEAVAD0C;/* YES, FORMAT SUPERVISOR 0885 02404000 * TRACE */ 02405000 L @15,@CV00107 0885 02406000 BALR @14,@15 0885 02407000 * END; 0886 02408000 * END; 0887 02409000 @RF00876 DS 0H 0887 02410000 @RC00862 DS 0H 0888 02411000 EJECT 02412000 * IF RETCODE=0 THEN 0888 02413000 * 0888 02414000 @RF00859 LTR RETCODE,RETCODE 0888 02415000 BNZ @RF00888 0888 02416000 * /***************************************************/ 02417000 * /* */ 02418000 * /* DISPLAY SUBPOOLS IF REQUESTED @G33SPHW*/ 02419000 * /* */ 02420000 * /***************************************************/ 02421000 * 0889 02422000 *CK0D: 0889 02423000 * DO; 0889 02424000 CK0D DS 0H 0890 02425000 * PARMPTR=ABDARPTR;/* PASS SNAP W.A. TO FUNCTIONAL 02426000 * RTNS */ 02427000 LR PARMPTR,ABDARPTR 0890 02428000 * IF APFSPALL=ON /* WERE SUBPOOLS REQUESTOR 0891 02429000 * @G33SPHW*/ 02430000 * THEN 0891 02431000 TM APFSPALL(ABDARPTR),B'00000010' 0891 02432000 BNO @RF00891 0891 02433000 * DO; 0892 02434000 * IF ABDIDX=ON THEN/* INDEX AVAILABLE @G33SPHW*/ 02435000 TM ABDIDX(ABDARPTR),B'00000001' 0893 02436000 BNO @RF00893 0893 02437000 * DO; /* YES..... @G33SPHW*/ 02438000 * INDXNAME=SPNAME;/* PUT SUBPOOL NAME IN 0895 02439000 * INDEX @G33SPHW*/ 02440000 L @11,INDXPTR 0895 02441000 MVI INDXNAME+38(@11),C' ' 0895 02442000 MVI INDXNAME+39(@11),C' ' 0895 02443000 MVC INDXNAME(38,@11),SPNAME 0895 02444000 * CALL SNPOINDX;/* PUT PAGE NUMBER IN INDEX 02445000 * @G33SPHW*/ 02446000 BAL @14,SNPOINDX 0896 02447000 * END; /* END INDEX AVAILABLE @G33SPHW*/ 02448000 * EMODNAME='IEAVAD0D';/* UPDATE MODULE NAME */ 02449000 @RF00893 MVC EMODNAME(8,ABDARPTR),@CC04391 0898 02450000 * ERESTART=ADDR(INDX);/* INDEX RESTART ADDRESS 02451000 * @G33SPHW*/ 02452000 LA @11,INDX 0899 02453000 ST @11,ERESTART(,ABDARPTR) 0899 02454000 * CALL IEAVAD0D;/* YES, DISPLAY */ 02455000 L @15,@CV00108 0900 02456000 BALR @14,@15 0900 02457000 * END; 0901 02458000 * END; 0902 02459000 @RF00891 DS 0H 0903 02460000 EJECT 02461000 * ERESTART=0; /* ZERO RESTART ADDR */ 02462000 @RF00888 SLR @11,@11 0903 02463000 ST @11,ERESTART(,ABDARPTR) 0903 02464000 * EMODNAME='IEAVAD01';/* RESTORE MODULE NAME @YM06186*/ 02465000 MVC EMODNAME(8,ABDARPTR),@CC04285 0904 02466000 *INDX: /* OUTPUT INDEX @G33SPHW*/ 02467000 * CALL SNPINDEX; /* OUTPUT INDEX @G33SPHW*/ 02468000 INDX BAL @14,SNPINDEX 0905 02469000 * IF RETCODE=0 THEN 0906 02470000 LTR RETCODE,RETCODE 0906 02471000 BNZ @RF00906 0906 02472000 * DO; 0907 02473000 * ABDLINEA=' '; /* BLANK OUTPUT LINE */ 02474000 MVI ABDLINEA+1(ABDARPTR),C' ' 0908 02475000 MVC ABDLINEA+2(203,ABDARPTR),ABDLINEA+1(ABDARPTR) 0908 02476000 MVI ABDLINEA(ABDARPTR),C' ' 0908 02477000 * MSG1=ENDUMP; /* SET END OF DUMP MESSAGE */ 02478000 MVC MSG1(12,ABDARPTR),ENDUMP 0909 02479000 * SAVERET=0; /* RESET RETURN CODE @ZA12648*/ 02480000 SLR SAVERET,SAVERET 0910 02481000 * END; 0911 02482000 * ELSE 0912 02483000 * DO; 0912 02484000 B @RC00906 0912 02485000 @RF00906 DS 0H 0913 02486000 * SAVERET=8; /* INDICATE DUMP TRUNCATED */ 02487000 LA SAVERET,8 0913 02488000 * ABDLINEA=' '; /* BLANK OUTPUT LINE */ 02489000 MVI ABDLINEA+1(ABDARPTR),C' ' 0914 02490000 MVC ABDLINEA+2(203,ABDARPTR),ABDLINEA+1(ABDARPTR) 0914 02491000 MVI ABDLINEA(ABDARPTR),C' ' 0914 02492000 * MSG2=TRUNCMSG; /* SET DUMP TRUNCATED MESSAGE */ 02493000 MVC MSG2(40,ABDARPTR),TRUNCMSG 0915 02494000 * END; 0916 02495000 EJECT 02496000 * 0917 02497000 * /*****************************************************/ 02498000 * /* */ 02499000 * /* IEAVAD11 AND IEAVAD21 ARE CALLED TO PUT OUT */ 02500000 * /* REMAINING OUTPUT. THE OUTPUT BUFFERS ARE FREED. */ 02501000 * /* STATUS IS CALLED TO SET TASK DISPATCHABLE IF */ 02502000 * /* NECESSARY. THE DUMP DATA SET IS DEQUEUED FROM IF */ 02503000 * /* ABEND IS NOT THE CALLER. FREE DECB/SAVE AREA AND */ 02504000 * /* SNAP'S WORK AREA */ 02505000 * /* */ 02506000 * /*****************************************************/ 02507000 * 0917 02508000 * PARMPTR=ABDARPTR; /* SET UP PTR TO SNAP'S WORKAREA */ 02509000 @RC00906 LR PARMPTR,ABDARPTR 0917 02510000 * CALL IEAVAD11; /* PUT OUT MESSAGE LINE */ 02511000 L @15,@CV00109 0918 02512000 BALR @14,@15 0918 02513000 * CALL IEAVAD21; /* FORCE OUTPUT OF REMAINING 0919 02514000 * LINES IN BUFFER */ 02515000 L @15,@CV00110 0919 02516000 BALR @14,@15 0919 02517000 * RESPECIFY 0920 02518000 * RETCODE UNRESTRICTED; 0920 02519000 * CALL DEQFREE; /* DEQ AND FREE STORAGE */ 02520000 BAL @14,DEQFREE 0921 02521000 * RFY 0922 02522000 * (R3, 0922 02523000 * R8) RSTD; 0922 02524000 EJECT 02525000 * END; 0923 02526000 * END; 0924 02527000 @RF00569 DS 0H 0925 02528000 * TCBFX='0'B; /* ALLOW ASHNCHRONOUS EXITS */ 02529000 @RF00462 NI TCBFX(TCBPTR),B'11111110' 0925 02530000 * END; 0926 02531000 * RFY 0927 02532000 * RETCODE RSTD; 0927 02533000 @RF00264 DS 0H 0928 02534000 * RETCODE=SAVERET; /* RESTORE RETURN CODE */ 02535000 LR RETCODE,SAVERET 0928 02536000 * SAVERET=R8; /* RESTORE SVC51 BASE REG 0929 02537000 * @G33SPHW*/ 02538000 LR SAVERET,R8 0929 02539000 * RETRG=R3; /* RESTORE RETURN ADDRESS */ 02540000 LR RETRG,R3 0930 02541000 * RETURN; /* RETURN TO SVC 51 */ 02542000 @EL00001 DS 0H 0931 02543000 @EF00001 DS 0H 0931 02544000 @ER00001 BR @14 0931 02545000 EJECT 02546000 *SNPRCVR: 0932 02547000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0932 02548000 * 0932 02549000 SNPRCVR DS 0H 0933 02550000 */* ******************************************************************/ 02551000 */* SNPRCVR IS THE RECOVERY ROUTINE GIVEN CONTROL DURING AN ERROR */ 02552000 */* IN SNAP PROCESSING. THE PHILOSOPHY BEHIND SNAP RECOVERY IS */ 02553000 */* 'DUMP THE NEXT REQUESTED AREA' RATHER THAN RETRY DUMPING THE */ 02554000 */* AREA WHICH SUFFERED THE FAILURE. */ 02555000 */* */ 02556000 */* THE ESTAE PARAMETER LIST IS USED TO OBTAIN THE NAME OF THE LAST */ 02557000 */* SNAP MODULE IN CONTROL WHEN AN ERROR OCCURRED. IT ALSO CONTAINS */ 02558000 */* THE BASE AND CODE REGISTERS FOR IEAVAD01, THE ADDR OF SNAPS WORK*/ 02559000 */* AREA AND THE ADDRESS OF THE ROUTINE AT WHICH PROCESSING IS TO */ 02560000 */* CONTINUE. */ 02561000 */* */ 02562000 */* SNPRCVR ISSUES ENTESTAE TO GENERATE ITS ENTRY CODE. IF AN SDWA */ 02563000 */* WAS OBTAINED. */ 02564000 */* R0 CONTAINS A CODE INDICATING THE TYPE OF I/O PROCESSING PER- */ 02565000 */* FORMED */ 02566000 */* R1 CONTAINS THE ADDRESS OF THE SDWA(RTCA). */ 02567000 */* R13 CONTAINS THE SAVE AREA ADDRESS */ 02568000 */* IF AN SDWA(RTCA) WAS NOT OBTAINED- */ 02569000 */* R0 CONTAINS A CODE OF 12 */ 02570000 */* R1 CONTAINS THE ABEND COMPLETION CODE */ 02571000 */* R2 CONTAINS THE ADDRESS OF SNAP'S ESTAE PARAMETER LIST */ 02572000 */* **************************************************************** */ 02573000 * 0933 02574000 * RFY 0933 02575000 * (ABDARPTR, 0933 02576000 * AUTOPTR) RSTD; 0933 02577000 * DO; /* ENTESTAE 0934 02578000 * (BASE,BASE2,AUTOPTR,ABDARPTR) */ 02579000 */* ENTRY CODE FOR ESTAE ROUTINE. */ 02580000 */* IF RTCA ALLOCATED THEN RESTORE CODE AND */ 02581000 */* DATA REGS FROM START OF USERS PARM LIST, */ 02582000 */* AND ESTABLISH ADDR TO ESTAE SAVE AREA */ 02583000 */* IF REQUIRED. */ 02584000 */* IF NO RTCA IS AVAILABLE THEN JUST RETURN */ 02585000 */* TO RTM TO CONTINUE TERMINATION */ 02586000 * 0935 02587000 * GEN(USING *,GPR15P); 0935 02588000 USING *,GPR15P 02589000 * GEN(CH GPR00F,*+14); /* CHECK IF RTCA ALLOC FAILED */ 02590000 CH GPR00F,*+14 02591000 * GEN(BNE *+12); /* NO,SAVE RTM REGS */ 02592000 BNE *+12 02593000 * GEN(DROP GPR15P); /* DROP LOCAL ADDR */ 02594000 DROP GPR15P 02595000 * GEN(LA GPR15P,0); /* YES, SET CONT TERM RC */ 02596000 LA GPR15P,0 02597000 * GEN(BR GPR14P); /* RETURN TO RTM */ 02598000 BR GPR14P 02599000 * GEN(DC H'12'); /* NO RTCA AVAIL RC */ 02600000 DC H'12' 02601000 * GEN(STM GPR14P,GPR12F,12(GPR13P));/* GOOD R13, SAVE RTM'S 0942 02602000 * REGS */ 02603000 STM GPR14P,GPR12F,12(GPR13P) 02604000 * GEN(L GPR15P,0(GPR01P)); /* PTR TO USER PARM LIST */ 02605000 L GPR15P,0(GPR01P) 02606000 * GEN(L BASE,00(GPR15P)); 0944 02607000 L BASE,00(GPR15P) 02608000 * GEN(L BASE2,04(GPR15P)); 0945 02609000 L BASE2,04(GPR15P) 02610000 * GEN(L AUTOPTR,08(GPR15P)); 0946 02611000 L AUTOPTR,08(GPR15P) 02612000 * GEN(L ABDARPTR,12(GPR15P)); 0947 02613000 L ABDARPTR,12(GPR15P) 02614000 * END; /* ENTESTAE 0948 02615000 * (BASE,BASE2,AUTOPTR,ABDARPTR) 02616000 * GENERATE ENTRY CODE FOR 0948 02617000 * RECOVERY ROUTINE @YM08272*/ 02618000 * 0948 02619000 * /*****************************************************************/ 02620000 * /* */ 02621000 * /* SET UP SECONDARY RECOVERY ROUTINE TO REQUEST SVC DUMP AND CON-*/ 02622000 * /* TINUE WITH TERMINATION IN THE EVENT THAT PRIMARY RECOVERY */ 02623000 * /* ROUTINE FAILS. */ 02624000 * /* */ 02625000 * /*****************************************************************/ 02626000 * 0949 02627000 * SDWAPTR=PARMPTR; /* GET SDWA ADDRESS */ 02628000 LR SDWAPTR,PARMPTR 0949 02629000 * ESTAEPTR=SDWAPARM; /* GET POINTER TO ESTAE PARAMETER 02630000 * LIST */ 02631000 L ESTAEPTR,SDWAPARM(,SDWAPTR) 0950 02632000 * MFLESTAE=ESTAELST; /* MOVE MF-L FORM TO GM STORAGE. */ 02633000 MVC MFLESTAE(16),ESTAELST 0951 02634000 * PARMPTR=ADDR(MFLESTAE); /* ADDR FOR MF-E FORM OF MACRO. 02635000 * @YM03533*/ 02636000 LA PARMPTR,MFLESTAE 0952 02637000 * GENERATE; 0953 02638000 ESTAE SNP2RCV,PARAM=(ESTAEPTR),MF=(E,(1)) @YM08272 02639000 * TCBPTR=ABDCTCB; /* GET ADDRESS OF CURRENT TCB */ 02640000 L TCBPTR,ABDCTCB(,ABDARPTR) 0954 02641000 * RBSECPTR=ABDCRB; /* GET SNAP'S RB ADDR */ 02642000 L @11,ABDCRB(,ABDARPTR) 0955 02643000 ST @11,RBSECPTR 0955 02644000 * SDWAMODN(1:8)=EMODNAME; /* GET NAME OF MODULE IN CONTROL 02645000 * WHEN ERROR OCCURRED */ 02646000 MVC SDWAMODN(8,SDWAPTR),EMODNAME(ABDARPTR) 0956 02647000 * SDWACSCT=SDWAMODN; /* GET CSECT NAME (IN SNAP, CSECT 02648000 * AND ASSEMBLY NAME ARE 0957 02649000 * IDENTICAL @YM08272*/ 02650000 MVC SDWACSCT(8,SDWAPTR),SDWAMODN(SDWAPTR) 0957 02651000 * SDWAREXN='SNPRCVR'; /* PUT NAME OF RECOVERY RTN IN 0958 02652000 * SDWA */ 02653000 MVI SDWAREXN+7(SDWAPTR),C' ' 0958 02654000 MVC SDWAREXN(7,SDWAPTR),@CC04399 0958 02655000 * RETRYLOC=0; /* INIT RETRY ADDR @YM08272*/ 02656000 SLR @11,@11 0959 02657000 ST @11,RETRYLOC 0959 02658000 * SDWASR15=0; /* DEFAULT RETURN CODE TO SUCCESS 02659000 * - WILL TRUNCATE DUMP OTHERWISE 02660000 * @ZA05835*/ 02661000 ST @11,SDWASR15(,SDWAPTR) 0960 02662000 EJECT 02663000 * 0961 02664000 * /*****************************************************************/ 02665000 * /* */ 02666000 * /* THIS SECTION DETERMINES WHETHER AN INVALID PAGE REFERENCE */ 02667000 * /* OCCURRED. IF SO, ABDUPRXT IN SNAP'S WORK AREA IS EXAMINED TO */ 02668000 * /* DETERMINE WHETHER AN INVALID PAGE REFERENCE WAS EXPECTED. (IN-*/ 02669000 * /* VALID PAGE REFERENCES ARE EXPECTED WHILE FORMATTING THE DEB, */ 02670000 * /* LSQA, SQA, STORAGE LIST RANGES AND SAVE AREAS.) IF EXPECTED, */ 02671000 * /* CONTROL IS GIVEN TO THE ADDRESS SPECIFIED IN ABDUPRXT. IF UN- */ 02672000 * /* EXPECTED, A CHECK IS MADE TO DETERMINE WHETHER THE DCB OR TCB */ 02673000 * /* WAS BEING VALIDITY CHECKE AT TIME OF ERROR. IF SO, A RETURN */ 02674000 * /* CODE OF 4 OR 8 RESPECTIVELY IS PUT IN R15 AND RETURN IS MADE */ 02675000 * /* TO CALLER VIA SETRP. */ 02676000 * /* */ 02677000 * /*****************************************************************/ 02678000 * 0961 02679000 * IF SDWAINC1='10'X| /* SEGMENT TRANSLATION EXCEPTION?*/ 02680000 * SDWAINC1='11'X /* PAGE TRANSLATION EXCEPTION */ 02681000 * |SDWAINC1='04'X /* PROTECTION EXCEPTION? @ZA05951*/ 02682000 * THEN 0961 02683000 CLC SDWAINC1(2,SDWAPTR),@CH04400 0961 02684000 BE @RT00961 0961 02685000 CLC SDWAINC1(2,SDWAPTR),@CH04401 0961 02686000 BE @RT00961 0961 02687000 CLC SDWAINC1(2,SDWAPTR),@CH04292 0961 02688000 BNE @RF00961 0961 02689000 @RT00961 DS 0H 0962 02690000 * DO; 0962 02691000 * IF ABDUPRXT^=0 THEN /* WAS INVALID PAGE REFERENCE 0963 02692000 * EXPECTED */ 02693000 L @11,ABDUPRXT(,ABDARPTR) 0963 02694000 LTR @11,@11 0963 02695000 BZ @RF00963 0963 02696000 * DO; /* YES, GO TO RETRY ADDR */ 02697000 * SDWASRSV=SDWAGRSV; /* UPDATE REGS WITH ABEND REGS */ 02698000 MVC SDWASRSV(64,SDWAPTR),SDWAGRSV(SDWAPTR) 0965 02699000 * SDWASR02=ABDARPTR; /* MAKE SURE WRKARA PTR OK 0966 02700000 * @YM05463*/ 02701000 ST ABDARPTR,SDWASR02(,SDWAPTR) 0966 02702000 * DO; /* SETRP RETADDR(UPRETRY)REGS(14, 02703000 * 12)RC(4)WKAREA(SDWAPTR)RETREGS 02704000 * (YES)FRESDWA(YES)DUMP(NO) */ 02705000 * RESPECIFY 0968 02706000 * (GPR00P, 0968 02707000 * GPR01P, 0968 02708000 * GPR14P, 0968 02709000 * GPR15P) RSTD; 0968 02710000 * GPR01P=SDWAPTR; 0969 02711000 LR GPR01P,SDWAPTR 0969 02712000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 02713000 MVI SDWARCDE(GPR01P),X'04' 0970 02714000 * GPR01P->SDWARTYA=ADDR(UPRETRY);/* SAVE RETRY ADDRESS */ 02715000 ST @11,SDWARTYA(,GPR01P) 0971 02716000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE SDWA */ 02717000 OI SDWAFREE(GPR01P),B'00000100' 0972 02718000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 02719000 NI SDWAREQ(GPR01P),B'01111111' 0973 02720000 * GPR01P->SDWAUPRG='1'B;/* TURN ON RETREGS INDICATOR */ 02721000 OI SDWAUPRG(GPR01P),B'00001000' 0974 02722000 * GEN(RETURN (14,12)); 0975 02723000 RETURN (14,12) 02724000 * RESPECIFY 0976 02725000 * (GPR00P, 0976 02726000 * GPR01P, 0976 02727000 * GPR14P, 0976 02728000 * GPR15P) UNRSTD; 0976 02729000 * END; 0977 02730000 * END; 0978 02731000 * IF APFABEND='0'B THEN /* WAS ABDUMP THE CALLER @YM08272*/ 02732000 @RF00963 TM APFABEND(ABDARPTR),B'00010000' 0979 02733000 BNZ @RF00979 0979 02734000 * SDWARCRD='1'B; /* YES, RECORD THE ERROR @YM08272*/ 02735000 OI SDWARCRD(SDWAPTR),B'10000000' 0980 02736000 * IF EDCB='1'B THEN 0981 02737000 @RF00979 TM EDCB(ABDARPTR),B'00100000' 0981 02738000 BNO @RF00981 0981 02739000 * SDWASR15=4; /* SET RETCODE FOR DCB ERROR */ 02740000 MVC SDWASR15(4,SDWAPTR),@CF00257 0982 02741000 * IF ETCB='1'B THEN 0983 02742000 @RF00981 TM ETCB(ABDARPTR),B'01000000' 0983 02743000 BNO @RF00983 0983 02744000 * SDWASR15=8; /* SET RETCODE FOR TCB ERROR */ 02745000 MVC SDWASR15(4,SDWAPTR),@CF00151 0984 02746000 * END; 0985 02747000 * ELSE /* IF NOT TRANSLATION EXCEPT 0986 02748000 * @YM08272*/ 02749000 * SDWARCRD='1'B; /* RECORD THE ERROR @YM08272*/ 02750000 B @RC00961 0986 02751000 @RF00961 OI SDWARCRD(SDWAPTR),B'10000000' 0986 02752000 * IF SDWARCRD='1'B /* IF SNAP ERROR @YM08272*/ 02753000 * THEN /* REQUEST AN SVC @YM08272*/ 02754000 @RC00961 TM SDWARCRD(SDWAPTR),B'10000000' 0987 02755000 BNO @RF00987 0987 02756000 * DO; /* DUMP @YM08272*/ 02757000 * IF ERESTART=ADDR(QMRECVR) THEN/* @Z40MPXG*/ 02758000 LA @11,QMRECVR 0989 02759000 C @11,ERESTART(,ABDARPTR) 0989 02760000 BNE @RF00989 0989 02761000 * PARMPTR=ADDR(SDUMP4); /* ADDR LIST FORM OF SDUMP 0990 02762000 * @YM08272*/ 02763000 LA PARMPTR,SDUMP4 0990 02764000 * ELSE /* @Z40MPXG*/ 02765000 * PARMPTR=ADDR(SDUMP1); /* @Z40MPXG*/ 02766000 B @RC00989 0991 02767000 @RF00989 LA PARMPTR,SDUMP1 0991 02768000 * GEN(SDUMP MF=(E,(1))); /* REQUEST SDUMP SERVICE @YM08272*/ 02769000 @RC00989 DS 0H 0992 02770000 SDUMP MF=(E,(1)) 02771000 * END; /* @YM08272*/ 02772000 EJECT 02773000 * 0994 02774000 * /*****************************************************************/ 02775000 * /* */ 02776000 * /* THIS SECTION OF CODE DETERMINES IF RETRY IS POSSIBLE TO DUMP */ 02777000 * /* THE NEXT REQUESTED AREA. IF NOT RETRY IS DONE TO THE SVC 51 */ 02778000 * /* RETURN POINT WITH A NON ZERO RETURN CODE. THE APPROPRIATE THE */ 02779000 * /* APPROPRIATE CLEANUP OR REGISTER UPDATE IS PERFORMED PRIOR TO */ 02780000 * /* RETRY. THIS SECTION OF CODE ROUTES CONTROL TO THE ADDRESS */ 02781000 * /* DEFINED IN THE ESTAE PARAMETER LIST (ERESTART). IF NO ADDRESS */ 02782000 * /* PROVIDED CLEAN-UP AND RETURN TO SVC 51. */ 02783000 * /* */ 02784000 * /*****************************************************************/ 02785000 * 0994 02786000 * IF ERESTART^=0& /* IS RETRY WITHIN SNAP AND NOT */ 02787000 * (SDWAABCC&EOVMASK)^=EOVCODE&/* X37 ABEND AND @ZA17822*/ 02788000 * (SDWAABCC&IOMASK)^=IOCODE THEN/* NOT I/O ERROR @ZA17822*/ 02789000 @RF00987 L @11,ERESTART(,ABDARPTR) 0994 02790000 LTR @11,@11 0994 02791000 BZ @RF00994 0994 02792000 MVC @TS00001(4),SDWAABCC(SDWAPTR) 0994 02793000 NC @TS00001(4),@CB00126 0994 02794000 CLC @TS00001(4),@CB00124 0994 02795000 BE @RF00994 0994 02796000 MVC @TS00001(4),SDWAABCC(SDWAPTR) 0994 02797000 NC @TS00001(4),@CB00130 0994 02798000 CLC @TS00001(4),@CB00128 0994 02799000 BE @RF00994 0994 02800000 * DO; /* POSSIBLE @YM08272*/ 02801000 * SAVRTM13=SAVREG; /* SAVE RTM R13 OVER WRITE 0996 02802000 * @G33SPHW*/ 02803000 ST SAVREG,SAVRTM13 0996 02804000 * SAVREG=ABDARPTR+LENGTH(ABDAREA);/* GET SAVEAREA ADDRESS FOR 02805000 * WRITE ROUTINE @G33SPHW*/ 02806000 LA SAVREG,680 0997 02807000 ALR SAVREG,ABDARPTR 0997 02808000 * ABDLINEA=' '; /* CLEAR PRINT LINE @G33SPHW*/ 02809000 MVI ABDLINEA+1(ABDARPTR),C' ' 0998 02810000 MVC ABDLINEA+2(203,ABDARPTR),ABDLINEA+1(ABDARPTR) 0998 02811000 MVI ABDLINEA(ABDARPTR),C' ' 0998 02812000 * IF ESUBSYT=ON THEN /* INSTALLATION FORMATTER RUNNING 02813000 * AT TIME OF ERROR @G33SPHW*/ 02814000 TM ESUBSYT(ABDARPTR),B'10000000' 0999 02815000 BNO @RF00999 0999 02816000 * DO; /* YES... OUTPUT MESSAGE @G33SPHW*/ 02817000 * MSG4=INSTAMSG; /* PUT INSTALLATION MESSAGE IN 1001 02818000 * BUFFER @G33SPHW*/ 02819000 MVC MSG4(41,ABDARPTR),INSTAMSG 1001 02820000 * MSG4(34:41)=INSTALNM; /* PUT MODULE NAME IN BUFFER 1002 02821000 * @G33SPHW*/ 02822000 MVC MSG4+33(8,ABDARPTR),INSTALNM(ABDARPTR) 1002 02823000 * PARMPTR=ABDARPTR; /* POINT R1 TO PARMLIST @G33SPHW*/ 02824000 LR PARMPTR,ABDARPTR 1003 02825000 * CALL IEAVAD11; /* WRITE MESSAGE @G33SPHW*/ 02826000 L @15,@CV00109 1004 02827000 BALR @14,@15 1004 02828000 * END; /* END ... SUBSYTEM ERROR 1005 02829000 * @G33SPHW*/ 02830000 * ELSE /* NOT INSTALLATION ERROR 1006 02831000 * @G33SPHW*/ 02832000 * DO; /* PUT OUT SNAP FORMATTER ERROR 02833000 * @G33SPHW*/ 02834000 B @RC00999 1006 02835000 @RF00999 DS 0H 1007 02836000 * IF EMODNAME^='IEAVAD01' THEN/* ERROR IN FORMATTER 1007 02837000 * @ZM45065*/ 02838000 CLC EMODNAME(8,ABDARPTR),@CC04285 1007 02839000 BE @RF01007 1007 02840000 * DO; /* NOT MAINLINE PUT OUT MESSAGE 02841000 * TO DUMP OUTPUT @ZM45065*/ 02842000 * MSG3=FMTERMSG; /* PUT ERROR MSG IN BUFFER 1009 02843000 * @G33SPHW*/ 02844000 MVC MSG3(59,ABDARPTR),FMTERMSG 1009 02845000 * MSG3(21:28)=EMODNAME;/* MODULE NAME IN MESSAGE 1010 02846000 * @G33SPHW*/ 02847000 MVC MSG3+20(8,ABDARPTR),EMODNAME(ABDARPTR) 1010 02848000 * PARMPTR=ABDARPTR; /* WORKAREA ADDRESS IN R1 1011 02849000 * @G33SPHW*/ 02850000 LR PARMPTR,ABDARPTR 1011 02851000 * CALL IEAVAD11; /* PRINT MESSAGE @G33SPHW*/ 02852000 L @15,@CV00109 1012 02853000 BALR @14,@15 1012 02854000 * END; /* END NOT FORMAT ERROR @ZM45065*/ 02855000 * END; /* END SNAP FORMAT ERROR @G33SPHW*/ 02856000 @RF01007 DS 0H 1015 02857000 * SAVREG=SAVRTM13; /* RESTORE RTMS R13 AFTER WRITE 02858000 * @G33SPHW*/ 02859000 * 1015 02860000 @RC00999 L SAVREG,SAVRTM13 1015 02861000 * /*************************************************************/ 02862000 * /* */ 02863000 * /* DELETE USER FORMAT ROUTINE IF ERROR OCCURED IN THERE */ 02864000 * /* PROCESS @G33SPHW*/ 02865000 * /* */ 02866000 * /*************************************************************/ 02867000 * 1016 02868000 * IF ESUBSYT=ON THEN /* INSTALLATION FORMATTER RUNNING 02869000 * AT TIME OF ERROR @G33SPHW*/ 02870000 TM ESUBSYT(ABDARPTR),B'10000000' 1016 02871000 BNO @RF01016 1016 02872000 * DO; /* YES... DELETE FORMATTERS 1017 02873000 * @G33SPHW*/ 02874000 * GEN(DELETE EPLOC=INSTALNM(ABDARPTR));/* @G33SPHW*/ 02875000 DELETE EPLOC=INSTALNM(ABDARPTR) 02876000 * ESUBSYT=OFF; /* RESET FORMATTER FLAG @G33SPHW*/ 02877000 NI ESUBSYT(ABDARPTR),B'01111111' 1019 02878000 * GEN(DELETE EP=AMDPRFMT);/* DELETE PRINT DUMP @G33SPHW*/ 02879000 DELETE EP=AMDPRFMT 02880000 * ABDFMTLD=OFF; /* RESET FORMATTER LOADED FLAG 1021 02881000 * @G33SPHW*/ 02882000 NI ABDFMTLD(ABDARPTR),B'11110111' 1021 02883000 * END; /* END... INSTALLATION RUNNING 1022 02884000 * @G33SPHW*/ 02885000 * RETRYLOC=ERESTART; /* SET UP RETRY ADDR @YM08272*/ 02886000 @RF01016 L @11,ERESTART(,ABDARPTR) 1023 02887000 ST @11,RETRYLOC 1023 02888000 * ERESTART=0; /* PREVENT RETRY LOOP @YM08272*/ 02889000 SLR @11,@11 1024 02890000 ST @11,ERESTART(,ABDARPTR) 1024 02891000 * SDWASR01=ABDARPTR; /* SET UP W/A PTR FOR FUNCTIONAL 02892000 * ROUTINES @YM08407*/ 02893000 ST ABDARPTR,SDWASR01(,SDWAPTR) 1025 02894000 * SDWASR02=ABDARPTR; /* RESTORE WORKAREA PTR @YM08296*/ 02895000 ST ABDARPTR,SDWASR02(,SDWAPTR) 1026 02896000 * SDWASR03=FLCCVT; /* RESTORE CVT ADDR */ 02897000 L @11,FLCCVT 1027 02898000 ST @11,SDWASR03(,SDWAPTR) 1027 02899000 * SDWASR04=TCBPTR; /* RESTORE TCB ADDR @YM08272*/ 02900000 ST TCBPTR,SDWASR04(,SDWAPTR) 1028 02901000 * SDWASR05=RBSECPTR; /* RESTORE RB ADDR @YM08272*/ 02902000 L @11,RBSECPTR 1029 02903000 ST @11,SDWASR05(,SDWAPTR) 1029 02904000 * SDWASR06=BASE; /* RESTORE BASE REG FOR SNAP 1030 02905000 * @YM08296*/ 02906000 ST BASE,SDWASR06(,SDWAPTR) 1030 02907000 * SDWASR07=BASE2; /* RESTORE BASE REG FOR SNAP 1031 02908000 * @G33SPHW*/ 02909000 ST BASE2,SDWASR07(,SDWAPTR) 1031 02910000 * SDWASR12=AUTOPTR; /* COMPILER WORKAREA ADDR */ 02911000 ST AUTOPTR,SDWASR12(,SDWAPTR) 1032 02912000 * SDWASR13=ABDARPTR+LENGTH(ABDAREA); 1033 02913000 LA @11,680 1033 02914000 ALR @11,ABDARPTR 1033 02915000 ST @11,SDWASR13(,SDWAPTR) 1033 02916000 * ABDLINEA=' '; /* CLEAR PRINT LINE FOR RETRY 1034 02917000 * @YM08272*/ 02918000 MVI ABDLINEA+1(ABDARPTR),C' ' 1034 02919000 MVC ABDLINEA+2(203,ABDARPTR),ABDLINEA+1(ABDARPTR) 1034 02920000 MVI ABDLINEA(ABDARPTR),C' ' 1034 02921000 * END; 1035 02922000 * ELSE /* RETRY WITHIN SNAP NOT @YM08272*/ 02923000 * DO; /* POSSIBLE @YM08272*/ 02924000 B @RC00994 1036 02925000 @RF00994 DS 0H 1037 02926000 * IF(SDWAABCC&EOVMASK)=EOVCODE|/* X37 ABEND @ZA17822*/ 02927000 * (SDWAABCC&IOMASK)=IOCODE THEN/* I/O ERROR @ZA17822*/ 02928000 MVC @TS00001(4),SDWAABCC(SDWAPTR) 1037 02929000 NC @TS00001(4),@CB00126 1037 02930000 CLC @TS00001(4),@CB00124 1037 02931000 BE @RT01037 1037 02932000 MVC @TS00001(4),SDWAABCC(SDWAPTR) 1037 02933000 NC @TS00001(4),@CB00130 1037 02934000 CLC @TS00001(4),@CB00128 1037 02935000 BNE @RF01037 1037 02936000 @RT01037 DS 0H 1038 02937000 * SDWASR15=8; /* SET BAD RETURN CODE @ZA16882*/ 02938000 MVC SDWASR15(4,SDWAPTR),@CF00151 1038 02939000 * SDWASR09=ABDSVCB; /* RESTORE SVC 51 BASE REG 1039 02940000 * @ZA17294*/ 02941000 @RF01037 L @11,ABDSVCB(,ABDARPTR) 1039 02942000 ST @11,SDWASR09(,SDWAPTR) 1039 02943000 * CALL DEQFREE; /* PERFORM NECESSARY CLEAN-UP 1040 02944000 * @ZA17294*/ 02945000 BAL @14,DEQFREE 1040 02946000 * DO; /* SETRP RETADDR(R3->I256C)REGS(1 02947000 * 4,12)FRESDWA(YES)RC(4)WKAREA(S 02948000 * DWAPTR)RETREGS(YES)DUMP(NO) */ 02949000 * RESPECIFY 1042 02950000 * (GPR00P, 1042 02951000 * GPR01P, 1042 02952000 * GPR14P, 1042 02953000 * GPR15P) RSTD; 1042 02954000 * GPR01P=SDWAPTR; 1043 02955000 LR GPR01P,SDWAPTR 1043 02956000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 02957000 MVI SDWARCDE(GPR01P),X'04' 1044 02958000 * GPR01P->SDWARTYA=ADDR(R3->I256C);/* SAVE RETRY ADDRESS */ 02959000 ST R3,SDWARTYA(,GPR01P) 1045 02960000 * GPR01P->SDWAFREE='1'B; /* SET FLAG TO FREE SDWA */ 02961000 OI SDWAFREE(GPR01P),B'00000100' 1046 02962000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 02963000 NI SDWAREQ(GPR01P),B'01111111' 1047 02964000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 02965000 OI SDWAUPRG(GPR01P),B'00001000' 1048 02966000 * GEN(RETURN (14,12)); 1049 02967000 RETURN (14,12) 02968000 * RESPECIFY 1050 02969000 * (GPR00P, 1050 02970000 * GPR01P, 1050 02971000 * GPR14P, 1050 02972000 * GPR15P) UNRSTD; 1050 02973000 * END; /* @ZA17294*/ 02974000 * END; 1052 02975000 * 1052 02976000 * /*****************************************************************/ 02977000 * /* */ 02978000 * /* RETRY IS MADE TO PRESET RETRY POINT @YM08272*/ 02979000 * /* */ 02980000 * /*****************************************************************/ 02981000 * 1053 02982000 * DO; /* SETRP RETADDR(RETRYPT)REGS(14, 02983000 * 12)FRESDWA(YES)RC(4)WKAREA(SDW 02984000 * APTR)RETREGS(YES)DUMP(NO) */ 02985000 @RC00994 DS 0H 1054 02986000 * RESPECIFY 1054 02987000 * (GPR00P, 1054 02988000 * GPR01P, 1054 02989000 * GPR14P, 1054 02990000 * GPR15P) RSTD; 1054 02991000 * GPR01P=SDWAPTR; 1055 02992000 LR GPR01P,SDWAPTR 1055 02993000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 02994000 MVI SDWARCDE(GPR01P),X'04' 1056 02995000 * GPR01P->SDWARTYA=ADDR(RETRYPT);/* SAVE RETRY ADDRESS */ 02996000 L @11,RETRYLOC 1057 02997000 ST @11,SDWARTYA(,GPR01P) 1057 02998000 * GPR01P->SDWAFREE='1'B; /* SET FLAG TO FREE SDWA */ 02999000 OI SDWAFREE(GPR01P),B'00000100' 1058 03000000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 03001000 NI SDWAREQ(GPR01P),B'01111111' 1059 03002000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 03003000 OI SDWAUPRG(GPR01P),B'00001000' 1060 03004000 * GEN(RETURN (14,12)); 1061 03005000 RETURN (14,12) 03006000 * RESPECIFY 1062 03007000 * (GPR00P, 1062 03008000 * GPR01P, 1062 03009000 * GPR14P, 1062 03010000 * GPR15P) UNRSTD; 1062 03011000 * END; 1063 03012000 * END SNPRCVR; 1064 03013000 @EL00002 DS 0H 1064 03014000 @EF00002 DS 0H 1064 03015000 @ER00002 BR @14 1064 03016000 EJECT 03017000 *SNP2RCV: 1065 03018000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 1065 03019000 * 1065 03020000 SNP2RCV DS 0H 1066 03021000 */* THIS ESTAE ROUTINE IS ENTERED IF AN ERROR OCCURS IN THE FIRST */ 03022000 */* RECOVERY ROUTINE. */ 03023000 * 1066 03024000 * DO; /* ENTESTAE 1066 03025000 * (BASE,BASE2,AUTOPTR,ABDARPTR) */ 03026000 */* ENTRY CODE FOR ESTAE ROUTINE. */ 03027000 */* IF RTCA ALLOCATED THEN RESTORE CODE AND */ 03028000 */* DATA REGS FROM START OF USERS PARM LIST, */ 03029000 */* AND ESTABLISH ADDR TO ESTAE SAVE AREA */ 03030000 */* IF REQUIRED. */ 03031000 */* IF NO RTCA IS AVAILABLE THEN JUST RETURN */ 03032000 */* TO RTM TO CONTINUE TERMINATION */ 03033000 * 1067 03034000 * GEN(USING *,GPR15P); 1067 03035000 USING *,GPR15P 03036000 * GEN(CH GPR00F,*+14); /* CHECK IF RTCA ALLOC FAILED */ 03037000 CH GPR00F,*+14 03038000 * GEN(BNE *+12); /* NO,SAVE RTM REGS */ 03039000 BNE *+12 03040000 * GEN(DROP GPR15P); /* DROP LOCAL ADDR */ 03041000 DROP GPR15P 03042000 * GEN(LA GPR15P,0); /* YES, SET CONT TERM RC */ 03043000 LA GPR15P,0 03044000 * GEN(BR GPR14P); /* RETURN TO RTM */ 03045000 BR GPR14P 03046000 * GEN(DC H'12'); /* NO RTCA AVAIL RC */ 03047000 DC H'12' 03048000 * GEN(STM GPR14P,GPR12F,12(GPR13P));/* GOOD R13, SAVE RTM'S 1074 03049000 * REGS */ 03050000 STM GPR14P,GPR12F,12(GPR13P) 03051000 * GEN(L GPR15P,0(GPR01P)); /* PTR TO USER PARM LIST */ 03052000 L GPR15P,0(GPR01P) 03053000 * GEN(L BASE,00(GPR15P)); 1076 03054000 L BASE,00(GPR15P) 03055000 * GEN(L BASE2,04(GPR15P)); 1077 03056000 L BASE2,04(GPR15P) 03057000 * GEN(L AUTOPTR,08(GPR15P)); 1078 03058000 L AUTOPTR,08(GPR15P) 03059000 * GEN(L ABDARPTR,12(GPR15P)); 1079 03060000 L ABDARPTR,12(GPR15P) 03061000 * END; /* ENTESTAE 1080 03062000 * (BASE,BASE2,AUTOPTR,ABDARPTR) 03063000 * @G33SPHW*/ 03064000 * SDWAPTR=PARMPTR; /* GET SDWA ADDR */ 03065000 LR SDWAPTR,PARMPTR 1081 03066000 * ESTAEPTR=SDWAPARM; /* GET ESTAE PARMLIST @YM04290*/ 03067000 L ESTAEPTR,SDWAPARM(,SDWAPTR) 1082 03068000 * SDWAMODN(1:8)=EMODNAME; /* GET NAME OF MOD IN CNTRL WHEN 03069000 * ORIGINAL ERROR OCCURRED 1083 03070000 * @YM04290*/ 03071000 MVC SDWAMODN(8,SDWAPTR),EMODNAME(ABDARPTR) 1083 03072000 * SDWACSCT=SDWAMODN; /* GET CSECT NAME @YM04290*/ 03073000 MVC SDWACSCT(8,SDWAPTR),SDWAMODN(SDWAPTR) 1084 03074000 * SDWAREXN='SNP2RCV'; /* NAME OF RECOVERY ROUTINE 1085 03075000 * @YMO4290*/ 03076000 MVI SDWAREXN+7(SDWAPTR),C' ' 1085 03077000 MVC SDWAREXN(7,SDWAPTR),@CC04413 1085 03078000 * DO; /* SETRP 1086 03079000 * RECORD(YES)WKAREA(SDWAPTR) */ 03080000 * RESPECIFY 1087 03081000 * (GPR00P, 1087 03082000 * GPR01P, 1087 03083000 * GPR14P, 1087 03084000 * GPR15P) RSTD; 1087 03085000 * GPR01P=SDWAPTR; 1088 03086000 LR GPR01P,SDWAPTR 1088 03087000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 03088000 MVI SDWARCDE(GPR01P),X'00' 1089 03089000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 03090000 OI SDWARCRD(GPR01P),B'10000000' 1090 03091000 * RESPECIFY 1091 03092000 * (GPR00P, 1091 03093000 * GPR01P, 1091 03094000 * GPR14P, 1091 03095000 * GPR15P) UNRSTD; 1091 03096000 * END; /* RECORD ERROR @YM03627*/ 03097000 * PARMPTR=ADDR(SDUMP3); /* REQUEST SVC DUMP */ 03098000 LA PARMPTR,SDUMP3 1093 03099000 * GEN(SDUMP MF=(E,(1))); 1094 03100000 SDUMP MF=(E,(1)) 03101000 * DO; /* SETRP 1095 03102000 * WKAREA(SDWAPTR)REGS(14,12) */ 03103000 * RESPECIFY 1096 03104000 * (GPR00P, 1096 03105000 * GPR01P, 1096 03106000 * GPR14P, 1096 03107000 * GPR15P) RSTD; 1096 03108000 * GPR01P=SDWAPTR; 1097 03109000 LR GPR01P,SDWAPTR 1097 03110000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 03111000 MVI SDWARCDE(GPR01P),X'00' 1098 03112000 * GEN(RETURN (14,12)); 1099 03113000 RETURN (14,12) 03114000 * RESPECIFY 1100 03115000 * (GPR00P, 1100 03116000 * GPR01P, 1100 03117000 * GPR14P, 1100 03118000 * GPR15P) UNRSTD; 1100 03119000 * END; /* CONTINUE W/TERMINATION */ 03120000 * END SNP2RCV; 1102 03121000 @EL00003 DS 0H 1102 03122000 @EF00003 DS 0H 1102 03123000 @ER00003 BR @14 1102 03124000 EJECT 03125000 *QMRECVR: 1103 03126000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* RECOVERY RTN @Z40MPXG*/ 03127000 QMRECVR DS 0H 1104 03128000 * DCBPTR=ABDPDCBP; /* RESTORE DCBPTR @Z40MPXG*/ 03129000 L @11,ABDPDCBP(,ABDARPTR) 1104 03130000 ST @11,DCBPTR 1104 03131000 * ERESTART=0; /* STOP RECURSION @Z40MPXG*/ 03132000 SLR @11,@11 1105 03133000 ST @11,ERESTART(,ABDARPTR) 1105 03134000 * RFY 1106 03135000 * (R0, 1106 03136000 * R15) RSTD; /* FOR QMNGRIO @Z40MPXG*/ 03137000 * R0=80; /* MACRO FAILURE. SET @Z40MPXG*/ 03138000 LA R0,80 1107 03139000 * GEN REFS(R0); 1108 03140000 * 1108 03141000 * /* GETMAIN LENGTH @Z40MPXG*/ 03142000 GETMAIN RC,LV=(R0),SP=253 Z40MPXG 03143000 * /*****************************************************************/ 03144000 * /* */ 03145000 * /* CHECK FOR GOOD RETURN . IF BAD, NO MESSAGE... @Z40MPXG*/ 03146000 * /* */ 03147000 * /*****************************************************************/ 03148000 * 1109 03149000 * SAVERET=PARMPTR; /* SAVE ADDRESS @Z40MPXG*/ 03150000 LR SAVERET,PARMPTR 1109 03151000 * IF R15=0 THEN /* IF GOOD THEN FIGURE @Z40MPXG*/ 03152000 LTR R15,R15 1110 03153000 BNZ @RF01110 1110 03154000 * IF APFABEND=OFF THEN /* IF ABDUMP CALLING @Z40MPXG*/ 03155000 TM APFABEND(ABDARPTR),B'00010000' 1111 03156000 BNZ @RF01111 1111 03157000 * DO; /* ASSUME DEFAULTS AND @Z40MPXG*/ 03158000 * ABDLLNGH=120; /* TAKE DUMP ANYWAY @Z40MPXG*/ 03159000 MVI ABDLLNGH(ABDARPTR),X'78' 1113 03160000 * ABDPCAP=56; /* LINE 120 CHARS AND @Z40MPXG 03161000 * PAGE 55 LINES @Z40MPXG*/ 03162000 MVI ABDPCAP(ABDARPTR),X'38' 1114 03163000 * BUFFER(1:80)=STDMPMSG; /* SET MESSAGE @Z40MPXG*/ 03164000 MVI BUFFER+72(R1),C' ' 1115 03165000 MVC BUFFER+73(7,R1),BUFFER+72(R1) 1115 03166000 MVC BUFFER(72,R1),STDMPMSG 1115 03167000 * GEN; 1116 03168000 * /* DO WTO FOR MESSAGE @Z40MPXG*/ 03169000 WTO MF=(E,(R1)) Z40MPXG 03170000 FREEMAIN R,LV=80,SP=253,A=(9) Z40MPXG 03171000 * SAVERET=0; /* RESTORE SAVERET @Z40MPXG*/ 03172000 SLR SAVERET,SAVERET 1117 03173000 * GOTO QMRETRY; /* CONTINUE THE DUMP @Z40MPXG*/ 03174000 B QMRETRY 1118 03175000 * END; /* END ABDUMP CALLING @Z40MPXG*/ 03176000 * ELSE /* IF USER SNAP @Z40MPXG*/ 03177000 * DO; /* THEN CANCEL DUMP @Z40MPXG*/ 03178000 @RF01111 DS 0H 1121 03179000 * BUFFER(1:80)=KILLMSG; /* SET MESSAGE TEXT @Z40MPXG*/ 03180000 MVI BUFFER+58(R1),C' ' 1121 03181000 MVC BUFFER+59(21,R1),BUFFER+58(R1) 1121 03182000 MVC BUFFER(58,R1),KILLMSG 1121 03183000 * GEN; 1122 03184000 * /* DO WTO AND FREEMAIN @Z40MPXG*/ 03185000 WTO MF=(E,(R1)) Z40MPXG 03186000 FREEMAIN R,LV=80,SP=253,A=(9) Z40MPXG 03187000 * CALL DEQFREE; /* CLEAN UP FOR EXIT @Z40MPXG*/ 03188000 BAL @14,DEQFREE 1123 03189000 * RETCODE=8; /* SET RETURN CODE @Z40MPXG*/ 03190000 LA RETCODE,8 1124 03191000 * RETRG=R3; /* SET RETURN ADDRESS @Z40MPXG*/ 03192000 LR RETRG,R3 1125 03193000 * RETURN; /* RETURN TO CALLER @Z40MPXG*/ 03194000 @EL00004 DS 0H 1126 03195000 @EF00004 DS 0H 1126 03196000 @ER00004 BR @14 1126 03197000 * END; /* END USER SNAP @Z40MPXG*/ 03198000 * ELSE /* IF NO GETMAIN AREA @Z40MPXG*/ 03199000 * IF APFABEND=OFF THEN /* IF ABDUMP CALLING @Z40MPXG*/ 03200000 @RF01110 TM APFABEND(ABDARPTR),B'00010000' 1128 03201000 BNZ @RF01128 1128 03202000 * DO; /* SET DEFAULTS AND @Z40MPXG*/ 03203000 * SAVERET=0; /* RESTORE RETURN CODE @Z40MPXG*/ 03204000 SLR SAVERET,SAVERET 1130 03205000 * ABDLLNGH=120; /* LINE 120 CHARS @Z40MPXG*/ 03206000 MVI ABDLLNGH(ABDARPTR),X'78' 1131 03207000 * ABDPCAP=56; /* PAGE 55 LINES @Z40MPXG*/ 03208000 MVI ABDPCAP(ABDARPTR),X'38' 1132 03209000 * GOTO QMRETRY; /* CONTINUE DUMP @Z40MPXG*/ 03210000 B QMRETRY 1133 03211000 * END; /* END ABDUMP CALLING @Z40MPXG*/ 03212000 * ELSE /* IF USER SNAP @Z40MPXG*/ 03213000 * DO; /* KILL DUMP AND RETURN@Z40MPXG */ 03214000 @RF01128 DS 0H 1136 03215000 * CALL DEQFREE; /* CLEAN UP FOR EXIT @Z40MPXG*/ 03216000 BAL @14,DEQFREE 1136 03217000 * RETCODE=8; /* SET RETURN CODE @Z40MPXG*/ 03218000 LA RETCODE,8 1137 03219000 * RETRG=R3; /* SET RETURN ADDRESS @Z40MPXG*/ 03220000 LR RETRG,R3 1138 03221000 * RETURN; /* RETURN TO CALLER @Z40MPXG*/ 03222000 B @EL00004 1139 03223000 * END; /* END USER CALLING @Z40MPXG*/ 03224000 * RFY 1141 03225000 * (R0, 1141 03226000 * R15) UNRSTD; /* FREE UP REGS @Z40MPXG*/ 03227000 * END QMRECVR; /* END RECOVERY RTN @Z40MPXG*/ 03228000 EJECT 03229000 *VALCKTCB: 1143 03230000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 1143 03231000 * 1143 03232000 VALCKTCB DS 0H 1144 03233000 * /*****************************************************************/ 03234000 * /* */ 03235000 * /* THIS SUBROUTINE CHECKS THAT THE TCB FOR THE TASK TO BE DUMPED */ 03236000 * /* IS IN THE TREE DEFINED BY THE JOBSTEP OF THE REQUESTOR OF THE */ 03237000 * /* DUMP. REPETATIVE CALLS ARE MADE TO IEATRSCN UNTIL EITHER THE */ 03238000 * /* TCB BEGING DUMP IS FOUND(RETURN CODE 0) OR NO MORE TCBS ARE ON*/ 03239000 * /* THE TREE. REGISTER REQUIREMENTS ON ENTRY TO IEATRSCN: R8: */ 03240000 * /* ADDRESS OF JS-TCB R10: ADDRESS OF TCB TO BE SEARCHED FOR R11: */ 03241000 * /* RETURN ADDRESS- NO MORE TCB'S R14: RETURN ADDRESS- TCB FOUND */ 03242000 * /* */ 03243000 * /*****************************************************************/ 03244000 * 1144 03245000 * RESPECIFY 1144 03246000 * (R0, 1144 03247000 * R11, 1144 03248000 * R14, 1144 03249000 * RETCODE) RESTRICTED; 1144 03250000 * SAVBASE2=BASE2; /* SAVE BASE REG OVER IEATRSCN 1145 03251000 * @G33SPHW*/ 03252000 ST BASE2,SAVBASE2 1145 03253000 * VALR14SV=R14; /* SAVE RETURN ADDRESS @G33SPHW*/ 03254000 ST R14,VALR14SV 1146 03255000 * R11=ADDR(TCBIVALD); /* SET UP NO MORE TCB RETURN 1147 03256000 * ADDRESS */ 03257000 LA R11,TCBIVALD 1147 03258000 * JSTCB1=TCBJSTCA; /* GET JOB STEP TCB POINTER */ 03259000 L JSTCB1,TCBJSTCA-1(,TCBPTR) 1148 03260000 LA JSTCB1,0(,JSTCB1) 1148 03261000 * JSTCB2=JSTCB1; /* BEGIN SEARCH FROM TOP TASK */ 03262000 LR JSTCB2,JSTCB1 1149 03263000 * R14=ADDR(TCBFOUND); /* SET UP TCB FOUND ADDRESS */ 03264000 * 1150 03265000 LA R14,TCBFOUND 1150 03266000 * /*****************************************************************/ 03267000 * /* */ 03268000 * /* EXERCISE DO LOOP UNTIL TCB TO BE DISPLAYED IS FOUND OR NO MORE*/ 03269000 * /* TCBS EXIST. IEATRSCN RETURNS IN R10 THE NEXT LOWER TCB. THIS */ 03270000 * /* COMPARED WITH THE TCB TO BE DISPLAYED (ABDPTCBP). */ 03271000 * /* */ 03272000 * /*****************************************************************/ 03273000 * 1151 03274000 * DO WHILE(JSTCB2^=ABDPTCBP); 1151 03275000 B @DE01151 1151 03276000 @DL01151 DS 0H 1152 03277000 * R15=CVTRSCN; /* GET ADDR OF IEATRSCN FROM CVT */ 03278000 L @05,CVTPTR 1152 03279000 L R15,CVTRSCN(,@05) 1152 03280000 * GENERATE; 1153 03281000 BALR R3,R15 CALL IEATRSCN 03282000 * END; 1154 03283000 @DE01151 C JSTCB2,ABDPTCBP(,ABDARPTR) 1154 03284000 BNE @DL01151 1154 03285000 *TCBFOUND: 1155 03286000 * RETCODE=0; /* RETURN TO MAINLINE INDICATING 03287000 * TCB FOUND */ 03288000 TCBFOUND SLR RETCODE,RETCODE 1155 03289000 * BASE2=SAVBASE2; /* RESTORE BASE REG 2 @G33SPHW*/ 03290000 L BASE2,SAVBASE2 1156 03291000 * R14=VALR14SV; /* RESTORE RETURN ADDR @G33SPHW*/ 03292000 L R14,VALR14SV 1157 03293000 * RETURN; 1158 03294000 @EL00005 DS 0H 1158 03295000 @EF00005 DS 0H 1158 03296000 @ER00005 BR @14 1158 03297000 *TCBIVALD: 1159 03298000 * RETCODE=4; /* RETURN TO MAINLINE INDICATING 03299000 * TCB NOT FOUND */ 03300000 TCBIVALD LA RETCODE,4 1159 03301000 * BASE2=SAVBASE2; /* RESTORE BASE REG 2 @G33SPHW*/ 03302000 L BASE2,SAVBASE2 1160 03303000 * R14=VALR14SV; /* RESTORE RETURN ADDR @G33SPHW*/ 03304000 L R14,VALR14SV 1161 03305000 * RETURN; 1162 03306000 B @EL00005 1162 03307000 * END VALCKTCB; 1163 03308000 EJECT 03309000 *DEQFREE: 1164 03310000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 1164 03311000 * 1164 03312000 DEQFREE DS 0H 1165 03313000 * /*****************************************************************/ 03314000 * /* */ 03315000 * /* THIS SECTION OF CODE DETERMINES WHETHER DEQ SHOULD BE ISSUED */ 03316000 * /* FOR THE DUMP DATA SET, FREES REMAINING CORE AND CANCELS ESTAE */ 03317000 * /* EXIT */ 03318000 * /* */ 03319000 * /*****************************************************************/ 03320000 * 1165 03321000 * RFY 1165 03322000 * (R0, 1165 03323000 * R3, 1165 03324000 * R8, 1165 03325000 * R11, 1165 03326000 * R15) UNRSTD; 1165 03327000 * RFY 1166 03328000 * SAVE13 RSTD; 1166 03329000 * SAVE13=RETRG; /* PROTECT SUBRTN RETURN REG. 1167 03330000 * @YM04223*/ 03331000 * 1167 03332000 LR SAVE13,RETRG 1167 03333000 * /*****************************************************************/ 03334000 * /* */ 03335000 * /* IF THE CURRENT TASK WAS NOT DUMPED, STATUS IS ISSUED TO RESET */ 03336000 * /* THE TASK DISPATCHABLE. DETERMINE IF STATUS ISSUED. */ 03337000 * /* */ 03338000 * /*****************************************************************/ 03339000 * 1168 03340000 * IF ABDSTAT='1'B /* WAS STATUS ISSUED */ 03341000 * THEN 1168 03342000 TM ABDSTAT(ABDARPTR),B'00000010' 1168 03343000 BNO @RF01168 1168 03344000 * DO; 1169 03345000 * GENERATE; 1170 03346000 * /* YES */ 03347000 STATUS RESET,ND,STEP,(1) SET TASK DISPATCHABLE 03348000 * TCBADMP=OFF; /* TURN OFF INDICATOR OF TASK 1171 03349000 * ISSUING */ 03350000 NI TCBADMP(TCBPTR),B'11111101' 1171 03351000 * END; /* STATUS */ 03352000 * IF ABDFMTLD=ON THEN /* FORMAT ROUTINE STILL LOADED 1173 03353000 * @G33SPHW*/ 03354000 @RF01168 TM ABDFMTLD(ABDARPTR),B'00001000' 1173 03355000 BNO @RF01173 1173 03356000 * DO; /* YES... DELETE AMDPRFMT 1174 03357000 * @G33SPHW*/ 03358000 * GEN(DELETE EP=AMDPRFMT); /* DELETE AMDPRFMT @G33SPHW*/ 03359000 DELETE EP=AMDPRFMT 03360000 * PARMPTR=ABDARPTR; /* RESTORE PARMLIST @G33SPHW*/ 03361000 LR PARMPTR,ABDARPTR 1176 03362000 * ABDFMTLD=OFF; /* RESET DELETE FORMAT FLAG 1177 03363000 * @G33SPHW*/ 03364000 NI ABDFMTLD(ABDARPTR),B'11110111' 1177 03365000 * END; /* END FORMAT LOADED @G33SPHW*/ 03366000 * IF ABDTRBIT=ON| /* WAS SUPERVISOR TRACE REQUESTED 03367000 * AND */ 03368000 * ABDSUPER=ON /* BUFFER SPACE STILL ALLOCATED */ 03369000 * THEN 1179 03370000 @RF01173 TM ABDTRBIT(ABDARPTR),B'10100000' 1179 03371000 BZ @RF01179 1179 03372000 * DO; /* YES, FREE CORE */ 03373000 * ABDASIZE=ABDLP-ABDFP+32; /* AMOUNT TO BE FREED */ 03374000 L @11,ABDFP(,ABDARPTR) 1181 03375000 L @05,ABDLP(,ABDARPTR) 1181 03376000 SLR @05,@11 1181 03377000 AL @05,@CF00123 1181 03378000 ST @05,ABDASIZE(,ABDARPTR) 1181 03379000 * ABDAAREA=ABDFP; /* INITIALIZE FREEMAIN PARM- LIST 03380000 * TO BEGINNING OF AREA */ 03381000 ST @11,ABDAAREA(,ABDARPTR) 1182 03382000 * PARMPTR=ADDR(ABDASIZE); /* GET ADDR OF PARMLIST */ 03383000 LA PARMPTR,ABDASIZE(,ABDARPTR) 1183 03384000 * IF ABDTRSV^=ON THEN /* DID SNAP OBTAIN TRACE @ZM45190*/ 03385000 TM ABDTRSV(ABDARPTR),B'00000010' 1184 03386000 BO @RF01184 1184 03387000 * DO; /* NO.. FREE SP230 @ZM45190*/ 03388000 * GEN(FREEMAIN E,SP=230,A=ABDGMA(ABDARPTR),MF=(E,(1))); 1186 03389000 FREEMAIN E,SP=230,A=ABDGMA(ABDARPTR),MF=(E,(1)) 03390000 * END; /* END .. SP230 @ZM45190*/ 03391000 * ELSE /* SNAP OBTAINED TRACE @ZM45190*/ 03392000 * DO; /* YES.. FREE SP253 @ZM45190*/ 03393000 B @RC01184 1188 03394000 @RF01184 DS 0H 1189 03395000 * GEN(FREEMAIN E,SP=253,A=ABDGMA(ABDARPTR),MF=(E,(1))); 1189 03396000 FREEMAIN E,SP=253,A=ABDGMA(ABDARPTR),MF=(E,(1)) 03397000 * END; /* END.. SP253 @ZM45190*/ 03398000 * IF TCBRTWA^=0 THEN /* RTM2WA AVAILABLE @G33SPHW*/ 03399000 @RC01184 SLR @11,@11 1191 03400000 C @11,TCBRTWA(,TCBPTR) 1191 03401000 BE @RF01191 1191 03402000 * DO; /* YES... ZERO TRACE POINTERS 1192 03403000 * @G33SPHW*/ 03404000 * RTM2TRTB=0; /* ZERO RTM2 TRACE POINTER 1193 03405000 * @G33SPHW*/ 03406000 L @05,RTM2PTR(,TCBPTR) 1193 03407000 ST @11,RTM2TRTB(,@05) 1193 03408000 * RTM2TRLN=0; /* ZERO RTM2 TRACE LENGTH 1194 03409000 * @G33SPHW*/ 03410000 ST @11,RTM2TRLN(,@05) 1194 03411000 * RTM2TRCU=0; /* ZERO RTM2 TRACE CURRENT 1195 03412000 * @G33SPHW*/ 03413000 ST @11,RTM2TRCU(,@05) 1195 03414000 * RTM2TRFS=0; /* ZERO RTM2 TRACE FIRST @G33SPHW*/ 03415000 ST @11,RTM2TRFS(,@05) 1196 03416000 * RTM2TRLS=0; /* ZERO RTM2 TRACE LAST @G33SPHW*/ 03417000 ST @11,RTM2TRLS(,@05) 1197 03418000 * END; /* END... RTM2WA AVAILABLE 1198 03419000 * @G33SPHW*/ 03420000 * END; /* END... TRACE AVAILABLE 1199 03421000 * @G33SPHW*/ 03422000 @RF01191 DS 0H 1200 03423000 * IF APFABEND=ON /* WAS ABEND THE CALLER */ 03424000 * THEN 1200 03425000 @RF01179 TM APFABEND(ABDARPTR),B'00010000' 1200 03426000 BNO @RF01200 1200 03427000 * DO; /* NO */ 03428000 * ENQLIST(1:20)=''B; /* ZERO DEQ PARAMETER LIST */ 03429000 L @11,RBSECPTR 1202 03430000 XC ENQLIST(20,@11),ENQLIST(@11) 1202 03431000 * LASTIND='FF'X; /* INDICATE 1 ENTRY IN LIST */ 03432000 MVI LASTIND(@11),X'FF' 1203 03433000 * SIZEMIN='04'X; /* SET MINOR NAME LENGT TO 4 */ 03434000 MVI SIZEMIN(@11),X'04' 1204 03435000 * MAJAD=ADDR(MAJNM); /* GET ADDR OF MAJOR NAME */ 03436000 LA @05,MAJNM(,@11) 1205 03437000 ST @05,MAJAD(,@11) 1205 03438000 * MINAD=ADDR(ABDPDCBP); /* SET ADDR OF MINOR NAME TO ADDR 03439000 * OF DCB FOR DUMP DATA SET */ 03440000 LA @05,ABDPDCBP(,ABDARPTR) 1206 03441000 ST @05,MINAD(,@11) 1206 03442000 * MAJNM='SYSIEA01'; /* INDICATE MAJOR NAME */ 03443000 MVC MAJNM(8,@11),@CC04293 1207 03444000 * PARMPTR=ADDR(ENQLIST); /* GET PTR TO PARMLIST */ 03445000 LA PARMPTR,ENQLIST(,@11) 1208 03446000 * GEN(DEQ (,,,STEP),RET=HAVE,MF=(E,(PARMPTR))); 1209 03447000 DEQ (,,,STEP),RET=HAVE,MF=(E,(PARMPTR)) 03448000 * END; 1210 03449000 * IF ABDBUFAD^=0 THEN /* WERE OUTPUT BUFFERS OBTAINED */ 03450000 @RF01200 L @11,ABDBUFAD(,ABDARPTR) 1211 03451000 LTR @11,@11 1211 03452000 BZ @RF01211 1211 03453000 * DO; /* YES */ 03454000 * ABDASIZE=ABDBUFSZ; /* OBTAIN BUFFER SIZE */ 03455000 L @05,ABDBUFSZ(,ABDARPTR) 1213 03456000 ST @05,ABDASIZE(,ABDARPTR) 1213 03457000 * ABDAAREA=ABDBUFAD; /* OBTAIN BEGINNING OF BUFFER */ 03458000 ST @11,ABDAAREA(,ABDARPTR) 1214 03459000 * PARMPTR=ADDR(ABDASIZE); /* GET ADDR OF PARMLIST */ 03460000 LA PARMPTR,ABDASIZE(,ABDARPTR) 1215 03461000 * GEN(FREEMAIN E,SP=250,A=ABDGMA(ABDARPTR),MF=(E,(1))); 1216 03462000 FREEMAIN E,SP=250,A=ABDGMA(ABDARPTR),MF=(E,(1)) 03463000 * END; 1217 03464000 * IF ABDDECB^=0 THEN /* DOES DECB EXIST */ 03465000 @RF01211 L @11,ABDDECB(,ABDARPTR) 1218 03466000 LTR @11,@11 1218 03467000 BZ @RF01218 1218 03468000 * DO; /* YES, FREE IT */ 03469000 * GENERATE; 1220 03470000 L R1,ABDDECB(ABDARPTR) GET ADDR OF DECB & SAVE AREA 03471000 FREEMAIN R,LV=96,A=(1),SP=250 FREE STORAGE 03472000 * END; 1221 03473000 * RESPECIFY 1222 03474000 * (R0, 1222 03475000 * R3, 1222 03476000 * R8) RESTRICTED; 1222 03477000 @RF01218 DS 0H 1223 03478000 * R8=ABDSVCB; /* RESTORE SVC 51'S BASE */ 03479000 L R8,ABDSVCB(,ABDARPTR) 1223 03480000 * R3=ABDRTRN; /* RESTORE RETURN REGISTER */ 03481000 L R3,ABDRTRN(,ABDARPTR) 1224 03482000 * GEN(ESTAE 0); /* CANCEL ESTAE EXIT ROUTINE */ 03483000 * 1225 03484000 ESTAE 0 03485000 * /*****************************************************************/ 03486000 * /* */ 03487000 * /* FREE SNAP WORK AREA AND AUTOMATIC STORAGE */ 03488000 * /* */ 03489000 * /*****************************************************************/ 03490000 * 1226 03491000 * R0=LENGTH(COREAREA); /* GET LENGTH OF 1226 03492000 * WORKAREA/SAVEAREA */ 03493000 LA R0,1140 1226 03494000 * R0=R0|'FD000000'X; 1227 03495000 O R0,@CF04427 1227 03496000 * RFY 1228 03497000 * R5 RSTD; 1228 03498000 * R5=RBSECPTR; 1229 03499000 L R5,RBSECPTR 1229 03500000 * GENERATE REFS(GMREPLY2,R5); 1230 03501000 FREEMAIN R,LV=(0),A=GMREPLY2(R5) 03502000 FREEMAIN R,LV=@ENDDATD-@DATD,SP=253,A=(AUTOPTR) 03503000 * RFY 1231 03504000 * R5 UNRSTD; 1231 03505000 * RETRG=SAVE13; /* RE-SET SUBRTN RETURN REG. 1232 03506000 * @YM04223*/ 03507000 LR RETRG,SAVE13 1232 03508000 * RFY 1233 03509000 * SAVE13 UNRSTD; 1233 03510000 * RETURN; 1234 03511000 @EL00006 DS 0H 1234 03512000 @EF00006 DS 0H 1234 03513000 @ER00006 BR @14 1234 03514000 * RFY 1235 03515000 * R0 UNRSTD; 1235 03516000 * END DEQFREE; 1236 03517000 EJECT 03518000 *SNPOINDX: 1237 03519000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 1237 03520000 * 1237 03521000 SNPOINDX DS 0H 1238 03522000 * /*****************************************************************/ 03523000 * /* */ 03524000 * /* THIS SECTION OF CODE UPDATES THE INDEX WITH @G33SPHW*/ 03525000 * /* THE CURRENT PAGE NUMBER AND MOVES INDEX @G33SPHW*/ 03526000 * /* POINTER TO THE NEXT AVAILABLE ENTRY @G33SPHW*/ 03527000 * /* */ 03528000 * /*****************************************************************/ 03529000 * 1238 03530000 * RFY 1238 03531000 * R3 RSTD; 1238 03532000 * R3=ABDPCTR; /* PAGE NUMBER FROM SNAP WORKAREA 03533000 * @G33SPHW*/ 03534000 LH R3,ABDPCTR(,ABDARPTR) 1239 03535000 * CVD(R3,ABDPGWK); /* CONVERTPAGE NUMBER TO DECIMAL 03536000 * @G33SPHW*/ 03537000 CVD R3,ABDPGWK(,ABDARPTR) 1240 03538000 * UNPK(ABDPGWK(1:5),ABDPGWK(6:8));/* UNPACK PAGE NUMBER @G33SPHW*/ 03539000 UNPK ABDPGWK(5,ABDARPTR),ABDPGWK+5(3,ABDARPTR) 1241 03540000 * ABDPGWK(5:5)=ABDPGWK(5:5)|'F0'X;/* FIX UP SIGN BYTE @G33SPHW*/ 03541000 OI ABDPGWK+4(ABDARPTR),X'F0' 1242 03542000 * INDXPG=ABDPGWK(2:5); /* PUT CONVERTED PAGE NUMBER IN 03543000 * INDEX @G33SPHW*/ 03544000 L @11,INDXPTR 1243 03545000 MVC INDXPG(4,@11),ABDPGWK+1(ABDARPTR) 1243 03546000 * INDXPTR=INDXPTR+LENGTH(INDXENT);/* NEXT ENTRY @G33SPHW*/ 03547000 AL @11,@CF01670 1244 03548000 ST @11,INDXPTR 1244 03549000 * ABDCTR=ABDCTR+1; /* UPDATE NUMBER OF ENTRIES 1245 03550000 * @G33SPHW*/ 03551000 LA @11,1 1245 03552000 AH @11,ABDCTR(,ABDARPTR) 1245 03553000 STH @11,ABDCTR(,ABDARPTR) 1245 03554000 * RFY 1246 03555000 * R3 UNRSTD; 1246 03556000 * RETURN; /* @G33SPHW*/ 03557000 @EL00007 DS 0H 1247 03558000 @EF00007 DS 0H 1247 03559000 @ER00007 BR @14 1247 03560000 * END SNPOINDX; /* @G33SPHW*/ 03561000 EJECT 03562000 *SNPINDEX: 1249 03563000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 1249 03564000 * 1249 03565000 SNPINDEX DS 0H 1250 03566000 * /*****************************************************************/ 03567000 * /* */ 03568000 * /* THIS SUBROUTINE WILL BE GIVEN CONTROL AT COMPLETION OF ALL */ 03569000 * /* DUMPING TO OUTPUT THE INDEX AND FREE STORAGE OBTAINED FOR THE */ 03570000 * /* INDEX. @G33SPHW*/ 03571000 * /* */ 03572000 * /*****************************************************************/ 03573000 * 1250 03574000 * INDXRET=RETRG; /* SAVE RETURN ADDRESS @G33SPHW*/ 03575000 ST RETRG,INDXRET 1250 03576000 * IF ABDIDX=ON THEN /* INDEX AVAILABLE... @G33SPHW*/ 03577000 TM ABDIDX(ABDARPTR),B'00000001' 1251 03578000 BNO @RF01251 1251 03579000 * DO; /* YES... @G33SPHW*/ 03580000 * IF ABDCTR^=0 THEN /* ANY ENTRIES @G33SPHW*/ 03581000 LH @11,ABDCTR(,ABDARPTR) 1253 03582000 LTR @11,@11 1253 03583000 BZ @RF01253 1253 03584000 * DO; /* YES.. PRINT INDEX @G33SPHW*/ 03585000 * IF ABDLCTR^='0000'X THEN/* JUST STARTED NEW PAGE @ZM45058*/ 03586000 LH @11,ABDLCTR(,ABDARPTR) 1255 03587000 LTR @11,@11 1255 03588000 BZ @RF01255 1255 03589000 * DO; /* NO... RESET LINE COUNT 1256 03590000 * @ZM45058*/ 03591000 * ABDLCTR=ABDPCAP; /* FORCE LINE COUNT TO END OF 1257 03592000 * PAGE START INDEX ON NEW PAGE 03593000 * @G33SPHW*/ 03594000 SLR @11,@11 1257 03595000 IC @11,ABDPCAP(,ABDARPTR) 1257 03596000 STH @11,ABDLCTR(,ABDARPTR) 1257 03597000 * ABDLINEA=' '; /* BLANK OUTPUT LINE @G33SPHW*/ 03598000 MVI ABDLINEA+1(ABDARPTR),C' ' 1258 03599000 MVC ABDLINEA+2(203,ABDARPTR),ABDLINEA+1(ABDARPTR) 1258 03600000 MVI ABDLINEA(ABDARPTR),C' ' 1258 03601000 * PARMPTR=ABDARPTR; /* POINT R1 TO PARMLIST @G33SPHW*/ 03602000 LR PARMPTR,ABDARPTR 1259 03603000 * CALL IEAVAD11; /* WRITE BLANK LINE @G33SPHW*/ 03604000 L @15,@CV00109 1260 03605000 BALR @14,@15 1260 03606000 * END; /* END NEW PAGE @ZA16374*/ 03607000 * ABDLINE(20:29)=INDXHD1; /* PUT HEADER IN OUTPUT LINE 1262 03608000 * @G33SPHW*/ 03609000 @RF01255 MVC ABDLINE+19(10,ABDARPTR),INDXHD1 1262 03610000 * PARMPTR=ABDARPTR; /* REG1 EQUAL PARMLIST @G33SPHW*/ 03611000 LR PARMPTR,ABDARPTR 1263 03612000 * CALL IEAVAD11; /* PRINT HEADER ONE @G33SPHW*/ 03613000 L @15,@CV00109 1264 03614000 BALR @14,@15 1264 03615000 * ABDLINE(20:29)=UNDERSCR(1:10);/* UNDERSCORE HEADER 1265 03616000 * @G33SPHW*/ 03617000 MVC ABDLINE+19(10,ABDARPTR),UNDERSCR 1265 03618000 * CALL IEAVAD11; /* WRITE UNDERSCORE @G33SPHW*/ 03619000 L @15,@CV00109 1266 03620000 BALR @14,@15 1266 03621000 * PARMPTR=ABDARPTR; /* REG1 EQUAL PARMLIST @G33SPHW*/ 03622000 LR PARMPTR,ABDARPTR 1267 03623000 * ABDLINEA(1:12)=INDXHD2; /* PUT AREA IN HEADER @G33SPHW*/ 03624000 MVC ABDLINEA(12,ABDARPTR),INDXHD2 1268 03625000 * ABDLINEA(40:50)=INDXHD3;/* PUT PAGE NUMBER IN HEADER 1269 03626000 * @G33SPHW*/ 03627000 MVC ABDLINEA+39(11,ABDARPTR),INDXHD3 1269 03628000 * PARMPTR=ABDARPTR; /* REG1 EQUAL PARMLIST @G33SPHW*/ 03629000 LR PARMPTR,ABDARPTR 1270 03630000 * CALL IEAVAD11; /* OUTPUT SUB HEADER @G33SPHW*/ 03631000 L @15,@CV00109 1271 03632000 BALR @14,@15 1271 03633000 * ABDLINEA(2:12)=UNDERSCR;/* UNDERSCORE HEADER @G33SPHW*/ 03634000 MVC ABDLINEA+1(11,ABDARPTR),UNDERSCR 1272 03635000 * ABDLINEA(40:50)=UNDERSCR;/* UNDERSCORE HEADER @G33SPHW*/ 03636000 MVC ABDLINEA+39(11,ABDARPTR),UNDERSCR 1273 03637000 * PARMPTR=ABDARPTR; /* REG1 EQUAL PARMLIST @G33SPHW*/ 03638000 LR PARMPTR,ABDARPTR 1274 03639000 * CALL IEAVAD11; /* OUTPUT UNDERSCORES @G33SPHW*/ 03640000 L @15,@CV00109 1275 03641000 BALR @14,@15 1275 03642000 * INDXPTR=ABDINXPT; /* START OF INDEX @G33SPHW*/ 03643000 L @11,ABDINXPT(,ABDARPTR) 1276 03644000 ST @11,INDXPTR 1276 03645000 * ABDCC='0'; /* DOUBLE SPACE CC @G33SPHW*/ 03646000 MVI ABDCC(ABDARPTR),C'0' 1277 03647000 * DO I=1 TO ABDCTR BY 1; /* LOOP THRU INDEX AND PRINT 1278 03648000 * @G33SPHW*/ 03649000 LA @11,1 1278 03650000 STH @11,I 1278 03651000 B @DE01278 1278 03652000 @DL01278 DS 0H 1279 03653000 * ABDLINE(2:45)=INDXENT;/* MOVE ENTRY TO PRINT LINE 1279 03654000 * @G33SPHW*/ 03655000 L @11,INDXPTR 1279 03656000 MVC ABDLINE+1(44,ABDARPTR),INDXENT(@11) 1279 03657000 * PARMPTR=ABDARPTR; /* REG1 EQUAL PARMLIST POINTER 1280 03658000 * @G33SPHW*/ 03659000 LR PARMPTR,ABDARPTR 1280 03660000 * CALL IEAVAD11; /* OUTPUT LINE @G33SPHW*/ 03661000 L @15,@CV00109 1281 03662000 BALR @14,@15 1281 03663000 * INDXPTR=INDXPTR+LENGTH(INDXENT);/* NEXT ENTRY @G33SPHW*/ 03664000 LA @11,44 1282 03665000 AL @11,INDXPTR 1282 03666000 ST @11,INDXPTR 1282 03667000 * END; /* END DO @G33SPHW*/ 03668000 LA @11,1 1283 03669000 AH @11,I 1283 03670000 STH @11,I 1283 03671000 @DE01278 CH @11,ABDCTR(,ABDARPTR) 1283 03672000 BNH @DL01278 1283 03673000 * END; /* END NO ENTRIES @G33SPHW*/ 03674000 * R0=NUMOPTS*LENGTH(INDXENT); /* SIZE OF INDEX @G33SPHW*/ 03675000 @RF01253 LA R0,660 1285 03676000 * R1=ABDINXPT; /* ADDRESS OF INDEX @G33SPHW*/ 03677000 L R1,ABDINXPT(,ABDARPTR) 1286 03678000 * GEN(FREEMAIN RC,LV=(R0),SP=253,A=(R1));/* FREE AREA @G33SPHW*/ 03679000 FREEMAIN RC,LV=(R0),SP=253,A=(R1) 03680000 * END; /* @G33SPHW*/ 03681000 * RETRG=INDXRET; /* RESTORE RETURN ADDRESS@G33SPHW*/ 03682000 @RF01251 L RETRG,INDXRET 1289 03683000 * RETURN; /* @G33SPHW*/ 03684000 @EL00008 DS 0H 1290 03685000 @EF00008 DS 0H 1290 03686000 @ER00008 BR @14 1290 03687000 * END SNPINDEX; /* @G33SPHW*/ 03688000 EJECT 03689000 *ROUTINIT: 1292 03690000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 1292 03691000 * 1292 03692000 ROUTINIT DS 0H 1293 03693000 * /*****************************************************************/ 03694000 * /* */ 03695000 * /* BUILD THE IHAABDPL AND INITIALIZE. THE IHAABDPL IS USED AS */ 03696000 * /* INPUT TO SNAP FORMATTERS. @G33SPHW*/ 03697000 * /* */ 03698000 * /*****************************************************************/ 03699000 * 1293 03700000 * ROUTSAVE=RETERN; /* SAVE RETURN ADDRESS @G33SPHW*/ 03701000 ST RETERN,ROUTSAVE 1293 03702000 * ABDPLPTR=ADDR(ABDSSPAR); /* COMPONENT PARMLIST ADDRESS 1294 03703000 * FROM WORKAREA @G33SPHW*/ 03704000 LA @11,ABDSSPAR(,ABDARPTR) 1294 03705000 ST @11,ABDPLPTR 1294 03706000 * ADPLTCB=ABDTCB; /* TCB OF THE TASK BEING 1295 03707000 * DISPLAYED @G33SPHW*/ 03708000 L @05,ABDTCB(,ABDARPTR) 1295 03709000 ST @05,ADPLTCB(,@11) 1295 03710000 * ASCBPTR=PSAAOLD; /* GET CURRENT ASCB @G33SPHW*/ 03711000 L @05,PSAAOLD 1296 03712000 ST @05,ASCBPTR 1296 03713000 * ADPLASID=ASCBASID; /* THE ASID IS OBTAINED FROM THE 03714000 * ASCB @G33SPHW*/ 03715000 LH @05,ASCBASID(,@05) 1297 03716000 N @05,@CF04490 1297 03717000 STH @05,ADPLASID(,@11) 1297 03718000 * ADPLCVT=CVTPTR; /* CVT ADDRESS @G33SPHW*/ 03719000 L @05,CVTPTR 1298 03720000 ST @05,ADPLCVT(,@11) 1298 03721000 * ADPLBUF=ADDR(ABDLINEA)+1; /* ADDRESS OF PRINT BUFFER 1299 03722000 * @G33SPHW*/ 03723000 LA @03,ABDLINEA(,ABDARPTR) 1299 03724000 AL @03,@CF00118 1299 03725000 ST @03,ADPLBUF(,@11) 1299 03726000 * ADPLSBPL='FD'X; /* SUBPOOL FOR THE SAVEAREA 1300 03727000 * @G33SPHW*/ 03728000 MVI ADPLSBPL(@11),X'FD' 1300 03729000 * ADPLPRNT=ADDR(IEAVAD81); /* ADDRESS OF PRINT ROUTINE 1301 03730000 * @G33SPHW*/ 03731000 L @03,@CV00111 1301 03732000 ST @03,ADPLPRNT(,@11) 1301 03733000 * ADPLMEMA=ADDR(MEMACESS); /* DUMMY MEMORY ACCESS ROUTINE 1302 03734000 * @G33SPHW*/ 03735000 LA @03,MEMACESS 1302 03736000 ST @03,ADPLMEMA(,@11) 1302 03737000 * IF ABDFMTLD=OFF THEN /* FORMAT ROUTINE LOADED @G33SPHW*/ 03738000 TM ABDFMTLD(ABDARPTR),B'00001000' 1303 03739000 BNZ @RF01303 1303 03740000 * DO; /* NO ... LOADED AMDPRFMT 1304 03741000 * @G33SPHW*/ 03742000 * PARMPTR=CVTLINK; /* LINKLIB DCB @G33SPHW*/ 03743000 L PARMPTR,CVTLINK(,@05) 1305 03744000 * GEN(LOAD EP=AMDPRFMT,DCB=(1));/* LOAD AMDPRFMT @G33SPHW*/ 03745000 LOAD EP=AMDPRFMT,DCB=(1) 03746000 * ADPLFRMT=ENTRYREG; /* PUT FORMAT ROUTINE ADDRESS IN 03747000 * IHAABDPL @G33SPHW*/ 03748000 L @11,ABDPLPTR 1307 03749000 ST ENTRYREG,ADPLFRMT(,@11) 1307 03750000 * ABDFMTLD=ON; /* SET LOADED FORMAT FLAG 1308 03751000 * @G33SPHW*/ 03752000 OI ABDFMTLD(ABDARPTR),B'00001000' 1308 03753000 * PARMPTR=ABDARPTR; /* RESTORE PARM POINTER @G33SPHW*/ 03754000 LR PARMPTR,ABDARPTR 1309 03755000 * END; /* END... FORMATTER NOT LOADED 1310 03756000 * @G33SPHW*/ 03757000 * RETERN=ROUTSAVE; /* RESTORE RETURN ADDRESS 1311 03758000 * @G33SPHW*/ 03759000 @RF01303 L RETERN,ROUTSAVE 1311 03760000 * END ROUTINIT; 1312 03761000 @EL00009 DS 0H 1312 03762000 @EF00009 DS 0H 1312 03763000 @ER00009 BR @14 1312 03764000 EJECT 03765000 *MEMACESS: 1313 03766000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 1313 03767000 * 1313 03768000 MEMACESS DS 0H 1314 03769000 */* MEMACESS - DUMMY MEMORY ACCESS ROUTINE USED FOR COMPATIBILITY 03770000 * WITH AMDPRDMP. THIS ROUTINE WILL ZERO R15 AND RETURN. @G33SPHW*/ 03771000 * 1314 03772000 * R15=0; /* ZERO REGISTER 15 GOOD RETURN 03773000 * @G33SPHW*/ 03774000 SLR R15,R15 1314 03775000 * END MEMACESS; 1315 03776000 @EL00010 DS 0H 1315 03777000 @EF00010 DS 0H 1315 03778000 @ER00010 BR @14 1315 03779000 EJECT 03780000 * DCL 1316 03781000 * PATCHLOC FIXED(31) STATIC; 1316 03782000 * GEN DATA DEFS(PATCHLOC); 1317 03783000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 03784000 * GPR00F FIXED(31) REG(0), 1318 03785000 * GPR02F FIXED(31) REG(2), 1318 03786000 * GPR12F FIXED(31) REG(12), 1318 03787000 * GPR00P PTR(31) REG(0), 1318 03788000 * GPR01P PTR(31) REG(1), 1318 03789000 * GPR02P PTR(31) REG(2), 1318 03790000 * GPR13P PTR(31) REG(13), 1318 03791000 * GPR14P PTR(31) REG(14), 1318 03792000 * GPR15P PTR(31) REG(15); 1318 03793000 * DECLARE /* COMMON VARIABLES */ 03794000 * I256C CHAR(256) BASED, 1319 03795000 * I031F FIXED(31) BASED, 1319 03796000 * I031P PTR(31) BASED, 1319 03797000 * I015F FIXED(15) BASED, 1319 03798000 * I015P PTR(15) BASED, 1319 03799000 * I008P PTR(8) BASED, 1319 03800000 * I001C CHAR(1) BASED; 1319 03801000 * END IEAVAD01 1320 03802000 * 1320 03803000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 03804000 */*%INCLUDE SYSLIB (D01SPEC ) */ 03805000 */*%INCLUDE SYSLIB (D01DCL ) */ 03806000 */*%INCLUDE SYSLIB (IHAABDA ) */ 03807000 */*%INCLUDE SYSLIB (CVT ) */ 03808000 */*%INCLUDE SYSLIB (IHAASCB ) */ 03809000 */*%INCLUDE SYSLIB (IHADCBDF) */ 03810000 */*%INCLUDE SYSLIB (IHADCB ) */ 03811000 */*%INCLUDE SYSLIB (MODESET ) */ 03812000 */*%INCLUDE SYSLIB (IHAPSA ) */ 03813000 */*%INCLUDE SYSLIB (IHARB ) */ 03814000 */*%INCLUDE SYSLIB (IKJRB ) */ 03815000 */*%INCLUDE SYSLIB (IHARTCT ) */ 03816000 */*%INCLUDE SYSLIB (IHASCVT ) */ 03817000 */*%INCLUDE SYSLIB (IHASDWA ) */ 03818000 */*%INCLUDE SYSLIB (IKJTCB ) */ 03819000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 03820000 */*%INCLUDE SYSLIB (IEFQMIOP) */ 03821000 */*%INCLUDE SYSLIB (IEFJFCBN) */ 03822000 */*%INCLUDE SYSLIB (IEFJFCBE) */ 03823000 */*%INCLUDE SYSLIB (IEFJESCT) */ 03824000 */*%INCLUDE SYSLIB (IHARTM2A) */ 03825000 */*%INCLUDE SYSLIB (IHASNP ) */ 03826000 */*%INCLUDE SYSLIB (IHARMPL ) */ 03827000 */*%INCLUDE SYSLIB (IHAABDPL) */ 03828000 */*%INCLUDE SYSLIB (IHAESTA ) */ 03829000 */*%INCLUDE SYSLIB (SNPINIT ) */ 03830000 */*%INCLUDE SYSLIB (SNPVALCK) */ 03831000 */*%INCLUDE SYSLIB (SNPTLIST) */ 03832000 */*%INCLUDE SYSLIB (SNPENQ ) */ 03833000 */*%INCLUDE SYSLIB (SNPVDCB ) */ 03834000 */*%INCLUDE SYSLIB (SNPTRACE) */ 03835000 */*%INCLUDE SYSLIB (SNPVTCB ) */ 03836000 */*%INCLUDE SYSLIB (SNPINDX ) */ 03837000 */*%INCLUDE SYSLIB (SNPROUTE) */ 03838000 */*%INCLUDE SYSLIB (D01PSW ) */ 03839000 */*%INCLUDE SYSLIB (D01CB ) */ 03840000 */*%INCLUDE SYSLIB (D01QCB ) */ 03841000 */*%INCLUDE SYSLIB (D01DM ) */ 03842000 */*%INCLUDE SYSLIB (D01IO ) */ 03843000 */*%INCLUDE SYSLIB (D01ERR ) */ 03844000 */*%INCLUDE SYSLIB (D01SAVE ) */ 03845000 */*%INCLUDE SYSLIB (D01SUB ) */ 03846000 */*%INCLUDE SYSLIB (D01NUC ) */ 03847000 */*%INCLUDE SYSLIB (D01LSQA ) */ 03848000 */*%INCLUDE SYSLIB (D01SWA ) */ 03849000 */*%INCLUDE SYSLIB (D01SQA ) */ 03850000 */*%INCLUDE SYSLIB (D01REG ) */ 03851000 */*%INCLUDE SYSLIB (D01STOR ) */ 03852000 */*%INCLUDE SYSLIB (D01MOD ) */ 03853000 */*%INCLUDE SYSLIB (D01TRACE) */ 03854000 */*%INCLUDE SYSLIB (D01SUBSP) */ 03855000 */*%INCLUDE SYSLIB (SNPCLEAN) */ 03856000 */*%INCLUDE SYSLIB (SNPRCVR ) */ 03857000 */*%INCLUDE SYSLIB (VALCKTCB) */ 03858000 */*%INCLUDE SYSLIB (DEQFREE ) */ 03859000 */*%INCLUDE SYSLIB (SNPOINDX) */ 03860000 */*%INCLUDE SYSLIB (SNPINDEX) */ 03861000 */*%INCLUDE SYSLIB (ROUTINIT) */ 03862000 */*%INCLUDE SYSLIB (MEMACESS) */ 03863000 * 1320 03864000 * ; 1320 03865000 B @EL00001 1320 03866000 @DATA DS 0H 03867000 @CH04301 DC H'125' 03868000 @CH04317 DC H'129' 03869000 @CH04238 DC H'176' 03870000 @CH04305 DC H'209' 03871000 @CH04316 DC H'213' 03872000 @CH04292 DC XL2'04' 03873000 @CH04400 DC XL2'10' 03874000 @CH04401 DC XL2'11' 03875000 @DATD DSECT 03876000 DS 0F 03877000 IEAVAD01 CSECT 03878000 DS 0F 03879000 @CF00118 DC F'1' 03880000 @CF00257 DC F'4' 03881000 @CF00151 DC F'8' 03882000 @CF00081 DC F'15' 03883000 @CF00482 DC F'24' 03884000 @CF00123 DC F'32' 03885000 @CF01670 DC F'44' 03886000 @CF04311 DC F'136' 03887000 @CF04310 DC F'220' 03888000 @CF04303 DC F'882' 03889000 @CF04306 DC F'1470' 03890000 @CF04304 DC F'1632' 03891000 @CF04307 DC F'2724' 03892000 @CF04328 DC XL4'80000003' 03893000 @CF04427 DC XL4'FD000000' 03894000 @CF04490 DC XL4'0000FFFF' 03895000 @DATD DSECT 03896000 DS 0D 03897000 RBSECPTR DS A 03898000 DCBPTR DS A 03899000 ASCBPTR DS A 03900000 SCVTSPTR DS A 03901000 TTPTR DS A 03902000 INDXRET DS A 03903000 VALR14SV DS A 03904000 SAVBASE2 DS A 03905000 ROUTSAVE DS A 03906000 SAVRTM13 DS A 03907000 TRACESZ DS F 03908000 INDXPTR DS A 03909000 ABDPLPTR DS A 03910000 TIOTPTR DS A 03911000 QMIOPPTR DS A 03912000 JFCBPTR DS A 03913000 JFCBEPTR DS A 03914000 SAV15 DS A 03915000 RETRYLOC DS A 03916000 I DS H 03917000 @TS00001 DS CL4 03918000 DS CL2 03919000 MINMAX DS CL8 03920000 ORG MINMAX 03921000 MINSIZE DS FL4 03922000 MAXSIZE DS FL4 03923000 ORG MINMAX+8 03924000 MFLESTAE DS CL16 03925000 IEAVAD01 CSECT 03926000 DS 0F 03927000 @SIZDATD DC AL1(0) 03928000 DC AL3(@ENDDATD-@DATD) 03929000 @CV00099 DC V(IEAVAD02) 03930000 @CV00100 DC V(IEAVAD03) 03931000 @CV00101 DC V(IEAVAD05) 03932000 @CV00102 DC V(IEAVAD06) 03933000 @CV00103 DC V(IEAVAD07) 03934000 @CV00104 DC V(IEAVAD08) 03935000 @CV00105 DC V(IEAVAD0A) 03936000 @CV00106 DC V(IEAVAD0B) 03937000 @CV00107 DC V(IEAVAD0C) 03938000 @CV00108 DC V(IEAVAD0D) 03939000 @CV00109 DC V(IEAVAD11) 03940000 @CV00110 DC V(IEAVAD21) 03941000 @CV00111 DC V(IEAVAD81) 03942000 @CV00112 DC V(IEAVAD09) 03943000 @CV00113 DC V(IEAVAD0E) 03944000 @CV00114 DC V(IEAVAD0F) 03945000 @CV00115 DC V(IEAVAD10) 03946000 @CV00116 DC V(IEAVADFM) 03947000 DS 0D 03948000 @CC04285 DC C'IEAVAD01' 03949000 @CC04293 DC C'SYSIEA01' 03950000 @CC04333 DC C'IEAVAD02' 03951000 @CC04336 DC C'IEAVAD10' 03952000 @CC04339 DC C'IEAVAD03' 03953000 @CC04341 DC C'IEAVAD05' 03954000 @CC04343 DC C'IEAVAD06' 03955000 @CC04348 DC C'IECDAFMT' 03956000 @CC04353 DC C'IECIOFMT' 03957000 @CC04358 DC C'IEAVTFMT' 03958000 @CC04363 DC C'IEAVAD07' 03959000 @CC04366 DC C'IEAVAD08' 03960000 @CC04369 DC C'IEAVAD09' 03961000 @CC04372 DC C'IEAVAD0A' 03962000 @CC04375 DC C'IEAVAD0E' 03963000 @CC04382 DC C'IEAVAD0F' 03964000 @CC04385 DC C'IEAVAD0B' 03965000 @CC04389 DC C'IEAVAD0C' 03966000 @CC04391 DC C'IEAVAD0D' 03967000 @CC04399 DC C'SNPRCVR' 03968000 @CC04413 DC C'SNP2RCV' 03969000 @CC04297 DC C'STD3' 03970000 @CC04299 DC C'DUMP' 03971000 @CC04318 DC C' ' 03972000 @CB00124 DC X'00037000' 03973000 @CB00126 DC X'000FF000' 03974000 @CB00128 DC X'00001000' 03975000 @CB00130 DC X'00FFF000' 03976000 @CB04302 DC X'0020' 03977000 @CB04320 DC X'07FA' 03978000 DEBNAME DC CL38'DEBS..................................' 03979000 DMNAME DC CL38'DATA MANAGEMENT CONTROL BLOCKS........' 03980000 IONAME DC CL38'IOS CONTROL BLOCKS....................' 03981000 ERRNAME DC CL38'RTM CONTROL BLOCKS....................' 03982000 NUCNAME DC CL38'NUCLEUS...............................' 03983000 MODNAME DC CL38'MODULES...............................' 03984000 TRTNAME DC CL38'TRACE TABLE...........................' 03985000 REGNAME DC CL38'REGISTERS.............................' 03986000 STORNAME DC CL38'STORAGE AREAS.........................' 03987000 SQANAME DC CL38'SQA...................................' 03988000 LSQANAME DC CL38'LSQA..................................' 03989000 SWANAME DC CL38'SWA...................................' 03990000 SWALSQA DC CL38'SWA AND SP229/230.....................' 03991000 LSQASP29 DC CL38'SP229/230.............................' 03992000 SAVENAME DC CL38'SAVE AREAS............................' 03993000 SUBNAME DC CL38'INSTALLATION/SUBSYSTEM AREAS..........' 03994000 SPNAME DC CL38'USER SUBPOOLS.........................' 03995000 INDXHD1 DC CL10'DUMP INDEX' 03996000 UNDERSCR DC CL11'-----------' 03997000 INDXHD2 DC CL12'0 DATA AREAS' 03998000 INDXHD3 DC CL11'PAGE NUMBER' 03999000 ENDUMP DC CL12'0END OF DUMP' 04000000 TRUNCMSG DC CL40'0DUMP TRUNCATED FOR INSUFFICIENT STORAGE' 04001000 FMTERMSG DC CL59'0ERROR IN FORMATTER XXXXXXXX, FORMATTING OF AREA TEC04002000 RMINATED' 04003000 INSTAMSG DC CL41'0ERROR IN INSTALLATION FORMATTER XXXXXXXX' 04004000 IEAVAD01 CSECT 04005000 * /* @YM03533*/ 04006000 ESTAELST ESTAE ,CT,MF=L @YM03533 04007000 IEAVAD01 CSECT 04008000 * /* @Z40MPXG* 04009000 SDUMP1 SDUMP HDR='ERROR DURING SNAP',SDATA=(RGN,LPA,SQA), @YM08272*04010000 MF=L @YM03533 04011000 SDUMP3 SDUMP HDR='FAILURE DURING SNAP RECOVERY',SDATA=(RGN,LPA,SQA), *04012000 MF=L 04013000 SDUMP4 SDUMP HDR='ERROR IN QMNGRIO PROCESSING',SDATA=(RGN,LPA,SQA,SWA),*04014000 MF=L Z40MPXG 04015000 STDMPMSG WTO 'IEA996I READ FOR JFCB/JFCBE FAILED, STANDARD DUMP FORMAT X04016000 ASSUMED',MF=L,ROUTCDE=(11) Z40MPXG 04017000 KILLMSG WTO 'IEA997I READ FOR JFCB/JFCBE FAILED, DUMP CANCELLED', X04018000 MF=L,ROUTCDE=(11) Z40MPXG 04019000 IEAVAD01 CSECT 04020000 DS 0H 04021000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 04022000 @DATD DSECT 04023000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 04024000 @ENDDATD EQU * 04025000 IEAVAD01 CSECT 04026000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 04027000 @01 EQU 01 04028000 @02 EQU 02 04029000 @03 EQU 03 04030000 @04 EQU 04 04031000 @05 EQU 05 04032000 @06 EQU 06 04033000 @07 EQU 07 04034000 @08 EQU 08 04035000 @09 EQU 09 04036000 @10 EQU 10 04037000 @11 EQU 11 04038000 @12 EQU 12 04039000 @13 EQU 13 04040000 @14 EQU 14 04041000 @15 EQU 15 04042000 R0 EQU @00 04043000 ENTRYREG EQU @00 04044000 SIZE EQU @00 04045000 PARMPTR EQU @01 04046000 R1 EQU @01 04047000 ABDARPTR EQU @02 04048000 R3 EQU @03 04049000 R5 EQU @05 04050000 BASE EQU @06 04051000 BASE2 EQU @07 04052000 SNAPPTR EQU @08 04053000 JSTCB1 EQU @08 04054000 R8 EQU @08 04055000 R9 EQU @09 04056000 SAVE13 EQU @10 04057000 SAVERET EQU @09 04058000 SDWAPTR EQU @09 04059000 ESTAEPTR EQU @10 04060000 JSTCB2 EQU @10 04061000 R10 EQU @10 04062000 R11 EQU @11 04063000 AUTOPTR EQU @12 04064000 SAVREG EQU @13 04065000 R14 EQU @14 04066000 RETRG EQU @14 04067000 RETERN EQU @14 04068000 R15 EQU @15 04069000 RETCODE EQU @15 04070000 ENTRYPTR EQU @15 04071000 TCBPTR EQU @04 04072000 GPR02F EQU @02 04073000 GPR00P EQU @00 04074000 GPR01P EQU @01 04075000 GPR14P EQU @14 04076000 GPR15P EQU @15 04077000 GPR00F EQU @00 04078000 GPR02P EQU @02 04079000 GPR12F EQU @12 04080000 GPR13P EQU @13 04081000 R12 EQU @12 04082000 R2 EQU @02 04083000 R4 EQU @04 04084000 PSA EQU 0 04085000 FLCRNPSW EQU PSA 04086000 FLCROPSW EQU PSA+8 04087000 FLCICCW2 EQU PSA+16 04088000 FLCCVT EQU FLCICCW2 04089000 FLCTRACE EQU PSA+84 04090000 PSAEEPSW EQU PSA+132 04091000 PSAESPSW EQU PSA+136 04092000 FLCSVILC EQU PSAESPSW+1 04093000 PSAEPPSW EQU PSA+140 04094000 FLCPIILC EQU PSAEPPSW+1 04095000 FLCPICOD EQU PSAEPPSW+2 04096000 PSAPICOD EQU FLCPICOD+1 04097000 FLCTEA EQU PSAEPPSW+4 04098000 FLCPER EQU PSA+152 04099000 FLCMCLA EQU PSA+168 04100000 FLCIOEL EQU FLCMCLA+4 04101000 FLCIOA EQU FLCMCLA+16 04102000 FLCFSA EQU FLCMCLA+80 04103000 PSAAOLD EQU PSA+548 04104000 PSASUPER EQU PSA+552 04105000 PSASUP1 EQU PSASUPER 04106000 PSASUP2 EQU PSASUPER+1 04107000 PSASUP3 EQU PSASUPER+2 04108000 PSASUP4 EQU PSASUPER+3 04109000 PSACLHT EQU PSA+640 04110000 PSALKSA EQU PSA+696 04111000 PSAHLHI EQU PSA+760 04112000 PSALITA EQU PSA+764 04113000 PSADSSFL EQU PSA+836 04114000 PSADSSF1 EQU PSADSSFL 04115000 PSADSSF3 EQU PSADSSFL+2 04116000 PSADSSF4 EQU PSADSSFL+3 04117000 PSARSVT EQU PSA+896 04118000 RETRYPT EQU 0 04119000 UPRETRY EQU 0 04120000 BUFFER EQU 0 04121000 TTPOINTS EQU 0 04122000 CURRENT EQU TTPOINTS 04123000 FIRSTENT EQU TTPOINTS+4 04124000 LASTENT EQU TTPOINTS+8 04125000 SNAPLIST EQU 0 04126000 SPIDENT EQU SNAPLIST 04127000 SPOPT EQU SNAPLIST+2 04128000 SPFLAG1 EQU SPOPT 04129000 SPABEND EQU SPFLAG1 04130000 SPTCB EQU SPFLAG1 04131000 SPSUPDA EQU SPFLAG1 04132000 SPTRACE EQU SPFLAG1 04133000 SPNUC EQU SPFLAG1 04134000 SPSNAP EQU SPFLAG1 04135000 SPID EQU SPFLAG1 04136000 SPQCB EQU SPFLAG1 04137000 SPFLAG2 EQU SPOPT+1 04138000 SPDCBP EQU SNAPLIST+4 04139000 SPTCBP EQU SNAPLIST+8 04140000 SPSNAPP EQU SNAPLIST+12 04141000 INDXENT EQU 0 04142000 INDXNAME EQU INDXENT 04143000 INDXPG EQU INDXENT+40 04144000 ABDAREA EQU 0 04145000 ABDTCB EQU ABDAREA 04146000 ABDCTCB EQU ABDAREA+4 04147000 ABDCRB EQU ABDAREA+8 04148000 ABDPARMS EQU ABDAREA+12 04149000 ABDPID EQU ABDPARMS 04150000 ABDFLAG EQU ABDPARMS+1 04151000 APFABEND EQU ABDFLAG 04152000 APFID EQU ABDFLAG 04153000 APFTCB EQU ABDFLAG 04154000 APFSNAPP EQU ABDFLAG 04155000 APFSDATA EQU ABDPARMS+4 04156000 APFNUC EQU APFSDATA 04157000 APFSQA EQU APFSDATA 04158000 APFLSQA EQU APFSDATA 04159000 APFSWA EQU APFSDATA 04160000 APFTRACE EQU APFSDATA 04161000 APFSUPDA EQU APFSDATA 04162000 APFQCB EQU APFSDATA 04163000 APFDM EQU APFSDATA 04164000 APFSDAT1 EQU ABDPARMS+5 04165000 APFIO EQU APFSDAT1 04166000 APFERR EQU APFSDAT1 04167000 APFPDATA EQU ABDPARMS+6 04168000 APFSAVE EQU APFPDATA 04169000 APFREGS EQU APFPDATA 04170000 APFLPA EQU APFPDATA 04171000 APFJPA EQU APFPDATA 04172000 APFPSW EQU APFPDATA 04173000 APFSPALL EQU APFPDATA 04174000 ABDPDCBP EQU ABDPARMS+8 04175000 ABDPTCBP EQU ABDPARMS+12 04176000 ABDSNAPP EQU ABDPARMS+16 04177000 ABDCTR EQU ABDAREA+38 04178000 ABDINXPT EQU ABDAREA+40 04179000 ABDPARA EQU ABDAREA+48 04180000 ABDDECB EQU ABDAREA+52 04181000 ABDSAVE EQU ABDAREA+56 04182000 ABDDCB EQU ABDAREA+68 04183000 ABDPTR EQU ABDAREA+72 04184000 ABDLCTR EQU ABDAREA+80 04185000 ABDPCTR EQU ABDAREA+82 04186000 ABDPTRS EQU ABDAREA+84 04187000 ABDPTRS1 EQU ABDPTRS 04188000 ABDPTRS2 EQU ABDPTRS+4 04189000 ABDPTRS3 EQU ABDPTRS+8 04190000 ABDCP EQU ABDAREA+96 04191000 ABDFP EQU ABDAREA+100 04192000 ABDLP EQU ABDAREA+104 04193000 ABDCP1 EQU ABDAREA+108 04194000 ABDUPRXT EQU ABDAREA+112 04195000 ABDPGWK EQU ABDAREA+128 04196000 ABDFLAG1 EQU ABDAREA+136 04197000 ABDIDX EQU ABDFLAG1 04198000 ABDFLAG2 EQU ABDAREA+137 04199000 ABDSUPER EQU ABDFLAG2 04200000 ABDGTF EQU ABDFLAG2 04201000 ABDTRBIT EQU ABDFLAG2 04202000 ABDTRNAV EQU ABDFLAG2 04203000 ABDGTFCL EQU ABDFLAG2 04204000 ABDSTAT EQU ABDFLAG2 04205000 ABDLSQA EQU ABDFLAG2 04206000 ABDKEY EQU ABDAREA+138 04207000 ABDRES1 EQU ABDAREA+139 04208000 ABDPSW EQU ABDRES1 04209000 ABDREGS EQU ABDRES1 04210000 ABDOLSQA EQU ABDRES1 04211000 ABDSQA EQU ABDRES1 04212000 ABDFMTLD EQU ABDRES1 04213000 ABDTRSV EQU ABDRES1 04214000 ABDWORK EQU ABDAREA+140 04215000 ABDSSPAR EQU ABDAREA+188 04216000 ABDUPRF EQU ABDAREA+265 04217000 ABDUPRFN EQU ABDAREA+266 04218000 ABDBLNKS EQU ABDAREA+267 04219000 ABDLLNGH EQU ABDAREA+294 04220000 ABDPCAP EQU ABDAREA+295 04221000 ABDBUFFS EQU ABDAREA+308 04222000 ABDBUFAD EQU ABDBUFFS 04223000 ABDBUFSZ EQU ABDBUFFS+4 04224000 ABDGMA EQU ABDAREA+316 04225000 ABDAAREA EQU ABDGMA 04226000 ABDASIZE EQU ABDGMA+4 04227000 ABDSVCB EQU ABDAREA+332 04228000 ABDRTRN EQU ABDAREA+336 04229000 ESPARM EQU ABDAREA+340 04230000 ESBSREG EQU ESPARM 04231000 ESBSREG2 EQU ESPARM+4 04232000 ESAUTOP EQU ESPARM+8 04233000 EABDAREA EQU ESPARM+12 04234000 EMODNAME EQU ESPARM+16 04235000 ERESTART EQU ESPARM+24 04236000 ESTAEFLG EQU ESPARM+28 04237000 ESUBSYT EQU ESTAEFLG 04238000 ETCB EQU ESTAEFLG 04239000 EDCB EQU ESTAEFLG 04240000 ABDPHY EQU ABDAREA+376 04241000 ABDSRC1 EQU ABDAREA+378 04242000 ABDLOG EQU ABDAREA+380 04243000 ABDLINEA EQU ABDAREA+384 04244000 ABDCC EQU ABDLINEA 04245000 ABDLINE EQU ABDLINEA+1 04246000 ABDSAVE1 EQU ABDAREA+672 04247000 ABDTRLN EQU ABDAREA+676 04248000 CVTMAP EQU 0 04249000 CVTLINK EQU CVTMAP+8 04250000 CVTDAR EQU CVTMAP+72 04251000 CVTFLGS1 EQU CVTDAR 04252000 CVTBRET EQU CVTMAP+82 04253000 CVTDCB EQU CVTMAP+116 04254000 CVTIOQET EQU CVTMAP+120 04255000 CVTIERLC EQU CVTMAP+144 04256000 CVTHEAD EQU CVTMAP+160 04257000 CVTSV76C EQU CVTHEAD 04258000 CVTOPTA EQU CVTMAP+182 04259000 CVTOPTB EQU CVTMAP+183 04260000 CVTABEND EQU CVTMAP+200 04261000 CVTGTF EQU CVTMAP+236 04262000 CVTGTFST EQU CVTGTF 04263000 CVTGTFS EQU CVTGTFST 04264000 CVTGTFAV EQU CVTGTFS 04265000 CVTSTATE EQU CVTGTFST 04266000 CVTTMODE EQU CVTGTFST 04267000 CVTFORM EQU CVTGTFST 04268000 CVTAQAVT EQU CVTMAP+240 04269000 CVTTCMFG EQU CVTAQAVT 04270000 CVTVOLM2 EQU CVTMAP+244 04271000 CVTTATA EQU CVTVOLM2 04272000 CVTTSKS EQU CVTTATA 04273000 CVTVOLF2 EQU CVTTSKS 04274000 CVTTAT EQU CVTTATA+1 04275000 CVTATER EQU CVTMAP+248 04276000 CVTEXT1 EQU CVTMAP+252 04277000 CVTPURG EQU CVTMAP+260 04278000 CVTQMSG EQU CVTMAP+268 04279000 CVTDMSR EQU CVTMAP+272 04280000 CVTRSV37 EQU CVTDMSR 04281000 CVTDMSRF EQU CVTRSV37 04282000 CVTJESCT EQU CVTMAP+296 04283000 CVTERPV EQU CVTMAP+316 04284000 CVTINTLA EQU CVTMAP+320 04285000 CVTAPF EQU CVTMAP+324 04286000 CVTEXT2 EQU CVTMAP+328 04287000 CVTHJES EQU CVTMAP+332 04288000 CVTPGSIA EQU CVTMAP+348 04289000 CVTA1F1 EQU CVTMAP+356 04290000 CVTSYSK EQU CVTMAP+357 04291000 CVTVOLM1 EQU CVTMAP+380 04292000 CVTVOLF1 EQU CVTVOLM1 04293000 CVTXTNT1 EQU 0 04294000 CVTXTNT2 EQU 0 04295000 CVTDSSV EQU CVTXTNT2 04296000 CVTFLGBT EQU CVTXTNT2+5 04297000 CVTQID EQU CVTXTNT2+24 04298000 CVTRV400 EQU CVTXTNT2+52 04299000 CVTRV409 EQU CVTXTNT2+53 04300000 CVTATCVT EQU CVTXTNT2+64 04301000 CVTRV429 EQU CVTXTNT2+84 04302000 CVTRV438 EQU CVTXTNT2+85 04303000 CVTRV457 EQU CVTXTNT2+112 04304000 CVTRV466 EQU CVTXTNT2+113 04305000 CVTFIX EQU 0 04306000 CVTRELNO EQU CVTFIX+252 04307000 ASCB EQU 0 04308000 ASCBSUPC EQU ASCB+16 04309000 ASCBASID EQU ASCB+36 04310000 ASCBRSM EQU ASCB+52 04311000 ASCBRSMF EQU ASCBRSM 04312000 ASCBFW1 EQU ASCB+100 04313000 ASCBRCTF EQU ASCBFW1+2 04314000 ASCBFLG1 EQU ASCBFW1+3 04315000 ASCBDSP1 EQU ASCB+114 04316000 ASCBFLG2 EQU ASCB+115 04317000 ASCBLKGP EQU ASCB+128 04318000 ASCBSRQ EQU ASCB+180 04319000 ASCBSRQ1 EQU ASCBSRQ 04320000 ASCBSRQ2 EQU ASCBSRQ+1 04321000 ASCBSRQ3 EQU ASCBSRQ+2 04322000 ASCBSRQ4 EQU ASCBSRQ+3 04323000 IHADCB EQU 0 04324000 IHADCS00 EQU 0 04325000 DCBFDAD EQU IHADCS00+5 04326000 IHADCS01 EQU 0 04327000 DCBDVTBL EQU IHADCS01 04328000 IHADCS11 EQU 0 04329000 DCBRELB EQU IHADCS11 04330000 DCBREL EQU DCBRELB+1 04331000 DCBDEVT EQU DCBREL 04332000 DCBBUFCB EQU IHADCS11+4 04333000 DCBDSORG EQU IHADCS11+10 04334000 DCBDSRG1 EQU DCBDSORG 04335000 DCBDSGPS EQU DCBDSRG1 04336000 DCBDSRG2 EQU DCBDSORG+1 04337000 DCBIOBAD EQU IHADCS11+12 04338000 DCBODEB EQU DCBIOBAD 04339000 DCBLNP EQU DCBODEB 04340000 DCBQSLM EQU DCBLNP 04341000 DCBIOBAA EQU DCBODEB+1 04342000 IHADCS50 EQU 0 04343000 DCBSVCXL EQU IHADCS50 04344000 DCBEODAD EQU IHADCS50+4 04345000 DCBBFALN EQU DCBEODAD 04346000 DCBHIARC EQU DCBBFALN 04347000 DCBBFTEK EQU DCBHIARC 04348000 DCBBFT EQU DCBBFTEK 04349000 DCBEXLST EQU IHADCS50+8 04350000 DCBRECFM EQU DCBEXLST 04351000 DCBRECLA EQU DCBRECFM 04352000 IHADCS24 EQU 0 04353000 DCBOFLGS EQU IHADCS24+8 04354000 DCBOFLWR EQU DCBOFLGS 04355000 DCBOFOPN EQU DCBOFLGS 04356000 DCBIFLG EQU IHADCS24+9 04357000 DCBIBPCT EQU DCBIFLG 04358000 DCBMACR EQU IHADCS24+10 04359000 DCBMACR1 EQU DCBMACR 04360000 DCBMRFE EQU DCBMACR1 04361000 DCBMRGET EQU DCBMRFE 04362000 DCBMRAPG EQU DCBMACR1 04363000 DCBMRRD EQU DCBMRAPG 04364000 DCBMRCI EQU DCBMACR1 04365000 DCBMRMVG EQU DCBMRCI 04366000 DCBMRLCG EQU DCBMACR1 04367000 DCBMRABC EQU DCBMACR1 04368000 DCBMRPT1 EQU DCBMRABC 04369000 DCBMRSBG EQU DCBMRPT1 04370000 DCBMRCRL EQU DCBMACR1 04371000 DCBMRCHK EQU DCBMRCRL 04372000 DCBMRRDX EQU DCBMRCHK 04373000 DCBMRDMG EQU DCBMACR1 04374000 DCBMACR2 EQU DCBMACR+1 04375000 DCBMRPUT EQU DCBMACR2 04376000 DCBMRWRT EQU DCBMACR2 04377000 DCBMRMVP EQU DCBMACR2 04378000 DCBMR5WD EQU DCBMACR2 04379000 DCBMRLDM EQU DCBMR5WD 04380000 DCBMRLCP EQU DCBMRLDM 04381000 DCBMR4WD EQU DCBMACR2 04382000 DCBMRPT2 EQU DCBMR4WD 04383000 DCBMRTMD EQU DCBMRPT2 04384000 DCBMR3WD EQU DCBMACR2 04385000 DCBMRCTL EQU DCBMR3WD 04386000 DCBMRSTK EQU DCBMRCTL 04387000 DCBMR1WD EQU DCBMACR2 04388000 DCBMRSWA EQU DCBMR1WD 04389000 DCBMRDMD EQU DCBMRSWA 04390000 IHADCS25 EQU 0 04391000 DCBTIOT EQU IHADCS25 04392000 DCBMACRF EQU IHADCS25+2 04393000 DCBMACF1 EQU DCBMACRF 04394000 DCBMFFE EQU DCBMACF1 04395000 DCBMFGET EQU DCBMFFE 04396000 DCBMFAPG EQU DCBMACF1 04397000 DCBMFRD EQU DCBMFAPG 04398000 DCBMFCI EQU DCBMACF1 04399000 DCBMFMVG EQU DCBMFCI 04400000 DCBMFLCG EQU DCBMACF1 04401000 DCBMFABC EQU DCBMACF1 04402000 DCBMFPT1 EQU DCBMFABC 04403000 DCBMFSBG EQU DCBMFPT1 04404000 DCBMFCRL EQU DCBMACF1 04405000 DCBMFCHK EQU DCBMFCRL 04406000 DCBMFDMG EQU DCBMACF1 04407000 DCBMACF2 EQU DCBMACRF+1 04408000 DCBMFPUT EQU DCBMACF2 04409000 DCBMFWRT EQU DCBMACF2 04410000 DCBMFMVP EQU DCBMACF2 04411000 DCBMF5WD EQU DCBMACF2 04412000 DCBMFLDM EQU DCBMF5WD 04413000 DCBMFLCP EQU DCBMFLDM 04414000 DCBMF4WD EQU DCBMACF2 04415000 DCBMFPT2 EQU DCBMF4WD 04416000 DCBMFTMD EQU DCBMFPT2 04417000 DCBMF3WD EQU DCBMACF2 04418000 DCBMFCTL EQU DCBMF3WD 04419000 DCBMFSTK EQU DCBMFCTL 04420000 DCBMF1WD EQU DCBMACF2 04421000 DCBMFSWA EQU DCBMF1WD 04422000 DCBMFDMD EQU DCBMFSWA 04423000 DCBDEBAD EQU IHADCS25+4 04424000 DCBIFLGS EQU DCBDEBAD 04425000 DCBIFPCT EQU DCBIFLGS 04426000 IHADCS26 EQU 0 04427000 DCBWRITE EQU IHADCS26 04428000 DCBREAD EQU DCBWRITE 04429000 DCBWRITA EQU DCBREAD+1 04430000 IHADCS27 EQU 0 04431000 DCBGET EQU IHADCS27 04432000 DCBPUT EQU DCBGET 04433000 DCBGETA EQU DCBPUT+1 04434000 IHADCS36 EQU 0 04435000 DCBGERR EQU IHADCS36 04436000 DCBPERR EQU DCBGERR 04437000 DCBCHECK EQU DCBPERR 04438000 DCBOPTCD EQU DCBCHECK 04439000 DCBOPTH EQU DCBOPTCD 04440000 DCBOPTO EQU DCBOPTH 04441000 DCBOPTZ EQU DCBOPTCD 04442000 DCBGERRA EQU DCBCHECK+1 04443000 DCBPERRA EQU DCBGERRA 04444000 DCBSYNAD EQU IHADCS36+4 04445000 DCBSYNA EQU DCBSYNAD+1 04446000 DCBCIND1 EQU IHADCS36+8 04447000 DCBCIND2 EQU IHADCS36+9 04448000 DCBBLKSI EQU IHADCS36+10 04449000 DCBIOBA EQU IHADCS36+16 04450000 DCBCICB EQU DCBIOBA 04451000 IHADCS52 EQU 0 04452000 DCBDIRCT EQU IHADCS52 04453000 DCBQSWS EQU DCBDIRCT 04454000 DCBUSASI EQU DCBQSWS 04455000 DCBQADFS EQU DCBUSASI 04456000 DCBBUFOF EQU DCBDIRCT+1 04457000 IHADCS37 EQU 0 04458000 DCBFLAG1 EQU IHADCS37 04459000 IHADCS38 EQU 0 04460000 DCBEOBR EQU IHADCS38 04461000 DCBLRECL EQU IHADCS38+10 04462000 DCBPOINT EQU IHADCS38+12 04463000 DCBCNTRL EQU DCBPOINT 04464000 IHADCS40 EQU 0 04465000 DCBEOBAD EQU IHADCS40 04466000 DCBCCCW EQU IHADCS40+4 04467000 DCBRECAD EQU DCBCCCW 04468000 DCBRECBT EQU DCBRECAD 04469000 DCBRCREL EQU DCBRECBT 04470000 @NM00061 EQU IHADCS40+12 04471000 DCBEROPT EQU @NM00061 04472000 RBPRFX EQU 0 04473000 RBBASIC EQU 0 04474000 RBEXRTNM EQU RBBASIC 04475000 RBTMFLD EQU RBEXRTNM 04476000 RBSTAB EQU RBBASIC+10 04477000 XSTAB EQU RBSTAB 04478000 RBSTAB1 EQU XSTAB 04479000 XSTAB1 EQU RBSTAB1 04480000 RBFTCKPT EQU XSTAB1 04481000 RBSTAB2 EQU XSTAB+1 04482000 XSTAB2 EQU RBSTAB2 04483000 RBTCBNXT EQU XSTAB2 04484000 RBFACTV EQU XSTAB2 04485000 RBFDYN EQU XSTAB2 04486000 RBECBWT EQU XSTAB2 04487000 RBOPSW EQU RBBASIC+16 04488000 XRBPSW EQU RBOPSW 04489000 RBOPSWB2 EQU XRBPSW+1 04490000 RBLINK EQU RBBASIC+28 04491000 XRBLNK EQU RBLINK 04492000 RBWCF EQU XRBLNK 04493000 RBLINKB EQU XRBLNK+1 04494000 RBGRSAVE EQU RBBASIC+32 04495000 XRBREG EQU RBGRSAVE 04496000 RBGRS0 EQU XRBREG 04497000 RBGRS1 EQU XRBREG+4 04498000 RBGRS2 EQU XRBREG+8 04499000 RBGRS3 EQU XRBREG+12 04500000 RBGRS4 EQU XRBREG+16 04501000 RBGRS5 EQU XRBREG+20 04502000 RBGRS6 EQU XRBREG+24 04503000 RBGRS7 EQU XRBREG+28 04504000 RBGRS8 EQU XRBREG+32 04505000 RBGRS9 EQU XRBREG+36 04506000 RBGRS10 EQU XRBREG+40 04507000 RBGRS11 EQU XRBREG+44 04508000 RBGRS12 EQU XRBREG+48 04509000 RBGRS13 EQU XRBREG+52 04510000 RBGRS14 EQU XRBREG+56 04511000 RBGRS15 EQU XRBREG+60 04512000 XRBESA EQU RBBASIC+96 04513000 RBEXSAVE EQU XRBESA 04514000 RBPREFIX EQU 0 04515000 RBRSV019 EQU RBPREFIX+14 04516000 RBRSV028 EQU RBPREFIX+15 04517000 RBRSV041 EQU RBPREFIX+27 04518000 RBRSV054 EQU RBPREFIX+39 04519000 RBRTOPSW EQU RBPREFIX+40 04520000 RBRTPSW2 EQU RBRTOPSW+8 04521000 RBRTICIL EQU RBRTPSW2 04522000 RBFLAGS1 EQU RBPREFIX+56 04523000 RBINTCDA EQU RBPREFIX+61 04524000 RBSECT EQU 0 04525000 RBPPSAV EQU RBSECT 04526000 @NM00100 EQU RBSECT+10 04527000 @NM00101 EQU @NM00100 04528000 RBTRSVRB EQU @NM00101 04529000 @NM00103 EQU @NM00100+1 04530000 RBETXR EQU @NM00103 04531000 RBEP EQU RBSECT+12 04532000 RBPGMQ EQU RBSECT+24 04533000 @NM00110 EQU RBSECT+28 04534000 @NM00111 EQU @NM00110 04535000 IRBEND EQU RBSECT+96 04536000 @NM00114 EQU RBSECT+96 04537000 RBRSV138 EQU @NM00114+7 04538000 RBSCBB EQU RBSECT+144 04539000 RBSPARM EQU RBSCBB+8 04540000 RBSFLGS1 EQU RBSPARM 04541000 RBSIOPRC EQU RBSFLGS1 04542000 RBSOWNR EQU RBSCBB+12 04543000 RBSFLGS2 EQU RBSOWNR 04544000 RBSDATA EQU RBSCBB+16 04545000 RBSFLG3 EQU RBSDATA 04546000 RBRSV150 EQU RBSECT+167 04547000 RTCT EQU 0 04548000 RTCTPLIB EQU RTCT+4 04549000 RTCTSAP EQU RTCTPLIB 04550000 RTCTSAP1 EQU RTCTSAP 04551000 RTCTSAP2 EQU RTCTSAP+1 04552000 RTCTSAP3 EQU RTCTSAP+2 04553000 RTCTSUP EQU RTCTPLIB+4 04554000 RTCTSUP1 EQU RTCTSUP 04555000 RTCTSUP2 EQU RTCTSUP+1 04556000 RTCTSUP3 EQU RTCTSUP+2 04557000 RTCTSYD EQU RTCTPLIB+8 04558000 RTCTSY01 EQU RTCTSYD 04559000 RTCTSDDS EQU RTCT+36 04560000 RTCTFLG EQU RTCTSDDS+3 04561000 RTCTSDPL EQU RTCT+156 04562000 RTCTRFLG EQU RTCT+176 04563000 RTCTERID EQU RTCT+224 04564000 RTCTOPT EQU RTCT+236 04565000 RTCTASO EQU RTCT+252 04566000 RTCTASO1 EQU RTCTASO 04567000 RTCTASO2 EQU RTCTASO+1 04568000 RTCTSDI EQU RTCT+254 04569000 RTCTSDF EQU RTCT+264 04570000 RTCTSDF1 EQU RTCTSDF 04571000 RTCTSDF2 EQU RTCTSDF+1 04572000 RTCTSDF3 EQU RTCT+268 04573000 RTCTSDF4 EQU RTCTSDF3+2 04574000 RTCTMOPT EQU 0 04575000 RTCTMSAO EQU RTCTMOPT 04576000 RTCTSASD EQU RTCTMSAO 04577000 RTCTSAO1 EQU RTCTSASD 04578000 RTCTSAO2 EQU RTCTSASD+1 04579000 RTCTSAPD EQU RTCTMSAO+2 04580000 RTCTSAO3 EQU RTCTSAPD 04581000 RTCTSAO4 EQU RTCTSAPD+1 04582000 RTCTSAMG EQU RTCTSAO4 04583000 RTCTMSUO EQU RTCTMOPT+4 04584000 RTCTSUSD EQU RTCTMSUO 04585000 RTCTSUO1 EQU RTCTSUSD 04586000 RTCTSUO2 EQU RTCTSUSD+1 04587000 RTCTSUPD EQU RTCTMSUO+2 04588000 RTCTSUO3 EQU RTCTSUPD 04589000 RTCTSUO4 EQU RTCTSUPD+1 04590000 RTCTSUMG EQU RTCTSUO4 04591000 RTCTMSYO EQU RTCTMOPT+8 04592000 RTCTSD01 EQU RTCTMSYO 04593000 RTCTSD04 EQU RTCTMSYO+3 04594000 RTCTSMMG EQU RTCTSD04 04595000 RTCTMSDO EQU RTCTMOPT+12 04596000 RTCTSDOD EQU RTCTMSDO 04597000 RTCTSDO1 EQU RTCTSDOD 04598000 RTCTSDO2 EQU RTCTSDOD+1 04599000 RTCTSDO3 EQU RTCTMSDO+2 04600000 RTCTSDO4 EQU RTCTMSDO+3 04601000 RTCTSDMG EQU RTCTSDO4 04602000 SCVTSECT EQU 0 04603000 SCVTSTAT EQU SCVTSECT+148 04604000 SDWA EQU 0 04605000 SDWAPARM EQU SDWA 04606000 SDWAFIOB EQU SDWA+4 04607000 SDWAABCC EQU SDWAFIOB 04608000 SDWACMPF EQU SDWAABCC 04609000 SDWAREQ EQU SDWACMPF 04610000 SDWACTL1 EQU SDWA+8 04611000 SDWACMKA EQU SDWACTL1 04612000 SDWAMWPA EQU SDWACTL1+1 04613000 SDWAPMKA EQU SDWACTL1+4 04614000 SDWACTL2 EQU SDWA+16 04615000 SDWACMKP EQU SDWACTL2 04616000 SDWAMWPP EQU SDWACTL2+1 04617000 SDWAPMKP EQU SDWACTL2+4 04618000 SDWAGRSV EQU SDWA+24 04619000 SDWANAME EQU SDWA+88 04620000 SDWAEC1 EQU SDWA+104 04621000 SDWAEMK1 EQU SDWAEC1 04622000 SDWAMWP1 EQU SDWAEC1+1 04623000 SDWAINT1 EQU SDWAEC1+2 04624000 SDWANXT1 EQU SDWAEC1+4 04625000 SDWAAEC1 EQU SDWA+112 04626000 SDWAILC1 EQU SDWAAEC1+1 04627000 SDWAINC1 EQU SDWAAEC1+2 04628000 SDWAICD1 EQU SDWAINC1+1 04629000 SDWAEC2 EQU SDWA+120 04630000 SDWAEMK2 EQU SDWAEC2 04631000 SDWAMWP2 EQU SDWAEC2+1 04632000 SDWAINT2 EQU SDWAEC2+2 04633000 SDWANXT2 EQU SDWAEC2+4 04634000 SDWAAEC2 EQU SDWA+128 04635000 SDWAILC2 EQU SDWAAEC2+1 04636000 SDWAINC2 EQU SDWAAEC2+2 04637000 SDWAICD2 EQU SDWAINC2+1 04638000 SDWASRSV EQU SDWA+136 04639000 SDWASR01 EQU SDWASRSV+4 04640000 SDWASR02 EQU SDWASRSV+8 04641000 SDWASR03 EQU SDWASRSV+12 04642000 SDWASR04 EQU SDWASRSV+16 04643000 SDWASR05 EQU SDWASRSV+20 04644000 SDWASR06 EQU SDWASRSV+24 04645000 SDWASR07 EQU SDWASRSV+28 04646000 SDWASR09 EQU SDWASRSV+36 04647000 SDWASR12 EQU SDWASRSV+48 04648000 SDWASR13 EQU SDWASRSV+52 04649000 SDWASR15 EQU SDWASRSV+60 04650000 SDWAIDNT EQU SDWA+200 04651000 SDWAMCH EQU SDWA+204 04652000 SDWASTCK EQU SDWAMCH 04653000 SDWAMCHI EQU SDWAMCH+8 04654000 SDWAMCHS EQU SDWAMCHI 04655000 SDWAMCHD EQU SDWAMCHI+1 04656000 SDWARSR1 EQU SDWAMCH+12 04657000 SDWARSR2 EQU SDWAMCH+13 04658000 SDWAFLGS EQU SDWA+232 04659000 SDWAERRA EQU SDWAFLGS 04660000 SDWAERRB EQU SDWAFLGS+1 04661000 SDWAERRC EQU SDWAFLGS+2 04662000 SDWAERRD EQU SDWAFLGS+3 04663000 SDWAIOFS EQU SDWA+238 04664000 SDWARTYA EQU SDWA+240 04665000 SDWACPUA EQU SDWA+248 04666000 SDWAPARQ EQU SDWA+252 04667000 SDWARCDE EQU SDWAPARQ 04668000 SDWAACF2 EQU SDWAPARQ+1 04669000 SDWARCRD EQU SDWAACF2 04670000 SDWAUPRG EQU SDWAACF2 04671000 SDWAFREE EQU SDWAACF2 04672000 SDWAACF3 EQU SDWAPARQ+2 04673000 SDWAACF4 EQU SDWAPARQ+3 04674000 SDWALKWA EQU SDWA+256 04675000 SDWALKWS EQU SDWALKWA 04676000 SDWARECP EQU SDWA+292 04677000 SDWAMODN EQU SDWARECP 04678000 SDWACSCT EQU SDWARECP+8 04679000 SDWAREXN EQU SDWARECP+16 04680000 SDWASNPA EQU SDWA+320 04681000 SDWADUMP EQU SDWASNPA 04682000 SDWADPFS EQU SDWADUMP+1 04683000 SDWADDAT EQU SDWASNPA+4 04684000 SDWASDAT EQU SDWADDAT 04685000 SDWASDA0 EQU SDWASDAT 04686000 SDWASDA1 EQU SDWASDAT+1 04687000 SDWAPDAT EQU SDWADDAT+2 04688000 SDWADPSA EQU SDWA+328 04689000 SDWADPSL EQU SDWADPSA 04690000 SDWARA EQU SDWA+400 04691000 SDWADPVA EQU SDWARA+2 04692000 TCBFIX EQU 0 04693000 TCBFRS EQU TCBFIX 04694000 TCB EQU 0 04695000 TCBRBP EQU TCB 04696000 TCBPIE EQU TCB+4 04697000 TCBPMASK EQU TCBPIE 04698000 TCBTIO EQU TCB+12 04699000 TCBCMP EQU TCB+16 04700000 TCBCMPF EQU TCBCMP 04701000 TCBCPP EQU TCBCMPF 04702000 TCBSTCC EQU TCBCMPF 04703000 TCBCDBL EQU TCBCMPF 04704000 TCBCWTO EQU TCBCMPF 04705000 TCBCIND EQU TCBCMPF 04706000 TCBCMSG EQU TCBCMPF 04707000 TCBTRN EQU TCB+20 04708000 TCBABF EQU TCBTRN 04709000 TCBMSS EQU TCB+24 04710000 TCBPKF EQU TCB+28 04711000 TCBFLGS EQU TCB+29 04712000 TCBFLGS1 EQU TCBFLGS 04713000 TCBFX EQU TCBFLGS1 04714000 TCBFLGS2 EQU TCBFLGS+1 04715000 TCBFLGS3 EQU TCBFLGS+2 04716000 TCBFLGS4 EQU TCBFLGS+3 04717000 TCBFLGS5 EQU TCBFLGS+4 04718000 TCBABWF EQU TCBFLGS5 04719000 TCBJPQ EQU TCB+44 04720000 TCBPURGE EQU TCBJPQ 04721000 TCBGRS EQU TCB+48 04722000 TCBFSA EQU TCB+112 04723000 TCBTME EQU TCB+120 04724000 TCBJSTCB EQU TCB+124 04725000 TCBJSTCA EQU TCBJSTCB+1 04726000 TCBLTC EQU TCB+136 04727000 TCBTSFLG EQU TCB+148 04728000 TCBTSTSK EQU TCBTSFLG 04729000 TCBSTAB EQU TCB+160 04730000 TCBNSTAE EQU TCBSTAB 04731000 TCBTCT EQU TCB+164 04732000 TCBTCTGF EQU TCBTCT 04733000 TCBSCNDY EQU TCB+172 04734000 TCBNDSP EQU TCBSCNDY 04735000 TCBNDSP1 EQU TCBNDSP+1 04736000 TCBNDSP2 EQU TCBNDSP+2 04737000 TCBNDSP3 EQU TCBNDSP+3 04738000 TCBJSCB EQU TCB+180 04739000 TCBRECDE EQU TCBJSCB 04740000 TCBEXT1 EQU TCB+196 04741000 TCBBITS EQU TCB+200 04742000 TCBNDSP4 EQU TCBBITS 04743000 TCBNDSP5 EQU TCBBITS+1 04744000 TCBFLGS6 EQU TCBBITS+2 04745000 TCBFLGS7 EQU TCBBITS+3 04746000 TCBADMP EQU TCBFLGS7 04747000 TCBDAR EQU TCB+204 04748000 TCBDARC EQU TCBDAR 04749000 TCBEXT2 EQU TCB+208 04750000 TCBRTWA EQU TCB+224 04751000 TCBXSCT EQU TCB+240 04752000 TCBXSCT1 EQU TCBXSCT 04753000 TCBFOE EQU TCB+244 04754000 TCBESTAE EQU TCB+264 04755000 TCBESTRM EQU TCBESTAE+1 04756000 TCBUKYSP EQU TCB+268 04757000 TCBFBYT1 EQU TCB+276 04758000 TCBFBYT2 EQU TCB+277 04759000 TCBRV124 EQU TCB+278 04760000 TCBRV133 EQU TCB+279 04761000 TCBXTNT2 EQU 0 04762000 TCBGTF EQU TCBXTNT2 04763000 TCBTFLG EQU TCBGTF 04764000 TCBRV146 EQU TCBXTNT2+28 04765000 TCBRV155 EQU TCBXTNT2+29 04766000 TCBRV164 EQU TCBXTNT2+30 04767000 TCBRV173 EQU TCBXTNT2+31 04768000 TIOT1 EQU 0 04769000 QMIOP EQU 0 04770000 QMITCBAD EQU QMIOP 04771000 QMIRECAD EQU QMIOP+4 04772000 QMIWRKAD EQU QMIOP+8 04773000 QMIDSKAD EQU QMIOP+12 04774000 QMIRECL EQU QMIOP+16 04775000 QMIFLAGS EQU QMIOP+18 04776000 QMIOREAD EQU QMIFLAGS 04777000 INFMJFCB EQU 0 04778000 JFCBDSNM EQU INFMJFCB 04779000 JFCBELNM EQU INFMJFCB+44 04780000 JFCBTSDM EQU INFMJFCB+52 04781000 JFCFCBID EQU INFMJFCB+56 04782000 JFCBFRID EQU JFCFCBID 04783000 JFCBLTYP EQU INFMJFCB+66 04784000 JFCBOTTR EQU INFMJFCB+67 04785000 JFCBUFOF EQU JFCBOTTR 04786000 JFCBFLSQ EQU JFCBOTTR+1 04787000 JFCFUNC EQU JFCBFLSQ 04788000 JFCBMASK EQU INFMJFCB+72 04789000 JFCBFLG1 EQU JFCBMASK+5 04790000 JFCOPEN EQU JFCBFLG1 04791000 JFCBFLG2 EQU JFCBMASK+6 04792000 JFCDEFER EQU JFCBFLG2 04793000 JFCBIND1 EQU INFMJFCB+86 04794000 JFCBIND2 EQU INFMJFCB+87 04795000 JFCAMPTR EQU INFMJFCB+88 04796000 JFCBUFRQ EQU JFCAMPTR 04797000 JFCBUFNO EQU JFCBUFRQ 04798000 JFCBGNCP EQU JFCAMPTR+1 04799000 JFCBHIAR EQU JFCBGNCP 04800000 JFCBFALN EQU JFCBHIAR 04801000 JFCBFTEK EQU JFCBFALN 04802000 JFCBBFTA EQU JFCBFTEK 04803000 JFCEROPT EQU INFMJFCB+92 04804000 JFCTRTCH EQU INFMJFCB+93 04805000 JFCBE EQU 0 04806000 JFCBFLAG EQU JFCBE+4 04807000 JFCBTRS1 EQU JFCBE+20 04808000 JFCGROUP EQU JFCBE+36 04809000 JESCT EQU 0 04810000 JESWAA EQU JESCT+8 04811000 JESRESQM EQU JESCT+16 04812000 JESSSREQ EQU JESCT+20 04813000 JESALLOC EQU JESCT+32 04814000 JESUNALC EQU JESCT+36 04815000 JESCATL EQU JESCT+40 04816000 SNPPARMS EQU 0 04817000 SNPFLAG EQU SNPPARMS+1 04818000 SNPVS2 EQU SNPFLAG 04819000 SNPVS2EN EQU SNPFLAG 04820000 SNPABEND EQU SNPFLAG 04821000 SNPSDATA EQU SNPPARMS+4 04822000 SNPSDAT0 EQU SNPSDATA 04823000 SNPSDAT1 EQU SNPSDATA+1 04824000 SNPPDATA EQU SNPPARMS+6 04825000 RMPL EQU 0 04826000 RMPLFLG1 EQU RMPL 04827000 RTM2WA EQU 0 04828000 RTM2DESC EQU RTM2WA 04829000 RTM2RT2D EQU RTM2DESC+8 04830000 RTM2CODE EQU RTM2WA+28 04831000 RTM2CCF EQU RTM2CODE 04832000 RTM2PGCY EQU RTM2WA+60 04833000 RTM2TRRY EQU RTM2PGCY 04834000 RTM2EEDR EQU RTM2TRRY 04835000 RTM2EREG EQU RTM2EEDR 04836000 RTM2APSW EQU RTM2EEDR+64 04837000 RTM2EPSW EQU RTM2APSW 04838000 RTM2EMK1 EQU RTM2EPSW 04839000 RTM2MWP1 EQU RTM2EPSW+1 04840000 RTM2INT1 EQU RTM2EPSW+2 04841000 RTM2NXT1 EQU RTM2EPSW+4 04842000 RTM2AEC1 EQU RTM2APSW+8 04843000 RTM2ILC1 EQU RTM2AEC1+1 04844000 RTM2INC1 EQU RTM2AEC1+2 04845000 RTM2ICD1 EQU RTM2INC1+1 04846000 RTM2EEDH EQU RTM2TRRY+92 04847000 RTM2STCK EQU RTM2EEDH 04848000 RTM2MCHI EQU RTM2EEDH+8 04849000 RTM2MCHS EQU RTM2MCHI 04850000 RTM2MCHD EQU RTM2MCHI+1 04851000 RTM2RSR1 EQU RTM2EEDH+12 04852000 RTM2RSR2 EQU RTM2EEDH+13 04853000 RTM2FLGS EQU RTM2TRRY+120 04854000 RTM2ERRA EQU RTM2FLGS 04855000 RTM2ERRB EQU RTM2FLGS+1 04856000 RTM2ERRC EQU RTM2FLGS+2 04857000 RTM2ERRD EQU RTM2FLGS+3 04858000 RTM2CVER EQU RTM2WA+186 04859000 RTM2TRRC EQU RTM2CVER 04860000 RTM2IOFS EQU RTM2TRRC 04861000 RTM2IOBP EQU RTM2TRRC+2 04862000 RTM2SCBS EQU RTM2TRRC+14 04863000 RTM2RTCD EQU RTM2TRRC+26 04864000 RTM2SPLL EQU RTM2RTCD+4 04865000 RTM2PARQ EQU RTM2TRRC+46 04866000 RTM2CTL1 EQU RTM2CVER+50 04867000 RTM2CMKA EQU RTM2CTL1 04868000 RTM2MWPA EQU RTM2CTL1+1 04869000 RTM2PMKA EQU RTM2CTL1+4 04870000 RTM2CTL2 EQU RTM2CVER+58 04871000 RTM2CMKP EQU RTM2CTL2 04872000 RTM2MWPP EQU RTM2CTL2+1 04873000 RTM2PMKP EQU RTM2CTL2+4 04874000 RTM2SNAP EQU RTM2CVER+66 04875000 RTM2SPRM EQU RTM2SNAP+4 04876000 RTM2DPSL EQU RTM2SNAP+24 04877000 RTM2FRM1 EQU RTM2DPSL 04878000 RTM2TO1 EQU RTM2DPSL+4 04879000 RTM2FRM2 EQU RTM2DPSL+8 04880000 RTM2TO2 EQU RTM2DPSL+12 04881000 RTM2FRM3 EQU RTM2DPSL+16 04882000 RTM2TO3 EQU RTM2DPSL+20 04883000 RTM2FRM4 EQU RTM2DPSL+24 04884000 RTM2TO4 EQU RTM2DPSL+28 04885000 RTM2SECB EQU RTM2CVER+138 04886000 RTM2ECBA EQU RTM2SECB 04887000 RTM2SFRG EQU RTM2CVER+186 04888000 RTM2SCTL EQU RTM2CVER+259 04889000 RTM2CCTL EQU RTM2SCTL 04890000 RTM2ABDR EQU RTM2SCTL+4 04891000 RTM2ABID EQU RTM2ABDR 04892000 RTM2ABND EQU RTM2ABDR+1 04893000 RTM2RCTL EQU RTM2SCTL+6 04894000 RTM2INTF EQU RTM2CVER+266 04895000 RTM2CTLR EQU RTM2INTF 04896000 RTM2TSKT EQU RTM2INTF+2 04897000 RTM2ABDP EQU RTM2INTF+4 04898000 RTM2ASIR EQU RTM2INTF+5 04899000 RTM2FLX EQU RTM2INTF+6 04900000 RTM2FLX1 EQU RTM2FLX 04901000 RTM2FLX2 EQU RTM2FLX+1 04902000 RTM2RECL EQU RTM2CVER+274 04903000 RTM2DCTL EQU RTM2RECL+12 04904000 RTM2ECTL EQU RTM2RECL+13 04905000 RTM2TRYR EQU RTM2RECL+16 04906000 RTM2TRF1 EQU RTM2TRYR 04907000 RTM2TRF2 EQU RTM2TRYR+2 04908000 RTM2RECH EQU RTM2CVER+294 04909000 RTM2RRG EQU RTM2CVER+314 04910000 RTM2CRG EQU RTM2CVER+378 04911000 RTM2RMIN EQU RTM2WA+708 04912000 RTM2RMPL EQU RTM2RMIN+4 04913000 RTM2RMWA EQU RTM2RMIN+28 04914000 RTM2ERID EQU RTM2WA+872 04915000 RTM2ENSN EQU RTM2WA+884 04916000 RTM2SNLN EQU RTM2ENSN 04917000 RTM2TRLN EQU RTM2SNLN 04918000 RTM2TRTB EQU RTM2ENSN+4 04919000 RTM2TRCU EQU RTM2ENSN+8 04920000 RTM2TRFS EQU RTM2ENSN+12 04921000 RTM2TRLS EQU RTM2ENSN+16 04922000 RTM2RYRG EQU RTM2WA+904 04923000 STORAGE EQU 0 04924000 STORFRM EQU STORAGE 04925000 STORTO EQU STORAGE+4 04926000 ABDPL EQU 0 04927000 ADPLTCB EQU ABDPL 04928000 ADPLASID EQU ABDPL+4 04929000 ADPLSBPL EQU ABDPL+6 04930000 ADPLFLAG EQU ABDPL+7 04931000 ADPLDMGT EQU ADPLFLAG 04932000 ADPLBUF EQU ABDPL+8 04933000 ADPLPRNT EQU ABDPL+12 04934000 ADPLCVT EQU ABDPL+16 04935000 ADPLMEMA EQU ABDPL+20 04936000 ADPLFRMT EQU ABDPL+24 04937000 COREAREA EQU 0 04938000 SAVAREA EQU COREAREA+680 04939000 QMIPARM EQU COREAREA+752 04940000 SAVAREA1 EQU COREAREA+772 04941000 QMIAREA EQU COREAREA+844 04942000 JFCBAREA EQU COREAREA+964 04943000 ESTAPTR EQU 0 04944000 ESTA EQU 0 04945000 ESTAEXT EQU ESTA 04946000 ESTAFLG1 EQU ESTAEXT 04947000 ESTAIO EQU ESTAFLG1 04948000 ESTAFGRS EQU ESTA+12 04949000 ESTAFLG2 EQU ESTAFGRS 04950000 I256C EQU 0 04951000 IEFAB4F5 EQU 0 04952000 IEFBB410 EQU 0 04953000 IEFW21SD EQU 0 04954000 I001C EQU 0 04955000 I008P EQU 0 04956000 I015F EQU 0 04957000 I015P EQU 0 04958000 I031F EQU 0 04959000 I031P EQU 0 04960000 READDR EQU 0 04961000 SSREQ EQU 0 04962000 SWAMGR EQU 0 04963000 CVTPTR EQU FLCCVT 04964000 RTM2PTR EQU TCBRTWA 04965000 GMAREA EQU RBEXSAVE+4 04966000 GMREPLY2 EQU GMAREA 04967000 GMPARM2 EQU GMAREA+4 04968000 ENQLIST EQU RBEXSAVE+8 04969000 LASTIND EQU ENQLIST 04970000 SIZEMIN EQU ENQLIST+1 04971000 MAJAD EQU ENQLIST+4 04972000 MINAD EQU ENQLIST+8 04973000 MAJNM EQU ENQLIST+12 04974000 SRC1 EQU ABDSRC1 04975000 MSG1 EQU ABDLINEA 04976000 MSG2 EQU ABDLINEA 04977000 MSG3 EQU ABDLINEA 04978000 MSG4 EQU ABDLINEA 04979000 INTERWRK EQU ABDWORK 04980000 INSTALNM EQU INTERWRK+8 04981000 CVTS01 EQU CVTPGSIA 04982000 CVTLPDIA EQU CVTS01+12 04983000 CVTDIRST EQU CVTLPDIA 04984000 CVTSLIDA EQU CVTS01+24 04985000 CVTCTLFG EQU CVTS01+50 04986000 CVTTRACE EQU CVTS01+52 04987000 CVTRSCN EQU CVTS01+56 04988000 CVTRTMCT EQU CVTS01+224 04989000 CVTRV210 EQU CVTS01+424 04990000 CVTRV219 EQU CVTS01+425 04991000 CVTRV228 EQU CVTS01+426 04992000 CVTRV237 EQU CVTS01+427 04993000 CVTMFRTR EQU CVTS01+452 04994000 CVTRV262 EQU CVTS01+468 04995000 CVTRV271 EQU CVTS01+469 04996000 CVTRV280 EQU CVTS01+470 04997000 CVTRV289 EQU CVTS01+471 04998000 CVTGSDA EQU CVTS01+600 04999000 PSARSVTE EQU PSARSVT 05000000 RBSECS03 EQU RBEP 05001000 RBCDE EQU RBSECS03 05002000 RBCDFLGS EQU RBCDE 05003000 RBSECS05 EQU RBPGMQ 05004000 RBSQE EQU RBSECS05 05005000 RBSECS06 EQU RBPGMQ 05006000 RBIQE EQU RBSECS06 05007000 RBSECS07 EQU RBPGMQ 05008000 RBIQE2 EQU RBSECS07 05009000 RBSECS08 EQU IRBEND 05010000 RBSECS09 EQU IRBEND 05011000 TIOENTRY EQU TIOT1+24 05012000 TIOESTTA EQU TIOENTRY+1 05013000 TIOERLOC EQU TIOENTRY+2 05014000 TIOELINK EQU TIOERLOC+1 05015000 TIOESYOT EQU TIOELINK 05016000 TIOEJFCB EQU TIOENTRY+12 05017000 TIOESTTC EQU TIOENTRY+15 05018000 TIOESTTB EQU TIOENTRY+16 05019000 POOLSTAR EQU TIOENTRY+20 05020000 TIOEDEVE EQU TIOESTTB 05021000 TIOSTTB EQU TIOEDEVE 05022000 JFCKEYLE EQU JFCTRTCH 05023000 JFCCODE EQU JFCKEYLE 05024000 JFCSTACK EQU JFCTRTCH 05025000 JFCMODE EQU JFCSTACK 05026000 JFCSPPRT EQU JFCTRTCH 05027000 JFCBABFS EQU JFCSPPRT+2 05028000 JFCLIMCT EQU JFCBABFS 05029000 JFCDSORG EQU JFCSPPRT+5 05030000 JFCDSRG1 EQU JFCDSORG 05031000 JFCDSRG2 EQU JFCDSORG+1 05032000 JFCRECFM EQU JFCSPPRT+7 05033000 JFCRCFM EQU JFCRECFM 05034000 JFCOPTCD EQU JFCSPPRT+8 05035000 JFCWVCSP EQU JFCOPTCD 05036000 JFCWVCIS EQU JFCWVCSP 05037000 JFCWVCBD EQU JFCWVCIS 05038000 JFCALLOW EQU JFCOPTCD 05039000 JFCRSV17 EQU JFCALLOW 05040000 JFCOVER EQU JFCRSV17 05041000 JFCPCIBT EQU JFCOPTCD 05042000 JFCMAST EQU JFCPCIBT 05043000 JFCEXT EQU JFCMAST 05044000 JFCBCKPT EQU JFCOPTCD 05045000 JFCIND EQU JFCBCKPT 05046000 JFCRSV18 EQU JFCOPTCD 05047000 JFCCYL EQU JFCRSV18 05048000 JFCACT EQU JFCCYL 05049000 JFCREDUC EQU JFCOPTCD 05050000 JFCRSV19 EQU JFCREDUC 05051000 JFCRSV20 EQU JFCRSV19 05052000 JFCRSV21 EQU JFCOPTCD 05053000 JFCDEL EQU JFCRSV21 05054000 JFCOPTJ EQU JFCOPTCD 05055000 JFCREORG EQU JFCOPTJ 05056000 JFCBLKSI EQU JFCSPPRT+9 05057000 JFCBUFSI EQU JFCBLKSI 05058000 JFCAMSYN EQU JFCSPPRT+11 05059000 JFCNCP EQU JFCAMSYN+2 05060000 JFCNTM EQU JFCAMSYN+3 05061000 JFCBFSEQ EQU JFCNTM 05062000 JFCPCI EQU JFCBFSEQ 05063000 JFCRESRV EQU JFCAMSYN+4 05064000 JFCUCSEG EQU JFCRESRV 05065000 JFCUCSOP EQU JFCUCSEG+4 05066000 JFCBEXTP EQU JFCUCSOP 05067000 JFCOUTLI EQU JFCUCSEG+5 05068000 JFCTHRSH EQU JFCOUTLI 05069000 JFCCPRI EQU JFCTHRSH 05070000 JFCBVOLS EQU JFCUCSEG+10 05071000 JFCBS001 EQU JFCBVOLS 05072000 JFCBEXAD EQU JFCBS001+31 05073000 JFCBPQTY EQU JFCBS001+34 05074000 JFCBCTRI EQU JFCBS001+37 05075000 JFCBSQTY EQU JFCBS001+38 05076000 JFCFLGS1 EQU JFCBS001+41 05077000 JFCBSPNM EQU JFCBS001+45 05078000 JFCBFLG3 EQU JFCBSPNM 05079000 FLC EQU PSA 05080000 AGO .@UNREFD START UNREFERENCED COMPONENTS 05081000 JFCBEND EQU JFCBS001+58 05082000 JFCBSPTN EQU JFCBS001+57 05083000 JFCBVLCT EQU JFCBS001+56 05084000 JFCBDRLH EQU JFCBS001+53 05085000 JFCBSBNM EQU JFCBS001+50 05086000 JFCBABST EQU JFCBS001+48 05087000 JFCBRV08 EQU JFCBSPNM+1 05088000 JFCBRV07 EQU JFCBFLG3 05089000 JFCBRV06 EQU JFCBFLG3 05090000 JFCBRV05 EQU JFCBFLG3 05091000 JFCBRV04 EQU JFCBFLG3 05092000 JFCBRV03 EQU JFCBFLG3 05093000 JFCBRV02 EQU JFCBFLG3 05094000 JFCBEXP EQU JFCBFLG3 05095000 JFCDQDSP EQU JFCBFLG3 05096000 JFCBDQTY EQU JFCBS001+42 05097000 JFCBUAFF EQU JFCFLGS1 05098000 JFCRSV45 EQU JFCFLGS1 05099000 JFCVRDS EQU JFCFLGS1 05100000 JFCBCEOV EQU JFCFLGS1 05101000 JFCRSV42 EQU JFCFLGS1 05102000 JFCBADSP EQU JFCFLGS1 05103000 JFCTOPEN EQU JFCFLGS1 05104000 JFCBDLET EQU JFCFLGS1 05105000 JFCRQID EQU JFCBSQTY 05106000 JFCROUND EQU JFCBCTRI 05107000 JFCALX EQU JFCBCTRI 05108000 JFCMIXG EQU JFCBCTRI 05109000 JFCONTIG EQU JFCBCTRI 05110000 JFCRSV29 EQU JFCBCTRI 05111000 JFCBMSGP EQU JFCBCTRI 05112000 JFCBSPAC EQU JFCBCTRI 05113000 JFCRUNIT EQU JFCBPQTY 05114000 JFCBEXTL EQU JFCBS001+30 05115000 JFCMSVGP EQU JFCBS001+22 05116000 @NM00215 EQU JFCBS001 05117000 JFCAVOLS EQU JFCBVOLS 05118000 JFCBNVOL EQU JFCUCSEG+9 05119000 JFCBNTCS EQU JFCUCSEG+8 05120000 JFCSOWA EQU JFCOUTLI+1 05121000 JFCSEND EQU JFCCPRI 05122000 JFCEQUAL EQU JFCCPRI 05123000 JFCRECV EQU JFCCPRI 05124000 JFCRSV34 EQU JFCCPRI 05125000 JFCRSV33 EQU JFCCPRI 05126000 JFCRSV55 EQU JFCCPRI 05127000 JFCRSV54 EQU JFCCPRI 05128000 JFCRSV53 EQU JFCCPRI 05129000 JFCRSV27 EQU JFCUCSOP 05130000 JFCRSV26 EQU JFCUCSOP 05131000 JFCFCBVR EQU JFCUCSOP 05132000 JFCFCBAL EQU JFCUCSOP 05133000 JFCVER EQU JFCUCSOP 05134000 JFCRSV25 EQU JFCUCSOP 05135000 JFCFOLD EQU JFCUCSOP 05136000 JFCUCSID EQU JFCUCSEG 05137000 JFCINTVL EQU JFCSPPRT+19 05138000 JFCDBUFN EQU JFCRESRV+3 05139000 JFCCYLOF EQU JFCRESRV+2 05140000 JFCRKP EQU JFCRESRV 05141000 JFCPCIR2 EQU JFCPCI 05142000 JFCPCIR1 EQU JFCPCI 05143000 JFCPCIN2 EQU JFCPCI 05144000 JFCPCIN1 EQU JFCPCI 05145000 JFCPCIA2 EQU JFCPCI 05146000 JFCPCIA1 EQU JFCPCI 05147000 JFCPCIX2 EQU JFCPCI 05148000 JFCPCIX1 EQU JFCPCI 05149000 JFCBUFMX EQU JFCNCP 05150000 JFCLRECL EQU JFCAMSYN 05151000 JFCBAXBF EQU JFCBUFSI 05152000 JFCREL EQU JFCREORG 05153000 JFCRSV22 EQU JFCDEL 05154000 JFCSRCHD EQU JFCRSV20 05155000 JFCOPTQ EQU JFCACT 05156000 JFCFEED EQU JFCIND 05157000 JFCCBWU EQU JFCEXT 05158000 JFCWUMSG EQU JFCOVER 05159000 JFCSDNAM EQU JFCWVCBD 05160000 @NM00214 EQU JFCRECFM 05161000 JFCCHAR EQU JFCRECFM 05162000 JFCRFS EQU JFCRECFM 05163000 JFCRFB EQU JFCRECFM 05164000 JFCRFO EQU JFCRCFM 05165000 JFCFMREC EQU JFCRCFM 05166000 JFCRSV16 EQU JFCDSRG2 05167000 JFCRSV15 EQU JFCDSRG2 05168000 JFCORGTR EQU JFCDSRG2 05169000 JFCORGAM EQU JFCDSRG2 05170000 JFCRSV13 EQU JFCDSRG2 05171000 JFCORGTQ EQU JFCDSRG2 05172000 JFCORGTX EQU JFCDSRG2 05173000 JFCORGGS EQU JFCDSRG2 05174000 JFCORGU EQU JFCDSRG1 05175000 JFCORGPO EQU JFCDSRG1 05176000 JFCORGMQ EQU JFCDSRG1 05177000 JFCORGCQ EQU JFCDSRG1 05178000 JFCORGCX EQU JFCDSRG1 05179000 JFCORGDA EQU JFCDSRG1 05180000 JFCORGPS EQU JFCDSRG1 05181000 JFCORGIS EQU JFCDSRG1 05182000 JFCTRKBL EQU JFCLIMCT+1 05183000 @NM00213 EQU JFCLIMCT 05184000 JFCDEN EQU JFCSPPRT+1 05185000 JFCPRTSP EQU JFCSPPRT 05186000 JFCONE EQU JFCMODE 05187000 JFCTWO EQU JFCMODE 05188000 JFCRSV07 EQU JFCMODE 05189000 JFCRSV06 EQU JFCMODE 05190000 JFCMODER EQU JFCMODE 05191000 JFCMODEO EQU JFCMODE 05192000 JFCEBCD EQU JFCMODE 05193000 JFCBIN EQU JFCMODE 05194000 JFCRSV32 EQU JFCCODE 05195000 JFCTTY EQU JFCCODE 05196000 JFCASCII EQU JFCCODE 05197000 JFCNCR EQU JFCCODE 05198000 JFCBUR EQU JFCCODE 05199000 JFCFRI EQU JFCCODE 05200000 JFCBCD EQU JFCCODE 05201000 JFCNOCON EQU JFCCODE 05202000 TIOUCBP EQU TIOEDEVE+1 05203000 TIOVERF EQU TIOSTTB 05204000 TIOUNLD EQU TIOSTTB 05205000 TIOMNTD EQU TIOSTTB 05206000 TIOSETU EQU TIOSTTB 05207000 TIOVLSR EQU TIOSTTB 05208000 TIOPVIO EQU TIOSTTB 05209000 TIOREQD EQU TIOSTTB 05210000 TIOUSED EQU TIOSTTB 05211000 TIOTFEND EQU POOLSTAR+16 05212000 TIOPSLOT EQU POOLSTAR+13 05213000 TIOPSTTB EQU POOLSTAR+12 05214000 TIOPPOOL EQU POOLSTAR+4 05215000 TIOPNSRT EQU POOLSTAR+3 05216000 @NM00204 EQU POOLSTAR+2 05217000 TIOPNSLT EQU POOLSTAR+1 05218000 @NM00203 EQU POOLSTAR 05219000 TIOEFSRT EQU TIOENTRY+17 05220000 TIOSVERF EQU TIOESTTB 05221000 TIOSUNLD EQU TIOESTTB 05222000 TIOSMNTD EQU TIOESTTB 05223000 TIOSSETU EQU TIOESTTB 05224000 TIOSVLSR EQU TIOESTTB 05225000 TIOSPVIO EQU TIOESTTB 05226000 TIOSREQD EQU TIOESTTB 05227000 TIOSUSED EQU TIOESTTB 05228000 TIOSBALS EQU TIOESTTC 05229000 TIOSBALP EQU TIOESTTC 05230000 TIOSVOLS EQU TIOESTTC 05231000 TIOSVOLP EQU TIOESTTC 05232000 TIOSAFFS EQU TIOESTTC 05233000 TIOSAFFP EQU TIOESTTC 05234000 TIOSDEFR EQU TIOESTTC 05235000 TIOSDKCR EQU TIOESTTC 05236000 TIOEDDNM EQU TIOENTRY+4 05237000 TIOTREM EQU TIOELINK 05238000 TIOESSDS EQU TIOESYOT 05239000 TIOESYIN EQU TIOELINK 05240000 TIOEQNAM EQU TIOELINK 05241000 TIOEDYNM EQU TIOELINK 05242000 TIOTTERM EQU TIOELINK 05243000 TIOTRV01 EQU TIOELINK 05244000 TIOSYOUT EQU TIOELINK 05245000 TIOEWTCT EQU TIOERLOC 05246000 TIOSDSP2 EQU TIOESTTA 05247000 TIOSDSP1 EQU TIOESTTA 05248000 TIOSLABL EQU TIOESTTA 05249000 TIOSDADS EQU TIOESTTA 05250000 TIOSJBLB EQU TIOESTTA 05251000 TIOSPLTS EQU TIOESTTA 05252000 TIOSPLTP EQU TIOESTTA 05253000 TIOSLTYP EQU TIOESTTA 05254000 TIOELNGH EQU TIOENTRY 05255000 RBRSV161 EQU RBSECS09+64 05256000 RBSIRBWA EQU RBSECS09 05257000 RBIQEWRK EQU RBSECS08+4 05258000 RBNEXAV EQU RBSECS08 05259000 RBIQEA EQU RBIQE2 05260000 RBIQE1 EQU RBIQE+1 05261000 RBUSE EQU RBIQE 05262000 RBSQEA EQU RBSQE+1 05263000 @NM00115 EQU RBSQE 05264000 RBCDE1 EQU RBCDE+1 05265000 RBCDLOAD EQU RBCDFLGS 05266000 RBCDXCTL EQU RBCDFLGS 05267000 RBCDSYNC EQU RBCDFLGS 05268000 RBCDNODE EQU RBCDFLGS 05269000 RBRSV010 EQU RBCDFLGS 05270000 RBCDATCH EQU RBCDFLGS 05271000 RBRSV009 EQU RBCDFLGS 05272000 RBNOCELL EQU RBCDFLGS 05273000 PSARSAV EQU PSARSVTE+60 05274000 PSARSTK EQU PSARSVTE+56 05275000 PSAESAV3 EQU PSARSVTE+52 05276000 PSAESTK3 EQU PSARSVTE+48 05277000 PSAESAV2 EQU PSARSVTE+44 05278000 PSAESTK2 EQU PSARSVTE+40 05279000 PSAESAV1 EQU PSARSVTE+36 05280000 PSAESTK1 EQU PSARSVTE+32 05281000 PSAPSAV EQU PSARSVTE+28 05282000 PSAPSTK EQU PSARSVTE+24 05283000 PSAMSAV EQU PSARSVTE+20 05284000 PSAMSTK EQU PSARSVTE+16 05285000 PSASSAV EQU PSARSVTE+12 05286000 PSASSTK EQU PSARSVTE+8 05287000 PSANSTK EQU PSARSVTE+4 05288000 PSACSTK EQU PSARSVTE 05289000 CVTRV628 EQU CVTS01+728 05290000 CVTRV627 EQU CVTS01+724 05291000 CVTRV626 EQU CVTS01+720 05292000 CVTRV625 EQU CVTS01+716 05293000 CVTRV624 EQU CVTS01+712 05294000 CVTRV623 EQU CVTS01+708 05295000 CVTRV622 EQU CVTS01+704 05296000 CVTRV621 EQU CVTS01+700 05297000 CVTIHASU EQU CVTS01+696 05298000 CVTSUSP EQU CVTS01+692 05299000 CVTT6SVC EQU CVTS01+688 05300000 CVTCDAL EQU CVTS01+684 05301000 CVTTCTL EQU CVTS01+680 05302000 CVTRSUME EQU CVTS01+676 05303000 CVTJTERM EQU CVTS01+672 05304000 CVTASMRM EQU CVTS01+668 05305000 CVTTCASP EQU CVTS01+664 05306000 CVT0PT03 EQU CVTS01+660 05307000 CVT0PT0E EQU CVTS01+656 05308000 CVTRV609 EQU CVTS01+652 05309000 CVTCGK EQU CVTS01+648 05310000 CVTRAC EQU CVTS01+644 05311000 CVTHSM EQU CVTS01+640 05312000 CVTRV605 EQU CVTS01+636 05313000 CVTRV604 EQU CVTS01+632 05314000 CVTEFF02 EQU CVTS01+628 05315000 CVTCBBR EQU CVTS01+624 05316000 CVTSSCR EQU CVTS01+620 05317000 CVTEVENT EQU CVTS01+616 05318000 CVTCRCA EQU CVTS01+612 05319000 CVTTPIO EQU CVTS01+608 05320000 CVTADV EQU CVTS01+604 05321000 CVTGSDAB EQU CVTGSDA 05322000 CVTQV3 EQU CVTS01+596 05323000 CVTQV2 EQU CVTS01+592 05324000 CVTQV1 EQU CVTS01+588 05325000 CVTRPT EQU CVTS01+584 05326000 CVTSSRB EQU CVTS01+580 05327000 CVTCSDRL EQU CVTS01+576 05328000 CVTEXP1 EQU CVTS01+572 05329000 CVTRMPMT EQU CVTS01+568 05330000 CVTRMPTT EQU CVTS01+564 05331000 CVTVPSA EQU CVTS01+560 05332000 CVTVSTOP EQU CVTS01+556 05333000 CVTGTFR8 EQU CVTS01+552 05334000 CVTQUIT EQU CVTS01+548 05335000 CVTVACR EQU CVTS01+544 05336000 CVTWTCB EQU CVTS01+540 05337000 CVTSTPRS EQU CVTS01+536 05338000 CVT0PT02 EQU CVTS01+532 05339000 CVTDARCM EQU CVTS01+528 05340000 CVTIRECM EQU CVTS01+524 05341000 CVTJRECM EQU CVTS01+520 05342000 CVTVEMS0 EQU CVTS01+516 05343000 CVTSPFRR EQU CVTS01+512 05344000 CVTRLSTG EQU CVTS01+508 05345000 CVT0TC0A EQU CVTS01+504 05346000 CVTGMBR EQU CVTS01+500 05347000 CVTLFRM EQU CVTS01+496 05348000 CVTRMBR EQU CVTS01+492 05349000 CVTVIOP EQU CVTS01+488 05350000 CVTRV307 EQU CVTS01+486 05351000 CVTRV306 EQU CVTS01+484 05352000 CVTRV305 EQU CVTS01+482 05353000 CVTRV304 EQU CVTS01+480 05354000 CVTRV303 EQU CVTS01+478 05355000 CVTRV302 EQU CVTS01+476 05356000 CVTTRCA EQU CVTS01+472 05357000 CVTRV297 EQU CVTRV289 05358000 CVTRV296 EQU CVTRV289 05359000 CVTRV295 EQU CVTRV289 05360000 CVTRV294 EQU CVTRV289 05361000 CVTRV293 EQU CVTRV289 05362000 CVTRV292 EQU CVTRV289 05363000 CVTRV291 EQU CVTRV289 05364000 CVTRV290 EQU CVTRV289 05365000 CVTRV288 EQU CVTRV280 05366000 CVTRV287 EQU CVTRV280 05367000 CVTRV286 EQU CVTRV280 05368000 CVTRV285 EQU CVTRV280 05369000 CVTRV284 EQU CVTRV280 05370000 CVTRV283 EQU CVTRV280 05371000 CVTRV282 EQU CVTRV280 05372000 CVTRV281 EQU CVTRV280 05373000 CVTRV279 EQU CVTRV271 05374000 CVTRV278 EQU CVTRV271 05375000 CVTRV277 EQU CVTRV271 05376000 CVTRV276 EQU CVTRV271 05377000 CVTRV275 EQU CVTRV271 05378000 CVTRV274 EQU CVTRV271 05379000 CVTRV273 EQU CVTRV271 05380000 CVTRV272 EQU CVTRV271 05381000 CVTRV270 EQU CVTRV262 05382000 CVTRV269 EQU CVTRV262 05383000 CVTRV268 EQU CVTRV262 05384000 CVTRV267 EQU CVTRV262 05385000 CVTRV266 EQU CVTRV262 05386000 CVTRV265 EQU CVTRV262 05387000 CVTRV264 EQU CVTRV262 05388000 CVTRV263 EQU CVTRV262 05389000 CVTVFP EQU CVTS01+464 05390000 CVTVSI EQU CVTS01+460 05391000 CVTVPSIB EQU CVTS01+456 05392000 CVTMFACT EQU CVTMFRTR 05393000 CVTMFCTL EQU CVTS01+448 05394000 CVTPVBP EQU CVTS01+444 05395000 CVTPWI EQU CVTS01+440 05396000 CVTRV254 EQU CVTS01+438 05397000 CVTRV253 EQU CVTS01+436 05398000 CVTRV252 EQU CVTS01+434 05399000 CVTRV251 EQU CVTS01+433 05400000 CVTRV250 EQU CVTS01+432 05401000 CVTRV249 EQU CVTS01+431 05402000 CVTRV248 EQU CVTS01+430 05403000 CVTRV247 EQU CVTS01+429 05404000 CVTRV246 EQU CVTS01+428 05405000 CVTRV245 EQU CVTRV237 05406000 CVTRV244 EQU CVTRV237 05407000 CVTRV243 EQU CVTRV237 05408000 CVTRV242 EQU CVTRV237 05409000 CVTRV241 EQU CVTRV237 05410000 CVTRV240 EQU CVTRV237 05411000 CVTRV239 EQU CVTRV237 05412000 CVTRV238 EQU CVTRV237 05413000 CVTRV236 EQU CVTRV228 05414000 CVTRV235 EQU CVTRV228 05415000 CVTRV234 EQU CVTRV228 05416000 CVTRV233 EQU CVTRV228 05417000 CVTRV232 EQU CVTRV228 05418000 CVTRV231 EQU CVTRV228 05419000 CVTRV230 EQU CVTRV228 05420000 CVTRV229 EQU CVTRV228 05421000 CVTRV227 EQU CVTRV219 05422000 CVTRV226 EQU CVTRV219 05423000 CVTRV225 EQU CVTRV219 05424000 CVTRV224 EQU CVTRV219 05425000 CVTRV223 EQU CVTRV219 05426000 CVTRV222 EQU CVTRV219 05427000 CVTRV221 EQU CVTRV219 05428000 CVTRV220 EQU CVTRV219 05429000 CVTRV218 EQU CVTRV210 05430000 CVTRV217 EQU CVTRV210 05431000 CVTRV216 EQU CVTRV210 05432000 CVTRV215 EQU CVTRV210 05433000 CVTRV214 EQU CVTRV210 05434000 CVTRV213 EQU CVTRV210 05435000 CVTRV212 EQU CVTRV210 05436000 CVTRV211 EQU CVTRV210 05437000 CVTLCCAT EQU CVTS01+420 05438000 CVTPCCAT EQU CVTS01+416 05439000 CVTIPCRP EQU CVTS01+412 05440000 CVTIPCRI EQU CVTS01+408 05441000 CVTIPCDS EQU CVTS01+404 05442000 CVTAIDVT EQU CVTS01+400 05443000 CVTSSAP EQU CVTS01+396 05444000 CVTEHCIR EQU CVTS01+392 05445000 CVTEHDEF EQU CVTS01+388 05446000 CVTDAIR EQU CVTS01+384 05447000 CVTPERFM EQU CVTS01+380 05448000 CVT044R2 EQU CVTS01+376 05449000 CVTFETCH EQU CVTS01+372 05450000 CVTRSTWD EQU CVTS01+368 05451000 CVTSPOST EQU CVTS01+364 05452000 CVTIOBP EQU CVTS01+360 05453000 CVTASMVT EQU CVTS01+356 05454000 CVTRECRQ EQU CVTS01+352 05455000 CVTWSAC EQU CVTS01+348 05456000 CVTRV149 EQU CVTS01+344 05457000 CVTWSAL EQU CVTS01+340 05458000 CVTSPSA EQU CVTS01+336 05459000 CVTGLMN EQU CVTS01+332 05460000 CVTVEAC0 EQU CVTS01+328 05461000 CVT062R1 EQU CVTS01+324 05462000 CVTRPOST EQU CVTS01+320 05463000 CVTDQIQE EQU CVTS01+316 05464000 CVTCSD EQU CVTS01+312 05465000 CVTLKRMA EQU CVTS01+308 05466000 CVTRSPIE EQU CVTS01+304 05467000 CVTRENQ EQU CVTS01+300 05468000 CVTLQCB EQU CVTS01+296 05469000 CVTFQCB EQU CVTS01+292 05470000 CVTQCS01 EQU CVTS01+288 05471000 CVTAPFT EQU CVTS01+284 05472000 CVTPARRL EQU CVTS01+280 05473000 CVTVWAIT EQU CVTS01+276 05474000 CVTGSPL EQU CVTS01+272 05475000 CVTLSMQ EQU CVTS01+268 05476000 CVTGSMQ EQU CVTS01+264 05477000 CVTEXPRO EQU CVTS01+260 05478000 CVTOPCTP EQU CVTS01+256 05479000 CVTSIC EQU CVTS01+252 05480000 CVTTPIOS EQU CVTS01+248 05481000 CVTRTMS EQU CVTS01+244 05482000 CVTSDBF EQU CVTS01+240 05483000 CVTSCBP EQU CVTS01+236 05484000 CVTSDMP EQU CVTS01+232 05485000 CVTSV60 EQU CVTS01+228 05486000 CVTASCBL EQU CVTS01+220 05487000 CVTASCBH EQU CVTS01+216 05488000 CVTGDA EQU CVTS01+212 05489000 CVTASVT EQU CVTS01+208 05490000 CVTVVMDI EQU CVTS01+204 05491000 CVTAQTOP EQU CVTS01+200 05492000 CVTIOSCS EQU CVTS01+196 05493000 CVTSDRM EQU CVTS01+192 05494000 CVTOPTE EQU CVTS01+188 05495000 CVTSTXU EQU CVTS01+184 05496000 CVTQUIS EQU CVTS01+180 05497000 CVTPARS EQU CVTS01+176 05498000 CVTS1EE EQU CVTS01+172 05499000 CVTFRAS EQU CVTS01+168 05500000 CVTQSAS EQU CVTS01+164 05501000 CVTCRAS EQU CVTS01+160 05502000 CVTCRMN EQU CVTS01+156 05503000 CVTDELCP EQU CVTS01+152 05504000 CVTFRECL EQU CVTS01+148 05505000 CVTGETCL EQU CVTS01+144 05506000 CVTBLDCP EQU CVTS01+140 05507000 CVTAUTHL EQU CVTS01+136 05508000 CVTSCAN EQU CVTS01+132 05509000 CVTRV144 EQU CVTS01+130 05510000 CVTMAXMP EQU CVTS01+128 05511000 CVTSTCK EQU CVTS01+124 05512000 CVTRV139 EQU CVTS01+123 05513000 CVTDSSAC EQU CVTS01+122 05514000 CVTRV513 EQU CVTS01+121 05515000 CVTIOSPL EQU CVTS01+120 05516000 CVTPTGT EQU CVTS01+116 05517000 CVTCSPIE EQU CVTS01+112 05518000 CVTSMFEX EQU CVTS01+108 05519000 CVTOLT0A EQU CVTS01+104 05520000 CVTSRBRT EQU CVTS01+100 05521000 CVTPUTL EQU CVTS01+96 05522000 CVTASCRL EQU CVTS01+92 05523000 CVTASCRF EQU CVTS01+88 05524000 CVTRV326 EQU CVTS01+84 05525000 CVTRV325 EQU CVTS01+80 05526000 CVTRV324 EQU CVTS01+76 05527000 CVT0VL01 EQU CVTS01+72 05528000 CVTSHRVM EQU CVTS01+68 05529000 CVTRV332 EQU CVTS01+64 05530000 CVTTAS EQU CVTS01+60 05531000 CVTTRAC2 EQU CVTS01+54 05532000 CVTAPG EQU CVTS01+51 05533000 CVTSDTRC EQU CVTCTLFG 05534000 CVTGTRCE EQU CVTCTLFG 05535000 CVTNOMP EQU CVTCTLFG 05536000 CVTRSV79 EQU CVTCTLFG 05537000 CVTDSTAT EQU CVTCTLFG 05538000 CVTRSV78 EQU CVTCTLFG 05539000 CVTRV333 EQU CVTCTLFG 05540000 CVTRV323 EQU CVTCTLFG 05541000 CVTSPVLK EQU CVTS01+49 05542000 CVTRSV77 EQU CVTS01+48 05543000 CVTRV331 EQU CVTS01+44 05544000 CVTRV330 EQU CVTS01+40 05545000 CVTRV329 EQU CVTS01+36 05546000 CVTRV328 EQU CVTS01+32 05547000 CVTRV322 EQU CVTS01+28 05548000 CVTSLID EQU CVTSLIDA+1 05549000 CVTSYLK EQU CVTSLIDA 05550000 CVTRV321 EQU CVTS01+20 05551000 CVTRV320 EQU CVTS01+16 05552000 CVTLPDIR EQU CVTLPDIA+1 05553000 CVTRSV69 EQU CVTDIRST 05554000 CVTRSV68 EQU CVTDIRST 05555000 CVTRSV67 EQU CVTDIRST 05556000 CVTRSV66 EQU CVTDIRST 05557000 CVTRSV65 EQU CVTDIRST 05558000 CVTRSV64 EQU CVTDIRST 05559000 CVTRSV63 EQU CVTDIRST 05560000 CVTDICOM EQU CVTDIRST 05561000 CVTPVTP EQU CVTS01+8 05562000 CVTLPDSR EQU CVTS01+4 05563000 CVTGETL EQU CVTS01 05564000 @NM00033 EQU INTERWRK+16 05565000 @NM00032 EQU INTERWRK+4 05566000 @NM00031 EQU INTERWRK 05567000 @NM00001 EQU ENQLIST+2 05568000 ESTARSVI EQU ESTAFGRS+1 05569000 @NM00261 EQU ESTAFLG2 05570000 ESTABRNT EQU ESTAFLG2 05571000 @NM00260 EQU ESTAFLG2 05572000 ESTAEREC EQU ESTAFLG2 05573000 ESTATERM EQU ESTAFLG2 05574000 @NM00259 EQU ESTAFLG2 05575000 ESTAOWNR EQU ESTA+8 05576000 ESTAPARM EQU ESTA+4 05577000 ESTAEXIT EQU ESTAEXT+1 05578000 ESTAHALT EQU ESTAIO 05579000 ESTANOIO EQU ESTAIO 05580000 ESTASYNC EQU ESTAFLG1 05581000 @NM00258 EQU ESTAFLG1 05582000 ESTAESTA EQU ESTAFLG1 05583000 @NM00257 EQU ESTAFLG1 05584000 ESTASTAR EQU ESTAFLG1 05585000 ESTASTAI EQU ESTAFLG1 05586000 ABDAREAL EQU COREAREA 05587000 ADPLABDA EQU ABDPL+56 05588000 ADPLEXT EQU ABDPL+52 05589000 ADPLFMT2 EQU ABDPL+48 05590000 ADPLFMT1 EQU ABDPL+44 05591000 ADPLCOM4 EQU ABDPL+40 05592000 ADPLCOM3 EQU ABDPL+36 05593000 ADPLCOM2 EQU ABDPL+32 05594000 ADPLCOM1 EQU ABDPL+28 05595000 @NM00256 EQU ADPLFLAG 05596000 ADPLSYTM EQU ADPLFLAG 05597000 ADPLSNPR EQU ADPLFLAG 05598000 STORBTO EQU STORTO 05599000 STORB EQU STORFRM 05600000 RTM2TECB EQU RTM2RYRG+64 05601000 RTM2RYRS EQU RTM2RYRG 05602000 @NM00255 EQU RTM2WA+882 05603000 RTM2ERTM EQU RTM2ERID+6 05604000 RTM2ERAS EQU RTM2ERID+4 05605000 RTM2CPUI EQU RTM2ERID+2 05606000 RTM2SEQ# EQU RTM2ERID 05607000 RTM2RMSA EQU RTM2RMIN+92 05608000 RTM2RMWS EQU RTM2RMWA 05609000 RTM2RMPS EQU RTM2RMIN 05610000 RTM2TRSA EQU RTM2CVER+450 05611000 RTM2CREG EQU RTM2CRG 05612000 RTM2RREG EQU RTM2RRG 05613000 RTM2RBRG EQU RTM2CVER+313 05614000 RTM2WARG EQU RTM2CVER+312 05615000 @NM00254 EQU RTM2CVER+310 05616000 RTM2CTRA EQU RTM2RECH+12 05617000 RTM2STRA EQU RTM2RECH+8 05618000 RTM2SKRA EQU RTM2RECH+4 05619000 RTM2TRRA EQU RTM2RECH 05620000 @NM00253 EQU RTM2TRYR+3 05621000 @NM00252 EQU RTM2TRF2 05622000 RTM2GMR EQU RTM2TRF2 05623000 RTM2PPR EQU RTM2TRF2 05624000 RTM2IOR EQU RTM2TRF2 05625000 RTM2AS3R EQU RTM2TRF1+1 05626000 RTM2AS2R EQU RTM2TRF1+1 05627000 RTM2AS1R EQU RTM2TRF1+1 05628000 RTM2XFLG EQU RTM2TRF1+1 05629000 RTM2XABD EQU RTM2TRF1+1 05630000 RTM2XIP EQU RTM2TRF1+1 05631000 RTM2RTYS EQU RTM2TRF1+1 05632000 RTM2RCD EQU RTM2TRF1+1 05633000 RTM2FMS EQU RTM2TRF1 05634000 RTM2VLDY EQU RTM2TRF1 05635000 RTM2HOOK EQU RTM2TRF1 05636000 RTM2PPS EQU RTM2TRF1 05637000 RTM2GMS EQU RTM2TRF1 05638000 RTM2IORS EQU RTM2TRF1 05639000 RTM2IOHS EQU RTM2TRF1 05640000 RTM2IOQS EQU RTM2TRF1 05641000 RTM2TMER EQU RTM2RECL+14 05642000 RTM2EQMN EQU RTM2ECTL 05643000 RTM2EDEQ EQU RTM2ECTL 05644000 RTM2EFRM EQU RTM2ECTL 05645000 RTM2ECLS EQU RTM2ECTL 05646000 RTM2ESNP EQU RTM2ECTL 05647000 RTM2EOPN EQU RTM2ECTL 05648000 RTM2EGET EQU RTM2ECTL 05649000 RTM2EENQ EQU RTM2ECTL 05650000 RTM2DFTK EQU RTM2DCTL 05651000 RTM2DDEQ EQU RTM2DCTL 05652000 RTM2DFRM EQU RTM2DCTL 05653000 RTM2DCLS EQU RTM2DCTL 05654000 RTM2DSNP EQU RTM2DCTL 05655000 RTM2DOPN EQU RTM2DCTL 05656000 RTM2DGET EQU RTM2DCTL 05657000 RTM2DENQ EQU RTM2DCTL 05658000 RTM2SCTX EQU RTM2RECL+8 05659000 RTM2SCTR EQU RTM2RECL+4 05660000 RTM2SCTC EQU RTM2RECL 05661000 @NM00251 EQU RTM2FLX2 05662000 RTM2CERX EQU RTM2FLX2 05663000 RTM2RCRX EQU RTM2FLX2 05664000 RTM2RTRX EQU RTM2FLX1 05665000 RTM2LTX EQU RTM2FLX1 05666000 RTM2PRX EQU RTM2FLX1 05667000 RTM2CVX EQU RTM2FLX1 05668000 RTM2DWX EQU RTM2FLX1 05669000 RTM2ABX EQU RTM2FLX1 05670000 RTM2EOTX EQU RTM2FLX1 05671000 RTM2MTX EQU RTM2FLX1 05672000 @NM00250 EQU RTM2ASIR 05673000 RTM2UPRG EQU RTM2ASIR 05674000 RTM2TRME EQU RTM2ASIR 05675000 @NM00249 EQU RTM2ABDP 05676000 RTM2SMDP EQU RTM2ABDP 05677000 RTM2DMP1 EQU RTM2ABDP 05678000 RTM2MEMT EQU RTM2INTF+3 05679000 @NM00248 EQU RTM2TSKT 05680000 RTM2PURG EQU RTM2TSKT 05681000 @NM00247 EQU RTM2INTF+1 05682000 @NM00246 EQU RTM2CTLR 05683000 RTM2WRAP EQU RTM2CTLR 05684000 RTM2TMEM EQU RTM2CTLR 05685000 RTM2RETR EQU RTM2CTLR 05686000 RTM2RECR EQU RTM2CTLR 05687000 @NM00245 EQU RTM2RCTL 05688000 RTM2JPAQ EQU RTM2RCTL 05689000 RTM2LPAQ EQU RTM2RCTL 05690000 RTM2BFTL EQU RTM2RCTL 05691000 RTM2TRSW EQU RTM2RCTL 05692000 RTM2WANA EQU RTM2RCTL 05693000 RTM2WAIN EQU RTM2RCTL 05694000 RTM2STA2 EQU RTM2RCTL 05695000 RTM2STAT EQU RTM2ABND 05696000 RTM2NDMP EQU RTM2ABND 05697000 @NM00244 EQU RTM2ABID 05698000 RTM2OERR EQU RTM2ABID 05699000 RTM2SAV2 EQU RTM2ABID 05700000 RTM2SAVE EQU RTM2ABID 05701000 RTM2REG EQU RTM2ABID 05702000 RTM2PSW EQU RTM2ABID 05703000 RTM2ENQ EQU RTM2ABID 05704000 RTM2CB EQU RTM2ABID 05705000 RTM2MCTL EQU RTM2SCTL+3 05706000 RTM2TCTL EQU RTM2SCTL+2 05707000 @NM00243 EQU RTM2CCTL+1 05708000 RTM2NODP EQU RTM2CCTL+1 05709000 RTM2RGEB EQU RTM2CCTL+1 05710000 RTM2DEND EQU RTM2CCTL+1 05711000 RTM2RSCN EQU RTM2CCTL+1 05712000 RTM2CONT EQU RTM2CCTL 05713000 RTM2SLIP EQU RTM2CCTL 05714000 RTM2HEED EQU RTM2CCTL 05715000 RTM2REED EQU RTM2CCTL 05716000 RTM2ISPC EQU RTM2CCTL 05717000 RTM2SQS EQU RTM2CCTL 05718000 RTM2CNCL EQU RTM2CCTL 05719000 RTM2STPT EQU RTM2CCTL 05720000 RTM2PKEY EQU RTM2CVER+258 05721000 RTM2SFSA EQU RTM2SFRG 05722000 RTM2PRWA EQU RTM2CVER+182 05723000 RTM2PREV EQU RTM2CVER+178 05724000 RTM2SPWA EQU RTM2CVER+174 05725000 RTM2DCBA EQU RTM2CVER+170 05726000 RTM2ECBS EQU RTM2SECB+16 05727000 RTM2LECB EQU RTM2ECBA 05728000 RTM2DTCB EQU RTM2SNAP+68 05729000 RTM2SNCC EQU RTM2SNAP+64 05730000 RTM2DD EQU RTM2SNAP+56 05731000 RTM2LTO4 EQU RTM2TO4 05732000 RTM2LFR4 EQU RTM2FRM4 05733000 RTM2LTO3 EQU RTM2TO3 05734000 RTM2LFR3 EQU RTM2FRM3 05735000 RTM2LTO2 EQU RTM2TO2 05736000 RTM2LFR2 EQU RTM2FRM2 05737000 RTM2LTO1 EQU RTM2TO1 05738000 RTM2LFR1 EQU RTM2FRM1 05739000 RTM2DPLA EQU RTM2SNAP 05740000 RTM2NXTP EQU RTM2CTL2+5 05741000 RTM2SGP EQU RTM2PMKP 05742000 RTM2EUP EQU RTM2PMKP 05743000 RTM2DOP EQU RTM2PMKP 05744000 RTM2FPP EQU RTM2PMKP 05745000 RTM2CCP EQU RTM2PMKP 05746000 RTM2ILP EQU RTM2PMKP 05747000 RTM2INTP EQU RTM2CTL2+2 05748000 RTM2SPVP EQU RTM2MWPP 05749000 RTM2WATP EQU RTM2MWPP 05750000 RTM2MCKP EQU RTM2MWPP 05751000 @NM00242 EQU RTM2MWPP 05752000 RTM2KEYP EQU RTM2MWPP 05753000 RTM2EXTP EQU RTM2CMKP 05754000 RTM2IOP EQU RTM2CMKP 05755000 RTM2NXTA EQU RTM2CTL1+5 05756000 RTM2SGA EQU RTM2PMKA 05757000 RTM2EUA EQU RTM2PMKA 05758000 RTM2DOA EQU RTM2PMKA 05759000 RTM2FPA EQU RTM2PMKA 05760000 RTM2CCA EQU RTM2PMKA 05761000 RTM2ILA EQU RTM2PMKA 05762000 RTM2INTA EQU RTM2CTL1+2 05763000 RTM2SPVA EQU RTM2MWPA 05764000 RTM2WATA EQU RTM2MWPA 05765000 RTM2MCKA EQU RTM2MWPA 05766000 @NM00241 EQU RTM2MWPA 05767000 RTM2KEYA EQU RTM2MWPA 05768000 RTM2EXTA EQU RTM2CMKA 05769000 RTM2IOA EQU RTM2CMKA 05770000 @NM00240 EQU RTM2PARQ+1 05771000 RTM2RCDE EQU RTM2PARQ 05772000 RTM2RYRB EQU RTM2TRRC+42 05773000 RTM2RTYA EQU RTM2TRRC+38 05774000 RTM2COMP EQU RTM2TRRC+34 05775000 RTM2SIZE EQU RTM2SPLL+1 05776000 RTM2SUBP EQU RTM2SPLL 05777000 RTM2RTCA EQU RTM2RTCD 05778000 RTM2SCBO EQU RTM2SCBS+8 05779000 RTM2SCBN EQU RTM2SCBS+4 05780000 RTM2SCBC EQU RTM2SCBS 05781000 RTM2STAR EQU RTM2TRRC+10 05782000 RTM2RBST EQU RTM2TRRC+6 05783000 RTM2FIOB EQU RTM2IOBP+1 05784000 @NM00239 EQU RTM2IOBP 05785000 @NM00238 EQU RTM2TRRC+1 05786000 @NM00237 EQU RTM2IOFS 05787000 RTM2NIOP EQU RTM2IOFS 05788000 RTM2NOIO EQU RTM2IOFS 05789000 RTM2IOHT EQU RTM2IOFS 05790000 RTM2IOQR EQU RTM2IOFS 05791000 RTM2FMID EQU RTM2TRRY+124 05792000 RTM2ERFL EQU RTM2ERRD 05793000 RTM2MCIV EQU RTM2ERRD 05794000 RTM2RPIV EQU RTM2ERRD 05795000 RTM2MABD EQU RTM2ERRD 05796000 RTM2CTS EQU RTM2ERRD 05797000 RTM2STAE EQU RTM2ERRD 05798000 RTM2NRBE EQU RTM2ERRD 05799000 RTM2CLUP EQU RTM2ERRD 05800000 @NM00236 EQU RTM2ERRC 05801000 RTM2EAS EQU RTM2ERRC 05802000 RTM2PERC EQU RTM2ERRC 05803000 RTM2IRB EQU RTM2ERRC 05804000 RTM2STAI EQU RTM2ERRC 05805000 RTM2STAF EQU RTM2ERRC 05806000 RTM2SRBM EQU RTM2ERRB 05807000 RTM2LDIS EQU RTM2ERRB 05808000 RTM2ENRB EQU RTM2ERRB 05809000 RTM2TYP1 EQU RTM2ERRB 05810000 @NM00235 EQU RTM2ERRB 05811000 RTM2PGIO EQU RTM2ERRA 05812000 RTM2TEXC EQU RTM2ERRA 05813000 RTM2SVCE EQU RTM2ERRA 05814000 RTM2ABTM EQU RTM2ERRA 05815000 RTM2SVCD EQU RTM2ERRA 05816000 RTM2RKEY EQU RTM2ERRA 05817000 RTM2PCHK EQU RTM2ERRA 05818000 RTM2MCHK EQU RTM2ERRA 05819000 RTM2TIME EQU RTM2EEDH+20 05820000 RTM2RFSA EQU RTM2EEDH+16 05821000 @NM00234 EQU RTM2EEDH+14 05822000 RTM2VEQR EQU RTM2RSR2 05823000 RTM2PGFX EQU RTM2RSR2 05824000 RTM2FLSQ EQU RTM2RSR2 05825000 RTM2FSQA EQU RTM2RSR2 05826000 RTM2NUCL EQU RTM2RSR2 05827000 RTM2SPER EQU RTM2RSR2 05828000 RTM2INTC EQU RTM2RSR2 05829000 RTM2OFLN EQU RTM2RSR2 05830000 RTM2CHNG EQU RTM2RSR1 05831000 RTM2MSER EQU RTM2RSR1 05832000 @NM00233 EQU RTM2RSR1 05833000 RTM2CPID EQU RTM2EEDH+10 05834000 RTM2TERR EQU RTM2MCHD 05835000 RTM2SOFT EQU RTM2MCHD 05836000 RTM2INSF EQU RTM2MCHD 05837000 RTM2ACR EQU RTM2MCHD 05838000 RTM2SCK EQU RTM2MCHD 05839000 RTM2PSWU EQU RTM2MCHD 05840000 RTM2REGU EQU RTM2MCHD 05841000 RTM2SKYF EQU RTM2MCHD 05842000 @NM00232 EQU RTM2MCHS 05843000 RTM2RSRF EQU RTM2MCHS 05844000 RTM2RSRC EQU RTM2MCHS 05845000 RTM2INVP EQU RTM2MCHS 05846000 RTM2TSVL EQU RTM2MCHS 05847000 RTM2RCDF EQU RTM2MCHS 05848000 RTM2SRVL EQU RTM2MCHS 05849000 RTM2SCKE EQU RTM2STCK+4 05850000 RTM2SCKB EQU RTM2STCK 05851000 RTM2ABEP EQU RTM2TRRY+88 05852000 RTM2ABNM EQU RTM2TRRY+80 05853000 RTM2TRAN EQU RTM2AEC1+4 05854000 RTM2IPC1 EQU RTM2ICD1 05855000 RTM2IMC1 EQU RTM2ICD1 05856000 RTM2IPR1 EQU RTM2ICD1 05857000 @NM00231 EQU RTM2INC1 05858000 @NM00230 EQU RTM2ILC1 05859000 RTM2IL1 EQU RTM2ILC1 05860000 @NM00229 EQU RTM2ILC1 05861000 @NM00228 EQU RTM2AEC1 05862000 RTM2ADD1 EQU RTM2NXT1+1 05863000 @NM00227 EQU RTM2NXT1 05864000 @NM00226 EQU RTM2EPSW+3 05865000 RTM2SGN1 EQU RTM2INT1 05866000 RTM2EXP1 EQU RTM2INT1 05867000 RTM2DEC1 EQU RTM2INT1 05868000 RTM2FPO1 EQU RTM2INT1 05869000 RTM2CC1 EQU RTM2INT1 05870000 @NM00225 EQU RTM2INT1 05871000 RTM2PGM1 EQU RTM2MWP1 05872000 RTM2WAT1 EQU RTM2MWP1 05873000 RTM2MCK1 EQU RTM2MWP1 05874000 RTM2ECT1 EQU RTM2MWP1 05875000 RTM2KEY1 EQU RTM2MWP1 05876000 RTM2EXT1 EQU RTM2EMK1 05877000 RTM2AIO1 EQU RTM2EMK1 05878000 RTM2TRM1 EQU RTM2EMK1 05879000 RTM2EAM1 EQU RTM2EMK1 05880000 @NM00224 EQU RTM2EMK1 05881000 RTM2PER1 EQU RTM2EMK1 05882000 @NM00223 EQU RTM2EMK1 05883000 RTM2ER15 EQU RTM2EREG+60 05884000 RTM2ER14 EQU RTM2EREG+56 05885000 RTM2ER13 EQU RTM2EREG+52 05886000 RTM2ER12 EQU RTM2EREG+48 05887000 RTM2ER11 EQU RTM2EREG+44 05888000 RTM2ER10 EQU RTM2EREG+40 05889000 RTM2ER9 EQU RTM2EREG+36 05890000 RTM2ER8 EQU RTM2EREG+32 05891000 RTM2ER7 EQU RTM2EREG+28 05892000 RTM2ER6 EQU RTM2EREG+24 05893000 RTM2ER5 EQU RTM2EREG+20 05894000 RTM2ER4 EQU RTM2EREG+16 05895000 RTM2ER3 EQU RTM2EREG+12 05896000 RTM2ER2 EQU RTM2EREG+8 05897000 RTM2ER1 EQU RTM2EREG+4 05898000 RTM2ER0 EQU RTM2EREG 05899000 RTM2CT EQU RTM2WA+56 05900000 RTM2VRBT EQU RTM2WA+52 05901000 RTM2TCBT EQU RTM2WA+48 05902000 RTM2SFWA EQU RTM2WA+32 05903000 RTM2CC EQU RTM2CODE+1 05904000 @NM00222 EQU RTM2CCF 05905000 RTM2EOT EQU RTM2CCF 05906000 RTM2EOM EQU RTM2CCF 05907000 RTM2R0DP EQU RTM2CCF 05908000 RTM2STEP EQU RTM2CCF 05909000 RTM2DREQ EQU RTM2CCF 05910000 RTM2ASC EQU RTM2WA+24 05911000 RTM2VRBC EQU RTM2WA+20 05912000 RTM2TCBC EQU RTM2WA+16 05913000 RTM2CVT EQU RTM2WA+12 05914000 RTM2LGTH EQU RTM2RT2D+1 05915000 RTM2SPID EQU RTM2RT2D 05916000 RTM2ADDR EQU RTM2DESC+4 05917000 RTM2ID EQU RTM2DESC 05918000 RMPLDCBL EQU RMPL+20 05919000 RMPLRMWA EQU RMPL+16 05920000 RMPLRBPA EQU RMPL+12 05921000 RMPLTCBA EQU RMPL+8 05922000 RMPLASCB EQU RMPL+4 05923000 RMPLASID EQU RMPL+2 05924000 RMPLFLG2 EQU RMPL+1 05925000 @NM00221 EQU RMPLFLG1 05926000 RMPLWT1M EQU RMPLFLG1 05927000 RMPLJST EQU RMPLFLG1 05928000 RMPLRCOV EQU RMPLFLG1 05929000 RMPLIPUF EQU RMPLFLG1 05930000 RMPLRBPP EQU RMPLFLG1 05931000 RMPLTERM EQU RMPLFLG1 05932000 RMPLTYPE EQU RMPLFLG1 05933000 SNPHDRA EQU SNPPARMS+20 05934000 SNPSTOR EQU SNPPARMS+16 05935000 SNPTCBA EQU SNPPARMS+12 05936000 SNPDCB EQU SNPPARMS+8 05937000 @NM00220 EQU SNPPARMS+7 05938000 @NM00219 EQU SNPPDATA 05939000 SNPSPLS EQU SNPPDATA 05940000 SNPPSW EQU SNPPDATA 05941000 SNPJPA EQU SNPPDATA 05942000 SNPLPA EQU SNPPDATA 05943000 SNPREGS EQU SNPPDATA 05944000 SNPSAVE2 EQU SNPPDATA 05945000 SNPSAVE EQU SNPPDATA 05946000 @NM00218 EQU SNPSDAT1 05947000 SNPERR EQU SNPSDAT1 05948000 SNPIO EQU SNPSDAT1 05949000 SNPDM EQU SNPSDAT0 05950000 SNPQCB EQU SNPSDAT0 05951000 SNPCB EQU SNPSDAT0 05952000 SNPTRT EQU SNPSDAT0 05953000 SNPSWA EQU SNPSDAT0 05954000 SNPLSQA EQU SNPSDAT0 05955000 SNPSQA EQU SNPSDAT0 05956000 SNPNUC EQU SNPSDAT0 05957000 @NM00217 EQU SNPPARMS+2 05958000 SNPHDR EQU SNPFLAG 05959000 SNPSLIST EQU SNPFLAG 05960000 SNPTCB EQU SNPFLAG 05961000 SNPID EQU SNPFLAG 05962000 SNPSNAP EQU SNPFLAG 05963000 SNPIDENT EQU SNPPARMS 05964000 JESPJESN EQU JESCT+28 05965000 JESSSCT EQU JESCT+24 05966000 JESQMGR EQU JESCT+12 05967000 JESUNITS EQU JESCT+4 05968000 @NM00216 EQU JESCT 05969000 JFCBE010 EQU JFCBE+44 05970000 JFCGRP8 EQU JFCGROUP+7 05971000 JFCGRP7 EQU JFCGROUP+6 05972000 JFCGRP6 EQU JFCGROUP+5 05973000 JFCGRP5 EQU JFCGROUP+4 05974000 JFCGRP4 EQU JFCGROUP+3 05975000 JFCGRP3 EQU JFCGROUP+2 05976000 JFCGRP2 EQU JFCGROUP+1 05977000 JFCGRP1 EQU JFCGROUP 05978000 JFCBTRS4 EQU JFCBE+32 05979000 JFCBTRS3 EQU JFCBE+28 05980000 JFCBTRS2 EQU JFCBE+24 05981000 JFCBE009 EQU JFCBE+16 05982000 JFCMODIF EQU JFCBE+12 05983000 JFCBMAGT EQU JFCBE+8 05984000 JFCIMTOT EQU JFCBE+7 05985000 JFCBE008 EQU JFCBE+6 05986000 JFCIDTRC EQU JFCBE+5 05987000 JFCBE007 EQU JFCBFLAG 05988000 JFCBBST EQU JFCBFLAG 05989000 JFCBCFS EQU JFCBFLAG 05990000 JFCBE006 EQU JFCBFLAG 05991000 JFCBE005 EQU JFCBFLAG 05992000 JFCBE004 EQU JFCBFLAG 05993000 JFCBE003 EQU JFCBFLAG 05994000 JFCBEOPN EQU JFCBFLAG 05995000 JFCBE001 EQU JFCBE+3 05996000 JFCBEXTR EQU JFCBE 05997000 JFCRSV05 EQU JFCEROPT 05998000 JFCRSV04 EQU JFCEROPT 05999000 JFCRSV03 EQU JFCEROPT 06000000 JFCRSV02 EQU JFCEROPT 06001000 JFCTOPT EQU JFCEROPT 06002000 JFCABN EQU JFCEROPT 06003000 JFCSKP EQU JFCEROPT 06004000 JFCACC EQU JFCEROPT 06005000 JFCBUFL EQU JFCAMPTR+2 06006000 JFCFWORD EQU JFCBFTEK 06007000 JFCDWORD EQU JFCBFTEK 06008000 JFCHIER1 EQU JFCBFTEK 06009000 JFCDYN EQU JFCBFTEK 06010000 JFCEXC EQU JFCBFTEK 06011000 JFCBBFTR EQU JFCBBFTA 06012000 JFCSIM EQU JFCBBFTA 06013000 JFCHIER EQU JFCBFTEK 06014000 JFCBFOUT EQU JFCBUFNO 06015000 JFCBUFIN EQU JFCBUFNO 06016000 JFCTEMP EQU JFCBIND2 06017000 JFCREQ EQU JFCBIND2 06018000 JFCENT EQU JFCBIND2 06019000 JFCSHARE EQU JFCBIND2 06020000 JFCSECUR EQU JFCBIND2 06021000 JFCDISP EQU JFCBIND2 06022000 JFCPDS EQU JFCBIND1 06023000 JFCGDG EQU JFCBIND1 06024000 JFCADDED EQU JFCBIND1 06025000 JFCLOC EQU JFCBIND1 06026000 JFCRLSE EQU JFCBIND1 06027000 JFCBXPDT EQU INFMJFCB+83 06028000 JFCBCRDT EQU INFMJFCB+80 06029000 JFCBOPS2 EQU JFCBMASK+7 06030000 JFCRCTLG EQU JFCBFLG2 06031000 JFCBBUFF EQU JFCBFLG2 06032000 JFCTRACE EQU JFCBFLG2 06033000 JFCSDRPS EQU JFCBFLG2 06034000 JFCMODNW EQU JFCBFLG2 06035000 JFCNRPS EQU JFCDEFER 06036000 JFCOUTOP EQU JFCBFLG2 06037000 JFCINOP EQU JFCBFLG2 06038000 JFCBPWBP EQU JFCOPEN 06039000 @NM00212 EQU JFCOPEN 06040000 JFCDUAL EQU JFCBFLG1 06041000 JFCSLDES EQU JFCBFLG1 06042000 JFCSLCRE EQU JFCBFLG1 06043000 JFCSTAND EQU JFCBFLG1 06044000 JFCBOPS1 EQU JFCBMASK 06045000 JFCBVLSQ EQU INFMJFCB+70 06046000 JFCRSV31 EQU JFCFUNC 06047000 JFCFNCBT EQU JFCFUNC 06048000 JFCFNCBX EQU JFCFUNC 06049000 JFCFNCBD EQU JFCFUNC 06050000 JFCFNCBW EQU JFCFUNC 06051000 JFCFNCBP EQU JFCFUNC 06052000 JFCFNCBR EQU JFCFUNC 06053000 JFCFNCBI EQU JFCFUNC 06054000 JFCBFOFL EQU JFCBUFOF 06055000 JFCNL EQU JFCBLTYP 06056000 JFCSL EQU JFCBLTYP 06057000 JFCNSL EQU JFCBLTYP 06058000 JFCSUL EQU JFCBLTYP 06059000 JFCBLP EQU JFCBLTYP 06060000 JFCBLTM EQU JFCBLTYP 06061000 JFCBAL EQU JFCBLTYP 06062000 JFCRSV38 EQU JFCBLTYP 06063000 JFCVINDX EQU INFMJFCB+64 06064000 JFCNLREC EQU INFMJFCB+62 06065000 JFCBADBF EQU INFMJFCB+60 06066000 JFCAMSTR EQU JFCBFRID+2 06067000 JFCAMCRO EQU JFCBFRID 06068000 JFCBDSCB EQU INFMJFCB+53 06069000 JFCPAT EQU JFCBTSDM 06070000 JFCNDCB EQU JFCBTSDM 06071000 JFCNDSCB EQU JFCBTSDM 06072000 JFCNWRIT EQU JFCBTSDM 06073000 JFCTTR EQU JFCBTSDM 06074000 JFCSDS EQU JFCBTSDM 06075000 JFCVSL EQU JFCBTSDM 06076000 JFCCAT EQU JFCBTSDM 06077000 JFCIPLTX EQU JFCBELNM 06078000 JFCBQNAM EQU JFCBDSNM 06079000 @NM00211 EQU QMIOP+19 06080000 @NM00210 EQU QMIFLAGS 06081000 @NM00209 EQU QMIFLAGS 06082000 @NM00208 EQU QMIFLAGS 06083000 @NM00207 EQU QMIFLAGS 06084000 @NM00206 EQU QMIFLAGS 06085000 @NM00205 EQU QMIFLAGS 06086000 QMIOWRTE EQU QMIFLAGS 06087000 TIOCSTEP EQU TIOT1+8 06088000 TIOCNJOB EQU TIOT1 06089000 @NM00202 EQU TCBXTNT2+32 06090000 TCBRV181 EQU TCBRV173 06091000 TCBRV180 EQU TCBRV173 06092000 TCBRV179 EQU TCBRV173 06093000 TCBRV178 EQU TCBRV173 06094000 TCBRV177 EQU TCBRV173 06095000 TCBRV176 EQU TCBRV173 06096000 TCBRV175 EQU TCBRV173 06097000 TCBRV174 EQU TCBRV173 06098000 TCBRV172 EQU TCBRV164 06099000 TCBRV171 EQU TCBRV164 06100000 TCBRV170 EQU TCBRV164 06101000 TCBRV169 EQU TCBRV164 06102000 TCBRV168 EQU TCBRV164 06103000 TCBRV167 EQU TCBRV164 06104000 TCBRV166 EQU TCBRV164 06105000 TCBRV165 EQU TCBRV164 06106000 TCBRV163 EQU TCBRV155 06107000 TCBRV162 EQU TCBRV155 06108000 TCBRV161 EQU TCBRV155 06109000 TCBRV160 EQU TCBRV155 06110000 TCBRV159 EQU TCBRV155 06111000 TCBRV158 EQU TCBRV155 06112000 TCBRV157 EQU TCBRV155 06113000 TCBRV156 EQU TCBRV155 06114000 TCBRV154 EQU TCBRV146 06115000 TCBRV153 EQU TCBRV146 06116000 TCBRV152 EQU TCBRV146 06117000 TCBRV151 EQU TCBRV146 06118000 TCBRV150 EQU TCBRV146 06119000 TCBRV149 EQU TCBRV146 06120000 TCBRV148 EQU TCBRV146 06121000 TCBRV147 EQU TCBRV146 06122000 TCBRV145 EQU TCBXTNT2+26 06123000 TCBRV144 EQU TCBXTNT2+24 06124000 TCBRV143 EQU TCBXTNT2+20 06125000 TCBRV142 EQU TCBXTNT2+16 06126000 TCBRSV49 EQU TCBXTNT2+12 06127000 TCBEVENT EQU TCBXTNT2+8 06128000 TCBRCMP EQU TCBXTNT2+5 06129000 TCBRSVAB EQU TCBXTNT2+4 06130000 TCBGTFA EQU TCBGTF+1 06131000 TCBRSV47 EQU TCBTFLG 06132000 TCBRSV46 EQU TCBTFLG 06133000 TCBRSV45 EQU TCBTFLG 06134000 TCBRSV44 EQU TCBTFLG 06135000 TCBRSV43 EQU TCBTFLG 06136000 TCBDSPIT EQU TCBTFLG 06137000 TCBERRTN EQU TCBTFLG 06138000 TCBASYNC EQU TCBTFLG 06139000 @NM00201 EQU TCB+296 06140000 TCBSVCA2 EQU TCB+292 06141000 TCBSWASA EQU TCB+288 06142000 TCBDBTB EQU TCB+284 06143000 TCBRPT EQU TCB+280 06144000 TCBRV141 EQU TCBRV133 06145000 TCBRV140 EQU TCBRV133 06146000 TCBRV139 EQU TCBRV133 06147000 TCBRV138 EQU TCBRV133 06148000 TCBRV137 EQU TCBRV133 06149000 TCBRV136 EQU TCBRV133 06150000 TCBRV135 EQU TCBRV133 06151000 TCBRV134 EQU TCBRV133 06152000 TCBRV132 EQU TCBRV124 06153000 TCBRV131 EQU TCBRV124 06154000 TCBRV130 EQU TCBRV124 06155000 TCBRV129 EQU TCBRV124 06156000 TCBRV128 EQU TCBRV124 06157000 TCBRV127 EQU TCBRV124 06158000 TCBRV126 EQU TCBRV124 06159000 TCBRV125 EQU TCBRV124 06160000 TCBRV123 EQU TCBFBYT2 06161000 TCBRV122 EQU TCBFBYT2 06162000 TCBECBNV EQU TCBFBYT2 06163000 TCBSSSYN EQU TCBFBYT2 06164000 TCBFPRAP EQU TCBFBYT2 06165000 TCBFDW EQU TCBFBYT2 06166000 TCBFMW EQU TCBFBYT2 06167000 TCBCNCB EQU TCBFBYT2 06168000 TCBLLH EQU TCBFBYT1 06169000 TCBRV113 EQU TCBFBYT1 06170000 TCBEOT EQU TCBFBYT1 06171000 TCBRTM2 EQU TCBFBYT1 06172000 TCBPGNLY EQU TCBFBYT1 06173000 TCBNDIOS EQU TCBFBYT1 06174000 TCBRV327 EQU TCBFBYT1 06175000 TCBEOTFM EQU TCBFBYT1 06176000 TCBAFFN EQU TCB+274 06177000 TCBRV326 EQU TCB+272 06178000 TCBMODE EQU TCBESTAE+3 06179000 TCBERTYP EQU TCBESTAE+2 06180000 TCBRV314 EQU TCBESTRM 06181000 TCBRV313 EQU TCBESTRM 06182000 TCBRV312 EQU TCBESTRM 06183000 TCBRV311 EQU TCBESTRM 06184000 TCBRV310 EQU TCBESTRM 06185000 TCBRV309 EQU TCBESTRM 06186000 TCBRV308 EQU TCBESTRM 06187000 TCBETERM EQU TCBESTRM 06188000 TCBSCBKY EQU TCBESTAE 06189000 TCBRTM12 EQU TCB+260 06190000 TCBTCBID EQU TCB+256 06191000 TCBSTAWA EQU TCB+252 06192000 TCBSWA EQU TCB+248 06193000 TCBFOEA EQU TCBFOE+1 06194000 TCBRSV42 EQU TCBFOE 06195000 TCBCCPVI EQU TCBXSCT+2 06196000 TCBRV325 EQU TCBXSCT+1 06197000 TCBRV324 EQU TCBXSCT1 06198000 TCBRV323 EQU TCBXSCT1 06199000 TCBRV322 EQU TCBXSCT1 06200000 TCBRV321 EQU TCBXSCT1 06201000 TCBRV320 EQU TCBXSCT1 06202000 TCBRV319 EQU TCBXSCT1 06203000 TCBS3A EQU TCBXSCT1 06204000 TCBACTIV EQU TCBXSCT1 06205000 TCBRSV41 EQU TCB+239 06206000 TCBTID EQU TCB+238 06207000 TCBRSVAA EQU TCB+237 06208000 TCBABCUR EQU TCB+236 06209000 TCBTMSAV EQU TCB+232 06210000 TCBIOTIM EQU TCB+228 06211000 TCBBACK EQU TCB+220 06212000 TCBTIRB EQU TCB+216 06213000 TCBAECB EQU TCB+212 06214000 TCBEXT2A EQU TCBEXT2+1 06215000 TCBRSV39 EQU TCBEXT2 06216000 TCBSTMCT EQU TCB+207 06217000 TCBSYSCT EQU TCB+206 06218000 TCBRSV37 EQU TCB+205 06219000 TCBEXSVC EQU TCBDAR 06220000 TCBDARMS EQU TCBDAR 06221000 TCBDARWT EQU TCBDAR 06222000 TCBDARO EQU TCBDAR 06223000 TCBDARMC EQU TCBDARC 06224000 TCBDARD EQU TCBDAR 06225000 TCBDARS EQU TCBDAR 06226000 TCBDARP EQU TCBDAR 06227000 TCBGTOFM EQU TCBFLGS7 06228000 TCBRSTSK EQU TCBFLGS7 06229000 TCBSVCS EQU TCBFLGS7 06230000 TCBSTACK EQU TCBFLGS7 06231000 TCBRSV34 EQU TCBFLGS7 06232000 TCBRSV33 EQU TCBFLGS7 06233000 TCBGPECB EQU TCBFLGS7 06234000 TCBNTJS EQU TCBFLGS6 06235000 TCBAPG EQU TCBFLGS6 06236000 TCBMIGR EQU TCBFLGS6 06237000 TCBRV303 EQU TCBFLGS6 06238000 TCBSPVLK EQU TCBFLGS6 06239000 TCBCPU EQU TCBFLGS6 06240000 TCBPIE17 EQU TCBFLGS6 06241000 TCBRV EQU TCBFLGS6 06242000 TCBRSV79 EQU TCBNDSP5 06243000 TCBRSV78 EQU TCBNDSP5 06244000 TCBRSV77 EQU TCBNDSP5 06245000 TCBRSV76 EQU TCBNDSP5 06246000 TCBRSV75 EQU TCBNDSP5 06247000 TCBRSV74 EQU TCBNDSP5 06248000 TCBRSV95 EQU TCBNDSP5 06249000 TCBRSV94 EQU TCBNDSP5 06250000 TCBRSV93 EQU TCBNDSP4 06251000 TCBRSV92 EQU TCBNDSP4 06252000 TCBRSV91 EQU TCBNDSP4 06253000 TCBRSV90 EQU TCBNDSP4 06254000 TCBRSV89 EQU TCBNDSP4 06255000 TCBRSV88 EQU TCBNDSP4 06256000 TCBRSV87 EQU TCBNDSP4 06257000 TCBRSV86 EQU TCBNDSP4 06258000 TCBEXT1A EQU TCBEXT1+1 06259000 TCBRSV32 EQU TCBEXT1 06260000 TCBEXCPD EQU TCB+192 06261000 TCBIOBRC EQU TCB+188 06262000 TCBDDWTC EQU TCB+186 06263000 TCBDDEXC EQU TCB+184 06264000 TCBJSCBB EQU TCBJSCB+1 06265000 @NM00200 EQU TCBRECDE 06266000 TCBREC EQU TCBRECDE 06267000 TCBMDIDS EQU TCB+176 06268000 TCBNDINT EQU TCBNDSP3 06269000 TCBRSV27 EQU TCBNDSP3 06270000 TCBRSV26 EQU TCBNDSP3 06271000 TCBRSV25 EQU TCBNDSP3 06272000 TCBRSV24 EQU TCBNDSP3 06273000 TCBSRBND EQU TCBNDSP3 06274000 TCBRV302 EQU TCBNDSP3 06275000 TCBLJSND EQU TCBNDSP3 06276000 TCBABE EQU TCBNDSP2 06277000 TCBDSS EQU TCBNDSP2 06278000 TCBOWAIT EQU TCBNDSP2 06279000 TCBIWAIT EQU TCBNDSP2 06280000 TCBNDTS EQU TCBNDSP2 06281000 TCBNDSVC EQU TCBNDSP2 06282000 TCBSTPP EQU TCBNDSP2 06283000 TCBABD EQU TCBNDSP2 06284000 TCBRSV22 EQU TCBNDSP1 06285000 TCBPIEND EQU TCBNDSP1 06286000 TCBTPSP EQU TCBNDSP1 06287000 TCBDDRND EQU TCBNDSP1 06288000 TCBRSPND EQU TCBNDSP1 06289000 TCBRSTND EQU TCBNDSP1 06290000 TCBDARPN EQU TCBNDSP1 06291000 TCBDARTN EQU TCBNDSP1 06292000 TCBNDSP0 EQU TCBNDSP 06293000 TCBUSER EQU TCB+168 06294000 TCBTCTB EQU TCBTCT+1 06295000 TCBRSV9C EQU TCBTCTGF 06296000 TCBRSV9B EQU TCBTCTGF 06297000 TCBRSV9A EQU TCBTCTGF 06298000 TCBRSV99 EQU TCBTCTGF 06299000 TCBRSV98 EQU TCBTCTGF 06300000 TCBRSV97 EQU TCBTCTGF 06301000 TCBRSV20 EQU TCBTCTGF 06302000 TCBSMFGF EQU TCBTCTGF 06303000 TCBSTABB EQU TCBSTAB+1 06304000 TCBSTCUR EQU TCBNSTAE 06305000 TCBRV301 EQU TCBNSTAE 06306000 TCBSYNCH EQU TCBNSTAE 06307000 TCBHALT EQU TCBNSTAE 06308000 TCBPPSUP EQU TCBNSTAE 06309000 TCB33E EQU TCBNSTAE 06310000 TCBQUIES EQU TCBNSTAE 06311000 TCBSTABE EQU TCBNSTAE 06312000 TCBAQE EQU TCB+156 06313000 TCBPQE EQU TCB+152 06314000 TCBTSDP EQU TCB+151 06315000 TCBTSLP EQU TCB+150 06316000 TCBSTPCT EQU TCB+149 06317000 TCBCPUBN EQU TCBTSFLG 06318000 TCBDYDSP EQU TCBTSFLG 06319000 TCBRSV18 EQU TCBTSFLG 06320000 TCBRSV17 EQU TCBTSFLG 06321000 TCBTIOTG EQU TCBTSFLG 06322000 TCBATT EQU TCBTSFLG 06323000 TCBSTPPR EQU TCBTSFLG 06324000 TCBRV300 EQU TCBTSTSK 06325000 TCBECB EQU TCB+144 06326000 TCBIQE EQU TCB+140 06327000 TCBOTC EQU TCB+132 06328000 TCBNTC EQU TCB+128 06329000 TCBRSV16 EQU TCBJSTCB 06330000 TCBTQET EQU TCBTME 06331000 TCBTCB EQU TCB+116 06332000 TCBFSAB EQU TCBFSA+1 06333000 TCBQEL EQU TCBFSA 06334000 TCBGRS15 EQU TCBGRS+60 06335000 TCBGRS14 EQU TCBGRS+56 06336000 TCBGRS13 EQU TCBGRS+52 06337000 TCBGRS12 EQU TCBGRS+48 06338000 TCBGRS11 EQU TCBGRS+44 06339000 TCBGRS10 EQU TCBGRS+40 06340000 TCBGRS9 EQU TCBGRS+36 06341000 TCBGRS8 EQU TCBGRS+32 06342000 TCBGRS7 EQU TCBGRS+28 06343000 TCBGRS6 EQU TCBGRS+24 06344000 TCBGRS5 EQU TCBGRS+20 06345000 TCBGRS4 EQU TCBGRS+16 06346000 TCBGRS3 EQU TCBGRS+12 06347000 TCBGRS2 EQU TCBGRS+8 06348000 TCBGRS1 EQU TCBGRS+4 06349000 TCBGRS0 EQU TCBGRS 06350000 TCBJPQB EQU TCBJPQ+1 06351000 TCBRSV15 EQU TCBPURGE 06352000 TCBRSV14 EQU TCBPURGE 06353000 TCBRSV13 EQU TCBPURGE 06354000 TCBRSV12 EQU TCBPURGE 06355000 TCBRSV11 EQU TCBPURGE 06356000 TCBRSV10 EQU TCBPURGE 06357000 TCBRSV09 EQU TCBPURGE 06358000 TCBJPQF EQU TCBPURGE 06359000 TCBJLB EQU TCB+40 06360000 TCBLLS EQU TCB+36 06361000 TCBDSP EQU TCB+35 06362000 TCBLMP EQU TCB+34 06363000 TCBPNDSP EQU TCBFLGS5 06364000 TCBFCD1 EQU TCBFLGS5 06365000 TCBSTP EQU TCBFLGS5 06366000 TCBSYS EQU TCBFLGS5 06367000 TCBANDSP EQU TCBFLGS5 06368000 TCBPAGE EQU TCBFLGS5 06369000 TCBUXNDF EQU TCBABWF 06370000 TCBFC EQU TCBFLGS5 06371000 TCBONDSP EQU TCBFLGS4 06372000 TCBMPCND EQU TCBFLGS4 06373000 TCBMPCVQ EQU TCBFLGS4 06374000 TCBUXNDV EQU TCBFLGS4 06375000 TCBHNDSP EQU TCBFLGS4 06376000 TCBRQENA EQU TCBFLGS4 06377000 TCBSER EQU TCBFLGS4 06378000 TCBNDUMP EQU TCBFLGS4 06379000 TCBDWSTA EQU TCBFLGS3 06380000 TCBRSV08 EQU TCBFLGS3 06381000 TCBRSV07 EQU TCBFLGS3 06382000 TCBRSV06 EQU TCBFLGS3 06383000 TCBABGM EQU TCBFLGS3 06384000 TCBABTRM EQU TCBFLGS3 06385000 TCBADINP EQU TCBFLGS3 06386000 TCBFSM EQU TCBFLGS3 06387000 TCBFTS EQU TCBFLGS2 06388000 TCBFETXR EQU TCBFLGS2 06389000 TCBFDSOP EQU TCBFLGS2 06390000 TCBFJMC EQU TCBFLGS2 06391000 TCBFSMC EQU TCBFLGS2 06392000 TCBFABOP EQU TCBFLGS2 06393000 TCBFSTI EQU TCBFLGS2 06394000 TCBFOINP EQU TCBFLGS2 06395000 TCBFS EQU TCBFLGS1 06396000 TCBFT EQU TCBFLGS1 06397000 TCBPDUMP EQU TCBFLGS1 06398000 TCBNONPR EQU TCBFLGS1 06399000 TCBFERA EQU TCBFLGS1 06400000 TCBFE EQU TCBFLGS1 06401000 TCBFA EQU TCBFLGS1 06402000 TCBZERO EQU TCBPKF 06403000 TCBFLAG EQU TCBPKF 06404000 TCBMSSB EQU TCBMSS+1 06405000 TCBRSV03 EQU TCBMSS 06406000 TCBTRNB EQU TCBTRN+1 06407000 TCBRSV02 EQU TCBABF 06408000 TCBOLTEP EQU TCBABF 06409000 TCBTCP EQU TCBABF 06410000 TCBTCPP EQU TCBABF 06411000 TCBRSV01 EQU TCBABF 06412000 TCBGRPH EQU TCBABF 06413000 TCBNOCHK EQU TCBABF 06414000 TCBMOD91 EQU TCBABF 06415000 TCBCMPC EQU TCBCMP+1 06416000 TCBRV318 EQU TCBCMSG 06417000 TCBRV317 EQU TCBCIND 06418000 TCBRV316 EQU TCBCWTO 06419000 TCBCASID EQU TCBCDBL 06420000 TCBNOCC EQU TCBSTCC 06421000 TCBDMPO EQU TCBCPP 06422000 TCBCSTEP EQU TCBCMPF 06423000 TCBCREQ EQU TCBCMPF 06424000 TCBDEB EQU TCB+8 06425000 TCBPIEA EQU TCBPIE+1 06426000 TCBPM EQU TCBPMASK 06427000 @NM00199 EQU TCBPMASK 06428000 TCBFRS6 EQU TCBFRS+24 06429000 TCBFRS4 EQU TCBFRS+16 06430000 TCBFRS2 EQU TCBFRS+8 06431000 TCBFRS0 EQU TCBFRS 06432000 @NM00198 EQU SDWA+512 06433000 SDWAVRA EQU SDWARA+4 06434000 SDWAURAL EQU SDWARA+3 06435000 @NM00197 EQU SDWADPVA 06436000 SDWAEBC EQU SDWADPVA 06437000 SDWAHEX EQU SDWADPVA 06438000 SDWAVRAL EQU SDWARA 06439000 SDWAERTM EQU SDWA+396 06440000 SDWACOMP EQU SDWA+392 06441000 SDWARCPL EQU SDWA+364 06442000 @NM00196 EQU SDWADPSA+32 06443000 SDWATO4 EQU SDWADPSL+28 06444000 SDWAFRM4 EQU SDWADPSL+24 06445000 SDWATO3 EQU SDWADPSL+20 06446000 SDWAFRM3 EQU SDWADPSL+16 06447000 SDWATO2 EQU SDWADPSL+12 06448000 SDWAFRM2 EQU SDWADPSL+8 06449000 SDWATO1 EQU SDWADPSL+4 06450000 SDWAFRM1 EQU SDWADPSL 06451000 @NM00195 EQU SDWADDAT+3 06452000 @NM00194 EQU SDWAPDAT 06453000 SDWAUSPL EQU SDWAPDAT 06454000 SDWADPSW EQU SDWAPDAT 06455000 SDWATJPA EQU SDWAPDAT 06456000 SDWATLPA EQU SDWAPDAT 06457000 SDWADREG EQU SDWAPDAT 06458000 SDWADSAH EQU SDWAPDAT 06459000 SDWADSAS EQU SDWAPDAT 06460000 @NM00193 EQU SDWASDA1 06461000 SDWAERR EQU SDWASDA1 06462000 SDWAIO EQU SDWASDA1 06463000 SDWADM EQU SDWASDA0 06464000 SDWAQQS EQU SDWASDA0 06465000 SDWACBS EQU SDWASDA0 06466000 SDWAGTF EQU SDWASDA0 06467000 SDWASWA EQU SDWASDA0 06468000 SDWALSQA EQU SDWASDA0 06469000 SDWASQA EQU SDWASDA0 06470000 SDWANUC EQU SDWASDA0 06471000 @NM00192 EQU SDWADUMP+2 06472000 @NM00191 EQU SDWADPFS 06473000 SDWASLST EQU SDWADPFS 06474000 @NM00190 EQU SDWADPFS 06475000 SDWAENSN EQU SDWADPFS 06476000 SDWADLST EQU SDWADPFS 06477000 SDWADPT EQU SDWADPFS 06478000 SDWADPID EQU SDWADUMP 06479000 SDWADPLA EQU SDWA+316 06480000 SDWASEQ# EQU SDWA+290 06481000 SDWAASID EQU SDWA+288 06482000 SDWATALW EQU SDWALKWS+28 06483000 SDWATDLW EQU SDWALKWS+24 06484000 SDWATNLW EQU SDWALKWS+20 06485000 SDWAAPLW EQU SDWALKWS+16 06486000 SDWAIPLW EQU SDWALKWS+12 06487000 SDWAILLW EQU SDWALKWS+8 06488000 SDWAIULW EQU SDWALKWS+4 06489000 SDWAICLW EQU SDWALKWS 06490000 SDWAFLLK EQU SDWAACF4 06491000 SDWACMS EQU SDWAACF4 06492000 SDWAOPTM EQU SDWAACF4 06493000 SDWATADB EQU SDWAACF4 06494000 SDWATDNB EQU SDWAACF4 06495000 SDWATNCB EQU SDWAACF4 06496000 SDWAILCH EQU SDWAACF4 06497000 SDWAIUCB EQU SDWAACF4 06498000 SDWAICAT EQU SDWAACF3 06499000 SDWAIPRG EQU SDWAACF3 06500000 SDWASALL EQU SDWAACF3 06501000 SDWAASMP EQU SDWAACF3 06502000 SDWADISP EQU SDWAACF3 06503000 @NM00189 EQU SDWAACF3 06504000 @NM00188 EQU SDWAACF2 06505000 @NM00187 EQU SDWAACF2 06506000 SDWASPIN EQU SDWAACF2 06507000 @NM00186 EQU SDWAACF2 06508000 SDWALCPU EQU SDWACPUA+2 06509000 @NM00185 EQU SDWACPUA 06510000 SDWARECA EQU SDWA+244 06511000 SDWACPUI EQU SDWA+239 06512000 @NM00184 EQU SDWAIOFS 06513000 SDWANIOP EQU SDWAIOFS 06514000 SDWANOIO EQU SDWAIOFS 06515000 SDWAIOHT EQU SDWAIOFS 06516000 SDWAIOQR EQU SDWAIOFS 06517000 SDWAFMID EQU SDWA+236 06518000 SDWAERFL EQU SDWAERRD 06519000 SDWAMCIV EQU SDWAERRD 06520000 SDWARPIV EQU SDWAERRD 06521000 SDWAMABD EQU SDWAERRD 06522000 SDWACTS EQU SDWAERRD 06523000 SDWASTAE EQU SDWAERRD 06524000 SDWANRBE EQU SDWAERRD 06525000 SDWACLUP EQU SDWAERRD 06526000 @NM00183 EQU SDWAERRC 06527000 SDWAEAS EQU SDWAERRC 06528000 SDWAPERC EQU SDWAERRC 06529000 SDWAIRB EQU SDWAERRC 06530000 SDWASTAI EQU SDWAERRC 06531000 SDWASTAF EQU SDWAERRC 06532000 SDWASRBM EQU SDWAERRB 06533000 SDWALDIS EQU SDWAERRB 06534000 SDWAENRB EQU SDWAERRB 06535000 SDWATYP1 EQU SDWAERRB 06536000 @NM00182 EQU SDWAERRB 06537000 SDWAPGIO EQU SDWAERRA 06538000 SDWATEXC EQU SDWAERRA 06539000 SDWASVCE EQU SDWAERRA 06540000 SDWAABTM EQU SDWAERRA 06541000 SDWASVCD EQU SDWAERRA 06542000 SDWARKEY EQU SDWAERRA 06543000 SDWAPCHK EQU SDWAERRA 06544000 SDWAMCHK EQU SDWAERRA 06545000 SDWATIME EQU SDWAMCH+20 06546000 SDWARFSA EQU SDWAMCH+16 06547000 @NM00181 EQU SDWAMCH+14 06548000 SDWAVEQR EQU SDWARSR2 06549000 SDWAPGFX EQU SDWARSR2 06550000 SDWAFLSQ EQU SDWARSR2 06551000 SDWAFSQA EQU SDWARSR2 06552000 SDWANUCL EQU SDWARSR2 06553000 SDWASPER EQU SDWARSR2 06554000 SDWAINTC EQU SDWARSR2 06555000 SDWAOFLN EQU SDWARSR2 06556000 SDWACHNG EQU SDWARSR1 06557000 SDWAMSER EQU SDWARSR1 06558000 @NM00180 EQU SDWARSR1 06559000 SDWACPID EQU SDWAMCH+10 06560000 SDWATERR EQU SDWAMCHD 06561000 SDWAFPRX EQU SDWAMCHD 06562000 SDWAINSF EQU SDWAMCHD 06563000 SDWAACR EQU SDWAMCHD 06564000 SDWASCK EQU SDWAMCHD 06565000 SDWAPSWU EQU SDWAMCHD 06566000 SDWAREGU EQU SDWAMCHD 06567000 SDWASKYF EQU SDWAMCHD 06568000 @NM00179 EQU SDWAMCHS 06569000 SDWARSRF EQU SDWAMCHS 06570000 SDWARSRC EQU SDWAMCHS 06571000 SDWAINVP EQU SDWAMCHS 06572000 SDWATSVL EQU SDWAMCHS 06573000 SDWARCDF EQU SDWAMCHS 06574000 SDWASRVL EQU SDWAMCHS 06575000 SDWASCKE EQU SDWASTCK+4 06576000 SDWASCKB EQU SDWASTCK 06577000 SDWALNTH EQU SDWAIDNT+1 06578000 SDWASPID EQU SDWAIDNT 06579000 SDWASR14 EQU SDWASRSV+56 06580000 SDWASR11 EQU SDWASRSV+44 06581000 SDWASR10 EQU SDWASRSV+40 06582000 SDWASR08 EQU SDWASRSV+32 06583000 SDWASR00 EQU SDWASRSV 06584000 SDWATRN2 EQU SDWAAEC2+4 06585000 SDWAIPC2 EQU SDWAICD2 06586000 SDWAIMC2 EQU SDWAICD2 06587000 SDWAIPR2 EQU SDWAICD2 06588000 @NM00178 EQU SDWAINC2 06589000 @NM00177 EQU SDWAILC2 06590000 SDWAIL2 EQU SDWAILC2 06591000 @NM00176 EQU SDWAILC2 06592000 @NM00175 EQU SDWAAEC2 06593000 SDWAADD2 EQU SDWANXT2+1 06594000 @NM00174 EQU SDWANXT2 06595000 @NM00173 EQU SDWAEC2+3 06596000 SDWASGN2 EQU SDWAINT2 06597000 SDWAEXP2 EQU SDWAINT2 06598000 SDWADEC2 EQU SDWAINT2 06599000 SDWAFPO2 EQU SDWAINT2 06600000 SDWACC2 EQU SDWAINT2 06601000 @NM00172 EQU SDWAINT2 06602000 SDWAPGM2 EQU SDWAMWP2 06603000 SDWAWAT2 EQU SDWAMWP2 06604000 SDWAMCK2 EQU SDWAMWP2 06605000 SDWAECT2 EQU SDWAMWP2 06606000 SDWAKEY2 EQU SDWAMWP2 06607000 SDWAEXT2 EQU SDWAEMK2 06608000 SDWAIO2 EQU SDWAEMK2 06609000 SDWATRM2 EQU SDWAEMK2 06610000 @NM00171 EQU SDWAEMK2 06611000 SDWAPER2 EQU SDWAEMK2 06612000 @NM00170 EQU SDWAEMK2 06613000 SDWATRAN EQU SDWAAEC1+4 06614000 SDWAIPC1 EQU SDWAICD1 06615000 SDWAIMC1 EQU SDWAICD1 06616000 SDWAIPR1 EQU SDWAICD1 06617000 @NM00169 EQU SDWAINC1 06618000 @NM00168 EQU SDWAILC1 06619000 SDWAIL1 EQU SDWAILC1 06620000 @NM00167 EQU SDWAILC1 06621000 @NM00166 EQU SDWAAEC1 06622000 SDWAADD1 EQU SDWANXT1+1 06623000 @NM00165 EQU SDWANXT1 06624000 @NM00164 EQU SDWAEC1+3 06625000 SDWASGN1 EQU SDWAINT1 06626000 SDWAEXP1 EQU SDWAINT1 06627000 SDWADEC1 EQU SDWAINT1 06628000 SDWAFPO1 EQU SDWAINT1 06629000 SDWACC1 EQU SDWAINT1 06630000 @NM00163 EQU SDWAINT1 06631000 SDWAPGM1 EQU SDWAMWP1 06632000 SDWAWAT1 EQU SDWAMWP1 06633000 SDWAMCK1 EQU SDWAMWP1 06634000 SDWAECT1 EQU SDWAMWP1 06635000 SDWAKEY1 EQU SDWAMWP1 06636000 SDWAEXT1 EQU SDWAEMK1 06637000 SDWAIO1 EQU SDWAEMK1 06638000 SDWATRM1 EQU SDWAEMK1 06639000 @NM00162 EQU SDWAEMK1 06640000 SDWAPER1 EQU SDWAEMK1 06641000 @NM00161 EQU SDWAEMK1 06642000 SDWAIOBR EQU SDWA+100 06643000 SDWAEPA EQU SDWA+96 06644000 @NM00160 EQU SDWANAME+4 06645000 SDWARBAD EQU SDWANAME 06646000 SDWAGR15 EQU SDWAGRSV+60 06647000 SDWAGR14 EQU SDWAGRSV+56 06648000 SDWAGR13 EQU SDWAGRSV+52 06649000 SDWAGR12 EQU SDWAGRSV+48 06650000 SDWAGR11 EQU SDWAGRSV+44 06651000 SDWAGR10 EQU SDWAGRSV+40 06652000 SDWAGR09 EQU SDWAGRSV+36 06653000 SDWAGR08 EQU SDWAGRSV+32 06654000 SDWAGR07 EQU SDWAGRSV+28 06655000 SDWAGR06 EQU SDWAGRSV+24 06656000 SDWAGR05 EQU SDWAGRSV+20 06657000 SDWAGR04 EQU SDWAGRSV+16 06658000 SDWAGR03 EQU SDWAGRSV+12 06659000 SDWAGR02 EQU SDWAGRSV+8 06660000 SDWAGR01 EQU SDWAGRSV+4 06661000 SDWAGR00 EQU SDWAGRSV 06662000 SDWANXTP EQU SDWACTL2+5 06663000 SDWASGP EQU SDWAPMKP 06664000 SDWAEUP EQU SDWAPMKP 06665000 SDWADOP EQU SDWAPMKP 06666000 SDWAFPP EQU SDWAPMKP 06667000 SDWACCP EQU SDWAPMKP 06668000 SDWAILP EQU SDWAPMKP 06669000 SDWAINTP EQU SDWACTL2+2 06670000 SDWASPVP EQU SDWAMWPP 06671000 SDWAWATP EQU SDWAMWPP 06672000 SDWAMCKP EQU SDWAMWPP 06673000 @NM00159 EQU SDWAMWPP 06674000 SDWAKEYP EQU SDWAMWPP 06675000 SDWAEXTP EQU SDWACMKP 06676000 SDWAIOP EQU SDWACMKP 06677000 SDWANXTA EQU SDWACTL1+5 06678000 SDWASGA EQU SDWAPMKA 06679000 SDWAEUA EQU SDWAPMKA 06680000 SDWADOA EQU SDWAPMKA 06681000 SDWAFPA EQU SDWAPMKA 06682000 SDWACCA EQU SDWAPMKA 06683000 SDWAILA EQU SDWAPMKA 06684000 SDWAINTA EQU SDWACTL1+2 06685000 SDWASPVA EQU SDWAMWPA 06686000 SDWAWATA EQU SDWAMWPA 06687000 SDWAMCKA EQU SDWAMWPA 06688000 @NM00158 EQU SDWAMWPA 06689000 SDWAKEYA EQU SDWAMWPA 06690000 SDWAEXTA EQU SDWACMKA 06691000 SDWAIOA EQU SDWACMKA 06692000 SDWACMPC EQU SDWAABCC+1 06693000 @NM00157 EQU SDWACMPF 06694000 SDWASTCC EQU SDWACMPF 06695000 @NM00156 EQU SDWACMPF 06696000 SDWASTEP EQU SDWACMPF 06697000 @NM00155 EQU SCVTSECT+180 06698000 @NM00154 EQU SCVTSECT+176 06699000 SCVTPIQE EQU SCVTSECT+172 06700000 @NM00153 EQU SCVTSECT+168 06701000 SCVTPTRM EQU SCVTSECT+164 06702000 @NM00152 EQU SCVTSECT+160 06703000 @NM00151 EQU SCVTSECT+156 06704000 SCVTQCBR EQU SCVTSECT+152 06705000 @NM00150 EQU SCVTSECT+144 06706000 SCVTTQE EQU SCVTSECT+140 06707000 @NM00149 EQU SCVTSECT+136 06708000 SCVTSVCT EQU SCVTSECT+132 06709000 @NM00148 EQU SCVTSECT+128 06710000 @NM00147 EQU SCVTSECT+124 06711000 SCVTRXLQ EQU SCVTSECT+120 06712000 @NM00146 EQU SCVTSECT+116 06713000 SCVTCTCB EQU SCVTSECT+112 06714000 @NM00145 EQU SCVTSECT+108 06715000 @NM00144 EQU SCVTSECT+104 06716000 @NM00143 EQU SCVTSECT+100 06717000 @NM00142 EQU SCVTSECT+96 06718000 SCVTCOMM EQU SCVTSECT+92 06719000 @NM00141 EQU SCVTSECT+88 06720000 @NM00140 EQU SCVTSECT+84 06721000 @NM00139 EQU SCVTSECT+80 06722000 @NM00138 EQU SCVTSECT+76 06723000 @NM00137 EQU SCVTSECT+72 06724000 SCVTGMBR EQU SCVTSECT+68 06725000 SCVTRPTR EQU SCVTSECT+64 06726000 SCVTHSKP EQU SCVTSECT+60 06727000 @NM00136 EQU SCVTSECT+56 06728000 @NM00135 EQU SCVTSECT+52 06729000 SCVTLFRM EQU SCVTSECT+48 06730000 SCVTCDCL EQU SCVTSECT+44 06731000 @NM00134 EQU SCVTSECT+40 06732000 SCVTRACE EQU SCVTSECT+36 06733000 @NM00133 EQU SCVTSECT+32 06734000 SCVTRMBR EQU SCVTSECT+28 06735000 @NM00132 EQU SCVTSECT+24 06736000 @NM00131 EQU SCVTSECT+20 06737000 @NM00130 EQU SCVTSECT+16 06738000 @NM00129 EQU SCVTSECT+14 06739000 SCVTBR14 EQU SCVTSECT+12 06740000 SCVTSPET EQU SCVTSECT+8 06741000 SCVTPGWR EQU SCVTSECT+4 06742000 SCVTPGTM EQU SCVTSECT 06743000 RTCTISVC EQU RTCTSDO4 06744000 RTCTSDOV EQU RTCTSDMG 06745000 @NM00128 EQU RTCTSDO4 06746000 @NM00127 EQU RTCTSDO3 06747000 RTCTSDPH EQU RTCTSDO3 06748000 RTCTSDPG EQU RTCTSDO3 06749000 @NM00126 EQU RTCTSDO2 06750000 RTCTSDPD EQU RTCTSDO2 06751000 RTCTSDPC EQU RTCTSDO2 06752000 RTCTSDPB EQU RTCTSDO2 06753000 RTCTSDPA EQU RTCTSDO2 06754000 RTCTSDP9 EQU RTCTSDO2 06755000 RTCTSDP8 EQU RTCTSDO2 06756000 RTCTSDP7 EQU RTCTSDO1 06757000 RTCTSDP6 EQU RTCTSDO1 06758000 RTCTSDP5 EQU RTCTSDO1 06759000 RTCTSDP4 EQU RTCTSDO1 06760000 RTCTSDP3 EQU RTCTSDO1 06761000 RTCTSDP2 EQU RTCTSDO1 06762000 RTCTSDP1 EQU RTCTSDO1 06763000 RTCTSDP0 EQU RTCTSDO1 06764000 RTCTISYM EQU RTCTSD04 06765000 RTCTSMOV EQU RTCTSMMG 06766000 @NM00125 EQU RTCTSD04 06767000 RTCTSD03 EQU RTCTMSYO+2 06768000 RTCTSD02 EQU RTCTMSYO+1 06769000 RTCTSDS7 EQU RTCTSD01 06770000 RTCTSDS6 EQU RTCTSD01 06771000 RTCTSDS5 EQU RTCTSD01 06772000 RTCTSDS4 EQU RTCTSD01 06773000 RTCTSDS3 EQU RTCTSD01 06774000 RTCTSDS2 EQU RTCTSD01 06775000 RTCTSDS1 EQU RTCTSD01 06776000 RTCTSDS0 EQU RTCTSD01 06777000 RTCTISYU EQU RTCTSUO4 06778000 RTCTSUOV EQU RTCTSUMG 06779000 @NM00124 EQU RTCTSUO4 06780000 RTCTSYDF EQU RTCTSUO3 06781000 RTCTSYDE EQU RTCTSUO3 06782000 RTCTSYDD EQU RTCTSUO3 06783000 RTCTSYDC EQU RTCTSUO3 06784000 RTCTSYDB EQU RTCTSUO3 06785000 RTCTSYDA EQU RTCTSUO3 06786000 RTCTSYD9 EQU RTCTSUO3 06787000 RTCTSYD8 EQU RTCTSUO3 06788000 @NM00123 EQU RTCTSUO2 06789000 RTCTSYDH EQU RTCTSUO2 06790000 RTCTSYDG EQU RTCTSUO2 06791000 RTCTSYD7 EQU RTCTSUO1 06792000 RTCTSYD6 EQU RTCTSUO1 06793000 RTCTSYD5 EQU RTCTSUO1 06794000 RTCTSYD4 EQU RTCTSUO1 06795000 RTCTSYD3 EQU RTCTSUO1 06796000 RTCTSYD2 EQU RTCTSUO1 06797000 RTCTSYD1 EQU RTCTSUO1 06798000 RTCTSYD0 EQU RTCTSUO1 06799000 RTCTISAB EQU RTCTSAO4 06800000 RTCTSAOV EQU RTCTSAMG 06801000 @NM00122 EQU RTCTSAO4 06802000 RTCTSADF EQU RTCTSAO3 06803000 RTCTSADE EQU RTCTSAO3 06804000 RTCTSADD EQU RTCTSAO3 06805000 RTCTSADC EQU RTCTSAO3 06806000 RTCTSADB EQU RTCTSAO3 06807000 RTCTSADA EQU RTCTSAO3 06808000 RTCTSAD9 EQU RTCTSAO3 06809000 RTCTSAD8 EQU RTCTSAO3 06810000 @NM00121 EQU RTCTSAO2 06811000 RTCTSADH EQU RTCTSAO2 06812000 RTCTSADG EQU RTCTSAO2 06813000 RTCTSAD7 EQU RTCTSAO1 06814000 RTCTSAD6 EQU RTCTSAO1 06815000 RTCTSAD5 EQU RTCTSAO1 06816000 RTCTSAD4 EQU RTCTSAO1 06817000 RTCTSAD3 EQU RTCTSAO1 06818000 RTCTSAD2 EQU RTCTSAO1 06819000 RTCTSAD1 EQU RTCTSAO1 06820000 RTCTSAD0 EQU RTCTSAO1 06821000 RTCTZZZ5 EQU RTCT+340 06822000 RTCTZZZ4 EQU RTCT+336 06823000 RTCTMRMQ EQU RTCT+332 06824000 RTCTSDF5 EQU RTCTSDF3+3 06825000 RTCTSDDO EQU RTCTSDF4 06826000 RTCTSDEN EQU RTCTSDF4 06827000 RTCTSDEQ EQU RTCTSDF4 06828000 RTCTSDTR EQU RTCTSDF4 06829000 RTCTSDRM EQU RTCTSDF4 06830000 RTCTSDAN EQU RTCTSDF4 06831000 RTCTSDNC EQU RTCTSDF4 06832000 RTCTSDSS EQU RTCTSDF4 06833000 RTCTSDAS EQU RTCTSDF3 06834000 RTCTZZZ3 EQU RTCT+266 06835000 RTCTSDFX EQU RTCTSDF2 06836000 RTCTSDRW EQU RTCTSDF2 06837000 RTCTSDSL EQU RTCTSDF2 06838000 RTCTSDWF EQU RTCTSDF2 06839000 RTCTSDLA EQU RTCTSDF2 06840000 RTCTSDDI EQU RTCTSDF2 06841000 RTCTSDTQ EQU RTCTSDF2 06842000 RTCTSDMR EQU RTCTSDF2 06843000 RTCTSDSC EQU RTCTSDF1 06844000 RTCTSDRS EQU RTCTSDF1 06845000 RTCTSDSD EQU RTCTSDF1 06846000 RTCTSDEP EQU RTCTSDF1 06847000 RTCTSDMA EQU RTCTSDF1 06848000 RTCTSDSH EQU RTCTSDF1 06849000 RTCTSDND EQU RTCTSDF1 06850000 RTCTSDNO EQU RTCTSDF1 06851000 RTCTZZZ2 EQU RTCT+257 06852000 RTCTSDPR EQU RTCTSDI+2 06853000 RTCTINDX EQU RTCTSDI+1 06854000 RTCTSDNA EQU RTCTSDI 06855000 @NM00120 EQU RTCTASO2 06856000 RTCTASNQ EQU RTCTASO2 06857000 RTCTASNA EQU RTCTASO2 06858000 RTCTASNS EQU RTCTASO2 06859000 RTCTASSU EQU RTCTASO2 06860000 RTCTASSW EQU RTCTASO2 06861000 RTCTASCS EQU RTCTASO2 06862000 RTCTASTR EQU RTCTASO1 06863000 RTCTASLP EQU RTCTASO1 06864000 RTCTASRG EQU RTCTASO1 06865000 RTCTASLS EQU RTCTASO1 06866000 RTCTASSQ EQU RTCTASO1 06867000 RTCTASNU EQU RTCTASO1 06868000 RTCTASPS EQU RTCTASO1 06869000 RTCTASAL EQU RTCTASO1 06870000 RTCTSDO EQU RTCTOPT+12 06871000 RTCTSYO EQU RTCTOPT+8 06872000 RTCTSUO EQU RTCTOPT+4 06873000 RTCTSAO EQU RTCTOPT 06874000 RTCTXXX2 EQU RTCT+234 06875000 RTCTETIM EQU RTCTERID+6 06876000 RTCTEASD EQU RTCTERID+4 06877000 RTCTECPU EQU RTCTERID+2 06878000 RTCTESEQ EQU RTCTERID 06879000 RTCTSDWK EQU RTCT+220 06880000 RTCTTDCB EQU RTCT+184 06881000 RTCTSDSW EQU RTCT+180 06882000 RTCTSEQ# EQU RTCT+178 06883000 RTCTXXX1 EQU RTCT+177 06884000 @NM00119 EQU RTCTRFLG 06885000 RTCTRSTF EQU RTCTRFLG 06886000 RTCTRPER EQU RTCTRFLG 06887000 RTCTRTER EQU RTCTRFLG 06888000 RTCTTEST EQU RTCT+172 06889000 RTCTMSRB EQU RTCT+168 06890000 RTCTMLCK EQU RTCT+164 06891000 RTCTFMT EQU RTCT+160 06892000 RTCTSDIP EQU RTCTSDPL 06893000 RTCTDEV EQU RTCTSDDS+8 06894000 RTCTDCB EQU RTCTSDDS+4 06895000 @NM00118 EQU RTCTFLG 06896000 RTCTDETP EQU RTCTFLG 06897000 RTCTDSUS EQU RTCTFLG 06898000 RTCTDSST EQU RTCTFLG 06899000 RTCTDSNM EQU RTCTSDDS 06900000 RTCTRCB EQU RTCT+32 06901000 RTCTRECB EQU RTCT+28 06902000 RTCTFASB EQU RTCT+24 06903000 RTCTMECB EQU RTCT+20 06904000 RTCTSDID EQU RTCT+18 06905000 RTCTYYY1 EQU RTCT+16 06906000 RTCTSY04 EQU RTCTSYD+3 06907000 RTCTSY03 EQU RTCTSYD+2 06908000 RTCTSY02 EQU RTCTSYD+1 06909000 RTCTSYM7 EQU RTCTSY01 06910000 RTCTSYM6 EQU RTCTSY01 06911000 RTCTSYM5 EQU RTCTSY01 06912000 RTCTSYM4 EQU RTCTSY01 06913000 RTCTSYM3 EQU RTCTSY01 06914000 RTCTSYM2 EQU RTCTSY01 06915000 RTCTSYM1 EQU RTCTSY01 06916000 RTCTSYM0 EQU RTCTSY01 06917000 RTCTSUP4 EQU RTCTSUP+3 06918000 RTCTSUDF EQU RTCTSUP3 06919000 RTCTSUDE EQU RTCTSUP3 06920000 RTCTSUDD EQU RTCTSUP3 06921000 RTCTSUDC EQU RTCTSUP3 06922000 RTCTSUDB EQU RTCTSUP3 06923000 RTCTSUDA EQU RTCTSUP3 06924000 RTCTSUD9 EQU RTCTSUP3 06925000 RTCTSUD8 EQU RTCTSUP3 06926000 @NM00117 EQU RTCTSUP2 06927000 RTCTSUDH EQU RTCTSUP2 06928000 RTCTSUDG EQU RTCTSUP2 06929000 RTCTSUD7 EQU RTCTSUP1 06930000 RTCTSUD6 EQU RTCTSUP1 06931000 RTCTSUD5 EQU RTCTSUP1 06932000 RTCTSUD4 EQU RTCTSUP1 06933000 RTCTSUD3 EQU RTCTSUP1 06934000 RTCTSUD2 EQU RTCTSUP1 06935000 RTCTSUD1 EQU RTCTSUP1 06936000 RTCTSUD0 EQU RTCTSUP1 06937000 RTCTSAP4 EQU RTCTSAP+3 06938000 RTCTSABF EQU RTCTSAP3 06939000 RTCTSABE EQU RTCTSAP3 06940000 RTCTSABD EQU RTCTSAP3 06941000 RTCTSABC EQU RTCTSAP3 06942000 RTCTSABB EQU RTCTSAP3 06943000 RTCTSABA EQU RTCTSAP3 06944000 RTCTSAB9 EQU RTCTSAP3 06945000 RTCTSAB8 EQU RTCTSAP3 06946000 @NM00116 EQU RTCTSAP2 06947000 RTCTSABH EQU RTCTSAP2 06948000 RTCTSABG EQU RTCTSAP2 06949000 RTCTSAB7 EQU RTCTSAP1 06950000 RTCTSAB6 EQU RTCTSAP1 06951000 RTCTSAB5 EQU RTCTSAP1 06952000 RTCTSAB4 EQU RTCTSAP1 06953000 RTCTSAB3 EQU RTCTSAP1 06954000 RTCTSAB2 EQU RTCTSAP1 06955000 RTCTSAB1 EQU RTCTSAP1 06956000 RTCTSAB0 EQU RTCTSAP1 06957000 RTCTNAME EQU RTCT 06958000 SVRBEND EQU RBSECT+192 06959000 RBFEPARM EQU RBSECT+168 06960000 SIRBEND EQU RBSECT+168 06961000 RBRSV158 EQU RBRSV150 06962000 RBRSV157 EQU RBRSV150 06963000 RBRSV156 EQU RBRSV150 06964000 RBRSV155 EQU RBRSV150 06965000 RBRSV154 EQU RBRSV150 06966000 RBRSV153 EQU RBRSV150 06967000 RBRSV152 EQU RBRSV150 06968000 RBRSV151 EQU RBRSV150 06969000 RBRSV149 EQU RBSECT+166 06970000 RBRSV148 EQU RBSECT+164 06971000 RBRSV169 EQU RBSDATA+3 06972000 RBSID EQU RBSDATA+2 06973000 RBSPKEY EQU RBSDATA+1 06974000 RBRSV168 EQU RBSFLG3 06975000 RBSTERMO EQU RBSFLG3 06976000 RBSBRNTR EQU RBSFLG3 06977000 RBSPRNTR EQU RBSFLG3 06978000 RBSCNCEL EQU RBSFLG3 06979000 RBSRECRD EQU RBSFLG3 06980000 RBSTERMI EQU RBSFLG3 06981000 RBRSV167 EQU RBSFLG3 06982000 RBSOWNRA EQU RBSOWNR+1 06983000 RBSSUPER EQU RBSFLGS2 06984000 RBSKEY0 EQU RBSFLGS2 06985000 RBRSV166 EQU RBSFLGS2 06986000 RBRSV165 EQU RBSFLGS2 06987000 RBSINUSE EQU RBSFLGS2 06988000 RBRSV164 EQU RBSFLGS2 06989000 RBSXCTL2 EQU RBSFLGS2 06990000 RBRSV163 EQU RBSFLGS2 06991000 RBSPARMA EQU RBSPARM+1 06992000 RBSHALT EQU RBSIOPRC 06993000 RBSNOIOP EQU RBSIOPRC 06994000 RBSASYNC EQU RBSFLGS1 06995000 RBRSV162 EQU RBSFLGS1 06996000 RBSESTAE EQU RBSFLGS1 06997000 RBSDUMMY EQU RBSFLGS1 06998000 RBSSTAR EQU RBSFLGS1 06999000 RBSSTAI EQU RBSFLGS1 07000000 RBSEXIT EQU RBSCBB+4 07001000 RBSCHAIN EQU RBSCBB 07002000 TIRBEND EQU @NM00114+8 07003000 PRBEND EQU @NM00114+8 07004000 RBRSV146 EQU RBRSV138 07005000 RBRSV145 EQU RBRSV138 07006000 RBRSV144 EQU RBRSV138 07007000 RBRSV143 EQU RBRSV138 07008000 RBRSV142 EQU RBRSV138 07009000 RBRSV141 EQU RBRSV138 07010000 RBRSV140 EQU RBRSV138 07011000 RBRSV139 EQU RBRSV138 07012000 RBRSV137 EQU @NM00114+6 07013000 RBRSV136 EQU @NM00114+4 07014000 RBRSV135 EQU @NM00114 07015000 @NM00113 EQU RBSECT+32 07016000 @NM00112 EQU @NM00110+1 07017000 RBSCF EQU @NM00111 07018000 RBPGMQ1 EQU RBPGMQ+1 07019000 @NM00109 EQU RBPGMQ 07020000 @NM00108 EQU RBSECT+16 07021000 @NM00107 EQU @NM00103 07022000 @NM00106 EQU @NM00103 07023000 RBIQETP EQU @NM00103 07024000 RBUSIQE EQU RBETXR 07025000 RBATTN EQU @NM00103 07026000 @NM00105 EQU @NM00103 07027000 @NM00104 EQU @NM00103 07028000 RBPMSVRB EQU @NM00101 07029000 RBATNXIT EQU @NM00101 07030000 @NM00102 EQU @NM00101 07031000 RBWAITP EQU @NM00101 07032000 RBFNSVRB EQU RBTRSVRB 07033000 RBFTP EQU @NM00101 07034000 RBSIZE EQU RBSECT+8 07035000 RBABOPSW EQU RBSECT+4 07036000 RBPPSAV1 EQU RBPPSAV+1 07037000 @NM00099 EQU RBPPSAV 07038000 RBPRFXND EQU RBPREFIX+64 07039000 RBINTCOD EQU RBINTCDA+1 07040000 RBINLNTH EQU RBINTCDA 07041000 RBWCSA EQU RBPREFIX+60 07042000 RBRSV004 EQU RBPREFIX+57 07043000 RBSSSYN EQU RBFLAGS1 07044000 RBSCB EQU RBFLAGS1 07045000 RBLONGWT EQU RBFLAGS1 07046000 RBASIR EQU RBFLAGS1 07047000 RBRSV159 EQU RBFLAGS1 07048000 RBABEND EQU RBFLAGS1 07049000 RBXWAIT EQU RBFLAGS1 07050000 RBSLOCK EQU RBFLAGS1 07051000 RBRTRAN EQU RBRTPSW2+4 07052000 RBRTINCD EQU RBRTICIL+2 07053000 RBRTILC EQU RBRTICIL+1 07054000 RBRSV160 EQU RBRTICIL 07055000 RBRTPSW1 EQU RBRTOPSW 07056000 RBRSV062 EQU RBRSV054 07057000 RBRSV061 EQU RBRSV054 07058000 RBRSV060 EQU RBRSV054 07059000 RBRSV059 EQU RBRSV054 07060000 RBRSV058 EQU RBRSV054 07061000 RBRSV057 EQU RBRSV054 07062000 RBRSV056 EQU RBRSV054 07063000 RBRSV055 EQU RBRSV054 07064000 RBRSV053 EQU RBPREFIX+38 07065000 RBRSV052 EQU RBPREFIX+36 07066000 RBRSV051 EQU RBPREFIX+32 07067000 RBPRFXST EQU RBPREFIX+32 07068000 RBRSV050 EQU RBPREFIX+28 07069000 RBRSV049 EQU RBRSV041 07070000 RBRSV048 EQU RBRSV041 07071000 RBRSV047 EQU RBRSV041 07072000 RBRSV046 EQU RBRSV041 07073000 RBRSV045 EQU RBRSV041 07074000 RBRSV044 EQU RBRSV041 07075000 RBRSV043 EQU RBRSV041 07076000 RBRSV042 EQU RBRSV041 07077000 RBRSV040 EQU RBPREFIX+26 07078000 RBRSV039 EQU RBPREFIX+24 07079000 RBRSV038 EQU RBPREFIX+20 07080000 RBRSV037 EQU RBPREFIX+16 07081000 RBRSV036 EQU RBRSV028 07082000 RBRSV035 EQU RBRSV028 07083000 RBRSV034 EQU RBRSV028 07084000 RBRSV033 EQU RBRSV028 07085000 RBRSV032 EQU RBRSV028 07086000 RBRSV031 EQU RBRSV028 07087000 RBRSV030 EQU RBRSV028 07088000 RBRSV029 EQU RBRSV028 07089000 RBRSV027 EQU RBRSV019 07090000 RBRSV026 EQU RBRSV019 07091000 RBRSV025 EQU RBRSV019 07092000 RBRSV024 EQU RBRSV019 07093000 RBRSV023 EQU RBRSV019 07094000 RBRSV022 EQU RBRSV019 07095000 RBRSV021 EQU RBRSV019 07096000 RBRSV020 EQU RBRSV019 07097000 RBRSV018 EQU RBPREFIX+13 07098000 RBRSV017 EQU RBPREFIX+12 07099000 RBSRV016 EQU RBPREFIX+11 07100000 RBRSV015 EQU RBPREFIX+10 07101000 RBRSV014 EQU RBPREFIX+8 07102000 RBRSV013 EQU RBPREFIX+4 07103000 RBRSV012 EQU RBPREFIX 07104000 XRBREG15 EQU RBGRS15 07105000 XRBREG14 EQU RBGRS14 07106000 XRBREG13 EQU RBGRS13 07107000 XRBREG12 EQU RBGRS12 07108000 XRBREG11 EQU RBGRS11 07109000 XRBREG10 EQU RBGRS10 07110000 XRBREG9 EQU RBGRS9 07111000 XRBREG8 EQU RBGRS8 07112000 XRBREG7 EQU RBGRS7 07113000 XRBREG6 EQU RBGRS6 07114000 XRBREG5 EQU RBGRS5 07115000 XRBREG4 EQU RBGRS4 07116000 XRBREG3 EQU RBGRS3 07117000 XRBREG2 EQU RBGRS2 07118000 XRBREG1 EQU RBGRS1 07119000 XRBREG0 EQU RBGRS0 07120000 XRBLNKA EQU RBLINKB 07121000 XRBWT EQU RBWCF 07122000 @NM00098 EQU RBBASIC+24 07123000 RBOPSWPS EQU RBOPSWB2 07124000 @NM00097 EQU RBOPSWB2 07125000 @NM00096 EQU XRBPSW 07126000 @NM00095 EQU RBBASIC+12 07127000 XRBWAIT EQU RBECBWT 07128000 XRBFRRB EQU RBFDYN 07129000 @NM00094 EQU XSTAB2 07130000 XRBACTV EQU RBFACTV 07131000 XRBTCBP EQU RBTCBNXT 07132000 @NM00093 EQU XSTAB1 07133000 XRBCKPT EQU RBFTCKPT 07134000 @NM00092 EQU XSTAB1 07135000 @NM00091 EQU RBBASIC+8 07136000 @NM00090 EQU RBEXRTNM+1 07137000 RBTMIND3 EQU RBTMFLD 07138000 RBTMIND2 EQU RBTMFLD 07139000 RBTMCMP EQU RBTMFLD 07140000 RBWLIM EQU RBTMFLD 07141000 RBRSV005 EQU RBTMFLD 07142000 RBTMTOD EQU RBTMFLD 07143000 RBTMQUE EQU RBTMFLD 07144000 @NM00089 EQU RBPRFX 07145000 DCBEOB EQU IHADCS40+20 07146000 DCBPRECL EQU IHADCS40+18 07147000 @NM00064 EQU IHADCS40+16 07148000 @NM00063 EQU @NM00061+1 07149000 @NM00062 EQU DCBEROPT 07150000 DCBERABE EQU DCBEROPT 07151000 DCBERSKP EQU DCBEROPT 07152000 DCBERACC EQU DCBEROPT 07153000 @NM00060 EQU IHADCS40+10 07154000 @NM00059 EQU IHADCS40+9 07155000 @NM00058 EQU IHADCS40+8 07156000 DCBRECA EQU DCBRECAD+1 07157000 @NM00057 EQU DCBRECBT 07158000 DCBRCFGT EQU DCBRCREL 07159000 DCBRCTRU EQU DCBRCREL 07160000 DCBLCCW EQU DCBEOBAD 07161000 DCBNOTE EQU DCBCNTRL 07162000 @NM00056 EQU IHADCS38+8 07163000 DCBEOBW EQU IHADCS38+4 07164000 DCBEOBRA EQU DCBEOBR+1 07165000 DCBNCP EQU DCBEOBR 07166000 @NM00055 EQU DCBFLAG1 07167000 DCBSTFLS EQU DCBFLAG1 07168000 DCBSTQCK EQU DCBFLAG1 07169000 DCBDIRCQ EQU DCBBUFOF 07170000 DCBQSTRU EQU DCBUSASI 07171000 @NM00054 EQU DCBUSASI 07172000 DCBQADF3 EQU DCBQADFS 07173000 DCBQADF2 EQU DCBQADFS 07174000 DCBQADF1 EQU DCBQADFS 07175000 DCBBLBP EQU DCBUSASI 07176000 @NM00053 EQU DCBUSASI 07177000 DCBCICBA EQU DCBCICB+1 07178000 @NM00052 EQU DCBCICB 07179000 DCBOFFSW EQU IHADCS36+15 07180000 DCBOFFSR EQU IHADCS36+14 07181000 DCBWCPL EQU IHADCS36+13 07182000 DCBWCPO EQU IHADCS36+12 07183000 DCBCNQSM EQU DCBCIND2 07184000 DCBCNFEO EQU DCBCIND2 07185000 DCBCNCHS EQU DCBCIND2 07186000 DCBCNBFP EQU DCBCIND2 07187000 DCBCNIOE EQU DCBCIND2 07188000 DCBCNCLO EQU DCBCIND2 07189000 DCBCNWRO EQU DCBCIND2 07190000 DCBCNSTO EQU DCBCIND2 07191000 DCBCNEXB EQU DCBCIND1 07192000 @NM00051 EQU DCBCIND1 07193000 DCBCNBRM EQU DCBCIND1 07194000 @NM00050 EQU DCBCIND1 07195000 DCBCNEVA EQU DCBCIND1 07196000 DCBCNEVB EQU DCBCIND1 07197000 DCBCNSRD EQU DCBCIND1 07198000 DCBCNTOV EQU DCBCIND1 07199000 DCBIOBL EQU DCBSYNAD 07200000 DCBCHCKA EQU DCBPERRA 07201000 DCBOPTJ EQU DCBOPTCD 07202000 DCBOPTT EQU DCBOPTCD 07203000 DCBSRCHD EQU DCBOPTZ 07204000 DCBOPTQ EQU DCBOPTCD 07205000 DCBBCKPT EQU DCBOPTO 07206000 DCBOPTC EQU DCBOPTCD 07207000 DCBOPTU EQU DCBOPTCD 07208000 DCBOPTW EQU DCBOPTCD 07209000 DCBPUTA EQU DCBGETA 07210000 @NM00049 EQU DCBPUT 07211000 DCBREADA EQU DCBWRITA 07212000 @NM00048 EQU DCBREAD 07213000 DCBDEBA EQU DCBDEBAD+1 07214000 @NM00047 EQU DCBIFLGS 07215000 DCBIFIOE EQU DCBIFLGS 07216000 DCBCH12 EQU DCBIFPCT 07217000 DCBCH9 EQU DCBIFPCT 07218000 DCBIFEC EQU DCBIFLGS 07219000 DCBMFSTI EQU DCBMFDMD 07220000 DCBMFAWR EQU DCBMFSTK 07221000 DCBMFUIP EQU DCBMFTMD 07222000 DCBMFIDW EQU DCBMFLCP 07223000 DCBMFWRK EQU DCBMFMVP 07224000 DCBMFRDQ EQU DCBMFWRT 07225000 DCBMFGTQ EQU DCBMFPUT 07226000 DCBMFSTL EQU DCBMACF2 07227000 DCBMFCK EQU DCBMFDMG 07228000 DCBMFRDX EQU DCBMFCHK 07229000 DCBMFDBF EQU DCBMFSBG 07230000 DCBMFRDI EQU DCBMFLCG 07231000 DCBMFRDK EQU DCBMFMVG 07232000 DCBMFWRQ EQU DCBMFRD 07233000 DCBMFPTQ EQU DCBMFGET 07234000 DCBMFECP EQU DCBMACF1 07235000 DCBMRSTI EQU DCBMRDMD 07236000 DCBMRAWR EQU DCBMRSTK 07237000 DCBMRUIP EQU DCBMRTMD 07238000 DCBMRIDW EQU DCBMRLCP 07239000 DCBMRWRK EQU DCBMRMVP 07240000 DCBMRRDQ EQU DCBMRWRT 07241000 DCBMRGTQ EQU DCBMRPUT 07242000 DCBMRSTL EQU DCBMACR2 07243000 DCBMRCK EQU DCBMRDMG 07244000 DCBPGFXA EQU DCBMRRDX 07245000 DCBMRDBF EQU DCBMRSBG 07246000 DCBMRRDI EQU DCBMRLCG 07247000 DCBMRRDK EQU DCBMRMVG 07248000 DCBMRWRQ EQU DCBMRRD 07249000 DCBMRPTQ EQU DCBMRGET 07250000 DCBMRECP EQU DCBMACR1 07251000 @NM00046 EQU DCBIFLG 07252000 DCBIBIOE EQU DCBIFLG 07253000 DCBICH12 EQU DCBIBPCT 07254000 DCBICH9 EQU DCBIBPCT 07255000 DCBIBEC EQU DCBIFLG 07256000 DCBOFIOF EQU DCBOFLGS 07257000 DCBOFUEX EQU DCBOFLGS 07258000 DCBOFTM EQU DCBOFLGS 07259000 DCBOFPPC EQU DCBOFLGS 07260000 DCBOFEOV EQU DCBOFLGS 07261000 DCBOFLRB EQU DCBOFLGS 07262000 DCBOFIOD EQU DCBOFLWR 07263000 DCBDDNAM EQU IHADCS24 07264000 DCBEXLSA EQU DCBEXLST+1 07265000 DCBRECKL EQU DCBRECFM 07266000 DCBRECCC EQU DCBRECFM 07267000 DCBRECSB EQU DCBRECFM 07268000 DCBRECBR EQU DCBRECFM 07269000 DCBRECTO EQU DCBRECLA 07270000 DCBRECL EQU DCBRECLA 07271000 DCBEODA EQU DCBEODAD+1 07272000 DCBBFA EQU DCBBFTEK 07273000 DCBH0 EQU DCBBFTEK 07274000 DCBBFTKD EQU DCBBFTEK 07275000 DCBBFTE EQU DCBBFT 07276000 DCBBFTKR EQU DCBBFT 07277000 DCBBFTS EQU DCBBFT 07278000 DCBH1 EQU DCBBFTEK 07279000 DCBSVCXA EQU DCBSVCXL+1 07280000 @NM00045 EQU DCBSVCXL 07281000 DCBODEBA EQU DCBIOBAA 07282000 @NM00044 EQU DCBQSLM 07283000 DCBUPDBT EQU DCBQSLM 07284000 DCBUPDCM EQU DCBQSLM 07285000 DCB1DVDS EQU DCBQSLM 07286000 @NM00043 EQU DCBDSRG2 07287000 DCBDSGTR EQU DCBDSRG2 07288000 DCBACBM EQU DCBDSRG2 07289000 @NM00042 EQU DCBDSRG2 07290000 DCBDSGTQ EQU DCBDSRG2 07291000 DCBDSGTX EQU DCBDSRG2 07292000 DCBDSGGS EQU DCBDSRG2 07293000 DCBDSGU EQU DCBDSRG1 07294000 DCBDSGPO EQU DCBDSRG1 07295000 @NM00041 EQU DCBDSRG1 07296000 @NM00040 EQU DCBDSRG1 07297000 DCBDSGCX EQU DCBDSRG1 07298000 DCBDSGDA EQU DCBDSRG1 07299000 DCBDSGIS EQU DCBDSRG1 07300000 DCBBUFL EQU IHADCS11+8 07301000 DCBBUFCA EQU DCBBUFCB+1 07302000 DCBBUFNO EQU DCBBUFCB 07303000 DCBKEYLE EQU DCBRELB 07304000 DCBTRBAL EQU IHADCS01+6 07305000 @NM00039 EQU IHADCS01+5 07306000 @NM00038 EQU IHADCS01+4 07307000 DCBDVTBA EQU DCBDVTBL+1 07308000 @NM00037 EQU DCBDVTBL 07309000 DCBKEYCN EQU IHADCS00+4 07310000 DCBRELAD EQU IHADCS00 07311000 @NM00036 EQU IHADCB 07312000 ASCBEND EQU ASCB+208 07313000 ASCBSRBT EQU ASCB+200 07314000 ASCBSWTL EQU ASCB+196 07315000 ASCBRS14 EQU ASCB+195 07316000 ASCBSMCT EQU ASCB+194 07317000 ASCBRS12 EQU ASCB+192 07318000 ASCBPCTT EQU ASCB+188 07319000 ASCBVGTT EQU ASCB+184 07320000 ASCBRV43 EQU ASCBSRQ4 07321000 ASCBRV42 EQU ASCBSRQ4 07322000 ASCBRV41 EQU ASCBSRQ4 07323000 ASCBRV40 EQU ASCBSRQ4 07324000 ASCBRV39 EQU ASCBSRQ4 07325000 ASCBRV38 EQU ASCBSRQ4 07326000 ASCBRV37 EQU ASCBSRQ4 07327000 ASCBRV36 EQU ASCBSRQ4 07328000 ASCBRV35 EQU ASCBSRQ3 07329000 ASCBRV34 EQU ASCBSRQ3 07330000 ASCBRV33 EQU ASCBSRQ3 07331000 ASCBRV32 EQU ASCBSRQ3 07332000 ASCBRV31 EQU ASCBSRQ3 07333000 ASCBRV30 EQU ASCBSRQ3 07334000 ASCBRV29 EQU ASCBSRQ3 07335000 ASCBRV28 EQU ASCBSRQ3 07336000 ASCBRV27 EQU ASCBSRQ2 07337000 ASCBRV26 EQU ASCBSRQ2 07338000 ASCBRV25 EQU ASCBSRQ2 07339000 ASCBRV24 EQU ASCBSRQ2 07340000 ASCBRV23 EQU ASCBSRQ2 07341000 ASCBRV22 EQU ASCBSRQ2 07342000 ASCBRV21 EQU ASCBSRQ2 07343000 ASCBRV20 EQU ASCBSRQ2 07344000 ASCBRV19 EQU ASCBSRQ1 07345000 ASCBRV18 EQU ASCBSRQ1 07346000 ASCBRV17 EQU ASCBSRQ1 07347000 ASCBRV16 EQU ASCBSRQ1 07348000 ASCBRV15 EQU ASCBSRQ1 07349000 ASCBRV14 EQU ASCBSRQ1 07350000 ASCBRV13 EQU ASCBSRQ1 07351000 ASCBSTA EQU ASCBSRQ1 07352000 ASCBJBNS EQU ASCB+176 07353000 ASCBJBNI EQU ASCB+172 07354000 ASCBMCC EQU ASCB+168 07355000 ASCBRTWA EQU ASCB+164 07356000 ASCBIQEA EQU ASCB+160 07357000 ASCBXMPQ EQU ASCB+156 07358000 ASCBRS01 EQU ASCB+154 07359000 ASCBFMCT EQU ASCB+152 07360000 ASCBOUXB EQU ASCB+148 07361000 ASCBOUCB EQU ASCB+144 07362000 ASCBMECB EQU ASCB+140 07363000 ASCBQECB EQU ASCB+136 07364000 ASCBLSQH EQU ASCBLKGP+4 07365000 ASCBLOCK EQU ASCBLKGP 07366000 ASCBTCBS EQU ASCB+124 07367000 ASCBNVSC EQU ASCB+122 07368000 ASCBVSC EQU ASCB+120 07369000 ASCBSRBS EQU ASCB+118 07370000 ASCBSSRB EQU ASCB+116 07371000 ASCBRV06 EQU ASCBFLG2 07372000 ASCBRV05 EQU ASCBFLG2 07373000 ASCBRV04 EQU ASCBFLG2 07374000 ASCBSNQS EQU ASCBFLG2 07375000 ASCBS2S EQU ASCBFLG2 07376000 ASCBCEXT EQU ASCBFLG2 07377000 ASCBPXMT EQU ASCBFLG2 07378000 ASCBXMPT EQU ASCBFLG2 07379000 ASCBRF07 EQU ASCBDSP1 07380000 ASCBRF06 EQU ASCBDSP1 07381000 ASCBRF05 EQU ASCBDSP1 07382000 ASCBRF04 EQU ASCBDSP1 07383000 ASCBRF03 EQU ASCBDSP1 07384000 ASCBRF02 EQU ASCBDSP1 07385000 ASCBFAIL EQU ASCBDSP1 07386000 ASCBNOQ EQU ASCBDSP1 07387000 ASCBSWCT EQU ASCB+112 07388000 ASCBASXB EQU ASCB+108 07389000 ASCBTMCH EQU ASCB+104 07390000 ASCBNSWP EQU ASCBFLG1 07391000 ASCBTYP1 EQU ASCBFLG1 07392000 ASCBSTND EQU ASCBFLG1 07393000 ASCBABNT EQU ASCBFLG1 07394000 ASCBTERM EQU ASCBFLG1 07395000 ASCBS3S EQU ASCBFLG1 07396000 ASCBCMSH EQU ASCBFLG1 07397000 ASCBTOFF EQU ASCBFLG1 07398000 ASCBRF01 EQU ASCBRCTF 07399000 ASCBTMLW EQU ASCBRCTF 07400000 ASCBOUT EQU ASCBRCTF 07401000 ASCBWAIT EQU ASCBRCTF 07402000 ASCBRV08 EQU ASCBRCTF 07403000 ASCBFQU EQU ASCBRCTF 07404000 ASCBFRS EQU ASCBRCTF 07405000 ASCBTMNO EQU ASCBRCTF 07406000 ASCBAFFN EQU ASCBFW1 07407000 ASCBDUMP EQU ASCB+96 07408000 ASCBRV44 EQU ASCB+92 07409000 ASCBUBET EQU ASCB+88 07410000 ASCBECB EQU ASCB+84 07411000 ASCBJSTL EQU ASCB+80 07412000 ASCBEWST EQU ASCB+72 07413000 ASCBEJST EQU ASCB+64 07414000 ASCBTSB EQU ASCB+60 07415000 ASCBCSCB EQU ASCB+56 07416000 ASCBRSMA EQU ASCBRSM+1 07417000 ASCBRV54 EQU ASCBRSMF 07418000 ASCBRV53 EQU ASCBRSMF 07419000 ASCBRV52 EQU ASCBRSMF 07420000 ASCBRV51 EQU ASCBRSMF 07421000 ASCBVEQR EQU ASCBRSMF 07422000 ASCBN2LP EQU ASCBRSMF 07423000 ASCB1LPU EQU ASCBRSMF 07424000 ASCB2LPU EQU ASCBRSMF 07425000 ASCBLDA EQU ASCB+48 07426000 ASCBSTOR EQU ASCB+44 07427000 ASCBDP EQU ASCB+43 07428000 ASCBRV07 EQU ASCB+42 07429000 ASCBIOSM EQU ASCB+40 07430000 ASCBSEQN EQU ASCB+38 07431000 ASCBCPUS EQU ASCB+32 07432000 ASCBSPL EQU ASCB+28 07433000 ASCBIOSP EQU ASCB+24 07434000 ASCBSYNC EQU ASCBSUPC+4 07435000 ASCBSVRB EQU ASCBSUPC 07436000 ASCBCMSF EQU ASCB+12 07437000 ASCBBWDP EQU ASCB+8 07438000 ASCBFWDP EQU ASCB+4 07439000 ASCBASCB EQU ASCB 07440000 ASCBEGIN EQU ASCB 07441000 CVTLEVL EQU CVTRELNO+2 07442000 CVTNUMB EQU CVTRELNO 07443000 CVTMDL EQU CVTFIX+250 07444000 @NM00035 EQU CVTFIX+248 07445000 @NM00034 EQU CVTFIX 07446000 CVTRV482 EQU CVTXTNT2+128 07447000 CVTRV481 EQU CVTXTNT2+124 07448000 CVTRV480 EQU CVTXTNT2+120 07449000 CVTRV479 EQU CVTXTNT2+118 07450000 CVTRV478 EQU CVTXTNT2+117 07451000 CVTRV477 EQU CVTXTNT2+116 07452000 CVTRV476 EQU CVTXTNT2+115 07453000 CVTRV475 EQU CVTXTNT2+114 07454000 CVTRV474 EQU CVTRV466 07455000 CVTRV473 EQU CVTRV466 07456000 CVTRV472 EQU CVTRV466 07457000 CVTRV471 EQU CVTRV466 07458000 CVTRV470 EQU CVTRV466 07459000 CVTRV469 EQU CVTRV466 07460000 CVTRV468 EQU CVTRV466 07461000 CVTRV467 EQU CVTRV466 07462000 CVTRV465 EQU CVTRV457 07463000 CVTRV464 EQU CVTRV457 07464000 CVTRV463 EQU CVTRV457 07465000 CVTRV462 EQU CVTRV457 07466000 CVTRV461 EQU CVTRV457 07467000 CVTRV460 EQU CVTRV457 07468000 CVTRV459 EQU CVTRV457 07469000 CVTRV458 EQU CVTRV457 07470000 CVTRV456 EQU CVTXTNT2+108 07471000 CVTRV455 EQU CVTXTNT2+104 07472000 CVTRV454 EQU CVTXTNT2+100 07473000 CVTRV453 EQU CVTXTNT2+96 07474000 CVTRV452 EQU CVTXTNT2+94 07475000 CVTRV451 EQU CVTXTNT2+92 07476000 CVTRV450 EQU CVTXTNT2+90 07477000 CVTRV449 EQU CVTXTNT2+88 07478000 CVTRV448 EQU CVTXTNT2+87 07479000 CVTRV447 EQU CVTXTNT2+86 07480000 CVTRV446 EQU CVTRV438 07481000 CVTRV445 EQU CVTRV438 07482000 CVTRV444 EQU CVTRV438 07483000 CVTRV443 EQU CVTRV438 07484000 CVTRV442 EQU CVTRV438 07485000 CVTRV441 EQU CVTRV438 07486000 CVTRV440 EQU CVTRV438 07487000 CVTRV439 EQU CVTRV438 07488000 CVTRV437 EQU CVTRV429 07489000 CVTRV436 EQU CVTRV429 07490000 CVTRV435 EQU CVTRV429 07491000 CVTRV434 EQU CVTRV429 07492000 CVTRV433 EQU CVTRV429 07493000 CVTRV432 EQU CVTRV429 07494000 CVTRV431 EQU CVTRV429 07495000 CVTRV430 EQU CVTRV429 07496000 CVTRV428 EQU CVTXTNT2+80 07497000 CVTRV427 EQU CVTXTNT2+76 07498000 CVTRV426 EQU CVTXTNT2+72 07499000 CVTRV425 EQU CVTXTNT2+68 07500000 CVTATACT EQU CVTATCVT 07501000 CVTRV423 EQU CVTXTNT2+62 07502000 CVTRV422 EQU CVTXTNT2+60 07503000 CVTRV421 EQU CVTXTNT2+58 07504000 CVTRV420 EQU CVTXTNT2+56 07505000 CVTRV419 EQU CVTXTNT2+55 07506000 CVTRV418 EQU CVTXTNT2+54 07507000 CVTRV417 EQU CVTRV409 07508000 CVTRV416 EQU CVTRV409 07509000 CVTRV415 EQU CVTRV409 07510000 CVTRV414 EQU CVTRV409 07511000 CVTRV413 EQU CVTRV409 07512000 CVTRV412 EQU CVTRV409 07513000 CVTRV411 EQU CVTRV409 07514000 CVTRV410 EQU CVTRV409 07515000 CVTRV408 EQU CVTRV400 07516000 CVTRV407 EQU CVTRV400 07517000 CVTRV406 EQU CVTRV400 07518000 CVTRV405 EQU CVTRV400 07519000 CVTRV404 EQU CVTRV400 07520000 CVTRV403 EQU CVTRV400 07521000 CVTRV402 EQU CVTRV400 07522000 CVTRV401 EQU CVTRV400 07523000 CVTICB EQU CVTXTNT2+48 07524000 CVTSKTA EQU CVTXTNT2+44 07525000 CVTCCVT EQU CVTXTNT2+40 07526000 CVTRSV98 EQU CVTXTNT2+36 07527000 CVTRSV97 EQU CVTXTNT2+34 07528000 CVTRSV96 EQU CVTXTNT2+32 07529000 CVTOLTEP EQU CVTXTNT2+28 07530000 CVTQIDA EQU CVTQID+1 07531000 CVTRSV95 EQU CVTQID 07532000 CVTRSV94 EQU CVTXTNT2+20 07533000 CVTRSV93 EQU CVTXTNT2+16 07534000 CVTRSV92 EQU CVTXTNT2+12 07535000 CVTDEBVR EQU CVTXTNT2+8 07536000 CVTRSV91 EQU CVTXTNT2+6 07537000 CVTRSV9H EQU CVTFLGBT 07538000 CVTRSV9G EQU CVTFLGBT 07539000 CVTRSV9F EQU CVTFLGBT 07540000 CVTRSV9E EQU CVTFLGBT 07541000 CVTRSV9D EQU CVTFLGBT 07542000 CVTBAH EQU CVTFLGBT 07543000 CVTVME EQU CVTFLGBT 07544000 CVTNPE EQU CVTFLGBT 07545000 CVTNUCLS EQU CVTXTNT2+4 07546000 CVTDSSVA EQU CVTDSSV+1 07547000 CVTRSV89 EQU CVTDSSV 07548000 CVTRSV88 EQU CVTXTNT1+8 07549000 CVTRSV87 EQU CVTXTNT1+4 07550000 CVTFACHN EQU CVTXTNT1 07551000 CVTRV488 EQU CVTMAP+412 07552000 CVTRV487 EQU CVTMAP+408 07553000 CVTRV486 EQU CVTMAP+404 07554000 CVTRV485 EQU CVTMAP+400 07555000 CVTACTAP EQU CVTMAP+396 07556000 CVTAUTH EQU CVTMAP+392 07557000 CVTRV490 EQU CVTMAP+388 07558000 CVTSU EQU CVTMAP+384 07559000 CVTVOLT1 EQU CVTVOLM1+1 07560000 CVTVOLI1 EQU CVTVOLF1 07561000 CVTSTOA EQU CVTMAP+376 07562000 CVTRSV58 EQU CVTMAP+374 07563000 CVTRSV57 EQU CVTMAP+372 07564000 CVTDDCE EQU CVTMAP+368 07565000 CVTPNWFR EQU CVTMAP+364 07566000 CVTSMF EQU CVTMAP+360 07567000 CVTSULK EQU CVTMAP+358 07568000 CVTSLKO EQU CVTSYSK 07569000 CVTSLKP EQU CVTSYSK 07570000 CVTSLKQ EQU CVTSYSK 07571000 CVTSLKR EQU CVTSYSK 07572000 CVTRSV56 EQU CVTSYSK 07573000 CVTRSV55 EQU CVTSYSK 07574000 CVTRSV54 EQU CVTSYSK 07575000 CVTRSV53 EQU CVTSYSK 07576000 CVTRSV52 EQU CVTA1F1 07577000 CVTRSV51 EQU CVTA1F1 07578000 CVTRSV50 EQU CVTA1F1 07579000 CVTRSV49 EQU CVTA1F1 07580000 CVTRSV48 EQU CVTA1F1 07581000 CVTRSV47 EQU CVTA1F1 07582000 CVTSRSW EQU CVTA1F1 07583000 CVTPFSW EQU CVTA1F1 07584000 CVTPCVT EQU CVTMAP+352 07585000 CVTRSV46 EQU CVTMAP+344 07586000 CVTRSV45 EQU CVTMAP+340 07587000 CVTRSV44 EQU CVTMAP+338 07588000 CVTRSV43 EQU CVTMAP+336 07589000 CVTHJESA EQU CVTHJES+1 07590000 CVTRSV42 EQU CVTHJES 07591000 CVTEXT2A EQU CVTEXT2+1 07592000 CVTRSV41 EQU CVTEXT2 07593000 CVTAPFA EQU CVTAPF+1 07594000 CVTRSV40 EQU CVTAPF 07595000 CVTRV518 EQU CVTINTLA 07596000 CVTRV517 EQU CVTERPV 07597000 CVTEORM EQU CVTMAP+312 07598000 CVTMCHPR EQU CVTMAP+308 07599000 CVTTZ EQU CVTMAP+304 07600000 CVTJEPS EQU CVTMAP+300 07601000 CVTMODE EQU CVTMAP+292 07602000 CVTPTRV EQU CVTMAP+288 07603000 CVTREAL EQU CVTMAP+284 07604000 CVTRSV39 EQU CVTMAP+280 07605000 CVTRSV38 EQU CVTMAP+276 07606000 CVTDMSRA EQU CVTDMSR+1 07607000 CVTRV634 EQU CVTDMSRF 07608000 CVTRV633 EQU CVTDMSRF 07609000 CVTRV632 EQU CVTDMSRF 07610000 CVTRV631 EQU CVTDMSRF 07611000 CVTRV630 EQU CVTDMSRF 07612000 CVTRV629 EQU CVTDMSRF 07613000 CVTUDUMP EQU CVTDMSRF 07614000 CVTSDUMP EQU CVTDMSRF 07615000 CVTQMSGA EQU CVTQMSG+1 07616000 CVTRSV36 EQU CVTQMSG 07617000 CVTAMFF EQU CVTMAP+264 07618000 CVTPURGA EQU CVTPURG+1 07619000 CVTRSV35 EQU CVTPURG 07620000 CVTCBSP EQU CVTMAP+256 07621000 CVTATERA EQU CVTATER+1 07622000 CVTSYST EQU CVTATER 07623000 CVTVOLT2 EQU CVTTAT 07624000 CVTVOLI2 EQU CVTVOLF2 07625000 CVTAQAVB EQU CVTAQAVT+1 07626000 CVTRSV34 EQU CVTTCMFG 07627000 CVTRSV33 EQU CVTTCMFG 07628000 CVTRSV32 EQU CVTTCMFG 07629000 CVTRSV31 EQU CVTTCMFG 07630000 CVTRSV30 EQU CVTTCMFG 07631000 CVTRSV29 EQU CVTTCMFG 07632000 CVTLDEV EQU CVTTCMFG 07633000 CVTTCRDY EQU CVTTCMFG 07634000 CVTGTFA EQU CVTGTF+1 07635000 CVTRSV27 EQU CVTGTFST 07636000 CVTRNIO EQU CVTGTFST 07637000 CVTUSR EQU CVTGTFST 07638000 CVTRV318 EQU CVTFORM 07639000 CVTRV317 EQU CVTTMODE 07640000 CVTRV316 EQU CVTSTATE 07641000 CVTRV315 EQU CVTGTFS 07642000 CVT0SCR1 EQU CVTMAP+232 07643000 CVTRV515 EQU CVTMAP+228 07644000 CVTRMS EQU CVTMAP+224 07645000 CVTPATCH EQU CVTMAP+220 07646000 CVTTSCE EQU CVTMAP+216 07647000 CVTLNKSC EQU CVTMAP+214 07648000 CVTQABST EQU CVTMAP+212 07649000 CVTMDLDS EQU CVTMAP+208 07650000 CVTUSER EQU CVTMAP+204 07651000 CVTSMCA EQU CVTMAP+196 07652000 CVTRSV18 EQU CVTMAP+192 07653000 CVTQLPAQ EQU CVTMAP+188 07654000 CVTQCDSR EQU CVTMAP+184 07655000 CVTVS1B EQU CVTOPTB 07656000 CVTVS1A EQU CVTOPTB 07657000 CVTFP EQU CVTOPTB 07658000 CVTAPTHR EQU CVTOPTB 07659000 CVTNLOG EQU CVTOPTB 07660000 CVTTOD EQU CVTOPTB 07661000 CVTCTIMS EQU CVTOPTB 07662000 CVTPROT EQU CVTOPTB 07663000 CVTXPFP EQU CVTOPTA 07664000 CVTASCII EQU CVTOPTA 07665000 CVTRSV13 EQU CVTOPTA 07666000 CVTRSV12 EQU CVTOPTA 07667000 CVTNIP EQU CVTOPTA 07668000 CVTDDR EQU CVTOPTA 07669000 CVTAPR EQU CVTOPTA 07670000 CVTCCH EQU CVTOPTA 07671000 CVTSNCTR EQU CVTMAP+180 07672000 CVTQMWR EQU CVTMAP+176 07673000 CVTQOCR EQU CVTMAP+172 07674000 CVT1EF00 EQU CVTMAP+168 07675000 CVTMZ00 EQU CVTMAP+164 07676000 CVTSV76Q EQU CVTSV76C 07677000 CVTRSV11 EQU CVTMAP+156 07678000 CVT0PT01 EQU CVTMAP+152 07679000 CVTMSER EQU CVTMAP+148 07680000 CVTRV516 EQU CVTIERLC 07681000 CVTILCH EQU CVTMAP+140 07682000 CVT0DS EQU CVTMAP+136 07683000 CVTFBOSV EQU CVTMAP+132 07684000 CVTNUCB EQU CVTMAP+128 07685000 CVTIXAVL EQU CVTMAP+124 07686000 CVTSV76M EQU CVTIOQET 07687000 CVTDCBA EQU CVTMAP+117 07688000 CVTMVS2 EQU CVTDCB 07689000 CVT6DAT EQU CVTDCB 07690000 CVT4MPS EQU CVTDCB 07691000 CVTRSV09 EQU CVTDCB 07692000 CVT4MS1 EQU CVTDCB 07693000 CVT2SPS EQU CVTDCB 07694000 CVT1SSS EQU CVTDCB 07695000 CVTRSV08 EQU CVTDCB 07696000 CVTSTB EQU CVTMAP+112 07697000 CVTQTD00 EQU CVTMAP+108 07698000 CVTQTE00 EQU CVTMAP+104 07699000 CVTCUCB EQU CVTMAP+100 07700000 CVTSJQ EQU CVTMAP+96 07701000 CVTPBLDL EQU CVTMAP+92 07702000 CVTTPC EQU CVTMAP+88 07703000 CVTSVDCB EQU CVTMAP+84 07704000 CVTEXIT EQU CVTMAP+80 07705000 CVT0FN00 EQU CVTMAP+76 07706000 CVTDARA EQU CVTDAR+1 07707000 CVTRSV07 EQU CVTFLGS1 07708000 CVTRSV06 EQU CVTFLGS1 07709000 CVTRSV05 EQU CVTFLGS1 07710000 CVTRSV04 EQU CVTFLGS1 07711000 CVTRSV03 EQU CVTFLGS1 07712000 CVTRSV02 EQU CVTFLGS1 07713000 CVTRSV01 EQU CVTFLGS1 07714000 CVTDMPLK EQU CVTFLGS1 07715000 CVTXITP EQU CVTMAP+68 07716000 CVTZDTAB EQU CVTMAP+64 07717000 CVTMSLT EQU CVTMAP+60 07718000 CVTDATE EQU CVTMAP+56 07719000 CVTBTERM EQU CVTMAP+52 07720000 CVTSYSAD EQU CVTMAP+48 07721000 CVTXTLER EQU CVTMAP+44 07722000 CVTILK2 EQU CVTMAP+40 07723000 CVTILK1 EQU CVTMAP+36 07724000 CVTPRLTV EQU CVTMAP+32 07725000 CVTPCNVT EQU CVTMAP+28 07726000 CVT0VL00 EQU CVTMAP+24 07727000 CVTXAPG EQU CVTMAP+20 07728000 CVTBUF EQU CVTMAP+16 07729000 CVTJOB EQU CVTMAP+12 07730000 CVT0EF00 EQU CVTMAP+4 07731000 CVTTCBP EQU CVTMAP 07732000 CVT EQU CVTMAP 07733000 ABDSAVHD EQU ABDAREA+592 07734000 ABDPADC EQU ABDAREA+589 07735000 ABDSRC2 EQU ABDAREA+382 07736000 ABDLCNT EQU ABDAREA+372 07737000 @NM00030 EQU ESPARM+29 07738000 @NM00029 EQU ESTAEFLG 07739000 @NM00028 EQU ABDGMA+14 07740000 ABDCDID EQU ABDGMA+12 07741000 ABDPAREA EQU ABDGMA+8 07742000 ABSLCTSV EQU ABDAREA+304 07743000 ABDSTADS EQU ABDAREA+300 07744000 ABDUPRID EQU ABDAREA+296 07745000 ABDINCPL EQU ABDAREA+292 07746000 ABDFWORK EQU ABDAREA+288 07747000 ABDIDENT EQU ABDAREA+286 07748000 ABDIND EQU ABDAREA+284 07749000 ABDSIZE EQU ABDAREA+280 07750000 ABDLENTH EQU ABDAREA+276 07751000 ABDBLOCK EQU ABDAREA+272 07752000 ABDSTAD EQU ABDAREA+268 07753000 @NM00027 EQU ABDBLNKS 07754000 @NM00026 EQU ABDBLNKS 07755000 @NM00025 EQU ABDBLNKS 07756000 @NM00024 EQU ABDBLNKS 07757000 @NM00023 EQU ABDBLNKS 07758000 @NM00022 EQU ABDBLNKS 07759000 @NM00021 EQU ABDBLNKS 07760000 ABDBLKN3 EQU ABDBLNKS 07761000 @NM00020 EQU ABDUPRFN 07762000 @NM00019 EQU ABDUPRFN 07763000 @NM00018 EQU ABDUPRFN 07764000 @NM00017 EQU ABDUPRFN 07765000 @NM00016 EQU ABDUPRFN 07766000 @NM00015 EQU ABDUPRFN 07767000 ABDUPRSL EQU ABDUPRFN 07768000 ABDUPRPM EQU ABDUPRFN 07769000 @NM00014 EQU ABDUPRF 07770000 @NM00013 EQU ABDUPRF 07771000 @NM00012 EQU ABDUPRF 07772000 @NM00011 EQU ABDUPRF 07773000 @NM00010 EQU ABDUPRF 07774000 UPRFMT20 EQU ABDUPRF 07775000 UPRFMET EQU ABDUPRF 07776000 UPRFMAT EQU ABDUPRF 07777000 ABDFMTWK EQU ABDAREA+256 07778000 ABDLPTR EQU ABDAREA+252 07779000 ABDLLINE EQU ABDAREA+248 07780000 ABDBPTR EQU ABDAREA+244 07781000 @NM00009 EQU ABDRES1 07782000 ABDPGHD EQU ABDRES1 07783000 ABDSWAP EQU ABDFLAG2 07784000 ABDSPHD EQU ABDFLAG1 07785000 ABDSVCHD EQU ABDFLAG1 07786000 ABDSQSDM EQU ABDFLAG1 07787000 ABDLSTHD EQU ABDFLAG1 07788000 ABDQCBMN EQU ABDFLAG1 07789000 ABDQCBMJ EQU ABDFLAG1 07790000 ABDQCBHD EQU ABDFLAG1 07791000 ABDWORK1 EQU ABDAREA+120 07792000 ABDRESV3 EQU ABDAREA+116 07793000 ABDIOBP EQU ABDAREA+76 07794000 ABDLEN EQU ABDAREA+66 07795000 ABDTYPE EQU ABDAREA+64 07796000 ABDECB EQU ABDAREA+60 07797000 ABDTABPT EQU ABDAREA+44 07798000 @NM00008 EQU ABDAREA+36 07799000 ABDHDRAD EQU ABDPARMS+20 07800000 @NM00007 EQU ABDPARMS+7 07801000 @NM00006 EQU APFPDATA 07802000 APFSAVE2 EQU APFPDATA 07803000 @NM00005 EQU APFSDAT1 07804000 @NM00004 EQU ABDPARMS+2 07805000 APFHDR EQU ABDFLAG 07806000 APFENVS2 EQU ABDFLAG 07807000 APFVS2 EQU ABDFLAG 07808000 APFSNAP EQU ABDFLAG 07809000 @NM00003 EQU SPFLAG2 07810000 SPSALL EQU SPFLAG2 07811000 SPPSW EQU SPFLAG2 07812000 SPJPA EQU SPFLAG2 07813000 SPLPA EQU SPFLAG2 07814000 SPREGS EQU SPFLAG2 07815000 SPSAVE2 EQU SPFLAG2 07816000 SPSAVE EQU SPFLAG2 07817000 @NM00002 EQU SNAPLIST+1 07818000 @NM00088 EQU PSA+3668 07819000 PSASTAK EQU PSA+3072 07820000 @NM00087 EQU PSA+1048 07821000 PSAUSEND EQU PSA+1048 07822000 PSARV062 EQU PSA+1044 07823000 PSACDAL EQU PSA+1040 07824000 PSAWTCOD EQU PSA+1036 07825000 PSAATCVT EQU PSA+1032 07826000 PSAPCPSW EQU PSA+1024 07827000 PSAPIR2 EQU PSA+1020 07828000 PSARV059 EQU PSA+1018 07829000 PSASVC13 EQU PSA+1016 07830000 PSALSFCC EQU PSA+1012 07831000 PSASFACC EQU PSA+1008 07832000 PSASTOP EQU PSA+992 07833000 PSASTART EQU PSA+976 07834000 PSARSPSW EQU PSA+968 07835000 PSASRPSW EQU PSA+960 07836000 PSARV045 EQU PSA+892 07837000 PSARV044 EQU PSA+888 07838000 PSARV043 EQU PSA+884 07839000 PSARV042 EQU PSA+880 07840000 PSARV041 EQU PSA+876 07841000 PSARV040 EQU PSA+872 07842000 PSARV025 EQU PSA+868 07843000 PSADSSED EQU PSA+868 07844000 PSADSSPR EQU PSA+864 07845000 PSADSSFW EQU PSA+860 07846000 PSADSS14 EQU PSA+856 07847000 PSADSSPP EQU PSA+848 07848000 PSADSSRP EQU PSA+840 07849000 PSADSS05 EQU PSADSSF4 07850000 PSADSS10 EQU PSADSSF4 07851000 PSADSSVE EQU PSADSSF4 07852000 PSADSSDE EQU PSADSSF4 07853000 PSADSSC0 EQU PSADSSF4 07854000 PSADSSIE EQU PSADSSF4 07855000 PSADSS12 EQU PSADSSF4 07856000 PSADSSRC EQU PSADSSF4 07857000 PSARV057 EQU PSADSSF3 07858000 PSARV056 EQU PSADSSF3 07859000 PSARV055 EQU PSADSSF3 07860000 PSADSSMC EQU PSADSSF3 07861000 PSADSSRW EQU PSADSSF3 07862000 PSADSSNM EQU PSADSSF3 07863000 PSADSSES EQU PSADSSF3 07864000 PSADSSGP EQU PSADSSF3 07865000 PSADSSF2 EQU PSADSSFL+1 07866000 PSADSSPI EQU PSADSSF1 07867000 PSADSSOI EQU PSADSSF1 07868000 PSADSSSP EQU PSADSSF1 07869000 PSADSSTP EQU PSADSSF1 07870000 PSADSSDW EQU PSADSSF1 07871000 PSADSSDD EQU PSADSSF1 07872000 PSADSSDM EQU PSADSSF1 07873000 PSADSSMV EQU PSADSSF1 07874000 PSADSSTS EQU PSA+816 07875000 PSADSSWK EQU PSA+812 07876000 PSADSSR3 EQU PSA+808 07877000 PSADSSR2 EQU PSA+804 07878000 PSADSSRS EQU PSA+800 07879000 PSASTOR EQU PSA+796 07880000 PSACPUSA EQU PSA+794 07881000 PSAVSTAP EQU PSA+792 07882000 PSAWKVAP EQU PSA+788 07883000 PSAWKRAP EQU PSA+784 07884000 PSAMCHIC EQU PSA+783 07885000 PSARV061 EQU PSA+782 07886000 PSASYMSK EQU PSA+781 07887000 PSAMCHFL EQU PSA+780 07888000 PSACR0 EQU PSA+776 07889000 PSAPSWSV EQU PSA+768 07890000 PSACLHS EQU PSAHLHI 07891000 PSALKR15 EQU PSALKSA+60 07892000 PSALKR14 EQU PSALKSA+56 07893000 PSALKR13 EQU PSALKSA+52 07894000 PSALKR12 EQU PSALKSA+48 07895000 PSALKR11 EQU PSALKSA+44 07896000 PSALKR10 EQU PSALKSA+40 07897000 PSALKR9 EQU PSALKSA+36 07898000 PSALKR8 EQU PSALKSA+32 07899000 PSALKR7 EQU PSALKSA+28 07900000 PSALKR6 EQU PSALKSA+24 07901000 PSALKR5 EQU PSALKSA+20 07902000 PSALKR4 EQU PSALKSA+16 07903000 PSALKR3 EQU PSALKSA+12 07904000 PSALKR2 EQU PSALKSA+8 07905000 PSALKR1 EQU PSALKSA+4 07906000 PSALKR0 EQU PSALKSA 07907000 PSARV023 EQU PSACLHT+52 07908000 PSALOCAL EQU PSACLHT+48 07909000 PSACMSL EQU PSACLHT+44 07910000 PSAOPTL EQU PSACLHT+40 07911000 PSATPACL EQU PSACLHT+36 07912000 PSATPDNL EQU PSACLHT+32 07913000 PSATPNCL EQU PSACLHT+28 07914000 PSAIOSLL EQU PSACLHT+24 07915000 PSAIOSUL EQU PSACLHT+20 07916000 PSAIOSCL EQU PSACLHT+16 07917000 PSAIOSSL EQU PSACLHT+12 07918000 PSASALCL EQU PSACLHT+8 07919000 PSAASML EQU PSACLHT+4 07920000 PSADISPL EQU PSACLHT 07921000 PSASRSA EQU PSA+636 07922000 PSARV050 EQU PSA+634 07923000 PSADSSGO EQU PSA+633 07924000 PSARECUR EQU PSA+632 07925000 PSAHLHIS EQU PSA+628 07926000 PSAIPCSA EQU PSA+624 07927000 @NM00086 EQU PSA+621 07928000 PSAIPCDM EQU PSA+620 07929000 PSAIPCD EQU PSA+616 07930000 @NM00085 EQU PSA+613 07931000 PSAIPCRM EQU PSA+612 07932000 PSAIPCR EQU PSA+608 07933000 PSAMCHEX EQU PSA+600 07934000 PSAMPSW EQU PSA+592 07935000 PSAEXPS2 EQU PSA+584 07936000 PSAEXPS1 EQU PSA+576 07937000 PSAPIREG EQU PSA+572 07938000 PSARSREG EQU PSA+568 07939000 PSAGPREG EQU PSA+556 07940000 PSARV022 EQU PSASUP4 07941000 PSARV021 EQU PSASUP4 07942000 PSARV020 EQU PSASUP4 07943000 PSARV019 EQU PSASUP4 07944000 PSARV018 EQU PSASUP4 07945000 PSARV017 EQU PSASUP4 07946000 PSARV016 EQU PSASUP4 07947000 PSARV015 EQU PSASUP4 07948000 PSARV014 EQU PSASUP3 07949000 PSAULCMS EQU PSASUP3 07950000 PSARV012 EQU PSASUP3 07951000 PSAESTA EQU PSASUP3 07952000 PSASPR EQU PSASUP3 07953000 PSAPSREG EQU PSASUP3 07954000 PSAPI2 EQU PSASUP3 07955000 PSAIOSUP EQU PSASUP3 07956000 PSALCR EQU PSASUP2 07957000 PSARTM EQU PSASUP2 07958000 PSAACR EQU PSASUP2 07959000 PSAIPCE2 EQU PSASUP2 07960000 PSAIPCES EQU PSASUP2 07961000 PSAIPCEC EQU PSASUP2 07962000 PSAGTF EQU PSASUP2 07963000 PSAIPCRI EQU PSASUP2 07964000 PSATYPE6 EQU PSASUP1 07965000 PSATCTL EQU PSASUP1 07966000 PSADISP EQU PSASUP1 07967000 PSALOCK EQU PSASUP1 07968000 PSAPI EQU PSASUP1 07969000 PSAEXT EQU PSASUP1 07970000 PSASVC EQU PSASUP1 07971000 PSAIO EQU PSASUP1 07972000 PSAANEW EQU PSA+544 07973000 PSATOLD EQU PSA+540 07974000 PSATNEW EQU PSA+536 07975000 PSALCCAR EQU PSA+532 07976000 PSALCCAV EQU PSA+528 07977000 PSAPCCAR EQU PSA+524 07978000 PSAPCCAV EQU PSA+520 07979000 PSACPULA EQU PSA+518 07980000 PSACPUPA EQU PSA+516 07981000 PSAPSA EQU PSA+512 07982000 FLCHDEND EQU PSA+512 07983000 FLCCRSAV EQU FLCMCLA+280 07984000 FLCGRSAV EQU FLCMCLA+216 07985000 FLCFPSAV EQU FLCMCLA+184 07986000 FLCFLA EQU FLCMCLA+88 07987000 FLCRGNCD EQU FLCMCLA+84 07988000 FLCFSAA EQU FLCFSA+1 07989000 @NM00084 EQU FLCFSA 07990000 @NM00083 EQU FLCMCLA+72 07991000 FLCMCIC EQU FLCMCLA+64 07992000 @NM00082 EQU FLCMCLA+20 07993000 FLCIOAA EQU FLCIOA+1 07994000 @NM00081 EQU FLCIOA 07995000 @NM00080 EQU FLCMCLA+15 07996000 @NM00079 EQU FLCMCLA+14 07997000 @NM00078 EQU FLCMCLA+12 07998000 FLCLCL EQU FLCMCLA+8 07999000 FLCIOELA EQU FLCIOEL+1 08000000 @NM00077 EQU FLCIOEL 08001000 FLCCHNID EQU FLCMCLA 08002000 @NM00076 EQU PSA+160 08003000 FLCMTRCD EQU PSA+157 08004000 @NM00075 EQU PSA+156 08005000 FLCPERA EQU FLCPER+1 08006000 @NM00074 EQU FLCPER 08007000 @NM00073 EQU PSA+151 08008000 FLCPERCD EQU PSA+150 08009000 FLCMCNUM EQU PSA+149 08010000 @NM00072 EQU PSA+148 08011000 FLCTEAA EQU FLCTEA+1 08012000 @NM00071 EQU FLCTEA 08013000 PSAPIPC EQU PSAPICOD 08014000 PSAPIMC EQU PSAPICOD 08015000 PSAPIPER EQU PSAPICOD 08016000 PSARV049 EQU FLCPICOD 08017000 FLCPILCB EQU FLCPIILC 08018000 @NM00070 EQU FLCPIILC 08019000 @NM00069 EQU PSAEPPSW 08020000 FLCSVCN EQU PSAESPSW+2 08021000 FLCSILCB EQU FLCSVILC 08022000 @NM00068 EQU FLCSVILC 08023000 @NM00067 EQU PSAESPSW 08024000 FLCEICOD EQU PSAEEPSW+2 08025000 PSASPAD EQU PSAEEPSW 08026000 @NM00066 EQU PSA+128 08027000 FLCINPSW EQU PSA+120 08028000 FLCMNPSW EQU PSA+112 08029000 FLCPNPSW EQU PSA+104 08030000 FLCSNPSW EQU PSA+96 08031000 FLCENPSW EQU PSA+88 08032000 FLCTIMER EQU PSA+80 08033000 FLCCVT2 EQU PSA+76 08034000 FLCCAW EQU PSA+72 08035000 FLCCSW EQU PSA+64 08036000 FLCIOPSW EQU PSA+56 08037000 FLCMOPSW EQU PSA+48 08038000 FLCPOPSW EQU PSA+40 08039000 FLCSOPSW EQU PSA+32 08040000 FLCEOPSW EQU PSA+24 08041000 @NM00065 EQU FLCICCW2+4 08042000 FLCICCW1 EQU FLCROPSW 08043000 FLCIPPSW EQU FLCRNPSW 08044000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 08045000 @RC00313 EQU @RC00278 08046000 @RC00396 EQU @RC00384 08047000 @RC00425 EQU @RC00422 08048000 @RF00983 EQU @RC00961 08049000 @RC00315 EQU @RC00313 08050000 @ENDDATA EQU * 08051000 END IEAVAD01,(C'PLS1857',0701,78026) 08052000