Show Image DA/IIgs: Preserve NEWVIDEO bits

2024-11-26 02:49:18 +00:00 · 2018-05-11 07:59:23 -07:00 · 2018-05-11 07:59:23 -07:00 · 37ff19ef0d
commit 37ff19ef0d
parent 2da03912a0
1 changed files with 4 additions and 2 deletions
--- a/desk.acc/show.image.file.s
+++ b/desk.acc/show.image.file.s
@ -619,7 +619,8 @@ cloop:  lda     (src),y
        ;; Apple IIgs - DHR Color
        jsr     test_iigs
        bcs     done
-        lda     #%00000000
+        lda     NEWVIDEO
+        and     #<~(1<<5)        ; Color
        sta     NEWVIDEO

 done:   rts
@ -638,7 +639,8 @@ done:   rts
        ;; Apple IIgs - DHR B&W
        jsr     test_iigs
        bcs     done
-        lda     #%00100000
+        lda     NEWVIDEO
+        ora     #(1<<5)         ; B&W
        sta     NEWVIDEO

 done:   rts