From 938998e4d39f7a95b065739c8f4dc22de498f766 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Tue, 9 Jan 2018 15:56:21 -0800
Subject: [PATCH] support display on IIGS

---
 src/a2fc.system.a | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/a2fc.system.a b/src/a2fc.system.a
index 80b7d52..c48b10e 100644
--- a/src/a2fc.system.a
+++ b/src/a2fc.system.a
@@ -47,10 +47,17 @@ Start
 +        jsr   MLI                   ; open file
          !byte kMLIOpen
          !word mliParamForOpen
-         inx                         ; convert to kMLIReadOrQuitCount
+         inx                         ; convert to kMLIReadOrQuitCount, clear Z flag
          stx   <mliparam             ; set parameter count for MLI call
                                      ; both Read and Quit accept four parameters
-         jmp   ReadFile
+!cpu 65816
+         sep   #2                    ; set Z flag on 65816 only
+!cpu 6502
+         bne   +                     ; conditionally skip GS-specific code
+         lda   $c029
+         and   #$1f
+         sta   $c029
++        jmp   ReadFile
 
 CodeStart
 !pseudopc $50 {