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