.TITLE	QUTSGN - OUTPUT SIGN
;
;	QUTSGN - OUTPUT (AND NULLIFY) SIGN OF NUMBER ON STACK
;
;CALL:
;	MOV	N,-(SP)
;	CALL	QUTSGN
;
;OUTPUT:
;	TOP OF STACK IS SET TO ABSOLUTE VALUE OF WHAT IT WAS
;
;
QUTSGN::TST	2(SP)		;IS IT NEGATIVE?
	BPL	1$		;NO, JUST RETURN
	CALL	QUTNEG		;YES, OUTPUT '-'
	NEG	2(SP)		;AND SET TO ABSOLUTE VALUE
1$:	RETURN
;
;
	.END