; CFFNEG			FAR CALL MODIFICATIONS 1200  2-MAR-81
; CFNEG				VERSION 1.0            1200 15-OCT-79
; RCC86 FLOATING NEGATE
CF@CODE	SEGMENT	BYTE PUBLIC
	ASSUME	CS:CF@CODE
	PUBLIC	CF@NEG
CF@NEG	PROC	FAR		;FLOATING NEGATE
	CMP	DX,0		;NOTHING TO DO ON ZERO
	JNE	FLIP
	CMP	AX,0
	JE	RTURN
FLIP	LABEL	NEAR
	XOR	DL,80H		;FLIP SIGN
RTURN	LABEL	NEAR
	RET
CF@NEG	ENDP
CF@CODE	ENDS
	END