Apple2: don't define _allow_lowercase and uppercasemask on APPLE2ENH

2025-05-31 13:27:52 +02:00
parent 89daccaa43
commit d03529067a
2 changed files with 10 additions and 6 deletions
--- a/libsrc/apple2/allow_lowercase.s
+++ b/libsrc/apple2/allow_lowercase.s
@@ -4,8 +4,11 @@
 ; unsigned char __fastcall__ allow_lowercase (unsigned char onoff);
 ;

+.ifndef __APPLE2ENH__
+
        .export         _allow_lowercase
-        .import         uppercasemask, return0, return1
+        .import         return0
+        .import         uppercasemask, return1

 _allow_lowercase:
        tax
@@ -21,3 +24,5 @@ _allow_lowercase:

 values: .byte   $DF         ; Force uppercase
        .byte   $FF         ; Keep lowercase
+
+.endif
--- a/libsrc/apple2/uppercasemask.s
+++ b/libsrc/apple2/uppercasemask.s
@@ -2,14 +2,12 @@
 ; Oliver Schmidt, 2024-08-06
 ;

+.ifndef __APPLE2ENH__
+
        .export         uppercasemask

-        .ifndef __APPLE2ENH__
        .import         machinetype
        .constructor    detectlowercase
-        .endif
-
-        .ifndef __APPLE2ENH__

        .segment "ONCE"

@@ -21,8 +19,9 @@ detectlowercase:
        sta     uppercasemask
 :       rts

-        .endif

        .data

 uppercasemask:  .byte   $DF     ; Convert to uppercase
+
+.endif