TITLE 'TIMER SLIH -MODULE IEAVRTI0 -CSECT IEA0TI00 *00001000 ' 00002000 * /* PROLOG */ 00003000 IEA0TI00 CSECT , 00004000 BALR 15,0 SLIH ENTRY POINT 00005000 USING *,15 00006000 B IEAVRINT 00007000 DC C'IEA0TI00' 00008000 IEAVRINT LA BASEREG,IEAVRMEP 00009000 B IEAVRMEP 00010000 SPACE 2 00011000 ENTRY IEAQTE00 00012000 IEAQTE00 BALR 15,0 ENQUEUE TQE ENTRY POINT 00013000 USING *,15 00014000 L 13,CVTPTR 00015000 L 13,CVTTPC(13) 00016000 STM 0,15,TPCSAVE1(13) 00017000 LA BASEREG,IEAVRMEP 00018000 B EXENQTQE 00019000 SPACE 2 00020000 ENTRY IEAQTD00 00021000 IEAQTD00 BALR 15,0 DEQUEUE TQE ENTRY POINT 00022000 USING *,15 00023000 L 13,CVTPTR 00024000 L 13,CVTTPC(13) 00025000 STM 0,15,TPCSAVE1(13) 00026000 LA BASEREG,IEAVRMEP 00027000 B EXDEQTQE 00028000 SPACE 2 00029000 ENTRY IEAVRQCK 00030000 IEAVRQCK BALR 15,0 RQCHECK ENTRY POINT 00031000 USING *,15 00032000 LA BASEREG,IEAVRMEP 00033000 B RQCHECK 00034000 SPACE 2 00035000 ENTRY IEAVRCKQ 00036000 IEAVRCKQ BALR 15,0 SET CLOCK COMP ENTRY POINT 00037000 USING *,15 00038000 L 13,CVTPTR 00039000 L 13,CVTTPC(13) 00040000 TM TPCABND(13),X'80' 00041000 BO 0(2) 00042000 STM 0,15,TPCSAVE2(13) 00043000 LA BASEREG,IEAVRMEP 00044000 B SETCCEXT 00045000 SPACE 2 00046000 IEAVRMEP EQU * 00047000 USING *,BASEREG 00048000 JSCBDISP EQU 188 00049000 JSCBAOS1 EQU 72 00050000 JSCBAOS2 EQU 192 00051000 RBPRFXLN EQU 64 00052000 RBPRFLNA EQU 32 00053000 PRBLEN EQU 136 00054000 SIRBLEN EQU 200 00055000 TIRBLEN EQU 136 00056000 IRBLEN EQU 128 00057000 SVRBLEN EQU 224 00058000 * FRRPTR=ADDR(IEAVRFRR); /* INITIALIZE PTR TO FRR RTN */ 00059000 L FRRPTR,@CV03196 0134 00060000 * GENERATE REFS(PSA,PSALSFCC,FRRSENTR,FRRSLAST,FRRSFRRA,FRRSPARM); 00061000 SETFRR A,FRRAD=(FRRPTR),PARMAD=(TFRRPTR), CC00062000 WRKREGS=(FRRSPTR,FRREPTR), CC00063000 RELATED=('TIMER SLIH',IEAVRTI0(NONE)) 00064000 * TFRRID=SLIHID; /* SET SLIH ID IN TFRRPARM */ 00065000 MVC TFRRID(4,TFRRPTR),@CB03216 0136 00066000 * TIMESAVE(19)=R2; /* SAVE RETURN ADDRESS */ 00067000 L @15,LCCAPTR 0137 00068000 L @15,LCCACPUS(,@15) 0137 00069000 L @15,WSACTIME(,@15) 0137 00070000 ST R2,TIMESAVE+72(,@15) 0137 00071000 * RESPECIFY 0138 00072000 * (R2, 0138 00073000 * FRRPTR, 0138 00074000 * FRREPTR, 0138 00075000 * FRRSPTR) UNRSTD; 0138 00076000 * IF INTRUPT='05'X /* IF CPU TIMER INTERRUPT */ 00077000 * THEN /* PROCESS TASK TYPE INTERVAL */ 00078000 CLI INTRUPT,X'05' 0139 00079000 BNE @RF00139 0139 00080000 * DO; 0140 00081000 * TFRRCPUT='1'B; /* INDICATE CPU TIMER INT. */ 00082000 OI TFRRCPUT(TFRRPTR),B'01000000' 0141 00083000 * IF PCCANUIN='0'B /* IF THE CPU TIMER IS USABLE */ 00084000 * THEN /* RESET WITH MAXIMUM VALUE */ 00085000 L @12,PCCAPTR 0142 00086000 TM PCCANUIN(@12),B'10000000' 0142 00087000 BNZ @RF00142 0142 00088000 * GENERATE(SPT HIGHCPUT); 0143 00089000 SPT HIGHCPUT 00090000 * RESPECIFY 0144 00091000 * (TCBPTR) RSTD; 0144 00092000 @RF00142 DS 0H 0145 00093000 * TCBPTR=PSATOLD; /* POINT TCB PTR TO TCB */ 00094000 L TCBPTR,PSATOLD 0145 00095000 * IF TCBPTR^=0 /* IF THERE IS INDEED A TCB, */ 00096000 * THEN /* SEE IF IT HAS A TASK TQE. */ 00097000 SLR @12,@12 0146 00098000 CR TCBPTR,@12 0146 00099000 BE @RF00146 0146 00100000 * IF TCBTQET='0'B&TCBTME^=0 /* IF IT HAS A TASK TYPE TQE, */ 00101000 * THEN /* PROCESS THE TQE. */ 00102000 TM TCBTQET(TCBPTR),B'10000000' 0147 00103000 BNZ @RF00147 0147 00104000 L @08,TCBTME(,TCBPTR) 0147 00105000 CR @08,@12 0147 00106000 BE @RF00147 0147 00107000 * DO; 0148 00108000 * TQEPTR=TCBTME; 0149 00109000 LR TQEPTR,@08 0149 00110000 * TFRRTQEP=TQEPTR; /* SAVE TQE PTR FOR FRR */ 00111000 ST TQEPTR,TFRRTQEP(,TFRRPTR) 0150 00112000 * RESPECIFY 0151 00113000 * (TCBPTR) UNRSTD; /* GET SALLOC AND DISP LOCKS */ 00114000 * RESPECIFY 0152 00115000 * (R11, 0152 00116000 * R12, 0152 00117000 * R13, 0152 00118000 * R14) RSTD; 0152 00119000 * GENERATE REFS(PSALITA,FLC); 0153 00120000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, CC00121000 RELATED=(GETMAIN,IEAVRTI0(NONE)) 00122000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, CC00123000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) 00124000 * TFRRSALL='1'B; /* INDICATE SALLOC LOCK GOTTEN */ 00125000 * TFRRDISP='1'B; /* INDICATE DISP LOCK GOTTEN */ 00126000 OI TFRRSALL(TFRRPTR),B'10100000' 0155 00127000 * RESPECIFY 0156 00128000 * (R11, 0156 00129000 * R12, 0156 00130000 * R13, 0156 00131000 * R14) UNRSTD; 0156 00132000 * TQEINCOM='1'B; /* INDICATE INTERVAL COMPLETE */ 00133000 OI TQEINCOM(TQEPTR),B'00001000' 0157 00134000 * RESPECIFY 0158 00135000 * (R2) RSTD; 0158 00136000 * R2=ADDR(DEQRET1); 0159 00137000 LA R2,DEQRET1 0159 00138000 * CALL DEQTQE; /* DEQUEUE THE TQE */ 00139000 BAL @14,DEQTQE 0160 00140000 *DEQRET1: 0161 00141000 * CALL AECTLRTN; /* SCHEDULE SRB ROUTINE RELEASE 00142000 * SALLOC AND DISP LKS */ 00143000 DEQRET1 BAL @14,AECTLRTN 0161 00144000 * RESPECIFY 0162 00145000 * (R11, 0162 00146000 * R12, 0162 00147000 * R13, 0162 00148000 * R14) RSTD; 0162 00149000 * GENERATE REFS(PSALITA,FLC); 0163 00150000 SETLOCK RELEASE,TYPE=SALLOC,DISABLED, CC00151000 RELATED=(GETMAIN,IEAVRTI0(NONE)) 00152000 SETLOCK RELEASE,TYPE=DISP,DISABLED, CC00153000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) 00154000 * RESPECIFY 0164 00155000 * (R11, 0164 00156000 * R12, 0164 00157000 * R13, 0164 00158000 * R14) UNRSTD; 0164 00159000 * TFRRSALL='0'B; /* INDICATE SALLOC LOCK FREED */ 00160000 * TFRRDISP='0'B; /* INDICATE DISP LOCK FREED */ 00161000 NI TFRRSALL(TFRRPTR),B'01011111' 0166 00162000 * RESPECIFY 0167 00163000 * (R2) UNRSTD; 0167 00164000 * END; 0168 00165000 * END; 0169 00166000 * ELSE /* HERE IF NOT CPU TIMER INT. */ 00167000 * DO; 0170 00168000 B @RC00139 0170 00169000 @RF00139 DS 0H 0171 00170000 * IF INTRUPT='04'X /* IF CLOCK COMP INTERRUPT */ 00171000 * THEN /* PROCESS REAL/WAIT TYPE TQE */ 00172000 CLI INTRUPT,X'04' 0171 00173000 BNE @RF00171 0171 00174000 * DO; 0172 00175000 * TFRRCLKC='1'B; /* INDICATE CLK COMP INTERRUPT 0173 00176000 * GET THE DISPATCHER LOCK */ 00177000 OI TFRRCLKC(TFRRPTR),B'00100000' 0173 00178000 * RESPECIFY 0174 00179000 * (R11, 0174 00180000 * R12, 0174 00181000 * R13, 0174 00182000 * R14) RSTD; 0174 00183000 * GENERATE REFS(PSALITA,FLC); 0175 00184000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, CC00185000 RELATED=('TQE QUEUE',IEAVRTI0(NONE,NONE,NONE)) 00186000 * RESPECIFY 0176 00187000 * (R11, 0176 00188000 * R12, 0176 00189000 * R13, 0176 00190000 * R14) UNRSTD; 0176 00191000 * TFRRDISP='1'B; /* INDICATE DISP LOCK GOTTEN */ 00192000 OI TFRRDISP(TFRRPTR),B'10000000' 0177 00193000 * IF PCCATQEP=0 /* IF CPU NOT TIMING A TQE, */ 00194000 * THEN /* RESET CLOCK COMP AND EXIT */ 00195000 L @12,PCCAPTR 0178 00196000 L @08,PCCATQEP(,@12) 0178 00197000 LTR @08,@08 0178 00198000 BNZ @RF00178 0178 00199000 * DO; 0179 00200000 * RESPECIFY 0180 00201000 * (R2) RSTD; 0180 00202000 * IF PCCANUCC^='0'B /* IF CLOCK COMP NOT USABLE */ 00203000 * THEN /* DISABLE CC INTERRUPTS */ 00204000 TM PCCANUCC(@12),B'10000000' 0181 00205000 BZ @RF00181 0181 00206000 * DO; 0182 00207000 * R2=ADDR(TIMESAVE); 0183 00208000 L @12,LCCAPTR 0183 00209000 L @12,LCCACPUS(,@12) 0183 00210000 L R2,WSACTIME(,@12) 0183 00211000 * GENERATE; 0184 00212000 STCTL 0,0,0(R2) 00213000 NI 2(R2),X'F7' SET BIT 20 = 0 IN CR0 00214000 LCTL 0,0,0(R2) 00215000 * END; 0185 00216000 * R2=ADDR(CCRET1); 0186 00217000 @RF00181 LA R2,CCRET1 0186 00218000 * CALL SETCC; /* RESET CLOCK COMPARATOR */ 00219000 BAL @14,SETCC 0187 00220000 * RESPECIFY 0188 00221000 * (R2) UNRSTD; 0188 00222000 *CCRET1: 0189 00223000 * END; 0189 00224000 * ELSE /* IF CPU WAS TIMING A TQE, */ 00225000 * DO; /* PROCESS THE TQE. */ 00226000 B @RC00178 0190 00227000 @RF00178 DS 0H 0191 00228000 * TQEPTR=TPCHDCCQ; /* SET UP TQE POINTER */ 00229000 L @12,CVTPTR 0191 00230000 L @12,TPCPTR(,@12) 0191 00231000 L TQEPTR,TPCHDCCQ(,@12) 0191 00232000 * TFRRTQEP=TQEPTR; /* SAVE TQE PTR FOR FRR */ 00233000 ST TQEPTR,TFRRTQEP(,TFRRPTR) 0192 00234000 * PCCATQEP=0; /* INDICATE THAT THIS CPU'S CLK 00235000 * COMP IS NOT TIMING A TQE. */ 00236000 L @12,PCCAPTR 0193 00237000 SLR @08,@08 0193 00238000 ST @08,PCCATQEP(,@12) 0193 00239000 * TQEINCOM='1'B; /* INDICATE INTERVAL COMPLETE */ 00240000 OI TQEINCOM(TQEPTR),B'00001000' 0194 00241000 * RESPECIFY 0195 00242000 * (R2) RSTD; 0195 00243000 * R2=ADDR(PROCRET1); 0196 00244000 LA R2,PROCRET1 0196 00245000 * CALL PROCTQE; /* PROCESS THE TQE */ 00246000 BAL @14,PROCTQE 0197 00247000 * RESPECIFY 0198 00248000 * (R2) UNRSTD; 0198 00249000 *PROCRET1: 0199 00250000 * END; /* RELEASE DISPATCHER LOCK */ 00251000 PROCRET1 DS 0H 0200 00252000 * RESPECIFY 0200 00253000 * (R11, 0200 00254000 * R12, 0200 00255000 * R13, 0200 00256000 * R14) RSTD; 0200 00257000 @RC00178 DS 0H 0201 00258000 * GENERATE REFS(PSALITA,FLC); 0201 00259000 SETLOCK RELEASE,TYPE=DISP,DISABLED, CC00260000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) 00261000 * RESPECIFY 0202 00262000 * (R11, 0202 00263000 * R12, 0202 00264000 * R13, 0202 00265000 * R14) UNRSTD; 0202 00266000 * TFRRDISP='0'B; /* INDICATE DISP LOCK FREED */ 00267000 NI TFRRDISP(TFRRPTR),B'01111111' 0203 00268000 * END; 0204 00269000 * ELSE /* HERE IF NOT CPUT OR CC INT */ 00270000 * IF INTRUPT='03'X /* IF SYNC CHECK INTERRUPT */ 00271000 * THEN /* MARK IN TPC */ 00272000 B @RC00171 0205 00273000 @RF00171 CLI INTRUPT,X'03' 0205 00274000 BNE @RF00205 0205 00275000 * DO; 0206 00276000 * TFRRSYNC='1'B; /* INDICATE SYNC CK INTERRUPT */ 00277000 OI TFRRSYNC(TFRRPTR),B'10000000' 0207 00278000 * TPCSYNC='1'B; 0208 00279000 L @12,CVTPTR 0208 00280000 L @12,TPCPTR(,@12) 0208 00281000 OI TPCSYNC(@12),B'01000000' 0208 00282000 * RESPECIFY 0209 00283000 * (R13) RSTD; 0209 00284000 * R13=ADDR(TIMESAVE); 0210 00285000 L @08,LCCAPTR 0210 00286000 L @08,LCCACPUS(,@08) 0210 00287000 L R13,WSACTIME(,@08) 0210 00288000 * GENERATE; 0211 00289000 STCTL 0,0,0(R13) 00290000 NI 2(R13),X'EF' DISABLE SYNC CHECKS 00291000 LCTL 0,0,0(R13) 00292000 * RESPECIFY 0212 00293000 * (R13) UNRSTD; 0212 00294000 * END; 0213 00295000 * END; 0214 00296000 @RF00205 DS 0H 0214 00297000 @RC00171 DS 0H 0215 00298000 * RESPECIFY 0215 00299000 * (R2, 0215 00300000 * FRRSPTR, 0215 00301000 * R14) RSTD; 0215 00302000 @RC00139 DS 0H 0216 00303000 * R2=TIMESAVE(19); /* RESTORE R2 FOR EXT FLIH */ 00304000 L @15,LCCAPTR 0216 00305000 L @15,LCCACPUS(,@15) 0216 00306000 L @15,WSACTIME(,@15) 0216 00307000 L R2,TIMESAVE+72(,@15) 0216 00308000 * GENERATE REFS(PSACSTK,FRRSCURR,FRRS,FRRSEMP,FRRSELEN); 0217 00309000 SETFRR D,WRKREGS=(FRRSPTR,FRREPTR), CC00310000 RELATED=('TIMER SLIH',IEAVRTI0(NONE)) 00311000 * R14=R2; /* SET R14 FOR RETURN */ 00312000 LR R14,R2 0218 00313000 * RETURN; /* RETURN TO EXTERNAL FLIH */ 00314000 @EL00001 DS 0H 0219 00315000 @EF00001 DS 0H 0219 00316000 @ER00001 BR @14 0219 00317000 * RESPECIFY 0220 00318000 * (R2, 0220 00319000 * FRRSPTR, 0220 00320000 * R14) UNRSTD; 0220 00321000 * 0221 00322000 */* *****************************************************************/ 00323000 */* */ 00324000 */* PROCESS TQE SUBROUTINE */ 00325000 */* */ 00326000 */* *****************************************************************/ 00327000 */* */ 00328000 */* FUNCTION- DEQUEUES THE TOP TQE ON THE REAL QUEUE AND */ 00329000 */* 1. DOES SPECIAL PROCESSING IF A SYSTEM TQE */ 00330000 */* 2. BRANCHES TO A USER SPECIFIED DIE ROUTINE IF */ 00331000 */* A DIE TQE OR */ 00332000 */* 3. SCHEDULES SRB ROUTINE IF A USER TQE (NOT DIE)*/ 00333000 */* */ 00334000 */* INPUT - 1. DISPATCHER LOCK */ 00335000 */* 2. SUPERVISOR STATE */ 00336000 */* 3. PROTECT KEY 0 */ 00337000 */* 4. R1= POINTER TO THE SUBJECT TQE */ 00338000 */* 5. R2= RETURN ADDRESS */ 00339000 */* */ 00340000 */* ENVIRONMNT */ 00341000 */* CHANGES - 1. ALL REGS EXCEPT R13 AND R15 SAVED */ 00342000 */* 2. DISPATCHER LOCK RELEASED IF SYS RESOURCES MGR*/ 00343000 */* TQE OR MF/1 TQE AND THE INTERVAL HAS */ 00344000 */* COMPLETED SUCCESSFULLY. */ 00345000 */* */ 00346000 */* OTHER RTNS */ 00347000 */* USED - 1. DEQ TQE */ 00348000 */* 2. ASYNCHLONOUS EXIT CONTROL SUBROUTINE */ 00349000 */* 3. SETLOCK */ 00350000 */* 4. SYSEVENT */ 00351000 */* 5. MFROUTER */ 00352000 */* 6. ENQ TQE */ 00353000 */* 7. USER DIE ROUTINE (IF DIE TQE) */ 00354000 */* */ 00355000 */* CALLERS - 1. TIMER SLIH MAINLINE IF REAL OR WAIT TQE */ 00356000 */* 2. SET CC ROUTINE WHEN ABENDING REAL QUEUE */ 00357000 */* */ 00358000 */* OUTPUT - SUBJECT TQE ON REAL TIME QUE PROCESSED */ 00359000 */* */ 00360000 */* *****************************************************************/ 00361000 * 0221 00362000 *PROCTQE: 0221 00363000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,NOENTREG,RETREG); 0221 00364000 PROCTQE DS 0H 0222 00365000 * RESPECIFY 0222 00366000 * (R2, 0222 00367000 * R4, 0222 00368000 * R13) RSTD; 0222 00369000 * R13=ADDR(TIMESAVE); /* LOCATE SAVE AREA */ 00370000 L @08,LCCAPTR 0223 00371000 L @08,LCCACPUS(,@08) 0223 00372000 L R13,WSACTIME(,@08) 0223 00373000 * GENERATE /* SAVE REGISTERS */ 00374000 * (STM R14,R12,12(R13)); 0224 00375000 STM R14,R12,12(R13) 00376000 * RESPECIFY 0225 00377000 * (R4, 0225 00378000 * R13) UNRSTD; 0225 00379000 * R2=ADDR(DEQRET2); 0226 00380000 LA R2,DEQRET2 0226 00381000 * CALL DEQTQE; /* DEQUEUE THE TQE */ 00382000 BAL @14,DEQTQE 0227 00383000 *DEQRET2: 0228 00384000 * RESPECIFY 0228 00385000 * (R2) UNRSTD; 0228 00386000 DEQRET2 DS 0H 0229 00387000 * IF TQEUSER='1'B THEN /* IF TQE IS A USER TQE, */ 00388000 TM TQEUSER(TQEPTR),B'01000000' 0229 00389000 BNO @RF00229 0229 00390000 * DO; /* SEE IF A DIE TQE @Z40FPYB*/ 00391000 * IF TQEDIE='1'B THEN /* IF A DIE TQE, @Z40FPYB*/ 00392000 TM TQEDIE(TQEPTR),B'10000000' 0231 00393000 BNO @RF00231 0231 00394000 * DO; /* SEE IF INTV COMPL @Z40FPYB*/ 00395000 * IF TQEINCOM='0'B THEN /* IF DIE INTV IS @Z40FPYB*/ 00396000 TM TQEINCOM(TQEPTR),B'00001000' 0233 00397000 BNZ @RF00233 0233 00398000 * DO; /* NOT COMPLETE THEN @Z40FPYB*/ 00399000 * RESPECIFY 0235 00400000 * (R2) RSTD; /* RE-ENQUEUE THE TQE @Z40FPYB*/ 00401000 * R2=ADDR(ENQRET1); /* DO @Z40FPYB*/ 00402000 LA R2,ENQRET1 0236 00403000 * CALL ENQTQE; /* DO @Z40FPYB*/ 00404000 BAL @14,ENQTQE 0237 00405000 * RESPECIFY 0238 00406000 * (R2) UNRSTD; /* DO @Z40FPYB*/ 00407000 * END; /* DO @Z40FPYB*/ 00408000 * ELSE /* IF DIE INTV IS @Z40FPYB*/ 00409000 * DO; /* COMPLETE THEN @Z40FPYB*/ 00410000 B @RC00233 0240 00411000 @RF00233 DS 0H 0241 00412000 * RESPECIFY 0241 00413000 * (R11, 0241 00414000 * R12, 0241 00415000 * R13, 0241 00416000 * R14) RSTD; /* @Z40FPYB*/ 00417000 * GENERATE REFS(PSALITA,FLC); 0242 00418000 * /*REL DISP LOCK @Z40FPYB*/ 00419000 SETLOCK RELEASE,TYPE=DISP,DISABLED, CC00420000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) 00421000 * RESPECIFY 0243 00422000 * (R11, 0243 00423000 * R12, 0243 00424000 * R13, 0243 00425000 * R14) UNRSTD; /* @Z40FPYB*/ 00426000 * TFRRDISP='0'B; /* IND LOCK RELEASED @Z40FPYB*/ 00427000 NI TFRRDISP(TFRRPTR),B'01111111' 0244 00428000 * RESPECIFY 0245 00429000 * (R0, 0245 00430000 * R2, 0245 00431000 * R3, 0245 00432000 * R7, 0245 00433000 * R8, 0245 00434000 * R14) RSTD; /* @Z40FPYB*/ 00435000 * R7=PSALCCAV; /* SUSPEND JST @Z40FPYB*/ 00436000 L R7,PSALCCAV 0246 00437000 * R8=PSAAOLD; /* IF NOT WAIT @Z40FPYB*/ 00438000 L R8,PSAAOLD 0247 00439000 * IF R8^=ADDR(IEAWASCB) THEN/* ASCB WAS NOT @Z40FPYB*/ 00440000 L @15,@CV03194 0248 00441000 CR R8,@15 0248 00442000 BE @RF00248 0248 00443000 * CALL DSJSTCSR; /* INTERRUPTED. @Z40FPYB*/ 00444000 L @15,@CV03193 0249 00445000 BALR @14,@15 0249 00446000 * RESPECIFY 0250 00447000 * (R0, 0250 00448000 * R2, 0250 00449000 * R3, 0250 00450000 * R7, 0250 00451000 * R8, 0250 00452000 * R14) UNRSTD; /* @Z40FPYB*/ 00453000 @RF00248 DS 0H 0251 00454000 * TQEPTR=TFRRTQEP; /* RESTORE TQE POINTER /*@Z40FPYB*/ 00455000 L TQEPTR,TFRRTQEP(,TFRRPTR) 0251 00456000 * TFRRDIER='1'B; /* IND DIE EXECUTION @Z40FPYB*/ 00457000 OI TFRRDIER(TFRRPTR),B'00001000' 0252 00458000 * GENERATE REFS(TQEDREGS,TQEEXIT); 0253 00459000 LM R2,R12,TQEDREGS(R1) RESTORE PARM REGS 00460000 L R15,TQEEXIT(R1) GET DIE ENTRY POINT 00461000 BALR R14,R15 GOTO DIE ROUTINE 00462000 * RESPECIFY 0254 00463000 * (R13) RSTD; /* @Z40FPYB*/ 00464000 * R13=ADDR(TIMESAVE); /* SET SA PTR @Z40FPYB*/ 00465000 L @08,LCCAPTR 0255 00466000 L @08,LCCACPUS(,@08) 0255 00467000 L R13,WSACTIME(,@08) 0255 00468000 * GEN(LM R14,R12,12(R13));/* RESTORE REGS @Z40FPYB*/ 00469000 LM R14,R12,12(R13) 00470000 * CALL JSTRSM; /* RESUME JST @Z40FPYB*/ 00471000 BAL @14,JSTRSM 0257 00472000 * RESPECIFY 0258 00473000 * (R13) UNRSTD; /* @Z40FPYB*/ 00474000 * END; /* @Z40FPYB*/ 00475000 * END; /* @Z40FPYB*/ 00476000 * ELSE /* HERE IF NOT DIE @Z40FPYB*/ 00477000 * CALL AECTLRTN; /* SET UP SRB @Z40FPYB*/ 00478000 B @RC00231 0261 00479000 @RF00231 BAL @14,AECTLRTN 0261 00480000 * END; /* @Z40FPYB*/ 00481000 * ELSE /* IF SYSTEM TQE */ 00482000 * DO; /* A PROCESS EACH INDIVIDUALLY. */ 00483000 B @RC00229 0263 00484000 @RF00229 DS 0H 0264 00485000 * IF TQECRH='1'B THEN /* IF CINTER TQE @ZM30496*/ 00486000 TM TQECRH(TQEPTR),B'00100000' 0264 00487000 BNO @RF00264 0264 00488000 * DO; 0265 00489000 * IF TQEINCOM='0'B THEN /* IF INTERVAL NOT COMPLETE 0266 00490000 * @ZM30496*/ 00491000 TM TQEINCOM(TQEPTR),B'00001000' 0266 00492000 BNZ @RF00266 0266 00493000 * DO; /* RE-ENQUEUE CINTER TQE @ZM30496*/ 00494000 * RFY 0268 00495000 * (R2) RSTD; /* @ZM30496*/ 00496000 * R2=ADDR(ENQRETC); /* SET UP RETURN ADDR @ZM30496*/ 00497000 LA R2,ENQRETC 0269 00498000 * CALL ENQTQE; /* @ZM30496*/ 00499000 BAL @14,ENQTQE 0270 00500000 *ENQRETC: 0271 00501000 * RFY 0271 00502000 * (R2) UNRSTD; /* @ZM30496*/ 00503000 ENQRETC DS 0H 0272 00504000 * END; /* @ZM30496*/ 00505000 * ELSE /* IF INTERVAL COMPLETED @ZM30496*/ 00506000 * DO; /* FREE DISP LOCK @ZM30496*/ 00507000 B @RC00266 0273 00508000 @RF00266 DS 0H 0274 00509000 * RFY 0274 00510000 * (R11, 0274 00511000 * R12, 0274 00512000 * R13, 0274 00513000 * R14) RSTD; /* @ZM30496*/ 00514000 * GEN REFS(PSALITA,FLC); 0275 00515000 * /* @ZM30496*/ 00516000 SETLOCK RELEASE,TYPE=DISP,DISABLED, **00517000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) @ZM30496 00518000 * RFY 0276 00519000 * (R11, 0276 00520000 * R12, 0276 00521000 * R13, 0276 00522000 * R14) UNRSTD; /* @ZM30496*/ 00523000 * TFRRDISP='0'B; /* IND DISP LOCK RELEASED 0277 00524000 * @ZM30496*/ 00525000 NI TFRRDISP(TFRRPTR),B'01111111' 0277 00526000 * CALL CINTER; /* THE TIMER SLIH CODEREG, REG 9 00527000 * IN THIS CASE, MUST BE 0278 00528000 * PRESERVED ACROSS THIS 0278 00529000 * INTERFACE @ZM30496*/ 00530000 L @15,CRHSADDR 0278 00531000 BALR @14,@15 0278 00532000 * END; /* @ZM30496*/ 00533000 * END; /* @ZM30496*/ 00534000 * ELSE /* HERE IF NOT CINTER TQE 0281 00535000 * @ZM30496*/ 00536000 * IF TQEOPT='1'B /* IF SYS RESOURCES MGR TQE */ 00537000 * THEN /* ISSUE SYSEVENT (TIMEREXP) */ 00538000 B @RC00264 0281 00539000 @RF00264 TM TQEOPT(TQEPTR),B'00000100' 0281 00540000 BNO @RF00281 0281 00541000 * DO; /* B */ 00542000 * IF TQEINCOM='0'B /* IF INTERVAL NOT COMPLETE, */ 00543000 * THEN /* RE-ENQUEUE SYSTEM RESOURCES 0283 00544000 * MANAGER TQE */ 00545000 TM TQEINCOM(TQEPTR),B'00001000' 0283 00546000 BNZ @RF00283 0283 00547000 * DO; 0284 00548000 * RESPECIFY 0285 00549000 * (R2) RSTD; 0285 00550000 * R2=ADDR(ENQRETO); 0286 00551000 LA R2,ENQRETO 0286 00552000 * CALL ENQTQE; 0287 00553000 BAL @14,ENQTQE 0287 00554000 *ENQRETO: 0288 00555000 * RESPECIFY 0288 00556000 * (R2) UNRSTD; 0288 00557000 ENQRETO DS 0H 0289 00558000 * END; 0289 00559000 * ELSE /* IF INTERVAL DID COMPLETE, */ 00560000 * DO; /* THEN FREE DISPATCHER LOCK */ 00561000 B @RC00283 0290 00562000 @RF00283 DS 0H 0291 00563000 * RESPECIFY 0291 00564000 * (R11, 0291 00565000 * R12, 0291 00566000 * R13, 0291 00567000 * R14) RSTD; 0291 00568000 * GENERATE REFS(PSALITA,FLC); 0292 00569000 SETLOCK RELEASE,TYPE=DISP,DISABLED, CC00570000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) 00571000 * RESPECIFY 0293 00572000 * (R11, 0293 00573000 * R12, 0293 00574000 * R13, 0293 00575000 * R14) UNRSTD; 0293 00576000 * TFRRDISP='0'B; /* INDICATE DISP LOCK RELEASED. 00577000 * @YM00543 00578000 * BEFORE ENTERING SRM, USE THE 00579000 * DISPATCHER JOB STEP TIMING 0294 00580000 * SUBROUTINE TO BRING JOB STEP 00581000 * TIME UP TO DATE @YM08360 00582000 * UNLESS WAIT ASCB WAS 0294 00583000 * INTERRUPTED. */ 00584000 NI TFRRDISP(TFRRPTR),B'01111111' 0294 00585000 * RFY 0295 00586000 * (R0, 0295 00587000 * R2, 0295 00588000 * R3, 0295 00589000 * R7, 0295 00590000 * R8, 0295 00591000 * R14) RSTD; /* @YM00543*/ 00592000 * R7=PSALCCAV; /* @YM00543*/ 00593000 L R7,PSALCCAV 0296 00594000 * R8=PSAAOLD; /* @YM00543*/ 00595000 L R8,PSAAOLD 0297 00596000 * IF R8^=ADDR(IEAWASCB) THEN/* @YM08360*/ 00597000 L @15,@CV03194 0298 00598000 CR R8,@15 0298 00599000 BE @RF00298 0298 00600000 * CALL DSJSTCSR; /* @YM00543*/ 00601000 L @15,@CV03193 0299 00602000 BALR @14,@15 0299 00603000 * RFY 0300 00604000 * (R0, 0300 00605000 * R2, 0300 00606000 * R3, 0300 00607000 * R7, 0300 00608000 * R8, 0300 00609000 * R14) UNRSTD; /* @YM00543*/ 00610000 @RF00298 DS 0H 0301 00611000 * RESPECIFY 0301 00612000 * (R13, 0301 00613000 * R15) RSTD; 0301 00614000 * R13=ADDR(TIMESAVE);/* SAVE AREA FOR SRM RESTORE 0302 00615000 * REGS SO SYS RES MGR */ 00616000 L @14,LCCAPTR 0302 00617000 L @14,LCCACPUS(,@14) 0302 00618000 L R13,WSACTIME(,@14) 0302 00619000 * GENERATE /* WILL SAVE CORRECT ONES */ 00620000 * (LM R14,R12,12(R13)); 0303 00621000 LM R14,R12,12(R13) 00622000 * R1=0; /* INDICATE NORMAL TIMEREXP ISSUE 00623000 * SYSEVENT */ 00624000 SLR R1,R1 0304 00625000 * GENERATE REFS(CVT,CVTOPTE) 0305 00626000 * (SYSEVENT TIMEREXP,ENTRY=BRANCH); 0305 00627000 SYSEVENT TIMEREXP,ENTRY=BRANCH 00628000 * RESPECIFY 0306 00629000 * (R15) UNRSTD; /* @Z40FPYB*/ 00630000 * CALL JSTRSM; /* RESUME JST @Z40FPYB*/ 00631000 BAL @14,JSTRSM 0307 00632000 * RESPECIFY 0308 00633000 * (R13) UNRSTD; /* @Z40FPYB*/ 00634000 * END; 0309 00635000 * END; /* B END OF SRM TQE PROCESSING */ 00636000 * ELSE /* HERE IF NOT SYS RES MGR TQE */ 00637000 * DO; /* C */ 00638000 B @RC00281 0311 00639000 @RF00281 DS 0H 0312 00640000 * IF TQEMF1='1'B /* IF MF1'S TQE */ 00641000 * THEN /* GIVE CONTROL TO MF1 */ 00642000 TM TQEMF1(TQEPTR),B'00000010' 0312 00643000 BNO @RF00312 0312 00644000 * DO; 0313 00645000 * IF TQEINCOM='1'B /* IF INTERVAL HAS COMPLETED */ 00646000 * THEN /* NORMAL ENTRY TO MF/1 */ 00647000 TM TQEINCOM(TQEPTR),B'00001000' 0314 00648000 BNO @RF00314 0314 00649000 * DO; 0315 00650000 * RESPECIFY 0316 00651000 * (R11, 0316 00652000 * R12, 0316 00653000 * R13, 0316 00654000 * R14) RSTD; 0316 00655000 * GENERATE REFS(PSALITA,FLC); 0317 00656000 SETLOCK RELEASE,TYPE=DISP,DISABLED, CC00657000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) 00658000 * RESPECIFY 0318 00659000 * (R11, 0318 00660000 * R12, 0318 00661000 * R13, 0318 00662000 * R14) UNRSTD; 0318 00663000 * TFRRDISP='0'B;/* INDICATE DISP LOCK FREED. 0319 00664000 * @YM00543 00665000 * BEFORE ENTERING MF/1, USE THE 00666000 * DISPATCHER JOB STEP TIMING 0319 00667000 * SUBROUTINE TO BRING JOB STEP 00668000 * TIME UP TO DATE @YM08360 00669000 * UNLESS WAIT ASCB WAS 0319 00670000 * INTERRUPTED. */ 00671000 NI TFRRDISP(TFRRPTR),B'01111111' 0319 00672000 * RFY 0320 00673000 * (R0, 0320 00674000 * R2, 0320 00675000 * R3, 0320 00676000 * R7, 0320 00677000 * R8, 0320 00678000 * R14) RSTD; /* @YM00543*/ 00679000 * R7=PSALCCAV; /* @YM00543*/ 00680000 L R7,PSALCCAV 0321 00681000 * R8=PSAAOLD; /* @YM00543*/ 00682000 L R8,PSAAOLD 0322 00683000 * IF R8^=ADDR(IEAWASCB) THEN/* @YM08360*/ 00684000 L @15,@CV03194 0323 00685000 CR R8,@15 0323 00686000 BE @RF00323 0323 00687000 * CALL DSJSTCSR;/* @YM00543*/ 00688000 L @15,@CV03193 0324 00689000 BALR @14,@15 0324 00690000 * RFY 0325 00691000 * (R0, 0325 00692000 * R2, 0325 00693000 * R3, 0325 00694000 * R7, 0325 00695000 * R8, 0325 00696000 * R14) UNRSTD;/* @YM00543*/ 00697000 @RF00323 DS 0H 0326 00698000 * RFY 0326 00699000 * (R13, 0326 00700000 * R15) RSTD; /* @YM00543*/ 00701000 * R13=ADDR(TIMESAVE);/* @YM00543*/ 00702000 L @14,LCCAPTR 0327 00703000 L @14,LCCACPUS(,@14) 0327 00704000 L R13,WSACTIME(,@14) 0327 00705000 * GEN(LM R14,R12,12(R13));/* @YM00543*/ 00706000 LM R14,R12,12(R13) 00707000 * GENERATE REFS(CVTMFACT,CVTMFRTR); 0329 00708000 MFROUTER TIMER 00709000 * R13=ADDR(TIMESAVE); 0330 00710000 L @14,LCCAPTR 0330 00711000 L @14,LCCACPUS(,@14) 0330 00712000 L R13,WSACTIME(,@14) 0330 00713000 * GEN(LM R14,R12,12(R13)); 0331 00714000 LM R14,R12,12(R13) 00715000 * RESPECIFY 0332 00716000 * (R15) UNRSTD;/* @Z40FPYB*/ 00717000 * CALL JSTRSM; /* RESUME JST @Z40FPYB*/ 00718000 BAL @14,JSTRSM 0333 00719000 * RESPECIFY 0334 00720000 * (R13) UNRSTD;/* @Z40FPYB*/ 00721000 * END; 0335 00722000 * ELSE /* HERE IF MF INTV NOT COMPL */ 00723000 * DO; 0336 00724000 B @RC00314 0336 00725000 @RF00314 DS 0H 0337 00726000 * RESPECIFY 0337 00727000 * (R2) RSTD; 0337 00728000 * R2=ADDR(ENQRETM);/* PUT THE MF/1 TQE BACK */ 00729000 LA R2,ENQRETM 0338 00730000 * CALL ENQTQE; /* ON THE REAL TIME QUEUE */ 00731000 BAL @14,ENQTQE 0339 00732000 *ENQRETM: 0340 00733000 * RESPECIFY 0340 00734000 * (R2) UNRSTD; 0340 00735000 ENQRETM DS 0H 0341 00736000 * END; 0341 00737000 * END; 0342 00738000 * ELSE /* HERE IF NOT MF1 TQE */ 00739000 * DO; /* D */ 00740000 B @RC00312 0343 00741000 @RF00312 DS 0H 0344 00742000 * IF TQELM='1'B /* IF JOB STEP TIMING TQE. */ 00743000 * THEN /* CHECK FOR LIMIT VIOLATIONS */ 00744000 TM TQELM(TQEPTR),B'00001000' 0344 00745000 BNO @RF00344 0344 00746000 * DO; /* E */ 00747000 * IF TQEINCOM='1'B/* IF INTERVAL HAS COMPLETED */ 00748000 * THEN /* CHECK ALL MEMORIES */ 00749000 TM TQEINCOM(TQEPTR),B'00001000' 0346 00750000 BNO @RF00346 0346 00751000 * DO; /* F GET SALLOC AND DISP LOCKS */ 00752000 * RESPECIFY 0348 00753000 * (R11, 0348 00754000 * R12, 0348 00755000 * R13, 0348 00756000 * R14) RSTD; 0348 00757000 * GENERATE REFS(PSALITA,FLC); 0349 00758000 SETLOCK RELEASE,TYPE=DISP,DISABLED, CC00759000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) 00760000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, CC00761000 RELATED=(GETMAIN,IEAVRTI0(NONE)) 00762000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, CC00763000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) 00764000 * RESPECIFY 0350 00765000 * (R11, 0350 00766000 * R12, 0350 00767000 * R13, 0350 00768000 * R14) UNRSTD; 0350 00769000 * TFRRSALL='1'B;/* INDIC. SALLOC LOCK GOTTEN 00770000 * NOW SCAN EACH MEMORY(ASCB) AS 00771000 * PER THE ASVT. NO MEMORY SHOULD 00772000 * EXCEED ITS JOB STEP TIME LIMIT 00773000 * (ASCBJSTL) AND NO WAITING MEM 00774000 * SHOULD BE UN- DISPATCHED FOR 00775000 * LONGER THAN THE TIME LIMIT IN 00776000 * ASCBSWTL */ 00777000 OI TFRRSALL(TFRRPTR),B'00100000' 0351 00778000 * RESPECIFY 0352 00779000 * (SLOTCNT, 0352 00780000 * ASCBPTR) RSTD; 0352 00781000 * DO SLOTCNT=ASVTMAXU TO 1 BY-1; 0353 00782000 L @12,CVTPTR 0353 00783000 L @12,CVTASVT(,@12) 0353 00784000 L SLOTCNT,ASVTMAXU(,@12) 0353 00785000 B @DE00353 0353 00786000 @DL00353 DS 0H 0354 00787000 * ASCBPTR=MEMPTRS(SLOTCNT); 0354 00788000 * 0354 00789000 LR @10,SLOTCNT 0354 00790000 SLA @10,2 0354 00791000 L @08,CVTPTR 0354 00792000 L @07,CVTASVT(,@08) 0354 00793000 L @10,MEMPTRS-4(@10,@07) 0354 00794000 LR ASCBPTR,@10 0354 00795000 * /*****************************************/ 00796000 * /* */ 00797000 * /* IF MEMORY EXISTS AND JS TIMING IS */ 00798000 * /* INDICATED, THEN CHECK FOR LIMITS MET */ 00799000 * /* OR EXCEEDED. */ 00800000 * /* */ 00801000 * /*****************************************/ 00802000 * 0355 00803000 * IF MEMPTRS(SLOTCNT)>0&ASCBTOFF='0'B THEN 00804000 LTR @10,@10 0355 00805000 BNP @RF00355 0355 00806000 TM ASCBTOFF(ASCBPTR),B'10000000' 0355 00807000 BNZ @RF00355 0355 00808000 * DO; 0356 00809000 * VIOL='00'X;/* INIT TO NO VIOL. */ 00810000 * 0357 00811000 L @12,TPCPTR(,@08) 0357 00812000 MVI VIOL(@12),X'00' 0357 00813000 * /*************************************/ 00814000 * /* */ 00815000 * /* CHECK FIRST FOR JOB STEP TIME MET */ 00816000 * /* OR EXCEEDED @ZA15348*/ 00817000 * /* */ 00818000 * /*************************************/ 00819000 * 0358 00820000 * IF ASCBETLH>=ASCBJSTL THEN/* @ZA15348*/ 00821000 CLC ASCBETLH(4,ASCBPTR),ASCBJSTL(ASCBPTR) 0358 00822000 BL @RF00358 0358 00823000 * VIOL='8F'X;/* VIOLATION @ZA15348*/ 00824000 MVI VIOL(@12),X'8F' 0359 00825000 * ELSE/* JST NOT MET/EXCEEDED @ZA15348*/ 00826000 * 0360 00827000 * /***********************************/ 00828000 * /* */ 00829000 * /* IF THE MEMORY IS RESTORED AND ON*/ 00830000 * /* THE READY QUEUE BUT WITH NO */ 00831000 * /* READY TCB'S (IE. SHORT WAIT), OR*/ 00832000 * /* IS SWAPPED OUT AND IN A LONG */ 00833000 * /* WAIT, CHECK TO SEE IF WAIT TIME */ 00834000 * /* HAS BEEN EXCEEDED. @ZA15348*/ 00835000 * /* */ 00836000 * /***********************************/ 00837000 * 0360 00838000 * DO;/* @ZA15348*/ 00839000 B @RC00358 0360 00840000 @RF00358 DS 0H 0361 00841000 * IF(ASCBTMNO='0'B&ASCBTCBS=0)|( 0361 00842000 * ASCBTMNO='1'B&ASCBTMLW='1'B& 00843000 * ASCBWAIT='1'B) THEN/* 0361 00844000 * @ZA15348*/ 00845000 TM ASCBTMNO(ASCBPTR),B'10000000' 0361 00846000 BNZ @GL00003 0361 00847000 L @12,ASCBTCBS(,ASCBPTR) 0361 00848000 LTR @12,@12 0361 00849000 BZ @RT00361 0361 00850000 @GL00003 TM ASCBTMNO(ASCBPTR),B'10001010' 0361 00851000 BNO @RF00361 0361 00852000 @RT00361 DS 0H 0362 00853000 * IF(TQEVALLH-ASCBSWTL)>ASCBWTLH 00854000 * THEN/* @ZA15348*/ 00855000 L @12,TQEVALLH(,TQEPTR) 0362 00856000 SL @12,ASCBSWTL(,ASCBPTR) 0362 00857000 CL @12,ASCBWTLH(,ASCBPTR) 0362 00858000 BNH @RF00362 0362 00859000 * VIOL='9F'X;/* @ZA15348*/ 00860000 L @12,CVTPTR 0363 00861000 L @12,TPCPTR(,@12) 0363 00862000 MVI VIOL(@12),X'9F' 0363 00863000 * END;/* @ZA15348*/ 00864000 @RF00362 DS 0H 0364 00865000 @RF00361 DS 0H 0365 00866000 * IF VIOL^=0/* IF IN VIOLATION */ 00867000 * THEN/* SCHDULE IEATLEXT */ 00868000 @RC00358 L @12,CVTPTR 0365 00869000 L @12,TPCPTR(,@12) 0365 00870000 CLI VIOL(@12),0 0365 00871000 BE @RF00365 0365 00872000 * DO;/* 1ST, NO LONGER CK THIS MEMORY*/ 00873000 * RESPECIFY 0367 00874000 * (R0, 0367 00875000 * R14, 0367 00876000 * R15) RSTD; 0367 00877000 * GENERATE REFS(ASCBFLG1,ASCBAFFN); 00878000 LA 15,X'80' 00879000 SLL 15,24-(8*((ASCBFLG1-ASCBAFFN)-(((ASCBFLG1-ASCBAFFN)/4)*4))) 00880000 TLOOP L 0,ASCBAFFN+(((ASCBFLG1-ASCBAFFN)/4)*4)(ASCBPTR) 00881000 LR 14,0 00882000 OR 14,15 00883000 CS 0,14,ASCBAFFN+(((ASCBFLG1-ASCBAFFN)/4)*4)(ASCBPTR) 00884000 BNZ TLOOP 00885000 * RESPECIFY 0369 00886000 * (R3, 0369 00887000 * R4) RSTD; 0369 00888000 * R0=128;/* 2ND, GET SPACE FOR A 0370 00889000 * TQE */ 00890000 LA R0,128 0370 00891000 * R3=245;/* IN SQA */ 00892000 LA R3,245 0371 00893000 * GENERATE REFS(CVTSPSA,CVTGLMN, 0372 00894000 * WSAGGMFM,WSAG); 0372 00895000 GETMAIN RU,LV=(0),SP=(3),BRANCH=(YES,GLOBAL) 00896000 * RESPECIFY 0373 00897000 * (R0, 0373 00898000 * R3, 0373 00899000 * R4, 0373 00900000 * R14, 0373 00901000 * R15) UNRSTD;/* 3RD BUILD TQE */ 00902000 * TQEAID=ASCBASID; 0374 00903000 LH @12,ASCBASID(,ASCBPTR) 0374 00904000 N @12,@CF03361 0374 00905000 STH @12,TQEAID(,TQEPTR) 0374 00906000 * TQEASCB=ASCBPTR; 0375 00907000 ST ASCBPTR,TQEASCB(,TQEPTR) 0375 00908000 * TQESADDR=0; 0376 00909000 SLR @12,@12 0376 00910000 ST @12,TQESADDR(,TQEPTR) 0376 00911000 * TQEEXIT=ADDR(IEATLEXT); 0377 00912000 L @10,@CV03192 0377 00913000 ST @10,TQEEXIT(,TQEPTR) 0377 00914000 * TQETCB=0; 0378 00915000 ST @12,TQETCB(,TQEPTR) 0378 00916000 * TQELHPSW='070C0000'X; 0379 00917000 MVC TQELHPSW(4,TQEPTR),@CF03289 0379 00918000 * TQEFLGS=VIOL;/* RESTORE TQE PTR */ 00919000 L @12,CVTPTR 0380 00920000 L @12,TPCPTR(,@12) 0380 00921000 MVC TQEFLGS(1,TQEPTR),VIOL(@12) 0380 00922000 * CALL AECTLRTN;/* 4TH,SCHD SRB RT */ 00923000 BAL @14,AECTLRTN 0381 00924000 * TQEPTR=ADDR(TPCLMTQE); 0382 00925000 L @12,CVTPTR 0382 00926000 L TQEPTR,TPCPTR(,@12) 0382 00927000 LA TQEPTR,TPCLMTQE(,TQEPTR) 0382 00928000 * END;/* @ZA15348*/ 00929000 * END; /* @ZA15348*/ 00930000 @RF00365 DS 0H 0385 00931000 * END; /* @ZA15348*/ 00932000 @RF00355 BCTR SLOTCNT,0 0385 00933000 @DE00353 LTR SLOTCNT,SLOTCNT 0385 00934000 BP @DL00353 0385 00935000 * RESPECIFY 0386 00936000 * (SLOTCNT, 0386 00937000 * ASCBPTR) UNRSTD;/* FREE SALLOC LOCK */ 00938000 * RESPECIFY 0387 00939000 * (R11, 0387 00940000 * R12, 0387 00941000 * R13, 0387 00942000 * R14) RSTD; 0387 00943000 * GENERATE REFS(PSALITA,FLC); 0388 00944000 SETLOCK RELEASE,TYPE=SALLOC,DISABLED, CC00945000 RELATED=(GETMAIN,IEAVRTI0(NONE)) 00946000 * RESPECIFY 0389 00947000 * (R11, 0389 00948000 * R12, 0389 00949000 * R13, 0389 00950000 * R14) UNRSTD; 0389 00951000 * TFRRSALL='0'B;/* INDIC. SALLOC LOCK FREED */ 00952000 NI TFRRSALL(TFRRPTR),B'11011111' 0390 00953000 * TQEVALLH=TQEVALLH+/* SET TQEVAL FOR */ 00954000 * KJSTINTV;/* NEXT INTERVAL. */ 00955000 L @12,TQEVALLH(,TQEPTR) 0391 00956000 AL @12,KJSTINTV 0391 00957000 ST @12,TQEVALLH(,TQEPTR) 0391 00958000 * END; /* F */ 00959000 * END; /* E END OF JST TQE PROCESSING */ 00960000 * ELSE /* HERE IF NOT JST TQE */ 00961000 * DO; /* G */ 00962000 B @RC00344 0394 00963000 @RF00344 DS 0H 0395 00964000 * IF TQEMIDN='1'B/* IF MIDNIGHT TQE, */ 00965000 * THEN /* CK FOR INTERVAL COMPLETE */ 00966000 TM TQEMIDN(TQEPTR),B'00000001' 0395 00967000 BNO @RF00395 0395 00968000 * IF TQEINCOM='1'B/* IF INTERVAL COMPLETE */ 00969000 * THEN /* UPDATE HARDWARE ERROR BYTES, 00970000 * ADD 1 DAY TO CVTDATE, AND SET 00971000 * MNIGHT FOR THE NEXT LOCAL MN */ 00972000 TM TQEINCOM(TQEPTR),B'00001000' 0396 00973000 BNO @RF00396 0396 00974000 * DO; /* H */ 00975000 * RESPECIFY 0398 00976000 * (PCCAPTR2, 0398 00977000 * SLOTCNT) RSTD; 0398 00978000 * RESPECIFY 0399 00979000 * PCCA BASED(PCCAPTR2); 0399 00980000 * DO SLOTCNT=DIM(PCCAT00P) TO 1 BY-1; 0400 00981000 LA SLOTCNT,16 0400 00982000 @DL00400 DS 0H 0401 00983000 * PCCAPTR2=PCCAT00P(SLOTCNT); 0401 00984000 LR @12,SLOTCNT 0401 00985000 SLA @12,2 0401 00986000 L @10,CVTPTR 0401 00987000 L @10,CVTPCCAT(,@10) 0401 00988000 AL @10,@CF03363 0401 00989000 L PCCAPTR2,PCCAT00P(@12,@10) 0401 00990000 * IF PCCAPTR2^=0/* IF A PCCA ENTRY */ 00991000 * THEN/* CLEAR ERROR COUNTS */ 00992000 LTR PCCAPTR2,PCCAPTR2 0402 00993000 BZ @RF00402 0402 00994000 * DO; 0403 00995000 * IF PCCANUTD='0'B/* IF TOD CLOCK 0404 00996000 * USABL */ 00997000 * THEN/* CLEAR ITS ERROR COUNT */ 00998000 TM PCCANUTD(PCCAPTR2),B'10000000' 0404 00999000 BNZ @RF00404 0404 01000000 * PCCATODE=0; 0405 01001000 MVI PCCATODE(PCCAPTR2),X'00' 0405 01002000 * IF PCCANUCC='0'B/* IF CLK COMP 0406 01003000 * USABL */ 01004000 * THEN/* CLEAR ITS ERROR COUNT */ 01005000 @RF00404 TM PCCANUCC(PCCAPTR2),B'10000000' 0406 01006000 BNZ @RF00406 0406 01007000 * PCCACCE=0; 0407 01008000 MVI PCCACCE(PCCAPTR2),X'00' 0407 01009000 * IF PCCANUIN='0'B/* IF CPU TIMER 0408 01010000 * USABL */ 01011000 * THEN/* CLEAR ITS ERROR COUNT */ 01012000 @RF00406 TM PCCANUIN(PCCAPTR2),B'10000000' 0408 01013000 BNZ @RF00408 0408 01014000 * PCCAINTE=0; 0409 01015000 MVI PCCAINTE(PCCAPTR2),X'00' 0409 01016000 * END; 0410 01017000 @RF00408 DS 0H 0411 01018000 * END; 0411 01019000 @RF00402 BCTR SLOTCNT,0 0411 01020000 LTR SLOTCNT,SLOTCNT 0411 01021000 BP @DL00400 0411 01022000 * RESPECIFY 0412 01023000 * PCCA BASED(PCCAPTR); 0412 01024000 * RESPECIFY 0413 01025000 * (PCCAPTR2, 0413 01026000 * SLOTCNT) UNRSTD; 0413 01027000 * RESPECIFY 0414 01028000 * (DAY, 0414 01029000 * YEAR, 0414 01030000 * R4, 0414 01031000 * R13, 0414 01032000 * YYDDD) RSTD; 0414 01033000 * RESPECIFY 0415 01034000 * CVTMAP BASED(R13); 0415 01035000 * R13=CVTPTR;/* USE REG CVT PTR */ 01036000 L R13,CVTPTR 0416 01037000 * RESPECIFY 0417 01038000 * TPC BASED(R4); 0417 01039000 * R4=TPCPTR;/* USE REG TPC PTR */ 01040000 L R4,TPCPTR(,R13) 0418 01041000 *UPDATE: 0419 01042000 * YYDDD=CVTDATE;/* SAVE ORIG DATE FOR LATER 01043000 * COMPARE AND SWAP. */ 01044000 UPDATE L YYDDD,CVTDATE(,R13) 0419 01045000 * TPCWORKL='00000000'X; 0420 01046000 SLR @12,@12 0420 01047000 ST @12,TPCWORKL(,R4) 0420 01048000 * TPCWORKR=YYDDD;/* CONV DATE TO BIN */ 01049000 ST YYDDD,TPCWORKR(,R4) 0421 01050000 * GENERATE REFS(TPCWORK) 0422 01051000 * (CVB YEAR,TPCWORK(R4)); 0422 01052000 CVB YEAR,TPCWORK(R4) 01053000 * DAY=YEAR//1000;/* GET DDD PORTION */ 01054000 LA @12,1000 0423 01055000 LR @02,YEAR 0423 01056000 SRDA @02,32 0423 01057000 DR @02,@12 0423 01058000 LR DAY,@02 0423 01059000 * YEAR=YEAR/1000;/* GET YY PORTION */ 01060000 LR @02,YEAR 0424 01061000 SRDA @02,32 0424 01062000 DR @02,@12 0424 01063000 LR YEAR,@03 0424 01064000 * IF DAY<365/* IF NOT YEAR END, */ 01065000 * THEN /* ADD ONE TO DAYS. */ 01066000 C DAY,@CF03299 0425 01067000 BNL @RF00425 0425 01068000 * DAY=DAY+1; 0426 01069000 AL DAY,@CF00067 0426 01070000 * ELSE /* DAY=365 OR 366. */ 01071000 * DO; 0427 01072000 B @RC00425 0427 01073000 @RF00425 DS 0H 0428 01074000 * TPCWORKL=YEAR; 0428 01075000 ST YEAR,TPCWORKL(,R4) 0428 01076000 * IF TPCWORK(31:32)=/* IF LEAPYEAR AND */ 01077000 * '00'B&/* DAY IS 365, */ 01078000 * DAY=365 THEN/* STILL NOT YR END */ 01079000 TM TPCWORK+3(R4),B'00000011' 0429 01080000 BNZ @RF00429 0429 01081000 C DAY,@CF03299 0429 01082000 BNE @RF00429 0429 01083000 * DAY=DAY+1;/* ADD ONE TO DAYS */ 01084000 AL DAY,@CF00067 0430 01085000 * ELSE/* HERE IF YEAR END */ 01086000 * DO; 0431 01087000 B @RC00429 0431 01088000 @RF00429 DS 0H 0432 01089000 * DAY=1;/* RESET TO DAY 1 */ 01090000 LA @12,1 0432 01091000 LR DAY,@12 0432 01092000 * YEAR=YEAR+1;/* ADD ONE TO YEARS */ 01093000 ALR YEAR,@12 0433 01094000 * END; 0434 01095000 * END; 0435 01096000 @RC00429 DS 0H 0436 01097000 * YEAR=(YEAR*1000)+DAY;/* NOW, CONVERT NEW 01098000 * VALUE BACK TO CVTDATE FORMAT */ 01099000 @RC00425 LR @12,YEAR 0436 01100000 MH @12,@CH03298 0436 01101000 ALR @12,DAY 0436 01102000 LR YEAR,@12 0436 01103000 * GENERATE SETS(TPCWORK) REFS(R4,YEAR); 0437 01104000 * /* @YA00819*/ 01105000 CVD YEAR,TPCWORK(R4) @YA00819 01106000 OI TPCWORK+7(R4),X'0F' @YA00819 01107000 * YEAR=TPCWORKR;/* OF PACKED DECIMAL 0438 01108000 * (00YYDDDS) */ 01109000 L YEAR,TPCWORKR(,R4) 0438 01110000 * GENERATE; 0439 01111000 * /* PUT INTO CVTDATE */ 01112000 CS YYDDD,YEAR,CVTDATE(R13) 01113000 BNZ UPDATE 01114000 * RESPECIFY 0440 01115000 * CVTMAP BASED(CVTPTR); 0440 01116000 * RESPECIFY 0441 01117000 * (DAY, 0441 01118000 * YEAR) UNRSTD; 0441 01119000 * RESPECIFY 0442 01120000 * (R0) RSTD; 0442 01121000 * R0=DAYRH;/* NOW ADD 24 HOURS */ 01122000 L R0,DAYRH 0443 01123000 * R13=DAYLH;/* TO THE TQEVAL IN */ 01124000 L R13,DAYLH 0444 01125000 * GENERATE; 0445 01126000 * /* THE MIDNIGHT TQE */ 01127000 AL R0,MNIGHTRH(R4) 01128000 BC 12,ADDLEFT3 01129000 LA R13,1(R13) 01130000 ADDLEFT3 AL R13,MNIGHTLH(R4) 01131000 * MNIGHTLH=R13; 0446 01132000 ST R13,MNIGHTLH(,R4) 0446 01133000 * MNIGHTRH=R0; 0447 01134000 ST R0,MNIGHTRH(,R4) 0447 01135000 * RESPECIFY 0448 01136000 * TPC BASED(TPCPTR); 0448 01137000 * RESPECIFY 0449 01138000 * (R0, 0449 01139000 * R4, 0449 01140000 * R13, 0449 01141000 * R14) UNRSTD; 0449 01142000 * END; /* H END OF MIDNIGHT PROCESSING */ 01143000 * END; /* G */ 01144000 @RF00396 DS 0H 0451 01145000 @RF00395 DS 0H 0452 01146000 * RESPECIFY 0452 01147000 * (R2) RSTD; /* NOW REENQUEUE JST, OR */ 01148000 @RC00344 DS 0H 0453 01149000 * R2=ADDR(ENQRET1); /* MIDNIGHT TQE . */ 01150000 LA R2,ENQRET1 0453 01151000 * TQEPTR=TIMESAVE(7);/* RESTORE THE TQE POINTER */ 01152000 L @12,LCCAPTR 0454 01153000 L @12,LCCACPUS(,@12) 0454 01154000 L @12,WSACTIME(,@12) 0454 01155000 L TQEPTR,TIMESAVE+24(,@12) 0454 01156000 * CALL ENQTQE; 0455 01157000 BAL @14,ENQTQE 0455 01158000 *ENQRET1: 0456 01159000 * RESPECIFY 0456 01160000 * (R2) UNRSTD; 0456 01161000 ENQRET1 DS 0H 0457 01162000 * END; /* D */ 01163000 * END; /* C */ 01164000 @RC00312 DS 0H 0459 01165000 * END; /* A */ 01166000 @RC00281 DS 0H 0459 01167000 @RC00264 DS 0H 0460 01168000 * RESPECIFY 0460 01169000 * (R2, 0460 01170000 * R4, 0460 01171000 * R14) RSTD; 0460 01172000 @RC00229 DS 0H 0461 01173000 * R13=ADDR(TIMESAVE); /* LOCATE SAVE AREA */ 01174000 L @15,LCCAPTR 0461 01175000 L @15,LCCACPUS(,@15) 0461 01176000 L R13,WSACTIME(,@15) 0461 01177000 * GENERATE /* RESTORE REGISTERS */ 01178000 * (LM R14,R12,12(R13)); 0462 01179000 LM R14,R12,12(R13) 01180000 * R14=R2; 0463 01181000 LR R14,R2 0463 01182000 * RESPECIFY 0464 01183000 * (R2, 0464 01184000 * R4, 0464 01185000 * R14) UNRSTD; 0464 01186000 * END PROCTQE; /* END OF PROCTQE PROCEDURE */ 01187000 @EL00002 DS 0H 0465 01188000 @EF00002 DS 0H 0465 01189000 @ER00002 BR @14 0465 01190000 * 0466 01191000 */* *****************************************************************/ 01192000 */* */ 01193000 */* RESUME JOB STEP TIMING SUBROUTINE */ 01194000 */* */ 01195000 */* *****************************************************************/ 01196000 */* */ 01197000 */* FUNCTION- TO RESUME THE JST OF THE INTERRUPTED MEMORY. */ 01198000 */* TO DO THIS, LCCADTOD IS SET WITH THE CURRENT */ 01199000 */* TIME OF DAY IF THE EXECUTING CPUS TOD CLOCK IS */ 01200000 */* USABLE AND THE WAIT ASCB WAS NOT INTERRUPTED. */ 01201000 */* LCCAITOD IS ALSO SET WITH THE CURRENT TIME IF */ 01202000 */* A TCB WAS INTERRUPTED. */ 01203000 */* */ 01204000 */* INPUT - 1. R14=RETURN ADDRESS */ 01205000 */* 2. R13=ADDRESS OF REG SAVE AREA */ 01206000 */* */ 01207000 */* ENVIRONMENT */ 01208000 */* CHANGES - ALL REGS PRESERVED */ 01209000 */* */ 01210000 */* OTHER RTNS */ 01211000 */* USED - NONE */ 01212000 */* */ 01213000 */* CALLERS - PROCESS TQE SUBROUTINE */ 01214000 */* */ 01215000 */* OUTPUT - LCCADTOD AND LCCAITOD RESET FOR JST RESUMPTION */ 01216000 */* */ 01217000 */* *****************************************************************/ 01218000 * 0466 01219000 *JSTRSM: 0466 01220000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,NOENTREG,RETREG);/* @Z40FPYB*/ 01221000 JSTRSM DS 0H 0467 01222000 * RESPECIFY 0467 01223000 * (R13) RSTD; /* Z40FPYB */ 01224000 * GEN(STM R14,R12,12(R13)); /* SAVE CALLERS REGS @Z40FPYB*/ 01225000 STM R14,R12,12(R13) 01226000 * IF PSAAOLD^=ADDR(IEAWASCB)& /* IF TOD CLOCK IS OK @Z40FPYB*/ 01227000 * PCCANUTD='0'B THEN /* SET LCCADTOD @Z40FPYB*/ 01228000 L @12,@CV03194 0469 01229000 C @12,PSAAOLD 0469 01230000 BE @RF00469 0469 01231000 L @12,PCCAPTR 0469 01232000 TM PCCANUTD(@12),B'10000000' 0469 01233000 BNZ @RF00469 0469 01234000 * DO; /* @Z40FPYB*/ 01235000 * R15=PSALCCAV; /* SET LCCA ADDRESABILITY 0471 01236000 * @Z40FPYB*/ 01237000 L R15,PSALCCAV 0471 01238000 * RESPECIFY 0472 01239000 * LCCA BASED(R15); /* @Z40FPYB*/ 01240000 * GEN REFS(LCCADTOD)(STCK LCCADTOD(R15));/* GET TOD @Z40FPYB*/ 01241000 STCK LCCADTOD(R15) 01242000 * IF LCCASRBM^='1'B THEN /* IF NOT SRB MODE @Z40FPYB*/ 01243000 TM LCCASRBM(R15),B'10000000' 0474 01244000 BO @RF00474 0474 01245000 * LCCAITOD=LCCADTOD; /* SET LCCAITOD TO TOD @Z40FPYB*/ 01246000 MVC LCCAITOD(8,R15),LCCADTOD(R15) 0475 01247000 * RESPECIFY 0476 01248000 * LCCA BASED(LCCAPTR); /* @Z40FPYB*/ 01249000 @RF00474 DS 0H 0477 01250000 * END; /* @Z40FPYB*/ 01251000 * GEN(LM R14,R12,12(R13)); /* RESTORE CALLERS REGS @Z40FPYB*/ 01252000 @RF00469 DS 0H 0478 01253000 LM R14,R12,12(R13) 01254000 * RESPECIFY 0479 01255000 * (R13) UNRSTD; /* @Z40FPYB*/ 01256000 * END JSTRSM; /* END OF JSTRSM PROC @Z40FPYB*/ 01257000 @EL00003 DS 0H 0480 01258000 @EF00003 DS 0H 0480 01259000 @ER00003 BR @14 0480 01260000 * 0481 01261000 */* ************************************************************** */ 01262000 */* */ 01263000 */* ASYNCHRONOUS EXIT CONTROL SUBROUTINE */ 01264000 */* */ 01265000 */* ************************************************************** */ 01266000 */* */ 01267000 */* FUNCTION - BUILDS AND SCHEDULES AN SRB FOR A TQE */ 01268000 */* */ 01269000 */* INPUT - 1. DISPATCHER LOCK */ 01270000 */* 2. SALLOC LOCK IF TASK TYPE TQE */ 01271000 */* 3. R1= PTR TO SUBJECT TQE */ 01272000 */* 4. R14=RETURN ADDRESS */ 01273000 */* */ 01274000 */* ENVIRONMENT */ 01275000 */* CHANGES - REGISTER 13 DESTROYED */ 01276000 */* */ 01277000 */* OTHER RTNS */ 01278000 */* USED - 1. GLBRANCH GETMAIN (IF TASK TYPE TQE) */ 01279000 */* 2. SCHEDULE */ 01280000 */* */ 01281000 */* CALLERS - 1. TIMER SLIH MAINLINE IF USER TQE */ 01282000 */* 2. PROCESS TQE SUBROUTINE IN JST PROCESS */ 01283000 */* */ 01284000 */* OUTPUT - SRB BUILT AND SCHEDULED */ 01285000 */* */ 01286000 */* ************************************************************** */ 01287000 * 0481 01288000 *AECTLRTN: 0481 01289000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG,NOENTREG); 0481 01290000 AECTLRTN DS 0H 0482 01291000 * R13=CVTPTR; /* LOCATE TPC */ 01292000 L R13,CVTPTR 0482 01293000 * GENERATE; 0483 01294000 * /* SAVE REGISTERS */ 01295000 L R13,CVTTPC(R13) 01296000 STM R0,R15,TPCSAVE1(R13) 01297000 * RESPECIFY 0484 01298000 * (SRBPTR) RSTD; /* NOW CONSTRUCT THE SRB */ 01299000 * SRBPTR=ADDR(TQESRB); /* INITIALIZE THE SRB POINTER */ 01300000 LA SRBPTR,TQESRB(,TQEPTR) 0485 01301000 * IF TQETYPE='00'B /* IF TASK TYPE TQE, */ 01302000 * THEN /* MUST GET CORE FOR THE SRB */ 01303000 TM TQETYPE(TQEPTR),B'00000011' 0486 01304000 BNZ @RF00486 0486 01305000 * DO; 0487 01306000 * RESPECIFY 0488 01307000 * (R0, 0488 01308000 * R3, 0488 01309000 * R4, 0488 01310000 * R14, 0488 01311000 * R15) RSTD; 0488 01312000 * R0=LENGTH(SRBSECT); /* SET R0 TO SIZE OF SRB */ 01313000 LA R0,44 0489 01314000 * R3=245; /* SET R3 = SP SQA ISSUE GLOBAL 01315000 * GETMAIN */ 01316000 LA R3,245 0490 01317000 * GENERATE REFS(CVTSPSA,CVTGLMN,WSAGGMFM,WSAG); 0491 01318000 GETMAIN RU,LV=(0),SP=(3),BRANCH=(YES,GLOBAL) 01319000 * RESPECIFY 0492 01320000 * (R0, 0492 01321000 * R3, 0492 01322000 * R4, 0492 01323000 * R14, 0492 01324000 * R15) UNRSTD; 0492 01325000 * SRBPTR=R1; /* ESTABLISH SRB ADDRESSABIL */ 01326000 LR SRBPTR,R1 0493 01327000 * END; 0494 01328000 * TQEPTR=TPCSAVE1(2); /* RESET TQE POINTER */ 01329000 @RF00486 L @12,CVTPTR 0495 01330000 L @12,TPCPTR(,@12) 0495 01331000 L TQEPTR,TPCSAVE1+4(,@12) 0495 01332000 * SRBASCB=TQEASCB; /* SET ASCB POINTER */ 01333000 L @12,TQEASCB(,TQEPTR) 0496 01334000 ST @12,SRBASCB(,SRBPTR) 0496 01335000 * SRBPKF='00'X; /* SET PROTECT KEY TO ZERO */ 01336000 MVI SRBPKF(SRBPTR),X'00' 0497 01337000 * SRBEP=ADDR(IEAVRSAE); /* SET ENTRY PT OF SRB RTN */ 01338000 LA @12,IEAVRSAE 0498 01339000 ST @12,SRBEP(,SRBPTR) 0498 01340000 * SRBRMTR=ADDR(IEAVRSPG); /* SET SRB PURGE RTN E.P. */ 01341000 L @12,@CV03195 0499 01342000 ST @12,SRBRMTR(,SRBPTR) 0499 01343000 * SRBPARM=TQEPTR; /* SET TQE POINTER */ 01344000 ST TQEPTR,SRBPARM(,SRBPTR) 0500 01345000 * IF TQETYPE^='00'B /* IF REAL/WAIT TYPE TQE */ 01346000 * THEN /* INDICATE EMBEDDED SRB */ 01347000 TM TQETYPE(TQEPTR),B'00000011' 0501 01348000 BZ @RF00501 0501 01349000 * SIGNSRBP(1:1)='1'B; 0502 01350000 OI SIGNSRBP(SRBPTR),B'10000000' 0502 01351000 * SRBPRIOR='0000'X; /* SET SYSTEM LEVEL */ 01352000 @RF00501 MVI SRBPRIOR(SRBPTR),X'00' 0503 01353000 * SRBPASID=TQEAID; /* SET ADDRESS SPACE ID */ 01354000 LH @12,TQEAID(,TQEPTR) 0504 01355000 N @12,@CF03361 0504 01356000 STH @12,SRBPASID(,SRBPTR) 0504 01357000 * SRBPTCB=TQETCB; /* SET REQUESTOR TCB ADDRESS */ 01358000 L @12,TQETCB(,TQEPTR) 0505 01359000 ST @12,SRBPTCB(,SRBPTR) 0505 01360000 * SRBSAVE=0; 0506 01361000 SLR @12,@12 0506 01362000 ST @12,SRBSAVE(,SRBPTR) 0506 01363000 * SRBCPAFF='0000'X; /* SET NO CPU AFFINITY NOW 0507 01364000 * SCHEDULE THE SRB */ 01365000 MVC SRBCPAFF(2,SRBPTR),@CB03066 0507 01366000 * RESPECIFY 0508 01367000 * (R0, 0508 01368000 * R15) RSTD; 0508 01369000 * GENERATE REFS(CVT,CVTLSMQ,SRBFLNK) 0509 01370000 * (SCHEDULE SRB=(SRBPTR),SCOPE=LOCAL); 0509 01371000 SCHEDULE SRB=(SRBPTR),SCOPE=LOCAL 01372000 * RESPECIFY 0510 01373000 * (SRBPTR, 0510 01374000 * R0, 0510 01375000 * R15) UNRSTD; 0510 01376000 * R13=CVTTPC; /* RELOAD TPC POINTER */ 01377000 L @08,CVTPTR 0511 01378000 L R13,CVTTPC(,@08) 0511 01379000 * GENERATE /* RESTORE REGISTERS */ 01380000 * (LM R0,R15,TPCSAVE1(R13)); 0512 01381000 LM R0,R15,TPCSAVE1(R13) 01382000 * END AECTLRTN; /* END OF AECTLRTN PROCEDURE */ 01383000 @EL00004 DS 0H 0513 01384000 @EF00004 DS 0H 0513 01385000 @ER00004 BR @14 0513 01386000 * 0514 01387000 */* ************************************************************** */ 01388000 */* */ 01389000 */* TQE ENQUEUE ROUTINE */ 01390000 */* */ 01391000 */* ************************************************************** */ 01392000 */* */ 01393000 */* FUNCTION - ENQUEUES THE SUBJECT TQE ONTO THE REAL TIME */ 01394000 */* QUEUE IF REQL/WAIT TYPE OR ONTO THE TASK */ 01395000 */* QUEUE (TCB) IF TASK TYPE. */ 01396000 */* */ 01397000 */* INPUT - 1. DISPATCHER LOCK */ 01398000 */* 2. SUPERVISOR STATE */ 01399000 */* 3. PROTECT KEY ZERO */ 01400000 */* 4. R1= POINTER TO THE TQE */ 01401000 */* 5. R2= RETURN ADDRESS */ 01402000 */* */ 01403000 */* ENVIRONMENT */ 01404000 */* CHANGES - REGISTERS 13 AND 15 DESTROYED */ 01405000 */* */ 01406000 */* OTHER RTNS */ 01407000 */* CALLED - SET CLOCK COMPARATOR ROUTINE */ 01408000 */* */ 01409000 */* CALLERS - 1. STIMER SVC SERVICE ROUTINE */ 01410000 */* 2. PROCESS TQE SUBROUTINE */ 01411000 */* 3. SYSTEM RESOURCES MANAGER */ 01412000 */* 4. TOD CLOCK INITIALIZATION (IEAVRTOD) */ 01413000 */* 5. SET LOCAL TIME ROUTINE (IEE6503D) */ 01414000 */* 6. MF/1 INITIALIZATION */ 01415000 */* 7. SETDIE ROUTINE (IEAVRT02) */ 01416000 */* */ 01417000 */* OUTPUT - SUBJECT TQE ENQUEUED ON CORRECT TIMER QUEUE */ 01418000 */* */ 01419000 */* ************************************************************** */ 01420000 * 0514 01421000 *ENQTQE: /* START OF INTERNL PROCEDURE */ 01422000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG,NOENTREG); 0514 01423000 ENQTQE DS 0H 0515 01424000 * RESPECIFY 0515 01425000 * (R13) RSTD; 0515 01426000 * R13=CVTPTR; /* LOCATE THE TPC AND */ 01427000 L R13,CVTPTR 0516 01428000 * GENERATE; 0517 01429000 * /* SAVE REGISTERS */ 01430000 L R13,CVTTPC(R13) 01431000 STM R0,R15,TPCSAVE1(R13) 01432000 * RESPECIFY 0518 01433000 * (R13) UNRSTD; 0518 01434000 *EXENQTQE: 0519 01435000 * IF TQEOFF='1'B /* IF TQE IS NOT ON QUEUE, */ 01436000 * THEN /* CONTINUE WITH THE ENQUEUE. */ 01437000 EXENQTQE TM TQEOFF(TQEPTR),B'10000000' 0519 01438000 BNO @RF00519 0519 01439000 * DO; 0520 01440000 * RESPECIFY 0521 01441000 * (FRRPTR, 0521 01442000 * FRRSPTR, 0521 01443000 * FRREPTR) RSTD; 0521 01444000 * FRRPTR=ADDR(IEAVRFRR); /* INITIALIZE PTR TO FRR */ 01445000 L FRRPTR,@CV03196 0522 01446000 * GENERATE REFS(PSA,FRRSENTR,FRRSLAST,FRRSFRRA,FRRSPARM); 0523 01447000 SETFRR A,FRRAD=(FRRPTR),PARMAD=(TFRRPTR), CC01448000 WRKREGS=(FRRSPTR,FRREPTR), CC01449000 RELATED=('tqe enq',IEAVRTI0(NONE)) 01450000 * TFRRID=TENQID; /* INITIALIZE TQE ENQ ID */ 01451000 MVC TFRRID(4,TFRRPTR),@CB03218 0524 01452000 * RESPECIFY 0525 01453000 * (FRRPTR, 0525 01454000 * FRRSPTR, 0525 01455000 * FRREPTR) UNRSTD; 0525 01456000 * IF TQETYPE='00'B /* IF TASK TYPE TQE, */ 01457000 * THEN /* ENQUEUE TQE OFF THE TCB. */ 01458000 TM TQETYPE(TQEPTR),B'00000011' 0526 01459000 BNZ @RF00526 0526 01460000 * DO; 0527 01461000 * RESPECIFY 0528 01462000 * (TCBPTR) RSTD; 0528 01463000 * TCBPTR=TQETCB; 0529 01464000 L TCBPTR,TQETCB(,TQEPTR) 0529 01465000 * TCBTME=TQEPTR; /* HANG TQE OF THE TCB */ 01466000 ST TQEPTR,TCBTME(,TCBPTR) 0530 01467000 * RESPECIFY 0531 01468000 * (TCBPTR) UNRSTD; 0531 01469000 * TQEFLNK=0; /* CLEAR TQE CHAIN POINTER */ 01470000 SLR @12,@12 0532 01471000 ST @12,TQEFLNK(,TQEPTR) 0532 01472000 * TQEBLNK=0; /* CLEAR TQE CHAIN POINTER */ 01473000 ST @12,TQEBLNK(,TQEPTR) 0533 01474000 * TQEOFF='0'B; /* INDICATE TQE ON TIMER QUEUE */ 01475000 NI TQEOFF(TQEPTR),B'01111111' 0534 01476000 * IF PCCANUIN='0'B /* IF CPU TIMER IS USABLE */ 01477000 * THEN /* SET CPU TIMER FOR INTERVAL */ 01478000 L @12,PCCAPTR 0535 01479000 TM PCCANUIN(@12),B'10000000' 0535 01480000 BNZ @RF00535 0535 01481000 * GENERATE(SPT TQEVAL(TQEPTR)); 0536 01482000 SPT TQEVAL(TQEPTR) 01483000 * RESPECIFY 0537 01484000 * (R10) RSTD; 0537 01485000 @RF00535 DS 0H 0538 01486000 * IF PCCANUTD='0'B /* IF TOD CLOCK IS USABLE */ 01487000 * THEN /* SAVE TOD OF CPU TIMER SET */ 01488000 L @12,PCCAPTR 0538 01489000 TM PCCANUTD(@12),B'10000000' 0538 01490000 BNZ @RF00538 0538 01491000 * DO; 0539 01492000 * R10=ADDR(LCCA); 0540 01493000 L R10,LCCAPTR 0540 01494000 * GENERATE REFS(LCCASTOD)(STCK LCCASTOD(R10)); 0541 01495000 STCK LCCASTOD(R10) 01496000 * END; 0542 01497000 * RESPECIFY 0543 01498000 * (R10) UNRSTD; 0543 01499000 @RF00538 DS 0H 0544 01500000 * END; 0544 01501000 * ELSE /* IF REAL/WAIT TYPE TQE, */ 01502000 * DO; /* PUT TQE INTO REAL TIME QUE */ 01503000 B @RC00526 0545 01504000 @RF00526 DS 0H 0546 01505000 * IF TQEUSER='1'B& /* IF A USER TQE AND @Z40FPYB*/ 01506000 * TQEDIE='0'B /* NOT A DIE TQE @Z40FPYB*/ 01507000 * THEN /* POINT TCB TO IT FIRST. */ 01508000 TM TQEUSER(TQEPTR),B'01000000' 0546 01509000 BNO @RF00546 0546 01510000 TM TQEDIE(TQEPTR),B'10000000' 0546 01511000 BNZ @RF00546 0546 01512000 * DO; 0547 01513000 * RESPECIFY 0548 01514000 * (TCBPTR) RSTD; 0548 01515000 * TCBPTR=TQETCB; 0549 01516000 L TCBPTR,TQETCB(,TQEPTR) 0549 01517000 * TCBTME=TQEPTR; 0550 01518000 ST TQEPTR,TCBTME(,TCBPTR) 0550 01519000 * TCBTQET='1'B; /* INDICATE REAL/WAIT TQE */ 01520000 OI TCBTQET(TCBPTR),B'10000000' 0551 01521000 * RESPECIFY 0552 01522000 * (TCBPTR) UNRSTD; 0552 01523000 * END; /* NOW, SEARCH THE REAL TIME QUE 01524000 * STARTING FROM TOP TO FIND 1ST 01525000 * TQE IN QUEUE WHICH HAS A 0553 01526000 * TQEVAL> THAN THAT OF SUBJECT 01527000 * TQE - PUT SUBJECT TQE I N QUE 01528000 * JUST PRIOR TO FOUND TQE. */ 01529000 * RESPECIFY 0554 01530000 * (CUR) RSTD; 0554 01531000 @RF00546 DS 0H 0555 01532000 * CUR=TPCHDCCQ; /* PT CUR TO 1ST TQE IN QUEUE */ 01533000 L @12,CVTPTR 0555 01534000 L @12,TPCPTR(,@12) 0555 01535000 L CUR,TPCHDCCQ(,@12) 0555 01536000 * DO WHILE TQEVALLH>CUR->TQEVALLH|(TQEVALLH=CUR->TQEVALLH& 01537000 * TQEVALRH>CUR->TQEVALRH); 0556 01538000 B @DE00556 0556 01539000 @DL00556 DS 0H 0557 01540000 * CUR=CUR->TQEFLNK; 0557 01541000 L CUR,TQEFLNK(,CUR) 0557 01542000 * END; 0558 01543000 @DE00556 L @15,TQEVALLH(,TQEPTR) 0558 01544000 L @12,TQEVALLH(,CUR) 0558 01545000 CLR @15,@12 0558 01546000 BH @DL00556 0558 01547000 CLR @15,@12 0558 01548000 BNE @DC00556 0558 01549000 CLC TQEVALRH(4,TQEPTR),TQEVALRH(CUR) 0558 01550000 BH @DL00556 0558 01551000 @DC00556 DS 0H 0559 01552000 * TQEOFF='0'B; /* INDICATE TQE ON TIMER QUEUE 0559 01553000 * NOW ENQ THE TQE */ 01554000 NI TQEOFF(TQEPTR),B'01111111' 0559 01555000 * CUR->TQEBLNK->TQEFLNK=TQEPTR; 0560 01556000 L @15,TQEBLNK(,CUR) 0560 01557000 ST TQEPTR,TQEFLNK(,@15) 0560 01558000 * TQEFLNK=CUR; 0561 01559000 ST CUR,TQEFLNK(,TQEPTR) 0561 01560000 * TQEBLNK=CUR->TQEBLNK; 0562 01561000 ST @15,TQEBLNK(,TQEPTR) 0562 01562000 * CUR->TQEBLNK=TQEPTR; 0563 01563000 ST TQEPTR,TQEBLNK(,CUR) 0563 01564000 * RESPECIFY 0564 01565000 * (CUR) UNRSTD; 0564 01566000 * TQECOMP='0'B; /* MARK TQE - NOT BEING TIMED */ 01567000 NI TQECOMP(TQEPTR),B'01111111' 0565 01568000 * IF TPCHDCCQ=TQEPTR& /* IF NEW TQE IS ON TOP OF Q */ 01569000 * CSDGDCC^=0 /* AND A GOOD CLK COMP EXISTS */ 01570000 * THEN /* SET CLOCK COMPARATOR. */ 01571000 L @12,CVTPTR 0566 01572000 L @08,TPCPTR(,@12) 0566 01573000 C TQEPTR,TPCHDCCQ(,@08) 0566 01574000 BNE @RF00566 0566 01575000 L @12,CVTCSD(,@12) 0566 01576000 L @12,CSDGDCC(,@12) 0566 01577000 LTR @12,@12 0566 01578000 BZ @RF00566 0566 01579000 * DO; 0567 01580000 * RESPECIFY 0568 01581000 * (R2) RSTD; /* CALL SET CC RTN */ 01582000 * R2=ADDR(CCRET2); /* TO ENSURE TOP */ 01583000 LA R2,CCRET2 0569 01584000 * CALL SETCC; /* TQE IN QUE IS */ 01585000 BAL @14,SETCC 0570 01586000 * RESPECIFY 0571 01587000 * (R2) UNRSTD; /* BEING TIMED. */ 01588000 *CCRET2: 0572 01589000 * END; 0572 01590000 CCRET2 DS 0H 0573 01591000 * END; 0573 01592000 @RF00566 DS 0H 0574 01593000 * TQEINCOM='0'B; /* INDICATE INTV NOT COMPLETE */ 01594000 @RC00526 NI TQEINCOM(TQEPTR),B'11110111' 0574 01595000 * RESPECIFY 0575 01596000 * (FRRPTR, 0575 01597000 * FRRSPTR, 0575 01598000 * FRREPTR) RSTD; 0575 01599000 * GENERATE; 0576 01600000 * /* DELETE FRR COVERAGE */ 01601000 SETFRR D,WRKREGS=(FRRSPTR,FRREPTR), CC01602000 RELATED=('TQE ENQ',IEAVRTI0(NONE)) 01603000 * END; 0577 01604000 * R13=CVTTPC; /* SET R13 TO PT TO TPC */ 01605000 @RF00519 L @15,CVTPTR 0578 01606000 L R13,CVTTPC(,@15) 0578 01607000 * GENERATE; 0579 01608000 * /* RESTOR REGS AND RET ON R2 */ 01609000 LM R0,R15,TPCSAVE1(R13) 01610000 BR R2 01611000 * RESPECIFY 0580 01612000 * (FRRPTR, 0580 01613000 * FRRSPTR, 0580 01614000 * FRREPTR) UNRSTD; 0580 01615000 * END ENQTQE; /* END OF ENQ TQE PROCEDURE */ 01616000 @EL00005 DS 0H 0581 01617000 @EF00005 DS 0H 0581 01618000 @ER00005 BR @14 0581 01619000 * 0582 01620000 */* ************************************************************** */ 01621000 */* */ 01622000 */* TQE DEQUEUE ROUTINE */ 01623000 */* */ 01624000 */* ************************************************************** */ 01625000 */* */ 01626000 */* FUNCTION - DEQUEUES THE SUBJECT TQE FROM THE REAL TIME */ 01627000 */* QUEUE IF REAL/WAIT TYPE OR FROM THE TASK */ 01628000 */* QUEUE (TCB) IF TASK TYPE. */ 01629000 */* */ 01630000 */* INPUT - 1. DISPATCHER LOCK */ 01631000 */* 2. SUPERVISOR STATE */ 01632000 */* 3. PROTECT KEY 0 */ 01633000 */* 4. R1= POINTER TO THE TQE */ 01634000 */* 5. R2= RETURN ADDRESS */ 01635000 */* */ 01636000 */* ENVIRONMENT */ 01637000 */* CHANGES - REGISTER 13 AND 15 DESTROYED */ 01638000 */* */ 01639000 */* OTHER RTNS */ 01640000 */* CALLED - SET CLOCK COMPARATOR ROUTINE */ 01641000 */* */ 01642000 */* CALLERS - 1. STIMER SVC SERVICE ROUTINE */ 01643000 */* 2. TTIMER SVC SERVICE ROUTINE */ 01644000 */* 3. PROCESS TQE SUBROUTINE */ 01645000 */* 4. TQE PURGE */ 01646000 */* 5. SET LOCAL TIME ROUTINE (IEE6503D) */ 01647000 */* */ 01648000 */* OUTPUT - SUBJECT TQE DEQUEUED FROM CORRECT TIMER QUE */ 01649000 */* */ 01650000 */* ************************************************************** */ 01651000 * 0582 01652000 *DEQTQE: /* START OF INTERNL PROCEDURE */ 01653000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG,NOENTREG); 0582 01654000 DEQTQE DS 0H 0583 01655000 * RESPECIFY 0583 01656000 * (R13) RSTD; 0583 01657000 * R13=CVTPTR; /* LOCATE THE TPC AND */ 01658000 L R13,CVTPTR 0584 01659000 * GENERATE; 0585 01660000 * /* SAVE REGISTERS */ 01661000 L R13,CVTTPC(R13) 01662000 STM R0,R15,TPCSAVE1(R13) 01663000 * RESPECIFY 0586 01664000 * (R13) UNRSTD; 0586 01665000 *EXDEQTQE: 0587 01666000 * IF TQEOFF='0'B /* IF TQE IS ON A TIMER QUEUE */ 01667000 * THEN /* CONTINUE WITH THE DEQUEUE. */ 01668000 EXDEQTQE TM TQEOFF(TQEPTR),B'10000000' 0587 01669000 BNZ @RF00587 0587 01670000 * DO; 0588 01671000 * RESPECIFY 0589 01672000 * (FRRPTR, 0589 01673000 * FRRSPTR, 0589 01674000 * FRREPTR) RSTD; 0589 01675000 * FRRPTR=ADDR(IEAVRFRR); /* INITIALIZE PTR TO FRR */ 01676000 L FRRPTR,@CV03196 0590 01677000 * GENERATE REFS(PSA,FRRSENTR,FRRSLAST,FRRSFRRA,FRRSPARM); 0591 01678000 SETFRR A,FRRAD=(FRRPTR),PARMAD=(TFRRPTR), CC01679000 WRKREGS=(FRRSPTR,FRREPTR), CC01680000 RELATED=('tqe deq',IEAVRTI0(NONE)) 01681000 * TFRRID=TDEQID; /* INITIALIZE TQE DEQ ID */ 01682000 MVC TFRRID(4,TFRRPTR),@CB03220 0592 01683000 * RESPECIFY 0593 01684000 * (FRRPTR, 0593 01685000 * FRRSPTR, 0593 01686000 * FRREPTR) UNRSTD; 0593 01687000 * IF TQETYPE='00'B /* IF TASK TYPE TQE, */ 01688000 * THEN /* DEQUEUE TQE FROM THE TCB. */ 01689000 TM TQETYPE(TQEPTR),B'00000011' 0594 01690000 BNZ @RF00594 0594 01691000 * DO; 0595 01692000 * RESPECIFY 0596 01693000 * (TCBPTR) RSTD; 0596 01694000 * TCBPTR=TQETCB; 0597 01695000 L TCBPTR,TQETCB(,TQEPTR) 0597 01696000 * TCBTME=0; 0598 01697000 SLR @12,@12 0598 01698000 ST @12,TCBTME(,TCBPTR) 0598 01699000 * TQEOFF='1'B; /* INDICATE TQE OFF TIMER QUE */ 01700000 OI TQEOFF(TQEPTR),B'10000000' 0599 01701000 * RESPECIFY 0600 01702000 * (TCBPTR) UNRSTD; 0600 01703000 * IF PCCANUIN='0'B /* IF CPU TIMER IS USABLE, */ 01704000 * THEN /* SET IT WITH HIGH VALUE. */ 01705000 L @12,PCCAPTR 0601 01706000 TM PCCANUIN(@12),B'10000000' 0601 01707000 BNZ @RF00601 0601 01708000 * GENERATE(SPT HIGHCPUT); 0602 01709000 SPT HIGHCPUT 01710000 * END; 0603 01711000 * ELSE /* IF REAL/WAIT TYPE TQE */ 01712000 * DO; /* REMOVE TQE FROM REAL QUEUE */ 01713000 B @RC00594 0604 01714000 @RF00594 DS 0H 0605 01715000 * TQEBLNK->TQEFLNK=TQEFLNK; 0605 01716000 L @12,TQEBLNK(,TQEPTR) 0605 01717000 L @08,TQEFLNK(,TQEPTR) 0605 01718000 ST @08,TQEFLNK(,@12) 0605 01719000 * TQEFLNK->TQEBLNK=TQEBLNK; 0606 01720000 ST @12,TQEBLNK(,@08) 0606 01721000 * TQEOFF='1'B; /* INDICATE TQE OFF TIMER QUE */ 01722000 OI TQEOFF(TQEPTR),B'10000000' 0607 01723000 * IF TQECOMP='1'B /* IF TQE WAS BEING TIMED, */ 01724000 * THEN /* CLEAR PCCATQEP FOR ALL */ 01725000 TM TQECOMP(TQEPTR),B'10000000' 0608 01726000 BNO @RF00608 0608 01727000 * DO; /* CPU'S THAT WHERE TIMING IT */ 01728000 * TQECOMP='0'B; /* AND MARK TQE AS NOT TIMED */ 01729000 NI TQECOMP(TQEPTR),B'01111111' 0610 01730000 * RESPECIFY 0611 01731000 * (R10, 0611 01732000 * SLOTCNT) RSTD; /* @YM06009*/ 01733000 * DO SLOTCNT=1 TO CVTMAXMP+1 BY 1;/* @YM08622*/ 01734000 LA SLOTCNT,1 0612 01735000 B @DE00612 0612 01736000 @DL00612 DS 0H 0613 01737000 * RESPECIFY 0613 01738000 * PCCA BASED(R10); 0613 01739000 * R10=PCCAT00P(SLOTCNT); 0614 01740000 LR @12,SLOTCNT 0614 01741000 SLA @12,2 0614 01742000 L @08,CVTPTR 0614 01743000 L @08,CVTPCCAT(,@08) 0614 01744000 AL @08,@CF03363 0614 01745000 L R10,PCCAT00P(@12,@08) 0614 01746000 * IF R10^=0&PCCATQEP=TQEPTR/* IF CPU WAS TMG SUBJECT 01747000 * TQE */ 01748000 * THEN /* CLEAR ITS */ 01749000 SLR @12,@12 0615 01750000 CR R10,@12 0615 01751000 BE @RF00615 0615 01752000 C TQEPTR,PCCATQEP(,R10) 0615 01753000 BNE @RF00615 0615 01754000 * PCCATQEP=0; /* PTR TO IT */ 01755000 ST @12,PCCATQEP(,R10) 0616 01756000 * RESPECIFY 0617 01757000 * PCCA BASED(PCCAPTR); 0617 01758000 @RF00615 DS 0H 0618 01759000 * END; 0618 01760000 AL SLOTCNT,@CF00067 0618 01761000 @DE00612 LA @12,1 0618 01762000 L @08,CVTPTR 0618 01763000 AH @12,CVTMAXMP(,@08) 0618 01764000 CR SLOTCNT,@12 0618 01765000 BNH @DL00612 0618 01766000 * RESPECIFY 0619 01767000 * (R10, 0619 01768000 * SLOTCNT) UNRSTD; 0619 01769000 * IF CSDGDCC^=0 /* IF A GOOD CLK COMP EXISTS */ 01770000 * THEN /* CALL SET CC ROUTINE */ 01771000 L @12,CVTPTR 0620 01772000 L @12,CVTCSD(,@12) 0620 01773000 L @12,CSDGDCC(,@12) 0620 01774000 LTR @12,@12 0620 01775000 BZ @RF00620 0620 01776000 * DO; 0621 01777000 * RESPECIFY 0622 01778000 * (R2) RSTD; /* SET CC RTN */ 01779000 * R2=ADDR(CCRET3);/* TO ENSURE */ 01780000 LA R2,CCRET3 0623 01781000 * CALL SETCC; /* TOP TQE IS */ 01782000 BAL @14,SETCC 0624 01783000 * RESPECIFY 0625 01784000 * (R2) UNRSTD; /* BEING TIMED */ 01785000 * END; 0626 01786000 *CCRET3: 0627 01787000 * END; 0627 01788000 @RF00620 DS 0H 0627 01789000 CCRET3 DS 0H 0628 01790000 * END; 0628 01791000 @RF00608 DS 0H 0629 01792000 * RESPECIFY 0629 01793000 * (FRRPTR, 0629 01794000 * FRRSPTR, 0629 01795000 * FRREPTR) RSTD; 0629 01796000 @RC00594 DS 0H 0630 01797000 * GENERATE; 0630 01798000 * /* DELETE FRR COVERAGE */ 01799000 SETFRR D,WRKREGS=(FRRSPTR,FRREPTR), CC01800000 RELATED=('tqe deq',IEAVRTI0(NONE)) 01801000 * END; 0631 01802000 * R13=CVTTPC; /* SET R13 TO PT TO TPC */ 01803000 @RF00587 L @15,CVTPTR 0632 01804000 L R13,CVTTPC(,@15) 0632 01805000 * GENERATE; 0633 01806000 * /* RESTOR REGS AND RET ON R2 */ 01807000 LM R0,R15,TPCSAVE1(R13) 01808000 BR R2 01809000 * RESPECIFY 0634 01810000 * (FRRPTR, 0634 01811000 * FRRSPTR, 0634 01812000 * FRREPTR) UNRSTD; 0634 01813000 * END DEQTQE; /* END OF DEQ TQE PROCEDURE */ 01814000 @EL00006 DS 0H 0635 01815000 @EF00006 DS 0H 0635 01816000 @ER00006 BR @14 0635 01817000 * 0636 01818000 */* ************************************************************** */ 01819000 */* */ 01820000 */* SET CC (CLOCK COMPARATOR) ROUTINE */ 01821000 */* */ 01822000 */* ************************************************************** */ 01823000 */* */ 01824000 */* FUNCTION - MAKES SURE TOP TQE IN REAL QUEUE IS BEING */ 01825000 */* TIMED AND SETS EXECUTING CPU'S CLOCK COMP */ 01826000 */* IF IT IS NOT TIMING A TQE */ 01827000 */* */ 01828000 */* INPUT - 1. DISPATCHER LOCK */ 01829000 */* 2. SUPERVISOR STATE */ 01830000 */* 3. PROTECT KEY ZERO */ 01831000 */* 4. R2= RETURN ADDRESS (IF SETCC) */ 01832000 */* 5. R14=RETURN ADDRESS (IF RQCHECK) */ 01833000 */* */ 01834000 */* ENVIRONMENT */ 01835000 */* CHANGES - REGISTES 13 AND 15 ARE DESTROYED IF SETCC */ 01836000 */* ALL REGISTERS EXCEPT 14 DESTROYED IF RQCHECK */ 01837000 */* */ 01838000 */* OTHER RTNS */ 01839000 */* CALLED - 1. SHOULDER TAPE (IPC) */ 01840000 */* 2. PROCESS TQE SUBROUTINE */ 01841000 */* 3. SETLOCK (RQCHECK ENTRY ONLY) */ 01842000 */* */ 01843000 */* CALLERS - 1. TIMER SLIH MAINLINE */ 01844000 */* 2. TQE ENQ ROUTINE */ 01845000 */* 3. TQE DEQ ROUTINE */ 01846000 */* 4. SET SPECIFIC CLOCK ROUTINE (IEAVRTOD) */ 01847000 */* 5. ASYNCHRONOUS RECOVERY ROUTINE */ 01848000 */* 6. SET CC ROUTINE ITSELF VIA RQCHECK */ 01849000 */* */ 01850000 */* OUTPUT - REAL TIME TQE QUEUE SERVICED */ 01851000 */* */ 01852000 */* ************************************************************** */ 01853000 * 0636 01854000 *RQCHECK: /* RQCHECK ENTRY POINT */ 01855000 * RESPECIFY 0636 01856000 * (R10, 0636 01857000 * R14) RSTD; 0636 01858000 RQCHECK DS 0H 0637 01859000 * R10=R14; /* SAVE RETURN ADDRESS */ 01860000 LR R10,R14 0637 01861000 * RESPECIFY 0638 01862000 * (R14) UNRSTD; /* GET DISPATCHER LOCK */ 01863000 * RESPECIFY 0639 01864000 * (R11, 0639 01865000 * R12, 0639 01866000 * R13, 0639 01867000 * R14) RSTD; 0639 01868000 * GENERATE REFS(PSALITA,FLC); 0640 01869000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, CC01870000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) 01871000 * FRRPTR=ADDR(IEAVRFRR); /* SET POINTER TO FRR */ 01872000 L FRRPTR,@CV03196 0641 01873000 * GENERATE; 0642 01874000 SETFRR A,FRRAD=(FRRPTR),PARMAD=(TFRRPTR), CC01875000 WRKREGS=(FRRSPTR,FRREPTR), CC01876000 RELATED=(RQCHECK,IEAVRTI0(NONE)) 01877000 * TFRRDISP='1'B; /* INDICATE DISP LOCK GOTTEN */ 01878000 OI TFRRDISP(TFRRPTR),B'10000000' 0643 01879000 * TFRRID=RQCKID; /* SET RQCHECK ID FOR FRR */ 01880000 MVC TFRRID(4,TFRRPTR),@CB03226 0644 01881000 * RESPECIFY 0645 01882000 * (R11, 0645 01883000 * R12, 0645 01884000 * R13, 0645 01885000 * R14) UNRSTD; 0645 01886000 * RESPECIFY 0646 01887000 * (R2) RSTD; 0646 01888000 * R2=ADDR(CCRET4); 0647 01889000 LA R2,CCRET4 0647 01890000 * CALL SETCC; /* GO TO SET CC ROUTINE */ 01891000 BAL @14,SETCC 0648 01892000 *CCRET4: 0649 01893000 * RESPECIFY 0649 01894000 * (R2) UNRSTD; /* RELEASE DISPATCHER LOCK */ 01895000 CCRET4 DS 0H 0650 01896000 * RESPECIFY 0650 01897000 * (R11, 0650 01898000 * R12, 0650 01899000 * R13, 0650 01900000 * R14) RSTD; 0650 01901000 * GENERATE REFS(PSALITA,FLC); 0651 01902000 SETFRR D,WRKREGS=(FRRSPTR,FRREPTR), CC01903000 RELATED=(RQCHECK,IEAVRTI0(NONE)) 01904000 SETLOCK RELEASE,TYPE=DISP, CC01905000 RELATED=('TQE QUEUE',IEAVRTI0(NONE)) 01906000 * RESPECIFY 0652 01907000 * (R11, 0652 01908000 * R12, 0652 01909000 * R13, 0652 01910000 * R14) UNRSTD; 0652 01911000 * RESPECIFY 0653 01912000 * (R14) RSTD; 0653 01913000 * R14=R10; /* RESTORE RETURN ADDRESS */ 01914000 LR R14,R10 0654 01915000 * GENERATE(BR R14); /* RETURN TO CALLER */ 01916000 BR R14 01917000 * RESPECIFY 0656 01918000 * (R10, 0656 01919000 * R14) UNRSTD; 0656 01920000 *SETCC: /* START OF INTERNL PROCEDURE */ 01921000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG,NOENTREG); 0657 01922000 B @PB00007 0657 01923000 SETCC DS 0H 0658 01924000 * RESPECIFY 0658 01925000 * (R13) RSTD; 0658 01926000 * R13=CVTPTR; /* LOCATE THE TPC */ 01927000 L R13,CVTPTR 0659 01928000 * GENERATE(L R13,CVTTPC(R13)); 0660 01929000 L R13,CVTTPC(R13) 01930000 * RESPECIFY 0661 01931000 * TPC BASED(R13); 0661 01932000 * IF TPCABND='0'B /* IF REAL TQE NOT ABENDED */ 01933000 * THEN /* SERVICE THE QUEUE */ 01934000 TM TPCABND(R13),B'10000000' 0662 01935000 BNZ @RF00662 0662 01936000 * DO; 0663 01937000 * GENERATE REFS(TPCSAVE2); 0664 01938000 * /* SAVE REGISTERS */ 01939000 STM R0,R15,TPCSAVE2(R13) 01940000 *SETCCEXT: /* EXTERNAL ENTRY POINT */ 01941000 * RESPECIFY 0665 01942000 * (R13) UNRSTD; 0665 01943000 SETCCEXT DS 0H 0666 01944000 * RESPECIFY 0666 01945000 * (FRRPTR, 0666 01946000 * TFRRPTR, 0666 01947000 * FRRSPTR, 0666 01948000 * FRREPTR) RSTD; 0666 01949000 * FRRPTR=ADDR(IEAVRFRR); /* INITIALIZE PTR TO FRR */ 01950000 L FRRPTR,@CV03196 0667 01951000 * GENERATE REFS(PSA,FRRSENTR,FRRSLAST,FRRSFRRA,FRRSPARM); 0668 01952000 SETFRR A,FRRAD=(FRRPTR),PARMAD=(TFRRPTR), CC01953000 WRKREGS=(FRRSPTR,FRREPTR), CC01954000 RELATED=('set cc',IEAVRTI0(NONE)) 01955000 * TFRRID=SETCCID; /* INITIALIZE SET CC ID */ 01956000 MVC TFRRID(4,TFRRPTR),@CB03222 0669 01957000 * RESPECIFY 0670 01958000 * (FRRPTR, 0670 01959000 * TFRRPTR, 0670 01960000 * FRRSPTR, 0670 01961000 * FRREPTR) UNRSTD; 0670 01962000 * RESPECIFY 0671 01963000 * TPC BASED(TPCPTR); 0671 01964000 * RESPECIFY 0672 01965000 * (TOPTQE) RSTD; 0672 01966000 * TOPTQE=TPCHDCCQ; /* POINT TO TOP TQE ON REAL Q */ 01967000 L @12,CVTPTR 0673 01968000 L @12,TPCPTR(,@12) 0673 01969000 L TOPTQE,TPCHDCCQ(,@12) 0673 01970000 * IF PCCANUCC='0'B /* IF CLOCK COMPARATOR USABLE */ 01971000 * THEN /* USE IT IF NECESSARY. */ 01972000 L @12,PCCAPTR 0674 01973000 TM PCCANUCC(@12),B'10000000' 0674 01974000 BNZ @RF00674 0674 01975000 * DO; 0675 01976000 * IF TOPTQE->TQECOMP='0'B|/* IF TOP TQE NOT */ 01977000 * PCCATQEP=0 /* BEING TIMED OR CPU NOT TIMING 01978000 * A TQE */ 01979000 * THEN /* SET ITS CLK COMP */ 01980000 TM TQECOMP(TOPTQE),B'10000000' 0676 01981000 BZ @RT00676 0676 01982000 L @12,PCCATQEP(,@12) 0676 01983000 LTR @12,@12 0676 01984000 BNZ @RF00676 0676 01985000 @RT00676 DS 0H 0677 01986000 * DO; 0677 01987000 * IF PCCATQEP^=0 /* IF TIMING A TQE */ 01988000 * THEN /* MARK TQE AS NOT */ 01989000 L @12,PCCAPTR 0678 01990000 L @12,PCCATQEP(,@12) 0678 01991000 LTR @12,@12 0678 01992000 BZ @RF00678 0678 01993000 * DO; /* BEING TIMED. */ 01994000 * PCCATQEP->TQECOMP='0'B; 0680 01995000 NI TQECOMP(@12),B'01111111' 0680 01996000 * END; 0681 01997000 * ELSE /* IN NOT TIMING A TQE, ENSURE CC*/ 01998000 * DO; /* INTRUPTS ENABLED */ 01999000 B @RC00678 0682 02000000 @RF00678 DS 0H 0683 02001000 * RESPECIFY 0683 02002000 * (R14) RSTD; 0683 02003000 * R14=ADDR(TPCWORKL);/* @YM06258*/ 02004000 L @12,CVTPTR 0684 02005000 L R14,TPCPTR(,@12) 0684 02006000 LA R14,TPCWORKL(,R14) 0684 02007000 * GENERATE; 0685 02008000 STCTL 0,0,0(R14) 02009000 OI 2(R14),X'08' SET BIT 20=1 IN CR0 02010000 LCTL 0,0,0(R14) 02011000 * RESPECIFY 0686 02012000 * (R14) UNRSTD; 0686 02013000 * END; 0687 02014000 * GENERATE /* SET CLOCK COMP */ 02015000 * (SCKC TQEVAL(TOPTQE)); 0688 02016000 @RC00678 DS 0H 0688 02017000 SCKC TQEVAL(TOPTQE) 02018000 * TOPTQE->TQECOMP='1'B;/* MARK TOP TQE AS BEING TIMED */ 02019000 OI TQECOMP(TOPTQE),B'10000000' 0689 02020000 * PCCATQEP=TOPTQE; /* RECORD WHAT TQE */ 02021000 L @12,PCCAPTR 0690 02022000 ST TOPTQE,PCCATQEP(,@12) 0690 02023000 * END; /* THIS CPU TIMING */ 02024000 * END; 0692 02025000 * ELSE /* IF CLOCK COMP NOT USABLE */ 02026000 * DO; /* CHECK IF NEED A CLK COMP */ 02027000 B @RC00674 0693 02028000 @RF00674 DS 0H 0694 02029000 * IF TOPTQE->TQECOMP='0'B /* IF TOP TQE NOT BEING TIMED, */ 02030000 * THEN /* NEED TO FIND A */ 02031000 TM TQECOMP(TOPTQE),B'10000000' 0694 02032000 BNZ @RF00694 0694 02033000 * DO; /* GOOD CLK COMP */ 02034000 * IF CSDGDCC='00'X /* IF NO GOOD CC */ 02035000 * THEN /* ABEND REQUESTORS */ 02036000 L @12,CVTPTR 0696 02037000 L @10,CVTCSD(,@12) 0696 02038000 L @10,CSDGDCC(,@10) 0696 02039000 LTR @10,@10 0696 02040000 BNZ @RF00696 0696 02041000 * DO; /* OF REAL TQES */ 02042000 * TPCABND='1'B; /* STOP RECURSION */ 02043000 L @12,TPCPTR(,@12) 0698 02044000 OI TPCABND(@12),B'10000000' 0698 02045000 * DO WHILE TOPTQE->TQEDUM='0'B;/* GO THRU QUEUE 0699 02046000 * UNTIL DUMMY REACHED. */ 02047000 B @DE00699 0699 02048000 @DL00699 DS 0H 0700 02049000 * TQEPTR=TOPTQE;/* GET CURRENT TQE */ 02050000 LR TQEPTR,TOPTQE 0700 02051000 * TOPTQE=TQEFLNK;/* GET NEXT TQE */ 02052000 L TOPTQE,TQEFLNK(,TQEPTR) 0701 02053000 * RESPECIFY 0702 02054000 * (R2) RSTD; /* TO PROCTQE RTN */ 02055000 * R2=ADDR(PROCRET2);/* FOR EACH TQE TO */ 02056000 LA R2,PROCRET2 0703 02057000 * CALL PROCTQE; /* INITIATE THE */ 02058000 BAL @14,PROCTQE 0704 02059000 *PROCRET2: 0705 02060000 * RESPECIFY 0705 02061000 * (R2) UNRSTD; /* TERMINATION. */ 02062000 PROCRET2 DS 0H 0706 02063000 * END; 0706 02064000 @DE00699 TM TQEDUM(TOPTQE),B'00010000' 0706 02065000 BZ @DL00699 0706 02066000 * END; 0707 02067000 * ELSE /* HERE IF A GOOD */ 02068000 * DO; /* CC IS IN SYSTEM */ 02069000 B @RC00696 0708 02070000 @RF00696 DS 0H 0709 02071000 * RESPECIFY 0709 02072000 * (R15, 0709 02073000 * SLOTCNT) RSTD; 0709 02074000 * R15=15; /* INITIALIZE R15 */ 02075000 LA R15,15 0710 02076000 * DO SLOTCNT=DIM(PCCAT00P)/* SCAN UNTIL */ 02077000 * TO 1 BY-1 WHILE/* FIND ENTRY WITH */ 02078000 * R15^=0; /* THE GOOD CLK CMP */ 02079000 LA SLOTCNT,16 0711 02080000 @DL00711 SLR @14,@14 0711 02081000 CR R15,@14 0711 02082000 BE @DC00711 0711 02083000 * R1=PCCAT00P(SLOTCNT);/* PT TO ENTRY */ 02084000 LR @12,SLOTCNT 0712 02085000 SLA @12,2 0712 02086000 L @10,CVTPTR 0712 02087000 L @10,CVTPCCAT(,@10) 0712 02088000 AL @10,@CF03363 0712 02089000 L R1,PCCAT00P(@12,@10) 0712 02090000 * IF R1^=0& /* IF ENTRY EXISTS */ 02091000 * R1->PCCANUCC='0'B/* AND CC USABLE, */ 02092000 * THEN /* SHOULDER TAP CPU */ 02093000 CR R1,@14 0713 02094000 BE @RF00713 0713 02095000 TM PCCANUCC(R1),B'10000000' 0713 02096000 BNZ @RF00713 0713 02097000 * DO; 0714 02098000 * RESPECIFY 0715 02099000 * (R0, 0715 02100000 * R14) RSTD; 0715 02101000 * GENERATE REFS(CVT,CVTIPCRP) 0716 02102000 * (RPSGNL RQCHECK,CPU=(1)); 0716 02103000 RPSGNL RQCHECK,CPU=(1) 02104000 * END; 0717 02105000 * END; 0718 02106000 @RF00713 BCTR SLOTCNT,0 0718 02107000 LTR SLOTCNT,SLOTCNT 0718 02108000 BP @DL00711 0718 02109000 @DC00711 DS 0H 0719 02110000 * RESPECIFY 0719 02111000 * (R0, 0719 02112000 * R14, 0719 02113000 * R15, 0719 02114000 * SLOTCNT) UNRSTD; 0719 02115000 * END; 0720 02116000 * END; 0721 02117000 @RC00696 DS 0H 0722 02118000 * END; 0722 02119000 @RF00694 DS 0H 0723 02120000 * RESPECIFY 0723 02121000 * (TOPTQE) UNRSTD; 0723 02122000 @RC00674 DS 0H 0724 02123000 * RESPECIFY 0724 02124000 * (FRRPTR, 0724 02125000 * TFRRPTR, 0724 02126000 * FRRSPTR, 0724 02127000 * FRREPTR) RSTD; 0724 02128000 * GENERATE; 0725 02129000 * /* DELETE FRR COVERAGE */ 02130000 SETFRR D,WRKREGS=(FRRSPTR,FRREPTR), CC02131000 RELATED=('set cc',IEAVRTI0(NONE)) 02132000 * R13=CVTTPC; /* SET R13 TO PT TO TPC */ 02133000 L @15,CVTPTR 0726 02134000 L R13,CVTTPC(,@15) 0726 02135000 * GENERATE; 0727 02136000 * /* RESTOR REGS AND RET ON R2 */ 02137000 LM R0,R15,TPCSAVE2(R13) 02138000 BR R2 02139000 * RESPECIFY 0728 02140000 * (FRRPTR, 0728 02141000 * TFRRPTR, 0728 02142000 * FRRSPTR, 0728 02143000 * FRREPTR) UNRSTD; 0728 02144000 * END; 0729 02145000 * GENERATE(BR R2); 0730 02146000 @RF00662 DS 0H 0730 02147000 BR R2 02148000 * END SETCC; /* END OF SET CC PROCEDURE */ 02149000 @EL00007 DS 0H 0731 02150000 @EF00007 DS 0H 0731 02151000 @ER00007 BR @14 0731 02152000 @PB00007 DS 0H 0732 02153000 * 0732 02154000 */* ************************************************************** */ 02155000 */* */ 02156000 */* AECS SRB ROUTINE */ 02157000 */* */ 02158000 */* ************************************************************** */ 02159000 */* */ 02160000 */* FUNCTION - FINAL PROCESSING STEP FOR USER INTERVALS */ 02161000 */* 1. SCHEDULES USER EXIT IF TASK OR REAL TQE, */ 02162000 */* POSTS THE WAIT IF A WAIT TQE, OR */ 02163000 */* ABTERMS USER IF INTERNAL DID NOT COMPLETE */ 02164000 */* 2. FREES SRB AND, IF REAL/WAIT TYPE, THE TQE */ 02165000 */* */ 02166000 */* INPUT - 1. SUPERVISOR STATE */ 02167000 */* 2. PROTECT KEY ZERO */ 02168000 */* 3. UNLOCKED */ 02169000 */* 4. R0= POINTER TO SRB */ 02170000 */* 5. R1= SRBPARM (POINTER TO TQE) */ 02171000 */* 6. R14= RETURN ADDRESS */ 02172000 */* 7. R15= ENTRY POINT */ 02173000 */* */ 02174000 */* ENVIRONMENT */ 02175000 */* CHANGES - ONLY REGISTER 14 PRESERVED */ 02176000 */* */ 02177000 */* OTHER RTNS 1. SETLOCK */ 02178000 */* USED - 2. CALLRTM */ 02179000 */* 3. CRBRANCH GETMAIN */ 02180000 */* 4. CRBRANCH FREEMAIN */ 02181000 */* 5. POST */ 02182000 */* 6. STAGE 2 EXIT EFFECTOR */ 02183000 */* */ 02184000 */* CALLERS - ASYNC EXIT CTL RTN VIA THE DISPATCHER */ 02185000 */* */ 02186000 */* OUTPUT - FINAL TQE PROCESSING DONE */ 02187000 */* */ 02188000 */* ************************************************************** */ 02189000 * 0732 02190000 *IEAVRSAE: 0732 02191000 * RESPECIFY 0732 02192000 * (R0, 0732 02193000 * R5, 0732 02194000 * R14) RSTD; 0732 02195000 IEAVRSAE DS 0H 0733 02196000 * GENERATE; 0733 02197000 * /* ESTABLISH ADDRESSABILITY */ 02198000 BALR BASEREG,0 02199000 USING *,BASEREG 02200000 * R5=R14; /* SAVE RETURN ADDRESS */ 02201000 LR R5,R14 0734 02202000 * RESPECIFY 0735 02203000 * (R14) UNRSTD; /* OBTAIN THE LOCAL LOCK */ 02204000 * RESPECIFY 0736 02205000 * (R11, 0736 02206000 * R12, 0736 02207000 * R13, 0736 02208000 * R14) RSTD; 0736 02209000 * GENERATE REFS(PSALITA,FLC); 0737 02210000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, CC02211000 RELATED=(MEMORY,IEAVRTI0(NONE)) 02212000 * FRRPTR=ADDR(IEAVRFRR); /* SET PTR TO FRR */ 02213000 L FRRPTR,@CV03196 0738 02214000 * GENERATE; 0739 02215000 SETFRR A,FRRAD=(FRRPTR),PARMAD=(TFRRPTR), CC02216000 WRKREGS=(FRRSPTR,FRREPTR), CC02217000 RELATED=('aecs srb rtn',IEAVRTI0(NONE)) 02218000 * TFRRLOCL='1'B; /* INDICATE LOCAL LOCK GOTTEN */ 02219000 OI TFRRLOCL(TFRRPTR),B'01000000' 0740 02220000 * TFRRID=AESRID; /* SET AECS SRB RTN ID FOR FRR */ 02221000 MVC TFRRID(4,TFRRPTR),@CB03224 0741 02222000 * RESPECIFY 0742 02223000 * (R11, 0742 02224000 * R12, 0742 02225000 * R13, 0742 02226000 * R14) UNRSTD; 0742 02227000 * RESPECIFY 0743 02228000 * (R2, 0743 02229000 * SRBPTR) RSTD; 0743 02230000 * SRBPTR=R0; /* ESTABLISH SRB ADDRESSABIL */ 02231000 LR SRBPTR,R0 0744 02232000 * RESPECIFY 0745 02233000 * (R0) UNRSTD; 0745 02234000 * R2=TQEPTR; /* USE REGISTER 2 AS TQE PTR */ 02235000 LR R2,TQEPTR 0746 02236000 * RESPECIFY 0747 02237000 * TQE BASED(R2); 0747 02238000 * RESPECIFY 0748 02239000 * (TCBPTR) RSTD; 0748 02240000 * TCBPTR=TQETCB; 0749 02241000 L TCBPTR,TQETCB(,R2) 0749 02242000 * IF ABS(TCBTME)=ABS(SRBPARM) /* IF TCBTME FOR THIS TQE */ 02243000 * THEN /* CLEAR TCBTME */ 02244000 CLC TCBTME(4,TCBPTR),SRBPARM(SRBPTR) 0750 02245000 BNE @RF00750 0750 02246000 * TCBTME=0; 0751 02247000 SLR @12,@12 0751 02248000 ST @12,TCBTME(,TCBPTR) 0751 02249000 * RESPECIFY 0752 02250000 * (TCBPTR) UNRSTD; 0752 02251000 @RF00750 DS 0H 0753 02252000 * IF TQEINCOM='1'B /* IF INTERVAL COMPLETED, */ 02253000 * THEN /* CHECK FOR TYPE. */ 02254000 TM TQEINCOM(R2),B'00001000' 0753 02255000 BNO @RF00753 0753 02256000 * DO; 0754 02257000 * IF TQETYPE^='01'B /* IF TASK OR REAL TYPE, */ 02258000 * THEN /* CHECK FOR A USER EXIT. */ 02259000 TM TQETYPE(R2),B'00000001' 0755 02260000 BNO @RT00755 0755 02261000 TM TQETYPE(R2),B'00000010' 0755 02262000 BZ @RF00755 0755 02263000 @RT00755 DS 0H 0756 02264000 * DO; 0756 02265000 * IF TQEXITSP='1'B /* IF THERE IS A USER EXIT, */ 02266000 * THEN /* SCHEDULE IT. */ 02267000 TM TQEXITSP(R2),B'00000100' 0757 02268000 BNO @RF00757 0757 02269000 * DO; 0758 02270000 * RESPECIFY 0759 02271000 * (R11) RSTD; 0759 02272000 * R11=0; /* INIT EXIT INDC. */ 02273000 SLR R11,R11 0760 02274000 * IF TQEEXIT^=ADDR(IEATLEXT)/* IF USER TQE */ 02275000 * THEN /* GET PP SAVE */ 02276000 L @12,@CV03192 0761 02277000 C @12,TQEEXIT(,R2) 0761 02278000 BE @RF00761 0761 02279000 * DO; /* AREA . */ 02280000 * RESPECIFY 0763 02281000 * (R0, 0763 02282000 * R3, 0763 02283000 * R4, 0763 02284000 * R7, 0763 02285000 * R14, 0763 02286000 * R15) RSTD; 0763 02287000 * R0=72; /* 72 BYTES IN */ 02288000 LA R0,72 0764 02289000 * R3=250; /* SP 250 */ 02290000 LA R3,250 0765 02291000 * R4=TQETCB; /* FOR GETMAIN */ 02292000 L R4,TQETCB(,R2) 0766 02293000 * R7=TQEASCB; /* FOR GETMAIN GET CORE */ 02294000 L R7,TQEASCB(,R2) 0767 02295000 * GENERATE REFS(CVTPTR,CVTCRMN,CVTMAP) 0768 02296000 * (GETMAIN RU,LV=(0),SP=(3),BRANCH=YES); 0768 02297000 GETMAIN RU,LV=(0),SP=(3),BRANCH=YES 02298000 * RESPECIFY 0769 02299000 * (R0, 0769 02300000 * R3, 0769 02301000 * R4, 0769 02302000 * R7, 0769 02303000 * R14, 0769 02304000 * R15) UNRSTD; 0769 02305000 * TQESADDR=R1; /* SAVE PTR TO PP SAVE AREA */ 02306000 ST R1,TQESADDR(,R2) 0770 02307000 * END; 0771 02308000 * ELSE /* IF JST TQE, */ 02309000 * DO; /* FIND THE INIT'S TCB */ 02310000 B @RC00761 0772 02311000 @RF00761 DS 0H 0773 02312000 * RESPECIFY 0773 02313000 * (ASCBPTR) RSTD; 0773 02314000 * ASCBPTR=TQEASCB; 0774 02315000 L ASCBPTR,TQEASCB(,R2) 0774 02316000 * TQETCB=ASXBLTCB->/* PUT ADDR */ 02317000 * TCBJSCB->JSCBTCBP;/* INIT'S TCB INTO TQE. */ 02318000 L @12,ASXBPTR(,ASCBPTR) 0775 02319000 L @12,ASXBLTCB(,@12) 0775 02320000 L @12,TCBJSCB(,@12) 0775 02321000 L @12,JSCBTCBP(,@12) 0775 02322000 ST @12,TQETCB(,R2) 0775 02323000 * IF ASCBCEXT='1'B/* IF JS TCB THRU EOT */ 02324000 * THEN /* SET THE */ 02325000 TM ASCBCEXT(ASCBPTR),B'00100000' 0776 02326000 BNO @RF00776 0776 02327000 * R11=1; /* EXIT COND */ 02328000 LA R11,1 0777 02329000 * RESPECIFY 0778 02330000 * (ASCBPTR) UNRSTD; 0778 02331000 @RF00776 DS 0H 0779 02332000 * END; 0779 02333000 * IF R11=0 /* IF OK TO PROCEED */ 02334000 * THEN /* BUILD AN IRB/IQE */ 02335000 @RC00761 LTR R11,R11 0780 02336000 BNZ @RF00780 0780 02337000 * DO; 0781 02338000 * RESPECIFY 0782 02339000 * (R11) UNRSTD; 0782 02340000 * RESPECIFY 0783 02341000 * (R0, 0783 02342000 * R3, 0783 02343000 * R4, 0783 02344000 * R7, 0783 02345000 * R14, 0783 02346000 * R15) RSTD; 0783 02347000 * R0=152; /* 152 BYTES */ 02348000 LA R0,152 0784 02349000 * R3=253; /* SP = LSQA */ 02350000 LA R3,253 0785 02351000 * R4=TQETCB; /* GETMAIN INT'FACE */ 02352000 L R4,TQETCB(,R2) 0786 02353000 * R7=TQEASCB; /* GETMAIN INT'FACE GET IRB/IQE 02354000 * CORE */ 02355000 L R7,TQEASCB(,R2) 0787 02356000 * GENERATE REFS(CVTPTR,CVTCRMN,CVTMAP); 0788 02357000 GETMAIN RU,LV=(0),SP=(3),BRANCH=YES 02358000 XC 0(152,R1),0(R1) 02359000 * RESPECIFY 0789 02360000 * (R0, 0789 02361000 * R3, 0789 02362000 * R4, 0789 02363000 * R7, 0789 02364000 * R14, 0789 02365000 * R15) UNRSTD; 0789 02366000 * RBPTR=R1+32; /* POINT TO IRB NOW BIULD IRB */ 02367000 LA @12,32 0790 02368000 ALR @12,R1 0790 02369000 LR RBPTR,@12 0790 02370000 * RBPPSAV=TQESADDR;/* SET PP SAVE AREA */ 02371000 L @12,TQESADDR(,R2) 0791 02372000 ST @12,RBPPSAV(,RBPTR) 0791 02373000 * RBTMFLD=TQEFLGS;/* SET TIMER FLAGS */ 02374000 MVC RBTMFLD(1,RBPTR),TQEFLGS(R2) 0792 02375000 * RBEP=TQEEXIT; /* SET ENTRY POINT */ 02376000 L @12,TQEEXIT(,R2) 0793 02377000 ST @12,RBEP(,RBPTR) 0793 02378000 * RBOPSW(1:4)=TQELHPSW;/* SET PSW-LEFT HLF */ 02379000 MVC RBOPSW(4,RBPTR),TQELHPSW(R2) 0794 02380000 * RBOPSW(5:8)='00000000'X;/* CLEAR RT HLF */ 02381000 MVC RBOPSW+4(4,RBPTR),@CB03297 0795 02382000 * RBWCSA='00'X; /* SET ZERO WAIT CT */ 02383000 LR @12,RBPTR 0796 02384000 AL @12,@CF03363 0796 02385000 MVI RBWCSA-60(@12),X'00' 0796 02386000 * RBSIZE='13'X; /* SET IRB/IQE SIZE */ 02387000 LA @12,19 0797 02388000 STH @12,RBSIZE(,RBPTR) 0797 02389000 * RBSTAB1='40'X; /* PUT ON IRB FLAG */ 02390000 MVI RBSTAB1(RBPTR),X'40' 0798 02391000 * RBSTAB2='0E'X; /* EXIT FREES CORE */ 02392000 MVI RBSTAB2(RBPTR),X'0E' 0799 02393000 * RBIQE=RBPTR+96; /* SET IQE POINTER */ 02394000 LA @12,96 0800 02395000 ALR @12,RBPTR 0800 02396000 ST @12,RBIQE(,RBPTR) 0800 02397000 * RBUSE='00'X; /* SET ZERO USE CT NOW BUILD IQE */ 02398000 MVI RBUSE(RBPTR),X'00' 0801 02399000 * IQEPARAM=0; /* CLEAR PARAM */ 02400000 L @12,RBIQE(,RBPTR) 0802 02401000 SLR @11,@11 0802 02402000 ST @11,IQEPARAM(,@12) 0802 02403000 * IQEIRBA=RBPTR; /* SET IRB POINTER */ 02404000 STCM RBPTR,7,IQEIRBA(@12) 0803 02405000 * IQETCB=TQETCB; /* SET TCB POINTER */ 02406000 L @11,TQETCB(,R2) 0804 02407000 ST @11,IQETCB(,@12) 0804 02408000 * RESPECIFY 0805 02409000 * (R11, 0805 02410000 * R15) RSTD; 0805 02411000 * R1=RBIQE; /* SET R1 TO POINT */ 02412000 LR R1,@12 0806 02413000 * R11=SRBPTR; /* SAVE PTR TO SRB */ 02414000 LR R11,SRBPTR 0807 02415000 * GENERATE /* TO IQE-COMPLEMNT */ 02416000 * (LCR R1,R1); 0808 02417000 LCR R1,R1 02418000 * CALL STAGE2; /* SCHDUL USER EXIT */ 02419000 L @12,CVTPTR 0809 02420000 L @15,CVT0EF00(,@12) 0809 02421000 BALR @14,@15 0809 02422000 * SRBPTR=R11; /* RESTORE SRBPTR */ 02423000 LR SRBPTR,R11 0810 02424000 * RESPECIFY 0811 02425000 * (R11) UNRSTD; 0811 02426000 * IF TQETYPE='00'B/* IF TASK TYPE TQE */ 02427000 * THEN /* FREE THE TQE */ 02428000 TM TQETYPE(R2),B'00000011' 0812 02429000 BNZ @RF00812 0812 02430000 * DO; 0813 02431000 * RESPECIFY 0814 02432000 * (R0, 0814 02433000 * R3, 0814 02434000 * R4, 0814 02435000 * R7, 0814 02436000 * R14) RSTD; 0814 02437000 * R0=128; /* R0= SIZE OF TQE */ 02438000 LA R0,128 0815 02439000 * R1=R2; /* R1= PTR TO TQE */ 02440000 LR R1,R2 0816 02441000 * R3=253; /* R3= SP LSQA */ 02442000 LA R3,253 0817 02443000 * R4=TQETCB; /* R4= PTR TO TCB */ 02444000 L R4,TQETCB(,R2) 0818 02445000 * R7=TQEASCB; /* R7= PTR TO ASCB */ 02446000 L R7,TQEASCB(,R2) 0819 02447000 * GENERATE REFS(CVTPTR,CVTCRMN,CVTMAP); 0820 02448000 FREEMAIN RU,LV=(0),A=(1),SP=(3),BRANCH=YES 02449000 * RESPECIFY 0821 02450000 * (R0, 0821 02451000 * R3, 0821 02452000 * R4, 0821 02453000 * R7, 0821 02454000 * R14, 0821 02455000 * R15) UNRSTD; 0821 02456000 * END; 0822 02457000 * END; 0823 02458000 * END; 0824 02459000 * ELSE /* DO NOT SCHEDULE THE USER */ 02460000 * DO; /* FREE TQE IF TASK TYPE */ 02461000 B @RC00757 0825 02462000 @RF00757 DS 0H 0826 02463000 * IF TQETYPE='00'B /* IF TASK TYPE TQE */ 02464000 * THEN /* FREE IT FRM LSQA */ 02465000 TM TQETYPE(R2),B'00000011' 0826 02466000 BNZ @RF00826 0826 02467000 * DO; 0827 02468000 * RESPECIFY 0828 02469000 * (R0, 0828 02470000 * R3, 0828 02471000 * R4, 0828 02472000 * R7, 0828 02473000 * R14, 0828 02474000 * R15) RSTD; 0828 02475000 * R0=128; /* 128 BYTES */ 02476000 LA R0,128 0829 02477000 * R3=253; /* SP = LSQA */ 02478000 LA R3,253 0830 02479000 * R4=TQETCB; /* GETMAIN INT'FACE */ 02480000 L R4,TQETCB(,R2) 0831 02481000 * R7=TQEASCB; /* GETMAIN INT'FACE FREE TQE */ 02482000 L R7,TQEASCB(,R2) 0832 02483000 * GENERATE REFS(CVTPTR,CVTCRMN,CVTMAP); 0833 02484000 FREEMAIN RU,LV=(0),A=(1),SP=(3),BRANCH=YES 02485000 * RESPECIFY 0834 02486000 * (R0, 0834 02487000 * R3, 0834 02488000 * R4, 0834 02489000 * R7, 0834 02490000 * R14, 0834 02491000 * R15) UNRSTD; 0834 02492000 * END; 0835 02493000 * END; 0836 02494000 * END; 0837 02495000 * ELSE /* IF WAIT TYPE TQE- POST ECB */ 02496000 * DO; 0838 02497000 B @RC00755 0838 02498000 @RF00755 DS 0H 0839 02499000 * RESPECIFY 0839 02500000 * (R4, 0839 02501000 * R11, 0839 02502000 * R15) RSTD; 0839 02503000 * R4=SRBPTR; /* SAVE SRBPTR */ 02504000 LR R4,SRBPTR 0840 02505000 * R10=0; /* SET ZERO COMPLETION CODE */ 02506000 SLR R10,R10 0841 02507000 * R11=ADDR(TQEECB); /* R11= POINTER TO ECB */ 02508000 LA R11,TQEECB(,R2) 0842 02509000 * CALL POSTBR; /* POST THE ECB */ 02510000 L @12,CVTPTR 0843 02511000 L @15,CVT0PT01(,@12) 0843 02512000 BALR @14,@15 0843 02513000 * SRBPTR=R4; /* RESTORE SRBPTR */ 02514000 LR SRBPTR,R4 0844 02515000 * RESPECIFY 0845 02516000 * (R4, 0845 02517000 * R11, 0845 02518000 * R15) UNRSTD; 0845 02519000 * END; 0846 02520000 * END; 0847 02521000 * ELSE /* IF INTERVAL NOT COMPLETE, */ 02522000 * DO; /* ABTERM THE OWNER. */ 02523000 B @RC00753 0848 02524000 @RF00753 DS 0H 0849 02525000 * RESPECIFY 0849 02526000 * (R0, 0849 02527000 * R3, 0849 02528000 * R4, 0849 02529000 * R14, 0849 02530000 * R15) RSTD; 0849 02531000 * R4=TQETCB; /* TCB TO BE TERMINATED TERMINATE 02532000 * TQE'S OWNER */ 02533000 L R4,TQETCB(,R2) 0850 02534000 * GENERATE REFS(CVTBTERM) 0851 02535000 * (CALLRTM TYPE=ABTERM,COMPCOD=X'22F',TCB=(4)); 0851 02536000 CALLRTM TYPE=ABTERM,COMPCOD=X'22F',TCB=(4) 02537000 * R2=SRBPARM; 0852 02538000 L R2,SRBPARM(,SRBPTR) 0852 02539000 * RESPECIFY 0853 02540000 * (R0, 0853 02541000 * R3, 0853 02542000 * R4, 0853 02543000 * R14, 0853 02544000 * R15) UNRSTD; 0853 02545000 * END; 0854 02546000 * RESPECIFY 0855 02547000 * (R0, 0855 02548000 * R3, 0855 02549000 * R4, 0855 02550000 * R7, 0855 02551000 * R14, 0855 02552000 * R15) RSTD; 0855 02553000 @RC00753 DS 0H 0856 02554000 * IF SIGNSRBP(1:1)='1'B /* IF SRB EMBEDDED IN TQE, */ 02555000 * THEN /* FREE THE TQE */ 02556000 TM SIGNSRBP(SRBPTR),B'10000000' 0856 02557000 BNO @RF00856 0856 02558000 * DO; 0857 02559000 * SIGNSRBP(1:1)='0'B; /* CLEAR HIGH ORDER BIT */ 02560000 NI SIGNSRBP(SRBPTR),B'01111111' 0858 02561000 * R0=128; /* 128 BYTES */ 02562000 LA R0,128 0859 02563000 * R1=SRBPARM; /* SET R1= POINTER TO TQE */ 02564000 L R1,SRBPARM(,SRBPTR) 0860 02565000 * END; 0861 02566000 * ELSE /* IF SRB IS NOT EMBEDDED, */ 02567000 * DO; /* FREE JUST THE SRB. */ 02568000 B @RC00856 0862 02569000 @RF00856 DS 0H 0863 02570000 * R0=LENGTH(SRBSECT); /* SET R0 TO SIZE OF THE SRB */ 02571000 LA R0,44 0863 02572000 * R1=SRBPTR; /* SET R1= POINTER TO SRB */ 02573000 LR R1,SRBPTR 0864 02574000 * END; 0865 02575000 * R3=245; /* SP = SQA */ 02576000 @RC00856 LA R3,245 0866 02577000 * R4=0; /* CLEAR TCB PTR FOR GETMAIN */ 02578000 SLR R4,R4 0867 02579000 * R7=SRBASCB; /* FREEMAIN INTERFACE FREE THE 0868 02580000 * TQE/SRB OR SRB */ 02581000 L R7,SRBASCB(,SRBPTR) 0868 02582000 * GENERATE REFS(CVTPTR,CVTCRMN,CVTMAP) 0869 02583000 * (FREEMAIN RU,LV=(0),A=(1),SP=(3),BRANCH=YES); 0869 02584000 FREEMAIN RU,LV=(0),A=(1),SP=(3),BRANCH=YES 02585000 * RESPECIFY 0870 02586000 * (R0, 0870 02587000 * R3, 0870 02588000 * R4, 0870 02589000 * R7, 0870 02590000 * R14, 0870 02591000 * R15) UNRSTD; /* RELEASE THE LOCAL LOCK */ 02592000 * RESPECIFY 0871 02593000 * (R11, 0871 02594000 * R12, 0871 02595000 * R13, 0871 02596000 * R14) RSTD; 0871 02597000 * GENERATE REFS(PSALITA,FLC); 0872 02598000 SETFRR D,WRKREGS=(FRRSPTR,FRREPTR), CC02599000 RELATED=('aecs srb rtn',IEAVRTI0(NONE)) 02600000 SETLOCK RELEASE,TYPE=LOCAL, CC02601000 RELATED=(MEMORY,IEAVRTI0(NONE)) 02602000 * RESPECIFY 0873 02603000 * (R11, 0873 02604000 * R12, 0873 02605000 * R13, 0873 02606000 * R14) UNRSTD; 0873 02607000 * RESPECIFY 0874 02608000 * (R2, 0874 02609000 * SRBPTR) UNRSTD; 0874 02610000 * RESPECIFY 0875 02611000 * TQE BASED(TQEPTR); 0875 02612000 * RESPECIFY 0876 02613000 * (R14) RSTD; 0876 02614000 * R14=R5; 0877 02615000 LR R14,R5 0877 02616000 * GENERATE /* RETURN CONTROL TO CALLER */ 02617000 * (BR R14); 0878 02618000 BR R14 02619000 * RESPECIFY 0879 02620000 * (R5, 0879 02621000 * R14) UNRSTD; 0879 02622000 * 0879 02623000 */*IEAVRTI0: CHART (AMODE,AREF) */ 02624000 */* HEADER 0880 02625000 */* TIMER SUPERVISION 0880 02626000 */* 0880 02627000 */* SECOND LEVEL INTERRUPT HANDLER 0880 02628000 */* MODULE IEAVRTI0 PAGE # */ 02629000 */* E IEA0TI00 */ 02630000 */* COMMENT (1,1) SLIH ENTRY- */ 02631000 */* COMMENT (2,1) FROM EXTERNAL */ 02632000 */* COMMENT (3,1) FLIH. */ 02633000 */* L SETFRR: ADD TIMER SUPERVISION FRR TO STACK */ 02634000 */* P LEAVE FOOTPRINT (SET TFRRID= 0140080) */ 02635000 */* P SAVE RETURN ADDRESS IN R2 IN CPU SAVE AREA */ 02636000 */* D (YES,,NO,%CC) CPU TMR INTERRUPT? (LOC 135= X'05') */ 02637000 */* P LEAVE CPU TIMER FOOTPRINT (SET TFRRCPUT =1) */ 02638000 */* D (YES,,NO,%CPUT) CPU TMR USABLE? (PCCANUIN =0) */ 02639000 */* P SET HIGH VALUE (X'7FF...FFF') INTO CPU TIMER */ 02640000 */*%CPUT: P SET TCBPTR= TCB ADDRESS (SET R4= PSATOLD) */ 02641000 */* D (YES,,NO,%EXIT) RUNNING UNDER A TCB (TCBPTR NOT 0) */ 02642000 */* COMMENT (12,1) CANNOT HAVE */ 02643000 */* COMMENT (13,1) CPU TMR POP */ 02644000 */* COMMENT (14,1) IF SRB MODE */ 02645000 */* D (YES,,NO,%EXIT) ANY TASK TYPE TQE? (TCBTME ^=0) */ 02646000 */* P SET TQEPTR= TQE ADDR (SET R1= TCBTME) */ 02647000 */* P RECORD TQE POINTER (SET TFRRTQEP= TQEPTR) */ 02648000 */* L SETLOCK: OBTAIN, TYPE=SALLOC, MODE=UNCOND */ 02649000 */* L SETLOCK: OBTAIN, TYPE=DISP, MODE=UNCOND */ 02650000 */* P INDICATE INTERVAL COMPLETE (SET TQEINCOM= 1) */ 02651000 */* P SET RETURN ADDRESS IN R2 TO DEQRET1 FOR TQE DEQEUEUE RTN */ 02652000 */* S DEQTQE: DEQEUE THE TASK TYPE TQE */ 02653000 */*DEQRET1: S AECTLRTN: SCHEDULE AN SRB FOR THIS INTERVAL */ 02654000 */* L SETLOCK RELEASE, TYPE=SALLOC */ 02655000 */* L (,%EXIT) SETLOCK: RELEASE, TYPE=DISP */ 02656000 */*%CC: D (YES,,NO,%SC) CLK CMP INTERRUPT? (LOC 135= X'04') */ 02657000 */* P LEAVE CLOCK COMPARATOR INTERRUPT FOOTPRINT (SET TFRRCLKC= 1) */ 02658000 */* L SETLOCK: OBTAIN, TYPE=DISP, MODE=UNCOND */ 02659000 */* D (YES,,NO,%NOTT) IS CPU TIMING A TQE (PCCATQEP NOT ZERO) */ 02660000 */* P SET TQEPTR= ADDR TOP TQE ON REAL TIME QUEUE (R1= TPCHDCCQ) */ 02661000 */* P RECORD TQE POINTER (SET TFRRTQEP= TQEPTR) */ 02662000 */* P INDICATE CPU NO LONGER TIMING A TQE (SET PCCATQEP= 0) */ 02663000 */* P INDICATE INTERVAL COMPLETE (SET TQEINCOM= 1) */ 02664000 */* P SET RETURN ADDRESS IN R2 TO PROCTQE1 FOR PROCESS TQE SUBRTN */ 02665000 */* S (,PROCTQE1) PROCTQE: PROCESS THE REAL TIME TQE */ 02666000 */*%NOTT: D (YES,,NO,%BC) IS CLK COMPARATOR NON-USEABLE? 0880 02667000 */*(PCCANUCC =1) */ 02668000 */* P DISABLE CLOCK COMP INTERRUPTS (SET BIT 20=0 IN CR 0) */ 02669000 */* COMMENT (12,1) DISABLE CC TO */ 02670000 */* COMMENT (13,1) PREVENT EXTRAN- */ 02671000 */* COMMENT (14,1) EOUS INTERRUPTS. */ 02672000 */*%BC: P SET RETURN ADDRESS IN R2 TO CCRET1 (=PROCTQE1) FOR SETCC */ 02673000 */* S SETCC: RESET CPU'S CLOCK COMPARATOR */ 02674000 */*PROCTQE1: L (,%EXIT) SETLOCK: RELEASE, TYPE=DISP */ 02675000 */*%SC: D (YES,,NO,%EXIT) SYNC CHECK? (LOC 135= X'03') */ 02676000 */* P LEAVE SYNCH CHECK FOOTPRINT (SET TFRRSYNCH =1) */ 02677000 */* P INDICATE THAT A SYNC CHECK HAS OCCURRED (SET TPCSYNCH =1) */ 02678000 */* P DISABLE FURTHER SYNCH CHECKS (SET BIT 19 =0 IN CR0) */ 02679000 */*%EXIT: P RESTORE RETURN ADDRESS IN R2 FROM CPU SAVE AREA */ 02680000 */* P SET R14=R2 */ 02681000 */* L SETFRR: DELETE T.S. FRR FROM STACK */ 02682000 */* R RETURN VIA R14 */ 02683000 */* E PROCTQE */ 02684000 */* COMMENT (1,2) INPUT- R1=TQE ADDRESS */ 02685000 */* COMMENT (2,2) R2=RETURN ADDR */ 02686000 */* COMMENT (3,2) DISP LOCK HELD */ 02687000 */* COMMENT (4,2) SUPV STATE+KEY 0 */ 02688000 */* COMMENT (12,3) DESTROYS R13 AND R15 */ 02689000 */* P SAVE REGS 14 THRU 12 IN CPU SAVE AREA (TIMESAVE) */ 02690000 */* P SET RETURN ADDRESS IN R2 TO DEQRET2 FOR TQE DEQUEUE ROUTINE */ 02691000 */* S DEQTQE: DEQUEUE THE INPUT TQE */ 02692000 */*DEQRET2: D (YES,,NO,%ST) IS IT A USER TQE? (TQEUSER=1) */ 02693000 */* COMMENT (10,1) SYS TQES */ 02694000 */* COMMENT (11,1) ARE DUMMY, */ 02695000 */* COMMENT (12,1) JST,SRM,MF/1, */ 02696000 */* COMMENT (13,1) OR CHN RECON. */ 02697000 */* D (YES,,NO,%UT) IS IT A DIE TQE? (TQEDIE=1) */ 02698000 */* D (YES,%DC,NO,) IS THE INTERVAL COMPLETE? (TQEINCOM =1) */ 02699000 */* P SET RETURN ADDRESS IN R2 TO ENQRET1 FOR TQE ENQEUE ROUTINE */ 02700000 */* S (,ENQRET1) ENQTQE: PUT DIE TQE BACK ON REAL TIME QUEUE */ 02701000 */*%DC: L SETLOCK: RELEASE, TYPE=DISP, DISABLED */ 02702000 */* P INDICATE DISP LOCK RELEASED (SET TFRRDISP= 0) */ 02703000 */* P SET R7= LCCA ADDR (VIA PSALCCAV) AND R8= ASCB ADDR (VIA PSAAOLD) 02704000 */* */ 02705000 */* D (NO,,YES,%NJST) IS ASCB THE WAIT ASCB? (R8= IEAWASCB) */ 02706000 */* L DSJSTCSR: CALCULATE JST FOR INTERRUPTED MEMORY */ 02707000 */*%NJST: P INDICATE DIE ROUTINE EXECUTION (SET TFRRDIER=1) */ 02708000 */* P SET REGS 2 THRU 12 FROM TQEDREGS FOR INPUT TO DIE */ 02709000 */* P SET R15= ENTRY POINT TO DIE (SET R15= TQEEXIT) */ 02710000 */* L DIE ROUTINE: BALR 14,15 TO ENTER USER'S DIE */ 02711000 */* P SET R13 TO ADDRESS OF CPU SAVE AREA (TIMESAVE) */ 02712000 */* P RESTORE REGS 14 THRU 12 FROM CPU SAVE AREA (TIMESAVE) */ 02713000 */* P REMOVE DIE FOOTPRINT (SET TFRRDIER =0) */ 02714000 */* S (,ENQRET1) JSTRSM: RESUME JOB STEP TIMING FOR MEMORY */ 02715000 */*%UT: S AECTLRTN: SCHEDULE TIMER SUPV SRB TO PROCESS EXIT */ 02716000 */*ENQRET1: P RESTORE REGS 14 THRU 12 FROM CPU SAVE AREA (TIMESAVE) */ 02717000 */* R RETURN VIA R2 */ 02718000 */*%ST: D (YES,%CT,NO,) CINTER TQE? (TQECRH =1) */ 02719000 */* D (YES,%SRM,NO,) SRM TQE? (TQEOPT = 1) */ 02720000 */* D (YES,%MF,NO,) MF/1 TQE? (TQEMF1 =1) */ 02721000 */* D (YES,%JST,NO,) JST TQE? (TQEELM =1) */ 02722000 */* D (YES,%MD,NO,) MIDNIGHT TQE? (TQEMIDN =1) */ 02723000 */*%SEXT: P SET RETURN ADDRESS IN R2 TO ENQRET1 FOR TQE ENQUEUE */ 02724000 */* P RESTORE TQEPTR (RESTORE R1 TO TQE POINTER VIA CPU SAVE AREA) */ 02725000 */* S (,ENQRET1) ENQTQE: PUT TQE BACK ON REAL TIME QUEUE */ 02726000 */*%MD: D (YES,,NO,%SEXT) INTV COMPLETE? (TQEINCOM =1) */ 02727000 */*%LP1: P GET FIRST/NEXT PCCA VIA PCCAVT */ 02728000 */* D (YES,,NO,%CCU) TODC USABLE (PCCANUTD =0) */ 02729000 */* P CLEAR TOD CLOCK ERROR COUNT IN PCCATODE */ 02730000 */*%CCU: D (YES,,NO,%CTU) CLOCK COMPARATOR USABLE? (PCCANUCC =)) */ 02731000 */* P CLEAR CLOCK COMPARATOR ERROR COUNT IN PCCACCE */ 02732000 */*%CTU: D (YES,,NO,%LPT) CPU TIMER USABLE? (PCCANUIN =0) */ 02733000 */* P CLEAR CPU TIMER ERROR COUNT IN PCCAINTE */ 02734000 */*%LPT: D (YES,%LP1,NO,) ANYMORE PCCAS? (LOOP COUNT LESS THN 16) */ 02735000 */*UPDATE: D (YES,,NO,%NY) NEW YR? (DAY=365 OR LEAP YEAR AND DAY=366)*/ 02736000 */* P (,%SK1) IN CVTDATE SET DAY=001 AND YEAR= YEAR +1) */ 02737000 */*%NY: P IN CVTDATE SET DAY= DAY+1 */ 02738000 */*%SK1: P (,%SEXT) SET MNIGHT= MNIGHT + 24 HOURS */ 02739000 */* COMMENT (12,1) 24 HOURS IN US */ 02740000 */* COMMENT (13,1) IS 86.4 TIMES */ 02741000 */* COMMENT (14,1) 10 TO THE 9TH */ 02742000 */*%JST: D (YES,,NO,%SEXT) INTV COMPLETE? (TQEINCOM =1) */ 02743000 */* L SETLOCK: RELEASE, TYPE=DISP, DISABLED */ 02744000 */* COMMENT (12,1) RELEASE DISP */ 02745000 */* COMMENT (13,1) LOCK SO CAN */ 02746000 */* COMMENT (14,1) GET SALLOC. */ 02747000 */* L SETLOCK: OBTAIN, TYPE=SALLOC, MODE=UNCOND */ 02748000 */* COMMENT (12,1) NEED SALLOC */ 02749000 */* COMMENT (13,1) FOR POSSIBLE */ 02750000 */* COMMENT (14,1) GETMAIN. */ 02751000 */* L SETLOCK: OBTAIN, TYPE=DISP, MODE=UNCOND */ 02752000 */* P INDICATE SALLOC LOCK GOTTEN (SET TFFRSALL =1) */ 02753000 */* P SET SLOTCNT TO MAX NUMBER OF ASCBS (SET SLOTCNT= ASVTMAXU) */ 02754000 */*%JSTE: D (YES,%MJST,NO,) ANYMORE ASCBS? (SLOTCNT =0) */ 02755000 */* L SETLOCK: RELEASE, TYPE=SALLOC, DISABLED */ 02756000 */* P INDICATE SALLOC LOCK RELEASED (SET TFRRSALL =0) */ 02757000 */* P (,%SEXT) SET TQEVAL FOR NEXT JST POP (ADD KJSTINTV TO TQEVAL) */ 02758000 */*%MJST: P GET FIRST/NEXT ASCB FROM ENTRY (VIA SLOTCNT) IN ASVT */ 02759000 */* D (YES,%JST1,NO,) ANY ASCB FOR THIS SLOT? (ENTRY ^=0) */ 02760000 */*%JST2: P (,%JSTE) SET SLOTCNT= SLOTCNT -1) */ 02761000 */*%JST1: D (YES,,NO,%JST2) SHOULD MEMORY BE CHECKED? (ASCBTOFF =0) */ 02762000 */* P INITIALIZE VIOL TO X'00' */ 02763000 */* D (YES,%RD,NO,) IS MEM RESTORED AND READY? (ASCBTMNO =0) */ 02764000 */* D (NO,%LW,YES,) IS MEM IN LNG WAIT (ASCBTMLW=1)+ ASCBWAIT =1) */ 02765000 */* P SET TPCWORK= CURRENT TIME (TQEVAL) - WAIT LIMIT (ASCBSWTL) */ 02766000 */* D (YES,,NO,%LW) OVER WAIT LIMIT? (TPCWORK > ASCBEWST) */ 02767000 */* P (,%LW) INDICAT WAIT LIMIT VIOLATION (SET VIOL = X'9F') */ 02768000 */*%RD: D (YES,%AT,NO,) ANY ACTIVE TCBS (ASCBTCBS ^= 0) */ 02769000 */* P SET TPCWORK= CURRENT TIME (TQEVAL) - WAIT LIMIT (ASCBSWTL) */ 02770000 */* D (YES,,NO,%LW) OVER WAIT LIMIT? (TPCWORK > ASCBEWST) */ 02771000 */* P (,%LW) INDICATE WAIT LIMIT VIOLATION (SET VIOL = X'9F') */ 02772000 */*%AT: D (YES,,NO,%LW) OVER JST LIMIT? (ASCBEJST > ASCBJSTL) */ 02773000 */* P INDICATE JOB STOP TIME VIOLATION (SET VIOL = X'8F') */ 02774000 */*%LW: D (YES,,NO,%JST2) ANY VIOLATION? (VIOL NOT ZERO) */ 02775000 */* P TURN OFF JST CHECKING FOR THIS MEMORY (SET ASCBTOFF =1) */ 02776000 */* P SET R0= 128 (SIZE) AND R3= 245 (SUBPOOL) FOR GETMAIN */ 02777000 */* L GETMAIN: RU,LV=(0), SP=(3),BRANCH =(YES,GLOBAL) */ 02778000 */* COMMENT (12,5) GETMAIN IS */ 02779000 */* COMMENT (13,5) FOR A TQE */ 02780000 */* P 1. TQEAID=ASID (FROM ASCBASID) 2. TQEASCB = ADDRESS OF ASCB 3. TQ 02781000 */*ESADDR = 0 */ 02782000 */* COMMENT (1,5) NOW BUILD A */ 02783000 */* COMMENT (2,5) PARTIAL TQE */ 02784000 */* P 4. TQEEXIT= PTR TO IEATLEXT RTN 5. TQETCB= ZERO 6.TQELHPSW=070C 7 02785000 */* TQEFLGS=VIOL */ 02786000 */* P SET R1= ADDRESS OF NEW TQE */ 02787000 */* S (,%JST2) AECTLRTN: SCHEDULE AN SRB */ 02788000 */*%MF: D (YES,%FD,NO,) INTV COMPLETE? (TQEINCOM =1) */ 02789000 */* P SET RETURN ADDRESS IN R2 TO ENQRETM (=ENQRET1) FOR TQE ENQ RTN */ 02790000 */* S (,ENQRET1) ENQTQE:PUT MF/1 TQE BACK ON REAL TIME QUEUE */ 02791000 */*%FD: L SETLOCK: RELEASE, TYPE=DISP, DISABLED */ 02792000 */* P INDICATE DISP LOCK RELEASED (SET TFRRDISP =0) */ 02793000 */* P SET R7=LCCA ADDR (VIA PSALCCAV) AND R8=ASCB ADDR (VIA PSAAOLD) */ 02794000 */* D (YES,%MWT,NO,) IS ASCB THE WAIT ASCB (R8= IEAWASCB) */ 02795000 */* L DSJSTCSR: CALCULATE JST FOR INTERRUPTED MEMORY */ 02796000 */*%MWT: P SET R13 TO ADDRESS OF CPU SAVE AREA (TIMESAVE) */ 02797000 */* P RESTORE REGS 14 THRU 12 FROM THE CPU SAVE AREA (TIMESAVE) */ 02798000 */* L MFROUTER: NOTIFY MF/1 OF TIMER POP */ 02799000 */* P RESTORE REGS 14 THRU 12 FROM THE CPU SAVE AREA (TIMESAVE) */ 02800000 */* P SET R13= ADDRESS OF CPU SAVE AREA (TIMESAVE) */ 02801000 */* S (,ENQRET1) JSTRSM: RESUME JOB STEP TIMING FOR MEMORY */ 02802000 */*%SRM: D (YES,%XD,NO,) INTV COMPLETE? (TQEINCOM =1) */ 02803000 */* P SET RETURN ADDRESS IN R2 TO ENQRETO (=ENQRET1) FOR TQE ENQ RTN */ 02804000 */* S (,ENQRET1) ENQTQE: PUT SRM TQE BACK ON REAL TIME QUEUE */ 02805000 */*%XD: L SETLOCK: RELEASE, TYPE=DISP, DISABLED */ 02806000 */* P INDICATE DISP LOCK RELEASED (SET TFRRDISP =0) */ 02807000 */* P SET R7=LCCA ADDR (VIA PSALCCAV) AND R8=ASCB ADDR (VIA PSAAOLD) */ 02808000 */* D (YES,%XWT,NO,) IS ASCB THE WAIT ASCB? (R8= IEAWASCB) */ 02809000 */* L DSJSTCSR: CALCULATE JST FOR INTERRUPTED MEMORY */ 02810000 */*%XWT: P SET R13 TO ADDRESS OF CPU SAVE AREA (TIMESAVE) */ 02811000 */* P RESTORE REGS 14 THRU 12 FROM CPU SAVE AREA (TIMESAVE) */ 02812000 */* L SYSEVENT: TIMEREXP, ENTRY=BRANCH */ 02813000 */* S (,ENQRET1) JSTRSM: RESUME JOB STEP TIMING FOR MEMORY */ 02814000 */*%CT: D (YES,%CD,NO,) INTV COMPLETE? (TQEINCOM=1) */ 02815000 */* P SET RETURN ADDRESS IN R2 TO ENQRETC (=ENQRET1) FOR TQE DEQ RTN */ 02816000 */* S (,ENQRET1) ENQTQE: PUT CHN RECUNF. TQE BACK ON REAL TIME QUE */ 02817000 */*%CD: L SETLOCK: RELEASE, TYPE=DISP, DISABLED */ 02818000 */* P INDICATE DISP LOCK RELEASED (SET TFRRDISP =0) */ 02819000 */* S (,ENQRET1) CINTER: NOTIFY CINTER OF TIMER POP */ 02820000 */* E AECTLRTN */ 02821000 */* COMMENT (1,2) INPUT- R1=TQE ADDRESS */ 02822000 */* COMMENT (2,2) R14=RETURN ADDR */ 02823000 */* COMMENT (3,2) DISP LOCK HELD */ 02824000 */* COMMENT (4,2) SALLOC LK IF TASK TQE */ 02825000 */* COMMENT (12,3) DESTROYS REGISTER 13 */ 02826000 */* P SAVE REGISTERS 0 THRU 15 IN TPCSAVE1 */ 02827000 */* P SET SRBPTR TO SRB ADDRESS (SET R10= TQESRB ADDRESS) */ 02828000 */* D (YES,,NO,%RL) IS TQE TASK TYPE? (TQETYPE =00) */ 02829000 */* P SET R0=44 (SRB SIZE) AND R3=245 (SUBPOOL) FOR GETMAIN */ 02830000 */* L GETMAIN: RU,LV=(0), SP=(3),BRANCH =(YES,GLOBAL) */ 02831000 */* P SET SRBPTR= ADDRESS OF NEW STORAGE (SET R10=R1) */ 02832000 */*%RL: P RESET TQEPTR (SET R1 FROM TPCSAVE1) */ 02833000 */* P SRBASCB=ASCB AD (VIA TQEASCB) SRBPKF=PROTECT KEY (=X'00') */ 02834000 */* COMMENT (2,1) NOW INITIALIZE THE SRB */ 02835000 */* P SRBEP= SRB RTN EP (IEAVRSAE) SRBRMTR=PURGE RTN (IEAVRSPG) SRBPARM 02836000 */*=TQEPTR */ 02837000 */* D (YES,%TT,NO,) IS TQE TASK TYPE? (TQETYPE =00) */ 02838000 */* P INDICATE SRB IS EMBEDDED IN TQE (SET SIGN OF SRBPARM TO -) */ 02839000 */*%TT: P SRBPRIOR=0000 SRBASID=ASID (VIA TQEAID) SRBPTCB=TCB AD (VIA T 02840000 */*QETCB) */ 02841000 */* P SRBSAVE=ZERO SRBCPAF=0000 (NO CPU AFFIN) */ 02842000 */* L SCHEDULE: SRB=(SRBPTR), SCOPE=LOCAL */ 02843000 */* P RESTORE REGISTERS 0 THRU 15 FROM TPCSAVE1 */ 02844000 */* R RETURN TO CALLER VIA R14 */ 02845000 */* E JSTRSM */ 02846000 */* COMMENT (1,3) INPUT- R13=SAVE AREA */ 02847000 */* COMMENT (2,15) ADRESS */ 02848000 */* COMMENT (3,10) R14=RETURN ADDR */ 02849000 */* P SAVE REGISTERS 14 THRU 12 IN SAVE AREA PROVIDED VIA R13 */ 02850000 */* D (YES,%RSMX,NO,) CURRENT ASCB=WAIT ASCB? =IEAWASCB */ 02851000 */* D (YES,,NO,%RSMX) IS TOD CLOCK O.K. (PCCANUTD =0) */ 02852000 */* P STCK INTO LCCADTOD (TIME OF DISPATCH) */ 02853000 */* D (YES,%RSMX,NO,) WAS SRB INTERRUPTED? (LCCASRBM =1) */ 02854000 */* P SET LCCAITOD= LCCADTOD */ 02855000 */*%RSMX: P RESTORE REGISTERS 14 THRU 12 FROM USER SAVE AREA VIA R13 */ 02856000 */* R RETURN TO CALLER VIA R14 */ 02857000 */* E ENQTQE (ENTRY POINT IEAQTE00) */ 02858000 */* COMMENT (1,2) INPUT- R1=TQE ADDRESS */ 02859000 */* COMMENT (2,2) R2=RETURN ADDR */ 02860000 */* COMMENT (3,2) DISP LOCK HELD */ 02861000 */* COMMENT (4,2) SUPV STATE+KEY 0 */ 02862000 */* COMMENT (12,3) DESTROYS R13 AND R15 */ 02863000 */* P SAVE REGISTERS 0 THROUGH 15 IN TPCSAVE1 */ 02864000 */* D (YES,,NO,%EQEX) IS THE TQE OFF THE QUEUE? (TQEOFF =1) */ 02865000 */* L SETFRR: ADD TIMER SUPV FRR TO STACK */ 02866000 */* P PUT ENQTQE ID INTO FRR PARM LIST (SET TFFRID= 01400040) */ 02867000 */* D (YES,,NO,%RTQE) IS TQE TASK TYPE? (TQETYPE =00) */ 02868000 */* P HANG TQE OFF TCB (SET TCBTME= TQE ADDRESS) */ 02869000 */* P CLEAR TQEFLNK AND TQEBLNK */ 02870000 */* P INDICATE TQE IS ON TIMER QUEUE (SET TQEOFF =0) */ 02871000 */* D (YES,,NO,%NGIN) IS CPU TIMER USABLE? (PCCANUIN =0) */ 02872000 */* P SET CPU TIMER FROM TQEVAL IN THE TQE */ 02873000 */*%NGIN: D (YES,,NO,CCRET2) IS TOD CLK USABLE? (PCCANUTD =0) */ 02874000 */* P (,CCRET2) STCK INTO LCCASTOD */ 02875000 */*%RTQE: D (YES,,NO,%STQE) USER TQE? (TQEUSER =1) */ 02876000 */* D (NO,,YES,%STQE) DIE TQE? (TQEDIE=1) */ 02877000 */* P HANG TQE OFF TCB (SET TCBTME = TQE ADDRESS) */ 02878000 */* P INDICATE USER REAL/WAIT TQE (SET TCBTQET =1) */ 02879000 */*%STQE: P SET CUR= ADDRESS OF FIRST TQE ON RTQ (VIA TPCHDCCQ) */ 02880000 */* COMMENT (1,2) NOW SEARCH THE REAL TIME */ 02881000 */* COMMENT (2,2) QUEUE FOR POSITION TO */ 02882000 */* COMMENT (3,2) ENQUEUE THE NEW TQE. */ 02883000 */*%L: D (YES,%F,NO,) INPUT TQEVAL LESS OR EQ TO TQE- VAL VIA CUR */ 02884000 */* P (,%L) SET CUR TO ADDRESS OF NEXT TQE ON RTQ (VIA TQEFLNK) */ 02885000 */*%F: P INDICATE INPUT TQE IS ON TIMER QUEUE (SET TQEOFF=0) */ 02886000 */* P ENQUEUE INPUT TQE ONTO RTQ JUST BEFORE THE TQE VIA CUR */ 02887000 */* P INDICATE TQE IS NOT BEING TIMED (SET TQECOMP =0) */ 02888000 */* D (YES,,NO,CCRET2) IS TQE TOP OF RTQ? (TPCHDCC0 =TQEPTR) */ 02889000 */* D (YES,,NO,CCRET2) GOOD CLK COMP IN SYSTEM? (CSDGDCC ^=0) */ 02890000 */* S SETCC: RESET CPU'S CLK COMP FOR NEW TOP TQE */ 02891000 */*CCRET2: P INDICATE INTERVAL NOT COMPLETE (SET TQEINCOM =0) */ 02892000 */* L SETFRR: REMOVE FRR FROM STACK */ 02893000 */*%EQEX: P RESTORE REGISTERS 0 THRU 15 FROM TPCSAVE1 */ 02894000 */* R RETURN TO CALLER VIA R2 */ 02895000 */* E DEQTQE (ENTRY POINT IEAQTD00) */ 02896000 */* COMMENT (1,2) INPUT= R1=TQE ADDRESS */ 02897000 */* COMMENT (2,2) R2=RETURN ADDR */ 02898000 */* COMMENT (3,2) DISP LOCK HELD */ 02899000 */* COMMENT (4,2) SUPV STATE+KEY 0 */ 02900000 */* COMMENT (12,3) DESTROYS R3 AND R15 */ 02901000 */* P SAVE REGISTERS 0 THROUGH 15 IN TPCSAVE1 */ 02902000 */* D (YES,,NO,%DQQ) IS THE TQE ON THE QUEUE (TQEOFF =0) */ 02903000 */* L SETFRR: ADD TIMER SUPV FRR TO STACK */ 02904000 */* P PUT DEQTQE ID INTO FRR PARM LIST (SET TFRRID = 01400020) */ 02905000 */* D (YES,,NO,%DRT) IS TQE TASK TYPE? (TQETYPE =00) */ 02906000 */* P SET TCBPTR= TCB ADDRESS (SET R13 = TQETCB) */ 02907000 */* P SET TCBTME=0 */ 02908000 */* P INDICATE TQE OFF TIMER QUEUE (SET TQEOFF =1) */ 02909000 */* D (YES,,NO,CCRET3) IS CPU TIMER USABLE? (PCCANUIN =0) */ 02910000 */* P (,CCRET3) SET CPU TIMER WITH 7FF... (HIGH VALUE) */ 02911000 */*%DRT: P DEQUEUE TQE FROM THE REAL TIME QUEUE */ 02912000 */* P INDICATE TQE IS OFF THE QUEUE (SET TQEOFF =1) */ 02913000 */* D (YES,,NO,CCRET3) WAS TQE BEING TIME (TQECOMP =1) */ 02914000 */* P INDICATE TQE NOT BEING TIMED (SET TQECOMP =0) */ 02915000 */* P SET SLOTCNT = 1 */ 02916000 */*%LTST: D (YES,,NO,%CQ) SLOTCNT LESS THAN OR EQUAL TO CVTMAXMP +1? */ 02917000 */* P GET PCCA FROM PCCA VECTOR TABLE (GET ENTRY VIA SLOTCNT) */ 02918000 */* D (YES,,NO,%BMP) IS CPU TIMING THE TQE (PCCATQEP =TQEPTR) */ 02919000 */* P INDICATE TO CPU THAT TQE IS DEQUEUED (SET PCCATQEP =0) */ 02920000 */*%BMP: P (,%LTST) SET SLOTCNT = SLOTCNT+1 */ 02921000 */*%CQ: D (YES,,NO,CCRET3) ANY USABLE CLK COMP IN SYS? (CSDGDCC ^=0) */ 02922000 */* P SET RETURN ADDRESS IN R2 TO CCRET3 FOR ENTRY TO SETCC RTN */ 02923000 */* S SETCC: RESET THE CLK COMPARATOR ON THIS CPU */ 02924000 */*CCRET3: L SETFRR: REMOVE FRR FROM STACK */ 02925000 */*%DQQ: P RESTORE REGISTERS 0 THROUGH 15 FROM TPCSAVE1 */ 02926000 */* R RETURN TO CALLER VIA R2 */ 02927000 */* E RQCHECK (ENTRY POINT IEAVRQCK) */ 02928000 */* COMMENT (1,2) INPUT- R14=RETURN ADDR */ 02929000 */* COMMENT (2,2) SUPV STATE */ 02930000 */* COMMENT (3,2) PROTECT KEY 0 */ 02931000 */* COMMENT (12,1) ALL REGS BUT R14 DESTROYED */ 02932000 */*RQCHECK: P SAVE R14 (RETURN ADDRESS) IN R10 */ 02933000 */* L SETLOCK: OBTAIN, TYPE=DISP, MODE=UNCOND */ 02934000 */* L SETFRR: ADD TIMER SUPV. FRR TO STACK */ 02935000 */* P INDICATE DISP LOCK OBTAINED (SET TFRRDISP =1) */ 02936000 */* P PUT RQCHECK ID INTO TFRRID (SET TFRRID= 01400004) */ 02937000 */* P SET RETURN ADDRESS IN R2 TO CCRET4 FOR ENTRY TO SETCC */ 02938000 */* S SETCC: MAKE SURE TOP TQE IS BEING TIMED */ 02939000 */*CCRET4: L SETFRR: REMOVE FRR FROM STACK */ 02940000 */* L SETLOCK: RELEASE, TYPE=DISP */ 02941000 */* P RESTORE R14 FROM R10 */ 02942000 */* R RETURN TO CALLER VIA R14 */ 02943000 */* E SETCC (ENTRY POINT IEAVRCKQ) */ 02944000 */* COMMENT (1,2) INPUT= R2=RETURN ADDRESS */ 02945000 */* COMMENT (2,2) SUPV STATE+KEY 0 */ 02946000 */* COMMENT (3,2) DISP LOCK HELD */ 02947000 */* COMMENT (12,2) REGS 13 AND 15 DESTROYED */ 02948000 */*SETCC: P SET R13 TO ADDRESS OF THE TPC (VIA CVTTPC) */ 02949000 */* D (YES,%CCX,NO,) REAL TIME QUEUE ABENDED? (TPCABND =1) */ 02950000 */* P SAVE REGISTERS 0 THRU 15 IN TPCSAVE2 */ 02951000 */*SETCCEXT: P SET FRRPTR TO FRR ADDRESS (SET R11 = ADDR OF IEAVRFRR)*/ 02952000 */* L SETFRR: ADD TIMER SUPERVISION FRR TO STACK */ 02953000 */* P SET TFRRID TO SETCC ID (=01400010) */ 02954000 */* P SET POINTER TOPTQE TO FIRST TQE ON RTQ (SET R11 = TPCHDCCQ) */ 02955000 */* D (YES,,NO,%CCB) IS CLK COMP USABLE (PCCANUCC =0) */ 02956000 */* D (YES,,NO,%TM) IS TOP TQE BEING TIMED? (TQECOMP =1) */ 02957000 */* D (YES,%CCX2,NO,) IS CPU TIMING A TQE? (PCCATQEP ^=0) */ 02958000 */*%TM: D (YES,,NO,%ENB) IS CPU TIMING A TQE? (PCCATQEP ^=0) */ 02959000 */* P INDICATE TQE (VIA PCCATQEP) NO LONGER BEING TIMED (SET TQECOMP=0) 02960000 */* */ 02961000 */*%ENB: P ENABLE CLOCK COMPARATOR INTERRUPTS (SET BIT 20 =1 IN CR0) */ 02962000 */* COMMENT (13,1) USE TPCWORK AS WORKAREA */ 02963000 */* P SET CLOCK COMPARATOR TO TQEVAL OF TOP TQE */ 02964000 */* P INDICATE TOP TQE IS BEING TIMED (SET TQECOMP =1) */ 02965000 */* P RECORD WHAT TQE CPU IS TIMING (SET PCCATQEP = ADDR OF TOP TQE) */ 02966000 */*%CCX2: L SETFRR: REMOVE FRR FROM STACK */ 02967000 */* P RESTORE REGS 0 THROUGH 15 FROM TPCSAVE2 */ 02968000 */*%CCX: R RETURN TO CALLER VIA R2 */ 02969000 */*%CCB: D (YES,%CCX2,NO,) IS TOP TQE BEING TIMED? (TQECOMP =1) */ 02970000 */* D (YES,%CCS,NO,) ANY GOOD CLOCK COMPARATORS? (CSDGDCC ^=0) */ 02971000 */* P PREVENT RECURSION (SET TPCABND =1) */ 02972000 */*PROCRET2: D (YES,%CCX2,NO,) TQE VIA TOPTQE THE DUMMY? (TQEDUM =1) */ 02973000 */* P SET TQEPTR (R1) TO CURRENT TQE (=TOPTQE) */ 02974000 */* P SET TOPTQE TO NEXT TQE (VIA TQEFLNK) */ 02975000 */* P SET RETURN ADDRESS IN R2 TO PROCRET2 FOR ENTRY TO PROCTQE RTN */ 02976000 */* S (,PROCRET2) PROCTQE: DEQ TQE FROM RTQ AND SETUP TO ABEND 0880 02977000 */*OWNER */ 02978000 */*%CCS: P SET R15 NON ZERO */ 02979000 */* P SET SLOTCNT (R1) TO 16 */ 02980000 */*%CCP: D (YES,%CCX2,NO,) IS R15 ZERO? */ 02981000 */* P SET R1= PCCA ADDRESS (GET FROM PCCAT00P) ENTRY VIA SLOTCNT) */ 02982000 */* D (YES,%CCG,NO,) ANY PCCA FOR ENTRY? (R1 NOT ZERO) */ 02983000 */*%CCQ: P (,%CCP) SET SLOTCNT = SLOTCNT -1 */ 02984000 */*%CCG: D (YES,,NO,%CCQ) DOES CPU HAVE A GOOD CLK COMP (PCCANUCC =0)*/ 02985000 */* L (,%CCQ) RPSGNL: RQCHECK, CPU=(1) */ 02986000 */* COMMENT (12,3) R15=0 IF RPSGNL SUCCESS */ 02987000 */* E TIMER SUPERVISION SRB ROUTINE */ 02988000 */* COMMENT (1,1) INPUT= R0=SRB PTR, R1=TQE */ 02989000 */* COMMENT (2,1) PTR, R14=RET ADDR, R15=EP */ 02990000 */* COMMENT (3,1) SUPV STATE,KEY 0,UNLOCKED */ 02991000 */* COMMENT (12,1) ALL REGS BUT 14 DESTROYED */ 02992000 */*IEAVRSAE: P SET BASE REGISTER (R9) */ 02993000 */* P SAVE R14 (RETURN ADDRESS) IN R5 */ 02994000 */* L SETLOCK: OBTAIN, TYPE=LOCAL, MODE=UNCOND */ 02995000 */* P SET FRRPTR TO FRR ADDRESS (SET R11 = ADDR OF IEAVRFRR) */ 02996000 */* L SETFRR: ADD TIMER SUPERVISION FRR TO STACK */ 02997000 */* P INDICATE LOCAL LOCK GOTTEN (SET TFRRLOCL =1) */ 02998000 */* P SET TFRRID TO IEAVRSAE ID (SET TFRRID = 01400008) */ 02999000 */* P SET SRBPTR TO SRB ADDRESS (SET R10 =R0) */ 03000000 */* P SET R2 TO TQE ADDRESS (SET R2 =R1) */ 03001000 */* P SET R13 TO TCB ADDRESS (SET R13= TQETCB) */ 03002000 */* D (YES,,NO,%SR1) DOES TCBTME STILL POINT THE TQE? */ 03003000 */* P SET TCBTME=0 */ 03004000 */*%SR1: D (YES,%SR2,NO,) IS THE INTERVAL COMPLETE? (TQEINCOM =1) */ 03005000 */* P SET R4= ADDR OF TCB TO ABEND (SET R4 = TQETCB) */ 03006000 */* COMMENT (1,3) TQE MUST BE REAL TYPE */ 03007000 */* L CALLRTM: TYPE=ABTERM, COMPCOD= X'22F', TCB=(4) */ 03008000 */* COMMENT (2,5) ABEND TCB 22F */ 03009000 */* P (,%SRX) RESTORE R2 TO TQE ADDRESS (SET R2= SRBPARM) */ 03010000 */*%SR2: D (YES,,NO,%SR3) WAIT TYPE TQE? (TQETYPE =01) */ 03011000 */* P SAVE SRBPTR (SET R4 = R10) */ 03012000 */* P SET R10=0 (COMPLETION CODE) */ 03013000 */* P SET R11=ECB ADDRESS (SET R11= ADDR OF TQEECB) */ 03014000 */* L POST: BRANCH ENTER POST TO POST ECB */ 03015000 */* COMMENT (12,1) POST PRESERVES */ 03016000 */* COMMENT (13,2) R0-R9,AND R14 */ 03017000 */* P (,%SRX) RESTORE SRBPTR (R10) FROM R4 */ 03018000 */*%SR3: D (YES,%SR4,NO,) EXIT SPECIFIED? (TQEXITSP =1) */ 03019000 */* D (YES,,NO,%SRX) TASK TYPE TQE? (TQETYPE =00) */ 03020000 */* P SET R0=128 (TQE SIZE) - SET R3=253 (SUBPOOL NUMBER) */ 03021000 */* COMMENT (2,2) PREPARE TO FREE THE TQE */ 03022000 */* P SET R4=TCB ADDR (=TQETCB) - SET R7=ASCB ADDR (=TQEASCB) */ 03023000 */* L (,%SRX) FREEMAIN: RU,LV=(0), A=(1),SP=3, BRANCH=YES */ 03024000 */*%SR4: P INTIALIZE 'NO CANCEL' INDICATION (SET R11=0) */ 03025000 */* D (YES,,NO,%SR5) JST PROCESSING? (TQEEXIT = IEATLEXT ADDR) */ 03026000 */* P SET ASCBPTR= ASCB ADDR (SET R7= TQEASCB) */ 03027000 */* P SET TQETCB= INITIATORS TCB ADDR (=JSCBTCBP VIA TCBJSCB VIA ASXBLT 03028000 */*CB) */ 03029000 */* D (YES,,NO,%SR6) JS TCB EOT OCCUR? (ASCBCEXT =1) */ 03030000 */* P (,%SR6) INDICATE 'PROCESSING CHANCEL' (SET R11 NOT ZERO) */ 03031000 */*%SR5: P SET R0=72 (SAVE AREA SIZE) - SET R3=250 (SP NUMBER) */ 03032000 */* COMMENT (2,2) PREPARE TO GET SAVE AREA */ 03033000 */* P SET R4=TCB ADDR (VIA TQETCB) - SET R7=ASCB ADDR (VIA TQEASCB) */ 03034000 */* L GETMAIN: RU,LV=(0), SP=(3), BRANCH=YES */ 03035000 */* P SET TQESADDR=R1 (=PROBLEM PROGRAM SAVE AREA) */ 03036000 */*%SR6: D (YES,%SRX,NO,) CANCEL JST PROCESS (R11 NOT ZERO) */ 03037000 */* P SET R0=152 (BLK SIZE) - SET R3=253 (SUBPOOL LSQA) */ 03038000 */* COMMENT (2,2) PREPARE TO GET IRB/IQE */ 03039000 */* P SET R4=TCB ADDR (VIA TQETCB) - SET R7=ASCB ADDR (VIA TQEASCB) */ 03040000 */* L GETMAIN: RU,LV(0), SP=(3), BRANCH=YES */ 03041000 */* P RBPPSAV=SA PTR RBWCSA=ZERO RBSIZE=19 RBSTAB1=X'40' RBSTAB2=X'0E' 03042000 */* */ 03043000 */* COMMENT (2,5) NOW BUILD THE IRB */ 03044000 */* P RBEP=EXIT PTR PROPSW=TQELHPSW RBUSE=ZERO RBIQE=ZERO RBTMFLD=TQEFL 03045000 */*GS */ 03046000 */* P IQEPARM=TQE PTR IQEIRBA=IRB PTR IQETCB=TCB PTR */ 03047000 */* COMMENT (2,5) NOW BUILD THE IQE */ 03048000 */* P SET R1=TQE ADDRESS IN COMPLEMENT FORM */ 03049000 */* L EXIT EFFECTOR: SCHEDULE THE IRB VIA STAGE 2 */ 03050000 */* D (YES,,NO,%SRX) TASK TYPE TQE? (TQETYPE =00) */ 03051000 */* P SET R0=128 (TQE SIZE) - SET R3=253 (SUBPOOL NUMBER) */ 03052000 */* COMMENT (2,2) PREPARE TO FREE TQE */ 03053000 */* P SET R4=TCB ADDR (VIA TQETCB) - SET R7=ASCB ADDR (VIA TQEASCB) */ 03054000 */* L (,%SRX) FREEMAIN: RU,LV=(0), SP=(3), BRANCH=YES */ 03055000 */*%SRX: D (YES,,NO,%SR7) IS SRB PART OF TQE (SRBPARM SIGN =-) */ 03056000 */* P (,%SR8) SET R0=128 (TQE/SRB SIZE) - SET R1=TQE ADDRESS */ 03057000 */*%SR7: P SET R0=44 (SRB SIZE) - SET R1=SRB ADDRESS */ 03058000 */*%SR8: P SET R3=245 (SP NUM) - SET R4=0 - SET R7=ASCB ADDR (=SRBASCB) 03059000 */* */ 03060000 */* L FREEMAIN: RU,LV=(0), A=(1),SP=(3), BRANCH=YES */ 03061000 */* L SETFRR: REMOVE FRR FROM STACK */ 03062000 */* L SETLOCK: RELEASE, TYPE=LOCAL */ 03063000 */* P RESTORE RETURN ADDRESS TO R14 (SET R14=R5) */ 03064000 */* R RETURN TO CALLER VIA R14 */ 03065000 */*IEAVRTI0: END FL/1 FINISH */ 03066000 * 0880 03067000 * END IEA0TI00 /* END OF TIMER SLIH */ 03068000 * 0880 03069000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 03070000 */*%INCLUDE SYSLIB (IHAPSA ) */ 03071000 */*%INCLUDE SYSLIB (CVT ) */ 03072000 */*%INCLUDE SYSLIB (IHACSD ) */ 03073000 */*%INCLUDE SYSLIB (IHAPCCAT) */ 03074000 */*%INCLUDE SYSLIB (IHAPCCA ) */ 03075000 */*%INCLUDE SYSLIB (IHALCCAT) */ 03076000 */*%INCLUDE SYSLIB (IHALCCA ) */ 03077000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 03078000 */*%INCLUDE SYSLIB (IHAASVT ) */ 03079000 */*%INCLUDE SYSLIB (IHAASCB ) */ 03080000 */*%INCLUDE SYSLIB (IHAASXB ) */ 03081000 */*%INCLUDE SYSLIB (IKJTCB ) */ 03082000 */*%INCLUDE SYSLIB (IEZJSCB ) */ 03083000 */*%INCLUDE SYSLIB (IHARB ) */ 03084000 */*%INCLUDE SYSLIB (IKJRB ) */ 03085000 */*%INCLUDE SYSLIB (IHAIQE ) */ 03086000 */*%INCLUDE SYSLIB (IHASRB ) */ 03087000 */*%INCLUDE SYSLIB (IHASDWA ) */ 03088000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 03089000 */*%INCLUDE SYSLIB (IHATQE ) */ 03090000 */*%INCLUDE SYSLIB (IEAVVTPC) */ 03091000 * 0880 03092000 * ; 0880 03093000 B @EL00001 0880 03094000 @DATA DS 0H 03095000 @CH03298 DC H'1000' 03096000 @DATD DSECT 03097000 DS 0F 03098000 IEA0TI00 CSECT 03099000 DS 0F 03100000 @CF00067 DC F'1' 03101000 @CF03299 DC F'365' 03102000 @CF03363 DC F'-4' 03103000 @CF03289 DC XL4'070C0000' 03104000 @CF03361 DC XL4'0000FFFF' 03105000 @DATD DSECT 03106000 DS 0D 03107000 @ENDDATD EQU * 03108000 IEA0TI00 CSECT 03109000 NOPR ((@ENDDATD-@DATD)*16) 03110000 DS 0F 03111000 @SIZDATD DC AL1(0) 03112000 DC AL3(@ENDDATD-@DATD) 03113000 @CV03192 DC V(IEATLEXT) 03114000 @CV03193 DC V(DSJSTCSR) 03115000 @CV03194 DC V(IEAWASCB) 03116000 @CV03195 DC V(IEAVRSPG) 03117000 @CV03196 DC V(IEAVRFRR) 03118000 DS 0D 03119000 CRHSADDR DS A 03120000 KJSTINTV DC A(10) 03121000 DAYLH DC A(82397) 03122000 DAYRH DC A((16777215+1962934273)) 03123000 @CB03216 DC X'01400080' 03124000 @CB03218 DC X'01400040' 03125000 @CB03220 DC X'01400020' 03126000 @CB03222 DC X'01400010' 03127000 @CB03224 DC X'01400008' 03128000 @CB03226 DC X'01400004' 03129000 @CB03297 DC X'00000000' 03130000 @CB03066 EQU @CB03297 03131000 SQA DC X'F5' 03132000 PPSAVE DC X'FA000048' 03133000 DS CL7 03134000 HIGHCPUT DC X'7FFFFFFFFFFFFFFF' 03135000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 03136000 @01 EQU 01 03137000 @02 EQU 02 03138000 @03 EQU 03 03139000 @04 EQU 04 03140000 @05 EQU 05 03141000 @06 EQU 06 03142000 @07 EQU 07 03143000 @08 EQU 08 03144000 @09 EQU 09 03145000 @10 EQU 10 03146000 @11 EQU 11 03147000 @12 EQU 12 03148000 @13 EQU 13 03149000 @14 EQU 14 03150000 @15 EQU 15 03151000 ASCBPTR EQU @13 03152000 TCBPTR EQU @13 03153000 RBPTR EQU @01 03154000 SRBPTR EQU @10 03155000 SDWAPTR EQU @01 03156000 FRRSPTR EQU @13 03157000 FRREPTR EQU @14 03158000 TQEPTR EQU @01 03159000 TFRRPTR EQU @06 03160000 YYDDD EQU @00 03161000 BASEREG EQU @09 03162000 SLOTCNT EQU @11 03163000 TOPTQE EQU @11 03164000 FRRPTR EQU @11 03165000 CUR EQU @14 03166000 DAY EQU @14 03167000 PCCAPTR2 EQU @14 03168000 YEAR EQU @15 03169000 R0 EQU @00 03170000 R1 EQU @01 03171000 R2 EQU @02 03172000 R3 EQU @03 03173000 R4 EQU @04 03174000 R5 EQU @05 03175000 R7 EQU @07 03176000 R8 EQU @08 03177000 R10 EQU @10 03178000 R11 EQU @11 03179000 R12 EQU @12 03180000 R13 EQU @13 03181000 R14 EQU @14 03182000 R15 EQU @15 03183000 RONE EQU @01 03184000 R6 EQU @06 03185000 ENTRY CRHSADDR 03186000 PSA EQU 0 03187000 FLCRNPSW EQU PSA 03188000 FLCROPSW EQU PSA+8 03189000 FLCICCW2 EQU PSA+16 03190000 PSAEEPSW EQU PSA+132 03191000 PSAESPSW EQU PSA+136 03192000 FLCSVILC EQU PSAESPSW+1 03193000 PSAEPPSW EQU PSA+140 03194000 FLCPIILC EQU PSAEPPSW+1 03195000 FLCPICOD EQU PSAEPPSW+2 03196000 PSAPICOD EQU FLCPICOD+1 03197000 FLCTEA EQU PSAEPPSW+4 03198000 FLCPER EQU PSA+152 03199000 FLCMCLA EQU PSA+168 03200000 FLCIOEL EQU FLCMCLA+4 03201000 FLCIOA EQU FLCMCLA+16 03202000 FLCFSA EQU FLCMCLA+80 03203000 PSAPCCAV EQU PSA+520 03204000 PSALCCAV EQU PSA+528 03205000 PSATOLD EQU PSA+540 03206000 PSAAOLD EQU PSA+548 03207000 PSASUPER EQU PSA+552 03208000 PSASUP1 EQU PSASUPER 03209000 PSASUP2 EQU PSASUPER+1 03210000 PSASUP3 EQU PSASUPER+2 03211000 PSASUP4 EQU PSASUPER+3 03212000 PSACLHT EQU PSA+640 03213000 PSALKSA EQU PSA+696 03214000 PSAHLHI EQU PSA+760 03215000 PSALITA EQU PSA+764 03216000 PSADSSFL EQU PSA+836 03217000 PSADSSF1 EQU PSADSSFL 03218000 PSADSSF3 EQU PSADSSFL+2 03219000 PSADSSF4 EQU PSADSSFL+3 03220000 PSARSVT EQU PSA+896 03221000 PSALSFCC EQU PSA+1012 03222000 CVTPTR EQU 16 03223000 INTRUPT EQU 135 03224000 CVTMAP EQU 0 03225000 CVT EQU CVTMAP 03226000 CVT0EF00 EQU CVTMAP+4 03227000 CVTBTERM EQU CVTMAP+52 03228000 CVTDATE EQU CVTMAP+56 03229000 CVTDAR EQU CVTMAP+72 03230000 CVTFLGS1 EQU CVTDAR 03231000 CVTTPC EQU CVTMAP+88 03232000 CVTDCB EQU CVTMAP+116 03233000 CVTIERLC EQU CVTMAP+144 03234000 CVT0PT01 EQU CVTMAP+152 03235000 CVTOPTA EQU CVTMAP+182 03236000 CVTOPTB EQU CVTMAP+183 03237000 CVTGTF EQU CVTMAP+236 03238000 CVTGTFST EQU CVTGTF 03239000 CVTGTFS EQU CVTGTFST 03240000 CVTSTATE EQU CVTGTFST 03241000 CVTTMODE EQU CVTGTFST 03242000 CVTFORM EQU CVTGTFST 03243000 CVTAQAVT EQU CVTMAP+240 03244000 CVTTCMFG EQU CVTAQAVT 03245000 CVTVOLM2 EQU CVTMAP+244 03246000 CVTTATA EQU CVTVOLM2 03247000 CVTTSKS EQU CVTTATA 03248000 CVTVOLF2 EQU CVTTSKS 03249000 CVTTAT EQU CVTTATA+1 03250000 CVTATER EQU CVTMAP+248 03251000 CVTEXT1 EQU CVTMAP+252 03252000 CVTPURG EQU CVTMAP+260 03253000 CVTQMSG EQU CVTMAP+268 03254000 CVTDMSR EQU CVTMAP+272 03255000 CVTRSV37 EQU CVTDMSR 03256000 CVTDMSRF EQU CVTRSV37 03257000 CVTERPV EQU CVTMAP+316 03258000 CVTINTLA EQU CVTMAP+320 03259000 CVTAPF EQU CVTMAP+324 03260000 CVTEXT2 EQU CVTMAP+328 03261000 CVTHJES EQU CVTMAP+332 03262000 CVTPGSIA EQU CVTMAP+348 03263000 CVTA1F1 EQU CVTMAP+356 03264000 CVTSYSK EQU CVTMAP+357 03265000 CVTVOLM1 EQU CVTMAP+380 03266000 CVTVOLF1 EQU CVTVOLM1 03267000 CVTATMCT EQU CVTMAP+388 03268000 CVTXTNT1 EQU 0 03269000 CVTXTNT2 EQU 0 03270000 CVTDSSV EQU CVTXTNT2 03271000 CVTFLGBT EQU CVTXTNT2+5 03272000 CVTQID EQU CVTXTNT2+24 03273000 CVTRV400 EQU CVTXTNT2+52 03274000 CVTRV409 EQU CVTXTNT2+53 03275000 CVTATCVT EQU CVTXTNT2+64 03276000 CVTRV429 EQU CVTXTNT2+84 03277000 CVTRV438 EQU CVTXTNT2+85 03278000 CVTRV457 EQU CVTXTNT2+112 03279000 CVTRV466 EQU CVTXTNT2+113 03280000 CVTFIX EQU 0 03281000 CVTRELNO EQU CVTFIX+252 03282000 CSD EQU 0 03283000 CSDCPUAL EQU CSD+8 03284000 CSDSCWRD EQU CSD+12 03285000 CSDSCFL1 EQU CSDSCWRD 03286000 CSDSCFL2 EQU CSDSCWRD+1 03287000 CSDSCFL3 EQU CSDSCWRD+2 03288000 CSDSCFL4 EQU CSDSCWRD+3 03289000 CSDFLAGS EQU CSD+23 03290000 CSDGDCC EQU CSD+108 03291000 PCCAVT EQU 0 03292000 PCCAT00P EQU PCCAVT 03293000 PCCA EQU 0 03294000 PCCATQEP EQU PCCA+20 03295000 PCCATMST EQU PCCA+128 03296000 PCCATMFL EQU PCCATMST 03297000 PCCATODE EQU PCCATMST+1 03298000 PCCANUTD EQU PCCATODE 03299000 PCCACCE EQU PCCATMST+2 03300000 PCCANUCC EQU PCCACCE 03301000 PCCAINTE EQU PCCATMST+3 03302000 PCCANUIN EQU PCCAINTE 03303000 PCCAEMSB EQU PCCA+136 03304000 PCCAEMSI EQU PCCAEMSB 03305000 PCCARISP EQU PCCAEMSI 03306000 PCCAEMS2 EQU PCCAEMSI+1 03307000 PCCAEMS3 EQU PCCAEMSI+2 03308000 PCCARMSB EQU PCCAEMSI+3 03309000 PCCAWERP EQU PCCA+280 03310000 PCCACHPF EQU PCCAWERP+4 03311000 PCCACHBL EQU PCCAWERP+5 03312000 PCCACHVA EQU PCCAWERP+6 03313000 PCCACHTS EQU PCCAWERP+7 03314000 PCCACHS1 EQU PCCA+288 03315000 PCCACHS2 EQU PCCA+289 03316000 PCCACHRB EQU PCCA+290 03317000 PCCACHF1 EQU PCCA+308 03318000 PCCACHF2 EQU PCCA+309 03319000 PCCACHF3 EQU PCCA+310 03320000 PCCACHF4 EQU PCCA+311 03321000 LCCAVT EQU 0 03322000 LCCA EQU 0 03323000 LCCAIHRC EQU LCCA+520 03324000 LCCAIHR1 EQU LCCAIHRC 03325000 LCCAIHR2 EQU LCCAIHRC+1 03326000 LCCAIHR3 EQU LCCAIHRC+2 03327000 LCCAIHR4 EQU LCCAIHRC+3 03328000 LCCASPIN EQU LCCA+524 03329000 LCCASPN1 EQU LCCASPIN 03330000 LCCASPN2 EQU LCCASPIN+1 03331000 LCCASPN3 EQU LCCASPIN+2 03332000 LCCASPN4 EQU LCCASPIN+3 03333000 LCCACPUS EQU LCCA+536 03334000 LCCADSF1 EQU LCCA+540 03335000 LCCADSF2 EQU LCCA+541 03336000 LCCASRBM EQU LCCADSF2 03337000 LCCASPSA EQU LCCA+544 03338000 LCCASTOD EQU LCCA+592 03339000 LCCADTOD EQU LCCA+600 03340000 LCCAITOD EQU LCCA+608 03341000 LCCACRFL EQU LCCA+692 03342000 LCCACREX EQU LCCA+693 03343000 LCCALKFG EQU LCCA+694 03344000 LCCASRBF EQU LCCA+720 03345000 WSAG EQU 0 03346000 WSAGGMFM EQU WSAG+4 03347000 WSAC EQU 0 03348000 WSACTIME EQU WSAC+12 03349000 ASVT EQU 0 03350000 ASVTMAXU EQU ASVT+516 03351000 ASVTFRST EQU ASVT+524 03352000 ASVTENTY EQU ASVT+528 03353000 ASCB EQU 0 03354000 ASCBSUPC EQU ASCB+16 03355000 ASCBASID EQU ASCB+36 03356000 ASCBEJST EQU ASCB+64 03357000 ASCBEWST EQU ASCB+72 03358000 ASCBJSTL EQU ASCB+80 03359000 ASCBFW1 EQU ASCB+100 03360000 ASCBAFFN EQU ASCBFW1 03361000 ASCBRCTF EQU ASCBFW1+2 03362000 ASCBTMNO EQU ASCBRCTF 03363000 ASCBWAIT EQU ASCBRCTF 03364000 ASCBTMLW EQU ASCBRCTF 03365000 ASCBFLG1 EQU ASCBFW1+3 03366000 ASCBTOFF EQU ASCBFLG1 03367000 ASCBASXB EQU ASCB+108 03368000 ASCBDSP1 EQU ASCB+114 03369000 ASCBFLG2 EQU ASCB+115 03370000 ASCBCEXT EQU ASCBFLG2 03371000 ASCBTCBS EQU ASCB+124 03372000 ASCBLKGP EQU ASCB+128 03373000 ASCBSRQ EQU ASCB+180 03374000 ASCBSRQ1 EQU ASCBSRQ 03375000 ASCBSRQ2 EQU ASCBSRQ+1 03376000 ASCBSRQ3 EQU ASCBSRQ+2 03377000 ASCBSRQ4 EQU ASCBSRQ+3 03378000 ASCBSWTL EQU ASCB+196 03379000 ASXB EQU 0 03380000 ASXBLTCB EQU ASXB+8 03381000 ASXBAEQ EQU ASXB+168 03382000 ASXBSECR EQU ASXB+199 03383000 ASCBSFLG EQU ASXBSECR 03384000 ASXBCASW EQU ASXB+216 03385000 ASXBCRB1 EQU ASXBCASW 03386000 TCBFIX EQU 0 03387000 TCBFRS EQU TCBFIX 03388000 TCB EQU 0 03389000 TCBPIE EQU TCB+4 03390000 TCBPMASK EQU TCBPIE 03391000 TCBCMP EQU TCB+16 03392000 TCBCMPF EQU TCBCMP 03393000 TCBCPP EQU TCBCMPF 03394000 TCBSTCC EQU TCBCMPF 03395000 TCBCDBL EQU TCBCMPF 03396000 TCBCWTO EQU TCBCMPF 03397000 TCBCIND EQU TCBCMPF 03398000 TCBCMSG EQU TCBCMPF 03399000 TCBTRN EQU TCB+20 03400000 TCBABF EQU TCBTRN 03401000 TCBMSS EQU TCB+24 03402000 TCBPKF EQU TCB+28 03403000 TCBFLGS EQU TCB+29 03404000 TCBFLGS1 EQU TCBFLGS 03405000 TCBFLGS2 EQU TCBFLGS+1 03406000 TCBFLGS3 EQU TCBFLGS+2 03407000 TCBFLGS4 EQU TCBFLGS+3 03408000 TCBFLGS5 EQU TCBFLGS+4 03409000 TCBABWF EQU TCBFLGS5 03410000 TCBJPQ EQU TCB+44 03411000 TCBPURGE EQU TCBJPQ 03412000 TCBGRS EQU TCB+48 03413000 TCBFSA EQU TCB+112 03414000 TCBTME EQU TCB+120 03415000 TCBTQET EQU TCBTME 03416000 TCBJSTCB EQU TCB+124 03417000 TCBTSFLG EQU TCB+148 03418000 TCBTSTSK EQU TCBTSFLG 03419000 TCBSTAB EQU TCB+160 03420000 TCBNSTAE EQU TCBSTAB 03421000 TCBTCT EQU TCB+164 03422000 TCBTCTGF EQU TCBTCT 03423000 TCBSCNDY EQU TCB+172 03424000 TCBNDSP EQU TCBSCNDY 03425000 TCBNDSP1 EQU TCBNDSP+1 03426000 TCBNDSP2 EQU TCBNDSP+2 03427000 TCBNDSP3 EQU TCBNDSP+3 03428000 TCBJSCB EQU TCB+180 03429000 TCBRECDE EQU TCBJSCB 03430000 TCBEXT1 EQU TCB+196 03431000 TCBBITS EQU TCB+200 03432000 TCBNDSP4 EQU TCBBITS 03433000 TCBNDSP5 EQU TCBBITS+1 03434000 TCBFLGS6 EQU TCBBITS+2 03435000 TCBFLGS7 EQU TCBBITS+3 03436000 TCBDAR EQU TCB+204 03437000 TCBDARC EQU TCBDAR 03438000 TCBEXT2 EQU TCB+208 03439000 TCBXSCT EQU TCB+240 03440000 TCBXSCT1 EQU TCBXSCT 03441000 TCBFOE EQU TCB+244 03442000 TCBESTAE EQU TCB+264 03443000 TCBESTRM EQU TCBESTAE+1 03444000 TCBFBYT1 EQU TCB+276 03445000 TCBFBYT2 EQU TCB+277 03446000 TCBRV124 EQU TCB+278 03447000 TCBRV133 EQU TCB+279 03448000 TCBXTNT2 EQU 0 03449000 TCBGTF EQU TCBXTNT2 03450000 TCBTFLG EQU TCBGTF 03451000 TCBRV146 EQU TCBXTNT2+28 03452000 TCBRV155 EQU TCBXTNT2+29 03453000 TCBRV164 EQU TCBXTNT2+30 03454000 TCBRV173 EQU TCBXTNT2+31 03455000 IEZJSCB EQU 0 03456000 JSCBSEC1 EQU IEZJSCB+188 03457000 JSCHPCE EQU JSCBSEC1+4 03458000 JSCBTCBP EQU JSCBSEC1+20 03459000 JSCBDCB EQU JSCBSEC1+36 03460000 JSCBOPTS EQU JSCBSEC1+48 03461000 JSCBSWT1 EQU JSCBSEC1+55 03462000 JSCBWTP EQU JSCBSEC1+64 03463000 JSCBWTFG EQU JSCBWTP 03464000 JSCBEND1 EQU IEZJSCB+260 03465000 RBPRFX EQU 0 03466000 RBBASIC EQU 0 03467000 RBEXRTNM EQU RBBASIC 03468000 RBTMFLD EQU RBEXRTNM 03469000 RBSTAB EQU RBBASIC+10 03470000 XSTAB EQU RBSTAB 03471000 RBSTAB1 EQU XSTAB 03472000 XSTAB1 EQU RBSTAB1 03473000 RBFTCKPT EQU XSTAB1 03474000 RBSTAB2 EQU XSTAB+1 03475000 XSTAB2 EQU RBSTAB2 03476000 RBTCBNXT EQU XSTAB2 03477000 RBFACTV EQU XSTAB2 03478000 RBFDYN EQU XSTAB2 03479000 RBECBWT EQU XSTAB2 03480000 RBOPSW EQU RBBASIC+16 03481000 XRBPSW EQU RBOPSW 03482000 RBOPSWB2 EQU XRBPSW+1 03483000 RBLINK EQU RBBASIC+28 03484000 XRBLNK EQU RBLINK 03485000 RBWCF EQU XRBLNK 03486000 RBLINKB EQU XRBLNK+1 03487000 RBGRSAVE EQU RBBASIC+32 03488000 XRBREG EQU RBGRSAVE 03489000 RBGRS0 EQU XRBREG 03490000 RBGRS1 EQU XRBREG+4 03491000 RBGRS2 EQU XRBREG+8 03492000 RBGRS3 EQU XRBREG+12 03493000 RBGRS4 EQU XRBREG+16 03494000 RBGRS5 EQU XRBREG+20 03495000 RBGRS6 EQU XRBREG+24 03496000 RBGRS7 EQU XRBREG+28 03497000 RBGRS8 EQU XRBREG+32 03498000 RBGRS9 EQU XRBREG+36 03499000 RBGRS10 EQU XRBREG+40 03500000 RBGRS11 EQU XRBREG+44 03501000 RBGRS12 EQU XRBREG+48 03502000 RBGRS13 EQU XRBREG+52 03503000 RBGRS14 EQU XRBREG+56 03504000 RBGRS15 EQU XRBREG+60 03505000 XRBESA EQU RBBASIC+96 03506000 RBPREFIX EQU 0 03507000 RBRSV019 EQU RBPREFIX+14 03508000 RBRSV028 EQU RBPREFIX+15 03509000 RBRSV041 EQU RBPREFIX+27 03510000 RBRSV054 EQU RBPREFIX+39 03511000 RBRTOPSW EQU RBPREFIX+40 03512000 RBRTPSW2 EQU RBRTOPSW+8 03513000 RBRTICIL EQU RBRTPSW2 03514000 RBFLAGS1 EQU RBPREFIX+56 03515000 RBWCSA EQU RBPREFIX+60 03516000 RBINTCDA EQU RBPREFIX+61 03517000 RBSECT EQU 0 03518000 RBPPSAV EQU RBSECT 03519000 RBSIZE EQU RBSECT+8 03520000 @NM00049 EQU RBSECT+10 03521000 @NM00050 EQU @NM00049 03522000 RBTRSVRB EQU @NM00050 03523000 @NM00052 EQU @NM00049+1 03524000 RBETXR EQU @NM00052 03525000 RBEP EQU RBSECT+12 03526000 RBPGMQ EQU RBSECT+24 03527000 @NM00059 EQU RBSECT+28 03528000 @NM00060 EQU @NM00059 03529000 IRBEND EQU RBSECT+96 03530000 @NM00063 EQU RBSECT+96 03531000 RBRSV138 EQU @NM00063+7 03532000 RBSCBB EQU RBSECT+144 03533000 RBSPARM EQU RBSCBB+8 03534000 RBSFLGS1 EQU RBSPARM 03535000 RBSIOPRC EQU RBSFLGS1 03536000 RBSOWNR EQU RBSCBB+12 03537000 RBSFLGS2 EQU RBSOWNR 03538000 RBSDATA EQU RBSCBB+16 03539000 RBSFLG3 EQU RBSDATA 03540000 RBRSV150 EQU RBSECT+167 03541000 IQESECT EQU 0 03542000 IQELNK EQU IQESECT 03543000 IQEPARAM EQU IQESECT+4 03544000 IQEIRB EQU IQESECT+8 03545000 IQEFLAGS EQU IQEIRB 03546000 IQEIRBA EQU IQEIRB+1 03547000 IQETCB EQU IQESECT+12 03548000 SRBSECT EQU 0 03549000 SRB EQU SRBSECT 03550000 SRBFLNK EQU SRB+4 03551000 SRBASCB EQU SRB+8 03552000 SRBFLC EQU SRB+12 03553000 SRBCPAFF EQU SRBFLC 03554000 SRBPASID EQU SRBFLC+2 03555000 SRBPTCB EQU SRBFLC+4 03556000 SRBEP EQU SRB+20 03557000 SRBRMTR EQU SRB+24 03558000 SRBPARM EQU SRB+28 03559000 SRBSAVE EQU SRB+32 03560000 SRBPKF EQU SRB+36 03561000 SRBPRIOR EQU SRB+37 03562000 SDWA EQU 0 03563000 SDWAFIOB EQU SDWA+4 03564000 SDWAABCC EQU SDWAFIOB 03565000 SDWACMPF EQU SDWAABCC 03566000 SDWACTL1 EQU SDWA+8 03567000 SDWACMKA EQU SDWACTL1 03568000 SDWAMWPA EQU SDWACTL1+1 03569000 SDWAPMKA EQU SDWACTL1+4 03570000 SDWACTL2 EQU SDWA+16 03571000 SDWACMKP EQU SDWACTL2 03572000 SDWAMWPP EQU SDWACTL2+1 03573000 SDWAPMKP EQU SDWACTL2+4 03574000 SDWAGRSV EQU SDWA+24 03575000 SDWANAME EQU SDWA+88 03576000 SDWAEC1 EQU SDWA+104 03577000 SDWAEMK1 EQU SDWAEC1 03578000 SDWAMWP1 EQU SDWAEC1+1 03579000 SDWAINT1 EQU SDWAEC1+2 03580000 SDWANXT1 EQU SDWAEC1+4 03581000 SDWAAEC1 EQU SDWA+112 03582000 SDWAILC1 EQU SDWAAEC1+1 03583000 SDWAINC1 EQU SDWAAEC1+2 03584000 SDWAICD1 EQU SDWAINC1+1 03585000 SDWAEC2 EQU SDWA+120 03586000 SDWAEMK2 EQU SDWAEC2 03587000 SDWAMWP2 EQU SDWAEC2+1 03588000 SDWAINT2 EQU SDWAEC2+2 03589000 SDWANXT2 EQU SDWAEC2+4 03590000 SDWAAEC2 EQU SDWA+128 03591000 SDWAILC2 EQU SDWAAEC2+1 03592000 SDWAINC2 EQU SDWAAEC2+2 03593000 SDWAICD2 EQU SDWAINC2+1 03594000 SDWASRSV EQU SDWA+136 03595000 SDWAIDNT EQU SDWA+200 03596000 SDWAMCH EQU SDWA+204 03597000 SDWASTCK EQU SDWAMCH 03598000 SDWAMCHI EQU SDWAMCH+8 03599000 SDWAMCHS EQU SDWAMCHI 03600000 SDWAMCHD EQU SDWAMCHI+1 03601000 SDWARSR1 EQU SDWAMCH+12 03602000 SDWARSR2 EQU SDWAMCH+13 03603000 SDWAFLGS EQU SDWA+232 03604000 SDWAERRA EQU SDWAFLGS 03605000 SDWAERRB EQU SDWAFLGS+1 03606000 SDWAERRC EQU SDWAFLGS+2 03607000 SDWAERRD EQU SDWAFLGS+3 03608000 SDWAIOFS EQU SDWA+238 03609000 SDWACPUA EQU SDWA+248 03610000 SDWAPARQ EQU SDWA+252 03611000 SDWAACF2 EQU SDWAPARQ+1 03612000 SDWAACF3 EQU SDWAPARQ+2 03613000 SDWAACF4 EQU SDWAPARQ+3 03614000 SDWALKWA EQU SDWA+256 03615000 SDWALKWS EQU SDWALKWA 03616000 SDWARECP EQU SDWA+292 03617000 SDWASNPA EQU SDWA+320 03618000 SDWADUMP EQU SDWASNPA 03619000 SDWADPFS EQU SDWADUMP+1 03620000 SDWADDAT EQU SDWASNPA+4 03621000 SDWASDAT EQU SDWADDAT 03622000 SDWAPDAT EQU SDWADDAT+2 03623000 SDWADPSA EQU SDWA+328 03624000 SDWADPSL EQU SDWADPSA 03625000 SDWARA EQU SDWA+400 03626000 SDWADPVA EQU SDWARA+2 03627000 FRRS EQU 0 03628000 FRRSHEAD EQU FRRS 03629000 FRRSEMP EQU FRRSHEAD 03630000 FRRSLAST EQU FRRSHEAD+4 03631000 FRRSELEN EQU FRRSHEAD+8 03632000 FRRSCURR EQU FRRSHEAD+12 03633000 FRRSENTR EQU 0 03634000 FRRSFRRA EQU FRRSENTR 03635000 FRRSFLGS EQU FRRSENTR+4 03636000 FRRSFLG1 EQU FRRSFLGS 03637000 FRRSPARM EQU FRRSENTR+8 03638000 TQE EQU 0 03639000 TQEFLNK EQU TQE+4 03640000 TQEBLNK EQU TQE+8 03641000 TQEAID EQU TQE+12 03642000 TQEFLGS EQU TQE+14 03643000 TQEOFF EQU TQEFLGS 03644000 TQEINCOM EQU TQEFLGS 03645000 TQEXITSP EQU TQEFLGS 03646000 TQETYPE EQU TQEFLGS 03647000 TQEFLGS2 EQU TQE+15 03648000 TQECOMP EQU TQEFLGS2 03649000 TQEUSER EQU TQEFLGS2 03650000 TQECRH EQU TQEFLGS2 03651000 TQEDUM EQU TQEFLGS2 03652000 TQELM EQU TQEFLGS2 03653000 TQEOPT EQU TQEFLGS2 03654000 TQEMF1 EQU TQEFLGS2 03655000 TQEMIDN EQU TQEFLGS2 03656000 TQEVAL EQU TQE+16 03657000 TQEVALLH EQU TQEVAL 03658000 TQEVALRH EQU TQEVAL+4 03659000 TQESADDR EQU TQE+24 03660000 TQEEXIT EQU TQE+28 03661000 TQETCB EQU TQE+32 03662000 TQEASCB EQU TQE+36 03663000 TQELHPSW EQU TQE+40 03664000 TQESRB EQU TQE+44 03665000 TQEDREGS EQU TQESRB 03666000 TQEFLGS3 EQU TQE+88 03667000 TQEDIE EQU TQEFLGS3 03668000 TQESTCK EQU TQE+120 03669000 TPC EQU 0 03670000 IEATPC EQU TPC 03671000 TPCFLGS1 EQU IEATPC+4 03672000 TPCABND EQU TPCFLGS1 03673000 TPCSYNC EQU TPCFLGS1 03674000 TPCHDCCQ EQU IEATPC+12 03675000 TPCDMTQE EQU IEATPC+16 03676000 DFD EQU TPCDMTQE+4 03677000 TPCMNTQE EQU IEATPC+40 03678000 MNIGHT EQU TPCMNTQE+16 03679000 MNIGHTLH EQU MNIGHT 03680000 MNIGHTRH EQU MNIGHT+4 03681000 TPCMFTQE EQU IEATPC+64 03682000 IEATSELM EQU IEATPC+88 03683000 TPCLMTQE EQU IEATPC+112 03684000 TPCSAVE1 EQU IEATPC+136 03685000 TPCSAVE2 EQU IEATPC+200 03686000 TPCWORK EQU IEATPC+264 03687000 TPCWORKL EQU TPCWORK 03688000 TPCWORKR EQU TPCWORK+4 03689000 TFRRPARM EQU 0 03690000 TFRRID EQU TFRRPARM 03691000 TFRRFOOT EQU TFRRID+1 03692000 TFRRLOCK EQU TFRRPARM+4 03693000 TFRRDISP EQU TFRRLOCK 03694000 TFRRLOCL EQU TFRRLOCK 03695000 TFRRSALL EQU TFRRLOCK 03696000 TFRRFLGS EQU TFRRPARM+5 03697000 TFRRFLG1 EQU TFRRPARM+6 03698000 TFRRFLG2 EQU TFRRPARM+7 03699000 TFRRSYNC EQU TFRRFLG2 03700000 TFRRCPUT EQU TFRRFLG2 03701000 TFRRCLKC EQU TFRRFLG2 03702000 TFRRDIER EQU TFRRFLG2 03703000 TFRRURCD EQU TFRRPARM+8 03704000 TFRRTQEP EQU TFRRURCD+8 03705000 CINTER EQU 0 03706000 STAGE2 EQU 0 03707000 POSTBR EQU 0 03708000 TIMESAVE EQU 0 03709000 IQEEND EQU 0 03710000 FLC EQU PSA 03711000 PSARSVTE EQU PSARSVT 03712000 PSACSTK EQU PSARSVTE 03713000 CVTS01 EQU CVTPGSIA 03714000 CVTLPDIA EQU CVTS01+12 03715000 CVTDIRST EQU CVTLPDIA 03716000 CVTSLIDA EQU CVTS01+24 03717000 CVTCTLFG EQU CVTS01+50 03718000 CVTMAXMP EQU CVTS01+128 03719000 CVTCRMN EQU CVTS01+156 03720000 CVTOPTE EQU CVTS01+188 03721000 CVTASVT EQU CVTS01+208 03722000 CVTLSMQ EQU CVTS01+268 03723000 CVTCSD EQU CVTS01+312 03724000 CVTGLMN EQU CVTS01+332 03725000 CVTSPSA EQU CVTS01+336 03726000 CVTIPCRP EQU CVTS01+412 03727000 CVTPCCAT EQU CVTS01+416 03728000 CVTLCCAT EQU CVTS01+420 03729000 CVTRV210 EQU CVTS01+424 03730000 CVTRV219 EQU CVTS01+425 03731000 CVTRV228 EQU CVTS01+426 03732000 CVTRV237 EQU CVTS01+427 03733000 CVTMFRTR EQU CVTS01+452 03734000 CVTMFACT EQU CVTMFRTR 03735000 CVTRV262 EQU CVTS01+468 03736000 CVTRV271 EQU CVTS01+469 03737000 CVTRV280 EQU CVTS01+470 03738000 CVTRV289 EQU CVTS01+471 03739000 CVTGSDA EQU CVTS01+600 03740000 PCCAPTR EQU PSAPCCAV 03741000 LCCAPTR EQU PSALCCAV 03742000 ASCBETLH EQU ASCBEJST 03743000 ASCBWTLH EQU ASCBEWST 03744000 ASXBPTR EQU ASCBASXB 03745000 JSCBSEC2 EQU JSCBEND1 03746000 JSCBSEC3 EQU JSCBEND1 03747000 JSCBJCT EQU JSCBSEC3 03748000 JSCBJCTA EQU JSCBJCT+1 03749000 JSCBASID EQU JSCBSEC3+8 03750000 JSCBFBYT EQU JSCBSEC3+10 03751000 JSCBJNL EQU JSCBSEC3+28 03752000 JSCBJJSB EQU JSCBJNL 03753000 JSCBSUB EQU JSCBSEC3+40 03754000 JSCSCT EQU JSCBSEC3+68 03755000 JSCRSV45 EQU JSCBSEC3+112 03756000 JSCRSV46 EQU JSCRSV45 03757000 JSCRSV47 EQU JSCRSV45+2 03758000 RBSECS03 EQU RBEP 03759000 RBCDE EQU RBSECS03 03760000 RBCDFLGS EQU RBCDE 03761000 RBSECS05 EQU RBPGMQ 03762000 RBSQE EQU RBSECS05 03763000 RBSECS06 EQU RBPGMQ 03764000 RBIQE EQU RBSECS06 03765000 RBUSE EQU RBIQE 03766000 RBSECS07 EQU RBPGMQ 03767000 RBIQE2 EQU RBSECS07 03768000 RBSECS08 EQU IRBEND 03769000 RBSECS09 EQU IRBEND 03770000 TQEECB EQU TQEEXIT 03771000 TPCPTR EQU CVTTPC 03772000 MEMPTRS EQU ASVTENTY 03773000 SIGNSRBP EQU SRBPARM 03774000 VIOL EQU TPCWORKR+3 03775000 ASCBETRH EQU ASCBEJST+4 03776000 ASCBWTRH EQU ASCBEWST+4 03777000 CSDPTR EQU CVTCSD 03778000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03779000 RBRSV161 EQU RBSECS09+64 03780000 RBSIRBWA EQU RBSECS09 03781000 RBIQEWRK EQU RBSECS08+4 03782000 RBNEXAV EQU RBSECS08 03783000 RBIQEA EQU RBIQE2 03784000 RBIQE1 EQU RBIQE+1 03785000 RBSQEA EQU RBSQE+1 03786000 @NM00064 EQU RBSQE 03787000 RBCDE1 EQU RBCDE+1 03788000 RBCDLOAD EQU RBCDFLGS 03789000 RBCDXCTL EQU RBCDFLGS 03790000 RBCDSYNC EQU RBCDFLGS 03791000 RBCDNODE EQU RBCDFLGS 03792000 RBRSV010 EQU RBCDFLGS 03793000 RBCDATCH EQU RBCDFLGS 03794000 RBRSV009 EQU RBCDFLGS 03795000 RBNOCELL EQU RBCDFLGS 03796000 JSCBEND3 EQU JSCBSEC3+120 03797000 JSCRSV52 EQU JSCBSEC3+116 03798000 JSCRSV51 EQU JSCRSV47+1 03799000 JSCRSV50 EQU JSCRSV47 03800000 JSCRSV49 EQU JSCRSV46+1 03801000 JSCRSV48 EQU JSCRSV46 03802000 JSCRSV44 EQU JSCBSEC3+108 03803000 JSCRSV43 EQU JSCBSEC3+104 03804000 JSCRSV42 EQU JSCBSEC3+100 03805000 JSCBASWA EQU JSCBSEC3+96 03806000 JSCBUFPT EQU JSCBSEC3+92 03807000 JSCBACT EQU JSCBSEC3+88 03808000 JSCBSWSP EQU JSCBSEC3+87 03809000 JSCRSV33 EQU JSCBSEC3+86 03810000 JSCDDNUM EQU JSCBSEC3+84 03811000 JSCRSV53 EQU JSCBSEC3+82 03812000 JSCDDNNO EQU JSCBSEC3+80 03813000 JSCBVATA EQU JSCBSEC3+76 03814000 JSCTMCOR EQU JSCBSEC3+72 03815000 JSCSCTP EQU JSCSCT+1 03816000 JSCRSV55 EQU JSCSCT 03817000 JSCRSV54 EQU JSCBSEC3+64 03818000 JSCDSABQ EQU JSCBSEC3+60 03819000 JSCBSSIB EQU JSCBSEC3+56 03820000 JSCBFRBA EQU JSCBSEC3+48 03821000 JSCRSV28 EQU JSCBSEC3+46 03822000 JSCBSONO EQU JSCBSEC3+44 03823000 JSCBSUBA EQU JSCBSUB+1 03824000 JSCRSV31 EQU JSCBSUB 03825000 JSCBSMLR EQU JSCBSEC3+36 03826000 JSCBJNLR EQU JSCBSEC3+32 03827000 JSCBJNLA EQU JSCBJNL+1 03828000 JSCBJSBT EQU JSCBJJSB 03829000 JSCBJSBX EQU JSCBJJSB 03830000 JSCBJSBA EQU JSCBJJSB 03831000 JSCBJSBI EQU JSCBJJSB 03832000 @NM00037 EQU JSCBJJSB 03833000 JSCBJNLE EQU JSCBJJSB 03834000 JSCBJNLF EQU JSCBJJSB 03835000 JSCBJNLN EQU JSCBJJSB 03836000 @NM00036 EQU JSCBSEC3+24 03837000 JSCBJRBA EQU JSCBSEC3+16 03838000 JSCBIECB EQU JSCBSEC3+12 03839000 JSCBRV08 EQU JSCBSEC3+11 03840000 JSCBRV07 EQU JSCBFBYT 03841000 JSCBRV06 EQU JSCBFBYT 03842000 JSCBRV05 EQU JSCBFBYT 03843000 JSCBRV04 EQU JSCBFBYT 03844000 JSCBRV03 EQU JSCBFBYT 03845000 JSCBRV02 EQU JSCBFBYT 03846000 JSCBADSP EQU JSCBFBYT 03847000 JSCBRV01 EQU JSCBFBYT 03848000 JSCBTJID EQU JSCBASID 03849000 JSCBPSCB EQU JSCBSEC3+4 03850000 JSCJCTP EQU JSCBJCTA 03851000 JSCRSV24 EQU JSCBJCT 03852000 JSCBEND2 EQU JSCBSEC2 03853000 CVTRV628 EQU CVTS01+728 03854000 CVTRV627 EQU CVTS01+724 03855000 CVTRV626 EQU CVTS01+720 03856000 CVTRV625 EQU CVTS01+716 03857000 CVTRV624 EQU CVTS01+712 03858000 CVTRV623 EQU CVTS01+708 03859000 CVTRV622 EQU CVTS01+704 03860000 CVTRV621 EQU CVTS01+700 03861000 CVTIHASU EQU CVTS01+696 03862000 CVTSUSP EQU CVTS01+692 03863000 CVTT6SVC EQU CVTS01+688 03864000 CVTCDAL EQU CVTS01+684 03865000 CVTTCTL EQU CVTS01+680 03866000 CVTRSUME EQU CVTS01+676 03867000 CVTJTERM EQU CVTS01+672 03868000 CVTASMRM EQU CVTS01+668 03869000 CVTTCASP EQU CVTS01+664 03870000 CVT0PT03 EQU CVTS01+660 03871000 CVT0PT0E EQU CVTS01+656 03872000 CVTRV609 EQU CVTS01+652 03873000 CVTCGK EQU CVTS01+648 03874000 CVTRAC EQU CVTS01+644 03875000 CVTRV606 EQU CVTS01+640 03876000 CVTRV605 EQU CVTS01+636 03877000 CVTRV604 EQU CVTS01+632 03878000 CVTEFF02 EQU CVTS01+628 03879000 CVTCBBR EQU CVTS01+624 03880000 CVTSSCR EQU CVTS01+620 03881000 CVTEVENT EQU CVTS01+616 03882000 CVTCRCA EQU CVTS01+612 03883000 CVTTPIO EQU CVTS01+608 03884000 CVTADV EQU CVTS01+604 03885000 CVTGSDAB EQU CVTGSDA 03886000 CVTQV3 EQU CVTS01+596 03887000 CVTQV2 EQU CVTS01+592 03888000 CVTQV1 EQU CVTS01+588 03889000 CVTRPT EQU CVTS01+584 03890000 CVTSSRB EQU CVTS01+580 03891000 CVTCSDRL EQU CVTS01+576 03892000 CVTEXP1 EQU CVTS01+572 03893000 CVTRMPMT EQU CVTS01+568 03894000 CVTRMPTT EQU CVTS01+564 03895000 CVTVPSA EQU CVTS01+560 03896000 CVTVSTOP EQU CVTS01+556 03897000 CVTGTFR8 EQU CVTS01+552 03898000 CVTQUIT EQU CVTS01+548 03899000 CVTVACR EQU CVTS01+544 03900000 CVTWTCB EQU CVTS01+540 03901000 CVTSTPRS EQU CVTS01+536 03902000 CVT0PT02 EQU CVTS01+532 03903000 CVTDARCM EQU CVTS01+528 03904000 CVTIRECM EQU CVTS01+524 03905000 CVTJRECM EQU CVTS01+520 03906000 CVTVEMS0 EQU CVTS01+516 03907000 CVTSPFRR EQU CVTS01+512 03908000 CVTRLSTG EQU CVTS01+508 03909000 CVT0TC0A EQU CVTS01+504 03910000 CVTGMBR EQU CVTS01+500 03911000 CVTLFRM EQU CVTS01+496 03912000 CVTRMBR EQU CVTS01+492 03913000 CVTVIOP EQU CVTS01+488 03914000 CVTRV307 EQU CVTS01+486 03915000 CVTRV306 EQU CVTS01+484 03916000 CVTRV305 EQU CVTS01+482 03917000 CVTRV304 EQU CVTS01+480 03918000 CVTRV303 EQU CVTS01+478 03919000 CVTRV302 EQU CVTS01+476 03920000 CVTTRCA EQU CVTS01+472 03921000 CVTRV297 EQU CVTRV289 03922000 CVTRV296 EQU CVTRV289 03923000 CVTRV295 EQU CVTRV289 03924000 CVTRV294 EQU CVTRV289 03925000 CVTRV293 EQU CVTRV289 03926000 CVTRV292 EQU CVTRV289 03927000 CVTRV291 EQU CVTRV289 03928000 CVTRV290 EQU CVTRV289 03929000 CVTRV288 EQU CVTRV280 03930000 CVTRV287 EQU CVTRV280 03931000 CVTRV286 EQU CVTRV280 03932000 CVTRV285 EQU CVTRV280 03933000 CVTRV284 EQU CVTRV280 03934000 CVTRV283 EQU CVTRV280 03935000 CVTRV282 EQU CVTRV280 03936000 CVTRV281 EQU CVTRV280 03937000 CVTRV279 EQU CVTRV271 03938000 CVTRV278 EQU CVTRV271 03939000 CVTRV277 EQU CVTRV271 03940000 CVTRV276 EQU CVTRV271 03941000 CVTRV275 EQU CVTRV271 03942000 CVTRV274 EQU CVTRV271 03943000 CVTRV273 EQU CVTRV271 03944000 CVTRV272 EQU CVTRV271 03945000 CVTRV270 EQU CVTRV262 03946000 CVTRV269 EQU CVTRV262 03947000 CVTRV268 EQU CVTRV262 03948000 CVTRV267 EQU CVTRV262 03949000 CVTRV266 EQU CVTRV262 03950000 CVTRV265 EQU CVTRV262 03951000 CVTRV264 EQU CVTRV262 03952000 CVTRV263 EQU CVTRV262 03953000 CVTVFP EQU CVTS01+464 03954000 CVTVSI EQU CVTS01+460 03955000 CVTVPSIB EQU CVTS01+456 03956000 CVTMFCTL EQU CVTS01+448 03957000 CVTPVBP EQU CVTS01+444 03958000 CVTPWI EQU CVTS01+440 03959000 CVTRV254 EQU CVTS01+438 03960000 CVTRV253 EQU CVTS01+436 03961000 CVTRV252 EQU CVTS01+434 03962000 CVTRV251 EQU CVTS01+433 03963000 CVTRV250 EQU CVTS01+432 03964000 CVTRV249 EQU CVTS01+431 03965000 CVTRV248 EQU CVTS01+430 03966000 CVTRV247 EQU CVTS01+429 03967000 CVTRV246 EQU CVTS01+428 03968000 CVTRV245 EQU CVTRV237 03969000 CVTRV244 EQU CVTRV237 03970000 CVTRV243 EQU CVTRV237 03971000 CVTRV242 EQU CVTRV237 03972000 CVTRV241 EQU CVTRV237 03973000 CVTRV240 EQU CVTRV237 03974000 CVTRV239 EQU CVTRV237 03975000 CVTRV238 EQU CVTRV237 03976000 CVTRV236 EQU CVTRV228 03977000 CVTRV235 EQU CVTRV228 03978000 CVTRV234 EQU CVTRV228 03979000 CVTRV233 EQU CVTRV228 03980000 CVTRV232 EQU CVTRV228 03981000 CVTRV231 EQU CVTRV228 03982000 CVTRV230 EQU CVTRV228 03983000 CVTRV229 EQU CVTRV228 03984000 CVTRV227 EQU CVTRV219 03985000 CVTRV226 EQU CVTRV219 03986000 CVTRV225 EQU CVTRV219 03987000 CVTRV224 EQU CVTRV219 03988000 CVTRV223 EQU CVTRV219 03989000 CVTRV222 EQU CVTRV219 03990000 CVTRV221 EQU CVTRV219 03991000 CVTRV220 EQU CVTRV219 03992000 CVTRV218 EQU CVTRV210 03993000 CVTRV217 EQU CVTRV210 03994000 CVTRV216 EQU CVTRV210 03995000 CVTRV215 EQU CVTRV210 03996000 CVTRV214 EQU CVTRV210 03997000 CVTRV213 EQU CVTRV210 03998000 CVTRV212 EQU CVTRV210 03999000 CVTRV211 EQU CVTRV210 04000000 CVTIPCRI EQU CVTS01+408 04001000 CVTIPCDS EQU CVTS01+404 04002000 CVTAIDVT EQU CVTS01+400 04003000 CVTSSAP EQU CVTS01+396 04004000 CVTEHCIR EQU CVTS01+392 04005000 CVTEHDEF EQU CVTS01+388 04006000 CVTDAIR EQU CVTS01+384 04007000 CVTPERFM EQU CVTS01+380 04008000 CVT044R2 EQU CVTS01+376 04009000 CVTFETCH EQU CVTS01+372 04010000 CVTRSTWD EQU CVTS01+368 04011000 CVTSPOST EQU CVTS01+364 04012000 CVTIOBP EQU CVTS01+360 04013000 CVTASMVT EQU CVTS01+356 04014000 CVTRECRQ EQU CVTS01+352 04015000 CVTWSAC EQU CVTS01+348 04016000 CVTRV149 EQU CVTS01+344 04017000 CVTWSAL EQU CVTS01+340 04018000 CVTVEAC0 EQU CVTS01+328 04019000 CVT062R1 EQU CVTS01+324 04020000 CVTRPOST EQU CVTS01+320 04021000 CVTDQIQE EQU CVTS01+316 04022000 CVTLKRMA EQU CVTS01+308 04023000 CVTRSPIE EQU CVTS01+304 04024000 CVTRENQ EQU CVTS01+300 04025000 CVTLQCB EQU CVTS01+296 04026000 CVTFQCB EQU CVTS01+292 04027000 CVTQCS01 EQU CVTS01+288 04028000 CVTAPFT EQU CVTS01+284 04029000 CVTPARRL EQU CVTS01+280 04030000 CVTVWAIT EQU CVTS01+276 04031000 CVTGSPL EQU CVTS01+272 04032000 CVTGSMQ EQU CVTS01+264 04033000 CVTEXPRO EQU CVTS01+260 04034000 CVTOPCTP EQU CVTS01+256 04035000 CVTSIC EQU CVTS01+252 04036000 CVTTPIOS EQU CVTS01+248 04037000 CVTRTMS EQU CVTS01+244 04038000 CVTSDBF EQU CVTS01+240 04039000 CVTSCBP EQU CVTS01+236 04040000 CVTSDMP EQU CVTS01+232 04041000 CVTSV60 EQU CVTS01+228 04042000 CVTRTMCT EQU CVTS01+224 04043000 CVTASCBL EQU CVTS01+220 04044000 CVTASCBH EQU CVTS01+216 04045000 CVTGDA EQU CVTS01+212 04046000 CVTVVMDI EQU CVTS01+204 04047000 CVTAQTOP EQU CVTS01+200 04048000 CVTIOSCS EQU CVTS01+196 04049000 CVTSDRM EQU CVTS01+192 04050000 CVTSTXU EQU CVTS01+184 04051000 CVTQUIS EQU CVTS01+180 04052000 CVTPARS EQU CVTS01+176 04053000 CVTS1EE EQU CVTS01+172 04054000 CVTFRAS EQU CVTS01+168 04055000 CVTQSAS EQU CVTS01+164 04056000 CVTCRAS EQU CVTS01+160 04057000 CVTDELCP EQU CVTS01+152 04058000 CVTFRECL EQU CVTS01+148 04059000 CVTGETCL EQU CVTS01+144 04060000 CVTBLDCP EQU CVTS01+140 04061000 CVTAUTHL EQU CVTS01+136 04062000 CVTSCAN EQU CVTS01+132 04063000 CVTRV144 EQU CVTS01+130 04064000 CVTSTCK EQU CVTS01+124 04065000 CVTRV139 EQU CVTS01+123 04066000 CVTDSSAC EQU CVTS01+122 04067000 CVTRV513 EQU CVTS01+121 04068000 CVTIOSPL EQU CVTS01+120 04069000 CVTPTGT EQU CVTS01+116 04070000 CVTCSPIE EQU CVTS01+112 04071000 CVTSMFEX EQU CVTS01+108 04072000 CVTOLT0A EQU CVTS01+104 04073000 CVTSRBRT EQU CVTS01+100 04074000 CVTPUTL EQU CVTS01+96 04075000 CVTASCRL EQU CVTS01+92 04076000 CVTASCRF EQU CVTS01+88 04077000 CVTRV326 EQU CVTS01+84 04078000 CVTRV325 EQU CVTS01+80 04079000 CVTRV324 EQU CVTS01+76 04080000 CVT0VL01 EQU CVTS01+72 04081000 CVTSHRVM EQU CVTS01+68 04082000 CVTRV332 EQU CVTS01+64 04083000 CVTTAS EQU CVTS01+60 04084000 CVTRSCN EQU CVTS01+56 04085000 CVTTRAC2 EQU CVTS01+54 04086000 CVTTRACE EQU CVTS01+52 04087000 CVTAPG EQU CVTS01+51 04088000 CVTSDTRC EQU CVTCTLFG 04089000 CVTGTRCE EQU CVTCTLFG 04090000 CVTNOMP EQU CVTCTLFG 04091000 CVTRSV79 EQU CVTCTLFG 04092000 CVTDSTAT EQU CVTCTLFG 04093000 CVTRSV78 EQU CVTCTLFG 04094000 CVTRV333 EQU CVTCTLFG 04095000 CVTRV323 EQU CVTCTLFG 04096000 CVTSPVLK EQU CVTS01+49 04097000 CVTRSV77 EQU CVTS01+48 04098000 CVTRV331 EQU CVTS01+44 04099000 CVTRV330 EQU CVTS01+40 04100000 CVTRV329 EQU CVTS01+36 04101000 CVTRV328 EQU CVTS01+32 04102000 CVTRV322 EQU CVTS01+28 04103000 CVTSLID EQU CVTSLIDA+1 04104000 CVTSYLK EQU CVTSLIDA 04105000 CVTRV321 EQU CVTS01+20 04106000 CVTRV320 EQU CVTS01+16 04107000 CVTLPDIR EQU CVTLPDIA+1 04108000 CVTRSV69 EQU CVTDIRST 04109000 CVTRSV68 EQU CVTDIRST 04110000 CVTRSV67 EQU CVTDIRST 04111000 CVTRSV66 EQU CVTDIRST 04112000 CVTRSV65 EQU CVTDIRST 04113000 CVTRSV64 EQU CVTDIRST 04114000 CVTRSV63 EQU CVTDIRST 04115000 CVTDICOM EQU CVTDIRST 04116000 CVTPVTP EQU CVTS01+8 04117000 CVTLPDSR EQU CVTS01+4 04118000 CVTGETL EQU CVTS01 04119000 PSARSAV EQU PSARSVTE+60 04120000 PSARSTK EQU PSARSVTE+56 04121000 PSAESAV3 EQU PSARSVTE+52 04122000 PSAESTK3 EQU PSARSVTE+48 04123000 PSAESAV2 EQU PSARSVTE+44 04124000 PSAESTK2 EQU PSARSVTE+40 04125000 PSAESAV1 EQU PSARSVTE+36 04126000 PSAESTK1 EQU PSARSVTE+32 04127000 PSAPSAV EQU PSARSVTE+28 04128000 PSAPSTK EQU PSARSVTE+24 04129000 PSAMSAV EQU PSARSVTE+20 04130000 PSAMSTK EQU PSARSVTE+16 04131000 PSASSAV EQU PSARSVTE+12 04132000 PSASSTK EQU PSARSVTE+8 04133000 PSANSTK EQU PSARSVTE+4 04134000 @NM00170 EQU TFRRURCD+12 04135000 @NM00169 EQU TFRRURCD+4 04136000 @NM00168 EQU TFRRURCD 04137000 @NM00167 EQU TFRRFLG2 04138000 TFRREXEF EQU TFRRFLG2 04139000 @NM00166 EQU TFRRFLG1 04140000 TFRRPHS3 EQU TFRRFLG1 04141000 TFRRPHS2 EQU TFRRFLG1 04142000 TFRRPHS1 EQU TFRRFLG1 04143000 @NM00165 EQU TFRRFLGS 04144000 TFRRRTQB EQU TFRRFLGS 04145000 TFRRDUMG EQU TFRRFLGS 04146000 TFRRTPCB EQU TFRRFLGS 04147000 TFRRRTQV EQU TFRRFLGS 04148000 TFRRRCDC EQU TFRRFLGS 04149000 TFRRRYES EQU TFRRFLGS 04150000 TFRRRCUR EQU TFRRFLGS 04151000 @NM00164 EQU TFRRLOCK 04152000 TFRRCPUH EQU TFRRFOOT+2 04153000 TFRRCLXR EQU TFRRFOOT+2 04154000 TFRRRQCK EQU TFRRFOOT+2 04155000 TFRRAESR EQU TFRRFOOT+2 04156000 TFRRSETC EQU TFRRFOOT+2 04157000 TFRRTQED EQU TFRRFOOT+2 04158000 TFRRTQEE EQU TFRRFOOT+2 04159000 TFRRSLIH EQU TFRRFOOT+2 04160000 @NM00163 EQU TFRRFOOT+1 04161000 TFRRSETL EQU TFRRFOOT+1 04162000 TFRRHWRC EQU TFRRFOOT+1 04163000 TFRRVARY EQU TFRRFOOT+1 04164000 @NM00162 EQU TFRRFOOT 04165000 TFRRTS EQU TFRRFOOT 04166000 TFRRTODC EQU TFRRFOOT 04167000 TFRRIDDX EQU TFRRID 04168000 TPCOCL EQU IEATPC+416 04169000 TPCSDIE EQU IEATPC+412 04170000 TPCCLA EQU IEATPC+408 04171000 TPCCKQ EQU IEATPC+404 04172000 TPCRSRB EQU IEATPC+360 04173000 TPCTCWA EQU IEATPC+356 04174000 TPCCRSAV EQU IEATPC+352 04175000 TPCFRRP EQU IEATPC+348 04176000 TPCVPTR EQU IEATPC+344 04177000 TPCMISC EQU IEATPC+272 04178000 @NM00161 EQU TPCLMTQE+16 04179000 @NM00160 EQU TPCLMTQE+15 04180000 @NM00159 EQU TPCLMTQE+14 04181000 @NM00158 EQU TPCLMTQE+12 04182000 @NM00157 EQU TPCLMTQE+8 04183000 @NM00156 EQU TPCLMTQE+4 04184000 @NM00155 EQU TPCLMTQE 04185000 @NM00154 EQU IEATSELM+16 04186000 @NM00153 EQU IEATSELM+15 04187000 @NM00152 EQU IEATSELM+14 04188000 @NM00151 EQU IEATSELM+12 04189000 @NM00150 EQU IEATSELM+8 04190000 @NM00149 EQU IEATSELM+4 04191000 @NM00148 EQU IEATSELM 04192000 @NM00147 EQU TPCMFTQE+16 04193000 @NM00146 EQU TPCMFTQE+15 04194000 @NM00145 EQU TPCMFTQE+14 04195000 @NM00144 EQU TPCMFTQE+12 04196000 @NM00143 EQU TPCMFTQE+8 04197000 @NM00142 EQU TPCMFTQE+4 04198000 @NM00141 EQU TPCMFTQE 04199000 @NM00140 EQU TPCMNTQE+15 04200000 @NM00139 EQU TPCMNTQE+14 04201000 @NM00138 EQU TPCMNTQE+12 04202000 @NM00137 EQU TPCMNTQE+8 04203000 @NM00136 EQU TPCMNTQE+4 04204000 @NM00135 EQU TPCMNTQE 04205000 @NM00134 EQU TPCDMTQE+16 04206000 @NM00133 EQU TPCDMTQE+15 04207000 @NM00132 EQU TPCDMTQE+14 04208000 @NM00131 EQU TPCDMTQE+12 04209000 @NM00130 EQU TPCDMTQE+8 04210000 @NM00129 EQU TPCDMTQE 04211000 TPCTZORG EQU IEATPC+8 04212000 TPCCC EQU IEATPC+7 04213000 @NM00128 EQU IEATPC+5 04214000 @NM00127 EQU TPCFLGS1 04215000 TPCTPCA EQU IEATPC 04216000 TQESTCKR EQU TQESTCK+4 04217000 TQESTCKL EQU TQESTCK 04218000 TQERSAVE EQU TQE+116 04219000 @NM00126 EQU TQE+89 04220000 @NM00125 EQU TQEFLGS3 04221000 TQEWLIM EQU TQEFLGS 04222000 @NM00124 EQU TQEFLGS 04223000 TQETOD EQU TQEFLGS 04224000 TQETQE EQU TQE 04225000 @NM00123 EQU FRRSFLGS+1 04226000 @NM00122 EQU FRRSFLG1 04227000 FRRSNEST EQU FRRSFLG1 04228000 FRRSRCUR EQU FRRSFLG1 04229000 FRRSENTS EQU FRRS+84 04230000 FRRSRTMW EQU FRRS+16 04231000 @NM00121 EQU SDWA+512 04232000 SDWAVRA EQU SDWARA+4 04233000 SDWAURAL EQU SDWARA+3 04234000 @NM00120 EQU SDWADPVA 04235000 SDWAEBC EQU SDWADPVA 04236000 SDWAHEX EQU SDWADPVA 04237000 SDWAVRAL EQU SDWARA 04238000 @NM00119 EQU SDWA+396 04239000 SDWACOMP EQU SDWA+392 04240000 SDWARCPL EQU SDWA+364 04241000 @NM00118 EQU SDWADPSA+32 04242000 SDWATO4 EQU SDWADPSL+28 04243000 SDWAFRM4 EQU SDWADPSL+24 04244000 SDWATO3 EQU SDWADPSL+20 04245000 SDWAFRM3 EQU SDWADPSL+16 04246000 SDWATO2 EQU SDWADPSL+12 04247000 SDWAFRM2 EQU SDWADPSL+8 04248000 SDWATO1 EQU SDWADPSL+4 04249000 SDWAFRM1 EQU SDWADPSL 04250000 @NM00117 EQU SDWADDAT+3 04251000 @NM00116 EQU SDWAPDAT 04252000 SDWAUSPL EQU SDWAPDAT 04253000 SDWADPSW EQU SDWAPDAT 04254000 SDWATJPA EQU SDWAPDAT 04255000 SDWATLPA EQU SDWAPDAT 04256000 SDWADREG EQU SDWAPDAT 04257000 SDWADSAH EQU SDWAPDAT 04258000 SDWADSAS EQU SDWAPDAT 04259000 @NM00115 EQU SDWADDAT+1 04260000 @NM00114 EQU SDWASDAT 04261000 SDWAQQS EQU SDWASDAT 04262000 SDWACBS EQU SDWASDAT 04263000 SDWAGTF EQU SDWASDAT 04264000 SDWASWA EQU SDWASDAT 04265000 SDWALSQA EQU SDWASDAT 04266000 SDWASQA EQU SDWASDAT 04267000 SDWANUC EQU SDWASDAT 04268000 @NM00113 EQU SDWADUMP+2 04269000 @NM00112 EQU SDWADPFS 04270000 SDWASLST EQU SDWADPFS 04271000 @NM00111 EQU SDWADPFS 04272000 SDWADLST EQU SDWADPFS 04273000 SDWADPT EQU SDWADPFS 04274000 SDWADPID EQU SDWADUMP 04275000 SDWADPLA EQU SDWA+316 04276000 SDWAREXN EQU SDWARECP+16 04277000 SDWACSCT EQU SDWARECP+8 04278000 SDWAMODN EQU SDWARECP 04279000 @NM00110 EQU SDWA+290 04280000 SDWAASID EQU SDWA+288 04281000 SDWATALW EQU SDWALKWS+28 04282000 SDWATDLW EQU SDWALKWS+24 04283000 SDWATNLW EQU SDWALKWS+20 04284000 SDWAAPLW EQU SDWALKWS+16 04285000 SDWAIPLW EQU SDWALKWS+12 04286000 SDWAILLW EQU SDWALKWS+8 04287000 SDWAIULW EQU SDWALKWS+4 04288000 SDWAICLW EQU SDWALKWS 04289000 SDWAFLLK EQU SDWAACF4 04290000 SDWACMS EQU SDWAACF4 04291000 SDWAOPTM EQU SDWAACF4 04292000 SDWATADB EQU SDWAACF4 04293000 SDWATDNB EQU SDWAACF4 04294000 SDWATNCB EQU SDWAACF4 04295000 SDWAILCH EQU SDWAACF4 04296000 SDWAIUCB EQU SDWAACF4 04297000 SDWAICAT EQU SDWAACF3 04298000 SDWAIPRG EQU SDWAACF3 04299000 SDWASALL EQU SDWAACF3 04300000 SDWAASMP EQU SDWAACF3 04301000 SDWADISP EQU SDWAACF3 04302000 @NM00109 EQU SDWAACF3 04303000 @NM00108 EQU SDWAACF2 04304000 SDWAFREE EQU SDWAACF2 04305000 SDWAUPRG EQU SDWAACF2 04306000 @NM00107 EQU SDWAACF2 04307000 SDWASPIN EQU SDWAACF2 04308000 @NM00106 EQU SDWAACF2 04309000 SDWARCRD EQU SDWAACF2 04310000 SDWARCDE EQU SDWAPARQ 04311000 SDWALCPU EQU SDWACPUA+2 04312000 @NM00105 EQU SDWACPUA 04313000 SDWARECA EQU SDWA+244 04314000 SDWARTYA EQU SDWA+240 04315000 @NM00104 EQU SDWA+239 04316000 @NM00103 EQU SDWAIOFS 04317000 SDWANIOP EQU SDWAIOFS 04318000 SDWANOIO EQU SDWAIOFS 04319000 SDWAIOHT EQU SDWAIOFS 04320000 SDWAIOQR EQU SDWAIOFS 04321000 SDWAFMID EQU SDWA+236 04322000 @NM00102 EQU SDWAERRD 04323000 SDWAMCIV EQU SDWAERRD 04324000 SDWARPIV EQU SDWAERRD 04325000 SDWAMABD EQU SDWAERRD 04326000 SDWACTS EQU SDWAERRD 04327000 SDWASTAE EQU SDWAERRD 04328000 SDWANRBE EQU SDWAERRD 04329000 SDWACLUP EQU SDWAERRD 04330000 @NM00101 EQU SDWAERRC 04331000 SDWAEAS EQU SDWAERRC 04332000 SDWAPERC EQU SDWAERRC 04333000 SDWAIRB EQU SDWAERRC 04334000 SDWASTAI EQU SDWAERRC 04335000 SDWASTAF EQU SDWAERRC 04336000 SDWASRBM EQU SDWAERRB 04337000 SDWALDIS EQU SDWAERRB 04338000 SDWAENRB EQU SDWAERRB 04339000 SDWATYP1 EQU SDWAERRB 04340000 @NM00100 EQU SDWAERRB 04341000 SDWAPGIO EQU SDWAERRA 04342000 SDWATEXC EQU SDWAERRA 04343000 SDWASVCE EQU SDWAERRA 04344000 SDWAABTM EQU SDWAERRA 04345000 SDWASVCD EQU SDWAERRA 04346000 SDWARKEY EQU SDWAERRA 04347000 SDWAPCHK EQU SDWAERRA 04348000 SDWAMCHK EQU SDWAERRA 04349000 SDWATIME EQU SDWAMCH+20 04350000 SDWARFSA EQU SDWAMCH+16 04351000 @NM00099 EQU SDWAMCH+14 04352000 SDWAVEQR EQU SDWARSR2 04353000 SDWAPGFX EQU SDWARSR2 04354000 SDWAFLSQ EQU SDWARSR2 04355000 SDWAFSQA EQU SDWARSR2 04356000 SDWANUCL EQU SDWARSR2 04357000 SDWASPER EQU SDWARSR2 04358000 SDWAINTC EQU SDWARSR2 04359000 SDWAOFLN EQU SDWARSR2 04360000 SDWACHNG EQU SDWARSR1 04361000 SDWAMSER EQU SDWARSR1 04362000 @NM00098 EQU SDWARSR1 04363000 SDWACPID EQU SDWAMCH+10 04364000 SDWATERR EQU SDWAMCHD 04365000 SDWAFPRX EQU SDWAMCHD 04366000 SDWAINSF EQU SDWAMCHD 04367000 SDWAACR EQU SDWAMCHD 04368000 SDWASCK EQU SDWAMCHD 04369000 SDWAPSWU EQU SDWAMCHD 04370000 SDWAREGU EQU SDWAMCHD 04371000 SDWASKYF EQU SDWAMCHD 04372000 @NM00097 EQU SDWAMCHS 04373000 SDWARSRF EQU SDWAMCHS 04374000 SDWARSRC EQU SDWAMCHS 04375000 SDWAINVP EQU SDWAMCHS 04376000 SDWATSVL EQU SDWAMCHS 04377000 SDWARCDF EQU SDWAMCHS 04378000 SDWASRVL EQU SDWAMCHS 04379000 SDWASCKE EQU SDWASTCK+4 04380000 SDWASCKB EQU SDWASTCK 04381000 SDWALNTH EQU SDWAIDNT+1 04382000 SDWASPID EQU SDWAIDNT 04383000 SDWASR15 EQU SDWASRSV+60 04384000 SDWASR14 EQU SDWASRSV+56 04385000 SDWASR13 EQU SDWASRSV+52 04386000 SDWASR12 EQU SDWASRSV+48 04387000 SDWASR11 EQU SDWASRSV+44 04388000 SDWASR10 EQU SDWASRSV+40 04389000 SDWASR09 EQU SDWASRSV+36 04390000 SDWASR08 EQU SDWASRSV+32 04391000 SDWASR07 EQU SDWASRSV+28 04392000 SDWASR06 EQU SDWASRSV+24 04393000 SDWASR05 EQU SDWASRSV+20 04394000 SDWASR04 EQU SDWASRSV+16 04395000 SDWASR03 EQU SDWASRSV+12 04396000 SDWASR02 EQU SDWASRSV+8 04397000 SDWASR01 EQU SDWASRSV+4 04398000 SDWASR00 EQU SDWASRSV 04399000 SDWATRN2 EQU SDWAAEC2+4 04400000 SDWAIPC2 EQU SDWAICD2 04401000 SDWAIMC2 EQU SDWAICD2 04402000 SDWAIPR2 EQU SDWAICD2 04403000 @NM00096 EQU SDWAINC2 04404000 @NM00095 EQU SDWAILC2 04405000 SDWAIL2 EQU SDWAILC2 04406000 @NM00094 EQU SDWAILC2 04407000 @NM00093 EQU SDWAAEC2 04408000 SDWAADD2 EQU SDWANXT2+1 04409000 @NM00092 EQU SDWANXT2 04410000 @NM00091 EQU SDWAEC2+3 04411000 SDWASGN2 EQU SDWAINT2 04412000 SDWAEXP2 EQU SDWAINT2 04413000 SDWADEC2 EQU SDWAINT2 04414000 SDWAFPO2 EQU SDWAINT2 04415000 SDWACC2 EQU SDWAINT2 04416000 @NM00090 EQU SDWAINT2 04417000 SDWAPGM2 EQU SDWAMWP2 04418000 SDWAWAT2 EQU SDWAMWP2 04419000 SDWAMCK2 EQU SDWAMWP2 04420000 SDWAECT2 EQU SDWAMWP2 04421000 SDWAKEY2 EQU SDWAMWP2 04422000 SDWAEXT2 EQU SDWAEMK2 04423000 SDWAIO2 EQU SDWAEMK2 04424000 SDWATRM2 EQU SDWAEMK2 04425000 @NM00089 EQU SDWAEMK2 04426000 SDWAPER2 EQU SDWAEMK2 04427000 @NM00088 EQU SDWAEMK2 04428000 SDWATRAN EQU SDWAAEC1+4 04429000 SDWAIPC1 EQU SDWAICD1 04430000 SDWAIMC1 EQU SDWAICD1 04431000 SDWAIPR1 EQU SDWAICD1 04432000 @NM00087 EQU SDWAINC1 04433000 @NM00086 EQU SDWAILC1 04434000 SDWAIL1 EQU SDWAILC1 04435000 @NM00085 EQU SDWAILC1 04436000 @NM00084 EQU SDWAAEC1 04437000 SDWAADD1 EQU SDWANXT1+1 04438000 @NM00083 EQU SDWANXT1 04439000 @NM00082 EQU SDWAEC1+3 04440000 SDWASGN1 EQU SDWAINT1 04441000 SDWAEXP1 EQU SDWAINT1 04442000 SDWADEC1 EQU SDWAINT1 04443000 SDWAFPO1 EQU SDWAINT1 04444000 SDWACC1 EQU SDWAINT1 04445000 @NM00081 EQU SDWAINT1 04446000 SDWAPGM1 EQU SDWAMWP1 04447000 SDWAWAT1 EQU SDWAMWP1 04448000 SDWAMCK1 EQU SDWAMWP1 04449000 SDWAECT1 EQU SDWAMWP1 04450000 SDWAKEY1 EQU SDWAMWP1 04451000 SDWAEXT1 EQU SDWAEMK1 04452000 SDWAIO1 EQU SDWAEMK1 04453000 SDWATRM1 EQU SDWAEMK1 04454000 @NM00080 EQU SDWAEMK1 04455000 SDWAPER1 EQU SDWAEMK1 04456000 @NM00079 EQU SDWAEMK1 04457000 SDWAIOBR EQU SDWA+100 04458000 SDWAEPA EQU SDWA+96 04459000 @NM00078 EQU SDWANAME+4 04460000 SDWARBAD EQU SDWANAME 04461000 SDWAGR15 EQU SDWAGRSV+60 04462000 SDWAGR14 EQU SDWAGRSV+56 04463000 SDWAGR13 EQU SDWAGRSV+52 04464000 SDWAGR12 EQU SDWAGRSV+48 04465000 SDWAGR11 EQU SDWAGRSV+44 04466000 SDWAGR10 EQU SDWAGRSV+40 04467000 SDWAGR09 EQU SDWAGRSV+36 04468000 SDWAGR08 EQU SDWAGRSV+32 04469000 SDWAGR07 EQU SDWAGRSV+28 04470000 SDWAGR06 EQU SDWAGRSV+24 04471000 SDWAGR05 EQU SDWAGRSV+20 04472000 SDWAGR04 EQU SDWAGRSV+16 04473000 SDWAGR03 EQU SDWAGRSV+12 04474000 SDWAGR02 EQU SDWAGRSV+8 04475000 SDWAGR01 EQU SDWAGRSV+4 04476000 SDWAGR00 EQU SDWAGRSV 04477000 SDWANXTP EQU SDWACTL2+5 04478000 SDWASGP EQU SDWAPMKP 04479000 SDWAEUP EQU SDWAPMKP 04480000 SDWADOP EQU SDWAPMKP 04481000 SDWAFPP EQU SDWAPMKP 04482000 SDWACCP EQU SDWAPMKP 04483000 SDWAILP EQU SDWAPMKP 04484000 SDWAINTP EQU SDWACTL2+2 04485000 SDWASPVP EQU SDWAMWPP 04486000 SDWAWATP EQU SDWAMWPP 04487000 SDWAMCKP EQU SDWAMWPP 04488000 @NM00077 EQU SDWAMWPP 04489000 SDWAKEYP EQU SDWAMWPP 04490000 SDWAEXTP EQU SDWACMKP 04491000 SDWAIOP EQU SDWACMKP 04492000 SDWANXTA EQU SDWACTL1+5 04493000 SDWASGA EQU SDWAPMKA 04494000 SDWAEUA EQU SDWAPMKA 04495000 SDWADOA EQU SDWAPMKA 04496000 SDWAFPA EQU SDWAPMKA 04497000 SDWACCA EQU SDWAPMKA 04498000 SDWAILA EQU SDWAPMKA 04499000 SDWAINTA EQU SDWACTL1+2 04500000 SDWASPVA EQU SDWAMWPA 04501000 SDWAWATA EQU SDWAMWPA 04502000 SDWAMCKA EQU SDWAMWPA 04503000 @NM00076 EQU SDWAMWPA 04504000 SDWAKEYA EQU SDWAMWPA 04505000 SDWAEXTA EQU SDWACMKA 04506000 SDWAIOA EQU SDWACMKA 04507000 SDWACMPC EQU SDWAABCC+1 04508000 @NM00075 EQU SDWACMPF 04509000 SDWASTCC EQU SDWACMPF 04510000 @NM00074 EQU SDWACMPF 04511000 SDWASTEP EQU SDWACMPF 04512000 SDWAREQ EQU SDWACMPF 04513000 SDWAPARM EQU SDWA 04514000 @NM00073 EQU SRB+40 04515000 @NM00072 EQU SRB+38 04516000 SRBID EQU SRB 04517000 IQEOUTLM EQU IQESECT+20 04518000 IQEDCB EQU IQESECT+16 04519000 IQETCBA EQU IQETCB+1 04520000 IQESTAT2 EQU IQETCB 04521000 @NM00071 EQU IQEFLAGS 04522000 @NM00070 EQU IQEFLAGS 04523000 @NM00069 EQU IQEFLAGS 04524000 @NM00068 EQU IQEFLAGS 04525000 @NM00067 EQU IQEFLAGS 04526000 @NM00066 EQU IQEFLAGS 04527000 @NM00065 EQU IQEFLAGS 04528000 IQEPURGE EQU IQEFLAGS 04529000 IQELNKA EQU IQELNK+1 04530000 IQESTAT1 EQU IQELNK 04531000 SVRBEND EQU RBSECT+192 04532000 RBFEPARM EQU RBSECT+168 04533000 SIRBEND EQU RBSECT+168 04534000 RBRSV158 EQU RBRSV150 04535000 RBRSV157 EQU RBRSV150 04536000 RBRSV156 EQU RBRSV150 04537000 RBRSV155 EQU RBRSV150 04538000 RBRSV154 EQU RBRSV150 04539000 RBRSV153 EQU RBRSV150 04540000 RBRSV152 EQU RBRSV150 04541000 RBRSV151 EQU RBRSV150 04542000 RBRSV149 EQU RBSECT+166 04543000 RBRSV148 EQU RBSECT+164 04544000 RBRSV169 EQU RBSDATA+3 04545000 RBSID EQU RBSDATA+2 04546000 RBSPKEY EQU RBSDATA+1 04547000 RBRSV168 EQU RBSFLG3 04548000 RBSTERMO EQU RBSFLG3 04549000 RBSBRNTR EQU RBSFLG3 04550000 RBSPRNTR EQU RBSFLG3 04551000 RBSCNCEL EQU RBSFLG3 04552000 RBSRECRD EQU RBSFLG3 04553000 RBSTERMI EQU RBSFLG3 04554000 RBRSV167 EQU RBSFLG3 04555000 RBSOWNRA EQU RBSOWNR+1 04556000 RBSSUPER EQU RBSFLGS2 04557000 RBSKEY0 EQU RBSFLGS2 04558000 RBRSV166 EQU RBSFLGS2 04559000 RBRSV165 EQU RBSFLGS2 04560000 RBSINUSE EQU RBSFLGS2 04561000 RBRSV164 EQU RBSFLGS2 04562000 RBSXCTL2 EQU RBSFLGS2 04563000 RBRSV163 EQU RBSFLGS2 04564000 RBSPARMA EQU RBSPARM+1 04565000 RBSHALT EQU RBSIOPRC 04566000 RBSNOIOP EQU RBSIOPRC 04567000 RBSASYNC EQU RBSFLGS1 04568000 RBRSV162 EQU RBSFLGS1 04569000 RBSESTAE EQU RBSFLGS1 04570000 RBSDUMMY EQU RBSFLGS1 04571000 RBSSTAR EQU RBSFLGS1 04572000 RBSSTAI EQU RBSFLGS1 04573000 RBSEXIT EQU RBSCBB+4 04574000 RBSCHAIN EQU RBSCBB 04575000 TIRBEND EQU @NM00063+8 04576000 PRBEND EQU @NM00063+8 04577000 RBRSV146 EQU RBRSV138 04578000 RBRSV145 EQU RBRSV138 04579000 RBRSV144 EQU RBRSV138 04580000 RBRSV143 EQU RBRSV138 04581000 RBRSV142 EQU RBRSV138 04582000 RBRSV141 EQU RBRSV138 04583000 RBRSV140 EQU RBRSV138 04584000 RBRSV139 EQU RBRSV138 04585000 RBRSV137 EQU @NM00063+6 04586000 RBRSV136 EQU @NM00063+4 04587000 RBRSV135 EQU @NM00063 04588000 @NM00062 EQU RBSECT+32 04589000 @NM00061 EQU @NM00059+1 04590000 RBSCF EQU @NM00060 04591000 RBPGMQ1 EQU RBPGMQ+1 04592000 @NM00058 EQU RBPGMQ 04593000 @NM00057 EQU RBSECT+16 04594000 @NM00056 EQU @NM00052 04595000 @NM00055 EQU @NM00052 04596000 RBIQETP EQU @NM00052 04597000 RBUSIQE EQU RBETXR 04598000 RBATTN EQU @NM00052 04599000 @NM00054 EQU @NM00052 04600000 @NM00053 EQU @NM00052 04601000 RBPMSVRB EQU @NM00050 04602000 RBATNXIT EQU @NM00050 04603000 @NM00051 EQU @NM00050 04604000 RBWAITP EQU @NM00050 04605000 RBFNSVRB EQU RBTRSVRB 04606000 RBFTP EQU @NM00050 04607000 RBABOPSW EQU RBSECT+4 04608000 RBPPSAV1 EQU RBPPSAV+1 04609000 @NM00048 EQU RBPPSAV 04610000 RBPRFXND EQU RBPREFIX+64 04611000 RBINTCOD EQU RBINTCDA+1 04612000 RBINLNTH EQU RBINTCDA 04613000 RBRSV004 EQU RBPREFIX+57 04614000 RBSSSYN EQU RBFLAGS1 04615000 RBSCB EQU RBFLAGS1 04616000 RBLONGWT EQU RBFLAGS1 04617000 RBASIR EQU RBFLAGS1 04618000 RBRSV159 EQU RBFLAGS1 04619000 RBABEND EQU RBFLAGS1 04620000 RBXWAIT EQU RBFLAGS1 04621000 RBSLOCK EQU RBFLAGS1 04622000 RBRTRAN EQU RBRTPSW2+4 04623000 RBRTINCD EQU RBRTICIL+2 04624000 RBRTILC EQU RBRTICIL+1 04625000 RBRSV160 EQU RBRTICIL 04626000 RBRTPSW1 EQU RBRTOPSW 04627000 RBRSV062 EQU RBRSV054 04628000 RBRSV061 EQU RBRSV054 04629000 RBRSV060 EQU RBRSV054 04630000 RBRSV059 EQU RBRSV054 04631000 RBRSV058 EQU RBRSV054 04632000 RBRSV057 EQU RBRSV054 04633000 RBRSV056 EQU RBRSV054 04634000 RBRSV055 EQU RBRSV054 04635000 RBRSV053 EQU RBPREFIX+38 04636000 RBRSV052 EQU RBPREFIX+36 04637000 RBRSV051 EQU RBPREFIX+32 04638000 RBPRFXST EQU RBPREFIX+32 04639000 RBRSV050 EQU RBPREFIX+28 04640000 RBRSV049 EQU RBRSV041 04641000 RBRSV048 EQU RBRSV041 04642000 RBRSV047 EQU RBRSV041 04643000 RBRSV046 EQU RBRSV041 04644000 RBRSV045 EQU RBRSV041 04645000 RBRSV044 EQU RBRSV041 04646000 RBRSV043 EQU RBRSV041 04647000 RBRSV042 EQU RBRSV041 04648000 RBRSV040 EQU RBPREFIX+26 04649000 RBRSV039 EQU RBPREFIX+24 04650000 RBRSV038 EQU RBPREFIX+20 04651000 RBRSV037 EQU RBPREFIX+16 04652000 RBRSV036 EQU RBRSV028 04653000 RBRSV035 EQU RBRSV028 04654000 RBRSV034 EQU RBRSV028 04655000 RBRSV033 EQU RBRSV028 04656000 RBRSV032 EQU RBRSV028 04657000 RBRSV031 EQU RBRSV028 04658000 RBRSV030 EQU RBRSV028 04659000 RBRSV029 EQU RBRSV028 04660000 RBRSV027 EQU RBRSV019 04661000 RBRSV026 EQU RBRSV019 04662000 RBRSV025 EQU RBRSV019 04663000 RBRSV024 EQU RBRSV019 04664000 RBRSV023 EQU RBRSV019 04665000 RBRSV022 EQU RBRSV019 04666000 RBRSV021 EQU RBRSV019 04667000 RBRSV020 EQU RBRSV019 04668000 RBRSV018 EQU RBPREFIX+13 04669000 RBRSV017 EQU RBPREFIX+12 04670000 RBSRV016 EQU RBPREFIX+11 04671000 RBRSV015 EQU RBPREFIX+10 04672000 RBRSV014 EQU RBPREFIX+8 04673000 RBRSV013 EQU RBPREFIX+4 04674000 RBRSV012 EQU RBPREFIX 04675000 RBEXSAVE EQU XRBESA 04676000 XRBREG15 EQU RBGRS15 04677000 XRBREG14 EQU RBGRS14 04678000 XRBREG13 EQU RBGRS13 04679000 XRBREG12 EQU RBGRS12 04680000 XRBREG11 EQU RBGRS11 04681000 XRBREG10 EQU RBGRS10 04682000 XRBREG9 EQU RBGRS9 04683000 XRBREG8 EQU RBGRS8 04684000 XRBREG7 EQU RBGRS7 04685000 XRBREG6 EQU RBGRS6 04686000 XRBREG5 EQU RBGRS5 04687000 XRBREG4 EQU RBGRS4 04688000 XRBREG3 EQU RBGRS3 04689000 XRBREG2 EQU RBGRS2 04690000 XRBREG1 EQU RBGRS1 04691000 XRBREG0 EQU RBGRS0 04692000 XRBLNKA EQU RBLINKB 04693000 XRBWT EQU RBWCF 04694000 @NM00047 EQU RBBASIC+24 04695000 RBOPSWPS EQU RBOPSWB2 04696000 @NM00046 EQU RBOPSWB2 04697000 @NM00045 EQU XRBPSW 04698000 @NM00044 EQU RBBASIC+12 04699000 XRBWAIT EQU RBECBWT 04700000 XRBFRRB EQU RBFDYN 04701000 @NM00043 EQU XSTAB2 04702000 XRBACTV EQU RBFACTV 04703000 XRBTCBP EQU RBTCBNXT 04704000 @NM00042 EQU XSTAB1 04705000 XRBCKPT EQU RBFTCKPT 04706000 @NM00041 EQU XSTAB1 04707000 @NM00040 EQU RBBASIC+8 04708000 @NM00039 EQU RBEXRTNM+1 04709000 RBTMIND3 EQU RBTMFLD 04710000 RBTMIND2 EQU RBTMFLD 04711000 RBTMCMP EQU RBTMFLD 04712000 RBWLIM EQU RBTMFLD 04713000 RBRSV005 EQU RBTMFLD 04714000 RBTMTOD EQU RBTMFLD 04715000 RBTMQUE EQU RBTMFLD 04716000 @NM00038 EQU RBPRFX 04717000 JSCBCSCB EQU JSCBSEC1+68 04718000 JSCBPMG EQU JSCBWTP+2 04719000 JSCBWTSP EQU JSCBWTP+1 04720000 JSCRSV23 EQU JSCBWTFG 04721000 JSCRSV22 EQU JSCBWTFG 04722000 JSCRSV21 EQU JSCBWTFG 04723000 JSCRSV20 EQU JSCBWTFG 04724000 JSCRSV19 EQU JSCBWTFG 04725000 JSCRSV18 EQU JSCBWTFG 04726000 JSCBRET EQU JSCBWTFG 04727000 JSCBIOFG EQU JSCBWTFG 04728000 @NM00035 EQU JSCBSEC1+60 04729000 JSCBQMPI EQU JSCBSEC1+56 04730000 JSCBPMSG EQU JSCBSWT1 04731000 JSCRSV16 EQU JSCBSWT1 04732000 JSCRSV15 EQU JSCBSWT1 04733000 JSCRSV14 EQU JSCBSWT1 04734000 JSCRSV13 EQU JSCBSWT1 04735000 JSCRSV12 EQU JSCBSWT1 04736000 JSCRSV11 EQU JSCBSWT1 04737000 JSCBPASS EQU JSCBSWT1 04738000 JSCBTTTR EQU JSCBSEC1+52 04739000 JSCRSV10 EQU JSCBSEC1+49 04740000 JSCBAUTH EQU JSCBOPTS 04741000 JSCSIOTS EQU JSCBOPTS 04742000 JSCRSV08 EQU JSCBOPTS 04743000 JSCRSV07 EQU JSCBOPTS 04744000 JSCRSV06 EQU JSCBOPTS 04745000 JSCBLONG EQU JSCBOPTS 04746000 JSCRSV05 EQU JSCBOPTS 04747000 JSCRSV04 EQU JSCBOPTS 04748000 JSCBSECB EQU JSCBSEC1+44 04749000 JSCRSV03 EQU JSCBSEC1+41 04750000 JSCBSTEP EQU JSCBSEC1+40 04751000 JSCBDCBA EQU JSCBDCB+1 04752000 JSCRSV02 EQU JSCBDCB 04753000 JSCBID EQU JSCBSEC1+32 04754000 JSCBDBTB EQU JSCBSEC1+28 04755000 JSCBIJSC EQU JSCBSEC1+24 04756000 JSCBPCC EQU JSCBSEC1+16 04757000 JSCBTCP EQU JSCBSEC1+12 04758000 JSCBSHR EQU JSCBSEC1+8 04759000 JSCHPCEA EQU JSCHPCE+1 04760000 JSCRSV32 EQU JSCHPCE 04761000 JSCRSV01 EQU JSCBSEC1 04762000 @NM00034 EQU IEZJSCB 04763000 @NM00033 EQU TCBXTNT2+32 04764000 TCBRV181 EQU TCBRV173 04765000 TCBRV180 EQU TCBRV173 04766000 TCBRV179 EQU TCBRV173 04767000 TCBRV178 EQU TCBRV173 04768000 TCBRV177 EQU TCBRV173 04769000 TCBRV176 EQU TCBRV173 04770000 TCBRV175 EQU TCBRV173 04771000 TCBRV174 EQU TCBRV173 04772000 TCBRV172 EQU TCBRV164 04773000 TCBRV171 EQU TCBRV164 04774000 TCBRV170 EQU TCBRV164 04775000 TCBRV169 EQU TCBRV164 04776000 TCBRV168 EQU TCBRV164 04777000 TCBRV167 EQU TCBRV164 04778000 TCBRV166 EQU TCBRV164 04779000 TCBRV165 EQU TCBRV164 04780000 TCBRV163 EQU TCBRV155 04781000 TCBRV162 EQU TCBRV155 04782000 TCBRV161 EQU TCBRV155 04783000 TCBRV160 EQU TCBRV155 04784000 TCBRV159 EQU TCBRV155 04785000 TCBRV158 EQU TCBRV155 04786000 TCBRV157 EQU TCBRV155 04787000 TCBRV156 EQU TCBRV155 04788000 TCBRV154 EQU TCBRV146 04789000 TCBRV153 EQU TCBRV146 04790000 TCBRV152 EQU TCBRV146 04791000 TCBRV151 EQU TCBRV146 04792000 TCBRV150 EQU TCBRV146 04793000 TCBRV149 EQU TCBRV146 04794000 TCBRV148 EQU TCBRV146 04795000 TCBRV147 EQU TCBRV146 04796000 TCBRV145 EQU TCBXTNT2+26 04797000 TCBRV144 EQU TCBXTNT2+24 04798000 TCBRV143 EQU TCBXTNT2+20 04799000 TCBRV142 EQU TCBXTNT2+16 04800000 TCBRSV49 EQU TCBXTNT2+12 04801000 TCBEVENT EQU TCBXTNT2+8 04802000 TCBRCMP EQU TCBXTNT2+5 04803000 TCBRSVAB EQU TCBXTNT2+4 04804000 TCBGTFA EQU TCBGTF+1 04805000 TCBRSV47 EQU TCBTFLG 04806000 TCBRSV46 EQU TCBTFLG 04807000 TCBRSV45 EQU TCBTFLG 04808000 TCBRSV44 EQU TCBTFLG 04809000 TCBRSV43 EQU TCBTFLG 04810000 TCBDSPIT EQU TCBTFLG 04811000 TCBERRTN EQU TCBTFLG 04812000 TCBASYNC EQU TCBTFLG 04813000 @NM00032 EQU TCB+296 04814000 TCBSVCA2 EQU TCB+292 04815000 TCBSWASA EQU TCB+288 04816000 TCBDBTB EQU TCB+284 04817000 TCBRPT EQU TCB+280 04818000 TCBRV141 EQU TCBRV133 04819000 TCBRV140 EQU TCBRV133 04820000 TCBRV139 EQU TCBRV133 04821000 TCBRV138 EQU TCBRV133 04822000 TCBRV137 EQU TCBRV133 04823000 TCBRV136 EQU TCBRV133 04824000 TCBRV135 EQU TCBRV133 04825000 TCBRV134 EQU TCBRV133 04826000 TCBRV132 EQU TCBRV124 04827000 TCBRV131 EQU TCBRV124 04828000 TCBRV130 EQU TCBRV124 04829000 TCBRV129 EQU TCBRV124 04830000 TCBRV128 EQU TCBRV124 04831000 TCBRV127 EQU TCBRV124 04832000 TCBRV126 EQU TCBRV124 04833000 TCBRV125 EQU TCBRV124 04834000 TCBRV123 EQU TCBFBYT2 04835000 TCBRV122 EQU TCBFBYT2 04836000 TCBECBNV EQU TCBFBYT2 04837000 TCBSSSYN EQU TCBFBYT2 04838000 TCBFPRAP EQU TCBFBYT2 04839000 TCBFDW EQU TCBFBYT2 04840000 TCBFMW EQU TCBFBYT2 04841000 TCBCNCB EQU TCBFBYT2 04842000 TCBLLH EQU TCBFBYT1 04843000 TCBRV113 EQU TCBFBYT1 04844000 TCBEOT EQU TCBFBYT1 04845000 TCBRTM2 EQU TCBFBYT1 04846000 TCBPGNLY EQU TCBFBYT1 04847000 TCBNDIOS EQU TCBFBYT1 04848000 TCBRV327 EQU TCBFBYT1 04849000 TCBEOTFM EQU TCBFBYT1 04850000 TCBAFFN EQU TCB+274 04851000 TCBRV326 EQU TCB+272 04852000 TCBUKYSP EQU TCB+268 04853000 TCBMODE EQU TCBESTAE+3 04854000 TCBERTYP EQU TCBESTAE+2 04855000 TCBRV314 EQU TCBESTRM 04856000 TCBRV313 EQU TCBESTRM 04857000 TCBRV312 EQU TCBESTRM 04858000 TCBRV311 EQU TCBESTRM 04859000 TCBRV310 EQU TCBESTRM 04860000 TCBRV309 EQU TCBESTRM 04861000 TCBRV308 EQU TCBESTRM 04862000 TCBETERM EQU TCBESTRM 04863000 TCBSCBKY EQU TCBESTAE 04864000 TCBRTM12 EQU TCB+260 04865000 TCBTCBID EQU TCB+256 04866000 TCBSTAWA EQU TCB+252 04867000 TCBSWA EQU TCB+248 04868000 TCBFOEA EQU TCBFOE+1 04869000 TCBRSV42 EQU TCBFOE 04870000 TCBCCPVI EQU TCBXSCT+2 04871000 TCBRV325 EQU TCBXSCT+1 04872000 TCBRV324 EQU TCBXSCT1 04873000 TCBRV323 EQU TCBXSCT1 04874000 TCBRV322 EQU TCBXSCT1 04875000 TCBRV321 EQU TCBXSCT1 04876000 TCBRV320 EQU TCBXSCT1 04877000 TCBRV319 EQU TCBXSCT1 04878000 TCBS3A EQU TCBXSCT1 04879000 TCBACTIV EQU TCBXSCT1 04880000 TCBRSV41 EQU TCB+239 04881000 TCBTID EQU TCB+238 04882000 TCBRSVAA EQU TCB+237 04883000 TCBABCUR EQU TCB+236 04884000 TCBTMSAV EQU TCB+232 04885000 TCBIOTIM EQU TCB+228 04886000 TCBRTWA EQU TCB+224 04887000 TCBBACK EQU TCB+220 04888000 TCBTIRB EQU TCB+216 04889000 TCBAECB EQU TCB+212 04890000 TCBEXT2A EQU TCBEXT2+1 04891000 TCBRSV39 EQU TCBEXT2 04892000 TCBSTMCT EQU TCB+207 04893000 TCBSYSCT EQU TCB+206 04894000 TCBRSV37 EQU TCB+205 04895000 TCBEXSVC EQU TCBDAR 04896000 TCBDARMS EQU TCBDAR 04897000 TCBDARWT EQU TCBDAR 04898000 TCBDARO EQU TCBDAR 04899000 TCBDARMC EQU TCBDARC 04900000 TCBDARD EQU TCBDAR 04901000 TCBDARS EQU TCBDAR 04902000 TCBDARP EQU TCBDAR 04903000 TCBGTOFM EQU TCBFLGS7 04904000 TCBADMP EQU TCBFLGS7 04905000 TCBRSTSK EQU TCBFLGS7 04906000 TCBSVCS EQU TCBFLGS7 04907000 TCBSTACK EQU TCBFLGS7 04908000 TCBRSV34 EQU TCBFLGS7 04909000 TCBRSV33 EQU TCBFLGS7 04910000 TCBGPECB EQU TCBFLGS7 04911000 TCBNTJS EQU TCBFLGS6 04912000 TCBAPG EQU TCBFLGS6 04913000 TCBMIGR EQU TCBFLGS6 04914000 TCBRV303 EQU TCBFLGS6 04915000 TCBSPVLK EQU TCBFLGS6 04916000 TCBCPU EQU TCBFLGS6 04917000 TCBPIE17 EQU TCBFLGS6 04918000 TCBRV EQU TCBFLGS6 04919000 TCBRSV79 EQU TCBNDSP5 04920000 TCBRSV78 EQU TCBNDSP5 04921000 TCBRSV77 EQU TCBNDSP5 04922000 TCBRSV76 EQU TCBNDSP5 04923000 TCBRSV75 EQU TCBNDSP5 04924000 TCBRSV74 EQU TCBNDSP5 04925000 TCBRSV95 EQU TCBNDSP5 04926000 TCBRSV94 EQU TCBNDSP5 04927000 TCBRSV93 EQU TCBNDSP4 04928000 TCBRSV92 EQU TCBNDSP4 04929000 TCBRSV91 EQU TCBNDSP4 04930000 TCBRSV90 EQU TCBNDSP4 04931000 TCBRSV89 EQU TCBNDSP4 04932000 TCBRSV88 EQU TCBNDSP4 04933000 TCBRSV87 EQU TCBNDSP4 04934000 TCBRSV86 EQU TCBNDSP4 04935000 TCBEXT1A EQU TCBEXT1+1 04936000 TCBRSV32 EQU TCBEXT1 04937000 TCBEXCPD EQU TCB+192 04938000 TCBIOBRC EQU TCB+188 04939000 TCBDDWTC EQU TCB+186 04940000 TCBDDEXC EQU TCB+184 04941000 TCBJSCBB EQU TCBJSCB+1 04942000 @NM00031 EQU TCBRECDE 04943000 TCBREC EQU TCBRECDE 04944000 TCBMDIDS EQU TCB+176 04945000 TCBNDINT EQU TCBNDSP3 04946000 TCBRSV27 EQU TCBNDSP3 04947000 TCBRSV26 EQU TCBNDSP3 04948000 TCBRSV25 EQU TCBNDSP3 04949000 TCBRSV24 EQU TCBNDSP3 04950000 TCBSRBND EQU TCBNDSP3 04951000 TCBRV302 EQU TCBNDSP3 04952000 TCBLJSND EQU TCBNDSP3 04953000 TCBABE EQU TCBNDSP2 04954000 TCBDSS EQU TCBNDSP2 04955000 TCBOWAIT EQU TCBNDSP2 04956000 TCBIWAIT EQU TCBNDSP2 04957000 TCBNDTS EQU TCBNDSP2 04958000 TCBNDSVC EQU TCBNDSP2 04959000 TCBSTPP EQU TCBNDSP2 04960000 TCBABD EQU TCBNDSP2 04961000 TCBRSV22 EQU TCBNDSP1 04962000 TCBPIEND EQU TCBNDSP1 04963000 TCBTPSP EQU TCBNDSP1 04964000 TCBDDRND EQU TCBNDSP1 04965000 TCBRSPND EQU TCBNDSP1 04966000 TCBRSTND EQU TCBNDSP1 04967000 TCBDARPN EQU TCBNDSP1 04968000 TCBDARTN EQU TCBNDSP1 04969000 TCBNDSP0 EQU TCBNDSP 04970000 TCBUSER EQU TCB+168 04971000 TCBTCTB EQU TCBTCT+1 04972000 TCBRSV9C EQU TCBTCTGF 04973000 TCBRSV9B EQU TCBTCTGF 04974000 TCBRSV9A EQU TCBTCTGF 04975000 TCBRSV99 EQU TCBTCTGF 04976000 TCBRSV98 EQU TCBTCTGF 04977000 TCBRSV97 EQU TCBTCTGF 04978000 TCBRSV20 EQU TCBTCTGF 04979000 TCBSMFGF EQU TCBTCTGF 04980000 TCBSTABB EQU TCBSTAB+1 04981000 TCBSTCUR EQU TCBNSTAE 04982000 TCBRV301 EQU TCBNSTAE 04983000 TCBSYNCH EQU TCBNSTAE 04984000 TCBHALT EQU TCBNSTAE 04985000 TCBPPSUP EQU TCBNSTAE 04986000 TCB33E EQU TCBNSTAE 04987000 TCBQUIES EQU TCBNSTAE 04988000 TCBSTABE EQU TCBNSTAE 04989000 TCBAQE EQU TCB+156 04990000 TCBPQE EQU TCB+152 04991000 TCBTSDP EQU TCB+151 04992000 TCBTSLP EQU TCB+150 04993000 TCBSTPCT EQU TCB+149 04994000 TCBCPUBN EQU TCBTSFLG 04995000 TCBDYDSP EQU TCBTSFLG 04996000 TCBRSV18 EQU TCBTSFLG 04997000 TCBRSV17 EQU TCBTSFLG 04998000 TCBTIOTG EQU TCBTSFLG 04999000 TCBATT EQU TCBTSFLG 05000000 TCBSTPPR EQU TCBTSFLG 05001000 TCBRV300 EQU TCBTSTSK 05002000 TCBECB EQU TCB+144 05003000 TCBIQE EQU TCB+140 05004000 TCBLTC EQU TCB+136 05005000 TCBOTC EQU TCB+132 05006000 TCBNTC EQU TCB+128 05007000 TCBJSTCA EQU TCBJSTCB+1 05008000 TCBRSV16 EQU TCBJSTCB 05009000 TCBTCB EQU TCB+116 05010000 TCBFSAB EQU TCBFSA+1 05011000 TCBQEL EQU TCBFSA 05012000 TCBGRS15 EQU TCBGRS+60 05013000 TCBGRS14 EQU TCBGRS+56 05014000 TCBGRS13 EQU TCBGRS+52 05015000 TCBGRS12 EQU TCBGRS+48 05016000 TCBGRS11 EQU TCBGRS+44 05017000 TCBGRS10 EQU TCBGRS+40 05018000 TCBGRS9 EQU TCBGRS+36 05019000 TCBGRS8 EQU TCBGRS+32 05020000 TCBGRS7 EQU TCBGRS+28 05021000 TCBGRS6 EQU TCBGRS+24 05022000 TCBGRS5 EQU TCBGRS+20 05023000 TCBGRS4 EQU TCBGRS+16 05024000 TCBGRS3 EQU TCBGRS+12 05025000 TCBGRS2 EQU TCBGRS+8 05026000 TCBGRS1 EQU TCBGRS+4 05027000 TCBGRS0 EQU TCBGRS 05028000 TCBJPQB EQU TCBJPQ+1 05029000 TCBRSV15 EQU TCBPURGE 05030000 TCBRSV14 EQU TCBPURGE 05031000 TCBRSV13 EQU TCBPURGE 05032000 TCBRSV12 EQU TCBPURGE 05033000 TCBRSV11 EQU TCBPURGE 05034000 TCBRSV10 EQU TCBPURGE 05035000 TCBRSV09 EQU TCBPURGE 05036000 TCBJPQF EQU TCBPURGE 05037000 TCBJLB EQU TCB+40 05038000 TCBLLS EQU TCB+36 05039000 TCBDSP EQU TCB+35 05040000 TCBLMP EQU TCB+34 05041000 TCBPNDSP EQU TCBFLGS5 05042000 TCBFCD1 EQU TCBFLGS5 05043000 TCBSTP EQU TCBFLGS5 05044000 TCBSYS EQU TCBFLGS5 05045000 TCBANDSP EQU TCBFLGS5 05046000 TCBPAGE EQU TCBFLGS5 05047000 TCBUXNDF EQU TCBABWF 05048000 TCBFC EQU TCBFLGS5 05049000 TCBONDSP EQU TCBFLGS4 05050000 TCBMPCND EQU TCBFLGS4 05051000 TCBMPCVQ EQU TCBFLGS4 05052000 TCBUXNDV EQU TCBFLGS4 05053000 TCBHNDSP EQU TCBFLGS4 05054000 TCBRQENA EQU TCBFLGS4 05055000 TCBSER EQU TCBFLGS4 05056000 TCBNDUMP EQU TCBFLGS4 05057000 TCBDWSTA EQU TCBFLGS3 05058000 TCBRSV08 EQU TCBFLGS3 05059000 TCBRSV07 EQU TCBFLGS3 05060000 TCBRSV06 EQU TCBFLGS3 05061000 TCBABGM EQU TCBFLGS3 05062000 TCBABTRM EQU TCBFLGS3 05063000 TCBADINP EQU TCBFLGS3 05064000 TCBFSM EQU TCBFLGS3 05065000 TCBFTS EQU TCBFLGS2 05066000 TCBFETXR EQU TCBFLGS2 05067000 TCBFDSOP EQU TCBFLGS2 05068000 TCBFJMC EQU TCBFLGS2 05069000 TCBFSMC EQU TCBFLGS2 05070000 TCBFABOP EQU TCBFLGS2 05071000 TCBFSTI EQU TCBFLGS2 05072000 TCBFOINP EQU TCBFLGS2 05073000 TCBFX EQU TCBFLGS1 05074000 TCBFS EQU TCBFLGS1 05075000 TCBFT EQU TCBFLGS1 05076000 TCBPDUMP EQU TCBFLGS1 05077000 TCBNONPR EQU TCBFLGS1 05078000 TCBFERA EQU TCBFLGS1 05079000 TCBFE EQU TCBFLGS1 05080000 TCBFA EQU TCBFLGS1 05081000 TCBZERO EQU TCBPKF 05082000 TCBFLAG EQU TCBPKF 05083000 TCBMSSB EQU TCBMSS+1 05084000 TCBRSV03 EQU TCBMSS 05085000 TCBTRNB EQU TCBTRN+1 05086000 TCBRSV02 EQU TCBABF 05087000 TCBOLTEP EQU TCBABF 05088000 TCBTCP EQU TCBABF 05089000 TCBTCPP EQU TCBABF 05090000 TCBRSV01 EQU TCBABF 05091000 TCBGRPH EQU TCBABF 05092000 TCBNOCHK EQU TCBABF 05093000 TCBMOD91 EQU TCBABF 05094000 TCBCMPC EQU TCBCMP+1 05095000 TCBRV318 EQU TCBCMSG 05096000 TCBRV317 EQU TCBCIND 05097000 TCBRV316 EQU TCBCWTO 05098000 TCBCASID EQU TCBCDBL 05099000 TCBNOCC EQU TCBSTCC 05100000 TCBDMPO EQU TCBCPP 05101000 TCBCSTEP EQU TCBCMPF 05102000 TCBCREQ EQU TCBCMPF 05103000 TCBTIO EQU TCB+12 05104000 TCBDEB EQU TCB+8 05105000 TCBPIEA EQU TCBPIE+1 05106000 TCBPM EQU TCBPMASK 05107000 @NM00030 EQU TCBPMASK 05108000 TCBRBP EQU TCB 05109000 TCBFRS6 EQU TCBFRS+24 05110000 TCBFRS4 EQU TCBFRS+16 05111000 TCBFRS2 EQU TCBFRS+8 05112000 TCBFRS0 EQU TCBFRS 05113000 ASXBEND EQU ASXB+232 05114000 ASXBRV25 EQU ASXB+228 05115000 ASXBRV24 EQU ASXB+224 05116000 ASXBPT0E EQU ASXB+220 05117000 ASXBCRB4 EQU ASXBCASW+3 05118000 ASXBCRB3 EQU ASXBCASW+2 05119000 ASXBCRB2 EQU ASXBCASW+1 05120000 ASXBCR06 EQU ASXBCRB1 05121000 ASXBCR05 EQU ASXBCRB1 05122000 ASXBCR04 EQU ASXBCRB1 05123000 ASXBCR03 EQU ASXBCRB1 05124000 ASXBCR02 EQU ASXBCRB1 05125000 ASXBCR01 EQU ASXBCRB1 05126000 ASXBTFD EQU ASXBCRB1 05127000 ASXBPIP EQU ASXBCRB1 05128000 ASXBCTDC EQU ASXB+212 05129000 ASXBTDCB EQU ASXB+208 05130000 ASXBRV19 EQU ASXB+204 05131000 ASXBSENV EQU ASXBSECR+1 05132000 ASXBRV34 EQU ASCBSFLG 05133000 ASXBRV33 EQU ASCBSFLG 05134000 ASXBRV32 EQU ASCBSFLG 05135000 ASXBRV31 EQU ASCBSFLG 05136000 ASXBRV30 EQU ASCBSFLG 05137000 ASXBRV29 EQU ASCBSFLG 05138000 ASXBRV28 EQU ASCBSFLG 05139000 ASXBRV27 EQU ASCBSFLG 05140000 ASXBUSER EQU ASXB+192 05141000 ASXBLSRB EQU ASXBAEQ+20 05142000 ASXBFSRB EQU ASXBAEQ+16 05143000 ASXBLRQE EQU ASXBAEQ+12 05144000 ASXBFRQE EQU ASXBAEQ+8 05145000 ASXBLIQE EQU ASXBAEQ+4 05146000 ASXBFIQE EQU ASXBAEQ 05147000 ASXBETSK EQU ASXB+164 05148000 ASXBSIRB EQU ASXB+160 05149000 ASXBPSWD EQU ASXB+152 05150000 ASXBPRG EQU ASXB+136 05151000 ASXBRV26 EQU ASXB+132 05152000 ASXBOUSB EQU ASXB+128 05153000 ASXBDDR EQU ASXB+124 05154000 ASXBRCTD EQU ASXB+120 05155000 ASXBRSMD EQU ASXB+116 05156000 ASXBSPSA EQU ASXB+112 05157000 ASXBFRWA EQU ASXB+108 05158000 ASXBFLSA EQU ASXB+36 05159000 ASXBIHSA EQU ASXB+32 05160000 ASXBRV15 EQU ASXB+28 05161000 ASXBRV14 EQU ASXB+24 05162000 ASXBLWA EQU ASXB+20 05163000 ASXBMPST EQU ASXB+16 05164000 ASXBRS00 EQU ASXB+14 05165000 ASXBTCBS EQU ASXB+12 05166000 ASXBFTCB EQU ASXB+4 05167000 ASXBASXB EQU ASXB 05168000 ASXBEGIN EQU ASXB 05169000 ASCBEND EQU ASCB+208 05170000 ASCBSRBT EQU ASCB+200 05171000 ASCBRS14 EQU ASCB+195 05172000 ASCBSMCT EQU ASCB+194 05173000 ASCBRS12 EQU ASCB+192 05174000 ASCBPCTT EQU ASCB+188 05175000 ASCBVGTT EQU ASCB+184 05176000 ASCBRV43 EQU ASCBSRQ4 05177000 ASCBRV42 EQU ASCBSRQ4 05178000 ASCBRV41 EQU ASCBSRQ4 05179000 ASCBRV40 EQU ASCBSRQ4 05180000 ASCBRV39 EQU ASCBSRQ4 05181000 ASCBRV38 EQU ASCBSRQ4 05182000 ASCBRV37 EQU ASCBSRQ4 05183000 ASCBRV36 EQU ASCBSRQ4 05184000 ASCBRV35 EQU ASCBSRQ3 05185000 ASCBRV34 EQU ASCBSRQ3 05186000 ASCBRV33 EQU ASCBSRQ3 05187000 ASCBRV32 EQU ASCBSRQ3 05188000 ASCBRV31 EQU ASCBSRQ3 05189000 ASCBRV30 EQU ASCBSRQ3 05190000 ASCBRV29 EQU ASCBSRQ3 05191000 ASCBRV28 EQU ASCBSRQ3 05192000 ASCBRV27 EQU ASCBSRQ2 05193000 ASCBRV26 EQU ASCBSRQ2 05194000 ASCBRV25 EQU ASCBSRQ2 05195000 ASCBRV24 EQU ASCBSRQ2 05196000 ASCBRV23 EQU ASCBSRQ2 05197000 ASCBRV22 EQU ASCBSRQ2 05198000 ASCBRV21 EQU ASCBSRQ2 05199000 ASCBRV20 EQU ASCBSRQ2 05200000 ASCBRV19 EQU ASCBSRQ1 05201000 ASCBRV18 EQU ASCBSRQ1 05202000 ASCBRV17 EQU ASCBSRQ1 05203000 ASCBRV16 EQU ASCBSRQ1 05204000 ASCBRV15 EQU ASCBSRQ1 05205000 ASCBRV14 EQU ASCBSRQ1 05206000 ASCBRV13 EQU ASCBSRQ1 05207000 ASCBSTA EQU ASCBSRQ1 05208000 ASCBJBNS EQU ASCB+176 05209000 ASCBJBNI EQU ASCB+172 05210000 ASCBMCC EQU ASCB+168 05211000 ASCBRTWA EQU ASCB+164 05212000 ASCBIQEA EQU ASCB+160 05213000 ASCBXMPQ EQU ASCB+156 05214000 ASCBRS01 EQU ASCB+154 05215000 ASCBFMCT EQU ASCB+152 05216000 ASCBOUXB EQU ASCB+148 05217000 ASCBOUCB EQU ASCB+144 05218000 ASCBMECB EQU ASCB+140 05219000 ASCBQECB EQU ASCB+136 05220000 ASCBLSQH EQU ASCBLKGP+4 05221000 ASCBLOCK EQU ASCBLKGP 05222000 ASCBNVSC EQU ASCB+122 05223000 ASCBVSC EQU ASCB+120 05224000 ASCBSRBS EQU ASCB+118 05225000 ASCBSSRB EQU ASCB+116 05226000 ASCBRV06 EQU ASCBFLG2 05227000 ASCBRV05 EQU ASCBFLG2 05228000 ASCBRV04 EQU ASCBFLG2 05229000 ASCBSNQS EQU ASCBFLG2 05230000 ASCBS2S EQU ASCBFLG2 05231000 ASCBPXMT EQU ASCBFLG2 05232000 ASCBXMPT EQU ASCBFLG2 05233000 ASCBRF07 EQU ASCBDSP1 05234000 ASCBRF06 EQU ASCBDSP1 05235000 ASCBRF05 EQU ASCBDSP1 05236000 ASCBRF04 EQU ASCBDSP1 05237000 ASCBRF03 EQU ASCBDSP1 05238000 ASCBRF02 EQU ASCBDSP1 05239000 ASCBFAIL EQU ASCBDSP1 05240000 ASCBNOQ EQU ASCBDSP1 05241000 ASCBSWCT EQU ASCB+112 05242000 ASCBTMCH EQU ASCB+104 05243000 ASCBNSWP EQU ASCBFLG1 05244000 ASCBTYP1 EQU ASCBFLG1 05245000 ASCBSTND EQU ASCBFLG1 05246000 ASCBABNT EQU ASCBFLG1 05247000 ASCBTERM EQU ASCBFLG1 05248000 ASCBS3S EQU ASCBFLG1 05249000 ASCBCMSH EQU ASCBFLG1 05250000 ASCBRF01 EQU ASCBRCTF 05251000 ASCBOUT EQU ASCBRCTF 05252000 ASCBRV08 EQU ASCBRCTF 05253000 ASCBFQU EQU ASCBRCTF 05254000 ASCBFRS EQU ASCBRCTF 05255000 ASCBDUMP EQU ASCB+96 05256000 ASCBRV44 EQU ASCB+92 05257000 ASCBUBET EQU ASCB+88 05258000 ASCBECB EQU ASCB+84 05259000 ASCBTSB EQU ASCB+60 05260000 ASCBCSCB EQU ASCB+56 05261000 ASCBRSM EQU ASCB+52 05262000 ASCBLDA EQU ASCB+48 05263000 ASCBSTOR EQU ASCB+44 05264000 ASCBDP EQU ASCB+43 05265000 ASCBRV07 EQU ASCB+42 05266000 ASCBIOSM EQU ASCB+40 05267000 ASCBSEQN EQU ASCB+38 05268000 ASCBCPUS EQU ASCB+32 05269000 ASCBSPL EQU ASCB+28 05270000 ASCBIOSP EQU ASCB+24 05271000 ASCBSYNC EQU ASCBSUPC+4 05272000 ASCBSVRB EQU ASCBSUPC 05273000 ASCBCMSF EQU ASCB+12 05274000 ASCBBWDP EQU ASCB+8 05275000 ASCBFWDP EQU ASCB+4 05276000 ASCBASCB EQU ASCB 05277000 ASCBEGIN EQU ASCB 05278000 ASVTEND EQU ASVT+528 05279000 ASVTAVAL EQU ASVTENTY 05280000 ASVTAVAI EQU ASVTFRST 05281000 ASVTRS00 EQU ASVT+520 05282000 ASVTASVT EQU ASVT+512 05283000 ASVTBEGN EQU ASVT+512 05284000 @NM00029 EQU ASVT 05285000 WSACASMS EQU WSAC+60 05286000 WSACASMD EQU WSAC+56 05287000 WSACCCH EQU WSAC+52 05288000 WSACRRSA EQU WSAC+48 05289000 WSACREST EQU WSAC+44 05290000 WSACRSTI EQU WSAC+40 05291000 WSACABTM EQU WSAC+36 05292000 WSACMF1 EQU WSAC+32 05293000 WSACEDS0 EQU WSAC+28 05294000 WSACIOS EQU WSAC+24 05295000 WSACRTMK EQU WSAC+20 05296000 WSACACR EQU WSAC+16 05297000 WSACOPTM EQU WSAC+8 05298000 WSACGTF EQU WSAC+4 05299000 WSACCWSA EQU WSAC 05300000 WSAGSCHE EQU WSAG+40 05301000 WSAGREST EQU WSAG+36 05302000 WSAGNQDQ EQU WSAG+32 05303000 WSAGMEMT EQU WSAG+28 05304000 WSAGOPTM EQU WSAG+24 05305000 WSAGSTAT EQU WSAG+20 05306000 WSAGEMS0 EQU WSAG+16 05307000 WSAGSSRS EQU WSAG+12 05308000 WSAGRSM EQU WSAG+8 05309000 WSAGPGIO EQU WSAG 05310000 LCCAR125 EQU LCCA+964 05311000 LCCAR124 EQU LCCA+960 05312000 LCCASGPR EQU LCCA+896 05313000 LCCADRT2 EQU LCCA+888 05314000 LCCADRT1 EQU LCCA+880 05315000 LCCAR103 EQU LCCA+876 05316000 LCCAESS2 EQU LCCA+872 05317000 LCCASPLJ EQU LCCA+868 05318000 LCCASMQJ EQU LCCA+864 05319000 LCCAIRT EQU LCCA+736 05320000 LCCAASID EQU LCCA+732 05321000 LCCARV89 EQU LCCA+728 05322000 LCCAPGTA EQU LCCASRBF+2 05323000 LCCASAFN EQU LCCASRBF 05324000 LCCAECSA EQU LCCA+716 05325000 LCCAICR0 EQU LCCA+712 05326000 LCCALWTM EQU LCCA+704 05327000 LCCARV78 EQU LCCA+700 05328000 LCCAPINV EQU LCCA+696 05329000 LCCARV88 EQU LCCA+695 05330000 LCCARV87 EQU LCCALKFG 05331000 LCCARV86 EQU LCCALKFG 05332000 LCCARV85 EQU LCCALKFG 05333000 LCCARV84 EQU LCCALKFG 05334000 LCCALKRD EQU LCCALKFG 05335000 LCCALKAQ EQU LCCALKFG 05336000 LCCALKSA EQU LCCALKFG 05337000 LCCALKDP EQU LCCALKFG 05338000 LCCACRST EQU LCCACREX 05339000 LCCACRDP EQU LCCACREX 05340000 LCCACRLM EQU LCCACREX 05341000 LCCACRIN EQU LCCACREX 05342000 LCCACRRT EQU LCCACREX 05343000 LCCACRLE EQU LCCACREX 05344000 LCCACRRM EQU LCCACREX 05345000 LCCACREF EQU LCCACREX 05346000 LCCAVARY EQU LCCACRFL 05347000 LCCARV73 EQU LCCACRFL 05348000 LCCARV72 EQU LCCACRFL 05349000 LCCARV71 EQU LCCACRFL 05350000 LCCARV70 EQU LCCACRFL 05351000 LCCARV69 EQU LCCACRFL 05352000 LCCACLMS EQU LCCACRFL 05353000 LCCACRTM EQU LCCACRFL 05354000 LCCALCR0 EQU LCCA+688 05355000 LCCACRLC EQU LCCA+684 05356000 LCCARCPU EQU LCCA+680 05357000 LCCADCPU EQU LCCA+676 05358000 LCCASRBJ EQU LCCA+672 05359000 LCCADSSR EQU LCCA+668 05360000 LCCADSSC EQU LCCA+660 05361000 LCCADSS3 EQU LCCA+648 05362000 LCCADSS2 EQU LCCA+636 05363000 LCCADSS1 EQU LCCA+624 05364000 LCCAWTIM EQU LCCA+616 05365000 LCCARIR5 EQU LCCASPSA+44 05366000 LCCARIR4 EQU LCCASPSA+40 05367000 LCCARIR3 EQU LCCASPSA+36 05368000 LCCARIR2 EQU LCCASPSA+32 05369000 LCCARPR5 EQU LCCASPSA+28 05370000 LCCARPR4 EQU LCCASPSA+24 05371000 LCCARPR3 EQU LCCASPSA+20 05372000 LCCARPR2 EQU LCCASPSA+16 05373000 LCCADSR5 EQU LCCASPSA+12 05374000 LCCADSR4 EQU LCCASPSA+8 05375000 LCCADSR3 EQU LCCASPSA+4 05376000 LCCADSR2 EQU LCCASPSA 05377000 LCCARV68 EQU LCCA+543 05378000 LCCAPSMK EQU LCCA+542 05379000 LCCARV67 EQU LCCADSF2 05380000 LCCARV66 EQU LCCADSF2 05381000 LCCARV65 EQU LCCADSF2 05382000 LCCARV64 EQU LCCADSF2 05383000 LCCADSRW EQU LCCADSF2 05384000 LCCADSPL EQU LCCADSF2 05385000 LCCAGSRB EQU LCCADSF2 05386000 LCCARV61 EQU LCCADSF1 05387000 LCCARV60 EQU LCCADSF1 05388000 LCCARV59 EQU LCCADSF1 05389000 LCCARV58 EQU LCCADSF1 05390000 LCCATIMR EQU LCCADSF1 05391000 LCCADSS EQU LCCADSF1 05392000 LCCAVCPU EQU LCCADSF1 05393000 LCCAACR EQU LCCADSF1 05394000 LCCAASCP EQU LCCA+532 05395000 LCCAESSA EQU LCCA+528 05396000 LCCARV55 EQU LCCASPN4 05397000 LCCARV54 EQU LCCASPN4 05398000 LCCARV53 EQU LCCASPN4 05399000 LCCARV52 EQU LCCASPN4 05400000 LCCARV51 EQU LCCASPN4 05401000 LCCARV50 EQU LCCASPN4 05402000 LCCARV49 EQU LCCASPN4 05403000 LCCARV48 EQU LCCASPN4 05404000 LCCARV47 EQU LCCASPN3 05405000 LCCARV46 EQU LCCASPN3 05406000 LCCARV45 EQU LCCASPN3 05407000 LCCARV44 EQU LCCASPN3 05408000 LCCARV43 EQU LCCASPN3 05409000 LCCARV42 EQU LCCASPN3 05410000 LCCARV41 EQU LCCASPN3 05411000 LCCARV40 EQU LCCASPN3 05412000 LCCARV39 EQU LCCASPN2 05413000 LCCARV38 EQU LCCASPN2 05414000 LCCARV37 EQU LCCASPN2 05415000 LCCARV36 EQU LCCASPN2 05416000 LCCARV35 EQU LCCASPN2 05417000 LCCARV34 EQU LCCASPN2 05418000 LCCARV33 EQU LCCASPN2 05419000 LCCARV32 EQU LCCASPN2 05420000 LCCARV31 EQU LCCASPN1 05421000 LCCARV30 EQU LCCASPN1 05422000 LCCAMFIO EQU LCCASPN1 05423000 LCCARSTR EQU LCCASPN1 05424000 LCCATSPN EQU LCCASPN1 05425000 LCCALOCK EQU LCCASPN1 05426000 LCCASIGP EQU LCCASPN1 05427000 LCCAPTLB EQU LCCASPN1 05428000 LCCARV27 EQU LCCAIHR4 05429000 LCCARV26 EQU LCCAIHR4 05430000 LCCARV25 EQU LCCAIHR4 05431000 LCCARV24 EQU LCCAIHR4 05432000 LCCARV23 EQU LCCAIHR4 05433000 LCCARV22 EQU LCCAIHR4 05434000 LCCARV21 EQU LCCAIHR4 05435000 LCCARV20 EQU LCCAIHR4 05436000 LCCARV19 EQU LCCAIHR3 05437000 LCCARV18 EQU LCCAIHR3 05438000 LCCARV17 EQU LCCAIHR3 05439000 LCCARV16 EQU LCCAIHR3 05440000 LCCARV15 EQU LCCAIHR3 05441000 LCCARV14 EQU LCCAIHR3 05442000 LCCARV13 EQU LCCAIHR3 05443000 LCCARV12 EQU LCCAIHR3 05444000 LCCARV11 EQU LCCAIHR2 05445000 LCCARV10 EQU LCCAIHR2 05446000 LCCARV09 EQU LCCAIHR2 05447000 LCCARV08 EQU LCCAIHR2 05448000 LCCARV07 EQU LCCAIHR2 05449000 LCCARV06 EQU LCCAIHR2 05450000 LCCARV05 EQU LCCAIHR2 05451000 LCCARV04 EQU LCCAIHR2 05452000 LCCARV03 EQU LCCAIHR1 05453000 LCCARV02 EQU LCCAIHR1 05454000 LCCARV01 EQU LCCAIHR1 05455000 LCCAPPIE EQU LCCAIHR1 05456000 LCCAPSG1 EQU LCCAIHR1 05457000 LCCAPDAT EQU LCCAIHR1 05458000 LCCAXRC2 EQU LCCAIHR1 05459000 LCCAXRC1 EQU LCCAIHR1 05460000 LCCAIOPS EQU LCCA+512 05461000 LCCAGPGR EQU LCCA+448 05462000 LCCAR133 EQU LCCA+444 05463000 LCCAR132 EQU LCCA+440 05464000 LCCAR131 EQU LCCA+436 05465000 LCCAR130 EQU LCCA+432 05466000 LCCAR129 EQU LCCA+428 05467000 LCCAR128 EQU LCCA+424 05468000 LCCAR127 EQU LCCA+420 05469000 LCCAR126 EQU LCCA+416 05470000 LCCARSGR EQU LCCA+352 05471000 LCCAXGR3 EQU LCCA+288 05472000 LCCAXGR2 EQU LCCA+224 05473000 LCCAXGR1 EQU LCCA+160 05474000 LCCACR0 EQU LCCA+156 05475000 LCCAMCR1 EQU LCCA+152 05476000 LCCAPVAD EQU LCCA+148 05477000 LCCAPINT EQU LCCA+144 05478000 LCCAPPSW EQU LCCA+136 05479000 LCCAPGR2 EQU LCCA+72 05480000 LCCAPGR1 EQU LCCA+8 05481000 LCCARV77 EQU LCCA+6 05482000 LCCACPUA EQU LCCA+4 05483000 LCCALCCA EQU LCCA 05484000 LCCAT00P EQU LCCAVT 05485000 @NM00028 EQU PCCA+512 05486000 PCCACAT EQU PCCA+384 05487000 PCCARV36 EQU PCCA+380 05488000 PCCARV35 EQU PCCA+378 05489000 PCCARV01 EQU PCCA+377 05490000 PCCACPUM EQU PCCA+376 05491000 PCCARV63 EQU PCCA+372 05492000 PCCARV62 EQU PCCA+368 05493000 PCCARV61 EQU PCCA+364 05494000 PCCARV60 EQU PCCA+360 05495000 PCCARV59 EQU PCCA+356 05496000 PCCARV58 EQU PCCA+352 05497000 PCCARV57 EQU PCCA+348 05498000 PCCARV56 EQU PCCA+344 05499000 PCCARV55 EQU PCCA+340 05500000 PCCARV54 EQU PCCA+336 05501000 PCCALOGA EQU PCCA+332 05502000 PCCACHID EQU PCCA+324 05503000 PCCACHSV EQU PCCA+312 05504000 PCCARV79 EQU PCCACHF4 05505000 PCCARV78 EQU PCCACHF4 05506000 PCCARV77 EQU PCCACHF4 05507000 PCCARV76 EQU PCCACHF4 05508000 PCCARV75 EQU PCCACHF4 05509000 PCCARV74 EQU PCCACHF4 05510000 PCCARV73 EQU PCCACHF4 05511000 PCCARV72 EQU PCCACHF4 05512000 PCCARV71 EQU PCCACHF3 05513000 PCCARV70 EQU PCCACHF3 05514000 PCCARV69 EQU PCCACHF3 05515000 PCCARV68 EQU PCCACHF3 05516000 PCCARV67 EQU PCCACHF3 05517000 PCCARV66 EQU PCCACHF3 05518000 PCCARV65 EQU PCCACHF3 05519000 PCCARV64 EQU PCCACHF3 05520000 PCCACF28 EQU PCCACHF2 05521000 PCCACF27 EQU PCCACHF2 05522000 PCCACF26 EQU PCCACHF2 05523000 PCCACF25 EQU PCCACHF2 05524000 PCCACF24 EQU PCCACHF2 05525000 PCCACF23 EQU PCCACHF2 05526000 PCCACF22 EQU PCCACHF2 05527000 PCCACF21 EQU PCCACHF2 05528000 PCCACF18 EQU PCCACHF1 05529000 PCCACF17 EQU PCCACHF1 05530000 PCCACF16 EQU PCCACHF1 05531000 PCCACF15 EQU PCCACHF1 05532000 PCCACF14 EQU PCCACHF1 05533000 PCCACF13 EQU PCCACHF1 05534000 PCCACF12 EQU PCCACHF1 05535000 PCCACF11 EQU PCCACHF1 05536000 PCCARV05 EQU PCCA+306 05537000 PCCACHPB EQU PCCA+305 05538000 PCCALGP2 EQU PCCA+304 05539000 PCCALGP1 EQU PCCA+303 05540000 PCCALOGL EQU PCCA+302 05541000 PCCARV80 EQU PCCA+300 05542000 PCCACHW2 EQU PCCA+296 05543000 PCCACHW1 EQU PCCA+292 05544000 PCCAIOSI EQU PCCA+291 05545000 PCCACNRB EQU PCCACHRB 05546000 PCCACCVB EQU PCCACHRB 05547000 PCCACSNB EQU PCCACHRB 05548000 PCCARV52 EQU PCCACHRB 05549000 PCCACHIB EQU PCCACHRB 05550000 PCCACTIB EQU PCCACHRB 05551000 PCCACINB EQU PCCACHRB 05552000 PCCACSIB EQU PCCACHRB 05553000 PCCARV51 EQU PCCACHS2 05554000 PCCARV50 EQU PCCACHS2 05555000 PCCACCRA EQU PCCACHS2 05556000 PCCACURC EQU PCCACHS2 05557000 PCCACNLG EQU PCCACHS2 05558000 PCCACMOD EQU PCCACHS2 05559000 PCCACALT EQU PCCACHS2 05560000 PCCACIOR EQU PCCACHS2 05561000 PCCARV47 EQU PCCACHS1 05562000 PCCACUCB EQU PCCACHS1 05563000 PCCACIBC EQU PCCACHS1 05564000 PCCACAND EQU PCCACHS1 05565000 PCCACNLS EQU PCCACHS1 05566000 PCCACFRR EQU PCCACHS1 05567000 PCCACNRE EQU PCCACHS1 05568000 PCCACCMP EQU PCCACHS1 05569000 PCCACSEQ EQU PCCACHTS 05570000 PCCACDIN EQU PCCACHTS 05571000 PCCARV44 EQU PCCACHTS 05572000 PCCARV43 EQU PCCACHTS 05573000 PCCACTEC EQU PCCACHTS 05574000 PCCACDAV EQU PCCACHVA 05575000 PCCACCHV EQU PCCACHVA 05576000 PCCACCMD EQU PCCACHVA 05577000 PCCACUNS EQU PCCACHVA 05578000 PCCACSQV EQU PCCACHVA 05579000 PCCARV42 EQU PCCACHVA 05580000 PCCARV41 EQU PCCACHVA 05581000 PCCACITF EQU PCCACHVA 05582000 PCCARV40 EQU PCCACHBL 05583000 PCCARV39 EQU PCCACHBL 05584000 PCCARV38 EQU PCCACHBL 05585000 PCCACCUE EQU PCCACHBL 05586000 PCCACSTG EQU PCCACHBL 05587000 PCCACSCU EQU PCCACHBL 05588000 PCCACCHA EQU PCCACHBL 05589000 PCCACCPU EQU PCCACHBL 05590000 PCCACNOR EQU PCCACHPF 05591000 PCCACCNT EQU PCCACHPF 05592000 PCCACSNS EQU PCCACHPF 05593000 PCCARV37 EQU PCCACHPF 05594000 PCCACHIO EQU PCCACHPF 05595000 PCCACTIO EQU PCCACHPF 05596000 PCCACINT EQU PCCACHPF 05597000 PCCACSIO EQU PCCACHPF 05598000 PCCACHUB EQU PCCAWERP 05599000 PCCACHEL EQU PCCA+168 05600000 PCCALRBR EQU PCCA+164 05601000 PCCALRBV EQU PCCA+160 05602000 PCCAPWAR EQU PCCA+156 05603000 PCCAPWAV EQU PCCA+152 05604000 PCCAEMSA EQU PCCAEMSB+12 05605000 PCCAEMSE EQU PCCAEMSB+8 05606000 PCCAEMSP EQU PCCAEMSB+4 05607000 PCCARMS EQU PCCARMSB 05608000 PCCARV34 EQU PCCARMSB 05609000 PCCARV33 EQU PCCARMSB 05610000 PCCARV32 EQU PCCARMSB 05611000 PCCARV31 EQU PCCARMSB 05612000 PCCARV30 EQU PCCARMSB 05613000 PCCARV29 EQU PCCARMSB 05614000 PCCARV28 EQU PCCARMSB 05615000 PCCARV27 EQU PCCAEMS3 05616000 PCCARV26 EQU PCCAEMS3 05617000 PCCARV25 EQU PCCAEMS3 05618000 PCCARV24 EQU PCCAEMS3 05619000 PCCARV23 EQU PCCAEMS3 05620000 PCCARV22 EQU PCCAEMS3 05621000 PCCARV21 EQU PCCAEMS3 05622000 PCCARV20 EQU PCCAEMS3 05623000 PCCARV19 EQU PCCAEMS2 05624000 PCCARV18 EQU PCCAEMS2 05625000 PCCARV17 EQU PCCAEMS2 05626000 PCCARV16 EQU PCCAEMS2 05627000 PCCARV15 EQU PCCAEMS2 05628000 PCCARV14 EQU PCCAEMS2 05629000 PCCARV13 EQU PCCAEMS2 05630000 PCCARV12 EQU PCCAEMS2 05631000 PCCARV11 EQU PCCARISP 05632000 PCCARV10 EQU PCCARISP 05633000 PCCARV09 EQU PCCARISP 05634000 PCCARV08 EQU PCCARISP 05635000 PCCARV07 EQU PCCARISP 05636000 PCCARV06 EQU PCCARISP 05637000 PCCASERL EQU PCCARISP 05638000 PCCAPARL EQU PCCARISP 05639000 PCCARPB EQU PCCA+132 05640000 PCCACTIN EQU PCCAINTE 05641000 PCCANFIN EQU PCCAINTE 05642000 PCCACTCC EQU PCCACCE 05643000 PCCANFCC EQU PCCACCE 05644000 PCCACTTD EQU PCCATODE 05645000 PCCANFTD EQU PCCATODE 05646000 PCCARV04 EQU PCCATMFL 05647000 PCCARV03 EQU PCCATMFL 05648000 PCCARV02 EQU PCCATMFL 05649000 PCCAMINT EQU PCCATMFL 05650000 PCCAMCC EQU PCCATMFL 05651000 PCCAVKIL EQU PCCATMFL 05652000 PCCASYNC EQU PCCATMFL 05653000 PCCAINIT EQU PCCATMFL 05654000 PCCARV9E EQU PCCA+124 05655000 PCCARV9D EQU PCCA+120 05656000 PCCARV9C EQU PCCA+116 05657000 PCCARV9B EQU PCCA+112 05658000 PCCARV9A EQU PCCA+108 05659000 PCCARV99 EQU PCCA+104 05660000 PCCARV98 EQU PCCA+100 05661000 PCCARV97 EQU PCCA+96 05662000 PCCARV96 EQU PCCA+92 05663000 PCCARV95 EQU PCCA+88 05664000 PCCARV94 EQU PCCA+84 05665000 PCCARV93 EQU PCCA+80 05666000 PCCARV92 EQU PCCA+76 05667000 PCCARV91 EQU PCCA+72 05668000 PCCARV90 EQU PCCA+68 05669000 PCCARV89 EQU PCCA+64 05670000 PCCARV88 EQU PCCA+60 05671000 PCCARV87 EQU PCCA+56 05672000 PCCARV86 EQU PCCA+52 05673000 PCCARV85 EQU PCCA+48 05674000 PCCARV84 EQU PCCA+44 05675000 PCCARV83 EQU PCCA+40 05676000 PCCARV82 EQU PCCA+36 05677000 PCCARV81 EQU PCCA+32 05678000 PCCAPSAR EQU PCCA+28 05679000 PCCAPSAV EQU PCCA+24 05680000 PCCACAFM EQU PCCA+18 05681000 PCCACPUA EQU PCCA+16 05682000 PCCACPID EQU PCCA+4 05683000 PCCAPCCA EQU PCCA 05684000 @NM00027 EQU CSD+160 05685000 CSDMASK EQU CSD+128 05686000 CSDUCNT EQU CSD+124 05687000 CSDTCNT EQU CSD+120 05688000 CSDGDTOD EQU CSD+116 05689000 CSDGDINT EQU CSD+112 05690000 CSDDDRCT EQU CSD+106 05691000 CSDRV044 EQU CSD+104 05692000 CSDMAFF EQU CSD+24 05693000 CSDRV038 EQU CSDFLAGS 05694000 CSDRV037 EQU CSDFLAGS 05695000 CSDRV036 EQU CSDFLAGS 05696000 CSDRV035 EQU CSDFLAGS 05697000 CSDRV034 EQU CSDFLAGS 05698000 CSDRV033 EQU CSDFLAGS 05699000 CSDRV032 EQU CSDFLAGS 05700000 CSDMP EQU CSDFLAGS 05701000 CSDACR EQU CSD+22 05702000 CSDMF1CP EQU CSD+20 05703000 CSDRV043 EQU CSD+16 05704000 CSDRV030 EQU CSDSCFL4 05705000 CSDRV029 EQU CSDSCFL4 05706000 CSDRV028 EQU CSDSCFL4 05707000 CSDRV027 EQU CSDSCFL4 05708000 CSDRV026 EQU CSDSCFL4 05709000 CSDRV025 EQU CSDSCFL4 05710000 CSDRV024 EQU CSDSCFL4 05711000 CSDRV023 EQU CSDSCFL4 05712000 CSDRV022 EQU CSDSCFL3 05713000 CSDRV021 EQU CSDSCFL3 05714000 CSDRV020 EQU CSDSCFL3 05715000 CSDRV019 EQU CSDSCFL3 05716000 CSDRV018 EQU CSDSCFL3 05717000 CSDRV017 EQU CSDSCFL3 05718000 CSDRV016 EQU CSDSCFL3 05719000 CSDRV015 EQU CSDSCFL3 05720000 CSDRV014 EQU CSDSCFL2 05721000 CSDRV013 EQU CSDSCFL2 05722000 CSDRV012 EQU CSDSCFL2 05723000 CSDRV011 EQU CSDSCFL2 05724000 CSDRV010 EQU CSDSCFL2 05725000 CSDRV009 EQU CSDSCFL2 05726000 CSDRV008 EQU CSDSCFL2 05727000 CSDRV007 EQU CSDSCFL2 05728000 CSDRV006 EQU CSDSCFL1 05729000 CSDRV005 EQU CSDSCFL1 05730000 CSDRV004 EQU CSDSCFL1 05731000 CSDRV003 EQU CSDSCFL1 05732000 CSDRV002 EQU CSDSCFL1 05733000 CSDRV001 EQU CSDSCFL1 05734000 CSDSYSND EQU CSDSCFL1 05735000 CSDRV042 EQU CSDSCFL1 05736000 CSDCPUOL EQU CSD+10 05737000 CSDSAFF EQU CSDCPUAL 05738000 CSDCHAD EQU CSD+6 05739000 CSDCPUJS EQU CSD+4 05740000 CSDCSD EQU CSD 05741000 CVTLEVL EQU CVTRELNO+2 05742000 CVTNUMB EQU CVTRELNO 05743000 CVTMDL EQU CVTFIX+250 05744000 @NM00026 EQU CVTFIX+248 05745000 @NM00025 EQU CVTFIX 05746000 CVTRV482 EQU CVTXTNT2+128 05747000 CVTRV481 EQU CVTXTNT2+124 05748000 CVTRV480 EQU CVTXTNT2+120 05749000 CVTRV479 EQU CVTXTNT2+118 05750000 CVTRV478 EQU CVTXTNT2+117 05751000 CVTRV477 EQU CVTXTNT2+116 05752000 CVTRV476 EQU CVTXTNT2+115 05753000 CVTRV475 EQU CVTXTNT2+114 05754000 CVTRV474 EQU CVTRV466 05755000 CVTRV473 EQU CVTRV466 05756000 CVTRV472 EQU CVTRV466 05757000 CVTRV471 EQU CVTRV466 05758000 CVTRV470 EQU CVTRV466 05759000 CVTRV469 EQU CVTRV466 05760000 CVTRV468 EQU CVTRV466 05761000 CVTRV467 EQU CVTRV466 05762000 CVTRV465 EQU CVTRV457 05763000 CVTRV464 EQU CVTRV457 05764000 CVTRV463 EQU CVTRV457 05765000 CVTRV462 EQU CVTRV457 05766000 CVTRV461 EQU CVTRV457 05767000 CVTRV460 EQU CVTRV457 05768000 CVTRV459 EQU CVTRV457 05769000 CVTRV458 EQU CVTRV457 05770000 CVTRV456 EQU CVTXTNT2+108 05771000 CVTRV455 EQU CVTXTNT2+104 05772000 CVTRV454 EQU CVTXTNT2+100 05773000 CVTRV453 EQU CVTXTNT2+96 05774000 CVTRV452 EQU CVTXTNT2+94 05775000 CVTRV451 EQU CVTXTNT2+92 05776000 CVTRV450 EQU CVTXTNT2+90 05777000 CVTRV449 EQU CVTXTNT2+88 05778000 CVTRV448 EQU CVTXTNT2+87 05779000 CVTRV447 EQU CVTXTNT2+86 05780000 CVTRV446 EQU CVTRV438 05781000 CVTRV445 EQU CVTRV438 05782000 CVTRV444 EQU CVTRV438 05783000 CVTRV443 EQU CVTRV438 05784000 CVTRV442 EQU CVTRV438 05785000 CVTRV441 EQU CVTRV438 05786000 CVTRV440 EQU CVTRV438 05787000 CVTRV439 EQU CVTRV438 05788000 CVTRV437 EQU CVTRV429 05789000 CVTRV436 EQU CVTRV429 05790000 CVTRV435 EQU CVTRV429 05791000 CVTRV434 EQU CVTRV429 05792000 CVTRV433 EQU CVTRV429 05793000 CVTRV432 EQU CVTRV429 05794000 CVTRV431 EQU CVTRV429 05795000 CVTRV430 EQU CVTRV429 05796000 CVTRV428 EQU CVTXTNT2+80 05797000 CVTRV427 EQU CVTXTNT2+76 05798000 CVTRV426 EQU CVTXTNT2+72 05799000 CVTRV425 EQU CVTXTNT2+68 05800000 CVTATACT EQU CVTATCVT 05801000 CVTRV423 EQU CVTXTNT2+62 05802000 CVTRV422 EQU CVTXTNT2+60 05803000 CVTRV421 EQU CVTXTNT2+58 05804000 CVTRV420 EQU CVTXTNT2+56 05805000 CVTRV419 EQU CVTXTNT2+55 05806000 CVTRV418 EQU CVTXTNT2+54 05807000 CVTRV417 EQU CVTRV409 05808000 CVTRV416 EQU CVTRV409 05809000 CVTRV415 EQU CVTRV409 05810000 CVTRV414 EQU CVTRV409 05811000 CVTRV413 EQU CVTRV409 05812000 CVTRV412 EQU CVTRV409 05813000 CVTRV411 EQU CVTRV409 05814000 CVTRV410 EQU CVTRV409 05815000 CVTRV408 EQU CVTRV400 05816000 CVTRV407 EQU CVTRV400 05817000 CVTRV406 EQU CVTRV400 05818000 CVTRV405 EQU CVTRV400 05819000 CVTRV404 EQU CVTRV400 05820000 CVTRV403 EQU CVTRV400 05821000 CVTRV402 EQU CVTRV400 05822000 CVTRV401 EQU CVTRV400 05823000 CVTICB EQU CVTXTNT2+48 05824000 CVTSKTA EQU CVTXTNT2+44 05825000 CVTRSV99 EQU CVTXTNT2+40 05826000 CVTRSV98 EQU CVTXTNT2+36 05827000 CVTRSV97 EQU CVTXTNT2+34 05828000 CVTRSV96 EQU CVTXTNT2+32 05829000 CVTOLTEP EQU CVTXTNT2+28 05830000 CVTQIDA EQU CVTQID+1 05831000 CVTRSV95 EQU CVTQID 05832000 CVTRSV94 EQU CVTXTNT2+20 05833000 CVTRSV93 EQU CVTXTNT2+16 05834000 CVTRSV92 EQU CVTXTNT2+12 05835000 CVTDEBVR EQU CVTXTNT2+8 05836000 CVTRSV91 EQU CVTXTNT2+6 05837000 CVTRSV9H EQU CVTFLGBT 05838000 CVTRSV9G EQU CVTFLGBT 05839000 CVTRSV9F EQU CVTFLGBT 05840000 CVTRSV9E EQU CVTFLGBT 05841000 CVTRSV9D EQU CVTFLGBT 05842000 CVTRSV9C EQU CVTFLGBT 05843000 CVTVME EQU CVTFLGBT 05844000 CVTNPE EQU CVTFLGBT 05845000 CVTNUCLS EQU CVTXTNT2+4 05846000 CVTDSSVA EQU CVTDSSV+1 05847000 CVTRSV89 EQU CVTDSSV 05848000 CVTRSV88 EQU CVTXTNT1+8 05849000 CVTRSV87 EQU CVTXTNT1+4 05850000 CVTFACHN EQU CVTXTNT1 05851000 CVTRV488 EQU CVTMAP+412 05852000 CVTRV487 EQU CVTMAP+408 05853000 CVTRV486 EQU CVTMAP+404 05854000 CVTRV485 EQU CVTMAP+400 05855000 CVTACTAP EQU CVTMAP+396 05856000 CVTAUTH EQU CVTMAP+392 05857000 CVTATMCA EQU CVTATMCT+1 05858000 CVTATMST EQU CVTATMCT 05859000 CVTRSV61 EQU CVTMAP+384 05860000 CVTVOLT1 EQU CVTVOLM1+1 05861000 CVTVOLI1 EQU CVTVOLF1 05862000 CVTSTOA EQU CVTMAP+376 05863000 CVTRSV58 EQU CVTMAP+374 05864000 CVTRSV57 EQU CVTMAP+372 05865000 CVTDDCE EQU CVTMAP+368 05866000 CVTPNWFR EQU CVTMAP+364 05867000 CVTSMF EQU CVTMAP+360 05868000 CVTSULK EQU CVTMAP+358 05869000 CVTSLKO EQU CVTSYSK 05870000 CVTSLKP EQU CVTSYSK 05871000 CVTSLKQ EQU CVTSYSK 05872000 CVTSLKR EQU CVTSYSK 05873000 CVTRSV56 EQU CVTSYSK 05874000 CVTRSV55 EQU CVTSYSK 05875000 CVTRSV54 EQU CVTSYSK 05876000 CVTRSV53 EQU CVTSYSK 05877000 CVTRSV52 EQU CVTA1F1 05878000 CVTRSV51 EQU CVTA1F1 05879000 CVTRSV50 EQU CVTA1F1 05880000 CVTRSV49 EQU CVTA1F1 05881000 CVTRSV48 EQU CVTA1F1 05882000 CVTRSV47 EQU CVTA1F1 05883000 CVTSRSW EQU CVTA1F1 05884000 CVTPFSW EQU CVTA1F1 05885000 CVTPCVT EQU CVTMAP+352 05886000 CVTRSV46 EQU CVTMAP+344 05887000 CVTRSV45 EQU CVTMAP+340 05888000 CVTRSV44 EQU CVTMAP+338 05889000 CVTRSV43 EQU CVTMAP+336 05890000 CVTHJESA EQU CVTHJES+1 05891000 CVTRSV42 EQU CVTHJES 05892000 CVTEXT2A EQU CVTEXT2+1 05893000 CVTRSV41 EQU CVTEXT2 05894000 CVTAPFA EQU CVTAPF+1 05895000 CVTRSV40 EQU CVTAPF 05896000 CVTRV518 EQU CVTINTLA 05897000 CVTRV517 EQU CVTERPV 05898000 CVTEORM EQU CVTMAP+312 05899000 CVTMCHPR EQU CVTMAP+308 05900000 CVTTZ EQU CVTMAP+304 05901000 CVTJEPS EQU CVTMAP+300 05902000 CVTJESCT EQU CVTMAP+296 05903000 CVTMODE EQU CVTMAP+292 05904000 CVTPTRV EQU CVTMAP+288 05905000 CVTREAL EQU CVTMAP+284 05906000 CVTRSV39 EQU CVTMAP+280 05907000 CVTRSV38 EQU CVTMAP+276 05908000 CVTDMSRA EQU CVTDMSR+1 05909000 CVTRV634 EQU CVTDMSRF 05910000 CVTRV633 EQU CVTDMSRF 05911000 CVTRV632 EQU CVTDMSRF 05912000 CVTRV631 EQU CVTDMSRF 05913000 CVTRV630 EQU CVTDMSRF 05914000 CVTRV629 EQU CVTDMSRF 05915000 CVTUDUMP EQU CVTDMSRF 05916000 CVTSDUMP EQU CVTDMSRF 05917000 CVTQMSGA EQU CVTQMSG+1 05918000 CVTRSV36 EQU CVTQMSG 05919000 CVTAMFF EQU CVTMAP+264 05920000 CVTPURGA EQU CVTPURG+1 05921000 CVTRSV35 EQU CVTPURG 05922000 CVTCBSP EQU CVTMAP+256 05923000 CVTATERA EQU CVTATER+1 05924000 CVTSYST EQU CVTATER 05925000 CVTVOLT2 EQU CVTTAT 05926000 CVTVOLI2 EQU CVTVOLF2 05927000 CVTAQAVB EQU CVTAQAVT+1 05928000 CVTRSV34 EQU CVTTCMFG 05929000 CVTRSV33 EQU CVTTCMFG 05930000 CVTRSV32 EQU CVTTCMFG 05931000 CVTRSV31 EQU CVTTCMFG 05932000 CVTRSV30 EQU CVTTCMFG 05933000 CVTRSV29 EQU CVTTCMFG 05934000 CVTLDEV EQU CVTTCMFG 05935000 CVTTCRDY EQU CVTTCMFG 05936000 CVTGTFA EQU CVTGTF+1 05937000 CVTRSV27 EQU CVTGTFST 05938000 CVTRNIO EQU CVTGTFST 05939000 CVTUSR EQU CVTGTFST 05940000 CVTRV318 EQU CVTFORM 05941000 CVTRV317 EQU CVTTMODE 05942000 CVTRV316 EQU CVTSTATE 05943000 CVTRV315 EQU CVTGTFS 05944000 CVTGTFAV EQU CVTGTFS 05945000 CVT0SCR1 EQU CVTMAP+232 05946000 CVTRV515 EQU CVTMAP+228 05947000 CVTRMS EQU CVTMAP+224 05948000 CVTPATCH EQU CVTMAP+220 05949000 CVTTSCE EQU CVTMAP+216 05950000 CVTLNKSC EQU CVTMAP+214 05951000 CVTQABST EQU CVTMAP+212 05952000 CVTMDLDS EQU CVTMAP+208 05953000 CVTUSER EQU CVTMAP+204 05954000 CVTABEND EQU CVTMAP+200 05955000 CVTSMCA EQU CVTMAP+196 05956000 CVTRSV18 EQU CVTMAP+192 05957000 CVTQLPAQ EQU CVTMAP+188 05958000 CVTQCDSR EQU CVTMAP+184 05959000 CVTRSV17 EQU CVTOPTB 05960000 CVTRSV16 EQU CVTOPTB 05961000 CVTFP EQU CVTOPTB 05962000 CVTAPTHR EQU CVTOPTB 05963000 CVTNLOG EQU CVTOPTB 05964000 CVTTOD EQU CVTOPTB 05965000 CVTCTIMS EQU CVTOPTB 05966000 CVTPROT EQU CVTOPTB 05967000 CVTXPFP EQU CVTOPTA 05968000 CVTASCII EQU CVTOPTA 05969000 CVTRSV13 EQU CVTOPTA 05970000 CVTRSV12 EQU CVTOPTA 05971000 CVTNIP EQU CVTOPTA 05972000 CVTDDR EQU CVTOPTA 05973000 CVTAPR EQU CVTOPTA 05974000 CVTCCH EQU CVTOPTA 05975000 CVTSNCTR EQU CVTMAP+180 05976000 CVTQMWR EQU CVTMAP+176 05977000 CVTQOCR EQU CVTMAP+172 05978000 CVT1EF00 EQU CVTMAP+168 05979000 CVTMZ00 EQU CVTMAP+164 05980000 CVTHEAD EQU CVTMAP+160 05981000 CVTRSV11 EQU CVTMAP+156 05982000 CVTMSER EQU CVTMAP+148 05983000 CVTRV516 EQU CVTIERLC 05984000 CVTILCH EQU CVTMAP+140 05985000 CVT0DS EQU CVTMAP+136 05986000 CVTFBOSV EQU CVTMAP+132 05987000 CVTNUCB EQU CVTMAP+128 05988000 CVTIXAVL EQU CVTMAP+124 05989000 CVTIOQET EQU CVTMAP+120 05990000 CVTDCBA EQU CVTMAP+117 05991000 CVTMVS2 EQU CVTDCB 05992000 CVT6DAT EQU CVTDCB 05993000 CVT4MPS EQU CVTDCB 05994000 CVTRSV09 EQU CVTDCB 05995000 CVT4MS1 EQU CVTDCB 05996000 CVT2SPS EQU CVTDCB 05997000 CVT1SSS EQU CVTDCB 05998000 CVTRSV08 EQU CVTDCB 05999000 CVTSTB EQU CVTMAP+112 06000000 CVTQTD00 EQU CVTMAP+108 06001000 CVTQTE00 EQU CVTMAP+104 06002000 CVTCUCB EQU CVTMAP+100 06003000 CVTSJQ EQU CVTMAP+96 06004000 CVTPBLDL EQU CVTMAP+92 06005000 CVTSVDCB EQU CVTMAP+84 06006000 CVTBRET EQU CVTMAP+82 06007000 CVTEXIT EQU CVTMAP+80 06008000 CVT0FN00 EQU CVTMAP+76 06009000 CVTDARA EQU CVTDAR+1 06010000 CVTRSV07 EQU CVTFLGS1 06011000 CVTRSV06 EQU CVTFLGS1 06012000 CVTRSV05 EQU CVTFLGS1 06013000 CVTRSV04 EQU CVTFLGS1 06014000 CVTRSV03 EQU CVTFLGS1 06015000 CVTRSV02 EQU CVTFLGS1 06016000 CVTRSV01 EQU CVTFLGS1 06017000 CVTDMPLK EQU CVTFLGS1 06018000 CVTXITP EQU CVTMAP+68 06019000 CVTZDTAB EQU CVTMAP+64 06020000 CVTMSLT EQU CVTMAP+60 06021000 CVTSYSAD EQU CVTMAP+48 06022000 CVTXTLER EQU CVTMAP+44 06023000 CVTILK2 EQU CVTMAP+40 06024000 CVTILK1 EQU CVTMAP+36 06025000 CVTPRLTV EQU CVTMAP+32 06026000 CVTPCNVT EQU CVTMAP+28 06027000 CVT0VL00 EQU CVTMAP+24 06028000 CVTXAPG EQU CVTMAP+20 06029000 CVTBUF EQU CVTMAP+16 06030000 CVTJOB EQU CVTMAP+12 06031000 CVTLINK EQU CVTMAP+8 06032000 CVTTCBP EQU CVTMAP 06033000 @NM00024 EQU PSA+3668 06034000 PSASTAK EQU PSA+3072 06035000 @NM00023 EQU PSA+1048 06036000 PSAUSEND EQU PSA+1048 06037000 PSARV062 EQU PSA+1044 06038000 PSACDAL EQU PSA+1040 06039000 PSAWTCOD EQU PSA+1036 06040000 PSAATCVT EQU PSA+1032 06041000 PSAPCPSW EQU PSA+1024 06042000 PSAPIR2 EQU PSA+1020 06043000 PSARV059 EQU PSA+1018 06044000 PSASVC13 EQU PSA+1016 06045000 PSASFACC EQU PSA+1008 06046000 PSASTOP EQU PSA+992 06047000 PSASTART EQU PSA+976 06048000 PSARSPSW EQU PSA+968 06049000 PSASRPSW EQU PSA+960 06050000 PSARV045 EQU PSA+892 06051000 PSARV044 EQU PSA+888 06052000 PSARV043 EQU PSA+884 06053000 PSARV042 EQU PSA+880 06054000 PSARV041 EQU PSA+876 06055000 PSARV040 EQU PSA+872 06056000 PSARV025 EQU PSA+868 06057000 PSADSSED EQU PSA+868 06058000 PSADSSPR EQU PSA+864 06059000 PSADSSFW EQU PSA+860 06060000 PSADSS14 EQU PSA+856 06061000 PSADSSPP EQU PSA+848 06062000 PSADSSRP EQU PSA+840 06063000 PSADSS05 EQU PSADSSF4 06064000 PSADSS10 EQU PSADSSF4 06065000 PSADSSVE EQU PSADSSF4 06066000 PSADSSDE EQU PSADSSF4 06067000 PSADSSC0 EQU PSADSSF4 06068000 PSADSSIE EQU PSADSSF4 06069000 PSADSS12 EQU PSADSSF4 06070000 PSADSSRC EQU PSADSSF4 06071000 PSARV057 EQU PSADSSF3 06072000 PSARV056 EQU PSADSSF3 06073000 PSARV055 EQU PSADSSF3 06074000 PSADSSMC EQU PSADSSF3 06075000 PSADSSRW EQU PSADSSF3 06076000 PSADSSNM EQU PSADSSF3 06077000 PSADSSES EQU PSADSSF3 06078000 PSADSSGP EQU PSADSSF3 06079000 PSADSSF2 EQU PSADSSFL+1 06080000 PSADSSPI EQU PSADSSF1 06081000 PSADSSOI EQU PSADSSF1 06082000 PSADSSSP EQU PSADSSF1 06083000 PSADSSTP EQU PSADSSF1 06084000 PSADSSDW EQU PSADSSF1 06085000 PSADSSDD EQU PSADSSF1 06086000 PSADSSDM EQU PSADSSF1 06087000 PSADSSMV EQU PSADSSF1 06088000 PSADSSTS EQU PSA+816 06089000 PSADSSWK EQU PSA+812 06090000 PSADSSR3 EQU PSA+808 06091000 PSADSSR2 EQU PSA+804 06092000 PSADSSRS EQU PSA+800 06093000 PSASTOR EQU PSA+796 06094000 PSACPUSA EQU PSA+794 06095000 PSAVSTAP EQU PSA+792 06096000 PSAWKVAP EQU PSA+788 06097000 PSAWKRAP EQU PSA+784 06098000 PSAMCHIC EQU PSA+783 06099000 PSARV061 EQU PSA+782 06100000 PSASYMSK EQU PSA+781 06101000 PSAMCHFL EQU PSA+780 06102000 PSACR0 EQU PSA+776 06103000 PSAPSWSV EQU PSA+768 06104000 PSACLHS EQU PSAHLHI 06105000 PSALKR15 EQU PSALKSA+60 06106000 PSALKR14 EQU PSALKSA+56 06107000 PSALKR13 EQU PSALKSA+52 06108000 PSALKR12 EQU PSALKSA+48 06109000 PSALKR11 EQU PSALKSA+44 06110000 PSALKR10 EQU PSALKSA+40 06111000 PSALKR9 EQU PSALKSA+36 06112000 PSALKR8 EQU PSALKSA+32 06113000 PSALKR7 EQU PSALKSA+28 06114000 PSALKR6 EQU PSALKSA+24 06115000 PSALKR5 EQU PSALKSA+20 06116000 PSALKR4 EQU PSALKSA+16 06117000 PSALKR3 EQU PSALKSA+12 06118000 PSALKR2 EQU PSALKSA+8 06119000 PSALKR1 EQU PSALKSA+4 06120000 PSALKR0 EQU PSALKSA 06121000 PSARV023 EQU PSACLHT+52 06122000 PSALOCAL EQU PSACLHT+48 06123000 PSACMSL EQU PSACLHT+44 06124000 PSAOPTL EQU PSACLHT+40 06125000 PSATPACL EQU PSACLHT+36 06126000 PSATPDNL EQU PSACLHT+32 06127000 PSATPNCL EQU PSACLHT+28 06128000 PSAIOSLL EQU PSACLHT+24 06129000 PSAIOSUL EQU PSACLHT+20 06130000 PSAIOSCL EQU PSACLHT+16 06131000 PSAIOSSL EQU PSACLHT+12 06132000 PSASALCL EQU PSACLHT+8 06133000 PSAASML EQU PSACLHT+4 06134000 PSADISPL EQU PSACLHT 06135000 PSASRSA EQU PSA+636 06136000 PSARV050 EQU PSA+634 06137000 PSADSSGO EQU PSA+633 06138000 PSARECUR EQU PSA+632 06139000 PSAHLHIS EQU PSA+628 06140000 PSAIPCSA EQU PSA+624 06141000 @NM00022 EQU PSA+621 06142000 PSAIPCDM EQU PSA+620 06143000 PSAIPCD EQU PSA+616 06144000 @NM00021 EQU PSA+613 06145000 PSAIPCRM EQU PSA+612 06146000 PSAIPCR EQU PSA+608 06147000 PSAMCHEX EQU PSA+600 06148000 PSAMPSW EQU PSA+592 06149000 PSAEXPS2 EQU PSA+584 06150000 PSAEXPS1 EQU PSA+576 06151000 PSAPIREG EQU PSA+572 06152000 PSARSREG EQU PSA+568 06153000 PSAGPREG EQU PSA+556 06154000 PSARV022 EQU PSASUP4 06155000 PSARV021 EQU PSASUP4 06156000 PSARV020 EQU PSASUP4 06157000 PSARV019 EQU PSASUP4 06158000 PSARV018 EQU PSASUP4 06159000 PSARV017 EQU PSASUP4 06160000 PSARV016 EQU PSASUP4 06161000 PSARV015 EQU PSASUP4 06162000 PSARV014 EQU PSASUP3 06163000 PSARV013 EQU PSASUP3 06164000 PSARV012 EQU PSASUP3 06165000 PSAESTA EQU PSASUP3 06166000 PSASPR EQU PSASUP3 06167000 PSAPSREG EQU PSASUP3 06168000 PSAPI2 EQU PSASUP3 06169000 PSAIOSUP EQU PSASUP3 06170000 PSALCR EQU PSASUP2 06171000 PSARTM EQU PSASUP2 06172000 PSAACR EQU PSASUP2 06173000 PSAIPCE2 EQU PSASUP2 06174000 PSAIPCES EQU PSASUP2 06175000 PSAIPCEC EQU PSASUP2 06176000 PSAGTF EQU PSASUP2 06177000 PSAIPCRI EQU PSASUP2 06178000 PSATYPE6 EQU PSASUP1 06179000 PSATCTL EQU PSASUP1 06180000 PSADISP EQU PSASUP1 06181000 PSALOCK EQU PSASUP1 06182000 PSAPI EQU PSASUP1 06183000 PSAEXT EQU PSASUP1 06184000 PSASVC EQU PSASUP1 06185000 PSAIO EQU PSASUP1 06186000 PSAANEW EQU PSA+544 06187000 PSATNEW EQU PSA+536 06188000 PSALCCAR EQU PSA+532 06189000 PSAPCCAR EQU PSA+524 06190000 PSACPULA EQU PSA+518 06191000 PSACPUPA EQU PSA+516 06192000 PSAPSA EQU PSA+512 06193000 FLCHDEND EQU PSA+512 06194000 FLCCRSAV EQU FLCMCLA+280 06195000 FLCGRSAV EQU FLCMCLA+216 06196000 FLCFPSAV EQU FLCMCLA+184 06197000 FLCFLA EQU FLCMCLA+88 06198000 FLCRGNCD EQU FLCMCLA+84 06199000 FLCFSAA EQU FLCFSA+1 06200000 @NM00020 EQU FLCFSA 06201000 @NM00019 EQU FLCMCLA+72 06202000 FLCMCIC EQU FLCMCLA+64 06203000 @NM00018 EQU FLCMCLA+20 06204000 FLCIOAA EQU FLCIOA+1 06205000 @NM00017 EQU FLCIOA 06206000 @NM00016 EQU FLCMCLA+15 06207000 @NM00015 EQU FLCMCLA+14 06208000 @NM00014 EQU FLCMCLA+12 06209000 FLCLCL EQU FLCMCLA+8 06210000 FLCIOELA EQU FLCIOEL+1 06211000 @NM00013 EQU FLCIOEL 06212000 FLCCHNID EQU FLCMCLA 06213000 @NM00012 EQU PSA+160 06214000 FLCMTRCD EQU PSA+157 06215000 @NM00011 EQU PSA+156 06216000 FLCPERA EQU FLCPER+1 06217000 @NM00010 EQU FLCPER 06218000 @NM00009 EQU PSA+151 06219000 FLCPERCD EQU PSA+150 06220000 FLCMCNUM EQU PSA+149 06221000 @NM00008 EQU PSA+148 06222000 FLCTEAA EQU FLCTEA+1 06223000 @NM00007 EQU FLCTEA 06224000 PSAPIPC EQU PSAPICOD 06225000 PSAPIMC EQU PSAPICOD 06226000 PSAPIPER EQU PSAPICOD 06227000 PSARV049 EQU FLCPICOD 06228000 FLCPILCB EQU FLCPIILC 06229000 @NM00006 EQU FLCPIILC 06230000 @NM00005 EQU PSAEPPSW 06231000 FLCSVCN EQU PSAESPSW+2 06232000 FLCSILCB EQU FLCSVILC 06233000 @NM00004 EQU FLCSVILC 06234000 @NM00003 EQU PSAESPSW 06235000 FLCEICOD EQU PSAEEPSW+2 06236000 PSASPAD EQU PSAEEPSW 06237000 @NM00002 EQU PSA+128 06238000 FLCINPSW EQU PSA+120 06239000 FLCMNPSW EQU PSA+112 06240000 FLCPNPSW EQU PSA+104 06241000 FLCSNPSW EQU PSA+96 06242000 FLCENPSW EQU PSA+88 06243000 FLCTRACE EQU PSA+84 06244000 FLCTIMER EQU PSA+80 06245000 FLCCVT2 EQU PSA+76 06246000 FLCCAW EQU PSA+72 06247000 FLCCSW EQU PSA+64 06248000 FLCIOPSW EQU PSA+56 06249000 FLCMOPSW EQU PSA+48 06250000 FLCPOPSW EQU PSA+40 06251000 FLCSOPSW EQU PSA+32 06252000 FLCEOPSW EQU PSA+24 06253000 @NM00001 EQU FLCICCW2+4 06254000 FLCCVT EQU FLCICCW2 06255000 FLCICCW1 EQU FLCROPSW 06256000 FLCIPPSW EQU FLCRNPSW 06257000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 06258000 @RF00147 EQU @RC00139 06259000 @RF00146 EQU @RC00139 06260000 CCRET1 EQU @RC00178 06261000 @RC00231 EQU @RC00229 06262000 @RC00266 EQU @RC00264 06263000 @RC00283 EQU @RC00281 06264000 @RC00314 EQU @RC00312 06265000 @RF00346 EQU @RC00344 06266000 @RF00601 EQU @RC00594 06267000 @RF00676 EQU @RC00674 06268000 @RC00755 EQU @RC00753 06269000 @RC00233 EQU @RC00231 06270000 @RC00757 EQU @RC00755 06271000 @RF00826 EQU @RC00755 06272000 @RF00780 EQU @RC00757 06273000 @RF00812 EQU @RC00757 06274000 @ENDDATA EQU * 06275000 END IEA0TI00,(C'PLS1035',0701,77055) 06276000