TITLE 'ISTORFBD-RELEASE SMS BUFFERS ROUTINE-OS/VS *00001000 ' 00002000 ISTORFBD CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTORFBD 78.205' 0001 00008000 DROP @15 00009000 @PROLOG BALR @09,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@09 0001 00012000 * R5=R2; /* SAVE INPUT R2 @ZA32887*/ 00013000 LR R5,R2 0080 00014000 */* SAVE CALLER'S PSW KEY AND GET UNDER VTAM KEY @ZA32887 00015000 * */ 00016000 * 0081 00017000 * DO; /* MODESET SAVEKEY(R2) 0081 00018000 * EXTKEY(VTAM) */ 00019000 * RESPECIFY 0082 00020000 * (GPR02F) RESTRICTED; 0082 00021000 * IPK; /* SAVE CURRENT PSW KEY */ 00022000 IPK 0083 00023000 * SPKA(96); /* SET PSW KEY */ 00024000 LA @10,96 0084 00025000 SPKA 0(@10) 0084 00026000 * R2=GPR02F; 0085 00027000 * RESPECIFY 0086 00028000 * (GPR02F) UNRESTRICTED; 0086 00029000 * END; /* MODESET SAVEKEY(R2) 0087 00030000 * EXTKEY(VTAM) @ZA32887*/ 00031000 * SLL(R2,24); /* SHIFT CALLER'S KEY TO HIGH 0088 00032000 * ORDER BYTE @ZA32887*/ 00033000 SLL R2,24 0088 00034000 * R14=(R14&'00FFFFFF'X)|R2; /* SAVE CALLER'S KEY IN HIGH BYTE 00035000 * OF R14 @ZA32887*/ 00036000 L @10,@CF01719 0089 00037000 LR @00,R14 0089 00038000 NR @00,@10 0089 00039000 OR @00,R2 0089 00040000 LR R14,@00 0089 00041000 * R2=R5; /* RESTORE INPUT R2 @ZA32887*/ 00042000 LR R2,R5 0090 00043000 * RFY 0091 00044000 * (R2, 0091 00045000 * R5) UNRSTD; /* @ZA32887*/ 00046000 * R9F=(R4BUFPTR&CLEARMSK)|(R9BASE&ADDRMSK); 0092 00047000 * 0092 00048000 LR @05,R4BUFPTR 0092 00049000 N @05,@CF01033 0092 00050000 NR @10,R9BASE 0092 00051000 OR @05,@10 0092 00052000 LR R9F,@05 0092 00053000 * /*****************************************************************/ 00054000 * /* */ 00055000 * /* STORE CLEAR OPTION IN HIGH ORDER BYTE OF BASE REG */ 00056000 * /* */ 00057000 * /*****************************************************************/ 00058000 * 0093 00059000 * R4BUFPTR=R4BUFPTR-PREFIX8; /* @ZM34582*/ 00060000 * 0093 00061000 SL R4BUFPTR,@CF00036 0093 00062000 * /*****************************************************************/ 00063000 * /* */ 00064000 * /* SETUP PTR TO 1ST BUFFER TO BE FREED @ZM33015*/ 00065000 * /* */ 00066000 * /*****************************************************************/ 00067000 * 0094 00068000 * IF(R3F&CHAINMSK)=0& /* THIS A CHAINED BUFF REQUEST */ 00069000 * BFPCBID=ON THEN /* NO */ 00070000 SLR @10,@10 0094 00071000 LR @05,R3F 0094 00072000 N @05,@CF01051 0094 00073000 CR @05,@10 0094 00074000 BNE @RF00094 0094 00075000 TM BFPCBID(R4BUFPX),B'10000000' 0094 00076000 BNO @RF00094 0094 00077000 * BFPNXCHN=0; 0095 00078000 ST @10,BFPNXCHN(,R4BUFPX) 0095 00079000 * ELSE 0096 00080000 * ; /* YES */ 00081000 @RF00094 DS 0H 0097 00082000 * R4BUFPX=R4BUFPX&ADDRMSK; /* CLEAR HI BYTE OF PTR @Z40GKF6*/ 00083000 N R4BUFPX,@CF01719 0097 00084000 * DO WHILE(R4BUFPX^=0); /* RELEASE ALL BUFFERS @Z40GKF6*/ 00085000 B @DE00098 0098 00086000 @DL00098 DS 0H 0099 00087000 * R8BPCB=BFPPCBA; /* SET BUFFER POOL CB BASE */ 00088000 L R8BPCB,BFPPCBA(,R4BUFPX) 0099 00089000 * IF BFPALLOC=OFF| /* BUF NOT ALLOC OR @ZA33119*/ 00090000 * R8BPCB->BPCBPDTY^= /* NOT VALID @ZA33119*/ 00091000 * ATCLCPTR->ATCBPDA /* @ZA33119*/ 00092000 * THEN /* THEN @ZA33119*/ 00093000 TM BFPALLOC(R4BUFPX),B'10000000' 0100 00094000 BZ @RT00100 0100 00095000 L @10,ATCLCPTR 0100 00096000 CLC BPCBPDTY(4,R8BPCB),ATCBPDA(@10) 0100 00097000 BE @RF00100 0100 00098000 @RT00100 DS 0H 0101 00099000 * DO; /* ABEND0A9 @ZA33119*/ 00100000 * REG15='7071'X; /* FUNCTION 7071 @ZA33119*/ 00101000 L REG15,@CF01739 0102 00102000 * GEN CODE(ABEND 169,,,SYSTEM);/* CODE 0A9 @ZA33119*/ 00103000 ABEND 169,,,SYSTEM 00104000 * END; /* @ZA33119*/ 00105000 * ELSE /* ELSE @ZA33119*/ 00106000 * ; /* CONTINUE @ZA33119*/ 00107000 @RF00100 DS 0H 0106 00108000 * BFPNXCHN=BFPNXCHN&ADDRMSK; /* CLEAR HI BYTE @Z40GKF6*/ 00109000 L @10,BFPNXCHN(,R4BUFPX) 0106 00110000 N @10,@CF01719 0106 00111000 ST @10,BFPNXCHN(,R4BUFPX) 0106 00112000 * RFY 0107 00113000 * R10BUFH RSTD; 0107 00114000 * R10BUFH=BFPNXCHN; /* SET HDR PTR TO NEXT BUFFER */ 00115000 L @05,BFPNXCHN(,R4BUFPX) 0108 00116000 LR R10BUFH,@05 0108 00117000 * BFPALLOC=OFF; /* CLEAR BUFF ALLOCATED BIT */ 00118000 NI BFPALLOC(R4BUFPX),B'01111111' 0109 00119000 * BFPCBID=OFF; /* CLEAR CBID INDICATOR BIT */ 00120000 NI BFPCBID(R4BUFPX),B'01111111' 0110 00121000 * IF R9F^<0 /* SHOULD BUF BE CLEARED TO 0 */ 00122000 * THEN 0111 00123000 LTR R9F,R9F 0111 00124000 BNM @RT00111 0111 00125000 * ; /* NO */ 00126000 * ELSE /* YES */ 00127000 * DO; 0113 00128000 * RFY 0114 00129000 * (R5, 0114 00130000 * R6, 0114 00131000 * R7, 0114 00132000 * R2) RSTD; /* @ZM32231*/ 00133000 * R2=R4BUFPX; /* SAVE BUF HDR ADDR @ZM32231*/ 00134000 LR R2,R4BUFPX 0115 00135000 * R4BUFPX=R4BUFPX+PREFIX8; 0116 00136000 AL R4BUFPX,@CF00036 0116 00137000 * R5=BPCBBSIZ; 0117 00138000 LH R5,BPCBBSIZ(,R8BPCB) 0117 00139000 * R6=0; 0118 00140000 SLR R6,R6 0118 00141000 * R7=R6; 0119 00142000 LR R7,R6 0119 00143000 * R7=R6; 0120 00144000 LR R7,R6 0120 00145000 * MVCL(R4BUFPX,R6); /* CLEAR BUFFER TO ZEROES */ 00146000 MVCL R4BUFPX,R6 0121 00147000 * R4BUFPX=R2; /* RESTORE BUF HDR ADDR @ZM32231*/ 00148000 LR R4BUFPX,R2 0122 00149000 * RFY 0123 00150000 * R2 UNRSTD; /* @ZM32231*/ 00151000 * END; 0124 00152000 * SAVER13=R13; /* SAVE CALLER'S @ZA33119*/ 00153000 @RT00111 ST R13,SAVER13(,R4BUFPX) 0125 00154000 * SAVER14=R14; /* REG13 AND REG14 @ZA33119*/ 00155000 ST R14,SAVER14(,R4BUFPX) 0126 00156000 * LM(R6,R7,BPCBCDS); /* PREPARE TO UPDATE FIRST AVAIL 00157000 * BUF ADDR AND RUNNING AND AVAIL 00158000 * BUF COUNTS @ZM32231*/ 00159000 LM R6,R7,BPCBCDS(R8BPCB) 0127 00160000 *CSFAIL1: 0128 00161000 * BFPNXCHN=R6&ADDRMSK; /* UPDATE BUF CHAIN @ZM32231*/ 00162000 CSFAIL1 LR @02,R6 0128 00163000 N @02,@CF01719 0128 00164000 ST @02,BFPNXCHN(,R4BUFPX) 0128 00165000 * R4BUFPX=(R6&BITSMSK)|(R4BUFPX);/* @Z40GKF6*/ 00166000 LR @02,R6 0129 00167000 N @02,@CF01080 0129 00168000 OR R4BUFPX,@02 0129 00169000 * R5=R7+COUNTINC; /* INCRE BOTH RUN CNT & AVAIL # 00170000 * @ZM32231*/ 00171000 LR R5,R7 0130 00172000 AL R5,@CF01725 0130 00173000 * CDS(R6,R4BUFPX,BPCBCDS); /* RELE BUF TO FREE.BUF.QUE */ 00174000 CDS R6,R4BUFPX,BPCBCDS(R8BPCB) 0131 00175000 * BC(FAIL,CSFAIL1); /* KEEP TRYING UNTIL IT WORKS */ 00176000 BC 7,CSFAIL1 0132 00177000 * RFY 0133 00178000 * (R5, 0133 00179000 * R6, 0133 00180000 * R7) UNRSTD; 0133 00181000 * IF R10BUFH=0 /* IS LAST BUF RELEASED @Z40GKF6*/ 00182000 * THEN /* YES */ 00183000 LTR R10BUFH,R10BUFH 0134 00184000 BNZ @RF00134 0134 00185000 * DO; 0135 00186000 * 0135 00187000 */********************************************************************/ 00188000 */* THE FOLLOWING DECISION PROCESS DETERMINES WHETHER -UNQ- SHOULD */ 00189000 */* BE CALLED TO ATTEMPT TO DISPATCH RPH'S WHICH MIGHT BE */ 00190000 */* WAITING FOR RESOURCES JUST, OR PREVIOUSLY, RELEASED */ 00191000 */********************************************************************/ 00192000 * 0136 00193000 *UNQCHECK: 0136 00194000 * IF BPCBRPHA^=BPCBRPHB /* ANYTHING IN QUEUES @Z40GKF6*/ 00195000 * THEN /* YES @Z40GKF6*/ 00196000 UNQCHECK CLC BPCBRPHA(4,R8BPCB),BPCBRPHB(R8BPCB) 0136 00197000 BE @RF00136 0136 00198000 * DO; 0137 00199000 * RFY 0138 00200000 * (R6, 0138 00201000 * R7) RSTD; 0138 00202000 * R6=BPCBSRBA; /* PREPARE TO SET SRB GATE 0139 00203000 * @ZM32987*/ 00204000 L R6,BPCBSRBA-1(,R8BPCB) 0139 00205000 LA R6,0(,R6) 0139 00206000 * R7=R6|CLEARMSK; /* TURN ON GATE BIT @ZM32024*/ 00207000 LR R7,R6 0140 00208000 O R7,@CF01033 0140 00209000 * CS(R6,R7,BPCBRBLK); /* @ZM32024*/ 00210000 CS R6,@07,BPCBRBLK(R8BPCB) 0141 00211000 * BC(FAIL,SRBDONE); /* SRB ALREADY SCHEDULED @ZM32024*/ 00212000 BC 7,SRBDONE 0142 00213000 * RFY 0143 00214000 * (R6, 0143 00215000 * R7) UNRSTD; 0143 00216000 * RFY 0144 00217000 * (R2, 0144 00218000 * R5) RSTD; /* @ZM32024*/ 00219000 * R5=R1; /* SAVE RPH ADDRESS ACROSS SCHED 00220000 * @ZM32024*/ 00221000 LR R5,R1 0145 00222000 * R1=BPCBSRBA; /* GET SRB ADDR FOR SCHED 0146 00223000 * @ZM32024*/ 00224000 L R1,BPCBSRBA-1(,R8BPCB) 0146 00225000 LA R1,0(,R1) 0146 00226000 * DO; /* MODESET EXTKEY(ZERO) */ 00227000 * SPKA(0); /* SET PSW KEY */ 00228000 SLR @07,@07 0148 00229000 SPKA 0(@07) 0148 00230000 * END; /* MODESET EXTKEY(ZERO) GET UNDER 00231000 * PSW KEY ZERO @ZA32887*/ 00232000 * GEN(SCHEDULE SRB=(R1),SCOPE=LOCAL) 0150 00233000 * REFS(R1,CVTLSMQ,SRBFLNK,SRBSECT);/* @ZM32024*/ 00234000 SCHEDULE SRB=(R1),SCOPE=LOCAL 00235000 * DO; /* MODESET EXTKEY(VTAM) */ 00236000 * SPKA(96); /* SET PSW KEY */ 00237000 LA @07,96 0152 00238000 SPKA 0(@07) 0152 00239000 * END; /* MODESET EXTKEY(VTAM) GET BACK 00240000 * VTAM KEY @ZA32887*/ 00241000 * R1=R5; /* RESTORE RPH ADDR @ZM32024*/ 00242000 LR R1,R5 0154 00243000 * RFY 0155 00244000 * (R2, 0155 00245000 * R5) UNRSTD; /* @ZM32024*/ 00246000 *SRBDONE: 0156 00247000 * ; /* @ZM32024*/ 00248000 SRBDONE DS 0H 0157 00249000 * END; 0157 00250000 * ELSE /* QUEUES EMPTY */ 00251000 * DO; 0158 00252000 B @RC00136 0158 00253000 @RF00136 DS 0H 0159 00254000 *LOWTEST: 0159 00255000 * IF BPCBLOW1=ON /* IS SLOWDOWN FLAG ON */ 00256000 * THEN 0159 00257000 LOWTEST TM BPCBLOW1(R8BPCB),B'01000000' 0159 00258000 BNO @RF00159 0159 00259000 * DO; 0160 00260000 * IF BPCBAVNO>=BPCBTHR2/* MORE BUFS THAN THR2 */ 00261000 * THEN 0161 00262000 LH @05,BPCBAVNO(,R8BPCB) 0161 00263000 CH @05,BPCBTHR2(,R8BPCB) 0161 00264000 BL @RF00161 0161 00265000 * DO; 0162 00266000 * RFY 0163 00267000 * (R6, 0163 00268000 * R7) RSTD; 0163 00269000 * R6=BPCBCDS1; 0164 00270000 L R6,BPCBCDS1(,R8BPCB) 0164 00271000 * R7=R6&LOW1OFF&LOW2OFF; 0165 00272000 LR R7,R6 0165 00273000 N R7,@CF01754 0165 00274000 * CS(R6,R7,BPCBCDS1);/* TURN OFF SLOWDOWN BITS */ 00275000 CS R6,@07,BPCBCDS1(R8BPCB) 0166 00276000 * BC(FAIL,LOWTEST); 0167 00277000 BC 7,LOWTEST 0167 00278000 * RFY 0168 00279000 * (R6, 0168 00280000 * R7) UNRSTD; 0168 00281000 * END; 0169 00282000 * ELSE 0170 00283000 * ; 0170 00284000 @RF00161 DS 0H 0171 00285000 * END; 0171 00286000 * ELSE 0172 00287000 * ; 0172 00288000 @RF00159 DS 0H 0173 00289000 * END; 0173 00290000 * END; 0174 00291000 * ELSE 0175 00292000 * DO; 0175 00293000 B @RC00134 0175 00294000 @RF00134 DS 0H 0176 00295000 * R10BUFH=R10BUFH-PREFIX8; /* ADJUST TO PNT TO PRFIX */ 00296000 SL R10BUFH,@CF00036 0176 00297000 * IF R8BPCB^=R10BUFH->BFPPCBA/* NEXT BUF FROM DIFF BPCB */ 00298000 * THEN /* YES */ 00299000 C R8BPCB,BFPPCBA(,R10BUFH) 0177 00300000 BNE @RT00177 0177 00301000 * GOTO UNQCHECK; 0178 00302000 * ELSE 0179 00303000 * ; /* NO */ 00304000 * END; 0180 00305000 * R4BUFPX=R10BUFH; /* GET NEXT BUFF PREFIX */ 00306000 @RC00134 LR R4BUFPX,R10BUFH 0181 00307000 * RFY 0182 00308000 * R10BUFH UNRSTD; 0182 00309000 * END; /* **** END OF DOWHILE */ 00310000 @DE00098 SLR @10,@10 0183 00311000 CR R4BUFPX,@10 0183 00312000 BNE @DL00098 0183 00313000 * RFY 0184 00314000 * R15 RSTD; 0184 00315000 * R15=0; 0185 00316000 LR R15,@10 0185 00317000 * R9BASE=ZERO; /* ZERO OUT BASE REG @ZM33611*/ 00318000 LR R9BASE,@10 0186 00319000 * RFY 0187 00320000 * R2 RSTD; /* @ZA32887*/ 00321000 * R2=R14; /* GET CALLER'S KEY @ZA32887*/ 00322000 LR R2,R14 0188 00323000 * SRL(R2,24); /* SHIFT TO LOW BYTE @ZA32887*/ 00324000 SRL R2,24 0189 00325000 * DO; /* MODESET KEYADDR(R2) */ 00326000 * SPKA(R2); /* SET PSW KEY */ 00327000 SPKA 0(R2) 0191 00328000 * END; /* MODESET KEYADDR(R2) RESTORE 0192 00329000 * CALLER KEY @ZA32887*/ 00330000 * RFY 0193 00331000 * R2 UNRSTD; /* @ZA32887*/ 00332000 */* TPEPILOG */ 00333000 * 0194 00334000 * GEN(PRINT OFF); 0194 00335000 PRINT OFF 00336000 * GEN(PRINT ON); 0195 00337000 * 0195 00338000 PRINT ON 00339000 */* END OF TPEPILOG */ 00340000 * 0196 00341000 * END ISTORFBD /* --- END OF ISTORFBD --- */ 00342000 * 0196 00343000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00344000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00345000 */*%INCLUDE SYSLIB (CVT ) */ 00346000 */*%INCLUDE SYSLIB (IHASRB ) */ 00347000 * 0196 00348000 * ; 0196 00349000 @EL00001 DS 0H 0196 00350000 @EF00001 DS 0H 0196 00351000 @ER00001 BR @14 0196 00352000 @DATA DS 0H 00353000 @DATD DSECT 00354000 DS 0F 00355000 ISTORFBD CSECT 00356000 DS 0F 00357000 @CF00036 DC F'8' 00358000 @CF01754 DC F'-1610612737' 00359000 @CF01033 DC XL4'80000000' 00360000 @CF01051 DC XL4'10000000' 00361000 @CF01080 DC XL4'FF000000' 00362000 @CF01719 DC XL4'00FFFFFF' 00363000 @CF01725 DC XL4'00010001' 00364000 @CF01739 DC XL4'7071' 00365000 @DATD DSECT 00366000 DS 0D 00367000 SRBPTR DS A 00368000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00369000 @ENDDATD EQU * 00370000 ISTORFBD CSECT 00371000 DS 0F 00372000 @SIZDATD DC AL1(0) 00373000 DC AL3(@ENDDATD-@DATD) 00374000 DS 0D 00375000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00376000 @01 EQU 01 00377000 @02 EQU 02 00378000 @03 EQU 03 00379000 @04 EQU 04 00380000 @05 EQU 05 00381000 @06 EQU 06 00382000 @07 EQU 07 00383000 @08 EQU 08 00384000 @09 EQU 09 00385000 @10 EQU 10 00386000 @11 EQU 11 00387000 @12 EQU 12 00388000 @13 EQU 13 00389000 @14 EQU 14 00390000 @15 EQU 15 00391000 RPHPTR EQU @01 00392000 GPR02F EQU @02 00393000 R1 EQU @01 00394000 R2 EQU @02 00395000 R3F EQU @03 00396000 R4BUFPTR EQU @04 00397000 R4BUFPX EQU @04 00398000 R5 EQU @05 00399000 R6 EQU @06 00400000 R7 EQU @07 00401000 R8BPCB EQU @08 00402000 R9BASE EQU @09 00403000 R9F EQU @09 00404000 R10BUFH EQU @10 00405000 R11 EQU @11 00406000 R12 EQU @12 00407000 R13 EQU @13 00408000 R14 EQU @14 00409000 R15 EQU @15 00410000 REG15 EQU @15 00411000 R15BPCB EQU @15 00412000 GPR02P EQU @02 00413000 PSA EQU 0 00414000 FLCRNPSW EQU PSA 00415000 FLCROPSW EQU PSA+8 00416000 FLCICCW2 EQU PSA+16 00417000 PSAEEPSW EQU PSA+132 00418000 PSAESPSW EQU PSA+136 00419000 FLCSVILC EQU PSAESPSW+1 00420000 PSAEPPSW EQU PSA+140 00421000 FLCPIILC EQU PSAEPPSW+1 00422000 FLCPICOD EQU PSAEPPSW+2 00423000 PSAPICOD EQU FLCPICOD+1 00424000 FLCTEA EQU PSAEPPSW+4 00425000 FLCPER EQU PSA+152 00426000 FLCMCLA EQU PSA+168 00427000 FLCIOEL EQU FLCMCLA+4 00428000 FLCIOA EQU FLCMCLA+16 00429000 FLCFSA EQU FLCMCLA+80 00430000 PSASUPER EQU PSA+552 00431000 PSASUP1 EQU PSASUPER 00432000 PSASUP2 EQU PSASUPER+1 00433000 PSASUP3 EQU PSASUPER+2 00434000 PSASUP4 EQU PSASUPER+3 00435000 PSACLHT EQU PSA+640 00436000 PSALKSA EQU PSA+696 00437000 PSAHLHI EQU PSA+760 00438000 PSADSSFL EQU PSA+836 00439000 PSADSSF1 EQU PSADSSFL 00440000 PSADSSF3 EQU PSADSSFL+2 00441000 PSADSSF4 EQU PSADSSFL+3 00442000 PSARSVT EQU PSA+896 00443000 CVTPTR EQU 16 00444000 ATCLCPTR EQU 1032 00445000 CVTMAP EQU 0 00446000 CVTDAR EQU CVTMAP+72 00447000 CVTFLGS1 EQU CVTDAR 00448000 CVTDCB EQU CVTMAP+116 00449000 CVTIERLC EQU CVTMAP+144 00450000 CVTOPTA EQU CVTMAP+182 00451000 CVTOPTB EQU CVTMAP+183 00452000 CVTGTF EQU CVTMAP+236 00453000 CVTGTFST EQU CVTGTF 00454000 CVTGTFS EQU CVTGTFST 00455000 CVTSTATE EQU CVTGTFST 00456000 CVTTMODE EQU CVTGTFST 00457000 CVTFORM EQU CVTGTFST 00458000 CVTAQAVT EQU CVTMAP+240 00459000 CVTTCMFG EQU CVTAQAVT 00460000 CVTVOLM2 EQU CVTMAP+244 00461000 CVTTATA EQU CVTVOLM2 00462000 CVTTSKS EQU CVTTATA 00463000 CVTVOLF2 EQU CVTTSKS 00464000 CVTTAT EQU CVTTATA+1 00465000 CVTATER EQU CVTMAP+248 00466000 CVTEXT1 EQU CVTMAP+252 00467000 CVTPURG EQU CVTMAP+260 00468000 CVTQMSG EQU CVTMAP+268 00469000 CVTDMSR EQU CVTMAP+272 00470000 CVTRSV37 EQU CVTDMSR 00471000 CVTDMSRF EQU CVTRSV37 00472000 CVTERPV EQU CVTMAP+316 00473000 CVTINTLA EQU CVTMAP+320 00474000 CVTAPF EQU CVTMAP+324 00475000 CVTEXT2 EQU CVTMAP+328 00476000 CVTHJES EQU CVTMAP+332 00477000 CVTPGSIA EQU CVTMAP+348 00478000 CVTA1F1 EQU CVTMAP+356 00479000 CVTSYSK EQU CVTMAP+357 00480000 CVTVOLM1 EQU CVTMAP+380 00481000 CVTVOLF1 EQU CVTVOLM1 00482000 CVTATMCT EQU CVTMAP+388 00483000 CVTXTNT1 EQU 0 00484000 CVTXTNT2 EQU 0 00485000 CVTDSSV EQU CVTXTNT2 00486000 CVTFLGBT EQU CVTXTNT2+5 00487000 CVTQID EQU CVTXTNT2+24 00488000 CVTSHS EQU CVTXTNT2+40 00489000 CVTRV400 EQU CVTXTNT2+52 00490000 CVTRV409 EQU CVTXTNT2+53 00491000 CVTATCVT EQU CVTXTNT2+64 00492000 CVTRV429 EQU CVTXTNT2+84 00493000 CVTRV438 EQU CVTXTNT2+85 00494000 CVTRV457 EQU CVTXTNT2+112 00495000 CVTRV466 EQU CVTXTNT2+113 00496000 CVTFIX EQU 0 00497000 CVTRELNO EQU CVTFIX+252 00498000 SRBSECT EQU 0 00499000 SRBFLNK EQU SRBSECT+4 00500000 SRBFLC EQU SRBSECT+12 00501000 ISTPAB EQU 0 00502000 PABWQCHN EQU ISTPAB 00503000 PABWEQA EQU PABWQCHN 00504000 PABCHAIN EQU PABWQCHN+4 00505000 PABRPHFG EQU ISTPAB+12 00506000 PABFLAGS EQU PABRPHFG 00507000 PABERLCK EQU PABFLAGS 00508000 PABERRLK EQU PABERLCK 00509000 ISTLOK EQU 0 00510000 LOKCHN EQU ISTLOK+1 00511000 LOKCHNG EQU LOKCHN 00512000 @NM00030 EQU LOKCHNG+2 00513000 ISTDYPAB EQU 0 00514000 ISTRPH EQU 0 00515000 RPHCNTL EQU ISTRPH 00516000 RPHFLAGS EQU RPHCNTL+2 00517000 RPHAPTYP EQU RPHFLAGS 00518000 RPHFSTLC EQU RPHFLAGS 00519000 RPHFLGB EQU RPHCNTL+3 00520000 RPHRPHA EQU ISTRPH+4 00521000 RPHCVFLG EQU RPHRPHA 00522000 RPHGATE EQU RPHCVFLG 00523000 RPHTSKID EQU ISTRPH+8 00524000 RPHRESMA EQU ISTRPH+16 00525000 RPHWPFLG EQU RPHRESMA 00526000 RPHWEA EQU ISTRPH+24 00527000 RPHCSPA EQU RPHWEA 00528000 RPHSRPRM EQU ISTRPH+28 00529000 RPHPABQA EQU ISTRPH+36 00530000 RPHWORK EQU ISTRPH+40 00531000 RPHSAVE1 EQU RPHWORK 00532000 RPHSBITS EQU RPHSAVE1+1 00533000 ISTATCVT EQU 0 00534000 ATCCOM EQU ISTATCVT 00535000 ATCSTAT EQU ATCCOM 00536000 ATCSTAT1 EQU ATCSTAT 00537000 ATCSTFLG EQU ATCSTAT+1 00538000 ATCPOFLG EQU ATCSTAT+2 00539000 ATCSTAT4 EQU ATCSTAT+3 00540000 ATCBPDA EQU ATCCOM+128 00541000 ATCIOTRC EQU ATCCOM+140 00542000 ATCTHTRC EQU ATCIOTRC 00543000 ATCCSMR EQU ISTATCVT+296 00544000 ATCSHRFG EQU ISTATCVT+316 00545000 ATCHPGM EQU ISTATCVT+384 00546000 ATCVLCNT EQU ISTATCVT+772 00547000 ATCRNO EQU ISTATCVT+788 00548000 ATCSOPD EQU ISTATCVT+792 00549000 ATCSIPD EQU ISTATCVT+800 00550000 ATCSECST EQU ISTATCVT+812 00551000 ATCSTAT2 EQU ISTATCVT+818 00552000 ATCVTBAM EQU ISTATCVT+908 00553000 @NM00041 EQU ATCVTBAM+3 00554000 ATCAOSM EQU ISTATCVT+912 00555000 ATCGSRBQ EQU ATCAOSM+4 00556000 ATCGSRBG EQU ATCGSRBQ 00557000 ATCICAPP EQU ATCAOSM+100 00558000 ATCLDAPP EQU ATCAOSM+120 00559000 ATCDAPVT EQU ATCAOSM+140 00560000 ATCCRA EQU ATCAOSM+280 00561000 ATCCRACN EQU ATCCRA+4 00562000 ATCSRB EQU ATCAOSM+288 00563000 ATCSRBCN EQU ATCSRB+4 00564000 ATCCRPL EQU ATCAOSM+296 00565000 ATCRPLCN EQU ATCCRPL+4 00566000 ATCSQAFR EQU ATCAOSM+304 00567000 ATCORTBC EQU ATCSQAFR+4 00568000 ATCORSRB EQU ATCORTBC 00569000 @NM00043 EQU ATCAOSM+332 00570000 ATCVTFLG EQU ATCAOSM+392 00571000 ATCZFLAG EQU ATCAOSM+588 00572000 ISTBPENT EQU 0 00573000 BPEFLAGS EQU ISTBPENT+4 00574000 ISTBPDTY EQU 0 00575000 BPDHDR EQU ISTBPDTY 00576000 BPDFLAG EQU BPDHDR+40 00577000 BPDPARM EQU BPDHDR+48 00578000 BPDTRACE EQU BPDHDR+56 00579000 ISTBPCB EQU 0 00580000 BPCBFLAG EQU ISTBPCB 00581000 BPCBFEXT EQU ISTBPCB+4 00582000 BPCBRPHA EQU ISTBPCB+16 00583000 BPCBRPHB EQU ISTBPCB+20 00584000 BPCBPDTY EQU ISTBPCB+24 00585000 BPCBBSIZ EQU ISTBPCB+32 00586000 BPCBTHR2 EQU ISTBPCB+38 00587000 BPCBQREQ EQU ISTBPCB+40 00588000 BPCBMUSE EQU ISTBPCB+44 00589000 BPCBCDS EQU ISTBPCB+56 00590000 BPCBCDS1 EQU BPCBCDS 00591000 BPCBFLG2 EQU BPCBCDS1 00592000 BPCBLOW1 EQU BPCBFLG2 00593000 BPCBCDS2 EQU BPCBCDS+4 00594000 BPCBAVNO EQU BPCBCDS2+2 00595000 BPCBRBLK EQU ISTBPCB+64 00596000 BPCBSRBA EQU BPCBRBLK+1 00597000 ISTBFPFX EQU 0 00598000 BFPTSKID EQU ISTBFPFX 00599000 BFPALLOC EQU BFPTSKID 00600000 BFPPSTID EQU BFPTSKID+1 00601000 BFPPCBA EQU ISTBFPFX+4 00602000 BFPCBID EQU BFPPCBA 00603000 BFPNXCHN EQU ISTBFPFX+8 00604000 BFPSIZE EQU ISTBFPFX+12 00605000 BFPDATA EQU ISTBFPFX+16 00606000 BFPREGSA EQU BFPDATA 00607000 BFPR5SA EQU BFPREGSA 00608000 DUMNAMES EQU 0 00609000 BFPFXPTR EQU DUMNAMES 00610000 BPCBPTR EQU DUMNAMES+4 00611000 BPDPTR EQU DUMNAMES+8 00612000 BPEPTR EQU DUMNAMES+12 00613000 ISTORFBQ EQU 0 00614000 PSARSVTE EQU PSARSVT 00615000 CVTS01 EQU CVTPGSIA 00616000 CVTLPDIA EQU CVTS01+12 00617000 CVTDIRST EQU CVTLPDIA 00618000 CVTSLIDA EQU CVTS01+24 00619000 CVTCTLFG EQU CVTS01+50 00620000 CVTLSMQ EQU CVTS01+268 00621000 CVTRV210 EQU CVTS01+424 00622000 CVTRV219 EQU CVTS01+425 00623000 CVTRV228 EQU CVTS01+426 00624000 CVTRV237 EQU CVTS01+427 00625000 CVTMFRTR EQU CVTS01+452 00626000 CVTRV262 EQU CVTS01+468 00627000 CVTRV271 EQU CVTS01+469 00628000 CVTRV280 EQU CVTS01+470 00629000 CVTRV289 EQU CVTS01+471 00630000 CVTGSDA EQU CVTS01+600 00631000 SRB EQU SRBSECT 00632000 SAVER13 EQU BFPSIZE 00633000 SAVER14 EQU BFPR5SA 00634000 CALLADR EQU BFPTSKID 00635000 FLC EQU PSA 00636000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00637000 BFPCADR EQU CALLADR+1 00638000 @NM00058 EQU CALLADR 00639000 CVTRV628 EQU CVTS01+728 00640000 CVTRV627 EQU CVTS01+724 00641000 CVTRV626 EQU CVTS01+720 00642000 CVTRV625 EQU CVTS01+716 00643000 CVTRV624 EQU CVTS01+712 00644000 CVTRV623 EQU CVTS01+708 00645000 CVTRV622 EQU CVTS01+704 00646000 CVTRV621 EQU CVTS01+700 00647000 CVTRV620 EQU CVTS01+696 00648000 CVTRV619 EQU CVTS01+692 00649000 CVTRV618 EQU CVTS01+688 00650000 CVTRV617 EQU CVTS01+684 00651000 CVTRV616 EQU CVTS01+680 00652000 CVTRV615 EQU CVTS01+676 00653000 CVTRV614 EQU CVTS01+672 00654000 CVTRV613 EQU CVTS01+668 00655000 CVTTCASP EQU CVTS01+664 00656000 CVT0PT03 EQU CVTS01+660 00657000 CVT0PT0E EQU CVTS01+656 00658000 CVTIRM EQU CVTS01+652 00659000 CVTCGK EQU CVTS01+648 00660000 CVTRV607 EQU CVTS01+644 00661000 CVTRV606 EQU CVTS01+640 00662000 CVTRV605 EQU CVTS01+636 00663000 CVTRV604 EQU CVTS01+632 00664000 CVTEFF02 EQU CVTS01+628 00665000 CVTCBBR EQU CVTS01+624 00666000 CVTSSCR EQU CVTS01+620 00667000 CVTEVENT EQU CVTS01+616 00668000 CVTCRCA EQU CVTS01+612 00669000 CVTTPIO EQU CVTS01+608 00670000 CVTADV EQU CVTS01+604 00671000 CVTGSDAB EQU CVTGSDA 00672000 CVTQV3 EQU CVTS01+596 00673000 CVTQV2 EQU CVTS01+592 00674000 CVTQV1 EQU CVTS01+588 00675000 CVTRPT EQU CVTS01+584 00676000 CVTSSRB EQU CVTS01+580 00677000 CVTCSDRL EQU CVTS01+576 00678000 CVTEXP1 EQU CVTS01+572 00679000 CVTRMPMT EQU CVTS01+568 00680000 CVTRMPTT EQU CVTS01+564 00681000 CVTVPSA EQU CVTS01+560 00682000 CVTVSTOP EQU CVTS01+556 00683000 CVTGTFR8 EQU CVTS01+552 00684000 CVTQUIT EQU CVTS01+548 00685000 CVTVACR EQU CVTS01+544 00686000 CVTWTCB EQU CVTS01+540 00687000 CVTSTPRS EQU CVTS01+536 00688000 CVT0PT02 EQU CVTS01+532 00689000 CVTDARCM EQU CVTS01+528 00690000 CVTIRECM EQU CVTS01+524 00691000 CVTJRECM EQU CVTS01+520 00692000 CVTVEMS0 EQU CVTS01+516 00693000 CVTSPFRR EQU CVTS01+512 00694000 CVTRLSTG EQU CVTS01+508 00695000 CVT0TC0A EQU CVTS01+504 00696000 CVTGMBR EQU CVTS01+500 00697000 CVTLFRM EQU CVTS01+496 00698000 CVTRMBR EQU CVTS01+492 00699000 CVTVIOP EQU CVTS01+488 00700000 CVTRV307 EQU CVTS01+486 00701000 CVTRV306 EQU CVTS01+484 00702000 CVTRV305 EQU CVTS01+482 00703000 CVTRV304 EQU CVTS01+480 00704000 CVTRV303 EQU CVTS01+478 00705000 CVTRV302 EQU CVTS01+476 00706000 CVTTRCA EQU CVTS01+472 00707000 CVTRV297 EQU CVTRV289 00708000 CVTRV296 EQU CVTRV289 00709000 CVTRV295 EQU CVTRV289 00710000 CVTRV294 EQU CVTRV289 00711000 CVTRV293 EQU CVTRV289 00712000 CVTRV292 EQU CVTRV289 00713000 CVTRV291 EQU CVTRV289 00714000 CVTRV290 EQU CVTRV289 00715000 CVTRV288 EQU CVTRV280 00716000 CVTRV287 EQU CVTRV280 00717000 CVTRV286 EQU CVTRV280 00718000 CVTRV285 EQU CVTRV280 00719000 CVTRV284 EQU CVTRV280 00720000 CVTRV283 EQU CVTRV280 00721000 CVTRV282 EQU CVTRV280 00722000 CVTRV281 EQU CVTRV280 00723000 CVTRV279 EQU CVTRV271 00724000 CVTRV278 EQU CVTRV271 00725000 CVTRV277 EQU CVTRV271 00726000 CVTRV276 EQU CVTRV271 00727000 CVTRV275 EQU CVTRV271 00728000 CVTRV274 EQU CVTRV271 00729000 CVTRV273 EQU CVTRV271 00730000 CVTRV272 EQU CVTRV271 00731000 CVTRV270 EQU CVTRV262 00732000 CVTRV269 EQU CVTRV262 00733000 CVTRV268 EQU CVTRV262 00734000 CVTRV267 EQU CVTRV262 00735000 CVTRV266 EQU CVTRV262 00736000 CVTRV265 EQU CVTRV262 00737000 CVTRV264 EQU CVTRV262 00738000 CVTRV263 EQU CVTRV262 00739000 CVTVFP EQU CVTS01+464 00740000 CVTVSI EQU CVTS01+460 00741000 CVTVPSIB EQU CVTS01+456 00742000 CVTMFACT EQU CVTMFRTR 00743000 CVTMFCTL EQU CVTS01+448 00744000 CVTPVBP EQU CVTS01+444 00745000 CVTPWI EQU CVTS01+440 00746000 CVTRV254 EQU CVTS01+438 00747000 CVTRV253 EQU CVTS01+436 00748000 CVTRV252 EQU CVTS01+434 00749000 CVTRV251 EQU CVTS01+433 00750000 CVTRV250 EQU CVTS01+432 00751000 CVTRV249 EQU CVTS01+431 00752000 CVTRV248 EQU CVTS01+430 00753000 CVTRV247 EQU CVTS01+429 00754000 CVTRV246 EQU CVTS01+428 00755000 CVTRV245 EQU CVTRV237 00756000 CVTRV244 EQU CVTRV237 00757000 CVTRV243 EQU CVTRV237 00758000 CVTRV242 EQU CVTRV237 00759000 CVTRV241 EQU CVTRV237 00760000 CVTRV240 EQU CVTRV237 00761000 CVTRV239 EQU CVTRV237 00762000 CVTRV238 EQU CVTRV237 00763000 CVTRV236 EQU CVTRV228 00764000 CVTRV235 EQU CVTRV228 00765000 CVTRV234 EQU CVTRV228 00766000 CVTRV233 EQU CVTRV228 00767000 CVTRV232 EQU CVTRV228 00768000 CVTRV231 EQU CVTRV228 00769000 CVTRV230 EQU CVTRV228 00770000 CVTRV229 EQU CVTRV228 00771000 CVTRV227 EQU CVTRV219 00772000 CVTRV226 EQU CVTRV219 00773000 CVTRV225 EQU CVTRV219 00774000 CVTRV224 EQU CVTRV219 00775000 CVTRV223 EQU CVTRV219 00776000 CVTRV222 EQU CVTRV219 00777000 CVTRV221 EQU CVTRV219 00778000 CVTRV220 EQU CVTRV219 00779000 CVTRV218 EQU CVTRV210 00780000 CVTRV217 EQU CVTRV210 00781000 CVTRV216 EQU CVTRV210 00782000 CVTRV215 EQU CVTRV210 00783000 CVTRV214 EQU CVTRV210 00784000 CVTRV213 EQU CVTRV210 00785000 CVTRV212 EQU CVTRV210 00786000 CVTRV211 EQU CVTRV210 00787000 CVTLCCAT EQU CVTS01+420 00788000 CVTPCCAT EQU CVTS01+416 00789000 CVTIPCRP EQU CVTS01+412 00790000 CVTIPCRI EQU CVTS01+408 00791000 CVTIPCDS EQU CVTS01+404 00792000 CVTAIDVT EQU CVTS01+400 00793000 CVTSSAP EQU CVTS01+396 00794000 CVTEHCIR EQU CVTS01+392 00795000 CVTEHDEF EQU CVTS01+388 00796000 CVTDAIR EQU CVTS01+384 00797000 CVTPERFM EQU CVTS01+380 00798000 CVT044R2 EQU CVTS01+376 00799000 CVTFETCH EQU CVTS01+372 00800000 CVTRSTWD EQU CVTS01+368 00801000 CVTSPOST EQU CVTS01+364 00802000 CVTIOBP EQU CVTS01+360 00803000 CVTASMVT EQU CVTS01+356 00804000 CVTRECRQ EQU CVTS01+352 00805000 CVTWSAC EQU CVTS01+348 00806000 CVTRV149 EQU CVTS01+344 00807000 CVTWSAL EQU CVTS01+340 00808000 CVTSPSA EQU CVTS01+336 00809000 CVTGLMN EQU CVTS01+332 00810000 CVTVEAC0 EQU CVTS01+328 00811000 CVT062R1 EQU CVTS01+324 00812000 CVTRPOST EQU CVTS01+320 00813000 CVTDQIQE EQU CVTS01+316 00814000 CVTCSD EQU CVTS01+312 00815000 CVTLKRMA EQU CVTS01+308 00816000 CVTRSPIE EQU CVTS01+304 00817000 CVTRENQ EQU CVTS01+300 00818000 CVTLQCB EQU CVTS01+296 00819000 CVTFQCB EQU CVTS01+292 00820000 CVTQCS01 EQU CVTS01+288 00821000 CVTAPFT EQU CVTS01+284 00822000 CVTPARRL EQU CVTS01+280 00823000 CVTVWAIT EQU CVTS01+276 00824000 CVTGSPL EQU CVTS01+272 00825000 CVTGSMQ EQU CVTS01+264 00826000 CVTEXPRO EQU CVTS01+260 00827000 CVTOPCTP EQU CVTS01+256 00828000 CVTSIC EQU CVTS01+252 00829000 CVTTPIOS EQU CVTS01+248 00830000 CVTRTMS EQU CVTS01+244 00831000 CVTSDBF EQU CVTS01+240 00832000 CVTSCBP EQU CVTS01+236 00833000 CVTSDMP EQU CVTS01+232 00834000 CVTSV60 EQU CVTS01+228 00835000 CVTRTMCT EQU CVTS01+224 00836000 CVTASCBL EQU CVTS01+220 00837000 CVTASCBH EQU CVTS01+216 00838000 CVTGDA EQU CVTS01+212 00839000 CVTASVT EQU CVTS01+208 00840000 CVTVVMDI EQU CVTS01+204 00841000 CVTAQTOP EQU CVTS01+200 00842000 CVTIOSCS EQU CVTS01+196 00843000 CVTSDRM EQU CVTS01+192 00844000 CVTOPTE EQU CVTS01+188 00845000 CVTSTXU EQU CVTS01+184 00846000 CVTQUIS EQU CVTS01+180 00847000 CVTPARS EQU CVTS01+176 00848000 CVTS1EE EQU CVTS01+172 00849000 CVTFRAS EQU CVTS01+168 00850000 CVTQSAS EQU CVTS01+164 00851000 CVTCRAS EQU CVTS01+160 00852000 CVTCRMN EQU CVTS01+156 00853000 CVTDELCP EQU CVTS01+152 00854000 CVTFRECL EQU CVTS01+148 00855000 CVTGETCL EQU CVTS01+144 00856000 CVTBLDCP EQU CVTS01+140 00857000 CVTAUTHL EQU CVTS01+136 00858000 CVTSCAN EQU CVTS01+132 00859000 CVTRV144 EQU CVTS01+130 00860000 CVTMAXMP EQU CVTS01+128 00861000 CVTSTCK EQU CVTS01+124 00862000 CVTRV139 EQU CVTS01+123 00863000 CVTDSSAC EQU CVTS01+122 00864000 CVTRV513 EQU CVTS01+121 00865000 CVTIOSPL EQU CVTS01+120 00866000 CVTPTGT EQU CVTS01+116 00867000 CVTCSPIE EQU CVTS01+112 00868000 CVTSMFEX EQU CVTS01+108 00869000 CVTOLT0A EQU CVTS01+104 00870000 CVTSRBRT EQU CVTS01+100 00871000 CVTPUTL EQU CVTS01+96 00872000 CVTASCRL EQU CVTS01+92 00873000 CVTASCRF EQU CVTS01+88 00874000 CVTRV326 EQU CVTS01+84 00875000 CVTRV325 EQU CVTS01+80 00876000 CVTRV324 EQU CVTS01+76 00877000 CVT0VL01 EQU CVTS01+72 00878000 CVTSHRVM EQU CVTS01+68 00879000 CVTRV332 EQU CVTS01+64 00880000 CVTTAS EQU CVTS01+60 00881000 CVTRSCN EQU CVTS01+56 00882000 CVTTRAC2 EQU CVTS01+54 00883000 CVTTRACE EQU CVTS01+52 00884000 CVTAPG EQU CVTS01+51 00885000 CVTSDTRC EQU CVTCTLFG 00886000 CVTGTRCE EQU CVTCTLFG 00887000 CVTNOMP EQU CVTCTLFG 00888000 CVTRSV79 EQU CVTCTLFG 00889000 CVTDSTAT EQU CVTCTLFG 00890000 CVTRSV78 EQU CVTCTLFG 00891000 CVTRV333 EQU CVTCTLFG 00892000 CVTRV323 EQU CVTCTLFG 00893000 CVTSPVLK EQU CVTS01+49 00894000 CVTRSV77 EQU CVTS01+48 00895000 CVTRV331 EQU CVTS01+44 00896000 CVTRV330 EQU CVTS01+40 00897000 CVTRV329 EQU CVTS01+36 00898000 CVTRV328 EQU CVTS01+32 00899000 CVTRV322 EQU CVTS01+28 00900000 CVTSLID EQU CVTSLIDA+1 00901000 CVTSYLK EQU CVTSLIDA 00902000 CVTRV321 EQU CVTS01+20 00903000 CVTRV320 EQU CVTS01+16 00904000 CVTLPDIR EQU CVTLPDIA+1 00905000 CVTRSV69 EQU CVTDIRST 00906000 CVTRSV68 EQU CVTDIRST 00907000 CVTRSV67 EQU CVTDIRST 00908000 CVTRSV66 EQU CVTDIRST 00909000 CVTRSV65 EQU CVTDIRST 00910000 CVTRSV64 EQU CVTDIRST 00911000 CVTRSV63 EQU CVTDIRST 00912000 CVTDICOM EQU CVTDIRST 00913000 CVTPVTP EQU CVTS01+8 00914000 CVTLPDSR EQU CVTS01+4 00915000 CVTGETL EQU CVTS01 00916000 PSARSAV EQU PSARSVTE+60 00917000 PSARSTK EQU PSARSVTE+56 00918000 PSAESAV3 EQU PSARSVTE+52 00919000 PSAESTK3 EQU PSARSVTE+48 00920000 PSAESAV2 EQU PSARSVTE+44 00921000 PSAESTK2 EQU PSARSVTE+40 00922000 PSAESAV1 EQU PSARSVTE+36 00923000 PSAESTK1 EQU PSARSVTE+32 00924000 PSAPSAV EQU PSARSVTE+28 00925000 PSAPSTK EQU PSARSVTE+24 00926000 PSAMSAV EQU PSARSVTE+20 00927000 PSAMSTK EQU PSARSVTE+16 00928000 PSASSAV EQU PSARSVTE+12 00929000 PSASSTK EQU PSARSVTE+8 00930000 PSANSTK EQU PSARSVTE+4 00931000 PSACSTK EQU PSARSVTE 00932000 BFPRDSA EQU BFPREGSA+32 00933000 BFPRCSA EQU BFPREGSA+28 00934000 BFPRBSA EQU BFPREGSA+24 00935000 BFPRASA EQU BFPREGSA+20 00936000 BFPR9SA EQU BFPREGSA+16 00937000 BFPR8SA EQU BFPREGSA+12 00938000 BFPR7SA EQU BFPREGSA+8 00939000 BFPR6SA EQU BFPREGSA+4 00940000 BFPPMDSB EQU BFPR5SA 00941000 BFPPMCHN EQU BFPR5SA 00942000 BFPPMCLR EQU BFPR5SA 00943000 BFPUSED EQU ISTBFPFX+14 00944000 BFPBPCB EQU BFPPCBA+1 00945000 @NM00057 EQU BFPPCBA 00946000 BFPTIK EQU BFPPSTID+2 00947000 @NM00056 EQU BFPPSTID 00948000 BFPCBXNO EQU BFPTSKID 00949000 BPCBSRB EQU ISTBPCB+68 00950000 @NM00055 EQU BPCBRBLK 00951000 BPCBSRBG EQU BPCBRBLK 00952000 BPCBCCNT EQU BPCBCDS2 00953000 BPCBFBA EQU BPCBCDS1+1 00954000 @NM00054 EQU BPCBFLG2 00955000 BPCBLOW2 EQU BPCBFLG2 00956000 @NM00053 EQU BPCBFLG2 00957000 BPCBNUMR EQU ISTBPCB+54 00958000 BPCBNUM EQU ISTBPCB+52 00959000 BPCBRESP EQU ISTBPCB+48 00960000 BPCMINAV EQU BPCBMUSE+2 00961000 @NM00052 EQU BPCBMUSE 00962000 BPCBCQUE EQU BPCBQREQ+2 00963000 BPCBMQUE EQU BPCBQREQ 00964000 BPCBTHRE EQU ISTBPCB+36 00965000 BPCBTOTL EQU ISTBPCB+34 00966000 BPCBNXCB EQU ISTBPCB+28 00967000 BPCBADR2 EQU ISTBPCB+12 00968000 BPCBADR1 EQU ISTBPCB+8 00969000 BPCBPRIO EQU BPCBFEXT 00970000 BPCBSPNO EQU ISTBPCB+3 00971000 @NM00051 EQU ISTBPCB+2 00972000 @NM00050 EQU BPCBFLAG+1 00973000 BPCBUSRF EQU BPCBFLAG+1 00974000 @NM00049 EQU BPCBFLAG 00975000 BPCBNWS EQU BPCBFLAG 00976000 BPCBCBID EQU BPCBFLAG 00977000 BPCBAL48 EQU BPCBFLAG 00978000 BPCBNFCH EQU BPCBFLAG 00979000 BPCBFX EQU BPCBFLAG 00980000 BPCBDISP EQU BPCBFLAG 00981000 BPCBFM EQU BPCBFLAG 00982000 BPDCBID EQU ISTBPDTY+336 00983000 BPDENTRY EQU ISTBPDTY+144 00984000 @NM00048 EQU BPDTRACE+6 00985000 BPDAVNO EQU BPDTRACE+4 00986000 BPDMQUE EQU BPDTRACE+2 00987000 BPDMUSE EQU BPDTRACE 00988000 BPDTRADR EQU BPDPARM+4 00989000 BPDTRID EQU BPDPARM+3 00990000 @NM00047 EQU BPDPARM+2 00991000 BPDTRLEN EQU BPDPARM 00992000 BPDREQMX EQU BPDHDR+46 00993000 BPDREQCT EQU BPDHDR+44 00994000 BPDRSV01 EQU BPDFLAG 00995000 BPDGTR EQU BPDFLAG 00996000 BPDATCVT EQU BPDHDR+36 00997000 BPDFBPE EQU BPDHDR+32 00998000 BPDSMPCB EQU BPDHDR+28 00999000 BPDFEXT EQU BPDHDR+24 01000000 BPDADRS2 EQU BPDHDR+20 01001000 BPDADRS1 EQU BPDHDR+16 01002000 BPDPGPCB EQU BPDHDR+12 01003000 BPDCHPCB EQU BPDHDR+8 01004000 BPDCHBSZ EQU BPDHDR+6 01005000 BPDCHBNO EQU BPDHDR+4 01006000 BPDBPMAX EQU BPDHDR+2 01007000 BPDBPENT EQU BPDHDR 01008000 BPERSV03 EQU ISTBPENT+12 01009000 BPEBPCB EQU ISTBPENT+8 01010000 BPEBFSIZ EQU ISTBPENT+6 01011000 BPERSV02 EQU BPEFLAGS+1 01012000 BPEUSRF EQU BPEFLAGS+1 01013000 BPERSV01 EQU BPEFLAGS 01014000 BPENWS EQU BPEFLAGS 01015000 BPECBID EQU BPEFLAGS 01016000 BPEAL48 EQU BPEFLAGS 01017000 BPENFCHP EQU BPEFLAGS 01018000 BPEFIXED EQU BPEFLAGS 01019000 BPEDISP EQU BPEFLAGS 01020000 BPEFM EQU BPEFLAGS 01021000 BPEPID EQU ISTBPENT 01022000 ATCAOS EQU ISTATCVT+1584 01023000 ATCPOPAB EQU ATCAOSM+640 01024000 ATCVIOPM EQU ATCAOSM+636 01025000 ATCTPMMI EQU ATCAOSM+632 01026000 ATCTPMPB EQU ATCAOSM+600 01027000 ATCRSV88 EQU ATCAOSM+596 01028000 ATCRPLCT EQU ATCAOSM+594 01029000 ATCCRACT EQU ATCAOSM+592 01030000 ATCSRBCT EQU ATCAOSM+590 01031000 ATCRSV75 EQU ATCAOSM+589 01032000 ATCRSV66 EQU ATCZFLAG 01033000 ATCZF001 EQU ATCZFLAG 01034000 ATCTPCP1 EQU ATCAOSM+584 01035000 ATCTPCP0 EQU ATCAOSM+580 01036000 ATCAICTN EQU ATCAOSM+576 01037000 ATCZR01 EQU ATCAOSM+572 01038000 ATCMPLTA EQU ATCAOSM+568 01039000 ATCASCB EQU ATCAOSM+564 01040000 ATCAP86 EQU ATCAOSM+560 01041000 ATCAP85 EQU ATCAOSM+556 01042000 ATCAP84 EQU ATCAOSM+552 01043000 ATCAP83 EQU ATCAOSM+548 01044000 ATCAP82 EQU ATCAOSM+544 01045000 ATCAP69 EQU ATCAOSM+540 01046000 ATCAP66 EQU ATCAOSM+536 01047000 ATCAP62 EQU ATCAOSM+532 01048000 ATCAPC59 EQU ATCAOSM+528 01049000 ATCAP56 EQU ATCAOSM+524 01050000 ATCAP55 EQU ATCAOSM+520 01051000 ATCRCFY0 EQU ATCAOSM+516 01052000 ATCAP41 EQU ATCAOSM+512 01053000 ATCAPC25 EQU ATCAOSM+508 01054000 ATCAP23 EQU ATCAOSM+504 01055000 ATCTPSPB EQU ATCAOSM+472 01056000 ATCTRMPB EQU ATCAOSM+440 01057000 ATCAPBE EQU ATCAOSM+436 01058000 ATCPSTA EQU ATCAOSM+432 01059000 ATCSMABF EQU ATCAOSM+428 01060000 ATCSMAPR EQU ATCAOSM+424 01061000 ATCTPWQA EQU ATCAOSM+420 01062000 ATCSMAID EQU ATCAOSM+416 01063000 ATCSMARA EQU ATCAOSM+412 01064000 ATCCACXA EQU ATCAOSM+408 01065000 ATCZLAAB EQU ATCAOSM+404 01066000 ATCATA10 EQU ATCAOSM+400 01067000 ATCHLTCB EQU ATCAOSM+396 01068000 @NM00046 EQU ATCVTFLG 01069000 ATCVTACT EQU ATCVTFLG 01070000 ATCRPT40 EQU ATCAOSM+388 01071000 ATCRPT39 EQU ATCAOSM+384 01072000 ATCRPT38 EQU ATCAOSM+380 01073000 ATCRPT37 EQU ATCAOSM+376 01074000 ATCRPT36 EQU ATCAOSM+372 01075000 ATCRPT35 EQU ATCAOSM+368 01076000 ATCRPT34 EQU ATCAOSM+364 01077000 ATCRPT33 EQU ATCAOSM+360 01078000 ATCRPT32 EQU ATCAOSM+356 01079000 ATCRPT31 EQU ATCAOSM+352 01080000 ATCRPT30 EQU ATCAOSM+348 01081000 ATCOCWCB EQU ATCAOSM+344 01082000 ATCOCWOB EQU ATCAOSM+340 01083000 ATCRPT27 EQU ATCAOSM+336 01084000 @NM00045 EQU ATCAOSM+333 01085000 @NM00044 EQU @NM00043 01086000 ATCSNUF EQU @NM00043 01087000 ATCOPKL EQU @NM00043 01088000 ATCABEN EQU @NM00043 01089000 ATCAIWT EQU ATCAOSM+328 01090000 ATCINFDD EQU ATCAOSM+324 01091000 ATCORFMG EQU ATCAOSM+320 01092000 ATCORFRL EQU ATCAOSM+316 01093000 ATCOROBT EQU ATCAOSM+312 01094000 ATCORQG EQU ATCORSRB 01095000 ATCORTBF EQU ATCSQAFR 01096000 ATCRPLAC EQU ATCRPLCN+2 01097000 ATCRPLRC EQU ATCRPLCN 01098000 ATCCRPLQ EQU ATCCRPL 01099000 ATCSRBAC EQU ATCSRBCN+2 01100000 ATCSRBRC EQU ATCSRBCN 01101000 ATCSRBQ EQU ATCSRB 01102000 ATCCRAAC EQU ATCCRACN+2 01103000 ATCCRARC EQU ATCCRACN 01104000 ATCCRAQ EQU ATCCRA 01105000 ATCRPT12 EQU ATCAOSM+276 01106000 ATCDMAPP EQU ATCAOSM+272 01107000 ATCAP38 EQU ATCAOSM+268 01108000 ATCAP37 EQU ATCAOSM+264 01109000 ATCZDFJ0 EQU ATCAOSM+260 01110000 ATCAP51 EQU ATCAOSM+256 01111000 ATCZPAB2 EQU ATCAOSM+224 01112000 ATCZPAB1 EQU ATCAOSM+192 01113000 ATCZLFVT EQU ATCAOSM+188 01114000 ATCZLPVT EQU ATCAOSM+184 01115000 ATCZDVTX EQU ATCAOSM+180 01116000 ATCZDVTA EQU ATCAOSM+176 01117000 ATCZDVT9 EQU ATCAOSM+172 01118000 ATCZDVT8 EQU ATCAOSM+168 01119000 ATCZDVT7 EQU ATCAOSM+164 01120000 ATCRSV56 EQU ATCDAPVT+22 01121000 ATCDAPDG EQU ATCDAPVT+20 01122000 ATCDXCEA EQU ATCDAPVT+16 01123000 ATCDCEA EQU ATCDAPVT+12 01124000 ATCDPCIA EQU ATCDAPVT+8 01125000 ATCDSIOA EQU ATCDAPVT+4 01126000 ATCDEOEA EQU ATCDAPVT 01127000 ATCZLAEA EQU ATCLDAPP+16 01128000 ATCZLCEA EQU ATCLDAPP+12 01129000 ATCRSV17 EQU ATCLDAPP+8 01130000 ATCSMFRR EQU ATCLDAPP+4 01131000 ATCCDTID EQU ATCLDAPP 01132000 ATCZAEA EQU ATCICAPP+16 01133000 ATCZCEA EQU ATCICAPP+12 01134000 ATCCDTCB EQU ATCICAPP+8 01135000 ATCZSIOA EQU ATCICAPP+4 01136000 ATCCDRPH EQU ATCICAPP 01137000 ATCAP65 EQU ATCAOSM+96 01138000 ATCZDVT6 EQU ATCAOSM+92 01139000 ATCZDVT4 EQU ATCAOSM+88 01140000 ATCZDVT3 EQU ATCAOSM+84 01141000 ATCZDVT1 EQU ATCAOSM+80 01142000 ATCICNCB EQU ATCAOSM+76 01143000 ATCZPSVT EQU ATCAOSM+72 01144000 ATCZFSVT EQU ATCAOSM+68 01145000 ATCAP64 EQU ATCAOSM+64 01146000 ATCAP63 EQU ATCAOSM+60 01147000 ATCAP61 EQU ATCAOSM+56 01148000 ATCAP58 EQU ATCAOSM+52 01149000 ATCAP57 EQU ATCAOSM+48 01150000 ATCAP54 EQU ATCAOSM+44 01151000 ATCAP53 EQU ATCAOSM+40 01152000 ATCAP52 EQU ATCAOSM+36 01153000 ATCAP34 EQU ATCAOSM+32 01154000 ATCAP32 EQU ATCAOSM+28 01155000 ATCAP31 EQU ATCAOSM+24 01156000 ATCAP12 EQU ATCAOSM+20 01157000 ATCAP11 EQU ATCAOSM+16 01158000 ATCCMTCB EQU ATCAOSM+12 01159000 ATCPRPH EQU ATCAOSM+8 01160000 ATCGSRBF EQU ATCGSRBG 01161000 ATCSRBRT EQU ATCAOSM 01162000 @NM00042 EQU @NM00041 01163000 ATCVTMAB EQU @NM00041 01164000 @NM00040 EQU ATCVTBAM 01165000 ATCVDLOK EQU ISTATCVT+904 01166000 ATCVFPAB EQU ISTATCVT+872 01167000 ATCVDPAB EQU ISTATCVT+840 01168000 ATCIOECB EQU ISTATCVT+836 01169000 ATCINCW3 EQU ISTATCVT+832 01170000 ATCMODTB EQU ISTATCVT+828 01171000 ATCUSSPT EQU ISTATCVT+824 01172000 ATCSRTAB EQU ISTATCVT+820 01173000 @NM00039 EQU ISTATCVT+819 01174000 @NM00038 EQU ATCSTAT2 01175000 ATCTRSMS EQU ATCSTAT2 01176000 ATCTRLOK EQU ATCSTAT2 01177000 ATCTRPSS EQU ATCSTAT2 01178000 ATCTRESC EQU ATCSTAT2 01179000 ATCTRAPI EQU ATCSTAT2 01180000 ATCNMCTR EQU ISTATCVT+816 01181000 ATCSEC51 EQU ATCSECST 01182000 ATCSEC40 EQU ATCSIPD+8 01183000 ATCSEC30 EQU ATCSIPD+4 01184000 ATCSEC21 EQU ATCSIPD 01185000 ATCSEC10 EQU ATCSOPD+4 01186000 ATCSEC01 EQU ATCSOPD 01187000 ATCPOIA EQU ATCRNO+1 01188000 @NM00037 EQU ATCRNO 01189000 ATCPODVT EQU ISTATCVT+784 01190000 ATCS49XL EQU ISTATCVT+780 01191000 ATCS49XI EQU ISTATCVT+776 01192000 ATCLCLCT EQU ATCVLCNT+2 01193000 ATCRNCNT EQU ATCVLCNT 01194000 ATCCFEAD EQU ISTATCVT+768 01195000 ATCPTR00 EQU ISTATCVT+736 01196000 ATCRSV10 EQU ISTATCVT+704 01197000 ATCTACB EQU ISTATCVT+700 01198000 ATCVTINM EQU ISTATCVT+696 01199000 ATCTCLIM EQU ISTATCVT+692 01200000 ATCTCLOM EQU ISTATCVT+688 01201000 ATCVTIPB EQU ISTATCVT+656 01202000 ATCTCIPB EQU ISTATCVT+624 01203000 ATCTIPAB EQU ISTATCVT+592 01204000 ATCOCCCB EQU ISTATCVT+588 01205000 ATCOCCOB EQU ISTATCVT+584 01206000 ATCCDLAD EQU ISTATCVT+580 01207000 ATCCCLAD EQU ISTATCVT+576 01208000 ATCDLRPB EQU ISTATCVT+544 01209000 ATCPGPAB EQU ISTATCVT+512 01210000 ATCVPAB1 EQU ISTATCVT+480 01211000 ATCRSV97 EQU ISTATCVT+476 01212000 ATCRDTLK EQU ISTATCVT+472 01213000 ATCVOCLK EQU ISTATCVT+468 01214000 ATCCDFDN EQU ISTATCVT+464 01215000 ATCCDFIN EQU ISTATCVT+460 01216000 ATCDVTLK EQU ISTATCVT+456 01217000 ATCAP36 EQU ISTATCVT+452 01218000 ATCAP35 EQU ISTATCVT+448 01219000 ATCAP33 EQU ISTATCVT+444 01220000 ATCRSV99 EQU ISTATCVT+440 01221000 ATCONFIG EQU ISTATCVT+432 01222000 ATCNODDS EQU ISTATCVT+428 01223000 ATCNODEL EQU ISTATCVT+420 01224000 ATCRSV69 EQU ISTATCVT+416 01225000 ATCAPCR5 EQU ISTATCVT+412 01226000 ATCLDECB EQU ISTATCVT+408 01227000 ATCLDNCS EQU ISTATCVT+404 01228000 ATCCDPTR EQU ISTATCVT+400 01229000 ATCADEL EQU ISTATCVT+396 01230000 ATCTODVT EQU ISTATCVT+392 01231000 ATCDEBCH EQU ISTATCVT+388 01232000 ATCHBSIZ EQU ATCHPGM+2 01233000 ATCHBFNO EQU ATCHPGM 01234000 ATCCRME EQU ISTATCVT+380 01235000 ATCRVCHS EQU ISTATCVT+372 01236000 ATCECTLP EQU ISTATCVT+368 01237000 ATCZDVTB EQU ISTATCVT+364 01238000 ATCECPRT EQU ISTATCVT+360 01239000 ATCVTLOD EQU ISTATCVT+356 01240000 ATCTRPAB EQU ISTATCVT+352 01241000 ATCMSGM EQU ISTATCVT+348 01242000 ATCMSGP EQU ISTATCVT+344 01243000 ATCEPT EQU ISTATCVT+340 01244000 ATCDVT EQU ISTATCVT+336 01245000 ATCTRCPT EQU ISTATCVT+332 01246000 ATCDVLOD EQU ISTATCVT+328 01247000 ATCALERT EQU ISTATCVT+324 01248000 ATCEPA EQU ISTATCVT+320 01249000 ATCSAF EQU ISTATCVT+318 01250000 ATCXRANG EQU ISTATCVT+317 01251000 ATCLAST EQU ATCSHRFG 01252000 ATCSHRTN EQU ISTATCVT+308 01253000 ATCUEP EQU ISTATCVT+304 01254000 ATCOCRT EQU ISTATCVT+300 01255000 ATCCSMA EQU ATCCSMR 01256000 ATCESC02 EQU ISTATCVT+292 01257000 ATCESC01 EQU ISTATCVT+288 01258000 ATCCDFND EQU ISTATCVT+284 01259000 ATCCDDEL EQU ISTATCVT+280 01260000 ATCCDADD EQU ISTATCVT+276 01261000 ATCMNT EQU ISTATCVT+272 01262000 ATCRSV16 EQU ISTATCVT+270 01263000 ATCMAXID EQU ISTATCVT+269 01264000 ATCMSGSP EQU ATCCOM+268 01265000 ATCCIDM EQU ATCCOM+266 01266000 ATCACTRM EQU ATCCOM+264 01267000 ATCNERAP EQU ATCCOM+260 01268000 ATCNESAL EQU ATCCOM+256 01269000 ATCRCC65 EQU ATCCOM+252 01270000 ATCRCC26 EQU ATCCOM+248 01271000 ATCRCC63 EQU ATCCOM+244 01272000 ATCRSV11 EQU ATCCOM+242 01273000 ATCVTMID EQU ATCCOM+240 01274000 ATCAPOST EQU ATCCOM+236 01275000 ATCNERFN EQU ATCCOM+232 01276000 ATCNERNE EQU ATCCOM+228 01277000 ATCNERCV EQU ATCCOM+224 01278000 ATCNERST EQU ATCCOM+220 01279000 ATCDCC61 EQU ATCCOM+216 01280000 ATCDCC60 EQU ATCCOM+212 01281000 ATCSRTDF EQU ATCCOM+208 01282000 ATCSRTAD EQU ATCCOM+204 01283000 ATCFIRA EQU ATCCOM+200 01284000 ATCSMBQ EQU ATCCOM+196 01285000 ATCSMRC EQU ATCCOM+192 01286000 ATCSMRS EQU ATCCOM+188 01287000 ATCSMQU EQU ATCCOM+184 01288000 ATCSMRQ EQU ATCCOM+180 01289000 ATCACDA EQU ATCCOM+176 01290000 ATCSTMA EQU ATCCOM+172 01291000 ATCFRSTR EQU ATCCOM+168 01292000 ATCGTSTR EQU ATCCOM+164 01293000 ATCREADA EQU ATCCOM+160 01294000 ATCALOAD EQU ATCCOM+156 01295000 ATCBLDLA EQU ATCCOM+152 01296000 ATCFBRPH EQU ATCCOM+148 01297000 ATCBFTRC EQU ATCCOM+144 01298000 ATCTPBUF EQU ATCTHTRC 01299000 ATCREMOV EQU ATCCOM+136 01300000 ATCADD EQU ATCCOM+132 01301000 ATCDVTPT EQU ATCCOM+124 01302000 ATCFEPT EQU ATCCOM+120 01303000 ATCFDVT EQU ATCCOM+116 01304000 ATCCONFT EQU ATCCOM+112 01305000 ATCPTCHA EQU ATCCOM+108 01306000 ATCAUTHA EQU ATCCOM+104 01307000 ATCACCTA EQU ATCCOM+100 01308000 ATCRDTH EQU ATCCOM+96 01309000 ATCFRSCH EQU ATCCOM+92 01310000 ATCFSB EQU ATCCOM+88 01311000 ATCHLTMS EQU ATCCOM+84 01312000 ATCECPRM EQU ATCCOM+80 01313000 ATCECNET EQU ATCCOM+76 01314000 ATCECOPC EQU ATCCOM+72 01315000 ATCVPARM EQU ATCCOM+68 01316000 ATCECVRQ EQU ATCCOM+64 01317000 ATCECSES EQU ATCCOM+60 01318000 ATCOCHA EQU ATCCOM+56 01319000 ATCDSPLQ EQU ATCCOM+52 01320000 ATCECDSP EQU ATCCOM+48 01321000 ATCVARYQ EQU ATCCOM+44 01322000 ATCECVRY EQU ATCCOM+40 01323000 ATCHALTQ EQU ATCCOM+36 01324000 ATCECHLT EQU ATCCOM+32 01325000 ATCMODQ EQU ATCCOM+28 01326000 ATCECMOD EQU ATCCOM+24 01327000 ATCASCHD EQU ATCCOM+20 01328000 ATCSRT EQU ATCCOM+16 01329000 ATCRDT EQU ATCCOM+12 01330000 ATCDCFRR EQU ATCCOM+8 01331000 ATCAPI EQU ATCCOM+4 01332000 ATCRSV04 EQU ATCSTAT4 01333000 ATCVTTRC EQU ATCSTAT4 01334000 ATCNCSD EQU ATCSTAT4 01335000 ATCMTST EQU ATCSTAT4 01336000 ATCTPRT EQU ATCSTAT4 01337000 ATCPRTAT EQU ATCSTAT4 01338000 @NM00036 EQU ATCPOFLG 01339000 ATCPOUNS EQU ATCPOFLG 01340000 ATCHSDMF EQU ATCSTFLG 01341000 @NM00035 EQU ATCSTAT1 01342000 ATCMDHLT EQU ATCSTAT1 01343000 ATCINHLT EQU ATCSTAT1 01344000 ATCNETSL EQU ATCSTAT1 01345000 ATCQKHLT EQU ATCSTAT1 01346000 ATCSNHLT EQU ATCSTAT1 01347000 ATCACTIV EQU ATCSTAT1 01348000 ATCSTART EQU ATCSTAT1 01349000 RPHNEXPO EQU ISTRPH+104 01350000 RPHSAV16 EQU RPHWORK+60 01351000 RPHSAV15 EQU RPHWORK+56 01352000 RPHSAV14 EQU RPHWORK+52 01353000 RPHSAV13 EQU RPHWORK+48 01354000 RPHSAV12 EQU RPHWORK+44 01355000 RPHSAV11 EQU RPHWORK+40 01356000 RPHSAV10 EQU RPHWORK+36 01357000 RPHSAVE9 EQU RPHWORK+32 01358000 RPHSAVE8 EQU RPHWORK+28 01359000 RPHSAVE7 EQU RPHWORK+24 01360000 RPHSAVE6 EQU RPHWORK+20 01361000 RPHSAVE5 EQU RPHWORK+16 01362000 RPHSAVE4 EQU RPHWORK+12 01363000 RPHSAVE3 EQU RPHWORK+8 01364000 RPHSAVE2 EQU RPHWORK+4 01365000 RPHSHALF EQU RPHSAVE1+2 01366000 RPHSBIT8 EQU RPHSBITS 01367000 RPHSBIT7 EQU RPHSBITS 01368000 RPHSBIT6 EQU RPHSBITS 01369000 RPHSBIT5 EQU RPHSBITS 01370000 RPHSBIT4 EQU RPHSBITS 01371000 RPHSBIT3 EQU RPHSBITS 01372000 RPHSBIT2 EQU RPHSBITS 01373000 RPHSBIT1 EQU RPHSBITS 01374000 RPHSBYTE EQU RPHSAVE1 01375000 RPHPABQP EQU RPHPABQA+1 01376000 RPHPABFG EQU RPHPABQA 01377000 RPHCRR EQU ISTRPH+32 01378000 RPHSRP34 EQU RPHSRPRM+2 01379000 RPHSRP12 EQU RPHSRPRM 01380000 RPHWEGT EQU RPHCSPA 01381000 RPHMAJCB EQU ISTRPH+21 01382000 RPHPABOF EQU ISTRPH+20 01383000 RPHRESUM EQU RPHRESMA+1 01384000 RPHRSV01 EQU RPHWPFLG 01385000 RPHPURGE EQU RPHWPFLG 01386000 RPHPT EQU RPHWPFLG 01387000 RPHWT EQU RPHWPFLG 01388000 RPHRSKEY EQU RPHWPFLG 01389000 RPHDVTA EQU ISTRPH+12 01390000 RPHTIK EQU RPHTSKID+3 01391000 @NM00034 EQU RPHTSKID 01392000 RPHRPHAP EQU RPHRPHA+1 01393000 @NM00033 EQU RPHCVFLG 01394000 RPHFRRPH EQU RPHCVFLG 01395000 RPHOWRPH EQU RPHCVFLG 01396000 RPHCDRPH EQU RPHCVFLG 01397000 RPHPSRPH EQU RPHCVFLG 01398000 RPHVYRPH EQU RPHGATE 01399000 @NM00032 EQU RPHFLGB 01400000 RPHRLCRA EQU RPHFLGB 01401000 RPHNRSAV EQU RPHFLGB 01402000 RPHPGCMP EQU RPHFLGB 01403000 RPHFBAPS EQU RPHFLGB 01404000 RPHBSSP EQU RPHFLGB 01405000 RPHLOCK EQU RPHFLGB 01406000 RPHFNFLG EQU RPHFSTLC 01407000 RPHMLTCP EQU RPHFLAGS 01408000 RPHSMCLR EQU RPHFLAGS 01409000 RPHSMTYP EQU RPHFLAGS 01410000 RPHSMQ EQU RPHFLAGS 01411000 RPHAUTEX EQU RPHAPTYP 01412000 RPHSPGIN EQU RPHFLAGS 01413000 RPHOGIND EQU RPHFLAGS 01414000 RPHLNGTH EQU RPHCNTL+1 01415000 RPHTYPE EQU RPHCNTL 01416000 DYPPAB EQU ISTDYPAB+16 01417000 DYPRSV01 EQU ISTDYPAB+12 01418000 DYPTSKID EQU ISTDYPAB+8 01419000 DYPCHAIN EQU ISTDYPAB+4 01420000 DYPFLGS EQU ISTDYPAB+2 01421000 DYPLNGTH EQU ISTDYPAB+1 01422000 DYPTYPE EQU ISTDYPAB 01423000 LOKXCL EQU @NM00030 01424000 LOKPRY EQU @NM00030 01425000 @NM00031 EQU @NM00030 01426000 @NM00029 EQU LOKCHNG 01427000 LOKCT EQU ISTLOK 01428000 PABRPHA EQU PABRPHFG+1 01429000 PABNODQ EQU PABFLAGS 01430000 PABINHBT EQU PABFLAGS 01431000 PABERLOK EQU PABERRLK 01432000 PABSSN EQU PABFLAGS 01433000 PABDYNAM EQU PABFLAGS 01434000 PABNORPR EQU PABFLAGS 01435000 PABPRIOR EQU PABFLAGS 01436000 PABAPYP EQU PABFLAGS 01437000 PABDVTA EQU ISTPAB+9 01438000 PABOFFST EQU ISTPAB+8 01439000 PABCHNGP EQU PABCHAIN+1 01440000 PABRSV02 EQU PABCHAIN 01441000 PABDELAY EQU PABCHAIN 01442000 PABRUNNG EQU PABCHAIN 01443000 PABRESET EQU PABCHAIN 01444000 PABUNCON EQU PABCHAIN 01445000 PABCDP EQU PABCHAIN 01446000 PABRESCH EQU PABCHAIN 01447000 PABCHNG EQU PABCHAIN 01448000 PABWEQP EQU PABWEQA+1 01449000 PABRSV01 EQU PABWEQA 01450000 PABWEQG EQU PABWEQA 01451000 @NM00028 EQU SRBSECT+40 01452000 @NM00027 EQU SRBSECT+38 01453000 SRBPRIOR EQU SRBSECT+37 01454000 SRBPKF EQU SRBSECT+36 01455000 SRBSAVE EQU SRBSECT+32 01456000 SRBPARM EQU SRBSECT+28 01457000 SRBRMTR EQU SRBSECT+24 01458000 SRBEP EQU SRBSECT+20 01459000 SRBPTCB EQU SRBFLC+4 01460000 SRBPASID EQU SRBFLC+2 01461000 SRBCPAFF EQU SRBFLC 01462000 SRBASCB EQU SRBSECT+8 01463000 SRBID EQU SRBSECT 01464000 CVTLEVL EQU CVTRELNO+2 01465000 CVTNUMB EQU CVTRELNO 01466000 CVTMDL EQU CVTFIX+250 01467000 @NM00026 EQU CVTFIX+248 01468000 @NM00025 EQU CVTFIX 01469000 CVTRV482 EQU CVTXTNT2+128 01470000 CVTRV481 EQU CVTXTNT2+124 01471000 CVTRV480 EQU CVTXTNT2+120 01472000 CVTRV479 EQU CVTXTNT2+118 01473000 CVTRV478 EQU CVTXTNT2+117 01474000 CVTRV477 EQU CVTXTNT2+116 01475000 CVTRV476 EQU CVTXTNT2+115 01476000 CVTRV475 EQU CVTXTNT2+114 01477000 CVTRV474 EQU CVTRV466 01478000 CVTRV473 EQU CVTRV466 01479000 CVTRV472 EQU CVTRV466 01480000 CVTRV471 EQU CVTRV466 01481000 CVTRV470 EQU CVTRV466 01482000 CVTRV469 EQU CVTRV466 01483000 CVTRV468 EQU CVTRV466 01484000 CVTRV467 EQU CVTRV466 01485000 CVTRV465 EQU CVTRV457 01486000 CVTRV464 EQU CVTRV457 01487000 CVTRV463 EQU CVTRV457 01488000 CVTRV462 EQU CVTRV457 01489000 CVTRV461 EQU CVTRV457 01490000 CVTRV460 EQU CVTRV457 01491000 CVTRV459 EQU CVTRV457 01492000 CVTRV458 EQU CVTRV457 01493000 CVTRV456 EQU CVTXTNT2+108 01494000 CVTRV455 EQU CVTXTNT2+104 01495000 CVTRV454 EQU CVTXTNT2+100 01496000 CVTRV453 EQU CVTXTNT2+96 01497000 CVTRV452 EQU CVTXTNT2+94 01498000 CVTRV451 EQU CVTXTNT2+92 01499000 CVTRV450 EQU CVTXTNT2+90 01500000 CVTRV449 EQU CVTXTNT2+88 01501000 CVTRV448 EQU CVTXTNT2+87 01502000 CVTRV447 EQU CVTXTNT2+86 01503000 CVTRV446 EQU CVTRV438 01504000 CVTRV445 EQU CVTRV438 01505000 CVTRV444 EQU CVTRV438 01506000 CVTRV443 EQU CVTRV438 01507000 CVTRV442 EQU CVTRV438 01508000 CVTRV441 EQU CVTRV438 01509000 CVTRV440 EQU CVTRV438 01510000 CVTRV439 EQU CVTRV438 01511000 CVTRV437 EQU CVTRV429 01512000 CVTRV436 EQU CVTRV429 01513000 CVTRV435 EQU CVTRV429 01514000 CVTRV434 EQU CVTRV429 01515000 CVTRV433 EQU CVTRV429 01516000 CVTRV432 EQU CVTRV429 01517000 CVTRV431 EQU CVTRV429 01518000 CVTRV430 EQU CVTRV429 01519000 CVTRV428 EQU CVTXTNT2+80 01520000 CVTRV427 EQU CVTXTNT2+76 01521000 CVTRV426 EQU CVTXTNT2+72 01522000 CVTRV425 EQU CVTXTNT2+68 01523000 CVTATACT EQU CVTATCVT 01524000 CVTRV423 EQU CVTXTNT2+62 01525000 CVTRV422 EQU CVTXTNT2+60 01526000 CVTRV421 EQU CVTXTNT2+58 01527000 CVTRV420 EQU CVTXTNT2+56 01528000 CVTRV419 EQU CVTXTNT2+55 01529000 CVTRV418 EQU CVTXTNT2+54 01530000 CVTRV417 EQU CVTRV409 01531000 CVTRV416 EQU CVTRV409 01532000 CVTRV415 EQU CVTRV409 01533000 CVTRV414 EQU CVTRV409 01534000 CVTRV413 EQU CVTRV409 01535000 CVTRV412 EQU CVTRV409 01536000 CVTRV411 EQU CVTRV409 01537000 CVTRV410 EQU CVTRV409 01538000 CVTRV408 EQU CVTRV400 01539000 CVTRV407 EQU CVTRV400 01540000 CVTRV406 EQU CVTRV400 01541000 CVTRV405 EQU CVTRV400 01542000 CVTRV404 EQU CVTRV400 01543000 CVTRV403 EQU CVTRV400 01544000 CVTRV402 EQU CVTRV400 01545000 CVTRV401 EQU CVTRV400 01546000 CVTICB EQU CVTXTNT2+48 01547000 CVTSKTA EQU CVTXTNT2+44 01548000 CVTSHSB EQU CVTSHS 01549000 CVTRSV98 EQU CVTXTNT2+36 01550000 CVTRSV97 EQU CVTXTNT2+34 01551000 CVTRSV96 EQU CVTXTNT2+32 01552000 CVTOLTEP EQU CVTXTNT2+28 01553000 CVTQIDA EQU CVTQID+1 01554000 CVTRSV95 EQU CVTQID 01555000 CVTRSV94 EQU CVTXTNT2+20 01556000 CVTRSV93 EQU CVTXTNT2+16 01557000 CVTRSV92 EQU CVTXTNT2+12 01558000 CVTDEBVR EQU CVTXTNT2+8 01559000 CVTRSV91 EQU CVTXTNT2+6 01560000 CVTRSV9H EQU CVTFLGBT 01561000 CVTRSV9G EQU CVTFLGBT 01562000 CVTRSV9F EQU CVTFLGBT 01563000 CVTRSV9E EQU CVTFLGBT 01564000 CVTRSV9D EQU CVTFLGBT 01565000 CVTRSV9C EQU CVTFLGBT 01566000 CVTVME EQU CVTFLGBT 01567000 CVTNPE EQU CVTFLGBT 01568000 CVTNUCLS EQU CVTXTNT2+4 01569000 CVTDSSVA EQU CVTDSSV+1 01570000 CVTRSV89 EQU CVTDSSV 01571000 CVTRSV88 EQU CVTXTNT1+8 01572000 CVTRSV87 EQU CVTXTNT1+4 01573000 CVTFACHN EQU CVTXTNT1 01574000 CVTRV488 EQU CVTMAP+412 01575000 CVTRV487 EQU CVTMAP+408 01576000 CVTRV486 EQU CVTMAP+404 01577000 CVTRV485 EQU CVTMAP+400 01578000 CVTACTAP EQU CVTMAP+396 01579000 CVTAUTH EQU CVTMAP+392 01580000 CVTATMCA EQU CVTATMCT+1 01581000 CVTATMST EQU CVTATMCT 01582000 CVTRSV61 EQU CVTMAP+384 01583000 CVTVOLT1 EQU CVTVOLM1+1 01584000 CVTVOLI1 EQU CVTVOLF1 01585000 CVTSTOA EQU CVTMAP+376 01586000 CVTRSV58 EQU CVTMAP+374 01587000 CVTRSV57 EQU CVTMAP+372 01588000 CVTDDCE EQU CVTMAP+368 01589000 CVTPNWFR EQU CVTMAP+364 01590000 CVTSMF EQU CVTMAP+360 01591000 CVTSULK EQU CVTMAP+358 01592000 CVTSLKO EQU CVTSYSK 01593000 CVTSLKP EQU CVTSYSK 01594000 CVTSLKQ EQU CVTSYSK 01595000 CVTSLKR EQU CVTSYSK 01596000 CVTRSV56 EQU CVTSYSK 01597000 CVTRSV55 EQU CVTSYSK 01598000 CVTRSV54 EQU CVTSYSK 01599000 CVTRSV53 EQU CVTSYSK 01600000 CVTRSV52 EQU CVTA1F1 01601000 CVTRSV51 EQU CVTA1F1 01602000 CVTRSV50 EQU CVTA1F1 01603000 CVTRSV49 EQU CVTA1F1 01604000 CVTRSV48 EQU CVTA1F1 01605000 CVTRSV47 EQU CVTA1F1 01606000 CVTSRSW EQU CVTA1F1 01607000 CVTPFSW EQU CVTA1F1 01608000 CVTPCVT EQU CVTMAP+352 01609000 CVTRSV46 EQU CVTMAP+344 01610000 CVTRSV45 EQU CVTMAP+340 01611000 CVTRSV44 EQU CVTMAP+338 01612000 CVTRSV43 EQU CVTMAP+336 01613000 CVTHJESA EQU CVTHJES+1 01614000 CVTRSV42 EQU CVTHJES 01615000 CVTEXT2A EQU CVTEXT2+1 01616000 CVTRSV41 EQU CVTEXT2 01617000 CVTAPFA EQU CVTAPF+1 01618000 CVTRSV40 EQU CVTAPF 01619000 CVTRV518 EQU CVTINTLA 01620000 CVTRV517 EQU CVTERPV 01621000 CVTEORM EQU CVTMAP+312 01622000 CVTMCHPR EQU CVTMAP+308 01623000 CVTTZ EQU CVTMAP+304 01624000 CVTJEPS EQU CVTMAP+300 01625000 CVTJESCT EQU CVTMAP+296 01626000 CVTMODE EQU CVTMAP+292 01627000 CVTPTRV EQU CVTMAP+288 01628000 CVTREAL EQU CVTMAP+284 01629000 CVTRSV39 EQU CVTMAP+280 01630000 CVTRSV38 EQU CVTMAP+276 01631000 CVTDMSRA EQU CVTDMSR+1 01632000 CVTRV634 EQU CVTDMSRF 01633000 CVTRV633 EQU CVTDMSRF 01634000 CVTRV632 EQU CVTDMSRF 01635000 CVTRV631 EQU CVTDMSRF 01636000 CVTRV630 EQU CVTDMSRF 01637000 CVTRV629 EQU CVTDMSRF 01638000 CVTUDUMP EQU CVTDMSRF 01639000 CVTSDUMP EQU CVTDMSRF 01640000 CVTQMSGA EQU CVTQMSG+1 01641000 CVTRSV36 EQU CVTQMSG 01642000 CVTAMFF EQU CVTMAP+264 01643000 CVTPURGA EQU CVTPURG+1 01644000 CVTRSV35 EQU CVTPURG 01645000 CVTCBSP EQU CVTMAP+256 01646000 CVTATERA EQU CVTATER+1 01647000 CVTSYST EQU CVTATER 01648000 CVTVOLT2 EQU CVTTAT 01649000 CVTVOLI2 EQU CVTVOLF2 01650000 CVTAQAVB EQU CVTAQAVT+1 01651000 CVTRSV34 EQU CVTTCMFG 01652000 CVTRSV33 EQU CVTTCMFG 01653000 CVTRSV32 EQU CVTTCMFG 01654000 CVTRSV31 EQU CVTTCMFG 01655000 CVTRSV30 EQU CVTTCMFG 01656000 CVTRSV29 EQU CVTTCMFG 01657000 CVTRSV28 EQU CVTTCMFG 01658000 CVTTCRDY EQU CVTTCMFG 01659000 CVTGTFA EQU CVTGTF+1 01660000 CVTRSV27 EQU CVTGTFST 01661000 CVTRNIO EQU CVTGTFST 01662000 CVTUSR EQU CVTGTFST 01663000 CVTRV318 EQU CVTFORM 01664000 CVTRV317 EQU CVTTMODE 01665000 CVTRV316 EQU CVTSTATE 01666000 CVTRV315 EQU CVTGTFS 01667000 CVTGTFAV EQU CVTGTFS 01668000 CVT0SCR1 EQU CVTMAP+232 01669000 CVTRV515 EQU CVTMAP+228 01670000 CVTRMS EQU CVTMAP+224 01671000 CVTPATCH EQU CVTMAP+220 01672000 CVTTSCE EQU CVTMAP+216 01673000 CVTLNKSC EQU CVTMAP+214 01674000 CVTQABST EQU CVTMAP+212 01675000 CVTMDLDS EQU CVTMAP+208 01676000 CVTUSER EQU CVTMAP+204 01677000 CVTABEND EQU CVTMAP+200 01678000 CVTSMCA EQU CVTMAP+196 01679000 CVTRSV18 EQU CVTMAP+192 01680000 CVTQLPAQ EQU CVTMAP+188 01681000 CVTQCDSR EQU CVTMAP+184 01682000 CVTRSV17 EQU CVTOPTB 01683000 CVTRSV16 EQU CVTOPTB 01684000 CVTFP EQU CVTOPTB 01685000 CVTAPTHR EQU CVTOPTB 01686000 CVTNLOG EQU CVTOPTB 01687000 CVTTOD EQU CVTOPTB 01688000 CVTCTIMS EQU CVTOPTB 01689000 CVTPROT EQU CVTOPTB 01690000 CVTXPFP EQU CVTOPTA 01691000 CVTASCII EQU CVTOPTA 01692000 CVTRSV13 EQU CVTOPTA 01693000 CVTRSV12 EQU CVTOPTA 01694000 CVTNIP EQU CVTOPTA 01695000 CVTDDR EQU CVTOPTA 01696000 CVTAPR EQU CVTOPTA 01697000 CVTCCH EQU CVTOPTA 01698000 CVTSNCTR EQU CVTMAP+180 01699000 CVTQMWR EQU CVTMAP+176 01700000 CVTQOCR EQU CVTMAP+172 01701000 CVT1EF00 EQU CVTMAP+168 01702000 CVTMZ00 EQU CVTMAP+164 01703000 CVTHEAD EQU CVTMAP+160 01704000 CVTRSV11 EQU CVTMAP+156 01705000 CVT0PT01 EQU CVTMAP+152 01706000 CVTMSER EQU CVTMAP+148 01707000 CVTRV516 EQU CVTIERLC 01708000 CVTILCH EQU CVTMAP+140 01709000 CVT0DS EQU CVTMAP+136 01710000 CVTFBOSV EQU CVTMAP+132 01711000 CVTNUCB EQU CVTMAP+128 01712000 CVTIXAVL EQU CVTMAP+124 01713000 CVTIOQET EQU CVTMAP+120 01714000 CVTDCBA EQU CVTMAP+117 01715000 CVTMVS2 EQU CVTDCB 01716000 CVT6DAT EQU CVTDCB 01717000 CVT4MPS EQU CVTDCB 01718000 CVTRSV09 EQU CVTDCB 01719000 CVT4MS1 EQU CVTDCB 01720000 CVT2SPS EQU CVTDCB 01721000 CVT1SSS EQU CVTDCB 01722000 CVTRSV08 EQU CVTDCB 01723000 CVTSTB EQU CVTMAP+112 01724000 CVTQTD00 EQU CVTMAP+108 01725000 CVTQTE00 EQU CVTMAP+104 01726000 CVTCUCB EQU CVTMAP+100 01727000 CVTSJQ EQU CVTMAP+96 01728000 CVTPBLDL EQU CVTMAP+92 01729000 CVTTPC EQU CVTMAP+88 01730000 CVTSVDCB EQU CVTMAP+84 01731000 CVTBRET EQU CVTMAP+82 01732000 CVTEXIT EQU CVTMAP+80 01733000 CVT0FN00 EQU CVTMAP+76 01734000 CVTDARA EQU CVTDAR+1 01735000 CVTRSV07 EQU CVTFLGS1 01736000 CVTRSV06 EQU CVTFLGS1 01737000 CVTRSV05 EQU CVTFLGS1 01738000 CVTRSV04 EQU CVTFLGS1 01739000 CVTRSV03 EQU CVTFLGS1 01740000 CVTRSV02 EQU CVTFLGS1 01741000 CVTRSV01 EQU CVTFLGS1 01742000 CVTDMPLK EQU CVTFLGS1 01743000 CVTXITP EQU CVTMAP+68 01744000 CVTZDTAB EQU CVTMAP+64 01745000 CVTMSLT EQU CVTMAP+60 01746000 CVTDATE EQU CVTMAP+56 01747000 CVTBTERM EQU CVTMAP+52 01748000 CVTSYSAD EQU CVTMAP+48 01749000 CVTXTLER EQU CVTMAP+44 01750000 CVTILK2 EQU CVTMAP+40 01751000 CVTILK1 EQU CVTMAP+36 01752000 CVTPRLTV EQU CVTMAP+32 01753000 CVTPCNVT EQU CVTMAP+28 01754000 CVT0VL00 EQU CVTMAP+24 01755000 CVTXAPG EQU CVTMAP+20 01756000 CVTBUF EQU CVTMAP+16 01757000 CVTJOB EQU CVTMAP+12 01758000 CVTLINK EQU CVTMAP+8 01759000 CVT0EF00 EQU CVTMAP+4 01760000 CVTTCBP EQU CVTMAP 01761000 CVT EQU CVTMAP 01762000 @NM00024 EQU PSA+3668 01763000 PSASTAK EQU PSA+3072 01764000 @NM00023 EQU PSA+1048 01765000 PSAUSEND EQU PSA+1048 01766000 PSARV062 EQU PSA+1044 01767000 PSACDAL EQU PSA+1040 01768000 PSAWTCOD EQU PSA+1036 01769000 PSAATCVT EQU PSA+1032 01770000 PSAPCPSW EQU PSA+1024 01771000 PSAPIR2 EQU PSA+1020 01772000 PSARV059 EQU PSA+1018 01773000 PSASVC13 EQU PSA+1016 01774000 PSALSFCC EQU PSA+1012 01775000 PSASFACC EQU PSA+1008 01776000 PSASTOP EQU PSA+992 01777000 PSASTART EQU PSA+976 01778000 PSARSPSW EQU PSA+968 01779000 PSASRPSW EQU PSA+960 01780000 PSARV045 EQU PSA+892 01781000 PSARV044 EQU PSA+888 01782000 PSARV043 EQU PSA+884 01783000 PSARV042 EQU PSA+880 01784000 PSARV041 EQU PSA+876 01785000 PSARV040 EQU PSA+872 01786000 PSARV025 EQU PSA+868 01787000 PSADSSED EQU PSA+868 01788000 PSADSSPR EQU PSA+864 01789000 PSADSSFW EQU PSA+860 01790000 PSADSS14 EQU PSA+856 01791000 PSADSSPP EQU PSA+848 01792000 PSADSSRP EQU PSA+840 01793000 PSADSS05 EQU PSADSSF4 01794000 PSADSS10 EQU PSADSSF4 01795000 PSADSSVE EQU PSADSSF4 01796000 PSADSSDE EQU PSADSSF4 01797000 PSADSSC0 EQU PSADSSF4 01798000 PSADSSIE EQU PSADSSF4 01799000 PSADSS12 EQU PSADSSF4 01800000 PSADSSRC EQU PSADSSF4 01801000 PSARV057 EQU PSADSSF3 01802000 PSARV056 EQU PSADSSF3 01803000 PSARV055 EQU PSADSSF3 01804000 PSADSSMC EQU PSADSSF3 01805000 PSADSSRW EQU PSADSSF3 01806000 PSADSSNM EQU PSADSSF3 01807000 PSADSSES EQU PSADSSF3 01808000 PSADSSGP EQU PSADSSF3 01809000 PSADSSF2 EQU PSADSSFL+1 01810000 PSADSSPI EQU PSADSSF1 01811000 PSADSSOI EQU PSADSSF1 01812000 PSADSSSP EQU PSADSSF1 01813000 PSADSSTP EQU PSADSSF1 01814000 PSADSSDW EQU PSADSSF1 01815000 PSADSSDD EQU PSADSSF1 01816000 PSADSSDM EQU PSADSSF1 01817000 PSADSSMV EQU PSADSSF1 01818000 PSADSSTS EQU PSA+816 01819000 PSADSSWK EQU PSA+812 01820000 PSADSSR3 EQU PSA+808 01821000 PSADSSR2 EQU PSA+804 01822000 PSADSSRS EQU PSA+800 01823000 PSASTOR EQU PSA+796 01824000 PSACPUSA EQU PSA+794 01825000 PSAVSTAP EQU PSA+792 01826000 PSAWKVAP EQU PSA+788 01827000 PSAWKRAP EQU PSA+784 01828000 PSAMCHIC EQU PSA+783 01829000 PSARV061 EQU PSA+782 01830000 PSASYMSK EQU PSA+781 01831000 PSAMCHFL EQU PSA+780 01832000 PSACR0 EQU PSA+776 01833000 PSAPSWSV EQU PSA+768 01834000 PSALITA EQU PSA+764 01835000 PSACLHS EQU PSAHLHI 01836000 PSALKR15 EQU PSALKSA+60 01837000 PSALKR14 EQU PSALKSA+56 01838000 PSALKR13 EQU PSALKSA+52 01839000 PSALKR12 EQU PSALKSA+48 01840000 PSALKR11 EQU PSALKSA+44 01841000 PSALKR10 EQU PSALKSA+40 01842000 PSALKR9 EQU PSALKSA+36 01843000 PSALKR8 EQU PSALKSA+32 01844000 PSALKR7 EQU PSALKSA+28 01845000 PSALKR6 EQU PSALKSA+24 01846000 PSALKR5 EQU PSALKSA+20 01847000 PSALKR4 EQU PSALKSA+16 01848000 PSALKR3 EQU PSALKSA+12 01849000 PSALKR2 EQU PSALKSA+8 01850000 PSALKR1 EQU PSALKSA+4 01851000 PSALKR0 EQU PSALKSA 01852000 PSARV023 EQU PSACLHT+52 01853000 PSALOCAL EQU PSACLHT+48 01854000 PSACMSL EQU PSACLHT+44 01855000 PSAOPTL EQU PSACLHT+40 01856000 PSATPACL EQU PSACLHT+36 01857000 PSATPDNL EQU PSACLHT+32 01858000 PSATPNCL EQU PSACLHT+28 01859000 PSAIOSLL EQU PSACLHT+24 01860000 PSAIOSUL EQU PSACLHT+20 01861000 PSAIOSCL EQU PSACLHT+16 01862000 PSAIOSSL EQU PSACLHT+12 01863000 PSASALCL EQU PSACLHT+8 01864000 PSAASML EQU PSACLHT+4 01865000 PSADISPL EQU PSACLHT 01866000 PSASRSA EQU PSA+636 01867000 PSARV050 EQU PSA+634 01868000 PSADSSGO EQU PSA+633 01869000 PSARECUR EQU PSA+632 01870000 PSAHLHIS EQU PSA+628 01871000 PSAIPCSA EQU PSA+624 01872000 @NM00022 EQU PSA+621 01873000 PSAIPCDM EQU PSA+620 01874000 PSAIPCD EQU PSA+616 01875000 @NM00021 EQU PSA+613 01876000 PSAIPCRM EQU PSA+612 01877000 PSAIPCR EQU PSA+608 01878000 PSAMCHEX EQU PSA+600 01879000 PSAMPSW EQU PSA+592 01880000 PSAEXPS2 EQU PSA+584 01881000 PSAEXPS1 EQU PSA+576 01882000 PSAPIREG EQU PSA+572 01883000 PSARSREG EQU PSA+568 01884000 PSAGPREG EQU PSA+556 01885000 PSARV022 EQU PSASUP4 01886000 PSARV021 EQU PSASUP4 01887000 PSARV020 EQU PSASUP4 01888000 PSARV019 EQU PSASUP4 01889000 PSARV018 EQU PSASUP4 01890000 PSARV017 EQU PSASUP4 01891000 PSARV016 EQU PSASUP4 01892000 PSARV015 EQU PSASUP4 01893000 PSARV014 EQU PSASUP3 01894000 PSARV013 EQU PSASUP3 01895000 PSARV012 EQU PSASUP3 01896000 PSARV011 EQU PSASUP3 01897000 PSASPR EQU PSASUP3 01898000 PSAPSREG EQU PSASUP3 01899000 PSAPI2 EQU PSASUP3 01900000 PSAIOSUP EQU PSASUP3 01901000 PSALCR EQU PSASUP2 01902000 PSARTM EQU PSASUP2 01903000 PSAACR EQU PSASUP2 01904000 PSAIPCE2 EQU PSASUP2 01905000 PSAIPCES EQU PSASUP2 01906000 PSAIPCEC EQU PSASUP2 01907000 PSAGTF EQU PSASUP2 01908000 PSAIPCRI EQU PSASUP2 01909000 PSARV063 EQU PSASUP1 01910000 PSATCTL EQU PSASUP1 01911000 PSADISP EQU PSASUP1 01912000 PSALOCK EQU PSASUP1 01913000 PSAPI EQU PSASUP1 01914000 PSAEXT EQU PSASUP1 01915000 PSASVC EQU PSASUP1 01916000 PSAIO EQU PSASUP1 01917000 PSAAOLD EQU PSA+548 01918000 PSAANEW EQU PSA+544 01919000 PSATOLD EQU PSA+540 01920000 PSATNEW EQU PSA+536 01921000 PSALCCAR EQU PSA+532 01922000 PSALCCAV EQU PSA+528 01923000 PSAPCCAR EQU PSA+524 01924000 PSAPCCAV EQU PSA+520 01925000 PSACPULA EQU PSA+518 01926000 PSACPUPA EQU PSA+516 01927000 PSAPSA EQU PSA+512 01928000 FLCHDEND EQU PSA+512 01929000 FLCCRSAV EQU FLCMCLA+280 01930000 FLCGRSAV EQU FLCMCLA+216 01931000 FLCFPSAV EQU FLCMCLA+184 01932000 FLCFLA EQU FLCMCLA+88 01933000 FLCRGNCD EQU FLCMCLA+84 01934000 FLCFSAA EQU FLCFSA+1 01935000 @NM00020 EQU FLCFSA 01936000 @NM00019 EQU FLCMCLA+72 01937000 FLCMCIC EQU FLCMCLA+64 01938000 @NM00018 EQU FLCMCLA+20 01939000 FLCIOAA EQU FLCIOA+1 01940000 @NM00017 EQU FLCIOA 01941000 @NM00016 EQU FLCMCLA+15 01942000 @NM00015 EQU FLCMCLA+14 01943000 @NM00014 EQU FLCMCLA+12 01944000 FLCLCL EQU FLCMCLA+8 01945000 FLCIOELA EQU FLCIOEL+1 01946000 @NM00013 EQU FLCIOEL 01947000 FLCCHNID EQU FLCMCLA 01948000 @NM00012 EQU PSA+160 01949000 FLCMTRCD EQU PSA+157 01950000 @NM00011 EQU PSA+156 01951000 FLCPERA EQU FLCPER+1 01952000 @NM00010 EQU FLCPER 01953000 @NM00009 EQU PSA+151 01954000 FLCPERCD EQU PSA+150 01955000 FLCMCNUM EQU PSA+149 01956000 @NM00008 EQU PSA+148 01957000 FLCTEAA EQU FLCTEA+1 01958000 @NM00007 EQU FLCTEA 01959000 PSAPIPC EQU PSAPICOD 01960000 PSAPIMC EQU PSAPICOD 01961000 PSAPIPER EQU PSAPICOD 01962000 PSARV049 EQU FLCPICOD 01963000 FLCPILCB EQU FLCPIILC 01964000 @NM00006 EQU FLCPIILC 01965000 @NM00005 EQU PSAEPPSW 01966000 FLCSVCN EQU PSAESPSW+2 01967000 FLCSILCB EQU FLCSVILC 01968000 @NM00004 EQU FLCSVILC 01969000 @NM00003 EQU PSAESPSW 01970000 FLCEICOD EQU PSAEEPSW+2 01971000 PSASPAD EQU PSAEEPSW 01972000 @NM00002 EQU PSA+128 01973000 FLCINPSW EQU PSA+120 01974000 FLCMNPSW EQU PSA+112 01975000 FLCPNPSW EQU PSA+104 01976000 FLCSNPSW EQU PSA+96 01977000 FLCENPSW EQU PSA+88 01978000 FLCTRACE EQU PSA+84 01979000 FLCTIMER EQU PSA+80 01980000 FLCCVT2 EQU PSA+76 01981000 FLCCAW EQU PSA+72 01982000 FLCCSW EQU PSA+64 01983000 FLCIOPSW EQU PSA+56 01984000 FLCMOPSW EQU PSA+48 01985000 FLCPOPSW EQU PSA+40 01986000 FLCSOPSW EQU PSA+32 01987000 FLCEOPSW EQU PSA+24 01988000 @NM00001 EQU FLCICCW2+4 01989000 FLCCVT EQU FLCICCW2 01990000 FLCICCW1 EQU FLCROPSW 01991000 FLCIPPSW EQU FLCRNPSW 01992000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01993000 @RC00136 EQU @RC00134 01994000 @RT00177 EQU UNQCHECK 01995000 @ENDDATA EQU * 01996000 END ISTORFBD,(C'PLS2032',0603,78205) 01997000