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