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.LBR
/
CFGLIB.LBR
/
UCASE.Z80
< prev
Wrap
Text File
|
1991-10-25
|
384b
|
15 lines
public ucase
; Convert character in A to upper case.
; All registers except A are preserved.
ucase:
and 7fh ; Mask out msb
cp 61h ; Less than lower-case 'a'?
ret c ; If so, return
cp 7bh ; Greater than lower-case 'z'?
ret nc ; If so, return
and 5fh ; Otherwise capitalize
ret
end