	.TITLE	RADASC

; R0 = RAD50
; R1 = BUFF

RAD::
	MOV	R1,-(SP)
	MOV	R2,-(SP)
	MOV	R3,-(SP)
	MOV	R1,R2
	MOV	#3,R3
	ADD	R3,R2
1$:	MOV	R0,R1
	CLR	R0
	DIV	#50,R0
	MOVB	RADASC(R1),-(R2)
	SOB	R3,1$
	MOV	(SP)+,R3
	MOV	(SP)+,R2
	MOV	(SP)+,R1
	RETURN

ASC::
	MOV	R1,-(SP)
	MOV	R3,-(SP)
	MOV	R5,-(SP)
	CLR	R5
	MOV	#3,R3
1$:	MUL	#50,R5
	CLR	R0
2$:	CMPB	(R1),RADASC(R0)
	BEQ	3$
	INC	R0
	CMP	R0,#50
	BNE	2$
	BR	ERROR
3$:	INC	R1
	ADD	R0,R5
	SOB	R3,1$
	MOV	R5,R0
	CLC
	BR	RET
ERROR:	SEC
RET:	MOV	(SP)+,R5
	MOV	(SP)+,R3
	MOV	(SP)+,R1
	RETURN

RADASC:	.ASCII	" ABCDEFGHIJKLMNOPQRSTUVWXYZ$./0123456789"
	.EVEN
	.END
                                                                                                                                                                                                                                                                                                                                                                                        