.TITLE CATR56
	.IDENT /110183/

; 	File:[22,310]catr56.mac
; 	Author: Jim Bostwick 1-Nov-83 (clone from p2util)
;	History:
;	

.REM |

Procedure CATR56(ASCII:CH6; VAR Rad:Rad56);External;

{*USER*
 Pascal-2 procedure to convert an ASCII string to Radix-50.
Primarily used to obtain Rad50 task names for use with system
calls.  ASCII must be left-justified, and contain only legal
legal radix-50 characters. Imbedded blanks are NOT allowed,
although trailing blanks are.
      
   } 
|

;
; Assemble with PASMAC.MAC as prefix file.
;
; j.m.b. 021782, 110183
;

	
	PROC CATR56
	PARAM ASC, 6*CHAR
	PARAM RAD, ADDRESS
	SAVE <R0 ,R1, R2>
	BEGIN
	MOV SP,R0	
	ADD #ASC,R0	;R0->INPUT ASCII STRING
	MOV #1,R1	;PERIOD IS ACCEPTABLE
	CALL $CAT5	;CONVERT FIRST 3
	MOV R1, @RAD(SP)  ;PUT AWAY FIRST HALF
	MOV #1, R1	;SET UP FOR LAST THREE CHARS
	CALL $CAT5	;CONVERT LAST HALF
	MOV RAD(SP), R0	
	MOV R1, 2(R0)	;SAVE LAST HALF 
	ENDPR
	.END