home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / progjour / 1991 / 06 / alib / isalnum.asm < prev    next >
Assembly Source File  |  1991-06-25  |  778b  |  68 lines
  1.     include    asm.inc
  2.  
  3.     public    isalnum
  4.     public    isalpha
  5.     public    isalpha_
  6.     public    isdigit
  7.  
  8.     .code
  9.  
  10. ;;    isalnum
  11. ;
  12. ;    entry    AL    character
  13. ;    exit    Zf    if alphanumeric character
  14. ;
  15. isalnum proc
  16.     call    isalpha
  17.     jne    isdigit
  18.     ret
  19. isalnum endp
  20.  
  21.  
  22. ;;    isalpha_
  23. ;
  24. ;    entry    AL    character
  25. ;    exit    Zf    if AL alphabetic or _ but not number
  26. ;
  27. isalpha_ proc
  28.     cmp    al,'_'
  29.     jne    isalpha
  30.     ret
  31. isalpha_ endp
  32.  
  33.  
  34. ;;    isalpha
  35. ;
  36. ;    entry    AL    character
  37. ;    exit    Zf    if AL==A-Za-z
  38. ;
  39. isalpha proc
  40.     cmp    al,'A'
  41.     jb    iap2
  42.     cmp    al,'Z'
  43.     jbe    iap1
  44.     cmp    al,'a'
  45.     jb    iap2
  46.     cmp    al,'z'
  47.     ja    iap2
  48. iap1:    cmp    al,al
  49. iap2:    ret
  50. isalpha endp
  51.  
  52.  
  53. ;;    isdigit
  54. ;
  55. ;    entry    AL    char
  56. ;    exit    Zf    if 0..9
  57. ;
  58. isdigit proc
  59.     cmp    al,'0'
  60.     jb    idg1
  61.     cmp    al,'9'
  62.     ja    idg1
  63.     cmp    al,al
  64. idg1:    ret
  65. isdigit endp
  66.  
  67.     end
  68.