*        %GOTO PLSSVC;                                               /* 00050002
         MACRO                                                          00100002
         IHASVC                                                         00150002
SVCENTRY DSECT                                                          00200002
SVCEP    DS    A                       SVC ENTRY POINT ADDRESS          00250002
SVCATTR1 DS    H                       ATTRIBUTES                       00300002
SVCTP1   EQU   X'00'                   TYPE 1 SVC                       00350002
SVCTP2   EQU   X'80'                   TYPE 2 SVC                       00400002
SVCTP34  EQU   X'C0'                   TYPE 3 OR 4 SVC                  00450002
SVCTP6   EQU   X'20'                   TYPE  6 SVC             @Z40FPYK 00470040
SVCAPF   EQU   X'08'                   APF AUTHORIZED 1-AUTHORIZED      00500002
SVCESR   EQU   X'04'                   SVC IS A PART OF THE ESR         00520003
SVCNP    EQU   X'02'                   NON-PREEMPTIVE SVC      @Z40FPYK 00530040
SVCLOCKS DS    H                       LOCK ATTRIBUTES                  00550002
SVCLL    EQU   X'80'                   LOCAL LOCK NEEDED                00600002
SVCCMS   EQU   X'40'                   CMS LOCK NEEDED                  00650002
SVCOPT   EQU   X'20'                   OPT LOCK NEEDED                  00700002
SVCALLOC EQU   X'10'                   SALLOC LOCK NEEDED               00750002
SVCDISP  EQU   X'08'                   DISP LOCK NEEDED                 00800002
         MEND ,                                                      */ 00850002
*%PLSSVC : ;                                                            00900002
*DECLARE                               /* SVC TABLE ENTRY            */ 00950002
*  1 SVCENTRY BASED,                                                    01000002
*    2 SVCEP PTR(31),                  /* SVC ENTRY POINT ADDRESS    */ 01050002
*    2 SVCATTR1 BIT(16),               /* ATTRIBUTES                 */ 01100002
*      3 * BIT(4),                     /* TYPE BITS                  */ 01150002
*      3 SVCAPF BIT(1),                /* APF AUTHORIZED 1-AUTHORIZED*/ 01200002
*      3 SVCESR BIT(1),                /* SVC IS A PART OF THE ESR   */ 01220003
*      3 SVCNP BIT(1),                 /* NON-PREEMPTIVE SVC @Z40FPYK*/ 01230040
*      3 * BIT(9),                     /* RESERVED           @Z40FPYK*/ 01250040
*    2 SVCATTR2 BIT(16),               /* LOCK ATTRIBUTES            */ 01300002
*      3 SVCLL BIT(1),                 /* LOCAL LOCK NEEDED          */ 01350002
*      3 SVCCMS BIT(1),                /* CMS LOCK NEEDED            */ 01400002
*      3 SVCOPT BIT(1),                /* OPT LOCK NEEDED            */ 01450002
*      3 SVCALLOC BIT(1),              /* SALLOC LOCK NEEDED         */ 01500002
*      3 SVCDISP BIT(1),               /* DISP LOCK NEEDED           */ 01550002
*      3 * BIT(11);                    /* RESERVED                   */ 01600002
* DECLARE SVCLOCKS BIT(16) DEF(SVCATTR2); /* LOCK ATTRIBUTES @Z40FPYK*/ 01620040
*%DECLARE SVCTP1 CHAR;                 /* TYPE 1 SVC                 */ 01650002
*% SVCTP1 = '''00''X';                 /* TYPE 1 SVC         @Z40FPYK*/ 01700040
*%DECLARE SVCTP2 CHAR;                 /* TYPE 2 SVC                 */ 01750002
*% SVCTP2 = '''80''X';                 /* TYPE 2 SVC         @Z40FPYK*/ 01800040
*%DECLARE SVCTP34 CHAR;                /* TYPE 3 OR 4 SVC            */ 01850002
*% SVCTP34 = '''C0''X';                /* TYPE 3 OR 4 SVC    @Z40FPYK*/ 01900040
*%DECLARE SVCTP6 CHAR;                 /* TYPE 6 SVC         @Z40FPYK*/ 01950040
*% SVCTP6 = '''20''X';                 /* TYPE 6 SVC         @Z40FPYK*/ 02000040