TITLE 'ISTINMAL--ALOAD SERVICE ROUTINE *00001000 ' 00002000 ISTINMAL CSECT , 0001 00003000 ISTINCAL DS 0H 0001 00004000 ENTRY ISTINCAL 00005000 @MAINENT DS 0H 0001 00006000 USING *,@15 0001 00007000 B @PROLOG 0001 00008000 DC AL2(@EP00001-@MAINENT) 00009000 DROP @15 00010000 @PROLOG ST @14,12(,@13) 0001 00011000 STM @00,@12,20(@13) 0001 00012000 BALR @12,0 0001 00013000 @PSTART DS 0H 0001 00014000 USING @PSTART,@12 0001 00015000 AH @15,4(,@15) 0001 00016000 BR @15 0001 00017000 @EP00001 DS 0H 0002 00018000 LA 1,0 00019000 ST 1,20(13) 00020000 L 1,@SIZDATD 00021000 ST 1,28(13) 00022000 LA 1,40(13) 00023000 ST 1,32(13) 00024000 LA 1,0 00025000 ST 1,36(13) 00026000 MVI 36(13),X'20' 00027000 LA 1,28(13) 00028000 SVC 4 00029000 * IF REG15 ^= 0 THEN 0041 00030000 LTR REG15,REG15 0041 00031000 BZ @RF00041 0041 00032000 * DO; 0042 00033000 * GEN; 0043 00034000 STM 2,5,28(13) 00035000 L 14,12(13) 00036000 LM 0,12,20(13) 00037000 BR 14 00038000 * END; 0044 00039000 * GEN; 0045 00040000 @RF00041 DS 0H 0045 00041000 L 11,40(13) 00042000 STM 2,5,28(13) 00043000 USING @DATD,11 00044000 LM 0,1,20(13) 00045000 ST 11,8(13) 00046000 ST 13,@SA00001+4 00047000 LR 13,11 00048000 * RESPECIFY ISTLDPRM BASED(LDPRMPR4); 0046 00049000 * LDPRMPR4=R1; /*ESTABLISH POINTER TO ALOAD 00050000 * PARAMETER LIST */ 00051000 LR LDPRMPR4,R1 0047 00052000 * VBLBLDLT=VBLBLDLT&&VBLBLDLT; /* INIT BLDL LIST Y17VKE7*/ 00053000 XC VBLBLDLT(80),VBLBLDLT 0048 00054000 * FIXLIST=FIXLIST&&FIXLIST; /* INIT FIXLIST Y17VKE7*/ 00055000 XC FIXLIST(8),FIXLIST 0049 00056000 */********************************************************************/ 00057000 */* IEAQCDSR--SEARCHES THE ACTIVE LINK PACK AREA QUEUE FOR A */ 00058000 */* SPECIFIC MODULE. */ 00059000 */* INPUT: */ 00060000 */* R8 = ADDRESS OF ACTIVE LPA QUEUE */ 00061000 */* R9 = ADDRESS OF EPNAME OF MODULE */ 00062000 */* R0-R7,R10-R13,R15 = IRRELEVANT */ 00063000 */* R14 = CALLER'S RETURN ADDRESS */ 00064000 */* OUTPUT: */ 00065000 */* 1) RETURN TO CALLER VIA BR 14 -- CDE FOUND */ 00066000 */* R0 = FIRST 4 CHARACTERS OF ENTRY POINT NAME */ 00067000 */* R1 = LAST 4 CHARACTERS OF ENTRY POINT NAME */ 00068000 */* R2-R10,R12-R14 = UNCHANGED */ 00069000 */* R11 = ADDRESS OF CDE */ 00070000 */* R15 = UNPREDICTABLE */ 00071000 */* 2) RETURN TO CALLER VIA BR 14+4 -- CDE NOT FOUND */ 00072000 */* R0 = FIRST 4 CHARACTERS OF ENTRY POINT NAME */ 00073000 */* R1 = LAST 4 CHARACTERS OF ENTRY POINT NAME */ 00074000 */* R2-R10,R12-R14 = UNCHANGED */ 00075000 */* R11 = X'00000000' */ 00076000 */* R15 = UNPREDICTABLE */ 00077000 */********************************************************************/ 00078000 *RESPECIFY (SWITCH,R8,R9,CDENTPTR) RSTD; 0050 00079000 *SWITCH = 0; /* INIT SWITCH */ 0051 00080000 SLR SWITCH,SWITCH 0051 00081000 *R8 = CVTQLPAQ; /* ADDR OF FIRST CDE ON ACTIVE LPA QUEUE */ 0052 00082000 L @14,CVTPTR 0052 00083000 L R8,CVTQLPAQ(,@14) 0052 00084000 *R9 = ADDR(LDPMBR); /* ADDR OF ENTRY POINT NAME */ 0053 00085000 LR R9,LDPRMPR4 0053 00086000 *CALL IEAQCDSR; /* CALL ACTIVE LPA QUEUE SEARCH ROUTINE */ 0054 00087000 L @15,CVTQCDSR(,@14) 0054 00088000 BALR @14,@15 0054 00089000 *RESPECIFY (R8,R9) UNRSTD; 0055 00090000 *GEN SETS(SWITCH); 0056 00091000 LA SWITCH,1 IF CDE FOUND - SWITCH IS SET 00092000 *IF SWITCH = 1 THEN /* WAS CDE FOUND */ 0057 00093000 C SWITCH,@CF00065 0057 00094000 BNE @RF00057 0057 00095000 * DO; /* YES */ 0058 00096000 * MODEP = CDENTPT; /* RELOCATED EP ADDRESS */ 0059 00097000 L MODEP,CDENTPT(,CDENTPTR) 0059 00098000 * IF CDMIN = '1'B THEN /* IS THIS A MINOR CDE */ 0060 00099000 TM CDMIN(CDENTPTR),B'00000100' 0060 00100000 BNO @RF00060 0060 00101000 * CDENTPTR = CDXLMJP; /* YES - ADDR OF MAJOR CDE */ 0061 00102000 L CDENTPTR,CDXLMJP(,CDENTPTR) 0061 00103000 * EPADDR = XTLMSBAA; /* BEGINNING ADDRESS OF LOAD MOD */ 0062 00104000 @RF00060 L @14,XTLSTPTR(,CDENTPTR) 0062 00105000 L @10,XTLMSBAA(,@14) 0062 00106000 LR EPADDR,@10 0062 00107000 * ENDADDR = XTLMSBAA + XTLMSBLA; /* COMPUTE END LOAD MOD */ 0063 00108000 AL @10,XTLMSBLA(,@14) 0063 00109000 LR ENDADDR,@10 0063 00110000 * RESPECIFY CDENTPTR UNRSTD; 0064 00111000 * END; 0065 00112000 * ELSE 0066 00113000 * DO; /* NO - CDE WAS NOT FOUND */ 0066 00114000 B @RC00057 0066 00115000 @RF00057 DS 0H 0067 00116000 */********************************************************************/ 00117000 */* IEAVVMSR--SEARCHES THE LINK PACK AREA DIRECTORY FOR A SPECIFIC */ 00118000 */* MODULE. */ 00119000 */* INPUT: */ 00120000 */* R0 = FIRST 4 CHARACTERS OF ENTRY POINT NAME */ 00121000 */* R1 = LAST 4 CHARACTERS OF ENTRY POINT NAME */ 00122000 */* R3 = CVT ADDRESS */ 00123000 */* R2,R4-R13,R15 = IRRELEVANT */ 00124000 */* R14 = CALLER'S RETURN ADDRESS */ 00125000 */* OUTPUT: */ 00126000 */* 1) RETURN TO CALLER VIA BR 14 -- LPDE FOUND */ 00127000 */* R0 = ADDRESS OF LPDE */ 00128000 */* R1-R5,R10-R15 = UNCHANGED */ 00129000 */* R6-R9 = UNPREDICTABLE */ 00130000 */* 2) RETURN TO CALLER VIA BR 14+4 -- LPDE NOT FOUND */ 00131000 */* R0-R5,R7,R10-R15 = UNCHANGED */ 00132000 */* R6 = ADDRESS OF CDLKBASE */ 00133000 */* R8-R9 = UNPREDICTABLE */ 00134000 */********************************************************************/ 00135000 * GEN; 0067 00136000 LR 11,13 00137000 * MINORSW = 0; /* INDICATE FIRST SEARCH */ 00138000 MVI MINORSW,X'00' 0068 00139000 * GEN; 0069 00140000 LM R0,R1,LDPMBR(LDPRMPR4) MODULE NAME IN EBCDIC 00141000 * RESPECIFY R3 RSTD; 0070 00142000 * GETMAJOR: 0071 00143000 * R3=CVTPTR; /*ESTABLISH PTR FOR BLDL */ 00144000 GETMAJOR L @14,CVTPTR 0071 00145000 LR R3,@14 0071 00146000 * SWITCH=0; /*RESET SWITCH */ 00147000 SLR SWITCH,SWITCH 0072 00148000 * CALL IEAVVMSR; /*CALL TO LPA DIRECT SEARCH */ 00149000 L @15,CVTLPDSR(,@14) 0073 00150000 BALR @14,@15 0073 00151000 * GEN SETS(SWITCH); 0074 00152000 LA SWITCH,1 IF LPDE FOUND - SWITCH IS SET 00153000 * RESPECIFY R3 UNRSTD; 0075 00154000 * IF SWITCH=1 THEN /*WAS LPDE FOUND */ 00155000 C SWITCH,@CF00065 0076 00156000 BNE @RF00076 0076 00157000 * DO; /*YES */ 00158000 * RESPECIFY LPDEPTR RSTD; 0078 00159000 * LPDEPTR=R0; /*SET UP POINTER TO LPDE */ 00160000 LR LPDEPTR,R0 0079 00161000 * IF MINORSW = 0 THEN /*IS THIS THE FIRST SEARCH */ 00162000 CLI MINORSW,0 0080 00163000 BNE @RF00080 0080 00164000 * DO; /*YES - DETERMINE IF A MINOR */ 00165000 * MODEP=LPDENTP; /*SAVE ENTRY POINT ADDRESS */ 00166000 L MODEP,LPDENTP(,LPDEPTR) 0082 00167000 * IF LPDEMIN = '1'B THEN /*IS THIS A MINOR LPDE */ 00168000 TM LPDEMIN(LPDEPTR),B'00000100' 0083 00169000 BNO @RF00083 0083 00170000 * DO; /* YES SET UP TO GET MAJOR */ 00171000 * MINORSW = 1; /* INDICATE SEARCH FOR MAJOR */ 00172000 MVI MINORSW,X'01' 0085 00173000 * GEN; 0086 00174000 LM R0,R1,LPDEMJNM(LPDEPTR) MAJOR LPDE NAME 00175000 * GOTO GETMAJOR; /* SET UP TO CALL IEAQCDSR */ 00176000 B GETMAJOR 0087 00177000 * END; 0088 00178000 * END; 0089 00179000 @RF00083 DS 0H 0090 00180000 * EPADDR = LPDEXTAD; /*ADDR OF LOAD MOD BEGINNING */ 00181000 @RF00080 L @14,LPDEXTAD(,LPDEPTR) 0090 00182000 LR EPADDR,@14 0090 00183000 * ENDADDR=LPDEXTAD+LPDEXTLN; /*GET ENDING ADDRESS OF MODULE*/ 00184000 AL @14,LPDEXTLN(,LPDEPTR) 0091 00185000 LR ENDADDR,@14 0091 00186000 * RESPECIFY LPDEPTR UNRSTD; 0092 00187000 * END; 0093 00188000 * ELSE 0094 00189000 * DO; /*NO - LPDE WAS NOT FOUND */ 00190000 B @RC00076 0094 00191000 @RF00076 DS 0H 0095 00192000 */********************************************************************/ 00193000 */* BLDL ROUTINE */ 00194000 */* INPUT: */ 00195000 */* R0 = ADDR OF BLDL PARAMETER LIST */ 00196000 */* R1 = ADDR OF ALOAD PARAMETER LIST */ 00197000 */* OUTPUT: */ 00198000 */* R15 = RETURN CODE */ 00199000 */* 0 = SUCCESSFUL BLDL */ 00200000 */* NON-0 = UNSUCCESFUL BLDL */ 00201000 */********************************************************************/ 00202000 * VBLBLDNM=LDPMBR; /*PUT MEMBER NAME INTO BLDL 0095 00203000 * PARAMETER LIST */ 00204000 MVC VBLBLDNM(8),LDPMBR(LDPRMPR4) 0095 00205000 * VBLBLTFF='0001'X; /* Y17VKE7*/ 00206000 MVC VBLBLTFF(2),@CB00834 0096 00207000 * VBLBLTLL='004C'X; /* Y17VKE7*/ 00208000 MVC VBLBLTLL(2),@CB00835 0097 00209000 * R0=ADDR(VBLBLDLT); /*GET BLDL PARM LIST ADDRESS */ 00210000 LA R0,VBLBLDLT 0098 00211000 * R1=LDPRMPR4; /*GET ALOAD PARM LIST ADDRESS */ 00212000 LR R1,LDPRMPR4 0099 00213000 * CALL ISTINCBL; /*VTAM BLDL ROUTINE */ 00214000 L @15,@CV00817 0100 00215000 BALR @14,@15 0100 00216000 * IF REG15=0 THEN /*WAS BLDL SUCCESSFUL */ 00217000 LTR REG15,REG15 0101 00218000 BNZ @RF00101 0101 00219000 * DO; /*YES - SET UP FOR LOAD */ 00220000 */********************************************************************/ 00221000 */* LOAD MACRO */ 00222000 */* TO BRING THE LOAD MODULE CONTAINING THE SPECIFIED ENTRY POINT */ 00223000 */* INTO VIRTUAL STORAGE IF A USEABLE COPY IS NOT ALREADY */ 00224000 */* AVAILABLE. THE VIRTUAL STORAGE ADDRESS OF THE ENTRY POINT */ 00225000 */* AND THE LENGTH IN DOUBLE WORDS OF THE MODULE ARE RETURNED */ 00226000 */* TO THE USER. THE LOAD MODULE REMAINS IN VS UNTIL THE */ 00227000 */* RESPONSIBILITY COUNT IS REDUCED TO 0 THROUGH TASK */ 00228000 */* TERMINATION OR THROUGH THE USE OF THE DELETE MACRO. */ 00229000 */* INPUT: */ 00230000 */* DE = ADDRESS OF LIST ENTRY */ 00231000 */* DCB = ADDRESS OF DCB */ 00232000 */* OUTPUT: */ 00233000 */* R0 = ADDRESS OF ENTRY POINT TO LOAD MODULE REQUEST */ 00234000 */* R1 = LENGTH OF REQUESTED MODULE IN DOUBLE WORDS */ 00235000 */********************************************************************/ 00236000 * RESPECIFY (BLDLIST,DCBADDR) RSTD; 0103 00237000 * BLDLIST=ADDR(VBLBLDNM); /*GET BLDL LIST ADDRESS */ 00238000 LA BLDLIST,VBLBLDNM 0104 00239000 * DCBADDR=LDPDCBA; /*GET DCB ADDRESS */ 00240000 L DCBADDR,LDPDCBA(,LDPRMPR4) 0105 00241000 * GEN REFS(BLDLIST,DCBADDR) SETS(R0,R1); 0106 00242000 LOAD DE=(BLDLIST),DCB=(DCBADDR) 00243000 * MODEP=R0; /*SAVE ENTRY POINT ADDRESS OF 0107 00244000 * LOAD MODULE */ 0107 00245000 LR MODEP,R0 0107 00246000 * EPADDR = R0 - VBLBLEP; /* ADDR OF BEGINNING OF LOAD MOD */ 00247000 LR @14,R0 0108 00248000 SLR EPADDR,EPADDR 0108 00249000 ICM EPADDR,7,VBLBLEP 0108 00250000 SLR @14,EPADDR 0108 00251000 LR EPADDR,@14 0108 00252000 * START = R0 - VBLBLEP; /* ALSO FOR PGFIX Y17VKE7*/ 00253000 STCM @14,7,START 0109 00254000 * ENDADDR=EPADDR+(R1*8); /*COMPUTE END ADDR OF LOAD MODULE*/ 00255000 LR ENDADDR,R1 0110 00256000 SLA ENDADDR,3 0110 00257000 ALR ENDADDR,EPADDR 0110 00258000 * END1 =EPADDR+(R1*8); /*ALSO FOR PGFIX Y17VKE7*/ 00259000 LR @14,R1 0111 00260000 SLA @14,3 0111 00261000 ALR @14,EPADDR 0111 00262000 STCM @14,7,END1 0111 00263000 * END; 0112 00264000 * ELSE /*NO - BLDL FAILED */ 00265000 * R0=0; /*SET CONDITION-PREPARE EXIT */ 00266000 B @RC00101 0113 00267000 @RF00101 SLR R0,R0 0113 00268000 * END; 0114 00269000 @RC00101 DS 0H 0115 00270000 * RESPECIFY (R1,BLDLIST,DCBADDR,SWITCH) UNRSTD; 0115 00271000 @RC00076 DS 0H 0116 00272000 * END; 0116 00273000 * IF R0^=0 THEN /*IS MODULE IN CORE */ 00274000 @RC00057 LTR R0,R0 0117 00275000 BZ @RF00117 0117 00276000 * DO; /*YES */ 00277000 * MODLNTH = ENDADDR - EPADDR; /*CALCULATE MOD LNTH - FOR C02*/ 00278000 L @14,BACKPTR(,REG13) 0119 00279000 LR @05,ENDADDR 0119 00280000 SLR @05,EPADDR 0119 00281000 ST @05,MODLNTH(,@14) 0119 00282000 * GEN(LR 11,13); 0120 00283000 LR 11,13 00284000 * IF LDPFX='1'B THEN /*IS LOAD MOD TO BE FIXED */ 00285000 TM LDPFX(LDPRMPR4),B'10000000' 0121 00286000 BNO @RF00121 0121 00287000 * DO; /*YES */ 00288000 * RESPECIFY ECBADDR RSTD; 0123 00289000 * RETRY:; 0124 00290000 RETRY DS 0H 0125 00291000 * MALECB=0; /*INITIALIZE ECB */ 00292000 SLR @14,@14 0125 00293000 ST @14,MALECB 0125 00294000 * ECBADDR=ADDR(MALECB); /*GET ECB ADDR FOR PAGEFIX */ 00295000 LA ECBADDR,MALECB 0126 00296000 * HIBIT='1'B; /* Y17VKE7*/ 00297000 OI HIBIT,B'10000000' 0127 00298000 */********************************************************************/ 00299000 */* PAGEFIX */ 00300000 */* TO PREVENT PAGEOUTS FOR PARTICULAR VIRTUAL PAGES, ONCE THEY ARE*/ 00301000 */* IN REAL STORAGE. */ 00302000 */* INPUT: */ 00303000 */* R - AS WRITTEN, REGISTER FORM */ 00304000 */* A - ADDRESS OF START OF AREA (MVS) */ 00305000 */* A - ADDRESS OF LIST FOR PGFIX MACRO (SVS) */ 00306000 */* EA- END OF AREA + 1 (MVS) 0128 00307000 */* ECB - ADDRESS OF AN EVENT CONTROL BLOCK */ 00308000 */* OUTPUT: */ 00309000 */* R0-R1 = UNPREDICTABLE */ 00310000 */* R2-R14 = UNCHANGED */ 00311000 */* R15 = RETURN CODE: NOT CHECKED */ 00312000 */* */ 00313000 */* ECB - COMPLETION CODE: FROM WAIT */ 00314000 */* 0 - OPERATION COMPLETED NORMALLY */ 00315000 */* 4 - NOT DONE-ECB POSTED- ABEND ISSUED */ 00316000 */* 48 - TASK QUIESCED RESET ECB AND RETRY PGFIX (SVS) */ 00317000 */********************************************************************/ 00318000 * GEN REFS(EPADDR,ENDADDR,ECBADDR,MALECB) SETS(REG15,MALECBCD); 00319000 PGFIX R,A=(EPADDR),ECB=(ECBADDR),EA=(ENDADDR) 00320000 WAIT ECB=MALECB 00321000 * RESPECIFY ECBADDR UNRSTD; 0129 00322000 * IF MALECBCD='1'B THEN /*WAS PAGEFIX SUCCESSFUL */ 00323000 TM MALECBCD,B'00000100' 0130 00324000 BNO @RF00130 0130 00325000 * DO; /*NO */ 00326000 * REG15=4; /*ABEND HAS BEEN ISSUED */ 00327000 LA REG15,4 0132 00328000 * R0=0; /*INDICATE MODULE NOT IN CORE */ 00329000 SLR R0,R0 0133 00330000 * END; 0134 00331000 * ELSE 0135 00332000 * DO; /*YES - PAGEFIX WAS SUCCESSFUL*/ 00333000 B @RC00130 0135 00334000 @RF00130 DS 0H 0136 00335000 * REG15=0; /*INDICATE MODULE IN CORE */ 00336000 SLR REG15,REG15 0136 00337000 * R0=MODEP; /*GET ADDRESS OF LOAD MODULE */ 00338000 LR R0,MODEP 0137 00339000 * END; 0138 00340000 * END; 0139 00341000 * ELSE 0140 00342000 * DO; /*NO-LOAD MOD NOT TO BE FIXED */ 00343000 B @RC00121 0140 00344000 @RF00121 DS 0H 0141 00345000 * R0=MODEP; /*GET ADDRESS OF LOAD MODULE */ 00346000 LR R0,MODEP 0141 00347000 * REG15=0; /*INDICATE MODULE IN CORE */ 00348000 SLR REG15,REG15 0142 00349000 * END; 0143 00350000 * END; 0144 00351000 @RC00121 DS 0H 0145 00352000 * GEN; 0145 00353000 @RF00117 DS 0H 0145 00354000 L 13,4(13) 00355000 STM 15,0,16(13) SAVE RC OZ12763 00356000 L 0,@SIZDATD 00357000 LR 1,11 00358000 FREEMAIN R,LV=(0),A=(1) 00359000 LM 14,12,12(13) RESTORE REGS OZ12763 00360000 BR 14 00361000 * END ISTINMAL 0146 00362000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00363000 */*%INCLUDE SYSLIB (CVT ) * 00364000 */*%INCLUDE SYSLIB (IHALPDE ) * 00365000 */*%INCLUDE SYSLIB (IHACDE ) * 00366000 */*%INCLUDE SYSLIB (IHAXTLST) * 00367000 *; 0146 00368000 @EL00001 L @13,4(,@13) 0146 00369000 @EF00001 DS 0H 0146 00370000 @ER00001 L @14,12(,@13) 0146 00371000 LM @00,@12,20(@13) 0146 00372000 BR @14 0146 00373000 @DATA DS 0H 00374000 @DATD DSECT 00375000 DS 0F 00376000 @SA00001 DS 18F 00377000 ISTINMAL CSECT 00378000 DS 0F 00379000 @CF00065 DC F'1' 00380000 @DATD DSECT 00381000 DS 0D 00382000 VBLBLDLT DS CL80 00383000 ORG VBLBLDLT 00384000 VBLBLTFF DS CL2 00385000 VBLBLTLL DS CL2 00386000 VBLBLDNM DS CL8 00387000 VBLBLSYS DS CL6 00388000 VBLBLUSE DS CL62 00389000 ORG VBLBLUSE 00390000 @NM00014 DS CL15 00391000 VBLBLEP DS CL3 00392000 @NM00015 DS CL44 00393000 ORG VBLBLDLT+80 00394000 MALECB DS CL4 00395000 ORG MALECB 00396000 @NM00016 DS BL3 00397000 @NM00017 DS BL1 00398000 ORG @NM00017 00399000 @NM00018 DS BL1 00400000 MALECBQ1 EQU @NM00017+0 00401000 MALECBQ2 EQU @NM00017+0 00402000 @NM00019 EQU @NM00017+0 00403000 MALECBCD EQU @NM00017+0 00404000 @NM00020 EQU @NM00017+0 00405000 ORG MALECB+4 00406000 MINORSW DS BL1 00407000 DS CL3 00408000 FIXLIST DS CL8 00409000 ORG FIXLIST 00410000 @NM00023 DS BL1 00411000 START DS AL3 00412000 @NM00024 DS BL1 00413000 ORG @NM00024 00414000 HIBIT DS BL1 00415000 ORG FIXLIST+5 00416000 END1 DS AL3 00417000 ORG FIXLIST+8 00418000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00419000 @ENDDATD EQU * 00420000 ISTINMAL CSECT 00421000 DS 0F 00422000 @SIZDATD DC AL1(0) 00423000 DC AL3(@ENDDATD-@DATD) 00424000 @CV00817 DC V(ISTINCBL) 00425000 DS 0D 00426000 @CB00834 DC X'0001' 00427000 @CB00835 DC X'004C' 00428000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00429000 @01 EQU 01 00430000 @02 EQU 02 00431000 @03 EQU 03 00432000 @04 EQU 04 00433000 @05 EQU 05 00434000 @06 EQU 06 00435000 @07 EQU 07 00436000 @08 EQU 08 00437000 @09 EQU 09 00438000 @10 EQU 10 00439000 @11 EQU 11 00440000 @12 EQU 12 00441000 @13 EQU 13 00442000 @14 EQU 14 00443000 @15 EQU 15 00444000 REG15 EQU @15 00445000 LPDEPTR EQU @10 00446000 CDENTPTR EQU @11 00447000 LDPRMPTR EQU @01 00448000 R0 EQU @00 00449000 R1 EQU @01 00450000 BLDLIST EQU @02 00451000 MODEP EQU @02 00452000 DCBADDR EQU @03 00453000 R3 EQU @03 00454000 LDPRMPR4 EQU @04 00455000 SWITCH EQU @05 00456000 ECBADDR EQU @05 00457000 EPADDR EQU @06 00458000 ENDADDR EQU @07 00459000 R8 EQU @08 00460000 R9 EQU @09 00461000 REG13 EQU @13 00462000 CVTPTR EQU 16 00463000 CVTMAP EQU 0 00464000 CVTDAR EQU CVTMAP+72 00465000 CVTFLGS1 EQU CVTDAR 00466000 CVTDCB EQU CVTMAP+116 00467000 CVTIERLC EQU CVTMAP+144 00468000 CVTOPTA EQU CVTMAP+182 00469000 CVTOPTB EQU CVTMAP+183 00470000 CVTQCDSR EQU CVTMAP+184 00471000 CVTQLPAQ EQU CVTMAP+188 00472000 CVTGTF EQU CVTMAP+236 00473000 CVTGTFST EQU CVTGTF 00474000 CVTGTFS EQU CVTGTFST 00475000 CVTSTATE EQU CVTGTFST 00476000 CVTTMODE EQU CVTGTFST 00477000 CVTFORM EQU CVTGTFST 00478000 CVTAQAVT EQU CVTMAP+240 00479000 CVTTCMFG EQU CVTAQAVT 00480000 CVTVOLM2 EQU CVTMAP+244 00481000 CVTTATA EQU CVTVOLM2 00482000 CVTTSKS EQU CVTTATA 00483000 CVTVOLF2 EQU CVTTSKS 00484000 CVTTAT EQU CVTTATA+1 00485000 CVTATER EQU CVTMAP+248 00486000 CVTEXT1 EQU CVTMAP+252 00487000 CVTPURG EQU CVTMAP+260 00488000 CVTQMSG EQU CVTMAP+268 00489000 CVTDMSR EQU CVTMAP+272 00490000 CVTRSV37 EQU CVTDMSR 00491000 CVTDMSRF EQU CVTRSV37 00492000 CVTERPV EQU CVTMAP+316 00493000 CVTINTLA EQU CVTMAP+320 00494000 CVTAPF EQU CVTMAP+324 00495000 CVTEXT2 EQU CVTMAP+328 00496000 CVTHJES EQU CVTMAP+332 00497000 CVTPGSIA EQU CVTMAP+348 00498000 CVTA1F1 EQU CVTMAP+356 00499000 CVTSYSK EQU CVTMAP+357 00500000 CVTVOLM1 EQU CVTMAP+380 00501000 CVTVOLF1 EQU CVTVOLM1 00502000 CVTATMCT EQU CVTMAP+388 00503000 CVTXTNT1 EQU 0 00504000 CVTXTNT2 EQU 0 00505000 CVTDSSV EQU CVTXTNT2 00506000 CVTFLGBT EQU CVTXTNT2+5 00507000 CVTQID EQU CVTXTNT2+24 00508000 CVTSHS EQU CVTXTNT2+40 00509000 CVTRV400 EQU CVTXTNT2+52 00510000 CVTRV409 EQU CVTXTNT2+53 00511000 CVTATCVT EQU CVTXTNT2+64 00512000 CVTRV429 EQU CVTXTNT2+84 00513000 CVTRV438 EQU CVTXTNT2+85 00514000 CVTRV457 EQU CVTXTNT2+112 00515000 CVTRV466 EQU CVTXTNT2+113 00516000 CVTFIX EQU 0 00517000 CVTRELNO EQU CVTFIX+252 00518000 LPDE EQU 0 00519000 LPDENTP EQU LPDE+16 00520000 LPDEATTR EQU LPDE+28 00521000 LPDEMIN EQU LPDEATTR 00522000 LPDEATT2 EQU LPDE+29 00523000 LPDEMJNM EQU LPDE+32 00524000 LPDEXTLN EQU LPDEMJNM 00525000 LPDEXTAD EQU LPDEMJNM+4 00526000 CDENTRY EQU 0 00527000 CDENTPT EQU CDENTRY+16 00528000 CDXLMJP EQU CDENTRY+20 00529000 CDATTR EQU CDENTRY+28 00530000 CDMIN EQU CDATTR 00531000 CDATTR2 EQU CDENTRY+29 00532000 XTLST EQU 0 00533000 XTLMSBLA EQU XTLST+8 00534000 XTLMSBAA EQU XTLST+12 00535000 ISTLDPRM EQU 0 00536000 LDPMBR EQU ISTLDPRM 00537000 LDPDCBA EQU ISTLDPRM+16 00538000 LDPFG EQU ISTLDPRM+20 00539000 LDPFX EQU LDPFG 00540000 LDPFB2 EQU ISTLDPRM+21 00541000 IEAQCDSR EQU 0 00542000 IEAVVMSR EQU 0 00543000 @NM00021 EQU 0 00544000 BACKPTR EQU @NM00021+4 00545000 MODLNTH EQU 0 00546000 CVTS01 EQU CVTPGSIA 00547000 CVTLPDSR EQU CVTS01+4 00548000 CVTLPDIA EQU CVTS01+12 00549000 CVTDIRST EQU CVTLPDIA 00550000 CVTSLIDA EQU CVTS01+24 00551000 CVTCTLFG EQU CVTS01+50 00552000 CVTRV210 EQU CVTS01+424 00553000 CVTRV219 EQU CVTS01+425 00554000 CVTRV228 EQU CVTS01+426 00555000 CVTRV237 EQU CVTS01+427 00556000 CVTMFRTR EQU CVTS01+452 00557000 CVTRV262 EQU CVTS01+468 00558000 CVTRV271 EQU CVTS01+469 00559000 CVTRV280 EQU CVTS01+470 00560000 CVTRV289 EQU CVTS01+471 00561000 CVTGSDA EQU CVTS01+600 00562000 XTLSTPTR EQU CDXLMJP 00563000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00564000 CVTRV628 EQU CVTS01+728 00565000 CVTRV627 EQU CVTS01+724 00566000 CVTRV626 EQU CVTS01+720 00567000 CVTRV625 EQU CVTS01+716 00568000 CVTRV624 EQU CVTS01+712 00569000 CVTRV623 EQU CVTS01+708 00570000 CVTRV622 EQU CVTS01+704 00571000 CVTRV621 EQU CVTS01+700 00572000 CVTRV620 EQU CVTS01+696 00573000 CVTRV619 EQU CVTS01+692 00574000 CVTRV618 EQU CVTS01+688 00575000 CVTRV617 EQU CVTS01+684 00576000 CVTRV616 EQU CVTS01+680 00577000 CVTRV615 EQU CVTS01+676 00578000 CVTRV614 EQU CVTS01+672 00579000 CVTRV613 EQU CVTS01+668 00580000 CVTTCASP EQU CVTS01+664 00581000 CVT0PT03 EQU CVTS01+660 00582000 CVT0PT0E EQU CVTS01+656 00583000 CVTIRM EQU CVTS01+652 00584000 CVTCGK EQU CVTS01+648 00585000 CVTRV607 EQU CVTS01+644 00586000 CVTRV606 EQU CVTS01+640 00587000 CVTRV605 EQU CVTS01+636 00588000 CVTRV604 EQU CVTS01+632 00589000 CVTEFF02 EQU CVTS01+628 00590000 CVTCBBR EQU CVTS01+624 00591000 CVTSSCR EQU CVTS01+620 00592000 CVTEVENT EQU CVTS01+616 00593000 CVTCRCA EQU CVTS01+612 00594000 CVTTPIO EQU CVTS01+608 00595000 CVTADV EQU CVTS01+604 00596000 CVTGSDAB EQU CVTGSDA 00597000 CVTQV3 EQU CVTS01+596 00598000 CVTQV2 EQU CVTS01+592 00599000 CVTQV1 EQU CVTS01+588 00600000 CVTRPT EQU CVTS01+584 00601000 CVTSSRB EQU CVTS01+580 00602000 CVTCSDRL EQU CVTS01+576 00603000 CVTEXP1 EQU CVTS01+572 00604000 CVTRMPMT EQU CVTS01+568 00605000 CVTRMPTT EQU CVTS01+564 00606000 CVTVPSA EQU CVTS01+560 00607000 CVTVSTOP EQU CVTS01+556 00608000 CVTGTFR8 EQU CVTS01+552 00609000 CVTQUIT EQU CVTS01+548 00610000 CVTVACR EQU CVTS01+544 00611000 CVTWTCB EQU CVTS01+540 00612000 CVTSTPRS EQU CVTS01+536 00613000 CVT0PT02 EQU CVTS01+532 00614000 CVTDARCM EQU CVTS01+528 00615000 CVTIRECM EQU CVTS01+524 00616000 CVTJRECM EQU CVTS01+520 00617000 CVTVEMS0 EQU CVTS01+516 00618000 CVTSPFRR EQU CVTS01+512 00619000 CVTRLSTG EQU CVTS01+508 00620000 CVT0TC0A EQU CVTS01+504 00621000 CVTGMBR EQU CVTS01+500 00622000 CVTLFRM EQU CVTS01+496 00623000 CVTRMBR EQU CVTS01+492 00624000 CVTVIOP EQU CVTS01+488 00625000 CVTRV307 EQU CVTS01+486 00626000 CVTRV306 EQU CVTS01+484 00627000 CVTRV305 EQU CVTS01+482 00628000 CVTRV304 EQU CVTS01+480 00629000 CVTRV303 EQU CVTS01+478 00630000 CVTRV302 EQU CVTS01+476 00631000 CVTTRCA EQU CVTS01+472 00632000 CVTRV297 EQU CVTRV289 00633000 CVTRV296 EQU CVTRV289 00634000 CVTRV295 EQU CVTRV289 00635000 CVTRV294 EQU CVTRV289 00636000 CVTRV293 EQU CVTRV289 00637000 CVTRV292 EQU CVTRV289 00638000 CVTRV291 EQU CVTRV289 00639000 CVTRV290 EQU CVTRV289 00640000 CVTRV288 EQU CVTRV280 00641000 CVTRV287 EQU CVTRV280 00642000 CVTRV286 EQU CVTRV280 00643000 CVTRV285 EQU CVTRV280 00644000 CVTRV284 EQU CVTRV280 00645000 CVTRV283 EQU CVTRV280 00646000 CVTRV282 EQU CVTRV280 00647000 CVTRV281 EQU CVTRV280 00648000 CVTRV279 EQU CVTRV271 00649000 CVTRV278 EQU CVTRV271 00650000 CVTRV277 EQU CVTRV271 00651000 CVTRV276 EQU CVTRV271 00652000 CVTRV275 EQU CVTRV271 00653000 CVTRV274 EQU CVTRV271 00654000 CVTRV273 EQU CVTRV271 00655000 CVTRV272 EQU CVTRV271 00656000 CVTRV270 EQU CVTRV262 00657000 CVTRV269 EQU CVTRV262 00658000 CVTRV268 EQU CVTRV262 00659000 CVTRV267 EQU CVTRV262 00660000 CVTRV266 EQU CVTRV262 00661000 CVTRV265 EQU CVTRV262 00662000 CVTRV264 EQU CVTRV262 00663000 CVTRV263 EQU CVTRV262 00664000 CVTVFP EQU CVTS01+464 00665000 CVTVSI EQU CVTS01+460 00666000 CVTVPSIB EQU CVTS01+456 00667000 CVTMFACT EQU CVTMFRTR 00668000 CVTMFCTL EQU CVTS01+448 00669000 CVTPVBP EQU CVTS01+444 00670000 CVTPWI EQU CVTS01+440 00671000 CVTRV254 EQU CVTS01+438 00672000 CVTRV253 EQU CVTS01+436 00673000 CVTRV252 EQU CVTS01+434 00674000 CVTRV251 EQU CVTS01+433 00675000 CVTRV250 EQU CVTS01+432 00676000 CVTRV249 EQU CVTS01+431 00677000 CVTRV248 EQU CVTS01+430 00678000 CVTRV247 EQU CVTS01+429 00679000 CVTRV246 EQU CVTS01+428 00680000 CVTRV245 EQU CVTRV237 00681000 CVTRV244 EQU CVTRV237 00682000 CVTRV243 EQU CVTRV237 00683000 CVTRV242 EQU CVTRV237 00684000 CVTRV241 EQU CVTRV237 00685000 CVTRV240 EQU CVTRV237 00686000 CVTRV239 EQU CVTRV237 00687000 CVTRV238 EQU CVTRV237 00688000 CVTRV236 EQU CVTRV228 00689000 CVTRV235 EQU CVTRV228 00690000 CVTRV234 EQU CVTRV228 00691000 CVTRV233 EQU CVTRV228 00692000 CVTRV232 EQU CVTRV228 00693000 CVTRV231 EQU CVTRV228 00694000 CVTRV230 EQU CVTRV228 00695000 CVTRV229 EQU CVTRV228 00696000 CVTRV227 EQU CVTRV219 00697000 CVTRV226 EQU CVTRV219 00698000 CVTRV225 EQU CVTRV219 00699000 CVTRV224 EQU CVTRV219 00700000 CVTRV223 EQU CVTRV219 00701000 CVTRV222 EQU CVTRV219 00702000 CVTRV221 EQU CVTRV219 00703000 CVTRV220 EQU CVTRV219 00704000 CVTRV218 EQU CVTRV210 00705000 CVTRV217 EQU CVTRV210 00706000 CVTRV216 EQU CVTRV210 00707000 CVTRV215 EQU CVTRV210 00708000 CVTRV214 EQU CVTRV210 00709000 CVTRV213 EQU CVTRV210 00710000 CVTRV212 EQU CVTRV210 00711000 CVTRV211 EQU CVTRV210 00712000 CVTLCCAT EQU CVTS01+420 00713000 CVTPCCAT EQU CVTS01+416 00714000 CVTIPCRP EQU CVTS01+412 00715000 CVTIPCRI EQU CVTS01+408 00716000 CVTIPCDS EQU CVTS01+404 00717000 CVTAIDVT EQU CVTS01+400 00718000 CVTSSAP EQU CVTS01+396 00719000 CVTEHCIR EQU CVTS01+392 00720000 CVTEHDEF EQU CVTS01+388 00721000 CVTDAIR EQU CVTS01+384 00722000 CVTPERFM EQU CVTS01+380 00723000 CVT044R2 EQU CVTS01+376 00724000 CVTFETCH EQU CVTS01+372 00725000 CVTRSTWD EQU CVTS01+368 00726000 CVTSPOST EQU CVTS01+364 00727000 CVTIOBP EQU CVTS01+360 00728000 CVTASMVT EQU CVTS01+356 00729000 CVTRECRQ EQU CVTS01+352 00730000 CVTWSAC EQU CVTS01+348 00731000 CVTRV149 EQU CVTS01+344 00732000 CVTWSAL EQU CVTS01+340 00733000 CVTSPSA EQU CVTS01+336 00734000 CVTGLMN EQU CVTS01+332 00735000 CVTVEAC0 EQU CVTS01+328 00736000 CVT062R1 EQU CVTS01+324 00737000 CVTRPOST EQU CVTS01+320 00738000 CVTDQIQE EQU CVTS01+316 00739000 CVTCSD EQU CVTS01+312 00740000 CVTLKRMA EQU CVTS01+308 00741000 CVTRSPIE EQU CVTS01+304 00742000 CVTRENQ EQU CVTS01+300 00743000 CVTLQCB EQU CVTS01+296 00744000 CVTFQCB EQU CVTS01+292 00745000 CVTQCS01 EQU CVTS01+288 00746000 CVTAPFT EQU CVTS01+284 00747000 CVTPARRL EQU CVTS01+280 00748000 CVTVWAIT EQU CVTS01+276 00749000 CVTGSPL EQU CVTS01+272 00750000 CVTLSMQ EQU CVTS01+268 00751000 CVTGSMQ EQU CVTS01+264 00752000 CVTEXPRO EQU CVTS01+260 00753000 CVTOPCTP EQU CVTS01+256 00754000 CVTSIC EQU CVTS01+252 00755000 CVTTPIOS EQU CVTS01+248 00756000 CVTRTMS EQU CVTS01+244 00757000 CVTSDBF EQU CVTS01+240 00758000 CVTSCBP EQU CVTS01+236 00759000 CVTSDMP EQU CVTS01+232 00760000 CVTSV60 EQU CVTS01+228 00761000 CVTRTMCT EQU CVTS01+224 00762000 CVTASCBL EQU CVTS01+220 00763000 CVTASCBH EQU CVTS01+216 00764000 CVTGDA EQU CVTS01+212 00765000 CVTASVT EQU CVTS01+208 00766000 CVTVVMDI EQU CVTS01+204 00767000 CVTAQTOP EQU CVTS01+200 00768000 CVTIOSCS EQU CVTS01+196 00769000 CVTSDRM EQU CVTS01+192 00770000 CVTOPTE EQU CVTS01+188 00771000 CVTSTXU EQU CVTS01+184 00772000 CVTQUIS EQU CVTS01+180 00773000 CVTPARS EQU CVTS01+176 00774000 CVTS1EE EQU CVTS01+172 00775000 CVTFRAS EQU CVTS01+168 00776000 CVTQSAS EQU CVTS01+164 00777000 CVTCRAS EQU CVTS01+160 00778000 CVTCRMN EQU CVTS01+156 00779000 CVTDELCP EQU CVTS01+152 00780000 CVTFRECL EQU CVTS01+148 00781000 CVTGETCL EQU CVTS01+144 00782000 CVTBLDCP EQU CVTS01+140 00783000 CVTAUTHL EQU CVTS01+136 00784000 CVTSCAN EQU CVTS01+132 00785000 CVTRV144 EQU CVTS01+130 00786000 CVTMAXMP EQU CVTS01+128 00787000 CVTSTCK EQU CVTS01+124 00788000 CVTRV139 EQU CVTS01+123 00789000 CVTDSSAC EQU CVTS01+122 00790000 CVTRV513 EQU CVTS01+121 00791000 CVTIOSPL EQU CVTS01+120 00792000 CVTPTGT EQU CVTS01+116 00793000 CVTCSPIE EQU CVTS01+112 00794000 CVTSMFEX EQU CVTS01+108 00795000 CVTOLT0A EQU CVTS01+104 00796000 CVTSRBRT EQU CVTS01+100 00797000 CVTPUTL EQU CVTS01+96 00798000 CVTASCRL EQU CVTS01+92 00799000 CVTASCRF EQU CVTS01+88 00800000 CVTRV326 EQU CVTS01+84 00801000 CVTRV325 EQU CVTS01+80 00802000 CVTRV324 EQU CVTS01+76 00803000 CVT0VL01 EQU CVTS01+72 00804000 CVTSHRVM EQU CVTS01+68 00805000 CVTRV332 EQU CVTS01+64 00806000 CVTTAS EQU CVTS01+60 00807000 CVTRSCN EQU CVTS01+56 00808000 CVTTRAC2 EQU CVTS01+54 00809000 CVTTRACE EQU CVTS01+52 00810000 CVTAPG EQU CVTS01+51 00811000 CVTSDTRC EQU CVTCTLFG 00812000 CVTGTRCE EQU CVTCTLFG 00813000 CVTNOMP EQU CVTCTLFG 00814000 CVTRSV79 EQU CVTCTLFG 00815000 CVTDSTAT EQU CVTCTLFG 00816000 CVTRSV78 EQU CVTCTLFG 00817000 CVTRV333 EQU CVTCTLFG 00818000 CVTRV323 EQU CVTCTLFG 00819000 CVTSPVLK EQU CVTS01+49 00820000 CVTRSV77 EQU CVTS01+48 00821000 CVTRV331 EQU CVTS01+44 00822000 CVTRV330 EQU CVTS01+40 00823000 CVTRV329 EQU CVTS01+36 00824000 CVTRV328 EQU CVTS01+32 00825000 CVTRV322 EQU CVTS01+28 00826000 CVTSLID EQU CVTSLIDA+1 00827000 CVTSYLK EQU CVTSLIDA 00828000 CVTRV321 EQU CVTS01+20 00829000 CVTRV320 EQU CVTS01+16 00830000 CVTLPDIR EQU CVTLPDIA+1 00831000 CVTRSV69 EQU CVTDIRST 00832000 CVTRSV68 EQU CVTDIRST 00833000 CVTRSV67 EQU CVTDIRST 00834000 CVTRSV66 EQU CVTDIRST 00835000 CVTRSV65 EQU CVTDIRST 00836000 CVTRSV64 EQU CVTDIRST 00837000 CVTRSV63 EQU CVTDIRST 00838000 CVTDICOM EQU CVTDIRST 00839000 CVTPVTP EQU CVTS01+8 00840000 CVTGETL EQU CVTS01 00841000 @NM00022 EQU @NM00021 00842000 LDPTCEP EQU ISTLDPRM+24 00843000 LDPRSV02 EQU ISTLDPRM+22 00844000 LDPRSV01 EQU LDPFB2 00845000 LDPACTIF EQU LDPFB2 00846000 LDPATACH EQU LDPFB2 00847000 LDPFLAST EQU LDPFB2 00848000 LDPRSV03 EQU LDPFG 00849000 LDPPB EQU LDPFG 00850000 LDPPDS EQU ISTLDPRM+8 00851000 XTLMSBAD EQU XTLMSBAA+1 00852000 @NM00013 EQU XTLMSBAA 00853000 XTLMSBLN EQU XTLMSBLA+1 00854000 @NM00012 EQU XTLMSBLA 00855000 XTLNRFAC EQU XTLST+4 00856000 XTLLNTH EQU XTLST 00857000 CDATTR3 EQU CDENTRY+30 00858000 CDAUTH EQU CDATTR2 00859000 CDSYSLIB EQU CDATTR2 00860000 CDOLY EQU CDATTR2 00861000 @NM00011 EQU CDATTR2 00862000 CDRLC EQU CDATTR2 00863000 CDXLE EQU CDATTR2 00864000 CDREL EQU CDATTR2 00865000 CDSPZ EQU CDATTR2 00866000 CDNLR EQU CDATTR 00867000 CDJPA EQU CDATTR 00868000 CDNFN EQU CDATTR 00869000 CDSER EQU CDATTR 00870000 CDREN EQU CDATTR 00871000 CDNIC EQU CDATTR 00872000 CDNIP EQU CDATTR 00873000 @NM00010 EQU CDENTRY+26 00874000 CDUSE EQU CDENTRY+24 00875000 CDNAME EQU CDENTRY+8 00876000 CDRRBP EQU CDENTRY+4 00877000 CDCHAIN EQU CDENTRY 00878000 LPDEATT3 EQU LPDE+30 00879000 LPDEAUTH EQU LPDEATT2 00880000 LPDESYSL EQU LPDEATT2 00881000 @NM00009 EQU LPDEATT2 00882000 @NM00008 EQU LPDEATT2 00883000 LPDERLC EQU LPDEATT2 00884000 LPDEXLE EQU LPDEATT2 00885000 @NM00007 EQU LPDEATT2 00886000 LPDENLR EQU LPDEATTR 00887000 @NM00006 EQU LPDEATTR 00888000 @NM00005 EQU LPDEATTR 00889000 LPDESER EQU LPDEATTR 00890000 LPDEREN EQU LPDEATTR 00891000 @NM00004 EQU LPDEATTR 00892000 LPDENIP EQU LPDEATTR 00893000 @NM00003 EQU LPDE+26 00894000 LPDEUSE EQU LPDE+24 00895000 LPDEXLP EQU LPDE+20 00896000 LPDENAME EQU LPDE+8 00897000 LPDERBP EQU LPDE+4 00898000 LPDECHN EQU LPDE 00899000 CVTLEVL EQU CVTRELNO+2 00900000 CVTNUMB EQU CVTRELNO 00901000 CVTMDL EQU CVTFIX+250 00902000 @NM00002 EQU CVTFIX+248 00903000 @NM00001 EQU CVTFIX 00904000 CVTRV482 EQU CVTXTNT2+128 00905000 CVTRV481 EQU CVTXTNT2+124 00906000 CVTRV480 EQU CVTXTNT2+120 00907000 CVTRV479 EQU CVTXTNT2+118 00908000 CVTRV478 EQU CVTXTNT2+117 00909000 CVTRV477 EQU CVTXTNT2+116 00910000 CVTRV476 EQU CVTXTNT2+115 00911000 CVTRV475 EQU CVTXTNT2+114 00912000 CVTRV474 EQU CVTRV466 00913000 CVTRV473 EQU CVTRV466 00914000 CVTRV472 EQU CVTRV466 00915000 CVTRV471 EQU CVTRV466 00916000 CVTRV470 EQU CVTRV466 00917000 CVTRV469 EQU CVTRV466 00918000 CVTRV468 EQU CVTRV466 00919000 CVTRV467 EQU CVTRV466 00920000 CVTRV465 EQU CVTRV457 00921000 CVTRV464 EQU CVTRV457 00922000 CVTRV463 EQU CVTRV457 00923000 CVTRV462 EQU CVTRV457 00924000 CVTRV461 EQU CVTRV457 00925000 CVTRV460 EQU CVTRV457 00926000 CVTRV459 EQU CVTRV457 00927000 CVTRV458 EQU CVTRV457 00928000 CVTRV456 EQU CVTXTNT2+108 00929000 CVTRV455 EQU CVTXTNT2+104 00930000 CVTRV454 EQU CVTXTNT2+100 00931000 CVTRV453 EQU CVTXTNT2+96 00932000 CVTRV452 EQU CVTXTNT2+94 00933000 CVTRV451 EQU CVTXTNT2+92 00934000 CVTRV450 EQU CVTXTNT2+90 00935000 CVTRV449 EQU CVTXTNT2+88 00936000 CVTRV448 EQU CVTXTNT2+87 00937000 CVTRV447 EQU CVTXTNT2+86 00938000 CVTRV446 EQU CVTRV438 00939000 CVTRV445 EQU CVTRV438 00940000 CVTRV444 EQU CVTRV438 00941000 CVTRV443 EQU CVTRV438 00942000 CVTRV442 EQU CVTRV438 00943000 CVTRV441 EQU CVTRV438 00944000 CVTRV440 EQU CVTRV438 00945000 CVTRV439 EQU CVTRV438 00946000 CVTRV437 EQU CVTRV429 00947000 CVTRV436 EQU CVTRV429 00948000 CVTRV435 EQU CVTRV429 00949000 CVTRV434 EQU CVTRV429 00950000 CVTRV433 EQU CVTRV429 00951000 CVTRV432 EQU CVTRV429 00952000 CVTRV431 EQU CVTRV429 00953000 CVTRV430 EQU CVTRV429 00954000 CVTRV428 EQU CVTXTNT2+80 00955000 CVTRV427 EQU CVTXTNT2+76 00956000 CVTRV426 EQU CVTXTNT2+72 00957000 CVTRV425 EQU CVTXTNT2+68 00958000 CVTATACT EQU CVTATCVT 00959000 CVTRV423 EQU CVTXTNT2+62 00960000 CVTRV422 EQU CVTXTNT2+60 00961000 CVTRV421 EQU CVTXTNT2+58 00962000 CVTRV420 EQU CVTXTNT2+56 00963000 CVTRV419 EQU CVTXTNT2+55 00964000 CVTRV418 EQU CVTXTNT2+54 00965000 CVTRV417 EQU CVTRV409 00966000 CVTRV416 EQU CVTRV409 00967000 CVTRV415 EQU CVTRV409 00968000 CVTRV414 EQU CVTRV409 00969000 CVTRV413 EQU CVTRV409 00970000 CVTRV412 EQU CVTRV409 00971000 CVTRV411 EQU CVTRV409 00972000 CVTRV410 EQU CVTRV409 00973000 CVTRV408 EQU CVTRV400 00974000 CVTRV407 EQU CVTRV400 00975000 CVTRV406 EQU CVTRV400 00976000 CVTRV405 EQU CVTRV400 00977000 CVTRV404 EQU CVTRV400 00978000 CVTRV403 EQU CVTRV400 00979000 CVTRV402 EQU CVTRV400 00980000 CVTRV401 EQU CVTRV400 00981000 CVTICB EQU CVTXTNT2+48 00982000 CVTSKTA EQU CVTXTNT2+44 00983000 CVTSHSB EQU CVTSHS 00984000 CVTRSV98 EQU CVTXTNT2+36 00985000 CVTRSV97 EQU CVTXTNT2+34 00986000 CVTRSV96 EQU CVTXTNT2+32 00987000 CVTOLTEP EQU CVTXTNT2+28 00988000 CVTQIDA EQU CVTQID+1 00989000 CVTRSV95 EQU CVTQID 00990000 CVTRSV94 EQU CVTXTNT2+20 00991000 CVTRSV93 EQU CVTXTNT2+16 00992000 CVTRSV92 EQU CVTXTNT2+12 00993000 CVTDEBVR EQU CVTXTNT2+8 00994000 CVTRSV91 EQU CVTXTNT2+6 00995000 CVTRSV9H EQU CVTFLGBT 00996000 CVTRSV9G EQU CVTFLGBT 00997000 CVTRSV9F EQU CVTFLGBT 00998000 CVTRSV9E EQU CVTFLGBT 00999000 CVTRSV9D EQU CVTFLGBT 01000000 CVTRSV9C EQU CVTFLGBT 01001000 CVTVME EQU CVTFLGBT 01002000 CVTNPE EQU CVTFLGBT 01003000 CVTNUCLS EQU CVTXTNT2+4 01004000 CVTDSSVA EQU CVTDSSV+1 01005000 CVTRSV89 EQU CVTDSSV 01006000 CVTRSV88 EQU CVTXTNT1+8 01007000 CVTRSV87 EQU CVTXTNT1+4 01008000 CVTFACHN EQU CVTXTNT1 01009000 CVTRV488 EQU CVTMAP+412 01010000 CVTRV487 EQU CVTMAP+408 01011000 CVTRV486 EQU CVTMAP+404 01012000 CVTRV485 EQU CVTMAP+400 01013000 CVTACTAP EQU CVTMAP+396 01014000 CVTAUTH EQU CVTMAP+392 01015000 CVTATMCA EQU CVTATMCT+1 01016000 CVTATMST EQU CVTATMCT 01017000 CVTRSV61 EQU CVTMAP+384 01018000 CVTVOLT1 EQU CVTVOLM1+1 01019000 CVTVOLI1 EQU CVTVOLF1 01020000 CVTSTOA EQU CVTMAP+376 01021000 CVTRSV58 EQU CVTMAP+374 01022000 CVTRSV57 EQU CVTMAP+372 01023000 CVTDDCE EQU CVTMAP+368 01024000 CVTPNWFR EQU CVTMAP+364 01025000 CVTSMF EQU CVTMAP+360 01026000 CVTSULK EQU CVTMAP+358 01027000 CVTSLKO EQU CVTSYSK 01028000 CVTSLKP EQU CVTSYSK 01029000 CVTSLKQ EQU CVTSYSK 01030000 CVTSLKR EQU CVTSYSK 01031000 CVTRSV56 EQU CVTSYSK 01032000 CVTRSV55 EQU CVTSYSK 01033000 CVTRSV54 EQU CVTSYSK 01034000 CVTRSV53 EQU CVTSYSK 01035000 CVTRSV52 EQU CVTA1F1 01036000 CVTRSV51 EQU CVTA1F1 01037000 CVTRSV50 EQU CVTA1F1 01038000 CVTRSV49 EQU CVTA1F1 01039000 CVTRSV48 EQU CVTA1F1 01040000 CVTRSV47 EQU CVTA1F1 01041000 CVTSRSW EQU CVTA1F1 01042000 CVTPFSW EQU CVTA1F1 01043000 CVTPCVT EQU CVTMAP+352 01044000 CVTRSV46 EQU CVTMAP+344 01045000 CVTRSV45 EQU CVTMAP+340 01046000 CVTRSV44 EQU CVTMAP+338 01047000 CVTRSV43 EQU CVTMAP+336 01048000 CVTHJESA EQU CVTHJES+1 01049000 CVTRSV42 EQU CVTHJES 01050000 CVTEXT2A EQU CVTEXT2+1 01051000 CVTRSV41 EQU CVTEXT2 01052000 CVTAPFA EQU CVTAPF+1 01053000 CVTRSV40 EQU CVTAPF 01054000 CVTRV518 EQU CVTINTLA 01055000 CVTRV517 EQU CVTERPV 01056000 CVTEORM EQU CVTMAP+312 01057000 CVTMCHPR EQU CVTMAP+308 01058000 CVTTZ EQU CVTMAP+304 01059000 CVTJEPS EQU CVTMAP+300 01060000 CVTJESCT EQU CVTMAP+296 01061000 CVTMODE EQU CVTMAP+292 01062000 CVTPTRV EQU CVTMAP+288 01063000 CVTREAL EQU CVTMAP+284 01064000 CVTRSV39 EQU CVTMAP+280 01065000 CVTRSV38 EQU CVTMAP+276 01066000 CVTDMSRA EQU CVTDMSR+1 01067000 CVTRV634 EQU CVTDMSRF 01068000 CVTRV633 EQU CVTDMSRF 01069000 CVTRV632 EQU CVTDMSRF 01070000 CVTRV631 EQU CVTDMSRF 01071000 CVTRV630 EQU CVTDMSRF 01072000 CVTRV629 EQU CVTDMSRF 01073000 CVTUDUMP EQU CVTDMSRF 01074000 CVTSDUMP EQU CVTDMSRF 01075000 CVTQMSGA EQU CVTQMSG+1 01076000 CVTRSV36 EQU CVTQMSG 01077000 CVTAMFF EQU CVTMAP+264 01078000 CVTPURGA EQU CVTPURG+1 01079000 CVTRSV35 EQU CVTPURG 01080000 CVTCBSP EQU CVTMAP+256 01081000 CVTATERA EQU CVTATER+1 01082000 CVTSYST EQU CVTATER 01083000 CVTVOLT2 EQU CVTTAT 01084000 CVTVOLI2 EQU CVTVOLF2 01085000 CVTAQAVB EQU CVTAQAVT+1 01086000 CVTRSV34 EQU CVTTCMFG 01087000 CVTRSV33 EQU CVTTCMFG 01088000 CVTRSV32 EQU CVTTCMFG 01089000 CVTRSV31 EQU CVTTCMFG 01090000 CVTRSV30 EQU CVTTCMFG 01091000 CVTRSV29 EQU CVTTCMFG 01092000 CVTRSV28 EQU CVTTCMFG 01093000 CVTTCRDY EQU CVTTCMFG 01094000 CVTGTFA EQU CVTGTF+1 01095000 CVTRSV27 EQU CVTGTFST 01096000 CVTRNIO EQU CVTGTFST 01097000 CVTUSR EQU CVTGTFST 01098000 CVTRV318 EQU CVTFORM 01099000 CVTRV317 EQU CVTTMODE 01100000 CVTRV316 EQU CVTSTATE 01101000 CVTRV315 EQU CVTGTFS 01102000 CVTGTFAV EQU CVTGTFS 01103000 CVT0SCR1 EQU CVTMAP+232 01104000 CVTRV515 EQU CVTMAP+228 01105000 CVTRMS EQU CVTMAP+224 01106000 CVTPATCH EQU CVTMAP+220 01107000 CVTTSCE EQU CVTMAP+216 01108000 CVTLNKSC EQU CVTMAP+214 01109000 CVTQABST EQU CVTMAP+212 01110000 CVTMDLDS EQU CVTMAP+208 01111000 CVTUSER EQU CVTMAP+204 01112000 CVTABEND EQU CVTMAP+200 01113000 CVTSMCA EQU CVTMAP+196 01114000 CVTRSV18 EQU CVTMAP+192 01115000 CVTRSV17 EQU CVTOPTB 01116000 CVTRSV16 EQU CVTOPTB 01117000 CVTFP EQU CVTOPTB 01118000 CVTAPTHR EQU CVTOPTB 01119000 CVTNLOG EQU CVTOPTB 01120000 CVTTOD EQU CVTOPTB 01121000 CVTCTIMS EQU CVTOPTB 01122000 CVTPROT EQU CVTOPTB 01123000 CVTXPFP EQU CVTOPTA 01124000 CVTASCII EQU CVTOPTA 01125000 CVTRSV13 EQU CVTOPTA 01126000 CVTRSV12 EQU CVTOPTA 01127000 CVTNIP EQU CVTOPTA 01128000 CVTDDR EQU CVTOPTA 01129000 CVTAPR EQU CVTOPTA 01130000 CVTCCH EQU CVTOPTA 01131000 CVTSNCTR EQU CVTMAP+180 01132000 CVTQMWR EQU CVTMAP+176 01133000 CVTQOCR EQU CVTMAP+172 01134000 CVT1EF00 EQU CVTMAP+168 01135000 CVTMZ00 EQU CVTMAP+164 01136000 CVTHEAD EQU CVTMAP+160 01137000 CVTRSV11 EQU CVTMAP+156 01138000 CVT0PT01 EQU CVTMAP+152 01139000 CVTMSER EQU CVTMAP+148 01140000 CVTRV516 EQU CVTIERLC 01141000 CVTILCH EQU CVTMAP+140 01142000 CVT0DS EQU CVTMAP+136 01143000 CVTFBOSV EQU CVTMAP+132 01144000 CVTNUCB EQU CVTMAP+128 01145000 CVTIXAVL EQU CVTMAP+124 01146000 CVTIOQET EQU CVTMAP+120 01147000 CVTDCBA EQU CVTMAP+117 01148000 CVTMVS2 EQU CVTDCB 01149000 CVT6DAT EQU CVTDCB 01150000 CVT4MPS EQU CVTDCB 01151000 CVTRSV09 EQU CVTDCB 01152000 CVT4MS1 EQU CVTDCB 01153000 CVT2SPS EQU CVTDCB 01154000 CVT1SSS EQU CVTDCB 01155000 CVTRSV08 EQU CVTDCB 01156000 CVTSTB EQU CVTMAP+112 01157000 CVTQTD00 EQU CVTMAP+108 01158000 CVTQTE00 EQU CVTMAP+104 01159000 CVTCUCB EQU CVTMAP+100 01160000 CVTSJQ EQU CVTMAP+96 01161000 CVTPBLDL EQU CVTMAP+92 01162000 CVTTPC EQU CVTMAP+88 01163000 CVTSVDCB EQU CVTMAP+84 01164000 CVTBRET EQU CVTMAP+82 01165000 CVTEXIT EQU CVTMAP+80 01166000 CVT0FN00 EQU CVTMAP+76 01167000 CVTDARA EQU CVTDAR+1 01168000 CVTRSV07 EQU CVTFLGS1 01169000 CVTRSV06 EQU CVTFLGS1 01170000 CVTRSV05 EQU CVTFLGS1 01171000 CVTRSV04 EQU CVTFLGS1 01172000 CVTRSV03 EQU CVTFLGS1 01173000 CVTRSV02 EQU CVTFLGS1 01174000 CVTRSV01 EQU CVTFLGS1 01175000 CVTDMPLK EQU CVTFLGS1 01176000 CVTXITP EQU CVTMAP+68 01177000 CVTZDTAB EQU CVTMAP+64 01178000 CVTMSLT EQU CVTMAP+60 01179000 CVTDATE EQU CVTMAP+56 01180000 CVTBTERM EQU CVTMAP+52 01181000 CVTSYSAD EQU CVTMAP+48 01182000 CVTXTLER EQU CVTMAP+44 01183000 CVTILK2 EQU CVTMAP+40 01184000 CVTILK1 EQU CVTMAP+36 01185000 CVTPRLTV EQU CVTMAP+32 01186000 CVTPCNVT EQU CVTMAP+28 01187000 CVT0VL00 EQU CVTMAP+24 01188000 CVTXAPG EQU CVTMAP+20 01189000 CVTBUF EQU CVTMAP+16 01190000 CVTJOB EQU CVTMAP+12 01191000 CVTLINK EQU CVTMAP+8 01192000 CVT0EF00 EQU CVTMAP+4 01193000 CVTTCBP EQU CVTMAP 01194000 CVT EQU CVTMAP 01195000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01196000 @RC00130 EQU @RC00121 01197000 @ENDDATA EQU * 01198000 END ISTINMAL,(C'PLS1917',0603,76236) 01199000