;
; SYSLIB Module Name:  SCATH
; Author:  Richard Conn
; SYSLIB Version Number:  2.0
; Module Version Number:  1.0
; Module Entry Points:
;	CATH
; Module External References:
;	None
;

;  CATH -- CONVERT ASCII TO HEX
;	This routine converts the ASCII Hexadecimal char (0-9,A-F)
; in A to the corresponding binary value in A.
;
;	On return, A=hex value if no error; if error, A=20H (<SP>).
;

CATH::
	SUI	'0'	; CONVERT 0-9
	JC	ERROR	; INVALID CHAR
	CPI	10	; 0-9?
	RC
	SUI	7	; CONVERT A-F
	CPI	10
	JC	ERROR
	CPI	16	; A-F?
	JNC	ERROR
	RET
ERROR:	MVI	A,' '	; ERROR CHAR
	RET

	END
