C86CODE	SEGMENT	BYTE PUBLIC
	ASSUME	CS:C86CODE
	PUBLIC	C@FNEG
C@FNEG	PROC	NEAR		;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
C@FNEG	ENDP
C86CODE	ENDS
	END