Pecus/scorch_src
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Credits flickering fixed!

Browse Source
This commit is contained in:
Pecusx
2022-10-25 19:15:50 +02:00
parent 1891bcc7f1
commit 5f5ea0a752
4 changed files with 34 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.asm
+32 -16
View File
@@ -70,6 +70,7 @@
.zpvar IsEndOfTheFallFlag .byte ; for small speedup ground falling .zpvar IsEndOfTheFallFlag .byte ; for small speedup ground falling
.zpvar sfx_effect .byte .zpvar sfx_effect .byte
.zpvar RMT_blocked .byte .zpvar RMT_blocked .byte
.zpvar ScrollFlag .byte
; --------------OPTIMIZATION VARIABLES-------------- ; --------------OPTIMIZATION VARIABLES--------------
.zpvar Force .word .zpvar Force .word
@@ -1172,22 +1173,6 @@ ColoredLines
CreditsScroll CreditsScroll
lda #$00 lda #$00
sta COLPF2 sta COLPF2
inc CreditsVScrol
lda CreditsVScrol
cmp #32 ;not too fast
beq nextlinedisplay
:2 lsr ;not too fast
sta WSYNC
sta VSCROL
jmp EndOfDLI_GO
nextlinedisplay
lda #0
sta CreditsVScrol
sta VSCROL
adw DLCreditsAddr #40
cpw DLCreditsAddr #CreditsLastLine
bne EndOfDLI_GO
mwa #Credits DLCreditsAddr
EndOfDLI_GO EndOfDLI_GO
inc dliCounter inc dliCounter
ply ply
@@ -1244,6 +1229,37 @@ lab2
; ------- RMT ------- ; ------- RMT -------
SkipRMTVBL SkipRMTVBL
exitVBL exitVBL
bit ScrollFlag
bpl EndOfCreditsVBI
CreditsVBI
inc CreditsVScrol
lda CreditsVScrol
cmp #32 ;not too fast
beq nextlinedisplay
:2 lsr ;not too fast
sta VSCROL
jmp EndOfCreditsVBI
nextlinedisplay
lda #0
sta CreditsVScrol
sta VSCROL
clc
lda DLCreditsAddr
adc #40
sta DLCreditsAddr
bcc @+
inc DLCreditsAddr+1
@
cmp #<CreditsLastLine
bne EndOfCreditsVBI
lda DLCreditsAddr+1
cmp #>CreditsLastLine
bne EndOfCreditsVBI
; adw DLCreditsAddr #40
; cpw DLCreditsAddr #CreditsLastLine
; bne EndOfCreditsVBI
mwa #Credits DLCreditsAddr
EndOfCreditsVBI
.IF TARGET = 5200 .IF TARGET = 5200
center = 114 ;Read analog stick and make it look like a digital stick center = 114 ;Read analog stick and make it look like a digital stick
threshold = 60 threshold = 60
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+2
View File
@@ -2022,6 +2022,7 @@ FinishResultDisplay
jsr GameOverResultsClear jsr GameOverResultsClear
jsr CopyFromPurchaseAndGameOver jsr CopyFromPurchaseAndGameOver
mwa #GameOverDL dlptrs mwa #GameOverDL dlptrs
mva #$ff ScrollFlag ; credits scroll on
lda #%00111110 ; normal screen width, DL on, P/M on lda #%00111110 ; normal screen width, DL on, P/M on
sta dmactls sta dmactls
lda #%00100100 ; playfield before P/M lda #%00100100 ; playfield before P/M
@@ -2173,6 +2174,7 @@ FastTank
bpl AllTanksFloatingDown bpl AllTanksFloatingDown
jsr IsKeyPressed jsr IsKeyPressed
bne MainTanksFloatingLoop ; neverending loop bne MainTanksFloatingLoop ; neverending loop
mva #$00 ScrollFlag ; credits scroll off
jsr MakeDarkScreen jsr MakeDarkScreen
jsr GameOverResultsClear jsr GameOverResultsClear
rts rts