.TITLE	QUTSGB - OUTPUT SIGN (BYTE)
;
;	QUTSGB - OUTPUT (AND NULLIFY) SIGN OF BYTE ON STACK
;
;CALL:	MOVB	N,-(SP)
;	CALL	QUTSGB
;
;OUTPUT:
;	TOP OF STACK IS SET TO ABSOLUTE VALUE
;
;
QUTSGB::TSTB	2(SP)		;IS IT NEGATIVE?
	BPL	1$		;NO, JUST RETURN
	CALL	QUTNEG		;YES, OUTPUT '-'
	NEGB	2(SP)		;AND SET TO ABSOLUTE VALUE
1$:	RETURN
;
;
	.END