home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / asm / PJ96.ZIP / ALIB.ZIP / ISUPPER.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-22  |  261 b   |  22 lines
  1.     include    asm.inc
  2.  
  3.     public    isupper
  4.  
  5.     .code
  6.  
  7. ;;    isupper
  8. ;
  9. ;    entry    AL    character
  10. ;    exit    Zf    if A..Z
  11. ;
  12. isupper proc
  13.     cmp    al,'Z'
  14.     ja    iup1            ; if not A..Z
  15.     cmp    al,'A'
  16.     jb    iup1            ; if not A..Z
  17.     cmp    al,al            ; else set Zf
  18. iup1:    ret
  19. isupper endp
  20.  
  21.     end
  22.