.TITLE	DECML
	.IDENT	/V1.0/

DPT	=	'.		; DECIMAL POINT

;+
; *** $DECML
;
;	THIS ROUTINE FORMATS A BINARY NUMBER AS ASCII DECIMAL.
;
;	INPUTS:
;		R0	BUFFER POINTER
;		R1	BINARY NUMBER
;
;	OUTPUT:
;		R0	UPDATED
;
;-
$DECML::CLR	R2		; SET NO LEADING ZEROES REQUIRED
	CALL	$CBDMG		; CONVERT TO DECIMAL
	MOVB	#DPT,(R0)+	; INSERT A DECIMAL POINT
	RETURN			;

	.END