home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / SYSLIB / SLIB1.LBR / SCATH.Z80 < prev    next >
Text File  |  2000-06-30  |  640b  |  31 lines
  1. ;
  2. ; SYSLIB Module Name:  SCATH
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    cath
  8.  
  9. ;  CATH -- CONVERT ASCII TO HEX
  10. ;    This routine converts the ASCII Hexadecimal char (0-9,A-F)
  11. ; in A to the corresponding binary value in A.
  12. ;
  13. ;    On return, A=hex value if no error; if error, A=20H (<SP>).
  14. ;
  15.  
  16. CATH:
  17.     SUB    '0'    ; CONVERT 0-9
  18.     JP    C,ERROR    ; INVALID CHAR
  19.     CP    10    ; 0-9?
  20.     RET    C
  21.     SUB    7    ; CONVERT A-F
  22.     CP    10
  23.     JP    C,ERROR
  24.     CP    16    ; A-F?
  25.     JP    NC,ERROR
  26.     RET
  27. ERROR:    LD    A,' '    ; ERROR CHAR
  28.     RET
  29.  
  30.     END
  31.