TJDD TITLE 'IGTJDD - END OF ADDRESS SPACE FOR MONITOR. *00001000 ' 00002000 * /* DEFINE GET DYNAMIC AREA MACRO. */ 00003000 MACRO 00004000 &LAB JDDGSV &R,&LV= 00005000 &LAB L R2P,20(,R13P) PTR TO SSCT FROM SAVEAREA (R0). 00006000 L APCTPTR,SSCTSUSE-SSCT(,R2P) PTR TO THE APCT 00007000 IGTYGSV R,LV=&LV,INITIAL=YES GET STORAGE. 00008000 MEND 00009000 IGTJDD CSECT , 01S0002 00010000 @MAINENT DS 0H 01S0002 00011000 USING *,@15 01S0002 00012000 B @PROLOG 01S0002 00013000 DC AL1(16) 01S0002 00014000 DC C'IGTJDD 77.092' 01S0002 00015000 DROP @15 00016000 @PROLOG STM @14,@12,12(@13) 01S0002 00017000 BALR @07,0 01S0002 00018000 @PSTART DS 0H 01S0002 00019000 USING @PSTART,@07 01S0002 00020000 L @00,@SIZDATD 01S0002 00021000 JDDGSV R,LV=(0) 00022000 LR @06,@01 01S0002 00023000 USING @DATD,@06 01S0002 00024000 ST @13,@SA00001+4 01S0002 00025000 LM @00,@01,20(@13) 01S0002 00026000 ST @06,8(,@13) 01S0002 00027000 LR @13,@06 01S0002 00028000 * /* PURPOSE IS TO GIVE REFS TO SYMS */ 00029000 * SSOBPTR=R1P; /* ADDRESS OF SSOB. */ 00030000 LR SSOBPTR,R1P 01S0079 00031000 * APCTWARM=ON; /* WARM START MAY OCCUR. */ 00032000 * APCTACT=OFF; /* RESET MONITOR ACTIVE 01S0081 00033000 * INDICATOR. */ 00034000 L @02,APCTWARM(,APCTPTR) 01S0081 00035000 @GL00001 LR @15,@02 01S0081 00036000 N @15,@CB00745 01S0081 00037000 O @15,@CB00745+4 01S0081 00038000 CS @02,@15,APCTWARM(APCTPTR) 01S0081 00039000 BNE @GL00001 01S0081 00040000 * APVUMON(SSENASID)=OFF; /* RESET MONITOR FLAG. */ 00041000 L @10,SSOBINDV(,SSOBPTR) 01S0082 00042000 LH @10,SSENASID(,@10) 01S0082 00043000 SLA @10,2 01S0082 00044000 L @01,APCTAPVU(,APCTPTR) 01S0082 00045000 ALR @01,@10 01S0082 00046000 LA @14,APVUMON-4(,@01) 01S0082 00047000 LR @11,@14 01S0082 00048000 LA @02,3 01S0082 00049000 NR @11,@02 01S0082 00050000 LCR @11,@11 01S0082 00051000 ALR @14,@11 01S0082 00052000 L @02,0(,@14) 01S0082 00053000 @GL00002 LR @15,@02 01S0082 00054000 N @15,@CB00750+3(@11) 01S0082 00055000 CS @02,@15,0(@14) 01S0082 00056000 BNE @GL00002 01S0082 00057000 * OUTBUF(1:LEN252+4)= /* MOVE THE MESSAGE INTO THE */ 00058000 * MSG252I(1:LEN252+4); /* OUTPUT AREA. */ 00059000 L @01,APCTZDMM(,APCTPTR) 01S0083 00060000 L @15,MSG1PTR+172(,@01) 01S0083 00061000 LA @14,3 01S0083 00062000 AH @14,LEN252(,@15) 01S0083 00063000 EX @14,@SM00754 01S0083 00064000 * OUTBUF(14:17)=APCTSSID; /* MOVE SSID INTO MESSAGE. */ 00065000 MVC OUTBUF+13(4),APCTSSID(APCTPTR) 01S0084 00066000 * GEN REFS(OUTBUF)(WTO MF=(E,OUTBUF));/* WRITE THE MESSAGE. */ 00067000 WTO MF=(E,OUTBUF) 00068000 * OUTBUF(1:LEN206+4)= /* MOVE THE MESSAGE INTO THE */ 00069000 * MSG206I(1:LEN206+4); /* OUTPUT AREA. */ 00070000 L @01,APCTZDMM(,APCTPTR) 01S0086 00071000 L @15,MSG2PTR+28(,@01) 01S0086 00072000 LA @14,3 01S0086 00073000 AH @14,LEN206(,@15) 01S0086 00074000 EX @14,@SM00756 01S0086 00075000 * OUTBUF(14:17)=APCTSSID; /* MOVE SSID INTO MESSAGE. */ 00076000 MVC OUTBUF+13(4),APCTSSID(APCTPTR) 01S0087 00077000 * GEN REFS(OUTBUF)(WTO MF=(E,OUTBUF));/* WRITE THE MESSAGE. */ 00078000 WTO MF=(E,OUTBUF) 00079000 * RETURN CODE(0); /* RETURN TO CALLER. */ 00080000 L @13,4(,@13) 01S0089 00081000 L @00,@SIZDATD 01S0089 00082000 LR @01,@06 01S0089 00083000 IGTYFSV R,LV=(0),A=(1) 00084000 SLR @15,@15 01S0089 00085000 L @14,12(,@13) 01S0089 00086000 LM @00,@12,20(@13) 01S0089 00087000 BR @14 01S0089 00088000 * /* IGTXEPLG */ 00089000 * 01S0090 00090000 * /*****************************************************************/ 00091000 * /* */ 00092000 * /* SYSTEM DECLARES */ 00093000 * /* */ 00094000 * /*****************************************************************/ 00095000 * 01S0090 00096000 * DECLARE /* COMMON VARIABLES */ 00097000 * I256C CHAR(256) BASED, 01S0090 00098000 * I031F FIXED(31) BASED, 01S0090 00099000 * I031P PTR(31) BASED, 01S0090 00100000 * I015F FIXED(15) BASED, 01S0090 00101000 * I015P PTR(15) BASED, 01S0090 00102000 * I008P PTR(8) BASED, 01S0090 00103000 * I001C CHAR(1) BASED; 01S0090 00104000 * 01S0091 00105000 * /*****************************************************************/ 00106000 * /* */ 00107000 * /* MODULE PATCH AREA */ 00108000 * /* */ 00109000 * /*****************************************************************/ 00110000 * 01S0091 00111000 * DCL 01S0091 00112000 * APPATCH CHAR(*) INT STATIC LOCAL GEND; 01S0091 00113000 * GENERATE DATA DEFS(APPATCH); 01S0092 00114000 * 01S0093 00115000 * /*****************************************************************/ 00116000 * /* */ 00117000 * /* GENERAL REGISTER DECLARES */ 00118000 * /* */ 00119000 * /*****************************************************************/ 00120000 * 01S0093 00121000 * DCL 01S0093 00122000 * R0F FIXED(31) REG(0), 01S0093 00123000 * R0P PTR(24) REG(0), 01S0093 00124000 * R0RSTD PTR(31) REG(0), 01S0093 00125000 * R1F FIXED(31) REG(1), 01S0093 00126000 * R1P PTR(24) REG(1), 01S0093 00127000 * R1RSTD PTR(31) REG(1), 01S0093 00128000 * R2F FIXED(31) REG(2), 01S0093 00129000 * R2P PTR(24) REG(2), 01S0093 00130000 * R2RSTD PTR(31) REG(2), 01S0093 00131000 * R3F FIXED(31) REG(3), 01S0093 00132000 * R3P PTR(24) REG(3), 01S0093 00133000 * R3RSTD PTR(31) REG(3), 01S0093 00134000 * R4F FIXED(31) REG(4), 01S0093 00135000 * R4P PTR(24) REG(4), 01S0093 00136000 * R4RSTD PTR(31) REG(4), 01S0093 00137000 * R5F FIXED(31) REG(5), 01S0093 00138000 * R5P PTR(24) REG(5), 01S0093 00139000 * R5RSTD PTR(31) REG(5), 01S0093 00140000 * R6F FIXED(31) REG(6), 01S0093 00141000 * R6P PTR(24) REG(6), 01S0093 00142000 * R6RSTD PTR(31) REG(6), 01S0093 00143000 * R7F FIXED(31) REG(7), 01S0093 00144000 * R7P PTR(24) REG(7), 01S0093 00145000 * R7RSTD PTR(31) REG(7), 01S0093 00146000 * R8F FIXED(31) REG(8), 01S0093 00147000 * R8P PTR(24) REG(8), 01S0093 00148000 * R8RSTD PTR(31) REG(8), 01S0093 00149000 * R9F FIXED(31) REG(9), 01S0093 00150000 * R9P PTR(24) REG(9), 01S0093 00151000 * R9RSTD PTR(31) REG(9), 01S0093 00152000 * R10F FIXED(31) REG(10), 01S0093 00153000 * R10P PTR(24) REG(10), 01S0093 00154000 * R10RSTD PTR(31) REG(10), 01S0093 00155000 * R11F FIXED(31) REG(11), 01S0093 00156000 * R11P PTR(24) REG(11), 01S0093 00157000 * R11RSTD PTR(31) REG(11), 01S0093 00158000 * R12F FIXED(31) REG(12), 01S0093 00159000 * R12P PTR(24) REG(12), 01S0093 00160000 * R12RSTD PTR(31) REG(12), 01S0093 00161000 * R13F FIXED(31) REG(13), 01S0093 00162000 * R13P PTR(24) REG(13), 01S0093 00163000 * R13RSTD PTR(31) REG(13), 01S0093 00164000 * R14F FIXED(31) REG(14), 01S0093 00165000 * R14P PTR(24) REG(14), 01S0093 00166000 * R14RSTD PTR(31) REG(14), 01S0093 00167000 * R15F FIXED(31) REG(15), 01S0093 00168000 * R15P PTR(24) REG(15), 01S0093 00169000 * R15RSTD PTR(31) REG(15), 01S0093 00170000 * 01S0093 00171000 * /***************************************************************/ 00172000 * /* */ 00173000 * /* VPSS CONTROL BLOCK POINTER DECLARES */ 00174000 * /* */ 00175000 * /***************************************************************/ 00176000 * 01S0093 00177000 * APSMPTR PTR(24) REG(01), /* STORAGE MANAGEMENT BLOCK 01S0093 00178000 * (SUGGESTED POINTER) */ 00179000 * APSCPTR PTR(24) REG(01), /* STORAGE MANAGEMENT CONTROL 00180000 * WORD (SUGGESTED POINTER) */ 00181000 * APINPTR PTR(24) REG(01), /* USER'S INPUT PARAMETER LIST 00182000 * (SUGGESTED POINTER) */ 00183000 */* */ 00184000 * 01S0093 00185000 * APDATA PTR(24) REG(06), /* ADDRESS OF DYNAMIC DATA 01S0093 00186000 * WORKAREA (DATAREG) */ 00187000 * APCODE PTR(24) REG(07), /* PROGRAM CODE BASE REGISTER 00188000 * (CODEREG) */ 00189000 * APDEBPTR PTR(24) REG(08), /* VPSS DEB (SUGGESTED POINTER) */ 00190000 * APNPPTR PTR(24) REG(08), /* SUBSYSTEM INITIALIZATION 01S0093 00191000 * WORKAREA BLOCK (ONLY USED BY 00192000 * SUBSYSTEM INITIALIZATION) */ 00193000 * APRLPTR PTR(24) REG(08), /* VPSS ACB REQUEST LIST 01S0093 00194000 * (SUGGESTED POINTER) */ 00195000 * APCIPTR PTR(24) REG(08), /* 3838 CONTROL TABLE (SUGGESTED 00196000 * POINTER) */ 00197000 * APCWPTR PTR(24) REG(08), /* CALL INTERFACE WORKAREA 01S0093 00198000 * (SUGGESTED POINTER) */ 00199000 * APERPTR PTR(24) REG(08), /* ERP/IO APPENDAGE WORKAREA 00200000 * (SUGGESTED POINTER) */ 00201000 * APACBPTR PTR(24) REG(09), /* VPSS ACB (SUGGESTED POINTER) */ 00202000 * APCQPTR PTR(24) REG(09), /* COMMAND QUEUE ELEMENT 01S0093 00203000 * (SUGGESTED POINTER) */ 00204000 * APOTPTR PTR(24) REG(09), /* OPTION TABLE (SUGGESTED 01S0093 00205000 * POINTER) */ 00206000 * APIOPTR PTR(24) REG(10), /* I/O ELEMENT (SUGGESTED 01S0093 00207000 * POINTER) */ 00208000 * APEXLPTR PTR(24) REG(10), /* VPSS EXLST (SUGGESTED POINTER)*/ 00209000 * APUBPTR PTR(24) REG(10), /* UNIT BLOCK (SUGGESTED POINTER)*/ 00210000 * APAXPTR PTR(24) REG(10), /* VPSS ACB EXTENSION (SUGGESTED 00211000 * POINTER) */ 00212000 * APCPPTR PTR(24) REG(10), /* VPSS CALL PROCESSING 01S0093 00213000 * INDICATORS (SUGGESTED POINTER)*/ 00214000 * APOCPTR PTR(24) REG(10), /* VPSS OPEN/CLOSE SUBSYSTEM 00215000 * WORKAREA (REQUIRED POINTER) */ 00216000 * APATPTR PTR(24) REG(11), /* VPSS ACB TABLE (SUGGESTED 00217000 * POINTER) */ 00218000 * APLBPTR PTR(24) REG(11), /* LABEL RESOLUTION TABLE 01S0093 00219000 * (SUGGESTED POINTER) */ 00220000 * APUTPTR PTR(24) REG(11), /* USER TABLE (SUGGESTED POINTER)*/ 00221000 * APDSPTR PTR(24) REG(11), /* VPSS DATASET ENTRY (SUGGESTED 00222000 * POINTER) */ 00223000 * APXLPTR PTR(24) REG(11), /* TRANSLATION TABLE (SUGGESTED 00224000 * POINTER) */ 00225000 * APDXPTR PTR(24) REG(11), /* VPSS DEB EXTENSION (SUGGESTED 00226000 * POINTER) */ 00227000 * APCTPTR PTR(24) REG(12) RSTD, /* CONTROL TABLE (REQUIRED 01S0093 00228000 * POINTER) */ 00229000 * APSVPTR PTR(24) REG(13) RSTD, /* OS/VPSS SAVEAREA/WORKAREA 00230000 * (REQUIRED POINTER) */ 00231000 * APRETURN PTR(24) REG(14), /* RETURN ADDRESS FOR SUBROUTINE 00232000 * LINKAGE */ 00233000 * APENTRY PTR(24) REG(15), /* SUBROUTINE ENTRY POINT LINKAGE*/ 00234000 * APRCODE PTR(24) REG(15); /* CONTAINS SUBROUTINE RETURN 00235000 * CODE */ 00236000 * 01S0094 00237000 * /*****************************************************************/ 00238000 * /* */ 00239000 * /* USER REGISTER DECLARES */ 00240000 * /* */ 00241000 * /*****************************************************************/ 00242000 * 01S0094 00243000 * END 01S0094 00244000 * 01S0094 00245000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00246000 */*%INCLUDE SYSLIB (IGTXAPCT) */ 00247000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00248000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00249000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00250000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00251000 */*%INCLUDE SYSLIB (IGTXAPCV) */ 00252000 */*%INCLUDE SYSLIB (IGTXAPSV) */ 00253000 */*%INCLUDE SYSLIB (IEFJSCVT) */ 00254000 */*%INCLUDE SYSLIB (IGTXAPMM) */ 00255000 */*%INCLUDE SYSLIB (IEFJSSOB) */ 00256000 */*%INCLUDE SYSLIB (IGTXAPVU) */ 00257000 * 01S0094 00258000 * ; 01S0094 00259000 @EL00001 L @13,4(,@13) 01S0094 00260000 @EF00001 L @00,@SIZDATD 01S0094 00261000 LR @01,@06 01S0094 00262000 IGTYFSV R,LV=(0),A=(1) 00263000 @ER00001 LM @14,@12,12(@13) 01S0094 00264000 BR @14 01S0094 00265000 @DATA DS 0H 00266000 @SM00754 MVC OUTBUF(0),MSG252I(@15) 00267000 @SM00756 MVC OUTBUF(0),MSG206I(@15) 00268000 @DATD DSECT 00269000 DS 0F 00270000 @SA00001 DS 20F 00271000 IGTJDD CSECT 00272000 DS 0F 00273000 @DATD DSECT 00274000 DS 0D 00275000 SSCTPTR DS A 00276000 OUTBUF DS CL100 00277000 IGTJDD CSECT 00278000 DS 0F 00279000 @SIZDATD DC AL1(0) 00280000 DC AL3(@ENDDATD-@DATD) 00281000 DS 0D 00282000 @CB00745 DC B'011111111111111111111111111111110000010000000000000000C00283000 0000000000' 00284000 @CB00750 DC B'111111111111111111111111101111111111111111111111111111C00285000 11' 00286000 IGTJDD CSECT 00287000 * /* GENERATE PATCH 00288000 IGTXZAP , GENERATE PATCH AREA 00289000 @DATD DSECT 00290000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00291000 @ENDDATD EQU * 00292000 IGTJDD CSECT 00293000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00294000 @01 EQU 01 00295000 @02 EQU 02 00296000 @03 EQU 03 00297000 @04 EQU 04 00298000 @05 EQU 05 00299000 @06 EQU 06 00300000 @07 EQU 07 00301000 @08 EQU 08 00302000 @09 EQU 09 00303000 @10 EQU 10 00304000 @11 EQU 11 00305000 @12 EQU 12 00306000 @13 EQU 13 00307000 @14 EQU 14 00308000 @15 EQU 15 00309000 SSOBPTR EQU @03 00310000 APDATA EQU @06 00311000 APCODE EQU @07 00312000 APCTPTR EQU @12 00313000 APSVPTR EQU @13 00314000 R1P EQU @01 00315000 APACBPTR EQU @09 00316000 APATPTR EQU @11 00317000 APAXPTR EQU @10 00318000 APCIPTR EQU @08 00319000 APCPPTR EQU @10 00320000 APCQPTR EQU @09 00321000 APCWPTR EQU @08 00322000 APDEBPTR EQU @08 00323000 APDSPTR EQU @11 00324000 APDXPTR EQU @11 00325000 APENTRY EQU @15 00326000 APERPTR EQU @08 00327000 APEXLPTR EQU @10 00328000 APINPTR EQU @01 00329000 APIOPTR EQU @10 00330000 APLBPTR EQU @11 00331000 APNPPTR EQU @08 00332000 APOCPTR EQU @10 00333000 APOTPTR EQU @09 00334000 APRCODE EQU @15 00335000 APRETURN EQU @14 00336000 APRLPTR EQU @08 00337000 APSCPTR EQU @01 00338000 APSMPTR EQU @01 00339000 APUBPTR EQU @10 00340000 APUTPTR EQU @11 00341000 APXLPTR EQU @11 00342000 R0F EQU @00 00343000 R0P EQU @00 00344000 R0RSTD EQU @00 00345000 R1F EQU @01 00346000 R1RSTD EQU @01 00347000 R10F EQU @10 00348000 R10P EQU @10 00349000 R10RSTD EQU @10 00350000 R11F EQU @11 00351000 R11P EQU @11 00352000 R11RSTD EQU @11 00353000 R12F EQU @12 00354000 R12P EQU @12 00355000 R12RSTD EQU @12 00356000 R13F EQU @13 00357000 R13P EQU @13 00358000 R13RSTD EQU @13 00359000 R14F EQU @14 00360000 R14P EQU @14 00361000 R14RSTD EQU @14 00362000 R15F EQU @15 00363000 R15P EQU @15 00364000 R15RSTD EQU @15 00365000 R2F EQU @02 00366000 R2P EQU @02 00367000 R2RSTD EQU @02 00368000 R3F EQU @03 00369000 R3P EQU @03 00370000 R3RSTD EQU @03 00371000 R4F EQU @04 00372000 R4P EQU @04 00373000 R4RSTD EQU @04 00374000 R5F EQU @05 00375000 R5P EQU @05 00376000 R5RSTD EQU @05 00377000 R6F EQU @06 00378000 R6P EQU @06 00379000 R6RSTD EQU @06 00380000 R7F EQU @07 00381000 R7P EQU @07 00382000 R7RSTD EQU @07 00383000 R8F EQU @08 00384000 R8P EQU @08 00385000 R8RSTD EQU @08 00386000 R9F EQU @09 00387000 R9P EQU @09 00388000 R9RSTD EQU @09 00389000 MSG252I EQU 0 00390000 LEN252 EQU MSG252I 00391000 MSG1PTR EQU 0 00392000 MSG206I EQU 0 00393000 LEN206 EQU MSG206I 00394000 MSG2PTR EQU 0 00395000 APCVZDMM EQU 0 00396000 APCT EQU 0 00397000 APCTENQM EQU APCT+12 00398000 APCTSSID EQU APCTENQM+4 00399000 APCTSMIN EQU APCT+32 00400000 APCTSMAD EQU APCT+36 00401000 APCTZ@@@ EQU APCT+40 00402000 APCTU@@@ EQU APCT+440 00403000 APCTBR14 EQU APCT+840 00404000 APCTERRS EQU APCT+876 00405000 @NM00013 EQU APCT+936 00406000 APCTSTAT EQU @NM00013 00407000 APCTACT EQU APCTSTAT 00408000 APCTWARM EQU APCTSTAT 00409000 APCTPRSW EQU @NM00013+1 00410000 APCTAPCQ EQU APCT+944 00411000 APCTCQAQ EQU APCT+952 00412000 APCTZ@@1 EQU APCT+1120 00413000 APCTAPVU EQU APCT+1520 00414000 APSV EQU 0 00415000 APSVREGS EQU APSV+12 00416000 SSCT EQU 0 00417000 SSCTFLG1 EQU SSCT+12 00418000 SSCTSUSE EQU SSCT+20 00419000 SSOB EQU 0 00420000 SSOBINDV EQU SSOB+16 00421000 SSEN EQU 0 00422000 SSENASID EQU SSEN+4 00423000 SSENFLAG EQU SSEN+6 00424000 APVU EQU 0 00425000 APVUSPLN EQU APVU+8 00426000 APVUAUSE EQU APVU+3040 00427000 APVUMON EQU APVUAUSE 00428000 APCVZDAL EQU 0 00429000 APCVZDAP EQU 0 00430000 APCVZDBK EQU 0 00431000 APCVZDDA EQU 0 00432000 APCVZDDQ EQU 0 00433000 APCVZDEQ EQU 0 00434000 APCVZDID EQU 0 00435000 APCVZDIO EQU 0 00436000 APCVZDIP EQU 0 00437000 APCVZDMD EQU 0 00438000 APCVZDQR EQU 0 00439000 APCVZDRI EQU 0 00440000 APCVZDUA EQU 0 00441000 APCVZDUL EQU 0 00442000 APCVZDWI EQU 0 00443000 APCVZDWT EQU 0 00444000 APCVZDX1 EQU 0 00445000 APCVZDX2 EQU 0 00446000 APCVZDX3 EQU 0 00447000 APCVZDX4 EQU 0 00448000 APCVZD10 EQU 0 00449000 APCVZD20 EQU 0 00450000 APCVZD4E EQU 0 00451000 APCVZD40 EQU 0 00452000 APCVZD41 EQU 0 00453000 APCVZD42 EQU 0 00454000 APCVZD43 EQU 0 00455000 APCVZD44 EQU 0 00456000 APCVZD45 EQU 0 00457000 APCVZD46 EQU 0 00458000 APCVZD47 EQU 0 00459000 APCVZD48 EQU 0 00460000 APCVZD49 EQU 0 00461000 APCVZD60 EQU 0 00462000 APCVZD80 EQU 0 00463000 APCVZD81 EQU 0 00464000 APCVZD82 EQU 0 00465000 APCVZD83 EQU 0 00466000 APCVZJAA EQU 0 00467000 APCVZJAD EQU 0 00468000 APCVZJAG EQU 0 00469000 APCVZJAJ EQU 0 00470000 APCVZJAM EQU 0 00471000 APCVZJAP EQU 0 00472000 APCVZJAX EQU 0 00473000 APCVZJAY EQU 0 00474000 APCVZJBA EQU 0 00475000 APCVZJBD EQU 0 00476000 APCVZJBG EQU 0 00477000 APCVZJBJ EQU 0 00478000 APCVZJBM EQU 0 00479000 APCVZJDA EQU 0 00480000 APCVZJDD EQU 0 00481000 APCVZJDG EQU 0 00482000 APCVZJDJ EQU 0 00483000 APCVZJDM EQU 0 00484000 APCVZJHC EQU 0 00485000 APCVZJHE EQU 0 00486000 APCVZJHF EQU 0 00487000 APCVZJHO EQU 0 00488000 APCVZJHQ EQU 0 00489000 APCVZJHR EQU 0 00490000 APCVZJHT EQU 0 00491000 APCVZJHW EQU 0 00492000 APCVZJH0 EQU 0 00493000 APCVZJH6 EQU 0 00494000 APCVZJI0 EQU 0 00495000 APCVZJI3 EQU 0 00496000 APCVZJJ0 EQU 0 00497000 APCVZKAA EQU 0 00498000 APCVZKBA EQU 0 00499000 APCVZKBB EQU 0 00500000 APCVZKBC EQU 0 00501000 APCVZKBD EQU 0 00502000 APCVZKBE EQU 0 00503000 APCVZKBF EQU 0 00504000 APCVZKCA EQU 0 00505000 APCVZKDA EQU 0 00506000 APCVZKGA EQU 0 00507000 APCVZKGB EQU 0 00508000 APCVZKGC EQU 0 00509000 APCVZKGD EQU 0 00510000 APCVZLCA EQU 0 00511000 APCVZLCB EQU 0 00512000 APCVZMBA EQU 0 00513000 APCVZMBD EQU 0 00514000 APCVZMBG EQU 0 00515000 APCVZMBH EQU 0 00516000 APCVZMBK EQU 0 00517000 APCVZMBM EQU 0 00518000 APCVZMIB EQU 0 00519000 APCVZMIC EQU 0 00520000 APCVZMIF EQU 0 00521000 APCVZMJB EQU 0 00522000 APCVZMJC EQU 0 00523000 APCVZMJH EQU 0 00524000 APCVZMJI EQU 0 00525000 APCVZMMA EQU 0 00526000 APCVZUAA EQU 0 00527000 APCVZUAB EQU 0 00528000 APCVZUAC EQU 0 00529000 APCVZUAD EQU 0 00530000 APCVZUAE EQU 0 00531000 APCVZUAF EQU 0 00532000 APCVZUAG EQU 0 00533000 APCVZUBB EQU 0 00534000 APCVZUFA EQU 0 00535000 APCVZUHA EQU 0 00536000 APCVZUHB EQU 0 00537000 APCVZUJA EQU 0 00538000 APCVZUKA EQU 0 00539000 APCV1CMD EQU 0 00540000 APCV1JAA EQU 0 00541000 APCV1JBJ EQU 0 00542000 APCV1JHC EQU 0 00543000 APCV1JHL EQU 0 00544000 APCV1JHT EQU 0 00545000 APCV1MAB EQU 0 00546000 APCV1MBD EQU 0 00547000 APCV2JHC EQU 0 00548000 APCV2JHL EQU 0 00549000 APCV2MBD EQU 0 00550000 I001C EQU 0 00551000 I008P EQU 0 00552000 I015F EQU 0 00553000 I015P EQU 0 00554000 I031F EQU 0 00555000 I031P EQU 0 00556000 I256C EQU 0 00557000 APCTZ EQU APCTZ@@@ 00558000 APCTZUAA EQU APCTZ 00559000 APCTZUAB EQU APCTZ+4 00560000 APCTZUAC EQU APCTZ+8 00561000 APCTZUAD EQU APCTZ+12 00562000 APCTZUAE EQU APCTZ+16 00563000 APCTZUBB EQU APCTZ+24 00564000 APCTZD10 EQU APCTZ+28 00565000 APCTZD20 EQU APCTZ+32 00566000 APCTZD40 EQU APCTZ+36 00567000 APCTZD41 EQU APCTZ+40 00568000 APCTZD42 EQU APCTZ+44 00569000 APCTZD43 EQU APCTZ+48 00570000 APCTZD44 EQU APCTZ+52 00571000 APCTZD45 EQU APCTZ+56 00572000 APCTZD46 EQU APCTZ+60 00573000 APCTZD47 EQU APCTZ+64 00574000 APCTZD48 EQU APCTZ+68 00575000 APCTZD49 EQU APCTZ+72 00576000 APCTZD60 EQU APCTZ+76 00577000 APCTZD80 EQU APCTZ+80 00578000 APCTZD4E EQU APCTZ+84 00579000 APCTZMBA EQU APCTZ+88 00580000 APCTZMBD EQU APCTZ+92 00581000 APCTZMBG EQU APCTZ+96 00582000 APCTZDX1 EQU APCTZ+104 00583000 APCTZDX2 EQU APCTZ+108 00584000 APCTZDX3 EQU APCTZ+112 00585000 APCTZDX4 EQU APCTZ+116 00586000 APCTZMBH EQU APCTZ+120 00587000 APCTZMBK EQU APCTZ+124 00588000 APCTZMBM EQU APCTZ+128 00589000 APCTZMJB EQU APCTZ+132 00590000 APCTZMJC EQU APCTZ+136 00591000 APCTZMJH EQU APCTZ+140 00592000 APCTZMMA EQU APCTZ+144 00593000 APCTZDMD EQU APCTZ+148 00594000 APCTZD81 EQU APCTZ+152 00595000 APCTZDID EQU APCTZ+156 00596000 APCTZDRI EQU APCTZ+160 00597000 APCTZMJI EQU APCTZ+164 00598000 APCTZDWT EQU APCTZ+168 00599000 APCTZDMM EQU APCTZ+172 00600000 APCTZDAL EQU APCTZ+176 00601000 APCTZDBK EQU APCTZ+180 00602000 APCTZDIP EQU APCTZ+184 00603000 APCTZDDA EQU APCTZ+188 00604000 APCTZDUL EQU APCTZ+192 00605000 APCTZDEQ EQU APCTZ+196 00606000 APCTZDDQ EQU APCTZ+200 00607000 APCTZDUA EQU APCTZ+204 00608000 APCTZUAF EQU APCTZ+208 00609000 APCTZUAG EQU APCTZ+212 00610000 APCTZDIO EQU APCTZ+216 00611000 APCTZUHA EQU APCTZ+220 00612000 APCTZUHB EQU APCTZ+224 00613000 APCTZJAA EQU APCTZ+232 00614000 APCTZJAD EQU APCTZ+236 00615000 APCTZJAG EQU APCTZ+240 00616000 APCTZJAJ EQU APCTZ+244 00617000 APCTZJAM EQU APCTZ+248 00618000 APCTZJAP EQU APCTZ+252 00619000 APCTZJAY EQU APCTZ+256 00620000 APCTZUFA EQU APCTZ+260 00621000 APCTZUJA EQU APCTZ+264 00622000 APCTZDAP EQU APCTZ+268 00623000 APCTZKAA EQU APCTZ+272 00624000 APCTZD82 EQU APCTZ+276 00625000 APCTZMIB EQU APCTZ+280 00626000 APCTZMIC EQU APCTZ+284 00627000 APCTZD83 EQU APCTZ+288 00628000 APCTZMIF EQU APCTZ+296 00629000 APCTZJH0 EQU APCTZ+300 00630000 APCTZJI0 EQU APCTZ+304 00631000 APCTZJI3 EQU APCTZ+308 00632000 APCTZJJ0 EQU APCTZ+312 00633000 APCTZJBA EQU APCTZ+316 00634000 APCTZJBD EQU APCTZ+320 00635000 APCTZJBG EQU APCTZ+324 00636000 APCTZJBJ EQU APCTZ+328 00637000 APCTZJBM EQU APCTZ+332 00638000 APCTZKCA EQU APCTZ+340 00639000 APCTZKDA EQU APCTZ+344 00640000 APCTZJDA EQU APCTZ+356 00641000 APCTZJDJ EQU APCTZ+360 00642000 APCTZJH6 EQU APCTZ+364 00643000 APCTZJHO EQU APCTZ+368 00644000 APCTZJHF EQU APCTZ+372 00645000 APCTZJHE EQU APCTZ+376 00646000 APCTZDQR EQU APCTZ+380 00647000 APCTZJHR EQU APCTZ+384 00648000 APCTZJHT EQU APCTZ+388 00649000 APCTZJHW EQU APCTZ+392 00650000 APCTZ1 EQU APCTZ@@1 00651000 APCTZKBA EQU APCTZ1 00652000 APCTZKBC EQU APCTZ1+4 00653000 APCTZKBB EQU APCTZ1+8 00654000 APCTZJHC EQU APCTZ1+20 00655000 APCTZJHQ EQU APCTZ1+24 00656000 APCTZKBD EQU APCTZ1+28 00657000 APCTZKBE EQU APCTZ1+40 00658000 APCTZUKA EQU APCTZ1+56 00659000 APCTZKBF EQU APCTZ1+60 00660000 APCTZJDD EQU APCTZ1+64 00661000 APCTZJDG EQU APCTZ1+68 00662000 APCTZJDM EQU APCTZ1+72 00663000 APCTZLCA EQU APCTZ1+76 00664000 APCTZLCB EQU APCTZ1+80 00665000 APCTZDWI EQU APCTZ1+84 00666000 APCTZJAX EQU APCTZ1+88 00667000 APCTZKGA EQU APCTZ1+92 00668000 APCTZKGB EQU APCTZ1+96 00669000 APCTZKGC EQU APCTZ1+100 00670000 APCTZKGD EQU APCTZ1+104 00671000 APCTU EQU APCTU@@@ 00672000 APCT1MAB EQU APCTU 00673000 APCT1MBD EQU APCTU+4 00674000 APCT2MBD EQU APCTU+8 00675000 APCT1CMD EQU APCTU+12 00676000 APCT1JAA EQU APCTU+20 00677000 APCT1JHC EQU APCTU+24 00678000 APCT2JHC EQU APCTU+28 00679000 APCT1JHT EQU APCTU+32 00680000 APCT1JHL EQU APCTU+36 00681000 APCT2JHL EQU APCTU+40 00682000 APCT1JBJ EQU APCTU+44 00683000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00684000 @NM00045 EQU APCTU+48 00685000 APCT1MBM EQU APCTU+16 00686000 @NM00044 EQU APCTZ1+108 00687000 @NM00043 EQU APCTZ1+52 00688000 @NM00042 EQU APCTZ1+48 00689000 @NM00041 EQU APCTZ1+44 00690000 @NM00040 EQU APCTZ1+36 00691000 @NM00039 EQU APCTZ1+32 00692000 @NM00038 EQU APCTZ1+16 00693000 @NM00037 EQU APCTZ1+12 00694000 @NM00036 EQU APCTZ+396 00695000 @NM00035 EQU APCTZ+352 00696000 @NM00034 EQU APCTZ+348 00697000 @NM00033 EQU APCTZ+336 00698000 @NM00032 EQU APCTZ+292 00699000 APCTZJFA EQU APCTZ+228 00700000 APCTZMBR EQU APCTZ+100 00701000 @NM00031 EQU APCTZ+20 00702000 @NM00054 EQU APVU+3040 00703000 @NM00053 EQU APVUAUSE 00704000 APVUAPIO EQU APVUAUSE 00705000 APVUVUSE EQU APVUAUSE 00706000 APVUWORK EQU APVU+40 00707000 @NM00052 EQU APVU+16 00708000 @NM00051 EQU APVU+14 00709000 APVUANUM EQU APVU+12 00710000 APVULEN EQU APVUSPLN+1 00711000 APVUSPNO EQU APVUSPLN 00712000 APVUUSER EQU APVU+4 00713000 APVUID EQU APVU 00714000 SSENASCB EQU SSEN+12 00715000 SSENJBNM EQU SSEN+8 00716000 @NM00050 EQU SSEN+7 00717000 @NM00049 EQU SSENFLAG 00718000 SSENTYPE EQU SSENFLAG 00719000 @NM00048 EQU SSEN+2 00720000 SSENLEN EQU SSEN 00721000 SSOBRETN EQU SSOB+12 00722000 SSOBSSIB EQU SSOB+8 00723000 SSOBFUNC EQU SSOB+6 00724000 SSOBLEN EQU SSOB+4 00725000 SSOBID EQU SSOB 00726000 SSCTSSVT EQU SSCT+16 00727000 SSCTRSV1 EQU SSCT+13 00728000 @NM00047 EQU SSCTFLG1 00729000 SSCTUPSS EQU SSCTFLG1 00730000 SSCTSFOR EQU SSCTFLG1 00731000 SSCTSNAM EQU SSCT+8 00732000 SSCTSCTA EQU SSCT+4 00733000 SSCTID EQU SSCT 00734000 APSVWORK EQU APSV+80 00735000 @NM00046 EQU APSV+80 00736000 APSVFREE EQU APSV+76 00737000 APSVAPSM EQU APSV+72 00738000 APSVRG12 EQU APSVREGS+56 00739000 APSVRG11 EQU APSVREGS+52 00740000 APSVRG10 EQU APSVREGS+48 00741000 APSVRG9 EQU APSVREGS+44 00742000 APSVRG8 EQU APSVREGS+40 00743000 APSVRG7 EQU APSVREGS+36 00744000 APSVRG6 EQU APSVREGS+32 00745000 APSVRG5 EQU APSVREGS+28 00746000 APSVRG4 EQU APSVREGS+24 00747000 APSVRG3 EQU APSVREGS+20 00748000 APSVRG2 EQU APSVREGS+16 00749000 APSVRG1 EQU APSVREGS+12 00750000 APSVRG0 EQU APSVREGS+8 00751000 APSVRG15 EQU APSVREGS+4 00752000 APSVRG14 EQU APSVREGS 00753000 APSVNEXT EQU APSV+8 00754000 APSVPREV EQU APSV+4 00755000 APSVAPSC EQU APSV 00756000 @NM00030 EQU APCT+1556 00757000 APCTSVCT EQU APCT+1552 00758000 APCTDAVT EQU APCT+1548 00759000 APCTLOGL EQU APCT+1544 00760000 @NM00029 EQU APCT+1540 00761000 APCTDMPU EQU APCT+1536 00762000 APCTDMPM EQU APCT+1532 00763000 APCTNDMP EQU APCT+1530 00764000 APCTASID EQU APCT+1528 00765000 APCTLGPG EQU APCT+1526 00766000 APCTLGLN EQU APCT+1524 00767000 APCTABR EQU APCT+1116 00768000 APCTACTR EQU APCT+1112 00769000 APCTLOGD EQU APCT+1108 00770000 APCTDCLD EQU APCT+1104 00771000 APCTIOAP EQU APCT+1100 00772000 @NM00028 EQU APCT+1080 00773000 @NM00027 EQU APCT+1078 00774000 APCTKCAX EQU APCT+1076 00775000 APCTABND EQU APCT+1072 00776000 @NM00026 EQU APCT+1068 00777000 APCTAPIO EQU APCT+1064 00778000 APCTCSCT EQU APCT+1060 00779000 APCTSTDF EQU APCT+1056 00780000 APCTSTMX EQU APCT+1052 00781000 APCTRGMX EQU APCT+1048 00782000 APCTSIZE EQU APCT+1046 00783000 APCTCTUB EQU APCT+1045 00784000 APCTMFID EQU APCT+1044 00785000 APCTMFSZ EQU APCT+1040 00786000 APCTCRTN EQU APCT+1036 00787000 APCTAPCP EQU APCT+1032 00788000 APCTAMNA EQU APCT+1028 00789000 APCTEMNA EQU APCT+1024 00790000 APCTAALP EQU APCT+1020 00791000 APCTEALP EQU APCT+1016 00792000 @NM00025 EQU APCT+1012 00793000 @NM00024 EQU APCT+1008 00794000 @NM00023 EQU APCT+1004 00795000 APCTEIPL EQU APCT+1000 00796000 @NM00022 EQU APCT+996 00797000 @NM00021 EQU APCT+992 00798000 @NM00020 EQU APCT+988 00799000 @NM00019 EQU APCT+984 00800000 @NM00018 EQU APCT+980 00801000 APCTECPW EQU APCT+976 00802000 APCTEULD EQU APCT+972 00803000 APCTECPT EQU APCT+968 00804000 APCTEALC EQU APCT+964 00805000 APCTECBL EQU APCT+960 00806000 APCTECIT EQU APCT+956 00807000 APCTCQAF EQU APCTCQAQ 00808000 APCTCQL EQU APCTAPCQ+4 00809000 APCTCQF EQU APCTAPCQ 00810000 APCTCQLK EQU APCT+940 00811000 @NM00017 EQU @NM00013+2 00812000 @NM00016 EQU APCTPRSW 00813000 APCTAPST EQU APCTPRSW 00814000 @NM00015 EQU APCTPRSW 00815000 @NM00014 EQU APCTSTAT 00816000 APCTTERM EQU APCTSTAT 00817000 APCTHALT EQU APCTSTAT 00818000 APCTQSCE EQU APCTSTAT 00819000 APCTSTRT EQU APCTSTAT 00820000 @NM00012 EQU APCT+935 00821000 APCTSOUT EQU APCT+934 00822000 APCTDAID EQU APCT+933 00823000 APCTSV34 EQU APCT+932 00824000 APCTMJOB EQU APCT+928 00825000 APCTTCB EQU APCT+924 00826000 APCTASCB EQU APCT+920 00827000 APCTDCNW EQU APCT+918 00828000 APCTDCNR EQU APCT+916 00829000 @NM00011 EQU APCT+912 00830000 @NM00010 EQU APCT+908 00831000 @NM00009 EQU APCT+904 00832000 @NM00008 EQU APCT+900 00833000 @NM00007 EQU APCTERRS+22 00834000 APCTERTJ EQU APCTERRS+20 00835000 APCTERTD EQU APCTERRS+18 00836000 APCTERTC EQU APCTERRS+16 00837000 APCTERTB EQU APCTERRS+14 00838000 APCTERTA EQU APCTERRS+12 00839000 APCTERT9 EQU APCTERRS+10 00840000 APCTERT3 EQU APCTERRS+8 00841000 APCTERT2 EQU APCTERRS+6 00842000 APCTERT1 EQU APCTERRS+4 00843000 APCTERT0 EQU APCTERRS+2 00844000 APCTERTT EQU APCTERRS 00845000 APCTDSAP EQU APCT+872 00846000 APCTISUB EQU APCT+868 00847000 APCTUBAP EQU APCT+864 00848000 APCTAPDS EQU APCT+860 00849000 APCTUBIC EQU APCT+856 00850000 APCTUBIS EQU APCT+852 00851000 APCTAPUB EQU APCT+848 00852000 APCTUBLK EQU APCT+844 00853000 APCTBR1A EQU APCTBR14+2 00854000 @NM00006 EQU APCTBR14 00855000 APCTSMSZ EQU APCTSMAD+2 00856000 @NM00005 EQU APCTSMAD+1 00857000 @NM00004 EQU APCTSMAD 00858000 APCTSMIS EQU APCTSMIN+2 00859000 @NM00003 EQU APCTSMIN+1 00860000 APCTSMSP EQU APCTSMIN 00861000 @NM00002 EQU APCT+30 00862000 APCTLINE EQU APCT+28 00863000 APCTLBSZ EQU APCT+24 00864000 APCTREG EQU APCT+20 00865000 @NM00001 EQU APCTENQM 00866000 APCTSSVT EQU APCT+8 00867000 APCTUSER EQU APCT+4 00868000 APCTID EQU APCT 00869000 TXT206 EQU MSG206I+2 00870000 TXT252 EQU MSG252I+2 00871000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00872000 @ENDDATA EQU * 00873000 END IGTJDD,(C'PLS2107',0701,77092) 00874000