DHGR color fix

This commit is contained in:
4am 2019-10-12 12:23:15 -04:00
parent e3182b2880
commit 7ea1e6277a
2 changed files with 7 additions and 4 deletions

View File

@ -98,7 +98,7 @@ BlankSHR
jsr Home
lda NEWVIDEO ; set GS NEWVIDEO mode to turn on linearize
ora #$40
ora #%01000000
sta NEWVIDEO
sta WRITEAUXMEM ; writes go to auxmem
@ -114,7 +114,7 @@ BlankSHR
sta WRITEMAINMEM ; writes go to main memory
lda NEWVIDEO ; set GS NEWVIDEO mode to turn on SHR mode
ora #$81
ora #%10000001
sta NEWVIDEO
rts

View File

@ -46,8 +46,11 @@ Home
and #SUPPORTS_SHR
beq @noSHR
lda NEWVIDEO
and #$3F
sta NEWVIDEO ; get out of SHR mode and linear mode
and #%00011111 ; bit 7 = 0 -> IIgs Apple II-compatible video modes
; bit 6 = 0 -> IIgs 128K memory map is the same as the Apple IIe
; bit 5 = 0 -> IIgs DHGR is color, not monochrome
; bits 0-4 unchanged
sta NEWVIDEO
lda #$F0
sta TBCOLOR ; white text on black background
lda #$00