mirror of
https://github.com/a2-4am/4cade.git
synced 2024-09-27 12:57:21 +00:00
DHGR color fix
This commit is contained in:
parent
e3182b2880
commit
7ea1e6277a
@ -98,7 +98,7 @@ BlankSHR
|
|||||||
jsr Home
|
jsr Home
|
||||||
|
|
||||||
lda NEWVIDEO ; set GS NEWVIDEO mode to turn on linearize
|
lda NEWVIDEO ; set GS NEWVIDEO mode to turn on linearize
|
||||||
ora #$40
|
ora #%01000000
|
||||||
sta NEWVIDEO
|
sta NEWVIDEO
|
||||||
|
|
||||||
sta WRITEAUXMEM ; writes go to auxmem
|
sta WRITEAUXMEM ; writes go to auxmem
|
||||||
@ -114,7 +114,7 @@ BlankSHR
|
|||||||
sta WRITEMAINMEM ; writes go to main memory
|
sta WRITEMAINMEM ; writes go to main memory
|
||||||
|
|
||||||
lda NEWVIDEO ; set GS NEWVIDEO mode to turn on SHR mode
|
lda NEWVIDEO ; set GS NEWVIDEO mode to turn on SHR mode
|
||||||
ora #$81
|
ora #%10000001
|
||||||
sta NEWVIDEO
|
sta NEWVIDEO
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
@ -46,8 +46,11 @@ Home
|
|||||||
and #SUPPORTS_SHR
|
and #SUPPORTS_SHR
|
||||||
beq @noSHR
|
beq @noSHR
|
||||||
lda NEWVIDEO
|
lda NEWVIDEO
|
||||||
and #$3F
|
and #%00011111 ; bit 7 = 0 -> IIgs Apple II-compatible video modes
|
||||||
sta NEWVIDEO ; get out of SHR mode and linear mode
|
; 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
|
lda #$F0
|
||||||
sta TBCOLOR ; white text on black background
|
sta TBCOLOR ; white text on black background
|
||||||
lda #$00
|
lda #$00
|
||||||
|
Loading…
Reference in New Issue
Block a user