.TITLE SUBZ ; .MACRO .SUBZ Z1,Z2,Z3 ;COMPLEX Z3 = Z1 - Z2 .GLOBL .SUBZ A0=R0 Z3: .BLKW 4 Z2: .BLKW 4 Z1: .BLKW 4 .SUBZ: STF A0,-(SP) LDF Z1,A0 ;SUBTRACT REAL PARTS SUBF Z2,A0 STF A0,Z3 LDF Z1+4,A0 ;SUBTRACT IMAGINARY PARTS SUBF Z2+4,A0 STF A0,Z3+4 LDF (SP)+,A0 RETURN .END