MACRO                                                          04000020
&NAME    QTIP  &NO,&PARM                                                08000020
*                                                                       12000020
         AIF   (T'&PARM EQ 'O').NOPARM                                  16000020
         AIF   ('&PARM' EQ '&PARM(1)').LADDR                            20000020
         AIF   ('&PARM(1)' NE '1').LREG                                 24000020
&NAME    LA    0,&NO                    LOAD ENTRY CODE                 28000020
         AGO   .SAVE                                                    32000020
.NOPARM  ANOP                                                           36000020
&NAME    SR    1,1                      IND NO PARAMETERS BEING PASSED  40000020
         LA    0,&NO                    LOAD ENTRY CODE                 44000020
         AGO   .SVC                                                     48000020
.LADDR   ANOP                                                           52000020
&NAME    LA    1,&PARM                  LOAD ADDRESS OF SAVE AREA       56000020
         AGO   .LCODE                                                   60000020
.LREG    ANOP                                                           64000020
&NAME    LR    1,&PARM(1)               LOAD ADDRESS OF SAVE AREA       68000020
.LCODE   LA    0,&NO                    LOAD ENTRY CODE                 72000020
.SAVE    STM   2,13,0(1)                SAVE REGISTERS                  76000020
.SVC     SVC   101                      ISSUE QTIP SVC                  80000020
         MEND                                                           84000020