.TITLE	OCTAL
	.IDENT	/V7.01/

;+
; *** OC.TAL
;
;	THIS ROUTINE FORMATS A BINARY NUMBER AS ASCII OCTAL
;
;	INPUTS:
;		R0	BUFFER POINTER
;		R1	BINARY NUMBER
;
;	OUTPUT:
;		R0	UPDATED
;		R1,R2	USED
;
;	REVISION HISTORY
;	----------------
;
;	SMT821	23-APR-82	CHANGED ENTRY POINT NAMES OF ACCOUNTING
;				SUPPORT ROUTINES (SEE MODIFY.TXT)
;
;-

OC.TAL::CLR	R2		; SET NO LEADING ZEROES REQUIRED
	JMP	$CBOMG		; CONVERT TO OCTAL AND RETURN

	.END