Apple2: automatically enable lowercase starting from //e

2025-05-21 20:47:21 +02:00
parent f8c51ffd3d
commit 89daccaa43
1 changed files with 19 additions and 0 deletions
--- a/libsrc/apple2/uppercasemask.s
+++ b/libsrc/apple2/uppercasemask.s
@@ -4,6 +4,25 @@

        .export         uppercasemask

+        .ifndef __APPLE2ENH__
+        .import         machinetype
+        .constructor    detectlowercase
+        .endif
+
+        .ifndef __APPLE2ENH__
+
+        .segment "ONCE"
+
+detectlowercase:
+        bit     machinetype
+        bpl     :+
+
+        lda     #$FF
+        sta     uppercasemask
+:       rts
+
+        .endif
+
        .data

 uppercasemask:  .byte   $DF     ; Convert to uppercase