; ; 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 (). ; 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