TITLE 'IEAVIOCP--PAGE I/O COMPLETION PROCESSOR *00001000 ' 00002000 IEAVIOCP CSECT 00003000 USING *,15 REG 15 CONTAINS ENTRY PT. ADDR 00004000 MODID BRANCH=NO 00005000 IEAVIOC2 DS 0H 00006000 ENTRY IEAVIOC2 00007000 BALR CPBASE10,0 00008000 USING *,CPBASE10 00009000 * PVTPTR=CVTPVTP; /* GET THE ADDR OF PVT IN REG 3 */ 00010000 L @12,CVTPTR 0067 00011000 L PVTPTR,CVTPVTP(,@12) 0067 00012000 * GENERATE REFS(PVTPRCV,CPWRKRG4,CPWRKRG5) SETS(RCAPTR); 0068 00013000 LBGETFRR SETFRR A,FRRAD=PVTPRCV(PVTPTR),PARMAD=(RCAPTR), **00014000 WRKREGS=(CPWRKRG4,CPWRKRG5), **00015000 RELATED=(RSM,IEAVIOCP(LBFREFRR)) 00016000 * RCACSECT=RCACCOMP; /* SET CSECT ID IN RCA */ 00017000 MVI RCACSECT(RCAPTR),X'14' 0069 00018000 * RCAIOCP='1'B; /* SET IEAVIOCP ENTRY POINT FLAG */ 00019000 OI RCAIOCP(RCAPTR),B'10000000' 0070 00020000 * RESPECIFY 0071 00021000 * CPWRKRG5 RESTRICTED; 0071 00022000 * CPWRKRG5=CPARMRG1; /* SAVE INPUT PARM ACCROSS 0072 00023000 * FREEING OF SRB */ 00024000 LR CPWRKRG5,CPARMRG1 0072 00025000 * CPARMRG1=CPARMRG0; /* TRANSFER SRB ADDR TO REG 1 */ 00026000 LR CPARMRG1,CPARMRG0 0073 00027000 * CPARMRG0=PVTSRBID; /* PLACE CELL POOL ID IN REG 0 */ 00028000 L CPARMRG0,PVTSRBID(,PVTPTR) 0074 00029000 * GEN(FREECELL CPID=(0),CELL=(1),BRANCH=YES,SAVE=NO) 0075 00030000 * REFS(CPARMRG0,CPARMRG1); /* RETURN SRB TO CELL POOL. THIS 00031000 * MACRO DESTROYS REGISTERS 0075 00032000 * 0-4,14,15 */ 00033000 FREECELL CPID=(0),CELL=(1),BRANCH=YES,SAVE=NO 00034000 * PVTPTR=CVTPVTP; /* RESTORE PVT REGISTER */ 00035000 L @12,CVTPTR 0076 00036000 L PVTPTR,CVTPVTP(,@12) 0076 00037000 * RESPECIFY 0077 00038000 * (CPARMRG0, 0077 00039000 * CPARMRG1) UNRESTRICTED; 0077 00040000 * IF CPWRKRG5^=0 THEN /* IF INPUT PARM NOT 0, ASK FOR 00041000 * LOCAL LOCK UNCONDITIONALLY */ 00042000 LTR CPWRKRG5,CPWRKRG5 0078 00043000 BZ @RF00078 0078 00044000 * DO; 0079 00045000 * GENERATE; 0080 00046000 LBGETLL1 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, **00047000 RELATED=(RSM,IEAVIOCP(LBFREELL)) 00048000 * RCALL='1'B; /* THE LOCAL LOCK HAS BEEN 0081 00049000 * OBTAINED WHEN AND IF THIS 0081 00050000 * INSTRUCTION IS EXECUTED */ 00051000 OI RCALL(RCAPTR),B'01000000' 0081 00052000 * END; 0082 00053000 * ELSE 0083 00054000 * ; /* OTHERWISE, NO LOCK REQUIRED */ 00055000 @RF00078 DS 0H 0084 00056000 * GENERATE; 0084 00057000 LBGTSALC SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, **00058000 RELATED=(RSM,IEAVIOCP(LBFRSALC)) 00059000 * RCASAL='1'B; /* IF THIS MODULE REMAINS IN 0085 00060000 * CONTROL, THE SALLOC LOCK HAS 00061000 * BEEN OBTAINED. */ 00062000 OI RCASAL(RCAPTR),B'10000000' 0085 00063000 * PVTPRCA=RCAPTR; /* THE RCA ADDR IS STORED IN PVT */ 00064000 ST RCAPTR,PVTPRCA(,PVTPTR) 0086 00065000 * RSMHDPTR=ASCBRSM; /* REG 2 IS INITIALIZED WITH THE 00066000 * CORRECT RSM HEADER ADDRESS */ 00067000 L @12,ASCBPTR 0087 00068000 L RSMHDPTR,ASCBRSM(,@12) 0087 00069000 * CPFLAGS=CPINITFL; /* THE INTERNAL FLAGS ARE SET OFF*/ 00070000 MVI CPFLAGS(PVTPTR),X'00' 0088 00071000 * IF CPWRKRG5^=0 THEN /* IF THE LOCAL LOCK WAS 0089 00072000 * OBTAINED, THE INTERNAL LOCAL 00073000 * LOCK HELD FLAG IS SET AND THE 00074000 * OBTAIN LOCAL LOCK FLAG IN 0089 00075000 * RSMHD IS RESET */ 00076000 LTR CPWRKRG5,CPWRKRG5 0089 00077000 BZ @RF00089 0089 00078000 * DO; 0090 00079000 * CPLLHELD='1'B; 0091 00080000 OI CPLLHELD(PVTPTR),B'10000000' 0091 00081000 * RSMIOCPU='0'B; 0092 00082000 NI RSMIOCPU(RSMHDPTR),B'01111111' 0092 00083000 * END; 0093 00084000 * ELSE /* OTHERWISE, THE LOCAL LOCK WAS 00085000 * NOT REQUESTED AND THE RUN 0094 00086000 * WITHOUT LOCAL LOCK FLAG IN 0094 00087000 * RSMHD IS RESET */ 00088000 * DO; 0094 00089000 B @RC00089 0094 00090000 @RF00089 DS 0H 0095 00091000 * RSMIOCPC='0'B; 0095 00092000 NI RSMIOCPC(RSMHDPTR),B'10111111' 0095 00093000 * END; 0096 00094000 * RESPECIFY 0097 00095000 * CPWRKRG5 UNRESTRICTED; 0097 00096000 @RC00089 DS 0H 0098 00097000 * 0098 00098000 * /*****************************************************************/ 00099000 * /* */ 00100000 * /* THIS SECOND SEGMENT CALLS THE SQSEARCH SUBROUTINE TO PROCESS */ 00101000 * /* ANY AND ALL PCB'S THAT CAN BE PROCESSED ON THIS CALL TO THE */ 00102000 * /* MODULE. ANY RETURN CODE SET BY PCB PROCESSING IS IGNORED. THE */ 00103000 * /* LOCKS OBTAINED IN THE FIRST SEGMENT ARE FREED, THE RECOVERY */ 00104000 * /* ENVIRONMENT CANCELLED AND EXIT MADE TO THE DISPATCHER USING */ 00105000 * /* THE RETURN ADDRESS PROVIDED IN THE CVT. */ 00106000 * /* */ 00107000 * /*****************************************************************/ 00108000 * 0098 00109000 * CALL SQSEARCH; /* THE SQSEARCH SUBRTN. IS CALLED*/ 00110000 BAL @14,SQSEARCH 0098 00111000 * GENERATE; 0099 00112000 LBFRSALC SETLOCK RELEASE,TYPE=SALLOC, **00113000 RELATED=(RSM,IEAVIOCP(LBGTSALC)) 00114000 * IF RCALL='1'B THEN /* IF THE LOCAL LOCK WAS 0100 00115000 * OBTAINED, FREE IT. */ 00116000 TM RCALL(RCAPTR),B'01000000' 0100 00117000 BNO @RF00100 0100 00118000 * GENERATE; 0101 00119000 LBFREELL SETLOCK RELEASE,TYPE=LOCAL, **00120000 RELATED=(RSM,IEAVIOCP(LBGETLL1)) 00121000 * ELSE 0102 00122000 * ; /* DO NOTHING IF LOCAL LOCK NOT 00123000 * REQUESTED */ 00124000 @RF00100 DS 0H 0103 00125000 * GENERATE REFS(CPWRKRG4,CPWRKRG5); 0103 00126000 LBFREFRR SETFRR D,WRKREGS=(CPWRKRG4,CPWRKRG5), **00127000 RELATED=(RSM,IEAVIOCP(LBGETFRR)) 00128000 * CPRETREG=CVTSRBRT; /* GET EXIT ADDR FROM CVT */ 00129000 L @12,CVTPTR 0104 00130000 L CPRETREG,CVTSRBRT(,@12) 0104 00131000 * GOTO CPRETREG; /* EXIT TO THE DISPATCHER */ 00132000 BR CPRETREG 0105 00133000 * 0106 00134000 * /*****************************************************************/ 00135000 * /* */ 00136000 * /* THE SQSEARCH SUBROUTINE IS CALLED FROM BOTH ENTRY POINTS. ITS */ 00137000 * /* ONLY JOB IS TO FIND PCB'S ON THE LOCAL I/O ACTIVE Q FOR THE */ 00138000 * /* CURRENT ADDRESS SPACE OR THE COMMON I/O ACTIVE Q THAT HAVE */ 00139000 * /* BEEN MARKED I/O COMPLETE AND PASS THESE PCB'S TO THE SUBNORML */ 00140000 * /* OR SUBIOERR SUBROUTINES. THE QUEUES ARE SEARCHED USING THE */ 00141000 * /* BACK POINTERS OF EACH PCB BECAUSE PROCESSING OF A PCB MAY */ 00142000 * /* CAUSE A RELATED PCB TO BE ENQUEUED TO THE END OF THE Q BEING */ 00143000 * /* PROCESSED. BY FOLLOWING THE BACK Q POINTERS, WE ARE ASSURED OF*/ 00144000 * /* NOT PROCESSING NEWLY ENQUEUED PCB'S AGAIN AFTER THEY HAVE */ 00145000 * /* ALREADY BEEN PROCESSED. */ 00146000 * /* */ 00147000 * /*****************************************************************/ 00148000 * 0106 00149000 *SQSEARCH: 0106 00150000 * PROC OPTIONS(NOSAVE NOSAVEAREA); 0106 00151000 SQSEARCH DS 0H 0107 00152000 * CPSBRET1=CPRETREG; /* SAVE THE RETURN ADDRESS */ 00153000 ST CPRETREG,CPSBRET1(,PVTPTR) 0107 00154000 * PCBPTR=RSMLIOQL; /* INIT THE PCB REG WITH THE ADDR 00155000 * OF THE LAST PCB ON THE LOCAL 00156000 * I/O ACTIVE QUEUE. */ 00157000 L PCBPTR,RSMLIOQL(,RSMHDPTR) 0108 00158000 * DO WHILE(PCBPTR^=0); /* PROCESS ALL PCB'S ON Q MARKED 00159000 * I/O COMPLETE */ 00160000 B @DE00109 0109 00161000 @DL00109 DS 0H 0110 00162000 * IF PCBIOCMP='1'B THEN /* IS I/O COMPLETE FOR PCB */ 00163000 TM PCBIOCMP(PCBPTR),B'00000001' 0110 00164000 BNO @RF00110 0110 00165000 * DO; /* YES */ 00166000 * CPBAKSAV=PCBBQPA; /* SAVE BACK PTR TO NEXT PCB */ 00167000 L @12,PCBBQPA(,PCBPTR) 0112 00168000 ST @12,CPBAKSAV(,PVTPTR) 0112 00169000 * IF PCBIOERR='0'B THEN /* CALL THE I/O ERROR OR NORMAL 00170000 * PCB PROCESSOR SUBROUTINE 0113 00171000 * ACCORDING TO THE I/O ERROR PCB 00172000 * FLAG */ 00173000 TM PCBIOERR(PCBPTR),B'00100000' 0113 00174000 BNZ @RF00113 0113 00175000 * CALL SUBNORML; /* NORMAL PROCESSOR GETS CONTROL */ 00176000 BAL @14,SUBNORML 0114 00177000 * ELSE /* I/O ERROR OCCURRED */ 00178000 * CALL SUBIOERR; /* ERROR PROCESSOR GETS CONTROL */ 00179000 B @RC00113 0115 00180000 @RF00113 BAL @14,SUBIOERR 0115 00181000 * PCBPTR=CPBAKSAV; /* PREPARE FOR NEXT PCB */ 00182000 @RC00113 L PCBPTR,CPBAKSAV(,PVTPTR) 0116 00183000 * END; 0117 00184000 * ELSE /* IF I/O IS NOT COMPLETE FOR 0118 00185000 * PCB, GET ADDR OF NEXT PCB TO 00186000 * PROCESS */ 00187000 * PCBPTR=PCBBQPA; 0118 00188000 B @RC00110 0118 00189000 @RF00110 L PCBPTR,PCBBQPA(,PCBPTR) 0118 00190000 * END; /* END LOCAL Q DO WHILE */ 00191000 @RC00110 DS 0H 0119 00192000 @DE00109 LTR PCBPTR,PCBPTR 0119 00193000 BNZ @DL00109 0119 00194000 * PCBPTR=PVTCIOQL; /* ONCE THE LOCAL Q IS PROCESSED, 00195000 * GET THE ADDR OF THE LAST PCB 00196000 * ON THE COMMON I/O Q AND 0120 00197000 * PROCESS THAT Q */ 00198000 L PCBPTR,PVTCIOQL(,PVTPTR) 0120 00199000 * DO WHILE(PCBPTR^=0); /* PROCESS THOSE PCB'S THAT ARE 00200000 * FOR THE ADDRESS SPACE WE ARE 00201000 * RUNNING IN AND ARE MARKED I/O 00202000 * COMPLETE */ 00203000 B @DE00121 0121 00204000 @DL00121 DS 0H 0122 00205000 * IF PCBASCB=PSAAOLD&PCBIOCMP='1'B THEN/* PCB FOR CURRENT A.S. 0122 00206000 * AND I/O COMPLETE */ 00207000 CLC PCBASCB(4,PCBPTR),PSAAOLD 0122 00208000 BNE @RF00122 0122 00209000 TM PCBIOCMP(PCBPTR),B'00000001' 0122 00210000 BNO @RF00122 0122 00211000 * DO; /* YES */ 00212000 * CPBAKSAV=PCBBQPA; /* SAVE BACK PTR TO NEXT PCB */ 00213000 L @12,PCBBQPA(,PCBPTR) 0124 00214000 ST @12,CPBAKSAV(,PVTPTR) 0124 00215000 * IF PCBIOERR='0'B THEN /* CALL THE I/O ERROR OR NORMAL 00216000 * PCB PROCESSOR SUBROUTINE 0125 00217000 * ACCORDING TO THE I/O ERROR PCB 00218000 * FLAG */ 00219000 TM PCBIOERR(PCBPTR),B'00100000' 0125 00220000 BNZ @RF00125 0125 00221000 * CALL SUBNORML; /* NORMAL PROCESSOR GETS CONTROL */ 00222000 BAL @14,SUBNORML 0126 00223000 * ELSE /* I/O ERROR OCCURRED */ 00224000 * CALL SUBIOERR; /* ERROR PROCESSOR GETS CONTROL */ 00225000 B @RC00125 0127 00226000 @RF00125 BAL @14,SUBIOERR 0127 00227000 * PCBPTR=CPBAKSAV; /* PREPARE FOR NEXT PCB */ 00228000 @RC00125 L PCBPTR,CPBAKSAV(,PVTPTR) 0128 00229000 * END; 0129 00230000 * ELSE /* OTHERWISE, GET ADDR OF NEXT 0130 00231000 * PCB TO PROCESS */ 00232000 * PCBPTR=PCBBQPA; 0130 00233000 B @RC00122 0130 00234000 @RF00122 L PCBPTR,PCBBQPA(,PCBPTR) 0130 00235000 * END; /* END COMMON Q DO WHILE */ 00236000 @RC00122 DS 0H 0131 00237000 @DE00121 LTR PCBPTR,PCBPTR 0131 00238000 BNZ @DL00121 0131 00239000 * CPRETREG=CPSBRET1; /* RESTORE RETURN ADDRESS AND 0132 00240000 * RETURN TO THE CALLER WHEN BOTH 00241000 * QUEUES HAVE BEEN PROCESSED */ 00242000 L CPRETREG,CPSBRET1(,PVTPTR) 0132 00243000 * END; /* END QSEARCH INTERNAL PROC */ 00244000 @EL00002 DS 0H 0133 00245000 @EF00002 DS 0H 0133 00246000 @ER00002 BR @14 0133 00247000 * 0134 00248000 * /*****************************************************************/ 00249000 * /* */ 00250000 * /* THE SUBNORML SUBROUTINE IS CALLED BY THE SQSEARCH SUBROUTINE. */ 00251000 * /* IT PROCESSES ALL PCB'S FOR WHICH I/O HAS COMPLETED */ 00252000 * /* SUCCESSFULLY. THE INPUT PCB ADDRESS IS PASSED IN THE STANDARD */ 00253000 * /* PCB REGISTER FOR THIS MODULE. FIRST, ANY SPECIAL SWAP-IN */ 00254000 * /* PROCESSING IS PERFORMED IF NECESSARY TO NORMALIZE THE PGTE FOR*/ 00255000 * /* ALL PROCESSING BELOW. FOR STAGE 2 SWAP-IN PCB'S, THE CORRECT */ 00256000 * /* RBN IS PLACED IN THE PGTE FOR THE PAGE AND THE FORCE RELATE */ 00257000 * /* FLAG RESET IN THE XPTE. NOTE THAT THIS DONE ONLY FOR PCB'S */ 00258000 * /* WITH NON-ZERO VBN'S AND THE FREE REAL FLAG OFF AS THAT IS THE */ 00259000 * /* ONLY TIME THE PGTE/XPTE ADDRESSES IN THE PCB ARE VALID. NOTE */ 00260000 * /* ALSO THAT STAGE 2 PCB'S CAN APPEAR ONLY AS QUEUED PCB'S, NEVER*/ 00261000 * /* AS RELATED PCB'S. THE SWAP-IN TEST ASSUMES IEAVPIOP REMOVES */ 00262000 * /* ALL STAGE 1 PCB'S FROM A Q AS SOON AS THEIR PAGE-IN COMPLETES.*/ 00263000 * /* ONCE PGTE NORMALIZATION IS COMPLETE, ANY AND ALL RELATED PCB'S*/ 00264000 * /* ARE PROCESSED FIRST BY CALLING THE SPCBNORM SUBROUTINE FOR */ 00265000 * /* EACH PCB. UPON RETURN, IF A PCB IS NOT TO BE FREED, IT IS */ 00266000 * /* REMOVED FROM ITS RELATED Q AND SENT TO THE I/O ACTIVE Q ITS */ 00267000 * /* PRIMARY PCB (INPUT PCB) IS ON. THE VBN FIELD IN THE PCB IS SET*/ 00268000 * /* TO ZERO AND THE FREE REAL FRAME FLAG TURNED OFF AS IT NO */ 00269000 * /* LONGER HAS ANY MEANING. PIOCP IS SCHEDULED TO RUN AT A LATER */ 00270000 * /* TIME WHEN THE LOCAL LOCK CAN BE OBTAINED BY CALLING A */ 00271000 * /* SUBROUTINE OF PIOP. THIS SUBROUTINE ASSURES THAT MULTIPLE */ 00272000 * /* SCHEDULES ARE NOT PERFORMED WHERE NOT NECESSARY. OTHERWISE, */ 00273000 * /* THE RELATED PCB IS RETURNED TO THE FREE Q. PROCESSING */ 00274000 * /* CONTINUES AT THE NEXT SEGMENT WITH THE PRIMARY PCB. NOTE THAT */ 00275000 * /* UNQUEUED PCB'S PASSED ON A BRANCH ENTRY (IEAVCPBR) MUST SET */ 00276000 * /* PCB'S TO ALWAYS ALLOW THE PCB TO BE DISPOSED OF AS STATED IN */ 00277000 * /* THE DEPENDENCY SECTION OF THE PROLOGUE. */ 00278000 * /* */ 00279000 * /*****************************************************************/ 00280000 * 0134 00281000 *SUBNORML: 0134 00282000 * PROC OPTIONS(NOSAVE NOSAVEAREA); 0134 00283000 SUBNORML DS 0H 0135 00284000 * CPSBRET2=CPRETREG; /* SAVE THE RETURN ADDRESS */ 00285000 * 0135 00286000 ST CPRETREG,CPSBRET2(,PVTPTR) 0135 00287000 * /*****************************************************************/ 00288000 * /* */ 00289000 * /* WHEN THE PCB TRACE IS ACTIVE, THE BRANCH INSTRUCTION BELOW */ 00290000 * /* MUST BE NOOPED @Z40WPYD*/ 00291000 * /* */ 00292000 * /*****************************************************************/ 00293000 * 0136 00294000 *TRACEZC1: 0136 00295000 * GENERATE REFS(PCBPTR) SETS(CPWRKRG5); 0136 00296000 TRACEZC1 DS 0H 0136 00297000 B TRACEZC1+16 00298000 L CPWRKRG5,64(PCBPTR) 00299000 * CPWRKRG5=CPWRKRG5+MYID; 0137 00300000 AL CPWRKRG5,@CF02093 0137 00301000 * GENERATE; 0138 00302000 ST CPWRKRG5,64(PCBPTR) 00303000 * IF PCBSWPS2='1'B&PCBFREAL='0'B&PCBVBN^=0 THEN/* IS PCB FOR STAGE 00304000 * 2 SWAP-IN AND UNPURGED 0139 00305000 * @Z40WPYD*/ 00306000 TM PCBSWPS2(PCBPTR),B'00000001' 0139 00307000 BNO @RF00139 0139 00308000 TM PCBFREAL(PCBPTR),B'10000000' 0139 00309000 BNZ @RF00139 0139 00310000 LH @12,PCBVBN(,PCBPTR) 0139 00311000 N @12,@CF02180 0139 00312000 LTR @12,@12 0139 00313000 BZ @RF00139 0139 00314000 * DO; /* YES */ 00315000 * PGTRSA=CPGTFLGS; /* THE PGTE IS INITIALIZED TO 0141 00316000 * ZERO, INVALID, AND GETMAIN 0141 00317000 * ASSIGNED */ 00318000 L @12,PTEPTR(,PCBPTR) 0141 00319000 MVC PGTRSA(2,@12),@CB02091 0141 00320000 * PGTRSA=PGTRSA|PCBRBN; /* THE REMAINDER OF THE PGTE IS 00321000 * THEN SET EQUAL TO THE PCBRBN 00322000 * FIELD */ 00323000 OC PGTRSA(2,@12),PCBRBN(PCBPTR) 0142 00324000 * END; 0143 00325000 * ELSE 0144 00326000 * ; /* DO NOTHING IF PCB IS NOT 0144 00327000 * SWAP-IN OR SWAP-IN PCB WAS 0144 00328000 * PURGED */ 00329000 @RF00139 DS 0H 0145 00330000 * CPFREREL='1'B; /* SET INTERNAL FLAG TO FREE 0145 00331000 * FRAME VALUE */ 00332000 OI CPFREREL(PVTPTR),B'00100000' 0145 00333000 * DO WHILE(PCBRLPA^=0); /* PROCESS EACH RELATED PCB */ 00334000 B @DE00146 0146 00335000 @DL00146 DS 0H 0147 00336000 * RESPECIFY 0147 00337000 * CPCURPCB RESTRICTED; /* THIS REG WILL BE THE PARM REG 00338000 * FOR CPNORMP */ 00339000 * CPCURPCB=PCBRLPA; /* INIT PARM REG FOR CPNORMP */ 00340000 L CPCURPCB,PCBRLPA-1(,PCBPTR) 0148 00341000 LA CPCURPCB,0(,CPCURPCB) 0148 00342000 * CALL SPCBNORM; /* PROCESS A RELATED PCB */ 00343000 BAL @14,SPCBNORM 0149 00344000 * PCBRLPA=CPCURPCB->PCBRLPA; /* REMOVE PROCESSED PCB FROM THE 00345000 * RELATED CHAIN. */ 00346000 MVC PCBRLPA(3,PCBPTR),PCBRLPA(CPCURPCB) 0150 00347000 * CPCURPCB->PCBFQP=CPRPFRST; /* RESET THE FIRST WORD OF THE 0151 00348000 * RELATED PCB TO ZERO WITH A Q 00349000 * NUMBER INDICATING THE UNQUEUED 00350000 * STATE */ 00351000 L @12,CPRPFRST 0151 00352000 ST @12,PCBFQP(,CPCURPCB) 0151 00353000 * RESPECIFY 0152 00354000 * (CPARMRG0, 0152 00355000 * CPARMRG1) RESTRICTED; 0152 00356000 * IF CPKEEPCB='1'B THEN /* IF THE PCB IS TO BE KEPT, 0153 00357000 * SCHEDULE PIOCP TO RUN LATER 0153 00358000 * AND SET THE TO Q NUMBER FOR 0153 00359000 * PCB MANAGER TO THE Q NUMBER IN 00360000 * THE PRIMARY PCB */ 00361000 TM CPKEEPCB(PVTPTR),B'01000000' 0153 00362000 BNO @RF00153 0153 00363000 * DO; 0154 00364000 * CPCURPCB->PCBVBN=0; /* ZERO THE PCBVBN SO PFTE AND 0155 00365000 * PGTE PROCESSING WON'T BE 0155 00366000 * ATTEMPTED AGAIN BY THIS 0155 00367000 * MODULE. */ 00368000 SLR @12,@12 0155 00369000 STH @12,PCBVBN(,CPCURPCB) 0155 00370000 * CPCURPCB->PCBFREAL='0'B; /* THIS FLAG NO LONGER HAS 0156 00371000 * MEANING */ 00372000 NI PCBFREAL(CPCURPCB),B'01111111' 0156 00373000 * CPCURPCB->PCBRLPA=0; /* ZERO THE RELATED PTR IN THE 0157 00374000 * PCB TO BE ENQUEUED TO AN I/O 00375000 * Q. */ 00376000 STCM @12,7,PCBRLPA(CPCURPCB) 0157 00377000 * CPARMRG1=CPCURPCB; /* SET UP PARM FOR SCHED SUBRTN. */ 00378000 LR CPARMRG1,CPCURPCB 0158 00379000 * CALL EPSCHED; /* CALL SCHEDULE SUBRTN OF PIOP */ 00380000 L @15,PVTPOPBR(,PVTPTR) 0159 00381000 BALR @14,@15 0159 00382000 * CPARMRG0=PCBCQN; /* INIT Q NUMBER PARM TO PCB MGR */ 00383000 SLR CPARMRG0,CPARMRG0 0160 00384000 IC CPARMRG0,PCBCQN(,PCBPTR) 0160 00385000 * END; 0161 00386000 * ELSE /* OTHERWISE, SET Q NUMBER FOR 0162 00387000 * THE FREE Q */ 00388000 * DO; 0162 00389000 B @RC00153 0162 00390000 @RF00153 DS 0H 0163 00391000 * CPARMRG0=PCBFREQN; 0163 00392000 LA CPARMRG0,16 0163 00393000 * END; 0164 00394000 * CPARMRG1=CPCURPCB; /* SET REG 1 FOR CALL */ 00395000 @RC00153 LR CPARMRG1,CPCURPCB 0165 00396000 * CALL EPPCBMGR; /* CALL THE PCB MANAGER TO PLACE 00397000 * THE PCB ON THE PROPER Q */ 00398000 L @15,PVTPCB(,PVTPTR) 0166 00399000 BALR @14,@15 0166 00400000 * RESPECIFY 0167 00401000 * (CPARMRG0, 0167 00402000 * CPARMRG1) UNRESTRICTED; 0167 00403000 * END; /* END THE RELATED PCB DO WHILE */ 00404000 @DE00146 L @12,PCBRLPA-1(,PCBPTR) 0168 00405000 LA @12,0(,@12) 0168 00406000 LTR @12,@12 0168 00407000 BNZ @DL00146 0168 00408000 * 0169 00409000 * /*****************************************************************/ 00410000 * /* */ 00411000 * /* THIS SEGMENT PROCESSES THE INPUT PCB ONCE ALL RELATED PCB'S */ 00412000 * /* HAVE BEEN PROCESSED. THE SPCBNORM SUBROUTINE IS CALLED TO */ 00413000 * /* PROCESS THIS PCB. ONCE ALL PCB'S HAVE BEEN PROCESSED, THE */ 00414000 * /* DISPOSITION OF THE REAL FRAME ASSIGNED TO THE VIRTUAL PAGE */ 00415000 * /* REPRESENTED IN THE PCB IS DETERMINED. IF THE INTERNAL FLAG IS */ 00416000 * /* SET TO FREE THE REAL FRAME, IT IS FREED BY SENDING IT TO THE */ 00417000 * /* AVAILABLE FRAME QUEUE (AFQ). THE PROPER FRAME COUNT IS ALSO */ 00418000 * /* DECREMENTED. OTHERWISE, THE VIRTUAL PAGE HAS BEEN VALIDATED. */ 00419000 * /* IF THE PAGE HAS BEEN VALIDATED, ALL PGTE AND STORAGE KEY */ 00420000 * /* SETTING HAS BEEN DONE IN SPCBNORM. NOTE THAT THE PAGE MAY */ 00421000 * /* ALREADY BE VALID ON ENTRY TO THIS MODULE. IN THIS CASE, THE */ 00422000 * /* VBN IN THE PCB WAS ZERO AND THE PCBFREAL FLAG WAS OFF CAUSING */ 00423000 * /* THE INTERNAL FREE REAL FLAG TO BE TURNED OFF. */ 00424000 * /* */ 00425000 * /*****************************************************************/ 00426000 * 0169 00427000 * CPCURPCB=PCBPTR; /* SET PARM REG FOR CPNORMP */ 00428000 LR CPCURPCB,PCBPTR 0169 00429000 * CALL SPCBNORM; /* PROCESS THE PRIMARY PCB */ 00430000 BAL @14,SPCBNORM 0170 00431000 * RESPECIFY 0171 00432000 * CPCURPCB UNRESTRICTED; 0171 00433000 * IF CPFREREL='1'B THEN /* IS FRAME FOR PCB TO BE FREED */ 00434000 TM CPFREREL(PVTPTR),B'00100000' 0172 00435000 BNO @RF00172 0172 00436000 * DO; /* YES */ 00437000 * RESPECIFY 0174 00438000 * PFTEPTR RESTRICTED; 0174 00439000 * PFTEPTR=PVTPFTP+PCBRBN; /* OBTAIN THE ADDRESS OF THE PFTE 00440000 * ASSIGNED TO THE VIRTUAL PAGE */ 00441000 LH @12,PCBRBN(,PCBPTR) 0175 00442000 N @12,@CF02180 0175 00443000 L PFTEPTR,PVTPFTP(,PVTPTR) 0175 00444000 ALR PFTEPTR,@12 0175 00445000 * PFTPCBSI='0'B; /* TURN OFF THE PCB DEFINED FLAG */ 00446000 NI PFTPCBSI(PFTEPTR),B'11110111' 0176 00447000 * RESPECIFY 0177 00448000 * PFTEPTR UNRESTRICTED; 0177 00449000 * CPHI2BYT=CPINITHI; /* THE PFTE IS FREED. PARM REG 0 00450000 * IS CONSTRUCTED IN THE WORK 0178 00451000 * AREA TO SEND THE PFTE TO THE 00452000 * FRONT OF THE AFQ */ 00453000 LH @11,CPINITHI 0178 00454000 N @11,@CF02180 0178 00455000 STH @11,CPHI2BYT(,PVTPTR) 0178 00456000 * CPRBNPRM=PCBRBN; /* THE PFTE INDEX IS PLACED IN 0179 00457000 * THE LOW 2 BYTES OF REG 0 */ 00458000 STH @12,CPRBNPRM(,PVTPTR) 0179 00459000 * RESPECIFY 0180 00460000 * (CPARMRG0, 0180 00461000 * CPARMRG1) RESTRICTED; 0180 00462000 * CPARMRG0=CPENQDEQ; /* REG 0 IS INITIALIZED FROM THE 00463000 * WORK AREA */ 00464000 L CPARMRG0,CPENQDEQ(,PVTPTR) 0181 00465000 * CPARMRG1=PSAAOLD; /* REG 1 CONTAINS THE ASCB ADDR 00466000 * FOR THE CURRENT ADDRESS SPACE */ 00467000 L CPARMRG1,PSAAOLD 0182 00468000 * CALL EPFTENDQ; /* PFTE ENQ/DEQ IS CALLED */ 00469000 L @15,PVTPFTE(,PVTPTR) 0183 00470000 BALR @14,@15 0183 00471000 * END; /* END FREE FRAME PROCESSING */ 00472000 * ELSE 0185 00473000 * ; /* DO NOTHING IF FRAME IS NOT TO 00474000 * BE FREED */ 00475000 @RF00172 DS 0H 0186 00476000 * 0186 00477000 * /*****************************************************************/ 00478000 * /* */ 00479000 * /* FINALLY, THE DISPOSITION OF THE INPUT PCB IS DETERMINED AND */ 00480000 * /* THE PCB SENT TO THE FREE Q IF NECESSARY. EXIT IS THEN MADE TO */ 00481000 * /* THE CALLER. IF THE PCB IS TO BE KEPT, PIOCP IS SCHEDULED AS */ 00482000 * /* DISCUSSED IN THE FIRST SEGMENT. EXIT IS THEN MADE TO THE */ 00483000 * /* CALLER. */ 00484000 * /* */ 00485000 * /*****************************************************************/ 00486000 * 0186 00487000 *LBFINPCB: 0186 00488000 * IF CPKEEPCB='0'B THEN /* IF CPNORMP INDICATED THE PCB 00489000 * IS TO BE FREED, IT IS FREED */ 00490000 LBFINPCB TM CPKEEPCB(PVTPTR),B'01000000' 0186 00491000 BNZ @RF00186 0186 00492000 * DO; 0187 00493000 * CPARMRG0=PCBFREQN; /* SET Q NUMBER PARM TO FREE Q */ 00494000 LA CPARMRG0,16 0188 00495000 * CPARMRG1=PCBPTR; /* PUT PCB ADDR IN REG 1 */ 00496000 LR CPARMRG1,PCBPTR 0189 00497000 * CALL EPPCBMGR; /* THE PCB MANAGER IS CALLED */ 00498000 L @15,PVTPCB(,PVTPTR) 0190 00499000 BALR @14,@15 0190 00500000 * END; 0191 00501000 * ELSE /* THE PCB IS TO BE KEPT, THE VBN 00502000 * IS SET TO ZERO, AND PCBFREAL 00503000 * SET OFF. THE SCHEDULE 0192 00504000 * SUBROUTINE OF PIOP CALLED TO 00505000 * SCHEDULE PIOCP TO RUN LATER. */ 00506000 * DO; 0192 00507000 B @RC00186 0192 00508000 @RF00186 DS 0H 0193 00509000 * PCBVBN=0; /* ZERO THE PCBVBN SO PFTE AND 0193 00510000 * PGTE PROCESSING WON'T BE 0193 00511000 * ATTEMPTED AGAIN BY THIS MODULE*/ 00512000 SLR @12,@12 0193 00513000 STH @12,PCBVBN(,PCBPTR) 0193 00514000 * PCBFREAL='0'B; /* THIS FLAG NO LONGER HAS 0194 00515000 * MEANING */ 00516000 NI PCBFREAL(PCBPTR),B'01111111' 0194 00517000 * CPARMRG1=PCBPTR; /* SET UP PARM FOR SCHED SUBRTN. */ 00518000 LR CPARMRG1,PCBPTR 0195 00519000 * CALL EPSCHED; /* CALL SCHEDULE SUBRTN OF PIOP */ 00520000 L @15,PVTPOPBR(,PVTPTR) 0196 00521000 BALR @14,@15 0196 00522000 * RESPECIFY 0197 00523000 * (CPARMRG0, 0197 00524000 * CPARMRG1) UNRESTRICTED; 0197 00525000 * END; 0198 00526000 * CPRETREG=CPSBRET2; /* RESTORE CALLER'S RETURN ADDR 00527000 * AND RETURN TO THE CALLER */ 00528000 @RC00186 L CPRETREG,CPSBRET2(,PVTPTR) 0199 00529000 * END; /* END SUBNORML INTERNAL PROC */ 00530000 @EL00003 DS 0H 0200 00531000 @EF00003 DS 0H 0200 00532000 @ER00003 BR @14 0200 00533000 * 0201 00534000 * /*****************************************************************/ 00535000 * /* */ 00536000 * /* THE I/O ERROR SUBROUTINE IS CALLED BY THE SQSEARCH SUBROUTINE.*/ 00537000 * /* IT GETS ALL PCB'S FOR WHICH A PAGE-IN HAS NOT COMPLETED */ 00538000 * /* SUCCESSFULLY PROCESSED BY CALLING THE SPCBERR SUBROUTINE. */ 00539000 * /* SUBIOERR WORKS A LITTLE DIFFERENTLY THAN SUBNORML IN THAT */ 00540000 * /* RELATED PCB'S THAT CAN NOT BE PROCESSED ARE RETAINED AND NOT */ 00541000 * /* ENQUEUED SEPARATELY. THE REAL FRAME ASSOCIATED WITH PAGE-IN */ 00542000 * /* OPERATION IS NOT FREED UNTIL THE LAST PCB HAS BEEN PROCESSED. */ 00543000 * /* INPUT TO THIS SUBROUTINE IS THE ADDRESS OF THE QUEUED OR */ 00544000 * /* PRIMARY PCB TO BE PROCESSED. THIS FIRST SEGMENT PROCESSES ALL */ 00545000 * /* RELATED PCB'S, LEAVING THOSE THAT WERE NOT FOR THE CURRENT */ 00546000 * /* ADDRESS SPACE OR THAT SPCBERR COULD NOT PROCESS QUEUED AS */ 00547000 * /* RELATED PCB'S. PROCESSING CONTINUES WITH THE SECOND SEGMENT */ 00548000 * /* ONCE AN ATTEMPT HAS BEEN MADE TO PROCESS EACH RELATED PCB. */ 00549000 * /* */ 00550000 * /*****************************************************************/ 00551000 * 0201 00552000 *SUBIOERR: 0201 00553000 * PROC OPTIONS(NOSAVE NOSAVEAREA); 0201 00554000 SUBIOERR DS 0H 0202 00555000 * CPSBRET2=CPRETREG; /* SAVE RETURN ADDRESS */ 00556000 ST CPRETREG,CPSBRET2(,PVTPTR) 0202 00557000 * CPREVREL=PCBPTR; /* INIT BASE PCB ADDR FOR RELATED 00558000 * LOOP THAT FOLLOWS */ 00559000 STCM PCBPTR,7,CPREVREL(PVTPTR) 0203 00560000 * DO WHILE(CPREVREL->PCBRLPA^=0); /* ATTEMPT TO PROCESS EACH 0204 00561000 * RELATED PCB. */ 00562000 B @DE00204 0204 00563000 @DL00204 DS 0H 0205 00564000 * RESPECIFY 0205 00565000 * CPCURPCB RESTRICTED; 0205 00566000 * CPCURPCB=CPREVREL->PCBRLPA; /* GET ADDR OF PCB TO BE 0206 00567000 * PROCESSED */ 00568000 L @12,CPREVREL-1(,PVTPTR) 0206 00569000 L CPCURPCB,PCBRLPA-1(,@12) 0206 00570000 LA CPCURPCB,0(,CPCURPCB) 0206 00571000 * IF CPCURPCB->PCBASCB=PCBASCB THEN/* IS RELATED PCB FOR SAME 0207 00572000 * ADDRESS SPACE */ 00573000 CLC PCBASCB(4,CPCURPCB),PCBASCB(PCBPTR) 0207 00574000 BNE @RF00207 0207 00575000 * DO; /* PROCESS ONLY PCB'S FOR THE 0208 00576000 * CURRENT ADDRESS */ 00577000 * CALL SPCBERR; /* PROCESS THE RELATED PCB */ 00578000 BAL @14,SPCBERR 0209 00579000 * IF CPKEEPCB='0'B THEN /* IF THE PCB CAN BE FREED, 0210 00580000 * REMOVE THE PCB FROM THE 0210 00581000 * RELATED CHAIN AND RETURN IT TO 00582000 * THE FREE Q */ 00583000 TM CPKEEPCB(PVTPTR),B'01000000' 0210 00584000 BNZ @RF00210 0210 00585000 * DO; 0211 00586000 * CPREVREL->PCBRLPA=CPCURPCB->PCBRLPA; 0212 00587000 L @12,CPREVREL-1(,PVTPTR) 0212 00588000 MVC PCBRLPA(3,@12),PCBRLPA(CPCURPCB) 0212 00589000 * CPCURPCB->PCBFQP=CPRPFRST;/* RESET THE FIRST WORD OF 0213 00590000 * THE RELATED PCB TO ZERO WITH A 00591000 * Q NUMBER INDICATING THE 0213 00592000 * UNQUEUED STATE */ 00593000 L @12,CPRPFRST 0213 00594000 ST @12,PCBFQP(,CPCURPCB) 0213 00595000 * RESPECIFY 0214 00596000 * (CPARMRG0, 0214 00597000 * CPARMRG1) RESTRICTED; 0214 00598000 * CPARMRG0=PCBFREQN; 0215 00599000 LA CPARMRG0,16 0215 00600000 * CPARMRG1=CPCURPCB; 0216 00601000 LR CPARMRG1,CPCURPCB 0216 00602000 * CALL EPPCBMGR; /* CALL THE PCB MANAGER TO SEND 00603000 * PCB TO THE FREE Q */ 00604000 L @15,PVTPCB(,PVTPTR) 0217 00605000 BALR @14,@15 0217 00606000 * RESPECIFY 0218 00607000 * (CPARMRG0, 0218 00608000 * CPARMRG1) UNRESTRICTED; 0218 00609000 * END; 0219 00610000 * ELSE /* OTHERWISE, UPDATE THE BASE PCB 00611000 * PTR FOR THE RELATED CHAIN */ 00612000 * DO; 0220 00613000 B @RC00210 0220 00614000 @RF00210 DS 0H 0221 00615000 * CPREVREL=CPCURPCB; 0221 00616000 STCM CPCURPCB,7,CPREVREL(PVTPTR) 0221 00617000 * END; 0222 00618000 * END; 0223 00619000 * ELSE /* IF RELATED PCB IS FOR 0224 00620000 * DIFFERENT ADDRESS SPACE, 0224 00621000 * UPDATE THE BASE PCB PTR FOR 0224 00622000 * THE RELATED CHAIN */ 00623000 * DO; 0224 00624000 B @RC00207 0224 00625000 @RF00207 DS 0H 0225 00626000 * CPREVREL=CPCURPCB; 0225 00627000 STCM CPCURPCB,7,CPREVREL(PVTPTR) 0225 00628000 * END; 0226 00629000 * END; /* END RELATED PCB DO WHILE LOOP */ 00630000 @RC00207 DS 0H 0227 00631000 @DE00204 L @12,CPREVREL-1(,PVTPTR) 0227 00632000 L @12,PCBRLPA-1(,@12) 0227 00633000 LA @12,0(,@12) 0227 00634000 LTR @12,@12 0227 00635000 BNZ @DL00204 0227 00636000 * 0228 00637000 * /*****************************************************************/ 00638000 * /* */ 00639000 * /* THE SECOND SEGMENT OF SUBIOERR GETS THE INPUT PCB PROCESSED BY*/ 00640000 * /* CALLING SPCBERR. IF ALL PCBS ASSOCIATED WITH THE PAGE-IN */ 00641000 * /* OPERATION HAVE BEEN PROCESSED, THE PFTE FOR THE REAL FRAME */ 00642000 * /* ASSOCIATED WITH THE PAGE-IN IS READY TO BE FREED. IF THE FIX */ 00643000 * /* COUNT IS ZERO AND THE DEFERED RELEASE FLAG IS SET, THE DEFERED*/ 00644000 * /* RELEASE ENTRY POINT OF IEAVRELS IS CALLED. THE LOCAL LOCK */ 00645000 * /* REQUIRED BY THIS CALL IS GUARANTEED FOR THIS FUNCTION BECAUSE */ 00646000 * /* THE SPCBERR SUBRTN. DOES NOT PROCESS FIX PCB'S UNTIL THE LOCAL*/ 00647000 * /* LOCK IS HELD. THE PFTE IS THEN FREED REGARDLESS OF THE ABOVE */ 00648000 * /* CONDITIONS. OTHERWISE, THE INPUT PCB IS LEFT QUEUED OR ANY */ 00649000 * /* RELATED PCB'S ARE ENQUEUED TO THE SAME I/O ACTIVE Q AS THE */ 00650000 * /* INPUT PCB (THE INPUT PCB BEING SENT TO THE FREE Q) AND PIOCP */ 00651000 * /* SCHEDULED TO RUN LATER BY CALLING THE SCHEDULE SUBROUTINE OF */ 00652000 * /* PIOP AS DISCUSSED IN SUBNORML. */ 00653000 * /* */ 00654000 * /*****************************************************************/ 00655000 * 0228 00656000 * CPCURPCB=PCBPTR; /* INIT PARM REG FOR SPCBERR */ 00657000 LR CPCURPCB,PCBPTR 0228 00658000 * CALL SPCBERR; /* PROCESS THE INPUT PCB */ 00659000 BAL @14,SPCBERR 0229 00660000 * RESPECIFY 0230 00661000 * CPCURPCB UNRESTRICTED; 0230 00662000 * IF CPKEEPCB='0'B THEN /* IF THE INPUT PCB IS TO BE 0231 00663000 * FREED AND THERE ARE NO RELATED 00664000 * PCB'S, THE REAL FRAME IS FREED*/ 00665000 TM CPKEEPCB(PVTPTR),B'01000000' 0231 00666000 BNZ @RF00231 0231 00667000 * DO; 0232 00668000 * IF PCBRLPA=0 THEN /* DO RELATED PCBS STILL EXIST */ 00669000 L @12,PCBRLPA-1(,PCBPTR) 0233 00670000 LA @12,0(,@12) 0233 00671000 LTR @12,@12 0233 00672000 BNZ @RF00233 0233 00673000 * DO; /* YES */ 00674000 * RESPECIFY 0235 00675000 * PFTEPTR RESTRICTED; 0235 00676000 * PFTEPTR=PVTPFTP+PCBRBN; /* GET PFTE ADDR, USING PCBRBN */ 00677000 LH PFTEPTR,PCBRBN(,PCBPTR) 0236 00678000 N PFTEPTR,@CF02180 0236 00679000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0236 00680000 * PFTPCBSI='0'B; /* TURN OFF PCB DEFINED FLAG */ 00681000 NI PFTPCBSI(PFTEPTR),B'11110111' 0237 00682000 * IF PFTFXCT=0 THEN /* IS FIX COUNT IN PFTE ZERO */ 00683000 LH @12,PFTFXCT(,PFTEPTR) 0238 00684000 LTR @12,@12 0238 00685000 BNZ @RF00238 0238 00686000 * DO; /* FOR PFTES WITH ZERO FIX COUNTS 00687000 * CHECK FOR DEFERED RELEASE */ 00688000 * IF PFTDFRLS='1'B THEN/* IS FRAME IN DEFERRED RELEASE 00689000 * CONDITION */ 00690000 TM PFTDFRLS(PFTEPTR),B'10000000' 0240 00691000 BNO @RF00240 0240 00692000 * DO; /* YES */ 00693000 * RESPECIFY 0242 00694000 * (CPARMRG0, 0242 00695000 * CPARMRG1) RESTRICTED; 0242 00696000 * CPARMRG1=PFTVBN*256;/* SET UP INPUT VSA FOR 0243 00697000 * IEAVRELF */ 00698000 LH CPARMRG1,PFTVBN(,PFTEPTR) 0243 00699000 N CPARMRG1,@CF02180 0243 00700000 SLA CPARMRG1,8 0243 00701000 * CALL EPDEFREL; /* CALL DEFERED RELEASE PROCESSOR*/ 00702000 L @15,PVTPRELF(,PVTPTR) 0244 00703000 BALR @14,@15 0244 00704000 * RCACSECT=RCACCOMP;/* RESET CSECT ID IN RCA */ 00705000 MVI RCACSECT(RCAPTR),X'14' 0245 00706000 * END; 0246 00707000 * ELSE 0247 00708000 * ; /* FRAME NOT DEFERRED RELEASED */ 00709000 @RF00240 DS 0H 0248 00710000 * END; 0248 00711000 * ELSE /* IF PFTE FIX COUNT NOT ZERO, 0249 00712000 * RECORD THE ERROR AND FORCE THE 00713000 * COUNT TO ZERO */ 00714000 * DO; 0249 00715000 B @RC00238 0249 00716000 @RF00238 DS 0H 0250 00717000 * RCARCRD='0A'X; /* SET REASON CODE */ 00718000 MVI RCARCRD(RCAPTR),X'0A' 0250 00719000 * GEN(ABEND X'C0D',,,SYSTEM) ; 0251 00720000 ABEND X'C0D',,,SYSTEM 00721000 * PFTFXCT=0; 0252 00722000 SLR @12,@12 0252 00723000 STH @12,PFTFXCT(,PFTEPTR) 0252 00724000 * IF PFTVBN>=PVTLCSA THEN/* IS FRAME IN COMMON AREA */ 00725000 CLC PFTVBN(2,PFTEPTR),PVTLCSA(PVTPTR) 0253 00726000 BL @RF00253 0253 00727000 * PVTCOMFX=PVTCOMFX-1;/* YES, A COMMON AREA FRAME 0254 00728000 * DECREMENT COMMON AREA COUNT 0254 00729000 * @YA01572*/ 00730000 LH @12,PVTCOMFX(,PVTPTR) 0254 00731000 BCTR @12,0 0254 00732000 STH @12,PVTCOMFX(,PVTPTR) 0254 00733000 * ELSE /* NOT COMMON AREA */ 00734000 * RSMCNTFX=RSMCNTFX-1;/* DECREMENT COUNT FOR THIS 0255 00735000 * ADDRESS SPACE @YA01572*/ 00736000 B @RC00253 0255 00737000 @RF00253 LH @12,RSMCNTFX(,RSMHDPTR) 0255 00738000 BCTR @12,0 0255 00739000 STH @12,RSMCNTFX(,RSMHDPTR) 0255 00740000 * PVTCNTFX=PVTCNTFX-1;/* DECREMENT SYSTEM COUNT 0256 00741000 * @YA01572*/ 00742000 @RC00253 LH @12,PVTCNTFX(,PVTPTR) 0256 00743000 BCTR @12,0 0256 00744000 STH @12,PVTCNTFX(,PVTPTR) 0256 00745000 * END; 0257 00746000 * PFTPGID=0; /* ZERO ASID, VBN IN PFTE TO 0258 00747000 * PREVENT RECLAIM */ 00748000 @RC00238 SLR @12,@12 0258 00749000 ST @12,PFTPGID(,PFTEPTR) 0258 00750000 * RESPECIFY 0259 00751000 * PFTEPTR UNRESTRICTED; 0259 00752000 * CPHI2BYT=CPINITHI; /* INIT HIGH 2 BYTES OF REG 0 0260 00753000 * PARM FOR PFTE ENQ/DEQ TO PLACE 00754000 * PFTE ON FRONT OF AFQ */ 00755000 LH @12,CPINITHI 0260 00756000 N @12,@CF02180 0260 00757000 STH @12,CPHI2BYT(,PVTPTR) 0260 00758000 * CPRBNPRM=PCBRBN; /* LOW 2 BYTES IS PFTE INDEX */ 00759000 LH @12,PCBRBN(,PCBPTR) 0261 00760000 N @12,@CF02180 0261 00761000 STH @12,CPRBNPRM(,PVTPTR) 0261 00762000 * CPARMRG0=CPENQDEQ; /* LOAD INITIALIZED PARM FIELD 0262 00763000 * INTO REGISTER 0 */ 00764000 L CPARMRG0,CPENQDEQ(,PVTPTR) 0262 00765000 * CPARMRG1=PSAAOLD; /* REG 1 IS CURRENT ASCB ADDR */ 00766000 L CPARMRG1,PSAAOLD 0263 00767000 * CALL EPFTENDQ; /* CALL PFTE ENQ/DEQ TO PLACE 0264 00768000 * PFTE ON FRONT OF AFQ */ 00769000 L @15,PVTPFTE(,PVTPTR) 0264 00770000 BALR @14,@15 0264 00771000 * END; /* END FREE FRAME PROCESSING */ 00772000 * ELSE /* IF RELATED PCB'S STILL REMAIN, 00773000 * THE FIRST IS ENQUEUED TO THE Q 00774000 * OF THE INPUT PCB AND THE INPUT 00775000 * PCB FREED BELOW */ 00776000 * DO; 0266 00777000 B @RC00233 0266 00778000 @RF00233 DS 0H 0267 00779000 * PCBVBN=0; /* THE VBN IN THE INPUT PCB IS 0267 00780000 * SET TO ZERO TO PREVENT HAVING 00781000 * TWO PCB'S WITH THE SAME VBN ON 00782000 * A Q AT THE SAME TIME. */ 00783000 SLR @12,@12 0267 00784000 STH @12,PCBVBN(,PCBPTR) 0267 00785000 * CPARMRG0=PCBCQN; /* SET UP PARM FOR PCB MGR */ 00786000 SLR CPARMRG0,CPARMRG0 0268 00787000 IC CPARMRG0,PCBCQN(,PCBPTR) 0268 00788000 * CPARMRG1=PCBRLPA; /* FIRST RELATED TO BE ENQUEUED */ 00789000 L CPARMRG1,PCBRLPA-1(,PCBPTR) 0269 00790000 LA CPARMRG1,0(,CPARMRG1) 0269 00791000 * CALL EPPCBMGR; /* CALL THE PCB MANAGER */ 00792000 L @15,PVTPCB(,PVTPTR) 0270 00793000 BALR @14,@15 0270 00794000 * CALL EPSCHED; /* CALL SCHEDULE SUBRTN OF PIOP. 00795000 * REG 1 STILL HAS PCB ADDR 0271 00796000 * BECAUSE PCB MGR DOESN'T 0271 00797000 * DESTROY IT. */ 00798000 L @15,PVTPOPBR(,PVTPTR) 0271 00799000 BALR @14,@15 0271 00800000 * END; 0272 00801000 * END; /* END FREE INPUT PCB PROCESSING */ 00802000 * ELSE /* IF THE INPUT PCB CAN NOT BE 0274 00803000 * FREED, PIOCP MUST BE SCHEDULED*/ 00804000 * DO; 0274 00805000 B @RC00231 0274 00806000 @RF00231 DS 0H 0275 00807000 * CPARMRG1=PCBPTR; 0275 00808000 LR CPARMRG1,PCBPTR 0275 00809000 * CALL EPSCHED; /* CALL SCHEDULE SUBRTN OF PIOP */ 00810000 L @15,PVTPOPBR(,PVTPTR) 0276 00811000 BALR @14,@15 0276 00812000 * GOTO LBEXIT; /* SKIP FREEING OF INPUT PCB */ 00813000 B LBEXIT 0277 00814000 * END; 0278 00815000 * CPARMRG0=PCBFREQN; /* THE INPUT PCB IS NOW FREED BY 00816000 * CALLING THE PCB MANAGER 0279 00817000 * BECAUSE CPKEEPCB=0. */ 00818000 @RC00231 LA CPARMRG0,16 0279 00819000 * CPARMRG1=PCBPTR; /* SET UP PARM REG WITH PCB ADDR */ 00820000 LR CPARMRG1,PCBPTR 0280 00821000 * CALL EPPCBMGR; /* CALL THE PCB MANAGER */ 00822000 L @15,PVTPCB(,PVTPTR) 0281 00823000 BALR @14,@15 0281 00824000 * RESPECIFY 0282 00825000 * (CPARMRG0, 0282 00826000 * CPARMRG1) UNRESTRICTED; 0282 00827000 *LBEXIT: 0283 00828000 * CPRETREG=CPSBRET2; /* RESTORE RETURN ADDR AND EXIT 00829000 * TO THE CALLER */ 00830000 LBEXIT L CPRETREG,CPSBRET2(,PVTPTR) 0283 00831000 * END; /* END SUBIOERR INT PROC */ 00832000 @EL00004 DS 0H 0284 00833000 @EF00004 DS 0H 0284 00834000 @ER00004 BR @14 0284 00835000 * 0285 00836000 * /*****************************************************************/ 00837000 * /* */ 00838000 * /* THE SPCBNORM SUBROUTINE IS CALLED FOR EACH RELATED OR QUEUED */ 00839000 * /* PCB FOUND BY THE SUBNORML SUBROUTINE. SPCBNORM'S JOB IS TO */ 00840000 * /* VALIDATE A PAGE AND SET ITS PROTECT KEY IN REAL STORAGE. NOTE */ 00841000 * /* THAT THIS PROCESSING IS SKIPPED IF THE PCBVBN IS ZERO OR IF */ 00842000 * /* THE PAGE IS ALREADY VALID. THE PAGE COULD ALREADY BE VALID ON */ 00843000 * /* ENTRY TO THIS MODULE OR WAS VALIDATED WHEN PROCESSING ANOTHER */ 00844000 * /* PCB RELATED TO THE PRIMARY PCB. THE SNOTIFY SUBROUTINE IS THEN*/ 00845000 * /* CALLED. THE ADDRESS OF THE PCB TO BE PROCESSED BY SPCBNORM IS */ 00846000 * /* PASSED IN REG 8 (CPCURPCB). NOTE THAT THE ADDR OF THE PRIMARY */ 00847000 * /* PCB BEING PROCESSED BY THE MODULE IS IN REG 7 AND MUST NOT BE */ 00848000 * /* DISTURBED. OTHER REGISTERS WHICH MUST NOT CHANGE ACROSS THIS */ 00849000 * /* SUBROUTINE ARE 2, 3, AND 10. */ 00850000 * /* */ 00851000 * /*****************************************************************/ 00852000 * 0285 00853000 *SPCBNORM: 0285 00854000 * PROC OPTIONS(NOSAVE NOSAVEAREA); 0285 00855000 SPCBNORM DS 0H 0286 00856000 * CPSBRET3=CPRETREG; /* SAVE THE RETURN ADDRESS */ 00857000 ST CPRETREG,CPSBRET3(,PVTPTR) 0286 00858000 * RESPECIFY 0287 00859000 * CPCURPCB RESTRICTED; 0287 00860000 * RESPECIFY 0288 00861000 * PCB BASED(CPCURPCB); /* THE PCB BASE PTR FOR THIS 0288 00862000 * SUBROUTINE IS THE INPUT 0288 00863000 * PARAMETER REG, NOT THE 0288 00864000 * STANDARD PCB REG FOR THE 0288 00865000 * MODULE */ 00866000 * IF PCBFREAL='0'B THEN /* IF THE FREE REAL FLAG IS NOT 00867000 * SET IN THE PCB, PERFORM THE 0289 00868000 * NEXT TWO TESTS BEFORE 0289 00869000 * VALIDATING THE PAGE */ 00870000 TM PCBFREAL(CPCURPCB),B'10000000' 0289 00871000 BNZ @RF00289 0289 00872000 * DO; 0290 00873000 * CPFREREL='0'B; /* THE INTERNAL FREE REAL FLAG IS 00874000 * RESET TO PREVENT SUBNORML FROM 00875000 * FREEING THE REAL FRAME */ 00876000 NI CPFREREL(PVTPTR),B'11011111' 0291 00877000 * IF PCBVBN^=0 THEN /* IF THE PCB VBN IS NOT ZERO, 0292 00878000 * THEN DO A LRA ON THE VIRTUAL 00879000 * ADDR DEVELOPED FROM THIS VBN 00880000 * TO SEE IF THE PAGE HAS ALREADY 00881000 * BEEN VALIDATED */ 00882000 LH @12,PCBVBN(,CPCURPCB) 0292 00883000 N @12,@CF02180 0292 00884000 LTR @12,@12 0292 00885000 BZ @RF00292 0292 00886000 * DO; 0293 00887000 * RESPECIFY 0294 00888000 * (CPWRKRG4, 0294 00889000 * CPWRKRG5) RESTRICTED; 0294 00890000 * CPWRKRG4=PCBVBN*256; /* SHIFT VBN LEFT 8 BITS FOR VSA */ 00891000 SLA @12,8 0295 00892000 LR CPWRKRG4,@12 0295 00893000 * GEN(LRA CPWRKRG5,0(CPWRKRG4)) 0296 00894000 * REFS(CPWRKRG4) SETS(CPWRKRG5);/* PERFORM LRA */ 00895000 LRA CPWRKRG5,0(CPWRKRG4) 00896000 * BC(8,LBNOTIFY); /* IF THE PAGE IS VALID, SKIP TO 00897000 * NOTIFICATION PROCESSING IN THE 00898000 * NEXT SEGMENT */ 00899000 BC 8,LBNOTIFY 0297 00900000 * RESPECIFY 0298 00901000 * PFTEPTR RESTRICTED; 0298 00902000 * PFTEPTR=PVTPFTP+PCBRBN; /* OBTAIN THE ADDRESS OF THE PFTE 00903000 * ASSIGNED TO THE VIRTUAL PAGE */ 00904000 LH @12,PCBRBN(,CPCURPCB) 0299 00905000 N @12,@CF02180 0299 00906000 L PFTEPTR,PVTPFTP(,PVTPTR) 0299 00907000 ALR PFTEPTR,@12 0299 00908000 * PFTPCBSI='0'B; /* TURN OFF THE PCB DEFINED FLAG */ 00909000 NI PFTPCBSI(PFTEPTR),B'11110111' 0300 00910000 * RESPECIFY 0301 00911000 * PFTEPTR UNRESTRICTED; 0301 00912000 * CPWRKRG4=XPTPROT; /* GET THE KEY IN THE XPTE IN A 00913000 * REG FOR THE SSK INSTRUCTIONS */ 00914000 L @11,XPTEPTR(,CPCURPCB) 0302 00915000 SLR CPWRKRG4,CPWRKRG4 0302 00916000 IC CPWRKRG4,XPTPROT(,@11) 0302 00917000 * CPWRKRG5=PCBRBN*256; /* SHIFT THE PCB RBN LEFT 8 BITS 00918000 * TO FORM A 24 BIT REAL ADDRESS */ 00919000 SLA @12,8 0303 00920000 LR CPWRKRG5,@12 0303 00921000 * GENERATE REFS(CPWRKRG4,CPWRKRG5) SETS(CPWRKRG5); 0304 00922000 SSK CPWRKRG4,CPWRKRG5 SET THE STORAGE KEY OF 1ST 2K 00923000 LA CPWRKRG5,2048(CPWRKRG5) INCREMENT REAL ADDR BY 2048 00924000 SSK CPWRKRG4,CPWRKRG5 SET THE STORAGE KEY OF 2ND 2K 00925000 * RESPECIFY 0305 00926000 * (CPWRKRG4, 0305 00927000 * CPWRKRG5) UNRESTRICTED; 0305 00928000 * PGTPVM='0'B; /* VALIDATE THE PGTE. NOTE THIS 00929000 * SHOULD NOT BE DONE UNTIL THE 00930000 * KEYS ARE SET PROPERLY FOR THE 00931000 * REAL FRAME */ 00932000 L @12,PTEPTR(,CPCURPCB) 0306 00933000 NI PGTPVM(@12),B'11110111' 0306 00934000 * END; /* END VALIDATION PROCESSING */ 00935000 * ELSE 0308 00936000 * ; /* PCBVBN WAS ZERO */ 00937000 @RF00292 DS 0H 0309 00938000 * END; 0309 00939000 * ELSE 0310 00940000 * ; /* PCBFREAL WAS 1 */ 00941000 @RF00289 DS 0H 0311 00942000 *LBNOTIFY: 0311 00943000 * CALL SNOTIFY; /* CALL THE NOTIFY SUBROUTINE TO 00944000 * COMPLETE PROCESSING OF THE 0311 00945000 * INPUT PCB */ 00946000 LBNOTIFY BAL @14,SNOTIFY 0311 00947000 * CPRETREG=CPSBRET3; /* RESTORE RETURN ADDR AND RETURN 00948000 * TO THE CALLER */ 00949000 L CPRETREG,CPSBRET3(,PVTPTR) 0312 00950000 * RESPECIFY 0313 00951000 * PCB BASED(PCBPTR); /* RESTORE PCB BASE PTR TO THE 0313 00952000 * STANDARD PCB REG */ 00953000 * RESPECIFY 0314 00954000 * CPCURPCB UNRESTRICTED; 0314 00955000 * END; /* END SPCBNORM INTERNAL PROC */ 00956000 @EL00005 DS 0H 0315 00957000 @EF00005 DS 0H 0315 00958000 @ER00005 BR @14 0315 00959000 * 0316 00960000 * /*****************************************************************/ 00961000 * /* */ 00962000 * /* THE SPCBERR SUBROUTINE IS CALLED BY SUBIOERR WHEN A PCB THAT */ 00963000 * /* HAS SUFFERED AN I/O FAILURE IS TO BE PROCESSED. THE PCB */ 00964000 * /* ADDRESS IS PASSED IN REGISTER 8(CPCURPCB). REGISTERS THAT ARE */ 00965000 * /* NOT TO BE CHANGED BY THIS SUBROUTINE ARE REGS 2, 3, 7(PCBPTR),*/ 00966000 * /* AND 10. THIS SUBROUTINE DOES PROCESSING FOR PCB'S WITH A ROOT */ 00967000 * /* PCB. THE I/O FAILURE FLAG IS SET IN THE ROOT PCB AND FOE */ 00968000 * /* PROCESSING IS PERFORMED IF THE FIX COUNT IN THE INPUT PCB IS */ 00969000 * /* NOT ZERO AND THE TCB ADDRESS IN THE ROOT PCB IS NOT ZERO. IF */ 00970000 * /* THE STAGE 1 FLAG IS SET IN THE INPUT PCB, A SPECIAL FLAG FOR */ 00971000 * /* THE SWAP-IN ROOT EXIT IS SET AND FOE PROCESSING BYPASSED. FOE */ 00972000 * /* PROCESSING CONSISTS OF DECREMENTING THE FOE FIX COUNT BY THE */ 00973000 * /* PCB FIX COUNT. THE FOE IS NOT FREED AT THIS TIME IF THE COUNT */ 00974000 * /* GOES TO ZERO AS IT MAY GET REUSED AND WILL BE FREED AT TASK */ 00975000 * /* TERMINATION TIME. THE PCB COUNT IS THEN SUBTRACTED FROM THE */ 00976000 * /* PFTE FIX COUNT OF THE PFTE IDENTIFIED BY THE PCBRBN FIELD AND */ 00977000 * /* THE PCB FIX COUNT SET TO ZERO. NO FOE OR PFTE PROCESSING IS */ 00978000 * /* DONE IF THE LOCAL LOCK IS NOT HELD AND SNOTIFY IS ALSO */ 00979000 * /* BYPASSED. ALL INPUT PCB'S ARE THEN PASSED TO THE SNOTIFY */ 00980000 * /* SUBROUTINE FOR FINAL PROCESSING. */ 00981000 * /* */ 00982000 * /*****************************************************************/ 00983000 * 0316 00984000 *SPCBERR: 0316 00985000 * PROC OPTIONS(NOSAVE NOSAVEAREA); 0316 00986000 SPCBERR DS 0H 0317 00987000 * CPSBRET3=CPRETREG; /* SAVE RETURN ADDRESS */ 00988000 ST CPRETREG,CPSBRET3(,PVTPTR) 0317 00989000 * RESPECIFY 0318 00990000 * CPCURPCB RESTRICTED; 0318 00991000 * RESPECIFY 0319 00992000 * PCB BASED(CPCURPCB); /* THE PCB BASE PTR FOR THIS 0319 00993000 * SUBROUTINE IS THE INPUT 0319 00994000 * PARAMETER REG, NOT THE 0319 00995000 * STANDARD PCB REG FOR THE 0319 00996000 * MODULE */ 00997000 * IF PCBROOT='1'B THEN /* THIS FLAG INDICATES A ROOT PCB*/ 00998000 TM PCBROOT(CPCURPCB),B'00000100' 0320 00999000 BNO @RF00320 0320 01000000 * DO; 0321 01001000 * PCBRFAIL='1'B; /* SET THE I/O FAILURE FLAG IN 0322 01002000 * ALL ROOT PCB'S */ 01003000 L @12,PCBRPTR(,CPCURPCB) 0322 01004000 OI PCBRFAIL(@12),B'00001000' 0322 01005000 * IF PCBSWPS1='1'B THEN /* IS PCB FOR STAGE 1 SWAP */ 01006000 TM PCBSWPS1(CPCURPCB),B'00100000' 0323 01007000 BNO @RF00323 0323 01008000 * DO; 0324 01009000 * PCBRPB='1'B; /* SET SPECIAL FLAG FOR STAGE 1 */ 01010000 OI PCBRPB(@12),B'00100000' 0325 01011000 * GOTO LBPFTFXC; /* BYPASS FOE PROCESSING */ 01012000 B LBPFTFXC 0326 01013000 * END; 0327 01014000 * IF PCBFXC^=0 THEN /* IF THE PCB IS FOR A PGFIX 0328 01015000 * REQ., FOE PROCESSING MUST BE 01016000 * DONE */ 01017000 @RF00323 CLI PCBFXC(CPCURPCB),0 0328 01018000 BE @RF00328 0328 01019000 * DO; 0329 01020000 * IF CPLLHELD='0'B THEN /* NO FIX PCB PROCESSING IS DONE 01021000 * UNLESS THE LOCAL LOCK IS HELD 01022000 * IN ORDER THAT ANY PFTE DEFERED 01023000 * RELEASE PROCESSING WILL BE 0330 01024000 * DONE ONLY WITH THE LOCAL LOCK 01025000 * HELD AND TO GUARANTEE TCB 0330 01026000 * SERIALIZATION. */ 01027000 TM CPLLHELD(PVTPTR),B'10000000' 0330 01028000 BNZ @RF00330 0330 01029000 * DO; 0331 01030000 * CPKEEPCB='1'B; /* SET INDICATOR ON TO KEEP PCB */ 01031000 OI CPKEEPCB(PVTPTR),B'01000000' 0332 01032000 * GOTO LBERRETN; /* BYPASS ALL PCB PROCESSING */ 01033000 B LBERRETN 0333 01034000 * END; 0334 01035000 * ELSE 0335 01036000 * ; /* CONTINUE IF LOCAL LOCK HELD */ 01037000 @RF00330 DS 0H 0336 01038000 * IF PCBRTCBA^=0 THEN /* FOE PROCESSING IS DONE ONLY IF 01039000 * A NON-ZERO TCB ADDR IS IN ROOT*/ 01040000 L @12,PCBRPTR(,CPCURPCB) 0336 01041000 L @11,PCBRTCBA-1(,@12) 0336 01042000 LA @11,0(,@11) 0336 01043000 LTR @11,@11 0336 01044000 BZ @RF00336 0336 01045000 * DO; 0337 01046000 * RESPECIFY 0338 01047000 * FOEPTR RESTRICTED; 0338 01048000 * FOEPTR=TCBFOEA; /* GET THE ADDR OF FIRST FOE */ 01049000 L @12,TCBPTR(,@12) 0339 01050000 L FOEPTR,TCBFOEA-1(,@12) 0339 01051000 LA FOEPTR,0(,FOEPTR) 0339 01052000 * DO WHILE(FOEPTR^=0&FOEVINDX<=PCBVBN);/* SEARCH FOE 0340 01053000 * CHAIN AND PROCESS THE FOE WITH 01054000 * A MATCHING VBN. WHEN AND IF A 01055000 * MATCH IS FOUND, THE LOOP IS 0340 01056000 * EXITED IMMEDIATELY */ 01057000 B @DE00340 0340 01058000 @DL00340 DS 0H 0341 01059000 * IF FOEVINDX=PCBVBN THEN/* ARE VBNS EQUAL */ 01060000 CLC FOEVINDX(2,FOEPTR),PCBVBN(CPCURPCB) 0341 01061000 BNE @RF00341 0341 01062000 * DO; /* YES */ 01063000 * FOEFXCT=FOEFXCT-PCBFXC; 0343 01064000 LH @12,FOEFXCT(,FOEPTR) 0343 01065000 SLR @11,@11 0343 01066000 IC @11,PCBFXC(,CPCURPCB) 0343 01067000 SLR @12,@11 0343 01068000 STH @12,FOEFXCT(,FOEPTR) 0343 01069000 * GOTO LBPFTFXC;/* WHEN AN FOE IS FOUND, EXIT 0344 01070000 * LOOP */ 01071000 B LBPFTFXC 0344 01072000 * END; 0345 01073000 * ELSE /* VBNS NOT EQUAL, KEEP LOOKING */ 01074000 * FOEPTR=FOEFLINK;/* GET NEXT FOE */ 01075000 @RF00341 L @12,FOEFLINK-1(,FOEPTR) 0346 01076000 LA @12,0(,@12) 0346 01077000 LR FOEPTR,@12 0346 01078000 * RESPECIFY 0347 01079000 * FOEPTR UNRESTRICTED; 0347 01080000 * END; /* END FOE DO WHILE */ 01081000 @DE00340 LTR FOEPTR,FOEPTR 0348 01082000 BZ @DC00340 0348 01083000 CLC FOEVINDX(2,FOEPTR),PCBVBN(CPCURPCB) 0348 01084000 BNH @DL00340 0348 01085000 @DC00340 DS 0H 0349 01086000 * RCARCRD='10'X; /* IF NO FOE IS FOUND, SET THE 0349 01087000 * REASON CODE AND ISSUE ABEND TO 01088000 * RECORD ERROR BEFORE 0349 01089000 * CONTINUING. */ 01090000 MVI RCARCRD(RCAPTR),X'10' 0349 01091000 * GEN(ABEND X'C0D',,,SYSTEM) ;/* GO TO FRR TO RECORD 0350 01092000 * ERROR */ 01093000 ABEND X'C0D',,,SYSTEM 01094000 * END; /* END NON-ZERO TCB PROCESSING */ 01095000 * ELSE 0352 01096000 * ; /* TCB ADDR IN ROOT WAS ZERO */ 01097000 @RF00336 DS 0H 0353 01098000 *LBPFTFXC: /* REGARDLESS OF TCB ADDR, THE 0353 01099000 * PFTE FIX COUNT IS DECREMENTED 01100000 * BY THE VALUE OF PCBFXC AND 0353 01101000 * PCBFXC THEN SET TO ZERO. */ 01102000 * RESPECIFY 0353 01103000 * PFTEPTR RESTRICTED; 0353 01104000 LBPFTFXC DS 0H 0354 01105000 * PFTEPTR=PVTPFTP+PCBRBN; /* DEVELOP THE ADDR OF THE PFTE */ 01106000 LH PFTEPTR,PCBRBN(,CPCURPCB) 0354 01107000 N PFTEPTR,@CF02180 0354 01108000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0354 01109000 * PFTFXCT=PFTFXCT-PCBFXC; 0355 01110000 LH @12,PFTFXCT(,PFTEPTR) 0355 01111000 SLR @11,@11 0355 01112000 IC @11,PCBFXC(,CPCURPCB) 0355 01113000 SLR @12,@11 0355 01114000 STH @12,PFTFXCT(,PFTEPTR) 0355 01115000 * RESPECIFY 0356 01116000 * PFTEPTR UNRESTRICTED; 0356 01117000 * PCBFXC=0; 0357 01118000 MVI PCBFXC(CPCURPCB),X'00' 0357 01119000 * IF PFTFXCT=0 THEN /* IS FRAME FIX COUNT NOW EQUAL 01120000 * ZERO */ 01121000 LTR @12,@12 0358 01122000 BNZ @RF00358 0358 01123000 * DO; /* YES, DECREMENT COUNTS @YA01572*/ 01124000 * IF PCBVBN>=PVTLCSA THEN/* IS FRAME IN COMMON AREA */ 01125000 CLC PCBVBN(2,CPCURPCB),PVTLCSA(PVTPTR) 0360 01126000 BL @RF00360 0360 01127000 * PVTCOMFX=PVTCOMFX-1;/* YES, COMMON AREA, DECREMENT 01128000 * COMMON AREA COUNT @YA01572*/ 01129000 LH @12,PVTCOMFX(,PVTPTR) 0361 01130000 BCTR @12,0 0361 01131000 STH @12,PVTCOMFX(,PVTPTR) 0361 01132000 * ELSE /* NOT COMMON AREA */ 01133000 * RSMCNTFX=RSMCNTFX-1;/* DECREMENT COUNT FOR THIS 0362 01134000 * ADDRESS SPACE @YA01572*/ 01135000 B @RC00360 0362 01136000 @RF00360 LH @12,RSMCNTFX(,RSMHDPTR) 0362 01137000 BCTR @12,0 0362 01138000 STH @12,RSMCNTFX(,RSMHDPTR) 0362 01139000 * PVTCNTFX=PVTCNTFX-1;/* DECREMENT SYSTEM COUNT 0363 01140000 * @YA01572*/ 01141000 @RC00360 LH @12,PVTCNTFX(,PVTPTR) 0363 01142000 BCTR @12,0 0363 01143000 STH @12,PVTCNTFX(,PVTPTR) 0363 01144000 * END; 0364 01145000 * ELSE 0365 01146000 * ; /* FRAME FIX COUNT IS NOT ZERO */ 01147000 @RF00358 DS 0H 0366 01148000 * END; /* END NON-ZERO PCBFXC PROCESSING*/ 01149000 * ELSE 0367 01150000 * ; /* THE PCB FIX CNT WAS ZERO */ 01151000 @RF00328 DS 0H 0368 01152000 * END; /* END ROOT PCB PROCESSING */ 01153000 * ELSE 0369 01154000 * ; /* NO ROOT EXISTED, NO SPECIAL 0369 01155000 * PCB PROCESSING IS NECESSARY */ 01156000 @RF00320 DS 0H 0370 01157000 * CALL SNOTIFY; /* CALL SNOTIFY FOR ALL INPT 0370 01158000 * PCB'S */ 01159000 * 0370 01160000 BAL @14,SNOTIFY 0370 01161000 * /*****************************************************************/ 01162000 * /* */ 01163000 * /* EXIT CODE */ 01164000 * /* */ 01165000 * /*****************************************************************/ 01166000 * 0371 01167000 *LBERRETN: 0371 01168000 * CPRETREG=CPSBRET3; /* RESTORE THE CALLERS RETURN 0371 01169000 * ADDRESS AND RETURN TO THE 0371 01170000 * CALLER */ 01171000 LBERRETN L CPRETREG,CPSBRET3(,PVTPTR) 0371 01172000 * RESPECIFY 0372 01173000 * PCB BASED(PCBPTR); /* RESTORE PCB BASE PTR TO THE 0372 01174000 * STANDARD PCB REG */ 01175000 * RESPECIFY 0373 01176000 * CPCURPCB UNRESTRICTED; 0373 01177000 * END; /* END SPCBERR INTERNAL PROC */ 01178000 @EL00006 DS 0H 0374 01179000 @EF00006 DS 0H 0374 01180000 @ER00006 BR @14 0374 01181000 * 0375 01182000 * /*****************************************************************/ 01183000 * /* */ 01184000 * /* THE SNOTIFY SUBROUTINE IS CALLED BY THE SPCBNORM OR SPCBERR */ 01185000 * /* SUBROUTINES TO PERFORM ANY NECESSARY NOTIFICATION OF ROUTINES */ 01186000 * /* WAITING FOR PAGING I/O TO COMPLETE. THE INPUT PARAMETER IS THE*/ 01187000 * /* ADDRESS OF THE PCB TO BE PROCESSED IN REGISTER 8(CPCURPCB). */ 01188000 * /* REGISTERS 2, 3, 7(PCBPTR), AND 10 CAN NOT BE DESTROYED BY THIS*/ 01189000 * /* SUBROUTINE. THIS FIRST SEGMENT PROCESSES ANY PCB THAT HAS THE */ 01190000 * /* RESET FLAG ON. THE RESET SUBROUTINE OF PCFLIH IS CALLED IF THE*/ 01191000 * /* PCB WAS FOR AN SRB MODE ROUTINE OR AN UNLOCKED ROUTINE FOR */ 01192000 * /* WHICH PIOCP HOLDS THE LOCAL LOCK. OTHERWISE, THE INTERNAL KEEP*/ 01193000 * /* PCB FLAG IS SET ON AND A RETURN CODE OF 4 SET INTERNALLY FOR */ 01194000 * /* BRANCH ENTRY CALLERS. */ 01195000 * /* */ 01196000 * /*****************************************************************/ 01197000 * 0375 01198000 *SNOTIFY: 0375 01199000 * PROC OPTIONS(NOSAVE NOSAVEAREA); 0375 01200000 SNOTIFY DS 0H 0376 01201000 * CPSBRET4=CPRETREG; /* SAVE THE RETURN ADDRESS */ 01202000 ST CPRETREG,CPSBRET4(,PVTPTR) 0376 01203000 * CPKEEPCB='0'B; /* RESET THE KEEP PCB INDICATOR 01204000 * TO THE FREE PCB VALUE */ 01205000 NI CPKEEPCB(PVTPTR),B'10111111' 0377 01206000 * RESPECIFY 0378 01207000 * CPCURPCB RESTRICTED; 0378 01208000 * RESPECIFY 0379 01209000 * PCB BASED(CPCURPCB); /* THE PCB BASE PTR FOR THIS 0379 01210000 * SUBROUTINE IS THE INPUT 0379 01211000 * PARAMETER REG, NOT THE 0379 01212000 * STANDARD PCB REG FOR THE 0379 01213000 * MODULE */ 01214000 * IF PCBRESET='1'B THEN /* IS RESET TO BE CALLED */ 01215000 TM PCBRESET(CPCURPCB),B'00010000' 0380 01216000 BNO @RF00380 0380 01217000 * DO; /* YES */ 01218000 * IF PCBSRBMD='1'B THEN /* IF THE PCB IS IN SRB MODE, 0382 01219000 * THEN PREPARE THE INPUT REGS TO 01220000 * RESET SUBROUTINE. */ 01221000 TM PCBSRBMD(CPCURPCB),B'00100000' 0382 01222000 BNO @RF00382 0382 01223000 * DO; 0383 01224000 * RESPECIFY 0384 01225000 * (CPRSETR4, 0384 01226000 * CPRSETR5, 0384 01227000 * CPRSETR6) RESTRICTED; 0384 01228000 * CPRSETR4=PCBSRB; /* REG 4 GETS THE SRB ADDR */ 01229000 L CPRSETR4,PCBSRB(,CPCURPCB) 0385 01230000 * CPRSETR5=0; /* REG 5 IS ZERO TO SHOW SRB */ 01231000 SLR CPRSETR5,CPRSETR5 0386 01232000 * END; 0387 01233000 * ELSE /* PCB IN TCB MODE */ 01234000 * DO; 0388 01235000 B @RC00382 0388 01236000 @RF00382 DS 0H 0389 01237000 * IF PCBLLHLD='0'B&CPLLHELD='0'B THEN/* IF A TASK PAGE 0389 01238000 * FAULTED WITHOUT THE LOCAL LOCK 01239000 * AND THE LOCAL LOCK IS NOT HELD 01240000 * CURRENTLY, THE PCB MUST BE 0389 01241000 * KEPT. */ 01242000 TM PCBLLHLD(CPCURPCB),B'00010000' 0389 01243000 BNZ @RF00389 0389 01244000 TM CPLLHELD(PVTPTR),B'10000000' 0389 01245000 BNZ @RF00389 0389 01246000 * DO; 0390 01247000 *LBKEEPCB: /* THIS CODE MAY ALSO GET CONTROL 01248000 * FROM THE ROOT PROCESSING 0391 01249000 * SEGMENT */ 01250000 * CPRCODE='1'B; /* SET INTERNAL RETURN CODE FLAG 01251000 * SO THE BRANCH ENTRY CALLER 0391 01252000 * WILL GET A RETURN CODE 4 */ 01253000 LBKEEPCB DS 0H 0392 01254000 * CPKEEPCB='1'B; /* TELL CALLER NOT TO FREE PCB */ 01255000 OI CPRCODE(PVTPTR),B'01010000' 0392 01256000 * GOTO LBNRMEXT; /* GO TO EXIT PROCESSING */ 01257000 B LBNRMEXT 0393 01258000 * END; 0394 01259000 * ELSE /* OTHERWISE, RESET MAY BE CALLED*/ 01260000 * DO; 0395 01261000 @RF00389 DS 0H 0396 01262000 * CPRSETR4=PCBRTPA; /* REG 4 GETS THE TCB ADDR FOR 0396 01263000 * NON-SRB PCB'S */ 01264000 L CPRSETR4,PCBRTPA-1(,CPCURPCB) 0396 01265000 LA CPRSETR4,0(,CPRSETR4) 0396 01266000 * CPRSETR5=PCBSRB; /* REG 5 GETS THE RB ADDR. NOTE 01267000 * THAT THE PCBSRB FIELD CONTAINS 01268000 * AN RB ADDR IF RESET IS ON AND 01269000 * SRBMD IS OFF */ 01270000 L CPRSETR5,PCBSRB(,CPCURPCB) 0397 01271000 * END; 0398 01272000 * END; /* END NON-SRB PROCESSING */ 01273000 * IF PCBIOERR='0'B THEN /* SET COMPLETION CODE FOR RESET 01274000 * ACCORDING TO PCB I/O ERROR 0400 01275000 * FLAG */ 01276000 @RC00382 TM PCBIOERR(CPCURPCB),B'00100000' 0400 01277000 BNZ @RF00400 0400 01278000 * CPRSETR6=0; /* SUCCESSFUL COMPLETION */ 01279000 SLR CPRSETR6,CPRSETR6 0401 01280000 * ELSE /* I/O ERROR */ 01281000 * CPRSETR6=4; /* UNSUCCESSFUL COMPLETION */ 01282000 B @RC00400 0402 01283000 @RF00400 LA CPRSETR6,4 0402 01284000 * RESPECIFY 0403 01285000 * CPSAVREG RESTRICTED; 0403 01286000 @RC00400 DS 0H 0404 01287000 * CPSAVREG=ADDR(PVTSAVE); /* SET UP SAVE AREA ADDR */ 01288000 LA CPSAVREG,PVTSAVE(,PVTPTR) 0404 01289000 * CALL EPRESET; /* CALL RESET SUBRTN OF PCFLIH */ 01290000 L @15,PVTPRSET(,PVTPTR) 0405 01291000 BALR @14,@15 0405 01292000 * RESPECIFY 0406 01293000 * (CPRSETR4, 0406 01294000 * CPRSETR5, 0406 01295000 * CPRSETR6, 0406 01296000 * CPSAVREG) UNRESTRICTED; 0406 01297000 * END; 0407 01298000 * 0408 01299000 * /*****************************************************************/ 01300000 * /* */ 01301000 * /* THIS SEGMENT PROCESSES ANY ROOT PCB ASSOCIATED WITH THE INPUT */ 01302000 * /* PCB. THE ROOT EXIT ROUTINE ADDRESSED IN THE ROOT IS CALLED IF */ 01303000 * /* THE PCB COUNT IN THE ROOT GOES TO ZERO AND THE LOCAL LOCK IS */ 01304000 * /* HELD BY PIOCP OR IF THE PCB IS A STAGE 1 SWAP PCB FOR A COMMON*/ 01305000 * /* AREA FIXED PAGE. THIS LATTER CASE WILL ONLY OCCUR FOR A */ 01306000 * /* RELATED PCB AS IEAVPIOP HANDLES QUEUED PCB'S OF THIS TYPE. IF */ 01307000 * /* THE LOCAL LOCK IS NOT HELD, THE INTERNAL KEEP PCB FLAG IS SET */ 01308000 * /* BY THE LBKEEPCB CODE IN THE FIRST SEGMENT. IF THE COUNT DOES */ 01309000 * /* NOT GO TO ZERO, NO SPECIAL ACTION IS TAKEN ON BEHALF OF THE */ 01310000 * /* ROOT PCB. THE PCBRFAIL ROOT PCB FLAG IS SET BY THE SPCBERR */ 01311000 * /* SUBROUTINE IF NECESSARY. THEREFORE, THIS CODE DOES NOT HAVE TO*/ 01312000 * /* DISTINGUISH BETWEEN NORMAL AND I/O ERROR PCB'S. IF NO ROOT PCB*/ 01313000 * /* EXISTS, NO NOTIFICATION PROCESSING IS NECESSARY. THIS SEGMENT */ 01314000 * /* ALSO CONTAINS THE EXIT LOGIC FOR ALL OF SNOTIFY. */ 01315000 * /* */ 01316000 * /*****************************************************************/ 01317000 * 0408 01318000 * ELSE 0408 01319000 * DO; 0408 01320000 B @RC00380 0408 01321000 @RF00380 DS 0H 0409 01322000 * IF PCBROOT='1'B THEN /* THIS FLAG INDICATES THE 0409 01323000 * PRESENCE OF A ROOT PCB */ 01324000 TM PCBROOT(CPCURPCB),B'00000100' 0409 01325000 BNO @RF00409 0409 01326000 * DO; 0410 01327000 * RESPECIFY 0411 01328000 * CPWRKRG4 RESTRICTED; 0411 01329000 * CPWRKRG4=PCBRCNT-1; /* GET THE PCB COUNT IN THE ROOT 01330000 * INTO A REGISTER AND DECREMENT 01331000 * IT */ 01332000 L @12,PCBRPTR(,CPCURPCB) 0412 01333000 LH CPWRKRG4,PCBRCNT(,@12) 0412 01334000 BCTR CPWRKRG4,0 0412 01335000 * IF CPWRKRG4=0 THEN /* IF THE COUNT GOES TO ZERO, 0413 01336000 * CHECK FOR LOCAL LOCK HELD. */ 01337000 LTR CPWRKRG4,CPWRKRG4 0413 01338000 BNZ @RF00413 0413 01339000 * DO; 0414 01340000 * IF CPLLHELD='1'B|PCBSWPS1='1'B THEN/* CALL THE ROOT 01341000 * EXIT ROUTINE IF THE LOCAL LOCK 01342000 * IS HELD OR THE PCB IS A STAGE 01343000 * 1 SWAP PCB. */ 01344000 TM CPLLHELD(PVTPTR),B'10000000' 0415 01345000 BO @RT00415 0415 01346000 TM PCBSWPS1(CPCURPCB),B'00100000' 0415 01347000 BNO @RF00415 0415 01348000 @RT00415 DS 0H 0416 01349000 * DO; 0416 01350000 * PCBRCNT=CPWRKRG4;/* SET PCB COUNT IN ROOT TO ZERO*/ 01351000 L @12,PCBRPTR(,CPCURPCB) 0417 01352000 STH CPWRKRG4,PCBRCNT(,@12) 0417 01353000 * RESPECIFY 0418 01354000 * CPARMRG1 RESTRICTED; 0418 01355000 * CPARMRG1=PCBRTPA;/* IF ROOT FLAG ON, THIS FIELD 01356000 * CONTAINS THE ROOT PCB ADDRESS 01357000 * THAT IS PASSED AS A PARAMETER */ 01358000 L CPARMRG1,PCBRTPA-1(,CPCURPCB) 0419 01359000 LA CPARMRG1,0(,CPARMRG1) 0419 01360000 * CALL EPROOTEX; /* CALL THE ROOT EXIT ROUTINE 0420 01361000 * ADDRESSED IN THE ROOT PCB */ 01362000 L @15,PCBRGOTO(,@12) 0420 01363000 BALR @14,@15 0420 01364000 * RCACSECT=RCACCOMP;/* RESET MODULE ID IN RCA */ 01365000 MVI RCACSECT(RCAPTR),X'14' 0421 01366000 * RESPECIFY 0422 01367000 * CPARMRG1 UNRESTRICTED; 0422 01368000 * END; 0423 01369000 * ELSE /* ROOT EXIT CAN NOT BE CALLED */ 01370000 * GOTO LBKEEPCB; /* IF THE ROOT EXIT CAN NOT BE 0424 01371000 * CALLED, TURN ON THE KEEP PCB 01372000 * FLAG. */ 01373000 * END; /* END PCB CNT ZERO PROCESSING */ 01374000 * ELSE /* IF THE PCB COUNT DID NOT GO TO 01375000 * ZERO, STORE DECREMENTED COUNT 01376000 * BACK INTO THE ROOT PCB */ 01377000 * DO; 0426 01378000 B @RC00413 0426 01379000 @RF00413 DS 0H 0427 01380000 * PCBRCNT=CPWRKRG4; 0427 01381000 L @12,PCBRPTR(,CPCURPCB) 0427 01382000 STH CPWRKRG4,PCBRCNT(,@12) 0427 01383000 * RESPECIFY 0428 01384000 * CPWRKRG4 UNRESTRICTED; 0428 01385000 * END; 0429 01386000 * END; /* END ROOT PCB PROCESSING */ 01387000 * ELSE 0431 01388000 * ; /* DO NOTHING IF NO ROOT PCB */ 01389000 @RF00409 DS 0H 0432 01390000 * END; /* END RESET=0 PROCESSING */ 01391000 * 0432 01392000 @RC00409 DS 0H 0433 01393000 * /*****************************************************************/ 01394000 * /* */ 01395000 * /* EXIT PROCESSING IS NOW PERFORMED. */ 01396000 * /* */ 01397000 * /*****************************************************************/ 01398000 * 0433 01399000 *LBNRMEXT: 0433 01400000 * CPRETREG=CPSBRET4; /* RESTORE RETURN ADDRESS AND 0433 01401000 * RETURN TO THE CALLER */ 01402000 @RC00380 DS 0H 0433 01403000 LBNRMEXT L CPRETREG,CPSBRET4(,PVTPTR) 0433 01404000 * RESPECIFY 0434 01405000 * PCB BASED(PCBPTR); /* RESTORE PCB BASE PTR TO THE 0434 01406000 * STANDARD PCB REG */ 01407000 * RESPECIFY 0435 01408000 * CPCURPCB UNRESTRICTED; 0435 01409000 * END; /* END SNOTIFY INTERNAL PROC */ 01410000 @EL00007 DS 0H 0436 01411000 @EF00007 DS 0H 0436 01412000 @ER00007 BR @14 0436 01413000 * END /* END THE EXTERNAL PROC */ 01414000 * 0437 01415000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01416000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01417000 */*%INCLUDE SYSLIB (CVT ) */ 01418000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01419000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01420000 */*%INCLUDE SYSLIB (IHAPVT ) */ 01421000 */*%INCLUDE SYSLIB (IHARSMHD) */ 01422000 */*%INCLUDE SYSLIB (IHAPCB ) */ 01423000 */*%INCLUDE SYSLIB (IHAPCBR ) */ 01424000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 01425000 */*%INCLUDE SYSLIB (IHAFOE ) */ 01426000 */*%INCLUDE SYSLIB (IHAPGTE ) */ 01427000 */*%INCLUDE SYSLIB (IHAXPTE ) */ 01428000 */*%INCLUDE SYSLIB (IHARCA ) */ 01429000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01430000 * 0437 01431000 * ; 0437 01432000 @DATA DS 0H 01433000 @DATD DSECT 01434000 DS 0F 01435000 IEAVIOCP CSECT 01436000 DS 0F 01437000 @CF02093 DC XL4'00000010' 01438000 @CF02180 DC XL4'0000FFFF' 01439000 @DATD DSECT 01440000 DS 0D 01441000 @ENDDATD EQU * 01442000 IEAVIOCP CSECT 01443000 NOPR ((@ENDDATD-@DATD)*16) 01444000 DS 0F 01445000 @SIZDATD DC AL1(0) 01446000 DC AL3(@ENDDATD-@DATD) 01447000 DS 0D 01448000 CPRPFRST DS FL4 01449000 ORG CPRPFRST 01450000 CPCURQN DC X'FF' 01451000 CPCBFQPA DC AL3(0) 01452000 ORG CPRPFRST+4 01453000 CPINITHI DS AL2 01454000 ORG CPINITHI 01455000 CPFRONTQ DC X'80' 01456000 CPTQID DC X'00' 01457000 ORG CPINITHI+2 01458000 @CB02091 DC X'0009' 01459000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01460000 @01 EQU 01 01461000 @02 EQU 02 01462000 @03 EQU 03 01463000 @04 EQU 04 01464000 @05 EQU 05 01465000 @06 EQU 06 01466000 @07 EQU 07 01467000 @08 EQU 08 01468000 @09 EQU 09 01469000 @10 EQU 10 01470000 @11 EQU 11 01471000 @12 EQU 12 01472000 @13 EQU 13 01473000 @14 EQU 14 01474000 @15 EQU 15 01475000 PVTPTR EQU @03 01476000 RSMHDPTR EQU @02 01477000 PCBPTR EQU @07 01478000 PFTEPTR EQU @06 01479000 FOEPTR EQU @06 01480000 RCAPTR EQU @09 01481000 CPARMRG0 EQU @00 01482000 CPARMRG1 EQU @01 01483000 CPRSETR4 EQU @04 01484000 CPWRKRG4 EQU @04 01485000 CPRSETR5 EQU @05 01486000 CPWRKRG5 EQU @05 01487000 CPRSETR6 EQU @06 01488000 CPCURPCB EQU @08 01489000 CPBASE10 EQU @10 01490000 CPSAVREG EQU @13 01491000 CPRETREG EQU @14 01492000 CPRETCOD EQU @15 01493000 CPLKCODE EQU @13 01494000 PSA EQU 0 01495000 FLCRNPSW EQU PSA 01496000 FLCROPSW EQU PSA+8 01497000 FLCICCW2 EQU PSA+16 01498000 FLCCVT EQU FLCICCW2 01499000 PSAEEPSW EQU PSA+132 01500000 PSAESPSW EQU PSA+136 01501000 FLCSVILC EQU PSAESPSW+1 01502000 PSAEPPSW EQU PSA+140 01503000 FLCPIILC EQU PSAEPPSW+1 01504000 FLCPICOD EQU PSAEPPSW+2 01505000 PSAPICOD EQU FLCPICOD+1 01506000 FLCTEA EQU PSAEPPSW+4 01507000 FLCPER EQU PSA+152 01508000 FLCMCLA EQU PSA+168 01509000 FLCIOEL EQU FLCMCLA+4 01510000 FLCIOA EQU FLCMCLA+16 01511000 FLCFSA EQU FLCMCLA+80 01512000 PSAAOLD EQU PSA+548 01513000 PSASUPER EQU PSA+552 01514000 PSASUP1 EQU PSASUPER 01515000 PSASUP2 EQU PSASUPER+1 01516000 PSASUP3 EQU PSASUPER+2 01517000 PSASUP4 EQU PSASUPER+3 01518000 PSACLHT EQU PSA+640 01519000 PSALKSA EQU PSA+696 01520000 PSAHLHI EQU PSA+760 01521000 PSADSSFL EQU PSA+836 01522000 PSADSSF1 EQU PSADSSFL 01523000 PSADSSF3 EQU PSADSSFL+2 01524000 PSADSSF4 EQU PSADSSFL+3 01525000 PSARSVT EQU PSA+896 01526000 CVTMAP EQU 0 01527000 CVTDAR EQU CVTMAP+72 01528000 CVTFLGS1 EQU CVTDAR 01529000 CVTDCB EQU CVTMAP+116 01530000 CVTIERLC EQU CVTMAP+144 01531000 CVTOPTA EQU CVTMAP+182 01532000 CVTOPTB EQU CVTMAP+183 01533000 CVTGTF EQU CVTMAP+236 01534000 CVTGTFST EQU CVTGTF 01535000 CVTGTFS EQU CVTGTFST 01536000 CVTSTATE EQU CVTGTFST 01537000 CVTTMODE EQU CVTGTFST 01538000 CVTFORM EQU CVTGTFST 01539000 CVTAQAVT EQU CVTMAP+240 01540000 CVTTCMFG EQU CVTAQAVT 01541000 CVTVOLM2 EQU CVTMAP+244 01542000 CVTTATA EQU CVTVOLM2 01543000 CVTTSKS EQU CVTTATA 01544000 CVTVOLF2 EQU CVTTSKS 01545000 CVTTAT EQU CVTTATA+1 01546000 CVTATER EQU CVTMAP+248 01547000 CVTEXT1 EQU CVTMAP+252 01548000 CVTPURG EQU CVTMAP+260 01549000 CVTQMSG EQU CVTMAP+268 01550000 CVTDMSR EQU CVTMAP+272 01551000 CVTRSV37 EQU CVTDMSR 01552000 CVTDMSRF EQU CVTRSV37 01553000 CVTERPV EQU CVTMAP+316 01554000 CVTINTLA EQU CVTMAP+320 01555000 CVTAPF EQU CVTMAP+324 01556000 CVTEXT2 EQU CVTMAP+328 01557000 CVTHJES EQU CVTMAP+332 01558000 CVTPGSIA EQU CVTMAP+348 01559000 CVTA1F1 EQU CVTMAP+356 01560000 CVTSYSK EQU CVTMAP+357 01561000 CVTVOLM1 EQU CVTMAP+380 01562000 CVTVOLF1 EQU CVTVOLM1 01563000 CVTXTNT1 EQU 0 01564000 CVTXTNT2 EQU 0 01565000 CVTDSSV EQU CVTXTNT2 01566000 CVTFLGBT EQU CVTXTNT2+5 01567000 CVTQID EQU CVTXTNT2+24 01568000 CVTRV400 EQU CVTXTNT2+52 01569000 CVTRV409 EQU CVTXTNT2+53 01570000 CVTATCVT EQU CVTXTNT2+64 01571000 CVTRV429 EQU CVTXTNT2+84 01572000 CVTRV438 EQU CVTXTNT2+85 01573000 CVTRV457 EQU CVTXTNT2+112 01574000 CVTRV466 EQU CVTXTNT2+113 01575000 CVTFIX EQU 0 01576000 CVTRELNO EQU CVTFIX+252 01577000 ASCB EQU 0 01578000 ASCBSUPC EQU ASCB+16 01579000 ASCBRSM EQU ASCB+52 01580000 ASCBFW1 EQU ASCB+100 01581000 ASCBRCTF EQU ASCBFW1+2 01582000 ASCBFLG1 EQU ASCBFW1+3 01583000 ASCBDSP1 EQU ASCB+114 01584000 ASCBFLG2 EQU ASCB+115 01585000 ASCBLKGP EQU ASCB+128 01586000 ASCBSRQ EQU ASCB+180 01587000 ASCBSRQ1 EQU ASCBSRQ 01588000 ASCBSRQ2 EQU ASCBSRQ+1 01589000 ASCBSRQ3 EQU ASCBSRQ+2 01590000 ASCBSRQ4 EQU ASCBSRQ+3 01591000 TCBFIX EQU 0 01592000 TCBFRS EQU TCBFIX 01593000 TCB EQU 0 01594000 TCBPIE EQU TCB+4 01595000 TCBPMASK EQU TCBPIE 01596000 TCBCMP EQU TCB+16 01597000 TCBCMPF EQU TCBCMP 01598000 TCBCPP EQU TCBCMPF 01599000 TCBSTCC EQU TCBCMPF 01600000 TCBCDBL EQU TCBCMPF 01601000 TCBCWTO EQU TCBCMPF 01602000 TCBCIND EQU TCBCMPF 01603000 TCBCMSG EQU TCBCMPF 01604000 TCBTRN EQU TCB+20 01605000 TCBABF EQU TCBTRN 01606000 TCBMSS EQU TCB+24 01607000 TCBPKF EQU TCB+28 01608000 TCBFLGS EQU TCB+29 01609000 TCBFLGS1 EQU TCBFLGS 01610000 TCBFLGS2 EQU TCBFLGS+1 01611000 TCBFLGS3 EQU TCBFLGS+2 01612000 TCBFLGS4 EQU TCBFLGS+3 01613000 TCBFLGS5 EQU TCBFLGS+4 01614000 TCBABWF EQU TCBFLGS5 01615000 TCBJPQ EQU TCB+44 01616000 TCBPURGE EQU TCBJPQ 01617000 TCBGRS EQU TCB+48 01618000 TCBFSA EQU TCB+112 01619000 TCBTME EQU TCB+120 01620000 TCBJSTCB EQU TCB+124 01621000 TCBTSFLG EQU TCB+148 01622000 TCBTSTSK EQU TCBTSFLG 01623000 TCBSTAB EQU TCB+160 01624000 TCBNSTAE EQU TCBSTAB 01625000 TCBTCT EQU TCB+164 01626000 TCBTCTGF EQU TCBTCT 01627000 TCBSCNDY EQU TCB+172 01628000 TCBNDSP EQU TCBSCNDY 01629000 TCBNDSP1 EQU TCBNDSP+1 01630000 TCBNDSP2 EQU TCBNDSP+2 01631000 TCBNDSP3 EQU TCBNDSP+3 01632000 TCBJSCB EQU TCB+180 01633000 TCBRECDE EQU TCBJSCB 01634000 TCBEXT1 EQU TCB+196 01635000 TCBBITS EQU TCB+200 01636000 TCBNDSP4 EQU TCBBITS 01637000 TCBNDSP5 EQU TCBBITS+1 01638000 TCBFLGS6 EQU TCBBITS+2 01639000 TCBFLGS7 EQU TCBBITS+3 01640000 TCBDAR EQU TCB+204 01641000 TCBDARC EQU TCBDAR 01642000 TCBEXT2 EQU TCB+208 01643000 TCBXSCT EQU TCB+240 01644000 TCBXSCT1 EQU TCBXSCT 01645000 TCBFOE EQU TCB+244 01646000 TCBFOEA EQU TCBFOE+1 01647000 TCBESTAE EQU TCB+264 01648000 TCBESTRM EQU TCBESTAE+1 01649000 TCBFBYT1 EQU TCB+276 01650000 TCBFBYT2 EQU TCB+277 01651000 TCBRV124 EQU TCB+278 01652000 TCBRV133 EQU TCB+279 01653000 TCBXTNT2 EQU 0 01654000 TCBGTF EQU TCBXTNT2 01655000 TCBTFLG EQU TCBGTF 01656000 TCBRV146 EQU TCBXTNT2+28 01657000 TCBRV155 EQU TCBXTNT2+29 01658000 TCBRV164 EQU TCBXTNT2+30 01659000 TCBRV173 EQU TCBXTNT2+31 01660000 PVT EQU 0 01661000 PVTFLAG1 EQU PVT 01662000 PVTPFTP EQU PVT+12 01663000 PVTLCSA EQU PVT+26 01664000 PVTPRCA EQU PVT+52 01665000 PVTSRBID EQU PVT+68 01666000 PVTPCB EQU PVT+104 01667000 PVTPFTE EQU PVT+108 01668000 PVTPRCV EQU PVT+156 01669000 PVTPRELF EQU PVT+216 01670000 PVTPOPBR EQU PVT+220 01671000 PVTPRSET EQU PVT+244 01672000 PVTQS EQU PVT+304 01673000 PVTWSAX EQU PVT+344 01674000 PVTWSA10 EQU PVTWSAX+672 01675000 PVTSAVE EQU PVTWSAX+1328 01676000 PVTCNTFX EQU PVT+1830 01677000 PVTCOMFX EQU PVT+1834 01678000 PVTPCBQS EQU PVT+1852 01679000 PVTCIOQL EQU PVTPCBQS+36 01680000 RSMHD EQU 0 01681000 RSMFLG1 EQU RSMHD+12 01682000 RSMIOCPU EQU RSMFLG1 01683000 RSMIOCPC EQU RSMFLG1 01684000 RSMCNTFX EQU RSMHD+14 01685000 RSMQS EQU RSMHD+20 01686000 RSMLFQ EQU RSMQS 01687000 RSMLSQA EQU RSMQS+4 01688000 RSMLIOQ EQU RSMQS+8 01689000 RSMLIOQL EQU RSMLIOQ+4 01690000 PCB EQU 0 01691000 PCBFQP EQU PCB 01692000 PCBCQN EQU PCBFQP 01693000 PCBBQP EQU PCB+4 01694000 PCBBQPA EQU PCBBQP 01695000 PCBRTP EQU PCB+8 01696000 PCBFL1 EQU PCBRTP 01697000 PCBSRBMD EQU PCBFL1 01698000 PCBLLHLD EQU PCBFL1 01699000 PCBROOT EQU PCBFL1 01700000 PCBIOCMP EQU PCBFL1 01701000 PCBRTPA EQU PCBRTP+1 01702000 PCBRLP EQU PCB+12 01703000 PCBFXC EQU PCBRLP 01704000 PCBRLPA EQU PCBRLP+1 01705000 PCBXPT EQU PCB+16 01706000 PCBFL2 EQU PCBXPT 01707000 PCBFREAL EQU PCBFL2 01708000 PCBIOERR EQU PCBFL2 01709000 PCBRESET EQU PCBFL2 01710000 PCBPGT EQU PCB+20 01711000 PCBFL3 EQU PCBPGT 01712000 PCBSWPS1 EQU PCBFL3 01713000 PCBSWPS2 EQU PCBFL3 01714000 PCBRBN EQU PCB+24 01715000 PCBVBN EQU PCB+26 01716000 PCBBLOCK EQU PCB+28 01717000 PCBSRB EQU PCBBLOCK 01718000 PCBRB EQU PCBSRB 01719000 PCBASCB EQU PCB+32 01720000 PCBR EQU 0 01721000 PCBRTCB EQU PCBR 01722000 PCBRFLAG EQU PCBRTCB 01723000 PCBRPB EQU PCBRFLAG 01724000 PCBRFAIL EQU PCBRFLAG 01725000 PCBRTCBA EQU PCBRTCB+1 01726000 PCBRGOTO EQU PCBR+4 01727000 PCBRCNT EQU PCBR+16 01728000 PFTE EQU 0 01729000 PFTPGID EQU PFTE 01730000 PFTVBN EQU PFTPGID+2 01731000 PFTQPTRS EQU PFTE+4 01732000 PFTFXCT EQU PFTE+8 01733000 PFTFLAGS EQU PFTE+12 01734000 PFTFLAG1 EQU PFTFLAGS 01735000 PFTPCBSI EQU PFTFLAG1 01736000 PFTFLAG2 EQU PFTFLAGS+1 01737000 PFTDFRLS EQU PFTFLAG2 01738000 FOE EQU 0 01739000 FOEFLNKF EQU FOE 01740000 FOEFLAG EQU FOEFLNKF 01741000 FOEFLINK EQU FOEFLNKF+1 01742000 FOEVINDX EQU FOE+4 01743000 FOEFXCT EQU FOE+6 01744000 PGTPTE EQU 0 01745000 PGTRSA EQU PGTPTE 01746000 PGTBITS EQU PGTRSA+1 01747000 PGTPVM EQU PGTBITS 01748000 XPTE EQU 0 01749000 XPTPROT EQU XPTE 01750000 XPTFLAGS EQU XPTE+2 01751000 XPTFLAG2 EQU XPTE+3 01752000 XPTLPID EQU XPTE+4 01753000 XPTLGN EQU XPTLPID 01754000 XPTLPN EQU XPTLPID+4 01755000 RCA EQU 0 01756000 RCANAME7 EQU RCA+8 01757000 RCACSECT EQU RCA+9 01758000 RCAFLAGS EQU RCA+10 01759000 RCASAL EQU RCAFLAGS 01760000 RCALL EQU RCAFLAGS 01761000 RCARCRD EQU RCA+11 01762000 RCANAMES EQU RCA+12 01763000 RCANAME1 EQU RCANAMES 01764000 RCANAME2 EQU RCANAMES+1 01765000 RCAIOCP EQU RCANAME2 01766000 RCANAME3 EQU RCANAMES+2 01767000 RCANAME4 EQU RCANAMES+3 01768000 RCANAME5 EQU RCANAMES+4 01769000 RCANAME6 EQU RCANAMES+5 01770000 FRRS EQU 0 01771000 FRRSHEAD EQU FRRS 01772000 FRRSCURR EQU FRRSHEAD+12 01773000 FRRSENTR EQU 0 01774000 FRRSFLGS EQU FRRSENTR+4 01775000 FRRSFLG1 EQU FRRSFLGS 01776000 EPPCBMGR EQU 0 01777000 EPFTENDQ EQU 0 01778000 EPSCHED EQU 0 01779000 EPDEFREL EQU 0 01780000 EPROOTEX EQU 0 01781000 EPRESET EQU 0 01782000 FOEEND EQU 0 01783000 PGTEND EQU 0 01784000 PSARSVTE EQU PSARSVT 01785000 PSACSTK EQU PSARSVTE 01786000 CVTPTR EQU FLCCVT 01787000 CVTS01 EQU CVTPGSIA 01788000 CVTPVTP EQU CVTS01+8 01789000 CVTLPDIA EQU CVTS01+12 01790000 CVTDIRST EQU CVTLPDIA 01791000 CVTSLIDA EQU CVTS01+24 01792000 CVTCTLFG EQU CVTS01+50 01793000 CVTSRBRT EQU CVTS01+100 01794000 CVTRV210 EQU CVTS01+424 01795000 CVTRV219 EQU CVTS01+425 01796000 CVTRV228 EQU CVTS01+426 01797000 CVTRV237 EQU CVTS01+427 01798000 CVTMFRTR EQU CVTS01+452 01799000 CVTRV262 EQU CVTS01+468 01800000 CVTRV271 EQU CVTS01+469 01801000 CVTRV280 EQU CVTS01+470 01802000 CVTRV289 EQU CVTS01+471 01803000 CVTGSDA EQU CVTS01+600 01804000 ASCBPTR EQU PSAAOLD 01805000 TCBPTR EQU PCBRTCB 01806000 PCBRPTR EQU PCBRTP 01807000 PTEPTR EQU PCBPGT 01808000 XPTEPTR EQU PCBXPT 01809000 FRRSPTR EQU PSACSTK 01810000 FRREPTR EQU FRRSCURR 01811000 CPWSA10 EQU PVTWSA10 01812000 CPWKAREA EQU CPWSA10+52 01813000 CPSBRET1 EQU CPWKAREA 01814000 CPSBRET2 EQU CPWKAREA+4 01815000 CPSBRET3 EQU CPWKAREA+8 01816000 CPSBRET4 EQU CPWKAREA+12 01817000 CPBAKSAV EQU CPWKAREA+16 01818000 @NM00057 EQU CPWKAREA+20 01819000 CPFLAGS EQU @NM00057 01820000 CPLLHELD EQU CPFLAGS 01821000 CPKEEPCB EQU CPFLAGS 01822000 CPFREREL EQU CPFLAGS 01823000 CPRCODE EQU CPFLAGS 01824000 CPREVREL EQU @NM00057+1 01825000 CPENQDEQ EQU CPWKAREA+24 01826000 CPHI2BYT EQU CPENQDEQ 01827000 CPRBNPRM EQU CPENQDEQ+2 01828000 FLC EQU PSA 01829000 * START UNREFERENCED COMPONENTS 01830000 @NM00058 EQU CPFLAGS 01831000 CPSVREGS EQU CPWSA10 01832000 CVTRV628 EQU CVTS01+728 01833000 CVTRV627 EQU CVTS01+724 01834000 CVTRV626 EQU CVTS01+720 01835000 CVTRV625 EQU CVTS01+716 01836000 CVTRV624 EQU CVTS01+712 01837000 CVTRV623 EQU CVTS01+708 01838000 CVTRV622 EQU CVTS01+704 01839000 CVTRV621 EQU CVTS01+700 01840000 CVTIHASU EQU CVTS01+696 01841000 CVTSUSP EQU CVTS01+692 01842000 CVTT6SVC EQU CVTS01+688 01843000 CVTCDAL EQU CVTS01+684 01844000 CVTTCTL EQU CVTS01+680 01845000 CVTRSUME EQU CVTS01+676 01846000 CVTJTERM EQU CVTS01+672 01847000 CVTASMRM EQU CVTS01+668 01848000 CVTTCASP EQU CVTS01+664 01849000 CVT0PT03 EQU CVTS01+660 01850000 CVT0PT0E EQU CVTS01+656 01851000 CVTRV609 EQU CVTS01+652 01852000 CVTCGK EQU CVTS01+648 01853000 CVTRAC EQU CVTS01+644 01854000 CVTRV606 EQU CVTS01+640 01855000 CVTRV605 EQU CVTS01+636 01856000 CVTRV604 EQU CVTS01+632 01857000 CVTEFF02 EQU CVTS01+628 01858000 CVTCBBR EQU CVTS01+624 01859000 CVTSSCR EQU CVTS01+620 01860000 CVTEVENT EQU CVTS01+616 01861000 CVTCRCA EQU CVTS01+612 01862000 CVTTPIO EQU CVTS01+608 01863000 CVTADV EQU CVTS01+604 01864000 CVTGSDAB EQU CVTGSDA 01865000 CVTQV3 EQU CVTS01+596 01866000 CVTQV2 EQU CVTS01+592 01867000 CVTQV1 EQU CVTS01+588 01868000 CVTRPT EQU CVTS01+584 01869000 CVTSSRB EQU CVTS01+580 01870000 CVTCSDRL EQU CVTS01+576 01871000 CVTEXP1 EQU CVTS01+572 01872000 CVTRMPMT EQU CVTS01+568 01873000 CVTRMPTT EQU CVTS01+564 01874000 CVTVPSA EQU CVTS01+560 01875000 CVTVSTOP EQU CVTS01+556 01876000 CVTGTFR8 EQU CVTS01+552 01877000 CVTQUIT EQU CVTS01+548 01878000 CVTVACR EQU CVTS01+544 01879000 CVTWTCB EQU CVTS01+540 01880000 CVTSTPRS EQU CVTS01+536 01881000 CVT0PT02 EQU CVTS01+532 01882000 CVTDARCM EQU CVTS01+528 01883000 CVTIRECM EQU CVTS01+524 01884000 CVTJRECM EQU CVTS01+520 01885000 CVTVEMS0 EQU CVTS01+516 01886000 CVTSPFRR EQU CVTS01+512 01887000 CVTRLSTG EQU CVTS01+508 01888000 CVT0TC0A EQU CVTS01+504 01889000 CVTGMBR EQU CVTS01+500 01890000 CVTLFRM EQU CVTS01+496 01891000 CVTRMBR EQU CVTS01+492 01892000 CVTVIOP EQU CVTS01+488 01893000 CVTRV307 EQU CVTS01+486 01894000 CVTRV306 EQU CVTS01+484 01895000 CVTRV305 EQU CVTS01+482 01896000 CVTRV304 EQU CVTS01+480 01897000 CVTRV303 EQU CVTS01+478 01898000 CVTRV302 EQU CVTS01+476 01899000 CVTTRCA EQU CVTS01+472 01900000 CVTRV297 EQU CVTRV289 01901000 CVTRV296 EQU CVTRV289 01902000 CVTRV295 EQU CVTRV289 01903000 CVTRV294 EQU CVTRV289 01904000 CVTRV293 EQU CVTRV289 01905000 CVTRV292 EQU CVTRV289 01906000 CVTRV291 EQU CVTRV289 01907000 CVTRV290 EQU CVTRV289 01908000 CVTRV288 EQU CVTRV280 01909000 CVTRV287 EQU CVTRV280 01910000 CVTRV286 EQU CVTRV280 01911000 CVTRV285 EQU CVTRV280 01912000 CVTRV284 EQU CVTRV280 01913000 CVTRV283 EQU CVTRV280 01914000 CVTRV282 EQU CVTRV280 01915000 CVTRV281 EQU CVTRV280 01916000 CVTRV279 EQU CVTRV271 01917000 CVTRV278 EQU CVTRV271 01918000 CVTRV277 EQU CVTRV271 01919000 CVTRV276 EQU CVTRV271 01920000 CVTRV275 EQU CVTRV271 01921000 CVTRV274 EQU CVTRV271 01922000 CVTRV273 EQU CVTRV271 01923000 CVTRV272 EQU CVTRV271 01924000 CVTRV270 EQU CVTRV262 01925000 CVTRV269 EQU CVTRV262 01926000 CVTRV268 EQU CVTRV262 01927000 CVTRV267 EQU CVTRV262 01928000 CVTRV266 EQU CVTRV262 01929000 CVTRV265 EQU CVTRV262 01930000 CVTRV264 EQU CVTRV262 01931000 CVTRV263 EQU CVTRV262 01932000 CVTVFP EQU CVTS01+464 01933000 CVTVSI EQU CVTS01+460 01934000 CVTVPSIB EQU CVTS01+456 01935000 CVTMFACT EQU CVTMFRTR 01936000 CVTMFCTL EQU CVTS01+448 01937000 CVTPVBP EQU CVTS01+444 01938000 CVTPWI EQU CVTS01+440 01939000 CVTRV254 EQU CVTS01+438 01940000 CVTRV253 EQU CVTS01+436 01941000 CVTRV252 EQU CVTS01+434 01942000 CVTRV251 EQU CVTS01+433 01943000 CVTRV250 EQU CVTS01+432 01944000 CVTRV249 EQU CVTS01+431 01945000 CVTRV248 EQU CVTS01+430 01946000 CVTRV247 EQU CVTS01+429 01947000 CVTRV246 EQU CVTS01+428 01948000 CVTRV245 EQU CVTRV237 01949000 CVTRV244 EQU CVTRV237 01950000 CVTRV243 EQU CVTRV237 01951000 CVTRV242 EQU CVTRV237 01952000 CVTRV241 EQU CVTRV237 01953000 CVTRV240 EQU CVTRV237 01954000 CVTRV239 EQU CVTRV237 01955000 CVTRV238 EQU CVTRV237 01956000 CVTRV236 EQU CVTRV228 01957000 CVTRV235 EQU CVTRV228 01958000 CVTRV234 EQU CVTRV228 01959000 CVTRV233 EQU CVTRV228 01960000 CVTRV232 EQU CVTRV228 01961000 CVTRV231 EQU CVTRV228 01962000 CVTRV230 EQU CVTRV228 01963000 CVTRV229 EQU CVTRV228 01964000 CVTRV227 EQU CVTRV219 01965000 CVTRV226 EQU CVTRV219 01966000 CVTRV225 EQU CVTRV219 01967000 CVTRV224 EQU CVTRV219 01968000 CVTRV223 EQU CVTRV219 01969000 CVTRV222 EQU CVTRV219 01970000 CVTRV221 EQU CVTRV219 01971000 CVTRV220 EQU CVTRV219 01972000 CVTRV218 EQU CVTRV210 01973000 CVTRV217 EQU CVTRV210 01974000 CVTRV216 EQU CVTRV210 01975000 CVTRV215 EQU CVTRV210 01976000 CVTRV214 EQU CVTRV210 01977000 CVTRV213 EQU CVTRV210 01978000 CVTRV212 EQU CVTRV210 01979000 CVTRV211 EQU CVTRV210 01980000 CVTLCCAT EQU CVTS01+420 01981000 CVTPCCAT EQU CVTS01+416 01982000 CVTIPCRP EQU CVTS01+412 01983000 CVTIPCRI EQU CVTS01+408 01984000 CVTIPCDS EQU CVTS01+404 01985000 CVTAIDVT EQU CVTS01+400 01986000 CVTSSAP EQU CVTS01+396 01987000 CVTEHCIR EQU CVTS01+392 01988000 CVTEHDEF EQU CVTS01+388 01989000 CVTDAIR EQU CVTS01+384 01990000 CVTPERFM EQU CVTS01+380 01991000 CVT044R2 EQU CVTS01+376 01992000 CVTFETCH EQU CVTS01+372 01993000 CVTRSTWD EQU CVTS01+368 01994000 CVTSPOST EQU CVTS01+364 01995000 CVTIOBP EQU CVTS01+360 01996000 CVTASMVT EQU CVTS01+356 01997000 CVTRECRQ EQU CVTS01+352 01998000 CVTWSAC EQU CVTS01+348 01999000 CVTRV149 EQU CVTS01+344 02000000 CVTWSAL EQU CVTS01+340 02001000 CVTSPSA EQU CVTS01+336 02002000 CVTGLMN EQU CVTS01+332 02003000 CVTVEAC0 EQU CVTS01+328 02004000 CVT062R1 EQU CVTS01+324 02005000 CVTRPOST EQU CVTS01+320 02006000 CVTDQIQE EQU CVTS01+316 02007000 CVTCSD EQU CVTS01+312 02008000 CVTLKRMA EQU CVTS01+308 02009000 CVTRSPIE EQU CVTS01+304 02010000 CVTRENQ EQU CVTS01+300 02011000 CVTLQCB EQU CVTS01+296 02012000 CVTFQCB EQU CVTS01+292 02013000 CVTQCS01 EQU CVTS01+288 02014000 CVTAPFT EQU CVTS01+284 02015000 CVTPARRL EQU CVTS01+280 02016000 CVTVWAIT EQU CVTS01+276 02017000 CVTGSPL EQU CVTS01+272 02018000 CVTLSMQ EQU CVTS01+268 02019000 CVTGSMQ EQU CVTS01+264 02020000 CVTEXPRO EQU CVTS01+260 02021000 CVTOPCTP EQU CVTS01+256 02022000 CVTSIC EQU CVTS01+252 02023000 CVTTPIOS EQU CVTS01+248 02024000 CVTRTMS EQU CVTS01+244 02025000 CVTSDBF EQU CVTS01+240 02026000 CVTSCBP EQU CVTS01+236 02027000 CVTSDMP EQU CVTS01+232 02028000 CVTSV60 EQU CVTS01+228 02029000 CVTRTMCT EQU CVTS01+224 02030000 CVTASCBL EQU CVTS01+220 02031000 CVTASCBH EQU CVTS01+216 02032000 CVTGDA EQU CVTS01+212 02033000 CVTASVT EQU CVTS01+208 02034000 CVTVVMDI EQU CVTS01+204 02035000 CVTAQTOP EQU CVTS01+200 02036000 CVTIOSCS EQU CVTS01+196 02037000 CVTSDRM EQU CVTS01+192 02038000 CVTOPTE EQU CVTS01+188 02039000 CVTSTXU EQU CVTS01+184 02040000 CVTQUIS EQU CVTS01+180 02041000 CVTPARS EQU CVTS01+176 02042000 CVTS1EE EQU CVTS01+172 02043000 CVTFRAS EQU CVTS01+168 02044000 CVTQSAS EQU CVTS01+164 02045000 CVTCRAS EQU CVTS01+160 02046000 CVTCRMN EQU CVTS01+156 02047000 CVTDELCP EQU CVTS01+152 02048000 CVTFRECL EQU CVTS01+148 02049000 CVTGETCL EQU CVTS01+144 02050000 CVTBLDCP EQU CVTS01+140 02051000 CVTAUTHL EQU CVTS01+136 02052000 CVTSCAN EQU CVTS01+132 02053000 CVTRV144 EQU CVTS01+130 02054000 CVTMAXMP EQU CVTS01+128 02055000 CVTSTCK EQU CVTS01+124 02056000 CVTRV139 EQU CVTS01+123 02057000 CVTDSSAC EQU CVTS01+122 02058000 CVTRV513 EQU CVTS01+121 02059000 CVTIOSPL EQU CVTS01+120 02060000 CVTPTGT EQU CVTS01+116 02061000 CVTCSPIE EQU CVTS01+112 02062000 CVTSMFEX EQU CVTS01+108 02063000 CVTOLT0A EQU CVTS01+104 02064000 CVTPUTL EQU CVTS01+96 02065000 CVTASCRL EQU CVTS01+92 02066000 CVTASCRF EQU CVTS01+88 02067000 CVTRV326 EQU CVTS01+84 02068000 CVTRV325 EQU CVTS01+80 02069000 CVTRV324 EQU CVTS01+76 02070000 CVT0VL01 EQU CVTS01+72 02071000 CVTSHRVM EQU CVTS01+68 02072000 CVTRV332 EQU CVTS01+64 02073000 CVTTAS EQU CVTS01+60 02074000 CVTRSCN EQU CVTS01+56 02075000 CVTTRAC2 EQU CVTS01+54 02076000 CVTTRACE EQU CVTS01+52 02077000 CVTAPG EQU CVTS01+51 02078000 CVTSDTRC EQU CVTCTLFG 02079000 CVTGTRCE EQU CVTCTLFG 02080000 CVTNOMP EQU CVTCTLFG 02081000 CVTRSV79 EQU CVTCTLFG 02082000 CVTDSTAT EQU CVTCTLFG 02083000 CVTRSV78 EQU CVTCTLFG 02084000 CVTRV333 EQU CVTCTLFG 02085000 CVTRV323 EQU CVTCTLFG 02086000 CVTSPVLK EQU CVTS01+49 02087000 CVTRSV77 EQU CVTS01+48 02088000 CVTRV331 EQU CVTS01+44 02089000 CVTRV330 EQU CVTS01+40 02090000 CVTRV329 EQU CVTS01+36 02091000 CVTRV328 EQU CVTS01+32 02092000 CVTRV322 EQU CVTS01+28 02093000 CVTSLID EQU CVTSLIDA+1 02094000 CVTSYLK EQU CVTSLIDA 02095000 CVTRV321 EQU CVTS01+20 02096000 CVTRV320 EQU CVTS01+16 02097000 CVTLPDIR EQU CVTLPDIA+1 02098000 CVTRSV69 EQU CVTDIRST 02099000 CVTRSV68 EQU CVTDIRST 02100000 CVTRSV67 EQU CVTDIRST 02101000 CVTRSV66 EQU CVTDIRST 02102000 CVTRSV65 EQU CVTDIRST 02103000 CVTRSV64 EQU CVTDIRST 02104000 CVTRSV63 EQU CVTDIRST 02105000 CVTDICOM EQU CVTDIRST 02106000 CVTLPDSR EQU CVTS01+4 02107000 CVTGETL EQU CVTS01 02108000 PSARSAV EQU PSARSVTE+60 02109000 PSARSTK EQU PSARSVTE+56 02110000 PSAESAV3 EQU PSARSVTE+52 02111000 PSAESTK3 EQU PSARSVTE+48 02112000 PSAESAV2 EQU PSARSVTE+44 02113000 PSAESTK2 EQU PSARSVTE+40 02114000 PSAESAV1 EQU PSARSVTE+36 02115000 PSAESTK1 EQU PSARSVTE+32 02116000 PSAPSAV EQU PSARSVTE+28 02117000 PSAPSTK EQU PSARSVTE+24 02118000 PSAMSAV EQU PSARSVTE+20 02119000 PSAMSTK EQU PSARSVTE+16 02120000 PSASSAV EQU PSARSVTE+12 02121000 PSASSTK EQU PSARSVTE+8 02122000 PSANSTK EQU PSARSVTE+4 02123000 FRRSPARM EQU FRRSENTR+8 02124000 @NM00056 EQU FRRSFLGS+1 02125000 @NM00055 EQU FRRSFLG1 02126000 FRRSNEST EQU FRRSFLG1 02127000 FRRSRCUR EQU FRRSFLG1 02128000 FRRSFRRA EQU FRRSENTR 02129000 FRRSENTS EQU FRRS+84 02130000 FRRSRTMW EQU FRRS+16 02131000 FRRSELEN EQU FRRSHEAD+8 02132000 FRRSLAST EQU FRRSHEAD+4 02133000 FRRSEMP EQU FRRSHEAD 02134000 RCARETAD EQU RCA+20 02135000 RCATASID EQU RCA+18 02136000 RCAREP1 EQU RCANAME6 02137000 RCAPSIF EQU RCANAME6 02138000 RCAPSIX EQU RCANAME6 02139000 RCAVEQRP EQU RCANAME6 02140000 RCARCFC EQU RCANAME6 02141000 RCACSGB EQU RCANAME6 02142000 RCAFXL EQU RCANAME6 02143000 RCAPS113 EQU RCANAME6 02144000 RCAFREE EQU RCANAME5 02145000 RCARFR2 EQU RCANAME5 02146000 RCACPBR EQU RCANAME5 02147000 RCAOPBR EQU RCANAME5 02148000 RCASORT EQU RCANAME5 02149000 RCASIRT EQU RCANAME5 02150000 RCARELV EQU RCANAME5 02151000 RCARELF EQU RCANAME5 02152000 RCAGFAD EQU RCANAME4 02153000 RCAVEQRI EQU RCANAME4 02154000 RCAVEQRF EQU RCANAME4 02155000 RCAVEQRC EQU RCANAME4 02156000 RCATERM EQU RCANAME4 02157000 RCASQA EQU RCANAME4 02158000 RCASWIN EQU RCANAME4 02159000 RCASOUT EQU RCANAME4 02160000 RCARFR EQU RCANAME3 02161000 RCARELS EQU RCANAME3 02162000 RCARCFI EQU RCANAME3 02163000 RCARCF EQU RCANAME3 02164000 RCAPSII EQU RCANAME3 02165000 RCAPSIB EQU RCANAME3 02166000 RCAPS112 EQU RCANAME3 02167000 RCAPIX EQU RCANAME3 02168000 RCAPIOP EQU RCANAME2 02169000 RCASWPC EQU RCANAME2 02170000 RCASWPP EQU RCANAME2 02171000 RCAPFTE EQU RCANAME2 02172000 RCAPCB EQU RCANAME2 02173000 RCAOUT EQU RCANAME2 02174000 RCAITAS EQU RCANAME2 02175000 RCAINV EQU RCANAME1 02176000 RCAGFA EQU RCANAME1 02177000 RCAFXLD EQU RCANAME1 02178000 RCAVEQR EQU RCANAME1 02179000 RCADSEG EQU RCANAME1 02180000 RCADLAS EQU RCANAME1 02181000 RCACSEG EQU RCANAME1 02182000 RCAVAMSI EQU RCANAME1 02183000 @NM00054 EQU RCAFLAGS 02184000 RCAQS EQU RCAFLAGS 02185000 RCAPSIER EQU RCAFLAGS 02186000 RCAABEND EQU RCAFLAGS 02187000 @NM00053 EQU RCANAME7 02188000 RCAPRSS EQU RCANAME7 02189000 RCAPRSR EQU RCANAME7 02190000 RCAPRSB EQU RCANAME7 02191000 RCAPSIY EQU RCANAME7 02192000 RCAPIOI EQU RCANAME7 02193000 RCAPARM1 EQU RCA+4 02194000 RCAPARM0 EQU RCA 02195000 XPTLSID2 EQU XPTLPN 02196000 XPTLSID EQU XPTLGN 02197000 @NM00052 EQU XPTFLAG2 02198000 XPTIOERR EQU XPTFLAG2 02199000 XPTPOINP EQU XPTFLAG2 02200000 XPTRES1 EQU XPTFLAG2 02201000 XPTVALID EQU XPTFLAG2 02202000 XPTRSV4 EQU XPTFLAGS 02203000 XPTDEFER EQU XPTFLAGS 02204000 XPTRES2 EQU XPTFLAGS 02205000 XPTVIO EQU XPTFLAGS 02206000 @NM00051 EQU XPTFLAGS 02207000 XPTCKF EQU XPTFLAGS 02208000 XPTXAV EQU XPTFLAGS 02209000 XPTVIOLP EQU XPTFLAGS 02210000 XPTRSV1 EQU XPTE+1 02211000 PGTPAM EQU PGTBITS 02212000 @NM00050 EQU PGTBITS 02213000 @NM00049 EQU PGTBITS 02214000 @NM00048 EQU PGTBITS 02215000 @NM00047 EQU PGTBITS 02216000 @NM00046 EQU PGTBITS 02217000 @NM00045 EQU PGTBITS 02218000 PGTREAL EQU PGTRSA 02219000 @NM00044 EQU FOEFLAG 02220000 @NM00043 EQU FOEFLAG 02221000 @NM00042 EQU FOEFLAG 02222000 @NM00041 EQU FOEFLAG 02223000 @NM00040 EQU FOEFLAG 02224000 @NM00039 EQU FOEFLAG 02225000 @NM00038 EQU FOEFLAG 02226000 FOEINT EQU FOEFLAG 02227000 PFTUIC EQU PFTE+15 02228000 PFTQNDX EQU PFTE+14 02229000 @NM00037 EQU PFTFLAG2 02230000 @NM00036 EQU PFTFLAG2 02231000 PFTPREF EQU PFTFLAG2 02232000 PFTSTEAL EQU PFTFLAG2 02233000 PFTIRRG EQU PFTFLAG2 02234000 PFTVR EQU PFTFLAG2 02235000 PFTOFFLN EQU PFTFLAG2 02236000 PFTOFINT EQU PFTFLAG1 02237000 PFTVRALC EQU PFTFLAG1 02238000 PFTBADPG EQU PFTFLAG1 02239000 PFTLNGFX EQU PFTFLAG1 02240000 PFTLSQA EQU PFTFLAG1 02241000 PFTVRINT EQU PFTFLAG1 02242000 PFTONAVQ EQU PFTFLAG1 02243000 PFTRSV1 EQU PFTE+10 02244000 PFTBQPTR EQU PFTQPTRS+2 02245000 PFTFQPTR EQU PFTQPTRS 02246000 PFTASID EQU PFTPGID 02247000 PCBRWRKB EQU PCBR+60 02248000 PCBRWRKA EQU PCBR+56 02249000 PCBRWRK9 EQU PCBR+52 02250000 PCBRWRK8 EQU PCBR+48 02251000 PCBRWRK7 EQU PCBR+44 02252000 PCBRWRK6 EQU PCBR+40 02253000 PCBRWRK5 EQU PCBR+36 02254000 PCBRWRK4 EQU PCBR+32 02255000 PCBRWRK3 EQU PCBR+28 02256000 PCBRWRK2 EQU PCBR+24 02257000 PCBRWRK1 EQU PCBR+20 02258000 PCBRRSV1 EQU PCBR+18 02259000 PCBRASCB EQU PCBR+12 02260000 PCBRECB EQU PCBR+8 02261000 PCBRPOF EQU PCBRFLAG 02262000 PCBRFECB EQU PCBRFLAG 02263000 PCBRLOAD EQU PCBRFLAG 02264000 PCBRFPCB EQU PCBRFLAG 02265000 PCBRETRY EQU PCBRFLAG 02266000 PCBRINT EQU PCBRFLAG 02267000 PCBEND EQU PCB+64 02268000 PCBAIA EQU PCB+36 02269000 PCBSPCTE EQU PCBRB 02270000 PCBPGTA EQU PCBPGT+1 02271000 @NM00035 EQU PCBFL3 02272000 PCBNOREC EQU PCBFL3 02273000 PCBDFRLS EQU PCBFL3 02274000 PCBSWPLS EQU PCBFL3 02275000 PCBSWPIN EQU PCBFL3 02276000 PCBSWPOT EQU PCBFL3 02277000 PCBXPTA EQU PCBXPT+1 02278000 @NM00034 EQU PCBFL2 02279000 @NM00033 EQU PCBFL2 02280000 PCBVIO EQU PCBFL2 02281000 PCBSUPRS EQU PCBFL2 02282000 PCBGFAD EQU PCBFL2 02283000 PCBIOI EQU PCBFL1 02284000 PCBLFR EQU PCBFL1 02285000 PCBPEX EQU PCBFL1 02286000 @NM00032 EQU PCBFL1 02287000 PCBFQPA EQU PCBFQP+1 02288000 RSMASMHD EQU RSMHD+40 02289000 RSMFOEQ EQU RSMHD+36 02290000 RSMLIOQF EQU RSMLIOQ 02291000 RSMLSQAL EQU RSMLSQA+2 02292000 RSMLSQAF EQU RSMLSQA 02293000 RSMLFQL EQU RSMLFQ+2 02294000 RSMLFQF EQU RSMLFQ 02295000 RSMRSV2 EQU RSMHD+16 02296000 RSMRSV1 EQU RSMHD+13 02297000 @NM00031 EQU RSMFLG1 02298000 RSMFAIL EQU RSMFLG1 02299000 RSMGFADD EQU RSMFLG1 02300000 RSMCPNC EQU RSMFLG1 02301000 RSMCPNU EQU RSMFLG1 02302000 RSMGFAD EQU RSMFLG1 02303000 RSMASCB EQU RSMHD+8 02304000 RSMSPCT EQU RSMHD+4 02305000 RSMVSTO EQU RSMHD 02306000 PVTEND EQU PVT+1936 02307000 PVTVCONS EQU PVT+1896 02308000 PVTPRSB EQU PVT+1892 02309000 PVTCIOQF EQU PVTPCBQS+32 02310000 PVTGFADL EQU PVTPCBQS+28 02311000 PVTGFADF EQU PVTPCBQS+24 02312000 PVTFPCBL EQU PVTPCBQS+20 02313000 PVTFPCBF EQU PVTPCBQS+16 02314000 PVTPCBQR EQU PVTPCBQS 02315000 PVTLPAFX EQU PVT+1850 02316000 PVTLSQAF EQU PVT+1848 02317000 PVTLPAR EQU PVT+1844 02318000 PVTLPAI EQU PVT+1840 02319000 PVTLPAFC EQU PVT+1838 02320000 PVTCHUIC EQU PVT+1836 02321000 PVTSQAFX EQU PVT+1832 02322000 PVTDEFFX EQU PVT+1828 02323000 PVTFIXOK EQU PVT+1826 02324000 PVTPEROK EQU PVT+1824 02325000 PVTMAXFX EQU PVT+1822 02326000 PVTPERFX EQU PVT+1820 02327000 PVTRSRB EQU PVT+1776 02328000 PVTRESV5 EQU PVT+1773 02329000 PVTSRBS EQU PVT+1772 02330000 PVTSSRB EQU PVT+1768 02331000 PVTACA EQU PVTWSAX+1400 02332000 PVTWSA18 EQU PVTWSAX+1256 02333000 PVTWSA17 EQU PVTWSAX+1184 02334000 PVTWSA16 EQU PVTWSAX+1112 02335000 PVTWSA15 EQU PVTWSAX+1040 02336000 PVTWSA14 EQU PVTWSAX+968 02337000 PVTWSA13 EQU PVTWSAX+896 02338000 PVTWSA12 EQU PVTWSAX+824 02339000 PVTWSA11 EQU PVTWSAX+752 02340000 PVTWSA9 EQU PVTWSAX+592 02341000 PVTWSA8 EQU PVTWSAX+504 02342000 PVTWSA7 EQU PVTWSAX+432 02343000 PVTWSA6 EQU PVTWSAX+360 02344000 PVTWSA5 EQU PVTWSAX+288 02345000 PVTWSA4 EQU PVTWSAX+216 02346000 PVTWSA3 EQU PVTWSAX+144 02347000 PVTWSA2 EQU PVTWSAX+72 02348000 PVTWSA1 EQU PVTWSAX 02349000 PVTPFTQR EQU PVTQS+20 02350000 PVTRSBQL EQU PVTQS+18 02351000 PVTRSBQF EQU PVTQS+16 02352000 PVTSQAQL EQU PVTQS+14 02353000 PVTSQAQF EQU PVTQS+12 02354000 PVTCFQL EQU PVTQS+10 02355000 PVTCFQF EQU PVTQS+8 02356000 PVTRSRVL EQU PVTQS+6 02357000 PVTRSRVF EQU PVTQS+4 02358000 PVTAFQL EQU PVTQS+2 02359000 PVTAFQF EQU PVTQS 02360000 PVTSPFR EQU PVT+302 02361000 PVTCFMCT EQU PVT+300 02362000 PVTSPREC EQU PVT+296 02363000 PVTCAREC EQU PVT+292 02364000 PVTCAOUT EQU PVT+288 02365000 PVTCAIN EQU PVT+284 02366000 PVTNSWPS EQU PVT+280 02367000 PVTNPREC EQU PVT+276 02368000 PVTSPOUT EQU PVT+272 02369000 PVTSPIN EQU PVT+268 02370000 PVTVAMR EQU PVT+264 02371000 PVTVAMO EQU PVT+260 02372000 PVTVAMI EQU PVT+256 02373000 PVTNPOUT EQU PVT+252 02374000 PVTNPIN EQU PVT+248 02375000 PVTFRSLT EQU PVT+240 02376000 PVTPAGIO EQU PVT+236 02377000 PVTSWPIO EQU PVT+232 02378000 PVTPSWPP EQU PVT+228 02379000 PVTPPREF EQU PVT+224 02380000 PVTPRELV EQU PVT+212 02381000 PVTPFREE EQU PVT+208 02382000 PVTPRELS EQU PVT+204 02383000 PVTPOUT EQU PVT+200 02384000 PVTPFXLD EQU PVT+196 02385000 PVTPITAS EQU PVT+192 02386000 PVTPSRBP EQU PVT+188 02387000 PVTPDSEG EQU PVT+184 02388000 PVTPCSGB EQU PVT+180 02389000 PVTPCSEG EQU PVT+176 02390000 PVTPINV EQU PVT+172 02391000 PVTPSWPC EQU PVT+168 02392000 PVTPSOUT EQU PVT+164 02393000 PVTPSWIN EQU PVT+160 02394000 PVTPRCFI EQU PVT+152 02395000 PVTPRCF EQU PVT+148 02396000 PVTPVRC EQU PVT+144 02397000 PVTPVRIN EQU PVT+140 02398000 PVTPVRLS EQU PVT+136 02399000 PVTPVEQR EQU PVT+132 02400000 PVTPPIOI EQU PVT+128 02401000 PVTPVRPO EQU PVT+124 02402000 PVTPRFR EQU PVT+120 02403000 PVTPFP2 EQU PVT+116 02404000 PVTPFP EQU PVT+112 02405000 PVTREP2 EQU PVT+100 02406000 PVTPIOCP EQU PVT+96 02407000 PVTPIOP EQU PVT+92 02408000 PVTPGFAD EQU PVT+88 02409000 PVTPGFA EQU PVT+84 02410000 PVTPSQA EQU PVT+80 02411000 PVTPSINT EQU PVT+76 02412000 PVTPSIB EQU PVT+72 02413000 PVTPCIWA EQU PVT+64 02414000 PVTHQSA EQU PVT+62 02415000 PVTLQSA EQU PVT+60 02416000 PVTOROOT EQU PVT+56 02417000 PVTREUS EQU PVT+48 02418000 PVTRESV4 EQU PVT+47 02419000 PVTVRDFC EQU PVT+46 02420000 PVTRSUS EQU PVT+44 02421000 PVTVROOT EQU PVT+40 02422000 PVTPCBLO EQU PVT+38 02423000 PVTPCBCT EQU PVT+36 02424000 PVTDFRS EQU PVT+34 02425000 PVTRSQA EQU PVT+32 02426000 PVTPTLB EQU PVT+31 02427000 PVTPCBNO EQU PVT+30 02428000 PVTSRBNO EQU PVT+29 02429000 PVTSQDC EQU PVT+28 02430000 PVTLPRIV EQU PVT+24 02431000 PVTLVR EQU PVT+22 02432000 PVTFVR EQU PVT+20 02433000 PVTLPFN EQU PVT+18 02434000 PVTFPFN EQU PVT+16 02435000 PVTSSPIN EQU PVT+11 02436000 PVTPCBS EQU PVT+10 02437000 PVTPOOL EQU PVT+8 02438000 PVTAFCOK EQU PVT+6 02439000 PVTAFCLO EQU PVT+4 02440000 PVTAFC EQU PVT+2 02441000 PVTFLAG2 EQU PVT+1 02442000 PVTDUMP EQU PVTFLAG1 02443000 PVTSIT EQU PVTFLAG1 02444000 PVTLSI EQU PVTFLAG1 02445000 PVTRESV1 EQU PVTFLAG1 02446000 PVTPCBLT EQU PVTFLAG1 02447000 PVTSRBIU EQU PVTFLAG1 02448000 PVTBGMS EQU PVTFLAG1 02449000 PVTPMSG EQU PVTFLAG1 02450000 @NM00030 EQU TCBXTNT2+32 02451000 TCBRV181 EQU TCBRV173 02452000 TCBRV180 EQU TCBRV173 02453000 TCBRV179 EQU TCBRV173 02454000 TCBRV178 EQU TCBRV173 02455000 TCBRV177 EQU TCBRV173 02456000 TCBRV176 EQU TCBRV173 02457000 TCBRV175 EQU TCBRV173 02458000 TCBRV174 EQU TCBRV173 02459000 TCBRV172 EQU TCBRV164 02460000 TCBRV171 EQU TCBRV164 02461000 TCBRV170 EQU TCBRV164 02462000 TCBRV169 EQU TCBRV164 02463000 TCBRV168 EQU TCBRV164 02464000 TCBRV167 EQU TCBRV164 02465000 TCBRV166 EQU TCBRV164 02466000 TCBRV165 EQU TCBRV164 02467000 TCBRV163 EQU TCBRV155 02468000 TCBRV162 EQU TCBRV155 02469000 TCBRV161 EQU TCBRV155 02470000 TCBRV160 EQU TCBRV155 02471000 TCBRV159 EQU TCBRV155 02472000 TCBRV158 EQU TCBRV155 02473000 TCBRV157 EQU TCBRV155 02474000 TCBRV156 EQU TCBRV155 02475000 TCBRV154 EQU TCBRV146 02476000 TCBRV153 EQU TCBRV146 02477000 TCBRV152 EQU TCBRV146 02478000 TCBRV151 EQU TCBRV146 02479000 TCBRV150 EQU TCBRV146 02480000 TCBRV149 EQU TCBRV146 02481000 TCBRV148 EQU TCBRV146 02482000 TCBRV147 EQU TCBRV146 02483000 TCBRV145 EQU TCBXTNT2+26 02484000 TCBRV144 EQU TCBXTNT2+24 02485000 TCBRV143 EQU TCBXTNT2+20 02486000 TCBRV142 EQU TCBXTNT2+16 02487000 TCBRSV49 EQU TCBXTNT2+12 02488000 TCBEVENT EQU TCBXTNT2+8 02489000 TCBRCMP EQU TCBXTNT2+5 02490000 TCBRSVAB EQU TCBXTNT2+4 02491000 TCBGTFA EQU TCBGTF+1 02492000 TCBRSV47 EQU TCBTFLG 02493000 TCBRSV46 EQU TCBTFLG 02494000 TCBRSV45 EQU TCBTFLG 02495000 TCBRSV44 EQU TCBTFLG 02496000 TCBRSV43 EQU TCBTFLG 02497000 TCBDSPIT EQU TCBTFLG 02498000 TCBERRTN EQU TCBTFLG 02499000 TCBASYNC EQU TCBTFLG 02500000 @NM00029 EQU TCB+296 02501000 TCBSVCA2 EQU TCB+292 02502000 TCBSWASA EQU TCB+288 02503000 TCBDBTB EQU TCB+284 02504000 TCBRPT EQU TCB+280 02505000 TCBRV141 EQU TCBRV133 02506000 TCBRV140 EQU TCBRV133 02507000 TCBRV139 EQU TCBRV133 02508000 TCBRV138 EQU TCBRV133 02509000 TCBRV137 EQU TCBRV133 02510000 TCBRV136 EQU TCBRV133 02511000 TCBRV135 EQU TCBRV133 02512000 TCBRV134 EQU TCBRV133 02513000 TCBRV132 EQU TCBRV124 02514000 TCBRV131 EQU TCBRV124 02515000 TCBRV130 EQU TCBRV124 02516000 TCBRV129 EQU TCBRV124 02517000 TCBRV128 EQU TCBRV124 02518000 TCBRV127 EQU TCBRV124 02519000 TCBRV126 EQU TCBRV124 02520000 TCBRV125 EQU TCBRV124 02521000 TCBRV123 EQU TCBFBYT2 02522000 TCBRV122 EQU TCBFBYT2 02523000 TCBECBNV EQU TCBFBYT2 02524000 TCBSSSYN EQU TCBFBYT2 02525000 TCBFPRAP EQU TCBFBYT2 02526000 TCBFDW EQU TCBFBYT2 02527000 TCBFMW EQU TCBFBYT2 02528000 TCBCNCB EQU TCBFBYT2 02529000 TCBLLH EQU TCBFBYT1 02530000 TCBRV113 EQU TCBFBYT1 02531000 TCBEOT EQU TCBFBYT1 02532000 TCBRTM2 EQU TCBFBYT1 02533000 TCBPGNLY EQU TCBFBYT1 02534000 TCBNDIOS EQU TCBFBYT1 02535000 TCBRV327 EQU TCBFBYT1 02536000 TCBEOTFM EQU TCBFBYT1 02537000 TCBAFFN EQU TCB+274 02538000 TCBRV326 EQU TCB+272 02539000 TCBUKYSP EQU TCB+268 02540000 TCBMODE EQU TCBESTAE+3 02541000 TCBERTYP EQU TCBESTAE+2 02542000 TCBRV314 EQU TCBESTRM 02543000 TCBRV313 EQU TCBESTRM 02544000 TCBRV312 EQU TCBESTRM 02545000 TCBRV311 EQU TCBESTRM 02546000 TCBRV310 EQU TCBESTRM 02547000 TCBRV309 EQU TCBESTRM 02548000 TCBRV308 EQU TCBESTRM 02549000 TCBETERM EQU TCBESTRM 02550000 TCBSCBKY EQU TCBESTAE 02551000 TCBRTM12 EQU TCB+260 02552000 TCBTCBID EQU TCB+256 02553000 TCBSTAWA EQU TCB+252 02554000 TCBSWA EQU TCB+248 02555000 TCBRSV42 EQU TCBFOE 02556000 TCBCCPVI EQU TCBXSCT+2 02557000 TCBRV325 EQU TCBXSCT+1 02558000 TCBRV324 EQU TCBXSCT1 02559000 TCBRV323 EQU TCBXSCT1 02560000 TCBRV322 EQU TCBXSCT1 02561000 TCBRV321 EQU TCBXSCT1 02562000 TCBRV320 EQU TCBXSCT1 02563000 TCBRV319 EQU TCBXSCT1 02564000 TCBS3A EQU TCBXSCT1 02565000 TCBACTIV EQU TCBXSCT1 02566000 TCBRSV41 EQU TCB+239 02567000 TCBTID EQU TCB+238 02568000 TCBRSVAA EQU TCB+237 02569000 TCBABCUR EQU TCB+236 02570000 TCBTMSAV EQU TCB+232 02571000 TCBIOTIM EQU TCB+228 02572000 TCBRTWA EQU TCB+224 02573000 TCBBACK EQU TCB+220 02574000 TCBTIRB EQU TCB+216 02575000 TCBAECB EQU TCB+212 02576000 TCBEXT2A EQU TCBEXT2+1 02577000 TCBRSV39 EQU TCBEXT2 02578000 TCBSTMCT EQU TCB+207 02579000 TCBSYSCT EQU TCB+206 02580000 TCBRSV37 EQU TCB+205 02581000 TCBEXSVC EQU TCBDAR 02582000 TCBDARMS EQU TCBDAR 02583000 TCBDARWT EQU TCBDAR 02584000 TCBDARO EQU TCBDAR 02585000 TCBDARMC EQU TCBDARC 02586000 TCBDARD EQU TCBDAR 02587000 TCBDARS EQU TCBDAR 02588000 TCBDARP EQU TCBDAR 02589000 TCBGTOFM EQU TCBFLGS7 02590000 TCBADMP EQU TCBFLGS7 02591000 TCBRSTSK EQU TCBFLGS7 02592000 TCBSVCS EQU TCBFLGS7 02593000 TCBSTACK EQU TCBFLGS7 02594000 TCBRSV34 EQU TCBFLGS7 02595000 TCBRSV33 EQU TCBFLGS7 02596000 TCBGPECB EQU TCBFLGS7 02597000 TCBNTJS EQU TCBFLGS6 02598000 TCBAPG EQU TCBFLGS6 02599000 TCBMIGR EQU TCBFLGS6 02600000 TCBRV303 EQU TCBFLGS6 02601000 TCBSPVLK EQU TCBFLGS6 02602000 TCBCPU EQU TCBFLGS6 02603000 TCBPIE17 EQU TCBFLGS6 02604000 TCBRV EQU TCBFLGS6 02605000 TCBRSV79 EQU TCBNDSP5 02606000 TCBRSV78 EQU TCBNDSP5 02607000 TCBRSV77 EQU TCBNDSP5 02608000 TCBRSV76 EQU TCBNDSP5 02609000 TCBRSV75 EQU TCBNDSP5 02610000 TCBRSV74 EQU TCBNDSP5 02611000 TCBRSV95 EQU TCBNDSP5 02612000 TCBRSV94 EQU TCBNDSP5 02613000 TCBRSV93 EQU TCBNDSP4 02614000 TCBRSV92 EQU TCBNDSP4 02615000 TCBRSV91 EQU TCBNDSP4 02616000 TCBRSV90 EQU TCBNDSP4 02617000 TCBRSV89 EQU TCBNDSP4 02618000 TCBRSV88 EQU TCBNDSP4 02619000 TCBRSV87 EQU TCBNDSP4 02620000 TCBRSV86 EQU TCBNDSP4 02621000 TCBEXT1A EQU TCBEXT1+1 02622000 TCBRSV32 EQU TCBEXT1 02623000 TCBEXCPD EQU TCB+192 02624000 TCBIOBRC EQU TCB+188 02625000 TCBDDWTC EQU TCB+186 02626000 TCBDDEXC EQU TCB+184 02627000 TCBJSCBB EQU TCBJSCB+1 02628000 @NM00028 EQU TCBRECDE 02629000 TCBREC EQU TCBRECDE 02630000 TCBMDIDS EQU TCB+176 02631000 TCBNDINT EQU TCBNDSP3 02632000 TCBRSV27 EQU TCBNDSP3 02633000 TCBRSV26 EQU TCBNDSP3 02634000 TCBRSV25 EQU TCBNDSP3 02635000 TCBRSV24 EQU TCBNDSP3 02636000 TCBSRBND EQU TCBNDSP3 02637000 TCBRV302 EQU TCBNDSP3 02638000 TCBLJSND EQU TCBNDSP3 02639000 TCBABE EQU TCBNDSP2 02640000 TCBDSS EQU TCBNDSP2 02641000 TCBOWAIT EQU TCBNDSP2 02642000 TCBIWAIT EQU TCBNDSP2 02643000 TCBNDTS EQU TCBNDSP2 02644000 TCBNDSVC EQU TCBNDSP2 02645000 TCBSTPP EQU TCBNDSP2 02646000 TCBABD EQU TCBNDSP2 02647000 TCBRSV22 EQU TCBNDSP1 02648000 TCBPIEND EQU TCBNDSP1 02649000 TCBTPSP EQU TCBNDSP1 02650000 TCBDDRND EQU TCBNDSP1 02651000 TCBRSPND EQU TCBNDSP1 02652000 TCBRSTND EQU TCBNDSP1 02653000 TCBDARPN EQU TCBNDSP1 02654000 TCBDARTN EQU TCBNDSP1 02655000 TCBNDSP0 EQU TCBNDSP 02656000 TCBUSER EQU TCB+168 02657000 TCBTCTB EQU TCBTCT+1 02658000 TCBRSV9C EQU TCBTCTGF 02659000 TCBRSV9B EQU TCBTCTGF 02660000 TCBRSV9A EQU TCBTCTGF 02661000 TCBRSV99 EQU TCBTCTGF 02662000 TCBRSV98 EQU TCBTCTGF 02663000 TCBRSV97 EQU TCBTCTGF 02664000 TCBRSV20 EQU TCBTCTGF 02665000 TCBSMFGF EQU TCBTCTGF 02666000 TCBSTABB EQU TCBSTAB+1 02667000 TCBSTCUR EQU TCBNSTAE 02668000 TCBRV301 EQU TCBNSTAE 02669000 TCBSYNCH EQU TCBNSTAE 02670000 TCBHALT EQU TCBNSTAE 02671000 TCBPPSUP EQU TCBNSTAE 02672000 TCB33E EQU TCBNSTAE 02673000 TCBQUIES EQU TCBNSTAE 02674000 TCBSTABE EQU TCBNSTAE 02675000 TCBAQE EQU TCB+156 02676000 TCBPQE EQU TCB+152 02677000 TCBTSDP EQU TCB+151 02678000 TCBTSLP EQU TCB+150 02679000 TCBSTPCT EQU TCB+149 02680000 TCBCPUBN EQU TCBTSFLG 02681000 TCBDYDSP EQU TCBTSFLG 02682000 TCBRSV18 EQU TCBTSFLG 02683000 TCBRSV17 EQU TCBTSFLG 02684000 TCBTIOTG EQU TCBTSFLG 02685000 TCBATT EQU TCBTSFLG 02686000 TCBSTPPR EQU TCBTSFLG 02687000 TCBRV300 EQU TCBTSTSK 02688000 TCBECB EQU TCB+144 02689000 TCBIQE EQU TCB+140 02690000 TCBLTC EQU TCB+136 02691000 TCBOTC EQU TCB+132 02692000 TCBNTC EQU TCB+128 02693000 TCBJSTCA EQU TCBJSTCB+1 02694000 TCBRSV16 EQU TCBJSTCB 02695000 TCBTQET EQU TCBTME 02696000 TCBTCB EQU TCB+116 02697000 TCBFSAB EQU TCBFSA+1 02698000 TCBQEL EQU TCBFSA 02699000 TCBGRS15 EQU TCBGRS+60 02700000 TCBGRS14 EQU TCBGRS+56 02701000 TCBGRS13 EQU TCBGRS+52 02702000 TCBGRS12 EQU TCBGRS+48 02703000 TCBGRS11 EQU TCBGRS+44 02704000 TCBGRS10 EQU TCBGRS+40 02705000 TCBGRS9 EQU TCBGRS+36 02706000 TCBGRS8 EQU TCBGRS+32 02707000 TCBGRS7 EQU TCBGRS+28 02708000 TCBGRS6 EQU TCBGRS+24 02709000 TCBGRS5 EQU TCBGRS+20 02710000 TCBGRS4 EQU TCBGRS+16 02711000 TCBGRS3 EQU TCBGRS+12 02712000 TCBGRS2 EQU TCBGRS+8 02713000 TCBGRS1 EQU TCBGRS+4 02714000 TCBGRS0 EQU TCBGRS 02715000 TCBJPQB EQU TCBJPQ+1 02716000 TCBRSV15 EQU TCBPURGE 02717000 TCBRSV14 EQU TCBPURGE 02718000 TCBRSV13 EQU TCBPURGE 02719000 TCBRSV12 EQU TCBPURGE 02720000 TCBRSV11 EQU TCBPURGE 02721000 TCBRSV10 EQU TCBPURGE 02722000 TCBRSV09 EQU TCBPURGE 02723000 TCBJPQF EQU TCBPURGE 02724000 TCBJLB EQU TCB+40 02725000 TCBLLS EQU TCB+36 02726000 TCBDSP EQU TCB+35 02727000 TCBLMP EQU TCB+34 02728000 TCBPNDSP EQU TCBFLGS5 02729000 TCBFCD1 EQU TCBFLGS5 02730000 TCBSTP EQU TCBFLGS5 02731000 TCBSYS EQU TCBFLGS5 02732000 TCBANDSP EQU TCBFLGS5 02733000 TCBPAGE EQU TCBFLGS5 02734000 TCBUXNDF EQU TCBABWF 02735000 TCBFC EQU TCBFLGS5 02736000 TCBONDSP EQU TCBFLGS4 02737000 TCBMPCND EQU TCBFLGS4 02738000 TCBMPCVQ EQU TCBFLGS4 02739000 TCBUXNDV EQU TCBFLGS4 02740000 TCBHNDSP EQU TCBFLGS4 02741000 TCBRQENA EQU TCBFLGS4 02742000 TCBSER EQU TCBFLGS4 02743000 TCBNDUMP EQU TCBFLGS4 02744000 TCBDWSTA EQU TCBFLGS3 02745000 TCBRSV08 EQU TCBFLGS3 02746000 TCBRSV07 EQU TCBFLGS3 02747000 TCBRSV06 EQU TCBFLGS3 02748000 TCBABGM EQU TCBFLGS3 02749000 TCBABTRM EQU TCBFLGS3 02750000 TCBADINP EQU TCBFLGS3 02751000 TCBFSM EQU TCBFLGS3 02752000 TCBFTS EQU TCBFLGS2 02753000 TCBFETXR EQU TCBFLGS2 02754000 TCBFDSOP EQU TCBFLGS2 02755000 TCBFJMC EQU TCBFLGS2 02756000 TCBFSMC EQU TCBFLGS2 02757000 TCBFABOP EQU TCBFLGS2 02758000 TCBFSTI EQU TCBFLGS2 02759000 TCBFOINP EQU TCBFLGS2 02760000 TCBFX EQU TCBFLGS1 02761000 TCBFS EQU TCBFLGS1 02762000 TCBFT EQU TCBFLGS1 02763000 TCBPDUMP EQU TCBFLGS1 02764000 TCBNONPR EQU TCBFLGS1 02765000 TCBFERA EQU TCBFLGS1 02766000 TCBFE EQU TCBFLGS1 02767000 TCBFA EQU TCBFLGS1 02768000 TCBZERO EQU TCBPKF 02769000 TCBFLAG EQU TCBPKF 02770000 TCBMSSB EQU TCBMSS+1 02771000 TCBRSV03 EQU TCBMSS 02772000 TCBTRNB EQU TCBTRN+1 02773000 TCBRSV02 EQU TCBABF 02774000 TCBOLTEP EQU TCBABF 02775000 TCBTCP EQU TCBABF 02776000 TCBTCPP EQU TCBABF 02777000 TCBRSV01 EQU TCBABF 02778000 TCBGRPH EQU TCBABF 02779000 TCBNOCHK EQU TCBABF 02780000 TCBMOD91 EQU TCBABF 02781000 TCBCMPC EQU TCBCMP+1 02782000 TCBRV318 EQU TCBCMSG 02783000 TCBRV317 EQU TCBCIND 02784000 TCBRV316 EQU TCBCWTO 02785000 TCBCASID EQU TCBCDBL 02786000 TCBNOCC EQU TCBSTCC 02787000 TCBDMPO EQU TCBCPP 02788000 TCBCSTEP EQU TCBCMPF 02789000 TCBCREQ EQU TCBCMPF 02790000 TCBTIO EQU TCB+12 02791000 TCBDEB EQU TCB+8 02792000 TCBPIEA EQU TCBPIE+1 02793000 TCBPM EQU TCBPMASK 02794000 @NM00027 EQU TCBPMASK 02795000 TCBRBP EQU TCB 02796000 TCBFRS6 EQU TCBFRS+24 02797000 TCBFRS4 EQU TCBFRS+16 02798000 TCBFRS2 EQU TCBFRS+8 02799000 TCBFRS0 EQU TCBFRS 02800000 ASCBEND EQU ASCB+208 02801000 ASCBSRBT EQU ASCB+200 02802000 ASCBSWTL EQU ASCB+196 02803000 ASCBRS14 EQU ASCB+195 02804000 ASCBSMCT EQU ASCB+194 02805000 ASCBRS12 EQU ASCB+192 02806000 ASCBPCTT EQU ASCB+188 02807000 ASCBVGTT EQU ASCB+184 02808000 ASCBRV43 EQU ASCBSRQ4 02809000 ASCBRV42 EQU ASCBSRQ4 02810000 ASCBRV41 EQU ASCBSRQ4 02811000 ASCBRV40 EQU ASCBSRQ4 02812000 ASCBRV39 EQU ASCBSRQ4 02813000 ASCBRV38 EQU ASCBSRQ4 02814000 ASCBRV37 EQU ASCBSRQ4 02815000 ASCBRV36 EQU ASCBSRQ4 02816000 ASCBRV35 EQU ASCBSRQ3 02817000 ASCBRV34 EQU ASCBSRQ3 02818000 ASCBRV33 EQU ASCBSRQ3 02819000 ASCBRV32 EQU ASCBSRQ3 02820000 ASCBRV31 EQU ASCBSRQ3 02821000 ASCBRV30 EQU ASCBSRQ3 02822000 ASCBRV29 EQU ASCBSRQ3 02823000 ASCBRV28 EQU ASCBSRQ3 02824000 ASCBRV27 EQU ASCBSRQ2 02825000 ASCBRV26 EQU ASCBSRQ2 02826000 ASCBRV25 EQU ASCBSRQ2 02827000 ASCBRV24 EQU ASCBSRQ2 02828000 ASCBRV23 EQU ASCBSRQ2 02829000 ASCBRV22 EQU ASCBSRQ2 02830000 ASCBRV21 EQU ASCBSRQ2 02831000 ASCBRV20 EQU ASCBSRQ2 02832000 ASCBRV19 EQU ASCBSRQ1 02833000 ASCBRV18 EQU ASCBSRQ1 02834000 ASCBRV17 EQU ASCBSRQ1 02835000 ASCBRV16 EQU ASCBSRQ1 02836000 ASCBRV15 EQU ASCBSRQ1 02837000 ASCBRV14 EQU ASCBSRQ1 02838000 ASCBRV13 EQU ASCBSRQ1 02839000 ASCBSTA EQU ASCBSRQ1 02840000 ASCBJBNS EQU ASCB+176 02841000 ASCBJBNI EQU ASCB+172 02842000 ASCBMCC EQU ASCB+168 02843000 ASCBRTWA EQU ASCB+164 02844000 ASCBIQEA EQU ASCB+160 02845000 ASCBXMPQ EQU ASCB+156 02846000 ASCBRS01 EQU ASCB+154 02847000 ASCBFMCT EQU ASCB+152 02848000 ASCBOUXB EQU ASCB+148 02849000 ASCBOUCB EQU ASCB+144 02850000 ASCBMECB EQU ASCB+140 02851000 ASCBQECB EQU ASCB+136 02852000 ASCBLSQH EQU ASCBLKGP+4 02853000 ASCBLOCK EQU ASCBLKGP 02854000 ASCBTCBS EQU ASCB+124 02855000 ASCBNVSC EQU ASCB+122 02856000 ASCBVSC EQU ASCB+120 02857000 ASCBSRBS EQU ASCB+118 02858000 ASCBSSRB EQU ASCB+116 02859000 ASCBRV06 EQU ASCBFLG2 02860000 ASCBRV05 EQU ASCBFLG2 02861000 ASCBRV04 EQU ASCBFLG2 02862000 ASCBSNQS EQU ASCBFLG2 02863000 ASCBS2S EQU ASCBFLG2 02864000 ASCBCEXT EQU ASCBFLG2 02865000 ASCBPXMT EQU ASCBFLG2 02866000 ASCBXMPT EQU ASCBFLG2 02867000 ASCBRF07 EQU ASCBDSP1 02868000 ASCBRF06 EQU ASCBDSP1 02869000 ASCBRF05 EQU ASCBDSP1 02870000 ASCBRF04 EQU ASCBDSP1 02871000 ASCBRF03 EQU ASCBDSP1 02872000 ASCBRF02 EQU ASCBDSP1 02873000 ASCBFAIL EQU ASCBDSP1 02874000 ASCBNOQ EQU ASCBDSP1 02875000 ASCBSWCT EQU ASCB+112 02876000 ASCBASXB EQU ASCB+108 02877000 ASCBTMCH EQU ASCB+104 02878000 ASCBNSWP EQU ASCBFLG1 02879000 ASCBTYP1 EQU ASCBFLG1 02880000 ASCBSTND EQU ASCBFLG1 02881000 ASCBABNT EQU ASCBFLG1 02882000 ASCBTERM EQU ASCBFLG1 02883000 ASCBS3S EQU ASCBFLG1 02884000 ASCBCMSH EQU ASCBFLG1 02885000 ASCBTOFF EQU ASCBFLG1 02886000 ASCBRF01 EQU ASCBRCTF 02887000 ASCBTMLW EQU ASCBRCTF 02888000 ASCBOUT EQU ASCBRCTF 02889000 ASCBWAIT EQU ASCBRCTF 02890000 ASCBRV08 EQU ASCBRCTF 02891000 ASCBFQU EQU ASCBRCTF 02892000 ASCBFRS EQU ASCBRCTF 02893000 ASCBTMNO EQU ASCBRCTF 02894000 ASCBAFFN EQU ASCBFW1 02895000 ASCBDUMP EQU ASCB+96 02896000 ASCBRV44 EQU ASCB+92 02897000 ASCBUBET EQU ASCB+88 02898000 ASCBECB EQU ASCB+84 02899000 ASCBJSTL EQU ASCB+80 02900000 ASCBEWST EQU ASCB+72 02901000 ASCBEJST EQU ASCB+64 02902000 ASCBTSB EQU ASCB+60 02903000 ASCBCSCB EQU ASCB+56 02904000 ASCBLDA EQU ASCB+48 02905000 ASCBSTOR EQU ASCB+44 02906000 ASCBDP EQU ASCB+43 02907000 ASCBRV07 EQU ASCB+42 02908000 ASCBIOSM EQU ASCB+40 02909000 ASCBSEQN EQU ASCB+38 02910000 ASCBASID EQU ASCB+36 02911000 ASCBCPUS EQU ASCB+32 02912000 ASCBSPL EQU ASCB+28 02913000 ASCBIOSP EQU ASCB+24 02914000 ASCBSYNC EQU ASCBSUPC+4 02915000 ASCBSVRB EQU ASCBSUPC 02916000 ASCBCMSF EQU ASCB+12 02917000 ASCBBWDP EQU ASCB+8 02918000 ASCBFWDP EQU ASCB+4 02919000 ASCBASCB EQU ASCB 02920000 ASCBEGIN EQU ASCB 02921000 CVTLEVL EQU CVTRELNO+2 02922000 CVTNUMB EQU CVTRELNO 02923000 CVTMDL EQU CVTFIX+250 02924000 @NM00026 EQU CVTFIX+248 02925000 @NM00025 EQU CVTFIX 02926000 CVTRV482 EQU CVTXTNT2+128 02927000 CVTRV481 EQU CVTXTNT2+124 02928000 CVTRV480 EQU CVTXTNT2+120 02929000 CVTRV479 EQU CVTXTNT2+118 02930000 CVTRV478 EQU CVTXTNT2+117 02931000 CVTRV477 EQU CVTXTNT2+116 02932000 CVTRV476 EQU CVTXTNT2+115 02933000 CVTRV475 EQU CVTXTNT2+114 02934000 CVTRV474 EQU CVTRV466 02935000 CVTRV473 EQU CVTRV466 02936000 CVTRV472 EQU CVTRV466 02937000 CVTRV471 EQU CVTRV466 02938000 CVTRV470 EQU CVTRV466 02939000 CVTRV469 EQU CVTRV466 02940000 CVTRV468 EQU CVTRV466 02941000 CVTRV467 EQU CVTRV466 02942000 CVTRV465 EQU CVTRV457 02943000 CVTRV464 EQU CVTRV457 02944000 CVTRV463 EQU CVTRV457 02945000 CVTRV462 EQU CVTRV457 02946000 CVTRV461 EQU CVTRV457 02947000 CVTRV460 EQU CVTRV457 02948000 CVTRV459 EQU CVTRV457 02949000 CVTRV458 EQU CVTRV457 02950000 CVTRV456 EQU CVTXTNT2+108 02951000 CVTRV455 EQU CVTXTNT2+104 02952000 CVTRV454 EQU CVTXTNT2+100 02953000 CVTRV453 EQU CVTXTNT2+96 02954000 CVTRV452 EQU CVTXTNT2+94 02955000 CVTRV451 EQU CVTXTNT2+92 02956000 CVTRV450 EQU CVTXTNT2+90 02957000 CVTRV449 EQU CVTXTNT2+88 02958000 CVTRV448 EQU CVTXTNT2+87 02959000 CVTRV447 EQU CVTXTNT2+86 02960000 CVTRV446 EQU CVTRV438 02961000 CVTRV445 EQU CVTRV438 02962000 CVTRV444 EQU CVTRV438 02963000 CVTRV443 EQU CVTRV438 02964000 CVTRV442 EQU CVTRV438 02965000 CVTRV441 EQU CVTRV438 02966000 CVTRV440 EQU CVTRV438 02967000 CVTRV439 EQU CVTRV438 02968000 CVTRV437 EQU CVTRV429 02969000 CVTRV436 EQU CVTRV429 02970000 CVTRV435 EQU CVTRV429 02971000 CVTRV434 EQU CVTRV429 02972000 CVTRV433 EQU CVTRV429 02973000 CVTRV432 EQU CVTRV429 02974000 CVTRV431 EQU CVTRV429 02975000 CVTRV430 EQU CVTRV429 02976000 CVTRV428 EQU CVTXTNT2+80 02977000 CVTRV427 EQU CVTXTNT2+76 02978000 CVTRV426 EQU CVTXTNT2+72 02979000 CVTRV425 EQU CVTXTNT2+68 02980000 CVTATACT EQU CVTATCVT 02981000 CVTRV423 EQU CVTXTNT2+62 02982000 CVTRV422 EQU CVTXTNT2+60 02983000 CVTRV421 EQU CVTXTNT2+58 02984000 CVTRV420 EQU CVTXTNT2+56 02985000 CVTRV419 EQU CVTXTNT2+55 02986000 CVTRV418 EQU CVTXTNT2+54 02987000 CVTRV417 EQU CVTRV409 02988000 CVTRV416 EQU CVTRV409 02989000 CVTRV415 EQU CVTRV409 02990000 CVTRV414 EQU CVTRV409 02991000 CVTRV413 EQU CVTRV409 02992000 CVTRV412 EQU CVTRV409 02993000 CVTRV411 EQU CVTRV409 02994000 CVTRV410 EQU CVTRV409 02995000 CVTRV408 EQU CVTRV400 02996000 CVTRV407 EQU CVTRV400 02997000 CVTRV406 EQU CVTRV400 02998000 CVTRV405 EQU CVTRV400 02999000 CVTRV404 EQU CVTRV400 03000000 CVTRV403 EQU CVTRV400 03001000 CVTRV402 EQU CVTRV400 03002000 CVTRV401 EQU CVTRV400 03003000 CVTICB EQU CVTXTNT2+48 03004000 CVTSKTA EQU CVTXTNT2+44 03005000 CVTRSV99 EQU CVTXTNT2+40 03006000 CVTRSV98 EQU CVTXTNT2+36 03007000 CVTRSV97 EQU CVTXTNT2+34 03008000 CVTRSV96 EQU CVTXTNT2+32 03009000 CVTOLTEP EQU CVTXTNT2+28 03010000 CVTQIDA EQU CVTQID+1 03011000 CVTRSV95 EQU CVTQID 03012000 CVTRSV94 EQU CVTXTNT2+20 03013000 CVTRSV93 EQU CVTXTNT2+16 03014000 CVTRSV92 EQU CVTXTNT2+12 03015000 CVTDEBVR EQU CVTXTNT2+8 03016000 CVTRSV91 EQU CVTXTNT2+6 03017000 CVTRSV9H EQU CVTFLGBT 03018000 CVTRSV9G EQU CVTFLGBT 03019000 CVTRSV9F EQU CVTFLGBT 03020000 CVTRSV9E EQU CVTFLGBT 03021000 CVTRSV9D EQU CVTFLGBT 03022000 CVTBAH EQU CVTFLGBT 03023000 CVTVME EQU CVTFLGBT 03024000 CVTNPE EQU CVTFLGBT 03025000 CVTNUCLS EQU CVTXTNT2+4 03026000 CVTDSSVA EQU CVTDSSV+1 03027000 CVTRSV89 EQU CVTDSSV 03028000 CVTRSV88 EQU CVTXTNT1+8 03029000 CVTRSV87 EQU CVTXTNT1+4 03030000 CVTFACHN EQU CVTXTNT1 03031000 CVTRV488 EQU CVTMAP+412 03032000 CVTRV487 EQU CVTMAP+408 03033000 CVTRV486 EQU CVTMAP+404 03034000 CVTRV485 EQU CVTMAP+400 03035000 CVTACTAP EQU CVTMAP+396 03036000 CVTAUTH EQU CVTMAP+392 03037000 CVTRV490 EQU CVTMAP+388 03038000 CVTRSV61 EQU CVTMAP+384 03039000 CVTVOLT1 EQU CVTVOLM1+1 03040000 CVTVOLI1 EQU CVTVOLF1 03041000 CVTSTOA EQU CVTMAP+376 03042000 CVTRSV58 EQU CVTMAP+374 03043000 CVTRSV57 EQU CVTMAP+372 03044000 CVTDDCE EQU CVTMAP+368 03045000 CVTPNWFR EQU CVTMAP+364 03046000 CVTSMF EQU CVTMAP+360 03047000 CVTSULK EQU CVTMAP+358 03048000 CVTSLKO EQU CVTSYSK 03049000 CVTSLKP EQU CVTSYSK 03050000 CVTSLKQ EQU CVTSYSK 03051000 CVTSLKR EQU CVTSYSK 03052000 CVTRSV56 EQU CVTSYSK 03053000 CVTRSV55 EQU CVTSYSK 03054000 CVTRSV54 EQU CVTSYSK 03055000 CVTRSV53 EQU CVTSYSK 03056000 CVTRSV52 EQU CVTA1F1 03057000 CVTRSV51 EQU CVTA1F1 03058000 CVTRSV50 EQU CVTA1F1 03059000 CVTRSV49 EQU CVTA1F1 03060000 CVTRSV48 EQU CVTA1F1 03061000 CVTRSV47 EQU CVTA1F1 03062000 CVTSRSW EQU CVTA1F1 03063000 CVTPFSW EQU CVTA1F1 03064000 CVTPCVT EQU CVTMAP+352 03065000 CVTRSV46 EQU CVTMAP+344 03066000 CVTRSV45 EQU CVTMAP+340 03067000 CVTRSV44 EQU CVTMAP+338 03068000 CVTRSV43 EQU CVTMAP+336 03069000 CVTHJESA EQU CVTHJES+1 03070000 CVTRSV42 EQU CVTHJES 03071000 CVTEXT2A EQU CVTEXT2+1 03072000 CVTRSV41 EQU CVTEXT2 03073000 CVTAPFA EQU CVTAPF+1 03074000 CVTRSV40 EQU CVTAPF 03075000 CVTRV518 EQU CVTINTLA 03076000 CVTRV517 EQU CVTERPV 03077000 CVTEORM EQU CVTMAP+312 03078000 CVTMCHPR EQU CVTMAP+308 03079000 CVTTZ EQU CVTMAP+304 03080000 CVTJEPS EQU CVTMAP+300 03081000 CVTJESCT EQU CVTMAP+296 03082000 CVTMODE EQU CVTMAP+292 03083000 CVTPTRV EQU CVTMAP+288 03084000 CVTREAL EQU CVTMAP+284 03085000 CVTRSV39 EQU CVTMAP+280 03086000 CVTRSV38 EQU CVTMAP+276 03087000 CVTDMSRA EQU CVTDMSR+1 03088000 CVTRV634 EQU CVTDMSRF 03089000 CVTRV633 EQU CVTDMSRF 03090000 CVTRV632 EQU CVTDMSRF 03091000 CVTRV631 EQU CVTDMSRF 03092000 CVTRV630 EQU CVTDMSRF 03093000 CVTRV629 EQU CVTDMSRF 03094000 CVTUDUMP EQU CVTDMSRF 03095000 CVTSDUMP EQU CVTDMSRF 03096000 CVTQMSGA EQU CVTQMSG+1 03097000 CVTRSV36 EQU CVTQMSG 03098000 CVTAMFF EQU CVTMAP+264 03099000 CVTPURGA EQU CVTPURG+1 03100000 CVTRSV35 EQU CVTPURG 03101000 CVTCBSP EQU CVTMAP+256 03102000 CVTATERA EQU CVTATER+1 03103000 CVTSYST EQU CVTATER 03104000 CVTVOLT2 EQU CVTTAT 03105000 CVTVOLI2 EQU CVTVOLF2 03106000 CVTAQAVB EQU CVTAQAVT+1 03107000 CVTRSV34 EQU CVTTCMFG 03108000 CVTRSV33 EQU CVTTCMFG 03109000 CVTRSV32 EQU CVTTCMFG 03110000 CVTRSV31 EQU CVTTCMFG 03111000 CVTRSV30 EQU CVTTCMFG 03112000 CVTRSV29 EQU CVTTCMFG 03113000 CVTLDEV EQU CVTTCMFG 03114000 CVTTCRDY EQU CVTTCMFG 03115000 CVTGTFA EQU CVTGTF+1 03116000 CVTRSV27 EQU CVTGTFST 03117000 CVTRNIO EQU CVTGTFST 03118000 CVTUSR EQU CVTGTFST 03119000 CVTRV318 EQU CVTFORM 03120000 CVTRV317 EQU CVTTMODE 03121000 CVTRV316 EQU CVTSTATE 03122000 CVTRV315 EQU CVTGTFS 03123000 CVTGTFAV EQU CVTGTFS 03124000 CVT0SCR1 EQU CVTMAP+232 03125000 CVTRV515 EQU CVTMAP+228 03126000 CVTRMS EQU CVTMAP+224 03127000 CVTPATCH EQU CVTMAP+220 03128000 CVTTSCE EQU CVTMAP+216 03129000 CVTLNKSC EQU CVTMAP+214 03130000 CVTQABST EQU CVTMAP+212 03131000 CVTMDLDS EQU CVTMAP+208 03132000 CVTUSER EQU CVTMAP+204 03133000 CVTABEND EQU CVTMAP+200 03134000 CVTSMCA EQU CVTMAP+196 03135000 CVTRSV18 EQU CVTMAP+192 03136000 CVTQLPAQ EQU CVTMAP+188 03137000 CVTQCDSR EQU CVTMAP+184 03138000 CVTRSV17 EQU CVTOPTB 03139000 CVTVS1A EQU CVTOPTB 03140000 CVTFP EQU CVTOPTB 03141000 CVTAPTHR EQU CVTOPTB 03142000 CVTNLOG EQU CVTOPTB 03143000 CVTTOD EQU CVTOPTB 03144000 CVTCTIMS EQU CVTOPTB 03145000 CVTPROT EQU CVTOPTB 03146000 CVTXPFP EQU CVTOPTA 03147000 CVTASCII EQU CVTOPTA 03148000 CVTRSV13 EQU CVTOPTA 03149000 CVTRSV12 EQU CVTOPTA 03150000 CVTNIP EQU CVTOPTA 03151000 CVTDDR EQU CVTOPTA 03152000 CVTAPR EQU CVTOPTA 03153000 CVTCCH EQU CVTOPTA 03154000 CVTSNCTR EQU CVTMAP+180 03155000 CVTQMWR EQU CVTMAP+176 03156000 CVTQOCR EQU CVTMAP+172 03157000 CVT1EF00 EQU CVTMAP+168 03158000 CVTMZ00 EQU CVTMAP+164 03159000 CVTHEAD EQU CVTMAP+160 03160000 CVTRSV11 EQU CVTMAP+156 03161000 CVT0PT01 EQU CVTMAP+152 03162000 CVTMSER EQU CVTMAP+148 03163000 CVTRV516 EQU CVTIERLC 03164000 CVTILCH EQU CVTMAP+140 03165000 CVT0DS EQU CVTMAP+136 03166000 CVTFBOSV EQU CVTMAP+132 03167000 CVTNUCB EQU CVTMAP+128 03168000 CVTIXAVL EQU CVTMAP+124 03169000 CVTIOQET EQU CVTMAP+120 03170000 CVTDCBA EQU CVTMAP+117 03171000 CVTMVS2 EQU CVTDCB 03172000 CVT6DAT EQU CVTDCB 03173000 CVT4MPS EQU CVTDCB 03174000 CVTRSV09 EQU CVTDCB 03175000 CVT4MS1 EQU CVTDCB 03176000 CVT2SPS EQU CVTDCB 03177000 CVT1SSS EQU CVTDCB 03178000 CVTRSV08 EQU CVTDCB 03179000 CVTSTB EQU CVTMAP+112 03180000 CVTQTD00 EQU CVTMAP+108 03181000 CVTQTE00 EQU CVTMAP+104 03182000 CVTCUCB EQU CVTMAP+100 03183000 CVTSJQ EQU CVTMAP+96 03184000 CVTPBLDL EQU CVTMAP+92 03185000 CVTTPC EQU CVTMAP+88 03186000 CVTSVDCB EQU CVTMAP+84 03187000 CVTBRET EQU CVTMAP+82 03188000 CVTEXIT EQU CVTMAP+80 03189000 CVT0FN00 EQU CVTMAP+76 03190000 CVTDARA EQU CVTDAR+1 03191000 CVTRSV07 EQU CVTFLGS1 03192000 CVTRSV06 EQU CVTFLGS1 03193000 CVTRSV05 EQU CVTFLGS1 03194000 CVTRSV04 EQU CVTFLGS1 03195000 CVTRSV03 EQU CVTFLGS1 03196000 CVTRSV02 EQU CVTFLGS1 03197000 CVTRSV01 EQU CVTFLGS1 03198000 CVTDMPLK EQU CVTFLGS1 03199000 CVTXITP EQU CVTMAP+68 03200000 CVTZDTAB EQU CVTMAP+64 03201000 CVTMSLT EQU CVTMAP+60 03202000 CVTDATE EQU CVTMAP+56 03203000 CVTBTERM EQU CVTMAP+52 03204000 CVTSYSAD EQU CVTMAP+48 03205000 CVTXTLER EQU CVTMAP+44 03206000 CVTILK2 EQU CVTMAP+40 03207000 CVTILK1 EQU CVTMAP+36 03208000 CVTPRLTV EQU CVTMAP+32 03209000 CVTPCNVT EQU CVTMAP+28 03210000 CVT0VL00 EQU CVTMAP+24 03211000 CVTXAPG EQU CVTMAP+20 03212000 CVTBUF EQU CVTMAP+16 03213000 CVTJOB EQU CVTMAP+12 03214000 CVTLINK EQU CVTMAP+8 03215000 CVT0EF00 EQU CVTMAP+4 03216000 CVTTCBP EQU CVTMAP 03217000 CVT EQU CVTMAP 03218000 @NM00024 EQU PSA+3668 03219000 PSASTAK EQU PSA+3072 03220000 @NM00023 EQU PSA+1048 03221000 PSAUSEND EQU PSA+1048 03222000 PSARV062 EQU PSA+1044 03223000 PSACDAL EQU PSA+1040 03224000 PSAWTCOD EQU PSA+1036 03225000 PSAATCVT EQU PSA+1032 03226000 PSAPCPSW EQU PSA+1024 03227000 PSAPIR2 EQU PSA+1020 03228000 PSARV059 EQU PSA+1018 03229000 PSASVC13 EQU PSA+1016 03230000 PSALSFCC EQU PSA+1012 03231000 PSASFACC EQU PSA+1008 03232000 PSASTOP EQU PSA+992 03233000 PSASTART EQU PSA+976 03234000 PSARSPSW EQU PSA+968 03235000 PSASRPSW EQU PSA+960 03236000 PSARV045 EQU PSA+892 03237000 PSARV044 EQU PSA+888 03238000 PSARV043 EQU PSA+884 03239000 PSARV042 EQU PSA+880 03240000 PSARV041 EQU PSA+876 03241000 PSARV040 EQU PSA+872 03242000 PSARV025 EQU PSA+868 03243000 PSADSSED EQU PSA+868 03244000 PSADSSPR EQU PSA+864 03245000 PSADSSFW EQU PSA+860 03246000 PSADSS14 EQU PSA+856 03247000 PSADSSPP EQU PSA+848 03248000 PSADSSRP EQU PSA+840 03249000 PSADSS05 EQU PSADSSF4 03250000 PSADSS10 EQU PSADSSF4 03251000 PSADSSVE EQU PSADSSF4 03252000 PSADSSDE EQU PSADSSF4 03253000 PSADSSC0 EQU PSADSSF4 03254000 PSADSSIE EQU PSADSSF4 03255000 PSADSS12 EQU PSADSSF4 03256000 PSADSSRC EQU PSADSSF4 03257000 PSARV057 EQU PSADSSF3 03258000 PSARV056 EQU PSADSSF3 03259000 PSARV055 EQU PSADSSF3 03260000 PSADSSMC EQU PSADSSF3 03261000 PSADSSRW EQU PSADSSF3 03262000 PSADSSNM EQU PSADSSF3 03263000 PSADSSES EQU PSADSSF3 03264000 PSADSSGP EQU PSADSSF3 03265000 PSADSSF2 EQU PSADSSFL+1 03266000 PSADSSPI EQU PSADSSF1 03267000 PSADSSOI EQU PSADSSF1 03268000 PSADSSSP EQU PSADSSF1 03269000 PSADSSTP EQU PSADSSF1 03270000 PSADSSDW EQU PSADSSF1 03271000 PSADSSDD EQU PSADSSF1 03272000 PSADSSDM EQU PSADSSF1 03273000 PSADSSMV EQU PSADSSF1 03274000 PSADSSTS EQU PSA+816 03275000 PSADSSWK EQU PSA+812 03276000 PSADSSR3 EQU PSA+808 03277000 PSADSSR2 EQU PSA+804 03278000 PSADSSRS EQU PSA+800 03279000 PSASTOR EQU PSA+796 03280000 PSACPUSA EQU PSA+794 03281000 PSAVSTAP EQU PSA+792 03282000 PSAWKVAP EQU PSA+788 03283000 PSAWKRAP EQU PSA+784 03284000 PSAMCHIC EQU PSA+783 03285000 PSARV061 EQU PSA+782 03286000 PSASYMSK EQU PSA+781 03287000 PSAMCHFL EQU PSA+780 03288000 PSACR0 EQU PSA+776 03289000 PSAPSWSV EQU PSA+768 03290000 PSALITA EQU PSA+764 03291000 PSACLHS EQU PSAHLHI 03292000 PSALKR15 EQU PSALKSA+60 03293000 PSALKR14 EQU PSALKSA+56 03294000 PSALKR13 EQU PSALKSA+52 03295000 PSALKR12 EQU PSALKSA+48 03296000 PSALKR11 EQU PSALKSA+44 03297000 PSALKR10 EQU PSALKSA+40 03298000 PSALKR9 EQU PSALKSA+36 03299000 PSALKR8 EQU PSALKSA+32 03300000 PSALKR7 EQU PSALKSA+28 03301000 PSALKR6 EQU PSALKSA+24 03302000 PSALKR5 EQU PSALKSA+20 03303000 PSALKR4 EQU PSALKSA+16 03304000 PSALKR3 EQU PSALKSA+12 03305000 PSALKR2 EQU PSALKSA+8 03306000 PSALKR1 EQU PSALKSA+4 03307000 PSALKR0 EQU PSALKSA 03308000 PSARV023 EQU PSACLHT+52 03309000 PSALOCAL EQU PSACLHT+48 03310000 PSACMSL EQU PSACLHT+44 03311000 PSAOPTL EQU PSACLHT+40 03312000 PSATPACL EQU PSACLHT+36 03313000 PSATPDNL EQU PSACLHT+32 03314000 PSATPNCL EQU PSACLHT+28 03315000 PSAIOSLL EQU PSACLHT+24 03316000 PSAIOSUL EQU PSACLHT+20 03317000 PSAIOSCL EQU PSACLHT+16 03318000 PSAIOSSL EQU PSACLHT+12 03319000 PSASALCL EQU PSACLHT+8 03320000 PSAASML EQU PSACLHT+4 03321000 PSADISPL EQU PSACLHT 03322000 PSASRSA EQU PSA+636 03323000 PSARV050 EQU PSA+634 03324000 PSADSSGO EQU PSA+633 03325000 PSARECUR EQU PSA+632 03326000 PSAHLHIS EQU PSA+628 03327000 PSAIPCSA EQU PSA+624 03328000 @NM00022 EQU PSA+621 03329000 PSAIPCDM EQU PSA+620 03330000 PSAIPCD EQU PSA+616 03331000 @NM00021 EQU PSA+613 03332000 PSAIPCRM EQU PSA+612 03333000 PSAIPCR EQU PSA+608 03334000 PSAMCHEX EQU PSA+600 03335000 PSAMPSW EQU PSA+592 03336000 PSAEXPS2 EQU PSA+584 03337000 PSAEXPS1 EQU PSA+576 03338000 PSAPIREG EQU PSA+572 03339000 PSARSREG EQU PSA+568 03340000 PSAGPREG EQU PSA+556 03341000 PSARV022 EQU PSASUP4 03342000 PSARV021 EQU PSASUP4 03343000 PSARV020 EQU PSASUP4 03344000 PSARV019 EQU PSASUP4 03345000 PSARV018 EQU PSASUP4 03346000 PSARV017 EQU PSASUP4 03347000 PSARV016 EQU PSASUP4 03348000 PSARV015 EQU PSASUP4 03349000 PSARV014 EQU PSASUP3 03350000 PSARV013 EQU PSASUP3 03351000 PSARV012 EQU PSASUP3 03352000 PSAESTA EQU PSASUP3 03353000 PSASPR EQU PSASUP3 03354000 PSAPSREG EQU PSASUP3 03355000 PSAPI2 EQU PSASUP3 03356000 PSAIOSUP EQU PSASUP3 03357000 PSALCR EQU PSASUP2 03358000 PSARTM EQU PSASUP2 03359000 PSAACR EQU PSASUP2 03360000 PSAIPCE2 EQU PSASUP2 03361000 PSAIPCES EQU PSASUP2 03362000 PSAIPCEC EQU PSASUP2 03363000 PSAGTF EQU PSASUP2 03364000 PSAIPCRI EQU PSASUP2 03365000 PSATYPE6 EQU PSASUP1 03366000 PSATCTL EQU PSASUP1 03367000 PSADISP EQU PSASUP1 03368000 PSALOCK EQU PSASUP1 03369000 PSAPI EQU PSASUP1 03370000 PSAEXT EQU PSASUP1 03371000 PSASVC EQU PSASUP1 03372000 PSAIO EQU PSASUP1 03373000 PSAANEW EQU PSA+544 03374000 PSATOLD EQU PSA+540 03375000 PSATNEW EQU PSA+536 03376000 PSALCCAR EQU PSA+532 03377000 PSALCCAV EQU PSA+528 03378000 PSAPCCAR EQU PSA+524 03379000 PSAPCCAV EQU PSA+520 03380000 PSACPULA EQU PSA+518 03381000 PSACPUPA EQU PSA+516 03382000 PSAPSA EQU PSA+512 03383000 FLCHDEND EQU PSA+512 03384000 FLCCRSAV EQU FLCMCLA+280 03385000 FLCGRSAV EQU FLCMCLA+216 03386000 FLCFPSAV EQU FLCMCLA+184 03387000 FLCFLA EQU FLCMCLA+88 03388000 FLCRGNCD EQU FLCMCLA+84 03389000 FLCFSAA EQU FLCFSA+1 03390000 @NM00020 EQU FLCFSA 03391000 @NM00019 EQU FLCMCLA+72 03392000 FLCMCIC EQU FLCMCLA+64 03393000 @NM00018 EQU FLCMCLA+20 03394000 FLCIOAA EQU FLCIOA+1 03395000 @NM00017 EQU FLCIOA 03396000 @NM00016 EQU FLCMCLA+15 03397000 @NM00015 EQU FLCMCLA+14 03398000 @NM00014 EQU FLCMCLA+12 03399000 FLCLCL EQU FLCMCLA+8 03400000 FLCIOELA EQU FLCIOEL+1 03401000 @NM00013 EQU FLCIOEL 03402000 FLCCHNID EQU FLCMCLA 03403000 @NM00012 EQU PSA+160 03404000 FLCMTRCD EQU PSA+157 03405000 @NM00011 EQU PSA+156 03406000 FLCPERA EQU FLCPER+1 03407000 @NM00010 EQU FLCPER 03408000 @NM00009 EQU PSA+151 03409000 FLCPERCD EQU PSA+150 03410000 FLCMCNUM EQU PSA+149 03411000 @NM00008 EQU PSA+148 03412000 FLCTEAA EQU FLCTEA+1 03413000 @NM00007 EQU FLCTEA 03414000 PSAPIPC EQU PSAPICOD 03415000 PSAPIMC EQU PSAPICOD 03416000 PSAPIPER EQU PSAPICOD 03417000 PSARV049 EQU FLCPICOD 03418000 FLCPILCB EQU FLCPIILC 03419000 @NM00006 EQU FLCPIILC 03420000 @NM00005 EQU PSAEPPSW 03421000 FLCSVCN EQU PSAESPSW+2 03422000 FLCSILCB EQU FLCSVILC 03423000 @NM00004 EQU FLCSVILC 03424000 @NM00003 EQU PSAESPSW 03425000 FLCEICOD EQU PSAEEPSW+2 03426000 PSASPAD EQU PSAEEPSW 03427000 @NM00002 EQU PSA+128 03428000 FLCINPSW EQU PSA+120 03429000 FLCMNPSW EQU PSA+112 03430000 FLCPNPSW EQU PSA+104 03431000 FLCSNPSW EQU PSA+96 03432000 FLCENPSW EQU PSA+88 03433000 FLCTRACE EQU PSA+84 03434000 FLCTIMER EQU PSA+80 03435000 FLCCVT2 EQU PSA+76 03436000 FLCCAW EQU PSA+72 03437000 FLCCSW EQU PSA+64 03438000 FLCIOPSW EQU PSA+56 03439000 FLCMOPSW EQU PSA+48 03440000 FLCPOPSW EQU PSA+40 03441000 FLCSOPSW EQU PSA+32 03442000 FLCEOPSW EQU PSA+24 03443000 @NM00001 EQU FLCICCW2+4 03444000 FLCICCW1 EQU FLCROPSW 03445000 FLCIPPSW EQU FLCRNPSW 03446000 * END UNREFERENCED COMPONENTS 03447000 @RC00210 EQU @RC00207 03448000 @RC00233 EQU @RC00231 03449000 @RF00415 EQU LBKEEPCB 03450000 @RC00413 EQU @RC00409 03451000 @ENDDATA EQU * 03452000 END IEAVIOCP,(C'PLS2214',0701,77004) 03453000