TITLE 'IEAVAD0D - SNAP- USER SUBPOOLS *00001000 ' 00002000 IEAVAD0D CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVAD0D 78.097' 0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 0001 00010000 STM @00,@12,20(@13) 0001 00011000 BALR @06,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@06 0001 00014000 * @G33CPHE*/ 00015000 * 0101 00016000 * /*****************************************************************/ 00017000 * /* */ 00018000 * /* INITIALIZATION PROCEDURE IS TO SAVE THE CALLERS REGISTERS IN */ 00019000 * /* THE AREA PROVIDED, BUILD A CONDITIONAL GETMAIN PARAMETER LIST */ 00020000 * /* IN ABDGMA FOR THE AMOUNT OF STORAGE REQUIRED TO OPERATE AND TO*/ 00021000 * /* ISSUE THE GETMAIN SVC. IF THE GETMAIN FAILS, CONTROL IS */ 00022000 * /* RETURNED TO THE CALLER WITH A CODE OF EIGHT. OTHERWISE, THE */ 00023000 * /* SAVE AREAS ARE CHAINED TOGETHER, THE ADDRESS OF THE NEW SAVE */ 00024000 * /* AREA IS PLACED IN REGISTER 13 AND PROCESSING BEGINS */ 00025000 * /* */ 00026000 * /*****************************************************************/ 00027000 * 0101 00028000 * ABDARPTR=PARMPTR; /* ESTABLISH ADDR OF ABDAREA */ 00029000 LR ABDARPTR,PARMPTR 0101 00030000 * PARMPTR=ADDR(ABDASIZE); /* REG 1 POINTS TO PARM LIST FOR 00031000 * GETMAIN */ 00032000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0102 00033000 * GENERATE; 0103 00034000 * 0103 00035000 GETMAIN EC,LV=@ENDDATD-@DATD+72+3800, *00036000 SP=253, *00037000 A=ABDGMA(ABDARPTR), *00038000 MF=(E,(1)) 00039000 * /*****************************************************************/ 00040000 * /* */ 00041000 * /* IF GETMAIN FAILED THEN RETURN TO CALLER */ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 0104 00045000 * IF RETCODE^=0 THEN /* CHECK FOR NONZERO RET CODE */ 00046000 LTR RETCODE,RETCODE 0104 00047000 BZ @RF00104 0104 00048000 * DO; /* GETMAIN FAILED */ 00049000 * RETCODE=8; /* SET RETURN CODE @Y02705*/ 00050000 LA RETCODE,8 0106 00051000 * RETURN; /* BACK TO CALLER */ 00052000 @EL00001 DS 0H 0107 00053000 @EF00001 DS 0H 0107 00054000 @ER00001 L @14,12(,@13) 0107 00055000 LM @00,@12,20(@13) 0107 00056000 BR @14 0107 00057000 * END; 0108 00058000 * ELSE /* CONTINUE PROCESSING */ 00059000 * DO; /* @Y02705*/ 00060000 @RF00104 DS 0H 0110 00061000 * PARMPTR=ABDAAREA; /* RETRIEVE ADDR GOTTEN CORE */ 00062000 L PARMPTR,ABDAAREA(,ABDARPTR) 0110 00063000 * NEXTSAVE=PARMPTR; /* OLD SAVE POINTS TO NEW */ 00064000 ST PARMPTR,NEXTSAVE(,SAREG13) 0111 00065000 * PARMPTR->PREVSAVE=SAREG13; /* NEW SAVE POINTS BACK TO OLD 0112 00066000 * SAVE AREA */ 00067000 ST SAREG13,PREVSAVE(,PARMPTR) 0112 00068000 * SAREG13=PARMPTR; /* ESTABLISH ADDR OF NEW SAVE 0113 00069000 * AREA IN REGISTER 13 */ 00070000 * 0113 00071000 LR SAREG13,PARMPTR 0113 00072000 * /*************************************************************/ 00073000 * /* */ 00074000 * /* ESTABLISH BASE ADDR FOR TEMPORARY STORAGE */ 00075000 * /* */ 00076000 * /*************************************************************/ 00077000 * 0114 00078000 * ABDTABPT=PARMPTR+72; /* ADDR OF STORAGE TABLE PAST 0114 00079000 * SAVEAREA. @G33SPHW*/ 00080000 LA @10,72 0114 00081000 ALR @10,PARMPTR 0114 00082000 ST @10,ABDTABPT(,ABDARPTR) 0114 00083000 * AUTOPTR=ABDTABPT+TOTTBLSZ; /* ADDR OF TEMP IS GM AREA+ 0115 00084000 * SAVEAREA AND STORAGE TABLE 0115 00085000 * @G33SPHW*/ 00086000 AH @10,@CH00103 0115 00087000 LR AUTOPTR,@10 0115 00088000 * GENERATE; 0116 00089000 * 0116 00090000 USING @DATD,AUTOPTR ESTABLISH ADDRESSABILITY 00091000 XC 0(@ENDDATD-@DATD,AUTOPTR),0(AUTOPTR) 0 TEMP SPACE 00092000 * /*************************************************************/ 00093000 * /* */ 00094000 * /* INITIALIZE STORAGE TABLES @G33SPHW*/ 00095000 * /* */ 00096000 * /*************************************************************/ 00097000 * 0117 00098000 * SPQTBPTR=ABDTABPT; /* INITALIZE SPQE TABLE ADDRESS 00099000 * @G33SPHW*/ 00100000 L @10,ABDTABPT(,ABDARPTR) 0117 00101000 ST @10,SPQTBPTR 0117 00102000 * DQETBPTR=SPQTBPTR+SPTBSZ; /* GET DQE TABLE ADDRESS @G33SPHW*/ 00103000 AH @10,@CH00105 0118 00104000 ST @10,DQETBPTR 0118 00105000 * DQANCHOR=DQETBPTR; /* SAVE FIRST DQE TABLE ADDRESS 00106000 * @G33SPHW*/ 00107000 ST @10,DQANCHOR 0119 00108000 * FWDPTR=0; /* ZERO DQE FORWARD POINTER 0120 00109000 * @G33SPHW*/ 00110000 SLR @07,@07 0120 00111000 ST @07,FWDPTR(,@10) 0120 00112000 * BWDPTR=0; /* ZERO BWDPTR DQE POINTER 0121 00113000 * @G33SPHW*/ 00114000 ST @07,BWDPTR(,@10) 0121 00115000 * CTR=0; /* INITIALIZE SPQE COUNTER 0122 00116000 * @G33SPHW*/ 00117000 STH @07,CTR 0122 00118000 * MSGFLAG=0; /* INITIALIZE MESSAGE INDICATOR 00119000 * @G33SPHW*/ 00120000 STH @07,MSGFLAG 0123 00121000 * ASCBPTR=PSAAOLD; /* GET CURRENT ASCB ADDRESS 0124 00122000 * @G33SPHW*/ 00123000 MVC ASCBPTR(4),PSAAOLD 0124 00124000 * 0125 00125000 * /*************************************************************/ 00126000 * /* */ 00127000 * /* PROCESSING BEGINS. SET ALL TASKS IN THE JOBSTEP EXCEPT THE*/ 00128000 * /* CURRENT NONDISPATCHABLE FOR THE DURATION OF SUBPOOL */ 00129000 * /* PROCESSING IN AN EFFORT TO FREEZE CONTENTS OF STORAGE THE */ 00130000 * /* STEP IS ALREADY NONDISPATCHABLE IF DUMP IS NOT OF CURRENT */ 00131000 * /* TASK */ 00132000 * /* */ 00133000 * /*************************************************************/ 00134000 * 0125 00135000 * IF ABDTCB^=ABDCTCB /* CHECK IF DUMPED TASKS TCB ADDR 00136000 * AND CURRENT TASKS TCB ADDR ARE 00137000 * EQUAL */ 00138000 * THEN /* YES, NONDISPATCHABILITY 0125 00139000 * ALREADY SET */ 00140000 CLC ABDTCB(4,ABDARPTR),ABDCTCB(ABDARPTR) 0125 00141000 BNE @RT00125 0125 00142000 * GOTO GLOCAL1; /* BYPASS STATUS OPERATION 0126 00143000 * @YM06191*/ 00144000 * IF TCBLTC^=0& /* DOES TASK HAVE DAU. @Y02705*/ 00145000 * TCBLTC->TCBJSTCB=TCBLTC /* WHICH IS A JOB STEP @Y02705 00146000 * TASK @Y02705*/ 00147000 * THEN 0127 00148000 L @10,TCBPTR(,ABDARPTR) 0127 00149000 L @10,TCBLTC(,@10) 0127 00150000 CR @10,@07 0127 00151000 BE @RF00127 0127 00152000 C @10,TCBJSTCB(,@10) 0127 00153000 BE @RT00127 0127 00154000 * ; /* YES DO, NOT SET TSK @Y02705 00155000 * NON-DISPATCHABLE @Y02705*/ 00156000 * ELSE 0129 00157000 * DO; /* @Y02705*/ 00158000 @RF00127 DS 0H 0130 00159000 * TCBADMP='1'B; /* SET BIT ON IN CURRENT TCB 0130 00160000 * INDICATING THAT THIS TASK SET 00161000 * STEP NON DISPATCHABLE */ 00162000 L @10,TCBPTR(,ABDARPTR) 0130 00163000 OI TCBADMP(@10),B'00000010' 0130 00164000 * ABDSTAT='1'B; /* INDICATE STATUS HAS BEEN 0131 00165000 * ISSUED FOR RECOVERY IN THE 0131 00166000 * EVENT AN UNEXPECTED ERROR 0131 00167000 * OCCURS @YM06195*/ 00168000 OI ABDSTAT(ABDARPTR),B'00000010' 0131 00169000 * GENERATE; 0132 00170000 STATUS SET,ND,STEP,(1) SET TCBNDUMP ON IN ALL TCBS IN 00171000 * JOBSTEP EXCEPT THE CURRENT TASK 00172000 * END; 0133 00173000 * 0134 00174000 * /*************************************************************/ 00175000 * /* */ 00176000 * /* THIS SECTION CODE DETERMINES WHETHER SUBPLS @Y02705*/ 00177000 * /* IS TO BE DUMPED. THE LOCAL LOCK IS OBTAINED TO DUMP */ 00178000 * /* @Y02705*/ 00179000 * /* SUBPOOLS, @Y02705*/ 00180000 * /* */ 00181000 * /*************************************************************/ 00182000 * 0134 00183000 *GLOCAL1: /* @Y02705*/ 00184000 * GENERATE REFS(PSALITA,ABDWORK); 0134 00185000 @RT00127 DS 0H 0134 00186000 GLOCAL1 DS 0H 0134 00187000 * /* @Y02705*/ 00188000 STM 11,14,ABDWORK(ABDARPTR) SAVE REGS OVER SETLOCK @Y02705 00189000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, @Y02705*00190000 RELATED=(SUBPOOLS,IEAVAD0D(FLOCAL1)) @Y02705 00191000 LM 11,14,ABDWORK(ABDARPTR) RESTORE REGS @Y02705 00192000 * 0135 00193000 * /*************************************************************/ 00194000 * /* */ 00195000 * /* ALL OF THE SUBPOOLS DESCRIBED BY SPQE ON THE TCB OF THE */ 00196000 * /* TASK BEING DUMPED ARE DISPLAYED PROVIDED THAT THE */ 00197000 * /* FOLLOWING CONDITIONS ARE MET 1. THE SUBPOOL MUST BE A USER*/ 00198000 * /* SUBPOOL (0-127) 2. THE TASK BEING DISPLAYED IS THE OWNER */ 00199000 * /* OF THE SUBPOOL 3. THE TASK BEING DISPLAYED IS NOT THE */ 00200000 * /* OWNER OF THE SUBPOOL AND HAS KEY OF 0 AND THE OWNING TASK */ 00201000 * /* IS IN THE SAME JOBSTEP AS THE DUMPED TASK */ 00202000 * /* */ 00203000 * /*************************************************************/ 00204000 * 0135 00205000 *MAIN: /* PROCESS REST OF SUBPOOLS */ 00206000 * SPQESPTR=ABDTCB->TCBMSSB; /* ADDR OF LAST SPQE ON Q */ 00207000 MAIN L @10,ABDTCB(,ABDARPTR) 0135 00208000 SLR @07,@07 0135 00209000 ICM @07,7,TCBMSSB(@10) 0135 00210000 ST @07,SPQESPTR 0135 00211000 *MAINLOOP: /* ENTRY FOR SPQE LOOP */ 00212000 * 0136 00213000 * /*************************************************************/ 00214000 * /* */ 00215000 * /* EXIT WHEN ALL SPQES HAVE BEEN PROCESSED */ 00216000 * /* */ 00217000 * /*************************************************************/ 00218000 * 0136 00219000 * IF SPQESPTR^=0 /* ALL SPQES BEEN CHECKED */ 00220000 * THEN /* YES */ 00221000 MAINLOOP L @10,SPQESPTR 0136 00222000 LTR @10,@10 0136 00223000 BZ @RF00136 0136 00224000 * DO; /* DONE @Y02705*/ 00225000 * 0137 00226000 * /*********************************************************/ 00227000 * /* */ 00228000 * /* IGNORE SUBPOOL IF NOT A USER SUBPOOL */ 00229000 * /* */ 00230000 * /*********************************************************/ 00231000 * 0138 00232000 * IF ID>127 /* SUBPOOL NUMBER EXCEDE 127 */ 00233000 * THEN /* YES */ 00234000 CLI ID(@10),127 0138 00235000 BH @RT00138 0138 00236000 * GOTO NEXTSPQE; /* SKIP THIS SUBPOOL */ 00237000 * ELSE 0140 00238000 * ; /* CONTINUE WITH THIS SPQE */ 00239000 * 0140 00240000 * /*********************************************************/ 00241000 * /* */ 00242000 * /* IF TASK BEING DISPLAYED IS NOT OWNER THEN GO MAKE */ 00243000 * /* NECESSARY CHECKS */ 00244000 * /* */ 00245000 * /*********************************************************/ 00246000 * 0141 00247000 * IF SPSHARE='1'B /* TASK NOT THE OWNER */ 00248000 * THEN /* YES */ 00249000 TM SPSHARE(@10),B'10000000' 0141 00250000 BO @RT00141 0141 00251000 * GOTO NOTOWNER; /* GO MAKE NECESSARY CHECKS */ 00252000 * ELSE 0143 00253000 * ; /* DISPLAY SUBPOOL */ 00254000 * SPID=SPQEID; /* ESTABLISH IDENTIFIER */ 00255000 MVC SPID(1),SPQEID(@10) 0144 00256000 * CTR=CTR+1; /* BUMP COUNTER @G33SPHW*/ 00257000 LA @07,1 0145 00258000 AH @07,CTR 0145 00259000 STH @07,CTR 0145 00260000 * SPQADDR(CTR)=SPQESPTR; /* SAVE SPQE POINTER @G33SPHW*/ 00261000 L @09,SPQTBPTR 0146 00262000 SLA @07,3 0146 00263000 LA @08,0(@07,@09) 0146 00264000 AL @08,@CF02318 0146 00265000 ST @10,SPQADDR(,@08) 0146 00266000 * SPQSUB(CTR)=SPQEID; /* SAVE SUBPOOL NUMBER @G33SPHW*/ 00267000 SLR @00,@00 0147 00268000 IC @00,SPQEID(,@10) 0147 00269000 AL @09,@CF02319 0147 00270000 STH @00,SPQSUB-4(@07,@09) 0147 00271000 *NEXTSPQE: 0148 00272000 * SPQESPTR=SPQEPTR; /* GET ADDR OF NEXT SPQE ON Q */ 00273000 NEXTSPQE L @10,SPQESPTR 0148 00274000 L @10,SPQEPTR(,@10) 0148 00275000 ST @10,SPQESPTR 0148 00276000 * GOTO MAINLOOP; /* PROCESS */ 00277000 B MAINLOOP 0149 00278000 * END; /* SPQE NOT ZERO @G33SPHW*/ 00279000 * ELSE /* END OF SPQES @G33SPHW*/ 00280000 * DO; /* PROCESS SPQE TABLE @G33SPHW*/ 00281000 * 0151 00282000 @RF00136 DS 0H 0152 00283000 * /*********************************************************/ 00284000 * /* */ 00285000 * /* THIS SECTION OF THE ROUTINE SEARCHES FOR THE SPQE FOR */ 00286000 * /* SUBPOOL 252 ON THE JOBSTEP TCB OF THE CURRENT TASK. IN*/ 00287000 * /* THE EVENT THAT THE SPQE IS NOT FOUND, SUBPOOL 252 */ 00288000 * /* PROCESSING IS IGNORED */ 00289000 * /* */ 00290000 * /*********************************************************/ 00291000 * 0152 00292000 *SP252RT: 0152 00293000 * SPQESPTR=TCBJSTCB->TCBMSSB;/* SET ADDR OF LAST SPQE */ 00294000 SP252RT L @10,TCBPTR(,ABDARPTR) 0152 00295000 L @10,TCBJSTCB(,@10) 0152 00296000 SLR @07,@07 0152 00297000 ICM @07,7,TCBMSSB(@10) 0152 00298000 ST @07,SPQESPTR 0152 00299000 *SP252LP: /* REENTER FROM SEARCH LOOP */ 00300000 * 0153 00301000 * /*********************************************************/ 00302000 * /* */ 00303000 * /* CHECK IF SUBPOOL 252 SPQE HAS BEEN FOUND */ 00304000 * /* */ 00305000 * /*********************************************************/ 00306000 * 0153 00307000 * IF ID=252 /* IS THIS SPQE FOR SP 252 */ 00308000 * THEN /* YES */ 00309000 SP252LP L @10,SPQESPTR 0153 00310000 CLI ID(@10),252 0153 00311000 BE @RT00153 0153 00312000 * GOTO GOLOC; /* GO PROCESS IT */ 00313000 * ELSE 0155 00314000 * ; /* NO, CONTINUE SEARCH */ 00315000 * SPQESPTR=SPQEPTR; /* ADDR OF NEXT SPQE ON QUEUE */ 00316000 L @10,SPQEPTR(,@10) 0156 00317000 ST @10,SPQESPTR 0156 00318000 * 0157 00319000 * /*********************************************************/ 00320000 * /* */ 00321000 * /* IF THE LAST SPQE HAS BEEN SEARCHED THEN NO SUBPOOL 252*/ 00322000 * /* EXISTS AND PROCESSING OF IT IS BYPASS. THIS BRANCH */ 00323000 * /* SHOULD NEVER BE TAKEN */ 00324000 * /* */ 00325000 * /*********************************************************/ 00326000 * 0157 00327000 * IF SPQESPTR=0 /* ALL SPQES CHECKED */ 00328000 * THEN /* YES, BYPASS 252 PROCESSING */ 00329000 LTR @10,@10 0157 00330000 BZ @RT00157 0157 00331000 * GOTO SPPROCES; /* GO PROCESS SPQE TABLE @G33SPHW*/ 00332000 * ELSE 0159 00333000 * ; /* CONTINUE SEARCH */ 00334000 * GOTO SP252LP; /* KEEP LOOKING */ 00335000 B SP252LP 0160 00336000 *GOLOC: /* PROCESS SUBPOOL 252 */ 00337000 * CTR=CTR+1; /* BUMP ENTRY COUNTER @G33SPHW*/ 00338000 GOLOC LA @10,1 0161 00339000 AH @10,CTR 0161 00340000 STH @10,CTR 0161 00341000 * SPQADDR(CTR)=SPQESPTR; /* SAVE SPQE POINTER @G33SPHW*/ 00342000 L @07,SPQESPTR 0162 00343000 L @09,SPQTBPTR 0162 00344000 SLA @10,3 0162 00345000 LA @08,0(@10,@09) 0162 00346000 AL @08,@CF02318 0162 00347000 ST @07,SPQADDR(,@08) 0162 00348000 * SPQSUB(CTR)=SPQEID; /* SAVE SUBPOOL NUMBER @G33SPHW*/ 00349000 SLR @00,@00 0163 00350000 IC @00,SPQEID(,@07) 0163 00351000 AL @09,@CF02319 0163 00352000 STH @00,SPQSUB-4(@10,@09) 0163 00353000 * END; /* EXIT WITH 0 RET CDE */ 00354000 *SPPROCES: 0165 00355000 * 0165 00356000 */* **************************************************************** */ 00357000 */* FUNCTION- SPQEPRCS - PROCESS SPQE TABLE ENTRIES */ 00358000 */* 1 - INVOKE SPQE SORT */ 00359000 */* 2 - COLLECT DQES FOR EACH SUBPOOL */ 00360000 */* 3 - INVOKE DQE SORT */ 00361000 */* 4 - INVOKE DQE PRINT */ 00362000 */* 5 - FREE TABLES */ 00363000 */* @G33SPHW */ 00364000 */* **************************************************************** */ 00365000 * 0165 00366000 * SPQLIMIT=CTR; /* SAVE NUMBER OF SPQE @G33SPHW*/ 00367000 SPPROCES MVC SPQLIMIT(2),CTR 0165 00368000 * CALL SPQESORT; /* SORT SPQE TABLE BY SUBPOOL 0166 00369000 * @G33SPHW*/ 00370000 * 0166 00371000 BAL @14,SPQESORT 0166 00372000 * /*************************************************************/ 00373000 * /* */ 00374000 * /* ON RETURN FROM SPQESORT THE SUBPOOLS WILL BE IN ASCENDING */ 00375000 * /* ORDER. @G33SPHW*/ 00376000 * /* */ 00377000 * /*************************************************************/ 00378000 * 0167 00379000 * CTR=1; /* INITIALIZE LOOP COUNTER 0167 00380000 * @G33SPHW*/ 00381000 MVC CTR(2),@CH00060 0167 00382000 *SPQELOOP: /* PROCESS SPQE TABLE @G33SPHW*/ 00383000 * DO CTR=1 TO SPQLIMIT; /* PROCESS ALL SPQES IN SPQE 0168 00384000 * TABLE @G33SPHW*/ 00385000 SPQELOOP LA @10,1 0168 00386000 B @DE00168 0168 00387000 @DL00168 DS 0H 0169 00388000 * SPQESPTR=SPQADDR(CTR); /* GET SPQE ADDRESS FROM TABLE 0169 00389000 * @G33SPHW*/ 00390000 SLA @10,3 0169 00391000 L @07,SPQTBPTR 0169 00392000 AL @07,@CF02318 0169 00393000 L @10,SPQADDR(@10,@07) 0169 00394000 ST @10,SPQESPTR 0169 00395000 * DQESEPTR=SPDQEAD; /* GET DQE POINTER @G33SPHW*/ 00396000 MVC DQESEPTR(4),SPDQEAD(@10) 0170 00397000 * CTR1=0; /* INITIALIZE COUNTER @G33SPHW*/ 00398000 SLR @10,@10 0171 00399000 STH @10,CTR1 0171 00400000 * ABDSPHD='1'B; /* PRINT HEADING FOR EACH SUBPOOL 00401000 * @G33SPHW*/ 00402000 OI ABDSPHD(ABDARPTR),B'00000010' 0172 00403000 * DQELIMIT=0; /* ZERO TOTAL ENTRIES COUNTER 0173 00404000 * @G33SPHW*/ 00405000 STH @10,DQELIMIT 0173 00406000 * DO WHILE DQESEPTR^=0; /* LOOP THRU ALL DQES ON CHAIN 0174 00407000 * @G33SPHW*/ 00408000 B @DE00174 0174 00409000 @DL00174 DS 0H 0175 00410000 * CTR1=CTR1+1; /* BUMP LOOP COUNTER @G33SPHW*/ 00411000 LA @10,1 0175 00412000 AH @10,CTR1 0175 00413000 STH @10,CTR1 0175 00414000 * IF CTR1>LIMIT THEN /* TABLE FULL @G33SPHW*/ 00415000 CH @10,@CH00101 0176 00416000 BNH @RF00176 0176 00417000 * DO; /* YES.... @G33SPHW*/ 00418000 * CTR1=CTR1-1; /* BACKUP TO LAST ENTRY @G33SPHW*/ 00419000 BCTR @10,0 0178 00420000 STH @10,CTR1 0178 00421000 * DQELIMIT=DQELIMIT+CTR1;/* SAVE ENTRY COUNT @G33SPHW*/ 00422000 AH @10,DQELIMIT 0179 00423000 STH @10,DQELIMIT 0179 00424000 * CALL D0DDQTBL; /* GET A NEW DQE TABLE @G33SPHW*/ 00425000 BAL @14,D0DDQTBL 0180 00426000 * IF RETCODE^=0 THEN /* ERROR GETTING TABLE @G33SPHW*/ 00427000 LTR RETCODE,RETCODE 0181 00428000 BNZ @RT00181 0181 00429000 * GOTO EXITSPQE; /* YES .. EXIT DO WHILE @G33SPHW*/ 00430000 * END; /* END... TABLE FULL @G33SPHW*/ 00431000 * DQELOC(CTR1)=DQESEPTR; /* SAVE DQE ADDRESS @G33SPHW*/ 00432000 @RF00176 L @10,DQESEPTR 0184 00433000 L @07,DQETBPTR 0184 00434000 LH @09,CTR1 0184 00435000 SLA @09,3 0184 00436000 ST @10,DQELOC-8(@09,@07) 0184 00437000 * DQEBLK(CTR1)=DQEBLKAD; /* SAVE ADDRESS DQE POINTS AT 0185 00438000 * @G33SPHW*/ 00439000 L @00,DQEBLKAD(,@10) 0185 00440000 ST @00,DQEBLK-8(@09,@07) 0185 00441000 * DQESEPTR=DQEPTR; /* NEXT DQE ADDRESS @G33SPHW*/ 00442000 L @10,DQEPTR(,@10) 0186 00443000 ST @10,DQESEPTR 0186 00444000 * END; /* END ..DO WHILE @G33SPHW*/ 00445000 @DE00174 ICM @10,15,DQESEPTR 0187 00446000 BNZ @DL00174 0187 00447000 *EXITSPQE: 0188 00448000 * DQELIMIT=DQELIMIT+CTR1; /* SAVE NUMBER OF ENTRIES 0188 00449000 * @G33SPHW*/ 00450000 EXITSPQE LH @10,DQELIMIT 0188 00451000 AH @10,CTR1 0188 00452000 STH @10,DQELIMIT 0188 00453000 * SPIDA=SPQSUB(CTR); /* ESTABLISH SUBPOOL @G33SPHW*/ 00454000 LH @10,CTR 0189 00455000 SLA @10,3 0189 00456000 L @07,SPQTBPTR 0189 00457000 AL @07,@CF02319 0189 00458000 LH @10,SPQSUB-4(@10,@07) 0189 00459000 STC @10,SPIDA 0189 00460000 * CALL DQESORT; /* SORT DQE TABLE @G33SPHW*/ 00461000 * 0190 00462000 BAL @14,DQESORT 0190 00463000 * /***********************************************************/ 00464000 * /* */ 00465000 * /* ON RETURN FROM DQESORT DQE TABLE WILL BE IN ASCENDING */ 00466000 * /* ORDER BY DQE BLOCK ADDRESS @G33SPHW*/ 00467000 * /* */ 00468000 * /***********************************************************/ 00469000 * 0191 00470000 * CALL DQEPRINT; /* PROCESS EACH DQE @G33SPHW*/ 00471000 * 0191 00472000 BAL @14,DQEPRINT 0191 00473000 * /***********************************************************/ 00474000 * /* */ 00475000 * /* UPON RETURN FROM DQEPRINT ALL AREAS DESCRIBED BY THE */ 00476000 * /* DQES IN THE TABLE WILL HAVE BEEN PRINTED. @G33SPHW*/ 00477000 * /* */ 00478000 * /***********************************************************/ 00479000 * 0192 00480000 * END; /* END .. DO SPQE END @G33SPHW*/ 00481000 LA @10,1 0192 00482000 AH @10,CTR 0192 00483000 @DE00168 STH @10,CTR 0192 00484000 CH @10,SPQLIMIT 0192 00485000 BNH @DL00168 0192 00486000 *EXIT: /* NORMAL EXIT POINT */ 00487000 * RETCODE=0; /* SET RETURN CODE TO CALLER */ 00488000 EXIT SLR RETCODE,RETCODE 0193 00489000 *EXITA: /* ABNORMAL EXIT POINT */ 00490000 * SAVERET=RETCODE; /* SAVE RETURN CODE OVER EXIT 0194 00491000 * LOGIC */ 00492000 EXITA LR SAVERET,RETCODE 0194 00493000 *FLOCALE: /* @YM03642*/ 00494000 * GENERATE REFS(PSALITA,ABDWORK); 0195 00495000 * 0195 00496000 FLOCALE DS 0H 0195 00497000 * /* @YM03642*/ 00498000 STM 11,14,ABDWORK(ABDARPTR) SAVE REGS OVER SETLOCK @YM03642 00499000 SETLOCK RELEASE,TYPE=LOCAL, @YM03642*00500000 RELATED=(SUBPOOLS,IEAVAD0D(GLOCAL1)) @YM03642 00501000 LM 11,14,ABDWORK(ABDARPTR) RESTORE REGS @YM03642 00502000 * /*************************************************************/ 00503000 * /* */ 00504000 * /* IF ROUTINE SET JOBSTEP NONDISPATCHABLE THEN IT MUST RESET */ 00505000 * /* ALL TASKS DISPATCHABLE */ 00506000 * /* */ 00507000 * /*************************************************************/ 00508000 * 0196 00509000 * IF ABDTCB^=ABDCTCB /* WERE TASKS SET NONDISPATCH */ 00510000 * THEN /* NO */ 00511000 CLC ABDTCB(4,ABDARPTR),ABDCTCB(ABDARPTR) 0196 00512000 BNE @RT00196 0196 00513000 * GOTO FREE; /* SKIP STATUS PROCESSING */ 00514000 * ELSE 0198 00515000 * ; /* RESET DISPATCHABILITY */ 00516000 * IF TCBLTC^=0& /* DOES TASK HAVE DAU. @Y02705*/ 00517000 * TCBLTC->TCBJSTCB=TCBLTC /* WHICH IS A JOB STP @Y02705*/ 00518000 * THEN 0199 00519000 L @10,TCBPTR(,ABDARPTR) 0199 00520000 L @10,TCBLTC(,@10) 0199 00521000 LTR @10,@10 0199 00522000 BZ @RF00199 0199 00523000 C @10,TCBJSTCB(,@10) 0199 00524000 BE @RT00199 0199 00525000 * ; /* TASK @Y02705*/ 00526000 * ELSE 0201 00527000 * DO; 0201 00528000 @RF00199 DS 0H 0202 00529000 * ABDSTAT='0'B; /* INDICATE TO RECOVERY THAT 0202 00530000 * STATUS RESET NEED NOT BE 0202 00531000 * ISSUED IF UNEXPECTED ERRORS 0202 00532000 * OCCUR @YM06195*/ 00533000 NI ABDSTAT(ABDARPTR),B'11111101' 0202 00534000 * GENERATE; 0203 00535000 STATUS RESET,ND,STEP,(1) TURN TCBNDUMP OFF IN ALL TASKS 00536000 * OF JOBSTEP 00537000 * TCBADMP='0'B; /* RESET INDICATOR THAT MEANS 0204 00538000 * THIS TASK SET TCBNDUMP ON */ 00539000 L @10,TCBPTR(,ABDARPTR) 0204 00540000 NI TCBADMP(@10),B'11111101' 0204 00541000 * END; /* @Y02Y05*/ 00542000 *FREE: /* ENTERED TO SKIP STATUS */ 00543000 * 0206 00544000 * /*************************************************************/ 00545000 * /* */ 00546000 * /* FREE THE THE DQE TABLES @G33SPHW*/ 00547000 * /* */ 00548000 * /*************************************************************/ 00549000 * 0206 00550000 *CKTBL: 0206 00551000 * DQETBPTR=DQANCHOR; /* INIT TABLE POINTER @G33SPHW*/ 00552000 @RT00199 DS 0H 0206 00553000 FREE DS 0H 0206 00554000 CKTBL L @10,DQANCHOR 0206 00555000 ST @10,DQETBPTR 0206 00556000 * DQANCHOR=FWDPTR; /* SAVE NEXT TABLE ADDRESS 0207 00557000 * @G33SPHW*/ 00558000 MVC DQANCHOR(4),FWDPTR(@10) 0207 00559000 * DO WHILE(DQANCHOR^=0); /* LOOP THRU ALL TABLES @G33SPHW*/ 00560000 B @DE00208 0208 00561000 @DL00208 DS 0H 0209 00562000 * DQETBPTR=DQANCHOR; /* GET ADDRESS TO FREE @G33SPHW*/ 00563000 L @10,DQANCHOR 0209 00564000 ST @10,DQETBPTR 0209 00565000 * DQANCHOR=FWDPTR; /* NEXT TABLE ADDRESS @G33SPHW*/ 00566000 MVC DQANCHOR(4),FWDPTR(@10) 0210 00567000 * DO; /* FREEMAIN(RC) 0211 00568000 * LV(TABSZ)A(DQETBPTR->I256C) 0211 00569000 * SP(253) */ 00570000 * RESPECIFY 0212 00571000 * (GPR01F, 0212 00572000 * GPR15F, 0212 00573000 * GPR00F) RESTRICTED; 0212 00574000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 00575000 SLR GPR01F,GPR01F 0213 00576000 * GPR15F=1; /* SET TYPE */ 00577000 LA GPR15F,1 0214 00578000 * GPR00F=TABSZ; /* LENGTH REQUESTED */ 00579000 LA GPR00F,2520 0215 00580000 * GPR01F=ADDR(DQETBPTR->I256C);/* SET REGISTER ONE */ 00581000 LR GPR01F,@10 0216 00582000 * GPR15F=GPR15F+((253)*256);/* SUBPOOL VALUE */ 00583000 AL GPR15F,@CF02315 0217 00584000 * SVC(120); /* RC/RU-FORM OF GETMAIN */ 00585000 SVC 120 0218 00586000 * RESPECIFY 0219 00587000 * (GPR01F, 0219 00588000 * GPR15F, 0219 00589000 * GPR00F) UNRESTRICTED; 0219 00590000 * END; /* FREEMAIN(RC) 0220 00591000 * LV(TABSZ)A(DQETBPTR->I256C) 0220 00592000 * SP(253) FREE TABLE @G33SPHW*/ 00593000 * END; /* END DO WHILE DQANCHOR NOT ZERO 00594000 * @G33SPHW*/ 00595000 @DE00208 ICM @10,15,DQANCHOR 0221 00596000 BNZ @DL00208 0221 00597000 * IF MSGFLAG=1 THEN /* ERROR IN GETMAIN @G33SPHW*/ 00598000 CLC MSGFLAG(2),@CH00060 0222 00599000 BNE @RF00222 0222 00600000 * DO; 0223 00601000 * ABDLINEA(1:43)=STORMSG; /* PUT ERROR MESSAGE IN BUFFER 0224 00602000 * @G33SPHW*/ 00603000 MVC ABDLINEA(43,ABDARPTR),STORMSG 0224 00604000 * PARMPTR=ABDARPTR; /* POINT AT WORKAREA @G33SPHW*/ 00605000 LR PARMPTR,ABDARPTR 0225 00606000 * CALL IEAVAD11; /* PRINT MESSAGE NO STORAGE 0226 00607000 * @G33SPHW*/ 00608000 L @15,@CV00054 0226 00609000 BALR @14,@15 0226 00610000 * RETCODE=0; /* RESET RETCODE SO SNAP CONT. 0227 00611000 * @G33SPHW*/ 00612000 SLR RETCODE,RETCODE 0227 00613000 * END; /* END MSGFLAG ON @G33SPHW*/ 00614000 * PARMPTR=SAREG13; /* ADDR OF SPACE TO BE FREED */ 00615000 @RF00222 LR PARMPTR,SAREG13 0229 00616000 * SAREG13=SAREG13->PREVSAVE; /* RESTORE CALLERS SAVE AREA 0230 00617000 * ADDRESS */ 00618000 L SAREG13,PREVSAVE(,SAREG13) 0230 00619000 * GENERATE; 0231 00620000 LA 0,@ENDDATD-@DATD+72+3800 SZ OF SPACE TO BE FREED 00621000 ICM 0,8,K253 SUBPOOL NUMBER 00622000 SVC 10 FREEMAIN SVC 00623000 B BYCON AROUND CONSTANT 00624000 K253 DC X'FD00' SUBPOOL NUMBER FOR FREEMAIN 00625000 BYCON EQU * 00626000 * RETCODE=SAVERET; /* RETSORE RETURN CODE */ 00627000 LR RETCODE,SAVERET 0232 00628000 * RETURN; /* RETURN TO MIAINLINE */ 00629000 B @EL00001 0233 00630000 * END; /* @Y02705*/ 00631000 *NOTOWNER: /* MAKE CHECKS FOR NON OWNED 0235 00632000 * SUBPOOLS */ 00633000 * SEARCHAD=SPDQEAD; /* SET ADDR OF DESIRED SPQE TO 0235 00634000 * ADDR OF OWNERS SPQE */ 00635000 NOTOWNER L @10,SPQESPTR 0235 00636000 MVC SEARCHAD(4),SPDQEAD(@10) 0235 00637000 * SAVESPQE=SPQESPTR; /* SAVE SPQE ADDR OVER SEARCH */ 00638000 * 0236 00639000 LR SAVESPQE,@10 0236 00640000 * /*****************************************************************/ 00641000 * /* */ 00642000 * /* SUBPOOL CAN BE DISPLAYED IF TASK IS NOT KEY0 @YM02620*/ 00643000 * /* */ 00644000 * /*****************************************************************/ 00645000 * 0237 00646000 * IF TCBFLAG^='0000'B THEN 0237 00647000 L @10,TCBPTR(,ABDARPTR) 0237 00648000 TM TCBFLAG(@10),B'11110000' 0237 00649000 BNZ @RT00237 0237 00650000 * GOTO GETDQE; /* GO FIND DQE FOR SUBPOOL */ 00651000 * ELSE 0239 00652000 * ; /* CONTINUE CHECKS */ 00653000 * MOMTCB=ABDTCB; /* SET FOR SEARCH FOR OWNER */ 00654000 MVC MOMTCB(4),ABDTCB(ABDARPTR) 0240 00655000 *NEXTMOM: /* CHECK TCB FOR OWNERSHIP */ 00656000 * MOMTCB=MOMTCB->TCBOTC; /* TASK BY LOOKING UP THE 0241 00657000 * MATRIARCHY FOR THE TASK WITH 00658000 * THE SPQE ON ITS TCB */ 00659000 * 0241 00660000 NEXTMOM L @10,MOMTCB 0241 00661000 L @10,TCBOTC(,@10) 0241 00662000 ST @10,MOMTCB 0241 00663000 * /*****************************************************************/ 00664000 * /* */ 00665000 * /* IF ALL MOTHER TASKS HAVE BEEN CHECKED FOR OWNERSHIP AND THE */ 00666000 * /* OWNING TASK WAS NOT FOUND, THE SUBPOOL CANNOT BE DISPLAYED */ 00667000 * /* */ 00668000 * /*****************************************************************/ 00669000 * 0242 00670000 * IF MOMTCB=0 /* OWNING TASK NOT IN MATRIARCHY */ 00671000 * THEN /* YES,OWNING TASK NOT FOUND */ 00672000 LTR @10,@10 0242 00673000 BZ @RT00242 0242 00674000 * GOTO NODISP; /* PRINT MESSAGE, SUPPRESS PRINT 00675000 * OF SUBPOOL */ 00676000 * ELSE 0244 00677000 * ; /* CONTINUE SEARCH AND CHECKS */ 00678000 * SPQESPTR=MOMTCB->TCBMSSB; /* GET ADDR OF SPQE */ 00679000 SLR @07,@07 0245 00680000 ICM @07,7,TCBMSSB(@10) 0245 00681000 ST @07,SPQESPTR 0245 00682000 *CKNXTSPQ: /* CHECK SPQE FOR OWNER SPQE */ 00683000 * 0246 00684000 * /*****************************************************************/ 00685000 * /* */ 00686000 * /* IF OUT OF SPQES ON THIS TASK THEN THIS TASK IS NOT THE OWNER */ 00687000 * /* OF THE SUBPOOL */ 00688000 * /* */ 00689000 * /*****************************************************************/ 00690000 * 0246 00691000 * IF SPQESPTR=0 /* HAS LAST SPQE BEEN CHECKED */ 00692000 * THEN /* YES */ 00693000 CKNXTSPQ L @10,SPQESPTR 0246 00694000 LTR @10,@10 0246 00695000 BZ @RT00246 0246 00696000 * GOTO NEXTMOM; /* TO GET NEXT TASK IN MATRIARCHY*/ 00697000 * ELSE 0248 00698000 * ; /* CHECK THIS SPQE */ 00699000 * 0248 00700000 * /*****************************************************************/ 00701000 * /* */ 00702000 * /* CHECK IF THIS IS THE SPQE THAT THE ROTUINE HAS BEEN SEARCHING */ 00703000 * /* FOR. IF NOT, GET THE ADDRESS OF THE NEXT SPQE ON THE QUEUE AND*/ 00704000 * /* CONTINUE SEARCHING */ 00705000 * /* */ 00706000 * /*****************************************************************/ 00707000 * 0249 00708000 * IF SPQESPTR^=SEARCHAD /* SPQE THE ONE SEARCHED FOR */ 00709000 * THEN /* NO */ 00710000 C @10,SEARCHAD 0249 00711000 BE @RF00249 0249 00712000 * DO; /* GET NEXT SPQE AND LOOP */ 00713000 * SPQESPTR=SPQEPTR; /* GET ADDRESS NEXT SPQE */ 00714000 L @10,SPQEPTR(,@10) 0251 00715000 ST @10,SPQESPTR 0251 00716000 * GOTO CKNXTSPQ; /* PROCESS IT */ 00717000 B CKNXTSPQ 0252 00718000 * END; 0253 00719000 * ELSE 0254 00720000 * ; /* SPQE FOUND, GO CHECK TASK 0254 00721000 * STRUCTURE */ 00722000 @RF00249 DS 0H 0255 00723000 * 0255 00724000 * /*****************************************************************/ 00725000 * /* */ 00726000 * /* THE SUBPOOL CAN ONLY BE DISPLAYED IF THE OWNING TASK IS IN THE*/ 00727000 * /* SAME JOBSTEP AS THE DUMPED TASK. THIS IS BECAUSE ONLY THE */ 00728000 * /* JOBSTEP STRUCTURE HAS BEEN SET NONDISPATCHABLE AND IF THE */ 00729000 * /* OWNING TASK IS NOT IN THE JOBSTEP THEN VALIDITY AND INTEGRITY */ 00730000 * /* CANNOT BE MAINTAINED */ 00731000 * /* */ 00732000 * /*****************************************************************/ 00733000 * 0255 00734000 * IF MOMTCB->TCBJSTCA^=ABDTCB->TCBJSTCA/* ARE TASKS IN SAME JOBSTEP*/ 00735000 * THEN /* NO, DISPLAY IMPOSSIBLE */ 00736000 L @10,ABDTCB(,ABDARPTR) 0255 00737000 L @07,MOMTCB 0255 00738000 CLC TCBJSTCA(3,@07),TCBJSTCA(@10) 0255 00739000 BNE @RT00255 0255 00740000 * GOTO NODISP; /* SUPPRESS DISPLAY AND PRINT 0256 00741000 * MESSAGE */ 00742000 * ELSE 0257 00743000 * ; /* GET DQE ADDR AND RETURN TO 0257 00744000 * DISPLAY SUBPOOL */ 00745000 *GETDQE: /* SET TO DISPLAY SUBPOOL */ 00746000 * SPQESPTR=SAVESPQE; /* RESTORE SPQE ADDRESS */ 00747000 GETDQE ST SAVESPQE,SPQESPTR 0258 00748000 * CTR=CTR+1; /* BUMP SPQE ENTRY COUNTER 0259 00749000 * @G33SPHW*/ 00750000 LA @10,1 0259 00751000 AH @10,CTR 0259 00752000 STH @10,CTR 0259 00753000 * SPQADDR(CTR)=SEARCHAD; /* SAVE SHARED SPQE ADDRESS 0260 00754000 * @G33SPHW*/ 00755000 L @07,SPQTBPTR 0260 00756000 SLA @10,3 0260 00757000 L @00,SEARCHAD 0260 00758000 LA @09,0(@10,@07) 0260 00759000 AL @09,@CF02318 0260 00760000 ST @00,SPQADDR(,@09) 0260 00761000 * SPQSUB(CTR)=SPQEID; /* SAVE SUBPOOL NUMBER @G33SPHW*/ 00762000 L @09,SPQESPTR 0261 00763000 SLR @00,@00 0261 00764000 IC @00,SPQEID(,@09) 0261 00765000 AL @07,@CF02319 0261 00766000 STH @00,SPQSUB-4(@10,@07) 0261 00767000 * GOTO NEXTSPQE; /* BACK TO INLINE CODE */ 00768000 B NEXTSPQE 0262 00769000 *NODISP: /* PRINT MESSAGE INDICATING 0263 00770000 * SUBPOOL NOT DISPLAYED */ 00771000 * MNDMSG=NDMSG; /* MOVE NO DISPLAY OF SUBPOOL 0263 00772000 * MESSAGE TO LINE */ 00773000 NODISP MVC MNDMSG(26,ABDARPTR),NDMSG 0263 00774000 * GENERATE SETS(ABDWORK,ABDWORK1,ABDLINE); 0264 00775000 SR 15,15 0 WORK REGISTER 00776000 IC 15,SPQEID(SAVESPQE) GET SUBPOOL NUMBER 00777000 CVD 15,ABDWORK1(ABDARPTR) CONVERT ID TO DECIMAL 00778000 UNPK ABDWORK(7,ABDARPTR),ABDWORK1+5(4,ABDARPTR) UNPCK RESULT 00779000 MVC ABDLINE+8(3,ABDARPTR),ABDWORK+2(ABDARPTR) MOVE TO MSG 00780000 * PARMPTR=ABDARPTR; /* PARAMETER TO PRINT */ 00781000 LR PARMPTR,ABDARPTR 0265 00782000 *FLOCAL: 0266 00783000 * GENERATE REFS(PSALITA,ABDWORK); 0266 00784000 FLOCAL DS 0H 0266 00785000 * /* @Y02705*/ 00786000 STM 11,14,ABDWORK(ABDARPTR) SAVE REGS OVER SETLOCK @Y02705 00787000 SETLOCK RELEASE,TYPE=LOCAL, @Y02705*00788000 RELATED=(SUBPOOLS,IEAVAD0D(FLOCAL1)) @Y02705 00789000 LM 11,14,ABDWORK(ABDARPTR) RESTORE REGS @Y02705 00790000 * CALL IEAVAD11; /* PRINT DATA */ 00791000 * 0267 00792000 L @15,@CV00054 0267 00793000 BALR @14,@15 0267 00794000 * /*****************************************************************/ 00795000 * /* */ 00796000 * /* IF TROUBLE OCCURED IN OUTPUT ROUTINE, TERMINATE PROCESSING */ 00797000 * /* */ 00798000 * /*****************************************************************/ 00799000 * 0268 00800000 * IF RETCODE^=0 /* DID TOUBLE OCCUR */ 00801000 * THEN /* YES */ 00802000 LTR RETCODE,RETCODE 0268 00803000 BNZ @RT00268 0268 00804000 * GOTO EXITA; /* START EXIT PROCESSING */ 00805000 * ELSE 0270 00806000 * ; /* CONTINUE PROCESSING */ 00807000 *GLOCAL2: 0271 00808000 * GENERATE REFS(PSALITA,ABDWORK); 0271 00809000 GLOCAL2 DS 0H 0271 00810000 * /* @Y02705*/ 00811000 STM 11,14,ABDWORK(ABDARPTR) SAVE REGS OVER SETLOCK @Y02705 00812000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, @Y02705*00813000 RELATED=(SUBPOOLS,IEAVAD0D(FLOCAL2)) @Y02705 00814000 LM 11,14,ABDWORK(ABDARPTR) RESTORE REGS @Y02705 00815000 * SPQESPTR=SAVESPQE; /* RESTORE SPQE ADDR @Y02705*/ 00816000 ST SAVESPQE,SPQESPTR 0272 00817000 * GOTO NEXTSPQE; /* RETURN MAIN LINE @Y02705*/ 00818000 B NEXTSPQE 0273 00819000 * 0274 00820000 */* THE LOCATE SUBROUTINE IS ENTERED FROM D0DPRNT WITH THE ADDRESS */ 00821000 */* OF THE FIRST DQE FOR A SUBPOOL TO BE DISPLAYED. FOR EACH DQE ON */ 00822000 */* THE QUEUE, NON FREE SEGMENTS ARE ISOLATED ONE AT A TIME AND */ 00823000 */* PASSED TO THE CDESCAN SUBROUTINE TO COMPLETE THE DISPLAY */ 00824000 */* OF THE SUBPOOL INFORMATION. WHEN THE LAST DQE HAS BEEN PROCESSED */ 00825000 */* CONTROL RETURNS TO D0DPRNT IEAVAD0D */ 00826000 * 0274 00827000 *LOCATE: /* START SUBROUTINE */ 00828000 * PROCEDURE OPTIONS(NOSAVEAREA, /* ROUTINE HAS NO SAVE AREA */ 00829000 * DONTSAVE); /* AND DOES NOT SAVE REGS */ 00830000 LOCATE DS 0H 0275 00831000 * LOCR14=RTRG14; /* SAVE REG 14 OVER SUBRTN */ 00832000 ST RTRG14,LOCR14 0275 00833000 *DQESRLP: /* REENTER FOR EACH DQE */ 00834000 * 0276 00835000 * /*****************************************************************/ 00836000 * /* */ 00837000 * /* WHEN THE LAST DQE HAS BEEN PROCESSED RETURN TO CALLER */ 00838000 * /* */ 00839000 * /*****************************************************************/ 00840000 * 0276 00841000 * IF DQESEPTR=0 /* MORE DQES TO PROCESS */ 00842000 * THEN /* NO */ 00843000 DQESRLP L @10,DQESEPTR 0276 00844000 LTR @10,@10 0276 00845000 BZ @RT00276 0276 00846000 * GOTO LOC0EX; /* NORMAL RETURN EXIT POINT */ 00847000 * ELSE 0278 00848000 * ; /* PROCESS THE DQE */ 00849000 * DQELO=DQEBLK3; /* SET LOW BOUND OF AREA 0279 00850000 * DESCRIBED BY DQE */ 00851000 SLR @07,@07 0279 00852000 ICM @07,7,DQEBLK3(@10) 0279 00853000 ST @07,DQELO 0279 00854000 * DQEHI=DQELO+DQELNTH-1; /* HIGH ADDRESS OF SPACE IS LOW 00855000 * PLUS SIZE MINUS 1 */ 00856000 AL @07,DQELNTH(,@10) 0280 00857000 BCTR @07,0 0280 00858000 ST @07,DQEHI 0280 00859000 *FREELOOP: /* BEGIN FQE SEARCH */ 00860000 * 0281 00861000 * /*****************************************************************/ 00862000 * /* */ 00863000 * /* THIS SECTION OF THE ROUTINE SEARCHES FOR THE FQE CLOSEST TO */ 00864000 * /* THE LOW DQE ADDRESS AND THE PROCESSES THE LOWEST NON FREE */ 00865000 * /* SECTION OF STORAGE UNDER THE DQE. THE NEXT LOWEST FQE IS THEN */ 00866000 * /* LOCATED AND THE PROCESS CONTINUES UNTIL NO LOWEST FQE EXISTS */ 00867000 * /* */ 00868000 * /*****************************************************************/ 00869000 * 0281 00870000 * FQESEPTR=DQFQEPTR; /* ADDR OF FIRST FQE IN AREA */ 00871000 FREELOOP L @10,DQESEPTR 0281 00872000 MVC FQESEPTR(4),DQFQEPTR(@10) 0281 00873000 * CFQE=0; /* ADDR OF FQE FOR FREE SPACE 0282 00874000 * CLOSEST TO LOW DQE IS 0282 00875000 * INITIALIZED */ 00876000 SLR @10,@10 0282 00877000 ST @10,CFQE 0282 00878000 *FQELOOP: /* SEARCH FOR FQE CLOSEST TO DQE 00879000 * LOW ADDR */ 00880000 * 0283 00881000 * /*****************************************************************/ 00882000 * /* */ 00883000 * /* WHEN EITHER THE FQE POINTER GOES TO ZERO OR THE FREE SPACE */ 00884000 * /* ADDRESS IS LESS THAN DQE LOW ADDRESS, THE DESIRED FQE HAS BEEN*/ 00885000 * /* LOCATED */ 00886000 * /* */ 00887000 * /*****************************************************************/ 00888000 * 0283 00889000 * IF FQESEPTR=0| /* NO MORE FQES TO CONSIDERED */ 00890000 * FQAREA-FQELNTHFQAREA-1; /* SET HIGH FREE SPACE ADDR */ 00930000 L @07,FQAREA(,@10) 0292 00931000 LR @00,@07 0292 00932000 BCTR @00,0 0292 00933000 ST @00,FQEHI 0292 00934000 * FQELO=CFQE->FQAREA-CFQE->FQELNTH;/* LO IS ADDR - SIZE */ 00935000 * 0293 00936000 SL @07,FQELNTH(,@10) 0293 00937000 ST @07,FQELO 0293 00938000 * /*****************************************************************/ 00939000 * /* */ 00940000 * /* IF THE LOW END OF THE FREE AREA COINCIDES WITH THE LOW END OF */ 00941000 * /* THE DQE SET DQELO ADDRESS TO THE FIRST BYTE NOT DESCRIBED BY */ 00942000 * /* THE FQE */ 00943000 * /* */ 00944000 * /*****************************************************************/ 00945000 * 0294 00946000 * IF FQELO=DQELO /* LOW ENDS COINCIDE */ 00947000 * THEN /* YES */ 00948000 C @07,DQELO 0294 00949000 BNE @RF00294 0294 00950000 * DO; /* RESET DQELO AND RESEARCH */ 00951000 * DQELO=FQEHI+1; /* SET DQE LO LIMIT TO FIRST NON 00952000 * FREE BYTE */ 00953000 AH @00,@CH00060 0296 00954000 ST @00,DQELO 0296 00955000 * GOTO FREELOOP; /* SEARCH AGAIN */ 00956000 B FREELOOP 0297 00957000 * END; 0298 00958000 * ELSE 0299 00959000 * ; /* CONTINUE HUNT FOR SEGMENT */ 00960000 @RF00294 DS 0H 0300 00961000 * SEGLO=DQELO; /* SEGMNT IS DEFINED BY DQELO */ 00962000 MVC SEGLO(4),DQELO 0300 00963000 * SEGHI=FQELO-1; /* AND LAST NON FREE BYTE */ 00964000 L @10,FQELO 0301 00965000 BCTR @10,0 0301 00966000 ST @10,SEGHI 0301 00967000 * DQELO=FQEHI+1; /* DQE LO LIMIT SET TO NEXT NON 00968000 * FREE BYTE ABOVE FQE */ 00969000 * 0302 00970000 LA @10,1 0302 00971000 AL @10,FQEHI 0302 00972000 ST @10,DQELO 0302 00973000 * /*****************************************************************/ 00974000 * /* */ 00975000 * /* AT THIS POINT, THE DQEHI ADDRESS WILL BE LESS THAN DQELO WHEN */ 00976000 * /* THE ENTIRE DQE HAS BEEN PROCESSED. DQEHI IS SET TO ZERO TO */ 00977000 * /* INDICATE THAT THE NEXT DQE IS TO BE TESTED AFTER RETURNING */ 00978000 * /* FROM THE CDESCAN SUBROUTINE */ 00979000 * /* */ 00980000 * /*****************************************************************/ 00981000 * 0303 00982000 * IF DQEHI>=DQELO /* MORE IN DQE TO PROCESS */ 00983000 * THEN /* YES, LEAVE DQEHI ALONE */ 00984000 C @10,DQEHI 0303 00985000 BNH @RT00303 0303 00986000 * GOTO GOSCAN; /* TO CALL CDESCAN */ 00987000 * ELSE 0305 00988000 * ; /* RESET DQEHI */ 00989000 * DQEHI=0; /* INDICATE DQE ALL PROCESSED */ 00990000 SLR @10,@10 0306 00991000 ST @10,DQEHI 0306 00992000 * GOTO GOSCAN; /* PROCESS LAST SEGMENT */ 00993000 B GOSCAN 0307 00994000 *LOC0EX: /* NORMAL EXIT POINT */ 00995000 * RETCODE=0; /* NORMAL END */ 00996000 LOC0EX SLR RETCODE,RETCODE 0308 00997000 *GOODBYE: /* ABNORMAL EXIT POINT */ 00998000 * RTRG14=LOCR14; /* RESTORE RETURN ADDR */ 00999000 GOODBYE L RTRG14,LOCR14 0309 01000000 * RETURN; /* BACK TO CALLER */ 01001000 @EL00002 DS 0H 0310 01002000 @EF00002 DS 0H 0310 01003000 @ER00002 BR @14 0310 01004000 *SEGFND1: /* LAST SEGMENT OF NON FREE SPACE 01005000 * IN DQE IS DQELO TO DQEHI */ 01006000 * SEGLO=DQELO; /* SEGMENT DEFINED BY DQE LO */ 01007000 SEGFND1 MVC SEGLO(4),DQELO 0311 01008000 * SEGHI=DQEHI; /* AND BY DQEHI */ 01009000 MVC SEGHI(4),DQEHI 0312 01010000 * DQEHI=0; /* INDICATE DQE COMPLETELY 0313 01011000 * PROCESSED */ 01012000 SLR @10,@10 0313 01013000 ST @10,DQEHI 0313 01014000 *GOSCAN: /* SEGMENT FOUND CALL CDESCAN */ 01015000 * CALL CDESCAN; /* CHECK SEG FOR MODULES */ 01016000 * 0314 01017000 GOSCAN BAL @14,CDESCAN 0314 01018000 * /*****************************************************************/ 01019000 * /* */ 01020000 * /* IF TROUBLE OCCURED IN CDESCAN OR IN ABDUMP SUBROUTINES THEN */ 01021000 * /* RETURN IMMEDIATELY TO CALLER */ 01022000 * /* */ 01023000 * /*****************************************************************/ 01024000 * 0315 01025000 * IF RETCODE^=0 /* DID TROUBLE OCCUR */ 01026000 * THEN /* YES */ 01027000 SLR @10,@10 0315 01028000 CR RETCODE,@10 0315 01029000 BNE @RT00315 0315 01030000 * GOTO GOODBYE; /* ABNORMAL EXIT */ 01031000 * ELSE 0317 01032000 * ; /* CONTINUE PROCESSING */ 01033000 * 0317 01034000 * /*****************************************************************/ 01035000 * /* */ 01036000 * /* DQEHI EQUAL TO ZERO IMPLIES THAT THE CURRENT DQE HAS BEEN */ 01037000 * /* COMPLETELY PROCESSED. */ 01038000 * /* */ 01039000 * /*****************************************************************/ 01040000 * 0318 01041000 * IF DQEHI^=0 /* MORE SPACE IN THIS DQE */ 01042000 * THEN /* YES */ 01043000 C @10,DQEHI 0318 01044000 BNE @RT00318 0318 01045000 * GOTO FREELOOP; /* GO PROCESS REMAINDER */ 01046000 * ELSE 0320 01047000 * ; /* DQE COMPLETED PROCESSED */ 01048000 * GOTO LOC0EX; /* RETURN TO CALLER @G33SPHW*/ 01049000 B LOC0EX 0321 01050000 * GENERATE; 0322 01051000 EJECT 01052000 * END LOCATE; /* END OF LOCATE SUBROUTINE */ 01053000 B @EL00002 0323 01054000 * 0324 01055000 */* THE CDESCAN SUBROUTINE IS ENTERED WITH SEGHI AND SEGLO TO TO A */ 01056000 */* NON FREE SECTION OF A SUBPOOL. IT ELIMINATES FROM THE SECTION */ 01057000 */* ALL SPACE ALLOCATED FOR MODULES AND PRINTS THE REMAINDER, IF ANY */ 01058000 * 0324 01059000 *CDESCAN: /* START CDESCAN SUBROUTINE */ 01060000 * PROCEDURE OPTIONS(NOSAVEAREA, /* ROUTINE DOES NOT SAVE REGS */ 01061000 * DONTSAVE); /* AND DOES NOT REQ SAVE AREA */ 01062000 CDESCAN DS 0H 0325 01063000 * SCANR14=RTRG14; /* SAVE CONTENTS OF REG 14 */ 01064000 ST RTRG14,SCANR14 0325 01065000 * SCANHI=0; /* INITIALIZE SCAN LIMITS */ 01066000 SLR @10,@10 0326 01067000 ST @10,SCANHI 0326 01068000 * SCANLO=0; /* TO ZERO */ 01069000 * 0327 01070000 ST @10,SCANLO 0327 01071000 * /*****************************************************************/ 01072000 * /* */ 01073000 * /* IF DISPLAY IS FOR SUBPOOL OTHER THAN ZERO, OR 252 IT CAN BE */ 01074000 * /* DISPLAYED WITHOUT ANY OTHER CHECKS */ 01075000 * /* */ 01076000 * /*****************************************************************/ 01077000 * 0328 01078000 * IF SPIDA^=0& /* IF SUBPOOL IS NOT 0 */ 01079000 * SPIDA^=252 /* AND SUBPOOL IS NOT 252 */ 01080000 * THEN 0328 01081000 CLI SPIDA,0 0328 01082000 BE @RF00328 0328 01083000 CLI SPIDA,252 0328 01084000 BNE @RT00328 0328 01085000 * GOTO TRYPRINT; /* GO TRY TO DISPLAY IT */ 01086000 * ELSE 0330 01087000 * ; /* MUST ELIMINATE PORTIONS OF 0330 01088000 * SUBPOOLS CONTAINING MODULES */ 01089000 @RF00328 DS 0H 0331 01090000 *REPSCAN: /* ENTER HERE TO REPEAT SCAN 0331 01091000 * PROCESS */ 01092000 * CDENTPTR=ABDTCB->TCBJSTCB->TCBJPQ;/* SET ADDR OF LAST CDE ON 0331 01093000 * QUEUE */ 01094000 REPSCAN L @10,ABDTCB(,ABDARPTR) 0331 01095000 L @10,TCBJSTCB(,@10) 0331 01096000 MVC CDENTPTR(4),TCBJPQ(@10) 0331 01097000 *CDLOOP: /* REENTER HERE FOR EACH CDE */ 01098000 * 0332 01099000 * /*****************************************************************/ 01100000 * /* */ 01101000 * /* WHEN ALL CDES HAVE BEEN PROCESSED THEN ATTEMPT TO PRINT THE */ 01102000 * /* SEGMENT */ 01103000 * /* */ 01104000 * /*****************************************************************/ 01105000 * 0332 01106000 * IF CDENTPTR=0 /* LAST CDE BEEN PROCESSED */ 01107000 * THEN /* YES */ 01108000 CDLOOP L @10,CDENTPTR 0332 01109000 LTR @10,@10 0332 01110000 BZ @RT00332 0332 01111000 * GOTO TRYPRINT; /* ATTEMPT TO PRINT REMAINDER OF 01112000 * SEGMENT */ 01113000 * ELSE 0334 01114000 * ; /* CHECK THIS CDE */ 01115000 * 0334 01116000 * /*****************************************************************/ 01117000 * /* */ 01118000 * /* IF CDE IS A MINOR OR IF THE CDE REPRESENTS A MODULE IN THE */ 01119000 * /* PROCESS OF BEING LOADED, THE CDE IS IGNORED */ 01120000 * /* */ 01121000 * /*****************************************************************/ 01122000 * 0335 01123000 * IF CDMIN='1'B| /* CDE A MINOR */ 01124000 * CDNIC='1'B /* OR MODULE IS BEING LOADED */ 01125000 * THEN /* YES */ 01126000 TM CDMIN(@10),B'01000100' 0335 01127000 BNZ @RT00335 0335 01128000 * GOTO NEXTCDE; /* IGNORE THIS CDE */ 01129000 * ELSE 0337 01130000 * ; /* PROCESS THIS CDE */ 01131000 * 0338 01132000 * /*****************************************************************/ 01133000 * /* */ 01134000 * /* IF THE SUBPOOL BEING DISPLAYED IS 252 THEN ONLY THOSE CDES FOR*/ 01135000 * /* MODULES IN SUBPOOL 252 - THOSE NOT LOADED BY THE OS LOADER AND*/ 01136000 * /* THOSE NOT IN THE JPA - ARE CONSIDERED FOR ELIMINATION. IF THE */ 01137000 * /* DISPLAY IS OF SUBPOOL 0, THEN ONLY THOSE MODULES IN SUBPOOL 0 */ 01138000 * /* - THOSE LOADED BY THE OS LOADER - ARE CONSIDERED FOR */ 01139000 * /* ELIMINATION. IN EITHER CASE, CDES NOT MEETING THE STATED */ 01140000 * /* CRITERIA ARE IGNORED */ 01141000 * /* */ 01142000 * /*****************************************************************/ 01143000 * 0338 01144000 * IF SPIDA=252 /* IS DISPLAY OF SUBPOOL 252 */ 01145000 * THEN /* YES */ 01146000 * 0338 01147000 CLI SPIDA,252 0338 01148000 BNE @RF00338 0338 01149000 * /***************************************************************/ 01150000 * /* */ 01151000 * /* CHECK IF MODULE IS IN SUBPOOL 252 */ 01152000 * /* */ 01153000 * /***************************************************************/ 01154000 * 0339 01155000 * DO; /* IF MODULE REPRESENTED BY THIS 01156000 * CDE IS NOT IN SP 252 THEN 0339 01157000 * IGNORE THIS CDE */ 01158000 * 0339 01159000 * /*************************************************************/ 01160000 * /* */ 01161000 * /* IF LOADED BY OS LOADER OR IN JPA THEN NOT IN SUBPOOL 252 */ 01162000 * /* */ 01163000 * /*************************************************************/ 01164000 * 0340 01165000 * IF CDSPZ='1'B| /* IF MODULE WAS LOADED BY OS 0340 01166000 * LOADER */ 01167000 * CDJPA='1'B /* OR MODULE IN JPA */ 01168000 * THEN /* YES */ 01169000 TM CDSPZ(@10),B'10000000' 0340 01170000 BO @RT00340 0340 01171000 TM CDJPA(@10),B'00000010' 0340 01172000 BO @RT00340 0340 01173000 * GOTO NEXTCDE; /* IGNORE THIS CDE */ 01174000 * ELSE 0342 01175000 * ; /* PROCESS THIS CDE */ 01176000 * END; 0343 01177000 * ELSE /* DISPLAY IS OF SUBPOOL 0 */ 01178000 * 0344 01179000 * /***************************************************************/ 01180000 * /* */ 01181000 * /* CHECK IF MODULE IN SUBPOOL 0 */ 01182000 * /* */ 01183000 * /***************************************************************/ 01184000 * 0344 01185000 * DO; /* IF MODULE REPRESENTED BY THIS 01186000 * CDE IS NOT IN SUBPOOL 0 THEN 01187000 * IGNORE THIS CDE */ 01188000 * 0344 01189000 B @RC00338 0344 01190000 @RF00338 DS 0H 0345 01191000 * /*************************************************************/ 01192000 * /* */ 01193000 * /* IF NOT LOADED BY OS LOADER THEN NOT IN SP 0 */ 01194000 * /* */ 01195000 * /*************************************************************/ 01196000 * 0345 01197000 * IF CDSPZ^='1'B /* IF MODULE WAS NOT LOADED BY OS 01198000 * LOADER */ 01199000 * THEN /* MODULE NOT IN SP 0 */ 01200000 L @10,CDENTPTR 0345 01201000 TM CDSPZ(@10),B'10000000' 0345 01202000 BNO @RT00345 0345 01203000 * GOTO NEXTCDE; /* IGNORE THIS CDE */ 01204000 * ELSE 0347 01205000 * ; /* PROCESS THIS CDE */ 01206000 * END; 0348 01207000 * XTLSTPTR=CDXLMJP; /* SET ADDR OF EXTENT LIST */ 01208000 @RC00338 L @10,CDENTPTR 0349 01209000 L @10,CDXLMJP(,@10) 0349 01210000 ST @10,XTLSTPTR 0349 01211000 * COUNT=XTLNRFAC; /* NUMBER OF EXTENTS */ 01212000 L @07,XTLNRFAC(,@10) 0350 01213000 ST @07,COUNT 0350 01214000 * PXSIZE=ADDR(XTLMSBLA); /* INIT PTR TO SIZE FIELDS */ 01215000 LA @00,XTLMSBLA(,@10) 0351 01216000 ST @00,PXSIZE 0351 01217000 * PXSTART=ADDR(XTLMSBAA)+(COUNT-1)*4;/* CALC INIT ADDR FOR BLOCK 0352 01218000 * POINTER */ 01219000 LA @10,XTLMSBAA(,@10) 0352 01220000 BCTR @07,0 0352 01221000 SLA @07,2 0352 01222000 ALR @10,@07 0352 01223000 ST @10,PXSTART 0352 01224000 *XLOOP: /* ENTRY FOR EACH ENTRY IN EXTENT 01225000 * LIST */ 01226000 * 0353 01227000 * /*****************************************************************/ 01228000 * /* */ 01229000 * /* IF COUNT OF REMAINING ENTRIES IN EXTENT LIST IS ZERO, THEN CDE*/ 01230000 * /* IS COMPLETELY PROCESSED. */ 01231000 * /* */ 01232000 * /*****************************************************************/ 01233000 * 0353 01234000 * IF COUNT=0 /* CDE EXTENT LIST ENTRIES ALL 0353 01235000 * CHECKED */ 01236000 * THEN /* YES */ 01237000 XLOOP ICM @10,15,COUNT 0353 01238000 BZ @RT00353 0353 01239000 * GOTO NEXTCDE; /* PROCESS NEXT CDE */ 01240000 * ELSE 0355 01241000 * ; /* PROCESS EXTENT LIST ENTRY */ 01242000 * 0355 01243000 * /*****************************************************************/ 01244000 * /* */ 01245000 * /* IF SIZE OF THIS EXTENT IS ZERO, IT WILL BE IGNORED */ 01246000 * /* */ 01247000 * /*****************************************************************/ 01248000 * 0356 01249000 * IF SIZE=0 /* EXTENT OCCUPY ANY SPACE */ 01250000 * THEN /* NO */ 01251000 L @10,PXSIZE 0356 01252000 SLR @07,@07 0356 01253000 ICM @07,7,SIZE(@10) 0356 01254000 LTR @07,@07 0356 01255000 BZ @RT00356 0356 01256000 * GOTO NEXTEXT; /* IGNORE THIS EXTENT */ 01257000 * ELSE 0358 01258000 * ; /* PROCESS THE EXTENT */ 01259000 * XLO=START; /* SET LOW END OF EXTENT ADDR */ 01260000 L @10,PXSTART 0359 01261000 SLR @00,@00 0359 01262000 ICM @00,7,START(@10) 0359 01263000 ST @00,XLO 0359 01264000 * XHI=XLO+SIZE-1; /* HIGH ADDR IS LOW PLUS SIZE 0360 01265000 * MINUS ONE */ 01266000 * 0360 01267000 ALR @07,@00 0360 01268000 BCTR @07,0 0360 01269000 ST @07,XHI 0360 01270000 * /*****************************************************************/ 01271000 * /* */ 01272000 * /* IF MODULE EXTENT IS NOT WITHIN THE LIMITS OF THE SUBPOOL */ 01273000 * /* SEGMENT UNDER CONSIDERATION IT IS IGNORED */ 01274000 * /* */ 01275000 * /*****************************************************************/ 01276000 * 0361 01277000 * IF XHISEGHI /* OR EXTENT STARTS AFTER SEGMENT 01280000 * ENDS */ 01281000 * THEN /* YES */ 01282000 L @10,SEGLO 0361 01283000 CR @07,@10 0361 01284000 BL @RT00361 0361 01285000 L @09,SEGHI 0361 01286000 CR @00,@09 0361 01287000 BH @RT00361 0361 01288000 * GOTO NEXTEXT; /* IGNORE THIS EXTENT */ 01289000 * ELSE 0363 01290000 * ; /* PROCESS THE EXTENT */ 01291000 * 0364 01292000 * /*****************************************************************/ 01293000 * /* */ 01294000 * /* ISOLATE AND PROCESS THE POSSIBLE CONDITIONS THAT CAN EXIST */ 01295000 * /* BETWEEN THE EXTENT AND THE SEGMENT 1. THE LOW LIMITS COINCIDE */ 01296000 * /* A. THE HIGH LIMITS COINCIDE B. THE HI LIMITS DO NOT COINCIDE */ 01297000 * /* */ 01298000 * /*****************************************************************/ 01299000 * 0364 01300000 * IF XLO=SEGLO /* IF LOW LIMITS COINCIDE */ 01301000 * THEN /* YES */ 01302000 * 0364 01303000 CR @00,@10 0364 01304000 BNE @RF00364 0364 01305000 * /***************************************************************/ 01306000 * /* */ 01307000 * /* THEN CHECK HIGH LIMITS */ 01308000 * /* */ 01309000 * /***************************************************************/ 01310000 * 0365 01311000 * IF XHI=SEGHI /* AND IF HI LIMIT COINCIDE */ 01312000 * THEN /* YES */ 01313000 CR @07,@09 0365 01314000 BE @RT00365 0365 01315000 * GOTO DONEPRNT; /* SEGMENT TOTALLY ELIMINATED */ 01316000 * ELSE /* LOW LIMITS COINCIDE BUT HI DO 01317000 * NOT */ 01318000 * DO; /* RESET VALUE OF SEGLO AND 0367 01319000 * CONTINUE SCAN */ 01320000 * SEGLO=XHI+1; /* SET SEGMENT LOW TO JUST AFTER 01321000 * END OF EXTENT */ 01322000 AH @07,@CH00060 0368 01323000 ST @07,SEGLO 0368 01324000 * GOTO NEXTEXT; /* CONTINUE SCANNING */ 01325000 B NEXTEXT 0369 01326000 * END; 0370 01327000 * ELSE 0371 01328000 * ; /* CONTINUE ISLATION PROCESS */ 01329000 * 0371 01330000 @RF00364 DS 0H 0372 01331000 * /*****************************************************************/ 01332000 * /* */ 01333000 * /* 2. THE LOW LIMITS DO NOT COINCIDE A. THE HIGH LIMITS COINCIDE */ 01334000 * /* B. THE HIGH LIMITS DO NOT COINCIDE */ 01335000 * /* */ 01336000 * /*****************************************************************/ 01337000 * 0372 01338000 * IF XHI=SEGHI /* DO HIGH LIMITS COINCIDE */ 01339000 * THEN /* YES */ 01340000 L @10,SEGHI 0372 01341000 C @10,XHI 0372 01342000 BE @RT00372 0372 01343000 * GOTO SETSEGHI; /* RESET VALUE OF SEGMENT HI */ 01344000 * ELSE 0374 01345000 * ; /* NEITHER HIGH NOR LOW LIMITS 0374 01346000 * COINCIDE */ 01347000 * 0374 01348000 * /*****************************************************************/ 01349000 * /* */ 01350000 * /* IF THIS CONDITION AROSE BEFORE THIS SCAN THEN SCANHI ALREADY */ 01351000 * /* HAS A NON ZERO VALUE AND SHOULD NOT BE ALTERED AGAIN */ 01352000 * /* */ 01353000 * /*****************************************************************/ 01354000 * 0375 01355000 * IF SCANHI^=0 /* SCANHI BEEN SET PREVIOUSLY */ 01356000 * THEN /* YES */ 01357000 ICM @07,15,SCANHI 0375 01358000 BNZ @RT00375 0375 01359000 * GOTO SETSCNLO; /* DO NOT LOSE ORIGINAL SETTING */ 01360000 * ELSE 0377 01361000 * ; /* SET SCANHI */ 01362000 * SCANHI=SEGHI; /* RECORD HIGH ADDR SEARCHED */ 01363000 ST @10,SCANHI 0378 01364000 *SETSCNLO: /* ENTER HERE TO AVOID SETTING 0379 01365000 * SCANHI */ 01366000 * SCANLO=XHI+1; /* SAVE LOW ADDR NOT SCANNED */ 01367000 SETSCNLO LA @10,1 0379 01368000 AL @10,XHI 0379 01369000 ST @10,SCANLO 0379 01370000 *SETSEGHI: /* ENTER HERE WHEN HI LIMITS ARE 01371000 * EQUAL TO RESET SEGHI */ 01372000 * SEGHI=XLO-1; /* SET TO SCAN UP TO START OF 0380 01373000 * MODULE */ 01374000 SETSEGHI L @10,XLO 0380 01375000 BCTR @10,0 0380 01376000 ST @10,SEGHI 0380 01377000 *NEXTEXT: /* TO PROCESS NEXT EXTENT */ 01378000 * COUNT=COUNT-1; /* DECREMENT COUNT OF EXTENTS */ 01379000 NEXTEXT L @10,COUNT 0381 01380000 BCTR @10,0 0381 01381000 ST @10,COUNT 0381 01382000 * PXSIZE=PXSIZE+4; /* INCREMENT TO NEXT EXTENT */ 01383000 LA @10,4 0382 01384000 L @07,PXSIZE 0382 01385000 ALR @07,@10 0382 01386000 ST @07,PXSIZE 0382 01387000 * PXSTART=PXSTART+4; /* LIST ENTRY */ 01388000 AL @10,PXSTART 0383 01389000 ST @10,PXSTART 0383 01390000 * GOTO XLOOP; /* PROCESS NEXT EXTENT */ 01391000 B XLOOP 0384 01392000 *NEXTCDE: /* TO PROCESS NEXT CDE */ 01393000 * CDENTPTR=CDCHAIN; /* ADDR OF NEXT CDE ON QUEUE */ 01394000 NEXTCDE L @10,CDENTPTR 0385 01395000 L @10,CDCHAIN(,@10) 0385 01396000 ST @10,CDENTPTR 0385 01397000 * GOTO CDLOOP; /* PROCESS IT */ 01398000 B CDLOOP 0386 01399000 *TRYPRINT: /* OUTPUT SUBPOOL PROCESSING */ 01400000 * 0387 01401000 * /*****************************************************************/ 01402000 * /* */ 01403000 * /* IF ENTIRE SEGMENT HAS BEEN ELIMINATED THEN GO CHECK IF MORE TO*/ 01404000 * /* SCAN */ 01405000 * /* */ 01406000 * /*****************************************************************/ 01407000 * 0387 01408000 * IF SEGHI=SEGLO /* ANYTHING TO PRINT */ 01409000 * THEN /* NO */ 01410000 TRYPRINT CLC SEGHI(4),SEGLO 0387 01411000 BE @RT00387 0387 01412000 * GOTO DONEPRNT; /* GO CHECK IF MORE TO SCAN */ 01413000 * ELSE 0389 01414000 * ; /* DISPLAY SUBPOOL SEGMENT */ 01415000 * 0389 01416000 * /*****************************************************************/ 01417000 * /* */ 01418000 * /* THE LOCAL LOCK MUST BE RELEASED AT THIS POINT TO INSURE THAT */ 01419000 * /* AN OUTPUT ROUTINE IS NOT CALLED WHILE THE LOCK IS HELD. */ 01420000 * /* @YM06191*/ 01421000 * /* */ 01422000 * /*****************************************************************/ 01423000 * 0390 01424000 *FLOCAL2: /* @YM06191*/ 01425000 * GENERATE REFS(PSALITA,ABDWORK); 0390 01426000 * 0390 01427000 FLOCAL2 DS 0H 0390 01428000 * /* @YM06191*/ 01429000 STM 11,14,ABDWORK(ABDARPTR) SAVE REGS OVER SETLOCK @YM06191 01430000 SETLOCK RELEASE,TYPE=LOCAL, @YM06191*01431000 RELATED=(SUBPOOLS,IEAVAD0D(GLOCAL2,GLOCAL3)) @YM06191 01432000 LM 11,14,ABDWORK(ABDARPTR) RESTORE REGS @YM06191 01433000 * /*****************************************************************/ 01434000 * /* */ 01435000 * /* IF THIS IS THE FIRST PIECE OF A SUBPOOL TO BE DISPLAYED A */ 01436000 * /* HEADING CONTAINING THE SUBPOOL NUMBER IS PRINTED */ 01437000 * /* */ 01438000 * /*****************************************************************/ 01439000 * 0391 01440000 * IF ABDSPHD='1'B /* FIRST PORTION OF SUBPOOL TO BE 01441000 * DISPLAYED */ 01442000 * THEN /* YES */ 01443000 TM ABDSPHD(ABDARPTR),B'00000010' 0391 01444000 BNO @RF00391 0391 01445000 * DO; /* PRODUCE HEADING */ 01446000 * SP=MSG1; /* SET MESSAGE INTO LINE */ 01447000 MVC SP(3,ABDARPTR),MSG1 0393 01448000 * GENERATE; 0394 01449000 SR 15,15 0 REGISTER 01450000 IC 15,SPID GET SUBPOOL ID 01451000 CVD 15,ABDWORK1(ABDARPTR) CONVERT ID TO DECIMAL 01452000 UNPK ABDWORK(7,ABDARPTR),ABDWORK1+5(4,ABDARPTR) 01453000 * UNPACK RESULT 01454000 MVC ABDLINE+3(3,ABDARPTR),ABDWORK+2(ABDARPTR) 01455000 * MOVE RESULT TO OUTPUT LINE 01456000 *PRNTLINE: /* @YM06191*/ 01457000 * PARMPTR=ABDARPTR; /* SET PARAM ADDR FOR OUTPUT */ 01458000 PRNTLINE LR PARMPTR,ABDARPTR 0395 01459000 * CALL IEAVAD11; /* PRINT A LINE */ 01460000 * 0396 01461000 L @15,@CV00054 0396 01462000 BALR @14,@15 0396 01463000 * /*************************************************************/ 01464000 * /* */ 01465000 * /* IF RETURN CODE IS NOT ZERO THEN UNEXPECTED TROUBLE OCCURED*/ 01466000 * /* IN OUTPUT SO DUMP IS TERMINATED */ 01467000 * /* */ 01468000 * /*************************************************************/ 01469000 * 0397 01470000 * IF RETCODE^=0 /* UNEXPECTED TROUBLE */ 01471000 * THEN /* YES */ 01472000 LTR RETCODE,RETCODE 0397 01473000 BNZ @RT00397 0397 01474000 * GOTO SCANRETA; /* START EXIT PROCEDURE */ 01475000 * ELSE 0399 01476000 * ; /* CONTINUE PROCESSING */ 01477000 * END; 0400 01478000 * ELSE 0401 01479000 * ; /* SKIP HEADING DISPLAY */ 01480000 @RF00391 DS 0H 0402 01481000 * ABDCC='0'; /* DOUBLE SPACE FIRST LINE */ 01482000 MVI ABDCC(ABDARPTR),C'0' 0402 01483000 * ABDBLOCK=SEGLO; /* SET INITIAL ADDR TO DUMP */ 01484000 L @10,SEGLO 0403 01485000 ST @10,ABDBLOCK(,ABDARPTR) 0403 01486000 * ABDLENTH=SEGHI-SEGLO+1; /* NUMBER OF BYTES TO DUMP */ 01487000 LCR @10,@10 0404 01488000 AL @10,SEGHI 0404 01489000 AH @10,@CH00060 0404 01490000 ST @10,ABDLENTH(,ABDARPTR) 0404 01491000 * PARMPTR=ABDARPTR; /* PARAM LIST ADDR FOR FORMET */ 01492000 LR PARMPTR,ABDARPTR 0405 01493000 * CALL IEAVAD71; /* EDIT AND PRINT DATA */ 01494000 * 0406 01495000 L @15,@CV00055 0406 01496000 BALR @14,@15 0406 01497000 * /*****************************************************************/ 01498000 * /* */ 01499000 * /* IF UNEXPECTED TROUBLE OCCURED IN OUTPUT THE RETURN CODE IS SET*/ 01500000 * /* TO OTHER THAN ZERO. IN THIS CASE THE DISPLAY IS TERMINATED */ 01501000 * /* */ 01502000 * /*****************************************************************/ 01503000 * 0407 01504000 * IF RETCODE^=0 /* UNEXPECTED TROUBLE */ 01505000 * THEN /* YES */ 01506000 LTR RETCODE,RETCODE 0407 01507000 BNZ @RT00407 0407 01508000 * GOTO SCANRETA; /* START EXIT PROCEDURE */ 01509000 * ELSE 0409 01510000 * ; /* CHECK FOR MORE TO SCAN */ 01511000 *DONEPRNT: 0410 01512000 *GLOCAL3: /* @YM06191*/ 01513000 * GENERATE REFS(PSALITA,ABDWORK); 0410 01514000 * 0410 01515000 DONEPRNT DS 0H 0410 01516000 GLOCAL3 DS 0H 0410 01517000 * /* @YM06191*/ 01518000 STM 11,14,ABDWORK(ABDARPTR) SAVE REGS OVER SETLOCK @YM06191 01519000 SETLOCK OBTAIN,TYPE=LOCAL, @YM06191*01520000 RELATED=(SUBPOOLS,IEAVAD0D(FLOCAL2)),MODE=UNCOND 01521000 LM 11,14,ABDWORK(ABDARPTR) RESTORE REGS @YM06191 01522000 * /*****************************************************************/ 01523000 * /* */ 01524000 * /* IF THE SCAN LIMITS ARE EQUAL THEY MUST BOTH BE ZERO AND THERE */ 01525000 * /* IS NOTHING MORE TO SCAN */ 01526000 * /* */ 01527000 * /*****************************************************************/ 01528000 * 0411 01529000 * IF SCANLO=SCANHI /* MORE TO SCAN */ 01530000 * THEN /* NO */ 01531000 L @10,SCANLO 0411 01532000 L @07,SCANHI 0411 01533000 CR @10,@07 0411 01534000 BE @RT00411 0411 01535000 * GOTO SCANRET; /* EXIT WITH NORMAL CODE */ 01536000 * ELSE 0413 01537000 * ; /* RESET TO SCAN AGAIN */ 01538000 * SEGLO=SCANLO; /* LOW ADDR NOT SCANNED */ 01539000 ST @10,SEGLO 0414 01540000 * SEGHI=SCANHI; /* HI ADDRESS NOT SCANNED */ 01541000 ST @07,SEGHI 0415 01542000 * SCANHI=0; /* REINITIALIZE */ 01543000 SLR @10,@10 0416 01544000 ST @10,SCANHI 0416 01545000 * SCANLO=0; /* REINITIALIZE */ 01546000 ST @10,SCANLO 0417 01547000 * GOTO REPSCAN; /* REPEAT SCANNING */ 01548000 B REPSCAN 0418 01549000 *SCANRET: /* NORMAL RETURN POINT */ 01550000 * RETCODE=0; /* SUCESSFUL COMPLETION */ 01551000 SCANRET SLR RETCODE,RETCODE 0419 01552000 *SCANRETA: /* ABNORMAL RETURN POINT */ 01553000 * RTRG14=SCANR14; /* RETSORE RETURN ADDR */ 01554000 SCANRETA L RTRG14,SCANR14 0420 01555000 * RETURN; /* BACK TO CALLER */ 01556000 @EL00003 DS 0H 0421 01557000 @EF00003 DS 0H 0421 01558000 @ER00003 BR @14 0421 01559000 * END CDESCAN; /* END OF SUBROUTINE */ 01560000 *SPQESORT: 0423 01561000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0423 01562000 * 0423 01563000 SPQESORT DS 0H 0424 01564000 */* SORT THE SPQE TABLE IN ASCENDING ORDER BY SUBPOOL @G33SPHW*/ 01565000 * 0424 01566000 * SWAP=1; /* INITIALIZE SWAP COUNTER 0424 01567000 * @G33SPHW*/ 01568000 MVC SWAP(2),@CH00060 0424 01569000 * DO WHILE SWAP^=0; /* LOOP THRU TABLE UNTIL SORTED 01570000 * @G33SPHW*/ 01571000 B @DE00425 0425 01572000 @DL00425 DS 0H 0426 01573000 * CTR2=2; /* INITIALIZE COUNTER @G33SPHW*/ 01574000 MVC CTR2(2),@CH00166 0426 01575000 * CURPTR=SPQTBPTR; /* GET FIRST TABLE ADDRESS 0427 01576000 * @G33SPHW*/ 01577000 L @10,SPQTBPTR 0427 01578000 ST @10,CURPTR 0427 01579000 * NXTPTR=CURPTR+LENGTH(SPQENT); /* SET NEXT TO NEXT ENTRY 0428 01580000 * @G33SPHW*/ 01581000 AH @10,@CH00062 0428 01582000 ST @10,NXTPTR 0428 01583000 * SWAP=0; /* RESET SWAP SWITCH @G33SPHW*/ 01584000 SLR @10,@10 0429 01585000 STH @10,SWAP 0429 01586000 * DO WHILE CTR2<=SPQLIMIT; /* LOOP THRU ALL ENTRIES @G33SPHW*/ 01587000 B @DE00430 0430 01588000 @DL00430 DS 0H 0431 01589000 * IF NXTPTR->SPQNUM< /* NEXT ENTRY LESS THAN @G33SPHW*/ 01590000 * CURPTR->SPQNUM THEN /* CURRENT ENTRY @G33SPHW*/ 01591000 L @10,NXTPTR 0431 01592000 L @07,CURPTR 0431 01593000 LH @00,SPQNUM(,@10) 0431 01594000 CH @00,SPQNUM(,@07) 0431 01595000 BNL @RF00431 0431 01596000 * DO; /* YES... SWAP ENTRIES @G33SPHW*/ 01597000 * CURPTR->SPQENT=CURPTR->SPQENT&&NXTPTR->SPQENT; 0433 01598000 XC SPQENT(8,@07),SPQENT(@10) 0433 01599000 * NXTPTR->SPQENT=NXTPTR->SPQENT&&CURPTR->SPQENT; 0434 01600000 XC SPQENT(8,@10),SPQENT(@07) 0434 01601000 * CURPTR->SPQENT=CURPTR->SPQENT&&NXTPTR->SPQENT; 0435 01602000 XC SPQENT(8,@07),SPQENT(@10) 0435 01603000 * SWAP=1; /* INDICATE SWAP MADE @G33SPHW*/ 01604000 MVC SWAP(2),@CH00060 0436 01605000 * END; /* END.. NXT LESS @G33SPHW*/ 01606000 * ELSE 0438 01607000 * ; /* NULL ELSE @G33SPHW*/ 01608000 @RF00431 DS 0H 0439 01609000 * CTR2=CTR2+1; /* BUMP ENTRY COUNTER @G33SPHW*/ 01610000 LH @10,CTR2 0439 01611000 LA @10,1(,@10) 0439 01612000 STH @10,CTR2 0439 01613000 * CURPTR=NXTPTR; /* SET CURRENT TO NEXT @G33SPHW*/ 01614000 L @10,NXTPTR 0440 01615000 ST @10,CURPTR 0440 01616000 * NXTPTR=NXTPTR+LENGTH(SPQENT);/* SET NEXT TO NEXT ENTRY 0441 01617000 * @G33SPHW*/ 01618000 AH @10,@CH00062 0441 01619000 ST @10,NXTPTR 0441 01620000 * END; /* END DO WHILE MORE ENTRIES 0442 01621000 * @G33SPHW*/ 01622000 @DE00430 LH @10,CTR2 0442 01623000 CH @10,SPQLIMIT 0442 01624000 BNH @DL00430 0442 01625000 * END; /* END DO WHILE SWAP DONE 0443 01626000 * @G33SPHW*/ 01627000 @DE00425 ICM @10,3,SWAP 0443 01628000 BNZ @DL00425 0443 01629000 * END SPQESORT; /* RETURN @G33SPHW*/ 01630000 @EL00004 DS 0H 0444 01631000 @EF00004 DS 0H 0444 01632000 @ER00004 BR @14 0444 01633000 *D0DDQTBL: 0445 01634000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0445 01635000 * 0445 01636000 D0DDQTBL DS 0H 0446 01637000 */* OBTAIN STORAGE FOR NEW DQE TABLE @G33SPHW*/ 01638000 * 0446 01639000 * D0DTAB14=RTRG14; /* SAVE RETURN ADDRESS @G33SPHW*/ 01640000 ST RTRG14,D0DTAB14 0446 01641000 * RFY 0447 01642000 * (R4, 0447 01643000 * R7) RSTD; 0447 01644000 * R7=ASCBPTR; /* REG 7 EQUAL ASCB ADDRESS 0448 01645000 * @G33SPHW*/ 01646000 L R7,ASCBPTR 0448 01647000 * R4=TCBPTR; /* REG 4 EQUAL TCB ADDRESS 0449 01648000 * @G33SPHW*/ 01649000 L R4,TCBPTR(,ABDARPTR) 0449 01650000 * GEN REFS(CVTPTR,CVTMAP,CVTCRMN,PSALITA) SETS(RETCODE,PARMPTR); 0450 01651000 GETMAIN RC,LV=2520,SP=253,BRANCH=YES OBTAIN NEW TABLE G33SPHW 01652000 * RFY 0451 01653000 * (R4, 0451 01654000 * R7) UNRSTD; 0451 01655000 * IF RETCODE^=0 THEN /* GETMAIN SUCCESSFUL @G33SPHW*/ 01656000 SLR @10,@10 0452 01657000 CR RETCODE,@10 0452 01658000 BE @RF00452 0452 01659000 * DO; /* NO ... @G33SPHW*/ 01660000 * MSGFLAG=1; /* INDICATE MESSAGE REQUESTED 0454 01661000 * @G33SPHW*/ 01662000 MVC MSGFLAG(2),@CH00060 0454 01663000 * RETCODE=4; /* INDICATE ERROR OCCURED 0455 01664000 * @G33SPHW*/ 01665000 LA RETCODE,4 0455 01666000 * CTR1=0; /* RESET ENTRY COUNTER @G33SPHW*/ 01667000 STH @10,CTR1 0456 01668000 * END; /* END GETMAIN FAILED @G33SPHW*/ 01669000 * ELSE /* TABLE OBTAINED @G33SPHW*/ 01670000 * DO; /* GET DQE TABLE @G33SPHW*/ 01671000 B @RC00452 0458 01672000 @RF00452 DS 0H 0459 01673000 * FWDPTR=PARMPTR; /* PUT NEW TABLE ADDRESS IN OLD 01674000 * TABLE @G33SPHW*/ 01675000 L @10,DQETBPTR 0459 01676000 ST PARMPTR,FWDPTR(,@10) 0459 01677000 * PARMPTR->BWDPTR=DQETBPTR; /* PUT OLD TABLE ADDRESS IN NEW 01678000 * TABLE BACKWARD POINTER 0460 01679000 * @G33SPHW*/ 01680000 ST @10,BWDPTR(,PARMPTR) 0460 01681000 * DQETBPTR=PARMPTR; /* GET NEW TABLE ADDRESS IN 0461 01682000 * CURRENT DQE TABLE POINTER 0461 01683000 * @G33SPHW*/ 01684000 ST PARMPTR,DQETBPTR 0461 01685000 * FWDPTR=0; /* INITIALIZE FORWARD POINTER 0462 01686000 * @G33SPHW*/ 01687000 L @10,DQETBPTR 0462 01688000 SLR @07,@07 0462 01689000 ST @07,FWDPTR(,@10) 0462 01690000 * CTR1=1; /* RESET ENTRY COUNTER TO 1 0463 01691000 * @G33SPHW*/ 01692000 MVC CTR1(2),@CH00060 0463 01693000 * END; /* END ELSE @G33SPHW*/ 01694000 * RTRG14=D0DTAB14; /* RESTORE RETURN ADDRESS 0465 01695000 * @G33SPHW*/ 01696000 @RC00452 L RTRG14,D0DTAB14 0465 01697000 * END D0DDQTBL; /* RETURN TO CALLER @G33SPHW*/ 01698000 @EL00005 DS 0H 0466 01699000 @EF00005 DS 0H 0466 01700000 @ER00005 BR @14 0466 01701000 *DQESORT: 0467 01702000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0467 01703000 * 0467 01704000 DQESORT DS 0H 0468 01705000 */* SORT DQE TABLE @G33SPHW*/ 01706000 * 0468 01707000 * SWAP=1; /* INITIALIZE SWAP COUNTER 0468 01708000 * @G33SPHW*/ 01709000 MVC SWAP(2),@CH00060 0468 01710000 * DO WHILE SWAP^=0; /* LOOP THRU TABLE UNTIL SORTED 01711000 * @G33SPHW*/ 01712000 B @DE00469 0469 01713000 @DL00469 DS 0H 0470 01714000 * CTR2=2; /* CURRENT ENTRY COUNTER @G33SPHW*/ 01715000 LA @10,2 0470 01716000 STH @10,CTR2 0470 01717000 * DQETBPTR=DQANCHOR; /* GET FIRST TABLE ADDRESS 0471 01718000 * @G33SPHW*/ 01719000 L @07,DQANCHOR 0471 01720000 ST @07,DQETBPTR 0471 01721000 * CURPTR=ADDR(DQETAB(1)); /* GET FIRST ENTRY ADDRESS 0472 01722000 * @G33SPHW*/ 01723000 LA @07,DQETAB(,@07) 0472 01724000 ST @07,CURPTR 0472 01725000 * NXTPTR=CURPTR+LENGTH(DQEENT); /* SET NEXT TO NEXT ENTRY 0473 01726000 * @G33SPHW*/ 01727000 AH @07,@CH00062 0473 01728000 ST @07,NXTPTR 0473 01729000 * SWAP=0; /* RESET SWAP SWITCH @G33SPHW*/ 01730000 SLR @07,@07 0474 01731000 STH @07,SWAP 0474 01732000 * DO CTR3=2 TO DQELIMIT; /* LOOP THRU ALL ENTRIES @G33SPHW*/ 01733000 B @DE00475 0475 01734000 @DL00475 DS 0H 0476 01735000 * IF NXTPTR->DQEAREA< /* NEXT ENTRY LESS THAN @G33SPHW*/ 01736000 * CURPTR->DQEAREA THEN /* CURRENT ENTRY @G33SPHW*/ 01737000 L @10,NXTPTR 0476 01738000 L @07,CURPTR 0476 01739000 CLC DQEAREA(4,@10),DQEAREA(@07) 0476 01740000 BNL @RF00476 0476 01741000 * DO; /* YES... SWAP ENTRIES @G33SPHW*/ 01742000 * CURPTR->DQEENT=CURPTR->DQEENT&&NXTPTR->DQEENT; 0478 01743000 XC DQEENT(8,@07),DQEENT(@10) 0478 01744000 * NXTPTR->DQEENT=NXTPTR->DQEENT&&CURPTR->DQEENT; 0479 01745000 XC DQEENT(8,@10),DQEENT(@07) 0479 01746000 * CURPTR->DQEENT=CURPTR->DQEENT&&NXTPTR->DQEENT; 0480 01747000 XC DQEENT(8,@07),DQEENT(@10) 0480 01748000 * SWAP=1; /* INDICATE SWAP MADE @G33SPHW*/ 01749000 MVC SWAP(2),@CH00060 0481 01750000 * END; /* END.. NXT LESS @G33SPHW*/ 01751000 * ELSE 0483 01752000 * ; /* NULL ELSE @ZA31318*/ 01753000 @RF00476 DS 0H 0484 01754000 * CURPTR=NXTPTR; /* SET CURRENT TO NEXT @G33SPHW*/ 01755000 MVC CURPTR(4),NXTPTR 0484 01756000 * IF CTR2=LIMIT THEN /* END OF TABLE @G33SPHW*/ 01757000 CLC CTR2(2),@CH00101 0485 01758000 BNE @RF00485 0485 01759000 * DO; /* GET NEXT TABLE ADDRESS 0486 01760000 * @G33SPHW*/ 01761000 * DQETBPTR=FWDPTR; /* NEXT TABLE ADDRESS @G33SPHW*/ 01762000 L @10,DQETBPTR 0487 01763000 L @10,FWDPTR(,@10) 0487 01764000 ST @10,DQETBPTR 0487 01765000 * NXTPTR=ADDR(DQETAB(1)); /* NEXT ENTRY ADDRESS @G33SPHW*/ 01766000 LA @10,DQETAB(,@10) 0488 01767000 ST @10,NXTPTR 0488 01768000 * CTR2=0; /* RESET TABLE ENTRY @G33SPHW*/ 01769000 SLR @10,@10 0489 01770000 STH @10,CTR2 0489 01771000 * END; /* END...NEXT TABLE @G33SPHW*/ 01772000 * ELSE /* NOT END OF TABLE @G33SPHW*/ 01773000 * NXTPTR=CURPTR+LENGTH(DQEENT);/* NEXT ENTRY IN LIST @G33SPHW*/ 01774000 B @RC00485 0491 01775000 @RF00485 LA @10,8 0491 01776000 AL @10,CURPTR 0491 01777000 ST @10,NXTPTR 0491 01778000 * CTR2=CTR2+1; /* BUMP TABLE CNT @G33SPHW*/ 01779000 @RC00485 LH @10,CTR2 0492 01780000 LA @10,1(,@10) 0492 01781000 STH @10,CTR2 0492 01782000 * END; /* END DO WHILE MORE ENTRIES 0493 01783000 * @G33SPHW*/ 01784000 LA @10,1 0493 01785000 AH @10,CTR3 0493 01786000 @DE00475 STH @10,CTR3 0493 01787000 CH @10,DQELIMIT 0493 01788000 BNH @DL00475 0493 01789000 * END; /* END DO WHILE SWAP DONE 0494 01790000 * @G33SPHW*/ 01791000 @DE00469 ICM @10,3,SWAP 0494 01792000 BNZ @DL00469 0494 01793000 * END DQESORT; 0495 01794000 @EL00006 DS 0H 0495 01795000 @EF00006 DS 0H 0495 01796000 @ER00006 BR @14 0495 01797000 *DQEPRINT: 0496 01798000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0496 01799000 * 0496 01800000 DQEPRINT DS 0H 0497 01801000 */* PASS EACH DQE TO LOCATE ROUTINE TO BE PRINTED @G33SPHW*/ 01802000 * 0497 01803000 * DQEPRT14=RTRG14; /* SAVE RETURN ADDRESS @G33SPHW*/ 01804000 ST RTRG14,DQEPRT14 0497 01805000 * DQETBPTR=DQANCHOR; /* START W/ 1ST DQE IN TABLE 0498 01806000 * @ZA27225*/ 01807000 MVC DQETBPTR(4),DQANCHOR 0498 01808000 * CTR1=1; /* INITIALIZE COUNTER @G33SPHW*/ 01809000 LA @10,1 0499 01810000 STH @10,CTR1 0499 01811000 * DO CTR2=1 TO DQELIMIT; /* LOOP THRU DQE TABLE ENTRIES 0500 01812000 * @G33SPHW*/ 01813000 B @DE00500 0500 01814000 @DL00500 DS 0H 0501 01815000 * DQESEPTR=DQELOC(CTR1); /* GET DQE FROM TABLE ENTRY 0501 01816000 * @G33SPHW*/ 01817000 * 0501 01818000 L @10,DQETBPTR 0501 01819000 LH @07,CTR1 0501 01820000 SLA @07,3 0501 01821000 L @00,DQELOC-8(@07,@10) 0501 01822000 ST @00,DQESEPTR 0501 01823000 * /***************************************************************/ 01824000 * /* */ 01825000 * /* INSURE DQE NOT CHANGED @G33SPHW*/ 01826000 * /* */ 01827000 * /***************************************************************/ 01828000 * 0502 01829000 * IF DQEBLKAD=DQEBLK(CTR1) THEN /* DQE BLOCK ADDRESS UNCHANGED 0502 01830000 * @G33SPHW*/ 01831000 LR @09,@00 0502 01832000 L @00,DQEBLKAD(,@09) 0502 01833000 C @00,DQEBLK-8(@07,@10) 0502 01834000 BNE @RF00502 0502 01835000 * CALL LOCATE; /* PROCESS DQE AND PRINT @G33SPHW*/ 01836000 BAL @14,LOCATE 0503 01837000 * CTR1=CTR1+1; /* BUMP COUNTER TO NEXT ENTRY 0504 01838000 * @G33SPHW*/ 01839000 @RF00502 LA @10,1 0504 01840000 LH @07,CTR1 0504 01841000 ALR @07,@10 0504 01842000 STH @07,CTR1 0504 01843000 * IF CTR1>LIMIT THEN /* END OF CURRENT TABLE @G33SPHW*/ 01844000 CH @07,@CH00101 0505 01845000 BNH @RF00505 0505 01846000 * DO; /* YES... GET NEXT TABLE @G33SPHW*/ 01847000 * IF FWDPTR^=0 THEN /* ANOTHER TABLE AVAILABLE 0507 01848000 * @G33SPHW*/ 01849000 L @07,DQETBPTR 0507 01850000 L @07,FWDPTR(,@07) 0507 01851000 LTR @07,@07 0507 01852000 BZ @RF00507 0507 01853000 * DO; /* YES... @G33SPHW*/ 01854000 * DQETBPTR=FWDPTR; /* SET CURRENT TABLE POINTER TO 01855000 * NEXT TABLE @G33SPHW*/ 01856000 ST @07,DQETBPTR 0509 01857000 * CTR1=1; /* RESET CURRENT ENTRY COUNTER 0510 01858000 * @G33SPHW*/ 01859000 STH @10,CTR1 0510 01860000 * END; /* END.. FWDPTR NOT ZERO @G33SPHW*/ 01861000 * END; /* END.. NEW TABLE @G33SPHW*/ 01862000 @RF00507 DS 0H 0513 01863000 * ABDSPHD='0'B; /* INDICATE HEADING PRINTED 0513 01864000 * @G33SPHW*/ 01865000 @RF00505 NI ABDSPHD(ABDARPTR),B'11111101' 0513 01866000 * END; /* END.. DO WHILE @G33SPHW*/ 01867000 LA @10,1 0514 01868000 AH @10,CTR2 0514 01869000 @DE00500 STH @10,CTR2 0514 01870000 CH @10,DQELIMIT 0514 01871000 BNH @DL00500 0514 01872000 * DQETBPTR=DQANCHOR; /* RETURN TO 1ST TABLE @ZA27225*/ 01873000 MVC DQETBPTR(4),DQANCHOR 0515 01874000 * RTRG14=DQEPRT14; /* RESTORE RETURN ADDRESS 0516 01875000 * @G33SPHW*/ 01876000 L RTRG14,DQEPRT14 0516 01877000 * END DQEPRINT; 0517 01878000 @EL00007 DS 0H 0517 01879000 @EF00007 DS 0H 0517 01880000 @ER00007 BR @14 0517 01881000 * DCL 0518 01882000 * PATCHLOC FIXED(31) STATIC; 0518 01883000 * GEN DATA DEFS(PATCHLOC); 0519 01884000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01885000 * GPR00F FIXED(31) REG(0), 0520 01886000 * GPR01F FIXED(31) REG(1), 0520 01887000 * GPR15F FIXED(31) REG(15); 0520 01888000 * DECLARE /* COMMON VARIABLES */ 01889000 * I256C CHAR(256) BASED, 0521 01890000 * I031F FIXED(31) BASED, 0521 01891000 * I031P PTR(31) BASED, 0521 01892000 * I015F FIXED(15) BASED, 0521 01893000 * I015P PTR(15) BASED, 0521 01894000 * I008P PTR(8) BASED, 0521 01895000 * I001C CHAR(1) BASED; 0521 01896000 * END IEAVAD0D /* END OF MAIN ROUTINE */ 01897000 * 0522 01898000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01899000 */*%INCLUDE SYSLIB (D0DSPEC ) */ 01900000 */*%INCLUDE SYSLIB (D0DDCL ) */ 01901000 */*%INCLUDE SYSLIB (IHAABDA ) */ 01902000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01903000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01904000 */*%INCLUDE SYSLIB (IHACDE ) */ 01905000 */*%INCLUDE SYSLIB (IHAXTLST) */ 01906000 */*%INCLUDE SYSLIB (IHAFQE ) */ 01907000 */*%INCLUDE SYSLIB (IHADQE ) */ 01908000 */*%INCLUDE SYSLIB (IHASPQE ) */ 01909000 */*%INCLUDE SYSLIB (CVT ) */ 01910000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01911000 */*%INCLUDE SYSLIB (IHARTCT ) */ 01912000 */*%INCLUDE SYSLIB (SPQEPRCS) */ 01913000 */*%INCLUDE SYSLIB (D0DFREE ) */ 01914000 */*%INCLUDE SYSLIB (SPQESORT) */ 01915000 */*%INCLUDE SYSLIB (D0DDQTBL) */ 01916000 */*%INCLUDE SYSLIB (DQESORT ) */ 01917000 */*%INCLUDE SYSLIB (DQEPRINT) */ 01918000 * 0522 01919000 * ; 0522 01920000 B @EL00001 0522 01921000 @DATA DS 0H 01922000 @CH00060 DC H'1' 01923000 @CH00166 DC H'2' 01924000 @CH00062 DC H'8' 01925000 @CH00101 DC H'314' 01926000 @CH00105 DC H'1280' 01927000 @CH00103 DC H'3800' 01928000 @DATD DSECT 01929000 DS 0F 01930000 IEAVAD0D CSECT 01931000 DS 0F 01932000 @CF02315 DC F'64768' 01933000 @CF02318 DC F'-8' 01934000 @CF02319 DC F'-4' 01935000 @DATD DSECT 01936000 DS 0D 01937000 SEGLO DS A 01938000 DQESEPTR DS A 01939000 FQESEPTR DS A 01940000 CDENTPTR DS A 01941000 SPQESPTR DS A 01942000 MOMTCB DS A 01943000 ASCBPTR DS A 01944000 XTLSTPTR DS A 01945000 SEGHI DS A 01946000 SEARCHAD DS A 01947000 DQELO DS A 01948000 DQEHI DS A 01949000 FQELO DS A 01950000 FQEHI DS A 01951000 XLO DS A 01952000 XHI DS A 01953000 SCANLO DS A 01954000 SCANHI DS A 01955000 LOCR14 DS A 01956000 SCANR14 DS A 01957000 CFQE DS A 01958000 COUNT DS F 01959000 PXSTART DS A 01960000 PXSIZE DS A 01961000 SPQTBPTR DS A 01962000 DQETBPTR DS A 01963000 DQANCHOR DS A 01964000 CURPTR DS A 01965000 NXTPTR DS A 01966000 DQEPRT14 DS A 01967000 D0DTAB14 DS A 01968000 SWAP DS H 01969000 CTR DS H 01970000 CTR1 DS H 01971000 CTR2 DS H 01972000 CTR3 DS H 01973000 MSGFLAG DS H 01974000 DQELIMIT DS H 01975000 SPQLIMIT DS H 01976000 SPID DS CL1 01977000 IEAVAD0D CSECT 01978000 DS 0F 01979000 @SIZDATD DC AL1(0) 01980000 DC AL3(@ENDDATD-@DATD) 01981000 @CV00054 DC V(IEAVAD11) 01982000 @CV00055 DC V(IEAVAD71) 01983000 DS 0D 01984000 NDMSG DC CL26'0SUBPOOL NOT DISPLAYED' 01985000 MSG1 DC CL3'0SP' 01986000 STORMSG DC CL43'0SUBPOOLS NOT PRINTED STORAGE NOT AVAILABLE' 01987000 IEAVAD0D CSECT 01988000 DS 0H 01989000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 01990000 @DATD DSECT 01991000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01992000 @ENDDATD EQU * 01993000 IEAVAD0D CSECT 01994000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01995000 @01 EQU 01 01996000 @02 EQU 02 01997000 @03 EQU 03 01998000 @04 EQU 04 01999000 @05 EQU 05 02000000 @06 EQU 06 02001000 @07 EQU 07 02002000 @08 EQU 08 02003000 @09 EQU 09 02004000 @10 EQU 10 02005000 @11 EQU 11 02006000 @12 EQU 12 02007000 @13 EQU 13 02008000 @14 EQU 14 02009000 @15 EQU 15 02010000 PARMPTR EQU @01 02011000 ABDARPTR EQU @02 02012000 SAVESPQE EQU @03 02013000 R4 EQU @04 02014000 R7 EQU @07 02015000 SAVERET EQU @11 02016000 AUTOPTR EQU @12 02017000 SAREG13 EQU @13 02018000 RTRG14 EQU @14 02019000 RETCODE EQU @15 02020000 GPR01F EQU @01 02021000 GPR15F EQU @15 02022000 GPR00F EQU @00 02023000 PSA EQU 0 02024000 FLCRNPSW EQU PSA 02025000 FLCROPSW EQU PSA+8 02026000 FLCICCW2 EQU PSA+16 02027000 FLCCVT EQU FLCICCW2 02028000 PSAEEPSW EQU PSA+132 02029000 PSAESPSW EQU PSA+136 02030000 FLCSVILC EQU PSAESPSW+1 02031000 PSAEPPSW EQU PSA+140 02032000 FLCPIILC EQU PSAEPPSW+1 02033000 FLCPICOD EQU PSAEPPSW+2 02034000 PSAPICOD EQU FLCPICOD+1 02035000 FLCTEA EQU PSAEPPSW+4 02036000 FLCPER EQU PSA+152 02037000 FLCMCLA EQU PSA+168 02038000 FLCIOEL EQU FLCMCLA+4 02039000 FLCIOA EQU FLCMCLA+16 02040000 FLCFSA EQU FLCMCLA+80 02041000 PSAAOLD EQU PSA+548 02042000 PSASUPER EQU PSA+552 02043000 PSASUP1 EQU PSASUPER 02044000 PSASUP2 EQU PSASUPER+1 02045000 PSASUP3 EQU PSASUPER+2 02046000 PSASUP4 EQU PSASUPER+3 02047000 PSACLHT EQU PSA+640 02048000 PSALKSA EQU PSA+696 02049000 PSAHLHI EQU PSA+760 02050000 PSALITA EQU PSA+764 02051000 PSADSSFL EQU PSA+836 02052000 PSADSSF1 EQU PSADSSFL 02053000 PSADSSF3 EQU PSADSSFL+2 02054000 PSADSSF4 EQU PSADSSFL+3 02055000 PSARSVT EQU PSA+896 02056000 SPQENT EQU 0 02057000 SPQNUM EQU SPQENT+4 02058000 SPQTAB EQU 0 02059000 SPQADDR EQU SPQTAB 02060000 SPQSUB EQU SPQTAB+4 02061000 TABDQE EQU 0 02062000 FWDPTR EQU TABDQE 02063000 BWDPTR EQU TABDQE+4 02064000 DQETAB EQU TABDQE+8 02065000 DQELOC EQU DQETAB 02066000 DQEBLK EQU DQETAB+4 02067000 DQEENT EQU 0 02068000 DQEAREA EQU DQEENT+4 02069000 EXSIZE EQU 0 02070000 SIZE EQU EXSIZE+1 02071000 EXSTART EQU 0 02072000 START EQU EXSTART+1 02073000 STDSAREA EQU 0 02074000 PREVSAVE EQU STDSAREA+4 02075000 NEXTSAVE EQU STDSAREA+8 02076000 ABDAREA EQU 0 02077000 ABDTCB EQU ABDAREA 02078000 ABDCTCB EQU ABDAREA+4 02079000 ABDPARMS EQU ABDAREA+12 02080000 ABDFLAG EQU ABDPARMS+1 02081000 APFSDATA EQU ABDPARMS+4 02082000 APFSDAT1 EQU ABDPARMS+5 02083000 APFPDATA EQU ABDPARMS+6 02084000 ABDTABPT EQU ABDAREA+44 02085000 ABDPTRS EQU ABDAREA+84 02086000 ABDWORK1 EQU ABDAREA+120 02087000 ABDFLAG1 EQU ABDAREA+136 02088000 ABDSPHD EQU ABDFLAG1 02089000 ABDFLAG2 EQU ABDAREA+137 02090000 ABDSTAT EQU ABDFLAG2 02091000 ABDRES1 EQU ABDAREA+139 02092000 ABDWORK EQU ABDAREA+140 02093000 ABDUPRF EQU ABDAREA+265 02094000 ABDUPRFN EQU ABDAREA+266 02095000 ABDBLNKS EQU ABDAREA+267 02096000 ABDBLOCK EQU ABDAREA+272 02097000 ABDLENTH EQU ABDAREA+276 02098000 ABDBUFFS EQU ABDAREA+308 02099000 ABDGMA EQU ABDAREA+316 02100000 ABDAAREA EQU ABDGMA 02101000 ABDASIZE EQU ABDGMA+4 02102000 ESPARM EQU ABDAREA+340 02103000 ESTAEFLG EQU ESPARM+28 02104000 ABDLINEA EQU ABDAREA+384 02105000 ABDCC EQU ABDLINEA 02106000 ABDLINE EQU ABDLINEA+1 02107000 TCBFIX EQU 0 02108000 TCBFRS EQU TCBFIX 02109000 TCB EQU 0 02110000 TCBPIE EQU TCB+4 02111000 TCBPMASK EQU TCBPIE 02112000 TCBCMP EQU TCB+16 02113000 TCBCMPF EQU TCBCMP 02114000 TCBCPP EQU TCBCMPF 02115000 TCBSTCC EQU TCBCMPF 02116000 TCBCDBL EQU TCBCMPF 02117000 TCBCWTO EQU TCBCMPF 02118000 TCBCIND EQU TCBCMPF 02119000 TCBCMSG EQU TCBCMPF 02120000 TCBTRN EQU TCB+20 02121000 TCBABF EQU TCBTRN 02122000 TCBMSS EQU TCB+24 02123000 TCBMSSB EQU TCBMSS+1 02124000 TCBPKF EQU TCB+28 02125000 TCBFLAG EQU TCBPKF 02126000 TCBFLGS EQU TCB+29 02127000 TCBFLGS1 EQU TCBFLGS 02128000 TCBFLGS2 EQU TCBFLGS+1 02129000 TCBFLGS3 EQU TCBFLGS+2 02130000 TCBFLGS4 EQU TCBFLGS+3 02131000 TCBFLGS5 EQU TCBFLGS+4 02132000 TCBABWF EQU TCBFLGS5 02133000 TCBJPQ EQU TCB+44 02134000 TCBPURGE EQU TCBJPQ 02135000 TCBGRS EQU TCB+48 02136000 TCBFSA EQU TCB+112 02137000 TCBTME EQU TCB+120 02138000 TCBJSTCB EQU TCB+124 02139000 TCBJSTCA EQU TCBJSTCB+1 02140000 TCBOTC EQU TCB+132 02141000 TCBLTC EQU TCB+136 02142000 TCBTSFLG EQU TCB+148 02143000 TCBTSTSK EQU TCBTSFLG 02144000 TCBSTAB EQU TCB+160 02145000 TCBNSTAE EQU TCBSTAB 02146000 TCBTCT EQU TCB+164 02147000 TCBTCTGF EQU TCBTCT 02148000 TCBSCNDY EQU TCB+172 02149000 TCBNDSP EQU TCBSCNDY 02150000 TCBNDSP1 EQU TCBNDSP+1 02151000 TCBNDSP2 EQU TCBNDSP+2 02152000 TCBNDSP3 EQU TCBNDSP+3 02153000 TCBJSCB EQU TCB+180 02154000 TCBRECDE EQU TCBJSCB 02155000 TCBEXT1 EQU TCB+196 02156000 TCBBITS EQU TCB+200 02157000 TCBNDSP4 EQU TCBBITS 02158000 TCBNDSP5 EQU TCBBITS+1 02159000 TCBFLGS6 EQU TCBBITS+2 02160000 TCBFLGS7 EQU TCBBITS+3 02161000 TCBADMP EQU TCBFLGS7 02162000 TCBDAR EQU TCB+204 02163000 TCBDARC EQU TCBDAR 02164000 TCBEXT2 EQU TCB+208 02165000 TCBXSCT EQU TCB+240 02166000 TCBXSCT1 EQU TCBXSCT 02167000 TCBFOE EQU TCB+244 02168000 TCBESTAE EQU TCB+264 02169000 TCBESTRM EQU TCBESTAE+1 02170000 TCBFBYT1 EQU TCB+276 02171000 TCBFBYT2 EQU TCB+277 02172000 TCBRV124 EQU TCB+278 02173000 TCBRV133 EQU TCB+279 02174000 TCBXTNT2 EQU 0 02175000 TCBGTF EQU TCBXTNT2 02176000 TCBTFLG EQU TCBGTF 02177000 TCBRV146 EQU TCBXTNT2+28 02178000 TCBRV155 EQU TCBXTNT2+29 02179000 TCBRV164 EQU TCBXTNT2+30 02180000 TCBRV173 EQU TCBXTNT2+31 02181000 ASCB EQU 0 02182000 ASCBSUPC EQU ASCB+16 02183000 ASCBRSM EQU ASCB+52 02184000 ASCBRSMF EQU ASCBRSM 02185000 ASCBFW1 EQU ASCB+100 02186000 ASCBRCTF EQU ASCBFW1+2 02187000 ASCBFLG1 EQU ASCBFW1+3 02188000 ASCBDSP1 EQU ASCB+114 02189000 ASCBFLG2 EQU ASCB+115 02190000 ASCBLKGP EQU ASCB+128 02191000 ASCBSRQ EQU ASCB+180 02192000 ASCBSRQ1 EQU ASCBSRQ 02193000 ASCBSRQ2 EQU ASCBSRQ+1 02194000 ASCBSRQ3 EQU ASCBSRQ+2 02195000 ASCBSRQ4 EQU ASCBSRQ+3 02196000 CDENTRY EQU 0 02197000 CDCHAIN EQU CDENTRY 02198000 CDXLMJP EQU CDENTRY+20 02199000 CDATTR EQU CDENTRY+28 02200000 CDNIC EQU CDATTR 02201000 CDMIN EQU CDATTR 02202000 CDJPA EQU CDATTR 02203000 CDATTR2 EQU CDENTRY+29 02204000 CDSPZ EQU CDATTR2 02205000 XTLST EQU 0 02206000 XTLNRFAC EQU XTLST+4 02207000 XTLMSBLA EQU XTLST+8 02208000 XTLMSBAA EQU XTLST+12 02209000 FQESECT EQU 0 02210000 FQEPTR EQU FQESECT 02211000 FQTYPE EQU FQEPTR 02212000 FQELNTH EQU FQESECT+4 02213000 FQAREA EQU FQESECT+8 02214000 DQESECT EQU 0 02215000 DQFQEPTR EQU DQESECT 02216000 DQEPTR EQU DQESECT+4 02217000 DQEBLKAD EQU DQESECT+8 02218000 DQELNTH EQU DQESECT+12 02219000 SPQESECT EQU 0 02220000 SPQEAD EQU SPQESECT 02221000 SPQEPTR EQU SPQEAD 02222000 SPDQEPTR EQU SPQESECT+4 02223000 SPDQEAD EQU SPDQEPTR 02224000 SPQEFLGS EQU SPQESECT+8 02225000 SPSHARE EQU SPQEFLGS 02226000 SPQEID EQU SPQESECT+10 02227000 CVTMAP EQU 0 02228000 CVTDAR EQU CVTMAP+72 02229000 CVTFLGS1 EQU CVTDAR 02230000 CVTDCB EQU CVTMAP+116 02231000 CVTIOQET EQU CVTMAP+120 02232000 CVTIERLC EQU CVTMAP+144 02233000 CVTHEAD EQU CVTMAP+160 02234000 CVTSV76C EQU CVTHEAD 02235000 CVTOPTA EQU CVTMAP+182 02236000 CVTOPTB EQU CVTMAP+183 02237000 CVTGTF EQU CVTMAP+236 02238000 CVTGTFST EQU CVTGTF 02239000 CVTGTFS EQU CVTGTFST 02240000 CVTSTATE EQU CVTGTFST 02241000 CVTTMODE EQU CVTGTFST 02242000 CVTFORM EQU CVTGTFST 02243000 CVTAQAVT EQU CVTMAP+240 02244000 CVTTCMFG EQU CVTAQAVT 02245000 CVTVOLM2 EQU CVTMAP+244 02246000 CVTTATA EQU CVTVOLM2 02247000 CVTTSKS EQU CVTTATA 02248000 CVTVOLF2 EQU CVTTSKS 02249000 CVTTAT EQU CVTTATA+1 02250000 CVTATER EQU CVTMAP+248 02251000 CVTEXT1 EQU CVTMAP+252 02252000 CVTPURG EQU CVTMAP+260 02253000 CVTQMSG EQU CVTMAP+268 02254000 CVTDMSR EQU CVTMAP+272 02255000 CVTRSV37 EQU CVTDMSR 02256000 CVTDMSRF EQU CVTRSV37 02257000 CVTERPV EQU CVTMAP+316 02258000 CVTINTLA EQU CVTMAP+320 02259000 CVTAPF EQU CVTMAP+324 02260000 CVTEXT2 EQU CVTMAP+328 02261000 CVTHJES EQU CVTMAP+332 02262000 CVTPGSIA EQU CVTMAP+348 02263000 CVTA1F1 EQU CVTMAP+356 02264000 CVTSYSK EQU CVTMAP+357 02265000 CVTVOLM1 EQU CVTMAP+380 02266000 CVTVOLF1 EQU CVTVOLM1 02267000 CVTXTNT1 EQU 0 02268000 CVTXTNT2 EQU 0 02269000 CVTDSSV EQU CVTXTNT2 02270000 CVTFLGBT EQU CVTXTNT2+5 02271000 CVTQID EQU CVTXTNT2+24 02272000 CVTRV400 EQU CVTXTNT2+52 02273000 CVTRV409 EQU CVTXTNT2+53 02274000 CVTATCVT EQU CVTXTNT2+64 02275000 CVTRV429 EQU CVTXTNT2+84 02276000 CVTRV438 EQU CVTXTNT2+85 02277000 CVTRV457 EQU CVTXTNT2+112 02278000 CVTRV466 EQU CVTXTNT2+113 02279000 CVTFIX EQU 0 02280000 CVTRELNO EQU CVTFIX+252 02281000 RTCT EQU 0 02282000 RTCTPLIB EQU RTCT+4 02283000 RTCTSAP EQU RTCTPLIB 02284000 RTCTSAP1 EQU RTCTSAP 02285000 RTCTSAP2 EQU RTCTSAP+1 02286000 RTCTSAP3 EQU RTCTSAP+2 02287000 RTCTSUP EQU RTCTPLIB+4 02288000 RTCTSUP1 EQU RTCTSUP 02289000 RTCTSUP2 EQU RTCTSUP+1 02290000 RTCTSUP3 EQU RTCTSUP+2 02291000 RTCTSYD EQU RTCTPLIB+8 02292000 RTCTSY01 EQU RTCTSYD 02293000 RTCTSDDS EQU RTCT+36 02294000 RTCTFLG EQU RTCTSDDS+3 02295000 RTCTSDPL EQU RTCT+156 02296000 RTCTRFLG EQU RTCT+176 02297000 RTCTERID EQU RTCT+224 02298000 RTCTOPT EQU RTCT+236 02299000 RTCTASO EQU RTCT+252 02300000 RTCTASO1 EQU RTCTASO 02301000 RTCTASO2 EQU RTCTASO+1 02302000 RTCTSDI EQU RTCT+254 02303000 RTCTSDF EQU RTCT+264 02304000 RTCTSDF1 EQU RTCTSDF 02305000 RTCTSDF2 EQU RTCTSDF+1 02306000 RTCTR2D2 EQU RTCTSDF+2 02307000 RTCTC3PO EQU RTCTSDF+3 02308000 RTCTSDF3 EQU RTCT+268 02309000 RTCTSDF4 EQU RTCTSDF3+2 02310000 RTCTMOPT EQU 0 02311000 RTCTMSAO EQU RTCTMOPT 02312000 RTCTSASD EQU RTCTMSAO 02313000 RTCTSAO1 EQU RTCTSASD 02314000 RTCTSAO2 EQU RTCTSASD+1 02315000 RTCTSAPD EQU RTCTMSAO+2 02316000 RTCTSAO3 EQU RTCTSAPD 02317000 RTCTSAO4 EQU RTCTSAPD+1 02318000 RTCTSAMG EQU RTCTSAO4 02319000 RTCTMSUO EQU RTCTMOPT+4 02320000 RTCTSUSD EQU RTCTMSUO 02321000 RTCTSUO1 EQU RTCTSUSD 02322000 RTCTSUO2 EQU RTCTSUSD+1 02323000 RTCTSUPD EQU RTCTMSUO+2 02324000 RTCTSUO3 EQU RTCTSUPD 02325000 RTCTSUO4 EQU RTCTSUPD+1 02326000 RTCTSUMG EQU RTCTSUO4 02327000 RTCTMSYO EQU RTCTMOPT+8 02328000 RTCTSD01 EQU RTCTMSYO 02329000 RTCTSD04 EQU RTCTMSYO+3 02330000 RTCTSMMG EQU RTCTSD04 02331000 RTCTMSDO EQU RTCTMOPT+12 02332000 RTCTSDOD EQU RTCTMSDO 02333000 RTCTSDO1 EQU RTCTSDOD 02334000 RTCTSDO2 EQU RTCTSDOD+1 02335000 RTCTSDO3 EQU RTCTMSDO+2 02336000 RTCTSDO4 EQU RTCTMSDO+3 02337000 RTCTSDMG EQU RTCTSDO4 02338000 I256C EQU 0 02339000 I001C EQU 0 02340000 I008P EQU 0 02341000 I015F EQU 0 02342000 I015P EQU 0 02343000 I031F EQU 0 02344000 I031P EQU 0 02345000 SPIDA EQU SPID 02346000 MNDMSG EQU ABDLINEA 02347000 SP EQU ABDLINEA 02348000 TCBPTR EQU ABDCTCB 02349000 FQENAD3 EQU FQEPTR+1 02350000 DQEBLK3 EQU DQEBLKAD+1 02351000 ID EQU SPQEID 02352000 CVTPTR EQU FLCCVT 02353000 CVTS01 EQU CVTPGSIA 02354000 CVTLPDIA EQU CVTS01+12 02355000 CVTDIRST EQU CVTLPDIA 02356000 CVTSLIDA EQU CVTS01+24 02357000 CVTCTLFG EQU CVTS01+50 02358000 CVTCRMN EQU CVTS01+156 02359000 CVTRTMCT EQU CVTS01+224 02360000 CVTRV210 EQU CVTS01+424 02361000 CVTRV219 EQU CVTS01+425 02362000 CVTRV228 EQU CVTS01+426 02363000 CVTRV237 EQU CVTS01+427 02364000 CVTMFRTR EQU CVTS01+452 02365000 CVTRV262 EQU CVTS01+468 02366000 CVTRV271 EQU CVTS01+469 02367000 CVTRV280 EQU CVTS01+470 02368000 CVTRV289 EQU CVTS01+471 02369000 CVTGSDA EQU CVTS01+600 02370000 PSARSVTE EQU PSARSVT 02371000 FLC EQU PSA 02372000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02373000 PSARSAV EQU PSARSVTE+60 02374000 PSARSTK EQU PSARSVTE+56 02375000 PSAESAV3 EQU PSARSVTE+52 02376000 PSAESTK3 EQU PSARSVTE+48 02377000 PSAESAV2 EQU PSARSVTE+44 02378000 PSAESTK2 EQU PSARSVTE+40 02379000 PSAESAV1 EQU PSARSVTE+36 02380000 PSAESTK1 EQU PSARSVTE+32 02381000 PSAPSAV EQU PSARSVTE+28 02382000 PSAPSTK EQU PSARSVTE+24 02383000 PSAMSAV EQU PSARSVTE+20 02384000 PSAMSTK EQU PSARSVTE+16 02385000 PSASSAV EQU PSARSVTE+12 02386000 PSASSTK EQU PSARSVTE+8 02387000 PSANSTK EQU PSARSVTE+4 02388000 PSACSTK EQU PSARSVTE 02389000 CVTRV628 EQU CVTS01+728 02390000 CVTRV627 EQU CVTS01+724 02391000 CVTRV626 EQU CVTS01+720 02392000 CVTRV625 EQU CVTS01+716 02393000 CVTRV624 EQU CVTS01+712 02394000 CVTRV623 EQU CVTS01+708 02395000 CVTRV622 EQU CVTS01+704 02396000 CVTRV621 EQU CVTS01+700 02397000 CVTIHASU EQU CVTS01+696 02398000 CVTSUSP EQU CVTS01+692 02399000 CVTT6SVC EQU CVTS01+688 02400000 CVTCDAL EQU CVTS01+684 02401000 CVTTCTL EQU CVTS01+680 02402000 CVTRSUME EQU CVTS01+676 02403000 CVTJTERM EQU CVTS01+672 02404000 CVTASMRM EQU CVTS01+668 02405000 CVTTCASP EQU CVTS01+664 02406000 CVT0PT03 EQU CVTS01+660 02407000 CVT0PT0E EQU CVTS01+656 02408000 CVTRV609 EQU CVTS01+652 02409000 CVTCGK EQU CVTS01+648 02410000 CVTRAC EQU CVTS01+644 02411000 CVTHSM EQU CVTS01+640 02412000 CVTRV605 EQU CVTS01+636 02413000 CVTRV604 EQU CVTS01+632 02414000 CVTEFF02 EQU CVTS01+628 02415000 CVTCBBR EQU CVTS01+624 02416000 CVTSSCR EQU CVTS01+620 02417000 CVTEVENT EQU CVTS01+616 02418000 CVTCRCA EQU CVTS01+612 02419000 CVTTPIO EQU CVTS01+608 02420000 CVTADV EQU CVTS01+604 02421000 CVTGSDAB EQU CVTGSDA 02422000 CVTQV3 EQU CVTS01+596 02423000 CVTQV2 EQU CVTS01+592 02424000 CVTQV1 EQU CVTS01+588 02425000 CVTRPT EQU CVTS01+584 02426000 CVTSSRB EQU CVTS01+580 02427000 CVTCSDRL EQU CVTS01+576 02428000 CVTEXP1 EQU CVTS01+572 02429000 CVTRMPMT EQU CVTS01+568 02430000 CVTRMPTT EQU CVTS01+564 02431000 CVTVPSA EQU CVTS01+560 02432000 CVTVSTOP EQU CVTS01+556 02433000 CVTGTFR8 EQU CVTS01+552 02434000 CVTQUIT EQU CVTS01+548 02435000 CVTVACR EQU CVTS01+544 02436000 CVTWTCB EQU CVTS01+540 02437000 CVTSTPRS EQU CVTS01+536 02438000 CVT0PT02 EQU CVTS01+532 02439000 CVTDARCM EQU CVTS01+528 02440000 CVTIRECM EQU CVTS01+524 02441000 CVTJRECM EQU CVTS01+520 02442000 CVTVEMS0 EQU CVTS01+516 02443000 CVTSPFRR EQU CVTS01+512 02444000 CVTRLSTG EQU CVTS01+508 02445000 CVT0TC0A EQU CVTS01+504 02446000 CVTGMBR EQU CVTS01+500 02447000 CVTLFRM EQU CVTS01+496 02448000 CVTRMBR EQU CVTS01+492 02449000 CVTVIOP EQU CVTS01+488 02450000 CVTRV307 EQU CVTS01+486 02451000 CVTRV306 EQU CVTS01+484 02452000 CVTRV305 EQU CVTS01+482 02453000 CVTRV304 EQU CVTS01+480 02454000 CVTRV303 EQU CVTS01+478 02455000 CVTRV302 EQU CVTS01+476 02456000 CVTTRCA EQU CVTS01+472 02457000 CVTRV297 EQU CVTRV289 02458000 CVTRV296 EQU CVTRV289 02459000 CVTRV295 EQU CVTRV289 02460000 CVTRV294 EQU CVTRV289 02461000 CVTRV293 EQU CVTRV289 02462000 CVTRV292 EQU CVTRV289 02463000 CVTRV291 EQU CVTRV289 02464000 CVTRV290 EQU CVTRV289 02465000 CVTRV288 EQU CVTRV280 02466000 CVTRV287 EQU CVTRV280 02467000 CVTRV286 EQU CVTRV280 02468000 CVTRV285 EQU CVTRV280 02469000 CVTRV284 EQU CVTRV280 02470000 CVTRV283 EQU CVTRV280 02471000 CVTRV282 EQU CVTRV280 02472000 CVTRV281 EQU CVTRV280 02473000 CVTRV279 EQU CVTRV271 02474000 CVTRV278 EQU CVTRV271 02475000 CVTRV277 EQU CVTRV271 02476000 CVTRV276 EQU CVTRV271 02477000 CVTRV275 EQU CVTRV271 02478000 CVTRV274 EQU CVTRV271 02479000 CVTRV273 EQU CVTRV271 02480000 CVTRV272 EQU CVTRV271 02481000 CVTRV270 EQU CVTRV262 02482000 CVTRV269 EQU CVTRV262 02483000 CVTRV268 EQU CVTRV262 02484000 CVTRV267 EQU CVTRV262 02485000 CVTRV266 EQU CVTRV262 02486000 CVTRV265 EQU CVTRV262 02487000 CVTRV264 EQU CVTRV262 02488000 CVTRV263 EQU CVTRV262 02489000 CVTVFP EQU CVTS01+464 02490000 CVTVSI EQU CVTS01+460 02491000 CVTVPSIB EQU CVTS01+456 02492000 CVTMFACT EQU CVTMFRTR 02493000 CVTMFCTL EQU CVTS01+448 02494000 CVTPVBP EQU CVTS01+444 02495000 CVTPWI EQU CVTS01+440 02496000 CVTRV254 EQU CVTS01+438 02497000 CVTRV253 EQU CVTS01+436 02498000 CVTRV252 EQU CVTS01+434 02499000 CVTRV251 EQU CVTS01+433 02500000 CVTRV250 EQU CVTS01+432 02501000 CVTRV249 EQU CVTS01+431 02502000 CVTRV248 EQU CVTS01+430 02503000 CVTRV247 EQU CVTS01+429 02504000 CVTRV246 EQU CVTS01+428 02505000 CVTRV245 EQU CVTRV237 02506000 CVTRV244 EQU CVTRV237 02507000 CVTRV243 EQU CVTRV237 02508000 CVTRV242 EQU CVTRV237 02509000 CVTRV241 EQU CVTRV237 02510000 CVTRV240 EQU CVTRV237 02511000 CVTRV239 EQU CVTRV237 02512000 CVTRV238 EQU CVTRV237 02513000 CVTRV236 EQU CVTRV228 02514000 CVTRV235 EQU CVTRV228 02515000 CVTRV234 EQU CVTRV228 02516000 CVTRV233 EQU CVTRV228 02517000 CVTRV232 EQU CVTRV228 02518000 CVTRV231 EQU CVTRV228 02519000 CVTRV230 EQU CVTRV228 02520000 CVTRV229 EQU CVTRV228 02521000 CVTRV227 EQU CVTRV219 02522000 CVTRV226 EQU CVTRV219 02523000 CVTRV225 EQU CVTRV219 02524000 CVTRV224 EQU CVTRV219 02525000 CVTRV223 EQU CVTRV219 02526000 CVTRV222 EQU CVTRV219 02527000 CVTRV221 EQU CVTRV219 02528000 CVTRV220 EQU CVTRV219 02529000 CVTRV218 EQU CVTRV210 02530000 CVTRV217 EQU CVTRV210 02531000 CVTRV216 EQU CVTRV210 02532000 CVTRV215 EQU CVTRV210 02533000 CVTRV214 EQU CVTRV210 02534000 CVTRV213 EQU CVTRV210 02535000 CVTRV212 EQU CVTRV210 02536000 CVTRV211 EQU CVTRV210 02537000 CVTLCCAT EQU CVTS01+420 02538000 CVTPCCAT EQU CVTS01+416 02539000 CVTIPCRP EQU CVTS01+412 02540000 CVTIPCRI EQU CVTS01+408 02541000 CVTIPCDS EQU CVTS01+404 02542000 CVTAIDVT EQU CVTS01+400 02543000 CVTSSAP EQU CVTS01+396 02544000 CVTEHCIR EQU CVTS01+392 02545000 CVTEHDEF EQU CVTS01+388 02546000 CVTDAIR EQU CVTS01+384 02547000 CVTPERFM EQU CVTS01+380 02548000 CVT044R2 EQU CVTS01+376 02549000 CVTFETCH EQU CVTS01+372 02550000 CVTRSTWD EQU CVTS01+368 02551000 CVTSPOST EQU CVTS01+364 02552000 CVTIOBP EQU CVTS01+360 02553000 CVTASMVT EQU CVTS01+356 02554000 CVTRECRQ EQU CVTS01+352 02555000 CVTWSAC EQU CVTS01+348 02556000 CVTRV149 EQU CVTS01+344 02557000 CVTWSAL EQU CVTS01+340 02558000 CVTSPSA EQU CVTS01+336 02559000 CVTGLMN EQU CVTS01+332 02560000 CVTVEAC0 EQU CVTS01+328 02561000 CVT062R1 EQU CVTS01+324 02562000 CVTRPOST EQU CVTS01+320 02563000 CVTDQIQE EQU CVTS01+316 02564000 CVTCSD EQU CVTS01+312 02565000 CVTLKRMA EQU CVTS01+308 02566000 CVTRSPIE EQU CVTS01+304 02567000 CVTRENQ EQU CVTS01+300 02568000 CVTLQCB EQU CVTS01+296 02569000 CVTFQCB EQU CVTS01+292 02570000 CVTQCS01 EQU CVTS01+288 02571000 CVTAPFT EQU CVTS01+284 02572000 CVTPARRL EQU CVTS01+280 02573000 CVTVWAIT EQU CVTS01+276 02574000 CVTGSPL EQU CVTS01+272 02575000 CVTLSMQ EQU CVTS01+268 02576000 CVTGSMQ EQU CVTS01+264 02577000 CVTEXPRO EQU CVTS01+260 02578000 CVTOPCTP EQU CVTS01+256 02579000 CVTSIC EQU CVTS01+252 02580000 CVTTPIOS EQU CVTS01+248 02581000 CVTRTMS EQU CVTS01+244 02582000 CVTSDBF EQU CVTS01+240 02583000 CVTSCBP EQU CVTS01+236 02584000 CVTSDMP EQU CVTS01+232 02585000 CVTSV60 EQU CVTS01+228 02586000 CVTASCBL EQU CVTS01+220 02587000 CVTASCBH EQU CVTS01+216 02588000 CVTGDA EQU CVTS01+212 02589000 CVTASVT EQU CVTS01+208 02590000 CVTVVMDI EQU CVTS01+204 02591000 CVTAQTOP EQU CVTS01+200 02592000 CVTIOSCS EQU CVTS01+196 02593000 CVTSDRM EQU CVTS01+192 02594000 CVTOPTE EQU CVTS01+188 02595000 CVTSTXU EQU CVTS01+184 02596000 CVTQUIS EQU CVTS01+180 02597000 CVTPARS EQU CVTS01+176 02598000 CVTS1EE EQU CVTS01+172 02599000 CVTFRAS EQU CVTS01+168 02600000 CVTQSAS EQU CVTS01+164 02601000 CVTCRAS EQU CVTS01+160 02602000 CVTDELCP EQU CVTS01+152 02603000 CVTFRECL EQU CVTS01+148 02604000 CVTGETCL EQU CVTS01+144 02605000 CVTBLDCP EQU CVTS01+140 02606000 CVTAUTHL EQU CVTS01+136 02607000 CVTSCAN EQU CVTS01+132 02608000 CVTRV144 EQU CVTS01+130 02609000 CVTMAXMP EQU CVTS01+128 02610000 CVTSTCK EQU CVTS01+124 02611000 CVTRV139 EQU CVTS01+123 02612000 CVTDSSAC EQU CVTS01+122 02613000 CVTRV513 EQU CVTS01+121 02614000 CVTIOSPL EQU CVTS01+120 02615000 CVTPTGT EQU CVTS01+116 02616000 CVTCSPIE EQU CVTS01+112 02617000 CVTSMFEX EQU CVTS01+108 02618000 CVTOLT0A EQU CVTS01+104 02619000 CVTSRBRT EQU CVTS01+100 02620000 CVTPUTL EQU CVTS01+96 02621000 CVTASCRL EQU CVTS01+92 02622000 CVTASCRF EQU CVTS01+88 02623000 CVTRV326 EQU CVTS01+84 02624000 CVTRV325 EQU CVTS01+80 02625000 CVTRV324 EQU CVTS01+76 02626000 CVT0VL01 EQU CVTS01+72 02627000 CVTSHRVM EQU CVTS01+68 02628000 CVTRV332 EQU CVTS01+64 02629000 CVTTAS EQU CVTS01+60 02630000 CVTRSCN EQU CVTS01+56 02631000 CVTTRAC2 EQU CVTS01+54 02632000 CVTTRACE EQU CVTS01+52 02633000 CVTAPG EQU CVTS01+51 02634000 CVTSDTRC EQU CVTCTLFG 02635000 CVTGTRCE EQU CVTCTLFG 02636000 CVTNOMP EQU CVTCTLFG 02637000 CVTRSV79 EQU CVTCTLFG 02638000 CVTDSTAT EQU CVTCTLFG 02639000 CVTRSV78 EQU CVTCTLFG 02640000 CVTRV333 EQU CVTCTLFG 02641000 CVTRV323 EQU CVTCTLFG 02642000 CVTSPVLK EQU CVTS01+49 02643000 CVTRSV77 EQU CVTS01+48 02644000 CVTRV331 EQU CVTS01+44 02645000 CVTRV330 EQU CVTS01+40 02646000 CVTRV329 EQU CVTS01+36 02647000 CVTRV328 EQU CVTS01+32 02648000 CVTRV322 EQU CVTS01+28 02649000 CVTSLID EQU CVTSLIDA+1 02650000 CVTSYLK EQU CVTSLIDA 02651000 CVTRV321 EQU CVTS01+20 02652000 CVTRV320 EQU CVTS01+16 02653000 CVTLPDIR EQU CVTLPDIA+1 02654000 CVTRSV69 EQU CVTDIRST 02655000 CVTRSV68 EQU CVTDIRST 02656000 CVTRSV67 EQU CVTDIRST 02657000 CVTRSV66 EQU CVTDIRST 02658000 CVTRSV65 EQU CVTDIRST 02659000 CVTRSV64 EQU CVTDIRST 02660000 CVTRSV63 EQU CVTDIRST 02661000 CVTDICOM EQU CVTDIRST 02662000 CVTPVTP EQU CVTS01+8 02663000 CVTLPDSR EQU CVTS01+4 02664000 CVTGETL EQU CVTS01 02665000 RTCTISVC EQU RTCTSDO4 02666000 RTCTSDOV EQU RTCTSDMG 02667000 @NM00080 EQU RTCTSDO4 02668000 @NM00079 EQU RTCTSDO3 02669000 RTCTSDPH EQU RTCTSDO3 02670000 RTCTSDPG EQU RTCTSDO3 02671000 @NM00078 EQU RTCTSDO2 02672000 RTCTSDPD EQU RTCTSDO2 02673000 RTCTSDPC EQU RTCTSDO2 02674000 RTCTSDPB EQU RTCTSDO2 02675000 RTCTSDPA EQU RTCTSDO2 02676000 RTCTSDP9 EQU RTCTSDO2 02677000 RTCTSDP8 EQU RTCTSDO2 02678000 RTCTSDP7 EQU RTCTSDO1 02679000 RTCTSDP6 EQU RTCTSDO1 02680000 RTCTSDP5 EQU RTCTSDO1 02681000 RTCTSDP4 EQU RTCTSDO1 02682000 RTCTSDP3 EQU RTCTSDO1 02683000 RTCTSDP2 EQU RTCTSDO1 02684000 RTCTSDP1 EQU RTCTSDO1 02685000 RTCTSDP0 EQU RTCTSDO1 02686000 RTCTISYM EQU RTCTSD04 02687000 RTCTSMOV EQU RTCTSMMG 02688000 @NM00077 EQU RTCTSD04 02689000 RTCTSD03 EQU RTCTMSYO+2 02690000 RTCTSD02 EQU RTCTMSYO+1 02691000 RTCTSDS7 EQU RTCTSD01 02692000 RTCTSDS6 EQU RTCTSD01 02693000 RTCTSDS5 EQU RTCTSD01 02694000 RTCTSDS4 EQU RTCTSD01 02695000 RTCTSDS3 EQU RTCTSD01 02696000 RTCTSDS2 EQU RTCTSD01 02697000 RTCTSDS1 EQU RTCTSD01 02698000 RTCTSDS0 EQU RTCTSD01 02699000 RTCTISYU EQU RTCTSUO4 02700000 RTCTSUOV EQU RTCTSUMG 02701000 @NM00076 EQU RTCTSUO4 02702000 RTCTSYDF EQU RTCTSUO3 02703000 RTCTSYDE EQU RTCTSUO3 02704000 RTCTSYDD EQU RTCTSUO3 02705000 RTCTSYDC EQU RTCTSUO3 02706000 RTCTSYDB EQU RTCTSUO3 02707000 RTCTSYDA EQU RTCTSUO3 02708000 RTCTSYD9 EQU RTCTSUO3 02709000 RTCTSYD8 EQU RTCTSUO3 02710000 @NM00075 EQU RTCTSUO2 02711000 RTCTSYDH EQU RTCTSUO2 02712000 RTCTSYDG EQU RTCTSUO2 02713000 RTCTSYD7 EQU RTCTSUO1 02714000 RTCTSYD6 EQU RTCTSUO1 02715000 RTCTSYD5 EQU RTCTSUO1 02716000 RTCTSYD4 EQU RTCTSUO1 02717000 RTCTSYD3 EQU RTCTSUO1 02718000 RTCTSYD2 EQU RTCTSUO1 02719000 RTCTSYD1 EQU RTCTSUO1 02720000 RTCTSYD0 EQU RTCTSUO1 02721000 RTCTISAB EQU RTCTSAO4 02722000 RTCTSAOV EQU RTCTSAMG 02723000 @NM00074 EQU RTCTSAO4 02724000 RTCTSADF EQU RTCTSAO3 02725000 RTCTSADE EQU RTCTSAO3 02726000 RTCTSADD EQU RTCTSAO3 02727000 RTCTSADC EQU RTCTSAO3 02728000 RTCTSADB EQU RTCTSAO3 02729000 RTCTSADA EQU RTCTSAO3 02730000 RTCTSAD9 EQU RTCTSAO3 02731000 RTCTSAD8 EQU RTCTSAO3 02732000 @NM00073 EQU RTCTSAO2 02733000 RTCTSADH EQU RTCTSAO2 02734000 RTCTSADG EQU RTCTSAO2 02735000 RTCTSAD7 EQU RTCTSAO1 02736000 RTCTSAD6 EQU RTCTSAO1 02737000 RTCTSAD5 EQU RTCTSAO1 02738000 RTCTSAD4 EQU RTCTSAO1 02739000 RTCTSAD3 EQU RTCTSAO1 02740000 RTCTSAD2 EQU RTCTSAO1 02741000 RTCTSAD1 EQU RTCTSAO1 02742000 RTCTSAD0 EQU RTCTSAO1 02743000 RTCTZZZ5 EQU RTCT+340 02744000 RTCTZZZ4 EQU RTCT+336 02745000 RTCTMRMQ EQU RTCT+332 02746000 RTCTSDF5 EQU RTCTSDF3+3 02747000 RTCTSDDO EQU RTCTSDF4 02748000 RTCTSDEN EQU RTCTSDF4 02749000 RTCTSDEQ EQU RTCTSDF4 02750000 RTCTSDTR EQU RTCTSDF4 02751000 RTCTSDRM EQU RTCTSDF4 02752000 RTCTSDAN EQU RTCTSDF4 02753000 RTCTSDNC EQU RTCTSDF4 02754000 RTCTSDSS EQU RTCTSDF4 02755000 RTCTSDAS EQU RTCTSDF3 02756000 @NM00072 EQU RTCTC3PO 02757000 @NM00071 EQU RTCTR2D2 02758000 RTCTDTND EQU RTCTR2D2 02759000 RTCTSDFX EQU RTCTSDF2 02760000 RTCTSDRW EQU RTCTSDF2 02761000 RTCTSDSL EQU RTCTSDF2 02762000 RTCTSDWF EQU RTCTSDF2 02763000 RTCTSDLA EQU RTCTSDF2 02764000 RTCTSDDI EQU RTCTSDF2 02765000 RTCTSDTQ EQU RTCTSDF2 02766000 RTCTSDMR EQU RTCTSDF2 02767000 RTCTSDSC EQU RTCTSDF1 02768000 RTCTSDRS EQU RTCTSDF1 02769000 RTCTSDSD EQU RTCTSDF1 02770000 RTCTSDEP EQU RTCTSDF1 02771000 RTCTSDMA EQU RTCTSDF1 02772000 RTCTSDSH EQU RTCTSDF1 02773000 RTCTSDND EQU RTCTSDF1 02774000 RTCTSDNO EQU RTCTSDF1 02775000 RTCTZZZ2 EQU RTCT+257 02776000 RTCTSDPR EQU RTCTSDI+2 02777000 RTCTINDX EQU RTCTSDI+1 02778000 RTCTSDNA EQU RTCTSDI 02779000 @NM00070 EQU RTCTASO2 02780000 RTCTASNQ EQU RTCTASO2 02781000 RTCTASNA EQU RTCTASO2 02782000 RTCTASNS EQU RTCTASO2 02783000 RTCTASSU EQU RTCTASO2 02784000 RTCTASSW EQU RTCTASO2 02785000 RTCTASCS EQU RTCTASO2 02786000 RTCTASTR EQU RTCTASO1 02787000 RTCTASLP EQU RTCTASO1 02788000 RTCTASRG EQU RTCTASO1 02789000 RTCTASLS EQU RTCTASO1 02790000 RTCTASSQ EQU RTCTASO1 02791000 RTCTASNU EQU RTCTASO1 02792000 RTCTASPS EQU RTCTASO1 02793000 RTCTASAL EQU RTCTASO1 02794000 RTCTSDO EQU RTCTOPT+12 02795000 RTCTSYO EQU RTCTOPT+8 02796000 RTCTSUO EQU RTCTOPT+4 02797000 RTCTSAO EQU RTCTOPT 02798000 RTCTXXX2 EQU RTCT+234 02799000 RTCTETIM EQU RTCTERID+6 02800000 RTCTEASD EQU RTCTERID+4 02801000 RTCTECPU EQU RTCTERID+2 02802000 RTCTESEQ EQU RTCTERID 02803000 RTCTSDWK EQU RTCT+220 02804000 RTCTTDCB EQU RTCT+184 02805000 RTCTSDSW EQU RTCT+180 02806000 RTCTSEQ# EQU RTCT+178 02807000 RTCTXXX1 EQU RTCT+177 02808000 @NM00069 EQU RTCTRFLG 02809000 RTCTRSTF EQU RTCTRFLG 02810000 RTCTRPER EQU RTCTRFLG 02811000 RTCTRTER EQU RTCTRFLG 02812000 RTCTTEST EQU RTCT+172 02813000 RTCTMSRB EQU RTCT+168 02814000 RTCTMLCK EQU RTCT+164 02815000 RTCTFMT EQU RTCT+160 02816000 RTCTSDIP EQU RTCTSDPL 02817000 RTCTDEV EQU RTCTSDDS+8 02818000 RTCTDCB EQU RTCTSDDS+4 02819000 @NM00068 EQU RTCTFLG 02820000 RTCTDETP EQU RTCTFLG 02821000 RTCTDSUS EQU RTCTFLG 02822000 RTCTDSST EQU RTCTFLG 02823000 RTCTDSNM EQU RTCTSDDS 02824000 RTCTRCB EQU RTCT+32 02825000 RTCTRECB EQU RTCT+28 02826000 RTCTFASB EQU RTCT+24 02827000 RTCTMECB EQU RTCT+20 02828000 RTCTSDID EQU RTCT+18 02829000 RTCTYYY1 EQU RTCT+16 02830000 RTCTSY04 EQU RTCTSYD+3 02831000 RTCTSY03 EQU RTCTSYD+2 02832000 RTCTSY02 EQU RTCTSYD+1 02833000 RTCTSYM7 EQU RTCTSY01 02834000 RTCTSYM6 EQU RTCTSY01 02835000 RTCTSYM5 EQU RTCTSY01 02836000 RTCTSYM4 EQU RTCTSY01 02837000 RTCTSYM3 EQU RTCTSY01 02838000 RTCTSYM2 EQU RTCTSY01 02839000 RTCTSYM1 EQU RTCTSY01 02840000 RTCTSYM0 EQU RTCTSY01 02841000 RTCTSUP4 EQU RTCTSUP+3 02842000 RTCTSUDF EQU RTCTSUP3 02843000 RTCTSUDE EQU RTCTSUP3 02844000 RTCTSUDD EQU RTCTSUP3 02845000 RTCTSUDC EQU RTCTSUP3 02846000 RTCTSUDB EQU RTCTSUP3 02847000 RTCTSUDA EQU RTCTSUP3 02848000 RTCTSUD9 EQU RTCTSUP3 02849000 RTCTSUD8 EQU RTCTSUP3 02850000 @NM00067 EQU RTCTSUP2 02851000 RTCTSUDH EQU RTCTSUP2 02852000 RTCTSUDG EQU RTCTSUP2 02853000 RTCTSUD7 EQU RTCTSUP1 02854000 RTCTSUD6 EQU RTCTSUP1 02855000 RTCTSUD5 EQU RTCTSUP1 02856000 RTCTSUD4 EQU RTCTSUP1 02857000 RTCTSUD3 EQU RTCTSUP1 02858000 RTCTSUD2 EQU RTCTSUP1 02859000 RTCTSUD1 EQU RTCTSUP1 02860000 RTCTSUD0 EQU RTCTSUP1 02861000 RTCTSAP4 EQU RTCTSAP+3 02862000 RTCTSABF EQU RTCTSAP3 02863000 RTCTSABE EQU RTCTSAP3 02864000 RTCTSABD EQU RTCTSAP3 02865000 RTCTSABC EQU RTCTSAP3 02866000 RTCTSABB EQU RTCTSAP3 02867000 RTCTSABA EQU RTCTSAP3 02868000 RTCTSAB9 EQU RTCTSAP3 02869000 RTCTSAB8 EQU RTCTSAP3 02870000 @NM00066 EQU RTCTSAP2 02871000 RTCTSABH EQU RTCTSAP2 02872000 RTCTSABG EQU RTCTSAP2 02873000 RTCTSAB7 EQU RTCTSAP1 02874000 RTCTSAB6 EQU RTCTSAP1 02875000 RTCTSAB5 EQU RTCTSAP1 02876000 RTCTSAB4 EQU RTCTSAP1 02877000 RTCTSAB3 EQU RTCTSAP1 02878000 RTCTSAB2 EQU RTCTSAP1 02879000 RTCTSAB1 EQU RTCTSAP1 02880000 RTCTSAB0 EQU RTCTSAP1 02881000 RTCTNAME EQU RTCT 02882000 CVTLEVL EQU CVTRELNO+2 02883000 CVTNUMB EQU CVTRELNO 02884000 CVTMDL EQU CVTFIX+250 02885000 @NM00041 EQU CVTFIX+248 02886000 @NM00040 EQU CVTFIX 02887000 CVTRV482 EQU CVTXTNT2+128 02888000 CVTRV481 EQU CVTXTNT2+124 02889000 CVTRV480 EQU CVTXTNT2+120 02890000 CVTRV479 EQU CVTXTNT2+118 02891000 CVTRV478 EQU CVTXTNT2+117 02892000 CVTRV477 EQU CVTXTNT2+116 02893000 CVTRV476 EQU CVTXTNT2+115 02894000 CVTRV475 EQU CVTXTNT2+114 02895000 CVTRV474 EQU CVTRV466 02896000 CVTRV473 EQU CVTRV466 02897000 CVTRV472 EQU CVTRV466 02898000 CVTRV471 EQU CVTRV466 02899000 CVTRV470 EQU CVTRV466 02900000 CVTRV469 EQU CVTRV466 02901000 CVTRV468 EQU CVTRV466 02902000 CVTRV467 EQU CVTRV466 02903000 CVTRV465 EQU CVTRV457 02904000 CVTRV464 EQU CVTRV457 02905000 CVTRV463 EQU CVTRV457 02906000 CVTRV462 EQU CVTRV457 02907000 CVTRV461 EQU CVTRV457 02908000 CVTRV460 EQU CVTRV457 02909000 CVTRV459 EQU CVTRV457 02910000 CVTRV458 EQU CVTRV457 02911000 CVTRV456 EQU CVTXTNT2+108 02912000 CVTRV455 EQU CVTXTNT2+104 02913000 CVTRV454 EQU CVTXTNT2+100 02914000 CVTRV453 EQU CVTXTNT2+96 02915000 CVTRV452 EQU CVTXTNT2+94 02916000 CVTRV451 EQU CVTXTNT2+92 02917000 CVTRV450 EQU CVTXTNT2+90 02918000 CVTRV449 EQU CVTXTNT2+88 02919000 CVTRV448 EQU CVTXTNT2+87 02920000 CVTRV447 EQU CVTXTNT2+86 02921000 CVTRV446 EQU CVTRV438 02922000 CVTRV445 EQU CVTRV438 02923000 CVTRV444 EQU CVTRV438 02924000 CVTRV443 EQU CVTRV438 02925000 CVTRV442 EQU CVTRV438 02926000 CVTRV441 EQU CVTRV438 02927000 CVTRV440 EQU CVTRV438 02928000 CVTRV439 EQU CVTRV438 02929000 CVTRV437 EQU CVTRV429 02930000 CVTRV436 EQU CVTRV429 02931000 CVTRV435 EQU CVTRV429 02932000 CVTRV434 EQU CVTRV429 02933000 CVTRV433 EQU CVTRV429 02934000 CVTRV432 EQU CVTRV429 02935000 CVTRV431 EQU CVTRV429 02936000 CVTRV430 EQU CVTRV429 02937000 CVTRV428 EQU CVTXTNT2+80 02938000 CVTRV427 EQU CVTXTNT2+76 02939000 CVTRV426 EQU CVTXTNT2+72 02940000 CVTRV425 EQU CVTXTNT2+68 02941000 CVTATACT EQU CVTATCVT 02942000 CVTRV423 EQU CVTXTNT2+62 02943000 CVTRV422 EQU CVTXTNT2+60 02944000 CVTRV421 EQU CVTXTNT2+58 02945000 CVTRV420 EQU CVTXTNT2+56 02946000 CVTRV419 EQU CVTXTNT2+55 02947000 CVTRV418 EQU CVTXTNT2+54 02948000 CVTRV417 EQU CVTRV409 02949000 CVTRV416 EQU CVTRV409 02950000 CVTRV415 EQU CVTRV409 02951000 CVTRV414 EQU CVTRV409 02952000 CVTRV413 EQU CVTRV409 02953000 CVTRV412 EQU CVTRV409 02954000 CVTRV411 EQU CVTRV409 02955000 CVTRV410 EQU CVTRV409 02956000 CVTRV408 EQU CVTRV400 02957000 CVTRV407 EQU CVTRV400 02958000 CVTRV406 EQU CVTRV400 02959000 CVTRV405 EQU CVTRV400 02960000 CVTRV404 EQU CVTRV400 02961000 CVTRV403 EQU CVTRV400 02962000 CVTRV402 EQU CVTRV400 02963000 CVTRV401 EQU CVTRV400 02964000 CVTICB EQU CVTXTNT2+48 02965000 CVTSKTA EQU CVTXTNT2+44 02966000 CVTCCVT EQU CVTXTNT2+40 02967000 CVTRSV98 EQU CVTXTNT2+36 02968000 CVTRSV97 EQU CVTXTNT2+34 02969000 CVTRSV96 EQU CVTXTNT2+32 02970000 CVTOLTEP EQU CVTXTNT2+28 02971000 CVTQIDA EQU CVTQID+1 02972000 CVTRSV95 EQU CVTQID 02973000 CVTRSV94 EQU CVTXTNT2+20 02974000 CVTRSV93 EQU CVTXTNT2+16 02975000 CVTRSV92 EQU CVTXTNT2+12 02976000 CVTDEBVR EQU CVTXTNT2+8 02977000 CVTRSV91 EQU CVTXTNT2+6 02978000 CVTRSV9H EQU CVTFLGBT 02979000 CVTRSV9G EQU CVTFLGBT 02980000 CVTRSV9F EQU CVTFLGBT 02981000 CVTRSV9E EQU CVTFLGBT 02982000 CVTRSV9D EQU CVTFLGBT 02983000 CVTBAH EQU CVTFLGBT 02984000 CVTVME EQU CVTFLGBT 02985000 CVTNPE EQU CVTFLGBT 02986000 CVTNUCLS EQU CVTXTNT2+4 02987000 CVTDSSVA EQU CVTDSSV+1 02988000 CVTRSV89 EQU CVTDSSV 02989000 CVTRSV88 EQU CVTXTNT1+8 02990000 CVTRSV87 EQU CVTXTNT1+4 02991000 CVTFACHN EQU CVTXTNT1 02992000 CVTRV488 EQU CVTMAP+412 02993000 CVTRV487 EQU CVTMAP+408 02994000 CVTRV486 EQU CVTMAP+404 02995000 CVTRV485 EQU CVTMAP+400 02996000 CVTACTAP EQU CVTMAP+396 02997000 CVTAUTH EQU CVTMAP+392 02998000 CVTRV490 EQU CVTMAP+388 02999000 CVTSU EQU CVTMAP+384 03000000 CVTVOLT1 EQU CVTVOLM1+1 03001000 CVTVOLI1 EQU CVTVOLF1 03002000 CVTSTOA EQU CVTMAP+376 03003000 CVTRSV58 EQU CVTMAP+374 03004000 CVTRSV57 EQU CVTMAP+372 03005000 CVTDDCE EQU CVTMAP+368 03006000 CVTPNWFR EQU CVTMAP+364 03007000 CVTSMF EQU CVTMAP+360 03008000 CVTSULK EQU CVTMAP+358 03009000 CVTSLKO EQU CVTSYSK 03010000 CVTSLKP EQU CVTSYSK 03011000 CVTSLKQ EQU CVTSYSK 03012000 CVTSLKR EQU CVTSYSK 03013000 CVTRSV56 EQU CVTSYSK 03014000 CVTRSV55 EQU CVTSYSK 03015000 CVTRSV54 EQU CVTSYSK 03016000 CVTRSV53 EQU CVTSYSK 03017000 CVTRSV52 EQU CVTA1F1 03018000 CVTRSV51 EQU CVTA1F1 03019000 CVTRSV50 EQU CVTA1F1 03020000 CVTRSV49 EQU CVTA1F1 03021000 CVTRSV48 EQU CVTA1F1 03022000 CVTRSV47 EQU CVTA1F1 03023000 CVTSRSW EQU CVTA1F1 03024000 CVTPFSW EQU CVTA1F1 03025000 CVTPCVT EQU CVTMAP+352 03026000 CVTRSV46 EQU CVTMAP+344 03027000 CVTRSV45 EQU CVTMAP+340 03028000 CVTRSV44 EQU CVTMAP+338 03029000 CVTRSV43 EQU CVTMAP+336 03030000 CVTHJESA EQU CVTHJES+1 03031000 CVTRSV42 EQU CVTHJES 03032000 CVTEXT2A EQU CVTEXT2+1 03033000 CVTRSV41 EQU CVTEXT2 03034000 CVTAPFA EQU CVTAPF+1 03035000 CVTRSV40 EQU CVTAPF 03036000 CVTRV518 EQU CVTINTLA 03037000 CVTRV517 EQU CVTERPV 03038000 CVTEORM EQU CVTMAP+312 03039000 CVTMCHPR EQU CVTMAP+308 03040000 CVTTZ EQU CVTMAP+304 03041000 CVTJEPS EQU CVTMAP+300 03042000 CVTJESCT EQU CVTMAP+296 03043000 CVTMODE EQU CVTMAP+292 03044000 CVTPTRV EQU CVTMAP+288 03045000 CVTREAL EQU CVTMAP+284 03046000 CVTRSV39 EQU CVTMAP+280 03047000 CVTRSV38 EQU CVTMAP+276 03048000 CVTDMSRA EQU CVTDMSR+1 03049000 CVTRV634 EQU CVTDMSRF 03050000 CVTRV633 EQU CVTDMSRF 03051000 CVTRV632 EQU CVTDMSRF 03052000 CVTRV631 EQU CVTDMSRF 03053000 CVTRV630 EQU CVTDMSRF 03054000 CVTRV629 EQU CVTDMSRF 03055000 CVTUDUMP EQU CVTDMSRF 03056000 CVTSDUMP EQU CVTDMSRF 03057000 CVTQMSGA EQU CVTQMSG+1 03058000 CVTRSV36 EQU CVTQMSG 03059000 CVTAMFF EQU CVTMAP+264 03060000 CVTPURGA EQU CVTPURG+1 03061000 CVTRSV35 EQU CVTPURG 03062000 CVTCBSP EQU CVTMAP+256 03063000 CVTATERA EQU CVTATER+1 03064000 CVTSYST EQU CVTATER 03065000 CVTVOLT2 EQU CVTTAT 03066000 CVTVOLI2 EQU CVTVOLF2 03067000 CVTAQAVB EQU CVTAQAVT+1 03068000 CVTRSV34 EQU CVTTCMFG 03069000 CVTRSV33 EQU CVTTCMFG 03070000 CVTRSV32 EQU CVTTCMFG 03071000 CVTRSV31 EQU CVTTCMFG 03072000 CVTRSV30 EQU CVTTCMFG 03073000 CVTRSV29 EQU CVTTCMFG 03074000 CVTLDEV EQU CVTTCMFG 03075000 CVTTCRDY EQU CVTTCMFG 03076000 CVTGTFA EQU CVTGTF+1 03077000 CVTRSV27 EQU CVTGTFST 03078000 CVTRNIO EQU CVTGTFST 03079000 CVTUSR EQU CVTGTFST 03080000 CVTRV318 EQU CVTFORM 03081000 CVTRV317 EQU CVTTMODE 03082000 CVTRV316 EQU CVTSTATE 03083000 CVTRV315 EQU CVTGTFS 03084000 CVTGTFAV EQU CVTGTFS 03085000 CVT0SCR1 EQU CVTMAP+232 03086000 CVTRV515 EQU CVTMAP+228 03087000 CVTRMS EQU CVTMAP+224 03088000 CVTPATCH EQU CVTMAP+220 03089000 CVTTSCE EQU CVTMAP+216 03090000 CVTLNKSC EQU CVTMAP+214 03091000 CVTQABST EQU CVTMAP+212 03092000 CVTMDLDS EQU CVTMAP+208 03093000 CVTUSER EQU CVTMAP+204 03094000 CVTABEND EQU CVTMAP+200 03095000 CVTSMCA EQU CVTMAP+196 03096000 CVTRSV18 EQU CVTMAP+192 03097000 CVTQLPAQ EQU CVTMAP+188 03098000 CVTQCDSR EQU CVTMAP+184 03099000 CVTVS1B EQU CVTOPTB 03100000 CVTVS1A EQU CVTOPTB 03101000 CVTFP EQU CVTOPTB 03102000 CVTAPTHR EQU CVTOPTB 03103000 CVTNLOG EQU CVTOPTB 03104000 CVTTOD EQU CVTOPTB 03105000 CVTCTIMS EQU CVTOPTB 03106000 CVTPROT EQU CVTOPTB 03107000 CVTXPFP EQU CVTOPTA 03108000 CVTASCII EQU CVTOPTA 03109000 CVTRSV13 EQU CVTOPTA 03110000 CVTRSV12 EQU CVTOPTA 03111000 CVTNIP EQU CVTOPTA 03112000 CVTDDR EQU CVTOPTA 03113000 CVTAPR EQU CVTOPTA 03114000 CVTCCH EQU CVTOPTA 03115000 CVTSNCTR EQU CVTMAP+180 03116000 CVTQMWR EQU CVTMAP+176 03117000 CVTQOCR EQU CVTMAP+172 03118000 CVT1EF00 EQU CVTMAP+168 03119000 CVTMZ00 EQU CVTMAP+164 03120000 CVTSV76Q EQU CVTSV76C 03121000 CVTRSV11 EQU CVTMAP+156 03122000 CVT0PT01 EQU CVTMAP+152 03123000 CVTMSER EQU CVTMAP+148 03124000 CVTRV516 EQU CVTIERLC 03125000 CVTILCH EQU CVTMAP+140 03126000 CVT0DS EQU CVTMAP+136 03127000 CVTFBOSV EQU CVTMAP+132 03128000 CVTNUCB EQU CVTMAP+128 03129000 CVTIXAVL EQU CVTMAP+124 03130000 CVTSV76M EQU CVTIOQET 03131000 CVTDCBA EQU CVTMAP+117 03132000 CVTMVS2 EQU CVTDCB 03133000 CVT6DAT EQU CVTDCB 03134000 CVT4MPS EQU CVTDCB 03135000 CVTRSV09 EQU CVTDCB 03136000 CVT4MS1 EQU CVTDCB 03137000 CVT2SPS EQU CVTDCB 03138000 CVT1SSS EQU CVTDCB 03139000 CVTRSV08 EQU CVTDCB 03140000 CVTSTB EQU CVTMAP+112 03141000 CVTQTD00 EQU CVTMAP+108 03142000 CVTQTE00 EQU CVTMAP+104 03143000 CVTCUCB EQU CVTMAP+100 03144000 CVTSJQ EQU CVTMAP+96 03145000 CVTPBLDL EQU CVTMAP+92 03146000 CVTTPC EQU CVTMAP+88 03147000 CVTSVDCB EQU CVTMAP+84 03148000 CVTBRET EQU CVTMAP+82 03149000 CVTEXIT EQU CVTMAP+80 03150000 CVT0FN00 EQU CVTMAP+76 03151000 CVTDARA EQU CVTDAR+1 03152000 CVTRSV07 EQU CVTFLGS1 03153000 CVTRSV06 EQU CVTFLGS1 03154000 CVTRSV05 EQU CVTFLGS1 03155000 CVTRSV04 EQU CVTFLGS1 03156000 CVTRSV03 EQU CVTFLGS1 03157000 CVTRSV02 EQU CVTFLGS1 03158000 CVTRSV01 EQU CVTFLGS1 03159000 CVTDMPLK EQU CVTFLGS1 03160000 CVTXITP EQU CVTMAP+68 03161000 CVTZDTAB EQU CVTMAP+64 03162000 CVTMSLT EQU CVTMAP+60 03163000 CVTDATE EQU CVTMAP+56 03164000 CVTBTERM EQU CVTMAP+52 03165000 CVTSYSAD EQU CVTMAP+48 03166000 CVTXTLER EQU CVTMAP+44 03167000 CVTILK2 EQU CVTMAP+40 03168000 CVTILK1 EQU CVTMAP+36 03169000 CVTPRLTV EQU CVTMAP+32 03170000 CVTPCNVT EQU CVTMAP+28 03171000 CVT0VL00 EQU CVTMAP+24 03172000 CVTXAPG EQU CVTMAP+20 03173000 CVTBUF EQU CVTMAP+16 03174000 CVTJOB EQU CVTMAP+12 03175000 CVTLINK EQU CVTMAP+8 03176000 CVT0EF00 EQU CVTMAP+4 03177000 CVTTCBP EQU CVTMAP 03178000 CVT EQU CVTMAP 03179000 SPQERES2 EQU SPQESECT+12 03180000 SPQEKEY EQU SPQESECT+11 03181000 SPQERES1 EQU SPQESECT+9 03182000 SPQEOWN EQU SPQEFLGS 03183000 LASTSPQE EQU SPQEFLGS 03184000 DQEHRID EQU DQEBLKAD 03185000 FQERSVD EQU FQESECT+12 03186000 FQEPTRA EQU FQEPTR+1 03187000 FQECPB EQU FQTYPE 03188000 FQERGNFL EQU FQTYPE 03189000 XTLMSBAD EQU XTLMSBAA+1 03190000 @NM00039 EQU XTLMSBAA 03191000 XTLMSBLN EQU XTLMSBLA+1 03192000 @NM00038 EQU XTLMSBLA 03193000 XTLLNTH EQU XTLST 03194000 CDATTR3 EQU CDENTRY+30 03195000 CDAUTH EQU CDATTR2 03196000 CDSYSLIB EQU CDATTR2 03197000 CDOLY EQU CDATTR2 03198000 @NM00037 EQU CDATTR2 03199000 CDRLC EQU CDATTR2 03200000 CDXLE EQU CDATTR2 03201000 CDREL EQU CDATTR2 03202000 CDNLR EQU CDATTR 03203000 CDNFN EQU CDATTR 03204000 CDSER EQU CDATTR 03205000 CDREN EQU CDATTR 03206000 CDNIP EQU CDATTR 03207000 @NM00036 EQU CDENTRY+26 03208000 CDUSE EQU CDENTRY+24 03209000 CDENTPT EQU CDENTRY+16 03210000 CDNAME EQU CDENTRY+8 03211000 CDRRBP EQU CDENTRY+4 03212000 ASCBEND EQU ASCB+208 03213000 ASCBSRBT EQU ASCB+200 03214000 ASCBSWTL EQU ASCB+196 03215000 ASCBRS14 EQU ASCB+195 03216000 ASCBSMCT EQU ASCB+194 03217000 ASCBRS12 EQU ASCB+192 03218000 ASCBPCTT EQU ASCB+188 03219000 ASCBVGTT EQU ASCB+184 03220000 ASCBRV43 EQU ASCBSRQ4 03221000 ASCBRV42 EQU ASCBSRQ4 03222000 ASCBRV41 EQU ASCBSRQ4 03223000 ASCBRV40 EQU ASCBSRQ4 03224000 ASCBRV39 EQU ASCBSRQ4 03225000 ASCBRV38 EQU ASCBSRQ4 03226000 ASCBRV37 EQU ASCBSRQ4 03227000 ASCBRV36 EQU ASCBSRQ4 03228000 ASCBRV35 EQU ASCBSRQ3 03229000 ASCBRV34 EQU ASCBSRQ3 03230000 ASCBRV33 EQU ASCBSRQ3 03231000 ASCBRV32 EQU ASCBSRQ3 03232000 ASCBRV31 EQU ASCBSRQ3 03233000 ASCBRV30 EQU ASCBSRQ3 03234000 ASCBRV29 EQU ASCBSRQ3 03235000 ASCBRV28 EQU ASCBSRQ3 03236000 ASCBRV27 EQU ASCBSRQ2 03237000 ASCBRV26 EQU ASCBSRQ2 03238000 ASCBRV25 EQU ASCBSRQ2 03239000 ASCBRV24 EQU ASCBSRQ2 03240000 ASCBRV23 EQU ASCBSRQ2 03241000 ASCBRV22 EQU ASCBSRQ2 03242000 ASCBRV21 EQU ASCBSRQ2 03243000 ASCBRV20 EQU ASCBSRQ2 03244000 ASCBRV19 EQU ASCBSRQ1 03245000 ASCBRV18 EQU ASCBSRQ1 03246000 ASCBRV17 EQU ASCBSRQ1 03247000 ASCBRV16 EQU ASCBSRQ1 03248000 ASCBRV15 EQU ASCBSRQ1 03249000 ASCBRV14 EQU ASCBSRQ1 03250000 ASCBRV13 EQU ASCBSRQ1 03251000 ASCBSTA EQU ASCBSRQ1 03252000 ASCBJBNS EQU ASCB+176 03253000 ASCBJBNI EQU ASCB+172 03254000 ASCBMCC EQU ASCB+168 03255000 ASCBRTWA EQU ASCB+164 03256000 ASCBIQEA EQU ASCB+160 03257000 ASCBXMPQ EQU ASCB+156 03258000 ASCBRS01 EQU ASCB+154 03259000 ASCBFMCT EQU ASCB+152 03260000 ASCBOUXB EQU ASCB+148 03261000 ASCBOUCB EQU ASCB+144 03262000 ASCBMECB EQU ASCB+140 03263000 ASCBQECB EQU ASCB+136 03264000 ASCBLSQH EQU ASCBLKGP+4 03265000 ASCBLOCK EQU ASCBLKGP 03266000 ASCBTCBS EQU ASCB+124 03267000 ASCBNVSC EQU ASCB+122 03268000 ASCBVSC EQU ASCB+120 03269000 ASCBSRBS EQU ASCB+118 03270000 ASCBSSRB EQU ASCB+116 03271000 ASCBRV06 EQU ASCBFLG2 03272000 ASCBRV05 EQU ASCBFLG2 03273000 ASCBRV04 EQU ASCBFLG2 03274000 ASCBSNQS EQU ASCBFLG2 03275000 ASCBS2S EQU ASCBFLG2 03276000 ASCBCEXT EQU ASCBFLG2 03277000 ASCBPXMT EQU ASCBFLG2 03278000 ASCBXMPT EQU ASCBFLG2 03279000 ASCBRF07 EQU ASCBDSP1 03280000 ASCBRF06 EQU ASCBDSP1 03281000 ASCBRF05 EQU ASCBDSP1 03282000 ASCBRF04 EQU ASCBDSP1 03283000 ASCBRF03 EQU ASCBDSP1 03284000 ASCBRF02 EQU ASCBDSP1 03285000 ASCBFAIL EQU ASCBDSP1 03286000 ASCBNOQ EQU ASCBDSP1 03287000 ASCBSWCT EQU ASCB+112 03288000 ASCBASXB EQU ASCB+108 03289000 ASCBTMCH EQU ASCB+104 03290000 ASCBNSWP EQU ASCBFLG1 03291000 ASCBTYP1 EQU ASCBFLG1 03292000 ASCBSTND EQU ASCBFLG1 03293000 ASCBABNT EQU ASCBFLG1 03294000 ASCBTERM EQU ASCBFLG1 03295000 ASCBS3S EQU ASCBFLG1 03296000 ASCBCMSH EQU ASCBFLG1 03297000 ASCBTOFF EQU ASCBFLG1 03298000 ASCBRF01 EQU ASCBRCTF 03299000 ASCBTMLW EQU ASCBRCTF 03300000 ASCBOUT EQU ASCBRCTF 03301000 ASCBWAIT EQU ASCBRCTF 03302000 ASCBRV08 EQU ASCBRCTF 03303000 ASCBFQU EQU ASCBRCTF 03304000 ASCBFRS EQU ASCBRCTF 03305000 ASCBTMNO EQU ASCBRCTF 03306000 ASCBAFFN EQU ASCBFW1 03307000 ASCBDUMP EQU ASCB+96 03308000 ASCBRV44 EQU ASCB+92 03309000 ASCBUBET EQU ASCB+88 03310000 ASCBECB EQU ASCB+84 03311000 ASCBJSTL EQU ASCB+80 03312000 ASCBEWST EQU ASCB+72 03313000 ASCBEJST EQU ASCB+64 03314000 ASCBTSB EQU ASCB+60 03315000 ASCBCSCB EQU ASCB+56 03316000 ASCBRSMA EQU ASCBRSM+1 03317000 ASCBRV54 EQU ASCBRSMF 03318000 ASCBRV53 EQU ASCBRSMF 03319000 ASCBRV52 EQU ASCBRSMF 03320000 ASCBRV51 EQU ASCBRSMF 03321000 ASCBVEQR EQU ASCBRSMF 03322000 ASCBN2LP EQU ASCBRSMF 03323000 ASCB1LPU EQU ASCBRSMF 03324000 ASCB2LPU EQU ASCBRSMF 03325000 ASCBLDA EQU ASCB+48 03326000 ASCBSTOR EQU ASCB+44 03327000 ASCBDP EQU ASCB+43 03328000 ASCBRV07 EQU ASCB+42 03329000 ASCBIOSM EQU ASCB+40 03330000 ASCBSEQN EQU ASCB+38 03331000 ASCBASID EQU ASCB+36 03332000 ASCBCPUS EQU ASCB+32 03333000 ASCBSPL EQU ASCB+28 03334000 ASCBIOSP EQU ASCB+24 03335000 ASCBSYNC EQU ASCBSUPC+4 03336000 ASCBSVRB EQU ASCBSUPC 03337000 ASCBCMSF EQU ASCB+12 03338000 ASCBBWDP EQU ASCB+8 03339000 ASCBFWDP EQU ASCB+4 03340000 ASCBASCB EQU ASCB 03341000 ASCBEGIN EQU ASCB 03342000 @NM00035 EQU TCBXTNT2+32 03343000 TCBRV181 EQU TCBRV173 03344000 TCBRV180 EQU TCBRV173 03345000 TCBRV179 EQU TCBRV173 03346000 TCBRV178 EQU TCBRV173 03347000 TCBRV177 EQU TCBRV173 03348000 TCBRV176 EQU TCBRV173 03349000 TCBRV175 EQU TCBRV173 03350000 TCBRV174 EQU TCBRV173 03351000 TCBRV172 EQU TCBRV164 03352000 TCBRV171 EQU TCBRV164 03353000 TCBRV170 EQU TCBRV164 03354000 TCBRV169 EQU TCBRV164 03355000 TCBRV168 EQU TCBRV164 03356000 TCBRV167 EQU TCBRV164 03357000 TCBRV166 EQU TCBRV164 03358000 TCBRV165 EQU TCBRV164 03359000 TCBRV163 EQU TCBRV155 03360000 TCBRV162 EQU TCBRV155 03361000 TCBRV161 EQU TCBRV155 03362000 TCBRV160 EQU TCBRV155 03363000 TCBRV159 EQU TCBRV155 03364000 TCBRV158 EQU TCBRV155 03365000 TCBRV157 EQU TCBRV155 03366000 TCBRV156 EQU TCBRV155 03367000 TCBRV154 EQU TCBRV146 03368000 TCBRV153 EQU TCBRV146 03369000 TCBRV152 EQU TCBRV146 03370000 TCBRV151 EQU TCBRV146 03371000 TCBRV150 EQU TCBRV146 03372000 TCBRV149 EQU TCBRV146 03373000 TCBRV148 EQU TCBRV146 03374000 TCBRV147 EQU TCBRV146 03375000 TCBRV145 EQU TCBXTNT2+26 03376000 TCBRV144 EQU TCBXTNT2+24 03377000 TCBRV143 EQU TCBXTNT2+20 03378000 TCBRV142 EQU TCBXTNT2+16 03379000 TCBRSV49 EQU TCBXTNT2+12 03380000 TCBEVENT EQU TCBXTNT2+8 03381000 TCBRCMP EQU TCBXTNT2+5 03382000 TCBRSVAB EQU TCBXTNT2+4 03383000 TCBGTFA EQU TCBGTF+1 03384000 TCBRSV47 EQU TCBTFLG 03385000 TCBRSV46 EQU TCBTFLG 03386000 TCBRSV45 EQU TCBTFLG 03387000 TCBRSV44 EQU TCBTFLG 03388000 TCBRSV43 EQU TCBTFLG 03389000 TCBDSPIT EQU TCBTFLG 03390000 TCBERRTN EQU TCBTFLG 03391000 TCBASYNC EQU TCBTFLG 03392000 @NM00034 EQU TCB+296 03393000 TCBSVCA2 EQU TCB+292 03394000 TCBSWASA EQU TCB+288 03395000 TCBDBTB EQU TCB+284 03396000 TCBRPT EQU TCB+280 03397000 TCBRV141 EQU TCBRV133 03398000 TCBRV140 EQU TCBRV133 03399000 TCBRV139 EQU TCBRV133 03400000 TCBRV138 EQU TCBRV133 03401000 TCBRV137 EQU TCBRV133 03402000 TCBRV136 EQU TCBRV133 03403000 TCBRV135 EQU TCBRV133 03404000 TCBRV134 EQU TCBRV133 03405000 TCBRV132 EQU TCBRV124 03406000 TCBRV131 EQU TCBRV124 03407000 TCBRV130 EQU TCBRV124 03408000 TCBRV129 EQU TCBRV124 03409000 TCBRV128 EQU TCBRV124 03410000 TCBRV127 EQU TCBRV124 03411000 TCBRV126 EQU TCBRV124 03412000 TCBRV125 EQU TCBRV124 03413000 TCBRV123 EQU TCBFBYT2 03414000 TCBRV122 EQU TCBFBYT2 03415000 TCBECBNV EQU TCBFBYT2 03416000 TCBSSSYN EQU TCBFBYT2 03417000 TCBFPRAP EQU TCBFBYT2 03418000 TCBFDW EQU TCBFBYT2 03419000 TCBFMW EQU TCBFBYT2 03420000 TCBCNCB EQU TCBFBYT2 03421000 TCBLLH EQU TCBFBYT1 03422000 TCBRV113 EQU TCBFBYT1 03423000 TCBEOT EQU TCBFBYT1 03424000 TCBRTM2 EQU TCBFBYT1 03425000 TCBPGNLY EQU TCBFBYT1 03426000 TCBNDIOS EQU TCBFBYT1 03427000 TCBRV327 EQU TCBFBYT1 03428000 TCBEOTFM EQU TCBFBYT1 03429000 TCBAFFN EQU TCB+274 03430000 TCBRV326 EQU TCB+272 03431000 TCBUKYSP EQU TCB+268 03432000 TCBMODE EQU TCBESTAE+3 03433000 TCBERTYP EQU TCBESTAE+2 03434000 TCBRV314 EQU TCBESTRM 03435000 TCBRV313 EQU TCBESTRM 03436000 TCBRV312 EQU TCBESTRM 03437000 TCBRV311 EQU TCBESTRM 03438000 TCBRV310 EQU TCBESTRM 03439000 TCBRV309 EQU TCBESTRM 03440000 TCBRV308 EQU TCBESTRM 03441000 TCBETERM EQU TCBESTRM 03442000 TCBSCBKY EQU TCBESTAE 03443000 TCBRTM12 EQU TCB+260 03444000 TCBTCBID EQU TCB+256 03445000 TCBSTAWA EQU TCB+252 03446000 TCBSWA EQU TCB+248 03447000 TCBFOEA EQU TCBFOE+1 03448000 TCBRSV42 EQU TCBFOE 03449000 TCBCCPVI EQU TCBXSCT+2 03450000 TCBRV325 EQU TCBXSCT+1 03451000 TCBRV324 EQU TCBXSCT1 03452000 TCBRV323 EQU TCBXSCT1 03453000 TCBRV322 EQU TCBXSCT1 03454000 TCBRV321 EQU TCBXSCT1 03455000 TCBRV320 EQU TCBXSCT1 03456000 TCBRV319 EQU TCBXSCT1 03457000 TCBS3A EQU TCBXSCT1 03458000 TCBACTIV EQU TCBXSCT1 03459000 TCBRSV41 EQU TCB+239 03460000 TCBTID EQU TCB+238 03461000 TCBRSVAA EQU TCB+237 03462000 TCBABCUR EQU TCB+236 03463000 TCBTMSAV EQU TCB+232 03464000 TCBIOTIM EQU TCB+228 03465000 TCBRTWA EQU TCB+224 03466000 TCBBACK EQU TCB+220 03467000 TCBTIRB EQU TCB+216 03468000 TCBAECB EQU TCB+212 03469000 TCBEXT2A EQU TCBEXT2+1 03470000 TCBRSV39 EQU TCBEXT2 03471000 TCBSTMCT EQU TCB+207 03472000 TCBSYSCT EQU TCB+206 03473000 TCBRSV37 EQU TCB+205 03474000 TCBEXSVC EQU TCBDAR 03475000 TCBDARMS EQU TCBDAR 03476000 TCBDARWT EQU TCBDAR 03477000 TCBDARO EQU TCBDAR 03478000 TCBDARMC EQU TCBDARC 03479000 TCBDARD EQU TCBDAR 03480000 TCBDARS EQU TCBDAR 03481000 TCBDARP EQU TCBDAR 03482000 TCBGTOFM EQU TCBFLGS7 03483000 TCBRSTSK EQU TCBFLGS7 03484000 TCBSVCS EQU TCBFLGS7 03485000 TCBSTACK EQU TCBFLGS7 03486000 TCBRSV34 EQU TCBFLGS7 03487000 TCBRSV33 EQU TCBFLGS7 03488000 TCBGPECB EQU TCBFLGS7 03489000 TCBNTJS EQU TCBFLGS6 03490000 TCBAPG EQU TCBFLGS6 03491000 TCBMIGR EQU TCBFLGS6 03492000 TCBRV303 EQU TCBFLGS6 03493000 TCBSPVLK EQU TCBFLGS6 03494000 TCBCPU EQU TCBFLGS6 03495000 TCBPIE17 EQU TCBFLGS6 03496000 TCBRV EQU TCBFLGS6 03497000 TCBRSV79 EQU TCBNDSP5 03498000 TCBRSV78 EQU TCBNDSP5 03499000 TCBRSV77 EQU TCBNDSP5 03500000 TCBRSV76 EQU TCBNDSP5 03501000 TCBRSV75 EQU TCBNDSP5 03502000 TCBRSV74 EQU TCBNDSP5 03503000 TCBRSV95 EQU TCBNDSP5 03504000 TCBRSV94 EQU TCBNDSP5 03505000 TCBRSV93 EQU TCBNDSP4 03506000 TCBRSV92 EQU TCBNDSP4 03507000 TCBRSV91 EQU TCBNDSP4 03508000 TCBRSV90 EQU TCBNDSP4 03509000 TCBRSV89 EQU TCBNDSP4 03510000 TCBRSV88 EQU TCBNDSP4 03511000 TCBRSV87 EQU TCBNDSP4 03512000 TCBRSV86 EQU TCBNDSP4 03513000 TCBEXT1A EQU TCBEXT1+1 03514000 TCBRSV32 EQU TCBEXT1 03515000 TCBEXCPD EQU TCB+192 03516000 TCBIOBRC EQU TCB+188 03517000 TCBDDWTC EQU TCB+186 03518000 TCBDDEXC EQU TCB+184 03519000 TCBJSCBB EQU TCBJSCB+1 03520000 @NM00033 EQU TCBRECDE 03521000 TCBREC EQU TCBRECDE 03522000 TCBMDIDS EQU TCB+176 03523000 TCBNDINT EQU TCBNDSP3 03524000 TCBRSV27 EQU TCBNDSP3 03525000 TCBRSV26 EQU TCBNDSP3 03526000 TCBRSV25 EQU TCBNDSP3 03527000 TCBRSV24 EQU TCBNDSP3 03528000 TCBSRBND EQU TCBNDSP3 03529000 TCBRV302 EQU TCBNDSP3 03530000 TCBLJSND EQU TCBNDSP3 03531000 TCBABE EQU TCBNDSP2 03532000 TCBDSS EQU TCBNDSP2 03533000 TCBOWAIT EQU TCBNDSP2 03534000 TCBIWAIT EQU TCBNDSP2 03535000 TCBNDTS EQU TCBNDSP2 03536000 TCBNDSVC EQU TCBNDSP2 03537000 TCBSTPP EQU TCBNDSP2 03538000 TCBABD EQU TCBNDSP2 03539000 TCBRSV22 EQU TCBNDSP1 03540000 TCBPIEND EQU TCBNDSP1 03541000 TCBTPSP EQU TCBNDSP1 03542000 TCBDDRND EQU TCBNDSP1 03543000 TCBRSPND EQU TCBNDSP1 03544000 TCBRSTND EQU TCBNDSP1 03545000 TCBDARPN EQU TCBNDSP1 03546000 TCBDARTN EQU TCBNDSP1 03547000 TCBNDSP0 EQU TCBNDSP 03548000 TCBUSER EQU TCB+168 03549000 TCBTCTB EQU TCBTCT+1 03550000 TCBRSV9C EQU TCBTCTGF 03551000 TCBRSV9B EQU TCBTCTGF 03552000 TCBRSV9A EQU TCBTCTGF 03553000 TCBRSV99 EQU TCBTCTGF 03554000 TCBRSV98 EQU TCBTCTGF 03555000 TCBRSV97 EQU TCBTCTGF 03556000 TCBRSV20 EQU TCBTCTGF 03557000 TCBSMFGF EQU TCBTCTGF 03558000 TCBSTABB EQU TCBSTAB+1 03559000 TCBSTCUR EQU TCBNSTAE 03560000 TCBRV301 EQU TCBNSTAE 03561000 TCBSYNCH EQU TCBNSTAE 03562000 TCBHALT EQU TCBNSTAE 03563000 TCBPPSUP EQU TCBNSTAE 03564000 TCB33E EQU TCBNSTAE 03565000 TCBQUIES EQU TCBNSTAE 03566000 TCBSTABE EQU TCBNSTAE 03567000 TCBAQE EQU TCB+156 03568000 TCBPQE EQU TCB+152 03569000 TCBTSDP EQU TCB+151 03570000 TCBTSLP EQU TCB+150 03571000 TCBSTPCT EQU TCB+149 03572000 TCBCPUBN EQU TCBTSFLG 03573000 TCBDYDSP EQU TCBTSFLG 03574000 TCBRSV18 EQU TCBTSFLG 03575000 TCBRSV17 EQU TCBTSFLG 03576000 TCBTIOTG EQU TCBTSFLG 03577000 TCBATT EQU TCBTSFLG 03578000 TCBSTPPR EQU TCBTSFLG 03579000 TCBRV300 EQU TCBTSTSK 03580000 TCBECB EQU TCB+144 03581000 TCBIQE EQU TCB+140 03582000 TCBNTC EQU TCB+128 03583000 TCBRSV16 EQU TCBJSTCB 03584000 TCBTQET EQU TCBTME 03585000 TCBTCB EQU TCB+116 03586000 TCBFSAB EQU TCBFSA+1 03587000 TCBQEL EQU TCBFSA 03588000 TCBGRS15 EQU TCBGRS+60 03589000 TCBGRS14 EQU TCBGRS+56 03590000 TCBGRS13 EQU TCBGRS+52 03591000 TCBGRS12 EQU TCBGRS+48 03592000 TCBGRS11 EQU TCBGRS+44 03593000 TCBGRS10 EQU TCBGRS+40 03594000 TCBGRS9 EQU TCBGRS+36 03595000 TCBGRS8 EQU TCBGRS+32 03596000 TCBGRS7 EQU TCBGRS+28 03597000 TCBGRS6 EQU TCBGRS+24 03598000 TCBGRS5 EQU TCBGRS+20 03599000 TCBGRS4 EQU TCBGRS+16 03600000 TCBGRS3 EQU TCBGRS+12 03601000 TCBGRS2 EQU TCBGRS+8 03602000 TCBGRS1 EQU TCBGRS+4 03603000 TCBGRS0 EQU TCBGRS 03604000 TCBJPQB EQU TCBJPQ+1 03605000 TCBRSV15 EQU TCBPURGE 03606000 TCBRSV14 EQU TCBPURGE 03607000 TCBRSV13 EQU TCBPURGE 03608000 TCBRSV12 EQU TCBPURGE 03609000 TCBRSV11 EQU TCBPURGE 03610000 TCBRSV10 EQU TCBPURGE 03611000 TCBRSV09 EQU TCBPURGE 03612000 TCBJPQF EQU TCBPURGE 03613000 TCBJLB EQU TCB+40 03614000 TCBLLS EQU TCB+36 03615000 TCBDSP EQU TCB+35 03616000 TCBLMP EQU TCB+34 03617000 TCBPNDSP EQU TCBFLGS5 03618000 TCBFCD1 EQU TCBFLGS5 03619000 TCBSTP EQU TCBFLGS5 03620000 TCBSYS EQU TCBFLGS5 03621000 TCBANDSP EQU TCBFLGS5 03622000 TCBPAGE EQU TCBFLGS5 03623000 TCBUXNDF EQU TCBABWF 03624000 TCBFC EQU TCBFLGS5 03625000 TCBONDSP EQU TCBFLGS4 03626000 TCBMPCND EQU TCBFLGS4 03627000 TCBMPCVQ EQU TCBFLGS4 03628000 TCBUXNDV EQU TCBFLGS4 03629000 TCBHNDSP EQU TCBFLGS4 03630000 TCBRQENA EQU TCBFLGS4 03631000 TCBSER EQU TCBFLGS4 03632000 TCBNDUMP EQU TCBFLGS4 03633000 TCBDWSTA EQU TCBFLGS3 03634000 TCBRSV08 EQU TCBFLGS3 03635000 TCBRSV07 EQU TCBFLGS3 03636000 TCBRSV06 EQU TCBFLGS3 03637000 TCBABGM EQU TCBFLGS3 03638000 TCBABTRM EQU TCBFLGS3 03639000 TCBADINP EQU TCBFLGS3 03640000 TCBFSM EQU TCBFLGS3 03641000 TCBFTS EQU TCBFLGS2 03642000 TCBFETXR EQU TCBFLGS2 03643000 TCBFDSOP EQU TCBFLGS2 03644000 TCBFJMC EQU TCBFLGS2 03645000 TCBFSMC EQU TCBFLGS2 03646000 TCBFABOP EQU TCBFLGS2 03647000 TCBFSTI EQU TCBFLGS2 03648000 TCBFOINP EQU TCBFLGS2 03649000 TCBFX EQU TCBFLGS1 03650000 TCBFS EQU TCBFLGS1 03651000 TCBFT EQU TCBFLGS1 03652000 TCBPDUMP EQU TCBFLGS1 03653000 TCBNONPR EQU TCBFLGS1 03654000 TCBFERA EQU TCBFLGS1 03655000 TCBFE EQU TCBFLGS1 03656000 TCBFA EQU TCBFLGS1 03657000 TCBZERO EQU TCBPKF 03658000 TCBRSV03 EQU TCBMSS 03659000 TCBTRNB EQU TCBTRN+1 03660000 TCBRSV02 EQU TCBABF 03661000 TCBOLTEP EQU TCBABF 03662000 TCBTCP EQU TCBABF 03663000 TCBTCPP EQU TCBABF 03664000 TCBRSV01 EQU TCBABF 03665000 TCBGRPH EQU TCBABF 03666000 TCBNOCHK EQU TCBABF 03667000 TCBMOD91 EQU TCBABF 03668000 TCBCMPC EQU TCBCMP+1 03669000 TCBRV318 EQU TCBCMSG 03670000 TCBRV317 EQU TCBCIND 03671000 TCBRV316 EQU TCBCWTO 03672000 TCBCASID EQU TCBCDBL 03673000 TCBNOCC EQU TCBSTCC 03674000 TCBDMPO EQU TCBCPP 03675000 TCBCSTEP EQU TCBCMPF 03676000 TCBCREQ EQU TCBCMPF 03677000 TCBTIO EQU TCB+12 03678000 TCBDEB EQU TCB+8 03679000 TCBPIEA EQU TCBPIE+1 03680000 TCBPM EQU TCBPMASK 03681000 @NM00032 EQU TCBPMASK 03682000 TCBRBP EQU TCB 03683000 TCBFRS6 EQU TCBFRS+24 03684000 TCBFRS4 EQU TCBFRS+16 03685000 TCBFRS2 EQU TCBFRS+8 03686000 TCBFRS0 EQU TCBFRS 03687000 ABDTRLN EQU ABDAREA+676 03688000 ABDSAVE1 EQU ABDAREA+672 03689000 ABDSAVHD EQU ABDAREA+592 03690000 ABDPADC EQU ABDAREA+589 03691000 ABDSRC2 EQU ABDAREA+382 03692000 ABDLOG EQU ABDAREA+380 03693000 ABDSRC1 EQU ABDAREA+378 03694000 ABDPHY EQU ABDAREA+376 03695000 ABDLCNT EQU ABDAREA+372 03696000 @NM00031 EQU ESPARM+29 03697000 @NM00030 EQU ESTAEFLG 03698000 EDCB EQU ESTAEFLG 03699000 ETCB EQU ESTAEFLG 03700000 ESUBSYT EQU ESTAEFLG 03701000 ERESTART EQU ESPARM+24 03702000 EMODNAME EQU ESPARM+16 03703000 EABDAREA EQU ESPARM+12 03704000 ESAUTOP EQU ESPARM+8 03705000 ESBSREG2 EQU ESPARM+4 03706000 ESBSREG EQU ESPARM 03707000 ABDRTRN EQU ABDAREA+336 03708000 ABDSVCB EQU ABDAREA+332 03709000 @NM00029 EQU ABDGMA+14 03710000 ABDCDID EQU ABDGMA+12 03711000 ABDPAREA EQU ABDGMA+8 03712000 ABDBUFSZ EQU ABDBUFFS+4 03713000 ABDBUFAD EQU ABDBUFFS 03714000 ABSLCTSV EQU ABDAREA+304 03715000 ABDSTADS EQU ABDAREA+300 03716000 ABDUPRID EQU ABDAREA+296 03717000 ABDPCAP EQU ABDAREA+295 03718000 ABDLLNGH EQU ABDAREA+294 03719000 ABDINCPL EQU ABDAREA+292 03720000 ABDFWORK EQU ABDAREA+288 03721000 ABDIDENT EQU ABDAREA+286 03722000 ABDIND EQU ABDAREA+284 03723000 ABDSIZE EQU ABDAREA+280 03724000 ABDSTAD EQU ABDAREA+268 03725000 @NM00028 EQU ABDBLNKS 03726000 @NM00027 EQU ABDBLNKS 03727000 @NM00026 EQU ABDBLNKS 03728000 @NM00025 EQU ABDBLNKS 03729000 @NM00024 EQU ABDBLNKS 03730000 @NM00023 EQU ABDBLNKS 03731000 @NM00022 EQU ABDBLNKS 03732000 ABDBLKN3 EQU ABDBLNKS 03733000 @NM00021 EQU ABDUPRFN 03734000 @NM00020 EQU ABDUPRFN 03735000 @NM00019 EQU ABDUPRFN 03736000 @NM00018 EQU ABDUPRFN 03737000 @NM00017 EQU ABDUPRFN 03738000 @NM00016 EQU ABDUPRFN 03739000 ABDUPRSL EQU ABDUPRFN 03740000 ABDUPRPM EQU ABDUPRFN 03741000 @NM00015 EQU ABDUPRF 03742000 @NM00014 EQU ABDUPRF 03743000 @NM00013 EQU ABDUPRF 03744000 @NM00012 EQU ABDUPRF 03745000 @NM00011 EQU ABDUPRF 03746000 UPRFMT20 EQU ABDUPRF 03747000 UPRFMET EQU ABDUPRF 03748000 UPRFMAT EQU ABDUPRF 03749000 ABDFMTWK EQU ABDAREA+256 03750000 ABDLPTR EQU ABDAREA+252 03751000 ABDLLINE EQU ABDAREA+248 03752000 ABDBPTR EQU ABDAREA+244 03753000 ABDSSPAR EQU ABDAREA+188 03754000 @NM00010 EQU ABDRES1 03755000 ABDTRSV EQU ABDRES1 03756000 ABDPGHD EQU ABDRES1 03757000 ABDFMTLD EQU ABDRES1 03758000 ABDSQA EQU ABDRES1 03759000 ABDOLSQA EQU ABDRES1 03760000 ABDREGS EQU ABDRES1 03761000 ABDPSW EQU ABDRES1 03762000 ABDKEY EQU ABDAREA+138 03763000 ABDLSQA EQU ABDFLAG2 03764000 ABDSWAP EQU ABDFLAG2 03765000 ABDGTFCL EQU ABDFLAG2 03766000 ABDTRNAV EQU ABDFLAG2 03767000 ABDTRBIT EQU ABDFLAG2 03768000 ABDGTF EQU ABDFLAG2 03769000 ABDSUPER EQU ABDFLAG2 03770000 ABDIDX EQU ABDFLAG1 03771000 ABDSVCHD EQU ABDFLAG1 03772000 ABDSQSDM EQU ABDFLAG1 03773000 ABDLSTHD EQU ABDFLAG1 03774000 ABDQCBMN EQU ABDFLAG1 03775000 ABDQCBMJ EQU ABDFLAG1 03776000 ABDQCBHD EQU ABDFLAG1 03777000 ABDPGWK EQU ABDAREA+128 03778000 ABDRESV3 EQU ABDAREA+116 03779000 ABDUPRXT EQU ABDAREA+112 03780000 ABDCP1 EQU ABDAREA+108 03781000 ABDLP EQU ABDAREA+104 03782000 ABDFP EQU ABDAREA+100 03783000 ABDCP EQU ABDAREA+96 03784000 ABDPTRS3 EQU ABDPTRS+8 03785000 ABDPTRS2 EQU ABDPTRS+4 03786000 ABDPTRS1 EQU ABDPTRS 03787000 ABDPCTR EQU ABDAREA+82 03788000 ABDLCTR EQU ABDAREA+80 03789000 ABDIOBP EQU ABDAREA+76 03790000 ABDPTR EQU ABDAREA+72 03791000 ABDDCB EQU ABDAREA+68 03792000 ABDLEN EQU ABDAREA+66 03793000 ABDTYPE EQU ABDAREA+64 03794000 ABDECB EQU ABDAREA+60 03795000 ABDSAVE EQU ABDAREA+56 03796000 ABDDECB EQU ABDAREA+52 03797000 ABDPARA EQU ABDAREA+48 03798000 ABDINXPT EQU ABDAREA+40 03799000 ABDCTR EQU ABDAREA+38 03800000 @NM00009 EQU ABDAREA+36 03801000 ABDHDRAD EQU ABDPARMS+20 03802000 ABDSNAPP EQU ABDPARMS+16 03803000 ABDPTCBP EQU ABDPARMS+12 03804000 ABDPDCBP EQU ABDPARMS+8 03805000 @NM00008 EQU ABDPARMS+7 03806000 @NM00007 EQU APFPDATA 03807000 APFSPALL EQU APFPDATA 03808000 APFPSW EQU APFPDATA 03809000 APFJPA EQU APFPDATA 03810000 APFLPA EQU APFPDATA 03811000 APFREGS EQU APFPDATA 03812000 APFSAVE2 EQU APFPDATA 03813000 APFSAVE EQU APFPDATA 03814000 @NM00006 EQU APFSDAT1 03815000 APFERR EQU APFSDAT1 03816000 APFIO EQU APFSDAT1 03817000 APFDM EQU APFSDATA 03818000 APFQCB EQU APFSDATA 03819000 APFSUPDA EQU APFSDATA 03820000 APFTRACE EQU APFSDATA 03821000 APFSWA EQU APFSDATA 03822000 APFLSQA EQU APFSDATA 03823000 APFSQA EQU APFSDATA 03824000 APFNUC EQU APFSDATA 03825000 @NM00005 EQU ABDPARMS+2 03826000 APFHDR EQU ABDFLAG 03827000 APFSNAPP EQU ABDFLAG 03828000 APFTCB EQU ABDFLAG 03829000 APFID EQU ABDFLAG 03830000 APFABEND EQU ABDFLAG 03831000 APFENVS2 EQU ABDFLAG 03832000 APFVS2 EQU ABDFLAG 03833000 APFSNAP EQU ABDFLAG 03834000 ABDPID EQU ABDPARMS 03835000 ABDCRB EQU ABDAREA+8 03836000 DUMMY1 EQU STDSAREA 03837000 @NM00004 EQU EXSTART 03838000 @NM00003 EQU EXSIZE 03839000 DQEADDR EQU DQEENT 03840000 @NM00002 EQU SPQTAB+6 03841000 @NM00001 EQU SPQENT+6 03842000 SPQLOC EQU SPQENT 03843000 @NM00065 EQU PSA+3668 03844000 PSASTAK EQU PSA+3072 03845000 @NM00064 EQU PSA+1048 03846000 PSAUSEND EQU PSA+1048 03847000 PSARV062 EQU PSA+1044 03848000 PSACDAL EQU PSA+1040 03849000 PSAWTCOD EQU PSA+1036 03850000 PSAATCVT EQU PSA+1032 03851000 PSAPCPSW EQU PSA+1024 03852000 PSAPIR2 EQU PSA+1020 03853000 PSARV059 EQU PSA+1018 03854000 PSASVC13 EQU PSA+1016 03855000 PSALSFCC EQU PSA+1012 03856000 PSASFACC EQU PSA+1008 03857000 PSASTOP EQU PSA+992 03858000 PSASTART EQU PSA+976 03859000 PSARSPSW EQU PSA+968 03860000 PSASRPSW EQU PSA+960 03861000 PSARV045 EQU PSA+892 03862000 PSARV044 EQU PSA+888 03863000 PSARV043 EQU PSA+884 03864000 PSARV042 EQU PSA+880 03865000 PSARV041 EQU PSA+876 03866000 PSARV040 EQU PSA+872 03867000 PSARV025 EQU PSA+868 03868000 PSADSSED EQU PSA+868 03869000 PSADSSPR EQU PSA+864 03870000 PSADSSFW EQU PSA+860 03871000 PSADSS14 EQU PSA+856 03872000 PSADSSPP EQU PSA+848 03873000 PSADSSRP EQU PSA+840 03874000 PSADSS05 EQU PSADSSF4 03875000 PSADSS10 EQU PSADSSF4 03876000 PSADSSVE EQU PSADSSF4 03877000 PSADSSDE EQU PSADSSF4 03878000 PSADSSC0 EQU PSADSSF4 03879000 PSADSSIE EQU PSADSSF4 03880000 PSADSS12 EQU PSADSSF4 03881000 PSADSSRC EQU PSADSSF4 03882000 PSARV057 EQU PSADSSF3 03883000 PSARV056 EQU PSADSSF3 03884000 PSARV055 EQU PSADSSF3 03885000 PSADSSMC EQU PSADSSF3 03886000 PSADSSRW EQU PSADSSF3 03887000 PSADSSNM EQU PSADSSF3 03888000 PSADSSES EQU PSADSSF3 03889000 PSADSSGP EQU PSADSSF3 03890000 PSADSSF2 EQU PSADSSFL+1 03891000 PSADSSPI EQU PSADSSF1 03892000 PSADSSOI EQU PSADSSF1 03893000 PSADSSSP EQU PSADSSF1 03894000 PSADSSTP EQU PSADSSF1 03895000 PSADSSDW EQU PSADSSF1 03896000 PSADSSDD EQU PSADSSF1 03897000 PSADSSDM EQU PSADSSF1 03898000 PSADSSMV EQU PSADSSF1 03899000 PSADSSTS EQU PSA+816 03900000 PSADSSWK EQU PSA+812 03901000 PSADSSR3 EQU PSA+808 03902000 PSADSSR2 EQU PSA+804 03903000 PSADSSRS EQU PSA+800 03904000 PSASTOR EQU PSA+796 03905000 PSACPUSA EQU PSA+794 03906000 PSAVSTAP EQU PSA+792 03907000 PSAWKVAP EQU PSA+788 03908000 PSAWKRAP EQU PSA+784 03909000 PSAMCHIC EQU PSA+783 03910000 PSARV061 EQU PSA+782 03911000 PSASYMSK EQU PSA+781 03912000 PSAMCHFL EQU PSA+780 03913000 PSACR0 EQU PSA+776 03914000 PSAPSWSV EQU PSA+768 03915000 PSACLHS EQU PSAHLHI 03916000 PSALKR15 EQU PSALKSA+60 03917000 PSALKR14 EQU PSALKSA+56 03918000 PSALKR13 EQU PSALKSA+52 03919000 PSALKR12 EQU PSALKSA+48 03920000 PSALKR11 EQU PSALKSA+44 03921000 PSALKR10 EQU PSALKSA+40 03922000 PSALKR9 EQU PSALKSA+36 03923000 PSALKR8 EQU PSALKSA+32 03924000 PSALKR7 EQU PSALKSA+28 03925000 PSALKR6 EQU PSALKSA+24 03926000 PSALKR5 EQU PSALKSA+20 03927000 PSALKR4 EQU PSALKSA+16 03928000 PSALKR3 EQU PSALKSA+12 03929000 PSALKR2 EQU PSALKSA+8 03930000 PSALKR1 EQU PSALKSA+4 03931000 PSALKR0 EQU PSALKSA 03932000 PSARV023 EQU PSACLHT+52 03933000 PSALOCAL EQU PSACLHT+48 03934000 PSACMSL EQU PSACLHT+44 03935000 PSAOPTL EQU PSACLHT+40 03936000 PSATPACL EQU PSACLHT+36 03937000 PSATPDNL EQU PSACLHT+32 03938000 PSATPNCL EQU PSACLHT+28 03939000 PSAIOSLL EQU PSACLHT+24 03940000 PSAIOSUL EQU PSACLHT+20 03941000 PSAIOSCL EQU PSACLHT+16 03942000 PSAIOSSL EQU PSACLHT+12 03943000 PSASALCL EQU PSACLHT+8 03944000 PSAASML EQU PSACLHT+4 03945000 PSADISPL EQU PSACLHT 03946000 PSASRSA EQU PSA+636 03947000 PSARV050 EQU PSA+634 03948000 PSADSSGO EQU PSA+633 03949000 PSARECUR EQU PSA+632 03950000 PSAHLHIS EQU PSA+628 03951000 PSAIPCSA EQU PSA+624 03952000 @NM00063 EQU PSA+621 03953000 PSAIPCDM EQU PSA+620 03954000 PSAIPCD EQU PSA+616 03955000 @NM00062 EQU PSA+613 03956000 PSAIPCRM EQU PSA+612 03957000 PSAIPCR EQU PSA+608 03958000 PSAMCHEX EQU PSA+600 03959000 PSAMPSW EQU PSA+592 03960000 PSAEXPS2 EQU PSA+584 03961000 PSAEXPS1 EQU PSA+576 03962000 PSAPIREG EQU PSA+572 03963000 PSARSREG EQU PSA+568 03964000 PSAGPREG EQU PSA+556 03965000 PSARV022 EQU PSASUP4 03966000 PSARV021 EQU PSASUP4 03967000 PSARV020 EQU PSASUP4 03968000 PSARV019 EQU PSASUP4 03969000 PSARV018 EQU PSASUP4 03970000 PSARV017 EQU PSASUP4 03971000 PSARV016 EQU PSASUP4 03972000 PSARV015 EQU PSASUP4 03973000 PSARV014 EQU PSASUP3 03974000 PSAULCMS EQU PSASUP3 03975000 PSARV012 EQU PSASUP3 03976000 PSAESTA EQU PSASUP3 03977000 PSASPR EQU PSASUP3 03978000 PSAPSREG EQU PSASUP3 03979000 PSAPI2 EQU PSASUP3 03980000 PSAIOSUP EQU PSASUP3 03981000 PSALCR EQU PSASUP2 03982000 PSARTM EQU PSASUP2 03983000 PSAACR EQU PSASUP2 03984000 PSAIPCE2 EQU PSASUP2 03985000 PSAIPCES EQU PSASUP2 03986000 PSAIPCEC EQU PSASUP2 03987000 PSAGTF EQU PSASUP2 03988000 PSAIPCRI EQU PSASUP2 03989000 PSATYPE6 EQU PSASUP1 03990000 PSATCTL EQU PSASUP1 03991000 PSADISP EQU PSASUP1 03992000 PSALOCK EQU PSASUP1 03993000 PSAPI EQU PSASUP1 03994000 PSAEXT EQU PSASUP1 03995000 PSASVC EQU PSASUP1 03996000 PSAIO EQU PSASUP1 03997000 PSAANEW EQU PSA+544 03998000 PSATOLD EQU PSA+540 03999000 PSATNEW EQU PSA+536 04000000 PSALCCAR EQU PSA+532 04001000 PSALCCAV EQU PSA+528 04002000 PSAPCCAR EQU PSA+524 04003000 PSAPCCAV EQU PSA+520 04004000 PSACPULA EQU PSA+518 04005000 PSACPUPA EQU PSA+516 04006000 PSAPSA EQU PSA+512 04007000 FLCHDEND EQU PSA+512 04008000 FLCCRSAV EQU FLCMCLA+280 04009000 FLCGRSAV EQU FLCMCLA+216 04010000 FLCFPSAV EQU FLCMCLA+184 04011000 FLCFLA EQU FLCMCLA+88 04012000 FLCRGNCD EQU FLCMCLA+84 04013000 FLCFSAA EQU FLCFSA+1 04014000 @NM00061 EQU FLCFSA 04015000 @NM00060 EQU FLCMCLA+72 04016000 FLCMCIC EQU FLCMCLA+64 04017000 @NM00059 EQU FLCMCLA+20 04018000 FLCIOAA EQU FLCIOA+1 04019000 @NM00058 EQU FLCIOA 04020000 @NM00057 EQU FLCMCLA+15 04021000 @NM00056 EQU FLCMCLA+14 04022000 @NM00055 EQU FLCMCLA+12 04023000 FLCLCL EQU FLCMCLA+8 04024000 FLCIOELA EQU FLCIOEL+1 04025000 @NM00054 EQU FLCIOEL 04026000 FLCCHNID EQU FLCMCLA 04027000 @NM00053 EQU PSA+160 04028000 FLCMTRCD EQU PSA+157 04029000 @NM00052 EQU PSA+156 04030000 FLCPERA EQU FLCPER+1 04031000 @NM00051 EQU FLCPER 04032000 @NM00050 EQU PSA+151 04033000 FLCPERCD EQU PSA+150 04034000 FLCMCNUM EQU PSA+149 04035000 @NM00049 EQU PSA+148 04036000 FLCTEAA EQU FLCTEA+1 04037000 @NM00048 EQU FLCTEA 04038000 PSAPIPC EQU PSAPICOD 04039000 PSAPIMC EQU PSAPICOD 04040000 PSAPIPER EQU PSAPICOD 04041000 PSARV049 EQU FLCPICOD 04042000 FLCPILCB EQU FLCPIILC 04043000 @NM00047 EQU FLCPIILC 04044000 @NM00046 EQU PSAEPPSW 04045000 FLCSVCN EQU PSAESPSW+2 04046000 FLCSILCB EQU FLCSVILC 04047000 @NM00045 EQU FLCSVILC 04048000 @NM00044 EQU PSAESPSW 04049000 FLCEICOD EQU PSAEEPSW+2 04050000 PSASPAD EQU PSAEEPSW 04051000 @NM00043 EQU PSA+128 04052000 FLCINPSW EQU PSA+120 04053000 FLCMNPSW EQU PSA+112 04054000 FLCPNPSW EQU PSA+104 04055000 FLCSNPSW EQU PSA+96 04056000 FLCENPSW EQU PSA+88 04057000 FLCTRACE EQU PSA+84 04058000 FLCTIMER EQU PSA+80 04059000 FLCCVT2 EQU PSA+76 04060000 FLCCAW EQU PSA+72 04061000 FLCCSW EQU PSA+64 04062000 FLCIOPSW EQU PSA+56 04063000 FLCMOPSW EQU PSA+48 04064000 FLCPOPSW EQU PSA+40 04065000 FLCSOPSW EQU PSA+32 04066000 FLCEOPSW EQU PSA+24 04067000 @NM00042 EQU FLCICCW2+4 04068000 FLCICCW1 EQU FLCROPSW 04069000 FLCIPPSW EQU FLCRNPSW 04070000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04071000 @RT00125 EQU GLOCAL1 04072000 @RT00138 EQU NEXTSPQE 04073000 @RT00141 EQU NOTOWNER 04074000 @RT00153 EQU GOLOC 04075000 @RT00157 EQU SPPROCES 04076000 @RT00181 EQU EXITSPQE 04077000 @RT00196 EQU FREE 04078000 @RT00237 EQU GETDQE 04079000 @RT00242 EQU NODISP 04080000 @RT00246 EQU NEXTMOM 04081000 @RT00255 EQU NODISP 04082000 @RT00268 EQU EXITA 04083000 @RT00276 EQU LOC0EX 04084000 @RT00283 EQU MAKECK 04085000 @RT00289 EQU SEGFND1 04086000 @RT00303 EQU GOSCAN 04087000 @RT00315 EQU GOODBYE 04088000 @RT00318 EQU FREELOOP 04089000 @RT00328 EQU TRYPRINT 04090000 @RT00332 EQU TRYPRINT 04091000 @RT00335 EQU NEXTCDE 04092000 @RT00340 EQU NEXTCDE 04093000 @RT00345 EQU NEXTCDE 04094000 @RT00353 EQU NEXTCDE 04095000 @RT00356 EQU NEXTEXT 04096000 @RT00361 EQU NEXTEXT 04097000 @RT00365 EQU DONEPRNT 04098000 @RT00372 EQU SETSEGHI 04099000 @RT00375 EQU SETSCNLO 04100000 @RT00387 EQU DONEPRNT 04101000 @RT00397 EQU SCANRETA 04102000 @RT00407 EQU SCANRETA 04103000 @RT00411 EQU SCANRET 04104000 @ENDDATA EQU * 04105000 END IEAVAD0D,(C'PLS1413',0701,78097) 04106000