;
; upshift a if lower case
; a,f
.upshft::
	cpi 'a'	! rc
	cpi 'z'+1 ! rnc
	ani	05fh
	ret