diff --git a/scorch.asm b/scorch.asm index be2a0f0..c9e5af2 100644 --- a/scorch.asm +++ b/scorch.asm @@ -70,6 +70,7 @@ .zpvar IsEndOfTheFallFlag .byte ; for small speedup ground falling .zpvar sfx_effect .byte .zpvar RMT_blocked .byte + .zpvar ScrollFlag .byte ; --------------OPTIMIZATION VARIABLES-------------- .zpvar Force .word @@ -1172,22 +1173,6 @@ ColoredLines CreditsScroll lda #$00 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 inc dliCounter ply @@ -1244,6 +1229,37 @@ lab2 ; ------- RMT ------- SkipRMTVBL 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 +; adw DLCreditsAddr #40 +; cpw DLCreditsAddr #CreditsLastLine +; bne EndOfCreditsVBI + mwa #Credits DLCreditsAddr +EndOfCreditsVBI .IF TARGET = 5200 center = 114 ;Read analog stick and make it look like a digital stick threshold = 60 diff --git a/scorch.bin b/scorch.bin index 9ebc0e0..37f1a7c 100644 Binary files a/scorch.bin and b/scorch.bin differ diff --git a/scorch.xex b/scorch.xex index b729ae1..f61145e 100644 Binary files a/scorch.xex and b/scorch.xex differ diff --git a/textproc.asm b/textproc.asm index 4ab8fa8..66d6ee6 100644 --- a/textproc.asm +++ b/textproc.asm @@ -2022,6 +2022,7 @@ FinishResultDisplay jsr GameOverResultsClear jsr CopyFromPurchaseAndGameOver mwa #GameOverDL dlptrs + mva #$ff ScrollFlag ; credits scroll on lda #%00111110 ; normal screen width, DL on, P/M on sta dmactls lda #%00100100 ; playfield before P/M @@ -2173,6 +2174,7 @@ FastTank bpl AllTanksFloatingDown jsr IsKeyPressed bne MainTanksFloatingLoop ; neverending loop + mva #$00 ScrollFlag ; credits scroll off jsr MakeDarkScreen jsr GameOverResultsClear rts