TITLE 'IEAVMNTR, COMMTASK - MONITOR COMMAND INTERFACE PROGRAM *00001000 ' 00002000 IEAVMNTR CSECT , 01S0001 00003000 @MAINENT DS 0H 01S0001 00004000 USING *,@15 01S0001 00005000 B @PROLOG 01S0001 00006000 DC AL1(19) 01S0001 00007000 DC C'IEAVMNTRR0200073309' 01S0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 01S0001 00010000 STM @00,@12,20(@13) 01S0001 00011000 BALR @10,0 01S0001 00012000 @PSTART DS 0H 01S0001 00013000 USING @PSTART,@10 01S0001 00014000 MODESET EXTKEY=SUPR,SAVEKEY=(2) 00015000 LR REG8,REG13 SAVE REG 13 - SETLOCK DESTROYS IT 00016000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, *00017000 RELATED=(UCM,IEAVMNTR(EPILOG)) 00018000 LR REG5,REG13 SAVE RETURN CODE FROM SETLOCK 00019000 SETLOCK OBTAIN,TYPE=CMS,MODE=UNCOND, *00020000 RELATED=(UCM,IEAVMNTR(EPILOG)) 00021000 LR REG6,REG13 SAVE RETURN CODE FROM SETLOCK 00022000 L REG11,CVTPTR GET PTR TO CVT 00023000 L REG11,CVTCUCB-CVT(REG11) GET PTR TO UCM BASE 00024000 L REG11,UCMFRRAD-UCM(REG11) GET FRR ADDR 00025000 SETFRR A,FRRAD=(REG11),PARMAD=(REG12),WRKREGS=(REG12,REG13) 00026000 MVC PARMID-PARMLIST(4,REG12),=CL4'MNTR' MODULE ID 00027000 L REG4,PSATOLD SET UP REG 4 WITH TCB ADDR 00028000 L REG7,PSAAOLD SET UP REG 7 WITH ASCB ADDR 00029000 L REG0,@SIZDATD SET UP SUBPOOL AND LENGTH FOR 00030000 * BRANCH ENTRY TO GETMAIN 00031000 GETMAIN R,LV=(0),BRANCH=YES 00032000 LR REG9,REG1 SET UP DATAREG 00033000 USING @DATD,REG9 ADDRESSABILITY TO DATA AREA 00034000 ST REG8,@SA00001+4 FORWARD CHAIN SAVEAREAS 00035000 STC REG2,@OLDKEY SAVE CALLERS KEY 00036000 SPACE 00037000 * CHANGE BACK TO CALLERS KEY IN ORDER TO CHAIN SAVEAREAS 00038000 SPACE 00039000 MODESET KEYADDR=(2) 00040000 LM REG0,REG2,20(REG8) RELOAD REGS 0-2 FROM CALLERS 00041000 * SAVEAREA 00042000 ST REG9,8(REG8) BACKCHAIN SAVEAREAS 00043000 LR REG13,REG9 SET UP R13 WITH OWN SAVEAREA ADDR 00044000 MODESET EXTKEY=SUPR CHANGE BACK TO SUPERVISOR KEY 00045000 MVC @PC00001(4),0(@01) MOVE PARAMETER TO DATA AREA 00046000 * 01S0061 00047000 * /*****************************************************************/ 00048000 * /* */ 00049000 * /* SET UP LOCAL CVTPTR */ 00050000 * /* */ 00051000 * /*****************************************************************/ 00052000 * 01S0062 00053000 * LCVTPTR=CVTPTR; /* COPY CVTPTR */ 00054000 L @11,CVTPTR 01S0062 00055000 ST @11,LCVTPTR 01S0062 00056000 * RFY 01S0063 00057000 * CVTMAP BASED(LCVTPTR); /* BASE FOR CVT IS LOCAL CVTPTR */ 00058000 * MPLPTR=ADDR(MPLPARM); /* SET PTR TO MONITOR PARAMETER 00059000 * LIST */ 00060000 * 01S0064 00061000 L MPLPTR,@PC00001 01S0064 00062000 * /*****************************************************************/ 00063000 * /* */ 00064000 * /* INITIALIZE FLAGS TO CONTROL PROGRAM FLOW */ 00065000 * /* */ 00066000 * /*****************************************************************/ 00067000 * 01S0065 00068000 * IDFLAG='0'B; /* INVALID ID */ 00069000 * MATCHFLG='0'B; /* MATCH ON MPLID NOT FOUND */ 00070000 * PROCFLAG='1'B; /* PROCESS REQUEST */ 00071000 * LOCLOBT='0'B; /* LOCAL LOCK ALREADY HELD */ 00072000 * CMSLOBT='0'B; /* CMS LOCK ALREADY HELD */ 00073000 OI PROCFLAG,B'00100000' 01S0069 00074000 NI IDFLAG,B'00100111' 01S0069 00075000 * IF REG5=ZERO THEN /* IS RETURN CODE 0 */ 00076000 LTR REG5,REG5 01S0070 00077000 BNZ @RF00070 01S0070 00078000 * LOCLOBT='1'B; /* INDICATE LOCAL LOCK WAS 01S0071 00079000 * OBTAINED */ 00080000 OI LOCLOBT,B'00010000' 01S0071 00081000 * IF REG6=ZERO THEN /* IS RETURN CODE FROM SETLOCK 00082000 * FOR CMS LOCK ZERO ? */ 00083000 @RF00070 LTR REG6,REG6 01S0072 00084000 BNZ @RF00072 01S0072 00085000 * CMSLOBT='1'B; /* INDICATE CMS LOCK WAS OBTAINED*/ 00086000 OI CMSLOBT,B'00001000' 01S0073 00087000 * RFY 01S0074 00088000 * (REG5, 01S0074 00089000 * REG6) UNRSTD; /* RETURN REGS 5 AND 6 TO 01S0074 00090000 * COMPILER USE */ 00091000 @RF00072 DS 0H 01S0075 00092000 * RCAREA=ZERO; /* INITIALIZE RETURN CODE TO 0 */ 00093000 * 01S0075 00094000 SLR @11,@11 01S0075 00095000 ST @11,RCAREA 01S0075 00096000 * /*****************************************************************/ 00097000 * /* */ 00098000 * /* OBTAIN CMS LOCK TO SERIALIZE USE OF THE UCM */ 00099000 * /* */ 00100000 * /*****************************************************************/ 00101000 * 01S0076 00102000 * RFY 01S0076 00103000 * BASE BASED(BASEPTR); /* MAKE PTR TO BASEA A REGISTER */ 00104000 * 01S0076 00105000 * /*****************************************************************/ 00106000 * /* */ 00107000 * /* DETERMINE IF THIS ROUTINE WAS CALLED FOR A CONSOLE OR TERMINAL*/ 00108000 * /* */ 00109000 * /*****************************************************************/ 00110000 * 01S0077 00111000 * IF MPLCONS='1'B THEN /* IS CONSOLE BIT SET IN MPL */ 00112000 TM MPLCONS(MPLPTR),B'10000000' 01S0077 00113000 BNO @RF00077 01S0077 00114000 * DO; /* YES, DO CONSOLE PROCESSING 00115000 * */ 00116000 * 02S0079 00117000 */*** START OF CONSPROC SEGMENT **************************************/ 00118000 */* */ 00119000 */* CONSPROC - PROCESSING OF A MONITOR REQUEST FOR A CONSOLE */ 00120000 */* */ 00121000 */* FUNCTION - DETERMINES WHETHER THE CONSOLE ID PASSED IN THE */ 00122000 */* MONITOR PARAMETER LIST IS VALID. IF THE ID IS VALID, */ 00123000 */* PASSES CONTROL TO SEGMENT SETCONS IN ORDER TO SET THE */ 00124000 */* COMMTASK - MONITOR INTERFACE FIELDS IN BASEA AND THE UCME. */ 00125000 */* */ 00126000 */* INPUT - */ 00127000 */* IDFLAG IS INITIALIZED TO INVALID. */ 00128000 */* LOCAL AND CMS LOCKS ARE HELD. */ 00129000 */* ADDRESSABILITY TO MPL AND UCM. */ 00130000 */* */ 00131000 */* OUTPUT - */ 00132000 */* IDFLAG INDICATES THE VALIDITY OF THE CONSOLE ID. */ 00133000 */* UCMDVEPT SET TO ADDRESS OF UCME FOR THE CONSOLE ID. */ 00134000 */* */ 00135000 */********************************************************************/ 00136000 * 02S0079 00137000 * /*************************************************************/ 00138000 * /* */ 00139000 * /* DETERMINE IF CONSOLE ID IS 0 INDICATING A MONITOR REQUEST */ 00140000 * /* FOR THE MASTER CONSOLE */ 00141000 * /* */ 00142000 * /*************************************************************/ 00143000 * 02S0079 00144000 * IF MPLID(2)=ZERO THEN /* IS CONSOLE ID 0? */ 00145000 SLR @08,@08 02S0079 00146000 IC @08,MPLID+1(,MPLPTR) 02S0079 00147000 CR @11,@08 02S0079 00148000 BNE @RF00079 02S0079 00149000 * DO; /* YES */ 00150000 * UCMDVEPT=UCMMCENT; /* SET UCME PTR TO UCME ADDR OF 00151000 * THE MASTER CONSOLE */ 00152000 L @11,LCVTPTR 02S0081 00153000 L @11,UCMBASPT(,@11) 02S0081 00154000 AL @11,@CF01761 02S0081 00155000 L @11,UCMMCSPT(,@11) 02S0081 00156000 L UCMDVEPT,UCMMCENT(,@11) 02S0081 00157000 * IDFLAG='1'B; /* INDICATE ID IS VALID */ 00158000 OI IDFLAG,B'10000000' 02S0082 00159000 * END; 02S0083 00160000 * ELSE /* CONSOLE ID IS NOT ZER0 */ 00161000 * 02S0084 00162000 * /***********************************************************/ 00163000 * /* */ 00164000 * /* LOOP THROUGH UCMES LOOKING FOR A MATCH ON UCMID WITH */ 00165000 * /* MPLID */ 00166000 * /* */ 00167000 * /***********************************************************/ 00168000 * 02S0084 00169000 * DO; 02S0084 00170000 B @RC00079 02S0084 00171000 @RF00079 DS 0H 02S0085 00172000 * UCMDVEPT=UCMVEA; /* INITIALIZE UCME PTR TO ADDR OF 00173000 * FIRST UCME */ 00174000 L @11,LCVTPTR 02S0085 00175000 L @11,UCMBASPT(,@11) 02S0085 00176000 L UCMDVEPT,UCMVEA(,@11) 02S0085 00177000 * LOOPTR=UCMDVEPT; /* INITIALIZE LOOP CONTROL TO 00178000 * ADDR OF FIRST UCME */ 00179000 * 02S0086 00180000 LR LOOPTR,UCMDVEPT 02S0086 00181000 * /*********************************************************/ 00182000 * /* */ 00183000 * /* ATTEMPT TO FIND THE UCME WHOSE UCMID MATCHES THE MPLID*/ 00184000 * /* */ 00185000 * /*********************************************************/ 00186000 * 02S0087 00187000 * DO WHILE(LOOPTR^>UCMVEL);/* STOP WHEN LOOP CONTROL IS 00188000 * GREATER THAN THE LAST UCME 00189000 * ADDR */ 00190000 B @DE00087 02S0087 00191000 @DL00087 DS 0H 02S0088 00192000 * IF MPLID(2)=UCMID THEN/* DO CONSOLE ID'S MATCH? */ 00193000 CLC MPLID+1(1,MPLPTR),UCMID(UCMDVEPT) 02S0088 00194000 BNE @RF00088 02S0088 00195000 * DO; /* YES */ 00196000 * IDFLAG='1'B; /* INDICATE ID IS VALID */ 00197000 OI IDFLAG,B'10000000' 02S0090 00198000 * LOOPTR=UCMVEL+ONE;/* SET UP LOOP CONTROL TO EXIT 00199000 * FROM LOOP */ 00200000 L @11,LCVTPTR 02S0091 00201000 L @11,UCMBASPT(,@11) 02S0091 00202000 LA LOOPTR,1 02S0091 00203000 AL LOOPTR,UCMVEL(,@11) 02S0091 00204000 * END; 02S0092 00205000 * ELSE /* CONSOLE ID'S DON'T MATCH */ 00206000 * DO; 02S0093 00207000 B @RC00088 02S0093 00208000 @RF00088 DS 0H 02S0094 00209000 * UCMDVEPT=UCMDVEPT+UCMVEZ;/* INCREMENT UCMEPTR TO 00210000 * ADDR OF NEXT UCME */ 00211000 L @11,LCVTPTR 02S0094 00212000 L @11,UCMBASPT(,@11) 02S0094 00213000 AL UCMDVEPT,UCMVEZ(,@11) 02S0094 00214000 * LOOPTR=UCMDVEPT; /* SET LOOP CONTROL TO ADDR OF 00215000 * NEXT UCME */ 00216000 LR LOOPTR,UCMDVEPT 02S0095 00217000 * END; 02S0096 00218000 * END; 02S0097 00219000 @RC00088 DS 0H 02S0097 00220000 @DE00087 L @11,LCVTPTR 02S0097 00221000 L @11,UCMBASPT(,@11) 02S0097 00222000 C LOOPTR,UCMVEL(,@11) 02S0097 00223000 BNH @DL00087 02S0097 00224000 * END; 02S0098 00225000 * 02S0098 00226000 * /*************************************************************/ 00227000 * /* */ 00228000 * /* IF THE ID WAS FOUND TO BE VALID PASS CONTROL TO THE */ 00229000 * /* SETCONS SEGMENT */ 00230000 * /* */ 00231000 * /*************************************************************/ 00232000 * 02S0099 00233000 * IF IDFLAG='1'B THEN /* IS ID VALID? */ 00234000 @RC00079 TM IDFLAG,B'10000000' 02S0099 00235000 BNO @RF00099 02S0099 00236000 * DO; /* YES */ 00237000 * 02S0100 00238000 * /*********************************************************/ 00239000 * /* */ 00240000 * /* SET THE MASTER SCHEDULER - COMMTASK INTERFACE FIELDS */ 00241000 * /* IN THE UCM AND BASEA */ 00242000 * /* */ 00243000 * /*********************************************************/ 00244000 * 02S0101 00245000 * 03S0101 00246000 */*** START OF SETCONS SEGMENT ***************************************/ 00247000 */* */ 00248000 */* SETCONS - SET COMMTASK - MONITOR INTERFACE FIELDS FOR A CONSOLE */ 00249000 */* */ 00250000 */* FUNCTION - DETERMINE WHETHER REQUEST IS FOR START OR STOP. */ 00251000 */* SET UCME FLAGS FOR MONITOR TYPE(S) SPECIFIED AND ADJUST */ 00252000 */* APPROPRIATE MONITOR COUNT FIELDS IN BASEA. */ 00253000 */* */ 00254000 */* INPUT - */ 00255000 */* UCMDVEPT = ADDRESS OF THE UCME FOR THE CONSOLE */ 00256000 */* ADDRESSABILITY TO MPL, UCM, BASEA. */ 00257000 */* */ 00258000 */* OUTPUT - */ 00259000 */* MONITOR TYPE FLAGS IN UCME (UCMMSGA, UCMMSGB, UCMMSGF) SET. */ 00260000 */* MONITOR COUNTS IN BASEA (BAJNCNT, BASTCNT, BASESCT) ADJUSTED. */ 00261000 */* */ 00262000 */********************************************************************/ 00263000 * 03S0101 00264000 * BASEPTR=CVTMSER; /* PTR TO BASEA IS IN CVT */ 00265000 L @11,LCVTPTR 03S0101 00266000 L BASEPTR,CVTMSER(,@11) 03S0101 00267000 * IF MPLSTRT='1'B THEN /* START MONITOR REQUEST? */ 00268000 TM MPLSTRT(MPLPTR),B'00100000' 03S0102 00269000 BNO @RF00102 03S0102 00270000 * DO; /* YES */ 00271000 * 03S0103 00272000 * /*****************************************************/ 00273000 * /* */ 00274000 * /* IS THERE A REQUEST FOR MONITOR JOBNAMES AND THE */ 00275000 * /* CONSOLE IS NOT ALREADY MONITORING JOBNAMES? */ 00276000 * /* */ 00277000 * /*****************************************************/ 00278000 * 03S0104 00279000 * IF MPLJBNM='1'B&UCMMSGA='0'B THEN 03S0104 00280000 TM MPLJBNM(MPLPTR),B'10000000' 03S0104 00281000 BNO @RF00104 03S0104 00282000 TM UCMMSGA(UCMDVEPT),B'10000000' 03S0104 00283000 BNZ @RF00104 03S0104 00284000 * DO; /* YES */ 00285000 * UCMMSGA='1'B; /* INDICATE CONSOLE IS MONITORING 00286000 * JOBNAMES */ 00287000 OI UCMMSGA(UCMDVEPT),B'10000000' 03S0106 00288000 * BAJNCNT=BAJNCNT+ONE;/* INCREMENT COUNT OF 03S0107 00289000 * CONSOLES AND TERMINALS 03S0107 00290000 * MONITORING JOBNAMES */ 00291000 LA @11,1 03S0107 00292000 AH @11,BAJNCNT(,BASEPTR) 03S0107 00293000 STH @11,BAJNCNT(,BASEPTR) 03S0107 00294000 * END; 03S0108 00295000 * 03S0108 00296000 * /*****************************************************/ 00297000 * /* */ 00298000 * /* IS THERE A REQUEST FOR MONITOR STATUS AND THE */ 00299000 * /* CONSOLE IS NOT ALREADY MONITORING STATUS? */ 00300000 * /* */ 00301000 * /*****************************************************/ 00302000 * 03S0109 00303000 * IF MPLSTAT='1'B&UCMMSGB='0'B THEN 03S0109 00304000 @RF00104 TM MPLSTAT(MPLPTR),B'01000000' 03S0109 00305000 BNO @RF00109 03S0109 00306000 TM UCMMSGB(UCMDVEPT),B'01000000' 03S0109 00307000 BNZ @RF00109 03S0109 00308000 * DO; /* YES */ 00309000 * UCMMSGB='1'B; /* INDICATE CONSOLE IS MONITORING 00310000 * STATUS */ 00311000 OI UCMMSGB(UCMDVEPT),B'01000000' 03S0111 00312000 * BASTCNT=BASTCNT+ONE;/* INCREMENT COUNT OF 03S0112 00313000 * CONSOLES AND TERMINALS 03S0112 00314000 * MONITORING STATUS */ 00315000 LA @11,1 03S0112 00316000 AH @11,BASTCNT(,BASEPTR) 03S0112 00317000 STH @11,BASTCNT(,BASEPTR) 03S0112 00318000 * END; 03S0113 00319000 * 03S0113 00320000 * /*****************************************************/ 00321000 * /* */ 00322000 * /* IS THERE A REQUEST FOR MONITOR SESSIONS AND THE */ 00323000 * /* CONSOLE IS NOT ALREADY MONITORING SESSIONS? */ 00324000 * /* */ 00325000 * /*****************************************************/ 00326000 * 03S0114 00327000 * IF MPLSESS='1'B&UCMMSGF='0'B THEN 03S0114 00328000 @RF00109 TM MPLSESS(MPLPTR),B'00000100' 03S0114 00329000 BNO @RF00114 03S0114 00330000 TM UCMMSGF(UCMDVEPT),B'00000100' 03S0114 00331000 BNZ @RF00114 03S0114 00332000 * DO; 03S0115 00333000 * UCMMSGF='1'B; /* INDICATE CONSOLE IS MONITORING 00334000 * SESSIONS */ 00335000 OI UCMMSGF(UCMDVEPT),B'00000100' 03S0116 00336000 * BASESCT=BASESCT+ONE;/* INCREMENT COUNT OF 03S0117 00337000 * CONSOLES AND TERMINALS 03S0117 00338000 * MONITORING SESSIONS */ 00339000 LA @11,1 03S0117 00340000 AH @11,BASESCT(,BASEPTR) 03S0117 00341000 STH @11,BASESCT(,BASEPTR) 03S0117 00342000 * END; 03S0118 00343000 * END; 03S0119 00344000 @RF00114 DS 0H 03S0120 00345000 * IF MPLSTOP='1'B THEN /* STOP MONITOR REQUEST? */ 00346000 @RF00102 TM MPLSTOP(MPLPTR),B'00010000' 03S0120 00347000 BNO @RF00120 03S0120 00348000 * DO; /* YES */ 00349000 * 03S0121 00350000 * /*****************************************************/ 00351000 * /* */ 00352000 * /* IS THERE A REQUEST FOR STOP MONITOR JOBNAMES AND */ 00353000 * /* THE CONSOLE IS MONITORING JOBNAMES? */ 00354000 * /* */ 00355000 * /*****************************************************/ 00356000 * 03S0122 00357000 * IF MPLJBNM='1'B&UCMMSGA='1'B THEN 03S0122 00358000 TM MPLJBNM(MPLPTR),B'10000000' 03S0122 00359000 BNO @RF00122 03S0122 00360000 TM UCMMSGA(UCMDVEPT),B'10000000' 03S0122 00361000 BNO @RF00122 03S0122 00362000 * DO; /* YES */ 00363000 * UCMMSGA='0'B; /* INDICATE CONSOLE IS NO LONGER 00364000 * MONITORING JOBNAMES */ 00365000 NI UCMMSGA(UCMDVEPT),B'01111111' 03S0124 00366000 * BAJNCNT=BAJNCNT-ONE;/* DECREMENT COUNT OF 03S0125 00367000 * CONSOLES AND TERMINALS 03S0125 00368000 * MONITORING JOBNAMES */ 00369000 LH @11,BAJNCNT(,BASEPTR) 03S0125 00370000 BCTR @11,0 03S0125 00371000 STH @11,BAJNCNT(,BASEPTR) 03S0125 00372000 * END; 03S0126 00373000 * 03S0126 00374000 * /*****************************************************/ 00375000 * /* */ 00376000 * /* IS THERE A REQUEST FOR STOP MONITOR STATUS AND THE*/ 00377000 * /* CONSOLE IS MONITORING STATUS? */ 00378000 * /* */ 00379000 * /*****************************************************/ 00380000 * 03S0127 00381000 * IF MPLSTAT='1'B&UCMMSGB='1'B THEN 03S0127 00382000 @RF00122 TM MPLSTAT(MPLPTR),B'01000000' 03S0127 00383000 BNO @RF00127 03S0127 00384000 TM UCMMSGB(UCMDVEPT),B'01000000' 03S0127 00385000 BNO @RF00127 03S0127 00386000 * DO; /* YES */ 00387000 * UCMMSGB='0'B; /* INDICATE CONSOLE IS NO LONGER 00388000 * MONITORING STATUS */ 00389000 NI UCMMSGB(UCMDVEPT),B'10111111' 03S0129 00390000 * BASTCNT=BASTCNT-ONE;/* DECREMENT COUNT OF 03S0130 00391000 * CONSOLES AND TERMINALS 03S0130 00392000 * MONITORING STATUS */ 00393000 LH @11,BASTCNT(,BASEPTR) 03S0130 00394000 BCTR @11,0 03S0130 00395000 STH @11,BASTCNT(,BASEPTR) 03S0130 00396000 * END; 03S0131 00397000 * 03S0131 00398000 * /*****************************************************/ 00399000 * /* */ 00400000 * /* IS THERE A REQUEST FOR STOP MONITOR SESSIONS AND */ 00401000 * /* THE CONSOLE IS MONITORING SESSIONS */ 00402000 * /* */ 00403000 * /*****************************************************/ 00404000 * 03S0132 00405000 * IF MPLSESS='1'B&UCMMSGF='1'B THEN 03S0132 00406000 @RF00127 TM MPLSESS(MPLPTR),B'00000100' 03S0132 00407000 BNO @RF00132 03S0132 00408000 TM UCMMSGF(UCMDVEPT),B'00000100' 03S0132 00409000 BNO @RF00132 03S0132 00410000 * DO; /* YES */ 00411000 * UCMMSGF='0'B; /* INDICATE CONSOLE IS NO LONGER 00412000 * MONITORING SESSIONS */ 00413000 NI UCMMSGF(UCMDVEPT),B'11111011' 03S0134 00414000 * BASESCT=BASESCT-ONE;/* DECREMENT COUNT OF 03S0135 00415000 * CONSOLES AND TERMINALS 03S0135 00416000 * MONITORING SESSIONS */ 00417000 LH @11,BASESCT(,BASEPTR) 03S0135 00418000 BCTR @11,0 03S0135 00419000 STH @11,BASESCT(,BASEPTR) 03S0135 00420000 * END; 03S0136 00421000 * END; 03S0137 00422000 * 03S0137 00423000 @RF00132 DS 0H 03S0138 00424000 */*** END OF SETCONS SEGMENT *****************************************/ 00425000 * 03S0138 00426000 * END; 02S0138 00427000 * 02S0138 00428000 @RF00120 DS 0H 02S0139 00429000 */*** END OF CONSPROC SEGMENT ****************************************/ 00430000 * 02S0139 00431000 * END; 01S0139 00432000 @RF00099 DS 0H 01S0140 00433000 * IF MPLTERM='1'B THEN /* IS TERMINAL BIT SET IN MPL */ 00434000 @RF00077 TM MPLTERM(MPLPTR),B'01000000' 01S0140 00435000 BNO @RF00140 01S0140 00436000 * DO; /* YES, DO TERMINAL PROCESSING 00437000 * */ 00438000 * 02S0142 00439000 */*** START OF TERMPROC SEGMENT **************************************/ 00440000 */* */ 00441000 */* TERMPROC - PROCESSING OF A MONITOR REQUEST FOR A TERMINAL. */ 00442000 */* */ 00443000 */* FUNCTION - DETERMINES IF THE ID SPECIFIED IN THE MPL IS THE */ 00444000 */* ASID OF A TSO USER. IF SO, LOOKS FOR AN EXISTING MONITOR */ 00445000 */* QUEUE ELEMENT FOR THE TSO USER. IF ONE IS NOT FOUND AND */ 00446000 */* THE MPL SPECIFIES START MONITOR, SEGMENT CREATMQE IS PASSED */ 00447000 */* CONTROL TO CREATE AN MQE. WHEN AN MQE IS NOT FOUND AND */ 00448000 */* THE MPL SPECIFIES STOP MONITOR, THE REQUEST IS IGNORED. */ 00449000 */* THE MQE ADDRESS IS PASSED TO SEGMENT SETTERM WHICH SETS */ 00450000 */* COMMTASK - MONITOR FIELDS IN THE MQE AND BASEA. */ 00451000 */* */ 00452000 */* */ 00453000 */* INPUT - */ 00454000 */* IDFLAG IS INITIALIZED TO INVALID. */ 00455000 */* PROCESS FLAG IS INITIALIZED TO OK. */ 00456000 */* MATCH FLAG IS INITIALIZED TO NOT-FOUND. */ 00457000 */* ADDRESSABILITY TO ASVT, MPL, UCM */ 00458000 */* */ 00459000 */* OUTPUT */ 00460000 */* IDFLAG INDICATES VALIDITY OF ASID. */ 00461000 */* MQEPTR SET TO ADDRESS OF MQE FOR THE TSO USER. */ 00462000 */* */ 00463000 */********************************************************************/ 00464000 */********************************************************************/ 00465000 */* */ 00466000 */* DETERMINE IF ASID PASSED IN MPLID BELONGS TO A TSO USER */ 00467000 */* */ 00468000 */********************************************************************/ 00469000 * 02S0142 00470000 * IF MPLID>ZERO&MPLID^>ASVTMAXU THEN/* IS THE ASID GREATER THAN 00471000 * ZERO BUT NOT GREATER THAN THE 00472000 * MAXIMUM NUMBER OF ADDRESS 00473000 * SPACES? */ 00474000 SLR @11,@11 02S0142 00475000 SLR @08,@08 02S0142 00476000 ICM @08,3,MPLID(MPLPTR) 02S0142 00477000 CR @08,@11 02S0142 00478000 BNH @RF00142 02S0142 00479000 L @01,LCVTPTR 02S0142 00480000 L @15,ASVTPTR(,@01) 02S0142 00481000 C @08,ASVTMAXU(,@15) 02S0142 00482000 BH @RF00142 02S0142 00483000 * IF ATABFLAG(MPLID)='0'B THEN/* YES, IS THE ASVT ENTRY FOR 00484000 * THIS ASID ASSIGNED */ 00485000 SLA @08,2 02S0143 00486000 ST @08,@TF00001 02S0143 00487000 ALR @08,@15 02S0143 00488000 TM ATABFLAG-4(@08),B'10000000' 02S0143 00489000 BNZ @RF00143 02S0143 00490000 * DO; /* YES */ 00491000 * ASCBPTR=ATABLE(MPLID);/* GET THE ASCB PTR FROM THE ASVT 00492000 * ENTRY FOR THIS ASID */ 00493000 L @08,@TF00001 02S0145 00494000 L ASCBPTR,ATABLE-4(@08,@15) 02S0145 00495000 * IF ASCBTSB^=ZERO THEN /* IS THE ASCB FOR A TSO USER */ 00496000 C @11,ASCBTSB(,ASCBPTR) 02S0146 00497000 BE @RF00146 02S0146 00498000 * IDFLAG='1'B; /* YES, THE ASID IS VALID */ 00499000 OI IDFLAG,B'10000000' 02S0147 00500000 * END; 02S0148 00501000 * 02S0148 00502000 @RF00146 DS 0H 02S0149 00503000 */********************************************************************/ 00504000 */* */ 00505000 */* IF THE ASID IS VALID, SEARCH THE MQE CHAIN FOR A MATCH ON */ 00506000 */* MPLID WITH MQEID. */ 00507000 */* */ 00508000 */********************************************************************/ 00509000 * 02S0149 00510000 * IF IDFLAG='1'B THEN /* IS THE ASID VALID */ 00511000 @RF00143 DS 0H 02S0149 00512000 @RF00142 TM IDFLAG,B'10000000' 02S0149 00513000 BNO @RF00149 02S0149 00514000 * DO; /* YES, */ 00515000 * BACKPTR=ADDR(UCMMQPTR)-LENGTH(MQENAME);/* INIT PTR TO THE 00516000 * LAST MQE TO BE USED BY SEGMENT 00517000 * DELETMQE IF A MQE IS DELETED. */ 00518000 L @03,LCVTPTR 02S0151 00519000 L @03,UCMBASPT(,@03) 02S0151 00520000 LA BACKPTR,UCMMQPTR(,@03) 02S0151 00521000 SH BACKPTR,@CH00045 02S0151 00522000 * MQEPTR=UCMMQPTR; /* INITIALIZE MQE PTR TO ADDR OF 00523000 * FIRST MQE */ 00524000 L MQEPTR,UCMMQPTR(,@03) 02S0152 00525000 * LOOPTR=MQEPTR; /* INITIALIZE LOOP CONTROL TO 00526000 * ADDR OF FIRST MQE */ 00527000 * 02S0153 00528000 LR LOOPTR,MQEPTR 02S0153 00529000 * /*********************************************************/ 00530000 * /* */ 00531000 * /* STOP WHEN ADDR OF NEXT MQE IS 0 */ 00532000 * /* */ 00533000 * /*********************************************************/ 00534000 * 02S0154 00535000 * DO WHILE(LOOPTR^=ZERO); 02S0154 00536000 B @DE00154 02S0154 00537000 @DL00154 DS 0H 02S0155 00538000 * IF MPLID=MQEID THEN /* DO THE ASID'S MATCH */ 00539000 CLC MPLID(2,MPLPTR),MQEID(MQEPTR) 02S0155 00540000 BNE @RF00155 02S0155 00541000 * DO; /* YES, */ 00542000 * LOOPTR=ZERO; /* SET UP LOOP CONTROL TO EXIT 00543000 * FROM LOOP */ 00544000 SLR LOOPTR,LOOPTR 02S0157 00545000 * MATCHFLG='1'B; /* INDICATE A MATCH WAS FOUND */ 00546000 OI MATCHFLG,B'01000000' 02S0158 00547000 * END; 02S0159 00548000 * ELSE /* ASID'S DON'T MATCH */ 00549000 * DO; 02S0160 00550000 B @RC00155 02S0160 00551000 @RF00155 DS 0H 02S0161 00552000 * BACKPTR=MQEPTR; /* SET PTR TO LAST MQE */ 00553000 LR BACKPTR,MQEPTR 02S0161 00554000 * MQEPTR=MQELINK; /* UPDATE MQE PTR TO ADDRESS OF 00555000 * NEXT */ 00556000 * 02S0162 00557000 L MQEPTR,MQELINK(,MQEPTR) 02S0162 00558000 * /***************************************************/ 00559000 * /* */ 00560000 * /* MQE */ 00561000 * /* */ 00562000 * /***************************************************/ 00563000 * 02S0163 00564000 * LOOPTR=MQEPTR; /* UPDATE LOOP CONTROL TO ADDR OF 00565000 * NEXT MQE */ 00566000 LR LOOPTR,MQEPTR 02S0163 00567000 * END; 02S0164 00568000 * END; 02S0165 00569000 * 02S0165 00570000 @RC00155 DS 0H 02S0165 00571000 @DE00154 SLR @03,@03 02S0165 00572000 CR LOOPTR,@03 02S0165 00573000 BNE @DL00154 02S0165 00574000 * /*********************************************************/ 00575000 * /* */ 00576000 * /* WAS AN MQE FOUND WITH A MATCHING ASID? */ 00577000 * /* */ 00578000 * /*********************************************************/ 00579000 * 02S0166 00580000 * IF MATCHFLG='0'B THEN 02S0166 00581000 * 02S0166 00582000 TM MATCHFLG,B'01000000' 02S0166 00583000 BNZ @RF00166 02S0166 00584000 * /*******************************************************/ 00585000 * /* */ 00586000 * /* NO, BUT IS IT A START REQUEST WITH A VALID MPLTYPE? */ 00587000 * /* */ 00588000 * /*******************************************************/ 00589000 * 02S0167 00590000 * IF MPLSTRT='1'B&(MPLTYPE1&'11000100'B)^=ZERO THEN 02S0167 00591000 TM MPLSTRT(MPLPTR),B'00100000' 02S0167 00592000 BNO @RF00167 02S0167 00593000 LA @02,196 02S0167 00594000 SLR @15,@15 02S0167 00595000 IC @15,MPLTYPE1(,MPLPTR) 02S0167 00596000 NR @02,@15 02S0167 00597000 CR @02,@03 02S0167 00598000 BE @RF00167 02S0167 00599000 * DO; /* YES */ 00600000 * 02S0168 00601000 * /***************************************************/ 00602000 * /* */ 00603000 * /* PASS CONTROL TO CREATE MQE SEGMENT */ 00604000 * /* */ 00605000 * /***************************************************/ 00606000 * 02S0169 00607000 * 03S0169 00608000 */*** START OF CREATMQE SEGMENT **************************************/ 00609000 */* */ 00610000 */* CREATMQE - CREATE AN MQE */ 00611000 */* */ 00612000 */* FUNCTION - GETS SPACE FOR AN MQE, BUILDS IT WITH DATA FROM */ 00613000 */* THE MPL AND CHAINS IT TO THE END OF THE MQE QUEUE ANCHORED */ 00614000 */* IN THE UCM. */ 00615000 */* */ 00616000 */* INPUT - */ 00617000 */* ADDRESSABILITY TO MPL, UCM */ 00618000 */* */ 00619000 */* OUTPUT - */ 00620000 */* MQE BUILT AND CHAINED. */ 00621000 */* MQEPTR = ADDRESS OF NEW MQE. */ 00622000 */* */ 00623000 */********************************************************************/ 00624000 * 03S0169 00625000 * /***************************************************/ 00626000 * /* */ 00627000 * /* GET SPACE FOR A NEW MQE */ 00628000 * /* */ 00629000 * /***************************************************/ 00630000 * 03S0169 00631000 * RFY 03S0169 00632000 * REG1 RSTD; /* RESTRICT REG FROM COMPILER USE*/ 00633000 * CALL GETMQE; 03S0170 00634000 * 03S0170 00635000 BAL @14,GETMQE 03S0170 00636000 * /***************************************************/ 00637000 * /* */ 00638000 * /* DETERMINE IF SPACE WAS AVAILABLE, IF NOT IGNORE */ 00639000 * /* REQUEST. A RETURN CODE OF 4 IS PLACED IN RCAREA */ 00640000 * /* BY GETMAIN AND WILL BE PASSED BACK TO THE */ 00641000 * /* CALLER. */ 00642000 * /* */ 00643000 * /***************************************************/ 00644000 * 03S0171 00645000 * IF RCAREA=4 THEN /* GETMAIN UNSUCCESSFUL? */ 00646000 CLC RCAREA(4),@CF00045 03S0171 00647000 BNE @RF00171 03S0171 00648000 * PROCFLAG='0'B; /* YES, IGNORE REQUEST */ 00649000 NI PROCFLAG,B'11011111' 03S0172 00650000 * ELSE /* GETMAIN SUCCESSFUL, REG1 03S0173 00651000 * CONTAINS THE ADDR OF THE 03S0173 00652000 * OBTAINED SPACE */ 00653000 * DO; 03S0173 00654000 B @RC00171 03S0173 00655000 @RF00171 DS 0H 03S0174 00656000 * MQEPTR=REG1; /* SET PTR TO NEW MQE */ 00657000 LR MQEPTR,REG1 03S0174 00658000 * RFY 03S0175 00659000 * REG1 UNRSTD;/* RETURN REG 1 TO COMPILER USE */ 00660000 * IF UCMMQPTR=ZERO THEN/* IS MQE QUEUE EMPTY? */ 00661000 L @01,LCVTPTR 03S0176 00662000 L @15,UCMBASPT(,@01) 03S0176 00663000 L @14,UCMMQPTR(,@15) 03S0176 00664000 LTR @14,@14 03S0176 00665000 BNZ @RF00176 03S0176 00666000 * UCMMQPTR=MQEPTR;/* YES, SET PTR TO BEGINNING 00667000 * OF MQE QUEUE */ 00668000 ST MQEPTR,UCMMQPTR(,@15) 03S0177 00669000 * ELSE 03S0178 00670000 * UCMMQEND->MQELINK=MQEPTR;/* NO, CHAIN MQE TO 00671000 * END OF QUEUE */ 00672000 B @RC00176 03S0178 00673000 @RF00176 L @01,LCVTPTR 03S0178 00674000 L @01,UCMBASPT(,@01) 03S0178 00675000 L @01,UCMMQEND(,@01) 03S0178 00676000 ST MQEPTR,MQELINK(,@01) 03S0178 00677000 * UCMMQEND=MQEPTR;/* CHANGE PTR TO END OF MQE 00678000 * QUEUE TO ADDRESS OF THIS MQE */ 00679000 @RC00176 L @01,LCVTPTR 03S0179 00680000 L @15,UCMBASPT(,@01) 03S0179 00681000 ST MQEPTR,UCMMQEND(,@15) 03S0179 00682000 * MQEZERO(1:LENGTH(MQE)*EIGHT)=''B;/* ZERO MQE */ 00683000 XC MQEZERO(12,MQEPTR),MQEZERO(MQEPTR) 03S0180 00684000 * MQENAME=MQECHAR;/* FILL IN MQE IDENTIFIER */ 00685000 MVC MQENAME(4,MQEPTR),@CC01717 03S0181 00686000 * MQEID=MPLID; /* COPY ASID FROM MPL */ 00687000 MVC MQEID(2,MQEPTR),MPLID(MPLPTR) 03S0182 00688000 * IF UCMMQNXT=ZERO THEN/* WHEN THE PTR TO NEXT 00689000 * MQE IS NULL, SET IT TO THE 00690000 * ADDR OF THIS MQE */ 00691000 L @14,UCMMQNXT(,@15) 03S0183 00692000 LTR @14,@14 03S0183 00693000 BNZ @RF00183 03S0183 00694000 * UCMMQNXT=MQEPTR; 03S0184 00695000 ST MQEPTR,UCMMQNXT(,@15) 03S0184 00696000 * END; 03S0185 00697000 * 03S0185 00698000 */*** END OF CREATMQE SEGMENT ****************************************/ 00699000 * 03S0186 00700000 * END; 02S0186 00701000 * ELSE 02S0187 00702000 * PROCFLAG='0'B; /* MATCH NOT FOUND AND IT'S NOT A 00703000 * START REQUEST SO IGNORE 02S0187 00704000 * REQUEST */ 00705000 B @RC00167 02S0187 00706000 @RF00167 NI PROCFLAG,B'11011111' 02S0187 00707000 * IF PROCFLAG='1'B THEN /* CONTINUE PROCESSING? */ 00708000 @RC00167 DS 0H 02S0188 00709000 @RF00166 TM PROCFLAG,B'00100000' 02S0188 00710000 BNO @RF00188 02S0188 00711000 * DO; /* YES */ 00712000 * 02S0189 00713000 * /*****************************************************/ 00714000 * /* */ 00715000 * /* SET THE MASTER SCHEDULER - COMMTASK INTERFACE */ 00716000 * /* FIELDS IN THE MQE AND BASEA */ 00717000 * /* */ 00718000 * /*****************************************************/ 00719000 * 02S0190 00720000 * 03S0190 00721000 */*** START OF SETTERM SEGMENT ***************************************/ 00722000 */* */ 00723000 */* SETTERM - SET COMMTASK - MONITOR INTERFACE FIELDS FOR A TERMINAL */ 00724000 */* */ 00725000 */* FUNCTION - DETERMINE WHETHER REQUEST IS FOR START OR STOP. */ 00726000 */* SET MQE FLAGS FOR MONITOR TYPES SPECIFIED AND ADJUST */ 00727000 */* APPROPRIATE MONITOR COUNT FIELDS IN BASEA. IF NO MONITOR */ 00728000 */* TYPE FLAGS REMAIN ON IN THE MQE, PASS CONTROL TO SEGMENT */ 00729000 */* DELETMQE TO DELETE THE MQE. */ 00730000 */* */ 00731000 */* INPUT - */ 00732000 */* MQEPTR = ADDRESS OF THE MQE FOR THE TERMINAL USER */ 00733000 */* ADDRESSABILITY TO MPL, BASEA. */ 00734000 */* */ 00735000 */* OUTPUT - */ 00736000 */* MONITOR TYPE FLAGS IN MQE (MQEJBNM, MQESTAT, MQESESS) SET. */ 00737000 */* MONITOR COUNTS IN BASEA (BAJNCNT, BASTCNT, BASESCT) ADJUSTED. */ 00738000 */* */ 00739000 */********************************************************************/ 00740000 * 03S0190 00741000 * BASEPTR=CVTMSER; /* SET PTR TO BASE FROM CVT */ 00742000 L @01,LCVTPTR 03S0190 00743000 L BASEPTR,CVTMSER(,@01) 03S0190 00744000 * IF MPLSTRT='1'B THEN/* START MONITOR REQUEST? */ 00745000 TM MPLSTRT(MPLPTR),B'00100000' 03S0191 00746000 BNO @RF00191 03S0191 00747000 * DO; /* YES */ 00748000 * 03S0192 00749000 * /*************************************************/ 00750000 * /* */ 00751000 * /* IS THERE A REQUEST FOR MONITOR JOBNAMES AND */ 00752000 * /* THE TERMINAL IS NOT ALREADY MONITORING */ 00753000 * /* JOBNAMES? */ 00754000 * /* */ 00755000 * /*************************************************/ 00756000 * 03S0193 00757000 * IF MPLJBNM='1'B&MQEJBNM='0'B THEN 03S0193 00758000 TM MPLJBNM(MPLPTR),B'10000000' 03S0193 00759000 BNO @RF00193 03S0193 00760000 TM MQEJBNM(MQEPTR),B'10000000' 03S0193 00761000 BNZ @RF00193 03S0193 00762000 * DO; /* YES */ 00763000 * MQEJBNM='1'B;/* INDICATE TERMINAL IS 03S0195 00764000 * MONITORING JOBNAMES */ 00765000 OI MQEJBNM(MQEPTR),B'10000000' 03S0195 00766000 * BAJNCNT=BAJNCNT+ONE;/* INCREMENT COUNT OF 00767000 * CONSOLES AND TERMINALS 03S0196 00768000 * MONITORING JOBNAMES */ 00769000 LA @03,1 03S0196 00770000 AH @03,BAJNCNT(,BASEPTR) 03S0196 00771000 STH @03,BAJNCNT(,BASEPTR) 03S0196 00772000 * END; 03S0197 00773000 * 03S0197 00774000 * /*************************************************/ 00775000 * /* */ 00776000 * /* IS THERE A REQUEST FOR MONITOR STATUS AND THE */ 00777000 * /* TERMINAL IS NOT ALREADY MONITORING STATUS? */ 00778000 * /* */ 00779000 * /*************************************************/ 00780000 * 03S0198 00781000 * IF MPLSTAT='1'B&MQESTAT='0'B THEN 03S0198 00782000 @RF00193 TM MPLSTAT(MPLPTR),B'01000000' 03S0198 00783000 BNO @RF00198 03S0198 00784000 TM MQESTAT(MQEPTR),B'01000000' 03S0198 00785000 BNZ @RF00198 03S0198 00786000 * DO; /* YES */ 00787000 * MQESTAT='1'B;/* INDICATE TERMINAL IS 03S0200 00788000 * MONITORING STATUS */ 00789000 OI MQESTAT(MQEPTR),B'01000000' 03S0200 00790000 * BASTCNT=BASTCNT+ONE;/* INCREMENT COUNT OF 00791000 * CONSOLES AND TERMINALS 03S0201 00792000 * MONITORING STATUS */ 00793000 LA @03,1 03S0201 00794000 AH @03,BASTCNT(,BASEPTR) 03S0201 00795000 STH @03,BASTCNT(,BASEPTR) 03S0201 00796000 * END; 03S0202 00797000 * 03S0202 00798000 * /*************************************************/ 00799000 * /* */ 00800000 * /* IS THERE A REQUEST FOR MONITOR SESSIONS AND */ 00801000 * /* THE TERMINAL IS NOT ALREADY MONITORING */ 00802000 * /* SESSIONS? */ 00803000 * /* */ 00804000 * /*************************************************/ 00805000 * 03S0203 00806000 * IF MPLSESS='1'B&MQESESS='0'B THEN 03S0203 00807000 @RF00198 TM MPLSESS(MPLPTR),B'00000100' 03S0203 00808000 BNO @RF00203 03S0203 00809000 TM MQESESS(MQEPTR),B'00000100' 03S0203 00810000 BNZ @RF00203 03S0203 00811000 * DO; /* YES */ 00812000 * MQESESS='1'B;/* INDICATE TERMINAL IS 03S0205 00813000 * MONITORING SESSIONS */ 00814000 OI MQESESS(MQEPTR),B'00000100' 03S0205 00815000 * BASESCT=BASESCT+ONE;/* INCREMENT COUNT OF 00816000 * CONSOLES AND TERMINALS 03S0206 00817000 * MONITORING SESSIONS */ 00818000 LA @03,1 03S0206 00819000 AH @03,BASESCT(,BASEPTR) 03S0206 00820000 STH @03,BASESCT(,BASEPTR) 03S0206 00821000 * END; 03S0207 00822000 * END; 03S0208 00823000 @RF00203 DS 0H 03S0209 00824000 * IF MPLSTOP='1'B THEN/* STOP MONITOR REQUEST? */ 00825000 @RF00191 TM MPLSTOP(MPLPTR),B'00010000' 03S0209 00826000 BNO @RF00209 03S0209 00827000 * DO; /* YES */ 00828000 * 03S0210 00829000 * /*************************************************/ 00830000 * /* */ 00831000 * /* IS THERE A REQUEST FOR STOP MONITOR JOBNAMES */ 00832000 * /* AND THE TERMINAL IS ACTUALLY MONITORING */ 00833000 * /* JOBNAMES? */ 00834000 * /* */ 00835000 * /*************************************************/ 00836000 * 03S0211 00837000 * IF MPLJBNM='1'B&MQEJBNM='1'B THEN 03S0211 00838000 TM MPLJBNM(MPLPTR),B'10000000' 03S0211 00839000 BNO @RF00211 03S0211 00840000 TM MQEJBNM(MQEPTR),B'10000000' 03S0211 00841000 BNO @RF00211 03S0211 00842000 * DO; /* YES */ 00843000 * MQEJBNM='0'B;/* INDICATE TERMINAL IS NO 03S0213 00844000 * LONGER MONITORING JOBNAMES */ 00845000 NI MQEJBNM(MQEPTR),B'01111111' 03S0213 00846000 * BAJNCNT=BAJNCNT-ONE;/* DECREMENT COUNT OF 00847000 * CONSOLES AND TERMINALS 03S0214 00848000 * MONITORING JOBNAMES */ 00849000 LH @03,BAJNCNT(,BASEPTR) 03S0214 00850000 BCTR @03,0 03S0214 00851000 STH @03,BAJNCNT(,BASEPTR) 03S0214 00852000 * END; 03S0215 00853000 * 03S0215 00854000 * /*************************************************/ 00855000 * /* */ 00856000 * /* IS THERE A REQUEST FOR STOP MONITOR STATUS AND*/ 00857000 * /* THE TERMINAL IS ACTUALLY MONITORING STATUS? */ 00858000 * /* */ 00859000 * /*************************************************/ 00860000 * 03S0216 00861000 * IF MPLSTAT='1'B&MQESTAT='1'B THEN 03S0216 00862000 @RF00211 TM MPLSTAT(MPLPTR),B'01000000' 03S0216 00863000 BNO @RF00216 03S0216 00864000 TM MQESTAT(MQEPTR),B'01000000' 03S0216 00865000 BNO @RF00216 03S0216 00866000 * DO; /* YES */ 00867000 * MQESTAT='0'B;/* INDICATE TERMINAL IS NO 03S0218 00868000 * LONGER MONITORING STATUS */ 00869000 NI MQESTAT(MQEPTR),B'10111111' 03S0218 00870000 * BASTCNT=BASTCNT-ONE;/* DECREMENT COUNT OF 00871000 * CONSOLES AND TERMINALS 03S0219 00872000 * MONITORING STATUS */ 00873000 LH @03,BASTCNT(,BASEPTR) 03S0219 00874000 BCTR @03,0 03S0219 00875000 STH @03,BASTCNT(,BASEPTR) 03S0219 00876000 * END; 03S0220 00877000 * 03S0220 00878000 * /*************************************************/ 00879000 * /* */ 00880000 * /* IS THERE A REQUEST FOR STOP MONITOR SESSIONS */ 00881000 * /* AND THE TERMINAL IS ACTUALLY MONITORING */ 00882000 * /* SESSIONS? */ 00883000 * /* */ 00884000 * /*************************************************/ 00885000 * 03S0221 00886000 * IF MPLSESS='1'B&MQESESS='1'B THEN 03S0221 00887000 @RF00216 TM MPLSESS(MPLPTR),B'00000100' 03S0221 00888000 BNO @RF00221 03S0221 00889000 TM MQESESS(MQEPTR),B'00000100' 03S0221 00890000 BNO @RF00221 03S0221 00891000 * DO; 03S0222 00892000 * MQESESS='0'B;/* INDICATE TERMINAL IS NO 03S0223 00893000 * LONGER MONITORING SESSIONS */ 00894000 NI MQESESS(MQEPTR),B'11111011' 03S0223 00895000 * BASESCT=BASESCT-ONE;/* DECREMENT COUNT OF 00896000 * CONSOLES AND TERMINALS 03S0224 00897000 * MONITORING SESSIONS */ 00898000 LH @12,BASESCT(,BASEPTR) 03S0224 00899000 BCTR @12,0 03S0224 00900000 STH @12,BASESCT(,BASEPTR) 03S0224 00901000 * END; 03S0225 00902000 * 03S0225 00903000 * /*************************************************/ 00904000 * /* */ 00905000 * /* DETERMINE IF THE TERMINAL IS NO LONGER */ 00906000 * /* MONITORING ANYTHING AND IF SO PASS CONTROL TO */ 00907000 * /* DELETE THE MQE. */ 00908000 * /* */ 00909000 * /*************************************************/ 00910000 * 03S0226 00911000 * IF MQEJBNM='0'B&MQESTAT='0'B&MQESESS='0'B THEN/* 00912000 * IS TERMINAL MONITORING 03S0226 00913000 * ANYTHING */ 00914000 @RF00221 TM MQEJBNM(MQEPTR),B'11000100' 03S0226 00915000 BNZ @RF00226 03S0226 00916000 * DO; /* YES 03S0227 00917000 * */ 00918000 * 04S0228 00919000 */*** START OF DELETMQE SEGMENT **************************************/ 00920000 */* */ 00921000 */* DELETMQE - DELETE AN MQE */ 00922000 */* */ 00923000 */* FUNCTION - DECHAINS AND FREES AN MQE. IF THERE ARE NO MORE MQES */ 00924000 */* POSTS COMMTASK TPUT ROUTINE TO TERMINATE. */ 00925000 */* */ 00926000 */* INPUT - */ 00927000 */* MQEPTR = ADDRESS OF MQE TO BE DELETED. */ 00928000 */* ADDRESSABILITY TO UCM */ 00929000 */* */ 00930000 */* OUTPUT - */ 00931000 */* UPDATED MQE CHAIN. */ 00932000 */* */ 00933000 */********************************************************************/ 00934000 * 04S0228 00935000 * BACKPTR->MQELINK=MQEPTR->MQELINK;/* DECHAIN 00936000 * MQE FROM MQE QUEUE */ 00937000 L @12,MQELINK(,MQEPTR) 04S0228 00938000 ST @12,MQELINK(,BACKPTR) 04S0228 00939000 * IF UCMMQPTR=ZERO THEN/* IS THE MQE QUEUE 00940000 * EMPTY NOW? */ 00941000 SLR @12,@12 04S0229 00942000 L @01,LCVTPTR 04S0229 00943000 L @15,UCMBASPT(,@01) 04S0229 00944000 C @12,UCMMQPTR(,@15) 04S0229 00945000 BNE @RF00229 04S0229 00946000 * DO; /* YES */ 00947000 * UCMMQEND=ZERO;/* CLEAR THE PTR TO THE 00948000 * LAST MQE */ 00949000 ST @12,UCMMQEND(,@15) 04S0231 00950000 * IF UCMTPUTA='1'B THEN/* IS THE TPUT 04S0232 00951000 * ROUTINE ACTIVE? */ 00952000 TM UCMTPUTA(@15),B'00100000' 04S0232 00953000 BNO @RF00232 04S0232 00954000 * CALL POSTPUTR;/* YES, NOTIFY TPUT 04S0233 00955000 * ROUTINE TO TERMINATE */ 00956000 BAL @14,POSTPUTR 04S0233 00957000 * END; 04S0234 00958000 * ELSE /* MQE QUEUE NOT EMPTY */ 00959000 * IF UCMMQEND=MQEPTR THEN/* WAS THIS THE LAST 00960000 * MQE */ 00961000 B @RC00229 04S0235 00962000 @RF00229 L @12,LCVTPTR 04S0235 00963000 L @12,UCMBASPT(,@12) 04S0235 00964000 C MQEPTR,UCMMQEND(,@12) 04S0235 00965000 BNE @RF00235 04S0235 00966000 * UCMMQEND=BACKPTR;/* YES, PTR TO LAST MQE 00967000 * IS NOW PTR TO PREVIOUS MQE */ 00968000 ST BACKPTR,UCMMQEND(,@12) 04S0236 00969000 * IF UCMMQNXT=MQEPTR THEN/* IS PTR TO NEXT MQE 00970000 * TO BE PROCESSED BY TPUT 04S0237 00971000 * ROUTINE THE SAME AS ADDR OF 00972000 * THE DELETED MQE? */ 00973000 @RF00235 DS 0H 04S0237 00974000 @RC00229 L @12,LCVTPTR 04S0237 00975000 L @12,UCMBASPT(,@12) 04S0237 00976000 C MQEPTR,UCMMQNXT(,@12) 04S0237 00977000 BNE @RF00237 04S0237 00978000 * UCMMQNXT=MQEPTR->MQELINK;/* YES, SET PTR TO 00979000 * NEXT MQE TO ADDR OF MQE 04S0238 00980000 * FOLLOWING DELETED MQE. */ 00981000 L @11,MQELINK(,MQEPTR) 04S0238 00982000 ST @11,UCMMQNXT(,@12) 04S0238 00983000 * CALL FREEMQE;/* FREE THE MQE */ 00984000 @RF00237 BAL @14,FREEMQE 04S0239 00985000 */*** END OF DELETMQE SEGMENT ****************************************/ 00986000 * 04S0240 00987000 * END; 03S0240 00988000 * END; 03S0241 00989000 * 03S0241 00990000 @RF00226 DS 0H 03S0242 00991000 */*** END OF SETTERM SEGMENT *****************************************/ 00992000 * 03S0242 00993000 * END; 02S0242 00994000 @RF00209 DS 0H 02S0243 00995000 * END; 02S0243 00996000 * 02S0243 00997000 @RF00188 DS 0H 02S0244 00998000 */*** END OF TERMPROC SEGMENT ****************************************/ 00999000 * 02S0244 01000000 * END; 01S0244 01001000 * 01S0244 01002000 @RF00149 DS 0H 01S0245 01003000 * /*****************************************************************/ 01004000 * /* */ 01005000 * /* UCM NO LONGER NEEDED - RELEASE CMS LOCK */ 01006000 * /* */ 01007000 * /*****************************************************************/ 01008000 * 01S0245 01009000 * RFY 01S0245 01010000 * (REG5, 01S0245 01011000 * REG3, 01S0245 01012000 * REG6, 01S0245 01013000 * REG11) RSTD; /* RESTRICT REGS */ 01014000 @RF00140 DS 0H 01S0246 01015000 * REG6=ZERO; /* INITIALIZE ID FLAG REG */ 01016000 SLR @12,@12 01S0246 01017000 LR REG6,@12 01S0246 01018000 * REG11=ZERO; /* INIT CMS LOCK OBTAINED REG */ 01019000 LR REG11,@12 01S0247 01020000 * REG3=ZERO; /* INIT LOCAL LOCK OBTAINED REG */ 01021000 LR REG3,@12 01S0248 01022000 * IF IDFLAG='0'B THEN /* IS ID INVALID */ 01023000 TM IDFLAG,B'10000000' 01S0249 01024000 BNZ @RF00249 01S0249 01025000 * REG6=ONE; /* YES, SET ID INVALID INDICATOR */ 01026000 LA REG6,1 01S0250 01027000 * IF LOCLOBT='1'B THEN /* WAS LOCAL LOCK OBTAINED */ 01028000 @RF00249 TM LOCLOBT,B'00010000' 01S0251 01029000 BNO @RF00251 01S0251 01030000 * REG3=ONE; /* YES, SET FREE LOCAL LOCK 01S0252 01031000 * INDICATOR */ 01032000 LA REG3,1 01S0252 01033000 * IF CMSLOBT='1'B THEN /* WAS CMS LOCK OBTAINED ? */ 01034000 @RF00251 TM CMSLOBT,B'00001000' 01S0253 01035000 BNO @RF00253 01S0253 01036000 * REG11=ONE; /* YES, SET FREE CMS LOCK 01S0254 01037000 * INDICATOR */ 01038000 LA REG11,1 01S0254 01039000 * REG5=RCAREA; /* SAVE RETURN CODE */ 01040000 @RF00253 L REG5,RCAREA 01S0255 01041000 * GENERATE REFS(PSA,PSALITA,FLC,PSACSTK,FRRSCURR,FRRS,PSALSFCC, 01042000 * FRRSLAST,FRRSELEN,FRRSFRRA,FRRSPARM,FRRSENTR,FRRSEMP); 01S0256 01043000 IC REG2,@OLDKEY GET OLD KEY FROM DATA AREA 01044000 L REG8,4(REG13) GET PTR TO CALLERS SAVEAREA FROM 01045000 * DATAAREA 01046000 L REG4,PSATOLD SET UP TCB ADDR 01047000 L REG7,PSAAOLD SET UP ASCB ADDR 01048000 L REG0,@SIZDATD SET UP SUBPOOL AND LENGTH 01049000 LR REG1,REG9 SET UP ADDR OF AREA TO FREE 01050000 FREEMAIN R,LV=(0),A=(1),BRANCH=YES 01051000 SETFRR D,WRKREGS=(REG12,REG13) DELETE FRR 01052000 LTR REG11,REG11 WAS CMS LOCK OBTAINED 01053000 BZ DONTFRCM NO, DONT FREE IT 01054000 SETLOCK RELEASE,TYPE=CMS, *01055000 RELATED=(UCM,IEAVMNTR(PROLOG)) 01056000 SPACE 01057000 DONTFRCM DS 0H CMS LOCK OBTAINED BY CALLER 01058000 LTR REG3,REG3 WAS LOCAL LOCK OBTAINED 01059000 BZ DONTFREE NO, DONT FREE IT 01060000 SETLOCK RELEASE,TYPE=LOCAL, *01061000 RELATED=(UCM,IEAVMNTR(PROLOG)) 01062000 SPACE 01063000 DONTFREE DS 0H LOCAL LOCK '0'B BY CALLER 01064000 LTR REG6,REG6 WAS ID '1'B 01065000 BZ DONTABN NO, DONT ABEND CALLER 01066000 ABEND X'077',DUMP,,SYSTEM ABEND CALLER 01067000 SPACE 01068000 DONTABN DS 0H ID WAS '1'B 01069000 MODESET KEYADDR=(2) CHANGE KEY BACK TO CALLERS KEY 01070000 LR REG15,REG5 SET RETURN CODE 01071000 LR REG13,REG8 SET UP PTR TO CALLERS SAVEAREA 01072000 L REG14,12(REG13) RESTORE RETURN POINT 01073000 LM REG0,REG12,20(REG13) RESTORE REGISTERS 01074000 BR REG14 RETURN TO CALLER 01075000 * RFY 01S0257 01076000 * (REG5, 01S0257 01077000 * REG6, 01S0257 01078000 * REG11) UNRSTD; /* RETURN REGS TO COMPILER USE 01079000 * */ 01080000 *GETMQE: /* A CONDITIONAL REGISTER FORM 01081000 * BRANCH ENTRY TO GETMAIN IS 01082000 * DONE FOR NON-FETCH-PROTECTED 01083000 * CSA SPACE FOR A NEW MQE. THE 01084000 * BRANCH ENTRY TO GETMAIN USES 01085000 * REGS 0,1,3,4,7,14,15. */ 01086000 * PROC OPTIONS(SAVE(0,3,4,7,14,15) NOSAVEAREA); 01S0258 01087000 GETMQE STM @14,@00,12(@13) 01S0258 01088000 STM @03,@04,32(@13) 01S0258 01089000 ST @07,48(,@13) 01S0258 01090000 * RFY 01S0259 01091000 * (REG1, 01S0259 01092000 * REG4, 01S0259 01093000 * REG7) RSTD; /* RESTRICT REGS FROM COMPILER 01094000 * USE */ 01095000 * REG4=PSATOLD; /* SET UP REG 4 WITH TCB ADDR */ 01096000 L REG4,PSATOLD 01S0260 01097000 * REG7=PSAAOLD; /* SET UP REG 7 WITH ASCB ADDR */ 01098000 L REG7,PSAAOLD 01S0261 01099000 * DO; /* GETMAIN (RC) LV(LENGTH(MQE)) 01100000 * SP(MQESUBPL) BRANCH 01S0262 01101000 * RTCD(RCAREA) */ 01102000 * RESPECIFY 01S0263 01103000 * (GPR01F, 01S0263 01104000 * GPR03F, 01S0263 01105000 * GPR00F, 01S0263 01106000 * GPR15F) RESTRICTED; 01S0263 01107000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 01108000 SLR @14,@14 01S0264 01109000 LR GPR01F,@14 01S0264 01110000 * GPR03F=0; /* RC-TYPE GETMAIN */ 01111000 LR GPR03F,@14 01S0265 01112000 * GPR00F=LENGTH(MQE); /* LENGTH REQUESTED */ 01113000 LA GPR00F,12 01S0266 01114000 * GPR03F=GPR03F|((MQESUBPL)*256);/* SP IN BYTE 2 */ 01115000 O GPR03F,@CF01752 01S0267 01116000 * CALL CVTCRMN; /* BRANCH ENTRY POINT */ 01117000 L @06,LCVTPTR 01S0268 01118000 L @15,CVTCRMN(,@06) 01S0268 01119000 BALR @14,@15 01S0268 01120000 * RCAREA=GPR15F; /* SET RETURN CODE */ 01121000 ST GPR15F,RCAREA 01S0269 01122000 * RESPECIFY 01S0270 01123000 * (GPR01F, 01S0270 01124000 * GPR03F, 01S0270 01125000 * GPR00F, 01S0270 01126000 * GPR15F) UNRESTRICTED; 01S0270 01127000 * END; /* GETMAIN (RC) LV(LENGTH(MQE)) 01128000 * SP(MQESUBPL) BRANCH 01S0271 01129000 * RTCD(RCAREA) */ 01130000 * RFY 01S0272 01131000 * (REG1, 01S0272 01132000 * REG4, 01S0272 01133000 * REG7) UNRSTD; /* RETURN REGS TO COMPILER USER */ 01134000 * END; 01S0273 01135000 @EL00002 DS 0H 01S0273 01136000 @EF00002 DS 0H 01S0273 01137000 @ER00002 LM @14,@00,12(@13) 01S0273 01138000 LM @03,@04,32(@13) 01S0273 01139000 L @07,48(,@13) 01S0273 01140000 BR @14 01S0273 01141000 *POSTPUTR: /* NOTIFY TPUT ROUTINE TO 01S0274 01142000 * TERMINATE THE BRANCH ENTRY TO 01143000 * XMPOST IS USED. POST DESTROYS 01144000 * ALL REGISTERS EXCEPT 9. */ 01145000 * PROC OPTIONS(SAVE,NOSAVEAREA); 01S0274 01146000 * 01S0274 01147000 POSTPUTR STM @14,@12,12(@13) 01S0274 01148000 * /*****************************************************************/ 01149000 * /* */ 01150000 * /* RESTRICT INTERFACE REGS FROM COMPILER USE */ 01151000 * /* */ 01152000 * /*****************************************************************/ 01153000 * 01S0275 01154000 * RFY 01S0275 01155000 * (REG9, 01S0275 01156000 * REG10, 01S0275 01157000 * REG11, 01S0275 01158000 * REG12, 01S0275 01159000 * REG13, 01S0275 01160000 * REG14, 01S0275 01161000 * REG15) RSTD; 01S0275 01162000 * REG9=REG13; /* SET UP ADDR OF SAVE AREA */ 01163000 LR REG9,REG13 01S0276 01164000 * REG11=ADDR(UCMTRECB); /* ADDR OF ECB TO BE POSTED */ 01165000 L @08,LCVTPTR 01S0277 01166000 L @02,UCMBASPT(,@08) 01S0277 01167000 LA REG11,UCMTRECB(,@02) 01S0277 01168000 * REG11=REG11|'80000000'X; /* INDICATE XMPOST */ 01169000 O REG11,@CF01741 01S0278 01170000 * REG13=UCMASCB; /* ASCB ADDR OF COMMTASK */ 01171000 L REG13,UCMASCB(,@02) 01S0279 01172000 * REG12=UCMWAKUP; /* ERROR RETURN POINT IS ENTRY 01173000 * POINT IEAVMEST IN MODULE 01S0280 01174000 * IEAVMFRR YM04720 */ 01175000 L REG12,UCMWAKUP(,@02) 01S0280 01176000 * REG15=CVT0PT01; /* ENTRY POINT TO POST */ 01177000 L REG15,CVT0PT01(,@08) 01S0281 01178000 * REG10=ZERO; /* POST COMPLETION CODE */ 01179000 SLR REG10,REG10 01S0282 01180000 * GEN(BALR REG14,REG15) 01S0283 01181000 * REFS(REG14,REG15); 01S0283 01182000 BALR REG14,REG15 01183000 * REG13=REG9; /* RESTORE PTR TO CALLING 01S0284 01184000 * PROCEDURE'S SAVE AREA */ 01185000 * 01S0284 01186000 LR REG13,REG9 01S0284 01187000 * /*****************************************************************/ 01188000 * /* */ 01189000 * /* RETURN INTERFACE REGS TO COMPILER */ 01190000 * /* */ 01191000 * /*****************************************************************/ 01192000 * 01S0285 01193000 * RFY 01S0285 01194000 * (REG9, 01S0285 01195000 * REG10, 01S0285 01196000 * REG11, 01S0285 01197000 * REG12, 01S0285 01198000 * REG13, 01S0285 01199000 * REG14, 01S0285 01200000 * REG15) UNRSTD; 01S0285 01201000 * END; 01S0286 01202000 @EL00003 DS 0H 01S0286 01203000 @EF00003 DS 0H 01S0286 01204000 @ER00003 LM @14,@12,12(@13) 01S0286 01205000 BR @14 01S0286 01206000 *FREEMQE: /* FREE THE DELETED MQE. THE 01207000 * BRANCH ENTRY TO FREEMAIN IS 01208000 * USED. REGS 0,1,4,7,14,15 ARE 01209000 * DESTROYED */ 01210000 * PROC OPTIONS(SAVE(0,1,4,7,14,15),NOSAVEAREA); 01S0287 01211000 FREEMQE STM @14,@01,12(@13) 01S0287 01212000 ST @04,36(,@13) 01S0287 01213000 ST @07,48(,@13) 01S0287 01214000 * RFY 01S0288 01215000 * (REG4, 01S0288 01216000 * REG7) RSTD; /* RESTRICT REGS FROM COMPILER 01217000 * USE */ 01218000 * REG4=PSATOLD; /* SET UP REG 4 WITH TCB ADDR */ 01219000 L REG4,PSATOLD 01S0289 01220000 * REG7=PSAAOLD; /* SET UP REG 7 WITH ASCB ADDR */ 01221000 L REG7,PSAAOLD 01S0290 01222000 * DO; /* FREEMAIN(R) LV(LENGTH(MQE))SP( 01223000 * MQESUBPL)A(MQE) BRANCH */ 01224000 * RESPECIFY 01S0292 01225000 * (GPR01F, 01S0292 01226000 * GPR00F) RESTRICTED; 01S0292 01227000 * GPR00F=LENGTH(MQE); /* LENGTH REQUESTED */ 01228000 LA GPR00F,12 01S0293 01229000 * GPR01F=MQESUBPL; /* SP IN REG 1 */ 01230000 LA GPR01F,241 01S0294 01231000 * GEN(SLL GPR01F,24) 01S0295 01232000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 01S0295 01233000 SLL GPR01F,24 01234000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 01235000 OR GPR00F,GPR01F 01S0296 01236000 * GPR01F=ADDR(MQE); /* SET REGISTER ONE */ 01237000 LR GPR01F,MQEPTR 01S0297 01238000 * CALL CVTRMBR; /* BRANCH ENTRY POINT */ 01239000 L @12,LCVTPTR 01S0298 01240000 L @15,CVTRMBR(,@12) 01S0298 01241000 BALR @14,@15 01S0298 01242000 * RESPECIFY 01S0299 01243000 * (GPR01F, 01S0299 01244000 * GPR00F) UNRESTRICTED; 01S0299 01245000 * END; /* FREEMAIN(R) LV(LENGTH(MQE))SP( 01246000 * MQESUBPL)A(MQE) BRANCH */ 01247000 * RFY 01S0301 01248000 * (REG4, 01S0301 01249000 * REG7) UNRSTD; /* RETURN REGS TO COMPILER USE */ 01250000 * END; 01S0302 01251000 @EL00004 DS 0H 01S0302 01252000 @EF00004 DS 0H 01S0302 01253000 @ER00004 LM @14,@01,12(@13) 01S0302 01254000 L @04,36(,@13) 01S0302 01255000 L @07,48(,@13) 01S0302 01256000 BR @14 01S0302 01257000 @PB00004 DS 0H 01S0302 01258000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01259000 * GPR00F FIXED(31) REG(0), 01S0303 01260000 * GPR01F FIXED(31) REG(1), 01S0303 01261000 * GPR03F FIXED(31) REG(3), 01S0303 01262000 * GPR15F FIXED(31) REG(15); 01S0303 01263000 * DECLARE /* COMMON VARIABLES */ 01264000 * I256C CHAR(256) BASED, 01S0304 01265000 * I031F FIXED(31) BASED, 01S0304 01266000 * I031P PTR(31) BASED, 01S0304 01267000 * I015F FIXED(15) BASED, 01S0304 01268000 * I015P PTR(15) BASED, 01S0304 01269000 * I008P PTR(8) BASED, 01S0304 01270000 * I001C CHAR(1) BASED; 01S0304 01271000 * END 01S0305 01272000 * 01S0305 01273000 */*** END OF TOP SEGMENT *********************************************/ 01274000 * 01S0305 01275000 * 01S0305 01276000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01277000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01278000 */*%INCLUDE SYSUT5 (DATADECL) */ 01279000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01280000 */*%INCLUDE SYSLIB (IHAASVT ) */ 01281000 */*%INCLUDE SYSLIB (IEEBASEA) */ 01282000 */*%INCLUDE SYSLIB (CVT ) */ 01283000 */*%INCLUDE SYSLIB (IEZMPL ) */ 01284000 */*%INCLUDE SYSLIB (IEAMQE ) */ 01285000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01286000 */*%INCLUDE SYSLIB (IHACTM ) */ 01287000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01288000 */*%INCLUDE SYSLIB (IHASCVT ) */ 01289000 */*%INCLUDE SYSLIB (IEECUCM ) */ 01290000 */*%INCLUDE SYSUT5 (CONSPROC) */ 01291000 */*%INCLUDE SYSUT5 (SETCONS ) */ 01292000 */*%INCLUDE SYSUT5 (TERMPROC) */ 01293000 */*%INCLUDE SYSUT5 (CREATMQE) */ 01294000 */*%INCLUDE SYSUT5 (SETTERM ) */ 01295000 */*%INCLUDE SYSUT5 (DELETMQE) */ 01296000 * 01S0305 01297000 * ; 01S0305 01298000 @DATA DS 0H 01299000 @DATD DSECT 01300000 DS 0F 01301000 @SA00001 DS 18F 01302000 @PC00001 DS 1F 01303000 @TF00001 DS F 01304000 IEAVMNTR CSECT 01305000 DS 0F 01306000 @CF00045 DC F'4' 01307000 @CH00045 EQU @CF00045+2 01308000 @CF01752 DC F'61696' 01309000 @CF01761 DC F'-4' 01310000 @CF01741 DC XL4'80000000' 01311000 @DATD DSECT 01312000 DS 0D 01313000 PARMPTR DS A 01314000 FRREPTR DS A 01315000 FRRSPTR DS A 01316000 LCVTPTR DS A 01317000 WORKAREA DS CL5 01318000 ORG WORKAREA 01319000 RCAREA DS FL4 01320000 CNTRLFLG DS BL1 01321000 ORG CNTRLFLG 01322000 IDFLAG DS BL1 01323000 MATCHFLG EQU CNTRLFLG+0 01324000 PROCFLAG EQU CNTRLFLG+0 01325000 LOCLOBT EQU CNTRLFLG+0 01326000 CMSLOBT EQU CNTRLFLG+0 01327000 ORG WORKAREA+5 01328000 @OLDKEY DS AL1 01329000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01330000 @ENDDATD EQU * 01331000 IEAVMNTR CSECT 01332000 DS 0F 01333000 @SIZDATD DC AL1(229) 01334000 DC AL3(@ENDDATD-@DATD) 01335000 DS 0D 01336000 @CC01717 DC C'MQE ' 01337000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01338000 @01 EQU 01 01339000 @02 EQU 02 01340000 @03 EQU 03 01341000 @04 EQU 04 01342000 @05 EQU 05 01343000 @06 EQU 06 01344000 @07 EQU 07 01345000 @08 EQU 08 01346000 @09 EQU 09 01347000 @10 EQU 10 01348000 @11 EQU 11 01349000 @12 EQU 12 01350000 @13 EQU 13 01351000 @14 EQU 14 01352000 @15 EQU 15 01353000 LOOPTR EQU @02 01354000 BACKPTR EQU @11 01355000 UCMDVEPT EQU @03 01356000 MQEPTR EQU @08 01357000 MPLPTR EQU @12 01358000 BASEPTR EQU @02 01359000 ASCBPTR EQU @02 01360000 REG1 EQU @01 01361000 REG3 EQU @03 01362000 REG4 EQU @04 01363000 REG5 EQU @05 01364000 REG6 EQU @06 01365000 REG7 EQU @07 01366000 REG9 EQU @09 01367000 REG10 EQU @10 01368000 REG11 EQU @11 01369000 REG12 EQU @12 01370000 REG13 EQU @13 01371000 REG14 EQU @14 01372000 REG15 EQU @15 01373000 GPR01F EQU @01 01374000 GPR03F EQU @03 01375000 GPR00F EQU @00 01376000 GPR15F EQU @15 01377000 REG0 EQU @00 01378000 REG2 EQU @02 01379000 REG8 EQU @08 01380000 CVTPTR EQU 16 01381000 PSA EQU 0 01382000 FLCRNPSW EQU PSA 01383000 FLCROPSW EQU PSA+8 01384000 FLCICCW2 EQU PSA+16 01385000 PSAEEPSW EQU PSA+132 01386000 PSAESPSW EQU PSA+136 01387000 FLCSVILC EQU PSAESPSW+1 01388000 PSAEPPSW EQU PSA+140 01389000 FLCPIILC EQU PSAEPPSW+1 01390000 FLCPICOD EQU PSAEPPSW+2 01391000 PSAPICOD EQU FLCPICOD+1 01392000 FLCTEA EQU PSAEPPSW+4 01393000 FLCPER EQU PSA+152 01394000 FLCMCLA EQU PSA+168 01395000 FLCIOEL EQU FLCMCLA+4 01396000 FLCIOA EQU FLCMCLA+16 01397000 FLCFSA EQU FLCMCLA+80 01398000 PSATOLD EQU PSA+540 01399000 PSAAOLD EQU PSA+548 01400000 PSASUPER EQU PSA+552 01401000 PSASUP1 EQU PSASUPER 01402000 PSASUP2 EQU PSASUPER+1 01403000 PSASUP3 EQU PSASUPER+2 01404000 PSASUP4 EQU PSASUPER+3 01405000 PSACLHT EQU PSA+640 01406000 PSALKSA EQU PSA+696 01407000 PSAHLHI EQU PSA+760 01408000 PSALITA EQU PSA+764 01409000 PSADSSFL EQU PSA+836 01410000 PSADSSF1 EQU PSADSSFL 01411000 PSADSSF3 EQU PSADSSFL+2 01412000 PSADSSF4 EQU PSADSSFL+3 01413000 PSARSVT EQU PSA+896 01414000 PSALSFCC EQU PSA+1012 01415000 ASCB EQU 0 01416000 ASCBTSB EQU ASCB+60 01417000 ASCBFW1 EQU ASCB+100 01418000 ASCBRCTF EQU ASCBFW1+2 01419000 ASCBFLG1 EQU ASCBFW1+3 01420000 ASCBDSP1 EQU ASCB+114 01421000 ASCBFLG2 EQU ASCB+115 01422000 ASVT EQU 0 01423000 ASVTMAXU EQU ASVT+516 01424000 ASVTFRST EQU ASVT+524 01425000 ASVTENTY EQU ASVT+528 01426000 BASE EQU 0 01427000 @NM00002 EQU BASE+13 01428000 BALGSTAT EQU BASE+24 01429000 BALOG EQU BALGSTAT+4 01430000 BASFL EQU BASE+36 01431000 BARSW EQU BASFL 01432000 MSLOGST EQU BASE+46 01433000 BASPBYTE EQU BASE+47 01434000 BAMONITR EQU BASE+56 01435000 BAJNCNT EQU BASE+84 01436000 BASESCT EQU BASE+86 01437000 BASTCNT EQU BASE+88 01438000 @NM00024 EQU BASE+104 01439000 MSLGCLOZ EQU BASE+108 01440000 MSCLOSSW EQU MSLGCLOZ 01441000 MSLGWLOG EQU BASE+112 01442000 MSWLOGSW EQU MSLGWLOG 01443000 MSLGWTR EQU BASE+116 01444000 MSWTRSW EQU MSLGWTR 01445000 MSLGSTRT EQU BASE+120 01446000 MSSTRTSW EQU MSLGSTRT 01447000 MS1BASEX EQU BASE+136 01448000 BASES01 EQU 0 01449000 MSNTAL EQU BASES01 01450000 MSSSB EQU BASES01+1 01451000 MSBTN EQU MSSSB 01452000 MSPFG EQU BASES01+2 01453000 MSECBFL EQU BASES01+3 01454000 MSTUS EQU BASES01+4 01455000 MSSSA EQU MSTUS 01456000 MSINLSW EQU MSSSA 01457000 MSREOF EQU MSSSA 01458000 MSNWP EQU MSSSA 01459000 MSFHF EQU BASES01+5 01460000 CVTMAP EQU 0 01461000 CVT EQU CVTMAP 01462000 CVTDAR EQU CVTMAP+72 01463000 CVTFLGS1 EQU CVTDAR 01464000 CVTCUCB EQU CVTMAP+100 01465000 CVTDCB EQU CVTMAP+116 01466000 CVTMSER EQU CVTMAP+148 01467000 CVT0PT01 EQU CVTMAP+152 01468000 CVTOPTA EQU CVTMAP+182 01469000 CVTOPTB EQU CVTMAP+183 01470000 CVTABEND EQU CVTMAP+200 01471000 CVTGTF EQU CVTMAP+236 01472000 CVTGTFST EQU CVTGTF 01473000 CVTGTFS EQU CVTGTFST 01474000 CVTSTATE EQU CVTGTFST 01475000 CVTTMODE EQU CVTGTFST 01476000 CVTFORM EQU CVTGTFST 01477000 CVTUSR EQU CVTGTFST 01478000 CVTAQAVT EQU CVTMAP+240 01479000 CVTTCMFG EQU CVTAQAVT 01480000 CVTVOLM2 EQU CVTMAP+244 01481000 CVTTATA EQU CVTVOLM2 01482000 CVTTSKS EQU CVTTATA 01483000 CVTVOLF2 EQU CVTTSKS 01484000 CVTTAT EQU CVTTATA+1 01485000 CVTATER EQU CVTMAP+248 01486000 CVTEXT1 EQU CVTMAP+252 01487000 CVTPURG EQU CVTMAP+260 01488000 CVTQMSG EQU CVTMAP+268 01489000 CVTDMSR EQU CVTMAP+272 01490000 CVTAPF EQU CVTMAP+324 01491000 CVTEXT2 EQU CVTMAP+328 01492000 CVTHJES EQU CVTMAP+332 01493000 CVTPGSIA EQU CVTMAP+348 01494000 CVTA1F1 EQU CVTMAP+356 01495000 CVTSYSK EQU CVTMAP+357 01496000 CVTVOLM1 EQU CVTMAP+380 01497000 CVTVOLF1 EQU CVTVOLM1 01498000 CVTATMCT EQU CVTMAP+388 01499000 CVTXTNT1 EQU 0 01500000 CVTXTNT2 EQU 0 01501000 CVTDSSV EQU CVTXTNT2 01502000 CVTRSV90 EQU CVTXTNT2+5 01503000 CVTQID EQU CVTXTNT2+24 01504000 CVTRV400 EQU CVTXTNT2+52 01505000 CVTRV409 EQU CVTXTNT2+53 01506000 CVTATCVT EQU CVTXTNT2+64 01507000 CVTRV429 EQU CVTXTNT2+84 01508000 CVTRV438 EQU CVTXTNT2+85 01509000 CVTRV457 EQU CVTXTNT2+112 01510000 CVTRV466 EQU CVTXTNT2+113 01511000 CVTFIX EQU 0 01512000 CVTRELNO EQU CVTFIX+252 01513000 MPL EQU 0 01514000 MPLPROC EQU MPL 01515000 MPLPROC1 EQU MPLPROC 01516000 MPLCONS EQU MPLPROC1 01517000 MPLTERM EQU MPLPROC1 01518000 MPLSTRT EQU MPLPROC1 01519000 MPLSTOP EQU MPLPROC1 01520000 MPLID EQU MPL+2 01521000 MPLTYPE EQU MPL+4 01522000 MPLTYPE1 EQU MPLTYPE 01523000 MPLJBNM EQU MPLTYPE1 01524000 MPLSTAT EQU MPLTYPE1 01525000 MPLSESS EQU MPLTYPE1 01526000 MQE EQU 0 01527000 MQENAME EQU MQE 01528000 MQELINK EQU MQE+4 01529000 MQEID EQU MQE+8 01530000 MQETYPE EQU MQE+10 01531000 MQETYPE1 EQU MQETYPE 01532000 MQEJBNM EQU MQETYPE1 01533000 MQESTAT EQU MQETYPE1 01534000 MQESESS EQU MQETYPE1 01535000 PARMLIST EQU 0 01536000 PARMSTAT EQU PARMLIST 01537000 PARMFLAG EQU PARMSTAT+1 01538000 PARMID EQU PARMLIST+20 01539000 FRRS EQU 0 01540000 FRRSHEAD EQU FRRS 01541000 FRRSEMP EQU FRRSHEAD 01542000 FRRSLAST EQU FRRSHEAD+4 01543000 FRRSELEN EQU FRRSHEAD+8 01544000 FRRSCURR EQU FRRSHEAD+12 01545000 FRRSENTR EQU 0 01546000 FRRSFRRA EQU FRRSENTR 01547000 FRRSFLGS EQU FRRSENTR+4 01548000 FRRSFLG1 EQU FRRSFLGS 01549000 FRRSPARM EQU FRRSENTR+8 01550000 SCVTSECT EQU 0 01551000 UCM2PTR EQU 0 01552000 UCMPRFXP EQU 0 01553000 UCM2EXT EQU 0 01554000 UCM2STA EQU UCM2EXT+8 01555000 UCM2SFLG EQU UCM2STA 01556000 UCMPRFX EQU 0 01557000 UCMMCENT EQU UCMPRFX 01558000 UCMSAVE0 EQU UCMPRFX+4 01559000 UCMSFLGS EQU UCMPRFX+84 01560000 UCMSFLG1 EQU UCMSFLGS 01561000 UCMSFLG2 EQU UCMSFLGS+1 01562000 UCMUEXIT EQU UCMPRFX+97 01563000 UCMXSA EQU UCMPRFX+104 01564000 UCMSDS1 EQU UCMPRFX+156 01565000 UCM EQU 0 01566000 UCMDECB EQU UCM+12 01567000 UCMLSTP EQU UCM+20 01568000 UCMRPYI EQU UCM+32 01569000 UCMPXB EQU UCM+68 01570000 UCMMODE EQU UCMPXB 01571000 UCMTPUTA EQU UCMMODE 01572000 UCMVDATA EQU UCM+72 01573000 UCMVEA EQU UCMVDATA 01574000 UCMVEZ EQU UCMVDATA+4 01575000 UCMVEL EQU UCMVDATA+8 01576000 UCMTRECB EQU UCM+216 01577000 UCMMQPTR EQU UCM+220 01578000 UCMMQEND EQU UCM+224 01579000 UCMMQNXT EQU UCM+228 01580000 UCMASCB EQU UCM+280 01581000 UCMFRRAD EQU UCM+288 01582000 UCMWAKUP EQU UCM+292 01583000 UCMRSV42 EQU UCM+300 01584000 UCMRSV51 EQU UCM+301 01585000 UCMEIL EQU 0 01586000 UCMRECBA EQU UCMEIL+24 01587000 UCMEXIT EQU 0 01588000 UCMLIST EQU 0 01589000 UCMSTS EQU UCMLIST+24 01590000 UCMATR EQU UCMLIST+25 01591000 UCMXA EQU UCMLIST+26 01592000 UCMID EQU UCMXA 01593000 UCMAUTH EQU UCMLIST+40 01594000 UCMAUTHA EQU UCMAUTH 01595000 UCMDISP EQU UCMLIST+42 01596000 UCMDISP1 EQU UCMDISP 01597000 UCMDISP2 EQU UCMDISP+1 01598000 UCMMSG EQU UCMLIST+60 01599000 UCMMSG1 EQU UCMMSG 01600000 UCMMSGA EQU UCMMSG1 01601000 UCMMSGB EQU UCMMSG1 01602000 UCMMSGF EQU UCMMSG1 01603000 UCMDEVC EQU UCMLIST+63 01604000 UCMRCT EQU UCMLIST+68 01605000 UCMSDS5 EQU UCMRCT 01606000 I001C EQU 0 01607000 I008P EQU 0 01608000 I015F EQU 0 01609000 I015P EQU 0 01610000 I031F EQU 0 01611000 I031P EQU 0 01612000 I256C EQU 0 01613000 MPLPARM EQU 0 01614000 CVTS01 EQU CVTPGSIA 01615000 CVTLPDIA EQU CVTS01+12 01616000 CVTDIRST EQU CVTLPDIA 01617000 CVTSLIDA EQU CVTS01+24 01618000 CVTCTLFG EQU CVTS01+50 01619000 CVTCRMN EQU CVTS01+156 01620000 CVTASVT EQU CVTS01+208 01621000 CVTRV210 EQU CVTS01+424 01622000 CVTRV219 EQU CVTS01+425 01623000 CVTRV228 EQU CVTS01+426 01624000 CVTRV237 EQU CVTS01+427 01625000 CVTMFRTR EQU CVTS01+452 01626000 CVTRV262 EQU CVTS01+468 01627000 CVTRV271 EQU CVTS01+469 01628000 CVTRV280 EQU CVTS01+470 01629000 CVTRV289 EQU CVTS01+471 01630000 CVTRMBR EQU CVTS01+492 01631000 CVTGSDA EQU CVTS01+600 01632000 ASVTPTR EQU CVTASVT 01633000 FLC EQU PSA 01634000 PSARSVTE EQU PSARSVT 01635000 PSACSTK EQU PSARSVTE 01636000 SCVTSPTR EQU CVTABEND 01637000 UCMBASPT EQU CVTCUCB 01638000 UCMEXTPT EQU UCM2PTR 01639000 UCMMCSPT EQU UCMPRFXP 01640000 UCMEILPT EQU UCMLSTP 01641000 UCMUEWPT EQU UCMUEXIT 01642000 UCMIECBA EQU UCMRECBA+4 01643000 ATABLE EQU ASVTENTY 01644000 ATABFLAG EQU ATABLE 01645000 MQEZERO EQU MQE 01646000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01647000 UCMIECBP EQU UCMIECBA+1 01648000 UCMIECBF EQU UCMIECBA 01649000 PSARSAV EQU PSARSVTE+60 01650000 PSARSTK EQU PSARSVTE+56 01651000 PSAESAV3 EQU PSARSVTE+52 01652000 PSAESTK3 EQU PSARSVTE+48 01653000 PSAESAV2 EQU PSARSVTE+44 01654000 PSAESTK2 EQU PSARSVTE+40 01655000 PSAESAV1 EQU PSARSVTE+36 01656000 PSAESTK1 EQU PSARSVTE+32 01657000 PSAPSAV EQU PSARSVTE+28 01658000 PSAPSTK EQU PSARSVTE+24 01659000 PSAMSAV EQU PSARSVTE+20 01660000 PSAMSTK EQU PSARSVTE+16 01661000 PSASSAV EQU PSARSVTE+12 01662000 PSASSTK EQU PSARSVTE+8 01663000 PSANSTK EQU PSARSVTE+4 01664000 CVTTPIO EQU CVTS01+608 01665000 CVTADV EQU CVTS01+604 01666000 CVTGSDAB EQU CVTGSDA 01667000 CVTQV3 EQU CVTS01+596 01668000 CVTQV2 EQU CVTS01+592 01669000 CVTQV1 EQU CVTS01+588 01670000 CVTRPT EQU CVTS01+584 01671000 CVTSSRB EQU CVTS01+580 01672000 CVTCSDRL EQU CVTS01+576 01673000 CVTEXP1 EQU CVTS01+572 01674000 CVTRMPMT EQU CVTS01+568 01675000 CVTRMPTT EQU CVTS01+564 01676000 CVTVPSA EQU CVTS01+560 01677000 CVTVSTOP EQU CVTS01+556 01678000 CVTGTFR8 EQU CVTS01+552 01679000 CVTQUIT EQU CVTS01+548 01680000 CVTVACR EQU CVTS01+544 01681000 CVTWTCB EQU CVTS01+540 01682000 CVTSTPRS EQU CVTS01+536 01683000 CVT0PT02 EQU CVTS01+532 01684000 CVTDARCM EQU CVTS01+528 01685000 CVTIRECM EQU CVTS01+524 01686000 CVTJRECM EQU CVTS01+520 01687000 CVTVEMS0 EQU CVTS01+516 01688000 CVTSPFRR EQU CVTS01+512 01689000 CVTRLSTG EQU CVTS01+508 01690000 CVT0TC0A EQU CVTS01+504 01691000 CVTGMBR EQU CVTS01+500 01692000 CVTLFRM EQU CVTS01+496 01693000 CVTVIOP EQU CVTS01+488 01694000 CVTRV307 EQU CVTS01+486 01695000 CVTRV306 EQU CVTS01+484 01696000 CVTRV305 EQU CVTS01+482 01697000 CVTRV304 EQU CVTS01+480 01698000 CVTRV303 EQU CVTS01+478 01699000 CVTRV302 EQU CVTS01+476 01700000 CVTRV301 EQU CVTS01+475 01701000 CVTRV300 EQU CVTS01+474 01702000 CVTRV299 EQU CVTS01+473 01703000 CVTRV298 EQU CVTS01+472 01704000 CVTRV297 EQU CVTRV289 01705000 CVTRV296 EQU CVTRV289 01706000 CVTRV295 EQU CVTRV289 01707000 CVTRV294 EQU CVTRV289 01708000 CVTRV293 EQU CVTRV289 01709000 CVTRV292 EQU CVTRV289 01710000 CVTRV291 EQU CVTRV289 01711000 CVTRV290 EQU CVTRV289 01712000 CVTRV288 EQU CVTRV280 01713000 CVTRV287 EQU CVTRV280 01714000 CVTRV286 EQU CVTRV280 01715000 CVTRV285 EQU CVTRV280 01716000 CVTRV284 EQU CVTRV280 01717000 CVTRV283 EQU CVTRV280 01718000 CVTRV282 EQU CVTRV280 01719000 CVTRV281 EQU CVTRV280 01720000 CVTRV279 EQU CVTRV271 01721000 CVTRV278 EQU CVTRV271 01722000 CVTRV277 EQU CVTRV271 01723000 CVTRV276 EQU CVTRV271 01724000 CVTRV275 EQU CVTRV271 01725000 CVTRV274 EQU CVTRV271 01726000 CVTRV273 EQU CVTRV271 01727000 CVTRV272 EQU CVTRV271 01728000 CVTRV270 EQU CVTRV262 01729000 CVTRV269 EQU CVTRV262 01730000 CVTRV268 EQU CVTRV262 01731000 CVTRV267 EQU CVTRV262 01732000 CVTRV266 EQU CVTRV262 01733000 CVTRV265 EQU CVTRV262 01734000 CVTRV264 EQU CVTRV262 01735000 CVTRV263 EQU CVTRV262 01736000 CVTVFP EQU CVTS01+464 01737000 CVTVSI EQU CVTS01+460 01738000 CVTVPSIB EQU CVTS01+456 01739000 CVTMFACT EQU CVTMFRTR 01740000 CVTMFCTL EQU CVTS01+448 01741000 CVTPVBP EQU CVTS01+444 01742000 CVTPWI EQU CVTS01+440 01743000 CVTRV254 EQU CVTS01+438 01744000 CVTRV253 EQU CVTS01+436 01745000 CVTRV252 EQU CVTS01+434 01746000 CVTRV251 EQU CVTS01+433 01747000 CVTRV250 EQU CVTS01+432 01748000 CVTRV249 EQU CVTS01+431 01749000 CVTRV248 EQU CVTS01+430 01750000 CVTRV247 EQU CVTS01+429 01751000 CVTRV246 EQU CVTS01+428 01752000 CVTRV245 EQU CVTRV237 01753000 CVTRV244 EQU CVTRV237 01754000 CVTRV243 EQU CVTRV237 01755000 CVTRV242 EQU CVTRV237 01756000 CVTRV241 EQU CVTRV237 01757000 CVTRV240 EQU CVTRV237 01758000 CVTRV239 EQU CVTRV237 01759000 CVTRV238 EQU CVTRV237 01760000 CVTRV236 EQU CVTRV228 01761000 CVTRV235 EQU CVTRV228 01762000 CVTRV234 EQU CVTRV228 01763000 CVTRV233 EQU CVTRV228 01764000 CVTRV232 EQU CVTRV228 01765000 CVTRV231 EQU CVTRV228 01766000 CVTRV230 EQU CVTRV228 01767000 CVTRV229 EQU CVTRV228 01768000 CVTRV227 EQU CVTRV219 01769000 CVTRV226 EQU CVTRV219 01770000 CVTRV225 EQU CVTRV219 01771000 CVTRV224 EQU CVTRV219 01772000 CVTRV223 EQU CVTRV219 01773000 CVTRV222 EQU CVTRV219 01774000 CVTRV221 EQU CVTRV219 01775000 CVTRV220 EQU CVTRV219 01776000 CVTRV218 EQU CVTRV210 01777000 CVTRV217 EQU CVTRV210 01778000 CVTRV216 EQU CVTRV210 01779000 CVTRV215 EQU CVTRV210 01780000 CVTRV214 EQU CVTRV210 01781000 CVTRV213 EQU CVTRV210 01782000 CVTRV212 EQU CVTRV210 01783000 CVTRV211 EQU CVTRV210 01784000 CVTLCCAT EQU CVTS01+420 01785000 CVTPCCAT EQU CVTS01+416 01786000 CVTIPCRP EQU CVTS01+412 01787000 CVTIPCRI EQU CVTS01+408 01788000 CVTIPCDS EQU CVTS01+404 01789000 CVTAIDVT EQU CVTS01+400 01790000 CVTSSAP EQU CVTS01+396 01791000 CVTEHCIR EQU CVTS01+392 01792000 CVTEHDEF EQU CVTS01+388 01793000 CVTDAIR EQU CVTS01+384 01794000 CVTPERFM EQU CVTS01+380 01795000 CVT044R2 EQU CVTS01+376 01796000 CVTFETCH EQU CVTS01+372 01797000 CVTRSTWD EQU CVTS01+368 01798000 CVTSPOST EQU CVTS01+364 01799000 CVTIOBP EQU CVTS01+360 01800000 CVTASMVT EQU CVTS01+356 01801000 CVTRECRQ EQU CVTS01+352 01802000 CVTWSAC EQU CVTS01+348 01803000 CVTWSAG EQU CVTS01+344 01804000 CVTWSAL EQU CVTS01+340 01805000 CVTSPSA EQU CVTS01+336 01806000 CVTGLMN EQU CVTS01+332 01807000 CVTVEAC0 EQU CVTS01+328 01808000 CVT062R1 EQU CVTS01+324 01809000 CVTRPOST EQU CVTS01+320 01810000 CVTDQIQE EQU CVTS01+316 01811000 CVTCSD EQU CVTS01+312 01812000 CVTLKRMA EQU CVTS01+308 01813000 CVTRSPIE EQU CVTS01+304 01814000 CVTRENQ EQU CVTS01+300 01815000 CVTLQCB EQU CVTS01+296 01816000 CVTFQCB EQU CVTS01+292 01817000 CVTQCS01 EQU CVTS01+288 01818000 CVTAPFT EQU CVTS01+284 01819000 CVTPARRL EQU CVTS01+280 01820000 CVTVWAIT EQU CVTS01+276 01821000 CVTGSPL EQU CVTS01+272 01822000 CVTLSMQ EQU CVTS01+268 01823000 CVTGSMQ EQU CVTS01+264 01824000 CVTEXPRO EQU CVTS01+260 01825000 CVTOPCTP EQU CVTS01+256 01826000 CVTSIC EQU CVTS01+252 01827000 CVTTPIOS EQU CVTS01+248 01828000 CVTRTMS EQU CVTS01+244 01829000 CVTSDBF EQU CVTS01+240 01830000 CVTSCBP EQU CVTS01+236 01831000 CVTSDMP EQU CVTS01+232 01832000 CVTSV60 EQU CVTS01+228 01833000 CVTRTMCT EQU CVTS01+224 01834000 CVTASCBL EQU CVTS01+220 01835000 CVTASCBH EQU CVTS01+216 01836000 CVTGDA EQU CVTS01+212 01837000 CVTVVMDI EQU CVTS01+204 01838000 CVTAQTOP EQU CVTS01+200 01839000 CVTIOSCS EQU CVTS01+196 01840000 CVTSDRM EQU CVTS01+192 01841000 CVTOPTE EQU CVTS01+188 01842000 CVTSTXU EQU CVTS01+184 01843000 CVTQUIS EQU CVTS01+180 01844000 CVTPARS EQU CVTS01+176 01845000 CVTS1EE EQU CVTS01+172 01846000 CVTFRAS EQU CVTS01+168 01847000 CVTQSAS EQU CVTS01+164 01848000 CVTCRAS EQU CVTS01+160 01849000 CVTDELCP EQU CVTS01+152 01850000 CVTFRECL EQU CVTS01+148 01851000 CVTGETCL EQU CVTS01+144 01852000 CVTBLDCP EQU CVTS01+140 01853000 CVTAUTHL EQU CVTS01+136 01854000 CVTSCAN EQU CVTS01+132 01855000 CVTRV144 EQU CVTS01+130 01856000 CVTMAXMP EQU CVTS01+128 01857000 CVTSTCK EQU CVTS01+124 01858000 CVTRV139 EQU CVTS01+123 01859000 CVTDSSAC EQU CVTS01+122 01860000 CVTRV513 EQU CVTS01+121 01861000 CVTIOSPL EQU CVTS01+120 01862000 CVTPTGT EQU CVTS01+116 01863000 CVTCSPIE EQU CVTS01+112 01864000 CVTSMFEX EQU CVTS01+108 01865000 CVTOLT0A EQU CVTS01+104 01866000 CVTSRBRT EQU CVTS01+100 01867000 CVTPUTL EQU CVTS01+96 01868000 CVTSYSWT EQU CVTS01+92 01869000 CVTRV327 EQU CVTS01+88 01870000 CVTRV326 EQU CVTS01+84 01871000 CVTRV325 EQU CVTS01+80 01872000 CVTRV324 EQU CVTS01+76 01873000 CVT0VL01 EQU CVTS01+72 01874000 CVTSHRVM EQU CVTS01+68 01875000 CVTRV332 EQU CVTS01+64 01876000 CVTTAS EQU CVTS01+60 01877000 CVTRSCN EQU CVTS01+56 01878000 CVTTRAC2 EQU CVTS01+54 01879000 CVTTRACE EQU CVTS01+52 01880000 CVTAPG EQU CVTS01+51 01881000 CVTSDTRC EQU CVTCTLFG 01882000 CVTGTRCE EQU CVTCTLFG 01883000 CVTNOMP EQU CVTCTLFG 01884000 CVTRSV79 EQU CVTCTLFG 01885000 CVTDSTAT EQU CVTCTLFG 01886000 CVTRSV78 EQU CVTCTLFG 01887000 CVTRV333 EQU CVTCTLFG 01888000 CVTRV323 EQU CVTCTLFG 01889000 CVTSPVLK EQU CVTS01+49 01890000 CVTRSV77 EQU CVTS01+48 01891000 CVTRV331 EQU CVTS01+44 01892000 CVTRV330 EQU CVTS01+40 01893000 CVTRV329 EQU CVTS01+36 01894000 CVTRV328 EQU CVTS01+32 01895000 CVTRV322 EQU CVTS01+28 01896000 CVTSLID EQU CVTSLIDA+1 01897000 CVTSYLK EQU CVTSLIDA 01898000 CVTRV321 EQU CVTS01+20 01899000 CVTRV320 EQU CVTS01+16 01900000 CVTLPDIR EQU CVTLPDIA+1 01901000 CVTRSV69 EQU CVTDIRST 01902000 CVTRSV68 EQU CVTDIRST 01903000 CVTRSV67 EQU CVTDIRST 01904000 CVTRSV66 EQU CVTDIRST 01905000 CVTRSV65 EQU CVTDIRST 01906000 CVTRSV64 EQU CVTDIRST 01907000 CVTRSV63 EQU CVTDIRST 01908000 CVTDICOM EQU CVTDIRST 01909000 CVTPVTP EQU CVTS01+8 01910000 CVTLPDSR EQU CVTS01+4 01911000 CVTGETL EQU CVTS01 01912000 UCMRCTA EQU UCMRCT+1 01913000 UCMRSV31 EQU UCMSDS5 01914000 UCMSDS5G EQU UCMSDS5 01915000 UCMSDS5F EQU UCMSDS5 01916000 UCMRSV30 EQU UCMSDS5 01917000 UCMRSV29 EQU UCMSDS5 01918000 UCMSDS5C EQU UCMSDS5 01919000 UCMSDS5B EQU UCMSDS5 01920000 UCMSDS5A EQU UCMSDS5 01921000 UCMMLAST EQU UCMLIST+64 01922000 UCMVHRSN EQU UCMDEVC 01923000 UCMDEVG EQU UCMDEVC 01924000 UCMDEVF EQU UCMDEVC 01925000 UCMDEVE EQU UCMDEVC 01926000 UCMDEVD EQU UCMDEVC 01927000 UCMDEVCC EQU UCMDEVC 01928000 UCMDEVB EQU UCMDEVC 01929000 UCMDEVA EQU UCMDEVC 01930000 UCMXOR EQU UCMLIST+62 01931000 UCMMSG2 EQU UCMMSG+1 01932000 UCMRSV27 EQU UCMMSG1 01933000 UCMRSV26 EQU UCMMSG1 01934000 UCMMSGE EQU UCMMSG1 01935000 UCMMSGD EQU UCMMSG1 01936000 UCMMSGC EQU UCMMSG1 01937000 UCMCOMPC EQU UCMLIST+56 01938000 UCMWLAST EQU UCMLIST+52 01939000 UCMOAOEN EQU UCMLIST+48 01940000 UCMALTEN EQU UCMLIST+44 01941000 UCMRV007 EQU UCMDISP2 01942000 UCMRV006 EQU UCMDISP2 01943000 UCMRV005 EQU UCMDISP2 01944000 UCMRV004 EQU UCMDISP2 01945000 UCMRV003 EQU UCMDISP2 01946000 UCMRV002 EQU UCMDISP2 01947000 UCMDISPJ EQU UCMDISP2 01948000 UCMDISPI EQU UCMDISP2 01949000 UCMDISPH EQU UCMDISP1 01950000 UCMDISPG EQU UCMDISP1 01951000 UCMDISPF EQU UCMDISP1 01952000 UCMDISPE EQU UCMDISP1 01953000 UCMDISPD EQU UCMDISP1 01954000 UCMDISPC EQU UCMDISP1 01955000 UCMDISPB EQU UCMDISP1 01956000 UCMDISPA EQU UCMDISP1 01957000 UCMAUTHB EQU UCMAUTH+1 01958000 UCMRSV23 EQU UCMAUTHA 01959000 UCMRSV22 EQU UCMAUTHA 01960000 UCMRSV21 EQU UCMAUTHA 01961000 UCMRSV20 EQU UCMAUTHA 01962000 UCMRSV19 EQU UCMAUTHA 01963000 UCMAUTH3 EQU UCMAUTHA 01964000 UCMAUTH2 EQU UCMAUTHA 01965000 UCMAUTH1 EQU UCMAUTHA 01966000 UCMOUTQ EQU UCMLIST+36 01967000 UCMRSV18 EQU UCMLIST+34 01968000 UCMRTCD EQU UCMLIST+32 01969000 UCMXB EQU UCMLIST+28 01970000 @NM00092 EQU UCMXA+1 01971000 UCMRSV17 EQU UCMATR 01972000 UCMRSV16 EQU UCMATR 01973000 UCMAT04 EQU UCMATR 01974000 UCMLF EQU UCMATR 01975000 UCMUF EQU UCMATR 01976000 UCMXF EQU UCMATR 01977000 UCMIF EQU UCMATR 01978000 UCMOF EQU UCMATR 01979000 UCMTC EQU UCMSTS 01980000 UCMTD EQU UCMSTS 01981000 UCMTB EQU UCMSTS 01982000 UCMTA EQU UCMSTS 01983000 UCMCF EQU UCMSTS 01984000 UCMBF EQU UCMSTS 01985000 UCMPF EQU UCMSTS 01986000 UCMAF EQU UCMSTS 01987000 UCMNAME EQU UCMLIST+16 01988000 UCMUCB EQU UCMLIST+12 01989000 UCMDCB EQU UCMLIST+8 01990000 UCMSBR EQU UCMLIST+4 01991000 UCMECB EQU UCMLIST 01992000 UCMTPSAV EQU UCMEXIT+208 01993000 UCMXTSAV EQU UCMEXIT+136 01994000 UCMDESCD EQU UCMEXIT+132 01995000 UCMROUTC EQU UCMEXIT+128 01996000 UCMMSTXT EQU UCMEXIT 01997000 UCMDECBA EQU UCMEIL+20 01998000 UCMOECBA EQU UCMEIL+16 01999000 UCMAECBA EQU UCMEIL+12 02000000 UCMXECBA EQU UCMEIL+8 02001000 UCMNIPTR EQU UCMEIL+4 02002000 UCMRSV15 EQU UCMEIL+3 02003000 UCMRTCT EQU UCMEIL+2 02004000 UCMRPYL EQU UCMEIL+1 02005000 @NM00091 EQU UCMEIL 02006000 UCMRSV60 EQU UCM+302 02007000 UCMRSV59 EQU UCMRSV51 02008000 UCMRSV58 EQU UCMRSV51 02009000 UCMRSV57 EQU UCMRSV51 02010000 UCMRSV56 EQU UCMRSV51 02011000 UCMRSV55 EQU UCMRSV51 02012000 UCMRSV54 EQU UCMRSV51 02013000 UCMRSV53 EQU UCMRSV51 02014000 UCMRSV52 EQU UCMRSV51 02015000 UCMRSV50 EQU UCMRSV42 02016000 UCMRSV49 EQU UCMRSV42 02017000 UCMRSV48 EQU UCMRSV42 02018000 UCMRSV47 EQU UCMRSV42 02019000 UCMRSV46 EQU UCMRSV42 02020000 UCMRSV45 EQU UCMRSV42 02021000 UCMRSV44 EQU UCMRSV42 02022000 UCMRSV43 EQU UCMRSV42 02023000 UCMRSV41 EQU UCM+296 02024000 UCMSWCH EQU UCM+284 02025000 UCMWQECP EQU UCM+276 02026000 UCMORECP EQU UCM+272 02027000 UCMOECBT EQU UCM+268 02028000 UCMOECBH EQU UCM+264 02029000 UCMWECBT EQU UCM+260 02030000 UCMWECBH EQU UCM+256 02031000 UCMMBEND EQU UCM+252 02032000 UCMCTID EQU UCM+250 02033000 UCMRSV61 EQU UCM+248 02034000 UCMRP2AD EQU UCM+244 02035000 UCMCRAAD EQU UCM+240 02036000 UCMWQLM1 EQU UCM+238 02037000 UCMRV001 EQU UCM+237 02038000 UCMRQLM1 EQU UCM+236 02039000 UCMMBPTR EQU UCM+232 02040000 UCMMNECB EQU UCM+212 02041000 UCMMNTR EQU UCM+208 02042000 UCMR9SV EQU UCM+204 02043000 UCMSAVE4 EQU UCM+140 02044000 UCMSAVE3 EQU UCM+84 02045000 UCMINCR EQU UCM+71 02046000 UCMMODEL EQU UCM+70 02047000 UCMCORE EQU UCM+69 02048000 UCMFIX EQU UCMMODE 02049000 UCMMCS EQU UCMMODE 02050000 UCMOGCE EQU UCMMODE 02051000 UCMAMFA EQU UCMMODE 02052000 UCMRSV14 EQU UCMMODE 02053000 UCMNOCON EQU UCMMODE 02054000 UCMRSV11 EQU UCMMODE 02055000 UCMPXA EQU UCM+64 02056000 UCMWQEND EQU UCM+60 02057000 UCMWQNR EQU UCM+58 02058000 UCMRQNR EQU UCM+56 02059000 UCMWQECB EQU UCM+52 02060000 UCMRQECB EQU UCM+48 02061000 UCMWQLM EQU UCM+46 02062000 UCMRQLM EQU UCM+45 02063000 @NM00090 EQU UCMRPYI 02064000 UCMRPYQ EQU UCM+28 02065000 UCMWTOQ EQU UCM+24 02066000 UCMARECB EQU UCM+16 02067000 UCMLECB EQU UCMDECB 02068000 UCMOECB EQU UCM+8 02069000 UCMAECB EQU UCM+4 02070000 UCMXECB EQU UCM 02071000 UCMGMCNT EQU UCMPRFX+158 02072000 UCMSDS2 EQU UCMPRFX+157 02073000 UCMRSV09 EQU UCMSDS1 02074000 UCMRSV08 EQU UCMSDS1 02075000 UCMRSV07 EQU UCMSDS1 02076000 UCMRSV06 EQU UCMSDS1 02077000 UCMRSV05 EQU UCMSDS1 02078000 UCMRSV04 EQU UCMSDS1 02079000 UCMSDS1B EQU UCMSDS1 02080000 UCMSDS1A EQU UCMSDS1 02081000 UCMDTINT EQU UCMPRFX+152 02082000 UCMLOGAD EQU UCMPRFX+148 02083000 UCMNPECB EQU UCMPRFX+144 02084000 UCMTPPTR EQU UCMPRFX+140 02085000 UCMDOMRT EQU UCMPRFX+136 02086000 UCMRUTCK EQU UCMPRFX+132 02087000 UCMQRTN EQU UCMPRFX+128 02088000 UCM6WD EQU UCMXSA+20 02089000 UCM5WD EQU UCMXSA+16 02090000 UCM4WD EQU UCMXSA+12 02091000 UCM3WD EQU UCMXSA+8 02092000 UCM2WD EQU UCMXSA+4 02093000 UCM1WD EQU UCMXSA 02094000 UCMRSV03 EQU UCMPRFX+102 02095000 UCMHRDRT EQU UCMPRFX+100 02096000 UCMXCT EQU UCMPRFX+96 02097000 UCMHCUCM EQU UCMPRFX+92 02098000 UCMCMID EQU UCMPRFX+88 02099000 UCMOWTOR EQU UCMPRFX+86 02100000 UCMRSV02 EQU UCMSFLG2 02101000 UCMSYSO EQU UCMSFLG2 02102000 UCMSYSN EQU UCMSFLG2 02103000 UCMSYSM EQU UCMSFLG2 02104000 UCMSYSL EQU UCMSFLG2 02105000 UCMSYSK EQU UCMSFLG2 02106000 UCMSYSJ EQU UCMSFLG2 02107000 UCMSYSI EQU UCMSFLG2 02108000 UCMRSV35 EQU UCMSFLG1 02109000 UCMSYSG EQU UCMSFLG1 02110000 UCMSYSF EQU UCMSFLG1 02111000 UCMSYSE EQU UCMSFLG1 02112000 UCMSYSD EQU UCMSFLG1 02113000 UCMSYSC EQU UCMSFLG1 02114000 UCMSYSB EQU UCMSFLG1 02115000 UCMRSV01 EQU UCMSFLG1 02116000 UCMWTOX EQU UCMPRFX+80 02117000 UCMDOME EQU UCMPRFX+76 02118000 UCMSVR0 EQU UCMSAVE0+68 02119000 UCMSVQ0 EQU UCMSAVE0+64 02120000 UCMSVP0 EQU UCMSAVE0+60 02121000 UCMSVO0 EQU UCMSAVE0+56 02122000 UCMSVN0 EQU UCMSAVE0+52 02123000 UCMSVM0 EQU UCMSAVE0+48 02124000 UCMSVL0 EQU UCMSAVE0+44 02125000 UCMSVK0 EQU UCMSAVE0+40 02126000 UCMSVJ0 EQU UCMSAVE0+36 02127000 UCMSVI0 EQU UCMSAVE0+32 02128000 UCMSVH0 EQU UCMSAVE0+28 02129000 UCMSVG0 EQU UCMSAVE0+24 02130000 UCMSVF0 EQU UCMSAVE0+20 02131000 UCMSVE0 EQU UCMSAVE0+16 02132000 UCMSVD0 EQU UCMSAVE0+12 02133000 UCMSVC0 EQU UCMSAVE0+8 02134000 UCMSVB0 EQU UCMSAVE0+4 02135000 UCMSVA0 EQU UCMSAVE0 02136000 UCM2PAD EQU UCM2EXT+12 02137000 UCM2STAA EQU UCM2STA+1 02138000 UCM2SCNT EQU UCM2SFLG 02139000 UCMRSV34 EQU UCM2SFLG 02140000 UCMRSV33 EQU UCM2SFLG 02141000 UCMRSV32 EQU UCM2SFLG 02142000 UCM2DSTR EQU UCM2SFLG 02143000 UCM2DTAK EQU UCM2SFLG 02144000 UCM2SENT EQU UCM2SFLG 02145000 UCM2SDWA EQU UCM2SFLG 02146000 UCM2PST EQU UCM2EXT+4 02147000 UCM2RID EQU UCM2EXT+2 02148000 UCM2WID EQU UCM2EXT 02149000 @NM00089 EQU SCVTSECT+180 02150000 SCVTTMBR EQU SCVTSECT+176 02151000 SCVTPIQE EQU SCVTSECT+172 02152000 @NM00088 EQU SCVTSECT+168 02153000 SCVTPTRM EQU SCVTSECT+164 02154000 SCVTAPIO EQU SCVTSECT+160 02155000 @NM00087 EQU SCVTSECT+156 02156000 SCVTQCBR EQU SCVTSECT+152 02157000 SCVTSTAT EQU SCVTSECT+148 02158000 @NM00086 EQU SCVTSECT+144 02159000 SCVTTQE EQU SCVTSECT+140 02160000 SCVTSTXP EQU SCVTSECT+136 02161000 SCVTSVCT EQU SCVTSECT+132 02162000 @NM00085 EQU SCVTSECT+128 02163000 SCVTRQND EQU SCVTSECT+124 02164000 SCVTRXLQ EQU SCVTSECT+120 02165000 @NM00084 EQU SCVTSECT+116 02166000 SCVTCTCB EQU SCVTSECT+112 02167000 @NM00083 EQU SCVTSECT+108 02168000 @NM00082 EQU SCVTSECT+104 02169000 @NM00081 EQU SCVTSECT+100 02170000 @NM00080 EQU SCVTSECT+96 02171000 SCVTCOMM EQU SCVTSECT+92 02172000 @NM00079 EQU SCVTSECT+88 02173000 @NM00078 EQU SCVTSECT+84 02174000 @NM00077 EQU SCVTSECT+80 02175000 @NM00076 EQU SCVTSECT+76 02176000 @NM00075 EQU SCVTSECT+72 02177000 SCVTGMBR EQU SCVTSECT+68 02178000 SCVTRPTR EQU SCVTSECT+64 02179000 SCVTHSKP EQU SCVTSECT+60 02180000 SCVTDQTC EQU SCVTSECT+56 02181000 SCVTPABL EQU SCVTSECT+52 02182000 SCVTLFRM EQU SCVTSECT+48 02183000 SCVTCDCL EQU SCVTSECT+44 02184000 SCVTTASW EQU SCVTSECT+40 02185000 SCVTRACE EQU SCVTSECT+36 02186000 SCVTPGIO EQU SCVTSECT+32 02187000 SCVTRMBR EQU SCVTSECT+28 02188000 @NM00074 EQU SCVTSECT+24 02189000 @NM00073 EQU SCVTSECT+20 02190000 SCVTERAS EQU SCVTSECT+16 02191000 @NM00072 EQU SCVTSECT+14 02192000 SCVTBR14 EQU SCVTSECT+12 02193000 SCVTSPET EQU SCVTSECT+8 02194000 SCVTPGWR EQU SCVTSECT+4 02195000 SCVTPGTM EQU SCVTSECT 02196000 @NM00071 EQU FRRSFLGS+1 02197000 @NM00070 EQU FRRSFLG1 02198000 FRRSNEST EQU FRRSFLG1 02199000 FRRSRCUR EQU FRRSFLG1 02200000 FRRSENTS EQU FRRS+84 02201000 FRRSRTMW EQU FRRS+16 02202000 PARMRGAD EQU PARMLIST+16 02203000 PARMRTAD EQU PARMLIST+12 02204000 PARMCLAD EQU PARMLIST+8 02205000 PARMSYAD EQU PARMLIST+4 02206000 PARMCTBK EQU PARMSTAT+3 02207000 PARMSYSR EQU PARMSTAT+2 02208000 @NM00069 EQU PARMFLAG 02209000 @NM00068 EQU PARMFLAG 02210000 @NM00067 EQU PARMFLAG 02211000 PARMWARG EQU PARMFLAG 02212000 PARMFRID EQU PARMFLAG 02213000 PARMRECU EQU PARMFLAG 02214000 PARMCWT EQU PARMFLAG 02215000 PARMSDWA EQU PARMFLAG 02216000 PARMFTPT EQU PARMSTAT 02217000 MQETYPE2 EQU MQETYPE+1 02218000 MQERSV05 EQU MQETYPE1 02219000 MQERSV04 EQU MQETYPE1 02220000 MQERSV03 EQU MQETYPE1 02221000 MQERSV02 EQU MQETYPE1 02222000 MQERSV01 EQU MQETYPE1 02223000 MPLRSV10 EQU MPL+6 02224000 MPLTYPE2 EQU MPLTYPE+1 02225000 MPLRSV09 EQU MPLTYPE1 02226000 MPLRSV08 EQU MPLTYPE1 02227000 MPLRSV07 EQU MPLTYPE1 02228000 MPLRSV06 EQU MPLTYPE1 02229000 MPLRSV05 EQU MPLTYPE1 02230000 MPLPROC2 EQU MPLPROC+1 02231000 MPLRSV04 EQU MPLPROC1 02232000 MPLRSV03 EQU MPLPROC1 02233000 MPLRSV02 EQU MPLPROC1 02234000 MPLRSV01 EQU MPLPROC1 02235000 CVTLEVL EQU CVTRELNO+2 02236000 CVTNUMB EQU CVTRELNO 02237000 CVTMDL EQU CVTFIX+250 02238000 @NM00042 EQU CVTFIX+248 02239000 @NM00041 EQU CVTFIX 02240000 CVTRV482 EQU CVTXTNT2+128 02241000 CVTRV481 EQU CVTXTNT2+124 02242000 CVTRV480 EQU CVTXTNT2+120 02243000 CVTRV479 EQU CVTXTNT2+118 02244000 CVTRV478 EQU CVTXTNT2+117 02245000 CVTRV477 EQU CVTXTNT2+116 02246000 CVTRV476 EQU CVTXTNT2+115 02247000 CVTRV475 EQU CVTXTNT2+114 02248000 CVTRV474 EQU CVTRV466 02249000 CVTRV473 EQU CVTRV466 02250000 CVTRV472 EQU CVTRV466 02251000 CVTRV471 EQU CVTRV466 02252000 CVTRV470 EQU CVTRV466 02253000 CVTRV469 EQU CVTRV466 02254000 CVTRV468 EQU CVTRV466 02255000 CVTRV467 EQU CVTRV466 02256000 CVTRV465 EQU CVTRV457 02257000 CVTRV464 EQU CVTRV457 02258000 CVTRV463 EQU CVTRV457 02259000 CVTRV462 EQU CVTRV457 02260000 CVTRV461 EQU CVTRV457 02261000 CVTRV460 EQU CVTRV457 02262000 CVTRV459 EQU CVTRV457 02263000 CVTRV458 EQU CVTRV457 02264000 CVTRV456 EQU CVTXTNT2+108 02265000 CVTRV455 EQU CVTXTNT2+104 02266000 CVTRV454 EQU CVTXTNT2+100 02267000 CVTRV453 EQU CVTXTNT2+96 02268000 CVTRV452 EQU CVTXTNT2+94 02269000 CVTRV451 EQU CVTXTNT2+92 02270000 CVTRV450 EQU CVTXTNT2+90 02271000 CVTRV449 EQU CVTXTNT2+88 02272000 CVTRV448 EQU CVTXTNT2+87 02273000 CVTRV447 EQU CVTXTNT2+86 02274000 CVTRV446 EQU CVTRV438 02275000 CVTRV445 EQU CVTRV438 02276000 CVTRV444 EQU CVTRV438 02277000 CVTRV443 EQU CVTRV438 02278000 CVTRV442 EQU CVTRV438 02279000 CVTRV441 EQU CVTRV438 02280000 CVTRV440 EQU CVTRV438 02281000 CVTRV439 EQU CVTRV438 02282000 CVTRV437 EQU CVTRV429 02283000 CVTRV436 EQU CVTRV429 02284000 CVTRV435 EQU CVTRV429 02285000 CVTRV434 EQU CVTRV429 02286000 CVTRV433 EQU CVTRV429 02287000 CVTRV432 EQU CVTRV429 02288000 CVTRV431 EQU CVTRV429 02289000 CVTRV430 EQU CVTRV429 02290000 CVTRV428 EQU CVTXTNT2+80 02291000 CVTRV427 EQU CVTXTNT2+76 02292000 CVTRV426 EQU CVTXTNT2+72 02293000 CVTRV425 EQU CVTXTNT2+68 02294000 CVTATACT EQU CVTATCVT 02295000 CVTRV423 EQU CVTXTNT2+62 02296000 CVTRV422 EQU CVTXTNT2+60 02297000 CVTRV421 EQU CVTXTNT2+58 02298000 CVTRV420 EQU CVTXTNT2+56 02299000 CVTRV419 EQU CVTXTNT2+55 02300000 CVTRV418 EQU CVTXTNT2+54 02301000 CVTRV417 EQU CVTRV409 02302000 CVTRV416 EQU CVTRV409 02303000 CVTRV415 EQU CVTRV409 02304000 CVTRV414 EQU CVTRV409 02305000 CVTRV413 EQU CVTRV409 02306000 CVTRV412 EQU CVTRV409 02307000 CVTRV411 EQU CVTRV409 02308000 CVTRV410 EQU CVTRV409 02309000 CVTRV408 EQU CVTRV400 02310000 CVTRV407 EQU CVTRV400 02311000 CVTRV406 EQU CVTRV400 02312000 CVTRV405 EQU CVTRV400 02313000 CVTRV404 EQU CVTRV400 02314000 CVTRV403 EQU CVTRV400 02315000 CVTRV402 EQU CVTRV400 02316000 CVTRV401 EQU CVTRV400 02317000 CVTRSVA1 EQU CVTXTNT2+48 02318000 CVTRSVA0 EQU CVTXTNT2+44 02319000 CVTRSV99 EQU CVTXTNT2+40 02320000 CVTRSV98 EQU CVTXTNT2+36 02321000 CVTRSV97 EQU CVTXTNT2+34 02322000 CVTRSV96 EQU CVTXTNT2+32 02323000 CVTOLTEP EQU CVTXTNT2+28 02324000 CVTQIDA EQU CVTQID+1 02325000 CVTRSV95 EQU CVTQID 02326000 CVTRSV94 EQU CVTXTNT2+20 02327000 CVTRSV93 EQU CVTXTNT2+16 02328000 CVTRSV92 EQU CVTXTNT2+12 02329000 CVTDEBVR EQU CVTXTNT2+8 02330000 CVTRSV91 EQU CVTXTNT2+6 02331000 CVTRSV9H EQU CVTRSV90 02332000 CVTRSV9G EQU CVTRSV90 02333000 CVTRSV9F EQU CVTRSV90 02334000 CVTRSV9E EQU CVTRSV90 02335000 CVTRSV9D EQU CVTRSV90 02336000 CVTRSV9C EQU CVTRSV90 02337000 CVTRSV9B EQU CVTRSV90 02338000 CVTRSV9A EQU CVTRSV90 02339000 CVTNUCLS EQU CVTXTNT2+4 02340000 CVTDSSVA EQU CVTDSSV+1 02341000 CVTRSV89 EQU CVTDSSV 02342000 CVTRSV88 EQU CVTXTNT1+8 02343000 CVTRSV87 EQU CVTXTNT1+4 02344000 CVTFACHN EQU CVTXTNT1 02345000 CVTRV488 EQU CVTMAP+412 02346000 CVTRV487 EQU CVTMAP+408 02347000 CVTRV486 EQU CVTMAP+404 02348000 CVTRV485 EQU CVTMAP+400 02349000 CVTRV484 EQU CVTMAP+396 02350000 CVTAUTH EQU CVTMAP+392 02351000 CVTATMCA EQU CVTATMCT+1 02352000 CVTATMST EQU CVTATMCT 02353000 CVTRSV61 EQU CVTMAP+384 02354000 CVTVOLT1 EQU CVTVOLM1+1 02355000 CVTVOLI1 EQU CVTVOLF1 02356000 CVTSTOA EQU CVTMAP+376 02357000 CVTRSV58 EQU CVTMAP+374 02358000 CVTRSV57 EQU CVTMAP+372 02359000 CVTDDCE EQU CVTMAP+368 02360000 CVTPNWFR EQU CVTMAP+364 02361000 CVTSMF EQU CVTMAP+360 02362000 CVTSULK EQU CVTMAP+358 02363000 CVTSLKO EQU CVTSYSK 02364000 CVTSLKP EQU CVTSYSK 02365000 CVTSLKQ EQU CVTSYSK 02366000 CVTSLKR EQU CVTSYSK 02367000 CVTRSV56 EQU CVTSYSK 02368000 CVTRSV55 EQU CVTSYSK 02369000 CVTRSV54 EQU CVTSYSK 02370000 CVTRSV53 EQU CVTSYSK 02371000 CVTRSV52 EQU CVTA1F1 02372000 CVTRSV51 EQU CVTA1F1 02373000 CVTRSV50 EQU CVTA1F1 02374000 CVTRSV49 EQU CVTA1F1 02375000 CVTRSV48 EQU CVTA1F1 02376000 CVTRSV47 EQU CVTA1F1 02377000 CVTSRSW EQU CVTA1F1 02378000 CVTPFSW EQU CVTA1F1 02379000 CVTPCVT EQU CVTMAP+352 02380000 CVTRSV46 EQU CVTMAP+344 02381000 CVTRSV45 EQU CVTMAP+340 02382000 CVTRSV44 EQU CVTMAP+338 02383000 CVTRSV43 EQU CVTMAP+336 02384000 CVTHJESA EQU CVTHJES+1 02385000 CVTRSV42 EQU CVTHJES 02386000 CVTEXT2A EQU CVTEXT2+1 02387000 CVTRSV41 EQU CVTEXT2 02388000 CVTAPFA EQU CVTAPF+1 02389000 CVTRSV40 EQU CVTAPF 02390000 CVTINTLA EQU CVTMAP+320 02391000 CVTERPV EQU CVTMAP+316 02392000 CVTEORM EQU CVTMAP+312 02393000 CVTMCHPR EQU CVTMAP+308 02394000 CVTTZ EQU CVTMAP+304 02395000 CVTJEPS EQU CVTMAP+300 02396000 CVTJESCT EQU CVTMAP+296 02397000 CVTMODE EQU CVTMAP+292 02398000 CVTPTRV EQU CVTMAP+288 02399000 CVTREAL EQU CVTMAP+284 02400000 CVTRSV39 EQU CVTMAP+280 02401000 CVTRSV38 EQU CVTMAP+276 02402000 CVTDMSRA EQU CVTDMSR+1 02403000 CVTRSV37 EQU CVTDMSR 02404000 CVTQMSGA EQU CVTQMSG+1 02405000 CVTRSV36 EQU CVTQMSG 02406000 CVTAMFF EQU CVTMAP+264 02407000 CVTPURGA EQU CVTPURG+1 02408000 CVTRSV35 EQU CVTPURG 02409000 CVTCBSP EQU CVTMAP+256 02410000 CVTATERA EQU CVTATER+1 02411000 CVTSYST EQU CVTATER 02412000 CVTVOLT2 EQU CVTTAT 02413000 CVTVOLI2 EQU CVTVOLF2 02414000 CVTAQAVB EQU CVTAQAVT+1 02415000 CVTRSV34 EQU CVTTCMFG 02416000 CVTRSV33 EQU CVTTCMFG 02417000 CVTRSV32 EQU CVTTCMFG 02418000 CVTRSV31 EQU CVTTCMFG 02419000 CVTRSV30 EQU CVTTCMFG 02420000 CVTRSV29 EQU CVTTCMFG 02421000 CVTRSV28 EQU CVTTCMFG 02422000 CVTTCRDY EQU CVTTCMFG 02423000 CVTGTFA EQU CVTGTF+1 02424000 CVTRSV27 EQU CVTGTFST 02425000 CVTRNIO EQU CVTGTFST 02426000 CVTRV319 EQU CVTUSR 02427000 CVTRV318 EQU CVTFORM 02428000 CVTRV317 EQU CVTTMODE 02429000 CVTRV316 EQU CVTSTATE 02430000 CVTRV315 EQU CVTGTFS 02431000 CVTGTFAV EQU CVTGTFS 02432000 CVT0SCR1 EQU CVTMAP+232 02433000 CVTRV515 EQU CVTMAP+228 02434000 CVTRMS EQU CVTMAP+224 02435000 CVTPATCH EQU CVTMAP+220 02436000 CVTTSCE EQU CVTMAP+216 02437000 CVTLNKSC EQU CVTMAP+214 02438000 CVTQABST EQU CVTMAP+212 02439000 CVTMDLDS EQU CVTMAP+208 02440000 CVTUSER EQU CVTMAP+204 02441000 CVTSMCA EQU CVTMAP+196 02442000 CVTRSV18 EQU CVTMAP+192 02443000 CVTQLPAQ EQU CVTMAP+188 02444000 CVTQCDSR EQU CVTMAP+184 02445000 CVTRSV17 EQU CVTOPTB 02446000 CVTRSV16 EQU CVTOPTB 02447000 CVTFP EQU CVTOPTB 02448000 CVTAPTHR EQU CVTOPTB 02449000 CVTNLOG EQU CVTOPTB 02450000 CVTTOD EQU CVTOPTB 02451000 CVTCTIMS EQU CVTOPTB 02452000 CVTPROT EQU CVTOPTB 02453000 CVTXPFP EQU CVTOPTA 02454000 CVTASCII EQU CVTOPTA 02455000 CVTRSV13 EQU CVTOPTA 02456000 CVTRSV12 EQU CVTOPTA 02457000 CVTNIP EQU CVTOPTA 02458000 CVTDDR EQU CVTOPTA 02459000 CVTAPR EQU CVTOPTA 02460000 CVTCCH EQU CVTOPTA 02461000 CVTSNCTR EQU CVTMAP+180 02462000 CVTQMWR EQU CVTMAP+176 02463000 CVTQOCR EQU CVTMAP+172 02464000 CVT1EF00 EQU CVTMAP+168 02465000 CVTMZ00 EQU CVTMAP+164 02466000 CVTHEAD EQU CVTMAP+160 02467000 CVTRSV11 EQU CVTMAP+156 02468000 CVTIERLC EQU CVTMAP+144 02469000 CVTILCH EQU CVTMAP+140 02470000 CVT0DS EQU CVTMAP+136 02471000 CVTFBOSV EQU CVTMAP+132 02472000 CVTNUCB EQU CVTMAP+128 02473000 CVTIXAVL EQU CVTMAP+124 02474000 CVTIOQET EQU CVTMAP+120 02475000 CVTDCBA EQU CVTMAP+117 02476000 CVTMVS2 EQU CVTDCB 02477000 CVT6DAT EQU CVTDCB 02478000 CVT4MPS EQU CVTDCB 02479000 CVTRSV09 EQU CVTDCB 02480000 CVT4MS1 EQU CVTDCB 02481000 CVT2SPS EQU CVTDCB 02482000 CVT1SSS EQU CVTDCB 02483000 CVTRSV08 EQU CVTDCB 02484000 CVTSTB EQU CVTMAP+112 02485000 CVTQTD00 EQU CVTMAP+108 02486000 CVTQTE00 EQU CVTMAP+104 02487000 CVTSJQ EQU CVTMAP+96 02488000 CVTPBLDL EQU CVTMAP+92 02489000 CVTTPC EQU CVTMAP+88 02490000 CVTSVDCB EQU CVTMAP+84 02491000 CVTBRET EQU CVTMAP+82 02492000 CVTEXIT EQU CVTMAP+80 02493000 CVT0FN00 EQU CVTMAP+76 02494000 CVTDARA EQU CVTDAR+1 02495000 CVTRSV07 EQU CVTFLGS1 02496000 CVTRSV06 EQU CVTFLGS1 02497000 CVTRSV05 EQU CVTFLGS1 02498000 CVTRSV04 EQU CVTFLGS1 02499000 CVTRSV03 EQU CVTFLGS1 02500000 CVTRSV02 EQU CVTFLGS1 02501000 CVTRSV01 EQU CVTFLGS1 02502000 CVTDMPLK EQU CVTFLGS1 02503000 CVTXITP EQU CVTMAP+68 02504000 CVTZDTAB EQU CVTMAP+64 02505000 CVTMSLT EQU CVTMAP+60 02506000 CVTDATE EQU CVTMAP+56 02507000 CVTBTERM EQU CVTMAP+52 02508000 CVTSYSAD EQU CVTMAP+48 02509000 CVTXTLER EQU CVTMAP+44 02510000 CVTILK2 EQU CVTMAP+40 02511000 CVTILK1 EQU CVTMAP+36 02512000 CVTPRLTV EQU CVTMAP+32 02513000 CVTPCNVT EQU CVTMAP+28 02514000 CVT0VL00 EQU CVTMAP+24 02515000 CVTXAPG EQU CVTMAP+20 02516000 CVTBUF EQU CVTMAP+16 02517000 CVTJOB EQU CVTMAP+12 02518000 CVTLINK EQU CVTMAP+8 02519000 CVT0EF00 EQU CVTMAP+4 02520000 CVTTCBP EQU CVTMAP 02521000 MSSPARE EQU BASES01+52 02522000 MSABL EQU BASES01+48 02523000 MSUCBAL EQU BASES01+44 02524000 MSUCBPR EQU BASES01+40 02525000 MSBOBECB EQU BASES01+36 02526000 MSSJQ EQU BASES01+32 02527000 MSECB EQU BASES01+28 02528000 MSPBP EQU BASES01+24 02529000 MSERM EQU BASES01+22 02530000 MSPASS EQU BASES01+14 02531000 MSVRB EQU BASES01+6 02532000 MSQHR EQU MSFHF 02533000 @NM00040 EQU MSFHF 02534000 MSPSDT EQU MSFHF 02535000 MSREPLYB EQU MSFHF 02536000 MSFAX EQU MSFHF 02537000 MSTTT EQU MSFHF 02538000 MSCSD EQU MSFHF 02539000 MSNMF EQU MSFHF 02540000 MSJNF EQU MSSSA 02541000 MSYOUT EQU MSNWP 02542000 MSNRP EQU MSSSA 02543000 MSSRDR EQU MSREOF 02544000 MSWRLOG EQU MSSSA 02545000 MSNUPSW EQU MSSSA 02546000 MSWRPEN EQU MSSSA 02547000 MSSSSIPL EQU MSINLSW 02548000 MSSUM EQU MSECBFL 02549000 MSMCR EQU MSECBFL 02550000 MSYSOUT EQU MSECBFL 02551000 MSYSIN EQU MSECBFL 02552000 MSATTN EQU MSECBFL 02553000 MSWTL EQU MSECBFL 02554000 MSWTO EQU MSECBFL 02555000 MSEXT EQU MSECBFL 02556000 MSCCS EQU MSPFG 02557000 MSBSP EQU MSPFG 02558000 MSSYT EQU MSPFG 02559000 MSSYN EQU MSPFG 02560000 MSICR EQU MSPFG 02561000 MSCMC EQU MSPFG 02562000 MSPNB EQU MSPFG 02563000 MSDATE EQU MSPFG 02564000 @NM00039 EQU MSBTN 02565000 MSTN EQU MSBTN 02566000 @NM00038 EQU MSBTN 02567000 @NM00037 EQU MSBTN 02568000 MSSO EQU MSBTN 02569000 MSROLFLG EQU MSBTN 02570000 MSCANFLG EQU MSBTN 02571000 MSCONFLG EQU MSBTN 02572000 MSPNIP EQU MSNTAL 02573000 MSQNIP EQU MSNTAL 02574000 MSCURE34 EQU MSNTAL 02575000 @NM00036 EQU MSNTAL 02576000 @NM00035 EQU MSNTAL 02577000 @NM00034 EQU MSNTAL 02578000 @NM00033 EQU MSNTAL 02579000 MSNIP EQU MSNTAL 02580000 @NM00032 EQU MS1BASEX+40 02581000 @NM00031 EQU MS1BASEX+20 02582000 @NM00030 EQU MS1BASEX 02583000 @NM00029 EQU BASE+128 02584000 MSLGJSCB EQU BASE+124 02585000 @NM00028 EQU MSSTRTSW 02586000 MSSTRTP EQU MSSTRTSW 02587000 MSSTRTW EQU MSSTRTSW 02588000 @NM00027 EQU MSWTRSW 02589000 MSWTRP EQU MSWTRSW 02590000 MSWTRW EQU MSWTRSW 02591000 @NM00026 EQU MSWLOGSW 02592000 MSWLOGP EQU MSWLOGSW 02593000 MSWLOGW EQU MSWLOGSW 02594000 @NM00025 EQU MSCLOSSW 02595000 MSCLOSP EQU MSCLOSSW 02596000 MSCLOSW EQU MSCLOSSW 02597000 MSLOGLMT EQU @NM00024+1 02598000 MSLOGCLS EQU @NM00024 02599000 BAASCB EQU BASE+100 02600000 MSSMFPRM EQU BASE+96 02601000 MSCOMMND EQU BASE+92 02602000 BASP12 EQU BASE+90 02603000 BASUBECB EQU BASE+80 02604000 BALOGCOM EQU BASE+76 02605000 BADACNT EQU BASE+74 02606000 BATACNT EQU BASE+72 02607000 BAJBNR EQU BASE+64 02608000 BASP11 EQU BASE+62 02609000 BALCCNT EQU BASE+61 02610000 BADUMPID EQU BASE+60 02611000 BABCMAX EQU BASE+58 02612000 BAMONTR2 EQU BASE+57 02613000 @NM00023 EQU BAMONITR 02614000 BAMACTVE EQU BAMONITR 02615000 @NM00022 EQU BAMONITR 02616000 @NM00021 EQU BAMONITR 02617000 @NM00020 EQU BAMONITR 02618000 @NM00019 EQU BAMONITR 02619000 BASPACE EQU BAMONITR 02620000 BADSN EQU BAMONITR 02621000 BADSO EQU BASE+52 02622000 BALOGECB EQU BASE+48 02623000 @NM00018 EQU BASPBYTE 02624000 @NM00017 EQU BASPBYTE 02625000 @NM00016 EQU BASPBYTE 02626000 @NM00015 EQU BASPBYTE 02627000 @NM00014 EQU BASPBYTE 02628000 BAMASCH EQU BASPBYTE 02629000 BATRACE EQU BASPBYTE 02630000 BAMSSTAR EQU BASPBYTE 02631000 @NM00013 EQU MSLOGST 02632000 @NM00012 EQU MSLOGST 02633000 MSLOGSTA EQU MSLOGST 02634000 MSLOGIPL EQU MSLOGST 02635000 MSLOGDAR EQU MSLOGST 02636000 MSLOGCOM EQU MSLOGST 02637000 MSLOGTHD EQU MSLOGST 02638000 MSLOGENQ EQU MSLOGST 02639000 BAMIPAR2 EQU BASE+44 02640000 BAMINPAR EQU BASE+42 02641000 BAPKES EQU BASE+40 02642000 BAICTR EQU BASE+38 02643000 @NM00011 EQU BASE+37 02644000 BADSET EQU BARSW 02645000 BANOSET EQU BARSW 02646000 BAMIDNT EQU BARSW 02647000 BAHR EQU BARSW 02648000 BAVU EQU BARSW 02649000 BAINTSET EQU BARSW 02650000 MSTODWTO EQU BARSW 02651000 BAIN EQU BARSW 02652000 BACV EQU BASE+32 02653000 @NM00010 EQU BALOG 02654000 @NM00009 EQU BALOG 02655000 @NM00008 EQU BALOG 02656000 @NM00007 EQU BALOG 02657000 @NM00006 EQU BALOG 02658000 @NM00005 EQU BALOG 02659000 @NM00004 EQU BALOG 02660000 BALOGINT EQU BALOG 02661000 MSLOGSVC EQU BALGSTAT 02662000 BAPRC EQU BASE+20 02663000 BAQ EQU BASE+16 02664000 BAIPLCC EQU @NM00002+2 02665000 @NM00003 EQU @NM00002 02666000 BAIPL EQU BASE+12 02667000 BALAD EQU BASE+8 02668000 BATRM EQU BASE+4 02669000 BACHN EQU BASE 02670000 ASVTEND EQU ASVT+528 02671000 ASVTAVAL EQU ASVTENTY 02672000 ASVTAVAI EQU ASVTFRST 02673000 ASVTRS00 EQU ASVT+520 02674000 ASVTASVT EQU ASVT+512 02675000 ASVTBEGN EQU ASVT+512 02676000 @NM00001 EQU ASVT 02677000 ASCBEND EQU ASCB+208 02678000 ASCBSRBT EQU ASCB+200 02679000 ASCBSWTL EQU ASCB+196 02680000 ASCBRS14 EQU ASCB+195 02681000 ASCBSMCT EQU ASCB+194 02682000 ASCBRS12 EQU ASCB+192 02683000 ASCBPCTT EQU ASCB+188 02684000 ASCBVGTT EQU ASCB+184 02685000 ASCBLGCB EQU ASCB+180 02686000 ASCBJBNS EQU ASCB+176 02687000 ASCBJBNI EQU ASCB+172 02688000 ASCBMCC EQU ASCB+168 02689000 ASCBRTWA EQU ASCB+164 02690000 ASCBIQEA EQU ASCB+160 02691000 ASCBXMPQ EQU ASCB+156 02692000 ASCBRS01 EQU ASCB+154 02693000 ASCBFMCT EQU ASCB+152 02694000 ASCBOUXB EQU ASCB+148 02695000 ASCBOUCB EQU ASCB+144 02696000 ASCBMECB EQU ASCB+140 02697000 ASCBQECB EQU ASCB+136 02698000 ASCBCMSB EQU ASCB+132 02699000 ASCBCMSF EQU ASCB+128 02700000 ASCBTCBS EQU ASCB+124 02701000 ASCBNVSC EQU ASCB+122 02702000 ASCBVSC EQU ASCB+120 02703000 ASCBSRBS EQU ASCB+118 02704000 ASCBSSRB EQU ASCB+116 02705000 ASCBRV06 EQU ASCBFLG2 02706000 ASCBRV05 EQU ASCBFLG2 02707000 ASCBRV04 EQU ASCBFLG2 02708000 ASCBSNQS EQU ASCBFLG2 02709000 ASCBS2S EQU ASCBFLG2 02710000 ASCBCEXT EQU ASCBFLG2 02711000 ASCBPXMT EQU ASCBFLG2 02712000 ASCBXMPT EQU ASCBFLG2 02713000 ASCBRF07 EQU ASCBDSP1 02714000 ASCBRF06 EQU ASCBDSP1 02715000 ASCBRF05 EQU ASCBDSP1 02716000 ASCBRF04 EQU ASCBDSP1 02717000 ASCBRF03 EQU ASCBDSP1 02718000 ASCBRF02 EQU ASCBDSP1 02719000 ASCBFAIL EQU ASCBDSP1 02720000 ASCBNOQ EQU ASCBDSP1 02721000 ASCBSWCT EQU ASCB+112 02722000 ASCBASXB EQU ASCB+108 02723000 ASCBTMCH EQU ASCB+104 02724000 ASCBNSWP EQU ASCBFLG1 02725000 ASCBTYP1 EQU ASCBFLG1 02726000 ASCBSTND EQU ASCBFLG1 02727000 ASCBABNT EQU ASCBFLG1 02728000 ASCBTERM EQU ASCBFLG1 02729000 ASCBS3S EQU ASCBFLG1 02730000 ASCBCMSH EQU ASCBFLG1 02731000 ASCBTOFF EQU ASCBFLG1 02732000 ASCBRF01 EQU ASCBRCTF 02733000 ASCBTMLW EQU ASCBRCTF 02734000 ASCBOUT EQU ASCBRCTF 02735000 ASCBWAIT EQU ASCBRCTF 02736000 ASCBRV08 EQU ASCBRCTF 02737000 ASCBFQU EQU ASCBRCTF 02738000 ASCBFRS EQU ASCBRCTF 02739000 ASCBTMNO EQU ASCBRCTF 02740000 ASCBAFFN EQU ASCBFW1 02741000 ASCBDUMP EQU ASCB+96 02742000 ASCBQSVC EQU ASCB+92 02743000 ASCBUBET EQU ASCB+88 02744000 ASCBECB EQU ASCB+84 02745000 ASCBJSTL EQU ASCB+80 02746000 ASCBEWST EQU ASCB+72 02747000 ASCBEJST EQU ASCB+64 02748000 ASCBCSCB EQU ASCB+56 02749000 ASCBRSM EQU ASCB+52 02750000 ASCBLDA EQU ASCB+48 02751000 ASCBSTOR EQU ASCB+44 02752000 ASCBDP EQU ASCB+43 02753000 ASCBRV07 EQU ASCB+42 02754000 ASCBIOSM EQU ASCB+40 02755000 ASCBSEQN EQU ASCB+38 02756000 ASCBASID EQU ASCB+36 02757000 ASCBCPUS EQU ASCB+32 02758000 ASCBSPL EQU ASCB+28 02759000 ASCBLSLQ EQU ASCB+24 02760000 ASCBFSLQ EQU ASCB+20 02761000 ASCBIOSP EQU ASCB+16 02762000 ASCBLOCK EQU ASCB+12 02763000 ASCBBWDP EQU ASCB+8 02764000 ASCBFWDP EQU ASCB+4 02765000 ASCBASCB EQU ASCB 02766000 ASCBEGIN EQU ASCB 02767000 @NM00066 EQU PSA+3412 02768000 PSASTAK EQU PSA+3072 02769000 @NM00065 EQU PSA+1032 02770000 PSAUSEND EQU PSA+1032 02771000 PSAPCPSW EQU PSA+1024 02772000 PSARV060 EQU PSA+1020 02773000 PSARV059 EQU PSA+1018 02774000 PSASVC13 EQU PSA+1016 02775000 PSASFACC EQU PSA+1008 02776000 PSASTOP EQU PSA+992 02777000 PSASTART EQU PSA+976 02778000 PSARSPSW EQU PSA+968 02779000 PSASRPSW EQU PSA+960 02780000 PSARV045 EQU PSA+892 02781000 PSARV044 EQU PSA+888 02782000 PSARV043 EQU PSA+884 02783000 PSARV042 EQU PSA+880 02784000 PSARV041 EQU PSA+876 02785000 PSARV040 EQU PSA+872 02786000 PSARV025 EQU PSA+868 02787000 PSADSSED EQU PSA+868 02788000 PSADSSPR EQU PSA+864 02789000 PSADSSFW EQU PSA+860 02790000 PSADSS14 EQU PSA+856 02791000 PSADSSPP EQU PSA+848 02792000 PSADSSRP EQU PSA+840 02793000 PSADSS05 EQU PSADSSF4 02794000 PSADSS10 EQU PSADSSF4 02795000 PSADSSVE EQU PSADSSF4 02796000 PSADSSDE EQU PSADSSF4 02797000 PSADSSC0 EQU PSADSSF4 02798000 PSADSSIE EQU PSADSSF4 02799000 PSADSS12 EQU PSADSSF4 02800000 PSADSSRC EQU PSADSSF4 02801000 PSARV057 EQU PSADSSF3 02802000 PSARV056 EQU PSADSSF3 02803000 PSARV055 EQU PSADSSF3 02804000 PSARV054 EQU PSADSSF3 02805000 PSADSSRW EQU PSADSSF3 02806000 PSADSSNM EQU PSADSSF3 02807000 PSADSSES EQU PSADSSF3 02808000 PSADSSGP EQU PSADSSF3 02809000 PSADSSF2 EQU PSADSSFL+1 02810000 PSADSSPI EQU PSADSSF1 02811000 PSADSSOI EQU PSADSSF1 02812000 PSADSSSP EQU PSADSSF1 02813000 PSADSSTP EQU PSADSSF1 02814000 PSADSSDW EQU PSADSSF1 02815000 PSADSSDD EQU PSADSSF1 02816000 PSADSSDM EQU PSADSSF1 02817000 PSADSSMV EQU PSADSSF1 02818000 PSADSSTS EQU PSA+816 02819000 PSADSSWK EQU PSA+812 02820000 PSADSSR3 EQU PSA+808 02821000 PSADSSR2 EQU PSA+804 02822000 PSADSSRS EQU PSA+800 02823000 PSASTOR EQU PSA+796 02824000 PSACPUSA EQU PSA+794 02825000 PSAVSTAP EQU PSA+792 02826000 PSAWKVAP EQU PSA+788 02827000 PSAWKRAP EQU PSA+784 02828000 PSAMCHIC EQU PSA+783 02829000 PSAMODE EQU PSA+782 02830000 PSASYMSK EQU PSA+781 02831000 PSAMCHFL EQU PSA+780 02832000 PSACR0 EQU PSA+776 02833000 PSAPSWSV EQU PSA+768 02834000 PSACLHS EQU PSAHLHI 02835000 PSALKR15 EQU PSALKSA+60 02836000 PSALKR14 EQU PSALKSA+56 02837000 PSALKR13 EQU PSALKSA+52 02838000 PSALKR12 EQU PSALKSA+48 02839000 PSALKR11 EQU PSALKSA+44 02840000 PSALKR10 EQU PSALKSA+40 02841000 PSALKR9 EQU PSALKSA+36 02842000 PSALKR8 EQU PSALKSA+32 02843000 PSALKR7 EQU PSALKSA+28 02844000 PSALKR6 EQU PSALKSA+24 02845000 PSALKR5 EQU PSALKSA+20 02846000 PSALKR4 EQU PSALKSA+16 02847000 PSALKR3 EQU PSALKSA+12 02848000 PSALKR2 EQU PSALKSA+8 02849000 PSALKR1 EQU PSALKSA+4 02850000 PSALKR0 EQU PSALKSA 02851000 PSARV023 EQU PSACLHT+52 02852000 PSALOCAL EQU PSACLHT+48 02853000 PSACMSL EQU PSACLHT+44 02854000 PSAOPTL EQU PSACLHT+40 02855000 PSATPACL EQU PSACLHT+36 02856000 PSATPDNL EQU PSACLHT+32 02857000 PSATPNCL EQU PSACLHT+28 02858000 PSAIOSLL EQU PSACLHT+24 02859000 PSAIOSUL EQU PSACLHT+20 02860000 PSAIOSCL EQU PSACLHT+16 02861000 PSAIOSSL EQU PSACLHT+12 02862000 PSASALCL EQU PSACLHT+8 02863000 PSAASML EQU PSACLHT+4 02864000 PSADISPL EQU PSACLHT 02865000 PSASRSA EQU PSA+636 02866000 PSARV050 EQU PSA+634 02867000 PSADSSGO EQU PSA+633 02868000 PSARECUR EQU PSA+632 02869000 PSAHLHIS EQU PSA+628 02870000 PSAIPCSA EQU PSA+624 02871000 @NM00064 EQU PSA+621 02872000 PSAIPCDM EQU PSA+620 02873000 PSAIPCD EQU PSA+616 02874000 @NM00063 EQU PSA+613 02875000 PSAIPCRM EQU PSA+612 02876000 PSAIPCR EQU PSA+608 02877000 PSAMCHEX EQU PSA+600 02878000 PSAMPSW EQU PSA+592 02879000 PSAEXPS2 EQU PSA+584 02880000 PSAEXPS1 EQU PSA+576 02881000 PSAPIREG EQU PSA+572 02882000 PSARSREG EQU PSA+568 02883000 PSAGPREG EQU PSA+556 02884000 PSARV022 EQU PSASUP4 02885000 PSARV021 EQU PSASUP4 02886000 PSARV020 EQU PSASUP4 02887000 PSARV019 EQU PSASUP4 02888000 PSARV018 EQU PSASUP4 02889000 PSARV017 EQU PSASUP4 02890000 PSARV016 EQU PSASUP4 02891000 PSARV015 EQU PSASUP4 02892000 PSARV014 EQU PSASUP3 02893000 PSARV013 EQU PSASUP3 02894000 PSARV012 EQU PSASUP3 02895000 PSARV011 EQU PSASUP3 02896000 PSARV010 EQU PSASUP3 02897000 PSARV009 EQU PSASUP3 02898000 PSARV008 EQU PSASUP3 02899000 PSAIOSUP EQU PSASUP3 02900000 PSALCR EQU PSASUP2 02901000 PSARTM EQU PSASUP2 02902000 PSAACR EQU PSASUP2 02903000 PSAIPCE2 EQU PSASUP2 02904000 PSAIPCES EQU PSASUP2 02905000 PSAIPCEC EQU PSASUP2 02906000 PSAGTF EQU PSASUP2 02907000 PSAIPCRI EQU PSASUP2 02908000 PSAIPCRP EQU PSASUP1 02909000 PSAIPCDR EQU PSASUP1 02910000 PSADISP EQU PSASUP1 02911000 PSALOCK EQU PSASUP1 02912000 PSAPI EQU PSASUP1 02913000 PSAEXT EQU PSASUP1 02914000 PSASVC EQU PSASUP1 02915000 PSAIO EQU PSASUP1 02916000 PSAANEW EQU PSA+544 02917000 PSATNEW EQU PSA+536 02918000 PSALCCAR EQU PSA+532 02919000 PSALCCAV EQU PSA+528 02920000 PSAPCCAR EQU PSA+524 02921000 PSAPCCAV EQU PSA+520 02922000 PSACPULA EQU PSA+518 02923000 PSACPUPA EQU PSA+516 02924000 PSAPSA EQU PSA+512 02925000 FLCHDEND EQU PSA+512 02926000 FLCCRSAV EQU FLCMCLA+280 02927000 FLCGRSAV EQU FLCMCLA+216 02928000 FLCFPSAV EQU FLCMCLA+184 02929000 FLCFLA EQU FLCMCLA+88 02930000 FLCRGNCD EQU FLCMCLA+84 02931000 FLCFSAA EQU FLCFSA+1 02932000 @NM00062 EQU FLCFSA 02933000 @NM00061 EQU FLCMCLA+72 02934000 FLCMCIC EQU FLCMCLA+64 02935000 @NM00060 EQU FLCMCLA+20 02936000 FLCIOAA EQU FLCIOA+1 02937000 @NM00059 EQU FLCIOA 02938000 @NM00058 EQU FLCMCLA+15 02939000 @NM00057 EQU FLCMCLA+14 02940000 @NM00056 EQU FLCMCLA+12 02941000 FLCLCL EQU FLCMCLA+8 02942000 FLCIOELA EQU FLCIOEL+1 02943000 @NM00055 EQU FLCIOEL 02944000 FLCCHNID EQU FLCMCLA 02945000 @NM00054 EQU PSA+160 02946000 FLCMTRCD EQU PSA+157 02947000 @NM00053 EQU PSA+156 02948000 FLCPERA EQU FLCPER+1 02949000 @NM00052 EQU FLCPER 02950000 @NM00051 EQU PSA+151 02951000 FLCPERCD EQU PSA+150 02952000 FLCMCNUM EQU PSA+149 02953000 @NM00050 EQU PSA+148 02954000 FLCTEAA EQU FLCTEA+1 02955000 @NM00049 EQU FLCTEA 02956000 PSAPIPC EQU PSAPICOD 02957000 PSAPIMC EQU PSAPICOD 02958000 PSAPIPER EQU PSAPICOD 02959000 PSARV049 EQU FLCPICOD 02960000 FLCPILCB EQU FLCPIILC 02961000 @NM00048 EQU FLCPIILC 02962000 @NM00047 EQU PSAEPPSW 02963000 FLCSVCN EQU PSAESPSW+2 02964000 FLCSILCB EQU FLCSVILC 02965000 @NM00046 EQU FLCSVILC 02966000 @NM00045 EQU PSAESPSW 02967000 FLCEICOD EQU PSAEEPSW+2 02968000 PSASPAD EQU PSAEEPSW 02969000 @NM00044 EQU PSA+128 02970000 FLCINPSW EQU PSA+120 02971000 FLCMNPSW EQU PSA+112 02972000 FLCPNPSW EQU PSA+104 02973000 FLCSNPSW EQU PSA+96 02974000 FLCENPSW EQU PSA+88 02975000 FLCTRACE EQU PSA+84 02976000 FLCTIMER EQU PSA+80 02977000 FLCCVT2 EQU PSA+76 02978000 FLCCAW EQU PSA+72 02979000 FLCCSW EQU PSA+64 02980000 FLCIOPSW EQU PSA+56 02981000 FLCMOPSW EQU PSA+48 02982000 FLCPOPSW EQU PSA+40 02983000 FLCSOPSW EQU PSA+32 02984000 FLCEOPSW EQU PSA+24 02985000 @NM00043 EQU FLCICCW2+4 02986000 FLCCVT EQU FLCICCW2 02987000 FLCICCW1 EQU FLCROPSW 02988000 FLCIPPSW EQU FLCRNPSW 02989000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02990000 @RC00171 EQU @RC00167 02991000 @RF00183 EQU @RC00167 02992000 @RF00232 EQU @RC00229 02993000 @PB00003 EQU @PB00004 02994000 @PB00002 EQU @PB00003 02995000 @ENDDATA EQU * 02996000 END IEAVMNTR 02997000