home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / asm / PJ96.ZIP / ALIB.ZIP / ISPUNCT.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-22  |  388 b   |  34 lines
  1.     include    asm.inc
  2.  
  3.     public    ispunct
  4.  
  5.     .code
  6.  
  7. ;;    ispunct
  8. ;
  9. ;    entry    AL    character
  10. ;    exit    Zf    if !"#%&'();<=>?[\]*+,-./:^_{|}~
  11. ;
  12. ispunct proc
  13.     cmp    al,'!'
  14.     jbe    isp2
  15.     cmp    al,'/'
  16.     jbe    isp1
  17.     cmp    al,':'
  18.     jbe    isp2
  19.     cmp    al,'@'
  20.     jbe    isp1
  21.     cmp    al,'['
  22.     jbe    isp2
  23.     cmp    al,'`'
  24.     jbe    isp1
  25.     cmp    al,'{'
  26.     jbe    isp2
  27.     cmp    al,'~'
  28.     ja    isp2
  29. isp1:    cmp    al,al
  30. isp2:    ret
  31. ispunct endp
  32.  
  33.     end
  34.