*        %GOTO PLSXSNP;                                              /* 03000010
         MACRO                                                          06000010
         TXSNPD                                                         09000010
.*A000000-999999                                               @Y17XAXG 12000010
*                       ... SWITCH TO NCP ...                           15000010
IEDXSNPD DSECT                                                          18000010
XSNPCMD  DS    0XL3                     SWITCH TO NCP COMMAND           21000010
XSNPCODE DS    XL1                      COMMAND CODE                    24000010
XSNPADDR DS    XL2                      NETWORK ADDRESS OF LINE         27000010
         MEND                                                        */ 30000010
*%PLSXSNP : ;                                                           33000010
*DECLARE                                                                36000010
*  1 IEDXSNPD BASED(XSNPPTR),                                           39000010
*    2 XSNPCMD,                          /* SWITCH TO NCP COMMAND    */ 42000010
*     3 XSNPCODE CHAR(1),                /* COMMAND CODE             */ 45000010
*     3 XSNPADDR CHAR(2);                /* NETWORK ADDRESS OF LINE  */ 48000010
*/*                                                                  */ 51000010