TITLE 'IEAVTMTC MEMORY TERMINATION CONTROLLER *00001000 ' 00002000 IEAVTMTC CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVTMTC 76.090' 0001 00008000 DROP @15 00009000 @PROLOG BALR @08,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@08 0001 00012000 * DO; /* SEGMENT MTCINIT BEGIN */ 00013000 * 0067 00014000 * /***************************************************************/ 00015000 * /* */ 00016000 * /* SEGMENT MTCINIT INITIALIZES THE ENVIRONMENT THAT THE MEMTERM*/ 00017000 * /* CONTROLLER WILL RUN IN. ENTRY IS FROM THE MASTER SCHEDULER */ 00018000 * /* INITIALIZATION ROUTINE WITH AN ECB TO BE POSTED ON */ 00019000 * /* COMPLETION OF THE INITIALIZATION. A BLOCK OF CORE IN SP 245 */ 00020000 * /* IS OBTAINED TO CONTAIN TRACKING AREA, PARAMETER LIST FOR IOS*/ 00021000 * /* AND RSM, AND THE MEMTERM SRB. PGFIX IS USED TO FIX THE PAGES*/ 00022000 * /* OF MTC AND ITS ESTAE ROUTINE, AND THE MEMTERM SRB ROUTINE. */ 00023000 * /* AN ESTAE ENVIRONMENT IS SET UP. IF ALL STEPS WERE */ 00024000 * /* SUCCESSFUL, THE INPUTTED ECB IS POSTED WITH A CODE OF 0-- */ 00025000 * /* FAILURE CAUSES A POST OF 4. */ 00026000 * /* */ 00027000 * /***************************************************************/ 00028000 * 0068 00029000 * PSAPTR=ZERO; /* ORIGIN OF PSA */ 00030000 * 0068 00031000 L PSAPTR,ZERO 0068 00032000 * /***************************************************************/ 00033000 * /* */ 00034000 * /* SAVE ADDR OF INPUT ECB */ 00035000 * /* */ 00036000 * /***************************************************************/ 00037000 * 0069 00038000 * RFY 0069 00039000 * (ECBPTR, 0069 00040000 * REG1, 0069 00041000 * INITFLAG) RSTD; 0069 00042000 * INITFLAG=0; /* SET TO SUCCESS INDICATION */ 00043000 SLR INITFLAG,INITFLAG 0070 00044000 * ECBPTR=REG1; /* SET PTR TO INPUT ECB */ 00045000 * 0071 00046000 LR ECBPTR,REG1 0071 00047000 * /***************************************************************/ 00048000 * /* */ 00049000 * /* GET CORE FOR SRB, RMPL, AND ERROR TRACKING AREA */ 00050000 * /* */ 00051000 * /***************************************************************/ 00052000 * 0072 00053000 * RFY 0072 00054000 * (REG0, 0072 00055000 * REG15) RSTD; 0072 00056000 * REG0=LENGTH(GOTNCORE); /* GET LENGTH FOR GETMAIN */ 00057000 LA REG0,284 0073 00058000 * GEN REFS(REG0) SETS(REG0,REG1,REG14,REG15) 0074 00059000 * (GETMAIN RC,LV=(0),SP=245);/* OBTAIN STORAGE */ 00060000 GETMAIN RC,LV=(0),SP=245 00061000 * INITFLAG=INITFLAG|REG15; /* OR IN RETURN CODE */ 00062000 OR INITFLAG,REG15 0075 00063000 * IF INITFLAG=0 THEN /* IF NO ERRORS, MORE INIT. */ 00064000 SLR @14,@14 0076 00065000 CR INITFLAG,@14 0076 00066000 BNE @RF00076 0076 00067000 * DO; /* NO ERRORS */ 00068000 * GOTNPTR=REG1; /* SAVE PTR TO GOTTEN CORE */ 00069000 LR GOTNPTR,REG1 0078 00070000 * GOTNCORE(1:256)=''B; /* ZERO OUT AREA */ 00071000 XC GOTNCORE(256,GOTNPTR),GOTNCORE(GOTNPTR) 0079 00072000 * GOTNCORE(257:LENGTH(GOTNCORE))=''B;/* ZERO REMAINDER */ 00073000 * 0080 00074000 XC GOTNCORE+256(28,GOTNPTR),GOTNCORE+256(GOTNPTR) 0080 00075000 * /***********************************************************/ 00076000 * /* */ 00077000 * /* INITIALIZE POINTERS TO THE BLOCKS THAT ARE TO BE CARVED */ 00078000 * /* OUT OF THE GOTTEN CORE. THEN INITIALIZE THE AREA WITH */ 00079000 * /* THE BLOCKS-- ERRAREA, RMPLPTR, RMPL, RESOURCE MGR */ 00080000 * /* WORKAREA, AND SRB. */ 00081000 * /* */ 00082000 * /***********************************************************/ 00083000 * 0081 00084000 * RMPLPTR=ADDR(RMPL); /* SET PTR TO RMPL */ 00085000 LA @12,152 0081 00086000 ALR @12,GOTNPTR 0081 00087000 ST @12,RMPLPTR(,GOTNPTR) 0081 00088000 * RMPLRMWA=ADDR(WORKAREA); /* SET RMPL PTR TO WORKAREA */ 00089000 LA @09,WORKAREA(,GOTNPTR) 0082 00090000 ST @09,RMPLRMWA(,@12) 0082 00091000 * RTCTMSRB=ADDR(SRB); /* SET RTMCT PTR TO SRB */ 00092000 * 0083 00093000 L @12,CVTPTR(,PSAPTR) 0083 00094000 L @12,CVTRTMCT(,@12) 0083 00095000 LA @09,240 0083 00096000 ALR @09,GOTNPTR 0083 00097000 ST @09,RTCTMSRB(,@12) 0083 00098000 * /***********************************************************/ 00099000 * /* */ 00100000 * /* INITIALIZE MEMTERM SRB */ 00101000 * /* */ 00102000 * /***********************************************************/ 00103000 * 0084 00104000 * SRBID='SRB '; /* IDENTIFIER */ 00105000 MVC SRBID(4,@09),@CC02088 0084 00106000 * SRBASCB=PSAAOLD; /* POINT TO CURRENT ASCB */ 00107000 L @12,PSAAOLD(,PSAPTR) 0085 00108000 ST @12,SRBASCB(,@09) 0085 00109000 * SRBPKF=0; /* PROTECT KEY 0 */ 00110000 MVI SRBPKF(@09),X'00' 0086 00111000 * SRBEP=ADDR(MEMSRBEP); /* PTR TO SRB ROUTINE */ 00112000 LA @06,MEMSRBEP 0087 00113000 ST @06,SRBEP(,@09) 0087 00114000 * SRBSAVE=0; /* NO SAVE AREA */ 00115000 ST @14,SRBSAVE(,@09) 0088 00116000 * SRBPARM=0; /* NO PARAMETER AREA */ 00117000 ST @14,SRBPARM(,@09) 0089 00118000 * SRBCPAFF=0; /* NO CPU AFFINITY */ 00119000 STH @14,SRBCPAFF(,@09) 0090 00120000 * SRBPRIOR=0; /* SYSTEM PRIORITY */ 00121000 MVI SRBPRIOR(@09),X'00' 0091 00122000 * SRBRMTR=0; /* NO PURGDQ SHOULD BE ISSUED */ 00123000 ST @14,SRBRMTR(,@09) 0092 00124000 * SRBPTCB=PSATOLD; /* MTC TCB */ 00125000 L @14,PSATOLD(,PSAPTR) 0093 00126000 ST @14,SRBPTCB(,@09) 0093 00127000 * SRBPASID=PSAAOLD->ASCBASID;/* M.S. ADDR SPACE */ 00128000 * 0094 00129000 LH @14,ASCBASID(,@12) 0094 00130000 N @14,@CF02133 0094 00131000 STH @14,SRBPASID(,@09) 0094 00132000 * /***********************************************************/ 00133000 * /* */ 00134000 * /* FIX PAGES OF MTC, THE ESTAE EXIT, AND SRB ROUTINE */ 00135000 * /* */ 00136000 * /***********************************************************/ 00137000 * 0095 00138000 * DO; /* PGFIX (R) A(IEAVTMTC) 0095 00139000 * EA(@ENDDATA) ECB(WORKWORD(1)) 00140000 * LONG(Y) */ 00141000 * RESPECIFY 0096 00142000 * (GPR00P, 0096 00143000 * GPR01P) RESTRICTED; 0096 00144000 * GPR00P=ADDR(WORKWORD(1));/* ECB ADDR */ 00145000 LA GPR00P,WORKWORD(,GOTNPTR) 0097 00146000 * GPR01P=ADDR(IEAVTMTC); /* PAGE ADDR */ 00147000 L GPR01P,@CA00028 0098 00148000 * RESPECIFY 0099 00149000 * GPR15P RESTRICTED; 0099 00150000 * GPR15P=ADDR(@ENDDATA); /* VSL ADDR */ 00151000 LA GPR15P,@ENDDATA 0100 00152000 * GPR01P=GPR01P|'52000000'X;/* R, PGFIX, RELEASE & LONG 0101 00153000 * FLAGS */ 00154000 O GPR01P,@CF02093 0101 00155000 * SVC(113); /* ISSUE PGFIX SVC */ 00156000 SVC 113 0102 00157000 * RESPECIFY 0103 00158000 * (GPR00P, 0103 00159000 * GPR01P) UNRESTRICTED; 0103 00160000 * RESPECIFY 0104 00161000 * GPR15P UNRESTRICTED; 0104 00162000 * END; /* PGFIX (R) A(IEAVTMTC) 0105 00163000 * EA(@ENDDATA) ECB(WORKWORD(1)) 00164000 * LONG(Y) */ 00165000 * REG1=ADDR(WORKWORD(1)); /* GET ADDR OF ECB BEING USED */ 00166000 LA REG1,WORKWORD(,GOTNPTR) 0106 00167000 * GEN(WAIT ECB=(1)); /* WAIT FOR PGFIX TO COMPLETE, 0107 00168000 * ANY ERRORS ENCOUNTERED IN 0107 00169000 * PGFIX ARE COMMUNICATED VIA AN 00170000 * ABEND. */ 00171000 * 0107 00172000 WAIT ECB=(1) 00173000 * /***********************************************************/ 00174000 * /* */ 00175000 * /* SET UP ESTAE RECOVERY ENVIRONMENT */ 00176000 * /* */ 00177000 * /***********************************************************/ 00178000 * 0108 00179000 * REG1=ADDR(ESTAELST); /* LOAD ESTAE PARM LIST */ 00180000 LA REG1,ESTAELST 0108 00181000 * GEN(ESTAE MF=(E,(1)),PARAM=(GOTNPTR)); 0109 00182000 ESTAE MF=(E,(1)),PARAM=(GOTNPTR) 00183000 * INITFLAG=INITFLAG|REG15; /* OR IN ANY ERROR CODE */ 00184000 OR INITFLAG,REG15 0110 00185000 * END; 0111 00186000 * 0111 00187000 * /***************************************************************/ 00188000 * /* */ 00189000 * /* POST SUCCESS OR FAILURE TO INITIALIZATION ECB. IF SUCCESS, */ 00190000 * /* POST INITIALIZATION ECB WITH CODE OF 0, AND SET SRB LOCK TO */ 00191000 * /* 'AVAILABLE'. IF A FAILURE HAS OCCURRED IN INITIALIZATION, */ 00192000 * /* THE INITIALIZATION ECB IS POSTED WITH A CODE OF 4 AND THE */ 00193000 * /* SRB LOCK IS LEFT UNAVAILABLE. THE SUBSEQUENT WAIT ON THE */ 00194000 * /* MEMTERM ECB WILL NEVER BE POSTED. */ 00195000 * /* */ 00196000 * /***************************************************************/ 00197000 * 0112 00198000 * IF INITFLAG=0 THEN /* CHECK FOR INIT. SUCCESSFUL */ 00199000 @RF00076 LTR INITFLAG,INITFLAG 0112 00200000 BNZ @RF00112 0112 00201000 * DO; /* SUCCESSFUL */ 00202000 * GEN REFS(ECBPTR)(POST (ECBPTR),0); 0114 00203000 POST (ECBPTR),0 00204000 * REG1=ADDR(RTCTMECB); /* SHOW MEMTERM ECB AS ALREADY 0115 00205000 * POSTED TO FORCE MAINLINE TO 0115 00206000 * CHECK TERMINATION QUEUE */ 00207000 L @14,CVTPTR(,PSAPTR) 0115 00208000 L REG1,CVTRTMCT(,@14) 0115 00209000 LA REG1,RTCTMECB(,REG1) 0115 00210000 * GEN(POST (1),0); /* POST MEMTERM ECB */ 00211000 POST (1),0 00212000 * RTCTMLCK=AVAILBLE; /* SET LOCK TO AVAILABLE */ 00213000 L @14,CVTPTR(,PSAPTR) 0117 00214000 L @14,CVTRTMCT(,@14) 0117 00215000 MVC RTCTMLCK(4,@14),@CF00066 0117 00216000 * END; 0118 00217000 * ELSE /* INITIALIZATION UNSUCCESSFUL */ 00218000 * DO; 0119 00219000 B @RC00112 0119 00220000 @RF00112 DS 0H 0120 00221000 * GEN REFS(ECBPTR)(POST (ECBPTR),4);/* POST THE FAILURE */ 00222000 POST (ECBPTR),4 00223000 * END; 0121 00224000 * RFY 0122 00225000 * (REG0, 0122 00226000 * REG1, 0122 00227000 * ECBPTR, 0122 00228000 * INITFLAG, 0122 00229000 * REG15) UNRSTD; 0122 00230000 @RC00112 DS 0H 0123 00231000 * END; 0123 00232000 * RFY 0124 00233000 * (ASCBREG) RSTD; 0124 00234000 * GEN REFS(ERREGS,GOTNPTR)(STM 0,15,ERREGS(GOTNPTR));/* SAVE REGS 00235000 * FOR RECURSION */ 00236000 STM 0,15,ERREGS(GOTNPTR) 00237000 * INITDONE=ON; /* INITIALIZATION COMPLETE */ 00238000 OI INITDONE(GOTNPTR),B'00100000' 0126 00239000 *MTCMAIN: /* MAINLINE MTC WAITING LOOP */ 00240000 * RFY 0127 00241000 * (REG1) RSTD; 0127 00242000 MTCMAIN DS 0H 0128 00243000 * REG1=ADDR(RTCTMECB); /* MEMTERM ECB TO WAIT ON */ 00244000 L @12,CVTPTR(,PSAPTR) 0128 00245000 L REG1,CVTRTMCT(,@12) 0128 00246000 LA REG1,RTCTMECB(,REG1) 0128 00247000 * GEN(WAIT ECB=(1)); /* WAIT FOR MEMORY TERMINATION TO 00248000 * BE REQUESTED */ 00249000 WAIT ECB=(1) 00250000 * RFY 0130 00251000 * (REG1) UNRSTD; 0130 00252000 * RTCTMECB=0; /* RESET ECB */ 00253000 L @12,CVTPTR(,PSAPTR) 0131 00254000 L @12,CVTRTMCT(,@12) 0131 00255000 SLR @09,@09 0131 00256000 ST @09,RTCTMECB(,@12) 0131 00257000 * DO WHILE(RTCTFASB^=0); /* DO CONTINUES UNTIL NO ASCBS 0132 00258000 * ARE LEFT ON TERMINATION QUEUE */ 00259000 B @DE00132 0132 00260000 @DL00132 DS 0H 0133 00261000 * DO; /* SEGMENT DEQASCB BEGIN */ 00262000 * 0133 00263000 * /*************************************************************/ 00264000 * /* */ 00265000 * /* SEGMENT DEQASCB REMOVES THE LAST ASCB FROM THE MEMORY */ 00266000 * /* TERMINATION QUEUE. WHILE SEARCHING FOR THE LAST ASCB IT */ 00267000 * /* KEEPS A PTR TO THE ASCB MOST RECENTLY ENCOUNTERED IN THE */ 00268000 * /* SEARCH. THIS PTR (ERRASCB) IS USED TO TRUNCATE THE */ 00269000 * /* TERMINATION QUEUE IF AN ERROR OCCURS DURING THE SEARCH. AT*/ 00270000 * /* THE BEGINNING POINT OF THE SEARCH IT IS KNOWN THAT */ 00271000 * /* RTCTFASB IS NOT ZERO */ 00272000 * /* */ 00273000 * /*************************************************************/ 00274000 * 0134 00275000 * ERRASCB=0; /* INDICATE THAT SEARCH HAS NOT 00276000 * STARTED */ 00277000 SLR @12,@12 0134 00278000 ST @12,ERRASCB(,GOTNPTR) 0134 00279000 * ASCBREG=ADDR(RTCTFASB)-EVAL(ADDR(ASCBTMCH)-ADDR(ASCB));/* 0135 00280000 * ASCBREG IS SET UP WITH THE 0135 00281000 * FOLLOWING RESULT- AN ASCB IS 00282000 * SUPERIMPOSED ONTO THE RTCT 0135 00283000 * SUCH THAT THE ASCBTMCH FIELD 00284000 * CONCIDES WITH THE RTCTFASB 0135 00285000 * FIELD. THIS ALLOWS THE SEARCH 00286000 * DOWN THE TERMINATION 0135 00287000 * QUEUE(ASCBTMCH) TO NOT HAVE 0135 00288000 * THE FIRST TIME LOGIC NECESSARY 00289000 * TO HANDLE THE QUEUE PTR 0135 00290000 * (RTCTFASB) */ 00291000 L @12,CVTPTR(,PSAPTR) 0135 00292000 L @12,CVTRTMCT(,@12) 0135 00293000 LA @12,RTCTFASB(,@12) 0135 00294000 SL @12,@CF02128 0135 00295000 LR ASCBREG,@12 0135 00296000 * RFY 0136 00297000 * (TEMPASCB, 0136 00298000 * PREVASCB) RSTD; 0136 00299000 * PREVASCB=0; 0137 00300000 SLR PREVASCB,PREVASCB 0137 00301000 * QSEARCH=ON; /* INDICATE SEARCH IS IN 0138 00302000 * PROGRESS(FOR RECURSION) */ 00303000 OI QSEARCH(GOTNPTR),B'01000000' 0138 00304000 * DO WHILE(ASCBTMCH^=0); /* SEARCH TO END OF QUEUE */ 00305000 B @DE00139 0139 00306000 @DL00139 DS 0H 0140 00307000 * PREVASCB=ASCBREG; /* SAVE PTR TO ASCB */ 00308000 LR PREVASCB,ASCBREG 0140 00309000 * ASCBREG=ASCBTMCH; /* BUMP TO NEXT ASCB ON QUEUE */ 00310000 L ASCBREG,ASCBTMCH(,ASCBREG) 0141 00311000 * ERRASCB=PREVASCB; /* SAVE PREVIOUS ASCB PTR IN CASE 00312000 * OF ERROR */ 00313000 ST PREVASCB,ERRASCB(,GOTNPTR) 0142 00314000 * END; /* FALL THROUGH WHEN LAST ASCB ON 00315000 * QUEUE IS FOUND. AT THIS TIME, 00316000 * ASCBREG POINTS TO THE LAST 0143 00317000 * ASCB AND PREVASCB POINTS TO 0143 00318000 * THE NEXT-TO-LAST ASCB. */ 00319000 @DE00139 L @12,ASCBTMCH(,ASCBREG) 0143 00320000 LTR @12,@12 0143 00321000 BNZ @DL00139 0143 00322000 * TEMPASCB=ASCBREG; /* SAVE VALUE OF ASCBREG DURING 00323000 * 'CS' */ 00324000 LR TEMPASCB,ASCBREG 0144 00325000 * CS(ASCBREG,ZERO,PREVASCB->ASCBTMCH);/* IF CS SUCCEEDS, 0 WILL 00326000 * BE STORED IN ASCBTMCH FIELD OF 00327000 * NEXT-TO-LAST ASCB, IF CS 0145 00328000 * FAILS, ASCBREG WILL BE 0145 00329000 * UPDATED. */ 00330000 L @12,ZERO 0145 00331000 CS ASCBREG,@12,ASCBTMCH(PREVASCB) 0145 00332000 * IF ASCBREG^=TEMPASCB THEN /* DID CS SUCCEED */ 00333000 CR ASCBREG,TEMPASCB 0146 00334000 BE @RF00146 0146 00335000 * ASCBREG=0; /* CS FAILED. SET PTR TO ASCB TO 00336000 * 0. THIS WILL PREVENT MAINLINE 00337000 * FROM USING ANY ASCB. IF THE 0147 00338000 * QUEUE IS NOT EMPTY, THE 0147 00339000 * DEQASCB CODE WILL BE INVOKED 00340000 * AGAIN. THE ONLY EXPECTED 0147 00341000 * FAILURE OF CS IS WHEN THERE IS 00342000 * ONLY ONE ASCB ON THE QUEUE AND 00343000 * ANOTHER CPU IS ADDING A NEW 0147 00344000 * ONE TO THE QUEUE */ 00345000 SLR ASCBREG,ASCBREG 0147 00346000 * ERRASCB=0; /* NO QUEUE TO TRUNCATE (FOR 0148 00347000 * RECURSION) */ 00348000 @RF00146 SLR @12,@12 0148 00349000 ST @12,ERRASCB(,GOTNPTR) 0148 00350000 * QSEARCH=OFF; /* INDICATE SEARCH IS FINISHED */ 00351000 NI QSEARCH(GOTNPTR),B'10111111' 0149 00352000 * RFY 0150 00353000 * (TEMPASCB, 0150 00354000 * PREVASCB) UNRSTD; 0150 00355000 * END; /* SEGMENT DEQASCB END */ 00356000 * IF ASCBREG^=0 THEN /* WAS ASCB FOUND ON TERM QUEUE */ 00357000 CR ASCBREG,@12 0152 00358000 BE @RF00152 0152 00359000 * DO; /* ASCB FOUND */ 00360000 * DO; /* SEGMENT 'STOPACT' BEGINNING */ 00361000 * 0154 00362000 * /*********************************************************/ 00363000 * /* */ 00364000 * /* SEGMENT STOPACT MAKES SURE THAT ALL ACTIVITY IN THE */ 00365000 * /* TERMINATING MEMORY HAS BEEN STOPPED PRIOR TO PURGING */ 00366000 * /* THE MEMORY'S RESOURCES. ON AN MP CONFIGURATION, IT IS */ 00367000 * /* POSSIBLE FOR ONE CPU TO BE RUNNING IN THE MEMORY */ 00368000 * /* SUCCESSFULLY WHILE ANOTHER CPU HAS ENCOUNTERED AN */ 00369000 * /* ERROR AND CALLED FOR MEMORY TERMINATION. GET LOCAL */ 00370000 * /* LOCK PRIOR TO GETTING THE CMS LOCK */ 00371000 * /* */ 00372000 * /*********************************************************/ 00373000 * 0155 00374000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 00375000 * TYPE(LOCAL) RELATED(CMSLOCK,IE 00376000 * AVTMTC(STOPACT)) */ 00377000 * RFY 0156 00378000 * (GPR11P, 0156 00379000 * GPR12P, 0156 00380000 * GPR13P, 0156 00381000 * GPR14P) RSTD; 0156 00382000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0157 00383000 * TABLE. */ 00384000 L GPR13P,PSALITA(,PSAPTR) 0157 00385000 * GEN(LM GPR11P,GPR13P,576(GPR13P));/* LOAD LOCKWORD, 0158 00386000 * CLHT AND ENTRY ADRS. */ 00387000 LM GPR11P,GPR13P,576(GPR13P) 00388000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 00389000 BALR GPR14P,GPR13P 00390000 * RFY 0160 00391000 * (GPR11P, 0160 00392000 * GPR12P, 0160 00393000 * GPR13P, 0160 00394000 * GPR14P) UNRSTD; 0160 00395000 * END; /* SETLOCK (OBTAIN) MODE(UNCOND) 00396000 * TYPE(LOCAL) RELATED(CMSLOCK,IE 00397000 * AVTMTC(STOPACT)) */ 00398000 * 0161 00399000 * /*********************************************************/ 00400000 * /* */ 00401000 * /* GET CMS LOCK. WHEN MEMORY IS SET NON-DISPATCHABLE, IT */ 00402000 * /* WILL NOT NOW HAVE TASKS OR SRBS OWNING THE CMS LOCK */ 00403000 * /* */ 00404000 * /*********************************************************/ 00405000 * 0162 00406000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 00407000 * TYPE(CMS) RELATED('CMS NOT 0162 00408000 * HELD BY FAILING MEMORY') */ 00409000 * RFY 0163 00410000 * (GPR11P, 0163 00411000 * GPR12P, 0163 00412000 * GPR13P, 0163 00413000 * GPR14P) RSTD; 0163 00414000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0164 00415000 * TABLE. */ 00416000 L GPR13P,PSALITA(,PSAPTR) 0164 00417000 * GEN(LM GPR11P,GPR13P,540(GPR13P));/* LOAD LOCKWORD, 0165 00418000 * CLHT AND ENTRY ADRS. */ 00419000 LM GPR11P,GPR13P,540(GPR13P) 00420000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 00421000 BALR GPR14P,GPR13P 00422000 * RFY 0167 00423000 * (GPR11P, 0167 00424000 * GPR12P, 0167 00425000 * GPR13P, 0167 00426000 * GPR14P) UNRSTD; 0167 00427000 * END; /* SETLOCK (OBTAIN) MODE(UNCOND) 00428000 * TYPE(CMS) RELATED('CMS NOT 0168 00429000 * HELD BY FAILING MEMORY') */ 00430000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 00431000 * TYPE(DISP) 0169 00432000 * RELATED(CSD,IEAVTMTC(STOPACT))*/ 00433000 * RFY 0170 00434000 * (GPR11P, 0170 00435000 * GPR12P, 0170 00436000 * GPR13P, 0170 00437000 * GPR14P) RSTD; 0170 00438000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0171 00439000 * TABLE. */ 00440000 L GPR13P,PSALITA(,PSAPTR) 0171 00441000 * GEN(LM GPR11P,GPR13P,12(GPR13P));/* LOAD LOCKWORD, CLHT 00442000 * AND ENTRY ADRS. */ 00443000 LM GPR11P,GPR13P,12(GPR13P) 00444000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 00445000 BALR GPR14P,GPR13P 00446000 * RFY 0174 00447000 * (GPR11P, 0174 00448000 * GPR12P, 0174 00449000 * GPR13P, 0174 00450000 * GPR14P) UNRSTD; 0174 00451000 * END; /* SETLOCK (OBTAIN) MODE(UNCOND) 00452000 * TYPE(DISP) 0175 00453000 * RELATED(CSD,IEAVTMTC(STOPACT))*/ 00454000 * ASCBFAIL=ON; /* SET MEMORY NON-DISPATCHABLE */ 00455000 OI ASCBFAIL(ASCBREG),B'01000000' 0176 00456000 * IF CSDCPUOL>1 THEN /* CHECK # OF ON-LINE CPUS */ 00457000 L @12,CVTPTR(,PSAPTR) 0177 00458000 L @09,CVTCSD(,@12) 0177 00459000 LH @09,CSDCPUOL(,@09) 0177 00460000 C @09,@CF00066 0177 00461000 BNH @RF00177 0177 00462000 * DO; /* MORE THAN ONE CPU, THEREFORE 00463000 * THERE COULD BE CONCURRENT 0178 00464000 * ACTIVITY IN THE MEMORY */ 00465000 * IF ASCBCPUS>0 THEN /* CHECK FOR CUNCURRENT TASK 0179 00466000 * ACTIVITY */ 00467000 L @09,ASCBCPUS(,ASCBREG) 0179 00468000 LTR @09,@09 0179 00469000 BNP @RF00179 0179 00470000 * DO; /* CONCURRENT ACTIVITY */ 00471000 * 0180 00472000 * /*************************************************/ 00473000 * /* */ 00474000 * /* CALL MEMORY SWITCH TO SWITCH OTER CPUS AWAY */ 00475000 * /* FROM MEMORY */ 00476000 * /* */ 00477000 * /*************************************************/ 00478000 * 0181 00479000 * RFY 0181 00480000 * (REG1) RSTD; 0181 00481000 * REG1=0; /* INDICATE SWITCH AWAY */ 00482000 SLR REG1,REG1 0182 00483000 * CALL MEMSWTCH; /* GO TO MEMORY SWITCH */ 00484000 L @15,CVTVEMS0(,@12) 0183 00485000 BALR @14,@15 0183 00486000 * RFY 0184 00487000 * (REG1) UNRSTD; 0184 00488000 * 0184 00489000 * /*************************************************/ 00490000 * /* */ 00491000 * /* RELEASE DISP LOCK */ 00492000 * /* */ 00493000 * /*************************************************/ 00494000 * 0185 00495000 * DO; /* SETLOCK (RELEASE) TYPE(DISP) 00496000 * RELATED(CSD,IEAVTMTC(STOPACT))*/ 00497000 * RFY 0186 00498000 * (GPR11P, 0186 00499000 * GPR12P, 0186 00500000 * GPR13P, 0186 00501000 * GPR14P) RSTD; 0186 00502000 * GPR13P=PSALITA;/* ADDRESS OF LOCK INTERFACE 0187 00503000 * TABLE. */ 00504000 L GPR13P,PSALITA(,PSAPTR) 0187 00505000 * GEN(LM GPR11P,GPR13P,24(GPR13P));/* LOAD 0188 00506000 * LOCKWORD, CLHT AND ENTRY ADRS.*/ 00507000 LM GPR11P,GPR13P,24(GPR13P) 00508000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN.*/ 00509000 BALR GPR14P,GPR13P 00510000 * RFY 0190 00511000 * (GPR11P, 0190 00512000 * GPR12P, 0190 00513000 * GPR13P, 0190 00514000 * GPR14P) UNRSTD; 0190 00515000 * END; /* SETLOCK (RELEASE) TYPE(DISP) 00516000 * RELATED(CSD,IEAVTMTC(STOPACT))*/ 00517000 * DO WHILE(ASCBCPUS^=0);/* SPIN UNTIL NO TASK MODE 00518000 * CPUS ARE ACTIVE IN THE MEMORY */ 00519000 B @DE00192 0192 00520000 @DL00192 DS 0H 0193 00521000 * END; /* END OF SPIN */ 00522000 @DE00192 L @12,ASCBCPUS(,ASCBREG) 0193 00523000 LTR @12,@12 0193 00524000 BNZ @DL00192 0193 00525000 * END; 0194 00526000 * IF ASCBSRBS^=0 THEN /* IF THERE ARE SRBS IN MEMORY 0195 00527000 * SOME MAY BE ACTIVE (SOME MAY 00528000 * BE SUSPENDED FOR PAGING, 0195 00529000 * LOCKS. */ 00530000 @RF00179 LH @12,ASCBSRBS(,ASCBREG) 0195 00531000 LTR @12,@12 0195 00532000 BZ @RF00195 0195 00533000 * DO; 0196 00534000 * STOPFLAG=OFF; /* INITIALIZE FOR DO WHILE */ 00535000 NI STOPFLAG(GOTNPTR),B'01111111' 0197 00536000 * DO WHILE(STOPFLAG=OFF);/* WHEN SRBS ARE KNOWN TO 00537000 * BE STOPPED, DO ENDS */ 00538000 B @DE00198 0198 00539000 @DL00198 DS 0H 0199 00540000 * STOPFLAG=ON; /* WILL BE SET TO OFF IN LOOP */ 00541000 OI STOPFLAG(GOTNPTR),B'10000000' 0199 00542000 * RFY 0200 00543000 * (CPUFLAGS, 0200 00544000 * CPUMASK) RSTD; 0200 00545000 * 0200 00546000 * /***********************************************/ 00547000 * /* */ 00548000 * /* DISPATCHER LOCK IS OBTAINED HERE AT */ 00549000 * /* BEGINNING OF DO-WHILE AND RELEASED AT END OF*/ 00550000 * /* DO-WHILE. THIS MEANS THAT THE LOOP CONTAINS */ 00551000 * /* AN ENABLED WINDOW DURING WHICH ANOTHER CPU */ 00552000 * /* CAN ACQUIRE THE DISP LOCK. THIS WILL PREVENT*/ 00553000 * /* DEADLOCKS FROM OTHER CPUS WAITING FOR THE */ 00554000 * /* DISP LOCK WHICH IS HELD ON THIS CPU. */ 00555000 * /* */ 00556000 * /***********************************************/ 00557000 * 0201 00558000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 00559000 * TYPE(DISP) 0201 00560000 * RELATED(CSD,IEAVTMTC(STOPACT))*/ 00561000 * RFY 0202 00562000 * (GPR11P, 0202 00563000 * GPR12P, 0202 00564000 * GPR13P, 0202 00565000 * GPR14P) RSTD; 0202 00566000 * GPR13P=PSALITA;/* ADDRESS OF LOCK INTERFACE 00567000 * TABLE. */ 00568000 L GPR13P,PSALITA(,PSAPTR) 0203 00569000 * GEN(LM GPR11P,GPR13P,12(GPR13P));/* LOAD 0204 00570000 * LOCKWORD, CLHT AND ENTRY ADRS.*/ 00571000 LM GPR11P,GPR13P,12(GPR13P) 00572000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK 0205 00573000 * RTN. */ 00574000 BALR GPR14P,GPR13P 00575000 * RFY 0206 00576000 * (GPR11P, 0206 00577000 * GPR12P, 0206 00578000 * GPR13P, 0206 00579000 * GPR14P) UNRSTD; 0206 00580000 * END; /* SETLOCK (OBTAIN) MODE(UNCOND) 00581000 * TYPE(DISP) 0207 00582000 * RELATED(CSD,IEAVTMTC(STOPACT))*/ 00583000 * 0207 00584000 * /***********************************************/ 00585000 * /* */ 00586000 * /* USE CSDCPUAL BIT MASK TO DETERMINE ACTIVE */ 00587000 * /* CPUS */ 00588000 * /* */ 00589000 * /***********************************************/ 00590000 * 0208 00591000 * CPUFLAGS=CSDCPUAL;/* PICK UP ACTIVE CPU FLAGS */ 00592000 L @12,CVTPTR(,PSAPTR) 0208 00593000 L @12,CVTCSD(,@12) 0208 00594000 LH CPUFLAGS,CSDCPUAL(,@12) 0208 00595000 N CPUFLAGS,@CF02133 0208 00596000 * IF CSDACR=0 THEN/* IF ACR IS ACTIVE DON'T CHECK 00597000 * PSA'S YET.(ACR MAY START 0209 00598000 * PROCESSING WHILE PSA CHECKS 0209 00599000 * ARE IN PROGRESS, BUT THIS WILL 00600000 * BE CAUGHT AT END OF PSA CHECK */ 00601000 CLI CSDACR(@12),0 0209 00602000 BNE @RF00209 0209 00603000 * DO; /* ACR NOT ACTIVE */ 00604000 * CPUMASK='00010000'X;/* INITIALIZE MASK TO 00605000 * BE COMPARED AGAINST 'CPU 0211 00606000 * ALIVE' FLAGS.(2 TO THE 16TH) */ 00607000 L CPUMASK,@CF02104 0211 00608000 * DO I=1 TO 16 WHILE(STOPFLAG=ON); 0212 00609000 * 0212 00610000 LA @12,1 0212 00611000 ST @12,I(,GOTNPTR) 0212 00612000 @DL00212 TM STOPFLAG(GOTNPTR),B'10000000' 0212 00613000 BNO @DC00212 0212 00614000 * /*****************************************/ 00615000 * /* */ 00616000 * /* UP TO 16 CPUS ALLOWED */ 00617000 * /* */ 00618000 * /*****************************************/ 00619000 * 0213 00620000 * CPUMASK=CPUMASK/2;/* SHIFT MASK ONE BIT 00621000 * TO RIGHT */ 00622000 SRL CPUMASK,1 0213 00623000 * IF(CPUFLAGS&CPUMASK)^=0 THEN/* CHECK MASK 00624000 * AGAINST ALIVE FLAGS TO SEE IF 00625000 * THIS CPU IS ALIVE */ 00626000 LR @12,CPUFLAGS 0214 00627000 NR @12,CPUMASK 0214 00628000 LTR @12,@12 0214 00629000 BZ @RF00214 0214 00630000 * DO; /* CPU IS ALIVE */ 00631000 * IF PCCAT00P(I)->PCCAPSAV->PSAAOLD= 0216 00632000 * ASCBREG THEN/* CHECK THE CPU TO 00633000 * SEE IF IT IS RUNNING IN THE 0216 00634000 * MEMORY */ 00635000 L @12,I(,GOTNPTR) 0216 00636000 SLA @12,2 0216 00637000 L @09,CVTPTR(,PSAPTR) 0216 00638000 L @09,CVTPCCAT(,@09) 0216 00639000 AL @09,@CF02139 0216 00640000 L @12,PCCAT00P(@12,@09) 0216 00641000 L @12,PCCAPSAV(,@12) 0216 00642000 C ASCBREG,PSAAOLD(,@12) 0216 00643000 BNE @RF00216 0216 00644000 * STOPFLAG=OFF;/* YES, ACTIVITY IS 0217 00645000 * NOT KNOWN TO BE STOPPED */ 00646000 NI STOPFLAG(GOTNPTR),B'01111111' 0217 00647000 * END; 0218 00648000 @RF00216 DS 0H 0219 00649000 * END; /* END OF PSA CHECK LOOP */ 00650000 @RF00214 LA @12,1 0219 00651000 AL @12,I(,GOTNPTR) 0219 00652000 ST @12,I(,GOTNPTR) 0219 00653000 C @12,@CF00126 0219 00654000 BNH @DL00212 0219 00655000 @DC00212 DS 0H 0220 00656000 * END; 0220 00657000 * ELSE /* ACR IS ACTIVE BEFORE PSA 0221 00658000 * CHECKS ARE STARTED */ 00659000 * DO; 0221 00660000 B @RC00209 0221 00661000 @RF00209 DS 0H 0222 00662000 * STOPFLAG=OFF;/* INDICATE SRBS ARE NOT KNOWN 00663000 * TO BE STOPPED. IF ACR IS 0222 00664000 * ACTIVE THEN IT IS POSSIBLE TO 00665000 * HAVE A CPU THAT WILL BE USED 00666000 * TO RECOVER A DEAD CPU'S WORK. 00667000 * THIS WORK MAY BE FOR THE 0222 00668000 * MEMORY BEING TERMINATED. */ 00669000 NI STOPFLAG(GOTNPTR),B'01111111' 0222 00670000 * END; 0223 00671000 * IF CPUFLAGS^=CSDCPUAL THEN/* SEE IF ACR HAS 0224 00672000 * CHANGED THE ALIVE STATUS OF 0224 00673000 * ANY CPU WHILE PSA CHECK LOOP 00674000 * WAS RUNNING */ 00675000 @RC00209 L @12,CVTPTR(,PSAPTR) 0224 00676000 L @12,CVTCSD(,@12) 0224 00677000 LH @12,CSDCPUAL(,@12) 0224 00678000 N @12,@CF02133 0224 00679000 CLR CPUFLAGS,@12 0224 00680000 BE @RF00224 0224 00681000 * DO; /* CPU STATUS HAS CHANGED */ 00682000 * STOPFLAG=OFF;/* SRBS ARE NOT KNOWN TO BE 0226 00683000 * STOPPED */ 00684000 NI STOPFLAG(GOTNPTR),B'01111111' 0226 00685000 * END; 0227 00686000 * 0227 00687000 * /***********************************************/ 00688000 * /* */ 00689000 * /* RELEASE DISP LOCK */ 00690000 * /* */ 00691000 * /***********************************************/ 00692000 * 0228 00693000 * DO; /* SETLOCK (RELEASE) TYPE(DISP) 00694000 * RELATED(CSD,IEAVTMTC(STOPACT))*/ 00695000 @RF00224 DS 0H 0229 00696000 * RFY 0229 00697000 * (GPR11P, 0229 00698000 * GPR12P, 0229 00699000 * GPR13P, 0229 00700000 * GPR14P) RSTD; 0229 00701000 * GPR13P=PSALITA;/* ADDRESS OF LOCK INTERFACE 00702000 * TABLE. */ 00703000 L GPR13P,PSALITA(,PSAPTR) 0230 00704000 * GEN(LM GPR11P,GPR13P,24(GPR13P));/* LOAD 0231 00705000 * LOCKWORD, CLHT AND ENTRY ADRS.*/ 00706000 LM GPR11P,GPR13P,24(GPR13P) 00707000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK 0232 00708000 * RTN. */ 00709000 BALR GPR14P,GPR13P 00710000 * RFY 0233 00711000 * (GPR11P, 0233 00712000 * GPR12P, 0233 00713000 * GPR13P, 0233 00714000 * GPR14P) UNRSTD; 0233 00715000 * END; /* SETLOCK (RELEASE) TYPE(DISP) 00716000 * RELATED(CSD,IEAVTMTC(STOPACT))*/ 00717000 * RFY 0235 00718000 * (CPUFLAGS, 0235 00719000 * CPUMASK) UNRSTD; 0235 00720000 * END; 0236 00721000 @DE00198 TM STOPFLAG(GOTNPTR),B'10000000' 0236 00722000 BZ @DL00198 0236 00723000 * END; 0237 00724000 * END; 0238 00725000 @RF00195 DS 0H 0239 00726000 * DO; /* SETLOCK (RELEASE) TYPE(DISP) 00727000 * RELATED(CSD,IEAVTMTC(STOPACT))*/ 00728000 @RF00177 DS 0H 0240 00729000 * RFY 0240 00730000 * (GPR11P, 0240 00731000 * GPR12P, 0240 00732000 * GPR13P, 0240 00733000 * GPR14P) RSTD; 0240 00734000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0241 00735000 * TABLE. */ 00736000 L GPR13P,PSALITA(,PSAPTR) 0241 00737000 * GEN(LM GPR11P,GPR13P,24(GPR13P));/* LOAD LOCKWORD, CLHT 00738000 * AND ENTRY ADRS. */ 00739000 LM GPR11P,GPR13P,24(GPR13P) 00740000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 00741000 BALR GPR14P,GPR13P 00742000 * RFY 0244 00743000 * (GPR11P, 0244 00744000 * GPR12P, 0244 00745000 * GPR13P, 0244 00746000 * GPR14P) UNRSTD; 0244 00747000 * END; /* SETLOCK (RELEASE) TYPE(DISP) 00748000 * RELATED(CSD,IEAVTMTC(STOPACT))*/ 00749000 * DO; /* SETLOCK (RELEASE) TYPE(CMS) 0246 00750000 * RELATED('CMS NOT HELD BY OTHER 00751000 * MEMORY') */ 00752000 * RFY 0247 00753000 * (GPR11P, 0247 00754000 * GPR12P, 0247 00755000 * GPR13P, 0247 00756000 * GPR14P) RSTD; 0247 00757000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0248 00758000 * TABLE. */ 00759000 L GPR13P,PSALITA(,PSAPTR) 0248 00760000 * GEN(LM GPR11P,GPR13P,552(GPR13P));/* LOAD LOCKWORD, 0249 00761000 * CLHT AND ENTRY ADRS. */ 00762000 LM GPR11P,GPR13P,552(GPR13P) 00763000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 00764000 BALR GPR14P,GPR13P 00765000 * RFY 0251 00766000 * (GPR11P, 0251 00767000 * GPR12P, 0251 00768000 * GPR13P, 0251 00769000 * GPR14P) UNRSTD; 0251 00770000 * END; /* SETLOCK (RELEASE) TYPE(CMS) 0252 00771000 * RELATED('CMS NOT HELD BY OTHER 00772000 * MEMORY') */ 00773000 * DO; /* SETLOCK (RELEASE) TYPE(LOCAL) 00774000 * RELATED(CMSLOCK,IEAVTMTC(STOPA 00775000 * CT)) */ 00776000 * RFY 0254 00777000 * (GPR11P, 0254 00778000 * GPR12P, 0254 00779000 * GPR13P, 0254 00780000 * GPR14P) RSTD; 0254 00781000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0255 00782000 * TABLE. */ 00783000 L GPR13P,PSALITA(,PSAPTR) 0255 00784000 * GEN(LM GPR11P,GPR13P,588(GPR13P));/* LOAD LOCKWORD, 0256 00785000 * CLHT AND ENTRY ADRS. */ 00786000 LM GPR11P,GPR13P,588(GPR13P) 00787000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 00788000 BALR GPR14P,GPR13P 00789000 * RFY 0258 00790000 * (GPR11P, 0258 00791000 * GPR12P, 0258 00792000 * GPR13P, 0258 00793000 * GPR14P) UNRSTD; 0258 00794000 * END; /* SETLOCK (RELEASE) TYPE(LOCAL) 00795000 * RELATED(CMSLOCK,IEAVTMTC(STOPA 00796000 * CT)) */ 00797000 * END; /* SEGMENT 'STOPACT' END */ 00798000 * 0260 00799000 * /***********************************************************/ 00800000 * /* */ 00801000 * /* I/O FOR THE FAILING MEMORY IS STOPPED WITH SVC PURGE */ 00802000 * /* */ 00803000 * /***********************************************************/ 00804000 * 0261 00805000 * PPL=''B; /* ZERO PURGE LIST */ 00806000 XC PPL(16,GOTNPTR),PPL(GOTNPTR) 0261 00807000 * PPLHIO=ON; /* HALT I/O */ 00808000 * PPLEXT=ON; /* PPLOPT2 IS PRESENT */ 00809000 OI PPLHIO(GOTNPTR),B'00100001' 0263 00810000 * PPLMEM=ON; /* MEMORY PURGE SPECIFIED */ 00811000 OI PPLMEM(GOTNPTR),B'00100000' 0264 00812000 * PPLASID=ASCBASID; /* MEMORY TO BE PURGED */ 00813000 LH @12,ASCBASID(,ASCBREG) 0265 00814000 N @12,@CF02133 0265 00815000 STH @12,PPLASID(,GOTNPTR) 0265 00816000 * RFY 0266 00817000 * (REG1) RSTD; 0266 00818000 * REG1=ADDR(PPL); /* INPUT TO SVC */ 00819000 LA REG1,PPL(,GOTNPTR) 0267 00820000 * SVC(PURGE); /* SVC PURGE I/O */ 00821000 SVC 16 0268 00822000 * RFY 0269 00823000 * (REG1) UNRSTD; 0269 00824000 * 0269 00825000 * /***********************************************************/ 00826000 * /* */ 00827000 * /* ALLOCATED REAL PAGE FRAMES AND AUX SPACE IS FREED */ 00828000 * /* */ 00829000 * /***********************************************************/ 00830000 * 0270 00831000 * RMPLTERM=MEMTERM; /* INDICATE MEMTERM */ 00832000 LA @12,152 0270 00833000 ALR @12,GOTNPTR 0270 00834000 OI RMPLTERM(@12),B'01000000' 0270 00835000 * IF ASCBABNT=ON THEN /* IF ABNORMAL MEMTERM, SET RMPL */ 00836000 TM ASCBABNT(ASCBREG),B'00001000' 0271 00837000 BNO @RF00271 0271 00838000 * RMPLTYPE=ON; /* ABNORMAL TERM */ 00839000 OI RMPLTYPE(@12),B'10000000' 0272 00840000 * ELSE /* NOT ABNORMAL MEMTERM */ 00841000 * RMPLTYPE=OFF; /* NORMAL TERM */ 00842000 B @RC00271 0273 00843000 @RF00271 NI RMPLTYPE+152(GOTNPTR),B'01111111' 0273 00844000 * RMPLASCB=ADDR(ASCB); /* SET ASCB PTR */ 00845000 @RC00271 LA @12,152 0274 00846000 ALR @12,GOTNPTR 0274 00847000 ST ASCBREG,RMPLASCB(,@12) 0274 00848000 * RMPLASID=ASCBASID; /* SET ASID */ 00849000 MVC RMPLASID(2,@12),ASCBASID(ASCBREG) 0275 00850000 * RFY 0276 00851000 * (REG1, 0276 00852000 * REG13) RSTD; /* @VS02207*/ 00853000 * REG13=ADDR(RMGRSAVE(1)); /* @VS02207*/ 00854000 LA REG13,RMGRSAVE(,GOTNPTR) 0277 00855000 * REG1=ADDR(RMPLPTR); /* PARMS FOR RSM */ 00856000 LA REG1,RMPLPTR(,GOTNPTR) 0278 00857000 */* FREE AUXILIARY STORAGE AND CLEAN UP ASM CONTROL BLOCKS @Z40WPXH*/ 00858000 * 0279 00859000 * CALL ASMPURGE; /* ASM RESOURCE MGR @Z40WPXH*/ 00860000 L @12,CVTPTR(,PSAPTR) 0279 00861000 L @15,CVTASMRM(,@12) 0279 00862000 BALR @14,@15 0279 00863000 */* FREE ALLOCATED REAL PAGE FRAMES - RSM RESOURCE MGR @Z40WPXH*/ 00864000 * 0280 00865000 * CALL RSMPURGE; 0280 00866000 L @12,CVTPTR(,PSAPTR) 0280 00867000 L @12,SCVTSPTR(,@12) 0280 00868000 L @15,SCVTPTRM(,@12) 0280 00869000 BALR @14,@15 0280 00870000 * RFY 0281 00871000 * (REG1, 0281 00872000 * REG13) UNRSTD; /* @VS02207*/ 00873000 * 0281 00874000 * /***********************************************************/ 00875000 * /* */ 00876000 * /* ATTACH IEAVTMTR TO ISSUE SVC 13. IGC0001C WILL USE */ 00877000 * /* IEAVTMMT TO DO THE PURGES NECESSARY FOR THE MEMORY */ 00878000 * /* */ 00879000 * /***********************************************************/ 00880000 * 0282 00881000 * RFY 0282 00882000 * (REG15, 0282 00883000 * REG1) RSTD; 0282 00884000 * REG15=ADDR(ATTCHLST); /* ATTACH LIST FORM */ 00885000 LA REG15,ATTCHLST 0283 00886000 * REG1=ADDR(ASCB); /* ADDR OF ASCB INPUT TO IEAVTMTR*/ 00887000 LR REG1,ASCBREG 0284 00888000 * GEN(ATTACH SF=(E,(15))); 0285 00889000 ATTACH SF=(E,(15)) 00890000 * RFY 0286 00891000 * (REG15, 0286 00892000 * REG1) UNRSTD; 0286 00893000 * END; /* ASCB PROCESSED */ 00894000 * ELSE 0288 00895000 * ; /* NO ASCB FOUND OR 'CS' FAILED */ 00896000 @RF00152 DS 0H 0289 00897000 * END; /* END OF DO WHILE, FALL THROUGH 00898000 * IF NO MORE ASCBS TO PROCESS */ 00899000 @DE00132 L @12,CVTPTR(,PSAPTR) 0289 00900000 L @12,CVTRTMCT(,@12) 0289 00901000 L @12,RTCTFASB(,@12) 0289 00902000 LTR @12,@12 0289 00903000 BNZ @DL00132 0289 00904000 * GOTO MTCMAIN; /* GO BACK TO WAITING LOOP */ 00905000 B MTCMAIN 0290 00906000 * RFY 0291 00907000 * (ASCBREG) UNRSTD; 0291 00908000 *MEMSRBEP: 0292 00909000 * 0292 00910000 * /*****************************************************************/ 00911000 * /* */ 00912000 * /* THIS ENTRY POINT GETS CONTROL UNDER THE MEMTERM SRB TO DO THE */ 00913000 * /* POST OF THE MEMTERM ECB. */ 00914000 * /* */ 00915000 * /*****************************************************************/ 00916000 * 0292 00917000 * RFY 0292 00918000 * (SRBEPBS, 0292 00919000 * REG10, 0292 00920000 * REG11, 0292 00921000 * REG12, 0292 00922000 * REG13, 0292 00923000 * REG14, 0292 00924000 * REG2) RSTD; 0292 00925000 MEMSRBEP DS 0H 0293 00926000 * GEN SETS(SRBEPBS)(BALR SRBEPBS,0); 0293 00927000 BALR SRBEPBS,0 00928000 * GEN REFS(SRBEPBS)(USING *,SRBEPBS); 0294 00929000 USING *,SRBEPBS 00930000 * REG2=REG14; /* SAVE RETURN ADDR */ 00931000 LR REG2,REG14 0295 00932000 * PSAPTR=ZERO; /* SET UP PTR TO PSA */ 00933000 L PSAPTR,ZERO 0296 00934000 * RTCTMLCK=1; /* MAKE SRB AVAILABLE */ 00935000 * 0297 00936000 L @15,CVTPTR(,PSAPTR) 0297 00937000 L @15,CVTRTMCT(,@15) 0297 00938000 MVC RTCTMLCK(4,@15),@CF00066 0297 00939000 * /*****************************************************************/ 00940000 * /* */ 00941000 * /* GET LOCAL LOCK */ 00942000 * /* */ 00943000 * /*****************************************************************/ 00944000 * 0298 00945000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 00946000 * TYPE(LOCAL) RELATED(POST,IEAVT 00947000 * MTC(MEMSRBEP)) */ 00948000 * RFY 0299 00949000 * (GPR11P, 0299 00950000 * GPR12P, 0299 00951000 * GPR13P, 0299 00952000 * GPR14P) RSTD; 0299 00953000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0300 00954000 * TABLE. */ 00955000 L GPR13P,PSALITA(,PSAPTR) 0300 00956000 * GEN(LM GPR11P,GPR13P,576(GPR13P));/* LOAD LOCKWORD, CLHT AND 0301 00957000 * ENTRY ADRS. */ 00958000 LM GPR11P,GPR13P,576(GPR13P) 00959000 * GEN(BALR GPR14P,GPR13P); /* BALR TO SETLOCK RTN. */ 00960000 BALR GPR14P,GPR13P 00961000 * RFY 0303 00962000 * (GPR11P, 0303 00963000 * GPR12P, 0303 00964000 * GPR13P, 0303 00965000 * GPR14P) UNRSTD; 0303 00966000 * END; /* SETLOCK (OBTAIN) MODE(UNCOND) 00967000 * TYPE(LOCAL) RELATED(POST,IEAVT 00968000 * MTC(MEMSRBEP)) */ 00969000 * 0304 00970000 * /*****************************************************************/ 00971000 * /* */ 00972000 * /* POST MEMTERM ECB */ 00973000 * /* */ 00974000 * /*****************************************************************/ 00975000 * 0305 00976000 * REG10=0; /* CONDITION CODE = 0 */ 00977000 SLR REG10,REG10 0305 00978000 * REG11=ADDR(RTCTMECB); /* PTR TO ECB,HI-BIT 0306 00979000 * OFF=NOTXMPOST */ 00980000 L @15,CVTPTR(,PSAPTR) 0306 00981000 L REG11,CVTRTMCT(,@15) 0306 00982000 LA REG11,RTCTMECB(,REG11) 0306 00983000 * REG12=0; /* ERRET IF XMPOST */ 00984000 SLR REG12,REG12 0307 00985000 * REG13=0; /* ASCB IF XMPOST */ 00986000 SLR REG13,REG13 0308 00987000 * CALL POSTBR; /* POST ECB */ 00988000 * 0309 00989000 L @15,CVT0PT01(,@15) 0309 00990000 BALR @14,@15 0309 00991000 * /*****************************************************************/ 00992000 * /* */ 00993000 * /* RELEASE LOCAL LOCK */ 00994000 * /* */ 00995000 * /*****************************************************************/ 00996000 * 0310 00997000 * DO; /* SETLOCK (RELEASE) TYPE(LOCAL) 00998000 * RELATED(POST,IEAVTMTC(MEMSRBEP 00999000 * )) */ 01000000 * RFY 0311 01001000 * (GPR11P, 0311 01002000 * GPR12P, 0311 01003000 * GPR13P, 0311 01004000 * GPR14P) RSTD; 0311 01005000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0312 01006000 * TABLE. */ 01007000 L GPR13P,PSALITA(,PSAPTR) 0312 01008000 * GEN(LM GPR11P,GPR13P,588(GPR13P));/* LOAD LOCKWORD, CLHT AND 0313 01009000 * ENTRY ADRS. */ 01010000 LM GPR11P,GPR13P,588(GPR13P) 01011000 * GEN(BALR GPR14P,GPR13P); /* BALR TO SETLOCK RTN. */ 01012000 BALR GPR14P,GPR13P 01013000 * RFY 0315 01014000 * (GPR11P, 0315 01015000 * GPR12P, 0315 01016000 * GPR13P, 0315 01017000 * GPR14P) UNRSTD; 0315 01018000 * END; /* SETLOCK (RELEASE) TYPE(LOCAL) 01019000 * RELATED(POST,IEAVTMTC(MEMSRBEP 01020000 * )) */ 01021000 * REG14=REG2; /* RESTORE RETURN REG */ 01022000 LR REG14,REG2 0317 01023000 * GEN REFS(REG14)(BR REG14); /* RETURN */ 01024000 BR REG14 01025000 * GEN REFS(SRBEPBS)(DROP SRBEPBS); 0319 01026000 DROP SRBEPBS 01027000 * RFY 0320 01028000 * (SRBEPBS, 0320 01029000 * REG10, 0320 01030000 * REG11, 0320 01031000 * REG12, 0320 01032000 * REG13, 0320 01033000 * REG14, 0320 01034000 * REG2) UNRSTD; 0320 01035000 *MTCESTAE: 0321 01036000 * ; 0321 01037000 MTCESTAE DS 0H 0322 01038000 * DO; 0322 01039000 * 0322 01040000 * /***************************************************************/ 01041000 * /* */ 01042000 * /* MTCESTAE RECOVERS FROM ERRORS IN MEMTERM CONTROLLER AND */ 01043000 * /* MEMTERM SRB ROUTINE. ON ENTRY, AN ESTAE IS ISSUED TO PROTECT*/ 01044000 * /* THE PROCESSING OF THIS ESTAE EXIT (ON A SECONDARY ERROR,THE */ 01045000 * /* TERMINATION QUEUE PTR WILL BE ZEROED, THE MEMTERM ECB WILL */ 01046000 * /* BE ZEROED AND RETRY WILL BE AT MAINLINE WAIT). THE MEMTERM */ 01047000 * /* ECB IS MADE POSTED, THE TERMINATION QUEUE IS TRUNCATED AT */ 01048000 * /* THE ASCB BEING REFERENCED, AND THE DISP LOCK IS RELEASED. */ 01049000 * /* RETRY OCCURS AT THE WAIT IN MAINLINE MTC. IF THE ERROR TOOK */ 01050000 * /* PLACE IN THE SRB, THEN THE SRB LOCK IS MADE AVAILABLE, THE */ 01051000 * /* MEMTERM ECB IS POSTED, AND RETRY OCCURS AT NSI IN MAINLINE */ 01052000 * /* MTC. */ 01053000 * /* */ 01054000 * /***************************************************************/ 01055000 * 0323 01056000 * RFY 0323 01057000 * (REG0, 0323 01058000 * REG1, 0323 01059000 * REG2, 0323 01060000 * SDWAPTR) RSTD; 0323 01061000 * PSAPTR=0; 0324 01062000 SLR PSAPTR,PSAPTR 0324 01063000 * GEN; 0325 01064000 BALR REG15,0 01065000 USING *,REG15 01066000 * IF REG0=12 THEN /* FIND TRACK AREA */ 01067000 C REG0,@CF01102 0326 01068000 BNE @RF00326 0326 01069000 * GOTNPTR=REG2; /* IN REG2 IF NO SDWA */ 01070000 LR GOTNPTR,REG2 0327 01071000 * ELSE /* SDWA AVAILABLE */ 01072000 * GOTNPTR=SDWAPARM; /* IN SDWAPARM IF SDWA EXISTS */ 01073000 B @RC00326 0328 01074000 @RF00326 L GOTNPTR,SDWAPARM(,SDWAPTR) 0328 01075000 * BASEREG=ERREG(8+1); /* RELOAD CODE REG */ 01076000 @RC00326 L BASEREG,ERREG+32(,GOTNPTR) 0329 01077000 * GEN(DROP 15); /* BACK TO REGULAR CODEREG */ 01078000 DROP 15 01079000 * IF REG0=12 THEN /* CHECK FOR NO SDWA */ 01080000 C REG0,@CF01102 0331 01081000 BNE @RF00331 0331 01082000 * DO; /* NO SDWA */ 01083000 * IF INITDONE=OFF THEN /* CHECK FOR INITIALIZATION 0333 01084000 * FINISHED. */ 01085000 TM INITDONE(GOTNPTR),B'00100000' 0333 01086000 BNZ @RF00333 0333 01087000 * DO; /* NOT INITIALIZED */ 01088000 * REG15=0; /* INDICATE CONTINUE WITH 0335 01089000 * TERMINATION. */ 01090000 SLR REG15,REG15 0335 01091000 * GOTO REG14; /* RETURN */ 01092000 BR REG14 0336 01093000 * END; 0337 01094000 * REG0=ADDR(MTCESTAX); /* RETRY AT MTCESTAE EXTENSION */ 01095000 @RF00333 LA REG0,MTCESTAX 0338 01096000 * REG15=4; /* INDICATE RETRY */ 01097000 LA REG15,4 0339 01098000 * GOTO REG14; /* RETURN TO RTM2 */ 01099000 BR REG14 0340 01100000 * END; 0341 01101000 * 0341 01102000 * /***************************************************************/ 01103000 * /* */ 01104000 * /* SDWA AND REG SAVE AREA ARE AVAILABLE */ 01105000 * /* */ 01106000 * /***************************************************************/ 01107000 * 0342 01108000 * GEN(STM 14,12,12(13)); /* SAVE RTM2 REGS */ 01109000 @RF00331 DS 0H 0342 01110000 STM 14,12,12(13) 01111000 * IF INITDONE=OFF THEN /* CHECK FOR INITIALIZATION 0343 01112000 * FINISHED. */ 01113000 TM INITDONE(GOTNPTR),B'00100000' 0343 01114000 BNZ @RF00343 0343 01115000 * DO; /* SETRP RC(0)REGS(14,12) */ 01116000 * RESPECIFY 0345 01117000 * (GPR00P, 0345 01118000 * GPR01P, 0345 01119000 * GPR14P, 0345 01120000 * GPR15P) RSTD; 0345 01121000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 01122000 MVI SDWARCDE(GPR01P),X'00' 0346 01123000 * GEN(RETURN (14,12)); 0347 01124000 RETURN (14,12) 01125000 * RESPECIFY 0348 01126000 * (GPR00P, 0348 01127000 * GPR01P, 0348 01128000 * GPR14P, 0348 01129000 * GPR15P) UNRSTD; 0348 01130000 * END; /* NOT FINISHED, SO CONTINUE WITH 01131000 * TERMINATION */ 01132000 * RFY 0350 01133000 * TEMPSDWA RSTD; 0350 01134000 @RF00343 DS 0H 0351 01135000 * RFY 0351 01136000 * SDWA BASED(TEMPSDWA); 0351 01137000 * TEMPSDWA=SDWAPTR; /* MOVE SDWA PTR FROM REG 1 */ 01138000 * 0352 01139000 LR TEMPSDWA,SDWAPTR 0352 01140000 * /***************************************************************/ 01141000 * /* */ 01142000 * /* SET SDWA UP FOR RECORDING */ 01143000 * /* */ 01144000 * /***************************************************************/ 01145000 * 0353 01146000 * SDWAVRA=ERRAREA; /* RECORD ERROR TRACKING AREA */ 01147000 MVI SDWAVRA+76(TEMPSDWA),C' ' 0353 01148000 MVC SDWAVRA+77(31,TEMPSDWA),SDWAVRA+76(TEMPSDWA) 0353 01149000 MVC SDWAVRA(76,TEMPSDWA),ERRAREA(GOTNPTR) 0353 01150000 * SDWAURAL=LENGTH(ERRAREA); /* INDICATE LENGTH OF DATA */ 01151000 MVI SDWAURAL(TEMPSDWA),X'4C' 0354 01152000 * SDWAHEX=ON; /* REQUEST HEX FORMAT OF DATA */ 01153000 OI SDWAHEX(TEMPSDWA),B'10000000' 0355 01154000 * SDWAMODN='IEAVTMTC'; /* NAME OF MODULE */ 01155000 MVC SDWAMODN(8,TEMPSDWA),@CC02109 0356 01156000 * SDWACSCT='IEAVTMTC'; /* NAME OF CSECT */ 01157000 MVC SDWACSCT(8,TEMPSDWA),@CC02109 0357 01158000 * SDWAREXN='MTCESTAE'; /* NAME OF ESTAE EXIT */ 01159000 MVC SDWAREXN(8,TEMPSDWA),@CC02110 0358 01160000 * IF SDWASRBM=ON THEN /* WAS ERROR IN AN SRB ? */ 01161000 TM SDWASRBM(TEMPSDWA),B'00000001' 0359 01162000 BNO @RF00359 0359 01163000 * DO; /* SRB FAILED */ 01164000 * IF SDWANRBE=OFF THEN /* WAS TASK EXECUTING AT THIS RB 01165000 * LEVEL WHEN THE ABEND CAME IN? */ 01166000 TM SDWANRBE(TEMPSDWA),B'01000000' 0361 01167000 BNZ @RF00361 0361 01168000 * DO; /* YES, THIS MUST BE THE SRB 0362 01169000 * ASSOCIATED WITH MTC. ATTEMPT 01170000 * TO RETRY AT THE NEXT 0362 01171000 * SEQUENTIAL INSTRUCTION */ 01172000 * RTCTMLCK=AVAILBLE; /* ALLOW SRB TO BE USED AGAIN */ 01173000 L @12,CVTPTR(,PSAPTR) 0363 01174000 L @12,CVTRTMCT(,@12) 0363 01175000 MVC RTCTMLCK(4,@12),@CF00066 0363 01176000 * DO; /* SETRP FRESDWA(YES)RETREGS(YES) 01177000 * RECORD(YES)WKAREA(TEMPSDWA)RC( 01178000 * 4)RETADDR(SDWAADD2->ALABEL)REG 01179000 * S(14,12) */ 01180000 * RESPECIFY 0365 01181000 * (GPR00P, 0365 01182000 * GPR01P, 0365 01183000 * GPR14P, 0365 01184000 * GPR15P) RSTD; 0365 01185000 * GPR01P=TEMPSDWA; 0366 01186000 LR GPR01P,TEMPSDWA 0366 01187000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 01188000 MVI SDWARCDE(GPR01P),X'04' 0367 01189000 * GPR01P->SDWARTYA=ADDR(SDWAADD2->ALABEL);/* SAVE RETRY 01190000 * ADDRESS */ 01191000 L @12,SDWAADD2-1(,TEMPSDWA) 0368 01192000 LA @12,0(,@12) 0368 01193000 ST @12,SDWARTYA(,GPR01P) 0368 01194000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE SDWA */ 01195000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 01196000 * GPR01P->SDWAUPRG='1'B;/* TURN ON RETREGS INDICATOR */ 01197000 OI SDWAFREE(GPR01P),B'10001100' 0371 01198000 * GEN(RETURN (14,12)); 0372 01199000 RETURN (14,12) 01200000 * RESPECIFY 0373 01201000 * (GPR00P, 0373 01202000 * GPR01P, 0373 01203000 * GPR14P, 0373 01204000 * GPR15P) UNRSTD; 0373 01205000 * END; /* @YM02694*/ 01206000 * END; 0375 01207000 * ELSE 0376 01208000 * ; /* TASK NOT EXECUTING AT THIS RB 01209000 * LEVEL */ 01210000 @RF00361 DS 0H 0377 01211000 * END; 0377 01212000 * GEN(ESTAE MTCESTA2,CT,PARAM=(GOTNPTR));/* SET SECONDARY 0378 01213000 * PROTECT. */ 01214000 @RF00359 DS 0H 0378 01215000 ESTAE MTCESTA2,CT,PARAM=(GOTNPTR) 01216000 * IF ERRASCB^=0 THEN /* WAS TERM QUEUE BEING SEARCHED?*/ 01217000 SLR @12,@12 0379 01218000 L @09,ERRASCB(,GOTNPTR) 0379 01219000 CR @09,@12 0379 01220000 BE @RF00379 0379 01221000 * DO; /* BEING SEARCHED */ 01222000 * QSEARCH=OFF; /* TURN OFF SEARCH INDICATOR */ 01223000 NI QSEARCH(GOTNPTR),B'10111111' 0381 01224000 * ERRASCB->ASCBTMCH=0; /* TRUNCATE QUEUE */ 01225000 ST @12,ASCBTMCH(,@09) 0382 01226000 * ERRASCB=0; /* RESET TRACKING */ 01227000 ST @12,ERRASCB(,GOTNPTR) 0383 01228000 * END; 0384 01229000 * GEN(ESTAE 0); /* DELETE SECONDARY PROTECTION */ 01230000 @RF00379 DS 0H 0385 01231000 ESTAE 0 01232000 * RTCTMECB='40000000'X; /* MAKE ECB 'POSTED' */ 01233000 L @12,CVTPTR(,PSAPTR) 0386 01234000 L @12,CVTRTMCT(,@12) 0386 01235000 MVC RTCTMECB(4,@12),@CB02111 0386 01236000 *SECNDERR: 0387 01237000 * ; /* RETRY PT. FOR SECONDARY 0387 01238000 * FAILURE */ 01239000 SECNDERR DS 0H 0388 01240000 * SDWASRSV=ERREGS; /* REGS STORED BY MTC MAINLINE */ 01241000 MVC SDWASRSV(64,TEMPSDWA),ERREGS(GOTNPTR) 0388 01242000 * DO; /* SETRP RC(4)RETADDR(MTCMAIN)RET 01243000 * REGS(YES)RECORD(YES)REGS(14,12 01244000 * )FRESDWA(YES)WKAREA(TEMPSDWA) */ 01245000 * RESPECIFY 0390 01246000 * (GPR00P, 0390 01247000 * GPR01P, 0390 01248000 * GPR14P, 0390 01249000 * GPR15P) RSTD; 0390 01250000 * GPR01P=TEMPSDWA; 0391 01251000 LR GPR01P,TEMPSDWA 0391 01252000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 01253000 MVI SDWARCDE(GPR01P),X'04' 0392 01254000 * GPR01P->SDWARTYA=ADDR(MTCMAIN);/* SAVE RETRY ADDRESS */ 01255000 LA @12,MTCMAIN 0393 01256000 ST @12,SDWARTYA(,GPR01P) 0393 01257000 * GPR01P->SDWAFREE='1'B; /* SET FLAG TO FREE SDWA */ 01258000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 01259000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 01260000 OI SDWAFREE(GPR01P),B'10001100' 0396 01261000 * GEN(RETURN (14,12)); 0397 01262000 RETURN (14,12) 01263000 * RESPECIFY 0398 01264000 * (GPR00P, 0398 01265000 * GPR01P, 0398 01266000 * GPR14P, 0398 01267000 * GPR15P) UNRSTD; 0398 01268000 * END; 0399 01269000 * RFY 0400 01270000 * TEMPSDWA UNRSTD; 0400 01271000 * RFY 0401 01272000 * SDWA BASED(SDWAPTR); 0401 01273000 *MTCESTA2: 0402 01274000 * ; /* SECONDARY ESTAE EXIT */ 01275000 MTCESTA2 DS 0H 0403 01276000 * GEN(BALR REG15,0); /* ADDRESSIBILITY */ 01277000 BALR REG15,0 01278000 * GEN(USING *,REG15); 0404 01279000 USING *,REG15 01280000 * PSAPTR=0; /* PSA LOC 0 */ 01281000 SLR PSAPTR,PSAPTR 0405 01282000 * RTCTFASB=0; /* ZERO THE MEMTERM QUEUE PTR */ 01283000 SLR @12,@12 0406 01284000 L @09,CVTPTR(,PSAPTR) 0406 01285000 L @09,CVTRTMCT(,@09) 0406 01286000 ST @12,RTCTFASB(,@09) 0406 01287000 * RTCTMECB=0; /* ZERO THE MEMTERM ECB */ 01288000 ST @12,RTCTMECB(,@09) 0407 01289000 * IF REG0=12 THEN /* FIND TRACK AREA PTR */ 01290000 C REG0,@CF01102 0408 01291000 BNE @RF00408 0408 01292000 * GOTNPTR=REG2; /* IN REG2 IF NO SDWA */ 01293000 LR GOTNPTR,REG2 0409 01294000 * ELSE /* SDWA EXISTS */ 01295000 * GOTNPTR=SDWAPARM; /* IN SDWAPARM IF SDWA */ 01296000 B @RC00408 0410 01297000 @RF00408 L GOTNPTR,SDWAPARM(,SDWAPTR) 0410 01298000 * BASEREG=ERREG(8+1); /* RELOAD CODEREG */ 01299000 @RC00408 L BASEREG,ERREG+32(,GOTNPTR) 0411 01300000 * GEN(DROP REG15); /* BACK TO REGULAR CODEREG */ 01301000 DROP REG15 01302000 * IF REG0=12 THEN /* CHECK FOR NO SDWA */ 01303000 C REG0,@CF01102 0413 01304000 BNE @RF00413 0413 01305000 * DO; /* NO SDWA */ 01306000 * REG0=ADDR(SECNDERR); /* RETRY AT CODE IN FIRST ESTAE */ 01307000 LA REG0,SECNDERR 0415 01308000 * REG15=4; /* INDICATE RETRY */ 01309000 LA REG15,4 0416 01310000 * GOTO REG14; /* RETURN */ 01311000 BR REG14 0417 01312000 * END; 0418 01313000 * 0418 01314000 * /***************************************************************/ 01315000 * /* */ 01316000 * /* SDWA AND REG SAVE AREA ARE AVAILABLE */ 01317000 * /* */ 01318000 * /***************************************************************/ 01319000 * 0419 01320000 * GEN(STM 14,12,12(13)); 0419 01321000 @RF00413 DS 0H 0419 01322000 STM 14,12,12(13) 01323000 * SDWAMODN='IEAVTMTC'; /* MODULE NAME */ 01324000 MVC SDWAMODN(8,SDWAPTR),@CC02109 0420 01325000 * SDWACSCT='IEAVTMTC'; /* CSECT NAME */ 01326000 MVC SDWACSCT(8,SDWAPTR),@CC02109 0421 01327000 * SDWAREXN='MTCESTA2'; /* ESTAE EXIT NAME */ 01328000 MVC SDWAREXN(8,SDWAPTR),@CC02117 0422 01329000 * DO; /* SETRP RC(4)RETADDR(SECNDERR)RE 01330000 * GS(14,12)FRESDWA(YES)RECORD(YE 01331000 * S)RETREGS(YES) */ 01332000 * RESPECIFY 0424 01333000 * (GPR00P, 0424 01334000 * GPR01P, 0424 01335000 * GPR14P, 0424 01336000 * GPR15P) RSTD; 0424 01337000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 01338000 MVI SDWARCDE(GPR01P),X'04' 0425 01339000 * GPR01P->SDWARTYA=ADDR(SECNDERR);/* SAVE RETRY ADDRESS */ 01340000 LA @12,SECNDERR 0426 01341000 ST @12,SDWARTYA(,GPR01P) 0426 01342000 * GPR01P->SDWAFREE='1'B; /* SET FLAG TO FREE SDWA */ 01343000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 01344000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 01345000 OI SDWAFREE(GPR01P),B'10001100' 0429 01346000 * GEN(RETURN (14,12)); 0430 01347000 RETURN (14,12) 01348000 * RESPECIFY 0431 01349000 * (GPR00P, 0431 01350000 * GPR01P, 0431 01351000 * GPR14P, 0431 01352000 * GPR15P) UNRSTD; 0431 01353000 * END; 0432 01354000 *MTCESTAX: 0433 01355000 * 0433 01356000 * /***************************************************************/ 01357000 * /* */ 01358000 * /* ESTAE EXTENSION HANDLES RETRY WHEN NO SDWA EXISTS. EXTENSION*/ 01359000 * /* WILL HANDLE RELOADING OF REGS. ON ENTRY, REG1 POINTS TO */ 01360000 * /* TRACKING AREA. */ 01361000 * /* */ 01362000 * /***************************************************************/ 01363000 * 0433 01364000 * GOTNPTR=REG1; /* PTR TO TRACK AREA */ 01365000 MTCESTAX LR GOTNPTR,REG1 0433 01366000 * GEN REFS(ERREGS,GOTNPTR)(LM 0,15,ERREGS(GOTNPTR)); 0434 01367000 LM 0,15,ERREGS(GOTNPTR) 01368000 * GOTO MTCMAIN; /* GO TO RETRY POINT */ 01369000 B MTCMAIN 0435 01370000 * RFY 0436 01371000 * (REG0, 0436 01372000 * REG1, 0436 01373000 * REG2, 0436 01374000 * SDWAPTR) UNRSTD; 0436 01375000 * END; 0437 01376000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01377000 * GPR00P PTR(31) REG(0), 0438 01378000 * GPR01P PTR(31) REG(1), 0438 01379000 * GPR11P PTR(31) REG(11), 0438 01380000 * GPR12P PTR(31) REG(12), 0438 01381000 * GPR13P PTR(31) REG(13), 0438 01382000 * GPR14P PTR(31) REG(14), 0438 01383000 * GPR15P PTR(31) REG(15); 0438 01384000 * DECLARE /* COMMON VARIABLES */ 01385000 * I256C CHAR(256) BASED, 0439 01386000 * I031F FIXED(31) BASED, 0439 01387000 * I031P PTR(31) BASED, 0439 01388000 * I015F FIXED(15) BASED, 0439 01389000 * I015P PTR(15) BASED, 0439 01390000 * I008P PTR(8) BASED, 0439 01391000 * I001C CHAR(1) BASED; 0439 01392000 * END IEAVTMTC 0440 01393000 * 0440 01394000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01395000 */*%INCLUDE SYSLIB (MTCSPEC ) */ 01396000 */*%INCLUDE SYSLIB (MTCDCL ) */ 01397000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01398000 */*%INCLUDE SYSLIB (CVT ) */ 01399000 */*%INCLUDE SYSLIB (IHARTCT ) */ 01400000 */*%INCLUDE SYSLIB (IHASRB ) */ 01401000 */*%INCLUDE SYSLIB (IHARMPL ) */ 01402000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01403000 */*%INCLUDE SYSLIB (IHACSD ) */ 01404000 */*%INCLUDE SYSLIB (IHAPCCAT) */ 01405000 */*%INCLUDE SYSLIB (IHAPCCA ) */ 01406000 */*%INCLUDE SYSLIB (IHASCVT ) */ 01407000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01408000 */*%INCLUDE SYSLIB (MTCPATCH) */ 01409000 */*%INCLUDE SYSLIB (MTCINIT ) */ 01410000 */*%INCLUDE SYSLIB (DEQASCB ) */ 01411000 */*%INCLUDE SYSLIB (STOPACT ) */ 01412000 */*%INCLUDE SYSLIB (SRBRTN ) */ 01413000 */*%INCLUDE SYSLIB (MTCESTAE) */ 01414000 * 0440 01415000 * ; 0440 01416000 @DATA DS 0H 01417000 @DATD DSECT 01418000 DS 0F 01419000 IEAVTMTC CSECT 01420000 DS 0F 01421000 @CF00066 DC F'1' 01422000 @CF01102 DC F'12' 01423000 @CF00126 DC F'16' 01424000 @CF02128 DC F'104' 01425000 @CF02139 DC F'-4' 01426000 @CF02093 DC XL4'52000000' 01427000 @CF02104 DC XL4'00010000' 01428000 @CF02133 DC XL4'0000FFFF' 01429000 @DATD DSECT 01430000 DS 0D 01431000 IEAVTMTC CSECT 01432000 DS 0F 01433000 @SIZDATD DC AL1(0) 01434000 DC AL3(@ENDDATD-@DATD) 01435000 @CA00028 DC A(IEAVTMTC) 01436000 DS 0D 01437000 ZERO DC A(0) 01438000 @CC02109 DC C'IEAVTMTC' 01439000 @CC02110 DC C'MTCESTAE' 01440000 @CC02117 DC C'MTCESTA2' 01441000 @CC02088 DC C'SRB ' 01442000 @CB02111 DC X'40000000' 01443000 MTCPATCH DS 10F 01444000 IEAVTMTC CSECT 01445000 ESTAELST ESTAE MTCESTAE,RECORD=YES,MF=L 01446000 ATTCHLST ATTACH EP=IEAVTMTR,DPMOD=-1,SF=L,JSTCB=YES 01447000 @DATD DSECT 01448000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01449000 @ENDDATD EQU * 01450000 IEAVTMTC CSECT 01451000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01452000 @01 EQU 01 01453000 @02 EQU 02 01454000 @03 EQU 03 01455000 @04 EQU 04 01456000 @05 EQU 05 01457000 @06 EQU 06 01458000 @07 EQU 07 01459000 @08 EQU 08 01460000 @09 EQU 09 01461000 @10 EQU 10 01462000 @11 EQU 11 01463000 @12 EQU 12 01464000 @13 EQU 13 01465000 @14 EQU 14 01466000 @15 EQU 15 01467000 PSAPTR EQU @07 01468000 ASCBREG EQU @05 01469000 SDWAPTR EQU @01 01470000 ECBPTR EQU @02 01471000 INITFLAG EQU @05 01472000 GOTNPTR EQU @03 01473000 PREVASCB EQU @02 01474000 TEMPASCB EQU @06 01475000 CPUFLAGS EQU @06 01476000 CPUMASK EQU @02 01477000 SRBEPBS EQU @05 01478000 TEMPSDWA EQU @04 01479000 REG0 EQU @00 01480000 REG1 EQU @01 01481000 REG2 EQU @02 01482000 BASEREG EQU @08 01483000 REG10 EQU @10 01484000 REG11 EQU @11 01485000 REG12 EQU @12 01486000 REG13 EQU @13 01487000 REG14 EQU @14 01488000 REG15 EQU @15 01489000 GPR00P EQU @00 01490000 GPR01P EQU @01 01491000 GPR15P EQU @15 01492000 GPR11P EQU @11 01493000 GPR12P EQU @12 01494000 GPR13P EQU @13 01495000 GPR14P EQU @14 01496000 PSA EQU 0 01497000 FLCRNPSW EQU PSA 01498000 FLCROPSW EQU PSA+8 01499000 FLCICCW2 EQU PSA+16 01500000 FLCCVT EQU FLCICCW2 01501000 PSAEEPSW EQU PSA+132 01502000 PSAESPSW EQU PSA+136 01503000 FLCSVILC EQU PSAESPSW+1 01504000 PSAEPPSW EQU PSA+140 01505000 FLCPIILC EQU PSAEPPSW+1 01506000 FLCPICOD EQU PSAEPPSW+2 01507000 PSAPICOD EQU FLCPICOD+1 01508000 FLCTEA EQU PSAEPPSW+4 01509000 FLCPER EQU PSA+152 01510000 FLCMCLA EQU PSA+168 01511000 FLCIOEL EQU FLCMCLA+4 01512000 FLCIOA EQU FLCMCLA+16 01513000 FLCFSA EQU FLCMCLA+80 01514000 PSATOLD EQU PSA+540 01515000 PSAAOLD EQU PSA+548 01516000 PSASUPER EQU PSA+552 01517000 PSASUP1 EQU PSASUPER 01518000 PSASUP2 EQU PSASUPER+1 01519000 PSASUP3 EQU PSASUPER+2 01520000 PSASUP4 EQU PSASUPER+3 01521000 PSACLHT EQU PSA+640 01522000 PSALKSA EQU PSA+696 01523000 PSAHLHI EQU PSA+760 01524000 PSALITA EQU PSA+764 01525000 PSADSSFL EQU PSA+836 01526000 PSADSSF1 EQU PSADSSFL 01527000 PSADSSF3 EQU PSADSSFL+2 01528000 PSADSSF4 EQU PSADSSFL+3 01529000 PSARSVT EQU PSA+896 01530000 CVTMAP EQU 0 01531000 CVTDAR EQU CVTMAP+72 01532000 CVTFLGS1 EQU CVTDAR 01533000 CVTDCB EQU CVTMAP+116 01534000 CVTIERLC EQU CVTMAP+144 01535000 CVT0PT01 EQU CVTMAP+152 01536000 CVTOPTA EQU CVTMAP+182 01537000 CVTOPTB EQU CVTMAP+183 01538000 CVTABEND EQU CVTMAP+200 01539000 CVTGTF EQU CVTMAP+236 01540000 CVTGTFST EQU CVTGTF 01541000 CVTGTFS EQU CVTGTFST 01542000 CVTSTATE EQU CVTGTFST 01543000 CVTTMODE EQU CVTGTFST 01544000 CVTFORM EQU CVTGTFST 01545000 CVTAQAVT EQU CVTMAP+240 01546000 CVTTCMFG EQU CVTAQAVT 01547000 CVTVOLM2 EQU CVTMAP+244 01548000 CVTTATA EQU CVTVOLM2 01549000 CVTTSKS EQU CVTTATA 01550000 CVTVOLF2 EQU CVTTSKS 01551000 CVTTAT EQU CVTTATA+1 01552000 CVTATER EQU CVTMAP+248 01553000 CVTEXT1 EQU CVTMAP+252 01554000 CVTPURG EQU CVTMAP+260 01555000 CVTQMSG EQU CVTMAP+268 01556000 CVTDMSR EQU CVTMAP+272 01557000 CVTRSV37 EQU CVTDMSR 01558000 CVTDMSRF EQU CVTRSV37 01559000 CVTERPV EQU CVTMAP+316 01560000 CVTINTLA EQU CVTMAP+320 01561000 CVTAPF EQU CVTMAP+324 01562000 CVTEXT2 EQU CVTMAP+328 01563000 CVTHJES EQU CVTMAP+332 01564000 CVTPGSIA EQU CVTMAP+348 01565000 CVTA1F1 EQU CVTMAP+356 01566000 CVTSYSK EQU CVTMAP+357 01567000 CVTVOLM1 EQU CVTMAP+380 01568000 CVTVOLF1 EQU CVTVOLM1 01569000 CVTATMCT EQU CVTMAP+388 01570000 CVTXTNT1 EQU 0 01571000 CVTXTNT2 EQU 0 01572000 CVTDSSV EQU CVTXTNT2 01573000 CVTFLGBT EQU CVTXTNT2+5 01574000 CVTQID EQU CVTXTNT2+24 01575000 CVTRV400 EQU CVTXTNT2+52 01576000 CVTRV409 EQU CVTXTNT2+53 01577000 CVTATCVT EQU CVTXTNT2+64 01578000 CVTRV429 EQU CVTXTNT2+84 01579000 CVTRV438 EQU CVTXTNT2+85 01580000 CVTRV457 EQU CVTXTNT2+112 01581000 CVTRV466 EQU CVTXTNT2+113 01582000 CVTFIX EQU 0 01583000 CVTRELNO EQU CVTFIX+252 01584000 RTCT EQU 0 01585000 RTCTSAP EQU RTCT+4 01586000 RTCTSAP1 EQU RTCTSAP 01587000 RTCTSAP2 EQU RTCTSAP+1 01588000 RTCTSUP EQU RTCT+6 01589000 RTCTSUP1 EQU RTCTSUP 01590000 RTCTSUP2 EQU RTCTSUP+1 01591000 RTCTSAO EQU RTCT+8 01592000 RTCTSAO1 EQU RTCTSAO 01593000 RTCTSAO2 EQU RTCTSAO+1 01594000 RTCTSUO EQU RTCT+10 01595000 RTCTSUO1 EQU RTCTSUO 01596000 RTCTSUO2 EQU RTCTSUO+1 01597000 RTCTSDO EQU RTCT+12 01598000 RTCTSDO1 EQU RTCTSDO 01599000 RTCTSDO2 EQU RTCTSDO+1 01600000 RTCTABD EQU RTCT+14 01601000 RTCTIDMP EQU RTCTABD 01602000 RTCTSDF EQU RTCT+16 01603000 RTCTSDF1 EQU RTCTSDF 01604000 RTCTSDF2 EQU RTCTSDF+1 01605000 RTCTMECB EQU RTCT+20 01606000 RTCTFASB EQU RTCT+24 01607000 RTCTSDDS EQU RTCT+36 01608000 RTCTFLG EQU RTCTSDDS+3 01609000 RTCTMLCK EQU RTCT+164 01610000 RTCTMSRB EQU RTCT+168 01611000 RTCTRFLG EQU RTCT+176 01612000 SRBSECT EQU 0 01613000 SRB EQU SRBSECT 01614000 SRBID EQU SRB 01615000 SRBASCB EQU SRB+8 01616000 SRBFLC EQU SRB+12 01617000 SRBCPAFF EQU SRBFLC 01618000 SRBPASID EQU SRBFLC+2 01619000 SRBPTCB EQU SRBFLC+4 01620000 SRBEP EQU SRB+20 01621000 SRBRMTR EQU SRB+24 01622000 SRBPARM EQU SRB+28 01623000 SRBSAVE EQU SRB+32 01624000 SRBPKF EQU SRB+36 01625000 SRBPRIOR EQU SRB+37 01626000 RMPL EQU 0 01627000 RMPLFLG1 EQU RMPL 01628000 RMPLTYPE EQU RMPLFLG1 01629000 RMPLTERM EQU RMPLFLG1 01630000 RMPLASID EQU RMPL+2 01631000 RMPLASCB EQU RMPL+4 01632000 RMPLRMWA EQU RMPL+16 01633000 ASCB EQU 0 01634000 ASCBSUPC EQU ASCB+16 01635000 ASCBCPUS EQU ASCB+32 01636000 ASCBASID EQU ASCB+36 01637000 ASCBFW1 EQU ASCB+100 01638000 ASCBRCTF EQU ASCBFW1+2 01639000 ASCBFLG1 EQU ASCBFW1+3 01640000 ASCBABNT EQU ASCBFLG1 01641000 ASCBTMCH EQU ASCB+104 01642000 ASCBDSP1 EQU ASCB+114 01643000 ASCBFAIL EQU ASCBDSP1 01644000 ASCBFLG2 EQU ASCB+115 01645000 ASCBSRBS EQU ASCB+118 01646000 ASCBLKGP EQU ASCB+128 01647000 ASCBSRQ EQU ASCB+180 01648000 ASCBSRQ1 EQU ASCBSRQ 01649000 ASCBSRQ2 EQU ASCBSRQ+1 01650000 ASCBSRQ3 EQU ASCBSRQ+2 01651000 ASCBSRQ4 EQU ASCBSRQ+3 01652000 CSD EQU 0 01653000 CSDCPUAL EQU CSD+8 01654000 CSDCPUOL EQU CSD+10 01655000 CSDSCWRD EQU CSD+12 01656000 CSDSCFL1 EQU CSDSCWRD 01657000 CSDSCFL2 EQU CSDSCWRD+1 01658000 CSDSCFL3 EQU CSDSCWRD+2 01659000 CSDSCFL4 EQU CSDSCWRD+3 01660000 CSDACR EQU CSD+22 01661000 CSDFLAGS EQU CSD+23 01662000 PCCAVT EQU 0 01663000 PCCAT00P EQU PCCAVT 01664000 PCCA EQU 0 01665000 PCCAPSAV EQU PCCA+24 01666000 PCCATMST EQU PCCA+128 01667000 PCCATMFL EQU PCCATMST 01668000 PCCATODE EQU PCCATMST+1 01669000 PCCACCE EQU PCCATMST+2 01670000 PCCAINTE EQU PCCATMST+3 01671000 PCCAEMSB EQU PCCA+136 01672000 PCCAEMSI EQU PCCAEMSB 01673000 PCCARISP EQU PCCAEMSI 01674000 PCCAEMS2 EQU PCCAEMSI+1 01675000 PCCAEMS3 EQU PCCAEMSI+2 01676000 PCCARMSB EQU PCCAEMSI+3 01677000 PCCAWERP EQU PCCA+280 01678000 PCCACHPF EQU PCCAWERP+4 01679000 PCCACHBL EQU PCCAWERP+5 01680000 PCCACHVA EQU PCCAWERP+6 01681000 PCCACHTS EQU PCCAWERP+7 01682000 PCCACHS1 EQU PCCA+288 01683000 PCCACHS2 EQU PCCA+289 01684000 PCCACHRB EQU PCCA+290 01685000 PCCACHF1 EQU PCCA+308 01686000 PCCACHF2 EQU PCCA+309 01687000 PCCACHF3 EQU PCCA+310 01688000 PCCACHF4 EQU PCCA+311 01689000 PCCAPTR EQU 0 01690000 SCVTSECT EQU 0 01691000 SCVTPTRM EQU SCVTSECT+164 01692000 SDWA EQU 0 01693000 SDWAPARM EQU SDWA 01694000 SDWAFIOB EQU SDWA+4 01695000 SDWAABCC EQU SDWAFIOB 01696000 SDWACMPF EQU SDWAABCC 01697000 SDWACTL1 EQU SDWA+8 01698000 SDWACMKA EQU SDWACTL1 01699000 SDWAMWPA EQU SDWACTL1+1 01700000 SDWAPMKA EQU SDWACTL1+4 01701000 SDWACTL2 EQU SDWA+16 01702000 SDWACMKP EQU SDWACTL2 01703000 SDWAMWPP EQU SDWACTL2+1 01704000 SDWAPMKP EQU SDWACTL2+4 01705000 SDWAGRSV EQU SDWA+24 01706000 SDWANAME EQU SDWA+88 01707000 SDWAEC1 EQU SDWA+104 01708000 SDWAEMK1 EQU SDWAEC1 01709000 SDWAMWP1 EQU SDWAEC1+1 01710000 SDWAINT1 EQU SDWAEC1+2 01711000 SDWANXT1 EQU SDWAEC1+4 01712000 SDWAAEC1 EQU SDWA+112 01713000 SDWAILC1 EQU SDWAAEC1+1 01714000 SDWAINC1 EQU SDWAAEC1+2 01715000 SDWAICD1 EQU SDWAINC1+1 01716000 SDWAEC2 EQU SDWA+120 01717000 SDWAEMK2 EQU SDWAEC2 01718000 SDWAMWP2 EQU SDWAEC2+1 01719000 SDWAINT2 EQU SDWAEC2+2 01720000 SDWANXT2 EQU SDWAEC2+4 01721000 SDWAADD2 EQU SDWANXT2+1 01722000 SDWAAEC2 EQU SDWA+128 01723000 SDWAILC2 EQU SDWAAEC2+1 01724000 SDWAINC2 EQU SDWAAEC2+2 01725000 SDWAICD2 EQU SDWAINC2+1 01726000 SDWASRSV EQU SDWA+136 01727000 SDWAIDNT EQU SDWA+200 01728000 SDWAMCH EQU SDWA+204 01729000 SDWASTCK EQU SDWAMCH 01730000 SDWAMCHI EQU SDWAMCH+8 01731000 SDWAMCHS EQU SDWAMCHI 01732000 SDWAMCHD EQU SDWAMCHI+1 01733000 SDWARSR1 EQU SDWAMCH+12 01734000 SDWARSR2 EQU SDWAMCH+13 01735000 SDWAFLGS EQU SDWA+232 01736000 SDWAERRA EQU SDWAFLGS 01737000 SDWAERRB EQU SDWAFLGS+1 01738000 SDWASRBM EQU SDWAERRB 01739000 SDWAERRC EQU SDWAFLGS+2 01740000 SDWAERRD EQU SDWAFLGS+3 01741000 SDWANRBE EQU SDWAERRD 01742000 SDWAIOFS EQU SDWA+238 01743000 SDWARTYA EQU SDWA+240 01744000 SDWACPUA EQU SDWA+248 01745000 SDWAPARQ EQU SDWA+252 01746000 SDWARCDE EQU SDWAPARQ 01747000 SDWAACF2 EQU SDWAPARQ+1 01748000 SDWARCRD EQU SDWAACF2 01749000 SDWAUPRG EQU SDWAACF2 01750000 SDWAFREE EQU SDWAACF2 01751000 SDWAACF3 EQU SDWAPARQ+2 01752000 SDWAACF4 EQU SDWAPARQ+3 01753000 SDWALKWA EQU SDWA+256 01754000 SDWALKWS EQU SDWALKWA 01755000 SDWARECP EQU SDWA+292 01756000 SDWAMODN EQU SDWARECP 01757000 SDWACSCT EQU SDWARECP+8 01758000 SDWAREXN EQU SDWARECP+16 01759000 SDWASNPA EQU SDWA+320 01760000 SDWADUMP EQU SDWASNPA 01761000 SDWADPFS EQU SDWADUMP+1 01762000 SDWADDAT EQU SDWASNPA+4 01763000 SDWASDAT EQU SDWADDAT 01764000 SDWAPDAT EQU SDWADDAT+2 01765000 SDWADPSA EQU SDWA+328 01766000 SDWADPSL EQU SDWADPSA 01767000 SDWARA EQU SDWA+400 01768000 SDWADPVA EQU SDWARA+2 01769000 SDWAHEX EQU SDWADPVA 01770000 SDWAURAL EQU SDWARA+3 01771000 SDWAVRA EQU SDWARA+4 01772000 GOTNCORE EQU 0 01773000 ERRAREA EQU GOTNCORE 01774000 ERRASCB EQU ERRAREA 01775000 FLAGS EQU ERRAREA+4 01776000 STOPFLAG EQU FLAGS 01777000 QSEARCH EQU FLAGS 01778000 INITDONE EQU FLAGS 01779000 I EQU ERRAREA+8 01780000 ERREGS EQU ERRAREA+12 01781000 ERREG EQU ERREGS 01782000 RMGRSAVE EQU GOTNCORE+76 01783000 RMPLPTR EQU GOTNCORE+148 01784000 RMPLCORE EQU GOTNCORE+152 01785000 WORKAREA EQU GOTNCORE+176 01786000 WORKWORD EQU WORKAREA 01787000 SRBCORE EQU GOTNCORE+240 01788000 ASMPURGE EQU 0 01789000 RSMPURGE EQU 0 01790000 POSTBR EQU 0 01791000 MEMSWTCH EQU 0 01792000 ALABEL EQU 0 01793000 INPUTECB EQU 0 01794000 I001C EQU 0 01795000 I008P EQU 0 01796000 I015F EQU 0 01797000 I015P EQU 0 01798000 I031F EQU 0 01799000 I031P EQU 0 01800000 I256C EQU 0 01801000 PSARSVTE EQU PSARSVT 01802000 CVTPTR EQU FLCCVT 01803000 CVTS01 EQU CVTPGSIA 01804000 CVTLPDIA EQU CVTS01+12 01805000 CVTDIRST EQU CVTLPDIA 01806000 CVTSLIDA EQU CVTS01+24 01807000 CVTCTLFG EQU CVTS01+50 01808000 CVTRTMCT EQU CVTS01+224 01809000 CVTCSD EQU CVTS01+312 01810000 CVTPCCAT EQU CVTS01+416 01811000 CVTRV210 EQU CVTS01+424 01812000 CVTRV219 EQU CVTS01+425 01813000 CVTRV228 EQU CVTS01+426 01814000 CVTRV237 EQU CVTS01+427 01815000 CVTMFRTR EQU CVTS01+452 01816000 CVTRV262 EQU CVTS01+468 01817000 CVTRV271 EQU CVTS01+469 01818000 CVTRV280 EQU CVTS01+470 01819000 CVTRV289 EQU CVTS01+471 01820000 CVTVEMS0 EQU CVTS01+516 01821000 CVTGSDA EQU CVTS01+600 01822000 CVTASMRM EQU CVTS01+668 01823000 SCVTSPTR EQU CVTABEND 01824000 PPL EQU WORKAREA 01825000 PPLOPT1 EQU PPL 01826000 PPLHIO EQU PPLOPT1 01827000 PPLEXT EQU PPLOPT1 01828000 PPLOPT2 EQU PPL+12 01829000 PPLMEM EQU PPLOPT2 01830000 PPLASID EQU PPL+14 01831000 CSDPTR EQU CVTCSD 01832000 FLC EQU PSA 01833000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01834000 @NM00117 EQU PPL+13 01835000 PPLTSKM EQU PPLOPT2 01836000 PRLOTCB EQU PPLOPT2 01837000 PPLBYPCV EQU PPLOPT2 01838000 @NM00116 EQU PPLOPT2 01839000 PPLPIRL EQU PPL+9 01840000 @NM00115 EQU PPL+8 01841000 PPLTCB EQU PPL+5 01842000 PPLCC EQU PPL+4 01843000 PPLDSID EQU PPL+1 01844000 PPLTASK EQU PPLOPT1 01845000 PPLRB EQU PPLOPT1 01846000 @NM00114 EQU PPLOPT1 01847000 PPLREL EQU PPLOPT1 01848000 PPLPOST EQU PPLOPT1 01849000 PPLDS EQU PPLOPT1 01850000 CVTRV628 EQU CVTS01+728 01851000 CVTRV627 EQU CVTS01+724 01852000 CVTRV626 EQU CVTS01+720 01853000 CVTRV625 EQU CVTS01+716 01854000 CVTRV624 EQU CVTS01+712 01855000 CVTRV623 EQU CVTS01+708 01856000 CVTRV622 EQU CVTS01+704 01857000 CVTRV621 EQU CVTS01+700 01858000 CVTIHASU EQU CVTS01+696 01859000 CVTSUSP EQU CVTS01+692 01860000 CVTT6SVC EQU CVTS01+688 01861000 CVTCDAL EQU CVTS01+684 01862000 CVTTCTL EQU CVTS01+680 01863000 CVTRSUME EQU CVTS01+676 01864000 CVTJTERM EQU CVTS01+672 01865000 CVTTCASP EQU CVTS01+664 01866000 CVT0PT03 EQU CVTS01+660 01867000 CVT0PT0E EQU CVTS01+656 01868000 CVTRV609 EQU CVTS01+652 01869000 CVTCGK EQU CVTS01+648 01870000 CVTRAC EQU CVTS01+644 01871000 CVTRV606 EQU CVTS01+640 01872000 CVTRV605 EQU CVTS01+636 01873000 CVTRV604 EQU CVTS01+632 01874000 CVTEFF02 EQU CVTS01+628 01875000 CVTCBBR EQU CVTS01+624 01876000 CVTSSCR EQU CVTS01+620 01877000 CVTEVENT EQU CVTS01+616 01878000 CVTCRCA EQU CVTS01+612 01879000 CVTTPIO EQU CVTS01+608 01880000 CVTADV EQU CVTS01+604 01881000 CVTGSDAB EQU CVTGSDA 01882000 CVTQV3 EQU CVTS01+596 01883000 CVTQV2 EQU CVTS01+592 01884000 CVTQV1 EQU CVTS01+588 01885000 CVTRPT EQU CVTS01+584 01886000 CVTSSRB EQU CVTS01+580 01887000 CVTCSDRL EQU CVTS01+576 01888000 CVTEXP1 EQU CVTS01+572 01889000 CVTRMPMT EQU CVTS01+568 01890000 CVTRMPTT EQU CVTS01+564 01891000 CVTVPSA EQU CVTS01+560 01892000 CVTVSTOP EQU CVTS01+556 01893000 CVTGTFR8 EQU CVTS01+552 01894000 CVTQUIT EQU CVTS01+548 01895000 CVTVACR EQU CVTS01+544 01896000 CVTWTCB EQU CVTS01+540 01897000 CVTSTPRS EQU CVTS01+536 01898000 CVT0PT02 EQU CVTS01+532 01899000 CVTDARCM EQU CVTS01+528 01900000 CVTIRECM EQU CVTS01+524 01901000 CVTJRECM EQU CVTS01+520 01902000 CVTSPFRR EQU CVTS01+512 01903000 CVTRLSTG EQU CVTS01+508 01904000 CVT0TC0A EQU CVTS01+504 01905000 CVTGMBR EQU CVTS01+500 01906000 CVTLFRM EQU CVTS01+496 01907000 CVTRMBR EQU CVTS01+492 01908000 CVTVIOP EQU CVTS01+488 01909000 CVTRV307 EQU CVTS01+486 01910000 CVTRV306 EQU CVTS01+484 01911000 CVTRV305 EQU CVTS01+482 01912000 CVTRV304 EQU CVTS01+480 01913000 CVTRV303 EQU CVTS01+478 01914000 CVTRV302 EQU CVTS01+476 01915000 CVTTRCA EQU CVTS01+472 01916000 CVTRV297 EQU CVTRV289 01917000 CVTRV296 EQU CVTRV289 01918000 CVTRV295 EQU CVTRV289 01919000 CVTRV294 EQU CVTRV289 01920000 CVTRV293 EQU CVTRV289 01921000 CVTRV292 EQU CVTRV289 01922000 CVTRV291 EQU CVTRV289 01923000 CVTRV290 EQU CVTRV289 01924000 CVTRV288 EQU CVTRV280 01925000 CVTRV287 EQU CVTRV280 01926000 CVTRV286 EQU CVTRV280 01927000 CVTRV285 EQU CVTRV280 01928000 CVTRV284 EQU CVTRV280 01929000 CVTRV283 EQU CVTRV280 01930000 CVTRV282 EQU CVTRV280 01931000 CVTRV281 EQU CVTRV280 01932000 CVTRV279 EQU CVTRV271 01933000 CVTRV278 EQU CVTRV271 01934000 CVTRV277 EQU CVTRV271 01935000 CVTRV276 EQU CVTRV271 01936000 CVTRV275 EQU CVTRV271 01937000 CVTRV274 EQU CVTRV271 01938000 CVTRV273 EQU CVTRV271 01939000 CVTRV272 EQU CVTRV271 01940000 CVTRV270 EQU CVTRV262 01941000 CVTRV269 EQU CVTRV262 01942000 CVTRV268 EQU CVTRV262 01943000 CVTRV267 EQU CVTRV262 01944000 CVTRV266 EQU CVTRV262 01945000 CVTRV265 EQU CVTRV262 01946000 CVTRV264 EQU CVTRV262 01947000 CVTRV263 EQU CVTRV262 01948000 CVTVFP EQU CVTS01+464 01949000 CVTVSI EQU CVTS01+460 01950000 CVTVPSIB EQU CVTS01+456 01951000 CVTMFACT EQU CVTMFRTR 01952000 CVTMFCTL EQU CVTS01+448 01953000 CVTPVBP EQU CVTS01+444 01954000 CVTPWI EQU CVTS01+440 01955000 CVTRV254 EQU CVTS01+438 01956000 CVTRV253 EQU CVTS01+436 01957000 CVTRV252 EQU CVTS01+434 01958000 CVTRV251 EQU CVTS01+433 01959000 CVTRV250 EQU CVTS01+432 01960000 CVTRV249 EQU CVTS01+431 01961000 CVTRV248 EQU CVTS01+430 01962000 CVTRV247 EQU CVTS01+429 01963000 CVTRV246 EQU CVTS01+428 01964000 CVTRV245 EQU CVTRV237 01965000 CVTRV244 EQU CVTRV237 01966000 CVTRV243 EQU CVTRV237 01967000 CVTRV242 EQU CVTRV237 01968000 CVTRV241 EQU CVTRV237 01969000 CVTRV240 EQU CVTRV237 01970000 CVTRV239 EQU CVTRV237 01971000 CVTRV238 EQU CVTRV237 01972000 CVTRV236 EQU CVTRV228 01973000 CVTRV235 EQU CVTRV228 01974000 CVTRV234 EQU CVTRV228 01975000 CVTRV233 EQU CVTRV228 01976000 CVTRV232 EQU CVTRV228 01977000 CVTRV231 EQU CVTRV228 01978000 CVTRV230 EQU CVTRV228 01979000 CVTRV229 EQU CVTRV228 01980000 CVTRV227 EQU CVTRV219 01981000 CVTRV226 EQU CVTRV219 01982000 CVTRV225 EQU CVTRV219 01983000 CVTRV224 EQU CVTRV219 01984000 CVTRV223 EQU CVTRV219 01985000 CVTRV222 EQU CVTRV219 01986000 CVTRV221 EQU CVTRV219 01987000 CVTRV220 EQU CVTRV219 01988000 CVTRV218 EQU CVTRV210 01989000 CVTRV217 EQU CVTRV210 01990000 CVTRV216 EQU CVTRV210 01991000 CVTRV215 EQU CVTRV210 01992000 CVTRV214 EQU CVTRV210 01993000 CVTRV213 EQU CVTRV210 01994000 CVTRV212 EQU CVTRV210 01995000 CVTRV211 EQU CVTRV210 01996000 CVTLCCAT EQU CVTS01+420 01997000 CVTIPCRP EQU CVTS01+412 01998000 CVTIPCRI EQU CVTS01+408 01999000 CVTIPCDS EQU CVTS01+404 02000000 CVTAIDVT EQU CVTS01+400 02001000 CVTSSAP EQU CVTS01+396 02002000 CVTEHCIR EQU CVTS01+392 02003000 CVTEHDEF EQU CVTS01+388 02004000 CVTDAIR EQU CVTS01+384 02005000 CVTPERFM EQU CVTS01+380 02006000 CVT044R2 EQU CVTS01+376 02007000 CVTFETCH EQU CVTS01+372 02008000 CVTRSTWD EQU CVTS01+368 02009000 CVTSPOST EQU CVTS01+364 02010000 CVTIOBP EQU CVTS01+360 02011000 CVTASMVT EQU CVTS01+356 02012000 CVTRECRQ EQU CVTS01+352 02013000 CVTWSAC EQU CVTS01+348 02014000 CVTRV149 EQU CVTS01+344 02015000 CVTWSAL EQU CVTS01+340 02016000 CVTSPSA EQU CVTS01+336 02017000 CVTGLMN EQU CVTS01+332 02018000 CVTVEAC0 EQU CVTS01+328 02019000 CVT062R1 EQU CVTS01+324 02020000 CVTRPOST EQU CVTS01+320 02021000 CVTDQIQE EQU CVTS01+316 02022000 CVTLKRMA EQU CVTS01+308 02023000 CVTRSPIE EQU CVTS01+304 02024000 CVTRENQ EQU CVTS01+300 02025000 CVTLQCB EQU CVTS01+296 02026000 CVTFQCB EQU CVTS01+292 02027000 CVTQCS01 EQU CVTS01+288 02028000 CVTAPFT EQU CVTS01+284 02029000 CVTPARRL EQU CVTS01+280 02030000 CVTVWAIT EQU CVTS01+276 02031000 CVTGSPL EQU CVTS01+272 02032000 CVTLSMQ EQU CVTS01+268 02033000 CVTGSMQ EQU CVTS01+264 02034000 CVTEXPRO EQU CVTS01+260 02035000 CVTOPCTP EQU CVTS01+256 02036000 CVTSIC EQU CVTS01+252 02037000 CVTTPIOS EQU CVTS01+248 02038000 CVTRTMS EQU CVTS01+244 02039000 CVTSDBF EQU CVTS01+240 02040000 CVTSCBP EQU CVTS01+236 02041000 CVTSDMP EQU CVTS01+232 02042000 CVTSV60 EQU CVTS01+228 02043000 CVTASCBL EQU CVTS01+220 02044000 CVTASCBH EQU CVTS01+216 02045000 CVTGDA EQU CVTS01+212 02046000 CVTASVT EQU CVTS01+208 02047000 CVTVVMDI EQU CVTS01+204 02048000 CVTAQTOP EQU CVTS01+200 02049000 CVTIOSCS EQU CVTS01+196 02050000 CVTSDRM EQU CVTS01+192 02051000 CVTOPTE EQU CVTS01+188 02052000 CVTSTXU EQU CVTS01+184 02053000 CVTQUIS EQU CVTS01+180 02054000 CVTPARS EQU CVTS01+176 02055000 CVTS1EE EQU CVTS01+172 02056000 CVTFRAS EQU CVTS01+168 02057000 CVTQSAS EQU CVTS01+164 02058000 CVTCRAS EQU CVTS01+160 02059000 CVTCRMN EQU CVTS01+156 02060000 CVTDELCP EQU CVTS01+152 02061000 CVTFRECL EQU CVTS01+148 02062000 CVTGETCL EQU CVTS01+144 02063000 CVTBLDCP EQU CVTS01+140 02064000 CVTAUTHL EQU CVTS01+136 02065000 CVTSCAN EQU CVTS01+132 02066000 CVTRV144 EQU CVTS01+130 02067000 CVTMAXMP EQU CVTS01+128 02068000 CVTSTCK EQU CVTS01+124 02069000 CVTRV139 EQU CVTS01+123 02070000 CVTDSSAC EQU CVTS01+122 02071000 CVTRV513 EQU CVTS01+121 02072000 CVTIOSPL EQU CVTS01+120 02073000 CVTPTGT EQU CVTS01+116 02074000 CVTCSPIE EQU CVTS01+112 02075000 CVTSMFEX EQU CVTS01+108 02076000 CVTOLT0A EQU CVTS01+104 02077000 CVTSRBRT EQU CVTS01+100 02078000 CVTPUTL EQU CVTS01+96 02079000 CVTASCRL EQU CVTS01+92 02080000 CVTASCRF EQU CVTS01+88 02081000 CVTRV326 EQU CVTS01+84 02082000 CVTRV325 EQU CVTS01+80 02083000 CVTRV324 EQU CVTS01+76 02084000 CVT0VL01 EQU CVTS01+72 02085000 CVTSHRVM EQU CVTS01+68 02086000 CVTRV332 EQU CVTS01+64 02087000 CVTTAS EQU CVTS01+60 02088000 CVTRSCN EQU CVTS01+56 02089000 CVTTRAC2 EQU CVTS01+54 02090000 CVTTRACE EQU CVTS01+52 02091000 CVTAPG EQU CVTS01+51 02092000 CVTSDTRC EQU CVTCTLFG 02093000 CVTGTRCE EQU CVTCTLFG 02094000 CVTNOMP EQU CVTCTLFG 02095000 CVTRSV79 EQU CVTCTLFG 02096000 CVTDSTAT EQU CVTCTLFG 02097000 CVTRSV78 EQU CVTCTLFG 02098000 CVTRV333 EQU CVTCTLFG 02099000 CVTRV323 EQU CVTCTLFG 02100000 CVTSPVLK EQU CVTS01+49 02101000 CVTRSV77 EQU CVTS01+48 02102000 CVTRV331 EQU CVTS01+44 02103000 CVTRV330 EQU CVTS01+40 02104000 CVTRV329 EQU CVTS01+36 02105000 CVTRV328 EQU CVTS01+32 02106000 CVTRV322 EQU CVTS01+28 02107000 CVTSLID EQU CVTSLIDA+1 02108000 CVTSYLK EQU CVTSLIDA 02109000 CVTRV321 EQU CVTS01+20 02110000 CVTRV320 EQU CVTS01+16 02111000 CVTLPDIR EQU CVTLPDIA+1 02112000 CVTRSV69 EQU CVTDIRST 02113000 CVTRSV68 EQU CVTDIRST 02114000 CVTRSV67 EQU CVTDIRST 02115000 CVTRSV66 EQU CVTDIRST 02116000 CVTRSV65 EQU CVTDIRST 02117000 CVTRSV64 EQU CVTDIRST 02118000 CVTRSV63 EQU CVTDIRST 02119000 CVTDICOM EQU CVTDIRST 02120000 CVTPVTP EQU CVTS01+8 02121000 CVTLPDSR EQU CVTS01+4 02122000 CVTGETL EQU CVTS01 02123000 PSARSAV EQU PSARSVTE+60 02124000 PSARSTK EQU PSARSVTE+56 02125000 PSAESAV3 EQU PSARSVTE+52 02126000 PSAESTK3 EQU PSARSVTE+48 02127000 PSAESAV2 EQU PSARSVTE+44 02128000 PSAESTK2 EQU PSARSVTE+40 02129000 PSAESAV1 EQU PSARSVTE+36 02130000 PSAESTK1 EQU PSARSVTE+32 02131000 PSAPSAV EQU PSARSVTE+28 02132000 PSAPSTK EQU PSARSVTE+24 02133000 PSAMSAV EQU PSARSVTE+20 02134000 PSAMSTK EQU PSARSVTE+16 02135000 PSASSAV EQU PSARSVTE+12 02136000 PSASSTK EQU PSARSVTE+8 02137000 PSANSTK EQU PSARSVTE+4 02138000 PSACSTK EQU PSARSVTE 02139000 @NM00113 EQU SDWA+512 02140000 @NM00112 EQU SDWADPVA 02141000 SDWAEBC EQU SDWADPVA 02142000 SDWAVRAL EQU SDWARA 02143000 @NM00111 EQU SDWA+396 02144000 SDWACOMP EQU SDWA+392 02145000 SDWARCPL EQU SDWA+364 02146000 @NM00110 EQU SDWADPSA+32 02147000 SDWATO4 EQU SDWADPSL+28 02148000 SDWAFRM4 EQU SDWADPSL+24 02149000 SDWATO3 EQU SDWADPSL+20 02150000 SDWAFRM3 EQU SDWADPSL+16 02151000 SDWATO2 EQU SDWADPSL+12 02152000 SDWAFRM2 EQU SDWADPSL+8 02153000 SDWATO1 EQU SDWADPSL+4 02154000 SDWAFRM1 EQU SDWADPSL 02155000 @NM00109 EQU SDWADDAT+3 02156000 @NM00108 EQU SDWAPDAT 02157000 SDWAUSPL EQU SDWAPDAT 02158000 SDWADPSW EQU SDWAPDAT 02159000 SDWATJPA EQU SDWAPDAT 02160000 SDWATLPA EQU SDWAPDAT 02161000 SDWADREG EQU SDWAPDAT 02162000 SDWADSAH EQU SDWAPDAT 02163000 SDWADSAS EQU SDWAPDAT 02164000 @NM00107 EQU SDWADDAT+1 02165000 @NM00106 EQU SDWASDAT 02166000 SDWAQQS EQU SDWASDAT 02167000 SDWACBS EQU SDWASDAT 02168000 SDWAGTF EQU SDWASDAT 02169000 SDWASWA EQU SDWASDAT 02170000 SDWALSQA EQU SDWASDAT 02171000 SDWASQA EQU SDWASDAT 02172000 SDWANUC EQU SDWASDAT 02173000 @NM00105 EQU SDWADUMP+2 02174000 @NM00104 EQU SDWADPFS 02175000 SDWASLST EQU SDWADPFS 02176000 @NM00103 EQU SDWADPFS 02177000 SDWADLST EQU SDWADPFS 02178000 SDWADPT EQU SDWADPFS 02179000 SDWADPID EQU SDWADUMP 02180000 SDWADPLA EQU SDWA+316 02181000 @NM00102 EQU SDWA+290 02182000 SDWAASID EQU SDWA+288 02183000 SDWATALW EQU SDWALKWS+28 02184000 SDWATDLW EQU SDWALKWS+24 02185000 SDWATNLW EQU SDWALKWS+20 02186000 SDWAAPLW EQU SDWALKWS+16 02187000 SDWAIPLW EQU SDWALKWS+12 02188000 SDWAILLW EQU SDWALKWS+8 02189000 SDWAIULW EQU SDWALKWS+4 02190000 SDWAICLW EQU SDWALKWS 02191000 SDWAFLLK EQU SDWAACF4 02192000 SDWACMS EQU SDWAACF4 02193000 SDWAOPTM EQU SDWAACF4 02194000 SDWATADB EQU SDWAACF4 02195000 SDWATDNB EQU SDWAACF4 02196000 SDWATNCB EQU SDWAACF4 02197000 SDWAILCH EQU SDWAACF4 02198000 SDWAIUCB EQU SDWAACF4 02199000 SDWAICAT EQU SDWAACF3 02200000 SDWAIPRG EQU SDWAACF3 02201000 SDWASALL EQU SDWAACF3 02202000 SDWAASMP EQU SDWAACF3 02203000 SDWADISP EQU SDWAACF3 02204000 @NM00101 EQU SDWAACF3 02205000 @NM00100 EQU SDWAACF2 02206000 @NM00099 EQU SDWAACF2 02207000 SDWASPIN EQU SDWAACF2 02208000 @NM00098 EQU SDWAACF2 02209000 SDWALCPU EQU SDWACPUA+2 02210000 @NM00097 EQU SDWACPUA 02211000 SDWARECA EQU SDWA+244 02212000 @NM00096 EQU SDWA+239 02213000 @NM00095 EQU SDWAIOFS 02214000 SDWANIOP EQU SDWAIOFS 02215000 SDWANOIO EQU SDWAIOFS 02216000 SDWAIOHT EQU SDWAIOFS 02217000 SDWAIOQR EQU SDWAIOFS 02218000 SDWAFMID EQU SDWA+236 02219000 @NM00094 EQU SDWAERRD 02220000 SDWAMCIV EQU SDWAERRD 02221000 SDWARPIV EQU SDWAERRD 02222000 SDWAMABD EQU SDWAERRD 02223000 SDWACTS EQU SDWAERRD 02224000 SDWASTAE EQU SDWAERRD 02225000 SDWACLUP EQU SDWAERRD 02226000 @NM00093 EQU SDWAERRC 02227000 SDWAEAS EQU SDWAERRC 02228000 SDWAPERC EQU SDWAERRC 02229000 SDWAIRB EQU SDWAERRC 02230000 SDWASTAI EQU SDWAERRC 02231000 SDWASTAF EQU SDWAERRC 02232000 SDWALDIS EQU SDWAERRB 02233000 SDWAENRB EQU SDWAERRB 02234000 SDWATYP1 EQU SDWAERRB 02235000 @NM00092 EQU SDWAERRB 02236000 SDWAPGIO EQU SDWAERRA 02237000 SDWATEXC EQU SDWAERRA 02238000 SDWASVCE EQU SDWAERRA 02239000 SDWAABTM EQU SDWAERRA 02240000 SDWASVCD EQU SDWAERRA 02241000 SDWARKEY EQU SDWAERRA 02242000 SDWAPCHK EQU SDWAERRA 02243000 SDWAMCHK EQU SDWAERRA 02244000 SDWATIME EQU SDWAMCH+20 02245000 SDWARFSA EQU SDWAMCH+16 02246000 @NM00091 EQU SDWAMCH+14 02247000 SDWAVEQR EQU SDWARSR2 02248000 SDWAPGFX EQU SDWARSR2 02249000 SDWAFLSQ EQU SDWARSR2 02250000 SDWAFSQA EQU SDWARSR2 02251000 SDWANUCL EQU SDWARSR2 02252000 SDWASPER EQU SDWARSR2 02253000 SDWAINTC EQU SDWARSR2 02254000 SDWAOFLN EQU SDWARSR2 02255000 SDWACHNG EQU SDWARSR1 02256000 SDWAMSER EQU SDWARSR1 02257000 @NM00090 EQU SDWARSR1 02258000 SDWACPID EQU SDWAMCH+10 02259000 SDWATERR EQU SDWAMCHD 02260000 SDWAFPRX EQU SDWAMCHD 02261000 SDWAINSF EQU SDWAMCHD 02262000 SDWAACR EQU SDWAMCHD 02263000 SDWASCK EQU SDWAMCHD 02264000 SDWAPSWU EQU SDWAMCHD 02265000 SDWAREGU EQU SDWAMCHD 02266000 SDWASKYF EQU SDWAMCHD 02267000 @NM00089 EQU SDWAMCHS 02268000 SDWARSRF EQU SDWAMCHS 02269000 SDWARSRC EQU SDWAMCHS 02270000 SDWAINVP EQU SDWAMCHS 02271000 SDWATSVL EQU SDWAMCHS 02272000 SDWARCDF EQU SDWAMCHS 02273000 SDWASRVL EQU SDWAMCHS 02274000 SDWASCKE EQU SDWASTCK+4 02275000 SDWASCKB EQU SDWASTCK 02276000 SDWALNTH EQU SDWAIDNT+1 02277000 SDWASPID EQU SDWAIDNT 02278000 SDWASR15 EQU SDWASRSV+60 02279000 SDWASR14 EQU SDWASRSV+56 02280000 SDWASR13 EQU SDWASRSV+52 02281000 SDWASR12 EQU SDWASRSV+48 02282000 SDWASR11 EQU SDWASRSV+44 02283000 SDWASR10 EQU SDWASRSV+40 02284000 SDWASR09 EQU SDWASRSV+36 02285000 SDWASR08 EQU SDWASRSV+32 02286000 SDWASR07 EQU SDWASRSV+28 02287000 SDWASR06 EQU SDWASRSV+24 02288000 SDWASR05 EQU SDWASRSV+20 02289000 SDWASR04 EQU SDWASRSV+16 02290000 SDWASR03 EQU SDWASRSV+12 02291000 SDWASR02 EQU SDWASRSV+8 02292000 SDWASR01 EQU SDWASRSV+4 02293000 SDWASR00 EQU SDWASRSV 02294000 SDWATRN2 EQU SDWAAEC2+4 02295000 SDWAIPC2 EQU SDWAICD2 02296000 SDWAIMC2 EQU SDWAICD2 02297000 SDWAIPR2 EQU SDWAICD2 02298000 @NM00088 EQU SDWAINC2 02299000 @NM00087 EQU SDWAILC2 02300000 SDWAIL2 EQU SDWAILC2 02301000 @NM00086 EQU SDWAILC2 02302000 @NM00085 EQU SDWAAEC2 02303000 @NM00084 EQU SDWANXT2 02304000 @NM00083 EQU SDWAEC2+3 02305000 SDWASGN2 EQU SDWAINT2 02306000 SDWAEXP2 EQU SDWAINT2 02307000 SDWADEC2 EQU SDWAINT2 02308000 SDWAFPO2 EQU SDWAINT2 02309000 SDWACC2 EQU SDWAINT2 02310000 @NM00082 EQU SDWAINT2 02311000 SDWAPGM2 EQU SDWAMWP2 02312000 SDWAWAT2 EQU SDWAMWP2 02313000 SDWAMCK2 EQU SDWAMWP2 02314000 SDWAECT2 EQU SDWAMWP2 02315000 SDWAKEY2 EQU SDWAMWP2 02316000 SDWAEXT2 EQU SDWAEMK2 02317000 SDWAIO2 EQU SDWAEMK2 02318000 SDWATRM2 EQU SDWAEMK2 02319000 @NM00081 EQU SDWAEMK2 02320000 SDWAPER2 EQU SDWAEMK2 02321000 @NM00080 EQU SDWAEMK2 02322000 SDWATRAN EQU SDWAAEC1+4 02323000 SDWAIPC1 EQU SDWAICD1 02324000 SDWAIMC1 EQU SDWAICD1 02325000 SDWAIPR1 EQU SDWAICD1 02326000 @NM00079 EQU SDWAINC1 02327000 @NM00078 EQU SDWAILC1 02328000 SDWAIL1 EQU SDWAILC1 02329000 @NM00077 EQU SDWAILC1 02330000 @NM00076 EQU SDWAAEC1 02331000 SDWAADD1 EQU SDWANXT1+1 02332000 @NM00075 EQU SDWANXT1 02333000 @NM00074 EQU SDWAEC1+3 02334000 SDWASGN1 EQU SDWAINT1 02335000 SDWAEXP1 EQU SDWAINT1 02336000 SDWADEC1 EQU SDWAINT1 02337000 SDWAFPO1 EQU SDWAINT1 02338000 SDWACC1 EQU SDWAINT1 02339000 @NM00073 EQU SDWAINT1 02340000 SDWAPGM1 EQU SDWAMWP1 02341000 SDWAWAT1 EQU SDWAMWP1 02342000 SDWAMCK1 EQU SDWAMWP1 02343000 SDWAECT1 EQU SDWAMWP1 02344000 SDWAKEY1 EQU SDWAMWP1 02345000 SDWAEXT1 EQU SDWAEMK1 02346000 SDWAIO1 EQU SDWAEMK1 02347000 SDWATRM1 EQU SDWAEMK1 02348000 @NM00072 EQU SDWAEMK1 02349000 SDWAPER1 EQU SDWAEMK1 02350000 @NM00071 EQU SDWAEMK1 02351000 SDWAIOBR EQU SDWA+100 02352000 SDWAEPA EQU SDWA+96 02353000 @NM00070 EQU SDWANAME+4 02354000 SDWARBAD EQU SDWANAME 02355000 SDWAGR15 EQU SDWAGRSV+60 02356000 SDWAGR14 EQU SDWAGRSV+56 02357000 SDWAGR13 EQU SDWAGRSV+52 02358000 SDWAGR12 EQU SDWAGRSV+48 02359000 SDWAGR11 EQU SDWAGRSV+44 02360000 SDWAGR10 EQU SDWAGRSV+40 02361000 SDWAGR09 EQU SDWAGRSV+36 02362000 SDWAGR08 EQU SDWAGRSV+32 02363000 SDWAGR07 EQU SDWAGRSV+28 02364000 SDWAGR06 EQU SDWAGRSV+24 02365000 SDWAGR05 EQU SDWAGRSV+20 02366000 SDWAGR04 EQU SDWAGRSV+16 02367000 SDWAGR03 EQU SDWAGRSV+12 02368000 SDWAGR02 EQU SDWAGRSV+8 02369000 SDWAGR01 EQU SDWAGRSV+4 02370000 SDWAGR00 EQU SDWAGRSV 02371000 SDWANXTP EQU SDWACTL2+5 02372000 SDWASGP EQU SDWAPMKP 02373000 SDWAEUP EQU SDWAPMKP 02374000 SDWADOP EQU SDWAPMKP 02375000 SDWAFPP EQU SDWAPMKP 02376000 SDWACCP EQU SDWAPMKP 02377000 SDWAILP EQU SDWAPMKP 02378000 SDWAINTP EQU SDWACTL2+2 02379000 SDWASPVP EQU SDWAMWPP 02380000 SDWAWATP EQU SDWAMWPP 02381000 SDWAMCKP EQU SDWAMWPP 02382000 @NM00069 EQU SDWAMWPP 02383000 SDWAKEYP EQU SDWAMWPP 02384000 SDWAEXTP EQU SDWACMKP 02385000 SDWAIOP EQU SDWACMKP 02386000 SDWANXTA EQU SDWACTL1+5 02387000 SDWASGA EQU SDWAPMKA 02388000 SDWAEUA EQU SDWAPMKA 02389000 SDWADOA EQU SDWAPMKA 02390000 SDWAFPA EQU SDWAPMKA 02391000 SDWACCA EQU SDWAPMKA 02392000 SDWAILA EQU SDWAPMKA 02393000 SDWAINTA EQU SDWACTL1+2 02394000 SDWASPVA EQU SDWAMWPA 02395000 SDWAWATA EQU SDWAMWPA 02396000 SDWAMCKA EQU SDWAMWPA 02397000 @NM00068 EQU SDWAMWPA 02398000 SDWAKEYA EQU SDWAMWPA 02399000 SDWAEXTA EQU SDWACMKA 02400000 SDWAIOA EQU SDWACMKA 02401000 SDWACMPC EQU SDWAABCC+1 02402000 @NM00067 EQU SDWACMPF 02403000 SDWASTCC EQU SDWACMPF 02404000 @NM00066 EQU SDWACMPF 02405000 SDWASTEP EQU SDWACMPF 02406000 SDWAREQ EQU SDWACMPF 02407000 @NM00065 EQU SCVTSECT+180 02408000 @NM00064 EQU SCVTSECT+176 02409000 SCVTPIQE EQU SCVTSECT+172 02410000 @NM00063 EQU SCVTSECT+168 02411000 @NM00062 EQU SCVTSECT+160 02412000 @NM00061 EQU SCVTSECT+156 02413000 SCVTQCBR EQU SCVTSECT+152 02414000 SCVTSTAT EQU SCVTSECT+148 02415000 @NM00060 EQU SCVTSECT+144 02416000 SCVTTQE EQU SCVTSECT+140 02417000 @NM00059 EQU SCVTSECT+136 02418000 SCVTSVCT EQU SCVTSECT+132 02419000 @NM00058 EQU SCVTSECT+128 02420000 @NM00057 EQU SCVTSECT+124 02421000 SCVTRXLQ EQU SCVTSECT+120 02422000 @NM00056 EQU SCVTSECT+116 02423000 SCVTCTCB EQU SCVTSECT+112 02424000 @NM00055 EQU SCVTSECT+108 02425000 @NM00054 EQU SCVTSECT+104 02426000 @NM00053 EQU SCVTSECT+100 02427000 @NM00052 EQU SCVTSECT+96 02428000 SCVTCOMM EQU SCVTSECT+92 02429000 @NM00051 EQU SCVTSECT+88 02430000 @NM00050 EQU SCVTSECT+84 02431000 @NM00049 EQU SCVTSECT+80 02432000 @NM00048 EQU SCVTSECT+76 02433000 @NM00047 EQU SCVTSECT+72 02434000 SCVTGMBR EQU SCVTSECT+68 02435000 SCVTRPTR EQU SCVTSECT+64 02436000 SCVTHSKP EQU SCVTSECT+60 02437000 @NM00046 EQU SCVTSECT+56 02438000 @NM00045 EQU SCVTSECT+52 02439000 SCVTLFRM EQU SCVTSECT+48 02440000 SCVTCDCL EQU SCVTSECT+44 02441000 @NM00044 EQU SCVTSECT+40 02442000 SCVTRACE EQU SCVTSECT+36 02443000 @NM00043 EQU SCVTSECT+32 02444000 SCVTRMBR EQU SCVTSECT+28 02445000 @NM00042 EQU SCVTSECT+24 02446000 @NM00041 EQU SCVTSECT+20 02447000 @NM00040 EQU SCVTSECT+16 02448000 @NM00039 EQU SCVTSECT+14 02449000 SCVTBR14 EQU SCVTSECT+12 02450000 SCVTSPET EQU SCVTSECT+8 02451000 SCVTPGWR EQU SCVTSECT+4 02452000 SCVTPGTM EQU SCVTSECT 02453000 @NM00038 EQU PCCA+512 02454000 PCCACAT EQU PCCA+384 02455000 PCCARV36 EQU PCCA+380 02456000 PCCARV35 EQU PCCA+378 02457000 PCCARV01 EQU PCCA+377 02458000 PCCACPUM EQU PCCA+376 02459000 PCCARV63 EQU PCCA+372 02460000 PCCARV62 EQU PCCA+368 02461000 PCCARV61 EQU PCCA+364 02462000 PCCARV60 EQU PCCA+360 02463000 PCCARV59 EQU PCCA+356 02464000 PCCARV58 EQU PCCA+352 02465000 PCCARV57 EQU PCCA+348 02466000 PCCARV56 EQU PCCA+344 02467000 PCCARV55 EQU PCCA+340 02468000 PCCARV54 EQU PCCA+336 02469000 PCCALOGA EQU PCCA+332 02470000 PCCACHID EQU PCCA+324 02471000 PCCACHSV EQU PCCA+312 02472000 PCCARV79 EQU PCCACHF4 02473000 PCCARV78 EQU PCCACHF4 02474000 PCCARV77 EQU PCCACHF4 02475000 PCCARV76 EQU PCCACHF4 02476000 PCCARV75 EQU PCCACHF4 02477000 PCCARV74 EQU PCCACHF4 02478000 PCCARV73 EQU PCCACHF4 02479000 PCCARV72 EQU PCCACHF4 02480000 PCCARV71 EQU PCCACHF3 02481000 PCCARV70 EQU PCCACHF3 02482000 PCCARV69 EQU PCCACHF3 02483000 PCCARV68 EQU PCCACHF3 02484000 PCCARV67 EQU PCCACHF3 02485000 PCCARV66 EQU PCCACHF3 02486000 PCCARV65 EQU PCCACHF3 02487000 PCCARV64 EQU PCCACHF3 02488000 PCCACF28 EQU PCCACHF2 02489000 PCCACF27 EQU PCCACHF2 02490000 PCCACF26 EQU PCCACHF2 02491000 PCCACF25 EQU PCCACHF2 02492000 PCCACF24 EQU PCCACHF2 02493000 PCCACF23 EQU PCCACHF2 02494000 PCCACF22 EQU PCCACHF2 02495000 PCCACF21 EQU PCCACHF2 02496000 PCCACF18 EQU PCCACHF1 02497000 PCCACF17 EQU PCCACHF1 02498000 PCCACF16 EQU PCCACHF1 02499000 PCCACF15 EQU PCCACHF1 02500000 PCCACF14 EQU PCCACHF1 02501000 PCCACF13 EQU PCCACHF1 02502000 PCCACF12 EQU PCCACHF1 02503000 PCCACF11 EQU PCCACHF1 02504000 PCCARV05 EQU PCCA+306 02505000 PCCACHPB EQU PCCA+305 02506000 PCCALGP2 EQU PCCA+304 02507000 PCCALGP1 EQU PCCA+303 02508000 PCCALOGL EQU PCCA+302 02509000 PCCARV80 EQU PCCA+300 02510000 PCCACHW2 EQU PCCA+296 02511000 PCCACHW1 EQU PCCA+292 02512000 PCCAIOSI EQU PCCA+291 02513000 PCCACNRB EQU PCCACHRB 02514000 PCCACCVB EQU PCCACHRB 02515000 PCCACSNB EQU PCCACHRB 02516000 PCCARV52 EQU PCCACHRB 02517000 PCCACHIB EQU PCCACHRB 02518000 PCCACTIB EQU PCCACHRB 02519000 PCCACINB EQU PCCACHRB 02520000 PCCACSIB EQU PCCACHRB 02521000 PCCARV51 EQU PCCACHS2 02522000 PCCARV50 EQU PCCACHS2 02523000 PCCACCRA EQU PCCACHS2 02524000 PCCACURC EQU PCCACHS2 02525000 PCCACNLG EQU PCCACHS2 02526000 PCCACMOD EQU PCCACHS2 02527000 PCCACALT EQU PCCACHS2 02528000 PCCACIOR EQU PCCACHS2 02529000 PCCARV47 EQU PCCACHS1 02530000 PCCACUCB EQU PCCACHS1 02531000 PCCACIBC EQU PCCACHS1 02532000 PCCACAND EQU PCCACHS1 02533000 PCCACNLS EQU PCCACHS1 02534000 PCCACFRR EQU PCCACHS1 02535000 PCCACNRE EQU PCCACHS1 02536000 PCCACCMP EQU PCCACHS1 02537000 PCCACSEQ EQU PCCACHTS 02538000 PCCACDIN EQU PCCACHTS 02539000 PCCARV44 EQU PCCACHTS 02540000 PCCARV43 EQU PCCACHTS 02541000 PCCACTEC EQU PCCACHTS 02542000 PCCACDAV EQU PCCACHVA 02543000 PCCACCHV EQU PCCACHVA 02544000 PCCACCMD EQU PCCACHVA 02545000 PCCACUNS EQU PCCACHVA 02546000 PCCACSQV EQU PCCACHVA 02547000 PCCARV42 EQU PCCACHVA 02548000 PCCARV41 EQU PCCACHVA 02549000 PCCACITF EQU PCCACHVA 02550000 PCCARV40 EQU PCCACHBL 02551000 PCCARV39 EQU PCCACHBL 02552000 PCCARV38 EQU PCCACHBL 02553000 PCCACCUE EQU PCCACHBL 02554000 PCCACSTG EQU PCCACHBL 02555000 PCCACSCU EQU PCCACHBL 02556000 PCCACCHA EQU PCCACHBL 02557000 PCCACCPU EQU PCCACHBL 02558000 PCCACNOR EQU PCCACHPF 02559000 PCCACCNT EQU PCCACHPF 02560000 PCCACSNS EQU PCCACHPF 02561000 PCCARV37 EQU PCCACHPF 02562000 PCCACHIO EQU PCCACHPF 02563000 PCCACTIO EQU PCCACHPF 02564000 PCCACINT EQU PCCACHPF 02565000 PCCACSIO EQU PCCACHPF 02566000 PCCACHUB EQU PCCAWERP 02567000 PCCACHEL EQU PCCA+168 02568000 PCCALRBR EQU PCCA+164 02569000 PCCALRBV EQU PCCA+160 02570000 PCCAPWAR EQU PCCA+156 02571000 PCCAPWAV EQU PCCA+152 02572000 PCCAEMSA EQU PCCAEMSB+12 02573000 PCCAEMSE EQU PCCAEMSB+8 02574000 PCCAEMSP EQU PCCAEMSB+4 02575000 PCCARMS EQU PCCARMSB 02576000 PCCARV34 EQU PCCARMSB 02577000 PCCARV33 EQU PCCARMSB 02578000 PCCARV32 EQU PCCARMSB 02579000 PCCARV31 EQU PCCARMSB 02580000 PCCARV30 EQU PCCARMSB 02581000 PCCARV29 EQU PCCARMSB 02582000 PCCARV28 EQU PCCARMSB 02583000 PCCARV27 EQU PCCAEMS3 02584000 PCCARV26 EQU PCCAEMS3 02585000 PCCARV25 EQU PCCAEMS3 02586000 PCCARV24 EQU PCCAEMS3 02587000 PCCARV23 EQU PCCAEMS3 02588000 PCCARV22 EQU PCCAEMS3 02589000 PCCARV21 EQU PCCAEMS3 02590000 PCCARV20 EQU PCCAEMS3 02591000 PCCARV19 EQU PCCAEMS2 02592000 PCCARV18 EQU PCCAEMS2 02593000 PCCARV17 EQU PCCAEMS2 02594000 PCCARV16 EQU PCCAEMS2 02595000 PCCARV15 EQU PCCAEMS2 02596000 PCCARV14 EQU PCCAEMS2 02597000 PCCARV13 EQU PCCAEMS2 02598000 PCCARV12 EQU PCCAEMS2 02599000 PCCARV11 EQU PCCARISP 02600000 PCCARV10 EQU PCCARISP 02601000 PCCARV09 EQU PCCARISP 02602000 PCCARV08 EQU PCCARISP 02603000 PCCARV07 EQU PCCARISP 02604000 PCCARV06 EQU PCCARISP 02605000 PCCASERL EQU PCCARISP 02606000 PCCAPARL EQU PCCARISP 02607000 PCCARPB EQU PCCA+132 02608000 PCCACTIN EQU PCCAINTE 02609000 PCCANFIN EQU PCCAINTE 02610000 PCCANUIN EQU PCCAINTE 02611000 PCCACTCC EQU PCCACCE 02612000 PCCANFCC EQU PCCACCE 02613000 PCCANUCC EQU PCCACCE 02614000 PCCACTTD EQU PCCATODE 02615000 PCCANFTD EQU PCCATODE 02616000 PCCANUTD EQU PCCATODE 02617000 PCCARV04 EQU PCCATMFL 02618000 PCCARV03 EQU PCCATMFL 02619000 PCCARV02 EQU PCCATMFL 02620000 PCCAMINT EQU PCCATMFL 02621000 PCCAMCC EQU PCCATMFL 02622000 PCCAVKIL EQU PCCATMFL 02623000 PCCASYNC EQU PCCATMFL 02624000 PCCAINIT EQU PCCATMFL 02625000 PCCARV9E EQU PCCA+124 02626000 PCCARV9D EQU PCCA+120 02627000 PCCARV9C EQU PCCA+116 02628000 PCCARV9B EQU PCCA+112 02629000 PCCARV9A EQU PCCA+108 02630000 PCCARV99 EQU PCCA+104 02631000 PCCARV98 EQU PCCA+100 02632000 PCCARV97 EQU PCCA+96 02633000 PCCARV96 EQU PCCA+92 02634000 PCCARV95 EQU PCCA+88 02635000 PCCARV94 EQU PCCA+84 02636000 PCCARV93 EQU PCCA+80 02637000 PCCARV92 EQU PCCA+76 02638000 PCCARV91 EQU PCCA+72 02639000 PCCARV90 EQU PCCA+68 02640000 PCCARV89 EQU PCCA+64 02641000 PCCARV88 EQU PCCA+60 02642000 PCCARV87 EQU PCCA+56 02643000 PCCARV86 EQU PCCA+52 02644000 PCCARV85 EQU PCCA+48 02645000 PCCARV84 EQU PCCA+44 02646000 PCCARV83 EQU PCCA+40 02647000 PCCARV82 EQU PCCA+36 02648000 PCCARV81 EQU PCCA+32 02649000 PCCAPSAR EQU PCCA+28 02650000 PCCATQEP EQU PCCA+20 02651000 PCCACAFM EQU PCCA+18 02652000 PCCACPUA EQU PCCA+16 02653000 PCCACPID EQU PCCA+4 02654000 PCCAPCCA EQU PCCA 02655000 @NM00037 EQU CSD+160 02656000 CSDMASK EQU CSD+128 02657000 CSDUCNT EQU CSD+124 02658000 CSDTCNT EQU CSD+120 02659000 CSDGDTOD EQU CSD+116 02660000 CSDGDINT EQU CSD+112 02661000 CSDGDCC EQU CSD+108 02662000 CSDDDRCT EQU CSD+106 02663000 CSDRV044 EQU CSD+104 02664000 CSDMAFF EQU CSD+24 02665000 CSDRV038 EQU CSDFLAGS 02666000 CSDRV037 EQU CSDFLAGS 02667000 CSDRV036 EQU CSDFLAGS 02668000 CSDRV035 EQU CSDFLAGS 02669000 CSDRV034 EQU CSDFLAGS 02670000 CSDRV033 EQU CSDFLAGS 02671000 CSDRV032 EQU CSDFLAGS 02672000 CSDMP EQU CSDFLAGS 02673000 CSDMF1CP EQU CSD+20 02674000 CSDRV043 EQU CSD+16 02675000 CSDRV030 EQU CSDSCFL4 02676000 CSDRV029 EQU CSDSCFL4 02677000 CSDRV028 EQU CSDSCFL4 02678000 CSDRV027 EQU CSDSCFL4 02679000 CSDRV026 EQU CSDSCFL4 02680000 CSDRV025 EQU CSDSCFL4 02681000 CSDRV024 EQU CSDSCFL4 02682000 CSDRV023 EQU CSDSCFL4 02683000 CSDRV022 EQU CSDSCFL3 02684000 CSDRV021 EQU CSDSCFL3 02685000 CSDRV020 EQU CSDSCFL3 02686000 CSDRV019 EQU CSDSCFL3 02687000 CSDRV018 EQU CSDSCFL3 02688000 CSDRV017 EQU CSDSCFL3 02689000 CSDRV016 EQU CSDSCFL3 02690000 CSDRV015 EQU CSDSCFL3 02691000 CSDRV014 EQU CSDSCFL2 02692000 CSDRV013 EQU CSDSCFL2 02693000 CSDRV012 EQU CSDSCFL2 02694000 CSDRV011 EQU CSDSCFL2 02695000 CSDRV010 EQU CSDSCFL2 02696000 CSDRV009 EQU CSDSCFL2 02697000 CSDRV008 EQU CSDSCFL2 02698000 CSDRV007 EQU CSDSCFL2 02699000 CSDRV006 EQU CSDSCFL1 02700000 CSDRV005 EQU CSDSCFL1 02701000 CSDRV004 EQU CSDSCFL1 02702000 CSDRV003 EQU CSDSCFL1 02703000 CSDRV002 EQU CSDSCFL1 02704000 CSDRV001 EQU CSDSCFL1 02705000 CSDSYSND EQU CSDSCFL1 02706000 CSDRV042 EQU CSDSCFL1 02707000 CSDSAFF EQU CSDCPUAL 02708000 CSDCHAD EQU CSD+6 02709000 CSDCPUJS EQU CSD+4 02710000 CSDCSD EQU CSD 02711000 ASCBEND EQU ASCB+208 02712000 ASCBSRBT EQU ASCB+200 02713000 ASCBSWTL EQU ASCB+196 02714000 ASCBRS14 EQU ASCB+195 02715000 ASCBSMCT EQU ASCB+194 02716000 ASCBRS12 EQU ASCB+192 02717000 ASCBPCTT EQU ASCB+188 02718000 ASCBVGTT EQU ASCB+184 02719000 ASCBRV43 EQU ASCBSRQ4 02720000 ASCBRV42 EQU ASCBSRQ4 02721000 ASCBRV41 EQU ASCBSRQ4 02722000 ASCBRV40 EQU ASCBSRQ4 02723000 ASCBRV39 EQU ASCBSRQ4 02724000 ASCBRV38 EQU ASCBSRQ4 02725000 ASCBRV37 EQU ASCBSRQ4 02726000 ASCBRV36 EQU ASCBSRQ4 02727000 ASCBRV35 EQU ASCBSRQ3 02728000 ASCBRV34 EQU ASCBSRQ3 02729000 ASCBRV33 EQU ASCBSRQ3 02730000 ASCBRV32 EQU ASCBSRQ3 02731000 ASCBRV31 EQU ASCBSRQ3 02732000 ASCBRV30 EQU ASCBSRQ3 02733000 ASCBRV29 EQU ASCBSRQ3 02734000 ASCBRV28 EQU ASCBSRQ3 02735000 ASCBRV27 EQU ASCBSRQ2 02736000 ASCBRV26 EQU ASCBSRQ2 02737000 ASCBRV25 EQU ASCBSRQ2 02738000 ASCBRV24 EQU ASCBSRQ2 02739000 ASCBRV23 EQU ASCBSRQ2 02740000 ASCBRV22 EQU ASCBSRQ2 02741000 ASCBRV21 EQU ASCBSRQ2 02742000 ASCBRV20 EQU ASCBSRQ2 02743000 ASCBRV19 EQU ASCBSRQ1 02744000 ASCBRV18 EQU ASCBSRQ1 02745000 ASCBRV17 EQU ASCBSRQ1 02746000 ASCBRV16 EQU ASCBSRQ1 02747000 ASCBRV15 EQU ASCBSRQ1 02748000 ASCBRV14 EQU ASCBSRQ1 02749000 ASCBRV13 EQU ASCBSRQ1 02750000 ASCBSTA EQU ASCBSRQ1 02751000 ASCBJBNS EQU ASCB+176 02752000 ASCBJBNI EQU ASCB+172 02753000 ASCBMCC EQU ASCB+168 02754000 ASCBRTWA EQU ASCB+164 02755000 ASCBIQEA EQU ASCB+160 02756000 ASCBXMPQ EQU ASCB+156 02757000 ASCBRS01 EQU ASCB+154 02758000 ASCBFMCT EQU ASCB+152 02759000 ASCBOUXB EQU ASCB+148 02760000 ASCBOUCB EQU ASCB+144 02761000 ASCBMECB EQU ASCB+140 02762000 ASCBQECB EQU ASCB+136 02763000 ASCBLSQH EQU ASCBLKGP+4 02764000 ASCBLOCK EQU ASCBLKGP 02765000 ASCBTCBS EQU ASCB+124 02766000 ASCBNVSC EQU ASCB+122 02767000 ASCBVSC EQU ASCB+120 02768000 ASCBSSRB EQU ASCB+116 02769000 ASCBRV06 EQU ASCBFLG2 02770000 ASCBRV05 EQU ASCBFLG2 02771000 ASCBRV04 EQU ASCBFLG2 02772000 ASCBSNQS EQU ASCBFLG2 02773000 ASCBS2S EQU ASCBFLG2 02774000 ASCBCEXT EQU ASCBFLG2 02775000 ASCBPXMT EQU ASCBFLG2 02776000 ASCBXMPT EQU ASCBFLG2 02777000 ASCBRF07 EQU ASCBDSP1 02778000 ASCBRF06 EQU ASCBDSP1 02779000 ASCBRF05 EQU ASCBDSP1 02780000 ASCBRF04 EQU ASCBDSP1 02781000 ASCBRF03 EQU ASCBDSP1 02782000 ASCBRF02 EQU ASCBDSP1 02783000 ASCBNOQ EQU ASCBDSP1 02784000 ASCBSWCT EQU ASCB+112 02785000 ASCBASXB EQU ASCB+108 02786000 ASCBNSWP EQU ASCBFLG1 02787000 ASCBTYP1 EQU ASCBFLG1 02788000 ASCBSTND EQU ASCBFLG1 02789000 ASCBTERM EQU ASCBFLG1 02790000 ASCBS3S EQU ASCBFLG1 02791000 ASCBCMSH EQU ASCBFLG1 02792000 ASCBTOFF EQU ASCBFLG1 02793000 ASCBRF01 EQU ASCBRCTF 02794000 ASCBTMLW EQU ASCBRCTF 02795000 ASCBOUT EQU ASCBRCTF 02796000 ASCBWAIT EQU ASCBRCTF 02797000 ASCBRV08 EQU ASCBRCTF 02798000 ASCBFQU EQU ASCBRCTF 02799000 ASCBFRS EQU ASCBRCTF 02800000 ASCBTMNO EQU ASCBRCTF 02801000 ASCBAFFN EQU ASCBFW1 02802000 ASCBDUMP EQU ASCB+96 02803000 ASCBRV44 EQU ASCB+92 02804000 ASCBUBET EQU ASCB+88 02805000 ASCBECB EQU ASCB+84 02806000 ASCBJSTL EQU ASCB+80 02807000 ASCBEWST EQU ASCB+72 02808000 ASCBEJST EQU ASCB+64 02809000 ASCBTSB EQU ASCB+60 02810000 ASCBCSCB EQU ASCB+56 02811000 ASCBRSM EQU ASCB+52 02812000 ASCBLDA EQU ASCB+48 02813000 ASCBSTOR EQU ASCB+44 02814000 ASCBDP EQU ASCB+43 02815000 ASCBRV07 EQU ASCB+42 02816000 ASCBIOSM EQU ASCB+40 02817000 ASCBSEQN EQU ASCB+38 02818000 ASCBSPL EQU ASCB+28 02819000 ASCBIOSP EQU ASCB+24 02820000 ASCBSYNC EQU ASCBSUPC+4 02821000 ASCBSVRB EQU ASCBSUPC 02822000 ASCBCMSF EQU ASCB+12 02823000 ASCBBWDP EQU ASCB+8 02824000 ASCBFWDP EQU ASCB+4 02825000 ASCBASCB EQU ASCB 02826000 ASCBEGIN EQU ASCB 02827000 RMPLDCBL EQU RMPL+20 02828000 RMPLRBPA EQU RMPL+12 02829000 RMPLTCBA EQU RMPL+8 02830000 RMPLFLG2 EQU RMPL+1 02831000 @NM00036 EQU RMPLFLG1 02832000 RMPLWT1M EQU RMPLFLG1 02833000 RMPLJST EQU RMPLFLG1 02834000 RMPLRCOV EQU RMPLFLG1 02835000 RMPLIPUF EQU RMPLFLG1 02836000 RMPLRBPP EQU RMPLFLG1 02837000 @NM00035 EQU SRB+40 02838000 @NM00034 EQU SRB+38 02839000 SRBFLNK EQU SRB+4 02840000 RTCTSDWK EQU RTCT+220 02841000 RTCTTDCB EQU RTCT+184 02842000 RTCTXYX2 EQU RTCT+180 02843000 RTCTXXX1 EQU RTCT+177 02844000 @NM00033 EQU RTCTRFLG 02845000 RTCTRSTF EQU RTCTRFLG 02846000 RTCTRPER EQU RTCTRFLG 02847000 RTCTRTER EQU RTCTRFLG 02848000 RTCTTEST EQU RTCT+172 02849000 RTCTFMT EQU RTCT+160 02850000 RTCTSDPL EQU RTCT+156 02851000 RTCTDEV EQU RTCTSDDS+8 02852000 RTCTDCB EQU RTCTSDDS+4 02853000 @NM00032 EQU RTCTFLG 02854000 RTCTDETP EQU RTCTFLG 02855000 RTCTDSUS EQU RTCTFLG 02856000 RTCTDSST EQU RTCTFLG 02857000 RTCTDSNM EQU RTCTSDDS 02858000 RTCTRCB EQU RTCT+32 02859000 RTCTRECB EQU RTCT+28 02860000 RTCTSDID EQU RTCT+18 02861000 RTCTSDEP EQU RTCTSDF2 02862000 RTCTSDDO EQU RTCTSDF2 02863000 RTCTSDEN EQU RTCTSDF2 02864000 RTCTSDTR EQU RTCTSDF2 02865000 RTCTSDPT EQU RTCTSDF2 02866000 RTCTSDSR EQU RTCTSDF2 02867000 RTCTSDSS EQU RTCTSDF2 02868000 RTCTSDSH EQU RTCTSDF2 02869000 @NM00031 EQU RTCTSDF1 02870000 RTCTSDND EQU RTCTSDF1 02871000 RTCTSDNO EQU RTCTSDF1 02872000 @NM00030 EQU RTCTABD+1 02873000 @NM00029 EQU RTCTIDMP 02874000 RTCTISVC EQU RTCTIDMP 02875000 RTCTISYU EQU RTCTIDMP 02876000 RTCTISAB EQU RTCTIDMP 02877000 @NM00028 EQU RTCTIDMP 02878000 @NM00027 EQU RTCTSDO2 02879000 RTCTSDPB EQU RTCTSDO2 02880000 RTCTSDPA EQU RTCTSDO2 02881000 RTCTSDP9 EQU RTCTSDO2 02882000 RTCTSDP8 EQU RTCTSDO2 02883000 RTCTSDP7 EQU RTCTSDO1 02884000 RTCTSDP6 EQU RTCTSDO1 02885000 RTCTSDP5 EQU RTCTSDO1 02886000 RTCTSDP4 EQU RTCTSDO1 02887000 RTCTSDP3 EQU RTCTSDO1 02888000 RTCTSDP2 EQU RTCTSDO1 02889000 RTCTSDP1 EQU RTCTSDO1 02890000 RTCTSDP0 EQU RTCTSDO1 02891000 RTCTSYDF EQU RTCTSUO2 02892000 RTCTSYDE EQU RTCTSUO2 02893000 RTCTSYDD EQU RTCTSUO2 02894000 RTCTSYDC EQU RTCTSUO2 02895000 RTCTSYDB EQU RTCTSUO2 02896000 RTCTSYDA EQU RTCTSUO2 02897000 RTCTSYD9 EQU RTCTSUO2 02898000 RTCTSYD8 EQU RTCTSUO2 02899000 RTCTSYD7 EQU RTCTSUO1 02900000 RTCTSYD6 EQU RTCTSUO1 02901000 RTCTSYD5 EQU RTCTSUO1 02902000 RTCTSYD4 EQU RTCTSUO1 02903000 RTCTSYD3 EQU RTCTSUO1 02904000 RTCTSYD2 EQU RTCTSUO1 02905000 RTCTSYD1 EQU RTCTSUO1 02906000 RTCTSYD0 EQU RTCTSUO1 02907000 RTCTSADF EQU RTCTSAO2 02908000 RTCTSADE EQU RTCTSAO2 02909000 RTCTSADD EQU RTCTSAO2 02910000 RTCTSADC EQU RTCTSAO2 02911000 RTCTSADB EQU RTCTSAO2 02912000 RTCTSADA EQU RTCTSAO2 02913000 RTCTSAD9 EQU RTCTSAO2 02914000 RTCTSAD8 EQU RTCTSAO2 02915000 RTCTSAD7 EQU RTCTSAO1 02916000 RTCTSAD6 EQU RTCTSAO1 02917000 RTCTSAD5 EQU RTCTSAO1 02918000 RTCTSAD4 EQU RTCTSAO1 02919000 RTCTSAD3 EQU RTCTSAO1 02920000 RTCTSAD2 EQU RTCTSAO1 02921000 RTCTSAD1 EQU RTCTSAO1 02922000 RTCTSAD0 EQU RTCTSAO1 02923000 RTCTSUDF EQU RTCTSUP2 02924000 RTCTSUDE EQU RTCTSUP2 02925000 RTCTSUDD EQU RTCTSUP2 02926000 RTCTSUDC EQU RTCTSUP2 02927000 RTCTSUDB EQU RTCTSUP2 02928000 RTCTSUDA EQU RTCTSUP2 02929000 RTCTSUD9 EQU RTCTSUP2 02930000 RTCTSUD8 EQU RTCTSUP2 02931000 RTCTSUD7 EQU RTCTSUP1 02932000 RTCTSUD6 EQU RTCTSUP1 02933000 RTCTSUD5 EQU RTCTSUP1 02934000 RTCTSUD4 EQU RTCTSUP1 02935000 RTCTSUD3 EQU RTCTSUP1 02936000 RTCTSUD2 EQU RTCTSUP1 02937000 RTCTSUD1 EQU RTCTSUP1 02938000 RTCTSUD0 EQU RTCTSUP1 02939000 RTCTSABF EQU RTCTSAP2 02940000 RTCTSABE EQU RTCTSAP2 02941000 RTCTSABD EQU RTCTSAP2 02942000 RTCTSABC EQU RTCTSAP2 02943000 RTCTSABB EQU RTCTSAP2 02944000 RTCTSABA EQU RTCTSAP2 02945000 RTCTSAB9 EQU RTCTSAP2 02946000 RTCTSAB8 EQU RTCTSAP2 02947000 RTCTSAB7 EQU RTCTSAP1 02948000 RTCTSAB6 EQU RTCTSAP1 02949000 RTCTSAB5 EQU RTCTSAP1 02950000 RTCTSAB4 EQU RTCTSAP1 02951000 RTCTSAB3 EQU RTCTSAP1 02952000 RTCTSAB2 EQU RTCTSAP1 02953000 RTCTSAB1 EQU RTCTSAP1 02954000 RTCTSAB0 EQU RTCTSAP1 02955000 RTCTNAME EQU RTCT 02956000 CVTLEVL EQU CVTRELNO+2 02957000 CVTNUMB EQU CVTRELNO 02958000 CVTMDL EQU CVTFIX+250 02959000 @NM00026 EQU CVTFIX+248 02960000 @NM00025 EQU CVTFIX 02961000 CVTRV482 EQU CVTXTNT2+128 02962000 CVTRV481 EQU CVTXTNT2+124 02963000 CVTRV480 EQU CVTXTNT2+120 02964000 CVTRV479 EQU CVTXTNT2+118 02965000 CVTRV478 EQU CVTXTNT2+117 02966000 CVTRV477 EQU CVTXTNT2+116 02967000 CVTRV476 EQU CVTXTNT2+115 02968000 CVTRV475 EQU CVTXTNT2+114 02969000 CVTRV474 EQU CVTRV466 02970000 CVTRV473 EQU CVTRV466 02971000 CVTRV472 EQU CVTRV466 02972000 CVTRV471 EQU CVTRV466 02973000 CVTRV470 EQU CVTRV466 02974000 CVTRV469 EQU CVTRV466 02975000 CVTRV468 EQU CVTRV466 02976000 CVTRV467 EQU CVTRV466 02977000 CVTRV465 EQU CVTRV457 02978000 CVTRV464 EQU CVTRV457 02979000 CVTRV463 EQU CVTRV457 02980000 CVTRV462 EQU CVTRV457 02981000 CVTRV461 EQU CVTRV457 02982000 CVTRV460 EQU CVTRV457 02983000 CVTRV459 EQU CVTRV457 02984000 CVTRV458 EQU CVTRV457 02985000 CVTRV456 EQU CVTXTNT2+108 02986000 CVTRV455 EQU CVTXTNT2+104 02987000 CVTRV454 EQU CVTXTNT2+100 02988000 CVTRV453 EQU CVTXTNT2+96 02989000 CVTRV452 EQU CVTXTNT2+94 02990000 CVTRV451 EQU CVTXTNT2+92 02991000 CVTRV450 EQU CVTXTNT2+90 02992000 CVTRV449 EQU CVTXTNT2+88 02993000 CVTRV448 EQU CVTXTNT2+87 02994000 CVTRV447 EQU CVTXTNT2+86 02995000 CVTRV446 EQU CVTRV438 02996000 CVTRV445 EQU CVTRV438 02997000 CVTRV444 EQU CVTRV438 02998000 CVTRV443 EQU CVTRV438 02999000 CVTRV442 EQU CVTRV438 03000000 CVTRV441 EQU CVTRV438 03001000 CVTRV440 EQU CVTRV438 03002000 CVTRV439 EQU CVTRV438 03003000 CVTRV437 EQU CVTRV429 03004000 CVTRV436 EQU CVTRV429 03005000 CVTRV435 EQU CVTRV429 03006000 CVTRV434 EQU CVTRV429 03007000 CVTRV433 EQU CVTRV429 03008000 CVTRV432 EQU CVTRV429 03009000 CVTRV431 EQU CVTRV429 03010000 CVTRV430 EQU CVTRV429 03011000 CVTRV428 EQU CVTXTNT2+80 03012000 CVTRV427 EQU CVTXTNT2+76 03013000 CVTRV426 EQU CVTXTNT2+72 03014000 CVTRV425 EQU CVTXTNT2+68 03015000 CVTATACT EQU CVTATCVT 03016000 CVTRV423 EQU CVTXTNT2+62 03017000 CVTRV422 EQU CVTXTNT2+60 03018000 CVTRV421 EQU CVTXTNT2+58 03019000 CVTRV420 EQU CVTXTNT2+56 03020000 CVTRV419 EQU CVTXTNT2+55 03021000 CVTRV418 EQU CVTXTNT2+54 03022000 CVTRV417 EQU CVTRV409 03023000 CVTRV416 EQU CVTRV409 03024000 CVTRV415 EQU CVTRV409 03025000 CVTRV414 EQU CVTRV409 03026000 CVTRV413 EQU CVTRV409 03027000 CVTRV412 EQU CVTRV409 03028000 CVTRV411 EQU CVTRV409 03029000 CVTRV410 EQU CVTRV409 03030000 CVTRV408 EQU CVTRV400 03031000 CVTRV407 EQU CVTRV400 03032000 CVTRV406 EQU CVTRV400 03033000 CVTRV405 EQU CVTRV400 03034000 CVTRV404 EQU CVTRV400 03035000 CVTRV403 EQU CVTRV400 03036000 CVTRV402 EQU CVTRV400 03037000 CVTRV401 EQU CVTRV400 03038000 CVTICB EQU CVTXTNT2+48 03039000 CVTSKTA EQU CVTXTNT2+44 03040000 CVTRSV99 EQU CVTXTNT2+40 03041000 CVTRSV98 EQU CVTXTNT2+36 03042000 CVTRSV97 EQU CVTXTNT2+34 03043000 CVTRSV96 EQU CVTXTNT2+32 03044000 CVTOLTEP EQU CVTXTNT2+28 03045000 CVTQIDA EQU CVTQID+1 03046000 CVTRSV95 EQU CVTQID 03047000 CVTRSV94 EQU CVTXTNT2+20 03048000 CVTRSV93 EQU CVTXTNT2+16 03049000 CVTRSV92 EQU CVTXTNT2+12 03050000 CVTDEBVR EQU CVTXTNT2+8 03051000 CVTRSV91 EQU CVTXTNT2+6 03052000 CVTRSV9H EQU CVTFLGBT 03053000 CVTRSV9G EQU CVTFLGBT 03054000 CVTRSV9F EQU CVTFLGBT 03055000 CVTRSV9E EQU CVTFLGBT 03056000 CVTRSV9D EQU CVTFLGBT 03057000 CVTRSV9C EQU CVTFLGBT 03058000 CVTVME EQU CVTFLGBT 03059000 CVTNPE EQU CVTFLGBT 03060000 CVTNUCLS EQU CVTXTNT2+4 03061000 CVTDSSVA EQU CVTDSSV+1 03062000 CVTRSV89 EQU CVTDSSV 03063000 CVTRSV88 EQU CVTXTNT1+8 03064000 CVTRSV87 EQU CVTXTNT1+4 03065000 CVTFACHN EQU CVTXTNT1 03066000 CVTRV488 EQU CVTMAP+412 03067000 CVTRV487 EQU CVTMAP+408 03068000 CVTRV486 EQU CVTMAP+404 03069000 CVTRV485 EQU CVTMAP+400 03070000 CVTACTAP EQU CVTMAP+396 03071000 CVTAUTH EQU CVTMAP+392 03072000 CVTATMCA EQU CVTATMCT+1 03073000 CVTATMST EQU CVTATMCT 03074000 CVTRSV61 EQU CVTMAP+384 03075000 CVTVOLT1 EQU CVTVOLM1+1 03076000 CVTVOLI1 EQU CVTVOLF1 03077000 CVTSTOA EQU CVTMAP+376 03078000 CVTRSV58 EQU CVTMAP+374 03079000 CVTRSV57 EQU CVTMAP+372 03080000 CVTDDCE EQU CVTMAP+368 03081000 CVTPNWFR EQU CVTMAP+364 03082000 CVTSMF EQU CVTMAP+360 03083000 CVTSULK EQU CVTMAP+358 03084000 CVTSLKO EQU CVTSYSK 03085000 CVTSLKP EQU CVTSYSK 03086000 CVTSLKQ EQU CVTSYSK 03087000 CVTSLKR EQU CVTSYSK 03088000 CVTRSV56 EQU CVTSYSK 03089000 CVTRSV55 EQU CVTSYSK 03090000 CVTRSV54 EQU CVTSYSK 03091000 CVTRSV53 EQU CVTSYSK 03092000 CVTRSV52 EQU CVTA1F1 03093000 CVTRSV51 EQU CVTA1F1 03094000 CVTRSV50 EQU CVTA1F1 03095000 CVTRSV49 EQU CVTA1F1 03096000 CVTRSV48 EQU CVTA1F1 03097000 CVTRSV47 EQU CVTA1F1 03098000 CVTSRSW EQU CVTA1F1 03099000 CVTPFSW EQU CVTA1F1 03100000 CVTPCVT EQU CVTMAP+352 03101000 CVTRSV46 EQU CVTMAP+344 03102000 CVTRSV45 EQU CVTMAP+340 03103000 CVTRSV44 EQU CVTMAP+338 03104000 CVTRSV43 EQU CVTMAP+336 03105000 CVTHJESA EQU CVTHJES+1 03106000 CVTRSV42 EQU CVTHJES 03107000 CVTEXT2A EQU CVTEXT2+1 03108000 CVTRSV41 EQU CVTEXT2 03109000 CVTAPFA EQU CVTAPF+1 03110000 CVTRSV40 EQU CVTAPF 03111000 CVTRV518 EQU CVTINTLA 03112000 CVTRV517 EQU CVTERPV 03113000 CVTEORM EQU CVTMAP+312 03114000 CVTMCHPR EQU CVTMAP+308 03115000 CVTTZ EQU CVTMAP+304 03116000 CVTJEPS EQU CVTMAP+300 03117000 CVTJESCT EQU CVTMAP+296 03118000 CVTMODE EQU CVTMAP+292 03119000 CVTPTRV EQU CVTMAP+288 03120000 CVTREAL EQU CVTMAP+284 03121000 CVTRSV39 EQU CVTMAP+280 03122000 CVTRSV38 EQU CVTMAP+276 03123000 CVTDMSRA EQU CVTDMSR+1 03124000 CVTRV634 EQU CVTDMSRF 03125000 CVTRV633 EQU CVTDMSRF 03126000 CVTRV632 EQU CVTDMSRF 03127000 CVTRV631 EQU CVTDMSRF 03128000 CVTRV630 EQU CVTDMSRF 03129000 CVTRV629 EQU CVTDMSRF 03130000 CVTUDUMP EQU CVTDMSRF 03131000 CVTSDUMP EQU CVTDMSRF 03132000 CVTQMSGA EQU CVTQMSG+1 03133000 CVTRSV36 EQU CVTQMSG 03134000 CVTAMFF EQU CVTMAP+264 03135000 CVTPURGA EQU CVTPURG+1 03136000 CVTRSV35 EQU CVTPURG 03137000 CVTCBSP EQU CVTMAP+256 03138000 CVTATERA EQU CVTATER+1 03139000 CVTSYST EQU CVTATER 03140000 CVTVOLT2 EQU CVTTAT 03141000 CVTVOLI2 EQU CVTVOLF2 03142000 CVTAQAVB EQU CVTAQAVT+1 03143000 CVTRSV34 EQU CVTTCMFG 03144000 CVTRSV33 EQU CVTTCMFG 03145000 CVTRSV32 EQU CVTTCMFG 03146000 CVTRSV31 EQU CVTTCMFG 03147000 CVTRSV30 EQU CVTTCMFG 03148000 CVTRSV29 EQU CVTTCMFG 03149000 CVTRSV28 EQU CVTTCMFG 03150000 CVTTCRDY EQU CVTTCMFG 03151000 CVTGTFA EQU CVTGTF+1 03152000 CVTRSV27 EQU CVTGTFST 03153000 CVTRNIO EQU CVTGTFST 03154000 CVTUSR EQU CVTGTFST 03155000 CVTRV318 EQU CVTFORM 03156000 CVTRV317 EQU CVTTMODE 03157000 CVTRV316 EQU CVTSTATE 03158000 CVTRV315 EQU CVTGTFS 03159000 CVTGTFAV EQU CVTGTFS 03160000 CVT0SCR1 EQU CVTMAP+232 03161000 CVTRV515 EQU CVTMAP+228 03162000 CVTRMS EQU CVTMAP+224 03163000 CVTPATCH EQU CVTMAP+220 03164000 CVTTSCE EQU CVTMAP+216 03165000 CVTLNKSC EQU CVTMAP+214 03166000 CVTQABST EQU CVTMAP+212 03167000 CVTMDLDS EQU CVTMAP+208 03168000 CVTUSER EQU CVTMAP+204 03169000 CVTSMCA EQU CVTMAP+196 03170000 CVTRSV18 EQU CVTMAP+192 03171000 CVTQLPAQ EQU CVTMAP+188 03172000 CVTQCDSR EQU CVTMAP+184 03173000 CVTRSV17 EQU CVTOPTB 03174000 CVTRSV16 EQU CVTOPTB 03175000 CVTFP EQU CVTOPTB 03176000 CVTAPTHR EQU CVTOPTB 03177000 CVTNLOG EQU CVTOPTB 03178000 CVTTOD EQU CVTOPTB 03179000 CVTCTIMS EQU CVTOPTB 03180000 CVTPROT EQU CVTOPTB 03181000 CVTXPFP EQU CVTOPTA 03182000 CVTASCII EQU CVTOPTA 03183000 CVTRSV13 EQU CVTOPTA 03184000 CVTRSV12 EQU CVTOPTA 03185000 CVTNIP EQU CVTOPTA 03186000 CVTDDR EQU CVTOPTA 03187000 CVTAPR EQU CVTOPTA 03188000 CVTCCH EQU CVTOPTA 03189000 CVTSNCTR EQU CVTMAP+180 03190000 CVTQMWR EQU CVTMAP+176 03191000 CVTQOCR EQU CVTMAP+172 03192000 CVT1EF00 EQU CVTMAP+168 03193000 CVTMZ00 EQU CVTMAP+164 03194000 CVTHEAD EQU CVTMAP+160 03195000 CVTRSV11 EQU CVTMAP+156 03196000 CVTMSER EQU CVTMAP+148 03197000 CVTRV516 EQU CVTIERLC 03198000 CVTILCH EQU CVTMAP+140 03199000 CVT0DS EQU CVTMAP+136 03200000 CVTFBOSV EQU CVTMAP+132 03201000 CVTNUCB EQU CVTMAP+128 03202000 CVTIXAVL EQU CVTMAP+124 03203000 CVTIOQET EQU CVTMAP+120 03204000 CVTDCBA EQU CVTMAP+117 03205000 CVTMVS2 EQU CVTDCB 03206000 CVT6DAT EQU CVTDCB 03207000 CVT4MPS EQU CVTDCB 03208000 CVTRSV09 EQU CVTDCB 03209000 CVT4MS1 EQU CVTDCB 03210000 CVT2SPS EQU CVTDCB 03211000 CVT1SSS EQU CVTDCB 03212000 CVTRSV08 EQU CVTDCB 03213000 CVTSTB EQU CVTMAP+112 03214000 CVTQTD00 EQU CVTMAP+108 03215000 CVTQTE00 EQU CVTMAP+104 03216000 CVTCUCB EQU CVTMAP+100 03217000 CVTSJQ EQU CVTMAP+96 03218000 CVTPBLDL EQU CVTMAP+92 03219000 CVTTPC EQU CVTMAP+88 03220000 CVTSVDCB EQU CVTMAP+84 03221000 CVTBRET EQU CVTMAP+82 03222000 CVTEXIT EQU CVTMAP+80 03223000 CVT0FN00 EQU CVTMAP+76 03224000 CVTDARA EQU CVTDAR+1 03225000 CVTRSV07 EQU CVTFLGS1 03226000 CVTRSV06 EQU CVTFLGS1 03227000 CVTRSV05 EQU CVTFLGS1 03228000 CVTRSV04 EQU CVTFLGS1 03229000 CVTRSV03 EQU CVTFLGS1 03230000 CVTRSV02 EQU CVTFLGS1 03231000 CVTRSV01 EQU CVTFLGS1 03232000 CVTDMPLK EQU CVTFLGS1 03233000 CVTXITP EQU CVTMAP+68 03234000 CVTZDTAB EQU CVTMAP+64 03235000 CVTMSLT EQU CVTMAP+60 03236000 CVTDATE EQU CVTMAP+56 03237000 CVTBTERM EQU CVTMAP+52 03238000 CVTSYSAD EQU CVTMAP+48 03239000 CVTXTLER EQU CVTMAP+44 03240000 CVTILK2 EQU CVTMAP+40 03241000 CVTILK1 EQU CVTMAP+36 03242000 CVTPRLTV EQU CVTMAP+32 03243000 CVTPCNVT EQU CVTMAP+28 03244000 CVT0VL00 EQU CVTMAP+24 03245000 CVTXAPG EQU CVTMAP+20 03246000 CVTBUF EQU CVTMAP+16 03247000 CVTJOB EQU CVTMAP+12 03248000 CVTLINK EQU CVTMAP+8 03249000 CVT0EF00 EQU CVTMAP+4 03250000 CVTTCBP EQU CVTMAP 03251000 CVT EQU CVTMAP 03252000 @NM00024 EQU PSA+3668 03253000 PSASTAK EQU PSA+3072 03254000 @NM00023 EQU PSA+1048 03255000 PSAUSEND EQU PSA+1048 03256000 PSARV062 EQU PSA+1044 03257000 PSACDAL EQU PSA+1040 03258000 PSAWTCOD EQU PSA+1036 03259000 PSAATCVT EQU PSA+1032 03260000 PSAPCPSW EQU PSA+1024 03261000 PSAPIR2 EQU PSA+1020 03262000 PSARV059 EQU PSA+1018 03263000 PSASVC13 EQU PSA+1016 03264000 PSALSFCC EQU PSA+1012 03265000 PSASFACC EQU PSA+1008 03266000 PSASTOP EQU PSA+992 03267000 PSASTART EQU PSA+976 03268000 PSARSPSW EQU PSA+968 03269000 PSASRPSW EQU PSA+960 03270000 PSARV045 EQU PSA+892 03271000 PSARV044 EQU PSA+888 03272000 PSARV043 EQU PSA+884 03273000 PSARV042 EQU PSA+880 03274000 PSARV041 EQU PSA+876 03275000 PSARV040 EQU PSA+872 03276000 PSARV025 EQU PSA+868 03277000 PSADSSED EQU PSA+868 03278000 PSADSSPR EQU PSA+864 03279000 PSADSSFW EQU PSA+860 03280000 PSADSS14 EQU PSA+856 03281000 PSADSSPP EQU PSA+848 03282000 PSADSSRP EQU PSA+840 03283000 PSADSS05 EQU PSADSSF4 03284000 PSADSS10 EQU PSADSSF4 03285000 PSADSSVE EQU PSADSSF4 03286000 PSADSSDE EQU PSADSSF4 03287000 PSADSSC0 EQU PSADSSF4 03288000 PSADSSIE EQU PSADSSF4 03289000 PSADSS12 EQU PSADSSF4 03290000 PSADSSRC EQU PSADSSF4 03291000 PSARV057 EQU PSADSSF3 03292000 PSARV056 EQU PSADSSF3 03293000 PSARV055 EQU PSADSSF3 03294000 PSADSSMC EQU PSADSSF3 03295000 PSADSSRW EQU PSADSSF3 03296000 PSADSSNM EQU PSADSSF3 03297000 PSADSSES EQU PSADSSF3 03298000 PSADSSGP EQU PSADSSF3 03299000 PSADSSF2 EQU PSADSSFL+1 03300000 PSADSSPI EQU PSADSSF1 03301000 PSADSSOI EQU PSADSSF1 03302000 PSADSSSP EQU PSADSSF1 03303000 PSADSSTP EQU PSADSSF1 03304000 PSADSSDW EQU PSADSSF1 03305000 PSADSSDD EQU PSADSSF1 03306000 PSADSSDM EQU PSADSSF1 03307000 PSADSSMV EQU PSADSSF1 03308000 PSADSSTS EQU PSA+816 03309000 PSADSSWK EQU PSA+812 03310000 PSADSSR3 EQU PSA+808 03311000 PSADSSR2 EQU PSA+804 03312000 PSADSSRS EQU PSA+800 03313000 PSASTOR EQU PSA+796 03314000 PSACPUSA EQU PSA+794 03315000 PSAVSTAP EQU PSA+792 03316000 PSAWKVAP EQU PSA+788 03317000 PSAWKRAP EQU PSA+784 03318000 PSAMCHIC EQU PSA+783 03319000 PSARV061 EQU PSA+782 03320000 PSASYMSK EQU PSA+781 03321000 PSAMCHFL EQU PSA+780 03322000 PSACR0 EQU PSA+776 03323000 PSAPSWSV EQU PSA+768 03324000 PSACLHS EQU PSAHLHI 03325000 PSALKR15 EQU PSALKSA+60 03326000 PSALKR14 EQU PSALKSA+56 03327000 PSALKR13 EQU PSALKSA+52 03328000 PSALKR12 EQU PSALKSA+48 03329000 PSALKR11 EQU PSALKSA+44 03330000 PSALKR10 EQU PSALKSA+40 03331000 PSALKR9 EQU PSALKSA+36 03332000 PSALKR8 EQU PSALKSA+32 03333000 PSALKR7 EQU PSALKSA+28 03334000 PSALKR6 EQU PSALKSA+24 03335000 PSALKR5 EQU PSALKSA+20 03336000 PSALKR4 EQU PSALKSA+16 03337000 PSALKR3 EQU PSALKSA+12 03338000 PSALKR2 EQU PSALKSA+8 03339000 PSALKR1 EQU PSALKSA+4 03340000 PSALKR0 EQU PSALKSA 03341000 PSARV023 EQU PSACLHT+52 03342000 PSALOCAL EQU PSACLHT+48 03343000 PSACMSL EQU PSACLHT+44 03344000 PSAOPTL EQU PSACLHT+40 03345000 PSATPACL EQU PSACLHT+36 03346000 PSATPDNL EQU PSACLHT+32 03347000 PSATPNCL EQU PSACLHT+28 03348000 PSAIOSLL EQU PSACLHT+24 03349000 PSAIOSUL EQU PSACLHT+20 03350000 PSAIOSCL EQU PSACLHT+16 03351000 PSAIOSSL EQU PSACLHT+12 03352000 PSASALCL EQU PSACLHT+8 03353000 PSAASML EQU PSACLHT+4 03354000 PSADISPL EQU PSACLHT 03355000 PSASRSA EQU PSA+636 03356000 PSARV050 EQU PSA+634 03357000 PSADSSGO EQU PSA+633 03358000 PSARECUR EQU PSA+632 03359000 PSAHLHIS EQU PSA+628 03360000 PSAIPCSA EQU PSA+624 03361000 @NM00022 EQU PSA+621 03362000 PSAIPCDM EQU PSA+620 03363000 PSAIPCD EQU PSA+616 03364000 @NM00021 EQU PSA+613 03365000 PSAIPCRM EQU PSA+612 03366000 PSAIPCR EQU PSA+608 03367000 PSAMCHEX EQU PSA+600 03368000 PSAMPSW EQU PSA+592 03369000 PSAEXPS2 EQU PSA+584 03370000 PSAEXPS1 EQU PSA+576 03371000 PSAPIREG EQU PSA+572 03372000 PSARSREG EQU PSA+568 03373000 PSAGPREG EQU PSA+556 03374000 PSARV022 EQU PSASUP4 03375000 PSARV021 EQU PSASUP4 03376000 PSARV020 EQU PSASUP4 03377000 PSARV019 EQU PSASUP4 03378000 PSARV018 EQU PSASUP4 03379000 PSARV017 EQU PSASUP4 03380000 PSARV016 EQU PSASUP4 03381000 PSARV015 EQU PSASUP4 03382000 PSARV014 EQU PSASUP3 03383000 PSARV013 EQU PSASUP3 03384000 PSARV012 EQU PSASUP3 03385000 PSAESTA EQU PSASUP3 03386000 PSASPR EQU PSASUP3 03387000 PSAPSREG EQU PSASUP3 03388000 PSAPI2 EQU PSASUP3 03389000 PSAIOSUP EQU PSASUP3 03390000 PSALCR EQU PSASUP2 03391000 PSARTM EQU PSASUP2 03392000 PSAACR EQU PSASUP2 03393000 PSAIPCE2 EQU PSASUP2 03394000 PSAIPCES EQU PSASUP2 03395000 PSAIPCEC EQU PSASUP2 03396000 PSAGTF EQU PSASUP2 03397000 PSAIPCRI EQU PSASUP2 03398000 PSATYPE6 EQU PSASUP1 03399000 PSATCTL EQU PSASUP1 03400000 PSADISP EQU PSASUP1 03401000 PSALOCK EQU PSASUP1 03402000 PSAPI EQU PSASUP1 03403000 PSAEXT EQU PSASUP1 03404000 PSASVC EQU PSASUP1 03405000 PSAIO EQU PSASUP1 03406000 PSAANEW EQU PSA+544 03407000 PSATNEW EQU PSA+536 03408000 PSALCCAR EQU PSA+532 03409000 PSALCCAV EQU PSA+528 03410000 PSAPCCAR EQU PSA+524 03411000 PSAPCCAV EQU PSA+520 03412000 PSACPULA EQU PSA+518 03413000 PSACPUPA EQU PSA+516 03414000 PSAPSA EQU PSA+512 03415000 FLCHDEND EQU PSA+512 03416000 FLCCRSAV EQU FLCMCLA+280 03417000 FLCGRSAV EQU FLCMCLA+216 03418000 FLCFPSAV EQU FLCMCLA+184 03419000 FLCFLA EQU FLCMCLA+88 03420000 FLCRGNCD EQU FLCMCLA+84 03421000 FLCFSAA EQU FLCFSA+1 03422000 @NM00020 EQU FLCFSA 03423000 @NM00019 EQU FLCMCLA+72 03424000 FLCMCIC EQU FLCMCLA+64 03425000 @NM00018 EQU FLCMCLA+20 03426000 FLCIOAA EQU FLCIOA+1 03427000 @NM00017 EQU FLCIOA 03428000 @NM00016 EQU FLCMCLA+15 03429000 @NM00015 EQU FLCMCLA+14 03430000 @NM00014 EQU FLCMCLA+12 03431000 FLCLCL EQU FLCMCLA+8 03432000 FLCIOELA EQU FLCIOEL+1 03433000 @NM00013 EQU FLCIOEL 03434000 FLCCHNID EQU FLCMCLA 03435000 @NM00012 EQU PSA+160 03436000 FLCMTRCD EQU PSA+157 03437000 @NM00011 EQU PSA+156 03438000 FLCPERA EQU FLCPER+1 03439000 @NM00010 EQU FLCPER 03440000 @NM00009 EQU PSA+151 03441000 FLCPERCD EQU PSA+150 03442000 FLCMCNUM EQU PSA+149 03443000 @NM00008 EQU PSA+148 03444000 FLCTEAA EQU FLCTEA+1 03445000 @NM00007 EQU FLCTEA 03446000 PSAPIPC EQU PSAPICOD 03447000 PSAPIMC EQU PSAPICOD 03448000 PSAPIPER EQU PSAPICOD 03449000 PSARV049 EQU FLCPICOD 03450000 FLCPILCB EQU FLCPIILC 03451000 @NM00006 EQU FLCPIILC 03452000 @NM00005 EQU PSAEPPSW 03453000 FLCSVCN EQU PSAESPSW+2 03454000 FLCSILCB EQU FLCSVILC 03455000 @NM00004 EQU FLCSVILC 03456000 @NM00003 EQU PSAESPSW 03457000 FLCEICOD EQU PSAEEPSW+2 03458000 PSASPAD EQU PSAEEPSW 03459000 @NM00002 EQU PSA+128 03460000 FLCINPSW EQU PSA+120 03461000 FLCMNPSW EQU PSA+112 03462000 FLCPNPSW EQU PSA+104 03463000 FLCSNPSW EQU PSA+96 03464000 FLCENPSW EQU PSA+88 03465000 FLCTRACE EQU PSA+84 03466000 FLCTIMER EQU PSA+80 03467000 FLCCVT2 EQU PSA+76 03468000 FLCCAW EQU PSA+72 03469000 FLCCSW EQU PSA+64 03470000 FLCIOPSW EQU PSA+56 03471000 FLCMOPSW EQU PSA+48 03472000 FLCPOPSW EQU PSA+40 03473000 FLCSOPSW EQU PSA+32 03474000 FLCEOPSW EQU PSA+24 03475000 @NM00001 EQU FLCICCW2+4 03476000 FLCICCW1 EQU FLCROPSW 03477000 FLCIPPSW EQU FLCRNPSW 03478000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03479000 @ENDDATA EQU * 03480000 END IEAVTMTC,(C'PLS2126',0701,76090) 03481000