.TITLE	DECML
	.IDENT	/V7.02/

;+
; *** DE.CML
;
;	THIS ROUTINE FORMATS A BINARY NUMBER AS ASCII DECIMAL.
;
;
;	INPUTS:
;		R0	BUFFER POINTER
;		R1	BINARY NUMBER
;
;	OUTPUT:
;		R0	UPDATED
;		R1,R2	USED
;
;
;	REVISION HISTORY
;	----------------
;
;	SMT744	14-SEP-81	REMOVED THE DECIMAL POINT FOLLOWING THE
;				NUMBER.
;
;	SMT821	23-APR-82	CHANGED ENTRY POINT NAMES OF ACCOUNTING
;				SUPPORT ROUTINES (SEE MODIFY.TXT)
;-

DE.CML::CLR	R2		; SET NO LEADING ZEROES REQUIRED
	JMP	$CBDMG		; CONVERT TO DECIMAL AND RETURN TO
				; CALLER

	.END