home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / S / ZCNFG21.LZH / CFGLIB.LZH / UCASE.Z80 < prev   
Text File  |  1992-11-03  |  384b  |  15 lines
  1.     public    ucase
  2. ; Convert character in A to upper case.
  3. ; All registers except A are preserved.
  4.  
  5. ucase:
  6.     and    7fh        ; Mask out msb
  7.     cp    61h        ; Less than lower-case 'a'?
  8.     ret    c        ; If so, return
  9.     cp    7bh        ; Greater than lower-case 'z'?
  10.     ret    nc        ; If so, return
  11.     and    5fh        ; Otherwise capitalize
  12.     ret
  13.  
  14.     end
  15.