.TITLE RECZ ; .MACRO .RECZ Z1,Z2 ;Z2 = 1/Z1 COMPLEX RECIPROCAL .GLOBL .RECZ A0=R0 A1=R1 Z2: .BLKW 4 Z1: .BLKW 4 .RECZ: STF A0,-(SP) STF A1,-(SP) LDF Z1,A0 ;DENOM = Z1R**2 + Z1I**2 MULF A0,A0 LDF Z1+4,A1 MULF A1,A1 ADDF A1,A0 ;A0=DENOM LDF Z1,A1 ;Z2R = Z1R/DENOM DIVF A0,A1 STF A1,Z2 LDF Z1+4,A1 ;Z2I = -Z1I/DENOM DIVF A0,A1 NEGF A1 STF A1,Z2+4 LDF (SP)+,A1 LDF (SP)+,A0 RETURN .END