TITLE 'ISTAPC41 SCHEDULE IRB PROCEDURE *00001000 ' 00002000 ISTAPC41 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTAPC41 75.125' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 ISTAPC41 CSECT 00011000 * STM(REG1,PSTPTR,PSTSAVE); /* SAVE REGS 1 & 2 */ 00012000 STM REG1,PSTPTR,PSTSAVE(REG1) 0068 00013000 * STM(BASEREG,REG14,PSTSAVE8); /* SAVE REGS 9 THRU 14 */ 00014000 STM BASEREG,REG14,PSTSAVE8(REG1) 0069 00015000 * GEN; 0070 00016000 BALR BASEREG,REG0 00017000 USING *,BASEREG 00018000 * RFY 0071 00019000 * ISTPST BASED(PSTPTR); /* RE-BASE PST ON PSTPTR */ 00020000 * PSTPTR=REG1; /* ASSIGN PST POINTER */ 00021000 LR PSTPTR,REG1 0072 00022000 * RFY 0073 00023000 * (REG10, 0073 00024000 * REG11) RSTD; /* RESTRICT REGS FOR CS @ZM31951*/ 00025000 * REG10=PSTFLGA; /* COMP REG FOR CS @ZM31951*/ 00026000 L REG10,PSTFLGA(,PSTPTR) 0074 00027000 */* PST IRB IN USE FLAG MUST BE TURNED ON BY CS IN VS2 */ 00028000 * 0075 00029000 * IF PSTIRBU1=ON /* CHECK FOR FIRST IRB IN USE */ 00030000 * THEN 0075 00031000 TM PSTIRBU1(PSTPTR),B'00100000' 0075 00032000 BNO @RF00075 0075 00033000 * DO; 0076 00034000 *SWPON2: /* IRB 1 IN USE. WILL SWAP ON 0077 00035000 * IRB2 IN USE @ZM31951*/ 00036000 * REG11=REG10|PSTIRB21; /* SWAP REG WITH IRBU2 ON 0077 00037000 * @ZM31951*/ 00038000 SWPON2 LR REG11,REG10 0077 00039000 O REG11,@CF01019 0077 00040000 * CS(REG10,REG11,PSTFLGA); /* USE CS LOGIC @ZM31951*/ 00041000 CS REG10,@11,PSTFLGA(PSTPTR) 0078 00042000 * BC(7,SWPON2); /* GET IT ON @ZM31951*/ 00043000 BC 7,SWPON2 0079 00044000 * REG1=PSTIQE22; /* OBTAIN ACTIVE IQE ADDRESS */ 00045000 L REG1,PSTIQE22(,PSTPTR) 0080 00046000 * PSTIQE22=PSTIQE21; /* INTERCHANGE ADDRESSES */ 00047000 L @12,PSTIQE21(,PSTPTR) 0081 00048000 ST @12,PSTIQE22(,PSTPTR) 0081 00049000 * PSTIQE21=REG1; /* STORE SAVED ADDRESS */ 00050000 ST REG1,PSTIQE21(,PSTPTR) 0082 00051000 * END; 0083 00052000 * ELSE 0084 00053000 * DO; 0084 00054000 B @RC00075 0084 00055000 @RF00075 DS 0H 0085 00056000 *SWPON1: /* IRB 1 NOT IN USE. WILL SWAP IT 00057000 * ON @ZM31951*/ 00058000 * REG11=REG10|PSTIRB11; /* SWAP REG WITH IRBU1 IN USE 0085 00059000 * @ZM31951*/ 00060000 SWPON1 LR REG11,REG10 0085 00061000 O REG11,@CF01011 0085 00062000 * CS(REG10,REG11,PSTFLGA); /* USE CS LOGIC @ZM31951*/ 00063000 CS REG10,@11,PSTFLGA(PSTPTR) 0086 00064000 * BC(7,SWPON1); /* IF FAIL TRY AGAIN @ZM31951*/ 00065000 BC 7,SWPON1 0087 00066000 * REG1=PSTIQE12; /* OBTAIN ACTIVE IQE ADDRESS */ 00067000 L REG1,PSTIQE12(,PSTPTR) 0088 00068000 * PSTIQE12=PSTIQE11; /* INTERCHANGE ADDRESSES */ 00069000 L @12,PSTIQE11(,PSTPTR) 0089 00070000 ST @12,PSTIQE12(,PSTPTR) 0089 00071000 * PSTIQE11=REG1; /* STORE SAVED ADDRESS */ 00072000 ST REG1,PSTIQE11(,PSTPTR) 0090 00073000 * END; 0091 00074000 * RFY 0092 00075000 * (REG10, 0092 00076000 * REG11) UNRSTD; /* UN RESTRICT REG 10, 11 0092 00077000 * @ZM31951*/ 00078000 @RC00075 DS 0H 0093 00079000 * GEN(LNR REG1,REG1 COMPLEMENT OF IQE ADDRESS); 0093 00080000 LNR REG1,REG1 COMPLEMENT OF IQE ADDRESS 00081000 *OBTLOCK: 0094 00082000 * ; 0094 00083000 OBTLOCK DS 0H 0095 00084000 * GEN CODE REFS(REG11,REG12,REG13,REG14,PSALITA,FLC); 0095 00085000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, *00086000 RELATED=(IEAVGM00,ISTAPC41(RELLOCK)) 00087000 * RFY 0096 00088000 * REG13 RSTD; /* RESTRICT RETURN CODE REGISTER */ 00089000 * IF REG13=LOCKHELD /* CHECK FOR LOCK ALREADY HELD */ 00090000 * THEN 0097 00091000 C REG13,@CF00052 0097 00092000 BNE @RF00097 0097 00093000 * PSTPTR=PSTPTR|SWITON; /* INDICATE LOCK ALREADY HELD */ 00094000 O PSTPTR,@CF01001 0098 00095000 * ELSE 0099 00096000 * PSTPTR=PSTPTR&SWITOFF; /* INDICATE LOCK NOW HELD */ 00097000 B @RC00097 0099 00098000 @RF00097 N PSTPTR,@CF00999 0099 00099000 * CALL CVTPTR->CVT0EF00; /* CALL STAGE 2 EXIT EFFECTOR */ 00100000 @RC00097 L @12,CVTPTR 0100 00101000 L @15,CVT0EF00(,@12) 0100 00102000 BALR @14,@15 0100 00103000 * IF PSTPTR>ZERO /* CHECK FOR LOCK HELD */ 00104000 * THEN /* IF HELD THEN MUST RELEASE IT 00105000 * @ZM31951*/ 00106000 LTR PSTPTR,PSTPTR 0101 00107000 BNP @RF00101 0101 00108000 * DO; /* LOCK HELD. RESTORE REGS AND 0102 00109000 * RELEASE LOCK @ZM31951*/ 00110000 * 0102 00111000 * /*************************************************************/ 00112000 * /* */ 00113000 * /* *** CAUTION *** RESTORE OF REGS FROM PSTSAVE DESTROYS BASE*/ 00114000 * /* REG(9).. ANY ADDITIONAL CODE MUST BE INDEPENDENT OF BASE */ 00115000 * /* REG(9) */ 00116000 * /* */ 00117000 * /*************************************************************/ 00118000 * 0103 00119000 * LM(REG1,PSTPTR,PSTSAVE); /* RESTORE REG 1,2 @ZM31951*/ 00120000 LM REG1,PSTPTR,PSTSAVE(PSTPTR) 0103 00121000 * RFY 0104 00122000 * ISTPST BASED(REG1); /* REBASE THE PST ON REG 1 0104 00123000 * @ZM31951*/ 00124000 * LM(BASEREG,REG14,PSTSAVE8); /* RESTORE 9-14 @ZM31951*/ 00125000 LM BASEREG,REG14,PSTSAVE8(REG1) 0105 00126000 * REG1=REG11; /* SAVE R11 ACROSS RELEASE LOCK 00127000 * @ZM31951*/ 00128000 LR REG1,REG11 0106 00129000 * REG3=REG12; /* SAVE R12 ACROSS RELEASE LOCK 00130000 * @ZM31951*/ 00131000 LR REG3,REG12 0107 00132000 * REG5=REG13; /* SAVE R13 ACROSS RELEASE LOCK 00133000 * @ZM31951*/ 00134000 LR REG5,REG13 0108 00135000 * REG15=REG14; /* SAVE R14 ACROSS RELE LOCK 0109 00136000 * @ZM31951*/ 00137000 LR REG15,REG14 0109 00138000 *RELLOCK: 0110 00139000 * ; 0110 00140000 RELLOCK DS 0H 0111 00141000 * GEN CODE REFS(REG11,REG12,REG13,REG14,PSALITA,FLC); 0111 00142000 SETLOCK RELEASE,TYPE=LOCAL, *00143000 RELATED=(IEAVGM00,ISTAPC41(OBTLOCK)) 00144000 * REG11=REG1; /* RESTORE R11 @ZM31951*/ 00145000 LR REG11,REG1 0112 00146000 * REG12=REG3; /* RESTORE REG12 @ZM31951*/ 00147000 LR REG12,REG3 0113 00148000 * REG13=REG5; /* RESTORE R13 @ZM31951*/ 00149000 LR REG13,REG5 0114 00150000 * REG14=REG15; /* RESTORE REG 14 @ZM31951*/ 00151000 LR REG14,REG15 0115 00152000 * GOTO REG14; /* RETURN TO CALLER @ZM31951*/ 00153000 BR REG14 0116 00154000 * END; 0117 00155000 * RFY 0118 00156000 * ISTPST BASED(PSTPTR); /* IF HERE PST STILL BASED ON 0118 00157000 * PSTPTR */ 00158000 @RF00101 DS 0H 0119 00159000 * LM(REG1,PSTPTR,PSTSAVE); /* RESTORE REGS 1 & 2 */ 00160000 LM REG1,PSTPTR,PSTSAVE(PSTPTR) 0119 00161000 * RFY 0120 00162000 * ISTPST BASED(REG1); /* RE-BASE PST FOR LM FROM SVAREA*/ 00163000 * LM(BASEREG,REG14,PSTSAVE8); /* RESTORE REGS 9 THRU 14 */ 00164000 LM BASEREG,REG14,PSTSAVE8(REG1) 0121 00165000 * GOTO REG14; /* RETURN TO CALLER @ZM31951*/ 00166000 BR REG14 0122 00167000 */* TPEPILOG */ 00168000 * 0123 00169000 * GEN(PRINT OFF); 0123 00170000 PRINT OFF 00171000 * GEN(PRINT ON); 0124 00172000 * 0124 00173000 PRINT ON 00174000 */* END OF TPEPILOG */ 00175000 * 0125 00176000 * END ISTAPC41 0125 00177000 * 0125 00178000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00179000 */*%INCLUDE SYSLIB (CVT ) */ 00180000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00181000 * 0125 00182000 * ; 0125 00183000 @EL00001 DS 0H 0125 00184000 @EF00001 DS 0H 0125 00185000 @ER00001 BR @14 0125 00186000 @DATA DS 0H 00187000 @DATD DSECT 00188000 DS 0F 00189000 ISTAPC41 CSECT 00190000 DS 0F 00191000 @CF00052 DC F'4' 00192000 @CF00999 DC XL4'7FFFFFFF' 00193000 @CF01001 DC XL4'80000000' 00194000 @CF01011 DC XL4'20000000' 00195000 @CF01019 DC XL4'10000000' 00196000 @DATD DSECT 00197000 DS 0D 00198000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00199000 @ENDDATD EQU * 00200000 ISTAPC41 CSECT 00201000 DS 0F 00202000 @SIZDATD DC AL1(0) 00203000 DC AL3(@ENDDATD-@DATD) 00204000 DS 0D 00205000 ISTAPP41 DC F'0' 00206000 DS 11XL4 00207000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00208000 @01 EQU 01 00209000 @02 EQU 02 00210000 @03 EQU 03 00211000 @04 EQU 04 00212000 @05 EQU 05 00213000 @06 EQU 06 00214000 @07 EQU 07 00215000 @08 EQU 08 00216000 @09 EQU 09 00217000 @10 EQU 10 00218000 @11 EQU 11 00219000 @12 EQU 12 00220000 @13 EQU 13 00221000 @14 EQU 14 00222000 @15 EQU 15 00223000 RPHPTR EQU @01 00224000 REG0 EQU @00 00225000 REG1 EQU @01 00226000 REG3 EQU @03 00227000 REG4 EQU @04 00228000 REG5 EQU @05 00229000 REG6 EQU @06 00230000 REG7 EQU @07 00231000 REG8 EQU @08 00232000 REG10 EQU @10 00233000 REG11 EQU @11 00234000 REG12 EQU @12 00235000 REG13 EQU @13 00236000 REG14 EQU @14 00237000 REG15 EQU @15 00238000 PSTPTR EQU @02 00239000 BASEREG EQU @09 00240000 CVTPTR EQU 16 00241000 PSA EQU 0 00242000 FLCRNPSW EQU PSA 00243000 FLCROPSW EQU PSA+8 00244000 FLCICCW2 EQU PSA+16 00245000 PSAEEPSW EQU PSA+132 00246000 PSAESPSW EQU PSA+136 00247000 FLCSVILC EQU PSAESPSW+1 00248000 PSAEPPSW EQU PSA+140 00249000 FLCPIILC EQU PSAEPPSW+1 00250000 FLCPICOD EQU PSAEPPSW+2 00251000 PSAPICOD EQU FLCPICOD+1 00252000 FLCTEA EQU PSAEPPSW+4 00253000 FLCPER EQU PSA+152 00254000 FLCMCLA EQU PSA+168 00255000 FLCIOEL EQU FLCMCLA+4 00256000 FLCIOA EQU FLCMCLA+16 00257000 FLCFSA EQU FLCMCLA+80 00258000 PSASUPER EQU PSA+552 00259000 PSASUP1 EQU PSASUPER 00260000 PSASUP2 EQU PSASUPER+1 00261000 PSASUP3 EQU PSASUPER+2 00262000 PSASUP4 EQU PSASUPER+3 00263000 PSACLHT EQU PSA+640 00264000 PSALKSA EQU PSA+696 00265000 PSAHLHI EQU PSA+760 00266000 PSALITA EQU PSA+764 00267000 PSADSSFL EQU PSA+836 00268000 PSADSSF1 EQU PSADSSFL 00269000 PSADSSF3 EQU PSADSSFL+2 00270000 PSADSSF4 EQU PSADSSFL+3 00271000 PSARSVT EQU PSA+896 00272000 CVTMAP EQU 0 00273000 CVT0EF00 EQU CVTMAP+4 00274000 CVTDAR EQU CVTMAP+72 00275000 CVTFLGS1 EQU CVTDAR 00276000 CVTDCB EQU CVTMAP+116 00277000 CVTIERLC EQU CVTMAP+144 00278000 CVTOPTA EQU CVTMAP+182 00279000 CVTOPTB EQU CVTMAP+183 00280000 CVTGTF EQU CVTMAP+236 00281000 CVTGTFST EQU CVTGTF 00282000 CVTGTFS EQU CVTGTFST 00283000 CVTSTATE EQU CVTGTFST 00284000 CVTTMODE EQU CVTGTFST 00285000 CVTFORM EQU CVTGTFST 00286000 CVTAQAVT EQU CVTMAP+240 00287000 CVTTCMFG EQU CVTAQAVT 00288000 CVTVOLM2 EQU CVTMAP+244 00289000 CVTTATA EQU CVTVOLM2 00290000 CVTTSKS EQU CVTTATA 00291000 CVTVOLF2 EQU CVTTSKS 00292000 CVTTAT EQU CVTTATA+1 00293000 CVTATER EQU CVTMAP+248 00294000 CVTEXT1 EQU CVTMAP+252 00295000 CVTPURG EQU CVTMAP+260 00296000 CVTQMSG EQU CVTMAP+268 00297000 CVTDMSR EQU CVTMAP+272 00298000 CVTERPV EQU CVTMAP+316 00299000 CVTINTLA EQU CVTMAP+320 00300000 CVTAPF EQU CVTMAP+324 00301000 CVTEXT2 EQU CVTMAP+328 00302000 CVTHJES EQU CVTMAP+332 00303000 CVTPGSIA EQU CVTMAP+348 00304000 CVTA1F1 EQU CVTMAP+356 00305000 CVTSYSK EQU CVTMAP+357 00306000 CVTVOLM1 EQU CVTMAP+380 00307000 CVTVOLF1 EQU CVTVOLM1 00308000 CVTATMCT EQU CVTMAP+388 00309000 CVTXTNT1 EQU 0 00310000 CVTXTNT2 EQU 0 00311000 CVTDSSV EQU CVTXTNT2 00312000 CVTFLGBT EQU CVTXTNT2+5 00313000 CVTQID EQU CVTXTNT2+24 00314000 CVTSHS EQU CVTXTNT2+40 00315000 CVTRV400 EQU CVTXTNT2+52 00316000 CVTRV409 EQU CVTXTNT2+53 00317000 CVTATCVT EQU CVTXTNT2+64 00318000 CVTRV429 EQU CVTXTNT2+84 00319000 CVTRV438 EQU CVTXTNT2+85 00320000 CVTRV457 EQU CVTXTNT2+112 00321000 CVTRV466 EQU CVTXTNT2+113 00322000 CVTFIX EQU 0 00323000 CVTRELNO EQU CVTFIX+252 00324000 ISTPAB EQU 0 00325000 PABWQCHN EQU ISTPAB 00326000 PABWEQA EQU PABWQCHN 00327000 PABCHAIN EQU PABWQCHN+4 00328000 PABRPHFG EQU ISTPAB+12 00329000 PABFLAGS EQU PABRPHFG 00330000 PABERLCK EQU PABFLAGS 00331000 PABERRLK EQU PABERLCK 00332000 ISTDYPAB EQU 0 00333000 ISTRPH EQU 0 00334000 RPHFLAGS EQU ISTRPH+2 00335000 RPHAPTYP EQU RPHFLAGS 00336000 RPHFSTLC EQU RPHFLAGS 00337000 RPHFLGB EQU ISTRPH+3 00338000 RPHRPHA EQU ISTRPH+4 00339000 RPHTSKID EQU ISTRPH+8 00340000 RPHRESMA EQU ISTRPH+16 00341000 RPHWPFLG EQU RPHRESMA 00342000 RPHWEA EQU ISTRPH+24 00343000 RPHCSPA EQU RPHWEA 00344000 RPHSRPRM EQU ISTRPH+28 00345000 RPHPABQA EQU ISTRPH+36 00346000 RPHWORK EQU ISTRPH+40 00347000 RPHSAVE1 EQU RPHWORK 00348000 RPHSBITS EQU RPHSAVE1+1 00349000 ISTPST EQU 0 00350000 PSTRQFGA EQU ISTPST+8 00351000 PSTRQUE EQU PSTRQFGA 00352000 PSTFLGA EQU PSTRQFGA+4 00353000 PSTIRBU1 EQU PSTFLGA 00354000 PSTABINP EQU PSTFLGA 00355000 PSTIQE11 EQU ISTPST+40 00356000 PSTIQE12 EQU ISTPST+44 00357000 PSTIQE21 EQU ISTPST+48 00358000 PSTIQE22 EQU ISTPST+52 00359000 PSTSAVE EQU ISTPST+96 00360000 PSTDMPS EQU ISTPST+132 00361000 CVTS01 EQU CVTPGSIA 00362000 CVTLPDIA EQU CVTS01+12 00363000 CVTDIRST EQU CVTLPDIA 00364000 CVTSLIDA EQU CVTS01+24 00365000 CVTCTLFG EQU CVTS01+50 00366000 CVTRV210 EQU CVTS01+424 00367000 CVTRV219 EQU CVTS01+425 00368000 CVTRV228 EQU CVTS01+426 00369000 CVTRV237 EQU CVTS01+427 00370000 CVTMFRTR EQU CVTS01+452 00371000 CVTRV262 EQU CVTS01+468 00372000 CVTRV271 EQU CVTS01+469 00373000 CVTRV280 EQU CVTS01+470 00374000 CVTRV289 EQU CVTS01+471 00375000 CVTGSDA EQU CVTS01+600 00376000 FLC EQU PSA 00377000 PSARSVTE EQU PSARSVT 00378000 PSTSAVE8 EQU PSTSAVE+8 00379000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00380000 PSARSAV EQU PSARSVTE+60 00381000 PSARSTK EQU PSARSVTE+56 00382000 PSAESAV3 EQU PSARSVTE+52 00383000 PSAESTK3 EQU PSARSVTE+48 00384000 PSAESAV2 EQU PSARSVTE+44 00385000 PSAESTK2 EQU PSARSVTE+40 00386000 PSAESAV1 EQU PSARSVTE+36 00387000 PSAESTK1 EQU PSARSVTE+32 00388000 PSAPSAV EQU PSARSVTE+28 00389000 PSAPSTK EQU PSARSVTE+24 00390000 PSAMSAV EQU PSARSVTE+20 00391000 PSAMSTK EQU PSARSVTE+16 00392000 PSASSAV EQU PSARSVTE+12 00393000 PSASSTK EQU PSARSVTE+8 00394000 PSANSTK EQU PSARSVTE+4 00395000 PSACSTK EQU PSARSVTE 00396000 CVTRV628 EQU CVTS01+728 00397000 CVTRV627 EQU CVTS01+724 00398000 CVTRV626 EQU CVTS01+720 00399000 CVTRV625 EQU CVTS01+716 00400000 CVTRV624 EQU CVTS01+712 00401000 CVTRV623 EQU CVTS01+708 00402000 CVTRV622 EQU CVTS01+704 00403000 CVTRV621 EQU CVTS01+700 00404000 CVTRV620 EQU CVTS01+696 00405000 CVTRV619 EQU CVTS01+692 00406000 CVTRV618 EQU CVTS01+688 00407000 CVTRV617 EQU CVTS01+684 00408000 CVTRV616 EQU CVTS01+680 00409000 CVTRV615 EQU CVTS01+676 00410000 CVTRV614 EQU CVTS01+672 00411000 CVTRV613 EQU CVTS01+668 00412000 CVTRV612 EQU CVTS01+664 00413000 CVTRV611 EQU CVTS01+660 00414000 CVTEVERM EQU CVTS01+656 00415000 CVTIRM EQU CVTS01+652 00416000 CVTCGK EQU CVTS01+648 00417000 CVTRAC EQU CVTS01+644 00418000 CVTRV606 EQU CVTS01+640 00419000 CVTRV605 EQU CVTS01+636 00420000 CVTRV604 EQU CVTS01+632 00421000 CVTEFF02 EQU CVTS01+628 00422000 CVTCBBR EQU CVTS01+624 00423000 CVTSSCR EQU CVTS01+620 00424000 CVTEVENT EQU CVTS01+616 00425000 CVTCRCA EQU CVTS01+612 00426000 CVTTPIO EQU CVTS01+608 00427000 CVTADV EQU CVTS01+604 00428000 CVTGSDAB EQU CVTGSDA 00429000 CVTQV3 EQU CVTS01+596 00430000 CVTQV2 EQU CVTS01+592 00431000 CVTQV1 EQU CVTS01+588 00432000 CVTRPT EQU CVTS01+584 00433000 CVTSSRB EQU CVTS01+580 00434000 CVTCSDRL EQU CVTS01+576 00435000 CVTEXP1 EQU CVTS01+572 00436000 CVTRMPMT EQU CVTS01+568 00437000 CVTRMPTT EQU CVTS01+564 00438000 CVTVPSA EQU CVTS01+560 00439000 CVTVSTOP EQU CVTS01+556 00440000 CVTGTFR8 EQU CVTS01+552 00441000 CVTQUIT EQU CVTS01+548 00442000 CVTVACR EQU CVTS01+544 00443000 CVTWTCB EQU CVTS01+540 00444000 CVTSTPRS EQU CVTS01+536 00445000 CVT0PT02 EQU CVTS01+532 00446000 CVTDARCM EQU CVTS01+528 00447000 CVTIRECM EQU CVTS01+524 00448000 CVTJRECM EQU CVTS01+520 00449000 CVTVEMS0 EQU CVTS01+516 00450000 CVTSPFRR EQU CVTS01+512 00451000 CVTRLSTG EQU CVTS01+508 00452000 CVT0TC0A EQU CVTS01+504 00453000 CVTGMBR EQU CVTS01+500 00454000 CVTLFRM EQU CVTS01+496 00455000 CVTRMBR EQU CVTS01+492 00456000 CVTVIOP EQU CVTS01+488 00457000 CVTRV307 EQU CVTS01+486 00458000 CVTRV306 EQU CVTS01+484 00459000 CVTRV305 EQU CVTS01+482 00460000 CVTRV304 EQU CVTS01+480 00461000 CVTRV303 EQU CVTS01+478 00462000 CVTRV302 EQU CVTS01+476 00463000 CVTTRCA 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 CVTEHCIR EQU CVTS01+392 00552000 CVTEHDEF EQU CVTS01+388 00553000 CVTDAIR EQU CVTS01+384 00554000 CVTPERFM EQU CVTS01+380 00555000 CVT044R2 EQU CVTS01+376 00556000 CVTFETCH EQU CVTS01+372 00557000 CVTRSTWD EQU CVTS01+368 00558000 CVTSPOST EQU CVTS01+364 00559000 CVTIOBP EQU CVTS01+360 00560000 CVTASMVT EQU CVTS01+356 00561000 CVTRECRQ EQU CVTS01+352 00562000 CVTWSAC EQU CVTS01+348 00563000 CVTRV149 EQU CVTS01+344 00564000 CVTWSAL EQU CVTS01+340 00565000 CVTSPSA EQU CVTS01+336 00566000 CVTGLMN EQU CVTS01+332 00567000 CVTVEAC0 EQU CVTS01+328 00568000 CVT062R1 EQU CVTS01+324 00569000 CVTRPOST EQU CVTS01+320 00570000 CVTDQIQE EQU CVTS01+316 00571000 CVTCSD EQU CVTS01+312 00572000 CVTLKRMA EQU CVTS01+308 00573000 CVTRSPIE EQU CVTS01+304 00574000 CVTRENQ EQU CVTS01+300 00575000 CVTLQCB EQU CVTS01+296 00576000 CVTFQCB EQU CVTS01+292 00577000 CVTQCS01 EQU CVTS01+288 00578000 CVTAPFT EQU CVTS01+284 00579000 CVTPARRL EQU CVTS01+280 00580000 CVTVWAIT EQU CVTS01+276 00581000 CVTGSPL EQU CVTS01+272 00582000 CVTLSMQ EQU CVTS01+268 00583000 CVTGSMQ EQU CVTS01+264 00584000 CVTEXPRO EQU CVTS01+260 00585000 CVTOPCTP EQU CVTS01+256 00586000 CVTSIC EQU CVTS01+252 00587000 CVTTPIOS EQU CVTS01+248 00588000 CVTRTMS EQU CVTS01+244 00589000 CVTSDBF EQU CVTS01+240 00590000 CVTSCBP EQU CVTS01+236 00591000 CVTSDMP EQU CVTS01+232 00592000 CVTSV60 EQU CVTS01+228 00593000 CVTRTMCT EQU CVTS01+224 00594000 CVTASCBL EQU CVTS01+220 00595000 CVTASCBH EQU CVTS01+216 00596000 CVTGDA EQU CVTS01+212 00597000 CVTASVT EQU CVTS01+208 00598000 CVTVVMDI EQU CVTS01+204 00599000 CVTAQTOP EQU CVTS01+200 00600000 CVTIOSCS EQU CVTS01+196 00601000 CVTSDRM EQU CVTS01+192 00602000 CVTOPTE EQU CVTS01+188 00603000 CVTSTXU EQU CVTS01+184 00604000 CVTQUIS EQU CVTS01+180 00605000 CVTPARS EQU CVTS01+176 00606000 CVTS1EE EQU CVTS01+172 00607000 CVTFRAS EQU CVTS01+168 00608000 CVTQSAS EQU CVTS01+164 00609000 CVTCRAS EQU CVTS01+160 00610000 CVTCRMN EQU CVTS01+156 00611000 CVTDELCP EQU CVTS01+152 00612000 CVTFRECL EQU CVTS01+148 00613000 CVTGETCL EQU CVTS01+144 00614000 CVTBLDCP EQU CVTS01+140 00615000 CVTAUTHL EQU CVTS01+136 00616000 CVTSCAN EQU CVTS01+132 00617000 CVTRV144 EQU CVTS01+130 00618000 CVTMAXMP EQU CVTS01+128 00619000 CVTSTCK EQU CVTS01+124 00620000 CVTRV139 EQU CVTS01+123 00621000 CVTDSSAC EQU CVTS01+122 00622000 CVTRV513 EQU CVTS01+121 00623000 CVTIOSPL EQU CVTS01+120 00624000 CVTPTGT EQU CVTS01+116 00625000 CVTCSPIE EQU CVTS01+112 00626000 CVTSMFEX EQU CVTS01+108 00627000 CVTOLT0A EQU CVTS01+104 00628000 CVTSRBRT EQU CVTS01+100 00629000 CVTPUTL EQU CVTS01+96 00630000 CVTRV519 EQU CVTS01+92 00631000 CVTRV327 EQU CVTS01+88 00632000 CVTRV326 EQU CVTS01+84 00633000 CVTRV325 EQU CVTS01+80 00634000 CVTRV324 EQU CVTS01+76 00635000 CVT0VL01 EQU CVTS01+72 00636000 CVTSHRVM EQU CVTS01+68 00637000 CVTRV332 EQU CVTS01+64 00638000 CVTTAS EQU CVTS01+60 00639000 CVTRSCN EQU CVTS01+56 00640000 CVTTRAC2 EQU CVTS01+54 00641000 CVTTRACE EQU CVTS01+52 00642000 CVTAPG EQU CVTS01+51 00643000 CVTSDTRC EQU CVTCTLFG 00644000 CVTGTRCE EQU CVTCTLFG 00645000 CVTNOMP EQU CVTCTLFG 00646000 CVTRSV79 EQU CVTCTLFG 00647000 CVTDSTAT EQU CVTCTLFG 00648000 CVTRSV78 EQU CVTCTLFG 00649000 CVTRV333 EQU CVTCTLFG 00650000 CVTRV323 EQU CVTCTLFG 00651000 CVTSPVLK EQU CVTS01+49 00652000 CVTRSV77 EQU CVTS01+48 00653000 CVTRV331 EQU CVTS01+44 00654000 CVTRV330 EQU CVTS01+40 00655000 CVTRV329 EQU CVTS01+36 00656000 CVTRV328 EQU CVTS01+32 00657000 CVTRV322 EQU CVTS01+28 00658000 CVTSLID EQU CVTSLIDA+1 00659000 CVTSYLK EQU CVTSLIDA 00660000 CVTRV321 EQU CVTS01+20 00661000 CVTRV320 EQU CVTS01+16 00662000 CVTLPDIR EQU CVTLPDIA+1 00663000 CVTRSV69 EQU CVTDIRST 00664000 CVTRSV68 EQU CVTDIRST 00665000 CVTRSV67 EQU CVTDIRST 00666000 CVTRSV66 EQU CVTDIRST 00667000 CVTRSV65 EQU CVTDIRST 00668000 CVTRSV64 EQU CVTDIRST 00669000 CVTRSV63 EQU CVTDIRST 00670000 CVTDICOM EQU CVTDIRST 00671000 CVTPVTP EQU CVTS01+8 00672000 CVTLPDSR EQU CVTS01+4 00673000 CVTGETL EQU CVTS01 00674000 PSTDRDYQ EQU PSTDMPS+1 00675000 @NM00031 EQU PSTDMPS 00676000 PSTDGATE EQU PSTDMPS 00677000 PSTDEBP EQU ISTPST+128 00678000 PSTSMDYP EQU ISTPST+64 00679000 PSTCRRS EQU ISTPST+60 00680000 PSTCRR1 EQU ISTPST+56 00681000 PSTUEQ EQU ISTPST+36 00682000 PSTNSSQ EQU ISTPST+32 00683000 PSTPSSQ EQU ISTPST+28 00684000 PSTACBCT EQU ISTPST+24 00685000 PSTMPSTP EQU ISTPST+20 00686000 PSTTCBA EQU ISTPST+16 00687000 PSTRSV08 EQU PSTFLGA+1 00688000 PSTDMPC EQU PSTFLGA+1 00689000 PSTABEND EQU PSTABINP 00690000 PSTAUTH EQU PSTFLGA 00691000 PSTSMCU EQU PSTFLGA 00692000 PSTSMQR EQU PSTFLGA 00693000 PSTIRBU2 EQU PSTFLGA 00694000 PSTUERN EQU PSTFLGA 00695000 PSTSSRN EQU PSTFLGA 00696000 PSTRQUEA EQU PSTRQUE+1 00697000 PSTRSV07 EQU PSTRQUE 00698000 PSTRSV06 EQU PSTRQUE 00699000 PSTRSV05 EQU PSTRQUE 00700000 PSTRSV04 EQU PSTRQUE 00701000 PSTRSV03 EQU PSTRQUE 00702000 PSTRSV02 EQU PSTRQUE 00703000 PSTRSV01 EQU PSTRQUE 00704000 PSTRQFLG EQU PSTRQUE 00705000 PSTCHAIN EQU ISTPST+4 00706000 @NM00030 EQU ISTPST+2 00707000 PSTLNGTH EQU ISTPST+1 00708000 PSTTYPE EQU ISTPST 00709000 RPHNEXPO EQU ISTRPH+104 00710000 RPHSAV16 EQU RPHWORK+60 00711000 RPHSAV15 EQU RPHWORK+56 00712000 RPHSAV14 EQU RPHWORK+52 00713000 RPHSAV13 EQU RPHWORK+48 00714000 RPHSAV12 EQU RPHWORK+44 00715000 RPHSAV11 EQU RPHWORK+40 00716000 RPHSAV10 EQU RPHWORK+36 00717000 RPHSAVE9 EQU RPHWORK+32 00718000 RPHSAVE8 EQU RPHWORK+28 00719000 RPHSAVE7 EQU RPHWORK+24 00720000 RPHSAVE6 EQU RPHWORK+20 00721000 RPHSAVE5 EQU RPHWORK+16 00722000 RPHSAVE4 EQU RPHWORK+12 00723000 RPHSAVE3 EQU RPHWORK+8 00724000 RPHSAVE2 EQU RPHWORK+4 00725000 RPHSHALF EQU RPHSAVE1+2 00726000 RPHSBIT8 EQU RPHSBITS 00727000 RPHSBIT7 EQU RPHSBITS 00728000 RPHSBIT6 EQU RPHSBITS 00729000 RPHSBIT5 EQU RPHSBITS 00730000 RPHSBIT4 EQU RPHSBITS 00731000 RPHSBIT3 EQU RPHSBITS 00732000 RPHSBIT2 EQU RPHSBITS 00733000 RPHSBIT1 EQU RPHSBITS 00734000 RPHSBYTE EQU RPHSAVE1 00735000 RPHPABQP EQU RPHPABQA+1 00736000 RPHPABFG EQU RPHPABQA 00737000 RPHCRR EQU ISTRPH+32 00738000 RPHSRP34 EQU RPHSRPRM+2 00739000 RPHSRP12 EQU RPHSRPRM 00740000 RPHWEGT EQU RPHCSPA 00741000 RPHMAJCB EQU ISTRPH+21 00742000 RPHPABOF EQU ISTRPH+20 00743000 RPHRESUM EQU RPHRESMA+1 00744000 RPHRSV01 EQU RPHWPFLG 00745000 RPHPURGE EQU RPHWPFLG 00746000 RPHPT EQU RPHWPFLG 00747000 RPHWT EQU RPHWPFLG 00748000 RPHRSKEY EQU RPHWPFLG 00749000 RPHDVTA EQU ISTRPH+12 00750000 RPHTIK EQU RPHTSKID+3 00751000 @NM00029 EQU RPHTSKID 00752000 RPHRPHAP EQU RPHRPHA+1 00753000 @NM00028 EQU RPHRPHA 00754000 RPHGATE EQU RPHRPHA 00755000 @NM00027 EQU RPHFLGB 00756000 RPHRLCRA EQU RPHFLGB 00757000 RPHNRSAV EQU RPHFLGB 00758000 RPHPGCMP EQU RPHFLGB 00759000 RPHFBAPS EQU RPHFLGB 00760000 RPHBSSP EQU RPHFLGB 00761000 RPHLOCK EQU RPHFLGB 00762000 RPHFNFLG EQU RPHFSTLC 00763000 RPHMLTCP EQU RPHFLAGS 00764000 RPHSMCLR EQU RPHFLAGS 00765000 RPHSMTYP EQU RPHFLAGS 00766000 RPHSMQ EQU RPHFLAGS 00767000 RPHAUTEX EQU RPHAPTYP 00768000 RPHSPGIN EQU RPHFLAGS 00769000 RPHOGIND EQU RPHFLAGS 00770000 RPHLNGTH EQU ISTRPH+1 00771000 RPHTYPE EQU ISTRPH 00772000 DYPPAB EQU ISTDYPAB+16 00773000 DYPRSV01 EQU ISTDYPAB+12 00774000 DYPTSKID EQU ISTDYPAB+8 00775000 DYPCHAIN EQU ISTDYPAB+4 00776000 DYPFLGS EQU ISTDYPAB+2 00777000 DYPLNGTH EQU ISTDYPAB+1 00778000 DYPTYPE EQU ISTDYPAB 00779000 PABRPHA EQU PABRPHFG+1 00780000 PABNODQ EQU PABFLAGS 00781000 PABINHBT EQU PABFLAGS 00782000 PABERLOK EQU PABERRLK 00783000 PABSSN EQU PABFLAGS 00784000 PABDYNAM EQU PABFLAGS 00785000 PABNORPR EQU PABFLAGS 00786000 PABPRIOR EQU PABFLAGS 00787000 PABAPYP EQU PABFLAGS 00788000 PABDVTA EQU ISTPAB+9 00789000 PABOFFST EQU ISTPAB+8 00790000 PABCHNGP EQU PABCHAIN+1 00791000 PABRSV02 EQU PABCHAIN 00792000 PABRESET EQU PABCHAIN 00793000 PABUNCON EQU PABCHAIN 00794000 PABCDP EQU PABCHAIN 00795000 PABRESCH EQU PABCHAIN 00796000 PABCHNG EQU PABCHAIN 00797000 PABWEQP EQU PABWEQA+1 00798000 PABRSV01 EQU PABWEQA 00799000 PABWEQG EQU PABWEQA 00800000 CVTLEVL EQU CVTRELNO+2 00801000 CVTNUMB EQU CVTRELNO 00802000 CVTMDL EQU CVTFIX+250 00803000 @NM00002 EQU CVTFIX+248 00804000 @NM00001 EQU CVTFIX 00805000 CVTRV482 EQU CVTXTNT2+128 00806000 CVTRV481 EQU CVTXTNT2+124 00807000 CVTRV480 EQU CVTXTNT2+120 00808000 CVTRV479 EQU CVTXTNT2+118 00809000 CVTRV478 EQU CVTXTNT2+117 00810000 CVTRV477 EQU CVTXTNT2+116 00811000 CVTRV476 EQU CVTXTNT2+115 00812000 CVTRV475 EQU CVTXTNT2+114 00813000 CVTRV474 EQU CVTRV466 00814000 CVTRV473 EQU CVTRV466 00815000 CVTRV472 EQU CVTRV466 00816000 CVTRV471 EQU CVTRV466 00817000 CVTRV470 EQU CVTRV466 00818000 CVTRV469 EQU CVTRV466 00819000 CVTRV468 EQU CVTRV466 00820000 CVTRV467 EQU CVTRV466 00821000 CVTRV465 EQU CVTRV457 00822000 CVTRV464 EQU CVTRV457 00823000 CVTRV463 EQU CVTRV457 00824000 CVTRV462 EQU CVTRV457 00825000 CVTRV461 EQU CVTRV457 00826000 CVTRV460 EQU CVTRV457 00827000 CVTRV459 EQU CVTRV457 00828000 CVTRV458 EQU CVTRV457 00829000 CVTRV456 EQU CVTXTNT2+108 00830000 CVTRV455 EQU CVTXTNT2+104 00831000 CVTRV454 EQU CVTXTNT2+100 00832000 CVTRV453 EQU CVTXTNT2+96 00833000 CVTRV452 EQU CVTXTNT2+94 00834000 CVTRV451 EQU CVTXTNT2+92 00835000 CVTRV450 EQU CVTXTNT2+90 00836000 CVTRV449 EQU CVTXTNT2+88 00837000 CVTRV448 EQU CVTXTNT2+87 00838000 CVTRV447 EQU CVTXTNT2+86 00839000 CVTRV446 EQU CVTRV438 00840000 CVTRV445 EQU CVTRV438 00841000 CVTRV444 EQU CVTRV438 00842000 CVTRV443 EQU CVTRV438 00843000 CVTRV442 EQU CVTRV438 00844000 CVTRV441 EQU CVTRV438 00845000 CVTRV440 EQU CVTRV438 00846000 CVTRV439 EQU CVTRV438 00847000 CVTRV437 EQU CVTRV429 00848000 CVTRV436 EQU CVTRV429 00849000 CVTRV435 EQU CVTRV429 00850000 CVTRV434 EQU CVTRV429 00851000 CVTRV433 EQU CVTRV429 00852000 CVTRV432 EQU CVTRV429 00853000 CVTRV431 EQU CVTRV429 00854000 CVTRV430 EQU CVTRV429 00855000 CVTRV428 EQU CVTXTNT2+80 00856000 CVTRV427 EQU CVTXTNT2+76 00857000 CVTRV426 EQU CVTXTNT2+72 00858000 CVTRV425 EQU CVTXTNT2+68 00859000 CVTATACT EQU CVTATCVT 00860000 CVTRV423 EQU CVTXTNT2+62 00861000 CVTRV422 EQU CVTXTNT2+60 00862000 CVTRV421 EQU CVTXTNT2+58 00863000 CVTRV420 EQU CVTXTNT2+56 00864000 CVTRV419 EQU CVTXTNT2+55 00865000 CVTRV418 EQU CVTXTNT2+54 00866000 CVTRV417 EQU CVTRV409 00867000 CVTRV416 EQU CVTRV409 00868000 CVTRV415 EQU CVTRV409 00869000 CVTRV414 EQU CVTRV409 00870000 CVTRV413 EQU CVTRV409 00871000 CVTRV412 EQU CVTRV409 00872000 CVTRV411 EQU CVTRV409 00873000 CVTRV410 EQU CVTRV409 00874000 CVTRV408 EQU CVTRV400 00875000 CVTRV407 EQU CVTRV400 00876000 CVTRV406 EQU CVTRV400 00877000 CVTRV405 EQU CVTRV400 00878000 CVTRV404 EQU CVTRV400 00879000 CVTRV403 EQU CVTRV400 00880000 CVTRV402 EQU CVTRV400 00881000 CVTRV401 EQU CVTRV400 00882000 CVTICB EQU CVTXTNT2+48 00883000 CVTSKTA EQU CVTXTNT2+44 00884000 CVTSHSB EQU CVTSHS 00885000 CVTRSV98 EQU CVTXTNT2+36 00886000 CVTRSV97 EQU CVTXTNT2+34 00887000 CVTRSV96 EQU CVTXTNT2+32 00888000 CVTOLTEP EQU CVTXTNT2+28 00889000 CVTQIDA EQU CVTQID+1 00890000 CVTRSV95 EQU CVTQID 00891000 CVTRSV94 EQU CVTXTNT2+20 00892000 CVTRSV93 EQU CVTXTNT2+16 00893000 CVTRSV92 EQU CVTXTNT2+12 00894000 CVTDEBVR EQU CVTXTNT2+8 00895000 CVTRSV91 EQU CVTXTNT2+6 00896000 CVTRSV9H EQU CVTFLGBT 00897000 CVTRSV9G EQU CVTFLGBT 00898000 CVTRSV9F EQU CVTFLGBT 00899000 CVTRSV9E EQU CVTFLGBT 00900000 CVTRSV9D EQU CVTFLGBT 00901000 CVTRSV9C EQU CVTFLGBT 00902000 CVTVME EQU CVTFLGBT 00903000 CVTNPE EQU CVTFLGBT 00904000 CVTNUCLS EQU CVTXTNT2+4 00905000 CVTDSSVA EQU CVTDSSV+1 00906000 CVTRSV89 EQU CVTDSSV 00907000 CVTRSV88 EQU CVTXTNT1+8 00908000 CVTRSV87 EQU CVTXTNT1+4 00909000 CVTFACHN EQU CVTXTNT1 00910000 CVTRV488 EQU CVTMAP+412 00911000 CVTRV487 EQU CVTMAP+408 00912000 CVTRV486 EQU CVTMAP+404 00913000 CVTRV485 EQU CVTMAP+400 00914000 CVTACTAP EQU CVTMAP+396 00915000 CVTAUTH EQU CVTMAP+392 00916000 CVTATMCA EQU CVTATMCT+1 00917000 CVTATMST EQU CVTATMCT 00918000 CVTRSV61 EQU CVTMAP+384 00919000 CVTVOLT1 EQU CVTVOLM1+1 00920000 CVTVOLI1 EQU CVTVOLF1 00921000 CVTSTOA EQU CVTMAP+376 00922000 CVTRSV58 EQU CVTMAP+374 00923000 CVTRSV57 EQU CVTMAP+372 00924000 CVTDDCE EQU CVTMAP+368 00925000 CVTPNWFR EQU CVTMAP+364 00926000 CVTSMF EQU CVTMAP+360 00927000 CVTSULK EQU CVTMAP+358 00928000 CVTSLKO EQU CVTSYSK 00929000 CVTSLKP EQU CVTSYSK 00930000 CVTSLKQ EQU CVTSYSK 00931000 CVTSLKR EQU CVTSYSK 00932000 CVTRSV56 EQU CVTSYSK 00933000 CVTRSV55 EQU CVTSYSK 00934000 CVTRSV54 EQU CVTSYSK 00935000 CVTRSV53 EQU CVTSYSK 00936000 CVTRSV52 EQU CVTA1F1 00937000 CVTRSV51 EQU CVTA1F1 00938000 CVTRSV50 EQU CVTA1F1 00939000 CVTRSV49 EQU CVTA1F1 00940000 CVTRSV48 EQU CVTA1F1 00941000 CVTRSV47 EQU CVTA1F1 00942000 CVTSRSW EQU CVTA1F1 00943000 CVTPFSW EQU CVTA1F1 00944000 CVTPCVT EQU CVTMAP+352 00945000 CVTRSV46 EQU CVTMAP+344 00946000 CVTRSV45 EQU CVTMAP+340 00947000 CVTRSV44 EQU CVTMAP+338 00948000 CVTRSV43 EQU CVTMAP+336 00949000 CVTHJESA EQU CVTHJES+1 00950000 CVTRSV42 EQU CVTHJES 00951000 CVTEXT2A EQU CVTEXT2+1 00952000 CVTRSV41 EQU CVTEXT2 00953000 CVTAPFA EQU CVTAPF+1 00954000 CVTRSV40 EQU CVTAPF 00955000 CVTRV518 EQU CVTINTLA 00956000 CVTRV517 EQU CVTERPV 00957000 CVTEORM EQU CVTMAP+312 00958000 CVTMCHPR EQU CVTMAP+308 00959000 CVTTZ EQU CVTMAP+304 00960000 CVTJEPS EQU CVTMAP+300 00961000 CVTJESCT EQU CVTMAP+296 00962000 CVTMODE EQU CVTMAP+292 00963000 CVTPTRV EQU CVTMAP+288 00964000 CVTREAL EQU CVTMAP+284 00965000 CVTRSV39 EQU CVTMAP+280 00966000 CVTRSV38 EQU CVTMAP+276 00967000 CVTDMSRA EQU CVTDMSR+1 00968000 CVTRSV37 EQU CVTDMSR 00969000 CVTQMSGA EQU CVTQMSG+1 00970000 CVTRSV36 EQU CVTQMSG 00971000 CVTAMFF EQU CVTMAP+264 00972000 CVTPURGA EQU CVTPURG+1 00973000 CVTRSV35 EQU CVTPURG 00974000 CVTCBSP EQU CVTMAP+256 00975000 CVTATERA EQU CVTATER+1 00976000 CVTSYST EQU CVTATER 00977000 CVTVOLT2 EQU CVTTAT 00978000 CVTVOLI2 EQU CVTVOLF2 00979000 CVTAQAVB EQU CVTAQAVT+1 00980000 CVTRSV34 EQU CVTTCMFG 00981000 CVTRSV33 EQU CVTTCMFG 00982000 CVTRSV32 EQU CVTTCMFG 00983000 CVTRSV31 EQU CVTTCMFG 00984000 CVTRSV30 EQU CVTTCMFG 00985000 CVTRSV29 EQU CVTTCMFG 00986000 CVTRSV28 EQU CVTTCMFG 00987000 CVTTCRDY EQU CVTTCMFG 00988000 CVTGTFA EQU CVTGTF+1 00989000 CVTRSV27 EQU CVTGTFST 00990000 CVTRNIO EQU CVTGTFST 00991000 CVTUSR EQU CVTGTFST 00992000 CVTRV318 EQU CVTFORM 00993000 CVTRV317 EQU CVTTMODE 00994000 CVTRV316 EQU CVTSTATE 00995000 CVTRV315 EQU CVTGTFS 00996000 CVTGTFAV EQU CVTGTFS 00997000 CVT0SCR1 EQU CVTMAP+232 00998000 CVTRV515 EQU CVTMAP+228 00999000 CVTRMS EQU CVTMAP+224 01000000 CVTPATCH EQU CVTMAP+220 01001000 CVTTSCE EQU CVTMAP+216 01002000 CVTLNKSC EQU CVTMAP+214 01003000 CVTQABST EQU CVTMAP+212 01004000 CVTMDLDS EQU CVTMAP+208 01005000 CVTUSER EQU CVTMAP+204 01006000 CVTABEND EQU CVTMAP+200 01007000 CVTSMCA EQU CVTMAP+196 01008000 CVTRSV18 EQU CVTMAP+192 01009000 CVTQLPAQ EQU CVTMAP+188 01010000 CVTQCDSR EQU CVTMAP+184 01011000 CVTRSV17 EQU CVTOPTB 01012000 CVTRSV16 EQU CVTOPTB 01013000 CVTFP EQU CVTOPTB 01014000 CVTAPTHR EQU CVTOPTB 01015000 CVTNLOG EQU CVTOPTB 01016000 CVTTOD EQU CVTOPTB 01017000 CVTCTIMS EQU CVTOPTB 01018000 CVTPROT EQU CVTOPTB 01019000 CVTXPFP EQU CVTOPTA 01020000 CVTASCII EQU CVTOPTA 01021000 CVTRSV13 EQU CVTOPTA 01022000 CVTRSV12 EQU CVTOPTA 01023000 CVTNIP EQU CVTOPTA 01024000 CVTDDR EQU CVTOPTA 01025000 CVTAPR EQU CVTOPTA 01026000 CVTCCH EQU CVTOPTA 01027000 CVTSNCTR EQU CVTMAP+180 01028000 CVTQMWR EQU CVTMAP+176 01029000 CVTQOCR EQU CVTMAP+172 01030000 CVT1EF00 EQU CVTMAP+168 01031000 CVTMZ00 EQU CVTMAP+164 01032000 CVTHEAD EQU CVTMAP+160 01033000 CVTRSV11 EQU CVTMAP+156 01034000 CVT0PT01 EQU CVTMAP+152 01035000 CVTMSER EQU CVTMAP+148 01036000 CVTRV516 EQU CVTIERLC 01037000 CVTILCH EQU CVTMAP+140 01038000 CVT0DS EQU CVTMAP+136 01039000 CVTFBOSV EQU CVTMAP+132 01040000 CVTNUCB EQU CVTMAP+128 01041000 CVTIXAVL EQU CVTMAP+124 01042000 CVTIOQET EQU CVTMAP+120 01043000 CVTDCBA EQU CVTMAP+117 01044000 CVTMVS2 EQU CVTDCB 01045000 CVT6DAT EQU CVTDCB 01046000 CVT4MPS EQU CVTDCB 01047000 CVTRSV09 EQU CVTDCB 01048000 CVT4MS1 EQU CVTDCB 01049000 CVT2SPS EQU CVTDCB 01050000 CVT1SSS EQU CVTDCB 01051000 CVTRSV08 EQU CVTDCB 01052000 CVTSTB EQU CVTMAP+112 01053000 CVTQTD00 EQU CVTMAP+108 01054000 CVTQTE00 EQU CVTMAP+104 01055000 CVTCUCB EQU CVTMAP+100 01056000 CVTSJQ EQU CVTMAP+96 01057000 CVTPBLDL EQU CVTMAP+92 01058000 CVTTPC EQU CVTMAP+88 01059000 CVTSVDCB EQU CVTMAP+84 01060000 CVTBRET EQU CVTMAP+82 01061000 CVTEXIT EQU CVTMAP+80 01062000 CVT0FN00 EQU CVTMAP+76 01063000 CVTDARA EQU CVTDAR+1 01064000 CVTRSV07 EQU CVTFLGS1 01065000 CVTRSV06 EQU CVTFLGS1 01066000 CVTRSV05 EQU CVTFLGS1 01067000 CVTRSV04 EQU CVTFLGS1 01068000 CVTRSV03 EQU CVTFLGS1 01069000 CVTRSV02 EQU CVTFLGS1 01070000 CVTRSV01 EQU CVTFLGS1 01071000 CVTDMPLK EQU CVTFLGS1 01072000 CVTXITP EQU CVTMAP+68 01073000 CVTZDTAB EQU CVTMAP+64 01074000 CVTMSLT EQU CVTMAP+60 01075000 CVTDATE EQU CVTMAP+56 01076000 CVTBTERM EQU CVTMAP+52 01077000 CVTSYSAD EQU CVTMAP+48 01078000 CVTXTLER EQU CVTMAP+44 01079000 CVTILK2 EQU CVTMAP+40 01080000 CVTILK1 EQU CVTMAP+36 01081000 CVTPRLTV EQU CVTMAP+32 01082000 CVTPCNVT EQU CVTMAP+28 01083000 CVT0VL00 EQU CVTMAP+24 01084000 CVTXAPG EQU CVTMAP+20 01085000 CVTBUF EQU CVTMAP+16 01086000 CVTJOB EQU CVTMAP+12 01087000 CVTLINK EQU CVTMAP+8 01088000 CVTTCBP EQU CVTMAP 01089000 CVT EQU CVTMAP 01090000 @NM00026 EQU PSA+3668 01091000 PSASTAK EQU PSA+3072 01092000 @NM00025 EQU PSA+1040 01093000 PSAUSEND EQU PSA+1040 01094000 PSARV062 EQU PSA+1036 01095000 PSAATCVT EQU PSA+1032 01096000 PSAPCPSW EQU PSA+1024 01097000 PSAPIR2 EQU PSA+1020 01098000 PSARV059 EQU PSA+1018 01099000 PSASVC13 EQU PSA+1016 01100000 PSALSFCC EQU PSA+1012 01101000 PSASFACC EQU PSA+1008 01102000 PSASTOP EQU PSA+992 01103000 PSASTART EQU PSA+976 01104000 PSARSPSW EQU PSA+968 01105000 PSASRPSW EQU PSA+960 01106000 PSARV045 EQU PSA+892 01107000 PSARV044 EQU PSA+888 01108000 PSARV043 EQU PSA+884 01109000 PSARV042 EQU PSA+880 01110000 PSARV041 EQU PSA+876 01111000 PSARV040 EQU PSA+872 01112000 PSARV025 EQU PSA+868 01113000 PSADSSED EQU PSA+868 01114000 PSADSSPR EQU PSA+864 01115000 PSADSSFW EQU PSA+860 01116000 PSADSS14 EQU PSA+856 01117000 PSADSSPP EQU PSA+848 01118000 PSADSSRP EQU PSA+840 01119000 PSADSS05 EQU PSADSSF4 01120000 PSADSS10 EQU PSADSSF4 01121000 PSADSSVE EQU PSADSSF4 01122000 PSADSSDE EQU PSADSSF4 01123000 PSADSSC0 EQU PSADSSF4 01124000 PSADSSIE EQU PSADSSF4 01125000 PSADSS12 EQU PSADSSF4 01126000 PSADSSRC EQU PSADSSF4 01127000 PSARV057 EQU PSADSSF3 01128000 PSARV056 EQU PSADSSF3 01129000 PSARV055 EQU PSADSSF3 01130000 PSADSSMC EQU PSADSSF3 01131000 PSADSSRW EQU PSADSSF3 01132000 PSADSSNM EQU PSADSSF3 01133000 PSADSSES EQU PSADSSF3 01134000 PSADSSGP EQU PSADSSF3 01135000 PSADSSF2 EQU PSADSSFL+1 01136000 PSADSSPI EQU PSADSSF1 01137000 PSADSSOI EQU PSADSSF1 01138000 PSADSSSP EQU PSADSSF1 01139000 PSADSSTP EQU PSADSSF1 01140000 PSADSSDW EQU PSADSSF1 01141000 PSADSSDD EQU PSADSSF1 01142000 PSADSSDM EQU PSADSSF1 01143000 PSADSSMV EQU PSADSSF1 01144000 PSADSSTS EQU PSA+816 01145000 PSADSSWK EQU PSA+812 01146000 PSADSSR3 EQU PSA+808 01147000 PSADSSR2 EQU PSA+804 01148000 PSADSSRS EQU PSA+800 01149000 PSASTOR EQU PSA+796 01150000 PSACPUSA EQU PSA+794 01151000 PSAVSTAP EQU PSA+792 01152000 PSAWKVAP EQU PSA+788 01153000 PSAWKRAP EQU PSA+784 01154000 PSAMCHIC EQU PSA+783 01155000 PSARV061 EQU PSA+782 01156000 PSASYMSK EQU PSA+781 01157000 PSAMCHFL EQU PSA+780 01158000 PSACR0 EQU PSA+776 01159000 PSAPSWSV EQU PSA+768 01160000 PSACLHS EQU PSAHLHI 01161000 PSALKR15 EQU PSALKSA+60 01162000 PSALKR14 EQU PSALKSA+56 01163000 PSALKR13 EQU PSALKSA+52 01164000 PSALKR12 EQU PSALKSA+48 01165000 PSALKR11 EQU PSALKSA+44 01166000 PSALKR10 EQU PSALKSA+40 01167000 PSALKR9 EQU PSALKSA+36 01168000 PSALKR8 EQU PSALKSA+32 01169000 PSALKR7 EQU PSALKSA+28 01170000 PSALKR6 EQU PSALKSA+24 01171000 PSALKR5 EQU PSALKSA+20 01172000 PSALKR4 EQU PSALKSA+16 01173000 PSALKR3 EQU PSALKSA+12 01174000 PSALKR2 EQU PSALKSA+8 01175000 PSALKR1 EQU PSALKSA+4 01176000 PSALKR0 EQU PSALKSA 01177000 PSARV023 EQU PSACLHT+52 01178000 PSALOCAL EQU PSACLHT+48 01179000 PSACMSL EQU PSACLHT+44 01180000 PSAOPTL EQU PSACLHT+40 01181000 PSATPACL EQU PSACLHT+36 01182000 PSATPDNL EQU PSACLHT+32 01183000 PSATPNCL EQU PSACLHT+28 01184000 PSAIOSLL EQU PSACLHT+24 01185000 PSAIOSUL EQU PSACLHT+20 01186000 PSAIOSCL EQU PSACLHT+16 01187000 PSAIOSSL EQU PSACLHT+12 01188000 PSASALCL EQU PSACLHT+8 01189000 PSAASML EQU PSACLHT+4 01190000 PSADISPL EQU PSACLHT 01191000 PSASRSA EQU PSA+636 01192000 PSARV050 EQU PSA+634 01193000 PSADSSGO EQU PSA+633 01194000 PSARECUR EQU PSA+632 01195000 PSAHLHIS EQU PSA+628 01196000 PSAIPCSA EQU PSA+624 01197000 @NM00024 EQU PSA+621 01198000 PSAIPCDM EQU PSA+620 01199000 PSAIPCD EQU PSA+616 01200000 @NM00023 EQU PSA+613 01201000 PSAIPCRM EQU PSA+612 01202000 PSAIPCR EQU PSA+608 01203000 PSAMCHEX EQU PSA+600 01204000 PSAMPSW EQU PSA+592 01205000 PSAEXPS2 EQU PSA+584 01206000 PSAEXPS1 EQU PSA+576 01207000 PSAPIREG EQU PSA+572 01208000 PSARSREG EQU PSA+568 01209000 PSAGPREG EQU PSA+556 01210000 PSARV022 EQU PSASUP4 01211000 PSARV021 EQU PSASUP4 01212000 PSARV020 EQU PSASUP4 01213000 PSARV019 EQU PSASUP4 01214000 PSARV018 EQU PSASUP4 01215000 PSARV017 EQU PSASUP4 01216000 PSARV016 EQU PSASUP4 01217000 PSARV015 EQU PSASUP4 01218000 PSARV014 EQU PSASUP3 01219000 PSARV013 EQU PSASUP3 01220000 PSARV012 EQU PSASUP3 01221000 PSARV011 EQU PSASUP3 01222000 PSASPR EQU PSASUP3 01223000 PSAPSREG EQU PSASUP3 01224000 PSAPI2 EQU PSASUP3 01225000 PSAIOSUP EQU PSASUP3 01226000 PSALCR EQU PSASUP2 01227000 PSARTM EQU PSASUP2 01228000 PSAACR EQU PSASUP2 01229000 PSAIPCE2 EQU PSASUP2 01230000 PSAIPCES EQU PSASUP2 01231000 PSAIPCEC EQU PSASUP2 01232000 PSAGTF EQU PSASUP2 01233000 PSAIPCRI EQU PSASUP2 01234000 PSAIPCRP EQU PSASUP1 01235000 PSAIPCDR EQU PSASUP1 01236000 PSADISP EQU PSASUP1 01237000 PSALOCK EQU PSASUP1 01238000 PSAPI EQU PSASUP1 01239000 PSAEXT EQU PSASUP1 01240000 PSASVC EQU PSASUP1 01241000 PSAIO EQU PSASUP1 01242000 PSAAOLD EQU PSA+548 01243000 PSAANEW EQU PSA+544 01244000 PSATOLD EQU PSA+540 01245000 PSATNEW EQU PSA+536 01246000 PSALCCAR EQU PSA+532 01247000 PSALCCAV EQU PSA+528 01248000 PSAPCCAR EQU PSA+524 01249000 PSAPCCAV EQU PSA+520 01250000 PSACPULA EQU PSA+518 01251000 PSACPUPA EQU PSA+516 01252000 PSAPSA EQU PSA+512 01253000 FLCHDEND EQU PSA+512 01254000 FLCCRSAV EQU FLCMCLA+280 01255000 FLCGRSAV EQU FLCMCLA+216 01256000 FLCFPSAV EQU FLCMCLA+184 01257000 FLCFLA EQU FLCMCLA+88 01258000 FLCRGNCD EQU FLCMCLA+84 01259000 FLCFSAA EQU FLCFSA+1 01260000 @NM00022 EQU FLCFSA 01261000 @NM00021 EQU FLCMCLA+72 01262000 FLCMCIC EQU FLCMCLA+64 01263000 @NM00020 EQU FLCMCLA+20 01264000 FLCIOAA EQU FLCIOA+1 01265000 @NM00019 EQU FLCIOA 01266000 @NM00018 EQU FLCMCLA+15 01267000 @NM00017 EQU FLCMCLA+14 01268000 @NM00016 EQU FLCMCLA+12 01269000 FLCLCL EQU FLCMCLA+8 01270000 FLCIOELA EQU FLCIOEL+1 01271000 @NM00015 EQU FLCIOEL 01272000 FLCCHNID EQU FLCMCLA 01273000 @NM00014 EQU PSA+160 01274000 FLCMTRCD EQU PSA+157 01275000 @NM00013 EQU PSA+156 01276000 FLCPERA EQU FLCPER+1 01277000 @NM00012 EQU FLCPER 01278000 @NM00011 EQU PSA+151 01279000 FLCPERCD EQU PSA+150 01280000 FLCMCNUM EQU PSA+149 01281000 @NM00010 EQU PSA+148 01282000 FLCTEAA EQU FLCTEA+1 01283000 @NM00009 EQU FLCTEA 01284000 PSAPIPC EQU PSAPICOD 01285000 PSAPIMC EQU PSAPICOD 01286000 PSAPIPER EQU PSAPICOD 01287000 PSARV049 EQU FLCPICOD 01288000 FLCPILCB EQU FLCPIILC 01289000 @NM00008 EQU FLCPIILC 01290000 @NM00007 EQU PSAEPPSW 01291000 FLCSVCN EQU PSAESPSW+2 01292000 FLCSILCB EQU FLCSVILC 01293000 @NM00006 EQU FLCSVILC 01294000 @NM00005 EQU PSAESPSW 01295000 FLCEICOD EQU PSAEEPSW+2 01296000 PSASPAD EQU PSAEEPSW 01297000 @NM00004 EQU PSA+128 01298000 FLCINPSW EQU PSA+120 01299000 FLCMNPSW EQU PSA+112 01300000 FLCPNPSW EQU PSA+104 01301000 FLCSNPSW EQU PSA+96 01302000 FLCENPSW EQU PSA+88 01303000 FLCTRACE EQU PSA+84 01304000 FLCTIMER EQU PSA+80 01305000 FLCCVT2 EQU PSA+76 01306000 FLCCAW EQU PSA+72 01307000 FLCCSW EQU PSA+64 01308000 FLCIOPSW EQU PSA+56 01309000 FLCMOPSW EQU PSA+48 01310000 FLCPOPSW EQU PSA+40 01311000 FLCSOPSW EQU PSA+32 01312000 FLCEOPSW EQU PSA+24 01313000 @NM00003 EQU FLCICCW2+4 01314000 FLCCVT EQU FLCICCW2 01315000 FLCICCW1 EQU FLCROPSW 01316000 FLCIPPSW EQU FLCRNPSW 01317000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01318000 @ENDDATA EQU * 01319000 END ISTAPC41,(C'PLS2256',0603,75125) 01320000