;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;									;
;	UBBS subroutines						;
;	This routine will convert a binary integer to an edited		;
;	Z,ZZZ,ZZ9 string.						;
;									;
;	Dale Miller - UALR						;
;	Rev. 4.3  26-Jul-1986						;
;									;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.PSECT	STRING,PIC,CON,REL,LCL,NOSHR,NOEXE,RD,WRT,LONG
;	A character string descriptor to keep FORTRAN happy
STRING:	.LONG	^X010E0009
	.LONG	^X00000000
;
	.PSECT	$CODE,PIC,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG
	.ENTRY	COMINT,^M<R2,R3,R4,R5>
	MOVQ	@B^08(AP), R0
	MOVL	R1, STRING+4
	CLRQ	-(SP)
	SUBL2	#^X04, SP
	CVTLP	@4(AP), #^X07, (SP)
	EDITPC	#^X07, (R3), EOPAT, @STRING+4
	MOVL	#^X01, R0
	RET
;
EOPAT:	.BYTE	^X47		;EO$ADJUST_INPUT
	.BYTE	^X07			;LENGTH
	.BYTE	^X02		;EO$CLEAR_SIGNIF
	.BYTE	^X91		;EO$MOVE (1 DIGIT)
	.BYTE	^X44		;EO$INSERT
	.BYTE	^X2C			; ','
	.BYTE	^X93		;EO$MOVE (3 DIGITS)
	.BYTE	^X44		;EO$INSERT
	.BYTE	^X2C			; ','
	.BYTE	^X92		;EO$MOVE (2 DIGITS)
	.BYTE	^X03		;EO$SET$SIGNIF
	.BYTE	^X91		;EO$MOVE (1 DIGIT)
	.BYTE	^X00		;EO$END
	.END