2 ; Ullrich von Bassewitz, 02.06.1998
8 .import __ctype, __cdiff
12 lda __ctype,y ; Get character classification
13 lsr a ; Get bit 0 (lower char) into carry
14 tya ; Get C back into A
15 bcc L9 ; Jump if not lower char
17 adc __cdiff ; make upper case char