home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / proglc / tnylib.lzh / ISUPPER.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-08-03  |  309 b   |  27 lines
  1. include compiler.inc
  2.     ttl    ISUPPER, 1.03, 08-03-86 clr
  3.  
  4.  
  5. ;char function - returns 1 if 'A'-'Z', else 0
  6.  
  7.     dseg
  8.  
  9.     cseg
  10.  
  11.     procdef    isupper, <<chr, byte>>
  12.  
  13.     mov    al,chr
  14.     mov    dx,0
  15.     cmp    al,'A'    ;41h
  16.     jb    L003e
  17.     cmp    al,'Z'    ;5ah
  18.     ja    L003e
  19.     inc    dx
  20. L003e:    mov    ax,dx
  21.     pret
  22.  
  23.     pend    isupper
  24.  
  25.     finish
  26. 
  27.