TITLE ' /* IRBMFTRM GENERAL RESOURCE RELEASE *00001000 ' 00002000 IRBMFTRM CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IRBMFTRM 74.087' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @09,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@09 0001 00013000 L @00,@SIZDATD 0001 00014000 GETMAIN R,LV=(0) 00015000 LR @10,@01 0001 00016000 USING @DATD,@10 0001 00017000 ST @13,@SA00001+4 0001 00018000 LM @00,@01,20(@13) 0001 00019000 ST @10,8(,@13) 0001 00020000 LR @13,@10 0001 00021000 MVC @PC00001(8),0(@01) 0001 00022000 * 0022 00023000 * /*****************************************************************/ 00024000 * /* */ 00025000 * /* AUTOMATIC DATA INITIALIZATION */ 00026000 * /* */ 00027000 * /*****************************************************************/ 00028000 * 0022 00029000 * TRESTAPL=TRESTSPL; 0022 00030000 MVC TRESTAPL(16),TRESTSPL 0022 00031000 * RFY 0023 00032000 * (GPRCOD, 0023 00033000 * GPRDAT)RSTD; 0023 00034000 * TRESTDAT=GPRDAT; /* SAVE AUTO DATA ADDRESS FOR 0024 00035000 * ERROR RECOVERY */ 00036000 ST GPRDAT,TRESTDAT 0024 00037000 * TRESTCOD=GPRCOD; /* SAVE CODE BASE REG FOR RETRY */ 00038000 ST GPRCOD,TRESTCOD 0025 00039000 * RFY 0026 00040000 * (GPRCOD, 0026 00041000 * GPRDAT)UNRSTD; 0026 00042000 * 0026 00043000 * /*****************************************************************/ 00044000 * /* */ 00045000 * /* RETRY LOOP CONTROL */ 00046000 * /* */ 00047000 * /*****************************************************************/ 00048000 * 0027 00049000 * IF(STRVNSGT+STRVNPRT)0 THEN 0038 00118000 TR0100 L @12,@PC00001 0038 00119000 L @11,STRVNPRT(,@12) 0038 00120000 LTR @11,@11 0038 00121000 BNP @RF00038 0038 00122000 * STRVNPRT=STRVNPRT-1; /* SET NEXT RESOURCE FOR RETRY */ 00123000 BCTR @11,0 0039 00124000 ST @11,STRVNPRT(,@12) 0039 00125000 * DO I=STRVNPRT WHILE(I>0); /* (NON LOOPING) FOR AN ENTRY 0040 00126000 * NAME */ 00127000 @RF00038 L @12,@PC00001 0040 00128000 L @12,STRVNPRT(,@12) 0040 00129000 ST @12,I 0040 00130000 SR @11,@11 0040 00131000 CR @12,@11 0040 00132000 BNH @DC00040 0040 00133000 * IF STPRADDR(I)^=CNULLADR THEN /* IF MODULE MIGHT HAVE BEEN 0041 00134000 * FIXED, PGFREE IT */ 00135000 SLA @12,4 0041 00136000 L @08,@PC00001 0041 00137000 L @08,STRVSPRT(,@08) 0041 00138000 LA @01,0(@12,@08) 0041 00139000 AL @01,@CF01402 0041 00140000 L @15,STPRADDR-8(,@01) 0041 00141000 CR @15,@11 0041 00142000 BE @RF00041 0041 00143000 * DO; /* PAGE FREE PROCESSING */ 00144000 * IF STPRLGTH(I)^<0 THEN /* IF THE PAGE FREE IS ASSOCIATED 00145000 * WITH AN ADDRESS SPACE */ 00146000 AL @08,@CF01365 0043 00147000 L @12,STPRLGTH-12(@12,@08) 0043 00148000 CR @12,@11 0043 00149000 BL @RF00043 0043 00150000 * DO; /* SVC ENTRY PAGE FREE */ 00151000 * 0044 00152000 * /*******************************************************/ 00153000 * /* */ 00154000 * /* MACDATE Y-2 73018 */ 00155000 * /* */ 00156000 * /*******************************************************/ 00157000 * 0045 00158000 * RESPECIFY 0045 00159000 * (GPR00P, 0045 00160000 * GPR01P, 0045 00161000 * GPR14P, 0045 00162000 * GPR15P)RESTRICTED; 0045 00163000 * GPR01P=STPRADDR(I); /* STARTING ADDRESS */ 00164000 ST @15,@TF00001 0046 00165000 L GPR01P,@TF00001 0046 00166000 * GPR15P=GPR01P+STPRLGTH(I);/* ENDING ADDRESS + 1 */ 00167000 AR @12,GPR01P 0047 00168000 LR GPR15P,@12 0047 00169000 *TR0110: 0048 00170000 * ; /* PAGE FREE ON ENTRY POINTS */ 00171000 TR0110 DS 0H 0049 00172000 * GEN; 0049 00173000 * 0049 00174000 PGFREE R,A=(@01),EA=(@15) 00175000 * /*******************************************************/ 00176000 * /* */ 00177000 * /* MACDATE Y-2 73018 */ 00178000 * /* */ 00179000 * /*******************************************************/ 00180000 * 0050 00181000 * RESPECIFY 0050 00182000 * (GPR00P, 0050 00183000 * GPR01P, 0050 00184000 * GPR14P, 0050 00185000 * GPR15P)UNRESTRICTED; 0050 00186000 * END; /* END SVC ENTRY PAGE FREE */ 00187000 * ELSE /* IF PAGE FREE IS NOT ASSOCIATED 00188000 * WITH AN ADDRESS SPACE */ 00189000 * DO; /* BRANCH ENTRY PAGE FREE */ 00190000 * 0052 00191000 B @RC00043 0052 00192000 @RF00043 DS 0H 0053 00193000 * /*******************************************************/ 00194000 * /* */ 00195000 * /* GET LOCAL LOCK BEFORE PGFREE BRANCH ENTRY */ 00196000 * /* */ 00197000 * /*******************************************************/ 00198000 * 0053 00199000 * RFY 0053 00200000 * (GPR11P, 0053 00201000 * GPR12P, 0053 00202000 * GPR13P, 0053 00203000 * GPR14P, 0053 00204000 * GPR00P)RSTD; 0053 00205000 * GEN REFS(PSALITA); 0054 00206000 LR GPR00P,GPR13P TEMP SAVE OF SAVE AREA ADDR. 00207000 TR040 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, X00208000 RELATED=(LOCAL,IRBMFTRM(TR140)) 00209000 LR GPR13P,GPR00P RESTORE SAVE AREA ADDRESS 00210000 * RFY 0055 00211000 * (GPR11P, 0055 00212000 * GPR12P, 0055 00213000 * GPR13P, 0055 00214000 * GPR14P, 0055 00215000 * GPR00P)UNRSTD; 0055 00216000 * RFY 0056 00217000 * (GPR00P, 0056 00218000 * GPR01P, 0056 00219000 * GPR02P, 0056 00220000 * GPR04P)RSTD; 0056 00221000 * GPR00P=CZEROADR; /* NO ECB SPECIFIED */ 00222000 SR @12,@12 0057 00223000 LR GPR00P,@12 0057 00224000 * GPR02P=STPRADDR(I)-STPRLGTH(I);/* END ADDRESS+1 */ 00225000 L @11,I 0058 00226000 SLA @11,4 0058 00227000 L @08,@PC00001 0058 00228000 L @08,STRVSPRT(,@08) 0058 00229000 LA @05,0(@11,@08) 0058 00230000 AL @05,@CF01402 0058 00231000 L @05,STPRADDR-8(,@05) 0058 00232000 LR GPR02P,@05 0058 00233000 AL @08,@CF01365 0058 00234000 S GPR02P,STPRLGTH-12(@11,@08) 0058 00235000 * GPR01P=STPRADDR(I)|CPGFREE;/* START ADDRESS WITH PGFREE 00236000 * BIT OR'ED IN */ 00237000 O @05,@CF01359 0059 00238000 LR GPR01P,@05 0059 00239000 * GPR04P=CZEROADR; /* ZERO TCB ADDR INDICATES PGFREE 00240000 * NOT ASSO. WITH ADDR SPACE */ 00241000 LR GPR04P,@12 0060 00242000 * CALL IEAVPSIB; /* PAGE FREE BRANCH ENTRY */ 00243000 L @12,CVTPTR 0061 00244000 L @15,CVTVPSIB(,@12) 0061 00245000 BALR @14,@15 0061 00246000 * RFY 0062 00247000 * (GPR00P, 0062 00248000 * GPR01P, 0062 00249000 * GPR02P, 0062 00250000 * GPR04P)UNRSTD; 0062 00251000 * 0062 00252000 * /*******************************************************/ 00253000 * /* */ 00254000 * /* RELEASE LOCAL LOCK AFTER BRANCH ENTRY TO PGFREE */ 00255000 * /* */ 00256000 * /*******************************************************/ 00257000 * 0063 00258000 * RFY 0063 00259000 * (GPR11P, 0063 00260000 * GPR12P, 0063 00261000 * GPR13P, 0063 00262000 * GPR14P, 0063 00263000 * GPR00P)RSTD; 0063 00264000 * GEN; 0064 00265000 LR GPR00P,GPR13P TEMP SAVE OF SAVE AREA ADDR. 00266000 TR140 SETLOCK RELEASE,TYPE=LOCAL, X00267000 RELATED=(LOCAL,IRBMFTRM(TR040)) 00268000 LR GPR13P,GPR00P RESTORE SAVE AREA ADDRESS 00269000 * RFY 0065 00270000 * (GPR11P, 0065 00271000 * GPR12P, 0065 00272000 * GPR13P, 0065 00273000 * GPR14P, 0065 00274000 * GPR00P)UNRSTD; 0065 00275000 * END; /* END BRANCH ENTRY PAGE FREE */ 00276000 * END; /* END PAGE FREE PROCESSING */ 00277000 * 0067 00278000 @RC00043 DS 0H 0068 00279000 * /***************************************************************/ 00280000 * /* */ 00281000 * /* DELETE IT. */ 00282000 * /* */ 00283000 * /***************************************************************/ 00284000 * 0068 00285000 * TRDWORD=STPRNAME(I); /* ENTRY POINT NAME */ 00286000 * 0068 00287000 @RF00041 L @12,I 0068 00288000 SLA @12,4 0068 00289000 L @11,@PC00001 0068 00290000 L @11,STRVSPRT(,@11) 0068 00291000 ALR @11,@12 0068 00292000 AL @11,@CF01403 0068 00293000 MVC TRDWORD(8),STPRNAME(@11) 0068 00294000 * /***************************************************************/ 00295000 * /* */ 00296000 * /* MACDATE Y-2 73018 */ 00297000 * /* */ 00298000 * /***************************************************************/ 00299000 * 0069 00300000 * RESPECIFY 0069 00301000 * (GPR00P, 0069 00302000 * GPR01P, 0069 00303000 * GPR14P, 0069 00304000 * GPR15P)RESTRICTED; 0069 00305000 *TR0120: 0070 00306000 * ; /* RESOURCE LABEL DELETE */ 00307000 TR0120 DS 0H 0071 00308000 * GEN REFS(TRDWORD); 0071 00309000 * 0071 00310000 DELETE EPLOC=TRDWORD DELETE ENTRY POINTS 00311000 * /***************************************************************/ 00312000 * /* */ 00313000 * /* MACDATE Y-2 73018 */ 00314000 * /* */ 00315000 * /***************************************************************/ 00316000 * 0072 00317000 * RESPECIFY 0072 00318000 * (GPR00P, 0072 00319000 * GPR01P, 0072 00320000 * GPR14P, 0072 00321000 * GPR15P)UNRESTRICTED; 0072 00322000 * GOTO TR0100; /* REMOVE NEXT ENTRY POINT 0073 00323000 * RESOURCES */ 00324000 B TR0100 0073 00325000 * END; /* EP NAME 'DO' */ 00326000 * 0074 00327000 @DC00040 DS 0H 0075 00328000 * /*****************************************************************/ 00329000 * /* */ 00330000 * /* FREE STPRT STORAGE */ 00331000 * /* */ 00332000 * /*****************************************************************/ 00333000 * 0075 00334000 * IF STRVSPRT^=CNULLADR THEN /* IF STPRT EXISTS, FREEMAIN IT */ 00335000 SR @12,@12 0075 00336000 L @11,@PC00001 0075 00337000 L @08,STRVSPRT(,@11) 0075 00338000 CR @08,@12 0075 00339000 BE @RF00075 0075 00340000 * DO; 0076 00341000 * 0076 00342000 * /*************************************************************/ 00343000 * /* */ 00344000 * /* MACDATE Y-2 73018 */ 00345000 * /* */ 00346000 * /*************************************************************/ 00347000 * 0077 00348000 * RESPECIFY 0077 00349000 * (GPR00P, 0077 00350000 * GPR01P, 0077 00351000 * GPR14P, 0077 00352000 * GPR15P)RESTRICTED; 0077 00353000 * GPR00P=(STRVSPRT+CSPLENPR)->TRSPLEN;/* SUBPOOL AND LENGTH */ 00354000 AH @08,@CH01365 0078 00355000 L GPR00P,TRSPLEN(,@08) 0078 00356000 * GPR01P=STRVSPRT+CSPLENPR; /* ADDRESS */ 00357000 LR GPR01P,@08 0079 00358000 * STRVSPRT=CNULLADR; /* SHOW NO STPRT TABLE EXISTS */ 00359000 ST @12,STRVSPRT(,@11) 0080 00360000 *TR0150: 0081 00361000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREEMAIN STPRT */ 00362000 * 0081 00363000 TR0150 FREEMAIN R,LV=(0),A=(1) 00364000 * /*************************************************************/ 00365000 * /* */ 00366000 * /* MACDATE Y-2 73018 */ 00367000 * /* */ 00368000 * /*************************************************************/ 00369000 * 0082 00370000 * RESPECIFY 0082 00371000 * (GPR00P, 0082 00372000 * GPR01P, 0082 00373000 * GPR14P, 0082 00374000 * GPR15P)UNRESTRICTED; 0082 00375000 * END; 0083 00376000 * 0084 00377000 * /*****************************************************************/ 00378000 * /* */ 00379000 * /* FREE MAIN STORAGE FOR THIS OPTION */ 00380000 * /* */ 00381000 * /*****************************************************************/ 00382000 * 0084 00383000 * IF STRVSSGT=CNULLADR THEN /* IF NO STORAGE RESOURCE TABLE */ 00384000 @RF00075 L @12,@PC00001 0084 00385000 ICM @11,15,STRVSSGT(@12) 0084 00386000 BZ @RT00084 0084 00387000 * GOTO TR0300; /* SKIP THIS RESOURCE LIST. */ 00388000 *TR0200: /* REMOVE NEXT STORAGE RESOURCE */ 00389000 * IF STRVNSGT>0 THEN 0086 00390000 TR0200 L @12,@PC00001 0086 00391000 L @11,STRVNSGT(,@12) 0086 00392000 LTR @11,@11 0086 00393000 BNP @RF00086 0086 00394000 * STRVNSGT=STRVNSGT-1; /* SET NEXT RESOURCE INDEX NOW, 00395000 * IN CASE OF RECOVERY RETRY */ 00396000 BCTR @11,0 0087 00397000 ST @11,STRVNSGT(,@12) 0087 00398000 * DO J=STRVNSGT WHILE(J>0); /* (NON LOOPING) FOR A STORAGE 0088 00399000 * AREA */ 00400000 * 0088 00401000 @RF00086 L @12,@PC00001 0088 00402000 L @12,STRVNSGT(,@12) 0088 00403000 ST @12,J 0088 00404000 LTR @12,@12 0088 00405000 BNP @DC00088 0088 00406000 * /***************************************************************/ 00407000 * /* */ 00408000 * /* DO A PAGE FREE IN CASE AREA WAS LEFT FIXED MACDATE Y-2 73018*/ 00409000 * /* */ 00410000 * /***************************************************************/ 00411000 * 0089 00412000 * RESPECIFY 0089 00413000 * (GPR00P, 0089 00414000 * GPR01P, 0089 00415000 * GPR14P, 0089 00416000 * GPR15P)RESTRICTED; 0089 00417000 * GPR01P=STSGADD(J); /* STARTING ADDRESS */ 00418000 SLA @12,3 0090 00419000 L @11,@PC00001 0090 00420000 L @11,STRVSSGT(,@11) 0090 00421000 LA @08,0(@12,@11) 0090 00422000 AL @08,@CF01365 0090 00423000 L GPR01P,STSGADD-4(,@08) 0090 00424000 * GPR15P=GPR01P+STSGLEN(J); /* ENDING ADDRESS + 1 */ 00425000 LR GPR15P,GPR01P 0091 00426000 AL @11,@CF01402 0091 00427000 L @12,STSGLEN-1(@12,@11) 0091 00428000 LA @12,0(,@12) 0091 00429000 AR GPR15P,@12 0091 00430000 *TR0210: 0092 00431000 * ; /* PAGE FREE MAIN STORAGE */ 00432000 TR0210 DS 0H 0093 00433000 * GEN; 0093 00434000 * 0093 00435000 PGFREE R,A=(@01),EA=(@15) 00436000 * /***************************************************************/ 00437000 * /* */ 00438000 * /* MACDATE Y-2 73018 */ 00439000 * /* */ 00440000 * /***************************************************************/ 00441000 * 0094 00442000 * RESPECIFY 0094 00443000 * (GPR00P, 0094 00444000 * GPR01P, 0094 00445000 * GPR14P, 0094 00446000 * GPR15P)UNRESTRICTED; 0094 00447000 * 0094 00448000 * /***************************************************************/ 00449000 * /* */ 00450000 * /* FREEMAIN FOR AREA MACDATE Y-2 73018 */ 00451000 * /* */ 00452000 * /***************************************************************/ 00453000 * 0095 00454000 * RESPECIFY 0095 00455000 * (GPR00P, 0095 00456000 * GPR01P, 0095 00457000 * GPR14P, 0095 00458000 * GPR15P)RESTRICTED; 0095 00459000 * GPR00P=STSGFREE(STRVNSGT); /* SUBPOOL AND LENGTH */ 00460000 L @12,@PC00001 0096 00461000 L @11,STRVNSGT(,@12) 0096 00462000 SLA @11,3 0096 00463000 L @12,STRVSSGT(,@12) 0096 00464000 LA @08,0(@11,@12) 0096 00465000 AL @08,@CF01402 0096 00466000 L GPR00P,STSGFREE(,@08) 0096 00467000 * GPR01P=STSGADD(STRVNSGT); /* ADDRESS */ 00468000 AL @12,@CF01365 0097 00469000 L GPR01P,STSGADD-4(@11,@12) 0097 00470000 *TR0220: 0098 00471000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREEMAIN MAIN STORAGE */ 00472000 * 0098 00473000 TR0220 FREEMAIN R,LV=(0),A=(1) 00474000 * /***************************************************************/ 00475000 * /* */ 00476000 * /* MACDATE Y-2 73018 */ 00477000 * /* */ 00478000 * /***************************************************************/ 00479000 * 0099 00480000 * RESPECIFY 0099 00481000 * (GPR00P, 0099 00482000 * GPR01P, 0099 00483000 * GPR14P, 0099 00484000 * GPR15P)UNRESTRICTED; 0099 00485000 * GOTO TR0200; /* REMOVE NEXT STORAGE AREA 0100 00486000 * RESOURCES */ 00487000 B TR0200 0100 00488000 * END; 0101 00489000 * 0101 00490000 @DC00088 DS 0H 0102 00491000 * /*****************************************************************/ 00492000 * /* */ 00493000 * /* FREE STSGT STORAGE */ 00494000 * /* */ 00495000 * /*****************************************************************/ 00496000 * 0102 00497000 * IF STRVSSGT^=CNULLADR THEN /* IF STSGT EXISTS, FREE IT */ 00498000 SR @12,@12 0102 00499000 L @11,@PC00001 0102 00500000 L @08,STRVSSGT(,@11) 0102 00501000 CR @08,@12 0102 00502000 BE @RF00102 0102 00503000 * DO; 0103 00504000 * 0103 00505000 * /*************************************************************/ 00506000 * /* */ 00507000 * /* MACDATE Y-2 73018 */ 00508000 * /* */ 00509000 * /*************************************************************/ 00510000 * 0104 00511000 * RESPECIFY 0104 00512000 * (GPR00P, 0104 00513000 * GPR01P, 0104 00514000 * GPR14P, 0104 00515000 * GPR15P)RESTRICTED; 0104 00516000 * GPR00P=(STRVSSGT+CSPLENPR)->TRSPLEN;/* SUBPOOL AND LENGTH */ 00517000 AH @08,@CH01365 0105 00518000 L GPR00P,TRSPLEN(,@08) 0105 00519000 * GPR01P=STRVSSGT+CSPLENPR; /* ADDRESS */ 00520000 LR GPR01P,@08 0106 00521000 * STRVSSGT=CNULLADR; /* SHOW TABLE DOES NOT EXIST */ 00522000 ST @12,STRVSSGT(,@11) 0107 00523000 *TR0250: 0108 00524000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREEMAIN STSGT */ 00525000 * 0108 00526000 TR0250 FREEMAIN R,LV=(0),A=(1) 00527000 * /*************************************************************/ 00528000 * /* */ 00529000 * /* MACDATE Y-2 73018 */ 00530000 * /* */ 00531000 * /*************************************************************/ 00532000 * 0109 00533000 * RESPECIFY 0109 00534000 * (GPR00P, 0109 00535000 * GPR01P, 0109 00536000 * GPR14P, 0109 00537000 * GPR15P)UNRESTRICTED; 0109 00538000 * END; 0110 00539000 * 0111 00540000 */* FREE STORAGE AREA FOR LAST INTERVAL DATA WRAPAROUND VALUES */ 00541000 * 0111 00542000 *TR0300: 0111 00543000 * IF STSMIADD^=CNULLADR THEN /* IF AREA EXISTS, FREE IT */ 00544000 @RF00102 DS 0H 0111 00545000 TR0300 L @12,@PC00001+4 0111 00546000 L @11,STSMIADD(,@12) 0111 00547000 LTR @11,@11 0111 00548000 BZ @RF00111 0111 00549000 * DO; 0112 00550000 * 0112 00551000 * /*************************************************************/ 00552000 * /* */ 00553000 * /* PAGE FREE AREA IN CASE IT WAS LEFT FIXED MACDATE Y-2 73018*/ 00554000 * /* */ 00555000 * /*************************************************************/ 00556000 * 0113 00557000 * RESPECIFY 0113 00558000 * (GPR00P, 0113 00559000 * GPR01P, 0113 00560000 * GPR14P, 0113 00561000 * GPR15P)RESTRICTED; 0113 00562000 * GPR01P=STSMIADD+CSPLENPR; /* STARTING ADDRESS */ 00563000 AH @11,@CH01365 0114 00564000 LR GPR01P,@11 0114 00565000 * GPR15P=GPR01P+STSMILEN; /* ENDING ADDRESS + 1 */ 00566000 LR GPR15P,GPR01P 0115 00567000 SR @11,@11 0115 00568000 ICM @11,7,STSMILEN(@12) 0115 00569000 AR GPR15P,@11 0115 00570000 *TR0310: 0116 00571000 * ; /* PAGE FREE INTERVAL STORAGE */ 00572000 TR0310 DS 0H 0117 00573000 * GEN; 0117 00574000 PGFREE R,A=(@01),EA=(@15) 00575000 * GPR01P=STSMIADD+CSPLENPR; /* STARTING ADDRESS */ 00576000 L @12,@PC00001+4 0118 00577000 LH GPR01P,@CH01365 0118 00578000 A GPR01P,STSMIADD(,@12) 0118 00579000 * GPR00P=STSMIGMC; /* SUBPOOL AND LENGTH */ 00580000 L GPR00P,STSMIGMC(,@12) 0119 00581000 * STSMIADD=CNULLADR; /* SHOW AREA DOES NOT EXIST */ 00582000 SR @11,@11 0120 00583000 ST @11,STSMIADD(,@12) 0120 00584000 *TR0320: 0121 00585000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREEMAIN INTERVAL STORAGE */ 00586000 * 0121 00587000 TR0320 FREEMAIN R,LV=(0),A=(1) 00588000 * /*************************************************************/ 00589000 * /* */ 00590000 * /* MACDATE Y-2 73018 */ 00591000 * /* */ 00592000 * /*************************************************************/ 00593000 * 0122 00594000 * RESPECIFY 0122 00595000 * (GPR00P, 0122 00596000 * GPR01P, 0122 00597000 * GPR14P, 0122 00598000 * GPR15P)UNRESTRICTED; 0122 00599000 * END; 0123 00600000 *TR0800: /* RETURN LOGIC */ 00601000 * 0124 00602000 * /*****************************************************************/ 00603000 * /* */ 00604000 * /* CANCEL ESTAE ROUTINE MACDATE Y-2 73018 */ 00605000 * /* */ 00606000 * /*****************************************************************/ 00607000 * 0124 00608000 * RESPECIFY 0124 00609000 * (GPR00P, 0124 00610000 * GPR01P, 0124 00611000 * GPR14P, 0124 00612000 * GPR15P)RESTRICTED; 0124 00613000 @RF00111 DS 0H 0124 00614000 TR0800 DS 0H 0125 00615000 * GEN REFS(TRESTAPL); 0125 00616000 * 0125 00617000 ESTAE 0,MF=(E,TRESTAPL) 00618000 * /*****************************************************************/ 00619000 * /* */ 00620000 * /* MACDATE Y-2 73018 */ 00621000 * /* */ 00622000 * /*****************************************************************/ 00623000 * 0126 00624000 * RESPECIFY 0126 00625000 * (GPR00P, 0126 00626000 * GPR01P, 0126 00627000 * GPR14P, 0126 00628000 * GPR15P)UNRESTRICTED; 0126 00629000 * IF TRRETRYF=CSET THEN /* IF RETRY HAS OCCURRED */ 00630000 TM TRRETRYF,B'10000000' 0127 00631000 BNO @RF00127 0127 00632000 * DO; 0128 00633000 * 0128 00634000 * /*************************************************************/ 00635000 * /* */ 00636000 * /* MACDATE Y-2 73018 */ 00637000 * /* */ 00638000 * /*************************************************************/ 00639000 * 0129 00640000 * RESPECIFY 0129 00641000 * (GPR00P, 0129 00642000 * GPR01P, 0129 00643000 * GPR14P, 0129 00644000 * GPR15P)RESTRICTED; 0129 00645000 * GPR01P=SDWAPTR; /* BASE REG FOR SETRP EXPANSION */ 00646000 L GPR01P,SDWAPTR 0130 00647000 * GEN; 0131 00648000 CLC TRSDWAF(1),CSDWAYES DOES SDWA EXIST 00649000 BNE TR0900 NO, DO NOT ISSUE SETRP 00650000 * YES, ISSUE SETRP MACRO 00651000 * SDWACMPC=TRORIGCC; /* PERCOLATE REASON FOR ORIGINAL 00652000 * ERROR. */ 00653000 L @12,SDWAPTR 0132 00654000 MVC SDWACMPC(3,@12),TRORIGCC 0132 00655000 * DO; /* SETRP RC(0) DUMP(YES) */ 00656000 * RESPECIFY 0134 00657000 * (GPR00P, 0134 00658000 * GPR01P, 0134 00659000 * GPR14P, 0134 00660000 * GPR15P)RSTD; 0134 00661000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00662000 MVI SDWARCDE(GPR01P),X'00' 0135 00663000 * GPR01P->SDWAREQ='1'B; /* TURN ON DUMP INDICATOR */ 00664000 OI SDWAREQ(GPR01P),B'10000000' 0136 00665000 * RESPECIFY 0137 00666000 * (GPR00P, 0137 00667000 * GPR01P, 0137 00668000 * GPR14P, 0137 00669000 * GPR15P)UNRSTD; 0137 00670000 * END; /* CONTINUE WITH TERMINATION. */ 00671000 * RFY 0139 00672000 * SDWA BASED(SDWAPTR); 0139 00673000 *TR0900: 0140 00674000 * ; /* NO SDWA. */ 00675000 * 0140 00676000 TR0900 DS 0H 0141 00677000 * /*************************************************************/ 00678000 * /* */ 00679000 * /* MACDATE Y-2 73018 */ 00680000 * /* */ 00681000 * /*************************************************************/ 00682000 * 0141 00683000 * RESPECIFY 0141 00684000 * (GPR00P, 0141 00685000 * GPR01P, 0141 00686000 * GPR14P, 0141 00687000 * GPR15P)UNRESTRICTED; 0141 00688000 * END; 0142 00689000 * RETURN CODE(0); /* IF NO SDWA, 0 MEANS CONTINUE 00690000 * WITH TERMINATION */ 00691000 @RF00127 L @13,4(,@13) 0143 00692000 L @00,@SIZDATD 0143 00693000 LR @01,@10 0143 00694000 FREEMAIN R,LV=(0),A=(1) 00695000 SR @15,@15 0143 00696000 L @14,12(,@13) 0143 00697000 LM @00,@12,20(@13) 0143 00698000 BR @14 0143 00699000 *IRBMFTGR: /* GENERAL RESOURCE RELEASE ESTAE 00700000 * RECOVERY ROUTINE */ 00701000 * 0144 00702000 * /*****************************************************************/ 00703000 * /* */ 00704000 * /* MACDATE Y-2 73018 */ 00705000 * /* */ 00706000 * /*****************************************************************/ 00707000 * 0144 00708000 * RESPECIFY 0144 00709000 * (GPR00P, 0144 00710000 * GPR01P, 0144 00711000 * GPR14P, 0144 00712000 * GPR15P)RESTRICTED; 0144 00713000 IRBMFTGR DS 0H 0145 00714000 * RFY 0145 00715000 * (GPR02P, 0145 00716000 * GPR03P)RSTD; 0145 00717000 * GEN SETS(SDWAPTR); 0146 00718000 DROP GPRDAT,GPRCOD NO CODE/DATA REGS AT ESTAE ENTRY 00719000 BALR @15,0 00720000 USING *,@15 00721000 IC @03,CSDWANO ASSUME NO SDWA EXISTS. 00722000 C @00,FNOSDWA DOES SDWA EXIST 00723000 BE TG0500 NO 00724000 * YES. GET CODE & DATA REG ADDRESS 00725000 IC @03,CSDWAYES REMEMBER SDWA EXISTS. 00726000 L @02,0(0,@01) LOAD PARAMETER LIST ADDRESS 00727000 SPACE 00728000 TG0500 DS 0H 00729000 USING TRESTPPL,@02 PARAMETER LIST 00730000 L GPRCOD,TRESTCOD RESET CODE BASE REG 00731000 L GPRDAT,TRESTDAT RESET DATA BASE REG 00732000 DROP @02 00733000 DROP @15 00734000 USING @PSTART,GPRCOD 00735000 USING @DATD,GPRDAT 00736000 STC @03,TRSDWAF REMEMBER SDWA EXISTENCE STATE. 00737000 LA @13,@SA00001 RESET SAVE AREA ADDRESS 00738000 L @13,@SA00001+4 GET CALLERS SAVE AREA 00739000 ST @14,12(@13) SET NEW RETURN LOC IN SAVE AREA 00740000 LA @13,@SA00001 RESET SAVE AREA ADDRESS 00741000 ST GPR01P,SDWAPTR SAVE FOR SETRP USAGE 00742000 ESTAE PARAM=TRESTPPL,MF=(E,TRESTAPL) ESTABLISH NEXT LEVEL 00743000 * GEN DATA; 0147 00744000 * RFY 0148 00745000 * (GPR02P, 0148 00746000 * GPR03P)UNRSTD; 0148 00747000 * 0148 00748000 * /*****************************************************************/ 00749000 * /* */ 00750000 * /* MACDATE Y-2 73018 */ 00751000 * /* */ 00752000 * /*****************************************************************/ 00753000 * 0149 00754000 * RESPECIFY 0149 00755000 * (GPR00P, 0149 00756000 * GPR01P, 0149 00757000 * GPR14P, 0149 00758000 * GPR15P)UNRESTRICTED; 0149 00759000 * IF TRRETRYF=CCLEAR THEN /* IF FIRST ERROR, */ 00760000 TM TRRETRYF,B'10000000' 0150 00761000 BNZ @RF00150 0150 00762000 * TRORIGCC=SDWACMPC; /* SAVE REASON FOR ERROR: COMPLE- 00763000 * TION CODE. */ 00764000 L @12,SDWAPTR 0151 00765000 MVC TRORIGCC(3),SDWACMPC(@12) 0151 00766000 * TRRETRYF=CSET; /* RETURN VIA SETRP TO RTM */ 00767000 @RF00150 OI TRRETRYF,B'10000000' 0152 00768000 * TRRETRYC=TRRETRYC-1; /* REDUCE RETRY COUNT */ 00769000 L @12,TRRETRYC 0153 00770000 BCTR @12,0 0153 00771000 ST @12,TRRETRYC 0153 00772000 * IF TRRETRYC>=0 THEN /* IF NOT IN AN ESTAE CREATING 0154 00773000 * LOOP */ 00774000 LTR @12,@12 0154 00775000 BNM @RT00154 0154 00776000 * GOTO TR0000; /* TRY TO RELEASE REST OF OPTIONS 00777000 * RESOURCES */ 00778000 * 0155 00779000 * /*****************************************************************/ 00780000 * /* */ 00781000 * /* RETRY LIMIT REACHED RETURN TO RTM CONTINUE WITH TERMINATION */ 00782000 * /* */ 00783000 * /*****************************************************************/ 00784000 * 0156 00785000 * GOTO TR0800; 0156 00786000 B TR0800 0156 00787000 * END IRBMFTRM 0157 00788000 * 0157 00789000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00790000 */*%INCLUDE SYSLIB (CVT ) */ 00791000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00792000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00793000 * 0157 00794000 * ; 0157 00795000 @DATA DS 0H 00796000 @CH00285 DC H'3' 00797000 @DATD DSECT 00798000 DS 0F 00799000 @SA00001 DS 18F 00800000 @PC00001 DS 2F 00801000 @TF00001 DS F 00802000 IRBMFTRM CSECT 00803000 DS 0F 00804000 @CF01403 DC F'-16' 00805000 @CF01402 DC F'-8' 00806000 @CF01365 DC F'-4' 00807000 @CH01365 EQU @CF01365+2 00808000 @CF01357 DC F'10' 00809000 @CH01357 EQU @CF01357+2 00810000 @CF01359 DC XL4'20000000' 00811000 @DATD DSECT 00812000 DS 0D 00813000 SDWAPTR DS A 00814000 TRRETRYC DS F 00815000 I DS F 00816000 J DS F 00817000 TRDWORD DS CL8 00818000 TRESTPPL DS CL8 00819000 ORG TRESTPPL 00820000 TRESTCOD DS AL4 00821000 TRESTDAT DS AL4 00822000 ORG TRESTPPL+8 00823000 TRORIGCC DS CL3 00824000 TRRETRYF DS BL1 00825000 TRESTAPL DS CL16 00826000 TRSDWAF DS CL1 00827000 IRBMFTRM CSECT 00828000 DS 0F 00829000 @SIZDATD DC AL1(0) 00830000 DC AL3(@ENDDATD-@DATD) 00831000 DS 0D 00832000 TRPATCH DS CL100 00833000 IRBMFTRM CSECT 00834000 TRESTSPL ESTAE IRBMFTGR,RECORD=YES,MF=L 00835000 @DATD DSECT 00836000 IRBMFTRM CSECT 00837000 FNOSDWA DC F'12' NO SDWA EXISTS 00838000 CSDWANO DC X'80' FLAG FOR SDWA NONEXISTENT 00839000 CSDWAYES DC X'00' FLAG FOR SDWA EXISTS 00840000 @DATD DSECT 00841000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00842000 @ENDDATD EQU * 00843000 IRBMFTRM CSECT 00844000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00845000 @01 EQU 01 00846000 @02 EQU 02 00847000 @03 EQU 03 00848000 @04 EQU 04 00849000 @05 EQU 05 00850000 @06 EQU 06 00851000 @07 EQU 07 00852000 @08 EQU 08 00853000 @09 EQU 09 00854000 @10 EQU 10 00855000 @11 EQU 11 00856000 @12 EQU 12 00857000 @13 EQU 13 00858000 @14 EQU 14 00859000 @15 EQU 15 00860000 GPRCOD EQU @09 00861000 GPRDAT EQU @10 00862000 GPR00P EQU @00 00863000 GPR01P EQU @01 00864000 GPR14P EQU @14 00865000 GPR15P EQU @15 00866000 GPR02P EQU @02 00867000 GPR03P EQU @03 00868000 GPR04P EQU @04 00869000 GPR11P EQU @11 00870000 GPR12P EQU @12 00871000 GPR13P EQU @13 00872000 GPR00F EQU @00 00873000 GPR01F EQU @01 00874000 GPR14F EQU @14 00875000 GPR15F EQU @15 00876000 PSA EQU 0 00877000 FLCRNPSW EQU PSA 00878000 FLCROPSW EQU PSA+8 00879000 FLCICCW2 EQU PSA+16 00880000 FLCCVT EQU FLCICCW2 00881000 PSAEEPSW EQU PSA+132 00882000 PSAESPSW EQU PSA+136 00883000 FLCSVILC EQU PSAESPSW+1 00884000 PSAEPPSW EQU PSA+140 00885000 FLCPIILC EQU PSAEPPSW+1 00886000 FLCPICOD EQU PSAEPPSW+2 00887000 PSAPICOD EQU FLCPICOD+1 00888000 FLCTEA EQU PSAEPPSW+4 00889000 FLCPER EQU PSA+152 00890000 FLCMCLA EQU PSA+168 00891000 FLCIOEL EQU FLCMCLA+4 00892000 FLCIOA EQU FLCMCLA+16 00893000 FLCFSA EQU FLCMCLA+80 00894000 PSASUPER EQU PSA+552 00895000 PSASUP1 EQU PSASUPER 00896000 PSASUP2 EQU PSASUPER+1 00897000 PSASUP3 EQU PSASUPER+2 00898000 PSASUP4 EQU PSASUPER+3 00899000 PSACLHT EQU PSA+640 00900000 PSALKSA EQU PSA+696 00901000 PSAHLHI EQU PSA+760 00902000 PSALITA EQU PSA+764 00903000 PSADSSFL EQU PSA+836 00904000 PSADSSF1 EQU PSADSSFL 00905000 PSADSSF3 EQU PSADSSFL+2 00906000 PSADSSF4 EQU PSADSSFL+3 00907000 PSARSVT EQU PSA+896 00908000 CVTMAP EQU 0 00909000 CVTDAR EQU CVTMAP+72 00910000 CVTFLGS1 EQU CVTDAR 00911000 CVTDCB EQU CVTMAP+116 00912000 CVTIERLC EQU CVTMAP+144 00913000 CVTOPTA EQU CVTMAP+182 00914000 CVTOPTB EQU CVTMAP+183 00915000 CVTGTF EQU CVTMAP+236 00916000 CVTGTFST EQU CVTGTF 00917000 CVTGTFS EQU CVTGTFST 00918000 CVTSTATE EQU CVTGTFST 00919000 CVTTMODE EQU CVTGTFST 00920000 CVTFORM EQU CVTGTFST 00921000 CVTUSR EQU CVTGTFST 00922000 CVTAQAVT EQU CVTMAP+240 00923000 CVTTCMFG EQU CVTAQAVT 00924000 CVTVOLM2 EQU CVTMAP+244 00925000 CVTTATA EQU CVTVOLM2 00926000 CVTTSKS EQU CVTTATA 00927000 CVTVOLF2 EQU CVTTSKS 00928000 CVTTAT EQU CVTTATA+1 00929000 CVTATER EQU CVTMAP+248 00930000 CVTEXT1 EQU CVTMAP+252 00931000 CVTPURG EQU CVTMAP+260 00932000 CVTQMSG EQU CVTMAP+268 00933000 CVTDMSR EQU CVTMAP+272 00934000 CVTERPV EQU CVTMAP+316 00935000 CVTINTLA EQU CVTMAP+320 00936000 CVTAPF EQU CVTMAP+324 00937000 CVTEXT2 EQU CVTMAP+328 00938000 CVTHJES EQU CVTMAP+332 00939000 CVTPGSIA EQU CVTMAP+348 00940000 CVTA1F1 EQU CVTMAP+356 00941000 CVTSYSK EQU CVTMAP+357 00942000 CVTVOLM1 EQU CVTMAP+380 00943000 CVTVOLF1 EQU CVTVOLM1 00944000 CVTATMCT EQU CVTMAP+388 00945000 CVTXTNT1 EQU 0 00946000 CVTXTNT2 EQU 0 00947000 CVTDSSV EQU CVTXTNT2 00948000 CVTRSV90 EQU CVTXTNT2+5 00949000 CVTQID EQU CVTXTNT2+24 00950000 CVTRV400 EQU CVTXTNT2+52 00951000 CVTRV409 EQU CVTXTNT2+53 00952000 CVTATCVT EQU CVTXTNT2+64 00953000 CVTRV429 EQU CVTXTNT2+84 00954000 CVTRV438 EQU CVTXTNT2+85 00955000 CVTRV457 EQU CVTXTNT2+112 00956000 CVTRV466 EQU CVTXTNT2+113 00957000 CVTFIX EQU 0 00958000 CVTRELNO EQU CVTFIX+252 00959000 SDWA EQU 0 00960000 SDWAFIOB EQU SDWA+4 00961000 SDWAABCC EQU SDWAFIOB 00962000 SDWACMPF EQU SDWAABCC 00963000 SDWAREQ EQU SDWACMPF 00964000 SDWACMPC EQU SDWAABCC+1 00965000 SDWACTL1 EQU SDWA+8 00966000 SDWACMKA EQU SDWACTL1 00967000 SDWAMWPA EQU SDWACTL1+1 00968000 SDWAPMKA EQU SDWACTL1+4 00969000 SDWACTL2 EQU SDWA+16 00970000 SDWACMKP EQU SDWACTL2 00971000 SDWAMWPP EQU SDWACTL2+1 00972000 SDWAPMKP EQU SDWACTL2+4 00973000 SDWAGRSV EQU SDWA+24 00974000 SDWANAME EQU SDWA+88 00975000 SDWAEC1 EQU SDWA+104 00976000 SDWAEMK1 EQU SDWAEC1 00977000 SDWAMWP1 EQU SDWAEC1+1 00978000 SDWAINT1 EQU SDWAEC1+2 00979000 SDWANXT1 EQU SDWAEC1+4 00980000 SDWAAEC1 EQU SDWA+112 00981000 SDWAILC1 EQU SDWAAEC1+1 00982000 SDWAINC1 EQU SDWAAEC1+2 00983000 SDWAICD1 EQU SDWAINC1+1 00984000 SDWAEC2 EQU SDWA+120 00985000 SDWAEMK2 EQU SDWAEC2 00986000 SDWAMWP2 EQU SDWAEC2+1 00987000 SDWAINT2 EQU SDWAEC2+2 00988000 SDWANXT2 EQU SDWAEC2+4 00989000 SDWAAEC2 EQU SDWA+128 00990000 SDWAILC2 EQU SDWAAEC2+1 00991000 SDWAINC2 EQU SDWAAEC2+2 00992000 SDWAICD2 EQU SDWAINC2+1 00993000 SDWASRSV EQU SDWA+136 00994000 SDWAIDNT EQU SDWA+200 00995000 SDWAMCH EQU SDWA+204 00996000 SDWASTCK EQU SDWAMCH 00997000 SDWAMCHI EQU SDWAMCH+8 00998000 SDWAMCHS EQU SDWAMCHI 00999000 SDWAMCHD EQU SDWAMCHI+1 01000000 SDWARSR1 EQU SDWAMCH+12 01001000 SDWARSR2 EQU SDWAMCH+13 01002000 SDWAFLGS EQU SDWA+232 01003000 SDWAERRA EQU SDWAFLGS 01004000 SDWAERRB EQU SDWAFLGS+1 01005000 SDWAERRC EQU SDWAFLGS+2 01006000 SDWAERRD EQU SDWAFLGS+3 01007000 SDWAIOFS EQU SDWA+238 01008000 SDWACPUA EQU SDWA+248 01009000 SDWAPARQ EQU SDWA+252 01010000 SDWARCDE EQU SDWAPARQ 01011000 SDWAACF2 EQU SDWAPARQ+1 01012000 SDWAACF3 EQU SDWAPARQ+2 01013000 SDWAACF4 EQU SDWAPARQ+3 01014000 SDWALKWA EQU SDWA+256 01015000 SDWALKWS EQU SDWALKWA 01016000 SDWARECP EQU SDWA+292 01017000 SDWASNPA EQU SDWA+320 01018000 SDWADUMP EQU SDWASNPA 01019000 SDWADPFS EQU SDWADUMP+1 01020000 SDWADDAT EQU SDWASNPA+4 01021000 SDWASDAT EQU SDWADDAT 01022000 SDWAPDAT EQU SDWADDAT+2 01023000 SDWADPSA EQU SDWA+328 01024000 SDWADPSL EQU SDWADPSA 01025000 SDWARA EQU SDWA+400 01026000 SDWADPVA EQU SDWARA+2 01027000 STPRT EQU 0 01028000 STPRNAME EQU STPRT 01029000 STPRADDR EQU STPRT+8 01030000 STPRLGTH EQU STPRT+12 01031000 STSGT EQU 0 01032000 STSGFREE EQU STSGT 01033000 STSGLEN EQU STSGFREE+1 01034000 STSGADD EQU STSGT+4 01035000 IEAVPSIB EQU 0 01036000 TRSPLEN EQU 0 01037000 IKEBC EQU 0 01038000 IKEBF15 EQU 0 01039000 IKEBF31 EQU 0 01040000 IKEBP15 EQU 0 01041000 IKEBP31 EQU 0 01042000 IKEBP8 EQU 0 01043000 STRVT EQU 0 01044000 STRVSPRT EQU STRVT 01045000 STRVNPRT EQU STRVT+4 01046000 STRVSSGT EQU STRVT+8 01047000 STRVNSGT EQU STRVT+12 01048000 TRSTORFR EQU 0 01049000 STSMIGMC EQU TRSTORFR 01050000 STSMILEN EQU STSMIGMC+1 01051000 STSMIADD EQU TRSTORFR+4 01052000 CVTPTR EQU FLCCVT 01053000 CVTS01 EQU CVTPGSIA 01054000 CVTLPDIA EQU CVTS01+12 01055000 CVTDIRST EQU CVTLPDIA 01056000 CVTSLIDA EQU CVTS01+24 01057000 CVTCTLFG EQU CVTS01+50 01058000 CVTRV210 EQU CVTS01+424 01059000 CVTRV219 EQU CVTS01+425 01060000 CVTRV228 EQU CVTS01+426 01061000 CVTRV237 EQU CVTS01+427 01062000 CVTMFRTR EQU CVTS01+452 01063000 CVTVPSIB EQU CVTS01+456 01064000 CVTRV262 EQU CVTS01+468 01065000 CVTRV271 EQU CVTS01+469 01066000 CVTRV280 EQU CVTS01+470 01067000 CVTRV289 EQU CVTS01+471 01068000 CVTGSDA EQU CVTS01+600 01069000 PSARSVTE EQU PSARSVT 01070000 FLC EQU PSA 01071000 * START UNREFERENCED COMPONENTS 01072000 PSARSAV EQU PSARSVTE+60 01073000 PSARSTK EQU PSARSVTE+56 01074000 PSAESAV3 EQU PSARSVTE+52 01075000 PSAESTK3 EQU PSARSVTE+48 01076000 PSAESAV2 EQU PSARSVTE+44 01077000 PSAESTK2 EQU PSARSVTE+40 01078000 PSAESAV1 EQU PSARSVTE+36 01079000 PSAESTK1 EQU PSARSVTE+32 01080000 PSAPSAV EQU PSARSVTE+28 01081000 PSAPSTK EQU PSARSVTE+24 01082000 PSAMSAV EQU PSARSVTE+20 01083000 PSAMSTK EQU PSARSVTE+16 01084000 PSASSAV EQU PSARSVTE+12 01085000 PSASSTK EQU PSARSVTE+8 01086000 PSANSTK EQU PSARSVTE+4 01087000 PSACSTK EQU PSARSVTE 01088000 CVTTPIO EQU CVTS01+608 01089000 CVTADV EQU CVTS01+604 01090000 CVTGSDAB EQU CVTGSDA 01091000 CVTQV3 EQU CVTS01+596 01092000 CVTQV2 EQU CVTS01+592 01093000 CVTQV1 EQU CVTS01+588 01094000 CVTRPT EQU CVTS01+584 01095000 CVTSSRB EQU CVTS01+580 01096000 CVTCSDRL EQU CVTS01+576 01097000 CVTEXP1 EQU CVTS01+572 01098000 CVTRMPMT EQU CVTS01+568 01099000 CVTRMPTT EQU CVTS01+564 01100000 CVTVPSA EQU CVTS01+560 01101000 CVTVSTOP EQU CVTS01+556 01102000 CVTGTFR8 EQU CVTS01+552 01103000 CVTQUIT EQU CVTS01+548 01104000 CVTVACR EQU CVTS01+544 01105000 CVTWTCB EQU CVTS01+540 01106000 CVTSTPRS EQU CVTS01+536 01107000 CVT0PT02 EQU CVTS01+532 01108000 CVTDARCM EQU CVTS01+528 01109000 CVTIRECM EQU CVTS01+524 01110000 CVTJRECM EQU CVTS01+520 01111000 CVTVEMS0 EQU CVTS01+516 01112000 CVTSPFRR EQU CVTS01+512 01113000 CVTRLSTG EQU CVTS01+508 01114000 CVT0TC0A EQU CVTS01+504 01115000 CVTGMBR EQU CVTS01+500 01116000 CVTLFRM EQU CVTS01+496 01117000 CVTRMBR EQU CVTS01+492 01118000 CVTVIOP EQU CVTS01+488 01119000 CVTRV307 EQU CVTS01+486 01120000 CVTRV306 EQU CVTS01+484 01121000 CVTRV305 EQU CVTS01+482 01122000 CVTRV304 EQU CVTS01+480 01123000 CVTRV303 EQU CVTS01+478 01124000 CVTRV302 EQU CVTS01+476 01125000 CVTRV301 EQU CVTS01+475 01126000 CVTRV300 EQU CVTS01+474 01127000 CVTRV299 EQU CVTS01+473 01128000 CVTRV298 EQU CVTS01+472 01129000 CVTRV297 EQU CVTRV289 01130000 CVTRV296 EQU CVTRV289 01131000 CVTRV295 EQU CVTRV289 01132000 CVTRV294 EQU CVTRV289 01133000 CVTRV293 EQU CVTRV289 01134000 CVTRV292 EQU CVTRV289 01135000 CVTRV291 EQU CVTRV289 01136000 CVTRV290 EQU CVTRV289 01137000 CVTRV288 EQU CVTRV280 01138000 CVTRV287 EQU CVTRV280 01139000 CVTRV286 EQU CVTRV280 01140000 CVTRV285 EQU CVTRV280 01141000 CVTRV284 EQU CVTRV280 01142000 CVTRV283 EQU CVTRV280 01143000 CVTRV282 EQU CVTRV280 01144000 CVTRV281 EQU CVTRV280 01145000 CVTRV279 EQU CVTRV271 01146000 CVTRV278 EQU CVTRV271 01147000 CVTRV277 EQU CVTRV271 01148000 CVTRV276 EQU CVTRV271 01149000 CVTRV275 EQU CVTRV271 01150000 CVTRV274 EQU CVTRV271 01151000 CVTRV273 EQU CVTRV271 01152000 CVTRV272 EQU CVTRV271 01153000 CVTRV270 EQU CVTRV262 01154000 CVTRV269 EQU CVTRV262 01155000 CVTRV268 EQU CVTRV262 01156000 CVTRV267 EQU CVTRV262 01157000 CVTRV266 EQU CVTRV262 01158000 CVTRV265 EQU CVTRV262 01159000 CVTRV264 EQU CVTRV262 01160000 CVTRV263 EQU CVTRV262 01161000 CVTVFP EQU CVTS01+464 01162000 CVTVSI EQU CVTS01+460 01163000 CVTMFACT EQU CVTMFRTR 01164000 CVTMFCTL EQU CVTS01+448 01165000 CVTPVBP EQU CVTS01+444 01166000 CVTPWI EQU CVTS01+440 01167000 CVTRV254 EQU CVTS01+438 01168000 CVTRV253 EQU CVTS01+436 01169000 CVTRV252 EQU CVTS01+434 01170000 CVTRV251 EQU CVTS01+433 01171000 CVTRV250 EQU CVTS01+432 01172000 CVTRV249 EQU CVTS01+431 01173000 CVTRV248 EQU CVTS01+430 01174000 CVTRV247 EQU CVTS01+429 01175000 CVTRV246 EQU CVTS01+428 01176000 CVTRV245 EQU CVTRV237 01177000 CVTRV244 EQU CVTRV237 01178000 CVTRV243 EQU CVTRV237 01179000 CVTRV242 EQU CVTRV237 01180000 CVTRV241 EQU CVTRV237 01181000 CVTRV240 EQU CVTRV237 01182000 CVTRV239 EQU CVTRV237 01183000 CVTRV238 EQU CVTRV237 01184000 CVTRV236 EQU CVTRV228 01185000 CVTRV235 EQU CVTRV228 01186000 CVTRV234 EQU CVTRV228 01187000 CVTRV233 EQU CVTRV228 01188000 CVTRV232 EQU CVTRV228 01189000 CVTRV231 EQU CVTRV228 01190000 CVTRV230 EQU CVTRV228 01191000 CVTRV229 EQU CVTRV228 01192000 CVTRV227 EQU CVTRV219 01193000 CVTRV226 EQU CVTRV219 01194000 CVTRV225 EQU CVTRV219 01195000 CVTRV224 EQU CVTRV219 01196000 CVTRV223 EQU CVTRV219 01197000 CVTRV222 EQU CVTRV219 01198000 CVTRV221 EQU CVTRV219 01199000 CVTRV220 EQU CVTRV219 01200000 CVTRV218 EQU CVTRV210 01201000 CVTRV217 EQU CVTRV210 01202000 CVTRV216 EQU CVTRV210 01203000 CVTRV215 EQU CVTRV210 01204000 CVTRV214 EQU CVTRV210 01205000 CVTRV213 EQU CVTRV210 01206000 CVTRV212 EQU CVTRV210 01207000 CVTRV211 EQU CVTRV210 01208000 CVTLCCAT EQU CVTS01+420 01209000 CVTPCCAT EQU CVTS01+416 01210000 CVTIPCRP EQU CVTS01+412 01211000 CVTIPCRI EQU CVTS01+408 01212000 CVTIPCDS EQU CVTS01+404 01213000 CVTAIDVT EQU CVTS01+400 01214000 CVTSSAP EQU CVTS01+396 01215000 CVTEHCIR EQU CVTS01+392 01216000 CVTEHDEF EQU CVTS01+388 01217000 CVTDAIR EQU CVTS01+384 01218000 CVTPERFM EQU CVTS01+380 01219000 CVT044R2 EQU CVTS01+376 01220000 CVTFETCH EQU CVTS01+372 01221000 CVTRSTWD EQU CVTS01+368 01222000 CVTSPOST EQU CVTS01+364 01223000 CVTIOBP EQU CVTS01+360 01224000 CVTASMVT EQU CVTS01+356 01225000 CVTRECRQ EQU CVTS01+352 01226000 CVTWSAC EQU CVTS01+348 01227000 CVTRV149 EQU CVTS01+344 01228000 CVTWSAL EQU CVTS01+340 01229000 CVTSPSA EQU CVTS01+336 01230000 CVTGLMN EQU CVTS01+332 01231000 CVTVEAC0 EQU CVTS01+328 01232000 CVT062R1 EQU CVTS01+324 01233000 CVTRPOST EQU CVTS01+320 01234000 CVTDQIQE EQU CVTS01+316 01235000 CVTCSD EQU CVTS01+312 01236000 CVTLKRMA EQU CVTS01+308 01237000 CVTRSPIE EQU CVTS01+304 01238000 CVTRENQ EQU CVTS01+300 01239000 CVTLQCB EQU CVTS01+296 01240000 CVTFQCB EQU CVTS01+292 01241000 CVTQCS01 EQU CVTS01+288 01242000 CVTAPFT EQU CVTS01+284 01243000 CVTPARRL EQU CVTS01+280 01244000 CVTVWAIT EQU CVTS01+276 01245000 CVTGSPL EQU CVTS01+272 01246000 CVTLSMQ EQU CVTS01+268 01247000 CVTGSMQ EQU CVTS01+264 01248000 CVTEXPRO EQU CVTS01+260 01249000 CVTOPCTP EQU CVTS01+256 01250000 CVTSIC EQU CVTS01+252 01251000 CVTTPIOS EQU CVTS01+248 01252000 CVTRTMS EQU CVTS01+244 01253000 CVTSDBF EQU CVTS01+240 01254000 CVTSCBP EQU CVTS01+236 01255000 CVTSDMP EQU CVTS01+232 01256000 CVTSV60 EQU CVTS01+228 01257000 CVTRTMCT EQU CVTS01+224 01258000 CVTASCBL EQU CVTS01+220 01259000 CVTASCBH EQU CVTS01+216 01260000 CVTGDA EQU CVTS01+212 01261000 CVTASVT EQU CVTS01+208 01262000 CVTVVMDI EQU CVTS01+204 01263000 CVTAQTOP EQU CVTS01+200 01264000 CVTIOSCS EQU CVTS01+196 01265000 CVTSDRM EQU CVTS01+192 01266000 CVTOPTE EQU CVTS01+188 01267000 CVTSTXU EQU CVTS01+184 01268000 CVTQUIS EQU CVTS01+180 01269000 CVTPARS EQU CVTS01+176 01270000 CVTS1EE EQU CVTS01+172 01271000 CVTFRAS EQU CVTS01+168 01272000 CVTQSAS EQU CVTS01+164 01273000 CVTCRAS EQU CVTS01+160 01274000 CVTCRMN EQU CVTS01+156 01275000 CVTDELCP EQU CVTS01+152 01276000 CVTFRECL EQU CVTS01+148 01277000 CVTGETCL EQU CVTS01+144 01278000 CVTBLDCP EQU CVTS01+140 01279000 CVTAUTHL EQU CVTS01+136 01280000 CVTSCAN EQU CVTS01+132 01281000 CVTRV144 EQU CVTS01+130 01282000 CVTMAXMP EQU CVTS01+128 01283000 CVTSTCK EQU CVTS01+124 01284000 CVTRV139 EQU CVTS01+123 01285000 CVTDSSAC EQU CVTS01+122 01286000 CVTRV513 EQU CVTS01+121 01287000 CVTIOSPL EQU CVTS01+120 01288000 CVTPTGT EQU CVTS01+116 01289000 CVTCSPIE EQU CVTS01+112 01290000 CVTSMFEX EQU CVTS01+108 01291000 CVTOLT0A EQU CVTS01+104 01292000 CVTSRBRT EQU CVTS01+100 01293000 CVTPUTL EQU CVTS01+96 01294000 CVTRV519 EQU CVTS01+92 01295000 CVTRV327 EQU CVTS01+88 01296000 CVTRV326 EQU CVTS01+84 01297000 CVTRV325 EQU CVTS01+80 01298000 CVTRV324 EQU CVTS01+76 01299000 CVT0VL01 EQU CVTS01+72 01300000 CVTSHRVM EQU CVTS01+68 01301000 CVTRV332 EQU CVTS01+64 01302000 CVTTAS EQU CVTS01+60 01303000 CVTRSCN EQU CVTS01+56 01304000 CVTTRAC2 EQU CVTS01+54 01305000 CVTTRACE EQU CVTS01+52 01306000 CVTAPG EQU CVTS01+51 01307000 CVTSDTRC EQU CVTCTLFG 01308000 CVTGTRCE EQU CVTCTLFG 01309000 CVTNOMP EQU CVTCTLFG 01310000 CVTRSV79 EQU CVTCTLFG 01311000 CVTDSTAT EQU CVTCTLFG 01312000 CVTRSV78 EQU CVTCTLFG 01313000 CVTRV333 EQU CVTCTLFG 01314000 CVTRV323 EQU CVTCTLFG 01315000 CVTSPVLK EQU CVTS01+49 01316000 CVTRSV77 EQU CVTS01+48 01317000 CVTRV331 EQU CVTS01+44 01318000 CVTRV330 EQU CVTS01+40 01319000 CVTRV329 EQU CVTS01+36 01320000 CVTRV328 EQU CVTS01+32 01321000 CVTRV322 EQU CVTS01+28 01322000 CVTSLID EQU CVTSLIDA+1 01323000 CVTSYLK EQU CVTSLIDA 01324000 CVTRV321 EQU CVTS01+20 01325000 CVTRV320 EQU CVTS01+16 01326000 CVTLPDIR EQU CVTLPDIA+1 01327000 CVTRSV69 EQU CVTDIRST 01328000 CVTRSV68 EQU CVTDIRST 01329000 CVTRSV67 EQU CVTDIRST 01330000 CVTRSV66 EQU CVTDIRST 01331000 CVTRSV65 EQU CVTDIRST 01332000 CVTRSV64 EQU CVTDIRST 01333000 CVTRSV63 EQU CVTDIRST 01334000 CVTDICOM EQU CVTDIRST 01335000 CVTPVTP EQU CVTS01+8 01336000 CVTLPDSR EQU CVTS01+4 01337000 CVTGETL EQU CVTS01 01338000 STSMISP EQU STSMIGMC 01339000 TRLEN EQU TRSPLEN+1 01340000 TRSP EQU TRSPLEN 01341000 STSGSP EQU STSGFREE 01342000 @NM00074 EQU SDWA+512 01343000 SDWAVRA EQU SDWARA+4 01344000 SDWAURAL EQU SDWARA+3 01345000 @NM00073 EQU SDWADPVA 01346000 SDWAEBC EQU SDWADPVA 01347000 SDWAHEX EQU SDWADPVA 01348000 SDWAVRAL EQU SDWARA 01349000 @NM00072 EQU SDWA+396 01350000 SDWACOMP EQU SDWA+392 01351000 SDWARCPL EQU SDWA+364 01352000 @NM00071 EQU SDWADPSA+32 01353000 SDWATO4 EQU SDWADPSL+28 01354000 SDWAFRM4 EQU SDWADPSL+24 01355000 SDWATO3 EQU SDWADPSL+20 01356000 SDWAFRM3 EQU SDWADPSL+16 01357000 SDWATO2 EQU SDWADPSL+12 01358000 SDWAFRM2 EQU SDWADPSL+8 01359000 SDWATO1 EQU SDWADPSL+4 01360000 SDWAFRM1 EQU SDWADPSL 01361000 @NM00070 EQU SDWADDAT+3 01362000 @NM00069 EQU SDWAPDAT 01363000 SDWAUSPL EQU SDWAPDAT 01364000 SDWADPSW EQU SDWAPDAT 01365000 SDWATJPA EQU SDWAPDAT 01366000 SDWATLPA EQU SDWAPDAT 01367000 SDWADREG EQU SDWAPDAT 01368000 SDWADSAH EQU SDWAPDAT 01369000 SDWADSAS EQU SDWAPDAT 01370000 @NM00068 EQU SDWADDAT+1 01371000 @NM00067 EQU SDWASDAT 01372000 SDWAQQS EQU SDWASDAT 01373000 SDWACBS EQU SDWASDAT 01374000 SDWAGTF EQU SDWASDAT 01375000 SDWASWA EQU SDWASDAT 01376000 SDWALSQA EQU SDWASDAT 01377000 SDWASQA EQU SDWASDAT 01378000 SDWANUC EQU SDWASDAT 01379000 @NM00066 EQU SDWADUMP+2 01380000 @NM00065 EQU SDWADPFS 01381000 SDWASLST EQU SDWADPFS 01382000 @NM00064 EQU SDWADPFS 01383000 SDWADLST EQU SDWADPFS 01384000 SDWADPT EQU SDWADPFS 01385000 SDWADPID EQU SDWADUMP 01386000 SDWADPLA EQU SDWA+316 01387000 SDWAREXN EQU SDWARECP+16 01388000 SDWACSCT EQU SDWARECP+8 01389000 SDWAMODN EQU SDWARECP 01390000 @NM00063 EQU SDWALKWA+32 01391000 SDWATALW EQU SDWALKWS+28 01392000 SDWATDLW EQU SDWALKWS+24 01393000 SDWATNLW EQU SDWALKWS+20 01394000 SDWAAPLW EQU SDWALKWS+16 01395000 SDWAIPLW EQU SDWALKWS+12 01396000 SDWAILLW EQU SDWALKWS+8 01397000 SDWAIULW EQU SDWALKWS+4 01398000 SDWAICLW EQU SDWALKWS 01399000 SDWAFLLK EQU SDWAACF4 01400000 SDWACMS EQU SDWAACF4 01401000 SDWAOPTM EQU SDWAACF4 01402000 SDWATADB EQU SDWAACF4 01403000 SDWATDNB EQU SDWAACF4 01404000 SDWATNCB EQU SDWAACF4 01405000 SDWAILCH EQU SDWAACF4 01406000 SDWAIUCB EQU SDWAACF4 01407000 SDWAICAT EQU SDWAACF3 01408000 SDWAIPRG EQU SDWAACF3 01409000 SDWASALL EQU SDWAACF3 01410000 SDWAASMP EQU SDWAACF3 01411000 SDWADISP EQU SDWAACF3 01412000 @NM00062 EQU SDWAACF3 01413000 @NM00061 EQU SDWAACF2 01414000 SDWAFREE EQU SDWAACF2 01415000 SDWAUPRG EQU SDWAACF2 01416000 @NM00060 EQU SDWAACF2 01417000 SDWASPIN EQU SDWAACF2 01418000 @NM00059 EQU SDWAACF2 01419000 SDWARCRD EQU SDWAACF2 01420000 SDWALCPU EQU SDWACPUA+2 01421000 @NM00058 EQU SDWACPUA 01422000 SDWARECA EQU SDWA+244 01423000 SDWARTYA EQU SDWA+240 01424000 @NM00057 EQU SDWA+239 01425000 @NM00056 EQU SDWAIOFS 01426000 SDWANIOP EQU SDWAIOFS 01427000 SDWANOIO EQU SDWAIOFS 01428000 SDWAIOHT EQU SDWAIOFS 01429000 SDWAIOQR EQU SDWAIOFS 01430000 SDWAFMID EQU SDWA+236 01431000 @NM00055 EQU SDWAERRD 01432000 SDWAMCIV EQU SDWAERRD 01433000 SDWARPIV EQU SDWAERRD 01434000 SDWAMABD EQU SDWAERRD 01435000 SDWACTS EQU SDWAERRD 01436000 SDWASTAE EQU SDWAERRD 01437000 SDWANRBE EQU SDWAERRD 01438000 SDWACLUP EQU SDWAERRD 01439000 @NM00054 EQU SDWAERRC 01440000 SDWAEAS EQU SDWAERRC 01441000 SDWAPERC EQU SDWAERRC 01442000 SDWAIRB EQU SDWAERRC 01443000 SDWASTAI EQU SDWAERRC 01444000 SDWASTAF EQU SDWAERRC 01445000 SDWASRBM EQU SDWAERRB 01446000 SDWALDIS EQU SDWAERRB 01447000 SDWAENRB EQU SDWAERRB 01448000 SDWATYP1 EQU SDWAERRB 01449000 @NM00053 EQU SDWAERRB 01450000 SDWAPGIO EQU SDWAERRA 01451000 SDWATEXC EQU SDWAERRA 01452000 SDWASVCE EQU SDWAERRA 01453000 SDWAABTM EQU SDWAERRA 01454000 SDWASVCD EQU SDWAERRA 01455000 SDWARKEY EQU SDWAERRA 01456000 SDWAPCHK EQU SDWAERRA 01457000 SDWAMCHK EQU SDWAERRA 01458000 SDWATIME EQU SDWAMCH+20 01459000 SDWARFSA EQU SDWAMCH+16 01460000 @NM00052 EQU SDWAMCH+14 01461000 SDWAVEQR EQU SDWARSR2 01462000 SDWAPGFX EQU SDWARSR2 01463000 SDWAFLSQ EQU SDWARSR2 01464000 SDWAFSQA EQU SDWARSR2 01465000 SDWANUCL EQU SDWARSR2 01466000 SDWASPER EQU SDWARSR2 01467000 SDWAINTC EQU SDWARSR2 01468000 SDWAOFLN EQU SDWARSR2 01469000 SDWACHNG EQU SDWARSR1 01470000 SDWAMSER EQU SDWARSR1 01471000 @NM00051 EQU SDWARSR1 01472000 SDWACPID EQU SDWAMCH+10 01473000 SDWATERR EQU SDWAMCHD 01474000 SDWAFPRX EQU SDWAMCHD 01475000 SDWAINSF EQU SDWAMCHD 01476000 SDWAACR EQU SDWAMCHD 01477000 SDWASCK EQU SDWAMCHD 01478000 SDWAPSWU EQU SDWAMCHD 01479000 SDWAREGU EQU SDWAMCHD 01480000 SDWASKYF EQU SDWAMCHD 01481000 @NM00050 EQU SDWAMCHS 01482000 SDWARSRF EQU SDWAMCHS 01483000 SDWARSRC EQU SDWAMCHS 01484000 SDWAINVP EQU SDWAMCHS 01485000 SDWATSVL EQU SDWAMCHS 01486000 SDWARCDF EQU SDWAMCHS 01487000 SDWASRVL EQU SDWAMCHS 01488000 SDWASCKE EQU SDWASTCK+4 01489000 SDWASCKB EQU SDWASTCK 01490000 SDWALNTH EQU SDWAIDNT+1 01491000 SDWASPID EQU SDWAIDNT 01492000 SDWASR15 EQU SDWASRSV+60 01493000 SDWASR14 EQU SDWASRSV+56 01494000 SDWASR13 EQU SDWASRSV+52 01495000 SDWASR12 EQU SDWASRSV+48 01496000 SDWASR11 EQU SDWASRSV+44 01497000 SDWASR10 EQU SDWASRSV+40 01498000 SDWASR09 EQU SDWASRSV+36 01499000 SDWASR08 EQU SDWASRSV+32 01500000 SDWASR07 EQU SDWASRSV+28 01501000 SDWASR06 EQU SDWASRSV+24 01502000 SDWASR05 EQU SDWASRSV+20 01503000 SDWASR04 EQU SDWASRSV+16 01504000 SDWASR03 EQU SDWASRSV+12 01505000 SDWASR02 EQU SDWASRSV+8 01506000 SDWASR01 EQU SDWASRSV+4 01507000 SDWASR00 EQU SDWASRSV 01508000 SDWATRN2 EQU SDWAAEC2+4 01509000 SDWAIPC2 EQU SDWAICD2 01510000 SDWAIMC2 EQU SDWAICD2 01511000 SDWAIPR2 EQU SDWAICD2 01512000 @NM00049 EQU SDWAINC2 01513000 @NM00048 EQU SDWAILC2 01514000 SDWAIL2 EQU SDWAILC2 01515000 @NM00047 EQU SDWAILC2 01516000 @NM00046 EQU SDWAAEC2 01517000 SDWAADD2 EQU SDWANXT2+1 01518000 @NM00045 EQU SDWANXT2 01519000 @NM00044 EQU SDWAEC2+3 01520000 SDWASGN2 EQU SDWAINT2 01521000 SDWAEXP2 EQU SDWAINT2 01522000 SDWADEC2 EQU SDWAINT2 01523000 SDWAFPO2 EQU SDWAINT2 01524000 SDWACC2 EQU SDWAINT2 01525000 @NM00043 EQU SDWAINT2 01526000 SDWAPGM2 EQU SDWAMWP2 01527000 SDWAWAT2 EQU SDWAMWP2 01528000 SDWAMCK2 EQU SDWAMWP2 01529000 SDWAECT2 EQU SDWAMWP2 01530000 SDWAKEY2 EQU SDWAMWP2 01531000 SDWAEXT2 EQU SDWAEMK2 01532000 SDWAIO2 EQU SDWAEMK2 01533000 SDWATRM2 EQU SDWAEMK2 01534000 @NM00042 EQU SDWAEMK2 01535000 SDWAPER2 EQU SDWAEMK2 01536000 @NM00041 EQU SDWAEMK2 01537000 SDWATRAN EQU SDWAAEC1+4 01538000 SDWAIPC1 EQU SDWAICD1 01539000 SDWAIMC1 EQU SDWAICD1 01540000 SDWAIPR1 EQU SDWAICD1 01541000 @NM00040 EQU SDWAINC1 01542000 @NM00039 EQU SDWAILC1 01543000 SDWAIL1 EQU SDWAILC1 01544000 @NM00038 EQU SDWAILC1 01545000 @NM00037 EQU SDWAAEC1 01546000 SDWAADD1 EQU SDWANXT1+1 01547000 @NM00036 EQU SDWANXT1 01548000 @NM00035 EQU SDWAEC1+3 01549000 SDWASGN1 EQU SDWAINT1 01550000 SDWAEXP1 EQU SDWAINT1 01551000 SDWADEC1 EQU SDWAINT1 01552000 SDWAFPO1 EQU SDWAINT1 01553000 SDWACC1 EQU SDWAINT1 01554000 @NM00034 EQU SDWAINT1 01555000 SDWAPGM1 EQU SDWAMWP1 01556000 SDWAWAT1 EQU SDWAMWP1 01557000 SDWAMCK1 EQU SDWAMWP1 01558000 SDWAECT1 EQU SDWAMWP1 01559000 SDWAKEY1 EQU SDWAMWP1 01560000 SDWAEXT1 EQU SDWAEMK1 01561000 SDWAIO1 EQU SDWAEMK1 01562000 SDWATRM1 EQU SDWAEMK1 01563000 @NM00033 EQU SDWAEMK1 01564000 SDWAPER1 EQU SDWAEMK1 01565000 @NM00032 EQU SDWAEMK1 01566000 SDWAIOBR EQU SDWA+100 01567000 SDWAEPA EQU SDWA+96 01568000 @NM00031 EQU SDWANAME+4 01569000 SDWARBAD EQU SDWANAME 01570000 SDWAGR15 EQU SDWAGRSV+60 01571000 SDWAGR14 EQU SDWAGRSV+56 01572000 SDWAGR13 EQU SDWAGRSV+52 01573000 SDWAGR12 EQU SDWAGRSV+48 01574000 SDWAGR11 EQU SDWAGRSV+44 01575000 SDWAGR10 EQU SDWAGRSV+40 01576000 SDWAGR09 EQU SDWAGRSV+36 01577000 SDWAGR08 EQU SDWAGRSV+32 01578000 SDWAGR07 EQU SDWAGRSV+28 01579000 SDWAGR06 EQU SDWAGRSV+24 01580000 SDWAGR05 EQU SDWAGRSV+20 01581000 SDWAGR04 EQU SDWAGRSV+16 01582000 SDWAGR03 EQU SDWAGRSV+12 01583000 SDWAGR02 EQU SDWAGRSV+8 01584000 SDWAGR01 EQU SDWAGRSV+4 01585000 SDWAGR00 EQU SDWAGRSV 01586000 SDWANXTP EQU SDWACTL2+5 01587000 SDWASGP EQU SDWAPMKP 01588000 SDWAEUP EQU SDWAPMKP 01589000 SDWADOP EQU SDWAPMKP 01590000 SDWAFPP EQU SDWAPMKP 01591000 SDWACCP EQU SDWAPMKP 01592000 SDWAILP EQU SDWAPMKP 01593000 SDWAINTP EQU SDWACTL2+2 01594000 SDWASPVP EQU SDWAMWPP 01595000 SDWAWATP EQU SDWAMWPP 01596000 SDWAMCKP EQU SDWAMWPP 01597000 @NM00030 EQU SDWAMWPP 01598000 SDWAKEYP EQU SDWAMWPP 01599000 SDWAEXTP EQU SDWACMKP 01600000 SDWAIOP EQU SDWACMKP 01601000 SDWANXTA EQU SDWACTL1+5 01602000 SDWASGA EQU SDWAPMKA 01603000 SDWAEUA EQU SDWAPMKA 01604000 SDWADOA EQU SDWAPMKA 01605000 SDWAFPA EQU SDWAPMKA 01606000 SDWACCA EQU SDWAPMKA 01607000 SDWAILA EQU SDWAPMKA 01608000 SDWAINTA EQU SDWACTL1+2 01609000 SDWASPVA EQU SDWAMWPA 01610000 SDWAWATA EQU SDWAMWPA 01611000 SDWAMCKA EQU SDWAMWPA 01612000 @NM00029 EQU SDWAMWPA 01613000 SDWAKEYA EQU SDWAMWPA 01614000 SDWAEXTA EQU SDWACMKA 01615000 SDWAIOA EQU SDWACMKA 01616000 @NM00028 EQU SDWACMPF 01617000 SDWASTCC EQU SDWACMPF 01618000 @NM00027 EQU SDWACMPF 01619000 SDWASTEP EQU SDWACMPF 01620000 SDWAPARM EQU SDWA 01621000 CVTLEVL EQU CVTRELNO+2 01622000 CVTNUMB EQU CVTRELNO 01623000 CVTMDL EQU CVTFIX+250 01624000 @NM00002 EQU CVTFIX+248 01625000 @NM00001 EQU CVTFIX 01626000 CVTRV482 EQU CVTXTNT2+128 01627000 CVTRV481 EQU CVTXTNT2+124 01628000 CVTRV480 EQU CVTXTNT2+120 01629000 CVTRV479 EQU CVTXTNT2+118 01630000 CVTRV478 EQU CVTXTNT2+117 01631000 CVTRV477 EQU CVTXTNT2+116 01632000 CVTRV476 EQU CVTXTNT2+115 01633000 CVTRV475 EQU CVTXTNT2+114 01634000 CVTRV474 EQU CVTRV466 01635000 CVTRV473 EQU CVTRV466 01636000 CVTRV472 EQU CVTRV466 01637000 CVTRV471 EQU CVTRV466 01638000 CVTRV470 EQU CVTRV466 01639000 CVTRV469 EQU CVTRV466 01640000 CVTRV468 EQU CVTRV466 01641000 CVTRV467 EQU CVTRV466 01642000 CVTRV465 EQU CVTRV457 01643000 CVTRV464 EQU CVTRV457 01644000 CVTRV463 EQU CVTRV457 01645000 CVTRV462 EQU CVTRV457 01646000 CVTRV461 EQU CVTRV457 01647000 CVTRV460 EQU CVTRV457 01648000 CVTRV459 EQU CVTRV457 01649000 CVTRV458 EQU CVTRV457 01650000 CVTRV456 EQU CVTXTNT2+108 01651000 CVTRV455 EQU CVTXTNT2+104 01652000 CVTRV454 EQU CVTXTNT2+100 01653000 CVTRV453 EQU CVTXTNT2+96 01654000 CVTRV452 EQU CVTXTNT2+94 01655000 CVTRV451 EQU CVTXTNT2+92 01656000 CVTRV450 EQU CVTXTNT2+90 01657000 CVTRV449 EQU CVTXTNT2+88 01658000 CVTRV448 EQU CVTXTNT2+87 01659000 CVTRV447 EQU CVTXTNT2+86 01660000 CVTRV446 EQU CVTRV438 01661000 CVTRV445 EQU CVTRV438 01662000 CVTRV444 EQU CVTRV438 01663000 CVTRV443 EQU CVTRV438 01664000 CVTRV442 EQU CVTRV438 01665000 CVTRV441 EQU CVTRV438 01666000 CVTRV440 EQU CVTRV438 01667000 CVTRV439 EQU CVTRV438 01668000 CVTRV437 EQU CVTRV429 01669000 CVTRV436 EQU CVTRV429 01670000 CVTRV435 EQU CVTRV429 01671000 CVTRV434 EQU CVTRV429 01672000 CVTRV433 EQU CVTRV429 01673000 CVTRV432 EQU CVTRV429 01674000 CVTRV431 EQU CVTRV429 01675000 CVTRV430 EQU CVTRV429 01676000 CVTRV428 EQU CVTXTNT2+80 01677000 CVTRV427 EQU CVTXTNT2+76 01678000 CVTRV426 EQU CVTXTNT2+72 01679000 CVTRV425 EQU CVTXTNT2+68 01680000 CVTATACT EQU CVTATCVT 01681000 CVTRV423 EQU CVTXTNT2+62 01682000 CVTRV422 EQU CVTXTNT2+60 01683000 CVTRV421 EQU CVTXTNT2+58 01684000 CVTRV420 EQU CVTXTNT2+56 01685000 CVTRV419 EQU CVTXTNT2+55 01686000 CVTRV418 EQU CVTXTNT2+54 01687000 CVTRV417 EQU CVTRV409 01688000 CVTRV416 EQU CVTRV409 01689000 CVTRV415 EQU CVTRV409 01690000 CVTRV414 EQU CVTRV409 01691000 CVTRV413 EQU CVTRV409 01692000 CVTRV412 EQU CVTRV409 01693000 CVTRV411 EQU CVTRV409 01694000 CVTRV410 EQU CVTRV409 01695000 CVTRV408 EQU CVTRV400 01696000 CVTRV407 EQU CVTRV400 01697000 CVTRV406 EQU CVTRV400 01698000 CVTRV405 EQU CVTRV400 01699000 CVTRV404 EQU CVTRV400 01700000 CVTRV403 EQU CVTRV400 01701000 CVTRV402 EQU CVTRV400 01702000 CVTRV401 EQU CVTRV400 01703000 CVTRSVA1 EQU CVTXTNT2+48 01704000 CVTRSVA0 EQU CVTXTNT2+44 01705000 CVTRSV99 EQU CVTXTNT2+40 01706000 CVTRSV98 EQU CVTXTNT2+36 01707000 CVTRSV97 EQU CVTXTNT2+34 01708000 CVTRSV96 EQU CVTXTNT2+32 01709000 CVTOLTEP EQU CVTXTNT2+28 01710000 CVTQIDA EQU CVTQID+1 01711000 CVTRSV95 EQU CVTQID 01712000 CVTRSV94 EQU CVTXTNT2+20 01713000 CVTRSV93 EQU CVTXTNT2+16 01714000 CVTRSV92 EQU CVTXTNT2+12 01715000 CVTDEBVR EQU CVTXTNT2+8 01716000 CVTRSV91 EQU CVTXTNT2+6 01717000 CVTRSV9H EQU CVTRSV90 01718000 CVTRSV9G EQU CVTRSV90 01719000 CVTRSV9F EQU CVTRSV90 01720000 CVTRSV9E EQU CVTRSV90 01721000 CVTRSV9D EQU CVTRSV90 01722000 CVTRSV9C EQU CVTRSV90 01723000 CVTRSV9B EQU CVTRSV90 01724000 CVTRSV9A EQU CVTRSV90 01725000 CVTNUCLS EQU CVTXTNT2+4 01726000 CVTDSSVA EQU CVTDSSV+1 01727000 CVTRSV89 EQU CVTDSSV 01728000 CVTRSV88 EQU CVTXTNT1+8 01729000 CVTRSV87 EQU CVTXTNT1+4 01730000 CVTFACHN EQU CVTXTNT1 01731000 CVTRV488 EQU CVTMAP+412 01732000 CVTRV487 EQU CVTMAP+408 01733000 CVTRV486 EQU CVTMAP+404 01734000 CVTRV485 EQU CVTMAP+400 01735000 CVTRV484 EQU CVTMAP+396 01736000 CVTAUTH EQU CVTMAP+392 01737000 CVTATMCA EQU CVTATMCT+1 01738000 CVTATMST EQU CVTATMCT 01739000 CVTRSV61 EQU CVTMAP+384 01740000 CVTVOLT1 EQU CVTVOLM1+1 01741000 CVTVOLI1 EQU CVTVOLF1 01742000 CVTSTOA EQU CVTMAP+376 01743000 CVTRSV58 EQU CVTMAP+374 01744000 CVTRSV57 EQU CVTMAP+372 01745000 CVTDDCE EQU CVTMAP+368 01746000 CVTPNWFR EQU CVTMAP+364 01747000 CVTSMF EQU CVTMAP+360 01748000 CVTSULK EQU CVTMAP+358 01749000 CVTSLKO EQU CVTSYSK 01750000 CVTSLKP EQU CVTSYSK 01751000 CVTSLKQ EQU CVTSYSK 01752000 CVTSLKR EQU CVTSYSK 01753000 CVTRSV56 EQU CVTSYSK 01754000 CVTRSV55 EQU CVTSYSK 01755000 CVTRSV54 EQU CVTSYSK 01756000 CVTRSV53 EQU CVTSYSK 01757000 CVTRSV52 EQU CVTA1F1 01758000 CVTRSV51 EQU CVTA1F1 01759000 CVTRSV50 EQU CVTA1F1 01760000 CVTRSV49 EQU CVTA1F1 01761000 CVTRSV48 EQU CVTA1F1 01762000 CVTRSV47 EQU CVTA1F1 01763000 CVTSRSW EQU CVTA1F1 01764000 CVTPFSW EQU CVTA1F1 01765000 CVTPCVT EQU CVTMAP+352 01766000 CVTRSV46 EQU CVTMAP+344 01767000 CVTRSV45 EQU CVTMAP+340 01768000 CVTRSV44 EQU CVTMAP+338 01769000 CVTRSV43 EQU CVTMAP+336 01770000 CVTHJESA EQU CVTHJES+1 01771000 CVTRSV42 EQU CVTHJES 01772000 CVTEXT2A EQU CVTEXT2+1 01773000 CVTRSV41 EQU CVTEXT2 01774000 CVTAPFA EQU CVTAPF+1 01775000 CVTRSV40 EQU CVTAPF 01776000 CVTRV518 EQU CVTINTLA 01777000 CVTRV517 EQU CVTERPV 01778000 CVTEORM EQU CVTMAP+312 01779000 CVTMCHPR EQU CVTMAP+308 01780000 CVTTZ EQU CVTMAP+304 01781000 CVTJEPS EQU CVTMAP+300 01782000 CVTJESCT EQU CVTMAP+296 01783000 CVTMODE EQU CVTMAP+292 01784000 CVTPTRV EQU CVTMAP+288 01785000 CVTREAL EQU CVTMAP+284 01786000 CVTRSV39 EQU CVTMAP+280 01787000 CVTRSV38 EQU CVTMAP+276 01788000 CVTDMSRA EQU CVTDMSR+1 01789000 CVTRSV37 EQU CVTDMSR 01790000 CVTQMSGA EQU CVTQMSG+1 01791000 CVTRSV36 EQU CVTQMSG 01792000 CVTAMFF EQU CVTMAP+264 01793000 CVTPURGA EQU CVTPURG+1 01794000 CVTRSV35 EQU CVTPURG 01795000 CVTCBSP EQU CVTMAP+256 01796000 CVTATERA EQU CVTATER+1 01797000 CVTSYST EQU CVTATER 01798000 CVTVOLT2 EQU CVTTAT 01799000 CVTVOLI2 EQU CVTVOLF2 01800000 CVTAQAVB EQU CVTAQAVT+1 01801000 CVTRSV34 EQU CVTTCMFG 01802000 CVTRSV33 EQU CVTTCMFG 01803000 CVTRSV32 EQU CVTTCMFG 01804000 CVTRSV31 EQU CVTTCMFG 01805000 CVTRSV30 EQU CVTTCMFG 01806000 CVTRSV29 EQU CVTTCMFG 01807000 CVTRSV28 EQU CVTTCMFG 01808000 CVTTCRDY EQU CVTTCMFG 01809000 CVTGTFA EQU CVTGTF+1 01810000 CVTRSV27 EQU CVTGTFST 01811000 CVTRNIO EQU CVTGTFST 01812000 CVTRV319 EQU CVTUSR 01813000 CVTRV318 EQU CVTFORM 01814000 CVTRV317 EQU CVTTMODE 01815000 CVTRV316 EQU CVTSTATE 01816000 CVTRV315 EQU CVTGTFS 01817000 CVTGTFAV EQU CVTGTFS 01818000 CVT0SCR1 EQU CVTMAP+232 01819000 CVTRV515 EQU CVTMAP+228 01820000 CVTRMS EQU CVTMAP+224 01821000 CVTPATCH EQU CVTMAP+220 01822000 CVTTSCE EQU CVTMAP+216 01823000 CVTLNKSC EQU CVTMAP+214 01824000 CVTQABST EQU CVTMAP+212 01825000 CVTMDLDS EQU CVTMAP+208 01826000 CVTUSER EQU CVTMAP+204 01827000 CVTABEND EQU CVTMAP+200 01828000 CVTSMCA EQU CVTMAP+196 01829000 CVTRSV18 EQU CVTMAP+192 01830000 CVTQLPAQ EQU CVTMAP+188 01831000 CVTQCDSR EQU CVTMAP+184 01832000 CVTRSV17 EQU CVTOPTB 01833000 CVTRSV16 EQU CVTOPTB 01834000 CVTFP EQU CVTOPTB 01835000 CVTAPTHR EQU CVTOPTB 01836000 CVTNLOG EQU CVTOPTB 01837000 CVTTOD EQU CVTOPTB 01838000 CVTCTIMS EQU CVTOPTB 01839000 CVTPROT EQU CVTOPTB 01840000 CVTXPFP EQU CVTOPTA 01841000 CVTASCII EQU CVTOPTA 01842000 CVTRSV13 EQU CVTOPTA 01843000 CVTRSV12 EQU CVTOPTA 01844000 CVTNIP EQU CVTOPTA 01845000 CVTDDR EQU CVTOPTA 01846000 CVTAPR EQU CVTOPTA 01847000 CVTCCH EQU CVTOPTA 01848000 CVTSNCTR EQU CVTMAP+180 01849000 CVTQMWR EQU CVTMAP+176 01850000 CVTQOCR EQU CVTMAP+172 01851000 CVT1EF00 EQU CVTMAP+168 01852000 CVTMZ00 EQU CVTMAP+164 01853000 CVTHEAD EQU CVTMAP+160 01854000 CVTRSV11 EQU CVTMAP+156 01855000 CVT0PT01 EQU CVTMAP+152 01856000 CVTMSER EQU CVTMAP+148 01857000 CVTRV516 EQU CVTIERLC 01858000 CVTILCH EQU CVTMAP+140 01859000 CVT0DS EQU CVTMAP+136 01860000 CVTFBOSV EQU CVTMAP+132 01861000 CVTNUCB EQU CVTMAP+128 01862000 CVTIXAVL EQU CVTMAP+124 01863000 CVTIOQET EQU CVTMAP+120 01864000 CVTDCBA EQU CVTMAP+117 01865000 CVTMVS2 EQU CVTDCB 01866000 CVT6DAT EQU CVTDCB 01867000 CVT4MPS EQU CVTDCB 01868000 CVTRSV09 EQU CVTDCB 01869000 CVT4MS1 EQU CVTDCB 01870000 CVT2SPS EQU CVTDCB 01871000 CVT1SSS EQU CVTDCB 01872000 CVTRSV08 EQU CVTDCB 01873000 CVTSTB EQU CVTMAP+112 01874000 CVTQTD00 EQU CVTMAP+108 01875000 CVTQTE00 EQU CVTMAP+104 01876000 CVTCUCB EQU CVTMAP+100 01877000 CVTSJQ EQU CVTMAP+96 01878000 CVTPBLDL EQU CVTMAP+92 01879000 CVTTPC EQU CVTMAP+88 01880000 CVTSVDCB EQU CVTMAP+84 01881000 CVTBRET EQU CVTMAP+82 01882000 CVTEXIT EQU CVTMAP+80 01883000 CVT0FN00 EQU CVTMAP+76 01884000 CVTDARA EQU CVTDAR+1 01885000 CVTRSV07 EQU CVTFLGS1 01886000 CVTRSV06 EQU CVTFLGS1 01887000 CVTRSV05 EQU CVTFLGS1 01888000 CVTRSV04 EQU CVTFLGS1 01889000 CVTRSV03 EQU CVTFLGS1 01890000 CVTRSV02 EQU CVTFLGS1 01891000 CVTRSV01 EQU CVTFLGS1 01892000 CVTDMPLK EQU CVTFLGS1 01893000 CVTXITP EQU CVTMAP+68 01894000 CVTZDTAB EQU CVTMAP+64 01895000 CVTMSLT EQU CVTMAP+60 01896000 CVTDATE EQU CVTMAP+56 01897000 CVTBTERM EQU CVTMAP+52 01898000 CVTSYSAD EQU CVTMAP+48 01899000 CVTXTLER EQU CVTMAP+44 01900000 CVTILK2 EQU CVTMAP+40 01901000 CVTILK1 EQU CVTMAP+36 01902000 CVTPRLTV EQU CVTMAP+32 01903000 CVTPCNVT EQU CVTMAP+28 01904000 CVT0VL00 EQU CVTMAP+24 01905000 CVTXAPG EQU CVTMAP+20 01906000 CVTBUF EQU CVTMAP+16 01907000 CVTJOB EQU CVTMAP+12 01908000 CVTLINK EQU CVTMAP+8 01909000 CVT0EF00 EQU CVTMAP+4 01910000 CVTTCBP EQU CVTMAP 01911000 CVT EQU CVTMAP 01912000 @NM00026 EQU PSA+3412 01913000 PSASTAK EQU PSA+3072 01914000 @NM00025 EQU PSA+1032 01915000 PSAUSEND EQU PSA+1032 01916000 PSAPCPSW EQU PSA+1024 01917000 PSARV060 EQU PSA+1020 01918000 PSARV059 EQU PSA+1018 01919000 PSASVC13 EQU PSA+1016 01920000 PSALSFCC EQU PSA+1012 01921000 PSASFACC EQU PSA+1008 01922000 PSASTOP EQU PSA+992 01923000 PSASTART EQU PSA+976 01924000 PSARSPSW EQU PSA+968 01925000 PSASRPSW EQU PSA+960 01926000 PSARV045 EQU PSA+892 01927000 PSARV044 EQU PSA+888 01928000 PSARV043 EQU PSA+884 01929000 PSARV042 EQU PSA+880 01930000 PSARV041 EQU PSA+876 01931000 PSARV040 EQU PSA+872 01932000 PSARV025 EQU PSA+868 01933000 PSADSSED EQU PSA+868 01934000 PSADSSPR EQU PSA+864 01935000 PSADSSFW EQU PSA+860 01936000 PSADSS14 EQU PSA+856 01937000 PSADSSPP EQU PSA+848 01938000 PSADSSRP EQU PSA+840 01939000 PSADSS05 EQU PSADSSF4 01940000 PSADSS10 EQU PSADSSF4 01941000 PSADSSVE EQU PSADSSF4 01942000 PSADSSDE EQU PSADSSF4 01943000 PSADSSC0 EQU PSADSSF4 01944000 PSADSSIE EQU PSADSSF4 01945000 PSADSS12 EQU PSADSSF4 01946000 PSADSSRC EQU PSADSSF4 01947000 PSARV057 EQU PSADSSF3 01948000 PSARV056 EQU PSADSSF3 01949000 PSARV055 EQU PSADSSF3 01950000 PSARV054 EQU PSADSSF3 01951000 PSADSSRW EQU PSADSSF3 01952000 PSADSSNM EQU PSADSSF3 01953000 PSADSSES EQU PSADSSF3 01954000 PSADSSGP EQU PSADSSF3 01955000 PSADSSF2 EQU PSADSSFL+1 01956000 PSADSSPI EQU PSADSSF1 01957000 PSADSSOI EQU PSADSSF1 01958000 PSADSSSP EQU PSADSSF1 01959000 PSADSSTP EQU PSADSSF1 01960000 PSADSSDW EQU PSADSSF1 01961000 PSADSSDD EQU PSADSSF1 01962000 PSADSSDM EQU PSADSSF1 01963000 PSADSSMV EQU PSADSSF1 01964000 PSADSSTS EQU PSA+816 01965000 PSADSSWK EQU PSA+812 01966000 PSADSSR3 EQU PSA+808 01967000 PSADSSR2 EQU PSA+804 01968000 PSADSSRS EQU PSA+800 01969000 PSASTOR EQU PSA+796 01970000 PSACPUSA EQU PSA+794 01971000 PSAVSTAP EQU PSA+792 01972000 PSAWKVAP EQU PSA+788 01973000 PSAWKRAP EQU PSA+784 01974000 PSAMCHIC EQU PSA+783 01975000 PSARV061 EQU PSA+782 01976000 PSASYMSK EQU PSA+781 01977000 PSAMCHFL EQU PSA+780 01978000 PSACR0 EQU PSA+776 01979000 PSAPSWSV EQU PSA+768 01980000 PSACLHS EQU PSAHLHI 01981000 PSALKR15 EQU PSALKSA+60 01982000 PSALKR14 EQU PSALKSA+56 01983000 PSALKR13 EQU PSALKSA+52 01984000 PSALKR12 EQU PSALKSA+48 01985000 PSALKR11 EQU PSALKSA+44 01986000 PSALKR10 EQU PSALKSA+40 01987000 PSALKR9 EQU PSALKSA+36 01988000 PSALKR8 EQU PSALKSA+32 01989000 PSALKR7 EQU PSALKSA+28 01990000 PSALKR6 EQU PSALKSA+24 01991000 PSALKR5 EQU PSALKSA+20 01992000 PSALKR4 EQU PSALKSA+16 01993000 PSALKR3 EQU PSALKSA+12 01994000 PSALKR2 EQU PSALKSA+8 01995000 PSALKR1 EQU PSALKSA+4 01996000 PSALKR0 EQU PSALKSA 01997000 PSARV023 EQU PSACLHT+52 01998000 PSALOCAL EQU PSACLHT+48 01999000 PSACMSL EQU PSACLHT+44 02000000 PSAOPTL EQU PSACLHT+40 02001000 PSATPACL EQU PSACLHT+36 02002000 PSATPDNL EQU PSACLHT+32 02003000 PSATPNCL EQU PSACLHT+28 02004000 PSAIOSLL EQU PSACLHT+24 02005000 PSAIOSUL EQU PSACLHT+20 02006000 PSAIOSCL EQU PSACLHT+16 02007000 PSAIOSSL EQU PSACLHT+12 02008000 PSASALCL EQU PSACLHT+8 02009000 PSAASML EQU PSACLHT+4 02010000 PSADISPL EQU PSACLHT 02011000 PSASRSA EQU PSA+636 02012000 PSARV050 EQU PSA+634 02013000 PSADSSGO EQU PSA+633 02014000 PSARECUR EQU PSA+632 02015000 PSAHLHIS EQU PSA+628 02016000 PSAIPCSA EQU PSA+624 02017000 @NM00024 EQU PSA+621 02018000 PSAIPCDM EQU PSA+620 02019000 PSAIPCD EQU PSA+616 02020000 @NM00023 EQU PSA+613 02021000 PSAIPCRM EQU PSA+612 02022000 PSAIPCR EQU PSA+608 02023000 PSAMCHEX EQU PSA+600 02024000 PSAMPSW EQU PSA+592 02025000 PSAEXPS2 EQU PSA+584 02026000 PSAEXPS1 EQU PSA+576 02027000 PSAPIREG EQU PSA+572 02028000 PSARSREG EQU PSA+568 02029000 PSAGPREG EQU PSA+556 02030000 PSARV022 EQU PSASUP4 02031000 PSARV021 EQU PSASUP4 02032000 PSARV020 EQU PSASUP4 02033000 PSARV019 EQU PSASUP4 02034000 PSARV018 EQU PSASUP4 02035000 PSARV017 EQU PSASUP4 02036000 PSARV016 EQU PSASUP4 02037000 PSARV015 EQU PSASUP4 02038000 PSARV014 EQU PSASUP3 02039000 PSARV013 EQU PSASUP3 02040000 PSARV012 EQU PSASUP3 02041000 PSARV011 EQU PSASUP3 02042000 PSARV010 EQU PSASUP3 02043000 PSARV009 EQU PSASUP3 02044000 PSARV008 EQU PSASUP3 02045000 PSAIOSUP EQU PSASUP3 02046000 PSALCR EQU PSASUP2 02047000 PSARTM EQU PSASUP2 02048000 PSAACR EQU PSASUP2 02049000 PSAIPCE2 EQU PSASUP2 02050000 PSAIPCES EQU PSASUP2 02051000 PSAIPCEC EQU PSASUP2 02052000 PSAGTF EQU PSASUP2 02053000 PSAIPCRI EQU PSASUP2 02054000 PSAIPCRP EQU PSASUP1 02055000 PSAIPCDR EQU PSASUP1 02056000 PSADISP EQU PSASUP1 02057000 PSALOCK EQU PSASUP1 02058000 PSAPI EQU PSASUP1 02059000 PSAEXT EQU PSASUP1 02060000 PSASVC EQU PSASUP1 02061000 PSAIO EQU PSASUP1 02062000 PSAAOLD EQU PSA+548 02063000 PSAANEW EQU PSA+544 02064000 PSATOLD EQU PSA+540 02065000 PSATNEW EQU PSA+536 02066000 PSALCCAR EQU PSA+532 02067000 PSALCCAV EQU PSA+528 02068000 PSAPCCAR EQU PSA+524 02069000 PSAPCCAV EQU PSA+520 02070000 PSACPULA EQU PSA+518 02071000 PSACPUPA EQU PSA+516 02072000 PSAPSA EQU PSA+512 02073000 FLCHDEND EQU PSA+512 02074000 FLCCRSAV EQU FLCMCLA+280 02075000 FLCGRSAV EQU FLCMCLA+216 02076000 FLCFPSAV EQU FLCMCLA+184 02077000 FLCFLA EQU FLCMCLA+88 02078000 FLCRGNCD EQU FLCMCLA+84 02079000 FLCFSAA EQU FLCFSA+1 02080000 @NM00022 EQU FLCFSA 02081000 @NM00021 EQU FLCMCLA+72 02082000 FLCMCIC EQU FLCMCLA+64 02083000 @NM00020 EQU FLCMCLA+20 02084000 FLCIOAA EQU FLCIOA+1 02085000 @NM00019 EQU FLCIOA 02086000 @NM00018 EQU FLCMCLA+15 02087000 @NM00017 EQU FLCMCLA+14 02088000 @NM00016 EQU FLCMCLA+12 02089000 FLCLCL EQU FLCMCLA+8 02090000 FLCIOELA EQU FLCIOEL+1 02091000 @NM00015 EQU FLCIOEL 02092000 FLCCHNID EQU FLCMCLA 02093000 @NM00014 EQU PSA+160 02094000 FLCMTRCD EQU PSA+157 02095000 @NM00013 EQU PSA+156 02096000 FLCPERA EQU FLCPER+1 02097000 @NM00012 EQU FLCPER 02098000 @NM00011 EQU PSA+151 02099000 FLCPERCD EQU PSA+150 02100000 FLCMCNUM EQU PSA+149 02101000 @NM00010 EQU PSA+148 02102000 FLCTEAA EQU FLCTEA+1 02103000 @NM00009 EQU FLCTEA 02104000 PSAPIPC EQU PSAPICOD 02105000 PSAPIMC EQU PSAPICOD 02106000 PSAPIPER EQU PSAPICOD 02107000 PSARV049 EQU FLCPICOD 02108000 FLCPILCB EQU FLCPIILC 02109000 @NM00008 EQU FLCPIILC 02110000 @NM00007 EQU PSAEPPSW 02111000 FLCSVCN EQU PSAESPSW+2 02112000 FLCSILCB EQU FLCSVILC 02113000 @NM00006 EQU FLCSVILC 02114000 @NM00005 EQU PSAESPSW 02115000 FLCEICOD EQU PSAEEPSW+2 02116000 PSASPAD EQU PSAEEPSW 02117000 @NM00004 EQU PSA+128 02118000 FLCINPSW EQU PSA+120 02119000 FLCMNPSW EQU PSA+112 02120000 FLCPNPSW EQU PSA+104 02121000 FLCSNPSW EQU PSA+96 02122000 FLCENPSW EQU PSA+88 02123000 FLCTRACE EQU PSA+84 02124000 FLCTIMER EQU PSA+80 02125000 FLCCVT2 EQU PSA+76 02126000 FLCCAW EQU PSA+72 02127000 FLCCSW EQU PSA+64 02128000 FLCIOPSW EQU PSA+56 02129000 FLCMOPSW EQU PSA+48 02130000 FLCPOPSW EQU PSA+40 02131000 FLCSOPSW EQU PSA+32 02132000 FLCEOPSW EQU PSA+24 02133000 @NM00003 EQU FLCICCW2+4 02134000 FLCICCW1 EQU FLCROPSW 02135000 FLCIPPSW EQU FLCRNPSW 02136000 * END UNREFERENCED COMPONENTS 02137000 @RT00034 EQU TR0300 02138000 @RT00036 EQU TR0200 02139000 @RT00084 EQU TR0300 02140000 @RT00154 EQU TR0000 02141000 @ENDDATA EQU * 02142000 END IRBMFTRM,(C'PL/S-II',0502,74087) 02143000