.TITLE	OCTAL
	.IDENT	/V1.0/

;+
; *** $OCTAL
;
;	THIS ROUTINE FORMATS A BINARY NUMBER AS ASCII OCTAL
;
;	INPUTS:
;		R0	BUFFER POINTER
;		R1	BINARY NUMBER
;
;	OUTPUT:
;		R0	UPDATED
;
;-
$OCTAL::CLR	R2		; SET NO LEADING ZEROES REQUIRED
	JMP	$CBOMG		; CONVERT TO OCTAL AND RETURN

	.END