.TITLE	R50TA
	.IDENT	/V7.01/

SPA	=	40		; SPACE

;+
; *** R50.TA
;
;	THIS ROUTINE CONVERTS A RADIX-50 WORD TO THREE ASCII
;	CHARACTERS, ENSURING THAT ALL BLANKS ON THE RIGHT OF
;	THE RESULT ARE REMOVED.
;
;	INPUTS:
;		R0	BUFFER POINTER
;		R5	POINTER TO RADIX-50 WORD
;
;	OUTPUTS:
;		R0	UPDATED (IF NOT THREE BLANKS)
;		R1	USED
;		R5	(INPUT R5) + 2
;
;	REVISION HISTORY
;	----------------
;
;	SMT821	23-APR-82	CHANGED ENTRY POINT NAMES OF ACCOUNTING
;				SUPPORT ROUTINES (SEE MODIFY.TXT)
;
;-

R50.TA::MOV	(R5)+,R1	; GET RADIX-50 WORD
	BEQ	10$		; IF EQ THEY ARE ALL BLANKS
	CALL	$C5TA		; CONVERT TO ASCII
	SUB	#2,R0		; BACK UP POINTER TO 2ND CHARACTER
	CMPB	(R0),#SPA	; WAS IT A SPACE?
	BEQ	10$		; YES, LEAVE POINTER WHERE IT IS
	INC	R0		; NO, POINT TO 3RD CHARACTER
	CMPB	(R0),#SPA	; WAS THIS ONE A SPACE?
	BEQ	10$		; YES, LEAVE POINTER WHERE IT IS
	INC	R0		; NO, GO BACK TO WHERE WE STARTED
10$:	RETURN			; RETURN TO CALLER

	.END