TITLE ' -- IEAVPCB: PCB MANAGER -- *00001000 ' 00002000 * 0076 00003000 IEAVPCB CSECT 00004000 USING *,15 00005000 MODID BR=NO 00006000 IEAVPCB2 DS 0H 00007000 ENTRY IEAVPCB2 00008000 STM R0,R14,PVTWSA13(PVTPTR) SAVE REGISTERS 00009000 BASE1 BALR R9,R0 ESTABLISH ENTRY POINT VALUE 00010000 USING *,R9 00011000 */********************************************************************/ 00012000 */* THIS IS THE START OF THE MAIN BODY OF CODE FOR THE PCB MANAGER. */ 00013000 */* IF R1 IS ZERO, THE BUILD OPTION IS SELECTED AND CONTROL TRANSFERS*/ 00014000 */* TO THE BUILD ROUTINE. IF R1 IS NOT ZERO, THE ENTRY FLAG IS SET */ 00015000 */* AND THE PCBPTR LOADED FOR THE ENQ/DEQ OPERATION. */ 00016000 */********************************************************************/ 00017000 * 0077 00018000 *MGRCODE: 0077 00019000 * IF R1^=0 THEN /* IF PARAMETER REG1 EQUALS 0, 0077 00020000 * THE BUILD OPTION HAS BEEN 0077 00021000 * CHOSEN */ 00022000 MGRCODE LTR R1,R1 0077 00023000 BZ @RF00077 0077 00024000 * DO; 0078 00025000 * RCAPTR=PVTPRCA; /* LOAD POINTER REGISTER */ 00026000 L RCAPTR,PVTPRCA(,PVTPTR) 0079 00027000 * RCAPCB='1'B; /* SET ENTRY POINT FLAG IN RCA */ 00028000 OI RCAPCB(RCAPTR),B'00010000' 0080 00029000 * PCBPTR=R1; /* ESTABLISH POINTER FOR PCB */ 00030000 LR PCBPTR,R1 0081 00031000 * 0082 00032000 */********************************************************************/ 00033000 */* DEQUEUE OPERATION - THE FOLLOWING CODE IS EXECUTED WHEN IEAVPCB */ 00034000 */* IS ENTERED WITH A REQUEST FOR A DEQUEUE OPERATION, THAT IS WHEN */ 00035000 */* THE PCB POINTER IS NOT ZERO AND THE PCBCQN IS NOT EQUAL TO */ 00036000 */* PCBDENQ. THE QUEUE ON WHICH THE DEQUEUE IS TO BE PERFORMED IS */ 00037000 */* DETERMINED BY COMPARING THE PCBCQN TO QUEUE NUMBERS. ONLY ONE PCB*/ 00038000 */* MAY BE DEQUEUED PER REQUEST. AFTER THE PCB HAS BEEN DEQUEUED, THE*/ 00039000 */* PCBCQN IS SET TO INDICATE THAT IT IS DEQUEUED (EQUAL TO PCBDENQ).*/ 00040000 */********************************************************************/ 00041000 * 0082 00042000 * IF PCBCQN^=PCBDEQN THEN /* IF PCBCQN IS NOT EQUAL TO 0082 00043000 * PCBDENQ, DEQUEUE IS REQUIRED */ 00044000 CLI PCBCQN(PCBPTR),255 0082 00045000 BE @RF00082 0082 00046000 * DO; /* NOT EQUAL, DEQUEUE IS REQUIRED*/ 00047000 * IF PCBCQNPCBFQPA=PCBFQPA;/* ADJUST PREVIOUS POINTER */ 00079000 B @RC00087 0089 00080000 @RF00087 L @12,PCBBQPA(,PCBPTR) 0089 00081000 MVC PCBFQPA(3,@12),PCBFQPA(PCBPTR) 0089 00082000 * IF PCBFQPA=0 THEN /* IF 0 THIS IS THE LAST PCB ON 00083000 * QUEUE */ 00084000 @RC00087 L @12,PCBFQPA-1(,PCBPTR) 0090 00085000 LA @12,0(,@12) 0090 00086000 LTR @12,@12 0090 00087000 BNZ @RF00090 0090 00088000 * QLAST=PCBBQPA; /* LAST PCB, SO ADJUST LAST 0091 00089000 * POINTER */ 00090000 L @12,PCBBQPA(,PCBPTR) 0091 00091000 ST @12,QLAST(,QFSTPTR) 0091 00092000 * ELSE /* IF NOT 0, THIS PCB IS NOT LAST*/ 00093000 * PCBFQPA->PCBBQPA=PCBBQPA;/* NOT LAST PCB, SO ADJUST 0092 00094000 * BACK POINTER IN NEXT PCB */ 00095000 B @RC00090 0092 00096000 @RF00090 L @12,PCBFQPA-1(,PCBPTR) 0092 00097000 L @08,PCBBQPA(,PCBPTR) 0092 00098000 ST @08,PCBBQPA(,@12) 0092 00099000 * PCBCQN=PCBDEQN; /* SET PCBCQN TO INDICATE NOT ON 00100000 * A QUEUE */ 00101000 @RC00090 MVI PCBCQN(PCBPTR),X'FF' 0093 00102000 * PCBFQPA=0; /* ZERO THE FORWARD POINTER */ 00103000 SLR @12,@12 0094 00104000 STCM @12,7,PCBFQPA(PCBPTR) 0094 00105000 * PCBBQPA=0; /* ZERO THE BACKWARD POINTER */ 00106000 ST @12,PCBBQPA(,PCBPTR) 0095 00107000 * END; 0096 00108000 * 0097 00109000 */********************************************************************/ 00110000 */* ENQUEUE OPERATION - THE FOLLOWING CODE IS EXECUTED WHEN IEAVPCB */ 00111000 */* IS ENTERED WITH A ENQUEUE REQUEST, THAT IS THE PCBPTR IS NOT ZERO*/ 00112000 */* AND MGRTQN IS NOT EQUAL TO PCBDENQ. THE QUEUE ON WHICH THE PCB IS*/ 00113000 */* TO BE ENQUEUED IS DETERMINED BY COMPARING THE MGRTQN TO THE QUEUE*/ 00114000 */* NUMBERS. IF MORE THAN ONE PCB IS TO BE ENQUEUED, IT IS ASSUMED */ 00115000 */* THAT THE CALLER HAS MADE SURE THAT THE CHAIN IS NOT BROKEN, AND */ 00116000 */* AND THAT THE END IS MARKED BY A ZERO FORWARD POINTER. THE PCBCQN */ 00117000 */* IS SET TO THE VALUE OF THE QUEUE NUMBER WHEN IT IS ENQUEUED, AND */ 00118000 */* IF THE ENQUEUE IS TO THE FREE QUEUE THE FREE QUEUE DEPTH IS */ 00119000 */* ADJUSTED IN THE PVT. */ 00120000 */********************************************************************/ 00121000 * 0097 00122000 * IF MGRTQN^=PCBDEQN THEN /* IF NOT EQUAL, ENQUEUE 0097 00123000 * REQUESTED */ 00124000 @RF00082 CLI MGRTQN(PVTPTR),255 0097 00125000 BE @RF00097 0097 00126000 * DO; /* NOT EQUAL, EXECUTE ENQUEUE 0098 00127000 * CODE */ 00128000 * IF MGRTQNPCBFQPA=PCBPTR;/* NOT EMPTY SO SET FORWARD 0108 00163000 * POINTER OF LAST CURRENT PCB TO 00164000 * POINT TO PCB BEING ADDED */ 00165000 L @12,QLAST(,QFSTPTR) 0108 00166000 STCM PCBPTR,7,PCBFQPA(@12) 0108 00167000 * PCBBQPA=QLAST; /* SET NEW PCB BACKWARD POINTER 00168000 * TO POINT TO PRECEEDING PCB */ 00169000 ST @12,PCBBQPA(,PCBPTR) 0109 00170000 * END; 0110 00171000 *MGRENQLP: 0111 00172000 * PCBCQN=MGRTQN; /* SET CQN TO CURRENT QUEUE 0111 00173000 * NUMBER THAT PCB IS TAGGED TO */ 00174000 @RC00102 DS 0H 0111 00175000 MGRENQLP IC @12,MGRTQN(,PVTPTR) 0111 00176000 STC @12,PCBCQN(,PCBPTR) 0111 00177000 * IF MGRTQN=PCBFREQN THEN /* IF EQUAL, PCB HAS BEEN PUT ON 00178000 * THE FREE QUEUE */ 00179000 CLI MGRTQN(PVTPTR),16 0112 00180000 BNE @RF00112 0112 00181000 * DO; 0113 00182000 *CHAINFRQ: /* BEGINNING OF LOOP PLACING 0114 00183000 * PCB'S ON THE FREE QUEUE. 0114 00184000 * @Z40WPYD*/ 00185000 * 0114 00186000 * /*****************************************************/ 00187000 * /* */ 00188000 * /* THE FOLLOWING SETS THE TRACE CSECT ID, IN THE PCB,*/ 00189000 * /* OF THE MODULE WHICH IS FREEING THE PCB. WHEN THE */ 00190000 * /* TRACE IS ACTIVE, THE BRANCH INSTRUCTION MUST BE */ 00191000 * /* NOPED. @Z40WPYD*/ 00192000 * /* */ 00193000 * /*****************************************************/ 00194000 * 0114 00195000 *TRACEZP3: 0114 00196000 * GENERATE; 0114 00197000 CHAINFRQ DS 0H 0114 00198000 TRACEZP3 DS 0H 0114 00199000 B TRACEZP3+10 NOPED WHEN TRACE ACTIVE 00200000 MVC 65(1,PCBPTR),RCACSECT(RCAPTR) MOVE IN CSECT ID OF 00201000 * MODULE FREEING PCB 00202000 * PVTPCBCT=PVTPCBCT+1;/* UPDATE FREE QUEUE COUNT */ 00203000 LA @12,1 0115 00204000 AH @12,PVTPCBCT(,PVTPTR) 0115 00205000 STH @12,PVTPCBCT(,PVTPTR) 0115 00206000 * IF PCBFQPA=0 THEN /* IF 0 THIS IS LAST PCB ON CHAIN*/ 00207000 L @12,PCBFQPA-1(,PCBPTR) 0116 00208000 LA @12,0(,@12) 0116 00209000 LTR @12,@12 0116 00210000 BNZ @RF00116 0116 00211000 * QLAST=PCBPTR; /* SET LAST POINTER IN ANCHOR TO 00212000 * POINT TO LAST PCB */ 00213000 ST PCBPTR,QLAST(,QFSTPTR) 0117 00214000 * ELSE /* IF NOT 0, THIS IS NOT THE LAST 00215000 * PCB ON CHAIN BEING ENQUEUED */ 00216000 * DO; 0118 00217000 B @RC00116 0118 00218000 @RF00116 DS 0H 0119 00219000 * PCBPTR=PCBFQPA; /* UPDATE PCBPTR TO NEXT ON CHAIN 00220000 * @Z40WPYD*/ 00221000 L @12,PCBFQPA-1(,PCBPTR) 0119 00222000 LA @12,0(,@12) 0119 00223000 LR PCBPTR,@12 0119 00224000 * PCBCQN=MGRTQN; /* SET CQN TO CURRENT QUEUE, FREE 00225000 * QUEUE @Z40WPYD*/ 00226000 IC @12,MGRTQN(,PVTPTR) 0120 00227000 STC @12,PCBCQN(,PCBPTR) 0120 00228000 * GOTO CHAINFRQ; /* LOOP TO PROCESS EACH PCB ON 0121 00229000 * THE FREE QUEUE @Z40WPYD*/ 00230000 B CHAINFRQ 0121 00231000 * END; 0122 00232000 * END; 0123 00233000 * ELSE 0124 00234000 * DO; 0124 00235000 B @RC00112 0124 00236000 @RF00112 DS 0H 0125 00237000 * IF PCBFQPA=0 THEN 0125 00238000 L @12,PCBFQPA-1(,PCBPTR) 0125 00239000 LA @12,0(,@12) 0125 00240000 LTR @12,@12 0125 00241000 BNZ @RF00125 0125 00242000 * QLAST=PCBPTR; /* IF ZERO, THIS IS LAST PCB ON 00243000 * CHAIN @Z40WPYD*/ 00244000 ST PCBPTR,QLAST(,QFSTPTR) 0126 00245000 * ELSE 0127 00246000 * DO; 0127 00247000 B @RC00125 0127 00248000 @RF00125 DS 0H 0128 00249000 * PCBPTR=PCBFQPA; /* UPDATE PCBPTR TO NEXT ON CHAIN*/ 00250000 L @12,PCBFQPA-1(,PCBPTR) 0128 00251000 LA @12,0(,@12) 0128 00252000 LR PCBPTR,@12 0128 00253000 * GOTO MGRENQLP; /* LOOP TO PROCESS EACH PCB ON 0129 00254000 * THE CHAIN BEING ENQUEUED */ 00255000 B MGRENQLP 0129 00256000 * END; 0130 00257000 * END; 0131 00258000 @RC00125 DS 0H 0132 00259000 * END; 0132 00260000 @RC00112 DS 0H 0133 00261000 * 0133 00262000 */********************************************************************/ 00263000 */* CODE COMMON TO ENQUEUE/DEQUEUE - IF EITHER THE ENQUEUE OPTION OR */ 00264000 */* THE DEQUEUE OPTION WERE REQUESTED THIS CODE WILL BE EXECUTED. */ 00265000 */* IT MERELY SETS THE RETURN CODE TO ZERO AND THEN PASSES CONTROL */ 00266000 */* TO THE RETURN PREPERATION ROUTINE VIA A BRANCH. */ 00267000 */********************************************************************/ 00268000 * 0133 00269000 * RETCODR=0; /* RETURN CODE IS ZERO AT THIS 0133 00270000 * POINT IF ANY COMBINATION OF 0133 00271000 * ENQ/DEQ FUNCTIONS WAS 0133 00272000 * PERFORMED */ 00273000 @RF00097 SLR RETCODR,RETCODR 0133 00274000 * GOTO MGRRTNCD; /* AFTER ENQUEUE AND DEQUEUE 0134 00275000 * DECISIONS ARE MADE, GO TO CODE 00276000 * TO RESTORE REGISTERS AND 0134 00277000 * RETURN TO CALLER */ 00278000 B MGRRTNCD 0134 00279000 * END; 0135 00280000 * 0136 00281000 */********************************************************************/ 00282000 */* BUILD ROUTINE - THIS CODE MAKES UP THE BUILD ROUTINE. CONTROL IS */ 00283000 */* PASSED TO THIS POINT IF UPON ENTRY TO IEAVPCB THE PCBPTR IS ZERO */ 00284000 */* SPECIFYING THE BUILD OPTION. AN IMMEDIATE CHECK IS MADE TO SEE */ 00285000 */* IF THE BUILD REQUEST IS FOR ZERO (0) PCBS. IF IT IS A ZERO */ 00286000 */* REQUEST, CONTROL IMMEDIATELY TRANSFERS TO CODE FOR THAT PURPOSE. */ 00287000 */* IF IT IS NOT A ZERO REQUEST, AND THE NUMBER OF PCBS ON THE FREE */ 00288000 */* QUEUE IS SUFFICIENT TO SATISFY THE REQUEST, THE CHAIN IS BUILT. */ 00289000 */* IF ENOUGH PCBS ARE NOT AVAILABLE, IEAVPCB2 WILL BE CALLED TO */ 00290000 */* CREATE MORE PCBS BEFORE THIS BUILD TAKES PLACE. */ 00291000 */* THE PCBPTR AND MGRWD IN THE SAVE AREA ARE SET TO POINT TO THE */ 00292000 */* FIRST PCB ON THE CHAIN BEING BUILT. SETTING THE MGRWD PROVIDES */ 00293000 */* THE CALLER WITH THE CHAIN POINTER UPON RETURN. THE PCBCQN OF ALL */ 00294000 */* PCBS ON THE CHAIN ARE SET TO INDICATE DEQUEUED, AND THE PCBS ARE */ 00295000 */* CLEARED WITH THE EXCEPTION OF THE FORWARD AND BACKWARD POINTERS. */ 00296000 */* THE RETURN CODE IS SET TO ZERO. AFTER THE CHAIN HAS BEEN BUILT */ 00297000 */* THE FREE QUEUE IS CHECKED FOR MINIMUM DEPTH LEVEL. IF PCBS ARE */ 00298000 */* REQUIRED, THE REPLENISH ROUTINE IS CALLED IF POSSIBLE, AND THE */ 00299000 */* RETURN PREPERATION ROUTINE IS GIVEN CONTROL VIA A BRANCH. */ 00300000 */********************************************************************/ 00301000 * 0136 00302000 *MGRBLD: 0136 00303000 * IF MGRQTY^=0 THEN /* IF THIS IS NOT A ZERO BUILD 0136 00304000 * REQ */ 00305000 @RF00077 DS 0H 0136 00306000 MGRBLD L @12,MGRQTY(,PVTPTR) 0136 00307000 LTR @12,@12 0136 00308000 BZ @RF00136 0136 00309000 * DO; 0137 00310000 * RCAPTR=PVTPRCA; /* LOAD POINTER REGISTER */ 00311000 L RCAPTR,PVTPRCA(,PVTPTR) 0138 00312000 * RCAPCB='1'B; /* SET THE ENTERED FLAG */ 00313000 OI RCAPCB(RCAPTR),B'00010000' 0139 00314000 * IF PVTPCBCT^PCBBQPA=0; /* QUEUE IS NOT EMPTY SO FIRST 0158 00388000 * PCB ON CHAIN MUST HAVE A ZERO 00389000 * BACK PTR */ 00390000 B @RC00156 0158 00391000 @RF00156 L @12,PCBFQPA-1(,PCBPTR) 0158 00392000 SLR @08,@08 0158 00393000 ST @08,PCBBQPA(,@12) 0158 00394000 * PCBFQPA=0; /* SET FORWARD POINTER OF LAST 0159 00395000 * PCB ON CHAIN TO ZERO */ 00396000 @RC00156 SLR @12,@12 0159 00397000 STCM @12,7,PCBFQPA(PCBPTR) 0159 00398000 * RETCODR=0; /* SUCCESSFUL OPERATION CODE */ 00399000 SLR RETCODR,RETCODR 0160 00400000 * IF PVTPCBCT^PVTPCBNO THEN/* IF A 00603000 * NIP REQUEST OR THIS IS THE 0215 00604000 * SECOND GETMAIN TO FAIL OR THE 00605000 * QUANTITY REQUESTED IS NOT 0215 00606000 * GREATER THEN THE NORMAL 0215 00607000 * REQUEST NUMBER, GIVE AN ERROR 00608000 * RETURN @YM08254*/ 00609000 TM PVTPCBLT(PVTPTR),B'00010000' 0215 00610000 BZ @RT00215 0215 00611000 TM FGMFAILF(PVTPTR),B'10000000' 0215 00612000 BO @RT00215 0215 00613000 SLR @14,@14 0215 00614000 IC @14,PVTPCBNO(,PVTPTR) 0215 00615000 CR QTYRQDR,@14 0215 00616000 BH @RF00215 0215 00617000 @RT00215 DS 0H 0216 00618000 * DO; 0216 00619000 * RFY 0217 00620000 * (R14) RSTD; 0217 00621000 * RETCODR=4; /* SET THE RETURN CODE */ 00622000 LA RETCODR,4 0218 00623000 * R14=MGRRRTN; /* RESTORE RETURN REGISTER */ 00624000 L R14,MGRRRTN(,PVTPTR) 0219 00625000 * RETURN; /* RETURN TO CALLER */ 00626000 @EL00002 DS 0H 0220 00627000 @EF00002 DS 0H 0220 00628000 @ER00002 BR @14 0220 00629000 * RFY 0221 00630000 * (R14) UNRSTD; 0221 00631000 * END; 0222 00632000 * QTYRQDR=QTYRQDR-PVTPCBNO; /* IF THIS WAS A REQUEST FOR MORE 00633000 * THAN THE NORMAL NUMBER OF 0223 00634000 * PCBS, SET QUANTITY TO THAT 0223 00635000 * ACTUALLY NEEDED TO SATISFY THE 00636000 * CURRENT REQUEST */ 00637000 @RF00215 SLR @14,@14 0223 00638000 IC @14,PVTPCBNO(,PVTPTR) 0223 00639000 SLR QTYRQDR,@14 0223 00640000 * FGMFAILF='1'B; /* THE FIRST GETMAIN FAILED, SET 00641000 * A FLAG TO PREVENT A THIRD TRY 00642000 * @YM08254*/ 00643000 OI FGMFAILF(PVTPTR),B'10000000' 0224 00644000 * GOTO REPLCALC; /* RECALCULATE CORE AMOUNT, AND 00645000 * TRY THE GETMAIN AGAIN */ 00646000 B REPLCALC 0225 00647000 * END; 0226 00648000 * 0227 00649000 */********************************************************************/ 00650000 */* PCB BUILD ROUTINE- THIS CODE ZERO'S, FORMATS, AND CHAINS NEW PCBS*/ 00651000 */* TOGETHER. WHEN THE ENTIRE BLOCK OF CORE HAS BEEN FORMATTED, */ 00652000 */* CONTROL FALLS THROUGH TO THE SUCCEEDING CODE. */ 00653000 */********************************************************************/ 00654000 * 0227 00655000 * /*****************************************************************/ 00656000 * /* */ 00657000 * /* WHEN TRACE IS ACTIVE, THE CONSTANT LABELLED PCBTRACE MUST BE */ 00658000 * /* ZAPPED TO THE NEW PCB SIZE @Z40WPYD*/ 00659000 * /* */ 00660000 * /*****************************************************************/ 00661000 * 0227 00662000 * GENERATE; 0227 00663000 @RF00213 DS 0H 0227 00664000 LR CORELNR,QTYRQDR TOTAL AMOUNT OF CORE EQUALS THE 00665000 MH CORELNR,PCBTRACE QUANTITY DESIRED TIMES PCB LENGTH 00666000 * PCBPTR=BEGINPTR; /* POINT TO NEW PCB BEING BUILT */ 00667000 * 0228 00668000 LR PCBPTR,BEGINPTR 0228 00669000 * /*****************************************************************/ 00670000 * /* */ 00671000 * /* WHEN TRACE IS ACTIVE, THE INSTRUCTION CLEARING THE PCB MUST BE*/ 00672000 * /* ZAPPED TO HANDLE THE NEW PCB SIZE @Z40WPYD*/ 00673000 * /* */ 00674000 * /*****************************************************************/ 00675000 * 0229 00676000 *TRACEZP5: 0229 00677000 * ; 0229 00678000 TRACEZP5 DS 0H 0230 00679000 *REPLBLD: 0230 00680000 * PCB=PCB&&PCB; /* CLEAR THE NEW PCB */ 00681000 REPLBLD XC PCB(64,PCBPTR),PCB(PCBPTR) 0230 00682000 * PCBCQN=PCBFREQN; /* MARK PCB ON THE FREE QUEUE */ 00683000 * 0231 00684000 MVI PCBCQN(PCBPTR),X'10' 0231 00685000 * /*****************************************************************/ 00686000 * /* */ 00687000 * /* WHEN TRACE IS ACTIVE, THE LA INSTRUCTION OF THE PCB SIZE MUST */ 00688000 * /* BE ZAPPED TO X'41E00048' @Z40WPYD*/ 00689000 * /* */ 00690000 * /*****************************************************************/ 00691000 * 0232 00692000 *TRACEZP6: 0232 00693000 * PCBFQPA=PCBPTR+LENGTH(PCB); /* POINT TO NEXT PCB TO BE 0232 00694000 * CHAINED */ 00695000 TRACEZP6 LA @14,64 0232 00696000 LR @12,PCBPTR 0232 00697000 ALR @12,@14 0232 00698000 STCM @12,7,PCBFQPA(PCBPTR) 0232 00699000 * PCBBQPA=PCBPTR-LENGTH(PCB); /* POINT BACK TO PREVIOUS PCB */ 00700000 LR @08,PCBPTR 0233 00701000 SLR @08,@14 0233 00702000 ST @08,PCBBQPA(,PCBPTR) 0233 00703000 * IF PCBFQPA^=BEGINPTR+CORELNR THEN/* IF THIS IS NOT THE LAST PCB 00704000 * TO BE BUILT */ 00705000 LR @08,BEGINPTR 0234 00706000 ALR @08,CORELNR 0234 00707000 CR @12,@08 0234 00708000 BE @RF00234 0234 00709000 * DO; 0235 00710000 * PCBPTR=PCBPTR+LENGTH(PCB); /* UPDATE PCB POINTER TO NEXT PCB 00711000 * ON CHAIN */ 00712000 ALR PCBPTR,@14 0236 00713000 * GOTO REPLBLD; /* LOOP UNTIL ALL CORE IS 0237 00714000 * FORMATTED */ 00715000 B REPLBLD 0237 00716000 * END; 0238 00717000 * 0239 00718000 */********************************************************************/ 00719000 */* THIS CODE ADJUSTS THE FORWARD AND BACKWARD POINTERS IN THE FREE */ 00720000 */* QUEUE ANCHOR AS REQUIRED, TO ADD THE NEW PCB CHAIN TO THE QUEUE. */ 00721000 */* THE FREE QUEUE COUNT IS UPDATED AND RETURN IS MADE TO THE CALLER.*/ 00722000 */********************************************************************/ 00723000 * 0239 00724000 * PCBFQPA=0; /* LAST NEW PCB FORWARD POINTER = 00725000 * 0 */ 00726000 @RF00234 SLR @14,@14 0239 00727000 STCM @14,7,PCBFQPA(PCBPTR) 0239 00728000 * IF PVTFPCBF=0 THEN /* IF FREE QUEUE IS EMPTY */ 00729000 C @14,PVTFPCBF(,PVTPTR) 0240 00730000 BNE @RF00240 0240 00731000 * DO; 0241 00732000 * PVTFPCBF=BEGINPTR; /* FREE QUEUE FIRST POINTER 0242 00733000 * POINTS TO NEW PCB CHAIN */ 00734000 ST BEGINPTR,PVTFPCBF(,PVTPTR) 0242 00735000 * BEGINPTR->PCBBQPA=0; /* FIRST NEW PCB BACKWARD PTR 0243 00736000 * POINTS TO 0 */ 00737000 ST @14,PCBBQPA(,BEGINPTR) 0243 00738000 * END; 0244 00739000 * ELSE /* IF FREE QUEUE IS NOT EMPTY */ 00740000 * DO; 0245 00741000 B @RC00240 0245 00742000 @RF00240 DS 0H 0246 00743000 * PVTFPCBL->PCBFQPA=BEGINPTR; /* CHAIN NEW PCBS TO OLD CHAIN */ 00744000 L @14,PVTFPCBL(,PVTPTR) 0246 00745000 STCM BEGINPTR,7,PCBFQPA(@14) 0246 00746000 * BEGINPTR->PCBBQPA=PVTFPCBL; /* BACK CHAIN THE FIRST NEW PCB */ 00747000 ST @14,PCBBQPA(,BEGINPTR) 0247 00748000 * END; 0248 00749000 * PVTFPCBL=PCBPTR; /* SET FREE QUEUE LAST POINTER */ 00750000 @RC00240 ST PCBPTR,PVTFPCBL(,PVTPTR) 0249 00751000 * PVTPCBCT=PVTPCBCT+QTYRQDR; /* UPDATE FREE QUEUE COUNT */ 00752000 LR @14,QTYRQDR 0250 00753000 AH @14,PVTPCBCT(,PVTPTR) 0250 00754000 STH @14,PVTPCBCT(,PVTPTR) 0250 00755000 * RFY 0251 00756000 * (R14) RSTD; 0251 00757000 * R14=MGRRRTN; /* RESTORE RETURN REGISTER */ 00758000 L R14,MGRRRTN(,PVTPTR) 0252 00759000 * RETCODR=0; 0253 00760000 SLR RETCODR,RETCODR 0253 00761000 * END IEAVPCB3; 0254 00762000 B @EL00002 0254 00763000 @PB00002 DS 0H 0254 00764000 * 0255 00765000 */********************************************************************/ 00766000 */* */ 00767000 */* SUBROUTINE - IEAVREP1 (ENTRY IEAVREP1, IEAVREP2 AND IEAVREP3) */ 00768000 */* */ 00769000 */* FUNCTION - REPLENISH THE SRB POOL USED BY RSM ROUTINES. WHEN */ 00770000 */* ENTERED AT IEAVREP1, THIS ROUTINE WILL ALSO SCAN */ 00771000 */* THE RSMHDR'S FOR EACH MEMORY TO DETERMINE IF */ 00772000 */* IEAVIOCP SHOULD BE SCHEDULE. IF RSMCPNU OR RSMCPNC */ 00773000 */* IS SET TO 1, IEAVIOCP IS SCHEDULED TO THE MEMORY */ 00774000 */* REPRESENTED BY THE RSMHDR. */ 00775000 */* SEE MODULE PROLOGUE FOR A DESCRIPTION OF EACH */ 00776000 */* ENTRY POINT */ 00777000 */* */ 00778000 */* INPUT - SEE MODULE PROLOGUE */ 00779000 */* */ 00780000 */* OUTPUT - SEE MODULE PROLOGUE */ 00781000 */* */ 00782000 */********************************************************************/ 00783000 * 0255 00784000 * GEN DEFS(IEAVREP1,BASE2) SETS(R9,R8); 0255 00785000 ENTRY IEAVREP1 @Z30GNYC 00786000 IEAVREP1 DS 0H @Z30GNYC 00787000 BASE2 BALR R9,0 @Z30GNYC 00788000 LA R8,BASE2-BASE1 GET AMOUNT TO ADJUST BY @Z30GNYC 00789000 SR R9,R8 ADJUST BASE REG @Z30GNYC 00790000 * PVTPTR=CVTPVTP; /* SET PVT BASE @Z30GNYC*/ 00791000 L @12,CVTPTR 0256 00792000 L PVTPTR,CVTPVTP(,@12) 0256 00793000 * RESPECIFY 0257 00794000 * (R8) RESTRICTED; 0257 00795000 * R8=R14; /* SAVE RETURN ADDRESS @Z30GNYC*/ 00796000 * 0258 00797000 LR R8,R14 0258 00798000 * /*****************************************************************/ 00799000 * /* */ 00800000 * /* SET FRR @Z30GNYC*/ 00801000 * /* */ 00802000 * /*****************************************************************/ 00803000 * 0259 00804000 * GENERATE NODEFS REFS(R3,PVTPRCV,PSACSTK,FRRSCURR,FRRSLAST,FRRSELEN, 00805000 * FRRSENTR,FRRSFRRA,FRRSPARM) SETS(R4,R5,RCAPTR,R15) NOFLOWS; 00806000 * 0259 00807000 SETFRR A,FRRAD=PVTPRCV(R3),PARMAD=(RCAPTR),WRKREGS=(R4,R5), **00808000 RELATED=(RSM,IEAVREP1(EXIT)) 00809000 * /*****************************************************************/ 00810000 * /* */ 00811000 * /* OBTAIN SALLOC LOCK @Z30GNYC*/ 00812000 * /* */ 00813000 * /*****************************************************************/ 00814000 * 0260 00815000 *GETLOCK: 0260 00816000 * GENERATE NODEFS REFS(PSALITA,FLC) SETS(R11,R12,R13,R14) NOFLOWS; 00817000 GETLOCK DS 0H 0260 00818000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, **00819000 RELATED=(RSM,IEAVREP1(FREELOCK)) 00820000 * PVTPRCA=RCAPTR; /* RECOVERY COMM. AREA @Z30GNYC*/ 00821000 ST RCAPTR,PVTPRCA(,PVTPTR) 0261 00822000 * RCAREP1='1'B; /* IEAVREP1 ENTERED @Z30GNYC*/ 00823000 OI RCAREP1(RCAPTR),B'00000001' 0262 00824000 * RCASAL='1'B; /* SALLOC LOCK OBTAINED @Z30GNYC*/ 00825000 OI RCASAL(RCAPTR),B'10000000' 0263 00826000 * RCACSECT=RCACREP; /* CSECT IS IEAVPCB @Z30GNYC*/ 00827000 MVI RCACSECT(RCAPTR),X'0C' 0264 00828000 * PVTSRBIU='0'B; /* THIS SRB NO LONGER IN USE 0265 00829000 * @Z30GNYC*/ 00830000 NI PVTSRBIU(PVTPTR),B'11011111' 0265 00831000 * SCANHEAD='1'B; /* RSM HEADERS IN ALL MEMORIES 0266 00832000 * WILL BE SEARCHED TO DETERMINE 00833000 * IF IEAVIOCP SHOULD BE 0266 00834000 * SCHEDULED @Z30GNYC*/ 00835000 OI SCANHEAD(PVTPTR),B'10000000' 0266 00836000 * QTYRQDR=PVTSRBNO; /* INDICATE THE NUMBER OF SRBS TO 00837000 * BE INCLUDED IN POOL @Z30GNYC*/ 00838000 SLR QTYRQDR,QTYRQDR 0267 00839000 IC QTYRQDR,PVTSRBNO(,PVTPTR) 0267 00840000 * GOTO GETSPACE; /* GET STORAGE FOR SRB'S @Z30GNYC*/ 00841000 B GETSPACE 0268 00842000 * GEN DEFS(IEAVREP2,BASE3) SETS(R9,R8,PVTWSA17) REFS(R0,R14); 0269 00843000 * 0269 00844000 ENTRY IEAVREP2 @Z30GNYC 00845000 IEAVREP2 DS 0H @Z30GNYC 00846000 STM R0,R14,PVTWSA17(R3) SAVE CALLERS REG @Z30GNYC 00847000 BASE3 BALR R9,0 @Z30GNYC 00848000 LA R8,BASE3-BASE1 GET AMOUNT TO ADJUST BY @Z30GNYC 00849000 SR R9,R8 ADJUST BASE REG @Z30GNYC 00850000 * /*****************************************************************/ 00851000 * /* */ 00852000 * /* THIS IS THE BRANCH ENTRY FOR IEAVEQR AND IEAVRCF. THESE */ 00853000 * /* ROUTINES MUST ENTER WITH SALLOC HELD */ 00854000 * /* */ 00855000 * /*****************************************************************/ 00856000 * 0270 00857000 * RCAPTR=PVTPRCA; /* SET BASE FOR RCA @Z30GNYC*/ 00858000 L RCAPTR,PVTPRCA(,PVTPTR) 0270 00859000 * QTYRQDR=PVTSRBNO; /* NUMBER OF SRB'S TO BE INCLUDED 00860000 * IN POOL @Z30GNYC*/ 00861000 SLR QTYRQDR,QTYRQDR 0271 00862000 IC QTYRQDR,PVTSRBNO(,PVTPTR) 0271 00863000 * SCANHEAD='0'B; /* RSMHDR'S WILL NOT BE SCANNED 00864000 * @Z30GNYC*/ 00865000 NI SCANHEAD(PVTPTR),B'01111111' 0272 00866000 * GOTO GETSPACE; /* GET STORAGE FOR SRB'S @Z30GNYC*/ 00867000 B GETSPACE 0273 00868000 *IEAVREP3: 0274 00869000 * ENTRY; /* @Z30GNYC*/ 00870000 * GEN; 0275 00871000 * 0275 00872000 ENTRY IEAVREP3 @Z30GNYC 00873000 IEAVREP3 DS 0H @Z30GNYC 00874000 * /*****************************************************************/ 00875000 * /* */ 00876000 * /* ENTERED HERE FROM IEAVPCB ON NIP CALL FOR PRIMARY ALLOCATION */ 00877000 * /* OF SRB POOL */ 00878000 * /* */ 00879000 * /*****************************************************************/ 00880000 * 0276 00881000 * STM(R0,R14,PVTWSA17); /* SAVE CALLERS REG @Z30GNYC*/ 00882000 STM R0,R14,PVTWSA17(PVTPTR) 0276 00883000 * QTYRQDR=PVTSRBS; /* NUMBER OF SRB'S TO BE INCLUDED 00884000 * IN SRB POOL @Z30GNYC*/ 00885000 SLR QTYRQDR,QTYRQDR 0277 00886000 IC QTYRQDR,PVTSRBS(,PVTPTR) 0277 00887000 * RCAPTR=PVTPRCA; /* SET BASE FOR RCA @Z30GNYC*/ 00888000 L RCAPTR,PVTPRCA(,PVTPTR) 0278 00889000 * SCANHEAD='0'B; /* RSMHDR'S ARE NOT TO BE 0279 00890000 * SEARCHED @Z30GNYC*/ 00891000 NI SCANHEAD(PVTPTR),B'01111111' 0279 00892000 *GETSPACE: 0280 00893000 * ERRLOOP='0'B; /* ERROR LOOP CONTROL SWITCH - 0280 00894000 * WILL ONLY PERMIT ONE FAILURE 00895000 * OF GETMAIN OF SRB'S @Z30GNYC*/ 00896000 GETSPACE NI ERRLOOP(PVTPTR),B'10111111' 0280 00897000 * RESPECIFY 0281 00898000 * (R0, 0281 00899000 * R1, 0281 00900000 * R15, 0281 00901000 * R11) RESTRICTED; 0281 00902000 *RETRY: 0282 00903000 * R0=(QTYRQDR*(LENGTH(SRB)+4)+LENGTH(CPAB));/* COMPUTE SIZE OF 0282 00904000 * GETMAIN @Z30GNYC*/ 00905000 RETRY LR R0,QTYRQDR 0282 00906000 MH R0,@CH00983 0282 00907000 AL R0,@CF00107 0282 00908000 * R11=PVTPTR; /* SAVE PVTPTR @Z30GNYC*/ 00909000 LR R11,PVTPTR 0283 00910000 * PVTRSMGM='1'B; /* INDICATE RSM GETMAIN TO PREF 00911000 * @ZA16816*/ 00912000 * 0284 00913000 OI PVTRSMGM(PVTPTR),B'10000000' 0284 00914000 * /*****************************************************************/ 00915000 * /* */ 00916000 * /* GETMAIN STORAGE FOR SRB POOL */ 00917000 * /* */ 00918000 * /*****************************************************************/ 00919000 * 0285 00920000 * GENERATE NODEFS REFS(R0,R4,R7) SETS(R1,R3,R14,R15) NOFLOWS; 0285 00921000 GETMAIN RC,LV=(0),BRANCH=(YES,GLOBAL),SP=245,BNDRY=DBLWD, **00922000 RELATED=(RSM,IEAVREP1(NOTFREED)) 00923000 * PVTPTR=R11; /* RESTORE PVTPTR AFTER GETMAIN 00924000 * @Z30GNYC*/ 00925000 LR PVTPTR,R11 0286 00926000 * PVTRSMGM='0'B; /* RESET RSM GETMAIN INDICATOR 0287 00927000 * @ZA16816*/ 00928000 NI PVTRSMGM(PVTPTR),B'01111111' 0287 00929000 * RESPECIFY 0288 00930000 * (R11) UNRESTRICTED; 0288 00931000 * PVTPRCA=RCAPTR; /* RESTORE RCAPTR AFTER GETMAIN 00932000 * @Z30GNYC*/ 00933000 ST RCAPTR,PVTPRCA(,PVTPTR) 0289 00934000 * IF R15^=0 THEN /* WAS GETMAIN UNSUCCESSFUL 0290 00935000 * @Z30GNYC*/ 00936000 LTR R15,R15 0290 00937000 BZ @RF00290 0290 00938000 * DO; /* YES @Z30GNYC*/ 00939000 * IF ERRLOOP='0'B THEN /* IS THIS THE FIRST TIME 0292 00940000 * @Z30GNYC*/ 00941000 TM ERRLOOP(PVTPTR),B'01000000' 0292 00942000 BNZ @RF00292 0292 00943000 * DO; /* YES - TRY AGAIN @Z30GNYC*/ 00944000 * ERRLOOP='1'B; /* INDICATE SECOND PASS @Z30GNYC*/ 00945000 OI ERRLOOP(PVTPTR),B'01000000' 0294 00946000 * QTYRQDR=2; /* DECREASE SIZE OF GETMAIN TO 2 00947000 * SRB'S @Z30GNYC*/ 00948000 LA QTYRQDR,2 0295 00949000 * GOTO RETRY; /* RETRY GETMAIN @Z30GNYC*/ 00950000 B RETRY 0296 00951000 * END; /* END OF FIRST ERROR PASS 0297 00952000 * @Z30GNYC*/ 00953000 * ELSE /* NO - SECOND ATTEMPT FAILED 0298 00954000 * @Z30GNYC*/ 00955000 * DO; /* PROCESS ERROR @Z30GNYC*/ 00956000 @RF00292 DS 0H 0299 00957000 * R15=4; /* INDICATE GETMAIN FAILED 0299 00958000 * @Z30GNYC*/ 00959000 LA R15,4 0299 00960000 * GOTO CHKSCAN; /* RETURN TO CALLER @Z30GNYC*/ 00961000 B CHKSCAN 0300 00962000 * END; /* END SECOND ERROR @Z30GNYC*/ 00963000 * END; /* END OF ERROR PROCESSING 0302 00964000 * @Z30GNYC*/ 00965000 * ELSE 0303 00966000 * ; /* GETMAIN SUCCESSFUL @Z30GNYC*/ 00967000 @RF00290 DS 0H 0304 00968000 * R0=PVTSRBID; /* SET CELLPOOL ID FOR BLDCPOOL 00969000 * @Z30GNYC*/ 00970000 L R0,PVTSRBID(,PVTPTR) 0304 00971000 * R5=LENGTH(SRB); /* SET LENGTH FOR BLDCPOOL 0305 00972000 * @Z30GNYC*/ 00973000 LA R5,44 0305 00974000 * RESPECIFY 0306 00975000 * (R13) RESTRICTED; 0306 00976000 * R13=ADDR(PVTSAVE); /* SET SAVE AREA FOR BLDCPOOL 0307 00977000 * @Z30GNYC*/ 00978000 LA R13,PVTSAVE(,PVTPTR) 0307 00979000 */* BUILD THE SRB POOL FROM ADDRESS RETURNED BY GETMAIN(R1) @Z30GNYC*/ 00980000 * 0308 00981000 * GENERATE REFS(R0,R1,R5,QTYRQDR); 0308 00982000 BLDCPOOL CPID=(0),CSIZE=(5),CPADDR=(1),CELLCNT=(QTYRQDR), **00983000 SP=245,BRANCH=YES,RELATED=(RSM,IEAVREP1(OWN)) 00984000 * RESPECIFY 0309 00985000 * (R0, 0309 00986000 * R4, 0309 00987000 * R5, 0309 00988000 * R13) UNRESTRICTED; 0309 00989000 * IF R15^=0 THEN /* WAS BLDCPOOL SUCCESSFUL 0310 00990000 * @Z30GNYC*/ 00991000 LTR R15,R15 0310 00992000 BZ @RF00310 0310 00993000 * DO; /* NO - PROCESS AS ERROR @Z30GNYC*/ 00994000 * IF PVTPCBLT='1'B THEN /* IF NOT NIP CALL, @Z30GNYC*/ 00995000 TM PVTPCBLT(PVTPTR),B'00010000' 0312 00996000 BNO @RF00312 0312 00997000 * RCARCRD='1'B; /* CAN INIT REASON CODE. @Z30GNYC*/ 00998000 MVI RCARCRD(RCAPTR),B'10000000' 0313 00999000 * ELSE 0314 01000000 * ; /* ON NIP CALL RCAPTR IS NOT 0314 01001000 * INITIALIZED. @Z30GNYC*/ 01002000 @RF00312 DS 0H 0315 01003000 * GENERATE CODE SETS(R1); 0315 01004000 * /* ISSUE ABEND @Z30GNYC*/ 01005000 ABEND X'C0D',,,SYSTEM RECORD THE ERROR @Z30GNYC 01006000 * R15=4; /* SET ERROR RETURN CODE @Z30GNYC*/ 01007000 LA R15,4 0316 01008000 * END; /* END OF ERROR PROCESSING 0317 01009000 * @Z30GNYC*/ 01010000 * ELSE 0318 01011000 * ; /* SUCCESSFUL @Z30GNYC*/ 01012000 @RF00310 DS 0H 0319 01013000 *CHKSCAN: 0319 01014000 * IF SCANHEAD='1'B THEN /* SHOULD RSMHDR'S BE SCANNED 0319 01015000 * @Z30GNYC*/ 01016000 CHKSCAN TM SCANHEAD(PVTPTR),B'10000000' 0319 01017000 BNO @RF00319 0319 01018000 * DO; /* YES @Z30GNYC*/ 01019000 * 0320 01020000 * /*************************************************************/ 01021000 * /* */ 01022000 * /* STARTING WITH MASTERS ASCB, SCAN THE RSMHDR'S IN EACH */ 01023000 * /* MEMORY TO DETERMINE IF IEAVIOCP SHOULD BE SCHEDULED */ 01024000 * /* (RSMCPNU OR RSMCPNC EQ 1) @Z30GNYC*/ 01025000 * /* OBTAIN DISPATCHER LOCK TO SCAN ASCB'S @Z30GNYC*/ 01026000 * /* */ 01027000 * /*************************************************************/ 01028000 * 0321 01029000 *GETD: 0321 01030000 * GENERATE NODEFS REFS(PSALITA,FLC) SETS(R11,R12,R13,R14) NOFLOWS 01031000 * ; 0321 01032000 GETD DS 0H 0321 01033000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, **01034000 RELATED=(RSM,IEAVPCB(RELD)) 01035000 * RCADISP='1'B; /* NOTE DISP LOCK GOTTEN @ZA28519*/ 01036000 OI RCADISP(RCAPTR),B'00000010' 0322 01037000 * RESPECIFY 0323 01038000 * (ASCBPTR) RESTRICTED; 0323 01039000 * ASCBPTR=CVTASVT->ASVTENTY(1);/* SET PTR TO MASTER @Z30GNYC*/ 01040000 L @11,CVTPTR 0324 01041000 L @11,CVTASVT(,@11) 0324 01042000 L ASCBPTR,ASVTENTY(,@11) 0324 01043000 *CHKBITS: 0325 01044000 * RSMHDPTR=ASCBRSM; /* SET PTR TO RSMHDR @Z30GNYC*/ 01045000 CHKBITS L RSMHDPTR,ASCBRSM(,ASCBPTR) 0325 01046000 * RESPECIFY 0326 01047000 * (R0, 0326 01048000 * R13) RESTRICTED; 0326 01049000 * DO WHILE RSMCPNU='1'B|RSMCPNC='1'B|RSMGFADD='1'B; 0327 01050000 * 0327 01051000 B @DE00327 0327 01052000 @DL00327 DS 0H 0328 01053000 * /***********************************************************/ 01054000 * /* */ 01055000 * /* CHECK IF IEAVIOCP OR IEAVGFAD SHOULD BE SCHEDULED */ 01056000 * /* */ 01057000 * /***********************************************************/ 01058000 * 0328 01059000 * R0=PVTSRBID; /* RESET SRB IDENTIFIER @Z30GNYC*/ 01060000 L R0,PVTSRBID(,PVTPTR) 0328 01061000 * R13=ADDR(PVTSAVE); /* SET SAVEAREA FOR GETCLL 0329 01062000 * @Z30GNYC*/ 01063000 LA R13,PVTSAVE(,PVTPTR) 0329 01064000 * GEN; 0330 01065000 * /* GET AN SRB @Z30GNYC*/ 01066000 GETCELL CPID=(0),BRANCH=YES,SAVE=YES 01067000 * RESPECIFY 0331 01068000 * (R0, 0331 01069000 * R13) UNRESTRICTED; 0331 01070000 * RESPECIFY 0332 01071000 * (SRBPTR, 0332 01072000 * R11) RESTRICTED; 0332 01073000 * R11=0; /* INDICATE SRBPARM VALUE 0333 01074000 * @Z30GNYC*/ 01075000 SLR R11,R11 0333 01076000 * IF R15^=0 THEN /* IF UNSUCCESSFUL THEN @Z30GNYC*/ 01077000 LTR R15,R15 0334 01078000 BZ @RF00334 0334 01079000 * DO; /* SET UP TO REPLENISH SRB POOL 01080000 * @Z30GNYC*/ 01081000 * SRBPTR=ADDR(PVTRSRB); /* SET PTR TO SRB TO RESCHED. 0336 01082000 * REP1 @Z30GNYC*/ 01083000 LA SRBPTR,PVTRSRB(,PVTPTR) 0336 01084000 * PVTSRBIU='1'B; /* SRB IN USE @Z30GNYC*/ 01085000 OI PVTSRBIU(PVTPTR),B'00100000' 0337 01086000 * ASCBPTR=CVTASVT->ASVTENTY(1);/* GET PTR TO MASTER'S 0338 01087000 * MEMORY @Z40WPYD*/ 01088000 L @10,CVTPTR 0338 01089000 L @10,CVTASVT(,@10) 0338 01090000 L ASCBPTR,ASVTENTY(,@10) 0338 01091000 * RESPECIFY 0339 01092000 * (R0) RESTRICTED; 0339 01093000 * R0=ADDR(IEAVREP1); /* SRB E.P. @Z30GNYC*/ 01094000 LA R0,IEAVREP1 0340 01095000 * CALL SCHEDSRB; /* SCHEDULE THE SRB @Z30GNYC*/ 01096000 BAL @14,SCHEDSRB 0341 01097000 * RESPECIFY 0342 01098000 * (R0) UNRESTRICTED; 0342 01099000 * GOTO NORMEXIT; /* RETURN @Z30GNYC*/ 01100000 B NORMEXIT 0343 01101000 * END; /* END OF UNSUCCESSFUL GETCELL 0344 01102000 * PROCESSING @Z30GNYC*/ 01103000 * ELSE /* GETCELL SUCCESSFUL @Z30GNYC*/ 01104000 * DO; /* DETERMINE IF IEAVGFAD SHOULD 01105000 * BE SCHEDULED TO RUN IN THIS 0345 01106000 * MEMORY @Z40WPYD*/ 01107000 @RF00334 DS 0H 0346 01108000 * IF RSMGFADD='1'B THEN 0346 01109000 TM RSMGFADD(RSMHDPTR),B'00000100' 0346 01110000 BNO @RF00346 0346 01111000 * DO; 0347 01112000 * RSMGFADD='0'B; /* CLEAR THE FLAG BIT @Z40WPYD*/ 01113000 * RSMGFAD='1'B; /* FLAG THE RSMHD AS HAVING HAD 01114000 * GFA DEFER SCHEDULED FOR THIS 01115000 * ADDRESS SPACE @Z40WPYD*/ 01116000 OI RSMGFAD(RSMHDPTR),B'00100000' 0349 01117000 NI RSMGFADD(RSMHDPTR),B'11111011' 0349 01118000 * R0=PVTPGFAD; /* IEAVGFAD'S EP FOR SRB @Z40WPYD*/ 01119000 L R0,PVTPGFAD(,PVTPTR) 0350 01120000 * CALL SCHEDSRB; /* INIT AND SCHED SRB @Z40WPYD*/ 01121000 BAL @14,SCHEDSRB 0351 01122000 * END; 0352 01123000 * ELSE 0353 01124000 * DO; /* DETERMINE IF IEAVIOCP SHOULD 01125000 * BE SCHEDULED TO REQUEST THE 0353 01126000 * LOCAL LOCK @ZM43117*/ 01127000 B @RC00346 0353 01128000 @RF00346 DS 0H 0354 01129000 * IF RSMCPNC='1'B THEN/* NOT LOCAL LOCK REQUEST 0354 01130000 * @Z40WPYD*/ 01131000 TM RSMCPNC(RSMHDPTR),B'00001000' 0354 01132000 BNO @RF00354 0354 01133000 * DO; /* YES @Z30GNYC*/ 01134000 * RSMCPNC='0'B; /* CLEAR THE FLAG BIT @Z30GNYC*/ 01135000 * RSMIOCPC='1'B;/* INDICATE IEAVIOCP SCHEDULED TO 01136000 * NOT REQUEST LOCAL LOCK 0357 01137000 * @Z40WPYD*/ 01138000 OI RSMIOCPC(RSMHDPTR),B'01000000' 0357 01139000 NI RSMCPNC(RSMHDPTR),B'11110111' 0357 01140000 * END; /* END OF NOT LOCAL LOCK REQUEST 01141000 * PROCESS @Z30GNYC*/ 01142000 * ELSE /* LOCAL LOCK REQUEST @Z40WPYD*/ 01143000 * DO; /* IEAVIOCP RUNS WITH LOCAL LOCK 01144000 * @Z40WPYD*/ 01145000 B @RC00354 0359 01146000 @RF00354 DS 0H 0360 01147000 * R11=1; /* VALUE FOR SRBPARM - LOCAL LOCK 01148000 * SHOULD BE OBTAINED @Z40WPYD*/ 01149000 LA R11,1 0360 01150000 * RSMCPNU='0'B; /* CLEAR THE FLAG BIT @Z40WPYD*/ 01151000 * RSMIOCPU='1'B;/* INDICATE IEAVIOCP SCHEDULED TO 01152000 * RUN WITH LOCAL LOCK @Z40WPYD*/ 01153000 OI RSMIOCPU(RSMHDPTR),B'10000000' 0362 01154000 NI RSMCPNU(RSMHDPTR),B'11101111' 0362 01155000 * END; /* END LOCAL LOCK REQUEST 0363 01156000 * @Z40WPYD*/ 01157000 * RESPECIFY 0364 01158000 * (R0) RESTRICTED; 0364 01159000 @RC00354 DS 0H 0365 01160000 * R0=PVTPIOCP; /* IEAVIOCP'S EP FOR SRB @Z30GNYC*/ 01161000 L R0,PVTPIOCP(,PVTPTR) 0365 01162000 * CALL SCHEDSRB; /* INIT AND SCHED THE SRB 0366 01163000 * @Z30GNYC*/ 01164000 BAL @14,SCHEDSRB 0366 01165000 * END; /* END OF IEAVIOCP SCHEDULING 0367 01166000 * PROCESS @ZM43117*/ 01167000 * RESPECIFY 0368 01168000 * R0 UNRESTRICTED; 0368 01169000 @RC00346 DS 0H 0369 01170000 * END; /* END OF SUCCESSFUL GETCELL 0369 01171000 * PROCESSING @Z30GNYC*/ 01172000 * END; /* END OF CHKBITS PROCESS 0370 01173000 * @Z30GNYC*/ 01174000 @DE00327 TM RSMCPNU(RSMHDPTR),B'00011100' 0370 01175000 BNZ @DL00327 0370 01176000 *NXTMEMRY: 0371 01177000 * ASCBPTR=ASCBFWDP; /* GET PTR TO NEXT MEMORY 0371 01178000 * @Z30GNYC*/ 01179000 NXTMEMRY L ASCBPTR,ASCBFWDP(,ASCBPTR) 0371 01180000 * IF ASCBPTR^=0 THEN /* IS THERE ANOTHER MEMORY 0372 01181000 * @Z30GNYC*/ 01182000 SLR @10,@10 0372 01183000 CR ASCBPTR,@10 0372 01184000 BE @RF00372 0372 01185000 * DO; /* YES @Z30GNYC*/ 01186000 * IF ASCBRSM^=0 THEN /* DETERMINE IF THERE EXITS AN 0374 01187000 * RSMHD'R. THERE MAY NOT BE BE 01188000 * ONE IF MEMORY IS TERMINATING. 01189000 * @Z30GNYC*/ 01190000 C @10,ASCBRSM(,ASCBPTR) 0374 01191000 BNE @RT00374 0374 01192000 * GOTO CHKBITS; /* YES - DETERMINE IF IEAVIOCP 0375 01193000 * SHOULD BE SCHEDULED @Z30GNYC*/ 01194000 * ELSE /* MEMORY DOES NOT EXIST @Z30GNYC*/ 01195000 * GOTO NXTMEMRY; /* PROCESS NEXT ADDRESS SPACE 0376 01196000 * @Z30GNYC*/ 01197000 B NXTMEMRY 0376 01198000 * END; /* END OF ADDRESS SPACE 0377 01199000 * PROCESSING @Z30GNYC*/ 01200000 * ELSE 0378 01201000 * ; /* ALL ADDRESS SPACES PROCESSED 01202000 * @Z30GNYC*/ 01203000 @RF00372 DS 0H 0379 01204000 * END; /* END OF SCANHEAD TEST @Z30GNYC*/ 01205000 * RESPECIFY 0380 01206000 * (SRBPTR, 0380 01207000 * R11, 0380 01208000 * ASCBPTR) UNRESTRICTED; 0380 01209000 @RF00319 DS 0H 0381 01210000 *NORMEXIT: 0381 01211000 * IF SCANHEAD='1'B THEN /* IF ENTERED AT IEAVREP1 - MUST 01212000 * RELEASE SALLOC, FREE FRR 0381 01213000 * @Z30GNYC*/ 01214000 NORMEXIT TM SCANHEAD(PVTPTR),B'10000000' 0381 01215000 BNO @RF00381 0381 01216000 * DO; /* ENTERED AT IEAVREP1 @Z30GNYC*/ 01217000 * 0382 01218000 * /*************************************************************/ 01219000 * /* */ 01220000 * /* RELEASE DISPATCHER LOCK @Z30GNYC*/ 01221000 * /* */ 01222000 * /*************************************************************/ 01223000 * 0383 01224000 *RELD: 0383 01225000 * GENERATE NODEFS REFS(PSALITA,FLC) SETS(R11,R12,R13,R14) NOFLOWS 01226000 * ; 0383 01227000 RELD DS 0H 0383 01228000 SETLOCK RELEASE,TYPE=DISP,RELATED=(RSM,IEAVPCB(GETD)) 01229000 * RCADISP='0'B; /* NOTE DISP LOCK RELEASED 0384 01230000 * @ZA28519*/ 01231000 * 0384 01232000 NI RCADISP(RCAPTR),B'11111101' 0384 01233000 * /*************************************************************/ 01234000 * /* */ 01235000 * /* RELEASE SALLOC LOCK @Z30GNYC*/ 01236000 * /* */ 01237000 * /*************************************************************/ 01238000 * 0385 01239000 *FREELOCK: 0385 01240000 * GENERATE NODEFS REFS(PSALITA,FLC) SETS(R11,R12,R13,R14) NOFLOWS 01241000 * ; 0385 01242000 * 0385 01243000 FREELOCK DS 0H 0385 01244000 SETLOCK RELEASE,TYPE=SALLOC,RELATED=(RSM,IEAVPCB(GETLOCK)) 01245000 * /*************************************************************/ 01246000 * /* */ 01247000 * /* DELETE THE FRR @Z30GNYC*/ 01248000 * /* */ 01249000 * /*************************************************************/ 01250000 * 0386 01251000 * GENERATE NODEFS REFS(PSACSTK,FRRSCURR,FRRSEMP,FRRSELEN,FRRS) 01252000 * SETS(R11,R12); 0386 01253000 SETFRR D,WRKREGS=(R11,R12),RELATED=(RSM,IEAVPCB(START)) 01254000 * R14=R8; /* RESTORE RETURN ADDR */ 01255000 LR R14,R8 0387 01256000 * GEN NOFLOWS NOSETS NOSEQFLOW EXIT; 0388 01257000 * /* RETURN TO CALLER @Z30GNYC*/ 01258000 BR R14 RETURN 01259000 * END; /* END OF EXIT PROCESSING 0389 01260000 * @Z30GNYC*/ 01261000 *EXIT: 0390 01262000 * LM(R0,R14,PVTWSA17); /* RESTORE CALLERS REG @Z30GNYC*/ 01263000 @RF00381 DS 0H 0390 01264000 EXIT LM R0,R14,PVTWSA17(PVTPTR) 0390 01265000 * GEN NOFLOWS NOSETS NOSEQFLOW EXIT; 0391 01266000 BR R14 RETURN 01267000 TRACEZP1 DS 0H @Z40WPYD 01268000 PCBTRACE DC H'64' @Z40WPYD 01269000 *SCHEDSRB: 0392 01270000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0392 01271000 * 0392 01272000 SCHEDSRB DS 0H 0393 01273000 */********************************************************************/ 01274000 */* */ 01275000 */* SUBROUTINE - SCHEDSRB */ 01276000 */* */ 01277000 */* FUNCTION - SET UP AND SCHEDULE AN SRB */ 01278000 */* */ 01279000 */* INPUT - R0: ADDRESS OF ROUTINE TO SCHEDULE */ 01280000 */* R1: POINTER TO SRB */ 01281000 */* R11: VALUE FOR SRBPARM */ 01282000 */* R12: POINTER TO ASCB WHERE SRB IS TO BE SCHEDULED */ 01283000 */* */ 01284000 */* OUTPUT - SRB INITIALIZED AND SCHEDULED AS REQUESTED */ 01285000 */* */ 01286000 */********************************************************************/ 01287000 * 0393 01288000 * RESPECIFY 0393 01289000 * (R0, 0393 01290000 * R1, 0393 01291000 * R11, 0393 01292000 * R12) RESTRICTED; 0393 01293000 * SRB=SRB&&SRB; /* ZERO THE SRB @Z30GNYC*/ 01294000 XC SRB(44,SRBPTR),SRB(SRBPTR) 0394 01295000 * SRBASCB=ASCBPTR; /* SET ASCB ADDRESS @Z30GNYC*/ 01296000 ST ASCBPTR,SRBASCB(,SRBPTR) 0395 01297000 * SRBEP=R0; /* SET ENTRY POINT @Z30GNYC*/ 01298000 ST R0,SRBEP(,SRBPTR) 0396 01299000 * SRBPASID=ASCBASID; /* SET ASID @Z30GNYC*/ 01300000 LH @10,ASCBASID(,ASCBPTR) 0397 01301000 N @10,@CF01845 0397 01302000 STH @10,SRBPASID(,SRBPTR) 0397 01303000 * SRBID='SRB '; /* SET SRB ID @Z30GNYC*/ 01304000 MVC SRBID(4,SRBPTR),@CC01828 0398 01305000 * SRBPRIOR=4; /* SET SRB PRIORITY, I.E., 0399 01306000 * NONQUIESCABLE @Z30GNYC*/ 01307000 MVI SRBPRIOR(SRBPTR),X'04' 0399 01308000 * SRBRMTR=PVTPSRBP; /* PURGE RTN EP @Z30GNYC*/ 01309000 L @10,PVTPSRBP(,PVTPTR) 0400 01310000 ST @10,SRBRMTR(,SRBPTR) 0400 01311000 * SRBPARM=R11; /* SET PARM VALUE AS REQUESTED 0401 01312000 * @Z30GNYC*/ 01313000 ST R11,SRBPARM(,SRBPTR) 0401 01314000 * GENERATE; 0402 01315000 * /* SCHEDULE THE SRB @Z30GNYC*/ 01316000 SCHEDULE SRB=(1),SCOPE=LOCAL 01317000 * RETURN; /* RETURN TO CALLER @Z30GNYC*/ 01318000 @EL00003 DS 0H 0403 01319000 @EF00003 DS 0H 0403 01320000 @ER00003 BR @14 0403 01321000 * RESPECIFY 0404 01322000 * (R0, 0404 01323000 * R1, 0404 01324000 * R8, 0404 01325000 * R11, 0404 01326000 * R12) UNRESTRICTED; 0404 01327000 * END SCHEDSRB; /* END OF SUBROUTINE @Z30GNYC*/ 01328000 * END IEAVPCB /* END OF MODULE */ 01329000 * 0406 01330000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01331000 */*%INCLUDE SYSLIB (CVT ) */ 01332000 */*%INCLUDE SYSLIB (IHAPVT ) */ 01333000 */*%INCLUDE SYSLIB (IHAPCB ) */ 01334000 */*%INCLUDE SYSLIB (IHARSMHD) */ 01335000 */*%INCLUDE SYSLIB (IHARCA ) */ 01336000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 01337000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01338000 */*%INCLUDE SYSLIB (IHASRB ) */ 01339000 */*%INCLUDE SYSLIB (IHACPAB ) */ 01340000 */*%INCLUDE SYSLIB (IHAASVT ) */ 01341000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01342000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01343000 */*%INCLUDE SYSLIB (ILRAIA ) */ 01344000 * 0406 01345000 * ; 0406 01346000 @DATA DS 0H 01347000 @CH00983 DC H'48' 01348000 DS 0F 01349000 DS 0F 01350000 @CF00107 DC F'32' 01351000 @CF01689 DC F'128' 01352000 @CF01845 DC XL4'0000FFFF' 01353000 @CA01698 DC A(IEAVREP3) 01354000 DS 0D 01355000 @CC01828 DC C'SRB ' 01356000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01357000 @01 EQU 01 01358000 @02 EQU 02 01359000 @03 EQU 03 01360000 @04 EQU 04 01361000 @05 EQU 05 01362000 @06 EQU 06 01363000 @07 EQU 07 01364000 @08 EQU 08 01365000 @09 EQU 09 01366000 @10 EQU 10 01367000 @11 EQU 11 01368000 @12 EQU 12 01369000 @13 EQU 13 01370000 @14 EQU 14 01371000 @15 EQU 15 01372000 PVTPTR EQU @03 01373000 PCBPTR EQU @04 01374000 RSMHDPTR EQU @02 01375000 RCAPTR EQU @06 01376000 SRBPTR EQU @01 01377000 ASCBPTR EQU @12 01378000 R0 EQU @00 01379000 CORELNR EQU @00 01380000 CPIDR EQU @00 01381000 R1 EQU @01 01382000 BEGINPTR EQU @01 01383000 R2 EQU @02 01384000 R3 EQU @03 01385000 R4 EQU @04 01386000 R5 EQU @05 01387000 QFSTPTR EQU @05 01388000 R7 EQU @07 01389000 QTYRQDR EQU @07 01390000 TEMPCTR EQU @07 01391000 R8 EQU @08 01392000 R9 EQU @09 01393000 R11 EQU @11 01394000 R12 EQU @12 01395000 R13 EQU @13 01396000 R14 EQU @14 01397000 R15 EQU @15 01398000 RETCODR EQU @15 01399000 R10 EQU @10 01400000 R6 EQU @06 01401000 PSA EQU 0 01402000 FLCRNPSW EQU PSA 01403000 FLCROPSW EQU PSA+8 01404000 FLCICCW2 EQU PSA+16 01405000 FLCCVT EQU FLCICCW2 01406000 PSAEEPSW EQU PSA+132 01407000 PSAESPSW EQU PSA+136 01408000 FLCSVILC EQU PSAESPSW+1 01409000 PSAEPPSW EQU PSA+140 01410000 FLCPIILC EQU PSAEPPSW+1 01411000 FLCPICOD EQU PSAEPPSW+2 01412000 PSAPICOD EQU FLCPICOD+1 01413000 FLCTEA EQU PSAEPPSW+4 01414000 FLCPER EQU PSA+152 01415000 FLCMCLA EQU PSA+168 01416000 FLCIOEL EQU FLCMCLA+4 01417000 FLCIOA EQU FLCMCLA+16 01418000 FLCFSA EQU FLCMCLA+80 01419000 PSASUPER EQU PSA+552 01420000 PSASUP1 EQU PSASUPER 01421000 PSASUP2 EQU PSASUPER+1 01422000 PSASUP3 EQU PSASUPER+2 01423000 PSASUP4 EQU PSASUPER+3 01424000 PSACLHT EQU PSA+640 01425000 PSALKSA EQU PSA+696 01426000 PSAHLHI EQU PSA+760 01427000 PSALITA EQU PSA+764 01428000 PSADSSFL EQU PSA+836 01429000 PSADSSF1 EQU PSADSSFL 01430000 PSADSSF3 EQU PSADSSFL+2 01431000 PSADSSF4 EQU PSADSSFL+3 01432000 PSARSVT EQU PSA+896 01433000 CVTMAP EQU 0 01434000 CVTDAR EQU CVTMAP+72 01435000 CVTFLGS1 EQU CVTDAR 01436000 CVTDCB EQU CVTMAP+116 01437000 CVTIOQET EQU CVTMAP+120 01438000 CVTIERLC EQU CVTMAP+144 01439000 CVTHEAD EQU CVTMAP+160 01440000 CVTSV76C EQU CVTHEAD 01441000 CVTOPTA EQU CVTMAP+182 01442000 CVTOPTB EQU CVTMAP+183 01443000 CVTGTF EQU CVTMAP+236 01444000 CVTGTFST EQU CVTGTF 01445000 CVTGTFS EQU CVTGTFST 01446000 CVTSTATE EQU CVTGTFST 01447000 CVTTMODE EQU CVTGTFST 01448000 CVTFORM EQU CVTGTFST 01449000 CVTAQAVT EQU CVTMAP+240 01450000 CVTTCMFG EQU CVTAQAVT 01451000 CVTVOLM2 EQU CVTMAP+244 01452000 CVTTATA EQU CVTVOLM2 01453000 CVTTSKS EQU CVTTATA 01454000 CVTVOLF2 EQU CVTTSKS 01455000 CVTTAT EQU CVTTATA+1 01456000 CVTATER EQU CVTMAP+248 01457000 CVTEXT1 EQU CVTMAP+252 01458000 CVTPURG EQU CVTMAP+260 01459000 CVTQMSG EQU CVTMAP+268 01460000 CVTDMSR EQU CVTMAP+272 01461000 CVTRSV37 EQU CVTDMSR 01462000 CVTDMSRF EQU CVTRSV37 01463000 CVTERPV EQU CVTMAP+316 01464000 CVTINTLA EQU CVTMAP+320 01465000 CVTAPF EQU CVTMAP+324 01466000 CVTEXT2 EQU CVTMAP+328 01467000 CVTHJES EQU CVTMAP+332 01468000 CVTPGSIA EQU CVTMAP+348 01469000 CVTA1F1 EQU CVTMAP+356 01470000 CVTSYSK EQU CVTMAP+357 01471000 CVTVOLM1 EQU CVTMAP+380 01472000 CVTVOLF1 EQU CVTVOLM1 01473000 CVTXTNT1 EQU 0 01474000 CVTXTNT2 EQU 0 01475000 CVTDSSV EQU CVTXTNT2 01476000 CVTFLGBT EQU CVTXTNT2+5 01477000 CVTQID EQU CVTXTNT2+24 01478000 CVTRV400 EQU CVTXTNT2+52 01479000 CVTRV409 EQU CVTXTNT2+53 01480000 CVTATCVT EQU CVTXTNT2+64 01481000 CVTRV429 EQU CVTXTNT2+84 01482000 CVTRV438 EQU CVTXTNT2+85 01483000 CVTRV457 EQU CVTXTNT2+112 01484000 CVTRV466 EQU CVTXTNT2+113 01485000 CVTFIX EQU 0 01486000 CVTRELNO EQU CVTFIX+252 01487000 PVT EQU 0 01488000 PVTFLAG1 EQU PVT 01489000 PVTBGMS EQU PVTFLAG1 01490000 PVTSRBIU EQU PVTFLAG1 01491000 PVTPCBLT EQU PVTFLAG1 01492000 PVTFLAG2 EQU PVT+1 01493000 PVTRSMGM EQU PVTFLAG2 01494000 PVTPCBS EQU PVT+10 01495000 PVTSRBNO EQU PVT+29 01496000 PVTPCBNO EQU PVT+30 01497000 PVTPCBCT EQU PVT+36 01498000 PVTPCBLO EQU PVT+38 01499000 PVTPRCA EQU PVT+52 01500000 PVTSRBID EQU PVT+68 01501000 PVTPGFAD EQU PVT+88 01502000 PVTPIOCP EQU PVT+96 01503000 PVTPRCV EQU PVT+156 01504000 PVTPSRBP EQU PVT+188 01505000 PVTQS EQU PVT+304 01506000 PVTWSAX EQU PVT+344 01507000 PVTWSA13 EQU PVTWSAX+896 01508000 PVTWSA17 EQU PVTWSAX+1184 01509000 PVTSAVE EQU PVTWSAX+1328 01510000 PVTSRBS EQU PVT+1772 01511000 PVTRSRB EQU PVT+1776 01512000 PVTPCBQS EQU PVT+1852 01513000 PVTFPCBF EQU PVTPCBQS+16 01514000 PVTFPCBL EQU PVTPCBQS+20 01515000 PCB EQU 0 01516000 PCBFQP EQU PCB 01517000 PCBCQN EQU PCBFQP 01518000 PCBFQPA EQU PCBFQP+1 01519000 PCBBQP EQU PCB+4 01520000 PCBBQPA EQU PCBBQP 01521000 PCBRTP EQU PCB+8 01522000 PCBFL1 EQU PCBRTP 01523000 PCBRLP EQU PCB+12 01524000 PCBXPT EQU PCB+16 01525000 PCBFL2 EQU PCBXPT 01526000 PCBPGT EQU PCB+20 01527000 PCBFL3 EQU PCBPGT 01528000 PCBBLOCK EQU PCB+28 01529000 PCBSRB EQU PCBBLOCK 01530000 PCBRB EQU PCBSRB 01531000 PCBAIA EQU PCB+36 01532000 RSMHD EQU 0 01533000 RSMFLG1 EQU RSMHD+12 01534000 RSMIOCPU EQU RSMFLG1 01535000 RSMIOCPC EQU RSMFLG1 01536000 RSMGFAD EQU RSMFLG1 01537000 RSMCPNU EQU RSMFLG1 01538000 RSMCPNC EQU RSMFLG1 01539000 RSMGFADD EQU RSMFLG1 01540000 RSMQS EQU RSMHD+20 01541000 RSMLFQ EQU RSMQS 01542000 RSMLSQA EQU RSMQS+4 01543000 RSMLIOQ EQU RSMQS+8 01544000 RCA EQU 0 01545000 RCANAME7 EQU RCA+8 01546000 RCACSECT EQU RCA+9 01547000 RCAFLAGS EQU RCA+10 01548000 RCASAL EQU RCAFLAGS 01549000 RCADISP EQU RCAFLAGS 01550000 RCARCRD EQU RCA+11 01551000 RCANAMES EQU RCA+12 01552000 RCANAME1 EQU RCANAMES 01553000 RCANAME2 EQU RCANAMES+1 01554000 RCAPCB EQU RCANAME2 01555000 RCANAME3 EQU RCANAMES+2 01556000 RCANAME4 EQU RCANAMES+3 01557000 RCANAME5 EQU RCANAMES+4 01558000 RCANAME6 EQU RCANAMES+5 01559000 RCAREP1 EQU RCANAME6 01560000 WSAL EQU 0 01561000 ASXBSPSA EQU 0 01562000 WSAG EQU 0 01563000 WSAC EQU 0 01564000 LCCACPUS EQU 0 01565000 SRBSECT EQU 0 01566000 SRB EQU SRBSECT 01567000 SRBID EQU SRB 01568000 SRBASCB EQU SRB+8 01569000 SRBFLC EQU SRB+12 01570000 SRBPASID EQU SRBFLC+2 01571000 SRBEP EQU SRB+20 01572000 SRBRMTR EQU SRB+24 01573000 SRBPARM EQU SRB+28 01574000 SRBPRIOR EQU SRB+37 01575000 CPAB EQU 0 01576000 CPABFLGW EQU CPAB+16 01577000 CPABFLGS EQU CPABFLGW+1 01578000 CPABPTR EQU 0 01579000 ASVT EQU 0 01580000 ASVTFRST EQU ASVT+524 01581000 ASVTENTY EQU ASVT+528 01582000 ASVTPTR EQU 0 01583000 FRRS EQU 0 01584000 FRRSHEAD EQU FRRS 01585000 FRRSEMP EQU FRRSHEAD 01586000 FRRSLAST EQU FRRSHEAD+4 01587000 FRRSELEN EQU FRRSHEAD+8 01588000 FRRSCURR EQU FRRSHEAD+12 01589000 FRRSENTR EQU 0 01590000 FRRSFRRA EQU FRRSENTR 01591000 FRRSFLGS EQU FRRSENTR+4 01592000 FRRSFLG1 EQU FRRSFLGS 01593000 FRRSPARM EQU FRRSENTR+8 01594000 FRREPTR EQU 0 01595000 ASCB EQU 0 01596000 ASCBFWDP EQU ASCB+4 01597000 ASCBSUPC EQU ASCB+16 01598000 ASCBASID EQU ASCB+36 01599000 ASCBRSM EQU ASCB+52 01600000 ASCBRSMF EQU ASCBRSM 01601000 ASCBFW1 EQU ASCB+100 01602000 ASCBRCTF EQU ASCBFW1+2 01603000 ASCBFLG1 EQU ASCBFW1+3 01604000 ASCBDSP1 EQU ASCB+114 01605000 ASCBFLG2 EQU ASCB+115 01606000 ASCBLKGP EQU ASCB+128 01607000 ASCBSRQ EQU ASCB+180 01608000 ASCBSRQ1 EQU ASCBSRQ 01609000 ASCBSRQ2 EQU ASCBSRQ+1 01610000 ASCBSRQ3 EQU ASCBSRQ+2 01611000 ASCBSRQ4 EQU ASCBSRQ+3 01612000 QHEADER EQU 0 01613000 QFIRST EQU QHEADER 01614000 QLAST EQU QHEADER+4 01615000 CVTPTR EQU FLCCVT 01616000 CVTS01 EQU CVTPGSIA 01617000 CVTPVTP EQU CVTS01+8 01618000 CVTLPDIA EQU CVTS01+12 01619000 CVTDIRST EQU CVTLPDIA 01620000 CVTSLIDA EQU CVTS01+24 01621000 CVTCTLFG EQU CVTS01+50 01622000 CVTASVT EQU CVTS01+208 01623000 CVTSPSA EQU CVTS01+336 01624000 CVTRV210 EQU CVTS01+424 01625000 CVTRV219 EQU CVTS01+425 01626000 CVTRV228 EQU CVTS01+426 01627000 CVTRV237 EQU CVTS01+427 01628000 CVTMFRTR EQU CVTS01+452 01629000 CVTRV262 EQU CVTS01+468 01630000 CVTRV271 EQU CVTS01+469 01631000 CVTRV280 EQU CVTS01+470 01632000 CVTRV289 EQU CVTS01+471 01633000 CVTGSDA EQU CVTS01+600 01634000 FLC EQU PSA 01635000 PSARSVTE EQU PSARSVT 01636000 PSACSTK EQU PSARSVTE 01637000 FRRSPTR EQU PSACSTK 01638000 TQNQTY EQU PVTWSA13 01639000 MGRQTY EQU TQNQTY 01640000 MGRTQN EQU MGRQTY+3 01641000 MGRWD EQU TQNQTY+4 01642000 INTAREA EQU TQNQTY+64 01643000 FLAGS EQU INTAREA 01644000 FGMFAILF EQU FLAGS 01645000 MGRRRTN EQU TQNQTY+68 01646000 MGRCLEAR EQU PCB 01647000 SAVEREP1 EQU PVTWSA17 01648000 @NM00045 EQU SAVEREP1+64 01649000 SCANHEAD EQU @NM00045 01650000 ERRLOOP EQU @NM00045 01651000 RSMAIA EQU PCBAIA 01652000 AIA EQU RSMAIA 01653000 AIAFLG1 EQU AIA+9 01654000 AIAFLG2 EQU AIA+10 01655000 AIAFLG3 EQU AIA+11 01656000 AIANXAIA EQU AIA+12 01657000 AIAID EQU AIA+16 01658000 AIALPID EQU AIAID 01659000 AIALGID EQU AIALPID 01660000 AIALSID EQU AIALGID 01661000 AIASSID EQU AIALSID+1 01662000 AIARPN EQU AIALPID+4 01663000 AIALSID2 EQU AIARPN 01664000 AIALPMEP EQU AIALSID2 01665000 AIAGRPSZ EQU AIA+24 01666000 AIALGE EQU AIAGRPSZ 01667000 * START UNREFERENCED COMPONENTS 01668000 AIADPXCT EQU AIALGE 01669000 AIACEPTR EQU AIALPMEP 01670000 AIASLOT EQU AIASSID+1 01671000 @NM00050 EQU AIASSID 01672000 @NM00049 EQU AIALSID 01673000 AIARCSN EQU AIANXAIA+2 01674000 AIACYL EQU AIANXAIA 01675000 AIARSV9 EQU AIAFLG3 01676000 AIARSV8 EQU AIAFLG3 01677000 AIARSV7 EQU AIAFLG3 01678000 AIALPMEC EQU AIAFLG3 01679000 AIARSV6 EQU AIAFLG3 01680000 AIATRPSP EQU AIAFLG3 01681000 AIAPRINO EQU AIAFLG3 01682000 AIARSV5 EQU AIAFLG3 01683000 AIABADID EQU AIAFLG2 01684000 AIAERROR EQU AIAFLG2 01685000 AIASECER EQU AIAFLG2 01686000 AIAPRIER EQU AIAFLG2 01687000 AIARSV4 EQU AIAFLG2 01688000 AIAIORTY EQU AIAFLG2 01689000 AIATERMR EQU AIAFLG2 01690000 AIAFRAUX EQU AIAFLG2 01691000 AIARSV1 EQU AIAFLG1 01692000 AIASWPFX EQU AIAFLG1 01693000 AIAPAGDS EQU AIAFLG1 01694000 AIALSQA EQU AIAFLG1 01695000 AIADUPLX EQU AIAFLG1 01696000 AIAVIO EQU AIAFLG1 01697000 AIAPRIV EQU AIAFLG1 01698000 AIAWRITE EQU AIAFLG1 01699000 AIAOP EQU AIA+8 01700000 AIABQPA EQU AIA+4 01701000 AIAFQPA EQU AIA 01702000 @NM00048 EQU SAVEREP1+68 01703000 @NM00047 EQU @NM00045+1 01704000 @NM00046 EQU @NM00045 01705000 SAVREGS EQU SAVEREP1 01706000 @NM00044 EQU INTAREA+1 01707000 @NM00043 EQU FLAGS 01708000 RETCOD EQU TQNQTY+60 01709000 @NM00042 EQU TQNQTY+8 01710000 @NM00041 EQU MGRQTY 01711000 PSARSAV EQU PSARSVTE+60 01712000 PSARSTK EQU PSARSVTE+56 01713000 PSAESAV3 EQU PSARSVTE+52 01714000 PSAESTK3 EQU PSARSVTE+48 01715000 PSAESAV2 EQU PSARSVTE+44 01716000 PSAESTK2 EQU PSARSVTE+40 01717000 PSAESAV1 EQU PSARSVTE+36 01718000 PSAESTK1 EQU PSARSVTE+32 01719000 PSAPSAV EQU PSARSVTE+28 01720000 PSAPSTK EQU PSARSVTE+24 01721000 PSAMSAV EQU PSARSVTE+20 01722000 PSAMSTK EQU PSARSVTE+16 01723000 PSASSAV EQU PSARSVTE+12 01724000 PSASSTK EQU PSARSVTE+8 01725000 PSANSTK EQU PSARSVTE+4 01726000 CVTRV628 EQU CVTS01+728 01727000 CVTRV627 EQU CVTS01+724 01728000 CVTRV626 EQU CVTS01+720 01729000 CVTRV625 EQU CVTS01+716 01730000 CVTRV624 EQU CVTS01+712 01731000 CVTRV623 EQU CVTS01+708 01732000 CVTRV622 EQU CVTS01+704 01733000 CVTRV621 EQU CVTS01+700 01734000 CVTIHASU EQU CVTS01+696 01735000 CVTSUSP EQU CVTS01+692 01736000 CVTT6SVC EQU CVTS01+688 01737000 CVTCDAL EQU CVTS01+684 01738000 CVTTCTL EQU CVTS01+680 01739000 CVTRSUME EQU CVTS01+676 01740000 CVTJTERM EQU CVTS01+672 01741000 CVTASMRM EQU CVTS01+668 01742000 CVTTCASP EQU CVTS01+664 01743000 CVT0PT03 EQU CVTS01+660 01744000 CVT0PT0E EQU CVTS01+656 01745000 CVTRV609 EQU CVTS01+652 01746000 CVTCGK EQU CVTS01+648 01747000 CVTRAC EQU CVTS01+644 01748000 CVTHSM EQU CVTS01+640 01749000 CVTRV605 EQU CVTS01+636 01750000 CVTRV604 EQU CVTS01+632 01751000 CVTEFF02 EQU CVTS01+628 01752000 CVTCBBR EQU CVTS01+624 01753000 CVTSSCR EQU CVTS01+620 01754000 CVTEVENT EQU CVTS01+616 01755000 CVTCRCA EQU CVTS01+612 01756000 CVTTPIO EQU CVTS01+608 01757000 CVTADV EQU CVTS01+604 01758000 CVTGSDAB EQU CVTGSDA 01759000 CVTQV3 EQU CVTS01+596 01760000 CVTQV2 EQU CVTS01+592 01761000 CVTQV1 EQU CVTS01+588 01762000 CVTRPT EQU CVTS01+584 01763000 CVTSSRB EQU CVTS01+580 01764000 CVTCSDRL EQU CVTS01+576 01765000 CVTEXP1 EQU CVTS01+572 01766000 CVTRMPMT EQU CVTS01+568 01767000 CVTRMPTT EQU CVTS01+564 01768000 CVTVPSA EQU CVTS01+560 01769000 CVTVSTOP EQU CVTS01+556 01770000 CVTGTFR8 EQU CVTS01+552 01771000 CVTQUIT EQU CVTS01+548 01772000 CVTVACR EQU CVTS01+544 01773000 CVTWTCB EQU CVTS01+540 01774000 CVTSTPRS EQU CVTS01+536 01775000 CVT0PT02 EQU CVTS01+532 01776000 CVTDARCM EQU CVTS01+528 01777000 CVTIRECM EQU CVTS01+524 01778000 CVTJRECM EQU CVTS01+520 01779000 CVTVEMS0 EQU CVTS01+516 01780000 CVTSPFRR EQU CVTS01+512 01781000 CVTRLSTG EQU CVTS01+508 01782000 CVT0TC0A EQU CVTS01+504 01783000 CVTGMBR EQU CVTS01+500 01784000 CVTLFRM EQU CVTS01+496 01785000 CVTRMBR EQU CVTS01+492 01786000 CVTVIOP EQU CVTS01+488 01787000 CVTRV307 EQU CVTS01+486 01788000 CVTRV306 EQU CVTS01+484 01789000 CVTRV305 EQU CVTS01+482 01790000 CVTRV304 EQU CVTS01+480 01791000 CVTRV303 EQU CVTS01+478 01792000 CVTRV302 EQU CVTS01+476 01793000 CVTTRCA EQU CVTS01+472 01794000 CVTRV297 EQU CVTRV289 01795000 CVTRV296 EQU CVTRV289 01796000 CVTRV295 EQU CVTRV289 01797000 CVTRV294 EQU CVTRV289 01798000 CVTRV293 EQU CVTRV289 01799000 CVTRV292 EQU CVTRV289 01800000 CVTRV291 EQU CVTRV289 01801000 CVTRV290 EQU CVTRV289 01802000 CVTRV288 EQU CVTRV280 01803000 CVTRV287 EQU CVTRV280 01804000 CVTRV286 EQU CVTRV280 01805000 CVTRV285 EQU CVTRV280 01806000 CVTRV284 EQU CVTRV280 01807000 CVTRV283 EQU CVTRV280 01808000 CVTRV282 EQU CVTRV280 01809000 CVTRV281 EQU CVTRV280 01810000 CVTRV279 EQU CVTRV271 01811000 CVTRV278 EQU CVTRV271 01812000 CVTRV277 EQU CVTRV271 01813000 CVTRV276 EQU CVTRV271 01814000 CVTRV275 EQU CVTRV271 01815000 CVTRV274 EQU CVTRV271 01816000 CVTRV273 EQU CVTRV271 01817000 CVTRV272 EQU CVTRV271 01818000 CVTRV270 EQU CVTRV262 01819000 CVTRV269 EQU CVTRV262 01820000 CVTRV268 EQU CVTRV262 01821000 CVTRV267 EQU CVTRV262 01822000 CVTRV266 EQU CVTRV262 01823000 CVTRV265 EQU CVTRV262 01824000 CVTRV264 EQU CVTRV262 01825000 CVTRV263 EQU CVTRV262 01826000 CVTVFP EQU CVTS01+464 01827000 CVTVSI EQU CVTS01+460 01828000 CVTVPSIB EQU CVTS01+456 01829000 CVTMFACT EQU CVTMFRTR 01830000 CVTMFCTL EQU CVTS01+448 01831000 CVTPVBP EQU CVTS01+444 01832000 CVTPWI EQU CVTS01+440 01833000 CVTRV254 EQU CVTS01+438 01834000 CVTRV253 EQU CVTS01+436 01835000 CVTRV252 EQU CVTS01+434 01836000 CVTRV251 EQU CVTS01+433 01837000 CVTRV250 EQU CVTS01+432 01838000 CVTRV249 EQU CVTS01+431 01839000 CVTRV248 EQU CVTS01+430 01840000 CVTRV247 EQU CVTS01+429 01841000 CVTRV246 EQU CVTS01+428 01842000 CVTRV245 EQU CVTRV237 01843000 CVTRV244 EQU CVTRV237 01844000 CVTRV243 EQU CVTRV237 01845000 CVTRV242 EQU CVTRV237 01846000 CVTRV241 EQU CVTRV237 01847000 CVTRV240 EQU CVTRV237 01848000 CVTRV239 EQU CVTRV237 01849000 CVTRV238 EQU CVTRV237 01850000 CVTRV236 EQU CVTRV228 01851000 CVTRV235 EQU CVTRV228 01852000 CVTRV234 EQU CVTRV228 01853000 CVTRV233 EQU CVTRV228 01854000 CVTRV232 EQU CVTRV228 01855000 CVTRV231 EQU CVTRV228 01856000 CVTRV230 EQU CVTRV228 01857000 CVTRV229 EQU CVTRV228 01858000 CVTRV227 EQU CVTRV219 01859000 CVTRV226 EQU CVTRV219 01860000 CVTRV225 EQU CVTRV219 01861000 CVTRV224 EQU CVTRV219 01862000 CVTRV223 EQU CVTRV219 01863000 CVTRV222 EQU CVTRV219 01864000 CVTRV221 EQU CVTRV219 01865000 CVTRV220 EQU CVTRV219 01866000 CVTRV218 EQU CVTRV210 01867000 CVTRV217 EQU CVTRV210 01868000 CVTRV216 EQU CVTRV210 01869000 CVTRV215 EQU CVTRV210 01870000 CVTRV214 EQU CVTRV210 01871000 CVTRV213 EQU CVTRV210 01872000 CVTRV212 EQU CVTRV210 01873000 CVTRV211 EQU CVTRV210 01874000 CVTLCCAT EQU CVTS01+420 01875000 CVTPCCAT EQU CVTS01+416 01876000 CVTIPCRP EQU CVTS01+412 01877000 CVTIPCRI EQU CVTS01+408 01878000 CVTIPCDS EQU CVTS01+404 01879000 CVTAIDVT EQU CVTS01+400 01880000 CVTSSAP EQU CVTS01+396 01881000 CVTEHCIR EQU CVTS01+392 01882000 CVTEHDEF EQU CVTS01+388 01883000 CVTDAIR EQU CVTS01+384 01884000 CVTPERFM EQU CVTS01+380 01885000 CVT044R2 EQU CVTS01+376 01886000 CVTFETCH EQU CVTS01+372 01887000 CVTRSTWD EQU CVTS01+368 01888000 CVTSPOST EQU CVTS01+364 01889000 CVTIOBP EQU CVTS01+360 01890000 CVTASMVT EQU CVTS01+356 01891000 CVTRECRQ EQU CVTS01+352 01892000 CVTWSAC EQU CVTS01+348 01893000 CVTRV149 EQU CVTS01+344 01894000 CVTWSAL EQU CVTS01+340 01895000 CVTGLMN EQU CVTS01+332 01896000 CVTVEAC0 EQU CVTS01+328 01897000 CVT062R1 EQU CVTS01+324 01898000 CVTRPOST EQU CVTS01+320 01899000 CVTDQIQE EQU CVTS01+316 01900000 CVTCSD EQU CVTS01+312 01901000 CVTLKRMA EQU CVTS01+308 01902000 CVTRSPIE EQU CVTS01+304 01903000 CVTRENQ EQU CVTS01+300 01904000 CVTLQCB EQU CVTS01+296 01905000 CVTFQCB EQU CVTS01+292 01906000 CVTQCS01 EQU CVTS01+288 01907000 CVTAPFT EQU CVTS01+284 01908000 CVTPARRL EQU CVTS01+280 01909000 CVTVWAIT EQU CVTS01+276 01910000 CVTGSPL EQU CVTS01+272 01911000 CVTLSMQ EQU CVTS01+268 01912000 CVTGSMQ EQU CVTS01+264 01913000 CVTEXPRO EQU CVTS01+260 01914000 CVTOPCTP EQU CVTS01+256 01915000 CVTSIC EQU CVTS01+252 01916000 CVTTPIOS EQU CVTS01+248 01917000 CVTRTMS EQU CVTS01+244 01918000 CVTSDBF EQU CVTS01+240 01919000 CVTSCBP EQU CVTS01+236 01920000 CVTSDMP EQU CVTS01+232 01921000 CVTSV60 EQU CVTS01+228 01922000 CVTRTMCT EQU CVTS01+224 01923000 CVTASCBL EQU CVTS01+220 01924000 CVTASCBH EQU CVTS01+216 01925000 CVTGDA EQU CVTS01+212 01926000 CVTVVMDI EQU CVTS01+204 01927000 CVTAQTOP EQU CVTS01+200 01928000 CVTIOSCS EQU CVTS01+196 01929000 CVTSDRM EQU CVTS01+192 01930000 CVTOPTE EQU CVTS01+188 01931000 CVTSTXU EQU CVTS01+184 01932000 CVTQUIS EQU CVTS01+180 01933000 CVTPARS EQU CVTS01+176 01934000 CVTS1EE EQU CVTS01+172 01935000 CVTFRAS EQU CVTS01+168 01936000 CVTQSAS EQU CVTS01+164 01937000 CVTCRAS EQU CVTS01+160 01938000 CVTCRMN EQU CVTS01+156 01939000 CVTDELCP EQU CVTS01+152 01940000 CVTFRECL EQU CVTS01+148 01941000 CVTGETCL EQU CVTS01+144 01942000 CVTBLDCP EQU CVTS01+140 01943000 CVTAUTHL EQU CVTS01+136 01944000 CVTSCAN EQU CVTS01+132 01945000 CVTRV144 EQU CVTS01+130 01946000 CVTMAXMP EQU CVTS01+128 01947000 CVTSTCK EQU CVTS01+124 01948000 CVTRV139 EQU CVTS01+123 01949000 CVTDSSAC EQU CVTS01+122 01950000 CVTRV513 EQU CVTS01+121 01951000 CVTIOSPL EQU CVTS01+120 01952000 CVTPTGT EQU CVTS01+116 01953000 CVTCSPIE EQU CVTS01+112 01954000 CVTSMFEX EQU CVTS01+108 01955000 CVTOLT0A EQU CVTS01+104 01956000 CVTSRBRT EQU CVTS01+100 01957000 CVTPUTL EQU CVTS01+96 01958000 CVTASCRL EQU CVTS01+92 01959000 CVTASCRF EQU CVTS01+88 01960000 CVTRV326 EQU CVTS01+84 01961000 CVTRV325 EQU CVTS01+80 01962000 CVTRV324 EQU CVTS01+76 01963000 CVT0VL01 EQU CVTS01+72 01964000 CVTSHRVM EQU CVTS01+68 01965000 CVTRV332 EQU CVTS01+64 01966000 CVTTAS EQU CVTS01+60 01967000 CVTRSCN EQU CVTS01+56 01968000 CVTTRAC2 EQU CVTS01+54 01969000 CVTTRACE EQU CVTS01+52 01970000 CVTAPG EQU CVTS01+51 01971000 CVTSDTRC EQU CVTCTLFG 01972000 CVTGTRCE EQU CVTCTLFG 01973000 CVTNOMP EQU CVTCTLFG 01974000 CVTRSV79 EQU CVTCTLFG 01975000 CVTDSTAT EQU CVTCTLFG 01976000 CVTRSV78 EQU CVTCTLFG 01977000 CVTRV333 EQU CVTCTLFG 01978000 CVTRV323 EQU CVTCTLFG 01979000 CVTSPVLK EQU CVTS01+49 01980000 CVTRSV77 EQU CVTS01+48 01981000 CVTRV331 EQU CVTS01+44 01982000 CVTRV330 EQU CVTS01+40 01983000 CVTRV329 EQU CVTS01+36 01984000 CVTRV328 EQU CVTS01+32 01985000 CVTRV322 EQU CVTS01+28 01986000 CVTSLID EQU CVTSLIDA+1 01987000 CVTSYLK EQU CVTSLIDA 01988000 CVTRV321 EQU CVTS01+20 01989000 CVTRV320 EQU CVTS01+16 01990000 CVTLPDIR EQU CVTLPDIA+1 01991000 CVTRSV69 EQU CVTDIRST 01992000 CVTRSV68 EQU CVTDIRST 01993000 CVTRSV67 EQU CVTDIRST 01994000 CVTRSV66 EQU CVTDIRST 01995000 CVTRSV65 EQU CVTDIRST 01996000 CVTRSV64 EQU CVTDIRST 01997000 CVTRSV63 EQU CVTDIRST 01998000 CVTDICOM EQU CVTDIRST 01999000 CVTLPDSR EQU CVTS01+4 02000000 CVTGETL EQU CVTS01 02001000 ASCBEND EQU ASCB+208 02002000 ASCBSRBT EQU ASCB+200 02003000 ASCBSWTL EQU ASCB+196 02004000 ASCBRS14 EQU ASCB+195 02005000 ASCBSMCT EQU ASCB+194 02006000 ASCBRS12 EQU ASCB+192 02007000 ASCBPCTT EQU ASCB+188 02008000 ASCBVGTT EQU ASCB+184 02009000 ASCBRV43 EQU ASCBSRQ4 02010000 ASCBRV42 EQU ASCBSRQ4 02011000 ASCBRV41 EQU ASCBSRQ4 02012000 ASCBRV40 EQU ASCBSRQ4 02013000 ASCBRV39 EQU ASCBSRQ4 02014000 ASCBRV38 EQU ASCBSRQ4 02015000 ASCBRV37 EQU ASCBSRQ4 02016000 ASCBRV36 EQU ASCBSRQ4 02017000 ASCBRV35 EQU ASCBSRQ3 02018000 ASCBRV34 EQU ASCBSRQ3 02019000 ASCBRV33 EQU ASCBSRQ3 02020000 ASCBRV32 EQU ASCBSRQ3 02021000 ASCBRV31 EQU ASCBSRQ3 02022000 ASCBRV30 EQU ASCBSRQ3 02023000 ASCBRV29 EQU ASCBSRQ3 02024000 ASCBRV28 EQU ASCBSRQ3 02025000 ASCBRV27 EQU ASCBSRQ2 02026000 ASCBRV26 EQU ASCBSRQ2 02027000 ASCBRV25 EQU ASCBSRQ2 02028000 ASCBRV24 EQU ASCBSRQ2 02029000 ASCBRV23 EQU ASCBSRQ2 02030000 ASCBRV22 EQU ASCBSRQ2 02031000 ASCBRV21 EQU ASCBSRQ2 02032000 ASCBRV20 EQU ASCBSRQ2 02033000 ASCBRV19 EQU ASCBSRQ1 02034000 ASCBRV18 EQU ASCBSRQ1 02035000 ASCBRV17 EQU ASCBSRQ1 02036000 ASCBRV16 EQU ASCBSRQ1 02037000 ASCBRV15 EQU ASCBSRQ1 02038000 ASCBRV14 EQU ASCBSRQ1 02039000 ASCBRV13 EQU ASCBSRQ1 02040000 ASCBSTA EQU ASCBSRQ1 02041000 ASCBJBNS EQU ASCB+176 02042000 ASCBJBNI EQU ASCB+172 02043000 ASCBMCC EQU ASCB+168 02044000 ASCBRTWA EQU ASCB+164 02045000 ASCBIQEA EQU ASCB+160 02046000 ASCBXMPQ EQU ASCB+156 02047000 ASCBRS01 EQU ASCB+154 02048000 ASCBFMCT EQU ASCB+152 02049000 ASCBOUXB EQU ASCB+148 02050000 ASCBOUCB EQU ASCB+144 02051000 ASCBMECB EQU ASCB+140 02052000 ASCBQECB EQU ASCB+136 02053000 ASCBLSQH EQU ASCBLKGP+4 02054000 ASCBLOCK EQU ASCBLKGP 02055000 ASCBTCBS EQU ASCB+124 02056000 ASCBNVSC EQU ASCB+122 02057000 ASCBVSC EQU ASCB+120 02058000 ASCBSRBS EQU ASCB+118 02059000 ASCBSSRB EQU ASCB+116 02060000 ASCBRV06 EQU ASCBFLG2 02061000 ASCBRV05 EQU ASCBFLG2 02062000 ASCBRV04 EQU ASCBFLG2 02063000 ASCBSNQS EQU ASCBFLG2 02064000 ASCBS2S EQU ASCBFLG2 02065000 ASCBCEXT EQU ASCBFLG2 02066000 ASCBPXMT EQU ASCBFLG2 02067000 ASCBXMPT EQU ASCBFLG2 02068000 ASCBRF07 EQU ASCBDSP1 02069000 ASCBRF06 EQU ASCBDSP1 02070000 ASCBRF05 EQU ASCBDSP1 02071000 ASCBRF04 EQU ASCBDSP1 02072000 ASCBRF03 EQU ASCBDSP1 02073000 ASCBRF02 EQU ASCBDSP1 02074000 ASCBFAIL EQU ASCBDSP1 02075000 ASCBNOQ EQU ASCBDSP1 02076000 ASCBSWCT EQU ASCB+112 02077000 ASCBASXB EQU ASCB+108 02078000 ASCBTMCH EQU ASCB+104 02079000 ASCBNSWP EQU ASCBFLG1 02080000 ASCBTYP1 EQU ASCBFLG1 02081000 ASCBSTND EQU ASCBFLG1 02082000 ASCBABNT EQU ASCBFLG1 02083000 ASCBTERM EQU ASCBFLG1 02084000 ASCBS3S EQU ASCBFLG1 02085000 ASCBCMSH EQU ASCBFLG1 02086000 ASCBTOFF EQU ASCBFLG1 02087000 ASCBRF01 EQU ASCBRCTF 02088000 ASCBTMLW EQU ASCBRCTF 02089000 ASCBOUT EQU ASCBRCTF 02090000 ASCBWAIT EQU ASCBRCTF 02091000 ASCBRV08 EQU ASCBRCTF 02092000 ASCBFQU EQU ASCBRCTF 02093000 ASCBFRS EQU ASCBRCTF 02094000 ASCBTMNO EQU ASCBRCTF 02095000 ASCBAFFN EQU ASCBFW1 02096000 ASCBDUMP EQU ASCB+96 02097000 ASCBRV44 EQU ASCB+92 02098000 ASCBUBET EQU ASCB+88 02099000 ASCBECB EQU ASCB+84 02100000 ASCBJSTL EQU ASCB+80 02101000 ASCBEWST EQU ASCB+72 02102000 ASCBEJST EQU ASCB+64 02103000 ASCBTSB EQU ASCB+60 02104000 ASCBCSCB EQU ASCB+56 02105000 ASCBRSMA EQU ASCBRSM+1 02106000 ASCBRV54 EQU ASCBRSMF 02107000 ASCBRV53 EQU ASCBRSMF 02108000 ASCBRV52 EQU ASCBRSMF 02109000 ASCBRV51 EQU ASCBRSMF 02110000 ASCBVEQR EQU ASCBRSMF 02111000 ASCBN2LP EQU ASCBRSMF 02112000 ASCB1LPU EQU ASCBRSMF 02113000 ASCB2LPU EQU ASCBRSMF 02114000 ASCBLDA EQU ASCB+48 02115000 ASCBSTOR EQU ASCB+44 02116000 ASCBDP EQU ASCB+43 02117000 ASCBRV07 EQU ASCB+42 02118000 ASCBIOSM EQU ASCB+40 02119000 ASCBSEQN EQU ASCB+38 02120000 ASCBCPUS EQU ASCB+32 02121000 ASCBSPL EQU ASCB+28 02122000 ASCBIOSP EQU ASCB+24 02123000 ASCBSYNC EQU ASCBSUPC+4 02124000 ASCBSVRB EQU ASCBSUPC 02125000 ASCBCMSF EQU ASCB+12 02126000 ASCBBWDP EQU ASCB+8 02127000 ASCBASCB EQU ASCB 02128000 ASCBEGIN EQU ASCB 02129000 @NM00040 EQU FRRSFLGS+1 02130000 @NM00039 EQU FRRSFLG1 02131000 FRRSNEST EQU FRRSFLG1 02132000 FRRSRCUR EQU FRRSFLG1 02133000 FRRSENTS EQU FRRS+84 02134000 FRRSRTMW EQU FRRS+16 02135000 ASVTEND EQU ASVT+528 02136000 ASVTAVAL EQU ASVTENTY 02137000 ASVTAVAI EQU ASVTFRST 02138000 ASVTRS00 EQU ASVT+520 02139000 ASVTMAXU EQU ASVT+516 02140000 ASVTASVT EQU ASVT+512 02141000 ASVTBEGN EQU ASVT+512 02142000 @NM00038 EQU ASVT 02143000 CPABNXTP EQU CPAB+28 02144000 CPABENAD EQU CPAB+24 02145000 CPABSTAD EQU CPAB+20 02146000 CPABUSE# EQU CPABFLGW+2 02147000 SERIAL EQU CPABFLGS 02148000 DELETELK EQU CPABFLGS 02149000 CPABEXTN EQU CPABFLGS 02150000 ADELCAND EQU CPABFLGS 02151000 BLDDWORD EQU CPABFLGS 02152000 NIPBLDCP EQU CPABFLGS 02153000 CPABSPID EQU CPABFLGW 02154000 CPABFACP EQU CPAB+12 02155000 CPABDEQC EQU CPAB+8 02156000 CPABCSZE EQU CPAB+4 02157000 CPABCPID EQU CPAB 02158000 @NM00037 EQU SRB+40 02159000 @NM00036 EQU SRB+38 02160000 SRBPKF EQU SRB+36 02161000 SRBSAVE EQU SRB+32 02162000 SRBPTCB EQU SRBFLC+4 02163000 SRBCPAFF EQU SRBFLC 02164000 SRBFLNK EQU SRB+4 02165000 WSACASMS EQU WSAC+60 02166000 WSACASMD EQU WSAC+56 02167000 WSACCCH EQU WSAC+52 02168000 WSACRRSA EQU WSAC+48 02169000 WSACREST EQU WSAC+44 02170000 WSACRSTI EQU WSAC+40 02171000 WSACABTM EQU WSAC+36 02172000 WSACMF1 EQU WSAC+32 02173000 WSACEDS0 EQU WSAC+28 02174000 WSACIOS EQU WSAC+24 02175000 WSACRTMK EQU WSAC+20 02176000 WSACACR EQU WSAC+16 02177000 WSACTIME EQU WSAC+12 02178000 WSACOPTM EQU WSAC+8 02179000 WSACGTF EQU WSAC+4 02180000 WSACCWSA EQU WSAC 02181000 WSAGSCHE EQU WSAG+40 02182000 WSAGREST EQU WSAG+36 02183000 WSAGNQDQ EQU WSAG+32 02184000 WSAGMEMT EQU WSAG+28 02185000 WSAGOPTM EQU WSAG+24 02186000 WSAGSTAT EQU WSAG+20 02187000 WSAGEMS0 EQU WSAG+16 02188000 WSAGSSRS EQU WSAG+12 02189000 WSAGRSM EQU WSAG+8 02190000 WSAGGMFM EQU WSAG+4 02191000 WSAGPGIO EQU WSAG 02192000 WSALACHP EQU WSAL+56 02193000 WSALRSM EQU WSAL+52 02194000 WSALEVNT EQU WSAL+48 02195000 WSALSTAE EQU WSAL+44 02196000 WSALSTAT EQU WSAL+40 02197000 WSALWAIT EQU WSAL+36 02198000 WSALPOST EQU WSAL+32 02199000 WSALEXIT EQU WSAL+28 02200000 WSALS2EE EQU WSAL+24 02201000 WSALCIRB EQU WSAL+20 02202000 WSALABTM EQU WSAL+16 02203000 WSALSDMP EQU WSAL+12 02204000 WSALRTM2 EQU WSAL+8 02205000 WSALVALC EQU WSAL+4 02206000 WSALCWSA EQU WSAL 02207000 RCARETAD EQU RCA+20 02208000 RCATASID EQU RCA+18 02209000 RCAPSIF EQU RCANAME6 02210000 RCAPSIX EQU RCANAME6 02211000 RCAVEQRP EQU RCANAME6 02212000 RCARCFC EQU RCANAME6 02213000 RCACSGB EQU RCANAME6 02214000 RCAFXL EQU RCANAME6 02215000 RCAPS113 EQU RCANAME6 02216000 RCAFREE EQU RCANAME5 02217000 RCARFR2 EQU RCANAME5 02218000 RCACPBR EQU RCANAME5 02219000 RCAOPBR EQU RCANAME5 02220000 RCASORT EQU RCANAME5 02221000 RCASIRT EQU RCANAME5 02222000 RCARELV EQU RCANAME5 02223000 RCARELF EQU RCANAME5 02224000 RCAGFAD EQU RCANAME4 02225000 RCAVEQRI EQU RCANAME4 02226000 RCAVEQRF EQU RCANAME4 02227000 RCAVEQRC EQU RCANAME4 02228000 RCATERM EQU RCANAME4 02229000 RCASQA EQU RCANAME4 02230000 RCASWIN EQU RCANAME4 02231000 RCASOUT EQU RCANAME4 02232000 RCARFR EQU RCANAME3 02233000 RCARELS EQU RCANAME3 02234000 RCARCFI EQU RCANAME3 02235000 RCARCF EQU RCANAME3 02236000 RCAPSII EQU RCANAME3 02237000 RCAPSIB EQU RCANAME3 02238000 RCAPS112 EQU RCANAME3 02239000 RCAPIX EQU RCANAME3 02240000 RCAPIOP EQU RCANAME2 02241000 RCASWPC EQU RCANAME2 02242000 RCASWPP EQU RCANAME2 02243000 RCAPFTE EQU RCANAME2 02244000 RCAOUT EQU RCANAME2 02245000 RCAITAS EQU RCANAME2 02246000 RCAIOCP EQU RCANAME2 02247000 RCAINV EQU RCANAME1 02248000 RCAGFA EQU RCANAME1 02249000 RCAFXLD EQU RCANAME1 02250000 RCAVEQR EQU RCANAME1 02251000 RCADSEG EQU RCANAME1 02252000 RCADLAS EQU RCANAME1 02253000 RCACSEG EQU RCANAME1 02254000 RCAVAMSI EQU RCANAME1 02255000 @NM00011 EQU RCAFLAGS 02256000 @NM00010 EQU RCAFLAGS 02257000 RCAQS EQU RCAFLAGS 02258000 RCAPSIER EQU RCAFLAGS 02259000 RCAABEND EQU RCAFLAGS 02260000 RCALL EQU RCAFLAGS 02261000 @NM00009 EQU RCANAME7 02262000 RCAPRSS EQU RCANAME7 02263000 RCAPRSR EQU RCANAME7 02264000 RCAPRSB EQU RCANAME7 02265000 RCAPSIY EQU RCANAME7 02266000 RCAPIOI EQU RCANAME7 02267000 RCAPARM1 EQU RCA+4 02268000 RCAPARM0 EQU RCA 02269000 RSMASMHD EQU RSMHD+40 02270000 RSMFOEQ EQU RSMHD+36 02271000 RSMLIOQL EQU RSMLIOQ+4 02272000 RSMLIOQF EQU RSMLIOQ 02273000 RSMLSQAL EQU RSMLSQA+2 02274000 RSMLSQAF EQU RSMLSQA 02275000 RSMLFQL EQU RSMLFQ+2 02276000 RSMLFQF EQU RSMLFQ 02277000 RSMRSV2 EQU RSMHD+16 02278000 RSMCNTFX EQU RSMHD+14 02279000 RSMRSV1 EQU RSMHD+13 02280000 @NM00008 EQU RSMFLG1 02281000 RSMFAIL EQU RSMFLG1 02282000 RSMASCB EQU RSMHD+8 02283000 RSMSPCT EQU RSMHD+4 02284000 RSMVSTO EQU RSMHD 02285000 PCBEND EQU PCB+64 02286000 PCBASCB EQU PCB+32 02287000 PCBSPCTE EQU PCBRB 02288000 PCBVBN EQU PCB+26 02289000 PCBRBN EQU PCB+24 02290000 PCBPGTA EQU PCBPGT+1 02291000 PCBSWPS2 EQU PCBFL3 02292000 @NM00007 EQU PCBFL3 02293000 PCBNOREC EQU PCBFL3 02294000 PCBDFRLS EQU PCBFL3 02295000 PCBSWPLS EQU PCBFL3 02296000 PCBSWPS1 EQU PCBFL3 02297000 PCBSWPIN EQU PCBFL3 02298000 PCBSWPOT EQU PCBFL3 02299000 PCBXPTA EQU PCBXPT+1 02300000 @NM00006 EQU PCBFL2 02301000 @NM00005 EQU PCBFL2 02302000 PCBVIO EQU PCBFL2 02303000 PCBSUPRS EQU PCBFL2 02304000 PCBRESET EQU PCBFL2 02305000 PCBIOERR EQU PCBFL2 02306000 PCBGFAD EQU PCBFL2 02307000 PCBFREAL EQU PCBFL2 02308000 PCBRLPA EQU PCBRLP+1 02309000 PCBFXC EQU PCBRLP 02310000 PCBRTPA EQU PCBRTP+1 02311000 PCBIOCMP EQU PCBFL1 02312000 PCBIOI EQU PCBFL1 02313000 PCBROOT EQU PCBFL1 02314000 PCBLFR EQU PCBFL1 02315000 PCBLLHLD EQU PCBFL1 02316000 PCBSRBMD EQU PCBFL1 02317000 PCBPEX EQU PCBFL1 02318000 @NM00004 EQU PCBFL1 02319000 PVTEND EQU PVT+1944 02320000 PVTTASID EQU PVT+1942 02321000 PVTXXXXX EQU PVT+1940 02322000 PVTMVCLC EQU PVT+1936 02323000 PVTVCONS EQU PVT+1896 02324000 PVTPRSB EQU PVT+1892 02325000 PVTCIOQL EQU PVTPCBQS+36 02326000 PVTCIOQF EQU PVTPCBQS+32 02327000 PVTGFADL EQU PVTPCBQS+28 02328000 PVTGFADF EQU PVTPCBQS+24 02329000 PVTPCBQR EQU PVTPCBQS 02330000 PVTLPAFX EQU PVT+1850 02331000 PVTLSQAF EQU PVT+1848 02332000 PVTLPAR EQU PVT+1844 02333000 PVTLPAI EQU PVT+1840 02334000 PVTLPAFC EQU PVT+1838 02335000 PVTCHUIC EQU PVT+1836 02336000 PVTCOMFX EQU PVT+1834 02337000 PVTSQAFX EQU PVT+1832 02338000 PVTCNTFX EQU PVT+1830 02339000 PVTDEFFX EQU PVT+1828 02340000 PVTFIXOK EQU PVT+1826 02341000 PVTPEROK EQU PVT+1824 02342000 PVTMAXFX EQU PVT+1822 02343000 PVTPERFX EQU PVT+1820 02344000 PVTRESV5 EQU PVT+1773 02345000 PVTSSRB EQU PVT+1768 02346000 PVTACA EQU PVTWSAX+1400 02347000 PVTWSA18 EQU PVTWSAX+1256 02348000 PVTWSA16 EQU PVTWSAX+1112 02349000 PVTWSA15 EQU PVTWSAX+1040 02350000 PVTWSA14 EQU PVTWSAX+968 02351000 PVTWSA12 EQU PVTWSAX+824 02352000 PVTWSA11 EQU PVTWSAX+752 02353000 PVTWSA10 EQU PVTWSAX+672 02354000 PVTWSA9 EQU PVTWSAX+592 02355000 PVTWSA8 EQU PVTWSAX+504 02356000 PVTWSA7 EQU PVTWSAX+432 02357000 PVTWSA6 EQU PVTWSAX+360 02358000 PVTWSA5 EQU PVTWSAX+288 02359000 PVTWSA4 EQU PVTWSAX+216 02360000 PVTWSA3 EQU PVTWSAX+144 02361000 PVTWSA2 EQU PVTWSAX+72 02362000 PVTWSA1 EQU PVTWSAX 02363000 PVTPFTQR EQU PVTQS+20 02364000 PVTRSBQL EQU PVTQS+18 02365000 PVTRSBQF EQU PVTQS+16 02366000 PVTSQAQL EQU PVTQS+14 02367000 PVTSQAQF EQU PVTQS+12 02368000 PVTCFQL EQU PVTQS+10 02369000 PVTCFQF EQU PVTQS+8 02370000 PVTRSRVL EQU PVTQS+6 02371000 PVTRSRVF EQU PVTQS+4 02372000 PVTAFQL EQU PVTQS+2 02373000 PVTAFQF EQU PVTQS 02374000 PVTSPFR EQU PVT+302 02375000 PVTCFMCT EQU PVT+300 02376000 PVTSPREC EQU PVT+296 02377000 PVTCAREC EQU PVT+292 02378000 PVTCAOUT EQU PVT+288 02379000 PVTCAIN EQU PVT+284 02380000 PVTNSWPS EQU PVT+280 02381000 PVTNPREC EQU PVT+276 02382000 PVTSPOUT EQU PVT+272 02383000 PVTSPIN EQU PVT+268 02384000 PVTVAMR EQU PVT+264 02385000 PVTVAMO EQU PVT+260 02386000 PVTVAMI EQU PVT+256 02387000 PVTNPOUT EQU PVT+252 02388000 PVTNPIN EQU PVT+248 02389000 PVTPRSET EQU PVT+244 02390000 PVTFRSLT EQU PVT+240 02391000 PVTPAGIO EQU PVT+236 02392000 PVTSWPIO EQU PVT+232 02393000 PVTPSWPP EQU PVT+228 02394000 PVTPPREF EQU PVT+224 02395000 PVTPOPBR EQU PVT+220 02396000 PVTPRELF EQU PVT+216 02397000 PVTPRELV EQU PVT+212 02398000 PVTPFREE EQU PVT+208 02399000 PVTPRELS EQU PVT+204 02400000 PVTPOUT EQU PVT+200 02401000 PVTPFXLD EQU PVT+196 02402000 PVTPITAS EQU PVT+192 02403000 PVTPDSEG EQU PVT+184 02404000 PVTPCSGB EQU PVT+180 02405000 PVTPCSEG EQU PVT+176 02406000 PVTPINV EQU PVT+172 02407000 PVTPSWPC EQU PVT+168 02408000 PVTPSOUT EQU PVT+164 02409000 PVTPSWIN EQU PVT+160 02410000 PVTPRCFI EQU PVT+152 02411000 PVTPRCF EQU PVT+148 02412000 PVTPVRC EQU PVT+144 02413000 PVTPVRIN EQU PVT+140 02414000 PVTPVRLS EQU PVT+136 02415000 PVTPVEQR EQU PVT+132 02416000 PVTPPIOI EQU PVT+128 02417000 PVTPVRPO EQU PVT+124 02418000 PVTPRFR EQU PVT+120 02419000 PVTPFP2 EQU PVT+116 02420000 PVTPFP EQU PVT+112 02421000 PVTPFTE EQU PVT+108 02422000 PVTPCB EQU PVT+104 02423000 PVTREP2 EQU PVT+100 02424000 PVTPIOP EQU PVT+92 02425000 PVTPGFA EQU PVT+84 02426000 PVTPSQA EQU PVT+80 02427000 PVTPSINT EQU PVT+76 02428000 PVTPSIB EQU PVT+72 02429000 PVTPCIWA EQU PVT+64 02430000 PVTHQSA EQU PVT+62 02431000 PVTLQSA EQU PVT+60 02432000 PVTOROOT EQU PVT+56 02433000 PVTREUS EQU PVT+48 02434000 PVTSQNPC EQU PVT+47 02435000 PVTSQVRC EQU PVT+46 02436000 PVTRSUS EQU PVT+44 02437000 PVTVROOT EQU PVT+40 02438000 PVTDFRS EQU PVT+34 02439000 PVTRSQA EQU PVT+32 02440000 PVTPTLB EQU PVT+31 02441000 PVTSQDC EQU PVT+28 02442000 PVTLCSA EQU PVT+26 02443000 PVTLPRIV EQU PVT+24 02444000 PVTLVR EQU PVT+22 02445000 PVTFVR EQU PVT+20 02446000 PVTLPFN EQU PVT+18 02447000 PVTFPFN EQU PVT+16 02448000 PVTPFTP EQU PVT+12 02449000 PVTSSPIN EQU PVT+11 02450000 PVTPOOL EQU PVT+8 02451000 PVTAFCOK EQU PVT+6 02452000 PVTAFCLO EQU PVT+4 02453000 PVTAFC EQU PVT+2 02454000 @NM00003 EQU PVTFLAG2 02455000 PVTDUMP EQU PVTFLAG1 02456000 PVTSIT EQU PVTFLAG1 02457000 PVTLSI EQU PVTFLAG1 02458000 PVTAPREF EQU PVTFLAG1 02459000 PVTPMSG EQU PVTFLAG1 02460000 CVTLEVL EQU CVTRELNO+2 02461000 CVTNUMB EQU CVTRELNO 02462000 CVTMDL EQU CVTFIX+250 02463000 @NM00002 EQU CVTFIX+248 02464000 @NM00001 EQU CVTFIX 02465000 CVTRV482 EQU CVTXTNT2+128 02466000 CVTRV481 EQU CVTXTNT2+124 02467000 CVTRV480 EQU CVTXTNT2+120 02468000 CVTRV479 EQU CVTXTNT2+118 02469000 CVTRV478 EQU CVTXTNT2+117 02470000 CVTRV477 EQU CVTXTNT2+116 02471000 CVTRV476 EQU CVTXTNT2+115 02472000 CVTRV475 EQU CVTXTNT2+114 02473000 CVTRV474 EQU CVTRV466 02474000 CVTRV473 EQU CVTRV466 02475000 CVTRV472 EQU CVTRV466 02476000 CVTRV471 EQU CVTRV466 02477000 CVTRV470 EQU CVTRV466 02478000 CVTRV469 EQU CVTRV466 02479000 CVTRV468 EQU CVTRV466 02480000 CVTRV467 EQU CVTRV466 02481000 CVTRV465 EQU CVTRV457 02482000 CVTRV464 EQU CVTRV457 02483000 CVTRV463 EQU CVTRV457 02484000 CVTRV462 EQU CVTRV457 02485000 CVTRV461 EQU CVTRV457 02486000 CVTRV460 EQU CVTRV457 02487000 CVTRV459 EQU CVTRV457 02488000 CVTRV458 EQU CVTRV457 02489000 CVTRV456 EQU CVTXTNT2+108 02490000 CVTRV455 EQU CVTXTNT2+104 02491000 CVTRV454 EQU CVTXTNT2+100 02492000 CVTRV453 EQU CVTXTNT2+96 02493000 CVTRV452 EQU CVTXTNT2+94 02494000 CVTRV451 EQU CVTXTNT2+92 02495000 CVTRV450 EQU CVTXTNT2+90 02496000 CVTRV449 EQU CVTXTNT2+88 02497000 CVTRV448 EQU CVTXTNT2+87 02498000 CVTRV447 EQU CVTXTNT2+86 02499000 CVTRV446 EQU CVTRV438 02500000 CVTRV445 EQU CVTRV438 02501000 CVTRV444 EQU CVTRV438 02502000 CVTRV443 EQU CVTRV438 02503000 CVTRV442 EQU CVTRV438 02504000 CVTRV441 EQU CVTRV438 02505000 CVTRV440 EQU CVTRV438 02506000 CVTRV439 EQU CVTRV438 02507000 CVTRV437 EQU CVTRV429 02508000 CVTRV436 EQU CVTRV429 02509000 CVTRV435 EQU CVTRV429 02510000 CVTRV434 EQU CVTRV429 02511000 CVTRV433 EQU CVTRV429 02512000 CVTRV432 EQU CVTRV429 02513000 CVTRV431 EQU CVTRV429 02514000 CVTRV430 EQU CVTRV429 02515000 CVTRV428 EQU CVTXTNT2+80 02516000 CVTRV427 EQU CVTXTNT2+76 02517000 CVTRV426 EQU CVTXTNT2+72 02518000 CVTRV425 EQU CVTXTNT2+68 02519000 CVTATACT EQU CVTATCVT 02520000 CVTRV423 EQU CVTXTNT2+62 02521000 CVTRV422 EQU CVTXTNT2+60 02522000 CVTRV421 EQU CVTXTNT2+58 02523000 CVTRV420 EQU CVTXTNT2+56 02524000 CVTRV419 EQU CVTXTNT2+55 02525000 CVTRV418 EQU CVTXTNT2+54 02526000 CVTRV417 EQU CVTRV409 02527000 CVTRV416 EQU CVTRV409 02528000 CVTRV415 EQU CVTRV409 02529000 CVTRV414 EQU CVTRV409 02530000 CVTRV413 EQU CVTRV409 02531000 CVTRV412 EQU CVTRV409 02532000 CVTRV411 EQU CVTRV409 02533000 CVTRV410 EQU CVTRV409 02534000 CVTRV408 EQU CVTRV400 02535000 CVTRV407 EQU CVTRV400 02536000 CVTRV406 EQU CVTRV400 02537000 CVTRV405 EQU CVTRV400 02538000 CVTRV404 EQU CVTRV400 02539000 CVTRV403 EQU CVTRV400 02540000 CVTRV402 EQU CVTRV400 02541000 CVTRV401 EQU CVTRV400 02542000 CVTICB EQU CVTXTNT2+48 02543000 CVTSKTA EQU CVTXTNT2+44 02544000 CVTCCVT EQU CVTXTNT2+40 02545000 CVTRSV98 EQU CVTXTNT2+36 02546000 CVTRSV97 EQU CVTXTNT2+34 02547000 CVTRSV96 EQU CVTXTNT2+32 02548000 CVTOLTEP EQU CVTXTNT2+28 02549000 CVTQIDA EQU CVTQID+1 02550000 CVTRSV95 EQU CVTQID 02551000 CVTRSV94 EQU CVTXTNT2+20 02552000 CVTRSV93 EQU CVTXTNT2+16 02553000 CVTRSV92 EQU CVTXTNT2+12 02554000 CVTDEBVR EQU CVTXTNT2+8 02555000 CVTRSV91 EQU CVTXTNT2+6 02556000 CVTRSV9H EQU CVTFLGBT 02557000 CVTRSV9G EQU CVTFLGBT 02558000 CVTRSV9F EQU CVTFLGBT 02559000 CVTRSV9E EQU CVTFLGBT 02560000 CVTRSV9D EQU CVTFLGBT 02561000 CVTBAH EQU CVTFLGBT 02562000 CVTVME EQU CVTFLGBT 02563000 CVTNPE EQU CVTFLGBT 02564000 CVTNUCLS EQU CVTXTNT2+4 02565000 CVTDSSVA EQU CVTDSSV+1 02566000 CVTRSV89 EQU CVTDSSV 02567000 CVTRSV88 EQU CVTXTNT1+8 02568000 CVTRSV87 EQU CVTXTNT1+4 02569000 CVTFACHN EQU CVTXTNT1 02570000 CVTRV488 EQU CVTMAP+412 02571000 CVTRV487 EQU CVTMAP+408 02572000 CVTRV486 EQU CVTMAP+404 02573000 CVTRV485 EQU CVTMAP+400 02574000 CVTACTAP EQU CVTMAP+396 02575000 CVTAUTH EQU CVTMAP+392 02576000 CVTRV490 EQU CVTMAP+388 02577000 CVTSU EQU CVTMAP+384 02578000 CVTVOLT1 EQU CVTVOLM1+1 02579000 CVTVOLI1 EQU CVTVOLF1 02580000 CVTSTOA EQU CVTMAP+376 02581000 CVTRSV58 EQU CVTMAP+374 02582000 CVTRSV57 EQU CVTMAP+372 02583000 CVTDDCE EQU CVTMAP+368 02584000 CVTPNWFR EQU CVTMAP+364 02585000 CVTSMF EQU CVTMAP+360 02586000 CVTSULK EQU CVTMAP+358 02587000 CVTSLKO EQU CVTSYSK 02588000 CVTSLKP EQU CVTSYSK 02589000 CVTSLKQ EQU CVTSYSK 02590000 CVTSLKR EQU CVTSYSK 02591000 CVTRSV56 EQU CVTSYSK 02592000 CVTRSV55 EQU CVTSYSK 02593000 CVTRSV54 EQU CVTSYSK 02594000 CVTRSV53 EQU CVTSYSK 02595000 CVTRSV52 EQU CVTA1F1 02596000 CVTRSV51 EQU CVTA1F1 02597000 CVTRSV50 EQU CVTA1F1 02598000 CVTRSV49 EQU CVTA1F1 02599000 CVTRSV48 EQU CVTA1F1 02600000 CVTRSV47 EQU CVTA1F1 02601000 CVTSRSW EQU CVTA1F1 02602000 CVTPFSW EQU CVTA1F1 02603000 CVTPCVT EQU CVTMAP+352 02604000 CVTRSV46 EQU CVTMAP+344 02605000 CVTRSV45 EQU CVTMAP+340 02606000 CVTRSV44 EQU CVTMAP+338 02607000 CVTRSV43 EQU CVTMAP+336 02608000 CVTHJESA EQU CVTHJES+1 02609000 CVTRSV42 EQU CVTHJES 02610000 CVTEXT2A EQU CVTEXT2+1 02611000 CVTRSV41 EQU CVTEXT2 02612000 CVTAPFA EQU CVTAPF+1 02613000 CVTRSV40 EQU CVTAPF 02614000 CVTRV518 EQU CVTINTLA 02615000 CVTRV517 EQU CVTERPV 02616000 CVTEORM EQU CVTMAP+312 02617000 CVTMCHPR EQU CVTMAP+308 02618000 CVTTZ EQU CVTMAP+304 02619000 CVTJEPS EQU CVTMAP+300 02620000 CVTJESCT EQU CVTMAP+296 02621000 CVTMODE EQU CVTMAP+292 02622000 CVTPTRV EQU CVTMAP+288 02623000 CVTREAL EQU CVTMAP+284 02624000 CVTRSV39 EQU CVTMAP+280 02625000 CVTRSV38 EQU CVTMAP+276 02626000 CVTDMSRA EQU CVTDMSR+1 02627000 CVTRV634 EQU CVTDMSRF 02628000 CVTRV633 EQU CVTDMSRF 02629000 CVTRV632 EQU CVTDMSRF 02630000 CVTRV631 EQU CVTDMSRF 02631000 CVTRV630 EQU CVTDMSRF 02632000 CVTRV629 EQU CVTDMSRF 02633000 CVTUDUMP EQU CVTDMSRF 02634000 CVTSDUMP EQU CVTDMSRF 02635000 CVTQMSGA EQU CVTQMSG+1 02636000 CVTRSV36 EQU CVTQMSG 02637000 CVTAMFF EQU CVTMAP+264 02638000 CVTPURGA EQU CVTPURG+1 02639000 CVTRSV35 EQU CVTPURG 02640000 CVTCBSP EQU CVTMAP+256 02641000 CVTATERA EQU CVTATER+1 02642000 CVTSYST EQU CVTATER 02643000 CVTVOLT2 EQU CVTTAT 02644000 CVTVOLI2 EQU CVTVOLF2 02645000 CVTAQAVB EQU CVTAQAVT+1 02646000 CVTRSV34 EQU CVTTCMFG 02647000 CVTRSV33 EQU CVTTCMFG 02648000 CVTRSV32 EQU CVTTCMFG 02649000 CVTRSV31 EQU CVTTCMFG 02650000 CVTRSV30 EQU CVTTCMFG 02651000 CVTRSV29 EQU CVTTCMFG 02652000 CVTLDEV EQU CVTTCMFG 02653000 CVTTCRDY EQU CVTTCMFG 02654000 CVTGTFA EQU CVTGTF+1 02655000 CVTRSV27 EQU CVTGTFST 02656000 CVTRNIO EQU CVTGTFST 02657000 CVTUSR EQU CVTGTFST 02658000 CVTRV318 EQU CVTFORM 02659000 CVTRV317 EQU CVTTMODE 02660000 CVTRV316 EQU CVTSTATE 02661000 CVTRV315 EQU CVTGTFS 02662000 CVTGTFAV EQU CVTGTFS 02663000 CVT0SCR1 EQU CVTMAP+232 02664000 CVTRV515 EQU CVTMAP+228 02665000 CVTRMS EQU CVTMAP+224 02666000 CVTPATCH EQU CVTMAP+220 02667000 CVTTSCE EQU CVTMAP+216 02668000 CVTLNKSC EQU CVTMAP+214 02669000 CVTQABST EQU CVTMAP+212 02670000 CVTMDLDS EQU CVTMAP+208 02671000 CVTUSER EQU CVTMAP+204 02672000 CVTABEND EQU CVTMAP+200 02673000 CVTSMCA EQU CVTMAP+196 02674000 CVTRSV18 EQU CVTMAP+192 02675000 CVTQLPAQ EQU CVTMAP+188 02676000 CVTQCDSR EQU CVTMAP+184 02677000 CVTVS1B EQU CVTOPTB 02678000 CVTVS1A EQU CVTOPTB 02679000 CVTFP EQU CVTOPTB 02680000 CVTAPTHR EQU CVTOPTB 02681000 CVTNLOG EQU CVTOPTB 02682000 CVTTOD EQU CVTOPTB 02683000 CVTCTIMS EQU CVTOPTB 02684000 CVTPROT EQU CVTOPTB 02685000 CVTXPFP EQU CVTOPTA 02686000 CVTASCII EQU CVTOPTA 02687000 CVTRSV13 EQU CVTOPTA 02688000 CVTRSV12 EQU CVTOPTA 02689000 CVTNIP EQU CVTOPTA 02690000 CVTDDR EQU CVTOPTA 02691000 CVTAPR EQU CVTOPTA 02692000 CVTCCH EQU CVTOPTA 02693000 CVTSNCTR EQU CVTMAP+180 02694000 CVTQMWR EQU CVTMAP+176 02695000 CVTQOCR EQU CVTMAP+172 02696000 CVT1EF00 EQU CVTMAP+168 02697000 CVTMZ00 EQU CVTMAP+164 02698000 CVTSV76Q EQU CVTSV76C 02699000 CVTRSV11 EQU CVTMAP+156 02700000 CVT0PT01 EQU CVTMAP+152 02701000 CVTMSER EQU CVTMAP+148 02702000 CVTRV516 EQU CVTIERLC 02703000 CVTILCH EQU CVTMAP+140 02704000 CVT0DS EQU CVTMAP+136 02705000 CVTFBOSV EQU CVTMAP+132 02706000 CVTNUCB EQU CVTMAP+128 02707000 CVTIXAVL EQU CVTMAP+124 02708000 CVTSV76M EQU CVTIOQET 02709000 CVTDCBA EQU CVTMAP+117 02710000 CVTMVS2 EQU CVTDCB 02711000 CVT6DAT EQU CVTDCB 02712000 CVT4MPS EQU CVTDCB 02713000 CVTRSV09 EQU CVTDCB 02714000 CVT4MS1 EQU CVTDCB 02715000 CVT2SPS EQU CVTDCB 02716000 CVT1SSS EQU CVTDCB 02717000 CVTRSV08 EQU CVTDCB 02718000 CVTSTB EQU CVTMAP+112 02719000 CVTQTD00 EQU CVTMAP+108 02720000 CVTQTE00 EQU CVTMAP+104 02721000 CVTCUCB EQU CVTMAP+100 02722000 CVTSJQ EQU CVTMAP+96 02723000 CVTPBLDL EQU CVTMAP+92 02724000 CVTTPC EQU CVTMAP+88 02725000 CVTSVDCB EQU CVTMAP+84 02726000 CVTBRET EQU CVTMAP+82 02727000 CVTEXIT EQU CVTMAP+80 02728000 CVT0FN00 EQU CVTMAP+76 02729000 CVTDARA EQU CVTDAR+1 02730000 CVTRSV07 EQU CVTFLGS1 02731000 CVTRSV06 EQU CVTFLGS1 02732000 CVTRSV05 EQU CVTFLGS1 02733000 CVTRSV04 EQU CVTFLGS1 02734000 CVTRSV03 EQU CVTFLGS1 02735000 CVTRSV02 EQU CVTFLGS1 02736000 CVTRSV01 EQU CVTFLGS1 02737000 CVTDMPLK EQU CVTFLGS1 02738000 CVTXITP EQU CVTMAP+68 02739000 CVTZDTAB EQU CVTMAP+64 02740000 CVTMSLT EQU CVTMAP+60 02741000 CVTDATE EQU CVTMAP+56 02742000 CVTBTERM EQU CVTMAP+52 02743000 CVTSYSAD EQU CVTMAP+48 02744000 CVTXTLER EQU CVTMAP+44 02745000 CVTILK2 EQU CVTMAP+40 02746000 CVTILK1 EQU CVTMAP+36 02747000 CVTPRLTV EQU CVTMAP+32 02748000 CVTPCNVT EQU CVTMAP+28 02749000 CVT0VL00 EQU CVTMAP+24 02750000 CVTXAPG EQU CVTMAP+20 02751000 CVTBUF EQU CVTMAP+16 02752000 CVTJOB EQU CVTMAP+12 02753000 CVTLINK EQU CVTMAP+8 02754000 CVT0EF00 EQU CVTMAP+4 02755000 CVTTCBP EQU CVTMAP 02756000 CVT EQU CVTMAP 02757000 @NM00035 EQU PSA+3668 02758000 PSASTAK EQU PSA+3072 02759000 @NM00034 EQU PSA+1048 02760000 PSAUSEND EQU PSA+1048 02761000 PSARV062 EQU PSA+1044 02762000 PSACDAL EQU PSA+1040 02763000 PSAWTCOD EQU PSA+1036 02764000 PSAATCVT EQU PSA+1032 02765000 PSAPCPSW EQU PSA+1024 02766000 PSAPIR2 EQU PSA+1020 02767000 PSARV059 EQU PSA+1018 02768000 PSASVC13 EQU PSA+1016 02769000 PSALSFCC EQU PSA+1012 02770000 PSASFACC EQU PSA+1008 02771000 PSASTOP EQU PSA+992 02772000 PSASTART EQU PSA+976 02773000 PSARSPSW EQU PSA+968 02774000 PSASRPSW EQU PSA+960 02775000 PSARV045 EQU PSA+892 02776000 PSARV044 EQU PSA+888 02777000 PSARV043 EQU PSA+884 02778000 PSARV042 EQU PSA+880 02779000 PSARV041 EQU PSA+876 02780000 PSARV040 EQU PSA+872 02781000 PSARV025 EQU PSA+868 02782000 PSADSSED EQU PSA+868 02783000 PSADSSPR EQU PSA+864 02784000 PSADSSFW EQU PSA+860 02785000 PSADSS14 EQU PSA+856 02786000 PSADSSPP EQU PSA+848 02787000 PSADSSRP EQU PSA+840 02788000 PSADSS05 EQU PSADSSF4 02789000 PSADSS10 EQU PSADSSF4 02790000 PSADSSVE EQU PSADSSF4 02791000 PSADSSDE EQU PSADSSF4 02792000 PSADSSC0 EQU PSADSSF4 02793000 PSADSSIE EQU PSADSSF4 02794000 PSADSS12 EQU PSADSSF4 02795000 PSADSSRC EQU PSADSSF4 02796000 PSARV057 EQU PSADSSF3 02797000 PSARV056 EQU PSADSSF3 02798000 PSARV055 EQU PSADSSF3 02799000 PSADSSMC EQU PSADSSF3 02800000 PSADSSRW EQU PSADSSF3 02801000 PSADSSNM EQU PSADSSF3 02802000 PSADSSES EQU PSADSSF3 02803000 PSADSSGP EQU PSADSSF3 02804000 PSADSSF2 EQU PSADSSFL+1 02805000 PSADSSPI EQU PSADSSF1 02806000 PSADSSOI EQU PSADSSF1 02807000 PSADSSSP EQU PSADSSF1 02808000 PSADSSTP EQU PSADSSF1 02809000 PSADSSDW EQU PSADSSF1 02810000 PSADSSDD EQU PSADSSF1 02811000 PSADSSDM EQU PSADSSF1 02812000 PSADSSMV EQU PSADSSF1 02813000 PSADSSTS EQU PSA+816 02814000 PSADSSWK EQU PSA+812 02815000 PSADSSR3 EQU PSA+808 02816000 PSADSSR2 EQU PSA+804 02817000 PSADSSRS EQU PSA+800 02818000 PSASTOR EQU PSA+796 02819000 PSACPUSA EQU PSA+794 02820000 PSAVSTAP EQU PSA+792 02821000 PSAWKVAP EQU PSA+788 02822000 PSAWKRAP EQU PSA+784 02823000 PSAMCHIC EQU PSA+783 02824000 PSARV061 EQU PSA+782 02825000 PSASYMSK EQU PSA+781 02826000 PSAMCHFL EQU PSA+780 02827000 PSACR0 EQU PSA+776 02828000 PSAPSWSV EQU PSA+768 02829000 PSACLHS EQU PSAHLHI 02830000 PSALKR15 EQU PSALKSA+60 02831000 PSALKR14 EQU PSALKSA+56 02832000 PSALKR13 EQU PSALKSA+52 02833000 PSALKR12 EQU PSALKSA+48 02834000 PSALKR11 EQU PSALKSA+44 02835000 PSALKR10 EQU PSALKSA+40 02836000 PSALKR9 EQU PSALKSA+36 02837000 PSALKR8 EQU PSALKSA+32 02838000 PSALKR7 EQU PSALKSA+28 02839000 PSALKR6 EQU PSALKSA+24 02840000 PSALKR5 EQU PSALKSA+20 02841000 PSALKR4 EQU PSALKSA+16 02842000 PSALKR3 EQU PSALKSA+12 02843000 PSALKR2 EQU PSALKSA+8 02844000 PSALKR1 EQU PSALKSA+4 02845000 PSALKR0 EQU PSALKSA 02846000 PSARV023 EQU PSACLHT+52 02847000 PSALOCAL EQU PSACLHT+48 02848000 PSACMSL EQU PSACLHT+44 02849000 PSAOPTL EQU PSACLHT+40 02850000 PSATPACL EQU PSACLHT+36 02851000 PSATPDNL EQU PSACLHT+32 02852000 PSATPNCL EQU PSACLHT+28 02853000 PSAIOSLL EQU PSACLHT+24 02854000 PSAIOSUL EQU PSACLHT+20 02855000 PSAIOSCL EQU PSACLHT+16 02856000 PSAIOSSL EQU PSACLHT+12 02857000 PSASALCL EQU PSACLHT+8 02858000 PSAASML EQU PSACLHT+4 02859000 PSADISPL EQU PSACLHT 02860000 PSASRSA EQU PSA+636 02861000 PSARV050 EQU PSA+634 02862000 PSADSSGO EQU PSA+633 02863000 PSARECUR EQU PSA+632 02864000 PSAHLHIS EQU PSA+628 02865000 PSAIPCSA EQU PSA+624 02866000 @NM00033 EQU PSA+621 02867000 PSAIPCDM EQU PSA+620 02868000 PSAIPCD EQU PSA+616 02869000 @NM00032 EQU PSA+613 02870000 PSAIPCRM EQU PSA+612 02871000 PSAIPCR EQU PSA+608 02872000 PSAMCHEX EQU PSA+600 02873000 PSAMPSW EQU PSA+592 02874000 PSAEXPS2 EQU PSA+584 02875000 PSAEXPS1 EQU PSA+576 02876000 PSAPIREG EQU PSA+572 02877000 PSARSREG EQU PSA+568 02878000 PSAGPREG EQU PSA+556 02879000 PSARV022 EQU PSASUP4 02880000 PSARV021 EQU PSASUP4 02881000 PSARV020 EQU PSASUP4 02882000 PSARV019 EQU PSASUP4 02883000 PSARV018 EQU PSASUP4 02884000 PSARV017 EQU PSASUP4 02885000 PSARV016 EQU PSASUP4 02886000 PSARV015 EQU PSASUP4 02887000 PSARV014 EQU PSASUP3 02888000 PSAULCMS EQU PSASUP3 02889000 PSARV012 EQU PSASUP3 02890000 PSAESTA EQU PSASUP3 02891000 PSASPR EQU PSASUP3 02892000 PSAPSREG EQU PSASUP3 02893000 PSAPI2 EQU PSASUP3 02894000 PSAIOSUP EQU PSASUP3 02895000 PSALCR EQU PSASUP2 02896000 PSARTM EQU PSASUP2 02897000 PSAACR EQU PSASUP2 02898000 PSAIPCE2 EQU PSASUP2 02899000 PSAIPCES EQU PSASUP2 02900000 PSAIPCEC EQU PSASUP2 02901000 PSAGTF EQU PSASUP2 02902000 PSAIPCRI EQU PSASUP2 02903000 PSATYPE6 EQU PSASUP1 02904000 PSATCTL EQU PSASUP1 02905000 PSADISP EQU PSASUP1 02906000 PSALOCK EQU PSASUP1 02907000 PSAPI EQU PSASUP1 02908000 PSAEXT EQU PSASUP1 02909000 PSASVC EQU PSASUP1 02910000 PSAIO EQU PSASUP1 02911000 PSAAOLD EQU PSA+548 02912000 PSAANEW EQU PSA+544 02913000 PSATOLD EQU PSA+540 02914000 PSATNEW EQU PSA+536 02915000 PSALCCAR EQU PSA+532 02916000 PSALCCAV EQU PSA+528 02917000 PSAPCCAR EQU PSA+524 02918000 PSAPCCAV EQU PSA+520 02919000 PSACPULA EQU PSA+518 02920000 PSACPUPA EQU PSA+516 02921000 PSAPSA EQU PSA+512 02922000 FLCHDEND EQU PSA+512 02923000 FLCCRSAV EQU FLCMCLA+280 02924000 FLCGRSAV EQU FLCMCLA+216 02925000 FLCFPSAV EQU FLCMCLA+184 02926000 FLCFLA EQU FLCMCLA+88 02927000 FLCRGNCD EQU FLCMCLA+84 02928000 FLCFSAA EQU FLCFSA+1 02929000 @NM00031 EQU FLCFSA 02930000 @NM00030 EQU FLCMCLA+72 02931000 FLCMCIC EQU FLCMCLA+64 02932000 @NM00029 EQU FLCMCLA+20 02933000 FLCIOAA EQU FLCIOA+1 02934000 @NM00028 EQU FLCIOA 02935000 @NM00027 EQU FLCMCLA+15 02936000 @NM00026 EQU FLCMCLA+14 02937000 @NM00025 EQU FLCMCLA+12 02938000 FLCLCL EQU FLCMCLA+8 02939000 FLCIOELA EQU FLCIOEL+1 02940000 @NM00024 EQU FLCIOEL 02941000 FLCCHNID EQU FLCMCLA 02942000 @NM00023 EQU PSA+160 02943000 FLCMTRCD EQU PSA+157 02944000 @NM00022 EQU PSA+156 02945000 FLCPERA EQU FLCPER+1 02946000 @NM00021 EQU FLCPER 02947000 @NM00020 EQU PSA+151 02948000 FLCPERCD EQU PSA+150 02949000 FLCMCNUM EQU PSA+149 02950000 @NM00019 EQU PSA+148 02951000 FLCTEAA EQU FLCTEA+1 02952000 @NM00018 EQU FLCTEA 02953000 PSAPIPC EQU PSAPICOD 02954000 PSAPIMC EQU PSAPICOD 02955000 PSAPIPER EQU PSAPICOD 02956000 PSARV049 EQU FLCPICOD 02957000 FLCPILCB EQU FLCPIILC 02958000 @NM00017 EQU FLCPIILC 02959000 @NM00016 EQU PSAEPPSW 02960000 FLCSVCN EQU PSAESPSW+2 02961000 FLCSILCB EQU FLCSVILC 02962000 @NM00015 EQU FLCSVILC 02963000 @NM00014 EQU PSAESPSW 02964000 FLCEICOD EQU PSAEEPSW+2 02965000 PSASPAD EQU PSAEEPSW 02966000 @NM00013 EQU PSA+128 02967000 FLCINPSW EQU PSA+120 02968000 FLCMNPSW EQU PSA+112 02969000 FLCPNPSW EQU PSA+104 02970000 FLCSNPSW EQU PSA+96 02971000 FLCENPSW EQU PSA+88 02972000 FLCTRACE EQU PSA+84 02973000 FLCTIMER EQU PSA+80 02974000 FLCCVT2 EQU PSA+76 02975000 FLCCAW EQU PSA+72 02976000 FLCCSW EQU PSA+64 02977000 FLCIOPSW EQU PSA+56 02978000 FLCMOPSW EQU PSA+48 02979000 FLCPOPSW EQU PSA+40 02980000 FLCSOPSW EQU PSA+32 02981000 FLCEOPSW EQU PSA+24 02982000 @NM00012 EQU FLCICCW2+4 02983000 FLCICCW1 EQU FLCROPSW 02984000 FLCIPPSW EQU FLCRNPSW 02985000 * END UNREFERENCED COMPONENTS 02986000 @RC00116 EQU @RC00112 02987000 @RT00161 EQU MGRRTNCD 02988000 @RF00163 EQU MGRRTNCD 02989000 @RT00175 EQU MGRBLD2 02990000 @RT00374 EQU CHKBITS 02991000 @RF00374 EQU NXTMEMRY 02992000 @ENDDATA EQU * 02993000 END IEAVPCB,(C'PLS1318',0701,78164) 02994000