home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / asm / PJ96.ZIP / ALIB.ZIP / ISXDIGIT.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-23  |  385 b   |  28 lines
  1.     include    asm.inc
  2.  
  3.     public    isxdigit
  4.  
  5.     .code
  6.     extn    isdigit
  7.  
  8. ;;    isxdigit
  9. ;
  10. ;    entry    AL    character
  11. ;    exit    Zf    if 0..9 A..F a..f
  12. ;
  13. isxdigit proc
  14.     cmp    al,'f'
  15.     jae    ixd2            ;  if f or non-xdigit
  16.     cmp    al,'a'
  17.     jae    ixd1            ;  if a..f
  18.     cmp    al,'F'
  19.     jae    ixd2            ;  if F or non-xdigit
  20.     cmp    al,'A'
  21.     jae    ixd1            ;  if A..F
  22.     jmp    isdigit
  23. ixd1:    cmp    al,al
  24. ixd2:    ret
  25. isxdigit endp
  26.  
  27.     end
  28.