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