MACRO                                                          05000018
&NAME    SMFWTM  &MSGAD                                                 10000018
         AIF   ('&MSGAD' EQ '').E1                                      15000018
         AIF   ('&MSGAD' EQ '(1)').SVCA                                 20000018
         AIF   ('&MSGAD'(1,1) EQ '(').REGA                              25000018
         AGO   .LODIT                                                   30000018
.E1      MNOTE  '* * * NO OPERAND SPECIFIED * * *'                      35000018
         MEXIT                                                          40000018
.SVCA    ANOP                                                           45000018
&NAME    SVC   83                  ISSUE SVC                            50000018
         MEXIT                                                          55000018
.REGA    ANOP                                                           60000018
&NAME    LR    1,&MSGAD(1)         LOAD PARAMETER REG 1                 65000018
         AGO   .SVC                                                     70000018
.LODIT   ANOP                                                           75000018
&NAME    LA    1,&MSGAD            LOAD PARAMETER REG 1                 80000018
.SVC     SVC   83                  ISSUE SVC                            85000018
         MEND                                                           90000018