.TITLE CR56TA
	.IDENT /110183/

;	File:[22,310]CR56TA.MAC
;	Author: Jim Bostwick 1-Nov-83 (p2util clone)
;	History:
;	
;	Last Edit:
;

.REM |

PROCEDURE CR56TA(Rad:Rad56; VAR ASCII:Ch6);External;

{*USER*
 Pascal-3 procedure to convert two Radix-50 words into
6 ASCII characters. Most usefull for task name conversion. 
}
|

;
; Assemble with PASMAC.MAC as prefix file.
;

	
	PROC CR56TA
	PARAM RAD, 2*INTEGER
	PARAM ASC, ADDRESS
	SAVE <R0, R1, R2>
	BEGIN
	MOV ASC(SP),R0	;R0->ASCII BUFFER
	MOV RAD(SP),R1	;GET FIRST WORD
	CALL $C5TA	;CONVERT TO ASCII
	MOV RAD+2(SP),R1 	;GET SECOND WORD
	CALL $C5TA	;CONVERT IT
	MOV ASC(SP),R1	;BLANK REMAINDER OF BUFFER
	ADD #6, R1	;R1->PAST END OF BUFFER
2$:	CMP R0,R1	;AT END OF BUFFER
	BEQ 1$		; BR IF SO
	MOVB #40,(R0)+	;FILL IN A BLANK
	BR 2$
1$:	ENDPR
	.END