2 ; Ullrich von Bassewitz, 02.06.1998
8 .import __ctype, __cdiff
12 lda __ctype,y ; Get character classification
14 lsr a ; Get bit 1 (upper case char) into carry
15 tya ; Get char back into A
16 bcc L9 ; Jump if no upper case char
17 sbc __cdiff ; make lower case char (carry already set)