From: Christian Groessler <chris@groessler.org>
Date: Mon, 26 Aug 2013 08:36:40 +0000 (+0200)
Subject: changes for atarixl target
X-Git-Tag: V2.15~223^2~50
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=a3511ea93dff055022d88ec3c4d6eb17ead2cb6e;p=cc65

changes for atarixl target
---

diff --git a/libsrc/atari/ostype.s b/libsrc/atari/ostype.s
index dc17018fa..7a3342d2a 100644
--- a/libsrc/atari/ostype.s
+++ b/libsrc/atari/ostype.s
@@ -41,11 +41,41 @@
         .export         _get_ostype
 
 .if .defined(__ATARIXL__)
-.warning "fix me!"
+
+        .include "atari.inc"
+        .import __CHARGEN_START__
+        .segment "LOWCODE"
+.macro  disable_rom
+        pha
+        lda     PORTB
+        and     #$fe
+        sta     PORTB
+        lda     #>__CHARGEN_START__
+        sta     CHBAS
+        sta     CHBASE
+        pla
+.endmacro
+.macro  enable_rom
+        lda     PORTB
+        ora     #1
+        sta     PORTB
+        lda     #$E0
+        sta     CHBAS
+        sta     CHBASE
+.endmacro
+
+.else   ; above atarixl, below atari
+
+.macro  disable_rom
+.endmacro
+.macro  enable_rom
+.endmacro
+
 .endif
 
 .proc   _get_ostype
 
+        enable_rom
         lda     $fcd8
         cmp     #$a2
         beq     _400800
@@ -67,6 +97,7 @@
         and     #%00111000
         ora     #%11
 _fin:   ldx     #0
+        disable_rom
         rts
 
 ; unknown ROM
@@ -74,6 +105,7 @@ _fin:   ldx     #0
 _unknown:
         lda     #0
         tax
+        disable_rom
         rts
 
 ; 1200XL ROM