home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol089 / scath.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  610 b   |  34 lines
  1. ;
  2. ; SYSLIB Module Name:  SCATH
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    CATH
  8. ; Module External References:
  9. ;    None
  10. ;
  11.  
  12. ;  CATH -- CONVERT ASCII TO HEX
  13. ;    This routine converts the ASCII Hexadecimal char (0-9,A-F)
  14. ; in A to the corresponding binary value in A.
  15. ;
  16. ;    On return, A=hex value if no error; if error, A=20H (<SP>).
  17. ;
  18.  
  19. CATH::
  20.     SUI    '0'    ; CONVERT 0-9
  21.     JC    ERROR    ; INVALID CHAR
  22.     CPI    10    ; 0-9?
  23.     RC
  24.     SUI    7    ; CONVERT A-F
  25.     CPI    10
  26.     JC    ERROR
  27.     CPI    16    ; A-F?
  28.     JNC    ERROR
  29.     RET
  30. ERROR:    MVI    A,' '    ; ERROR CHAR
  31.     RET
  32.  
  33.     END
  34.