TITLE 'IEEMB820 - SMF INITIALIZATION ROUTER ' 00001000 IEEMB820 CSECT , 01.0001 00002000 @MAINENT DS 0H 01.0001 00003000 USING *,@15 01.0001 00004000 B @PROLOG 01.0001 00005000 DC AL1(16) 01.0001 00006000 DC C'IEEMB820 73.079' 01.0001 00007000 DROP @15 00008000 @PROLOG STM @14,@12,12(@13) 01.0001 00009000 BALR @12,0 01.0001 00010000 @PSTART DS 0H 01.0001 00011000 USING @PSTART,@12 01.0001 00012000 L @00,@SIZDATD 01.0001 00013000 GETMAIN R,LV=(0) 00014000 LR @11,@01 01.0001 00015000 USING @DATD,@11 01.0001 00016000 ST @13,@SA00001+4 01.0001 00017000 LM @00,@01,20(@13) 01.0001 00018000 ST @11,8(,@13) 01.0001 00019000 LR @13,@11 01.0001 00020000 MVC @PC00001(4),0(@01) 01.0001 00021000 *PARMP=R1; /* GET PARMLIST POINTER */ 00022000 LR PARMP,R1 01.0025 00023000 *RFY R1 UNRSTD; /* RELEASE REGISTER CONTROL */ 00024000 *STAE='0'B; /* ASSUME STAE SET UP OK */ 00025000 NI STAE,B'01111111' 01.0027 00026000 */********************************************************************/ 00027000 */* */ 00028000 */*SEGMENT NAME= INITPREP */ 00029000 */* */ 00030000 */*DESCRIPTIVE NAME= SMCA/STAE CREATION PROCESSING */ 00031000 */* */ 00032000 */*FUNCTION= */ 00033000 */* GENERALLY, THIS SEGMENT PERFORMS INITIALIZATION FUNCTIONS FOR */ 00034000 */* SMF INITIALIZATION. */ 00035000 */* */ 00036000 */* INITPREP PEFFORMS THE FOLLOWING FUNCTIONS: */ 00037000 */* */ 00038000 */* . SMCA INITIALIZATION */ 00039000 */* CORE FOR SMCA IS OBTAINED IN SQA - SUBPOOL 245, ALL */ 00040000 */* FIELDS IN SMCA ARE INITIALIZED TO ZERO AND */ 00041000 */* THE CVT IS INITIALIZED TO POINT TO SMCA. */ 00042000 */* */ 00043000 */* . STAE ENVIRONMENT INITIALIZATION */ 00044000 */* A STAE PARAMETER AREA IS INITIALIZED, INDICATING */ 00045000 */* THAT STAE IS SET UP FOR INITIALIZATION. THE ESTAE MACRO */ 00046000 */* IS ISSUED TO CREATE A STAE ENVIRONMENT. IF A NON ZERO RETURN */ 00047000 */* CODE IS RETURNED BY STAE, AN ERROR MESSAGE WILL BE ISSUED */ 00048000 */* AND SMF INITIALIZATION TERMINATED. */ 00049000 */* */ 00050000 */* OPERATION= NO SPECIAL ALGORITHMS ARE USED. */ 00051000 */* */ 00052000 */*ENTRY= IN-LINE SEGMENT */ 00053000 */* PURPOSE= SEE FUNCTION */ 00054000 */* INPUT= CVT */ 00055000 */* */ 00056000 */*EXITS= */ 00057000 */* CONDITION= STAE SUCCESSFULLY CREATED */ 00058000 */* OUTPUT= */ 00059000 */* SMCA WITH ALL FIELDS ZEROED */ 00060000 */* CVT INITIALIZED TO POINT TO SMCA */ 00061000 */* STAE ENVIRONMENT CREATED */ 00062000 */* RETURN CODES= NONE */ 00063000 */* */ 00064000 */* CONDITION= STAE NOT SUCCESSFULLY CREATED */ 00065000 */* OUPUT= */ 00066000 */* SMCA WITH ALL FIELDS INITIALIZED TO ZERO */ 00067000 */* CVT POINTING TO SMCA */ 00068000 */* STAE BIT SET ON INDICATING STAE FAILURE */ 00069000 */* RETURN CODES= NONE */ 00070000 */* */ 00071000 */********************************************************************/ 00072000 *RFY (R1) RSTD; /* RESERVE REGISTER */ 00073000 *R1 = LENGTH(SMCABASE); /* GET LENGTH OF SMCA BLOCK */ 00074000 LA R1,180 02.0029 00075000 *GEN(GETMAIN R,SP=245,LV=(R1)); /* GET CORE FOR SMCA */ 00076000 GETMAIN R,SP=245,LV=(R1) 00077000 *R1->SMCABASE=R1->SMCABASE&&R1->SMCABASE;/* SET ALL OF SMCA TO ZEROS */ 00078000 XC SMCABASE(180,R1),SMCABASE(R1) 02.0031 00079000 *R1->SMCAJWT=DEFLTJWT; /* SET DEFAULT JOB WAIT TIME */ 00080000 MVC SMCAJWT(4,R1),DEFLTJWT 02.0032 00081000 *CVTSMCA=R1; /* POINT CVT TO SMCA */ 00082000 L @10,CVTPTR 02.0033 00083000 ST R1,CVTSMCA(,@10) 02.0033 00084000 *STAEFOR='1'B; /* INDICATE STAE IS FOR SMF 00085000 * INITIALIZATION */ 00086000 OI STAEFOR,B'10000000' 02.0034 00087000 *STAELST(1:STAELEN)=DYMSTAE(1:STAELEN); /* INIT STAE LIST FORM */ 00088000 LH @10,STAELEN 02.0035 00089000 BCTR @10,0 02.0035 00090000 EX @10,@SM01099 02.0035 00091000 *RFY (R2,R3) RSTD; /* GET REGISTER CONTROL */ 00092000 *R2=ADDR(IEEMB825); /* ADDR OF STAE EXIT ROUTINE */ 00093000 L R2,@CV00061 02.0037 00094000 *R3=ADDR(STAEPARM); /* PARAM LIST FOR STAE EXIT */ 00095000 LA R3,STAEPARM 02.0038 00096000 *GEN(ESTAE (R2),,PARAM=(R3),PURGE=NONE,ASYNCH=YES,MF=(E,STAELST)); 00097000 ESTAE (R2),,PARAM=(R3),PURGE=NONE,ASYNCH=YES,MF=(E,STAELST) 00098000 *RFY (R2,R3) UNRSTD; /* RELEASE REGISTER CONTROL */ 00099000 *RFY STAERTCD RSTD; /* GET REGISTER CONTROL */ 00100000 *IF STAERTCD^=0 THEN /* STAE SET UP SUCCESSFULLY */ 00101000 LTR STAERTCD,STAERTCD 02.0042 00102000 BZ @RF00042 02.0042 00103000 * DO; /* NO, ISSUE ERROR MESSAGE */ 00104000 * STAE='1'B; /* INDICATE STAE FAILURE */ 00105000 OI STAE,B'10000000' 02.0044 00106000 * R1=ADDR(I480I); /* GET ADDR OF ERROR MESSAGE */ 00107000 L R1,@CV00063 02.0045 00108000 * GEN(WTO MF=(E,(R1))); /* ISSUE ERROR MESSAGE */ 00109000 WTO MF=(E,(R1)) 00110000 * END; 02.0047 00111000 *RFY STAERTCD UNRSTD; /* RELEASE REGISTER CONTROL */ 00112000 @RF00042 DS 0H 02.0049 00113000 *SMCAFIRT='1'B; /* INDICATE INIT IN PROGRESS */ 00114000 L @10,CVTPTR 02.0049 00115000 L @05,CVTSMCA(,@10) 02.0049 00116000 OI SMCAFIRT(@05),B'00010000' 02.0049 00117000 *RFY (R1) UNRSTD; /* RELEASE REGISTER CONTROL */ 00118000 *IF STAE='0'B THEN /* IS STAE SET UP SUCCESSFUL */ 00119000 TM STAE,B'10000000' 01.0051 00120000 BNZ @RF00051 01.0051 00121000 * DO; /* YES, CONTINUE WITH INIT */ 00122000 * IF MSSMFPRM=0 THEN /* PARMLIB NAME SPEC AT IPL */ 00123000 L @10,CVTMSER(,@10) 01.0053 00124000 ICM @05,15,MSSMFPRM(@10) 01.0053 00125000 BNZ @RF00053 01.0053 00126000 * PARMMEM='SMFPRM00'; /* NO, USE DEFALUT NAME */ 00127000 MVC PARMMEM(8),@CC01092 01.0054 00128000 * ELSE /* PARMLIB NAME SPEC AT IPL */ 00129000 * DO; 01.0055 00130000 B @RC00053 01.0055 00131000 @RF00053 DS 0H 01.0056 00132000 * PARMMEM=SMFPRMXX; /* GET MEMBER NAME FOR SMF */ 00133000 L @10,CVTPTR 01.0056 00134000 L @10,CVTMSER(,@10) 01.0056 00135000 L @10,MSSMFPRM(,@10) 01.0056 00136000 MVC PARMMEM(8),SMFPRMXX(@10) 01.0056 00137000 * RFY (R2,R3) RSTD; /* GET RGISTER CONTROL */ 00138000 * R3=MSSMFPRM; /* ADDRESS OF PARM AREA */ 00139000 LR R3,@10 01.0058 00140000 * R2=SMFPRMLN; /* LENGTH OF AREA */ 00141000 LH R2,SMFPRMLN(,@10) 01.0059 00142000 * GEN(FREEMAIN R,SP=245,A=(R3),LV=(R2)); /* FREE AREA */ 00143000 FREEMAIN R,SP=245,A=(R3),LV=(R2) 00144000 * RFY (R2,R3) UNRSTD; /* RELEASE REGISTER CONTROL */ 00145000 * END; 01.0062 00146000 * CALL IEEMB821(PARMMEM,JWTMIN,ADDR(SMCABASE)); /* PROCESS PARMS */ 00147000 @RC00053 LA @10,PARMMEM 01.0063 00148000 ST @10,@AL00001 01.0063 00149000 LA @10,JWTMIN 01.0063 00150000 ST @10,@AL00001+4 01.0063 00151000 L @10,CVTPTR 01.0063 00152000 LA @10,CVTSMCA(,@10) 01.0063 00153000 ST @10,@AL00001+8 01.0063 00154000 L @15,@CV01093 01.0063 00155000 LA @01,@AL00001 01.0063 00156000 BALR @14,@15 01.0063 00157000 * IF SMCAMAN='1'B THEN /* RECORDING TO BE PERFORMED */ 00158000 L @10,CVTPTR 01.0064 00159000 L @05,CVTSMCA(,@10) 01.0064 00160000 TM SMCAMAN(@05),B'01000000' 01.0064 00161000 BNO @RF00064 01.0064 00162000 * DO; /* YES,PREPARE FOR OPENS */ 00163000 * CALL IEEMB822(ADDR(SMCABASE),WTRTCBPT,WTRECBPT); 01.0066 00164000 LA @10,CVTSMCA(,@10) 01.0066 00165000 ST @10,@AL00001 01.0066 00166000 ST PARMP,@AL00001+4 01.0066 00167000 LA @10,WTRECBPT(,PARMP) 01.0066 00168000 ST @10,@AL00001+8 01.0066 00169000 L @15,@CV01094 01.0066 00170000 LA @01,@AL00001 01.0066 00171000 BALR @14,@15 01.0066 00172000 * IF SMCAMAN='1'B THEN /* ANY ERRORS IN OPEN INIT */ 00173000 L @10,CVTPTR 01.0067 00174000 L @10,CVTSMCA(,@10) 01.0067 00175000 TM SMCAMAN(@10),B'01000000' 01.0067 00176000 BNO @RF00067 01.0067 00177000 * DO; /* NO, WRITE SMF IPL RECORDS */ 00178000 * SMCAFIRT='0'B; /* INIT CAN RECORD NOW */ 00179000 NI SMCAFIRT(@10),B'11101111' 01.0069 00180000 * CALL IEEMB823(JWTMIN,CVTPTR); 01.0070 00181000 LA @10,JWTMIN 01.0070 00182000 ST @10,@AL00001 01.0070 00183000 LA @10,CVTPTR 01.0070 00184000 ST @10,@AL00001+4 01.0070 00185000 L @15,@CV01095 01.0070 00186000 LA @01,@AL00001 01.0070 00187000 BALR @14,@15 01.0070 00188000 * END; 01.0071 00189000 * END; 01.0072 00190000 @RF00067 DS 0H 01.0073 00191000 * END; 01.0073 00192000 @RF00064 DS 0H 01.0074 00193000 *IF SMCAMAN='0'B THEN /* RECORDING TO BE PERFORMED */ 00194000 @RF00051 L @10,CVTPTR 01.0074 00195000 L @10,CVTSMCA(,@10) 01.0074 00196000 TM SMCAMAN(@10),B'01000000' 01.0074 00197000 BNZ @RF00074 01.0074 00198000 * DO; /* NO, WRITE ^RECORDING MSG */ 00199000 * RFY (R1) RSTD; /* GET REGISTER CONTROL */ 00200000 * R1=ADDR(I351I); /* ADDR OF MESSAGE */ 00201000 L R1,@CV00062 01.0077 00202000 * GEN(WTO MF=(E,(R1))); /* WRITE MESSAGE */ 00203000 WTO MF=(E,(R1)) 00204000 * RFY (R1) UNRSTD; /* RELEASE REGISTER CONTROL */ 00205000 * END; 01.0080 00206000 *SMCAFIRT='0'B; /* INIT COMPLETE PROCESSING */ 00207000 @RF00074 L @10,CVTPTR 01.0081 00208000 L @10,CVTSMCA(,@10) 01.0081 00209000 NI SMCAFIRT(@10),B'11101111' 01.0081 00210000 *RETURN; 01.0082 00211000 @EL00001 L @13,4(,@13) 01.0082 00212000 @EF00001 L @00,@SIZDATD 01.0082 00213000 LR @01,@11 01.0082 00214000 FREEMAIN R,LV=(0),A=(1) 00215000 @ER00001 LM @14,@12,12(@13) 01.0082 00216000 BR @14 01.0082 00217000 *END IEEMB820 01.0083 00218000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00219000 */*%INCLUDE SYSLIB (B820SPEC) * 00220000 */*%INCLUDE SYSLIB (B820DATA) * 00221000 */*%INCLUDE SYSLIB (CVT ) * 00222000 */*%INCLUDE SYSLIB (IEEBASEA) * 00223000 */*%INCLUDE SYSLIB (IEESMCA ) * 00224000 */*%INCLUDE SYSLIB (INITPREP) * 00225000 */*%INCLUDE SYSLIB (INITPRES) * 00226000 *; 01.0083 00227000 B @EL00001 01.0083 00228000 @DATA DS 0H 00229000 @SM01099 MVC STAELST(0),DYMSTAE 00230000 @DATD DSECT 00231000 DS 0F 00232000 @SA00001 DS 18F 00233000 @PC00001 DS 1F 00234000 @AL00001 DS 3A 00235000 IEEMB820 CSECT 00236000 DS 0F 00237000 @DATD DSECT 00238000 DS 0D 00239000 JWTMIN DS F 00240000 DMYPARM DS A 00241000 PARMMEM DS CL8 00242000 STAEPARM DS CL124 00243000 ORG STAEPARM 00244000 STAESWCS DS BL1 00245000 ORG STAESWCS 00246000 STAEFOR DS BL1 00247000 @NM00003 EQU STAESWCS+0 00248000 ORG STAEPARM+1 00249000 @NM00004 DS CL3 00250000 STAEWKAR DS CL120 00251000 ORG STAEPARM+124 00252000 STAE DS BL1 00253000 IEEMB820 CSECT 00254000 DS 0F 00255000 @SIZDATD DC AL1(0) 00256000 DC AL3(@ENDDATD-@DATD) 00257000 @CV00061 DC V(IEEMB825) 00258000 @CV00062 DC V(IEE351I) 00259000 @CV00063 DC V(IEE480I) 00260000 @CV01093 DC V(IEEMB821) 00261000 @CV01094 DC V(IEEMB822) 00262000 @CV01095 DC V(IEEMB823) 00263000 DS 0D 00264000 @CC01092 DC C'SMFPRM00' 00265000 DEFLTJWT DC X'7FFFFFFF' 00266000 @DATD DSECT 00267000 STAELST ESTAE ,CT,PURGE=NONE,ASYNCH=YES,RECORD=YES,MF=L 00268000 IEEMB820 CSECT 00269000 DYMSTAE ESTAE ,CT,PURGE=NONE,ASYNCH=YES,RECORD=YES,MF=L 00270000 STAELEN DC AL2(*-DYMSTAE) LENTH OF STAE LIST FORM 00271000 @DATD DSECT 00272000 @ENDDATD EQU * 00273000 IEEMB820 CSECT 00274000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00275000 @01 EQU 01 00276000 @02 EQU 02 00277000 @03 EQU 03 00278000 @04 EQU 04 00279000 @05 EQU 05 00280000 @06 EQU 06 00281000 @07 EQU 07 00282000 @08 EQU 08 00283000 @09 EQU 09 00284000 @10 EQU 10 00285000 @11 EQU 11 00286000 @12 EQU 12 00287000 @13 EQU 13 00288000 @14 EQU 14 00289000 @15 EQU 15 00290000 PARMP EQU @04 00291000 R1 EQU @01 00292000 R2 EQU @02 00293000 R3 EQU @03 00294000 STAERTCD EQU @15 00295000 R0 EQU @00 00296000 CVTPTR EQU 16 00297000 PARMLIST EQU 0 00298000 WTRTCBPT EQU PARMLIST 00299000 WTRECBPT EQU PARMLIST+4 00300000 @NM00001 EQU 0 00301000 SMFPRMLN EQU @NM00001 00302000 SMFPRMXX EQU @NM00001+4 00303000 I351I EQU 0 00304000 I480I EQU 0 00305000 CVTMAP EQU 0 00306000 CVTDAR EQU CVTMAP+72 00307000 CVTFLGS1 EQU CVTDAR 00308000 CVTDCB EQU CVTMAP+116 00309000 CVTMSER EQU CVTMAP+148 00310000 CVTOPTA EQU CVTMAP+182 00311000 CVTOPTB EQU CVTMAP+183 00312000 CVTSMCA EQU CVTMAP+196 00313000 CVTTSCVT EQU CVTMAP+228 00314000 CVTTSFLG EQU CVTTSCVT 00315000 CVTGTF EQU CVTMAP+236 00316000 CVTGTFST EQU CVTGTF 00317000 CVTGTFS EQU CVTGTFST 00318000 CVTSTATE EQU CVTGTFST 00319000 CVTTMODE EQU CVTGTFST 00320000 CVTFORM EQU CVTGTFST 00321000 CVTUSR EQU CVTGTFST 00322000 CVTAQAVT EQU CVTMAP+240 00323000 CVTTCMFG EQU CVTAQAVT 00324000 CVTTATA EQU CVTMAP+244 00325000 CVTATER EQU CVTMAP+248 00326000 CVTEXT1 EQU CVTMAP+252 00327000 CVTPURG EQU CVTMAP+260 00328000 CVTQMSG EQU CVTMAP+268 00329000 CVTDMSR EQU CVTMAP+272 00330000 CVTAPF EQU CVTMAP+324 00331000 CVTEXT2 EQU CVTMAP+328 00332000 CVTHJES EQU CVTMAP+332 00333000 CVTPGSIA EQU CVTMAP+348 00334000 CVTA1F1 EQU CVTMAP+356 00335000 CVTSYSK EQU CVTMAP+357 00336000 CVTATMCT EQU CVTMAP+388 00337000 CVTXTNT1 EQU 0 00338000 CVTXTNT2 EQU 0 00339000 CVTDSSV EQU CVTXTNT2 00340000 CVTRSV90 EQU CVTXTNT2+5 00341000 CVTQID EQU CVTXTNT2+24 00342000 CVTRV400 EQU CVTXTNT2+52 00343000 CVTRV409 EQU CVTXTNT2+53 00344000 CVTATCVT EQU CVTXTNT2+64 00345000 CVTRV429 EQU CVTXTNT2+84 00346000 CVTRV438 EQU CVTXTNT2+85 00347000 CVTRV457 EQU CVTXTNT2+112 00348000 CVTRV466 EQU CVTXTNT2+113 00349000 CVTFIX EQU 0 00350000 CVTRELNO EQU CVTFIX+252 00351000 BASE EQU 0 00352000 @NM00007 EQU BASE+13 00353000 BALGSTAT EQU BASE+24 00354000 BALOG EQU BALGSTAT+4 00355000 BASFL EQU BASE+36 00356000 BARSW EQU BASFL 00357000 MSLOGST EQU BASE+46 00358000 BASPBYTE EQU BASE+47 00359000 BAMONITR EQU BASE+56 00360000 MSSMFPRM EQU BASE+96 00361000 @NM00031 EQU BASE+104 00362000 MSLGCLOZ EQU BASE+108 00363000 MSCLOSSW EQU MSLGCLOZ 00364000 MSLGWLOG EQU BASE+112 00365000 MSWLOGSW EQU MSLGWLOG 00366000 MSLGWTR EQU BASE+116 00367000 MSWTRSW EQU MSLGWTR 00368000 MSLGSTRT EQU BASE+120 00369000 MSSTRTSW EQU MSLGSTRT 00370000 MS1BASEX EQU BASE+136 00371000 BASES01 EQU 0 00372000 MSNTAL EQU BASES01 00373000 MSSSB EQU BASES01+1 00374000 MSBTN EQU MSSSB 00375000 MSPFG EQU BASES01+2 00376000 MSECBFL EQU BASES01+3 00377000 MSTUS EQU BASES01+4 00378000 MSSSA EQU MSTUS 00379000 MSINLSW EQU MSSSA 00380000 MSREOF EQU MSSSA 00381000 MSNWP EQU MSSSA 00382000 MSFHF EQU BASES01+5 00383000 SMCABASE EQU 0 00384000 SMCAOPT EQU SMCABASE 00385000 SMCAMISC EQU SMCABASE+1 00386000 SMCAMAN EQU SMCAMISC 00387000 SMCAFIRT EQU SMCAMISC 00388000 SMCAJWT EQU SMCABASE+8 00389000 SMCABUF EQU SMCABASE+12 00390000 SMCAPSTA EQU SMCABASE+30 00391000 SMCAPLBL EQU SMCABASE+34 00392000 SMCASTA EQU SMCABASE+46 00393000 SMCAALBL EQU SMCABASE+50 00394000 SMCAENTY EQU SMCABASE+80 00395000 SMCAENDI EQU SMCAENTY 00396000 SMCAFOPT EQU SMCABASE+82 00397000 SMCASWA EQU SMCABASE+104 00398000 SMCAASCB EQU SMCABASE+120 00399000 DYMPARM EQU 0 00400000 CVTS01 EQU CVTPGSIA 00401000 CVTLPDIA EQU CVTS01+12 00402000 CVTDIRST EQU CVTLPDIA 00403000 CVTSLIDA EQU CVTS01+24 00404000 CVTCTLFG EQU CVTS01+50 00405000 CVTRV100 EQU CVTS01+116 00406000 CVTRV109 EQU CVTS01+117 00407000 CVTRV118 EQU CVTS01+118 00408000 CVTRV127 EQU CVTS01+119 00409000 CVTRV157 EQU CVTS01+376 00410000 CVTRV166 EQU CVTS01+377 00411000 CVTRV175 EQU CVTS01+378 00412000 CVTRV184 EQU CVTS01+379 00413000 CVTRV210 EQU CVTS01+424 00414000 CVTRV219 EQU CVTS01+425 00415000 CVTRV228 EQU CVTS01+426 00416000 CVTRV237 EQU CVTS01+427 00417000 CVTMFRTR EQU CVTS01+452 00418000 CVTRV262 EQU CVTS01+468 00419000 CVTRV271 EQU CVTS01+469 00420000 CVTRV280 EQU CVTS01+470 00421000 CVTRV289 EQU CVTS01+471 00422000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00423000 CVTRV512 EQU CVTS01+608 00424000 CVTRV511 EQU CVTS01+604 00425000 CVTRV510 EQU CVTS01+600 00426000 CVTRV509 EQU CVTS01+596 00427000 CVTRV508 EQU CVTS01+592 00428000 CVTRV507 EQU CVTS01+588 00429000 CVTRV506 EQU CVTS01+584 00430000 CVTRV505 EQU CVTS01+580 00431000 CVTCSDRL EQU CVTS01+576 00432000 CVTEXP1 EQU CVTS01+572 00433000 CVTRMPMT EQU CVTS01+568 00434000 CVTRMPTT EQU CVTS01+564 00435000 CVTVPSA EQU CVTS01+560 00436000 CVTVSTOP EQU CVTS01+556 00437000 CVTVALST EQU CVTS01+552 00438000 CVTVTCH EQU CVTS01+548 00439000 CVTVWKUP EQU CVTS01+544 00440000 CVTWTCB EQU CVTS01+540 00441000 CVTSTPRS EQU CVTS01+536 00442000 CVT0PT02 EQU CVTS01+532 00443000 CVTDARCM EQU CVTS01+528 00444000 CVTIRECM EQU CVTS01+524 00445000 CVTJRECM EQU CVTS01+520 00446000 CVTVEMS0 EQU CVTS01+516 00447000 CVTSPFRR EQU CVTS01+512 00448000 CVTRLSTG EQU CVTS01+508 00449000 CVT0TC0A EQU CVTS01+504 00450000 CVTGMBR EQU CVTS01+500 00451000 CVTLFRM EQU CVTS01+496 00452000 CVTRMBR EQU CVTS01+492 00453000 CVTVIOP EQU CVTS01+488 00454000 CVTRV307 EQU CVTS01+486 00455000 CVTRV306 EQU CVTS01+484 00456000 CVTRV305 EQU CVTS01+482 00457000 CVTRV304 EQU CVTS01+480 00458000 CVTRV303 EQU CVTS01+478 00459000 CVTRV302 EQU CVTS01+476 00460000 CVTRV301 EQU CVTS01+475 00461000 CVTRV300 EQU CVTS01+474 00462000 CVTRV299 EQU CVTS01+473 00463000 CVTRV298 EQU CVTS01+472 00464000 CVTRV297 EQU CVTRV289 00465000 CVTRV296 EQU CVTRV289 00466000 CVTRV295 EQU CVTRV289 00467000 CVTRV294 EQU CVTRV289 00468000 CVTRV293 EQU CVTRV289 00469000 CVTRV292 EQU CVTRV289 00470000 CVTRV291 EQU CVTRV289 00471000 CVTRV290 EQU CVTRV289 00472000 CVTRV288 EQU CVTRV280 00473000 CVTRV287 EQU CVTRV280 00474000 CVTRV286 EQU CVTRV280 00475000 CVTRV285 EQU CVTRV280 00476000 CVTRV284 EQU CVTRV280 00477000 CVTRV283 EQU CVTRV280 00478000 CVTRV282 EQU CVTRV280 00479000 CVTRV281 EQU CVTRV280 00480000 CVTRV279 EQU CVTRV271 00481000 CVTRV278 EQU CVTRV271 00482000 CVTRV277 EQU CVTRV271 00483000 CVTRV276 EQU CVTRV271 00484000 CVTRV275 EQU CVTRV271 00485000 CVTRV274 EQU CVTRV271 00486000 CVTRV273 EQU CVTRV271 00487000 CVTRV272 EQU CVTRV271 00488000 CVTRV270 EQU CVTRV262 00489000 CVTRV269 EQU CVTRV262 00490000 CVTRV268 EQU CVTRV262 00491000 CVTRV267 EQU CVTRV262 00492000 CVTRV266 EQU CVTRV262 00493000 CVTRV265 EQU CVTRV262 00494000 CVTRV264 EQU CVTRV262 00495000 CVTRV263 EQU CVTRV262 00496000 CVTVFP EQU CVTS01+464 00497000 CVTVSI EQU CVTS01+460 00498000 CVTVPSIB EQU CVTS01+456 00499000 CVTMFACT EQU CVTMFRTR 00500000 CVTMFCTL EQU CVTS01+448 00501000 CVTPVBP EQU CVTS01+444 00502000 CVTPWI EQU CVTS01+440 00503000 CVTRV254 EQU CVTS01+438 00504000 CVTRV253 EQU CVTS01+436 00505000 CVTRV252 EQU CVTS01+434 00506000 CVTRV251 EQU CVTS01+433 00507000 CVTRV250 EQU CVTS01+432 00508000 CVTRV249 EQU CVTS01+431 00509000 CVTRV248 EQU CVTS01+430 00510000 CVTRV247 EQU CVTS01+429 00511000 CVTRV246 EQU CVTS01+428 00512000 CVTRV245 EQU CVTRV237 00513000 CVTRV244 EQU CVTRV237 00514000 CVTRV243 EQU CVTRV237 00515000 CVTRV242 EQU CVTRV237 00516000 CVTRV241 EQU CVTRV237 00517000 CVTRV240 EQU CVTRV237 00518000 CVTRV239 EQU CVTRV237 00519000 CVTRV238 EQU CVTRV237 00520000 CVTRV236 EQU CVTRV228 00521000 CVTRV235 EQU CVTRV228 00522000 CVTRV234 EQU CVTRV228 00523000 CVTRV233 EQU CVTRV228 00524000 CVTRV232 EQU CVTRV228 00525000 CVTRV231 EQU CVTRV228 00526000 CVTRV230 EQU CVTRV228 00527000 CVTRV229 EQU CVTRV228 00528000 CVTRV227 EQU CVTRV219 00529000 CVTRV226 EQU CVTRV219 00530000 CVTRV225 EQU CVTRV219 00531000 CVTRV224 EQU CVTRV219 00532000 CVTRV223 EQU CVTRV219 00533000 CVTRV222 EQU CVTRV219 00534000 CVTRV221 EQU CVTRV219 00535000 CVTRV220 EQU CVTRV219 00536000 CVTRV218 EQU CVTRV210 00537000 CVTRV217 EQU CVTRV210 00538000 CVTRV216 EQU CVTRV210 00539000 CVTRV215 EQU CVTRV210 00540000 CVTRV214 EQU CVTRV210 00541000 CVTRV213 EQU CVTRV210 00542000 CVTRV212 EQU CVTRV210 00543000 CVTRV211 EQU CVTRV210 00544000 CVTLCCAT EQU CVTS01+420 00545000 CVTPCCAT EQU CVTS01+416 00546000 CVTIPCRP EQU CVTS01+412 00547000 CVTIPCRI EQU CVTS01+408 00548000 CVTIPCDS EQU CVTS01+404 00549000 CVTAIDVT EQU CVTS01+400 00550000 CVTSSAP EQU CVTS01+396 00551000 CVTRV202 EQU CVTS01+394 00552000 CVTRV201 EQU CVTS01+392 00553000 CVTRV200 EQU CVTS01+390 00554000 CVTRV199 EQU CVTS01+388 00555000 CVTRV198 EQU CVTS01+386 00556000 CVTRV197 EQU CVTS01+384 00557000 CVTRV196 EQU CVTS01+383 00558000 CVTRV195 EQU CVTS01+382 00559000 CVTRV194 EQU CVTS01+381 00560000 CVTRV193 EQU CVTS01+380 00561000 CVTRV192 EQU CVTRV184 00562000 CVTRV191 EQU CVTRV184 00563000 CVTRV190 EQU CVTRV184 00564000 CVTRV189 EQU CVTRV184 00565000 CVTRV188 EQU CVTRV184 00566000 CVTRV187 EQU CVTRV184 00567000 CVTRV186 EQU CVTRV184 00568000 CVTRV185 EQU CVTRV184 00569000 CVTRV183 EQU CVTRV175 00570000 CVTRV182 EQU CVTRV175 00571000 CVTRV181 EQU CVTRV175 00572000 CVTRV180 EQU CVTRV175 00573000 CVTRV179 EQU CVTRV175 00574000 CVTRV178 EQU CVTRV175 00575000 CVTRV177 EQU CVTRV175 00576000 CVTRV176 EQU CVTRV175 00577000 CVTRV174 EQU CVTRV166 00578000 CVTRV173 EQU CVTRV166 00579000 CVTRV172 EQU CVTRV166 00580000 CVTRV171 EQU CVTRV166 00581000 CVTRV170 EQU CVTRV166 00582000 CVTRV169 EQU CVTRV166 00583000 CVTRV168 EQU CVTRV166 00584000 CVTRV167 EQU CVTRV166 00585000 CVTRV165 EQU CVTRV157 00586000 CVTRV164 EQU CVTRV157 00587000 CVTRV163 EQU CVTRV157 00588000 CVTRV162 EQU CVTRV157 00589000 CVTRV161 EQU CVTRV157 00590000 CVTRV160 EQU CVTRV157 00591000 CVTRV159 EQU CVTRV157 00592000 CVTRV158 EQU CVTRV157 00593000 CVTRV156 EQU CVTS01+372 00594000 CVTRSTWD EQU CVTS01+368 00595000 CVTSPOST EQU CVTS01+364 00596000 CVTIOBP EQU CVTS01+360 00597000 CVTASMVT EQU CVTS01+356 00598000 CVTRECRQ EQU CVTS01+352 00599000 CVTWSAC EQU CVTS01+348 00600000 CVTWSAG EQU CVTS01+344 00601000 CVTWSAL EQU CVTS01+340 00602000 CVTSPSA EQU CVTS01+336 00603000 CVTGLMN EQU CVTS01+332 00604000 CVTVEAC0 EQU CVTS01+328 00605000 CVT062R1 EQU CVTS01+324 00606000 CVTRPOST EQU CVTS01+320 00607000 CVTDQIQE EQU CVTS01+316 00608000 CVTCSD EQU CVTS01+312 00609000 CVTLKRMA EQU CVTS01+308 00610000 CVTRSPIE EQU CVTS01+304 00611000 CVTRENQ EQU CVTS01+300 00612000 CVTLQCB EQU CVTS01+296 00613000 CVTFQCB EQU CVTS01+292 00614000 CVTQCS01 EQU CVTS01+288 00615000 CVTAPFT EQU CVTS01+284 00616000 CVTPARRL EQU CVTS01+280 00617000 CVTVWAIT EQU CVTS01+276 00618000 CVTGSPL EQU CVTS01+272 00619000 CVTLSMQ EQU CVTS01+268 00620000 CVTGSMQ EQU CVTS01+264 00621000 CVTEXPRO EQU CVTS01+260 00622000 CVTOPCTP EQU CVTS01+256 00623000 CVTSIC EQU CVTS01+252 00624000 CVTTPIOS EQU CVTS01+248 00625000 CVTRTMS EQU CVTS01+244 00626000 CVTSDBF EQU CVTS01+240 00627000 CVTSCBP EQU CVTS01+236 00628000 CVTSDMP EQU CVTS01+232 00629000 CVTSV60 EQU CVTS01+228 00630000 CVTRTMCT EQU CVTS01+224 00631000 CVTASCBL EQU CVTS01+220 00632000 CVTASCBH EQU CVTS01+216 00633000 CVTGDA EQU CVTS01+212 00634000 CVTASVT EQU CVTS01+208 00635000 CVTVVMDI EQU CVTS01+204 00636000 CVTAQTOP EQU CVTS01+200 00637000 CVTIOSCS EQU CVTS01+196 00638000 CVTSDRM EQU CVTS01+192 00639000 CVTOPTE EQU CVTS01+188 00640000 CVTSTXU EQU CVTS01+184 00641000 CVTQUIS EQU CVTS01+180 00642000 CVTQREC EQU CVTS01+176 00643000 CVTS1EE EQU CVTS01+172 00644000 CVTFRAS EQU CVTS01+168 00645000 CVTQSAS EQU CVTS01+164 00646000 CVTCRAS EQU CVTS01+160 00647000 CVTCRMN EQU CVTS01+156 00648000 CVTDELCP EQU CVTS01+152 00649000 CVTFRECL EQU CVTS01+148 00650000 CVTGETCL EQU CVTS01+144 00651000 CVTBLDCP EQU CVTS01+140 00652000 CVTAUTHL EQU CVTS01+136 00653000 CVTRV146 EQU CVTS01+134 00654000 CVTRV145 EQU CVTS01+132 00655000 CVTRV144 EQU CVTS01+130 00656000 CVTMAXMP EQU CVTS01+128 00657000 CVTRV142 EQU CVTS01+126 00658000 CVTRV141 EQU CVTS01+125 00659000 CVTRV140 EQU CVTS01+124 00660000 CVTRV139 EQU CVTS01+123 00661000 CVTDSSAC EQU CVTS01+122 00662000 CVTRV513 EQU CVTS01+121 00663000 CVTIOSPL EQU CVTS01+120 00664000 CVTRV135 EQU CVTRV127 00665000 CVTRV134 EQU CVTRV127 00666000 CVTRV133 EQU CVTRV127 00667000 CVTRV132 EQU CVTRV127 00668000 CVTRV131 EQU CVTRV127 00669000 CVTRV130 EQU CVTRV127 00670000 CVTRV129 EQU CVTRV127 00671000 CVTRV128 EQU CVTRV127 00672000 CVTRV126 EQU CVTRV118 00673000 CVTRV125 EQU CVTRV118 00674000 CVTRV124 EQU CVTRV118 00675000 CVTRV123 EQU CVTRV118 00676000 CVTRV122 EQU CVTRV118 00677000 CVTRV121 EQU CVTRV118 00678000 CVTRV120 EQU CVTRV118 00679000 CVTRV119 EQU CVTRV118 00680000 CVTRV117 EQU CVTRV109 00681000 CVTRV116 EQU CVTRV109 00682000 CVTRV115 EQU CVTRV109 00683000 CVTRV114 EQU CVTRV109 00684000 CVTRV113 EQU CVTRV109 00685000 CVTRV112 EQU CVTRV109 00686000 CVTRV111 EQU CVTRV109 00687000 CVTRV110 EQU CVTRV109 00688000 CVTRV108 EQU CVTRV100 00689000 CVTRV107 EQU CVTRV100 00690000 CVTRV106 EQU CVTRV100 00691000 CVTRV105 EQU CVTRV100 00692000 CVTRV104 EQU CVTRV100 00693000 CVTRV103 EQU CVTRV100 00694000 CVTRV102 EQU CVTRV100 00695000 CVTRV101 EQU CVTRV100 00696000 CVTCSPIE EQU CVTS01+112 00697000 CVTSMFEX EQU CVTS01+108 00698000 CVTOLT0A EQU CVTS01+104 00699000 CVTSRBRT EQU CVTS01+100 00700000 CVTRSV82 EQU CVTS01+98 00701000 CVTRSV81 EQU CVTS01+96 00702000 CVTSYSWT EQU CVTS01+92 00703000 CVTRV327 EQU CVTS01+88 00704000 CVTRV326 EQU CVTS01+84 00705000 CVTRV325 EQU CVTS01+80 00706000 CVTRV324 EQU CVTS01+76 00707000 CVT0VL01 EQU CVTS01+72 00708000 CVTSHRVM EQU CVTS01+68 00709000 CVTRV332 EQU CVTS01+64 00710000 CVTTAS EQU CVTS01+60 00711000 CVTRSCN EQU CVTS01+56 00712000 CVTTRAC2 EQU CVTS01+54 00713000 CVTTRACE EQU CVTS01+52 00714000 CVTAPG EQU CVTS01+51 00715000 CVTSDTRC EQU CVTCTLFG 00716000 CVTGTRCE EQU CVTCTLFG 00717000 CVTRSV80 EQU CVTCTLFG 00718000 CVTRSV79 EQU CVTCTLFG 00719000 CVTDSTAT EQU CVTCTLFG 00720000 CVTRSV78 EQU CVTCTLFG 00721000 CVTRV333 EQU CVTCTLFG 00722000 CVTRV323 EQU CVTCTLFG 00723000 CVTSPVLK EQU CVTS01+49 00724000 CVTRSV77 EQU CVTS01+48 00725000 CVTRV331 EQU CVTS01+44 00726000 CVTRV330 EQU CVTS01+40 00727000 CVTRV329 EQU CVTS01+36 00728000 CVTRV328 EQU CVTS01+32 00729000 CVTRV322 EQU CVTS01+28 00730000 CVTSLID EQU CVTSLIDA+1 00731000 CVTSYLK EQU CVTSLIDA 00732000 CVTRV321 EQU CVTS01+20 00733000 CVTRV320 EQU CVTS01+16 00734000 CVTLPDIR EQU CVTLPDIA+1 00735000 CVTRSV69 EQU CVTDIRST 00736000 CVTRSV68 EQU CVTDIRST 00737000 CVTRSV67 EQU CVTDIRST 00738000 CVTRSV66 EQU CVTDIRST 00739000 CVTRSV65 EQU CVTDIRST 00740000 CVTRSV64 EQU CVTDIRST 00741000 CVTRSV63 EQU CVTDIRST 00742000 CVTDICOM EQU CVTDIRST 00743000 CVTPVTP EQU CVTS01+8 00744000 CVTLPDSR EQU CVTS01+4 00745000 CVTRSVA2 EQU CVTS01 00746000 SMCASTCB EQU SMCABASE+176 00747000 SMCAWTCB EQU SMCABASE+172 00748000 SMCAU83 EQU SMCABASE+168 00749000 SMCAPGM EQU SMCABASE+164 00750000 SMCARGNM EQU SMCABASE+160 00751000 SMCASPOT EQU SMCABASE+156 00752000 SMCASPIN EQU SMCABASE+152 00753000 SMCARGNS EQU SMCABASE+148 00754000 SMCAPGRL EQU SMCABASE+144 00755000 SMCAPGOT EQU SMCABASE+140 00756000 SMCAPGIN EQU SMCABASE+136 00757000 SMCATEXP EQU SMCABASE+132 00758000 SMCARS22 EQU SMCABASE+128 00759000 SMCARS21 EQU SMCABASE+124 00760000 SMCATJID EQU SMCAASCB+2 00761000 SMCAPOST EQU SMCAASCB 00762000 SMCADSCT EQU SMCABASE+116 00763000 SMCADSTM EQU SMCABASE+108 00764000 SMCASWD EQU SMCABASE+107 00765000 SMCASWC EQU SMCABASE+106 00766000 SMCASWB EQU SMCABASE+105 00767000 SMCADSSW EQU SMCASWA 00768000 SMCADSSP EQU SMCASWA 00769000 SMCAZEOD EQU SMCASWA 00770000 SMCANAVL EQU SMCASWA 00771000 SMCANADA EQU SMCASWA 00772000 SMCAOPFL EQU SMCASWA 00773000 SMCADSTR EQU SMCASWA 00774000 SMCASWAR EQU SMCASWA 00775000 SMCAXNAM EQU SMCABASE+96 00776000 @NM00048 EQU SMCABASE+92 00777000 SMCAXCTL EQU SMCABASE+88 00778000 SMCAWRTP EQU SMCABASE+84 00779000 SMCAENAL EQU SMCABASE+83 00780000 SMCAFGN EQU SMCAFOPT 00781000 SMCAFTDS EQU SMCAFOPT 00782000 SMCAFESV EQU SMCAFOPT 00783000 SMCAFVOL EQU SMCAFOPT 00784000 SMCAFDSA EQU SMCAFOPT 00785000 SMCAFEXT EQU SMCAFOPT 00786000 SMCAFOP2 EQU SMCAFOPT 00787000 SMCAFOP1 EQU SMCAFOPT 00788000 SMCAENOP EQU SMCAENTY+1 00789000 SMCADSNF EQU SMCAENDI 00790000 SMCARS20 EQU SMCAENDI 00791000 SMCARS19 EQU SMCAENDI 00792000 SMCARS18 EQU SMCAENDI 00793000 SMCARS17 EQU SMCAENDI 00794000 SMCARS16 EQU SMCAENDI 00795000 SMCARS15 EQU SMCAENDI 00796000 SMCARS14 EQU SMCAENDI 00797000 SMCAWAIT EQU SMCABASE+72 00798000 SMCASGFT EQU SMCABASE+68 00799000 SMCASGWR EQU SMCABASE+64 00800000 SMCABECB EQU SMCABASE+60 00801000 SMCAWECB EQU SMCABASE+56 00802000 SMCAADCB EQU SMCABASE+52 00803000 SMCAYORX EQU SMCABASE+51 00804000 SMCAANL EQU SMCAALBL 00805000 SMCAASL EQU SMCAALBL 00806000 SMCAANSL EQU SMCAALBL 00807000 SMCARS13 EQU SMCAALBL 00808000 SMCARS12 EQU SMCAALBL 00809000 SMCARS11 EQU SMCAALBL 00810000 SMCARS10 EQU SMCAALBL 00811000 SMCARS09 EQU SMCAALBL 00812000 SMCAADAR EQU SMCABASE+47 00813000 SMCAAVOL EQU SMCASTA 00814000 SMCAAUNT EQU SMCASTA 00815000 SMCARS08 EQU SMCASTA 00816000 SMCAAMOD EQU SMCASTA 00817000 SMCAAMTY EQU SMCASTA 00818000 SMCAADA EQU SMCASTA 00819000 SMCAATAP EQU SMCASTA 00820000 SMCAANAV EQU SMCASTA 00821000 SMCAADEV EQU SMCABASE+40 00822000 SMCAPDCB EQU SMCABASE+36 00823000 SMCAXORY EQU SMCABASE+35 00824000 SMCAPNL EQU SMCAPLBL 00825000 SMCAPSL EQU SMCAPLBL 00826000 SMCAPNSL EQU SMCAPLBL 00827000 SMCARS07 EQU SMCAPLBL 00828000 SMCARS06 EQU SMCAPLBL 00829000 SMCARS05 EQU SMCAPLBL 00830000 SMCARS04 EQU SMCAPLBL 00831000 SMCARS03 EQU SMCAPLBL 00832000 SMCAPDAR EQU SMCABASE+31 00833000 SMCAPVOL EQU SMCAPSTA 00834000 SMCAPUNT EQU SMCAPSTA 00835000 SMCARS02 EQU SMCAPSTA 00836000 SMCAMOD EQU SMCAPSTA 00837000 SMCAPMTY EQU SMCAPSTA 00838000 SMCAPDA EQU SMCAPSTA 00839000 SMCAPTAP EQU SMCAPSTA 00840000 SMCAPNAV EQU SMCAPSTA 00841000 SMCAPDEV EQU SMCABASE+24 00842000 SMCABUFP EQU SMCABASE+20 00843000 SMCASID EQU SMCABASE+16 00844000 SMCABSIZ EQU SMCABUF 00845000 SMCATIOT EQU SMCABASE+4 00846000 SMCATOFF EQU SMCABASE+2 00847000 SMCADUMP EQU SMCAMISC 00848000 SMCABSW EQU SMCAMISC 00849000 SMCADBSY EQU SMCAMISC 00850000 SMCAPSDP EQU SMCAMISC 00851000 SMCAOPI EQU SMCAMISC 00852000 SMCAUSER EQU SMCAMISC 00853000 SMCAFGND EQU SMCAOPT 00854000 SMCATDS EQU SMCAOPT 00855000 SMCARS01 EQU SMCAOPT 00856000 SMCAVOL EQU SMCAOPT 00857000 SMCADSA EQU SMCAOPT 00858000 SMCAEXT EQU SMCAOPT 00859000 SMCAOPT2 EQU SMCAOPT 00860000 SMCAOPT1 EQU SMCAOPT 00861000 MSSPARE EQU BASES01+52 00862000 MSABL EQU BASES01+48 00863000 MSUCBAL EQU BASES01+44 00864000 MSUCBPR EQU BASES01+40 00865000 MSBOBECB EQU BASES01+36 00866000 MSSJQ EQU BASES01+32 00867000 MSECB EQU BASES01+28 00868000 MSPBP EQU BASES01+24 00869000 MSERM EQU BASES01+22 00870000 MSPASS EQU BASES01+14 00871000 MSVRB EQU BASES01+6 00872000 MSQHR EQU MSFHF 00873000 @NM00047 EQU MSFHF 00874000 MSPSDT EQU MSFHF 00875000 MSREPLYB EQU MSFHF 00876000 MSFAX EQU MSFHF 00877000 MSTTT EQU MSFHF 00878000 MSCSD EQU MSFHF 00879000 MSNMF EQU MSFHF 00880000 MSJNF EQU MSSSA 00881000 MSYOUT EQU MSNWP 00882000 MSNRP EQU MSSSA 00883000 MSSRDR EQU MSREOF 00884000 MSWRLOG EQU MSSSA 00885000 MSNUPSW EQU MSSSA 00886000 MSWRPEN EQU MSSSA 00887000 MSSSSIPL EQU MSINLSW 00888000 MSSUM EQU MSECBFL 00889000 MSMCR EQU MSECBFL 00890000 MSYSOUT EQU MSECBFL 00891000 MSYSIN EQU MSECBFL 00892000 MSATTN EQU MSECBFL 00893000 MSWTL EQU MSECBFL 00894000 MSWTO EQU MSECBFL 00895000 MSEXT EQU MSECBFL 00896000 MSCCS EQU MSPFG 00897000 MSBSP EQU MSPFG 00898000 MSSYT EQU MSPFG 00899000 MSSYN EQU MSPFG 00900000 MSICR EQU MSPFG 00901000 MSCMC EQU MSPFG 00902000 MSPNB EQU MSPFG 00903000 MSDATE EQU MSPFG 00904000 @NM00046 EQU MSBTN 00905000 MSTN EQU MSBTN 00906000 @NM00045 EQU MSBTN 00907000 @NM00044 EQU MSBTN 00908000 MSSO EQU MSBTN 00909000 MSROLFLG EQU MSBTN 00910000 MSCANFLG EQU MSBTN 00911000 MSCONFLG EQU MSBTN 00912000 MSPNIP EQU MSNTAL 00913000 MSQNIP EQU MSNTAL 00914000 MSCURE34 EQU MSNTAL 00915000 @NM00043 EQU MSNTAL 00916000 @NM00042 EQU MSNTAL 00917000 @NM00041 EQU MSNTAL 00918000 @NM00040 EQU MSNTAL 00919000 MSNIP EQU MSNTAL 00920000 @NM00039 EQU MS1BASEX+40 00921000 @NM00038 EQU MS1BASEX+20 00922000 @NM00037 EQU MS1BASEX 00923000 @NM00036 EQU BASE+128 00924000 MSLGJSCB EQU BASE+124 00925000 @NM00035 EQU MSSTRTSW 00926000 MSSTRTP EQU MSSTRTSW 00927000 MSSTRTW EQU MSSTRTSW 00928000 @NM00034 EQU MSWTRSW 00929000 MSWTRP EQU MSWTRSW 00930000 MSWTRW EQU MSWTRSW 00931000 @NM00033 EQU MSWLOGSW 00932000 MSWLOGP EQU MSWLOGSW 00933000 MSWLOGW EQU MSWLOGSW 00934000 @NM00032 EQU MSCLOSSW 00935000 MSCLOSP EQU MSCLOSSW 00936000 MSCLOSW EQU MSCLOSSW 00937000 MSLOGLMT EQU @NM00031+1 00938000 MSLOGCLS EQU @NM00031 00939000 BAASCB EQU BASE+100 00940000 MSCOMMND EQU BASE+92 00941000 BASP12 EQU BASE+90 00942000 BASTCNT EQU BASE+88 00943000 BASESCT EQU BASE+86 00944000 BAJNCNT EQU BASE+84 00945000 BASUBECB EQU BASE+80 00946000 BALOGCOM EQU BASE+76 00947000 BADACNT EQU BASE+74 00948000 BATACNT EQU BASE+72 00949000 BAJBNR EQU BASE+64 00950000 BASP11 EQU BASE+62 00951000 BALCCNT EQU BASE+61 00952000 BADUMPID EQU BASE+60 00953000 BABCMAX EQU BASE+58 00954000 BAMONTR2 EQU BASE+57 00955000 @NM00030 EQU BAMONITR 00956000 BAMACTVE EQU BAMONITR 00957000 @NM00029 EQU BAMONITR 00958000 @NM00028 EQU BAMONITR 00959000 @NM00027 EQU BAMONITR 00960000 @NM00026 EQU BAMONITR 00961000 BASPACE EQU BAMONITR 00962000 BADSN EQU BAMONITR 00963000 BADSO EQU BASE+52 00964000 BALOGECB EQU BASE+48 00965000 @NM00025 EQU BASPBYTE 00966000 @NM00024 EQU BASPBYTE 00967000 @NM00023 EQU BASPBYTE 00968000 @NM00022 EQU BASPBYTE 00969000 @NM00021 EQU BASPBYTE 00970000 @NM00020 EQU BASPBYTE 00971000 @NM00019 EQU BASPBYTE 00972000 BAMSSTAR EQU BASPBYTE 00973000 @NM00018 EQU MSLOGST 00974000 @NM00017 EQU MSLOGST 00975000 MSLOGSTA EQU MSLOGST 00976000 MSLOGIPL EQU MSLOGST 00977000 MSLOGDAR EQU MSLOGST 00978000 MSLOGCOM EQU MSLOGST 00979000 MSLOGTHD EQU MSLOGST 00980000 MSLOGENQ EQU MSLOGST 00981000 BAMIPAR2 EQU BASE+44 00982000 BAMINPAR EQU BASE+42 00983000 BAPKES EQU BASE+40 00984000 BAICTR EQU BASE+38 00985000 @NM00016 EQU BASE+37 00986000 BADSET EQU BARSW 00987000 BANOSET EQU BARSW 00988000 BAMIDNT EQU BARSW 00989000 BAHR EQU BARSW 00990000 BAVU EQU BARSW 00991000 BAINTSET EQU BARSW 00992000 MSTODWTO EQU BARSW 00993000 BAIN EQU BARSW 00994000 BACV EQU BASE+32 00995000 @NM00015 EQU BALOG 00996000 @NM00014 EQU BALOG 00997000 @NM00013 EQU BALOG 00998000 @NM00012 EQU BALOG 00999000 @NM00011 EQU BALOG 01000000 @NM00010 EQU BALOG 01001000 @NM00009 EQU BALOG 01002000 BALOGINT EQU BALOG 01003000 MSLOGSVC EQU BALGSTAT 01004000 BAPRC EQU BASE+20 01005000 BAQ EQU BASE+16 01006000 BAIPLCC EQU @NM00007+2 01007000 @NM00008 EQU @NM00007 01008000 BAIPL EQU BASE+12 01009000 BALAD EQU BASE+8 01010000 BATRM EQU BASE+4 01011000 BACHN EQU BASE 01012000 CVTLEVL EQU CVTRELNO+2 01013000 CVTNUMB EQU CVTRELNO 01014000 CVTMDL EQU CVTFIX+250 01015000 @NM00006 EQU CVTFIX+248 01016000 @NM00005 EQU CVTFIX 01017000 CVTRV482 EQU CVTXTNT2+128 01018000 CVTRV481 EQU CVTXTNT2+124 01019000 CVTRV480 EQU CVTXTNT2+120 01020000 CVTRV479 EQU CVTXTNT2+118 01021000 CVTRV478 EQU CVTXTNT2+117 01022000 CVTRV477 EQU CVTXTNT2+116 01023000 CVTRV476 EQU CVTXTNT2+115 01024000 CVTRV475 EQU CVTXTNT2+114 01025000 CVTRV474 EQU CVTRV466 01026000 CVTRV473 EQU CVTRV466 01027000 CVTRV472 EQU CVTRV466 01028000 CVTRV471 EQU CVTRV466 01029000 CVTRV470 EQU CVTRV466 01030000 CVTRV469 EQU CVTRV466 01031000 CVTRV468 EQU CVTRV466 01032000 CVTRV467 EQU CVTRV466 01033000 CVTRV465 EQU CVTRV457 01034000 CVTRV464 EQU CVTRV457 01035000 CVTRV463 EQU CVTRV457 01036000 CVTRV462 EQU CVTRV457 01037000 CVTRV461 EQU CVTRV457 01038000 CVTRV460 EQU CVTRV457 01039000 CVTRV459 EQU CVTRV457 01040000 CVTRV458 EQU CVTRV457 01041000 CVTRV456 EQU CVTXTNT2+108 01042000 CVTRV455 EQU CVTXTNT2+104 01043000 CVTRV454 EQU CVTXTNT2+100 01044000 CVTRV453 EQU CVTXTNT2+96 01045000 CVTRV452 EQU CVTXTNT2+94 01046000 CVTRV451 EQU CVTXTNT2+92 01047000 CVTRV450 EQU CVTXTNT2+90 01048000 CVTRV449 EQU CVTXTNT2+88 01049000 CVTRV448 EQU CVTXTNT2+87 01050000 CVTRV447 EQU CVTXTNT2+86 01051000 CVTRV446 EQU CVTRV438 01052000 CVTRV445 EQU CVTRV438 01053000 CVTRV444 EQU CVTRV438 01054000 CVTRV443 EQU CVTRV438 01055000 CVTRV442 EQU CVTRV438 01056000 CVTRV441 EQU CVTRV438 01057000 CVTRV440 EQU CVTRV438 01058000 CVTRV439 EQU CVTRV438 01059000 CVTRV437 EQU CVTRV429 01060000 CVTRV436 EQU CVTRV429 01061000 CVTRV435 EQU CVTRV429 01062000 CVTRV434 EQU CVTRV429 01063000 CVTRV433 EQU CVTRV429 01064000 CVTRV432 EQU CVTRV429 01065000 CVTRV431 EQU CVTRV429 01066000 CVTRV430 EQU CVTRV429 01067000 CVTRV428 EQU CVTXTNT2+80 01068000 CVTRV427 EQU CVTXTNT2+76 01069000 CVTRV426 EQU CVTXTNT2+72 01070000 CVTRV425 EQU CVTXTNT2+68 01071000 CVTATACT EQU CVTATCVT 01072000 CVTRV423 EQU CVTXTNT2+62 01073000 CVTRV422 EQU CVTXTNT2+60 01074000 CVTRV421 EQU CVTXTNT2+58 01075000 CVTRV420 EQU CVTXTNT2+56 01076000 CVTRV419 EQU CVTXTNT2+55 01077000 CVTRV418 EQU CVTXTNT2+54 01078000 CVTRV417 EQU CVTRV409 01079000 CVTRV416 EQU CVTRV409 01080000 CVTRV415 EQU CVTRV409 01081000 CVTRV414 EQU CVTRV409 01082000 CVTRV413 EQU CVTRV409 01083000 CVTRV412 EQU CVTRV409 01084000 CVTRV411 EQU CVTRV409 01085000 CVTRV410 EQU CVTRV409 01086000 CVTRV408 EQU CVTRV400 01087000 CVTRV407 EQU CVTRV400 01088000 CVTRV406 EQU CVTRV400 01089000 CVTRV405 EQU CVTRV400 01090000 CVTRV404 EQU CVTRV400 01091000 CVTRV403 EQU CVTRV400 01092000 CVTRV402 EQU CVTRV400 01093000 CVTRV401 EQU CVTRV400 01094000 CVTRSVA1 EQU CVTXTNT2+48 01095000 CVTRSVA0 EQU CVTXTNT2+44 01096000 CVTRSV99 EQU CVTXTNT2+40 01097000 CVTRSV98 EQU CVTXTNT2+36 01098000 CVTRSV97 EQU CVTXTNT2+34 01099000 CVTRSV96 EQU CVTXTNT2+32 01100000 CVTOLTEP EQU CVTXTNT2+28 01101000 CVTQIDA EQU CVTQID+1 01102000 CVTRSV95 EQU CVTQID 01103000 CVTRSV94 EQU CVTXTNT2+20 01104000 CVTRSV93 EQU CVTXTNT2+16 01105000 CVTRSV92 EQU CVTXTNT2+12 01106000 CVTDEBVR EQU CVTXTNT2+8 01107000 CVTRSV91 EQU CVTXTNT2+6 01108000 CVTRSV9H EQU CVTRSV90 01109000 CVTRSV9G EQU CVTRSV90 01110000 CVTRSV9F EQU CVTRSV90 01111000 CVTRSV9E EQU CVTRSV90 01112000 CVTRSV9D EQU CVTRSV90 01113000 CVTRSV9C EQU CVTRSV90 01114000 CVTRSV9B EQU CVTRSV90 01115000 CVTRSV9A EQU CVTRSV90 01116000 CVTNUCLS EQU CVTXTNT2+4 01117000 CVTDSSVA EQU CVTDSSV+1 01118000 CVTRSV89 EQU CVTDSSV 01119000 CVTRSV88 EQU CVTXTNT1+8 01120000 CVTRSV87 EQU CVTXTNT1+4 01121000 CVTFACHN EQU CVTXTNT1 01122000 CVTRV488 EQU CVTMAP+412 01123000 CVTRV487 EQU CVTMAP+408 01124000 CVTRV486 EQU CVTMAP+404 01125000 CVTRV485 EQU CVTMAP+400 01126000 CVTRV484 EQU CVTMAP+396 01127000 CVTRV483 EQU CVTMAP+392 01128000 CVTATMCA EQU CVTATMCT+1 01129000 CVTATMST EQU CVTATMCT 01130000 CVTRSV61 EQU CVTMAP+384 01131000 CVTRSV60 EQU CVTMAP+380 01132000 CVTSTOA EQU CVTMAP+376 01133000 CVTRSV58 EQU CVTMAP+374 01134000 CVTRSV57 EQU CVTMAP+372 01135000 CVTDDCE EQU CVTMAP+368 01136000 CVTPNWFR EQU CVTMAP+364 01137000 CVTSMF EQU CVTMAP+360 01138000 CVTSULK EQU CVTMAP+358 01139000 CVTSLKO EQU CVTSYSK 01140000 CVTSLKP EQU CVTSYSK 01141000 CVTSLKQ EQU CVTSYSK 01142000 CVTSLKR EQU CVTSYSK 01143000 CVTRSV56 EQU CVTSYSK 01144000 CVTRSV55 EQU CVTSYSK 01145000 CVTRSV54 EQU CVTSYSK 01146000 CVTRSV53 EQU CVTSYSK 01147000 CVTRSV52 EQU CVTA1F1 01148000 CVTRSV51 EQU CVTA1F1 01149000 CVTRSV50 EQU CVTA1F1 01150000 CVTRSV49 EQU CVTA1F1 01151000 CVTRSV48 EQU CVTA1F1 01152000 CVTRSV47 EQU CVTA1F1 01153000 CVTSRSW EQU CVTA1F1 01154000 CVTPFSW EQU CVTA1F1 01155000 CVTPCVT EQU CVTMAP+352 01156000 CVTRSV46 EQU CVTMAP+344 01157000 CVTRSV45 EQU CVTMAP+340 01158000 CVTRSV44 EQU CVTMAP+338 01159000 CVTRSV43 EQU CVTMAP+336 01160000 CVTHJESA EQU CVTHJES+1 01161000 CVTRSV42 EQU CVTHJES 01162000 CVTEXT2A EQU CVTEXT2+1 01163000 CVTRSV41 EQU CVTEXT2 01164000 CVTAPFA EQU CVTAPF+1 01165000 CVTRSV40 EQU CVTAPF 01166000 CVTINTLA EQU CVTMAP+320 01167000 CVTERPV EQU CVTMAP+316 01168000 CVTEORM EQU CVTMAP+312 01169000 CVTMCHPR EQU CVTMAP+308 01170000 CVTTZ EQU CVTMAP+304 01171000 CVTJEPS EQU CVTMAP+300 01172000 CVTJESCT EQU CVTMAP+296 01173000 CVTMODE EQU CVTMAP+292 01174000 CVTPTRV EQU CVTMAP+288 01175000 CVTREAL EQU CVTMAP+284 01176000 CVTRSV39 EQU CVTMAP+280 01177000 CVTRSV38 EQU CVTMAP+276 01178000 CVTDMSRA EQU CVTDMSR+1 01179000 CVTRSV37 EQU CVTDMSR 01180000 CVTQMSGA EQU CVTQMSG+1 01181000 CVTRSV36 EQU CVTQMSG 01182000 CVTAMFF EQU CVTMAP+264 01183000 CVTPURGA EQU CVTPURG+1 01184000 CVTRSV35 EQU CVTPURG 01185000 CVTCBSP EQU CVTMAP+256 01186000 CVTATERA EQU CVTATER+1 01187000 CVTSYST EQU CVTATER 01188000 CVTTAT EQU CVTTATA+1 01189000 CVTTSKS EQU CVTTATA 01190000 CVTAQAVB EQU CVTAQAVT+1 01191000 CVTRSV34 EQU CVTTCMFG 01192000 CVTRSV33 EQU CVTTCMFG 01193000 CVTRSV32 EQU CVTTCMFG 01194000 CVTRSV31 EQU CVTTCMFG 01195000 CVTRSV30 EQU CVTTCMFG 01196000 CVTRSV29 EQU CVTTCMFG 01197000 CVTRSV28 EQU CVTTCMFG 01198000 CVTTCRDY EQU CVTTCMFG 01199000 CVTGTFA EQU CVTGTF+1 01200000 CVTRSV27 EQU CVTGTFST 01201000 CVTRSV26 EQU CVTGTFST 01202000 CVTRV319 EQU CVTUSR 01203000 CVTRV318 EQU CVTFORM 01204000 CVTRV317 EQU CVTTMODE 01205000 CVTRV316 EQU CVTSTATE 01206000 CVTRV315 EQU CVTGTFS 01207000 CVTGTFAV EQU CVTGTFS 01208000 CVT0SCR1 EQU CVTMAP+232 01209000 CVTTSCVB EQU CVTTSCVT+1 01210000 CVTRSV25 EQU CVTTSFLG 01211000 CVTRSV24 EQU CVTTSFLG 01212000 CVTRSV23 EQU CVTTSFLG 01213000 CVTRSV22 EQU CVTTSFLG 01214000 CVTRSV21 EQU CVTTSFLG 01215000 CVTRSV20 EQU CVTTSFLG 01216000 CVTRSV19 EQU CVTTSFLG 01217000 CVTTSRDY EQU CVTTSFLG 01218000 CVTRMS EQU CVTMAP+224 01219000 CVTPATCH EQU CVTMAP+220 01220000 CVTTSCE EQU CVTMAP+216 01221000 CVTLNKSC EQU CVTMAP+214 01222000 CVTQABST EQU CVTMAP+212 01223000 CVTMDLDS EQU CVTMAP+208 01224000 CVTUSER EQU CVTMAP+204 01225000 CVTABEND EQU CVTMAP+200 01226000 CVTRSV18 EQU CVTMAP+192 01227000 CVTQLPAQ EQU CVTMAP+188 01228000 CVTQCDSR EQU CVTMAP+184 01229000 CVTRSV17 EQU CVTOPTB 01230000 CVTRSV16 EQU CVTOPTB 01231000 CVTFP EQU CVTOPTB 01232000 CVTAPTHR EQU CVTOPTB 01233000 CVTNLOG EQU CVTOPTB 01234000 CVTTOD EQU CVTOPTB 01235000 CVTCTIMS EQU CVTOPTB 01236000 CVTPROT EQU CVTOPTB 01237000 CVTXPFP EQU CVTOPTA 01238000 CVTASCII EQU CVTOPTA 01239000 CVTRSV13 EQU CVTOPTA 01240000 CVTRSV12 EQU CVTOPTA 01241000 CVTNIP EQU CVTOPTA 01242000 CVTDDR EQU CVTOPTA 01243000 CVTAPR EQU CVTOPTA 01244000 CVTCCH EQU CVTOPTA 01245000 CVTSNCTR EQU CVTMAP+180 01246000 CVTQMWR EQU CVTMAP+176 01247000 CVTQOCR EQU CVTMAP+172 01248000 CVT1EF00 EQU CVTMAP+168 01249000 CVTMZ00 EQU CVTMAP+164 01250000 CVTHEAD EQU CVTMAP+160 01251000 CVTRSV11 EQU CVTMAP+156 01252000 CVT0PT01 EQU CVTMAP+152 01253000 CVTIERLC EQU CVTMAP+144 01254000 CVTILCH EQU CVTMAP+140 01255000 CVT0DS EQU CVTMAP+136 01256000 CVTFBOSV EQU CVTMAP+132 01257000 CVTNUCB EQU CVTMAP+128 01258000 CVTIXAVL EQU CVTMAP+124 01259000 CVTIOQET EQU CVTMAP+120 01260000 CVTDCBA EQU CVTMAP+117 01261000 CVTMVS2 EQU CVTDCB 01262000 CVT6DAT EQU CVTDCB 01263000 CVT4MPS EQU CVTDCB 01264000 CVTRSV09 EQU CVTDCB 01265000 CVT4MS1 EQU CVTDCB 01266000 CVT2SPS EQU CVTDCB 01267000 CVT1SSS EQU CVTDCB 01268000 CVTRSV08 EQU CVTDCB 01269000 CVTSTB EQU CVTMAP+112 01270000 CVTQTD00 EQU CVTMAP+108 01271000 CVTQTE00 EQU CVTMAP+104 01272000 CVTCUCB EQU CVTMAP+100 01273000 CVTSJQ EQU CVTMAP+96 01274000 CVTPBLDL EQU CVTMAP+92 01275000 CVTTPC EQU CVTMAP+88 01276000 CVTSVDCB EQU CVTMAP+84 01277000 CVTBRET EQU CVTMAP+82 01278000 CVTEXIT EQU CVTMAP+80 01279000 CVT0FN00 EQU CVTMAP+76 01280000 CVTDARA EQU CVTDAR+1 01281000 CVTRSV07 EQU CVTFLGS1 01282000 CVTRSV06 EQU CVTFLGS1 01283000 CVTRSV05 EQU CVTFLGS1 01284000 CVTRSV04 EQU CVTFLGS1 01285000 CVTRSV03 EQU CVTFLGS1 01286000 CVTRSV02 EQU CVTFLGS1 01287000 CVTRSV01 EQU CVTFLGS1 01288000 CVTDMPLK EQU CVTFLGS1 01289000 CVTXITP EQU CVTMAP+68 01290000 CVTZDTAB EQU CVTMAP+64 01291000 CVTMSLT EQU CVTMAP+60 01292000 CVTDATE EQU CVTMAP+56 01293000 CVTBTERM EQU CVTMAP+52 01294000 CVTSYSAD EQU CVTMAP+48 01295000 CVTXTLER EQU CVTMAP+44 01296000 CVTILK2 EQU CVTMAP+40 01297000 CVTILK1 EQU CVTMAP+36 01298000 CVTPRLTV EQU CVTMAP+32 01299000 CVTPCNVT EQU CVTMAP+28 01300000 CVT0VL00 EQU CVTMAP+24 01301000 CVTXAPG EQU CVTMAP+20 01302000 CVTBUF EQU CVTMAP+16 01303000 CVTJOB EQU CVTMAP+12 01304000 CVTLINK EQU CVTMAP+8 01305000 CVT0EF00 EQU CVTMAP+4 01306000 CVTTCBP EQU CVTMAP 01307000 CVT EQU CVTMAP 01308000 @NM00002 EQU @NM00001+2 01309000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01310000 @ENDDATA EQU * 01311000 END IEEMB820 01312000