Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-06-30 22:29:43 +00:00
Code Issues Projects Releases Wiki Activity

DHGR color fix

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ui.attract.shr.a
View File

@ -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

7
src/ui.common.a
View File

@ -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