support display on IIGS

2018-01-09 15:56:21 -08:00 · 2018-01-09 15:56:21 -08:00 · 938998e4d3
parent c98c22f776
commit 938998e4d3
1 changed files with 9 additions and 2 deletions
--- 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 {