.TITLE FILTOA
	.IDENT /040479/
;       SUBROUTINE TO CONVERT FILE NAME TO ASCII
;       1=ADDRESS FILE NAME IN RAD50
;       2=ADDRESS TO STORE ASCII FILE NAME
;       3=ADDRESS TO RETURN NUMBER OF CHARACTERS IN FILE NAME
FILTOA::MOV     2(R5),R2        ;ARGUMENT BLOCK
	MOV     4(R5),R0        ;OUTPUT BUFFER
	MOV     #IBUFF,R1       ;ONE CONTROL CHARACTER = %X (CONVERT FILE NAME)
	JSR     PC,$EDMSG
	MOV     R1,@6(R5)
RET:    RETURN
IBUFF:  .ASCIZ/%X/
	.END