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