Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-25 21:29:30 +00:00
Code Issues Projects Releases Wiki Activity

SIF: Le Chat Mauve COL/BW modes

Browse Source
This commit is contained in:
Joshua Bell 2018-05-23 20:33:44 -07:00
parent ecb94d43a5
commit 06c721b418
2 changed files with 22 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
desk.acc/show.image.file.s
View File

@ -604,9 +604,6 @@ cloop: lda (src),y
;;; ============================================================
;;; Color/B&W Toggle
;;; TODO: Also consider Le Chat Mauve BW560 mode.
;;; https://github.com/inexorabletash/a2d/issues/41
.proc set_color_mode
;; AppleColor Card - Mode 2 (Color 140x192)
sta SET80VID
@ -616,6 +613,11 @@ cloop: lda (src),y
lda AN3_ON
lda AN3_OFF
;; Le Chat Mauve - COL140 mode
;; (AN3 off, HR1 off, HR2 off, HR3 off)
sta HR2_OFF
sta HR3_OFF
;; Apple IIgs - DHR Color
jsr test_iigs
bcs done
@ -636,6 +638,11 @@ done: rts
sta SET80VID
lda AN3_OFF
;; Le Chat Mauve - BW560 mode
;; (AN3 off, HR1 off, HR2 on, HR3 on)
sta HR2_ON
sta HR3_ON
;; Apple IIgs - DHR B&W
jsr test_iigs
bcs done

20
desktop/desktop_main.s
View File

@ -14179,19 +14179,23 @@ iigs_flag: ; High bit set if IIgs detected.
;;; ============================================================
.proc init_video
;; AppleColor Card - Mode 1 (Monochrome 560x192)
sta CLR80VID
sta DHIRESON
sta DHIRESOFF
sta DHIRESON ; For good measure???
sta DHIRESOFF
sta AN3_OFF
sta AN3_ON
sta AN3_OFF
sta AN3_ON
sta SET80VID
sta DHIRESON ; Also AN3_OFF
sta HR2_ON ; For Le Chat Mauve: 560 B&W mode
sta AN3_OFF
;; Le Chat Mauve - BW560 mode
;; (AN3 off, HR1 off, HR2 on, HR3 on)
sta HR2_ON
sta HR3_ON
bit iigs_flag
bpl end
;; Force B&W mode on the IIgs
bit iigs_flag
bpl end
lda NEWVIDEO
ora #(1<<5) ; B&W
sta NEWVIDEO