.TITLE ABSZ ;.MACRO .ABSZ Z,F .GLOBL .ABSZ .MCALL .SQRT A0=R0 A1=R1 F: .BLKB 4 Z: .BLKB 10 .ABSZ: STF A0,-(SP) STF A1,-(SP) LDF Z,A0 MULF A0,A0 LDF Z+4,A1 MULF A1,A1 ADDF A1,A0 .SQRT A0,F LDF (SP)+,A1 LDF (SP)+,A0 RETURN .END