.TITLE	DCSGN
	.IDENT	/V7.01/

DPT	=	'.		; DECIMAL POINT

;+
; *** DC.SGN
;
;	THIS ROUTINE FORMATS A BINARY NUMBER AS SIGNED DECIMAL
;	WITH NO LEADING ZEROES.
;
;	INPUTS:
;		R0	BUFFER POINTER
;		R1	BINARY NUMBER
;
;	OUTPUT:
;		R0	UPDATED
;
;	REVISION HISTORY
;	----------------
;
;	SMT821	23-APR-82	CHANGED ENTRY POINT NAMES OF ACCOUNTING
;				SUPPORT ROUTINES (SEE MODIFY.TXT)
;				$DCSGN --> DC.SGN
;-

DC.SGN::CLR	R2		; SET NO LEADING ZEROES REQUIRED
	CALL	$CBDSG		; CONVERT TO SIGNED DECIMAL
	MOVB	#DPT,(R0)+	; INSERT A DECIMAL POINT
	RETURN			;

	.END