Added option to disable the force-to-uppercase behavior of the apple2 target. (#2474)

* Added option to disable the force-to-uppercase behavior of the apple2 target. * Fixed dangling spaces.
2024-08-07 18:27:09 +02:00
parent 925a589b90
commit feb5026823
7 changed files with 52 additions and 2 deletions
--- a/libsrc/apple2/allow_lowercase.s
+++ b/libsrc/apple2/allow_lowercase.s
@@ -0,0 +1,23 @@
+;
+; Oliver Schmidt, 2024-08-06
+;
+; unsigned char __fastcall__ allow_lowercase (unsigned char onoff);
+;
+
+        .export         _allow_lowercase
+        .import         uppercasemask, return0, return1
+
+_allow_lowercase:
+        tax
+        lda     values,x
+        ldx     uppercasemask
+        sta     uppercasemask
+        cpx     #$FF
+        beq     :+
+        jmp     return0
+:       jmp     return1
+
+        .rodata
+
+values: .byte   $DF         ; Force uppercase
+        .byte   $FF         ; Keep lowercase