.TITLE BIN2O	CONVERT ONE WORD TO OCTAL
	.IDENT	/02MAY7/	;13:40:00  LV
;	.ENTRY	BIN2O	CONVERT ONE WORD TO OCTAL
;+
; B I N 2 O
;
; PURPOSE:	CONVERT ONE WORD TO OCTAL CHARACTERS
;
; INTERFACE:	CALLING SEQUENCE:
;			CALL BIN2O
;
;		INPUT:	R0 -- CHARACTER COUNT
;			R1 -- DATA WORD
;
;		OUTPUT:	R2 -- OUTPUT BUFFER POINTER
;
; LANGUAGE:	MACRO-11
;
; RESTRICTIONS:	NOT FORTRAN-CALLABLE
;-
; REVISIONS:
; 10-SEP-76	SS	MAKE INDEPENDENT OF SPECIAL MACROS
; 02-MAY-77	LV	UPDATED TO CONFORM TO STANDARDS
;
;	MACRO CALLS
	.MCALL RETURN
;
BIN2O::	MOV	R3,-(SP)	;SAVE WORKING REGISTERS
	MOV	R4,-(SP)
	MOV	R5,-(SP)
	MOV	R0,R3	;COPY CHARACTER COUNT
	MOV	R1,R5	;SET DATA WORD IN DIVIDE REGISTER
20$:	CLR	R4	;CLEAR HIGH ORDER DIVIDEND
	DIV	#10,R4	;DIVIDE OUT THE DIGIT
	ADD	#60,R5	;MAKE REMAINDER INTO A CHARACTER
	MOV	R5,-(SP)	;SAVE THE DIGIT
	MOV	R4,R5
	SOB	R3,20$
30$:	MOVB	(SP)+,(R2)+	;RETURN DIGITS TO USER
	SOB	R0,30$
	MOV	(SP)+,R5
	MOV	(SP)+,R4
	MOV	(SP)+,R3
	RETURN
.END