*                                                                       00050002
*        %GOTO LCCATL1;  /*                                             00100002
         MACRO                                                          00150002
         IHALCCAT &DSECT=YES   */                                       00200002
*%LCCATL1 : ;                                                           00250002
*                                                                       00300002
*/* **************************************************************** */ 00350002
*/*                                                                  */ 00400002
*/*            LCCA VECTOR TABLE                                     */ 00450002
*/*                                                                  */ 00500002
*/*  OS/VS2 RELEASE 2, 06/28/72, LEVEL=2                             */ 00550002
*/*                                                                  */ 00600002
*/*  METHOD OF ACCESS                                                */ 00650002
*/*      BAL  - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED.      */ 00700002
*/*             USING ON LCCAVT GIVES ADDRESSABILITY FOR ALL SYMBOLS.*/ 00750002
*/*      PL/S - INCLUDE CVT TO DEFINE CVTLCCAT                       */ 00800002
*/*                                                                  */ 00850002
*/* **************************************************************** */ 00900002
*%GOTO LCCATL2;   /*                                                    00950002
         SPACE 1                                                        01000002
         AIF   ('&DSECT' EQ 'NO').LCCAT10                               01050002
LCCAVT   DSECT                                                          01100002
         AGO   .LCCAT20                                                 01150002
.LCCAT10 ANOP                                                           01200002
         DS    0D                                                       01250002
LCCAVT   EQU   *                                                        01300002
.LCCAT20 ANOP                                                           01350002
LCCAT00P DC    A(0) -         ADDRESS OF LCCA FOR CPU 0                 01400002
LCCAT01P DC    A(0) -         ADDRESS OF LCCA FOR CPU 1                 01450002
LCCAT02P DC    A(0) -         ADDRESS OF LCCA FOR CPU 2                 01500002
LCCAT03P DC    A(0) -         ADDRESS OF LCCA FOR CPU 3                 01550002
LCCAT04P DC    A(0) -         ADDRESS OF LCCA FOR CPU 4                 01600002
LCCAT05P DC    A(0) -         ADDRESS OF LCCA FOR CPU 5                 01650002
LCCAT06P DC    A(0) -         ADDRESS OF LCCA FOR CPU 6                 01700002
LCCAT07P DC    A(0) -         ADDRESS OF LCCA FOR CPU 7                 01750002
LCCAT08P DC    A(0) -         ADDRESS OF LCCA FOR CPU 8                 01800002
LCCAT09P DC    A(0) -         ADDRESS OF LCCA FOR CPU 9                 01850002
LCCAT10P DC    A(0) -         ADDRESS OF LCCA FOR CPU 10                01900002
LCCAT11P DC    A(0) -         ADDRESS OF LCCA FOR CPU 11                01950002
LCCAT12P DC    A(0) -         ADDRESS OF LCCA FOR CPU 12                02000002
LCCAT13P DC    A(0) -         ADDRESS OF LCCA FOR CPU 13                02050002
LCCAT14P DC    A(0) -         ADDRESS OF LCCA FOR CPU 14                02100002
LCCAT15P DC    A(0) -         ADDRESS OF LCCA FOR CPU 15                02150002
         MEND  , -   */                                                 02200002
*%LCCATL2 : ;                                                           02250002
*                                                                       02300002
*DECLARE                                                                02350002
*  1 LCCAVT   BASED(CVTLCCAT) BDY(DWORD),                               02400002
*   2 LCCAT00P  (16) PTR(31);            /* ADDRESSES OF LCCA'S FOR     02450002
*                                           CPU'S 0-15               */ 02500002