Apple-2gs-SW/GSCats
1
0
Fork 0
mirror of https://github.com/blondie7575/GSCats.git synced 2025-01-22 12:29:57 +00:00
Code Issues Projects Releases Wiki Activity

Switch to scanline border effect instead of VBL

Browse Source
This commit is contained in:
blondie7575 2023-07-29 16:35:11 -07:00
parent 3199c94eb5
commit 826660643c
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
graphics.s
View File

@ -241,9 +241,9 @@ setBorderAtScanLine:
ora #%01000000
sta $e19d00,x
; lda $e19dc7 ; Enable interrupt on scanline 199
; ora #%01000000
; sta $e19dc7
lda $e19dc7 ; Enable interrupt on scanline 199
ora #%01000000
sta $e19dc7
lda $e0c023 ; Enable scaline interrupts, if needed
ora #%00000010
@ -264,22 +264,22 @@ scanLineInterruptHandler:
and #%11011111
sta $e0c032
; lda scanLineColorChangePhaseCounter
; beq scanLineInterruptHandler0
lda scanLineColorChangePhaseCounter
beq scanLineInterruptHandler0
; lda BORDERCOLOR ; Set border color
; and #$f0
; ora #$7 ; Set to sky at bottom of screen
; sta BORDERCOLOR
; dec scanLineColorChangePhaseCounter
; bra scanLineInterruptHandlerDone
lda BORDERCOLOR ; Set border color
and #$f0
ora #$7 ; Set to sky at bottom of screen
sta BORDERCOLOR
dec scanLineColorChangePhaseCounter
bra scanLineInterruptHandlerDone
scanLineInterruptHandler0:
lda BORDERCOLOR ; Set border color to grass at given scanline
and #$f0
ora #$4
sta BORDERCOLOR
; inc scanLineColorChangePhaseCounter
inc scanLineColorChangePhaseCounter
scanLineInterruptHandlerDone:
clc

4
titleScreen.s
View File

@ -65,9 +65,9 @@ titleScreenCopyLoop:
titleScreenMainLoop:
; Track animations
;jsr syncOverscanBottom
;jsr syncOverscanBottom ; This looks awesome but makes interactivity terrible
jsr syncVBL
BORDER_COLOR #$7
;BORDER_COLOR #$7
lda titleAnimationCounter
inc