TITLE 'IEAVEAC0 - ASCB DISPATCHING QUEUE CHAINER *00001000 ' 00002000 IEAVEAC0 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVEAC0 74.039' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * STM(REG8,REG1,ACSAVEA); /* SAVE REGISTERS 8-1 INCLUDING 00011000 * EP */ 00012000 STM REG8,REG1,ACSAVEA(REG13) 0060 00013000 * RFY 0061 00014000 * REG0 UNRSTD; 0061 00015000 * REG9=CVTPTR; /* ADDRESS OF THE CVT */ 00016000 L REG9,CVTPTR 0062 00017000 * RFY 0063 00018000 * CVTMAP BASED(REG9); 0063 00019000 * 0063 00020000 */* P ESTABLISH BASE REGISTER */ 00021000 * 0064 00022000 * REG10=R15WORK; /* INITIALIZE BASE REGISTER AT 0064 00023000 * EXECUTION TIME */ 00024000 LR REG10,R15WORK 0064 00025000 * GEN(USING IEAVEAC0,REG10); /* SPECIFY BASE REGISTER */ 00026000 USING IEAVEAC0,REG10 00027000 */* S LOCK: OBTAIN GLOBAL DISPATCHER LOCK */ 00028000 * 0066 00029000 * CALL LOCK; /* UNCONDITIONALLY REQUEST LOCK */ 00030000 BAL @14,LOCK 0066 00031000 * REG8->FRR6LOCK=R15WORK; /* SAVE SETLOCK RETURN CODE */ 00032000 STC R15WORK,FRR6LOCK(,REG8) 0067 00033000 * ACLOCKRC=R15WORK; /* SAVE SETLOCK RETURN CODE */ 00034000 STC R15WORK,ACLOCKRC(,REG13) 0068 00035000 * RFY 0069 00036000 * R15WORK UNRSTD; 0069 00037000 * RFY 0070 00038000 * REG8 UNRSTD; 0070 00039000 * 0070 00040000 */* P INITIALIZE RETURN CODE TO ZERO */ 00041000 * 0071 00042000 * ACRETCOD=RC0; /* SET CODE 0 0071 00043000 * */ 00044000 MVI ACRETCOD(REG13),X'00' 0071 00045000 * 0072 00046000 */* D (NO,%AC3,YES,) WAS MOVE OPTION SPECIFIED ? */ 00047000 * 0072 00048000 * IF ACECODE=CODE0MOV THEN /* WAS ENTRY CODE 0 SPECIFIED ? */ 00049000 CLI ACECODE(REG13),0 0072 00050000 BNE @RF00072 0072 00051000 * DO; /* MOVE OPTION */ 00052000 * 0073 00053000 * /*************************************************************/ 00054000 * /* */ 00055000 * /* MOVE OPTION */ 00056000 * /* */ 00057000 * /*************************************************************/ 00058000 * 0074 00059000 *AC000300: 0074 00060000 * DO; /* PROCESS ALL PARAMETER LIST 0074 00061000 * ENTRIES */ 00062000 AC000300 DS 0H 0075 00063000 */* AC000300: D (YES,%AC8,NO,) IS GIVEN ASCB TOP ON QUEUE ? */ 00064000 * 0075 00065000 * R11PARM=MOVEASCB; /* ADDRESS OF ASCB */ 00066000 L R11PARM,MOVEASCB(,REG1) 0075 00067000 * IF R11PARM^=CVTASCBH THEN /* IF NOT TOP ASCB @YM03475*/ 00068000 L @08,CVTASCBH(,REG9) 0076 00069000 CR R11PARM,@08 0076 00070000 BE @RF00076 0076 00071000 * DO; /* CHAP THIS ASCB */ 00072000 */* S DEQUEUE: DEQUEUE GIVEN ASCB */ 00073000 * 0078 00074000 * DO; /* INVOKE DEQUEUE */ 00075000 * R12SCAN=CVTASCBH; /* START SCANNING FROM TOP OF 0079 00076000 * QUEUE */ 00077000 LR R12SCAN,@08 0079 00078000 * CALL DEQUEUE; /* DEQUEUE ASCB */ 00079000 BAL @14,DEQUEUE 0080 00080000 * END; /* DEQUEUE INVOKED */ 00081000 */* P SAVE OLD, SET NEW PRIORITY INTO THE DEQUEUED ASCB */ 00082000 * 0082 00083000 * RFY 0082 00084000 * REG0 RSTD; 0082 00085000 * REG0=R11PARM->ASCBDP; /* SAVE @YM01849*/ 00086000 SLR REG0,REG0 0083 00087000 IC REG0,ASCBDP(,R11PARM) 0083 00088000 * R11PARM->ASCBDP=MOVEDP;/* PASS NEW DISPATCHING PRIORITY 00089000 * @YM01849*/ 00090000 MVC ASCBDP(1,R11PARM),MOVEDP+1(REG1) 0084 00091000 * RFY 0085 00092000 * R15WORK RSTD; 0085 00093000 * 0085 00094000 */* D (YES,%AC7,NO,) WAS ASCB ON THE QUEUE ? */ 00095000 * 0086 00096000 * IF R15WORK>ZERO THEN /* IF ASCB NOT DEQUEUED THEN */ 00097000 LTR R15WORK,R15WORK 0086 00098000 BNP @RF00086 0086 00099000 * DO; /* NOTIFY INVOKER */ 00100000 * RFY 0088 00101000 * R15WORK UNRSTD; 0088 00102000 * 0088 00103000 */* P (,%AC8) SET INDICATOR IN PARM LIST AND RETURN CODE 4 */ 00104000 * 0089 00105000 * MOVEOFF='1'B; /* NOTE ASCB NOT FOUND OR ONLY 0089 00106000 * ASCB ON QUEUE */ 00107000 OI MOVEOFF(REG1),B'01000000' 0089 00108000 * ACRETCOD=RC4; /* RETURN CODE */ 00109000 MVI ACRETCOD(REG13),X'04' 0090 00110000 * RFY 0091 00111000 * R15WORK UNRSTD; 0091 00112000 * END; /* INVOKER NOTIFIED */ 00113000 */* %AC7: S ENQUEUE: ENQUEUE ASCB AT GIVEN PRIORITY */ 00114000 * 0093 00115000 * ELSE /* IF ASCB SUCCESSFULLY DEQUEUED 00116000 * THEN */ 00117000 * DO; /* INVOKE ENQUEUE */ 00118000 B @RC00086 0093 00119000 @RF00086 DS 0H 0094 00120000 * IF(MOVEDP>REG0)|(R11PARM->ASCBBWDP=ZERO) THEN/* IF 00121000 * ASCB GOES HIGHER ON THE QUEUE */ 00122000 CH REG0,MOVEDP(,REG1) 0094 00123000 BL @RT00094 0094 00124000 ICM @08,15,ASCBBWDP(R11PARM) 0094 00125000 BNZ @RF00094 0094 00126000 @RT00094 DS 0H 0095 00127000 * R12SCAN=CVTASCBH;/* START SCANNING FROM TOP OF 0095 00128000 * QUEUE */ 00129000 L R12SCAN,CVTASCBH(,REG9) 0095 00130000 * ELSE /* IF ASCB GOES LOWER ON QUEUE 0096 00131000 * THEN */ 00132000 * R12SCAN=R11PARM->ASCBBWDP;/* START SCANNING FROM 00133000 * LAST ASCB POSITION */ 00134000 B @RC00094 0096 00135000 @RF00094 L R12SCAN,ASCBBWDP(,R11PARM) 0096 00136000 * R11PARM=R11PARM; /* PASS DEQUEUED ASCB */ 00137000 @RC00094 DS 0H 0098 00138000 * CALL ENQUEUE; /* REENQUEUE ASCB */ 00139000 BAL @14,ENQUEUE 0098 00140000 * END; /* ENQUEUE INVOKED */ 00141000 * RFY 0100 00142000 * REG0 UNRSTD; 0100 00143000 @RC00086 DS 0H 0101 00144000 * END; /* ASCB NOW CHAPPED */ 00145000 */* %AC8: D (NO,AC000300,YES,) ALL INPUT ASCB'S CHAPPED ? */ 00146000 * 0102 00147000 * IF MOVELAST='0'B THEN /* IF LAST VECTOR ENTRY NOT YET 00148000 * PROCESSED THEN */ 00149000 @RF00076 TM MOVELAST(REG1),B'10000000' 0102 00150000 BNZ @RF00102 0102 00151000 * DO; 0103 00152000 * REG1=ADDR(MOVENEXT); /* INCREMENT PARAMETER VECTOR 0104 00153000 * POINTER */ 00154000 LA @08,MOVENEXT(,REG1) 0104 00155000 LR REG1,@08 0104 00156000 * GOTO AC000300; /* REPEAT LOOP */ 00157000 B AC000300 0105 00158000 * END; 0106 00159000 * END AC000300; /* ALL PARAMETER VECTOR ENTRIES 00160000 * PROCESSED */ 00161000 @RF00102 DS 0H 0108 00162000 */* S SEQUENCE: REORDER ASCB SEQUENCE NUMBERS */ 00163000 * 0108 00164000 * DO; /* INVOKE SEQUENCE */ 00165000 * RFY 0109 00166000 * R15WORK RSTD; 0109 00167000 * R15WORK=TWO; /* SEQUENCE NUMBER OF SECOND 0110 00168000 * ELEMENT ON QUEUE @YM03475*/ 00169000 LA R15WORK,2 0110 00170000 * R12SCAN=CVTASCBH->ASCBFWDP;/* START SCANNING AT NEXT FROM 00171000 * TOP OF QUEUE @YM03475*/ 00172000 L @14,CVTASCBH(,REG9) 0111 00173000 L R12SCAN,ASCBFWDP(,@14) 0111 00174000 * CALL SEQUENCE; /* REORDER ASCB SEQUENCE NUMBERS */ 00175000 BAL @14,SEQUENCE 0112 00176000 * RFY 0113 00177000 * R15WORK UNRSTD; 0113 00178000 * END; /* SEQUENCE INVOKED */ 00179000 */* P (,%AC6) SET MEMORY SWITCH CODE TO DISPATCH FROM TOP OF QUEUE */ 00180000 * 0115 00181000 * REG1=ZERO; /* PASS ENTRY CODE FOR RESET TO 00182000 * TOP OF DISPATCHING QUEUE */ 00183000 SLR REG1,REG1 0115 00184000 * END; /* END MOVE 0116 00185000 * */ 00186000 * 0117 00187000 * /*****************************************************************/ 00188000 * /* */ 00189000 * /* CHECK FOR ADD OR DELETE AT TOP OF QUEUE */ 00190000 * /* */ 00191000 * /*****************************************************************/ 00192000 * 0117 00193000 */* %AC3: D (YES,AC000400,NO,) IS INPUT ASCB TOP ON QUEUE ? */ 00194000 * 0117 00195000 * ELSE 0117 00196000 * IF REG1=CVTASCBH THEN /* IF TOP OF QUEUE @YM03475*/ 00197000 B @RC00072 0117 00198000 @RF00072 L @08,CVTASCBH(,REG9) 0117 00199000 CR REG1,@08 0117 00200000 BE @RT00117 0117 00201000 * GOTO AC000400; /* IGNORE REQUEST @YM03475*/ 00202000 */* D (NO,AC000100,YES,) WAS ADD OPTION SPECIFIED ? */ 00203000 * 0119 00204000 * ELSE /* NOT MOVE OPTION */ 00205000 * IF ACECODE=CODE1ADD THEN /* WAS ENTRY CODE 1 SPECIFIED ? */ 00206000 CLI ACECODE(REG13),1 0119 00207000 BNE @RF00119 0119 00208000 * DO; /* ADD OPTION */ 00209000 * 0120 00210000 * /*********************************************************/ 00211000 * /* */ 00212000 * /* ADD OPTION */ 00213000 * /* */ 00214000 * /*********************************************************/ 00215000 * 0121 00216000 */* S ENQUEUE: ENQUEUE ASCB AT GIVEN PRIORITY */ 00217000 * 0121 00218000 * DO; /* INVOKE ENQUEUE */ 00219000 * R11PARM=REG1; /* PASS ASCB ADDRESS */ 00220000 LR R11PARM,REG1 0122 00221000 * R12SCAN=CVTASCBH; /* START SCANNING AT TOP OF QUEUE*/ 00222000 LR R12SCAN,@08 0123 00223000 * CALL ENQUEUE; /* ENQUEUE ASCB */ 00224000 BAL @14,ENQUEUE 0124 00225000 * END; /* ENQUEUE INVOKED */ 00226000 */* S SEQUENCE: REORDER ASCB SEQUENCE NUMBERS */ 00227000 * 0126 00228000 * DO; /* INVOKE SEQUENCE */ 00229000 * RFY 0127 00230000 * R15WORK RSTD; 0127 00231000 * R15WORK=REG1->ASCBBWDP->ASCBSEQN+ONE;/* FIRST NUMBER TO 00232000 * BE ASSIGNED @YM03475*/ 00233000 L @08,ASCBBWDP(,REG1) 0128 00234000 LA R15WORK,1 0128 00235000 AH R15WORK,ASCBSEQN(,@08) 0128 00236000 * R12SCAN=REG1; /* START SCANNING AT THIS ASCB */ 00237000 LR R12SCAN,REG1 0129 00238000 * CALL SEQUENCE; /* REORDER ASCB SEQUENCE NUMBERS */ 00239000 BAL @14,SEQUENCE 0130 00240000 * RFY 0131 00241000 * R15WORK UNRSTD; 0131 00242000 * END; /* SEQUENCE INVOKED */ 00243000 */* P (,%AC6) SET MEMORY SWITCH CODE TO RESET ASCB NEW */ 00244000 * 0133 00245000 * REG1=REG1; /* PASS ASCB ADDRESS */ 00246000 * END; /* END ADD OPTION 0134 00247000 * */ 00248000 * ELSE /* ASSUME ENTRY CODE 2 */ 00249000 * DO; /* DELETE OPTION */ 00250000 * 0135 00251000 B @RC00119 0135 00252000 @RF00119 DS 0H 0136 00253000 * /*********************************************************/ 00254000 * /* */ 00255000 * /* DELETE OPTION */ 00256000 * /* */ 00257000 * /*********************************************************/ 00258000 * 0136 00259000 */* AC000100: D (NO,AC000200,YES,) IS A TASK ACTIVE IN THE MEMORY ? */ 00260000 * 0136 00261000 *AC000100: /* @YM02483*/ 00262000 * IF REG1->ASCBCPUS<=ZERO THEN/* IF NO ACTIVE TASKS 0136 00263000 * @YM01849*/ 00264000 AC000100 SLR @08,@08 0136 00265000 C @08,ASCBCPUS(,REG1) 0136 00266000 BNL @RT00136 0136 00267000 * GOTO AC000200; /* GO UNCHAIN ASCB @YM01849*/ 00268000 */* S UNLOCK: RELEASE GLOBAL DISP LOCK */ 00269000 * 0138 00270000 * RFY 0138 00271000 * REG0 RSTD; 0138 00272000 * REG0=LOCK0; /* SPECIFY RELEASE GLOBAL 0139 00273000 * DISPATCHER LOCK @YM01849*/ 00274000 LR REG0,@08 0139 00275000 * CALL UNLOCK; /* RELEASE LOCK FOR SPIN @YM01849*/ 00276000 BAL @14,UNLOCK 0140 00277000 * RFY 0141 00278000 * REG0 UNRSTD; 0141 00279000 * 0142 00280000 * /*********************************************************/ 00281000 * /* */ 00282000 * /* CHECK IF ALTERNATE CPU RECOVERY (ACR) HAS BEEN */ 00283000 * /* ENTERED. IF SO, BRANCH TO ACR DISABLED TO ALLOW ACR */ 00284000 * /* PROCESSING TO COMPLETE. THIS IS REQUIRED, BECAUSE THIS*/ 00285000 * /* ROUTINE RUNS IN SRB MODE WHILE SPINNING ON ASCBCPUS. */ 00286000 * /* */ 00287000 * /*********************************************************/ 00288000 * 0142 00289000 */* %AC1: D (NO,%AC2,YES,) HAS ACR BEEN ENTERED ? */ 00290000 * 0142 00291000 * IF LCCAACR='1'B THEN /* ACR IN PROCESS ? @YM01849*/ 00292000 L @08,PSALCCAV 0142 00293000 TM LCCAACR(@08),B'10000000' 0142 00294000 BNO @RF00142 0142 00295000 * DO; /* CALL ACR @YM01849*/ 00296000 */* P DISABLE EXTERNAL AND I/O INTERRUPTS */ 00297000 * 0144 00298000 * GEN(STNSM ACOMASK(REG13),DMASK);/* DISABLE @YM01849*/ 00299000 STNSM ACOMASK(REG13),DMASK 00300000 * R15WORK=REG10; /* SAVE BASE REGISTER @YM01849*/ 00301000 LR R15WORK,REG10 0145 00302000 */* L ACR: ALLOW ALTERNATE CPU RECOVERY TO COMPLETE */ 00303000 * 0146 00304000 * REG10=PSALCCAV; /* ADDRESS OF CURRENT LCCA 0146 00305000 * @YM01849*/ 00306000 L REG10,PSALCCAV 0146 00307000 * GENERATE REFS(LCCA,LCCACPUS,WSAC,WSACACR,CVTMAP, 0147 00308000 * CVTBTERM); 0147 00309000 CALLRTM TYPE=ACRLM,CCA=(REG10) INVOKE ACR @YM01849 00310000 * REG10=R15WORK; /* RESTORE BASE REG @YM01849*/ 00311000 LR REG10,R15WORK 0148 00312000 */* P RESET PSW MASK */ 00313000 * 0149 00314000 * R15WORK=ACOMASK; /* ORIGINAL PSW MASK @YM01849*/ 00315000 SLR R15WORK,R15WORK 0149 00316000 IC R15WORK,ACOMASK(,REG13) 0149 00317000 * GEN(EX R15WORK,ACENABLE);/* ENABLE @YM01849*/ 00318000 EX R15WORK,ACENABLE 00319000 * END; /* END ACR CALL @YM01849*/ 00320000 * 0151 00321000 * /*********************************************************/ 00322000 * /* */ 00323000 * /* REOBTAIN DISP LOCK TO CHECK FOR ACTIVE TASK */ 00324000 * /* */ 00325000 * /*********************************************************/ 00326000 * 0152 00327000 */* %AC2: S (,AC000100) LOCK: OBTAIN GLOBAL DISP LOCK */ 00328000 * 0152 00329000 * RFY 0152 00330000 * REG8 RSTD; 0152 00331000 @RF00142 DS 0H 0153 00332000 * CALL LOCK; /* REOBTAIN DISPATCHER LOCK 0153 00333000 * @YM01849*/ 00334000 BAL @14,LOCK 0153 00335000 * REG8->FRR6LOCK=ACLOCKRC;/* RESET ORIGINAL SETLOCK RETURN 00336000 * CODE @YM01849*/ 00337000 MVC FRR6LOCK(1,REG8),ACLOCKRC(REG13) 0154 00338000 * RFY 0155 00339000 * REG8 UNRSTD; 0155 00340000 * GOTO AC000100; /* CONTINUE WAIT LOOP @YM01849 00341000 * */ 00342000 B AC000100 0156 00343000 * 0157 00344000 * /*********************************************************/ 00345000 * /* */ 00346000 * /* ALL TASKS IN THE ADDRESS SPACE STOPPED, UNCHAIN ASCB */ 00347000 * /* */ 00348000 * /*********************************************************/ 00349000 * 0157 00350000 */* AC000200: S DEQUEUE: UNCHAIN INPUT ASCB */ 00351000 * 0157 00352000 *AC000200: /* @YM02483*/ 00353000 * DO; /* INVOKE DEQUEUE */ 00354000 AC000200 DS 0H 0158 00355000 * R11PARM=REG1; /* PASS ADDRESS OF ASCB TO 0158 00356000 * DEQUEUE */ 00357000 LR R11PARM,REG1 0158 00358000 * R12SCAN=CVTASCBH; /* START SCANNING AT TOP OF QUEUE*/ 00359000 L R12SCAN,CVTASCBH(,REG9) 0159 00360000 * CALL DEQUEUE; /* DEQUEUE ASCB */ 00361000 BAL @14,DEQUEUE 0160 00362000 * END; /* DEQUEUE INVOKED */ 00363000 */* P IF DEQUEUE FAILED THEN SET RETURN CODE */ 00364000 * 0162 00365000 * IF R15WORK>ZERO THEN /* IF ASCB NOT DEQUEUED THEN */ 00366000 LTR R15WORK,R15WORK 0162 00367000 BNP @RF00162 0162 00368000 * ACRETCOD=RC4; /* RETURN ERROR CODE */ 00369000 MVI ACRETCOD(REG13),X'04' 0163 00370000 */* P SET CODE TO DISPATCH FROM TOP OF QUEUE */ 00371000 * 0164 00372000 * REG1=ZERO; /* MEMORY SWITCH ENTRY CODE 0164 00373000 * @YM02483*/ 00374000 @RF00162 SLR REG1,REG1 0164 00375000 * END; /* END DELETE OPTION 0165 00376000 * */ 00377000 * 0166 00378000 * /*****************************************************************/ 00379000 * /* */ 00380000 * /* EXIT LINKAGE */ 00381000 * /* */ 00382000 * /*****************************************************************/ 00383000 * 0166 00384000 */* %AC6: L IEAVEMS0: MEMORY SWITCH */ 00385000 * 0166 00386000 * CALL IEAVEMS0; /* CALL MEMORY SWITCH WITH CODE 00387000 * AS SET IN REG1 @YM02483*/ 00388000 @RC00119 DS 0H 0166 00389000 @RC00072 L @15,@CV01750 0166 00390000 BALR @14,@15 0166 00391000 */* AC000400: P SET UNLOCK ENTRY CODE TO SETLOCK RETURN CODE */ 00392000 * 0167 00393000 * RFY 0167 00394000 * REG0 RSTD; 0167 00395000 *AC000400: 0168 00396000 * REG0=ACLOCKRC; /* DETERMINES WHETHER LOCK IS 0168 00397000 * FREED */ 00398000 AC000400 SLR REG0,REG0 0168 00399000 IC REG0,ACLOCKRC(,REG13) 0168 00400000 */* S UNLOCK: CANCEL FRR AND COND FREE LOCK */ 00401000 * 0169 00402000 * CALL UNLOCK; /* INVOKE SUBROUTINE */ 00403000 BAL @14,UNLOCK 0169 00404000 */* P RESTORE REGS, SET RETURN CODE */ 00405000 * 0170 00406000 * RFY 0170 00407000 * REG8 RSTD; 0170 00408000 * RFY 0171 00409000 * REG14 RSTD; 0171 00410000 * ACSAVE13=REG13; /* SET SAVE AREA ADDRESS INTO 0172 00411000 * SAVE AREA */ 00412000 ST REG13,ACSAVE13(,REG13) 0172 00413000 * LM(REG8,REG1,ACSAVEA); /* RESTORE REGS 8 - 1 */ 00414000 LM REG8,REG1,ACSAVEA(REG13) 0173 00415000 * R15WORK=ACRETCOD; /* RETURN CODE */ 00416000 SLR R15WORK,R15WORK 0174 00417000 IC R15WORK,ACRETCOD(,REG13) 0174 00418000 */* R () RETURN TO CALLER */ 00419000 * 0175 00420000 * GOTO REG14; /* RETURN */ 00421000 BR REG14 0175 00422000 * RFY 0176 00423000 * REG0 UNRSTD; 0176 00424000 * RFY 0177 00425000 * REG8 UNRSTD; 0177 00426000 * RFY 0178 00427000 * REG14 UNRSTD; 0178 00428000 * RFY 0179 00429000 * R15WORK UNRSTD; 0179 00430000 * 0179 00431000 */* IEAVEAC0: END FLOWCHART */ 00432000 * 0180 00433000 * 0180 00434000 */* ENQUEUE: CHART */ 00435000 */* FOOTING 0180 00436000 */* SUBROUTINE CHAINS ASCB ONTO DISPATCHING QUEUE */ 00437000 * 0180 00438000 *ENQUEUE: 0180 00439000 * PROC /* ENQUEUE ASCB TO QUEUE AT GIVEN 00440000 * PRIORITY */ 00441000 * OPTIONS(NOSAVEAREA,NOSAVE); /* REG14 ADDRESSES RETURN POINT */ 00442000 @EL00001 DS 0H 0180 00443000 @EF00001 DS 0H 0180 00444000 @ER00001 BR @14 0180 00445000 @PB00001 DS 0H 0180 00446000 ENQUEUE DS 0H 0181 00447000 * RFY 0181 00448000 * REG14 RSTD; /* PRESERVE RETURN REGISTER */ 00449000 * 0181 00450000 * /*****************************************************************/ 00451000 * /* */ 00452000 * /* ENQUEUE SUBROUTINE. AT ENTRY AND EXIT R11PARM->ASCB FOR */ 00453000 * /* ENQUEUEING, AND R12SCAN->ASCB FROM WHICH DOWNWARD QUEUE SCAN */ 00454000 * /* STARTS. FOR EXAMPLE R12SCAN=CVTASCBH SCANS ENTIRE QUEUE. */ 00455000 * /* R12SCAN AND R15WORK CLOBBERED. THIS SUBROUTINE ASSUMES THAT */ 00456000 * /* THE INPUT ASCB IS NOT THE TOP ASCB ON THE QUEUE, AND THAT THE */ 00457000 * /* TOP ASCB ALWAYS HAS DISPATCHING PRIORITY 255. */ 00458000 * /* */ 00459000 * /*****************************************************************/ 00460000 * 0182 00461000 */* E BEGIN ENQUEUE */ 00462000 */* P MARK ASCB ENQUEUED */ 00463000 * 0182 00464000 * R11PARM->ASCBNOQ='0'B; /* MARK ASCB ENQUEUED */ 00465000 NI ASCBNOQ(R11PARM),B'01111111' 0182 00466000 */* P FIND QUEUE POSITION FOR ENQUEUEING */ 00467000 * 0183 00468000 * DO WHILE(R12SCAN>ZERO /* FIND END OF QUEUE */ 00469000 * &R12SCAN->ASCBDP>=R11PARM->ASCBDP);/* OR A LOWER PRIORITY 00470000 * ASCB @YM01849*/ 00471000 B @DE00183 0183 00472000 @DL00183 DS 0H 0184 00473000 * R12SCAN=R12SCAN->ASCBFWDP; /* SCAN ASCB QUEUE */ 00474000 L R12SCAN,ASCBFWDP(,R12SCAN) 0184 00475000 * END; /* END OF QUEUE OR LOWER PRIORITY 00476000 * ASCB FOUND */ 00477000 @DE00183 LTR R12SCAN,R12SCAN 0185 00478000 BNP @DC00183 0185 00479000 CLC ASCBDP(1,R12SCAN),ASCBDP(R11PARM) 0185 00480000 BNL @DL00183 0185 00481000 @DC00183 DS 0H 0186 00482000 */* P ENQUEUE ASCB */ 00483000 * 0186 00484000 * /*****************************************************************/ 00485000 * /* */ 00486000 * /* CHAIN TOP POINTERS TO NEXT HIGHER PRIORITY ASCB */ 00487000 * /* */ 00488000 * /*****************************************************************/ 00489000 * 0186 00490000 * DO; /* CHAIN PRECEEDING TO SUBJECT 0186 00491000 * ASCB */ 00492000 * DO; /* FIND NEXT HIGHER PRIORITY ASCB*/ 00493000 * RFY 0188 00494000 * R15WORK RSTD; 0188 00495000 * IF R12SCAN=ZERO THEN /* IF ENQUEUEING TO BOTTOM OF 0189 00496000 * QUEUE THEN */ 00497000 LTR R12SCAN,R12SCAN 0189 00498000 BNZ @RF00189 0189 00499000 * DO; /* CHAIN BOTTOM POINTERS TO 0190 00500000 * BOTTOM OF QUEUE */ 00501000 * R15WORK=CVTASCBL; /* ENQUEUE AFTER LAST ASCB ON 0191 00502000 * QUEUE */ 00503000 L R15WORK,CVTASCBL(,REG9) 0191 00504000 * CVTASCBL=R11PARM; /* CHAIN BOTTOM BACKWARD POINTER */ 00505000 ST R11PARM,CVTASCBL(,REG9) 0192 00506000 * END; /* BOTTOM POINTERS CHAINED TO 0193 00507000 * BOTTOM OF QUEUE */ 00508000 * ELSE /* IF NOT ENQUEUEING TO BOTTOM OF 00509000 * QUEUE THEN */ 00510000 * DO; /* CHAIN BOTTOM POINTERS TO NEXT 00511000 * LOWER PRIORITY ASCB */ 00512000 B @RC00189 0194 00513000 @RF00189 DS 0H 0195 00514000 * R15WORK=R12SCAN->ASCBBWDP;/* ENQUEUE AFTER LAST ASCB 0195 00515000 * SCANNED */ 00516000 L R15WORK,ASCBBWDP(,R12SCAN) 0195 00517000 * R12SCAN->ASCBBWDP=R11PARM;/* CHAIN BOTTOM BACKWARD 0196 00518000 * POINTER */ 00519000 ST R11PARM,ASCBBWDP(,R12SCAN) 0196 00520000 * END; /* BOTTOM POINTERS CHAINED TO 0197 00521000 * NEXT LOWER PRIORITY ASCB */ 00522000 * END; /* NEXT HIGHER PRIORITY ASCB 0198 00523000 * FOUND */ 00524000 * 0198 00525000 @RC00189 DS 0H 0199 00526000 * /***************************************************************/ 00527000 * /* */ 00528000 * /* CHAIN TOP POINTERS TO NEXT HIGHER PRIORITY ASCB */ 00529000 * /* */ 00530000 * /***************************************************************/ 00531000 * 0199 00532000 * R15WORK->ASCBFWDP=R11PARM; /* CHAIN TOP FOREWARD POINTER */ 00533000 ST R11PARM,ASCBFWDP(,R15WORK) 0199 00534000 * R11PARM->ASCBBWDP=R15WORK; /* CHAIN TOP BACKWARD POINTER */ 00535000 * 0200 00536000 ST R15WORK,ASCBBWDP(,R11PARM) 0200 00537000 * /***************************************************************/ 00538000 * /* */ 00539000 * /* CHAIN BOTTOM POINTER */ 00540000 * /* */ 00541000 * /***************************************************************/ 00542000 * 0201 00543000 * R11PARM->ASCBFWDP=R12SCAN; /* CHAIN BOTTOM FORWARD POINTER */ 00544000 ST R12SCAN,ASCBFWDP(,R11PARM) 0201 00545000 * END; /* SUBJECT CHAINED TO PRECEEDING 00546000 * ASCB */ 00547000 */* R () END ENQUEUE */ 00548000 * 0203 00549000 * RFY 0203 00550000 * REG14 UNRSTD; /* RELEASE RETURN REGISTER */ 00551000 * RFY 0204 00552000 * R15WORK UNRSTD; 0204 00553000 * END ENQUEUE; /* ASCB ENQUEUED TO QUEUE AT 0205 00554000 * GIVEN PRIORITY */ 00555000 @EL00002 DS 0H 0205 00556000 @EF00002 DS 0H 0205 00557000 @ER00002 BR @14 0205 00558000 */* ENQUEUE: END FLOWCHART */ 00559000 * 0206 00560000 * 0206 00561000 */* DEQUEUE: CHART */ 00562000 */* FOOTING 0206 00563000 */* SUBROUTINE UNCHAINS ASCB FROM THE DISPATCHING QUEUE */ 00564000 * 0206 00565000 *DEQUEUE: 0206 00566000 * PROC /* DEQUEUE GIVEN ASCB FROM QUEUE */ 00567000 * OPTIONS(NOSAVEAREA,NOSAVE); /* REG14 ADDRESSES RETURN POINT */ 00568000 DEQUEUE DS 0H 0207 00569000 * RFY 0207 00570000 * REG14 RSTD; /* PRESERVE RETURN REGISTER */ 00571000 * 0207 00572000 * /*****************************************************************/ 00573000 * /* */ 00574000 * /* DEQUEUE SUBROUTINE. AT ENTRY AND EXIT R11PARM->ASCB GIVEN FOR */ 00575000 * /* DELETION, AND R12SCAN->ASCB FROM WHICH DOWNWARD QUEUE SCANNING*/ 00576000 * /* STARTS. FOR EXAMPLE R12SCAN=CVTASCBH SCANS ENTIRE QUEUE. */ 00577000 * /* R12SCAN CLOBBERED AND R15WORK SET TO RETURN CODE. THIS */ 00578000 * /* SUBROUTINE ASSUMES THAT THE INPUT ASCB IS NOT THE TOP ASCB ON */ 00579000 * /* THE QUEUE. */ 00580000 * /* */ 00581000 * /*****************************************************************/ 00582000 * 0208 00583000 */* E BEGIN DEQUEUE */ 00584000 */* P MARK ASCB DEQUEUED */ 00585000 * 0208 00586000 * R11PARM->ASCBNOQ='1'B; /* MARK ASCB DEQUEUED */ 00587000 OI ASCBNOQ(R11PARM),B'10000000' 0208 00588000 */* P FIND GIVEN ASCB OR BOTTOM OF QUEUE */ 00589000 * 0209 00590000 * DO WHILE(R12SCAN>ZERO /* UNTIL BOTTOM OF QUEUE REACHED */ 00591000 * &R12SCAN^=R11PARM); /* OR GIVEN ASCB FOUND */ 00592000 B @DE00209 0209 00593000 @DL00209 DS 0H 0210 00594000 * R12SCAN=R12SCAN->ASCBFWDP; /* SCAN ASCB QUEUE */ 00595000 L R12SCAN,ASCBFWDP(,R12SCAN) 0210 00596000 * END; /* GIVEN ASCB FOUND OR END OF 0211 00597000 * QUEUE REACHED */ 00598000 @DE00209 LTR R12SCAN,R12SCAN 0211 00599000 BNP @DC00209 0211 00600000 CR R12SCAN,R11PARM 0211 00601000 BNE @DL00209 0211 00602000 @DC00209 DS 0H 0212 00603000 */* P SET RETURN CODE DEPENDING UPON RESULT OF SEARCH */ 00604000 * 0212 00605000 * RFY 0212 00606000 * R15WORK RSTD; 0212 00607000 * IF R12SCAN=ZERO THEN /* IF QUEUE DOES NOT CONTAIN 0213 00608000 * GIVEN ASCB THEN */ 00609000 LTR R12SCAN,R12SCAN 0213 00610000 BNZ @RF00213 0213 00611000 * R15WORK=RC4; /* NOTIFY INVOKER */ 00612000 LA R15WORK,4 0214 00613000 * ELSE /* IF NOTHING UNTOWARD HAPPENED 00614000 * THEN */ 00615000 * DO; /* ACCEPT REQUEST */ 00616000 B @RC00213 0215 00617000 @RF00213 DS 0H 0216 00618000 * R15WORK=RC0; /* RETURN CODE FOR DEQUEUE 0216 00619000 * PERFORMED */ 00620000 SLR R15WORK,R15WORK 0216 00621000 */* P DEQUEUE ASCB IF OK */ 00622000 * 0217 00623000 * /*************************************************************/ 00624000 * /* */ 00625000 * /* RECHAIN TOP POINTER */ 00626000 * /* */ 00627000 * /*************************************************************/ 00628000 * 0217 00629000 * R12SCAN->ASCBBWDP->ASCBFWDP=R12SCAN->ASCBFWDP;/* CHAIN TOP 0217 00630000 * POINTER SO */ 00631000 * 0217 00632000 L @08,ASCBBWDP(,R12SCAN) 0217 00633000 MVC ASCBFWDP(4,@08),ASCBFWDP(R12SCAN) 0217 00634000 * /*************************************************************/ 00635000 * /* */ 00636000 * /* RECHAIN BOTTOM POINTER */ 00637000 * /* */ 00638000 * /*************************************************************/ 00639000 * 0218 00640000 * IF R12SCAN=CVTASCBL THEN /* IF DEQUEUEING FROM BOTTOM OF 00641000 * QUEUE THEN */ 00642000 C R12SCAN,CVTASCBL(,REG9) 0218 00643000 BNE @RF00218 0218 00644000 * CVTASCBL=R12SCAN->ASCBBWDP;/* CHAIN BOTTOM POINTER THUS */ 00645000 ST @08,CVTASCBL(,REG9) 0219 00646000 * ELSE /* IF NOT DEQUEUEING FROM BOTTOM 00647000 * OF QUEUE THEN */ 00648000 * R12SCAN->ASCBFWDP->ASCBBWDP=R12SCAN->ASCBBWDP;/* CHAIN 0220 00649000 * BOTTOM POINTER SO */ 00650000 B @RC00218 0220 00651000 @RF00218 L @08,ASCBFWDP(,R12SCAN) 0220 00652000 MVC ASCBBWDP(4,@08),ASCBBWDP(R12SCAN) 0220 00653000 * END; 0221 00654000 * 0221 00655000 */* R () END DEQUEUE */ 00656000 * 0222 00657000 * RFY 0222 00658000 * REG14 UNRSTD; /* RELEASE RETURN REGISTER */ 00659000 * RFY 0223 00660000 * R15WORK UNRSTD; 0223 00661000 * END DEQUEUE; /* GIVEN ASCB DEQUEUED FROM QUEUE*/ 00662000 @EL00003 DS 0H 0224 00663000 @EF00003 DS 0H 0224 00664000 @ER00003 BR @14 0224 00665000 * RFY 0225 00666000 * R15WORK UNRSTD; 0225 00667000 * 0225 00668000 */* DEQUEUE: END FLOWCHART */ 00669000 * 0226 00670000 * 0226 00671000 */* SEQUENCE: CHART */ 00672000 */* FOOTING 0226 00673000 */* SUBROUTINE RENUMBERS THE ASCB SEQUENCING */ 00674000 * 0226 00675000 *SEQUENCE: 0226 00676000 * PROC /* REORDER THE ASCB QUEUE 0226 00677000 * PRIORITY SEQUENCE NUMBERS */ 00678000 * OPTIONS(NOSAVEAREA,NOSAVE); /* REG14 ADDRESSES RETURN POINT */ 00679000 SEQUENCE DS 0H 0227 00680000 * RFY 0227 00681000 * REG14 RSTD; /* PRESERVE RETURN REGISTER */ 00682000 * RFY 0228 00683000 * R15WORK RSTD; 0228 00684000 * 0228 00685000 * /*****************************************************************/ 00686000 * /* */ 00687000 * /* SEQUENCE SUBROUTINE. AT ENTRY R12SCAN->ASCB FOR START OF */ 00688000 * /* DOWNWARD SCAN -- FOR EXAMPLE R12SCAN=CVTASCBH SCANS ENTIRE */ 00689000 * /* QUEUE. R15WORK ON ENTRY CONTAINS THE FIRST SEQUENCE NUMBER TO */ 00690000 * /* BE ASSIGNED. R12SCAN AND R15WORK CLOBBERED. */ 00691000 * /* */ 00692000 * /*****************************************************************/ 00693000 * 0229 00694000 */* E BEGIN SEQUENCE */ 00695000 */* P PLACE SEQUENCE NUMBERS IN REMAINDER OF QUEUE */ 00696000 * 0229 00697000 * DO WHILE(R12SCAN>ZERO); /* UNTIL END OF QUEUE REACHED */ 00698000 B @DE00229 0229 00699000 @DL00229 DS 0H 0230 00700000 * R12SCAN->ASCBSEQN=R15WORK; /* NUMBER THIS ASCB */ 00701000 STH R15WORK,ASCBSEQN(,R12SCAN) 0230 00702000 * R12SCAN=R12SCAN->ASCBFWDP; /* FIND NEXT ASCB */ 00703000 L R12SCAN,ASCBFWDP(,R12SCAN) 0231 00704000 * R15WORK=R15WORK+ONE; /* FIND NEXT ORDINAL */ 00705000 AH R15WORK,@CH00088 0232 00706000 * END; /* ENTIRE QUEUE RENUMBERED */ 00707000 @DE00229 LTR R12SCAN,R12SCAN 0233 00708000 BP @DL00229 0233 00709000 */* R () END SEQUENCE */ 00710000 * 0234 00711000 * RFY 0234 00712000 * REG14 UNRSTD; /* RELEASE RETURN REGISTER */ 00713000 * RFY 0235 00714000 * R15WORK UNRSTD; 0235 00715000 * END SEQUENCE; /* ASCB QUEUE PRIORITY SEQUENCE 00716000 * NUMBERS REORDERED */ 00717000 @EL00004 DS 0H 0236 00718000 @EF00004 DS 0H 0236 00719000 @ER00004 BR @14 0236 00720000 */* SEQUENCE: END FLOWCHART */ 00721000 * 0237 00722000 * 0237 00723000 */* LOCK: CHART */ 00724000 */* FOOTING 0237 00725000 */* SUBROUTINE OBTAINS THE GLOBAL DISPATCHER LOCK */ 00726000 * 0237 00727000 *LOCK: 0237 00728000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0237 00729000 * 0237 00730000 LOCK DS 0H 0238 00731000 * /*****************************************************************/ 00732000 * /* */ 00733000 * /* REG8 SET TO ADDRESS OF FRR 6-WORD WORK AREA. R15WORK SET TO */ 00734000 * /* SETLOCK RETURN CODE. REG0, R11PARM, R12SCAN ALTERED. */ 00735000 * /* */ 00736000 * /*****************************************************************/ 00737000 * 0238 00738000 */* E ENTER LOCK */ 00739000 * 0238 00740000 * RFY 0238 00741000 * REG0 RSTD; 0238 00742000 * RFY 0239 00743000 * REG14 RSTD; 0239 00744000 * REG0=REG14; /* SAVE RETURN ADDRESS */ 00745000 LR REG0,REG14 0240 00746000 */* L SETLOCK: OBTAIN DISPATCHER LOCK */ 00747000 * 0241 00748000 * RFY 0241 00749000 * REG8 RSTD; /* RESTRICT FROM COMPILER */ 00750000 * REG8=REG13; /* SAVE SAVEAREA ADDRESS @YM00864*/ 00751000 LR REG8,REG13 0242 00752000 * GEN REFS(PSALITA) SETS(R11PARM,R12SCAN,REG13,REG14); 0243 00753000 * 0243 00754000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND,RELATED=(DISP,IEAVEAC0,UNLOCK) 00755000 */* P SAVE RETURN CODE */ 00756000 * 0244 00757000 * RFY 0244 00758000 * R15WORK RSTD; 0244 00759000 * R15WORK=REG13; /* SAVE RETURN CODE */ 00760000 LR R15WORK,REG13 0245 00761000 * REG13=REG8; /* RESTORE SAVEAREA ADDRESS 0246 00762000 * @YM00864*/ 00763000 LR REG13,REG8 0246 00764000 */* L SETFRR: ADD FRR */ 00765000 * 0247 00766000 * REG14=ADDR(IEAVEAC3); /* PASS ADDRESS OF FRR @Y02753*/ 00767000 LA REG14,IEAVEAC3 0247 00768000 * GENERATE; 0248 00769000 SETFRR A,FRRAD=(REG14),PARMAD=(REG8), *00770000 WRKREGS=(R12SCAN,REG8) @Y02753 00771000 * ACFRR6AD=REG8; /* SAVE ADDRESS OF FRR6WORD 0249 00772000 * @Y02753*/ 00773000 ST REG8,ACFRR6AD(,REG13) 0249 00774000 * RFY 0250 00775000 * R15WORK UNRSTD; 0250 00776000 * RFY 0251 00777000 * REG8 UNRSTD; 0251 00778000 * REG14=REG0; /* RESTORE RETURN ADDRESS */ 00779000 LR REG14,REG0 0252 00780000 * RFY 0253 00781000 * REG0 UNRSTD; 0253 00782000 * RFY 0254 00783000 * REG14 UNRSTD; 0254 00784000 * 0254 00785000 */* R () RETURN */ 00786000 * 0255 00787000 * END LOCK; /* END SUBROUTINE */ 00788000 @EL00005 DS 0H 0255 00789000 @EF00005 DS 0H 0255 00790000 @ER00005 BR @14 0255 00791000 */* LOCK: END FLOWCHART */ 00792000 * 0256 00793000 * 0256 00794000 */* UNLOCK: CHART */ 00795000 */* FOOTING 0256 00796000 */* SUBROUTINE RELEASES GLOBAL DISP LOCK */ 00797000 * 0256 00798000 *UNLOCK: 0256 00799000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0256 00800000 * 0256 00801000 UNLOCK DS 0H 0257 00802000 * /*****************************************************************/ 00803000 * /* */ 00804000 * /* INPUT: REG0 CONTAINS ENTRY CODE, 0 - FREE THE GLOBAL */ 00805000 * /* DISPATCHER LOCK. 4 - DO NOT FREE LOCK. REG0, R11PARM, R12SCAN,*/ 00806000 * /* REG8 ALTERED. */ 00807000 * /* */ 00808000 * /*****************************************************************/ 00809000 * 0257 00810000 */* E ENTER UNLOCK */ 00811000 * 0257 00812000 * RFY 0257 00813000 * REG0 RSTD; 0257 00814000 * RFY 0258 00815000 * REG14 RSTD; 0258 00816000 * 0258 00817000 */* L SETFRR: DELETE FRR */ 00818000 * 0259 00819000 * GENERATE; 0259 00820000 * 0259 00821000 SETFRR D,WRKREGS=(R12SCAN,R15WORK) @Y02753 00822000 */* D (NO,%AC5,YES,) IS LOCK TO BE FREED ? */ 00823000 * 0260 00824000 * IF REG0^=LOCK4 THEN /* SETLOCK RET CODE 4 IS LOCK 0260 00825000 * HELD ON ENTRY TO ASCBCHAP */ 00826000 CH REG0,@CH00065 0260 00827000 BE @RF00260 0260 00828000 * DO; /* RELEASE LOCK */ 00829000 */* L SETLOCK: RELEASE GLOBAL DISP LOCK */ 00830000 * 0262 00831000 * REG0=REG14; /* SAVE RETURN ADDRESS */ 00832000 LR REG0,REG14 0262 00833000 * RFY 0263 00834000 * REG8 RSTD; /* RESTRICT FROM COMPILER */ 00835000 * REG8=REG13; /* SAVE SAVEAREA ADDRESS @YM00864*/ 00836000 LR REG8,REG13 0264 00837000 * GEN REFS(PSALITA) SETS(R11PARM,R12SCAN,REG13,REG14); 0265 00838000 SETLOCK RELEASE,TYPE=DISP,RELATED=(DISP,IEAVEAC0,LOCK) 00839000 * REG13=REG8; /* RESTORE SAVEAREA ADDRESS 0266 00840000 * @YM00864*/ 00841000 LR REG13,REG8 0266 00842000 * REG14=REG0; /* RESTORE RETURN ADDRESS */ 00843000 LR REG14,REG0 0267 00844000 * RFY 0268 00845000 * REG8 UNRSTD; /* RELEASE FOR COMPILER */ 00846000 * END; /* SETLOCK INVOKED */ 00847000 */* %AC5: R () RETURN */ 00848000 * 0270 00849000 * END UNLOCK; /* RETURN TO CALLING POINT */ 00850000 @EL00006 DS 0H 0270 00851000 @EF00006 DS 0H 0270 00852000 @ER00006 BR @14 0270 00853000 */* UNLOCK: END FLOWCHART */ 00854000 * 0271 00855000 * RFY 0271 00856000 * REG0 UNRSTD; 0271 00857000 * RFY 0272 00858000 * REG14 UNRSTD; 0272 00859000 * 0273 00860000 */* IEAVEAC3: CHART */ 00861000 */* FOOTING 0273 00862000 */* FRR FOR ASCBCHAP */ 00863000 * 0273 00864000 *IEAVEAC3: 0273 00865000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA);/* FRR */ 00866000 * 0273 00867000 IEAVEAC3 DS 0H 0274 00868000 * /*****************************************************************/ 00869000 * /* */ 00870000 * /* THIS ROUTINE IS A FUNCTIONAL RECOVERY ROUTINE FOR ASCBCHAP. IT*/ 00871000 * /* INVOKES QUEUE VERIFIER (IEAVEQV0 AT ENTRY POINT IEAVEQV3) TO */ 00872000 * /* VALIDATE THE ASCB DISPATCHING QUEUE, AND THEN PERCOLATES THE */ 00873000 * /* ERROR. REGISTER USAGE: 0 - INPUT, ADDRESS OF A 200 BYTE WORK */ 00874000 * /* AREA. 1 - ADDRESS OF THE SDWA. */ 00875000 * /* */ 00876000 * /*****************************************************************/ 00877000 * 0274 00878000 */* E ENTER IEAVEAC3 */ 00879000 * 0274 00880000 * RFY 0274 00881000 * REG14 RSTD; 0274 00882000 * RFY 0275 00883000 * R15WORK RSTD; 0275 00884000 * REG10=R15WORK; /* FRR ENTRY POINT ADDRESS 0276 00885000 * @Y02753*/ 00886000 LR REG10,R15WORK 0276 00887000 * GEN(USING IEAVEAC3,REG10); /* FRR ADDRESSABILITY @Y02753*/ 00888000 USING IEAVEAC3,REG10 00889000 * RFY 0278 00890000 * REG0 RSTD; 0278 00891000 * RFY 0279 00892000 * REG1 RSTD; 0279 00893000 * RFY 0280 00894000 * CVTMAP BASED(CVTPTR); 0280 00895000 * RFY 0281 00896000 * REG9 RSTD; 0281 00897000 * REG9=REG0; /* ADDRESS OF 200 BYTE WORKAREA 00898000 * @Y02753*/ 00899000 LR REG9,REG0 0282 00900000 * REG6=REG14; /* SAVE RETURN ADDRESS @Y02753*/ 00901000 LR REG6,REG14 0283 00902000 * RFY 0284 00903000 * REG14 UNRSTD; 0284 00904000 * 0284 00905000 */* P SET RECORDING PARMS AND REQUEST RECORDING */ 00906000 * 0285 00907000 * DO; /* SETRP 0285 00908000 * RECORD(YES)RC(0)RECPARM(IDFRR)*/ 00909000 * RESPECIFY 0286 00910000 * (GPR00P, 0286 00911000 * GPR01P, 0286 00912000 * GPR14P, 0286 00913000 * GPR15P) RSTD; 0286 00914000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00915000 MVI SDWARCDE(GPR01P),X'00' 0287 00916000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00917000 OI SDWARCRD(GPR01P),B'10000000' 0288 00918000 * GPR15P=ADDR(IDFRR); /* ACCESS RECORD PARAMETER LIST */ 00919000 LA GPR15P,IDFRR 0289 00920000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD PARAMETERS */ 00921000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0290 00922000 * RESPECIFY 0291 00923000 * (GPR00P, 0291 00924000 * GPR01P, 0291 00925000 * GPR14P, 0291 00926000 * GPR15P) UNRSTD; 0291 00927000 * END; /* @Y02753*/ 00928000 * REG7=REG1; /* SAVE SDWA ADDRESS @Y02753*/ 00929000 LR REG7,REG1 0293 00930000 * REG13=ADDR(QVSAVEA); /* ADDRESS OF SAVE AREA @Y02753*/ 00931000 LA REG13,QVSAVEA(,REG9) 0294 00932000 * R15WORK=ZERO; /* SPECIFY CURRENT ADDRESS SPACE 00933000 * FOR DUMP TASK @Y02753*/ 00934000 SLR R15WORK,R15WORK 0295 00935000 */* L SDUMP: REQUEST DUMP OF THE TRACE TABLE */ 00936000 * 0296 00937000 * GENERATE; 0296 00938000 * /* NOTE: MACRO REQUIRES COMPILER ADEFS OPTION */ 00939000 LA REG1,QVWORKA(,REG9) ADDRESS OF LIST AREA @Y02753 00940000 MVC 0(SDUMPLNG,REG1),SDUMPLST MOVE LIST FORM @Y02753 00941000 SDUMP ASID=(R15WORK),BRANCH=YES,MF=(E,(1)) DUMP TRACE @Y02753 00942000 * RFY 0297 00943000 * R15WORK UNRSTD; 0297 00944000 * REG0=REG7; /* ADDRESS OF SDWA INTO 0 FOR 0298 00945000 * IEAVEQV3 @Y02753*/ 00946000 LR REG0,REG7 0298 00947000 * REG1=REG9; /* ADDRESS OF FRRWORKA @Y02753*/ 00948000 LR REG1,REG9 0299 00949000 * RFY 0300 00950000 * REG8 RSTD; 0300 00951000 * REG8=ADDR(REG7->SDWARA); /* ADDRESS OF OUTPUT DATA AREA 0301 00952000 * @Y02753*/ 00953000 LA REG8,SDWARA(,REG7) 0301 00954000 */* P BUILD PARAMETER LIST FOR IEAVEQV3 */ 00955000 * 0302 00956000 * FRRWORKA=FRRWORKA&&FRRWORKA; /* CLEAR WORKAREA @Y02753*/ 00957000 XC FRRWORKA(152,REG9),FRRWORKA(REG9) 0302 00958000 * RFY 0303 00959000 * QVPL BASED(REG1); 0303 00960000 * QVPLODA=REG8; /* OUTPUT DATA AREA ADDRESS 0304 00961000 * @Y02753*/ 00962000 ST REG8,QVPLODA(,REG1) 0304 00963000 * RFY 0305 00964000 * REG8 UNRSTD; 0305 00965000 * QVPLEVR=ADDR(IEAVEAC4); /* ASCB VERIFICATION ROUTINE 0306 00966000 * @YM06720*/ 00967000 LA @08,IEAVEAC4 0306 00968000 ST @08,QVPLEVR(,REG1) 0306 00969000 * QVPLWKA=ADDR(QVWORKA); /* WORKAREA ADDRESS @Y02753*/ 00970000 LA @08,QVWORKA(,REG9) 0307 00971000 ST @08,QVPLWKA(,REG1) 0307 00972000 * QVPLHDR=ADDR(CVTASCBH); /* QUEUE HEADER @Y02753*/ 00973000 L @08,CVTPTR 0308 00974000 LA @15,CVTASCBH(,@08) 0308 00975000 ST @15,QVPLHDR(,REG1) 0308 00976000 * QVPLTRLR=ADDR(CVTASCBL); /* QUEUE TRAILER @Y02753*/ 00977000 LA @08,CVTASCBL(,@08) 0309 00978000 ST @08,QVPLTRLR(,REG1) 0309 00979000 * RFY 0310 00980000 * REG8 RSTD; 0310 00981000 * GEN(LA REG8,ASCBFWDP-ASCB); /* OFFSET IN ASCB TO FORWARD 0311 00982000 * POINTER @Y02753*/ 00983000 LA REG8,ASCBFWDP-ASCB 00984000 * QVPLFPTR=REG8; /* INTO PARM LIST @Y02753*/ 00985000 STH REG8,QVPLFPTR(,REG1) 0312 00986000 * GEN(LA REG8,ASCBBWDP-ASCB); /* OFFSET IN ASCB TO BACK POINTER 00987000 * @Y02753*/ 00988000 LA REG8,ASCBBWDP-ASCB 00989000 * QVPLBPTR=REG8; /* INTO PARAMETER LIST. NOTE: 0314 00990000 * FIELDS QVPLLELM, QVPLNOEL, 0314 00991000 * QVPLFELM ARE INPUT, REMAIN SET 00992000 * TO ZERO. @Y02753*/ 00993000 STH REG8,QVPLBPTR(,REG1) 0314 00994000 */* L IEAVEQV3: VALIDATE ASCB DISPATCHING QUEUE */ 00995000 * 0315 00996000 * CALL IEAVEQV3; /* INVOKE QUEUE VERIFIER @Y02753*/ 00997000 L @15,@CV01752 0315 00998000 BALR @14,@15 0315 00999000 */* R () RETURN TO RTM, RC=0 */ 01000000 * 0316 01001000 * REG1=REG7; /* ADDRESS OF SDWA @Y02753*/ 01002000 LR REG1,REG7 0316 01003000 * REG9=REG1->SDWAPARM; /* FRR 6-WORD WORKAREA @Y02753*/ 01004000 L REG9,SDWAPARM(,REG1) 0317 01005000 * IF REG9->FRR6LOCK^=LOCK4 THEN /* WAS LOCK HELD ON ENTRY ? 0318 01006000 * @Y02753*/ 01007000 CLI FRR6LOCK(REG9),4 0318 01008000 BE @RF00318 0318 01009000 * DO; /* SETRP RC(0)FRELOCK(DISP) */ 01010000 * RESPECIFY 0320 01011000 * (GPR00P, 0320 01012000 * GPR01P, 0320 01013000 * GPR14P, 0320 01014000 * GPR15P) RSTD; 0320 01015000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 01016000 MVI SDWARCDE(GPR01P),X'00' 0321 01017000 * GPR01P->SDWAACF3=GPR01P->SDWAACF3|'00010000'B;/* INITIALIZE 01018000 * LOCK FLAGS */ 01019000 OI SDWAACF3(GPR01P),B'00010000' 0322 01020000 * RESPECIFY 0323 01021000 * (GPR00P, 0323 01022000 * GPR01P, 0323 01023000 * GPR14P, 0323 01024000 * GPR15P) UNRSTD; 0323 01025000 * END; /* GLOBAL DISP LOCK TO BE FREED 01026000 * @Y02753*/ 01027000 * RFY 0325 01028000 * REG14 RSTD; 0325 01029000 @RF00318 DS 0H 0326 01030000 * REG14=REG6; /* RESTORE RETURN ADDRESS @Y02753*/ 01031000 LR REG14,REG6 0326 01032000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01033000 * GPR00P PTR(31) REG(0), 0327 01034000 * GPR01P PTR(31) REG(1), 0327 01035000 * GPR14P PTR(31) REG(14), 0327 01036000 * GPR15P PTR(31) REG(15); 0327 01037000 * DECLARE /* COMMON VARIABLES */ 01038000 * I256C CHAR(256) BASED, 0328 01039000 * I031F FIXED(31) BASED, 0328 01040000 * I031P PTR(31) BASED, 0328 01041000 * I015F FIXED(15) BASED, 0328 01042000 * I015P PTR(15) BASED, 0328 01043000 * I008P PTR(8) BASED, 0328 01044000 * I001C CHAR(1) BASED; /* @Y02753*/ 01045000 * END IEAVEAC3; /* END FRR @Y02753*/ 01046000 @EL00007 DS 0H 0329 01047000 @EF00007 DS 0H 0329 01048000 @ER00007 BR @14 0329 01049000 */* IEAVEAC3: END FLOWCHART */ 01050000 * 0330 01051000 * 0330 01052000 */* IEAVEAC4: CHART */ 01053000 */* FOOTING 0330 01054000 */* ASCB VERIFICATION ROUTINE */ 01055000 * 0330 01056000 *IEAVEAC4: 0330 01057000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA);/* ASCB VERIFICATION ROUTINE 01058000 * @YM06720*/ 01059000 IEAVEAC4 DS 0H 0331 01060000 */********************************************************************/ 01061000 */* */ 01062000 */* THIS ROUTINE IS PART OF ASCBCHAP'S RECOVERY. IT IS */ 01063000 */* INVOKED BY THE QUEUE VERIFIER ROUTINE TO VALIDATE */ 01064000 */* THE ASCB DISPATCHING QUEUE. TO HANDLE THE ERROR WHERE */ 01065000 */* ASCBCHAP WAS IN THE PROCESS OF REMOVING AN ASCB FROM */ 01066000 */* ITS DISPATCHING QUEUE (ASCBNOQ BIT ON), RETURN CODE 4 */ 01067000 */* WILL BE SET SO THAT THE ASCB GETS DEQUEUED. */ 01068000 */* */ 01069000 */* SYSTEM ROUTINES CALLED / MACROS ISSUED: */ 01070000 */* IEAVEGAS - GENERAL ASCB CONTROL BLOCK VERIFICATION ROUTINE */ 01071000 */* INPUT REGISTERS: 0 - ASCB ADDRESS */ 01072000 */* 1 - SDWA ADDRESS */ 01073000 */* 14 - RETURN ADDRESS */ 01074000 */* 15 - ENTRY POINT ADDRESS */ 01075000 */* */ 01076000 */* OUTPUT REGISTERS: 0,1,8-14 - UNCHANGED */ 01077000 */* 2-7 - UNPREDICTABLE */ 01078000 */* 15 - RETURN CODE */ 01079000 */* 0, IF THE ASCB IS VALID */ 01080000 */* 4, IF IT IS AN ASCB BUT INVALID */ 01081000 */* 8, IF IT IS NOT AN ASCB */ 01082000 */* */ 01083000 */* REGISTER USAGE: */ 01084000 */* INPUT: 0 - ADDRESS TO BE VERIFIED */ 01085000 */* 1 - SDWA ADDRESS */ 01086000 */* 14 - RETURN ADDRESS */ 01087000 */* 15 - ENTRY POINT ADDRESS */ 01088000 */* */ 01089000 */* REGISTERS 8 - 14 ARE SAVED FOR QUEUE VERIFIER. */ 01090000 */* */ 01091000 */* WORK: 2 - ADDRESS OF DISPATCHER'S SAVE AREA */ 01092000 */* 8 - ADDRESS OF DISPATCHER'S SAVE AREA */ 01093000 */* 10 - BASE REGISTER */ 01094000 */* 12 - ASCB ADDRESS */ 01095000 */* */ 01096000 */* OUTPUT: 8 - 14 ARE RESTORED */ 01097000 */* 15 - RETURN CODE */ 01098000 */* 0, IF THE ASCB IS VALID */ 01099000 */* 4, IF IT IS AN ASCB BUT INVALID OR */ 01100000 */* IN THE PROCESS OF BEING DEQUEUED */ 01101000 */* 8, IF IT IS NOT AN ASCB */ 01102000 */* */ 01103000 */********************************************************************/ 01104000 */* E ENTER IEAVEAC4 */ 01105000 * 0331 01106000 * RFY 0331 01107000 * (REG0, 0331 01108000 * REG1, 0331 01109000 * REG2, 0331 01110000 * REG8, 0331 01111000 * REG9, 0331 01112000 * REG10, 0331 01113000 * R11PARM, 0331 01114000 * R12SCAN, 0331 01115000 * REG13, 0331 01116000 * REG14, 0331 01117000 * R15WORK) RSTD; /* @YM06720*/ 01118000 */* P SAVE QUEUE VERIFIER'S REGISTERS */ 01119000 * 0332 01120000 * REG2=PSALCCAV->LCCACPUS->WSACEDS0;/* OBTAIN ADDR OF DISPATCHER'S 01121000 * SAVE AREA @YM06720*/ 01122000 L REG2,PSALCCAV 0332 01123000 L REG2,LCCACPUS(,REG2) 0332 01124000 L REG2,WSACEDS0(,REG2) 0332 01125000 * RFY 0333 01126000 * DSPSAVEA BASED(REG2); /* ESTABLISH ADDRESSABILITY TO 0333 01127000 * DISPATCHER'S SAVE AREA 0333 01128000 * @YM06720*/ 01129000 * STM(REG8,REG14,DSPSAVEA); /* SAVE QUEUE VERIFIER'S REGS 8 - 01130000 * 14 @YM06720*/ 01131000 STM REG8,REG14,DSPSAVEA(REG2) 0334 01132000 * RFY 0335 01133000 * (REG9, 0335 01134000 * R11PARM, 0335 01135000 * REG13) UNRSTD; /* @YM06720*/ 01136000 */* P ESTABLISH ADDRESSABILITY */ 01137000 * 0336 01138000 * REG10=R15WORK; /* OBTAIN ENTRY POINT ADDRESS 0336 01139000 * @YM06720*/ 01140000 LR REG10,R15WORK 0336 01141000 * GEN(USING IEAVEAC4,REG10); /* ESTABLISH BASE REG @YM06720*/ 01142000 USING IEAVEAC4,REG10 01143000 * R12SCAN=REG0; /* OBTAIN ASCB ADDR @YM06720*/ 01144000 LR R12SCAN,REG0 0338 01145000 * REG8=REG2; /* GET ADDR OF DISPATCHER'S SAVE 01146000 * AREA INTO A REG NOT DESTROYED 01147000 * @YM06720*/ 01148000 LR REG8,REG2 0339 01149000 * RFY 0340 01150000 * DSPSAVEA BASED(REG8); /* RE-ESTABLISH ADDRESSABILITY TO 01151000 * DISPATCHER'S SAVE AREA 0340 01152000 * @YM06720*/ 01153000 */* L IEAVEGAS: VERIFY EACH ASCB */ 01154000 * 0341 01155000 * CALL IEAVEGAS; /* INVOKE ASCB CONTROL BLOCK 0341 01156000 * VERIFIER ROUTINE @YM06720*/ 01157000 L @15,@CV01751 0341 01158000 BALR @14,@15 0341 01159000 */* D (NO,%NOTZERO,YES,) VALID ASCB ? */ 01160000 * 0342 01161000 * IF R15WORK=ZERO THEN /* WAS ASCB VALID - RETURN CODE 0 01162000 * @YM06720*/ 01163000 LTR R15WORK,R15WORK 0342 01164000 BNZ @RF00342 0342 01165000 */* D (NO,%RETURN,YES,) ASCB MARKED NOT ON QUEUE ? */ 01166000 * 0343 01167000 * IF R12SCAN->ASCBNOQ='1'B THEN /* WAS ASCB MARKED NOT ON 0343 01168000 * DISPATCHING QUEUE @YM06720*/ 01169000 TM ASCBNOQ(R12SCAN),B'10000000' 0343 01170000 BNO @RF00343 0343 01171000 */* P (,%RETURN) SET RETURN CODE FOUR */ 01172000 * 0344 01173000 * R15WORK=FOUR; /* MARKED NOT ON QUEUE - SET 0344 01174000 * RETURN CODE 4 TO GET ASCB 0344 01175000 * DEQUEUED @YM06720*/ 01176000 LA R15WORK,4 0344 01177000 * ELSE 0345 01178000 * ; /* @YM06720*/ 01179000 @RF00343 DS 0H 0346 01180000 * ELSE /* NOT VALID ASCB @YM06720*/ 01181000 */* %NOTZERO: D (NO,%RETURN,YES,) ASCB WITH INVALID DATA ? */ 01182000 * 0346 01183000 * IF R15WORK=FOUR THEN /* WAS IT AN ASCB WITH INVALID 0346 01184000 * DATA - RETURN CODE 4 @YM06720*/ 01185000 B @RC00342 0346 01186000 @RF00342 CH R15WORK,@CH00065 0346 01187000 BNE @RF00346 0346 01188000 */* P MARK ASCB AS NOT ON QUEUE */ 01189000 * 0347 01190000 * R12SCAN->ASCBNOQ='1'B; /* INVALID ASCB - INDICATE NOT ON 01191000 * QUEUE @YM06720*/ 01192000 OI ASCBNOQ(R12SCAN),B'10000000' 0347 01193000 */* %RETURN: P RESTORE QUEUE VERIFIER'S REGISTERS */ 01194000 * 0348 01195000 * RFY 0348 01196000 * (REG9, 0348 01197000 * R11PARM, 0348 01198000 * REG13) RSTD; /* @YM06720*/ 01199000 @RF00346 DS 0H 0348 01200000 @RC00342 DS 0H 0349 01201000 * LM(REG8,REG14,DSPSAVEA); /* RESTORE REGS 8 - 14 FOR RETURN 01202000 * TO QUEUE VERIFIER @YM06720*/ 01203000 LM REG8,REG14,DSPSAVEA(REG8) 0349 01204000 */* R RETURN TO QUEUE VERIFIER */ 01205000 * 0350 01206000 * END IEAVEAC4; /* END ASCB VERIFICATION ROUTINE 01207000 * @YM06720*/ 01208000 @EL00008 DS 0H 0350 01209000 @EF00008 DS 0H 0350 01210000 @ER00008 BR @14 0350 01211000 */* IEAVEAC4: END FLOWCHART */ 01212000 * 0351 01213000 * END IEAVEAC0 /* END PROCEDURE 0351 01214000 * */ 01215000 * 0351 01216000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01217000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01218000 */*%INCLUDE SYSLIB (CVT ) */ 01219000 */*%INCLUDE SYSLIB (IHALCCA ) */ 01220000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01221000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 01222000 */*%INCLUDE SYSLIB (IHAQVPL ) */ 01223000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01224000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01225000 * 0351 01226000 * ; 0351 01227000 @DATA DS 0H 01228000 @CH00088 DC H'1' 01229000 @CH00065 DC H'4' 01230000 @DATD DSECT 01231000 DS 0F 01232000 IEAVEAC0 CSECT 01233000 DS 0F 01234000 @DATD DSECT 01235000 DS 0D 01236000 IEAVEAC0 CSECT 01237000 NOPR ((@ENDDATD-@DATD)*16) 01238000 DS 0F 01239000 @SIZDATD DC AL1(0) 01240000 DC AL3(@ENDDATD-@DATD) 01241000 @CV01750 DC V(IEAVEMS0) 01242000 @CV01751 DC V(IEAVEGAS) 01243000 @CV01752 DC V(IEAVEQV3) 01244000 DS 0D 01245000 IDSDUMP DS CL25 01246000 ORG IDSDUMP 01247000 IDLNGTH DC AL1(24) 01248000 IDFRR DS CL24 01249000 ORG IDFRR 01250000 IDPROGMN DC CL8'IEAVEAC0' 01251000 IDCSECT DC CL8'IEAVEAC0' 01252000 IDFRRENT DC CL8'IEAVEAC3' 01253000 ORG IDSDUMP+25 01254000 IEAVEAC0 CSECT 01255000 * /* ASSEMBLER DATA */ 01256000 ACENABLE STOSM ACOMASK(REG13),0 EXECUTE TARGET INSTRUCTION 01257000 SDUMPLST SDUMP HDRAD=IDSDUMP,SDATA=(TRT),MF=L SDUMP FOR FRR 01258000 SDUMPLNG EQU *-SDUMPLST LENGTH OF SDUMP LIST FORM 01259000 DMASK EQU X'FC' PSW MASK TO DISABLE 01260000 @DATD DSECT 01261000 @ENDDATD EQU * 01262000 IEAVEAC0 CSECT 01263000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01264000 @01 EQU 01 01265000 @02 EQU 02 01266000 @03 EQU 03 01267000 @04 EQU 04 01268000 @05 EQU 05 01269000 @06 EQU 06 01270000 @07 EQU 07 01271000 @08 EQU 08 01272000 @09 EQU 09 01273000 @10 EQU 10 01274000 @11 EQU 11 01275000 @12 EQU 12 01276000 @13 EQU 13 01277000 @14 EQU 14 01278000 @15 EQU 15 01279000 REG8 EQU @08 01280000 REG9 EQU @09 01281000 REG10 EQU @10 01282000 R11PARM EQU @11 01283000 R12SCAN EQU @12 01284000 REG13 EQU @13 01285000 REG14 EQU @14 01286000 R15WORK EQU @15 01287000 REG0 EQU @00 01288000 REG1 EQU @01 01289000 REG2 EQU @02 01290000 REG3 EQU @03 01291000 REG4 EQU @04 01292000 REG5 EQU @05 01293000 REG6 EQU @06 01294000 REG7 EQU @07 01295000 GPR00P EQU @00 01296000 GPR01P EQU @01 01297000 GPR14P EQU @14 01298000 GPR15P EQU @15 01299000 CVTPTR EQU 16 01300000 PSA EQU 0 01301000 FLCRNPSW EQU PSA 01302000 FLCROPSW EQU PSA+8 01303000 FLCICCW2 EQU PSA+16 01304000 PSAEEPSW EQU PSA+132 01305000 PSAESPSW EQU PSA+136 01306000 FLCSVILC EQU PSAESPSW+1 01307000 PSAEPPSW EQU PSA+140 01308000 FLCPIILC EQU PSAEPPSW+1 01309000 FLCPICOD EQU PSAEPPSW+2 01310000 PSAPICOD EQU FLCPICOD+1 01311000 FLCTEA EQU PSAEPPSW+4 01312000 FLCPER EQU PSA+152 01313000 FLCMCLA EQU PSA+168 01314000 FLCIOEL EQU FLCMCLA+4 01315000 FLCIOA EQU FLCMCLA+16 01316000 FLCFSA EQU FLCMCLA+80 01317000 PSALCCAV EQU PSA+528 01318000 PSASUPER EQU PSA+552 01319000 PSASUP1 EQU PSASUPER 01320000 PSASUP2 EQU PSASUPER+1 01321000 PSASUP3 EQU PSASUPER+2 01322000 PSASUP4 EQU PSASUPER+3 01323000 PSACLHT EQU PSA+640 01324000 PSALKSA EQU PSA+696 01325000 PSAHLHI EQU PSA+760 01326000 PSALITA EQU PSA+764 01327000 PSADSSFL EQU PSA+836 01328000 PSADSSF1 EQU PSADSSFL 01329000 PSADSSF3 EQU PSADSSFL+2 01330000 PSADSSF4 EQU PSADSSFL+3 01331000 PSARSVT EQU PSA+896 01332000 QVPLPTR EQU 0 01333000 FRRSPTR EQU 0 01334000 FRREPTR EQU 0 01335000 SDWAPTR EQU 0 01336000 CVTMAP EQU 0 01337000 CVTBTERM EQU CVTMAP+52 01338000 CVTDAR EQU CVTMAP+72 01339000 CVTFLGS1 EQU CVTDAR 01340000 CVTDCB EQU CVTMAP+116 01341000 CVTIERLC EQU CVTMAP+144 01342000 CVTOPTA EQU CVTMAP+182 01343000 CVTOPTB EQU CVTMAP+183 01344000 CVTGTF EQU CVTMAP+236 01345000 CVTGTFST EQU CVTGTF 01346000 CVTGTFS EQU CVTGTFST 01347000 CVTSTATE EQU CVTGTFST 01348000 CVTTMODE EQU CVTGTFST 01349000 CVTFORM EQU CVTGTFST 01350000 CVTUSR EQU CVTGTFST 01351000 CVTAQAVT EQU CVTMAP+240 01352000 CVTTCMFG EQU CVTAQAVT 01353000 CVTVOLM2 EQU CVTMAP+244 01354000 CVTTATA EQU CVTVOLM2 01355000 CVTTSKS EQU CVTTATA 01356000 CVTVOLF2 EQU CVTTSKS 01357000 CVTTAT EQU CVTTATA+1 01358000 CVTATER EQU CVTMAP+248 01359000 CVTEXT1 EQU CVTMAP+252 01360000 CVTPURG EQU CVTMAP+260 01361000 CVTQMSG EQU CVTMAP+268 01362000 CVTDMSR EQU CVTMAP+272 01363000 CVTERPV EQU CVTMAP+316 01364000 CVTINTLA EQU CVTMAP+320 01365000 CVTAPF EQU CVTMAP+324 01366000 CVTEXT2 EQU CVTMAP+328 01367000 CVTHJES EQU CVTMAP+332 01368000 CVTPGSIA EQU CVTMAP+348 01369000 CVTA1F1 EQU CVTMAP+356 01370000 CVTSYSK EQU CVTMAP+357 01371000 CVTVOLM1 EQU CVTMAP+380 01372000 CVTVOLF1 EQU CVTVOLM1 01373000 CVTATMCT EQU CVTMAP+388 01374000 CVTXTNT1 EQU 0 01375000 CVTXTNT2 EQU 0 01376000 CVTDSSV EQU CVTXTNT2 01377000 CVTRSV90 EQU CVTXTNT2+5 01378000 CVTQID EQU CVTXTNT2+24 01379000 CVTRV400 EQU CVTXTNT2+52 01380000 CVTRV409 EQU CVTXTNT2+53 01381000 CVTATCVT EQU CVTXTNT2+64 01382000 CVTRV429 EQU CVTXTNT2+84 01383000 CVTRV438 EQU CVTXTNT2+85 01384000 CVTRV457 EQU CVTXTNT2+112 01385000 CVTRV466 EQU CVTXTNT2+113 01386000 CVTFIX EQU 0 01387000 CVTRELNO EQU CVTFIX+252 01388000 LCCA EQU 0 01389000 LCCAIHRC EQU LCCA+520 01390000 LCCAIHR1 EQU LCCAIHRC 01391000 LCCAIHR2 EQU LCCAIHRC+1 01392000 LCCAIHR3 EQU LCCAIHRC+2 01393000 LCCAIHR4 EQU LCCAIHRC+3 01394000 LCCASPIN EQU LCCA+524 01395000 LCCASPN1 EQU LCCASPIN 01396000 LCCASPN2 EQU LCCASPIN+1 01397000 LCCASPN3 EQU LCCASPIN+2 01398000 LCCASPN4 EQU LCCASPIN+3 01399000 LCCACPUS EQU LCCA+536 01400000 LCCADSF1 EQU LCCA+540 01401000 LCCAACR EQU LCCADSF1 01402000 LCCADSF2 EQU LCCA+541 01403000 LCCASPSA EQU LCCA+544 01404000 LCCACRFL EQU LCCA+692 01405000 LCCACREX EQU LCCA+693 01406000 LCCALKFG EQU LCCA+694 01407000 LCCASRBF EQU LCCA+720 01408000 ASCB EQU 0 01409000 ASCBFWDP EQU ASCB+4 01410000 ASCBBWDP EQU ASCB+8 01411000 ASCBCPUS EQU ASCB+32 01412000 ASCBSEQN EQU ASCB+38 01413000 ASCBDP EQU ASCB+43 01414000 ASCBFW1 EQU ASCB+100 01415000 ASCBRCTF EQU ASCBFW1+2 01416000 ASCBFLG1 EQU ASCBFW1+3 01417000 ASCBDSP1 EQU ASCB+114 01418000 ASCBNOQ EQU ASCBDSP1 01419000 ASCBFLG2 EQU ASCB+115 01420000 WSAC EQU 0 01421000 WSACACR EQU WSAC+16 01422000 WSACEDS0 EQU WSAC+28 01423000 QVPL EQU 0 01424000 QVPLTYP3 EQU QVPL 01425000 QVPLTYP2 EQU QVPLTYP3 01426000 QVPLTYP1 EQU QVPLTYP2 01427000 QVPLEVR EQU QVPLTYP1 01428000 QVPLODA EQU QVPLTYP1+4 01429000 QVPLWKA EQU QVPLTYP1+8 01430000 QVPLHDR EQU QVPLTYP1+16 01431000 QVPLHF EQU QVPLTYP1+20 01432000 QVPLFLGH EQU QVPLHF 01433000 QVPLFLGF EQU QVPLHF+1 01434000 QVPLFPTR EQU QVPLHF+2 01435000 QVPLTRLR EQU QVPLTYP2+28 01436000 QVPLTB EQU QVPLTYP2+32 01437000 QVPLFLGT EQU QVPLTB 01438000 QVPLFLGB EQU QVPLTB+1 01439000 QVPLBPTR EQU QVPLTB+2 01440000 FRRS EQU 0 01441000 FRRSHEAD EQU FRRS 01442000 FRRSENTR EQU 0 01443000 FRRSFLGS EQU FRRSENTR+4 01444000 FRRSFLG1 EQU FRRSFLGS 01445000 SDWA EQU 0 01446000 SDWAPARM EQU SDWA 01447000 SDWAFIOB EQU SDWA+4 01448000 SDWAABCC EQU SDWAFIOB 01449000 SDWACMPF EQU SDWAABCC 01450000 SDWACTL1 EQU SDWA+8 01451000 SDWACMKA EQU SDWACTL1 01452000 SDWAMWPA EQU SDWACTL1+1 01453000 SDWAPMKA EQU SDWACTL1+4 01454000 SDWACTL2 EQU SDWA+16 01455000 SDWACMKP EQU SDWACTL2 01456000 SDWAMWPP EQU SDWACTL2+1 01457000 SDWAPMKP EQU SDWACTL2+4 01458000 SDWAGRSV EQU SDWA+24 01459000 SDWANAME EQU SDWA+88 01460000 SDWAEC1 EQU SDWA+104 01461000 SDWAEMK1 EQU SDWAEC1 01462000 SDWAMWP1 EQU SDWAEC1+1 01463000 SDWAINT1 EQU SDWAEC1+2 01464000 SDWANXT1 EQU SDWAEC1+4 01465000 SDWAAEC1 EQU SDWA+112 01466000 SDWAILC1 EQU SDWAAEC1+1 01467000 SDWAINC1 EQU SDWAAEC1+2 01468000 SDWAICD1 EQU SDWAINC1+1 01469000 SDWAEC2 EQU SDWA+120 01470000 SDWAEMK2 EQU SDWAEC2 01471000 SDWAMWP2 EQU SDWAEC2+1 01472000 SDWAINT2 EQU SDWAEC2+2 01473000 SDWANXT2 EQU SDWAEC2+4 01474000 SDWAAEC2 EQU SDWA+128 01475000 SDWAILC2 EQU SDWAAEC2+1 01476000 SDWAINC2 EQU SDWAAEC2+2 01477000 SDWAICD2 EQU SDWAINC2+1 01478000 SDWASRSV EQU SDWA+136 01479000 SDWAIDNT EQU SDWA+200 01480000 SDWAMCH EQU SDWA+204 01481000 SDWASTCK EQU SDWAMCH 01482000 SDWAMCHI EQU SDWAMCH+8 01483000 SDWAMCHS EQU SDWAMCHI 01484000 SDWAMCHD EQU SDWAMCHI+1 01485000 SDWARSR1 EQU SDWAMCH+12 01486000 SDWARSR2 EQU SDWAMCH+13 01487000 SDWAFLGS EQU SDWA+232 01488000 SDWAERRA EQU SDWAFLGS 01489000 SDWAERRB EQU SDWAFLGS+1 01490000 SDWAERRC EQU SDWAFLGS+2 01491000 SDWAERRD EQU SDWAFLGS+3 01492000 SDWAIOFS EQU SDWA+238 01493000 SDWACPUA EQU SDWA+248 01494000 SDWAPARQ EQU SDWA+252 01495000 SDWARCDE EQU SDWAPARQ 01496000 SDWAACF2 EQU SDWAPARQ+1 01497000 SDWARCRD EQU SDWAACF2 01498000 SDWAACF3 EQU SDWAPARQ+2 01499000 SDWAACF4 EQU SDWAPARQ+3 01500000 SDWALKWA EQU SDWA+256 01501000 SDWALKWS EQU SDWALKWA 01502000 SDWARECP EQU SDWA+292 01503000 SDWASNPA EQU SDWA+320 01504000 SDWADUMP EQU SDWASNPA 01505000 SDWADPFS EQU SDWADUMP+1 01506000 SDWADDAT EQU SDWASNPA+4 01507000 SDWASDAT EQU SDWADDAT 01508000 SDWAPDAT EQU SDWADDAT+2 01509000 SDWADPSA EQU SDWA+328 01510000 SDWADPSL EQU SDWADPSA 01511000 SDWARA EQU SDWA+400 01512000 SDWADPVA EQU SDWARA+2 01513000 MOVELIST EQU 0 01514000 MOVENTRY EQU MOVELIST 01515000 MOVEBITS EQU MOVENTRY 01516000 MOVELAST EQU MOVEBITS 01517000 MOVEOFF EQU MOVEBITS 01518000 MOVEDP EQU MOVENTRY+2 01519000 MOVEASCB EQU MOVENTRY+4 01520000 MOVENEXT EQU MOVELIST+8 01521000 FRRWORKA EQU 0 01522000 QVSAVEA EQU FRRWORKA+40 01523000 QVWORKA EQU FRRWORKA+112 01524000 FRR6WORD EQU 0 01525000 FRR6WD1 EQU FRR6WORD 01526000 FRR6LOCK EQU FRR6WD1 01527000 ACSAVEA EQU 0 01528000 ACSAVE13 EQU ACSAVEA+20 01529000 ACFRR6AD EQU ACSAVE13 01530000 ACSAVE15 EQU ACSAVEA+28 01531000 ACOMASK EQU ACSAVE15 01532000 ACLOCKRC EQU ACSAVE15+1 01533000 ACRETCOD EQU ACSAVE15+3 01534000 ACSAVE01 EQU ACSAVEA+32 01535000 ACSAVE0 EQU ACSAVE01 01536000 ACECODE EQU ACSAVE0+3 01537000 DSPSAVEA EQU 0 01538000 I256C EQU 0 01539000 I001C EQU 0 01540000 I008P EQU 0 01541000 I015F EQU 0 01542000 I015P EQU 0 01543000 I031F EQU 0 01544000 I031P EQU 0 01545000 PSARSVTE EQU PSARSVT 01546000 CVTS01 EQU CVTPGSIA 01547000 CVTLPDIA EQU CVTS01+12 01548000 CVTDIRST EQU CVTLPDIA 01549000 CVTSLIDA EQU CVTS01+24 01550000 CVTCTLFG EQU CVTS01+50 01551000 CVTASCBH EQU CVTS01+216 01552000 CVTASCBL EQU CVTS01+220 01553000 CVTRV210 EQU CVTS01+424 01554000 CVTRV219 EQU CVTS01+425 01555000 CVTRV228 EQU CVTS01+426 01556000 CVTRV237 EQU CVTS01+427 01557000 CVTMFRTR EQU CVTS01+452 01558000 CVTRV262 EQU CVTS01+468 01559000 CVTRV271 EQU CVTS01+469 01560000 CVTRV280 EQU CVTS01+470 01561000 CVTRV289 EQU CVTS01+471 01562000 CVTGSDA EQU CVTS01+600 01563000 FLC EQU PSA 01564000 * START UNREFERENCED COMPONENTS 01565000 CVTTPIO EQU CVTS01+608 01566000 CVTADV EQU CVTS01+604 01567000 CVTGSDAB EQU CVTGSDA 01568000 CVTQV3 EQU CVTS01+596 01569000 CVTQV2 EQU CVTS01+592 01570000 CVTQV1 EQU CVTS01+588 01571000 CVTRPT EQU CVTS01+584 01572000 CVTSSRB EQU CVTS01+580 01573000 CVTCSDRL EQU CVTS01+576 01574000 CVTEXP1 EQU CVTS01+572 01575000 CVTRMPMT EQU CVTS01+568 01576000 CVTRMPTT EQU CVTS01+564 01577000 CVTVPSA EQU CVTS01+560 01578000 CVTVSTOP EQU CVTS01+556 01579000 CVTGTFR8 EQU CVTS01+552 01580000 CVTQUIT EQU CVTS01+548 01581000 CVTVACR EQU CVTS01+544 01582000 CVTWTCB EQU CVTS01+540 01583000 CVTSTPRS EQU CVTS01+536 01584000 CVT0PT02 EQU CVTS01+532 01585000 CVTDARCM EQU CVTS01+528 01586000 CVTIRECM EQU CVTS01+524 01587000 CVTJRECM EQU CVTS01+520 01588000 CVTVEMS0 EQU CVTS01+516 01589000 CVTSPFRR EQU CVTS01+512 01590000 CVTRLSTG EQU CVTS01+508 01591000 CVT0TC0A EQU CVTS01+504 01592000 CVTGMBR EQU CVTS01+500 01593000 CVTLFRM EQU CVTS01+496 01594000 CVTRMBR EQU CVTS01+492 01595000 CVTVIOP EQU CVTS01+488 01596000 CVTRV307 EQU CVTS01+486 01597000 CVTRV306 EQU CVTS01+484 01598000 CVTRV305 EQU CVTS01+482 01599000 CVTRV304 EQU CVTS01+480 01600000 CVTRV303 EQU CVTS01+478 01601000 CVTRV302 EQU CVTS01+476 01602000 CVTRV301 EQU CVTS01+475 01603000 CVTRV300 EQU CVTS01+474 01604000 CVTRV299 EQU CVTS01+473 01605000 CVTRV298 EQU CVTS01+472 01606000 CVTRV297 EQU CVTRV289 01607000 CVTRV296 EQU CVTRV289 01608000 CVTRV295 EQU CVTRV289 01609000 CVTRV294 EQU CVTRV289 01610000 CVTRV293 EQU CVTRV289 01611000 CVTRV292 EQU CVTRV289 01612000 CVTRV291 EQU CVTRV289 01613000 CVTRV290 EQU CVTRV289 01614000 CVTRV288 EQU CVTRV280 01615000 CVTRV287 EQU CVTRV280 01616000 CVTRV286 EQU CVTRV280 01617000 CVTRV285 EQU CVTRV280 01618000 CVTRV284 EQU CVTRV280 01619000 CVTRV283 EQU CVTRV280 01620000 CVTRV282 EQU CVTRV280 01621000 CVTRV281 EQU CVTRV280 01622000 CVTRV279 EQU CVTRV271 01623000 CVTRV278 EQU CVTRV271 01624000 CVTRV277 EQU CVTRV271 01625000 CVTRV276 EQU CVTRV271 01626000 CVTRV275 EQU CVTRV271 01627000 CVTRV274 EQU CVTRV271 01628000 CVTRV273 EQU CVTRV271 01629000 CVTRV272 EQU CVTRV271 01630000 CVTRV270 EQU CVTRV262 01631000 CVTRV269 EQU CVTRV262 01632000 CVTRV268 EQU CVTRV262 01633000 CVTRV267 EQU CVTRV262 01634000 CVTRV266 EQU CVTRV262 01635000 CVTRV265 EQU CVTRV262 01636000 CVTRV264 EQU CVTRV262 01637000 CVTRV263 EQU CVTRV262 01638000 CVTVFP EQU CVTS01+464 01639000 CVTVSI EQU CVTS01+460 01640000 CVTVPSIB EQU CVTS01+456 01641000 CVTMFACT EQU CVTMFRTR 01642000 CVTMFCTL EQU CVTS01+448 01643000 CVTPVBP EQU CVTS01+444 01644000 CVTPWI EQU CVTS01+440 01645000 CVTRV254 EQU CVTS01+438 01646000 CVTRV253 EQU CVTS01+436 01647000 CVTRV252 EQU CVTS01+434 01648000 CVTRV251 EQU CVTS01+433 01649000 CVTRV250 EQU CVTS01+432 01650000 CVTRV249 EQU CVTS01+431 01651000 CVTRV248 EQU CVTS01+430 01652000 CVTRV247 EQU CVTS01+429 01653000 CVTRV246 EQU CVTS01+428 01654000 CVTRV245 EQU CVTRV237 01655000 CVTRV244 EQU CVTRV237 01656000 CVTRV243 EQU CVTRV237 01657000 CVTRV242 EQU CVTRV237 01658000 CVTRV241 EQU CVTRV237 01659000 CVTRV240 EQU CVTRV237 01660000 CVTRV239 EQU CVTRV237 01661000 CVTRV238 EQU CVTRV237 01662000 CVTRV236 EQU CVTRV228 01663000 CVTRV235 EQU CVTRV228 01664000 CVTRV234 EQU CVTRV228 01665000 CVTRV233 EQU CVTRV228 01666000 CVTRV232 EQU CVTRV228 01667000 CVTRV231 EQU CVTRV228 01668000 CVTRV230 EQU CVTRV228 01669000 CVTRV229 EQU CVTRV228 01670000 CVTRV227 EQU CVTRV219 01671000 CVTRV226 EQU CVTRV219 01672000 CVTRV225 EQU CVTRV219 01673000 CVTRV224 EQU CVTRV219 01674000 CVTRV223 EQU CVTRV219 01675000 CVTRV222 EQU CVTRV219 01676000 CVTRV221 EQU CVTRV219 01677000 CVTRV220 EQU CVTRV219 01678000 CVTRV218 EQU CVTRV210 01679000 CVTRV217 EQU CVTRV210 01680000 CVTRV216 EQU CVTRV210 01681000 CVTRV215 EQU CVTRV210 01682000 CVTRV214 EQU CVTRV210 01683000 CVTRV213 EQU CVTRV210 01684000 CVTRV212 EQU CVTRV210 01685000 CVTRV211 EQU CVTRV210 01686000 CVTLCCAT EQU CVTS01+420 01687000 CVTPCCAT EQU CVTS01+416 01688000 CVTIPCRP EQU CVTS01+412 01689000 CVTIPCRI EQU CVTS01+408 01690000 CVTIPCDS EQU CVTS01+404 01691000 CVTAIDVT EQU CVTS01+400 01692000 CVTSSAP EQU CVTS01+396 01693000 CVTEHCIR EQU CVTS01+392 01694000 CVTEHDEF EQU CVTS01+388 01695000 CVTDAIR EQU CVTS01+384 01696000 CVTPERFM EQU CVTS01+380 01697000 CVT044R2 EQU CVTS01+376 01698000 CVTFETCH EQU CVTS01+372 01699000 CVTRSTWD EQU CVTS01+368 01700000 CVTSPOST EQU CVTS01+364 01701000 CVTIOBP EQU CVTS01+360 01702000 CVTASMVT EQU CVTS01+356 01703000 CVTRECRQ EQU CVTS01+352 01704000 CVTWSAC EQU CVTS01+348 01705000 CVTRV149 EQU CVTS01+344 01706000 CVTWSAL EQU CVTS01+340 01707000 CVTSPSA EQU CVTS01+336 01708000 CVTGLMN EQU CVTS01+332 01709000 CVTVEAC0 EQU CVTS01+328 01710000 CVT062R1 EQU CVTS01+324 01711000 CVTRPOST EQU CVTS01+320 01712000 CVTDQIQE EQU CVTS01+316 01713000 CVTCSD EQU CVTS01+312 01714000 CVTLKRMA EQU CVTS01+308 01715000 CVTRSPIE EQU CVTS01+304 01716000 CVTRENQ EQU CVTS01+300 01717000 CVTLQCB EQU CVTS01+296 01718000 CVTFQCB EQU CVTS01+292 01719000 CVTQCS01 EQU CVTS01+288 01720000 CVTAPFT EQU CVTS01+284 01721000 CVTPARRL EQU CVTS01+280 01722000 CVTVWAIT EQU CVTS01+276 01723000 CVTGSPL EQU CVTS01+272 01724000 CVTLSMQ EQU CVTS01+268 01725000 CVTGSMQ EQU CVTS01+264 01726000 CVTEXPRO EQU CVTS01+260 01727000 CVTOPCTP EQU CVTS01+256 01728000 CVTSIC EQU CVTS01+252 01729000 CVTTPIOS EQU CVTS01+248 01730000 CVTRTMS EQU CVTS01+244 01731000 CVTSDBF EQU CVTS01+240 01732000 CVTSCBP EQU CVTS01+236 01733000 CVTSDMP EQU CVTS01+232 01734000 CVTSV60 EQU CVTS01+228 01735000 CVTRTMCT EQU CVTS01+224 01736000 CVTGDA EQU CVTS01+212 01737000 CVTASVT EQU CVTS01+208 01738000 CVTVVMDI EQU CVTS01+204 01739000 CVTAQTOP EQU CVTS01+200 01740000 CVTIOSCS EQU CVTS01+196 01741000 CVTSDRM EQU CVTS01+192 01742000 CVTOPTE EQU CVTS01+188 01743000 CVTSTXU EQU CVTS01+184 01744000 CVTQUIS EQU CVTS01+180 01745000 CVTPARS EQU CVTS01+176 01746000 CVTS1EE EQU CVTS01+172 01747000 CVTFRAS EQU CVTS01+168 01748000 CVTQSAS EQU CVTS01+164 01749000 CVTCRAS EQU CVTS01+160 01750000 CVTCRMN EQU CVTS01+156 01751000 CVTDELCP EQU CVTS01+152 01752000 CVTFRECL EQU CVTS01+148 01753000 CVTGETCL EQU CVTS01+144 01754000 CVTBLDCP EQU CVTS01+140 01755000 CVTAUTHL EQU CVTS01+136 01756000 CVTSCAN EQU CVTS01+132 01757000 CVTRV144 EQU CVTS01+130 01758000 CVTMAXMP EQU CVTS01+128 01759000 CVTSTCK EQU CVTS01+124 01760000 CVTRV139 EQU CVTS01+123 01761000 CVTDSSAC EQU CVTS01+122 01762000 CVTRV513 EQU CVTS01+121 01763000 CVTIOSPL EQU CVTS01+120 01764000 CVTPTGT EQU CVTS01+116 01765000 CVTCSPIE EQU CVTS01+112 01766000 CVTSMFEX EQU CVTS01+108 01767000 CVTOLT0A EQU CVTS01+104 01768000 CVTSRBRT EQU CVTS01+100 01769000 CVTPUTL EQU CVTS01+96 01770000 CVTRV519 EQU CVTS01+92 01771000 CVTRV327 EQU CVTS01+88 01772000 CVTRV326 EQU CVTS01+84 01773000 CVTRV325 EQU CVTS01+80 01774000 CVTRV324 EQU CVTS01+76 01775000 CVT0VL01 EQU CVTS01+72 01776000 CVTSHRVM EQU CVTS01+68 01777000 CVTRV332 EQU CVTS01+64 01778000 CVTTAS EQU CVTS01+60 01779000 CVTRSCN EQU CVTS01+56 01780000 CVTTRAC2 EQU CVTS01+54 01781000 CVTTRACE EQU CVTS01+52 01782000 CVTAPG EQU CVTS01+51 01783000 CVTSDTRC EQU CVTCTLFG 01784000 CVTGTRCE EQU CVTCTLFG 01785000 CVTNOMP EQU CVTCTLFG 01786000 CVTRSV79 EQU CVTCTLFG 01787000 CVTDSTAT EQU CVTCTLFG 01788000 CVTRSV78 EQU CVTCTLFG 01789000 CVTRV333 EQU CVTCTLFG 01790000 CVTRV323 EQU CVTCTLFG 01791000 CVTSPVLK EQU CVTS01+49 01792000 CVTRSV77 EQU CVTS01+48 01793000 CVTRV331 EQU CVTS01+44 01794000 CVTRV330 EQU CVTS01+40 01795000 CVTRV329 EQU CVTS01+36 01796000 CVTRV328 EQU CVTS01+32 01797000 CVTRV322 EQU CVTS01+28 01798000 CVTSLID EQU CVTSLIDA+1 01799000 CVTSYLK EQU CVTSLIDA 01800000 CVTRV321 EQU CVTS01+20 01801000 CVTRV320 EQU CVTS01+16 01802000 CVTLPDIR EQU CVTLPDIA+1 01803000 CVTRSV69 EQU CVTDIRST 01804000 CVTRSV68 EQU CVTDIRST 01805000 CVTRSV67 EQU CVTDIRST 01806000 CVTRSV66 EQU CVTDIRST 01807000 CVTRSV65 EQU CVTDIRST 01808000 CVTRSV64 EQU CVTDIRST 01809000 CVTRSV63 EQU CVTDIRST 01810000 CVTDICOM EQU CVTDIRST 01811000 CVTPVTP EQU CVTS01+8 01812000 CVTLPDSR EQU CVTS01+4 01813000 CVTGETL EQU CVTS01 01814000 PSARSAV EQU PSARSVTE+60 01815000 PSARSTK EQU PSARSVTE+56 01816000 PSAESAV3 EQU PSARSVTE+52 01817000 PSAESTK3 EQU PSARSVTE+48 01818000 PSAESAV2 EQU PSARSVTE+44 01819000 PSAESTK2 EQU PSARSVTE+40 01820000 PSAESAV1 EQU PSARSVTE+36 01821000 PSAESTK1 EQU PSARSVTE+32 01822000 PSAPSAV EQU PSARSVTE+28 01823000 PSAPSTK EQU PSARSVTE+24 01824000 PSAMSAV EQU PSARSVTE+20 01825000 PSAMSTK EQU PSARSVTE+16 01826000 PSASSAV EQU PSARSVTE+12 01827000 PSASSTK EQU PSARSVTE+8 01828000 PSANSTK EQU PSARSVTE+4 01829000 PSACSTK EQU PSARSVTE 01830000 DSPS$E14 EQU DSPSAVEA+24 01831000 DSPS$E13 EQU DSPSAVEA+20 01832000 DSPS$E12 EQU DSPSAVEA+16 01833000 DSPS$E11 EQU DSPSAVEA+12 01834000 DSPS$E10 EQU DSPSAVEA+8 01835000 DSPSAVE9 EQU DSPSAVEA+4 01836000 DSPSAVE8 EQU DSPSAVEA 01837000 ACSAVE1 EQU ACSAVE01+4 01838000 @NM00081 EQU ACSAVE0 01839000 @NM00080 EQU ACSAVE15+2 01840000 ACSAVE14 EQU ACSAVEA+24 01841000 ACSAVE12 EQU ACSAVEA+16 01842000 ACSAVE11 EQU ACSAVEA+12 01843000 ACSAVE10 EQU ACSAVEA+8 01844000 ACSAVE9 EQU ACSAVEA+4 01845000 ACSAVE8 EQU ACSAVEA 01846000 @NM00079 EQU FRR6WORD+4 01847000 @NM00078 EQU FRR6WD1+1 01848000 QVPARMS EQU FRRWORKA 01849000 @NM00077 EQU MOVEBITS 01850000 @NM00076 EQU SDWA+512 01851000 SDWAVRA EQU SDWARA+4 01852000 SDWAURAL EQU SDWARA+3 01853000 @NM00075 EQU SDWADPVA 01854000 SDWAEBC EQU SDWADPVA 01855000 SDWAHEX EQU SDWADPVA 01856000 SDWAVRAL EQU SDWARA 01857000 @NM00074 EQU SDWA+396 01858000 SDWACOMP EQU SDWA+392 01859000 SDWARCPL EQU SDWA+364 01860000 @NM00073 EQU SDWADPSA+32 01861000 SDWATO4 EQU SDWADPSL+28 01862000 SDWAFRM4 EQU SDWADPSL+24 01863000 SDWATO3 EQU SDWADPSL+20 01864000 SDWAFRM3 EQU SDWADPSL+16 01865000 SDWATO2 EQU SDWADPSL+12 01866000 SDWAFRM2 EQU SDWADPSL+8 01867000 SDWATO1 EQU SDWADPSL+4 01868000 SDWAFRM1 EQU SDWADPSL 01869000 @NM00072 EQU SDWADDAT+3 01870000 @NM00071 EQU SDWAPDAT 01871000 SDWAUSPL EQU SDWAPDAT 01872000 SDWADPSW EQU SDWAPDAT 01873000 SDWATJPA EQU SDWAPDAT 01874000 SDWATLPA EQU SDWAPDAT 01875000 SDWADREG EQU SDWAPDAT 01876000 SDWADSAH EQU SDWAPDAT 01877000 SDWADSAS EQU SDWAPDAT 01878000 @NM00070 EQU SDWADDAT+1 01879000 @NM00069 EQU SDWASDAT 01880000 SDWAQQS EQU SDWASDAT 01881000 SDWACBS EQU SDWASDAT 01882000 SDWAGTF EQU SDWASDAT 01883000 SDWASWA EQU SDWASDAT 01884000 SDWALSQA EQU SDWASDAT 01885000 SDWASQA EQU SDWASDAT 01886000 SDWANUC EQU SDWASDAT 01887000 @NM00068 EQU SDWADUMP+2 01888000 @NM00067 EQU SDWADPFS 01889000 SDWASLST EQU SDWADPFS 01890000 @NM00066 EQU SDWADPFS 01891000 SDWADLST EQU SDWADPFS 01892000 SDWADPT EQU SDWADPFS 01893000 SDWADPID EQU SDWADUMP 01894000 SDWADPLA EQU SDWA+316 01895000 SDWAREXN EQU SDWARECP+16 01896000 SDWACSCT EQU SDWARECP+8 01897000 SDWAMODN EQU SDWARECP 01898000 @NM00065 EQU SDWALKWA+32 01899000 SDWATALW EQU SDWALKWS+28 01900000 SDWATDLW EQU SDWALKWS+24 01901000 SDWATNLW EQU SDWALKWS+20 01902000 SDWAAPLW EQU SDWALKWS+16 01903000 SDWAIPLW EQU SDWALKWS+12 01904000 SDWAILLW EQU SDWALKWS+8 01905000 SDWAIULW EQU SDWALKWS+4 01906000 SDWAICLW EQU SDWALKWS 01907000 SDWAFLLK EQU SDWAACF4 01908000 SDWACMS EQU SDWAACF4 01909000 SDWAOPTM EQU SDWAACF4 01910000 SDWATADB EQU SDWAACF4 01911000 SDWATDNB EQU SDWAACF4 01912000 SDWATNCB EQU SDWAACF4 01913000 SDWAILCH EQU SDWAACF4 01914000 SDWAIUCB EQU SDWAACF4 01915000 SDWAICAT EQU SDWAACF3 01916000 SDWAIPRG EQU SDWAACF3 01917000 SDWASALL EQU SDWAACF3 01918000 SDWAASMP EQU SDWAACF3 01919000 SDWADISP EQU SDWAACF3 01920000 @NM00064 EQU SDWAACF3 01921000 @NM00063 EQU SDWAACF2 01922000 SDWAFREE EQU SDWAACF2 01923000 SDWAUPRG EQU SDWAACF2 01924000 @NM00062 EQU SDWAACF2 01925000 SDWASPIN EQU SDWAACF2 01926000 @NM00061 EQU SDWAACF2 01927000 SDWALCPU EQU SDWACPUA+2 01928000 @NM00060 EQU SDWACPUA 01929000 SDWARECA EQU SDWA+244 01930000 SDWARTYA EQU SDWA+240 01931000 @NM00059 EQU SDWA+239 01932000 @NM00058 EQU SDWAIOFS 01933000 SDWANIOP EQU SDWAIOFS 01934000 SDWANOIO EQU SDWAIOFS 01935000 SDWAIOHT EQU SDWAIOFS 01936000 SDWAIOQR EQU SDWAIOFS 01937000 SDWAFMID EQU SDWA+236 01938000 @NM00057 EQU SDWAERRD 01939000 SDWAMCIV EQU SDWAERRD 01940000 SDWARPIV EQU SDWAERRD 01941000 SDWAMABD EQU SDWAERRD 01942000 SDWACTS EQU SDWAERRD 01943000 SDWASTAE EQU SDWAERRD 01944000 SDWANRBE EQU SDWAERRD 01945000 SDWACLUP EQU SDWAERRD 01946000 @NM00056 EQU SDWAERRC 01947000 SDWAEAS EQU SDWAERRC 01948000 SDWAPERC EQU SDWAERRC 01949000 SDWAIRB EQU SDWAERRC 01950000 SDWASTAI EQU SDWAERRC 01951000 SDWASTAF EQU SDWAERRC 01952000 SDWASRBM EQU SDWAERRB 01953000 SDWALDIS EQU SDWAERRB 01954000 SDWAENRB EQU SDWAERRB 01955000 SDWATYP1 EQU SDWAERRB 01956000 @NM00055 EQU SDWAERRB 01957000 SDWAPGIO EQU SDWAERRA 01958000 SDWATEXC EQU SDWAERRA 01959000 SDWASVCE EQU SDWAERRA 01960000 SDWAABTM EQU SDWAERRA 01961000 SDWASVCD EQU SDWAERRA 01962000 SDWARKEY EQU SDWAERRA 01963000 SDWAPCHK EQU SDWAERRA 01964000 SDWAMCHK EQU SDWAERRA 01965000 SDWATIME EQU SDWAMCH+20 01966000 SDWARFSA EQU SDWAMCH+16 01967000 @NM00054 EQU SDWAMCH+14 01968000 SDWAVEQR EQU SDWARSR2 01969000 SDWAPGFX EQU SDWARSR2 01970000 SDWAFLSQ EQU SDWARSR2 01971000 SDWAFSQA EQU SDWARSR2 01972000 SDWANUCL EQU SDWARSR2 01973000 SDWASPER EQU SDWARSR2 01974000 SDWAINTC EQU SDWARSR2 01975000 SDWAOFLN EQU SDWARSR2 01976000 SDWACHNG EQU SDWARSR1 01977000 SDWAMSER EQU SDWARSR1 01978000 @NM00053 EQU SDWARSR1 01979000 SDWACPID EQU SDWAMCH+10 01980000 SDWATERR EQU SDWAMCHD 01981000 SDWAFPRX EQU SDWAMCHD 01982000 SDWAINSF EQU SDWAMCHD 01983000 SDWAACR EQU SDWAMCHD 01984000 SDWASCK EQU SDWAMCHD 01985000 SDWAPSWU EQU SDWAMCHD 01986000 SDWAREGU EQU SDWAMCHD 01987000 SDWASKYF EQU SDWAMCHD 01988000 @NM00052 EQU SDWAMCHS 01989000 SDWARSRF EQU SDWAMCHS 01990000 SDWARSRC EQU SDWAMCHS 01991000 SDWAINVP EQU SDWAMCHS 01992000 SDWATSVL EQU SDWAMCHS 01993000 SDWARCDF EQU SDWAMCHS 01994000 SDWASRVL EQU SDWAMCHS 01995000 SDWASCKE EQU SDWASTCK+4 01996000 SDWASCKB EQU SDWASTCK 01997000 SDWALNTH EQU SDWAIDNT+1 01998000 SDWASPID EQU SDWAIDNT 01999000 SDWASR15 EQU SDWASRSV+60 02000000 SDWASR14 EQU SDWASRSV+56 02001000 SDWASR13 EQU SDWASRSV+52 02002000 SDWASR12 EQU SDWASRSV+48 02003000 SDWASR11 EQU SDWASRSV+44 02004000 SDWASR10 EQU SDWASRSV+40 02005000 SDWASR09 EQU SDWASRSV+36 02006000 SDWASR08 EQU SDWASRSV+32 02007000 SDWASR07 EQU SDWASRSV+28 02008000 SDWASR06 EQU SDWASRSV+24 02009000 SDWASR05 EQU SDWASRSV+20 02010000 SDWASR04 EQU SDWASRSV+16 02011000 SDWASR03 EQU SDWASRSV+12 02012000 SDWASR02 EQU SDWASRSV+8 02013000 SDWASR01 EQU SDWASRSV+4 02014000 SDWASR00 EQU SDWASRSV 02015000 SDWATRN2 EQU SDWAAEC2+4 02016000 SDWAIPC2 EQU SDWAICD2 02017000 SDWAIMC2 EQU SDWAICD2 02018000 SDWAIPR2 EQU SDWAICD2 02019000 @NM00051 EQU SDWAINC2 02020000 @NM00050 EQU SDWAILC2 02021000 SDWAIL2 EQU SDWAILC2 02022000 @NM00049 EQU SDWAILC2 02023000 @NM00048 EQU SDWAAEC2 02024000 SDWAADD2 EQU SDWANXT2+1 02025000 @NM00047 EQU SDWANXT2 02026000 @NM00046 EQU SDWAEC2+3 02027000 SDWASGN2 EQU SDWAINT2 02028000 SDWAEXP2 EQU SDWAINT2 02029000 SDWADEC2 EQU SDWAINT2 02030000 SDWAFPO2 EQU SDWAINT2 02031000 SDWACC2 EQU SDWAINT2 02032000 @NM00045 EQU SDWAINT2 02033000 SDWAPGM2 EQU SDWAMWP2 02034000 SDWAWAT2 EQU SDWAMWP2 02035000 SDWAMCK2 EQU SDWAMWP2 02036000 SDWAECT2 EQU SDWAMWP2 02037000 SDWAKEY2 EQU SDWAMWP2 02038000 SDWAEXT2 EQU SDWAEMK2 02039000 SDWAIO2 EQU SDWAEMK2 02040000 SDWATRM2 EQU SDWAEMK2 02041000 @NM00044 EQU SDWAEMK2 02042000 SDWAPER2 EQU SDWAEMK2 02043000 @NM00043 EQU SDWAEMK2 02044000 SDWATRAN EQU SDWAAEC1+4 02045000 SDWAIPC1 EQU SDWAICD1 02046000 SDWAIMC1 EQU SDWAICD1 02047000 SDWAIPR1 EQU SDWAICD1 02048000 @NM00042 EQU SDWAINC1 02049000 @NM00041 EQU SDWAILC1 02050000 SDWAIL1 EQU SDWAILC1 02051000 @NM00040 EQU SDWAILC1 02052000 @NM00039 EQU SDWAAEC1 02053000 SDWAADD1 EQU SDWANXT1+1 02054000 @NM00038 EQU SDWANXT1 02055000 @NM00037 EQU SDWAEC1+3 02056000 SDWASGN1 EQU SDWAINT1 02057000 SDWAEXP1 EQU SDWAINT1 02058000 SDWADEC1 EQU SDWAINT1 02059000 SDWAFPO1 EQU SDWAINT1 02060000 SDWACC1 EQU SDWAINT1 02061000 @NM00036 EQU SDWAINT1 02062000 SDWAPGM1 EQU SDWAMWP1 02063000 SDWAWAT1 EQU SDWAMWP1 02064000 SDWAMCK1 EQU SDWAMWP1 02065000 SDWAECT1 EQU SDWAMWP1 02066000 SDWAKEY1 EQU SDWAMWP1 02067000 SDWAEXT1 EQU SDWAEMK1 02068000 SDWAIO1 EQU SDWAEMK1 02069000 SDWATRM1 EQU SDWAEMK1 02070000 @NM00035 EQU SDWAEMK1 02071000 SDWAPER1 EQU SDWAEMK1 02072000 @NM00034 EQU SDWAEMK1 02073000 SDWAIOBR EQU SDWA+100 02074000 SDWAEPA EQU SDWA+96 02075000 @NM00033 EQU SDWANAME+4 02076000 SDWARBAD EQU SDWANAME 02077000 SDWAGR15 EQU SDWAGRSV+60 02078000 SDWAGR14 EQU SDWAGRSV+56 02079000 SDWAGR13 EQU SDWAGRSV+52 02080000 SDWAGR12 EQU SDWAGRSV+48 02081000 SDWAGR11 EQU SDWAGRSV+44 02082000 SDWAGR10 EQU SDWAGRSV+40 02083000 SDWAGR09 EQU SDWAGRSV+36 02084000 SDWAGR08 EQU SDWAGRSV+32 02085000 SDWAGR07 EQU SDWAGRSV+28 02086000 SDWAGR06 EQU SDWAGRSV+24 02087000 SDWAGR05 EQU SDWAGRSV+20 02088000 SDWAGR04 EQU SDWAGRSV+16 02089000 SDWAGR03 EQU SDWAGRSV+12 02090000 SDWAGR02 EQU SDWAGRSV+8 02091000 SDWAGR01 EQU SDWAGRSV+4 02092000 SDWAGR00 EQU SDWAGRSV 02093000 SDWANXTP EQU SDWACTL2+5 02094000 SDWASGP EQU SDWAPMKP 02095000 SDWAEUP EQU SDWAPMKP 02096000 SDWADOP EQU SDWAPMKP 02097000 SDWAFPP EQU SDWAPMKP 02098000 SDWACCP EQU SDWAPMKP 02099000 SDWAILP EQU SDWAPMKP 02100000 SDWAINTP EQU SDWACTL2+2 02101000 SDWASPVP EQU SDWAMWPP 02102000 SDWAWATP EQU SDWAMWPP 02103000 SDWAMCKP EQU SDWAMWPP 02104000 @NM00032 EQU SDWAMWPP 02105000 SDWAKEYP EQU SDWAMWPP 02106000 SDWAEXTP EQU SDWACMKP 02107000 SDWAIOP EQU SDWACMKP 02108000 SDWANXTA EQU SDWACTL1+5 02109000 SDWASGA EQU SDWAPMKA 02110000 SDWAEUA EQU SDWAPMKA 02111000 SDWADOA EQU SDWAPMKA 02112000 SDWAFPA EQU SDWAPMKA 02113000 SDWACCA EQU SDWAPMKA 02114000 SDWAILA EQU SDWAPMKA 02115000 SDWAINTA EQU SDWACTL1+2 02116000 SDWASPVA EQU SDWAMWPA 02117000 SDWAWATA EQU SDWAMWPA 02118000 SDWAMCKA EQU SDWAMWPA 02119000 @NM00031 EQU SDWAMWPA 02120000 SDWAKEYA EQU SDWAMWPA 02121000 SDWAEXTA EQU SDWACMKA 02122000 SDWAIOA EQU SDWACMKA 02123000 SDWACMPC EQU SDWAABCC+1 02124000 @NM00030 EQU SDWACMPF 02125000 SDWASTCC EQU SDWACMPF 02126000 @NM00029 EQU SDWACMPF 02127000 SDWASTEP EQU SDWACMPF 02128000 SDWAREQ EQU SDWACMPF 02129000 FRRSPARM EQU FRRSENTR+8 02130000 @NM00028 EQU FRRSFLGS+1 02131000 @NM00027 EQU FRRSFLG1 02132000 FRRSNEST EQU FRRSFLG1 02133000 FRRSRCUR EQU FRRSFLG1 02134000 FRRSFRRA EQU FRRSENTR 02135000 FRRSENTS EQU FRRS+84 02136000 FRRSRTMW EQU FRRS+16 02137000 FRRSCURR EQU FRRSHEAD+12 02138000 FRRSELEN EQU FRRSHEAD+8 02139000 FRRSLAST EQU FRRSHEAD+4 02140000 FRRSEMP EQU FRRSHEAD 02141000 QVPLFELM EQU QVPLTYP2+36 02142000 QVPLRES4 EQU QVPLFLGB 02143000 QVPLBP3 EQU QVPLFLGB 02144000 QVPLRES3 EQU QVPLFLGT 02145000 QVPLTR3 EQU QVPLFLGT 02146000 QVPLLELM EQU QVPLTYP1+24 02147000 QVPLRES2 EQU QVPLFLGF 02148000 QVPLFP3 EQU QVPLFLGF 02149000 QVPLRES1 EQU QVPLFLGH 02150000 QVPLHD3 EQU QVPLFLGH 02151000 QVPLNOEL EQU QVPLTYP1+12 02152000 WSACCCH EQU WSAC+52 02153000 WSACRRSA EQU WSAC+48 02154000 WSACREST EQU WSAC+44 02155000 WSACRSTI EQU WSAC+40 02156000 WSACABTM EQU WSAC+36 02157000 WSACMF1 EQU WSAC+32 02158000 WSACIOS EQU WSAC+24 02159000 WSACRTMK EQU WSAC+20 02160000 WSACTIME EQU WSAC+12 02161000 WSACOPTM EQU WSAC+8 02162000 WSACGTF EQU WSAC+4 02163000 WSACCWSA EQU WSAC 02164000 ASCBEND EQU ASCB+208 02165000 ASCBSRBT EQU ASCB+200 02166000 ASCBSWTL EQU ASCB+196 02167000 ASCBRS14 EQU ASCB+195 02168000 ASCBSMCT EQU ASCB+194 02169000 ASCBRS12 EQU ASCB+192 02170000 ASCBPCTT EQU ASCB+188 02171000 ASCBVGTT EQU ASCB+184 02172000 ASCBLGCB EQU ASCB+180 02173000 ASCBJBNS EQU ASCB+176 02174000 ASCBJBNI EQU ASCB+172 02175000 ASCBMCC EQU ASCB+168 02176000 ASCBRTWA EQU ASCB+164 02177000 ASCBIQEA EQU ASCB+160 02178000 ASCBXMPQ EQU ASCB+156 02179000 ASCBRS01 EQU ASCB+154 02180000 ASCBFMCT EQU ASCB+152 02181000 ASCBOUXB EQU ASCB+148 02182000 ASCBOUCB EQU ASCB+144 02183000 ASCBMECB EQU ASCB+140 02184000 ASCBQECB EQU ASCB+136 02185000 ASCBCMSB EQU ASCB+132 02186000 ASCBCMSF EQU ASCB+128 02187000 ASCBTCBS EQU ASCB+124 02188000 ASCBNVSC EQU ASCB+122 02189000 ASCBVSC EQU ASCB+120 02190000 ASCBSRBS EQU ASCB+118 02191000 ASCBSSRB EQU ASCB+116 02192000 ASCBRV06 EQU ASCBFLG2 02193000 ASCBRV05 EQU ASCBFLG2 02194000 ASCBRV04 EQU ASCBFLG2 02195000 ASCBSNQS EQU ASCBFLG2 02196000 ASCBS2S EQU ASCBFLG2 02197000 ASCBCEXT EQU ASCBFLG2 02198000 ASCBPXMT EQU ASCBFLG2 02199000 ASCBXMPT EQU ASCBFLG2 02200000 ASCBRF07 EQU ASCBDSP1 02201000 ASCBRF06 EQU ASCBDSP1 02202000 ASCBRF05 EQU ASCBDSP1 02203000 ASCBRF04 EQU ASCBDSP1 02204000 ASCBRF03 EQU ASCBDSP1 02205000 ASCBRF02 EQU ASCBDSP1 02206000 ASCBFAIL EQU ASCBDSP1 02207000 ASCBSWCT EQU ASCB+112 02208000 ASCBASXB EQU ASCB+108 02209000 ASCBTMCH EQU ASCB+104 02210000 ASCBNSWP EQU ASCBFLG1 02211000 ASCBTYP1 EQU ASCBFLG1 02212000 ASCBSTND EQU ASCBFLG1 02213000 ASCBABNT EQU ASCBFLG1 02214000 ASCBTERM EQU ASCBFLG1 02215000 ASCBS3S EQU ASCBFLG1 02216000 ASCBCMSH EQU ASCBFLG1 02217000 ASCBTOFF EQU ASCBFLG1 02218000 ASCBRF01 EQU ASCBRCTF 02219000 ASCBTMLW EQU ASCBRCTF 02220000 ASCBOUT EQU ASCBRCTF 02221000 ASCBWAIT EQU ASCBRCTF 02222000 ASCBRV08 EQU ASCBRCTF 02223000 ASCBFQU EQU ASCBRCTF 02224000 ASCBFRS EQU ASCBRCTF 02225000 ASCBTMNO EQU ASCBRCTF 02226000 ASCBAFFN EQU ASCBFW1 02227000 ASCBDUMP EQU ASCB+96 02228000 ASCBQSVC EQU ASCB+92 02229000 ASCBUBET EQU ASCB+88 02230000 ASCBECB EQU ASCB+84 02231000 ASCBJSTL EQU ASCB+80 02232000 ASCBEWST EQU ASCB+72 02233000 ASCBEJST EQU ASCB+64 02234000 ASCBTSB EQU ASCB+60 02235000 ASCBCSCB EQU ASCB+56 02236000 ASCBRSM EQU ASCB+52 02237000 ASCBLDA EQU ASCB+48 02238000 ASCBSTOR EQU ASCB+44 02239000 ASCBRV07 EQU ASCB+42 02240000 ASCBIOSM EQU ASCB+40 02241000 ASCBASID EQU ASCB+36 02242000 ASCBSPL EQU ASCB+28 02243000 ASCBLSLQ EQU ASCB+24 02244000 ASCBFSLQ EQU ASCB+20 02245000 ASCBIOSP EQU ASCB+16 02246000 ASCBLOCK EQU ASCB+12 02247000 ASCBASCB EQU ASCB 02248000 ASCBEGIN EQU ASCB 02249000 LCCAR125 EQU LCCA+964 02250000 LCCAR124 EQU LCCA+960 02251000 LCCAR123 EQU LCCA+956 02252000 LCCAR122 EQU LCCA+952 02253000 LCCAR121 EQU LCCA+948 02254000 LCCAR120 EQU LCCA+944 02255000 LCCAR119 EQU LCCA+940 02256000 LCCAR118 EQU LCCA+936 02257000 LCCAR117 EQU LCCA+932 02258000 LCCAR116 EQU LCCA+928 02259000 LCCAR115 EQU LCCA+924 02260000 LCCAR114 EQU LCCA+920 02261000 LCCAR113 EQU LCCA+916 02262000 LCCAR112 EQU LCCA+912 02263000 LCCAR111 EQU LCCA+908 02264000 LCCAR110 EQU LCCA+904 02265000 LCCAR109 EQU LCCA+900 02266000 LCCAR108 EQU LCCA+896 02267000 LCCADRT2 EQU LCCA+888 02268000 LCCADRT1 EQU LCCA+880 02269000 LCCAR103 EQU LCCA+876 02270000 LCCAESS2 EQU LCCA+872 02271000 LCCASPLJ EQU LCCA+868 02272000 LCCASMQJ EQU LCCA+864 02273000 LCCAIRT EQU LCCA+736 02274000 LCCARV90 EQU LCCA+732 02275000 LCCARV89 EQU LCCA+728 02276000 LCCAPGTA EQU LCCASRBF+2 02277000 LCCASAFN EQU LCCASRBF 02278000 LCCAECSA EQU LCCA+716 02279000 LCCAICR0 EQU LCCA+712 02280000 LCCALWTM EQU LCCA+704 02281000 LCCARV78 EQU LCCA+700 02282000 LCCAPINV EQU LCCA+696 02283000 LCCARV88 EQU LCCA+695 02284000 LCCARV87 EQU LCCALKFG 02285000 LCCARV86 EQU LCCALKFG 02286000 LCCARV85 EQU LCCALKFG 02287000 LCCARV84 EQU LCCALKFG 02288000 LCCALKRD EQU LCCALKFG 02289000 LCCALKAQ EQU LCCALKFG 02290000 LCCALKSA EQU LCCALKFG 02291000 LCCALKDP EQU LCCALKFG 02292000 LCCACRST EQU LCCACREX 02293000 LCCACRDP EQU LCCACREX 02294000 LCCACRLM EQU LCCACREX 02295000 LCCACRIN EQU LCCACREX 02296000 LCCACRRT EQU LCCACREX 02297000 LCCACRLE EQU LCCACREX 02298000 LCCACRRM EQU LCCACREX 02299000 LCCACREF EQU LCCACREX 02300000 LCCAVARY EQU LCCACRFL 02301000 LCCARV73 EQU LCCACRFL 02302000 LCCARV72 EQU LCCACRFL 02303000 LCCARV71 EQU LCCACRFL 02304000 LCCARV70 EQU LCCACRFL 02305000 LCCARV69 EQU LCCACRFL 02306000 LCCACLMS EQU LCCACRFL 02307000 LCCACRTM EQU LCCACRFL 02308000 LCCALCR0 EQU LCCA+688 02309000 LCCACRLC EQU LCCA+684 02310000 LCCARCPU EQU LCCA+680 02311000 LCCADCPU EQU LCCA+676 02312000 LCCASRBJ EQU LCCA+672 02313000 LCCADSSR EQU LCCA+668 02314000 LCCADSSC EQU LCCA+660 02315000 LCCADSS3 EQU LCCA+648 02316000 LCCADSS2 EQU LCCA+636 02317000 LCCADSS1 EQU LCCA+624 02318000 LCCAWTIM EQU LCCA+616 02319000 LCCAITOD EQU LCCA+608 02320000 LCCADTOD EQU LCCA+600 02321000 LCCASTOD EQU LCCA+592 02322000 LCCARIR5 EQU LCCASPSA+44 02323000 LCCARIR4 EQU LCCASPSA+40 02324000 LCCARIR3 EQU LCCASPSA+36 02325000 LCCARIR2 EQU LCCASPSA+32 02326000 LCCARPR5 EQU LCCASPSA+28 02327000 LCCARPR4 EQU LCCASPSA+24 02328000 LCCARPR3 EQU LCCASPSA+20 02329000 LCCARPR2 EQU LCCASPSA+16 02330000 LCCADSR5 EQU LCCASPSA+12 02331000 LCCADSR4 EQU LCCASPSA+8 02332000 LCCADSR3 EQU LCCASPSA+4 02333000 LCCADSR2 EQU LCCASPSA 02334000 LCCARV68 EQU LCCA+543 02335000 LCCAPSMK EQU LCCA+542 02336000 LCCARV67 EQU LCCADSF2 02337000 LCCARV66 EQU LCCADSF2 02338000 LCCARV65 EQU LCCADSF2 02339000 LCCARV64 EQU LCCADSF2 02340000 LCCADSRW EQU LCCADSF2 02341000 LCCADSPL EQU LCCADSF2 02342000 LCCAGSRB EQU LCCADSF2 02343000 LCCASRBM EQU LCCADSF2 02344000 LCCARV61 EQU LCCADSF1 02345000 LCCARV60 EQU LCCADSF1 02346000 LCCARV59 EQU LCCADSF1 02347000 LCCARV58 EQU LCCADSF1 02348000 LCCATIMR EQU LCCADSF1 02349000 LCCADSS EQU LCCADSF1 02350000 LCCAVCPU EQU LCCADSF1 02351000 LCCAASCP EQU LCCA+532 02352000 LCCAESSA EQU LCCA+528 02353000 LCCARV55 EQU LCCASPN4 02354000 LCCARV54 EQU LCCASPN4 02355000 LCCARV53 EQU LCCASPN4 02356000 LCCARV52 EQU LCCASPN4 02357000 LCCARV51 EQU LCCASPN4 02358000 LCCARV50 EQU LCCASPN4 02359000 LCCARV49 EQU LCCASPN4 02360000 LCCARV48 EQU LCCASPN4 02361000 LCCARV47 EQU LCCASPN3 02362000 LCCARV46 EQU LCCASPN3 02363000 LCCARV45 EQU LCCASPN3 02364000 LCCARV44 EQU LCCASPN3 02365000 LCCARV43 EQU LCCASPN3 02366000 LCCARV42 EQU LCCASPN3 02367000 LCCARV41 EQU LCCASPN3 02368000 LCCARV40 EQU LCCASPN3 02369000 LCCARV39 EQU LCCASPN2 02370000 LCCARV38 EQU LCCASPN2 02371000 LCCARV37 EQU LCCASPN2 02372000 LCCARV36 EQU LCCASPN2 02373000 LCCARV35 EQU LCCASPN2 02374000 LCCARV34 EQU LCCASPN2 02375000 LCCARV33 EQU LCCASPN2 02376000 LCCARV32 EQU LCCASPN2 02377000 LCCARV31 EQU LCCASPN1 02378000 LCCARV30 EQU LCCASPN1 02379000 LCCAMFIO EQU LCCASPN1 02380000 LCCARSTR EQU LCCASPN1 02381000 LCCATSPN EQU LCCASPN1 02382000 LCCALOCK EQU LCCASPN1 02383000 LCCASIGP EQU LCCASPN1 02384000 LCCAPTLB EQU LCCASPN1 02385000 LCCARV27 EQU LCCAIHR4 02386000 LCCARV26 EQU LCCAIHR4 02387000 LCCARV25 EQU LCCAIHR4 02388000 LCCARV24 EQU LCCAIHR4 02389000 LCCARV23 EQU LCCAIHR4 02390000 LCCARV22 EQU LCCAIHR4 02391000 LCCARV21 EQU LCCAIHR4 02392000 LCCARV20 EQU LCCAIHR4 02393000 LCCARV19 EQU LCCAIHR3 02394000 LCCARV18 EQU LCCAIHR3 02395000 LCCARV17 EQU LCCAIHR3 02396000 LCCARV16 EQU LCCAIHR3 02397000 LCCARV15 EQU LCCAIHR3 02398000 LCCARV14 EQU LCCAIHR3 02399000 LCCARV13 EQU LCCAIHR3 02400000 LCCARV12 EQU LCCAIHR3 02401000 LCCARV11 EQU LCCAIHR2 02402000 LCCARV10 EQU LCCAIHR2 02403000 LCCARV09 EQU LCCAIHR2 02404000 LCCARV08 EQU LCCAIHR2 02405000 LCCARV07 EQU LCCAIHR2 02406000 LCCARV06 EQU LCCAIHR2 02407000 LCCARV05 EQU LCCAIHR2 02408000 LCCARV04 EQU LCCAIHR2 02409000 LCCARV03 EQU LCCAIHR1 02410000 LCCARV02 EQU LCCAIHR1 02411000 LCCARV01 EQU LCCAIHR1 02412000 LCCAPPIE EQU LCCAIHR1 02413000 LCCAPSG1 EQU LCCAIHR1 02414000 LCCAPDAT EQU LCCAIHR1 02415000 LCCAXRC2 EQU LCCAIHR1 02416000 LCCAXRC1 EQU LCCAIHR1 02417000 LCCAIOPS EQU LCCA+512 02418000 LCCAGPGR EQU LCCA+448 02419000 LCCARSFP EQU LCCA+416 02420000 LCCARSGR EQU LCCA+352 02421000 LCCAXGR3 EQU LCCA+288 02422000 LCCAXGR2 EQU LCCA+224 02423000 LCCAXGR1 EQU LCCA+160 02424000 LCCACR0 EQU LCCA+156 02425000 LCCAMCR1 EQU LCCA+152 02426000 LCCAPVAD EQU LCCA+148 02427000 LCCAPINT EQU LCCA+144 02428000 LCCAPPSW EQU LCCA+136 02429000 LCCAPGR2 EQU LCCA+72 02430000 LCCAPGR1 EQU LCCA+8 02431000 LCCARV77 EQU LCCA+6 02432000 LCCACPUA EQU LCCA+4 02433000 LCCALCCA EQU LCCA 02434000 CVTLEVL EQU CVTRELNO+2 02435000 CVTNUMB EQU CVTRELNO 02436000 CVTMDL EQU CVTFIX+250 02437000 @NM00026 EQU CVTFIX+248 02438000 @NM00025 EQU CVTFIX 02439000 CVTRV482 EQU CVTXTNT2+128 02440000 CVTRV481 EQU CVTXTNT2+124 02441000 CVTRV480 EQU CVTXTNT2+120 02442000 CVTRV479 EQU CVTXTNT2+118 02443000 CVTRV478 EQU CVTXTNT2+117 02444000 CVTRV477 EQU CVTXTNT2+116 02445000 CVTRV476 EQU CVTXTNT2+115 02446000 CVTRV475 EQU CVTXTNT2+114 02447000 CVTRV474 EQU CVTRV466 02448000 CVTRV473 EQU CVTRV466 02449000 CVTRV472 EQU CVTRV466 02450000 CVTRV471 EQU CVTRV466 02451000 CVTRV470 EQU CVTRV466 02452000 CVTRV469 EQU CVTRV466 02453000 CVTRV468 EQU CVTRV466 02454000 CVTRV467 EQU CVTRV466 02455000 CVTRV465 EQU CVTRV457 02456000 CVTRV464 EQU CVTRV457 02457000 CVTRV463 EQU CVTRV457 02458000 CVTRV462 EQU CVTRV457 02459000 CVTRV461 EQU CVTRV457 02460000 CVTRV460 EQU CVTRV457 02461000 CVTRV459 EQU CVTRV457 02462000 CVTRV458 EQU CVTRV457 02463000 CVTRV456 EQU CVTXTNT2+108 02464000 CVTRV455 EQU CVTXTNT2+104 02465000 CVTRV454 EQU CVTXTNT2+100 02466000 CVTRV453 EQU CVTXTNT2+96 02467000 CVTRV452 EQU CVTXTNT2+94 02468000 CVTRV451 EQU CVTXTNT2+92 02469000 CVTRV450 EQU CVTXTNT2+90 02470000 CVTRV449 EQU CVTXTNT2+88 02471000 CVTRV448 EQU CVTXTNT2+87 02472000 CVTRV447 EQU CVTXTNT2+86 02473000 CVTRV446 EQU CVTRV438 02474000 CVTRV445 EQU CVTRV438 02475000 CVTRV444 EQU CVTRV438 02476000 CVTRV443 EQU CVTRV438 02477000 CVTRV442 EQU CVTRV438 02478000 CVTRV441 EQU CVTRV438 02479000 CVTRV440 EQU CVTRV438 02480000 CVTRV439 EQU CVTRV438 02481000 CVTRV437 EQU CVTRV429 02482000 CVTRV436 EQU CVTRV429 02483000 CVTRV435 EQU CVTRV429 02484000 CVTRV434 EQU CVTRV429 02485000 CVTRV433 EQU CVTRV429 02486000 CVTRV432 EQU CVTRV429 02487000 CVTRV431 EQU CVTRV429 02488000 CVTRV430 EQU CVTRV429 02489000 CVTRV428 EQU CVTXTNT2+80 02490000 CVTRV427 EQU CVTXTNT2+76 02491000 CVTRV426 EQU CVTXTNT2+72 02492000 CVTRV425 EQU CVTXTNT2+68 02493000 CVTATACT EQU CVTATCVT 02494000 CVTRV423 EQU CVTXTNT2+62 02495000 CVTRV422 EQU CVTXTNT2+60 02496000 CVTRV421 EQU CVTXTNT2+58 02497000 CVTRV420 EQU CVTXTNT2+56 02498000 CVTRV419 EQU CVTXTNT2+55 02499000 CVTRV418 EQU CVTXTNT2+54 02500000 CVTRV417 EQU CVTRV409 02501000 CVTRV416 EQU CVTRV409 02502000 CVTRV415 EQU CVTRV409 02503000 CVTRV414 EQU CVTRV409 02504000 CVTRV413 EQU CVTRV409 02505000 CVTRV412 EQU CVTRV409 02506000 CVTRV411 EQU CVTRV409 02507000 CVTRV410 EQU CVTRV409 02508000 CVTRV408 EQU CVTRV400 02509000 CVTRV407 EQU CVTRV400 02510000 CVTRV406 EQU CVTRV400 02511000 CVTRV405 EQU CVTRV400 02512000 CVTRV404 EQU CVTRV400 02513000 CVTRV403 EQU CVTRV400 02514000 CVTRV402 EQU CVTRV400 02515000 CVTRV401 EQU CVTRV400 02516000 CVTRSVA1 EQU CVTXTNT2+48 02517000 CVTRSVA0 EQU CVTXTNT2+44 02518000 CVTRSV99 EQU CVTXTNT2+40 02519000 CVTRSV98 EQU CVTXTNT2+36 02520000 CVTRSV97 EQU CVTXTNT2+34 02521000 CVTRSV96 EQU CVTXTNT2+32 02522000 CVTOLTEP EQU CVTXTNT2+28 02523000 CVTQIDA EQU CVTQID+1 02524000 CVTRSV95 EQU CVTQID 02525000 CVTRSV94 EQU CVTXTNT2+20 02526000 CVTRSV93 EQU CVTXTNT2+16 02527000 CVTRSV92 EQU CVTXTNT2+12 02528000 CVTDEBVR EQU CVTXTNT2+8 02529000 CVTRSV91 EQU CVTXTNT2+6 02530000 CVTRSV9H EQU CVTRSV90 02531000 CVTRSV9G EQU CVTRSV90 02532000 CVTRSV9F EQU CVTRSV90 02533000 CVTRSV9E EQU CVTRSV90 02534000 CVTRSV9D EQU CVTRSV90 02535000 CVTRSV9C EQU CVTRSV90 02536000 CVTRSV9B EQU CVTRSV90 02537000 CVTRSV9A EQU CVTRSV90 02538000 CVTNUCLS EQU CVTXTNT2+4 02539000 CVTDSSVA EQU CVTDSSV+1 02540000 CVTRSV89 EQU CVTDSSV 02541000 CVTRSV88 EQU CVTXTNT1+8 02542000 CVTRSV87 EQU CVTXTNT1+4 02543000 CVTFACHN EQU CVTXTNT1 02544000 CVTRV488 EQU CVTMAP+412 02545000 CVTRV487 EQU CVTMAP+408 02546000 CVTRV486 EQU CVTMAP+404 02547000 CVTRV485 EQU CVTMAP+400 02548000 CVTRV484 EQU CVTMAP+396 02549000 CVTAUTH EQU CVTMAP+392 02550000 CVTATMCA EQU CVTATMCT+1 02551000 CVTATMST EQU CVTATMCT 02552000 CVTRSV61 EQU CVTMAP+384 02553000 CVTVOLT1 EQU CVTVOLM1+1 02554000 CVTVOLI1 EQU CVTVOLF1 02555000 CVTSTOA EQU CVTMAP+376 02556000 CVTRSV58 EQU CVTMAP+374 02557000 CVTRSV57 EQU CVTMAP+372 02558000 CVTDDCE EQU CVTMAP+368 02559000 CVTPNWFR EQU CVTMAP+364 02560000 CVTSMF EQU CVTMAP+360 02561000 CVTSULK EQU CVTMAP+358 02562000 CVTSLKO EQU CVTSYSK 02563000 CVTSLKP EQU CVTSYSK 02564000 CVTSLKQ EQU CVTSYSK 02565000 CVTSLKR EQU CVTSYSK 02566000 CVTRSV56 EQU CVTSYSK 02567000 CVTRSV55 EQU CVTSYSK 02568000 CVTRSV54 EQU CVTSYSK 02569000 CVTRSV53 EQU CVTSYSK 02570000 CVTRSV52 EQU CVTA1F1 02571000 CVTRSV51 EQU CVTA1F1 02572000 CVTRSV50 EQU CVTA1F1 02573000 CVTRSV49 EQU CVTA1F1 02574000 CVTRSV48 EQU CVTA1F1 02575000 CVTRSV47 EQU CVTA1F1 02576000 CVTSRSW EQU CVTA1F1 02577000 CVTPFSW EQU CVTA1F1 02578000 CVTPCVT EQU CVTMAP+352 02579000 CVTRSV46 EQU CVTMAP+344 02580000 CVTRSV45 EQU CVTMAP+340 02581000 CVTRSV44 EQU CVTMAP+338 02582000 CVTRSV43 EQU CVTMAP+336 02583000 CVTHJESA EQU CVTHJES+1 02584000 CVTRSV42 EQU CVTHJES 02585000 CVTEXT2A EQU CVTEXT2+1 02586000 CVTRSV41 EQU CVTEXT2 02587000 CVTAPFA EQU CVTAPF+1 02588000 CVTRSV40 EQU CVTAPF 02589000 CVTRV518 EQU CVTINTLA 02590000 CVTRV517 EQU CVTERPV 02591000 CVTEORM EQU CVTMAP+312 02592000 CVTMCHPR EQU CVTMAP+308 02593000 CVTTZ EQU CVTMAP+304 02594000 CVTJEPS EQU CVTMAP+300 02595000 CVTJESCT EQU CVTMAP+296 02596000 CVTMODE EQU CVTMAP+292 02597000 CVTPTRV EQU CVTMAP+288 02598000 CVTREAL EQU CVTMAP+284 02599000 CVTRSV39 EQU CVTMAP+280 02600000 CVTRSV38 EQU CVTMAP+276 02601000 CVTDMSRA EQU CVTDMSR+1 02602000 CVTRSV37 EQU CVTDMSR 02603000 CVTQMSGA EQU CVTQMSG+1 02604000 CVTRSV36 EQU CVTQMSG 02605000 CVTAMFF EQU CVTMAP+264 02606000 CVTPURGA EQU CVTPURG+1 02607000 CVTRSV35 EQU CVTPURG 02608000 CVTCBSP EQU CVTMAP+256 02609000 CVTATERA EQU CVTATER+1 02610000 CVTSYST EQU CVTATER 02611000 CVTVOLT2 EQU CVTTAT 02612000 CVTVOLI2 EQU CVTVOLF2 02613000 CVTAQAVB EQU CVTAQAVT+1 02614000 CVTRSV34 EQU CVTTCMFG 02615000 CVTRSV33 EQU CVTTCMFG 02616000 CVTRSV32 EQU CVTTCMFG 02617000 CVTRSV31 EQU CVTTCMFG 02618000 CVTRSV30 EQU CVTTCMFG 02619000 CVTRSV29 EQU CVTTCMFG 02620000 CVTRSV28 EQU CVTTCMFG 02621000 CVTTCRDY EQU CVTTCMFG 02622000 CVTGTFA EQU CVTGTF+1 02623000 CVTRSV27 EQU CVTGTFST 02624000 CVTRNIO EQU CVTGTFST 02625000 CVTRV319 EQU CVTUSR 02626000 CVTRV318 EQU CVTFORM 02627000 CVTRV317 EQU CVTTMODE 02628000 CVTRV316 EQU CVTSTATE 02629000 CVTRV315 EQU CVTGTFS 02630000 CVTGTFAV EQU CVTGTFS 02631000 CVT0SCR1 EQU CVTMAP+232 02632000 CVTRV515 EQU CVTMAP+228 02633000 CVTRMS EQU CVTMAP+224 02634000 CVTPATCH EQU CVTMAP+220 02635000 CVTTSCE EQU CVTMAP+216 02636000 CVTLNKSC EQU CVTMAP+214 02637000 CVTQABST EQU CVTMAP+212 02638000 CVTMDLDS EQU CVTMAP+208 02639000 CVTUSER EQU CVTMAP+204 02640000 CVTABEND EQU CVTMAP+200 02641000 CVTSMCA EQU CVTMAP+196 02642000 CVTRSV18 EQU CVTMAP+192 02643000 CVTQLPAQ EQU CVTMAP+188 02644000 CVTQCDSR EQU CVTMAP+184 02645000 CVTRSV17 EQU CVTOPTB 02646000 CVTRSV16 EQU CVTOPTB 02647000 CVTFP EQU CVTOPTB 02648000 CVTAPTHR EQU CVTOPTB 02649000 CVTNLOG EQU CVTOPTB 02650000 CVTTOD EQU CVTOPTB 02651000 CVTCTIMS EQU CVTOPTB 02652000 CVTPROT EQU CVTOPTB 02653000 CVTXPFP EQU CVTOPTA 02654000 CVTASCII EQU CVTOPTA 02655000 CVTRSV13 EQU CVTOPTA 02656000 CVTRSV12 EQU CVTOPTA 02657000 CVTNIP EQU CVTOPTA 02658000 CVTDDR EQU CVTOPTA 02659000 CVTAPR EQU CVTOPTA 02660000 CVTCCH EQU CVTOPTA 02661000 CVTSNCTR EQU CVTMAP+180 02662000 CVTQMWR EQU CVTMAP+176 02663000 CVTQOCR EQU CVTMAP+172 02664000 CVT1EF00 EQU CVTMAP+168 02665000 CVTMZ00 EQU CVTMAP+164 02666000 CVTHEAD EQU CVTMAP+160 02667000 CVTRSV11 EQU CVTMAP+156 02668000 CVT0PT01 EQU CVTMAP+152 02669000 CVTMSER EQU CVTMAP+148 02670000 CVTRV516 EQU CVTIERLC 02671000 CVTILCH EQU CVTMAP+140 02672000 CVT0DS EQU CVTMAP+136 02673000 CVTFBOSV EQU CVTMAP+132 02674000 CVTNUCB EQU CVTMAP+128 02675000 CVTIXAVL EQU CVTMAP+124 02676000 CVTIOQET EQU CVTMAP+120 02677000 CVTDCBA EQU CVTMAP+117 02678000 CVTMVS2 EQU CVTDCB 02679000 CVT6DAT EQU CVTDCB 02680000 CVT4MPS EQU CVTDCB 02681000 CVTRSV09 EQU CVTDCB 02682000 CVT4MS1 EQU CVTDCB 02683000 CVT2SPS EQU CVTDCB 02684000 CVT1SSS EQU CVTDCB 02685000 CVTRSV08 EQU CVTDCB 02686000 CVTSTB EQU CVTMAP+112 02687000 CVTQTD00 EQU CVTMAP+108 02688000 CVTQTE00 EQU CVTMAP+104 02689000 CVTCUCB EQU CVTMAP+100 02690000 CVTSJQ EQU CVTMAP+96 02691000 CVTPBLDL EQU CVTMAP+92 02692000 CVTTPC EQU CVTMAP+88 02693000 CVTSVDCB EQU CVTMAP+84 02694000 CVTBRET EQU CVTMAP+82 02695000 CVTEXIT EQU CVTMAP+80 02696000 CVT0FN00 EQU CVTMAP+76 02697000 CVTDARA EQU CVTDAR+1 02698000 CVTRSV07 EQU CVTFLGS1 02699000 CVTRSV06 EQU CVTFLGS1 02700000 CVTRSV05 EQU CVTFLGS1 02701000 CVTRSV04 EQU CVTFLGS1 02702000 CVTRSV03 EQU CVTFLGS1 02703000 CVTRSV02 EQU CVTFLGS1 02704000 CVTRSV01 EQU CVTFLGS1 02705000 CVTDMPLK EQU CVTFLGS1 02706000 CVTXITP EQU CVTMAP+68 02707000 CVTZDTAB EQU CVTMAP+64 02708000 CVTMSLT EQU CVTMAP+60 02709000 CVTDATE EQU CVTMAP+56 02710000 CVTSYSAD EQU CVTMAP+48 02711000 CVTXTLER EQU CVTMAP+44 02712000 CVTILK2 EQU CVTMAP+40 02713000 CVTILK1 EQU CVTMAP+36 02714000 CVTPRLTV EQU CVTMAP+32 02715000 CVTPCNVT EQU CVTMAP+28 02716000 CVT0VL00 EQU CVTMAP+24 02717000 CVTXAPG EQU CVTMAP+20 02718000 CVTBUF EQU CVTMAP+16 02719000 CVTJOB EQU CVTMAP+12 02720000 CVTLINK EQU CVTMAP+8 02721000 CVT0EF00 EQU CVTMAP+4 02722000 CVTTCBP EQU CVTMAP 02723000 CVT EQU CVTMAP 02724000 @NM00024 EQU PSA+3412 02725000 PSASTAK EQU PSA+3072 02726000 @NM00023 EQU PSA+1032 02727000 PSAUSEND EQU PSA+1032 02728000 PSAPCPSW EQU PSA+1024 02729000 PSARV060 EQU PSA+1020 02730000 PSARV059 EQU PSA+1018 02731000 PSASVC13 EQU PSA+1016 02732000 PSALSFCC EQU PSA+1012 02733000 PSASFACC EQU PSA+1008 02734000 PSASTOP EQU PSA+992 02735000 PSASTART EQU PSA+976 02736000 PSARSPSW EQU PSA+968 02737000 PSASRPSW EQU PSA+960 02738000 PSARV045 EQU PSA+892 02739000 PSARV044 EQU PSA+888 02740000 PSARV043 EQU PSA+884 02741000 PSARV042 EQU PSA+880 02742000 PSARV041 EQU PSA+876 02743000 PSARV040 EQU PSA+872 02744000 PSARV025 EQU PSA+868 02745000 PSADSSED EQU PSA+868 02746000 PSADSSPR EQU PSA+864 02747000 PSADSSFW EQU PSA+860 02748000 PSADSS14 EQU PSA+856 02749000 PSADSSPP EQU PSA+848 02750000 PSADSSRP EQU PSA+840 02751000 PSADSS05 EQU PSADSSF4 02752000 PSADSS10 EQU PSADSSF4 02753000 PSADSSVE EQU PSADSSF4 02754000 PSADSSDE EQU PSADSSF4 02755000 PSADSSC0 EQU PSADSSF4 02756000 PSADSSIE EQU PSADSSF4 02757000 PSADSS12 EQU PSADSSF4 02758000 PSADSSRC EQU PSADSSF4 02759000 PSARV057 EQU PSADSSF3 02760000 PSARV056 EQU PSADSSF3 02761000 PSARV055 EQU PSADSSF3 02762000 PSADSSMC EQU PSADSSF3 02763000 PSADSSRW EQU PSADSSF3 02764000 PSADSSNM EQU PSADSSF3 02765000 PSADSSES EQU PSADSSF3 02766000 PSADSSGP EQU PSADSSF3 02767000 PSADSSF2 EQU PSADSSFL+1 02768000 PSADSSPI EQU PSADSSF1 02769000 PSADSSOI EQU PSADSSF1 02770000 PSADSSSP EQU PSADSSF1 02771000 PSADSSTP EQU PSADSSF1 02772000 PSADSSDW EQU PSADSSF1 02773000 PSADSSDD EQU PSADSSF1 02774000 PSADSSDM EQU PSADSSF1 02775000 PSADSSMV EQU PSADSSF1 02776000 PSADSSTS EQU PSA+816 02777000 PSADSSWK EQU PSA+812 02778000 PSADSSR3 EQU PSA+808 02779000 PSADSSR2 EQU PSA+804 02780000 PSADSSRS EQU PSA+800 02781000 PSASTOR EQU PSA+796 02782000 PSACPUSA EQU PSA+794 02783000 PSAVSTAP EQU PSA+792 02784000 PSAWKVAP EQU PSA+788 02785000 PSAWKRAP EQU PSA+784 02786000 PSAMCHIC EQU PSA+783 02787000 PSARV061 EQU PSA+782 02788000 PSASYMSK EQU PSA+781 02789000 PSAMCHFL EQU PSA+780 02790000 PSACR0 EQU PSA+776 02791000 PSAPSWSV EQU PSA+768 02792000 PSACLHS EQU PSAHLHI 02793000 PSALKR15 EQU PSALKSA+60 02794000 PSALKR14 EQU PSALKSA+56 02795000 PSALKR13 EQU PSALKSA+52 02796000 PSALKR12 EQU PSALKSA+48 02797000 PSALKR11 EQU PSALKSA+44 02798000 PSALKR10 EQU PSALKSA+40 02799000 PSALKR9 EQU PSALKSA+36 02800000 PSALKR8 EQU PSALKSA+32 02801000 PSALKR7 EQU PSALKSA+28 02802000 PSALKR6 EQU PSALKSA+24 02803000 PSALKR5 EQU PSALKSA+20 02804000 PSALKR4 EQU PSALKSA+16 02805000 PSALKR3 EQU PSALKSA+12 02806000 PSALKR2 EQU PSALKSA+8 02807000 PSALKR1 EQU PSALKSA+4 02808000 PSALKR0 EQU PSALKSA 02809000 PSARV023 EQU PSACLHT+52 02810000 PSALOCAL EQU PSACLHT+48 02811000 PSACMSL EQU PSACLHT+44 02812000 PSAOPTL EQU PSACLHT+40 02813000 PSATPACL EQU PSACLHT+36 02814000 PSATPDNL EQU PSACLHT+32 02815000 PSATPNCL EQU PSACLHT+28 02816000 PSAIOSLL EQU PSACLHT+24 02817000 PSAIOSUL EQU PSACLHT+20 02818000 PSAIOSCL EQU PSACLHT+16 02819000 PSAIOSSL EQU PSACLHT+12 02820000 PSASALCL EQU PSACLHT+8 02821000 PSAASML EQU PSACLHT+4 02822000 PSADISPL EQU PSACLHT 02823000 PSASRSA EQU PSA+636 02824000 PSARV050 EQU PSA+634 02825000 PSADSSGO EQU PSA+633 02826000 PSARECUR EQU PSA+632 02827000 PSAHLHIS EQU PSA+628 02828000 PSAIPCSA EQU PSA+624 02829000 @NM00022 EQU PSA+621 02830000 PSAIPCDM EQU PSA+620 02831000 PSAIPCD EQU PSA+616 02832000 @NM00021 EQU PSA+613 02833000 PSAIPCRM EQU PSA+612 02834000 PSAIPCR EQU PSA+608 02835000 PSAMCHEX EQU PSA+600 02836000 PSAMPSW EQU PSA+592 02837000 PSAEXPS2 EQU PSA+584 02838000 PSAEXPS1 EQU PSA+576 02839000 PSAPIREG EQU PSA+572 02840000 PSARSREG EQU PSA+568 02841000 PSAGPREG EQU PSA+556 02842000 PSARV022 EQU PSASUP4 02843000 PSARV021 EQU PSASUP4 02844000 PSARV020 EQU PSASUP4 02845000 PSARV019 EQU PSASUP4 02846000 PSARV018 EQU PSASUP4 02847000 PSARV017 EQU PSASUP4 02848000 PSARV016 EQU PSASUP4 02849000 PSARV015 EQU PSASUP4 02850000 PSARV014 EQU PSASUP3 02851000 PSARV013 EQU PSASUP3 02852000 PSARV012 EQU PSASUP3 02853000 PSARV011 EQU PSASUP3 02854000 PSARV010 EQU PSASUP3 02855000 PSARV009 EQU PSASUP3 02856000 PSARV008 EQU PSASUP3 02857000 PSAIOSUP EQU PSASUP3 02858000 PSALCR EQU PSASUP2 02859000 PSARTM EQU PSASUP2 02860000 PSAACR EQU PSASUP2 02861000 PSAIPCE2 EQU PSASUP2 02862000 PSAIPCES EQU PSASUP2 02863000 PSAIPCEC EQU PSASUP2 02864000 PSAGTF EQU PSASUP2 02865000 PSAIPCRI EQU PSASUP2 02866000 PSAIPCRP EQU PSASUP1 02867000 PSAIPCDR EQU PSASUP1 02868000 PSADISP EQU PSASUP1 02869000 PSALOCK EQU PSASUP1 02870000 PSAPI EQU PSASUP1 02871000 PSAEXT EQU PSASUP1 02872000 PSASVC EQU PSASUP1 02873000 PSAIO EQU PSASUP1 02874000 PSAAOLD EQU PSA+548 02875000 PSAANEW EQU PSA+544 02876000 PSATOLD EQU PSA+540 02877000 PSATNEW EQU PSA+536 02878000 PSALCCAR EQU PSA+532 02879000 PSAPCCAR EQU PSA+524 02880000 PSAPCCAV EQU PSA+520 02881000 PSACPULA EQU PSA+518 02882000 PSACPUPA EQU PSA+516 02883000 PSAPSA EQU PSA+512 02884000 FLCHDEND EQU PSA+512 02885000 FLCCRSAV EQU FLCMCLA+280 02886000 FLCGRSAV EQU FLCMCLA+216 02887000 FLCFPSAV EQU FLCMCLA+184 02888000 FLCFLA EQU FLCMCLA+88 02889000 FLCRGNCD EQU FLCMCLA+84 02890000 FLCFSAA EQU FLCFSA+1 02891000 @NM00020 EQU FLCFSA 02892000 @NM00019 EQU FLCMCLA+72 02893000 FLCMCIC EQU FLCMCLA+64 02894000 @NM00018 EQU FLCMCLA+20 02895000 FLCIOAA EQU FLCIOA+1 02896000 @NM00017 EQU FLCIOA 02897000 @NM00016 EQU FLCMCLA+15 02898000 @NM00015 EQU FLCMCLA+14 02899000 @NM00014 EQU FLCMCLA+12 02900000 FLCLCL EQU FLCMCLA+8 02901000 FLCIOELA EQU FLCIOEL+1 02902000 @NM00013 EQU FLCIOEL 02903000 FLCCHNID EQU FLCMCLA 02904000 @NM00012 EQU PSA+160 02905000 FLCMTRCD EQU PSA+157 02906000 @NM00011 EQU PSA+156 02907000 FLCPERA EQU FLCPER+1 02908000 @NM00010 EQU FLCPER 02909000 @NM00009 EQU PSA+151 02910000 FLCPERCD EQU PSA+150 02911000 FLCMCNUM EQU PSA+149 02912000 @NM00008 EQU PSA+148 02913000 FLCTEAA EQU FLCTEA+1 02914000 @NM00007 EQU FLCTEA 02915000 PSAPIPC EQU PSAPICOD 02916000 PSAPIMC EQU PSAPICOD 02917000 PSAPIPER EQU PSAPICOD 02918000 PSARV049 EQU FLCPICOD 02919000 FLCPILCB EQU FLCPIILC 02920000 @NM00006 EQU FLCPIILC 02921000 @NM00005 EQU PSAEPPSW 02922000 FLCSVCN EQU PSAESPSW+2 02923000 FLCSILCB EQU FLCSVILC 02924000 @NM00004 EQU FLCSVILC 02925000 @NM00003 EQU PSAESPSW 02926000 FLCEICOD EQU PSAEEPSW+2 02927000 PSASPAD EQU PSAEEPSW 02928000 @NM00002 EQU PSA+128 02929000 FLCINPSW EQU PSA+120 02930000 FLCMNPSW EQU PSA+112 02931000 FLCPNPSW EQU PSA+104 02932000 FLCSNPSW EQU PSA+96 02933000 FLCENPSW EQU PSA+88 02934000 FLCTRACE EQU PSA+84 02935000 FLCTIMER EQU PSA+80 02936000 FLCCVT2 EQU PSA+76 02937000 FLCCAW EQU PSA+72 02938000 FLCCSW EQU PSA+64 02939000 FLCIOPSW EQU PSA+56 02940000 FLCMOPSW EQU PSA+48 02941000 FLCPOPSW EQU PSA+40 02942000 FLCSOPSW EQU PSA+32 02943000 FLCEOPSW EQU PSA+24 02944000 @NM00001 EQU FLCICCW2+4 02945000 FLCCVT EQU FLCICCW2 02946000 FLCICCW1 EQU FLCROPSW 02947000 FLCIPPSW EQU FLCRNPSW 02948000 * END UNREFERENCED COMPONENTS 02949000 @RT00117 EQU AC000400 02950000 @RT00136 EQU AC000200 02951000 @RC00213 EQU @EL00003 02952000 @RC00218 EQU @EL00003 02953000 @RF00260 EQU @EL00006 02954000 @PB00008 EQU @EL00001 02955000 @PB00007 EQU @PB00008 02956000 @PB00006 EQU @PB00007 02957000 @PB00005 EQU @PB00006 02958000 @PB00004 EQU @PB00005 02959000 @PB00003 EQU @PB00004 02960000 @PB00002 EQU @PB00003 02961000 @ENDDATA EQU * 02962000 END IEAVEAC0 02963000