From 89daccaa435b1d1bdb9e1860cdaa4671718502a8 Mon Sep 17 00:00:00 2001
From: Colin Leroy-Mira <colin@colino.net>
Date: Wed, 21 May 2025 20:47:21 +0200
Subject: [PATCH] Apple2: automatically enable lowercase starting from //e

---
 libsrc/apple2/uppercasemask.s | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/libsrc/apple2/uppercasemask.s b/libsrc/apple2/uppercasemask.s
index 8b993bb1e..b0f05eee7 100644
--- 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