Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

DLI code opt

Browse Source
This commit is contained in:
Pecusx
2023-08-19 20:30:54 +02:00
parent 4479c2ef29
commit 8fc08f2746
3 changed files with 11 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Atari/interrupts.asm
+11 -15
View File
@@ -23,11 +23,11 @@ GoGradient
iny iny
lda (GradientColors),y ; mountains colors array lda (GradientColors),y ; mountains colors array
sta COLPF2 sta COLPF2
jmp DLIinterruptGameOver.EndOfDLI_GO EndOfDLI_Gr
; inc dliCounter inc dliCounter
; ply ply
; pla pla
; rti rti
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
.proc DLIinterruptOptions .proc DLIinterruptOptions
@@ -42,13 +42,13 @@ GoGradient
ldy #1 ldy #1
@ lda (GradientColors),y ; mountains colors array @ lda (GradientColors),y ; mountains colors array
sta COLPF2 ; allways <> 0 !!! sta COLPF2 ; allways <> 0 !!!
bne DLIinterruptGameOver.EndOfDLI_GO bne DLIinterruptGraph.EndOfDLI_Gr
Subtitle Subtitle
lda #0 lda #0
sta COLPF2 sta COLPF2
lda #4 lda #4
sta COLPF1 sta COLPF1
bne DLIinterruptGameOver.EndOfDLI_GO bne DLIinterruptGraph.EndOfDLI_Gr
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
.proc DLIinterruptGameOver .proc DLIinterruptGameOver
@@ -59,14 +59,14 @@ Subtitle
lda #%00100001 ; playfield after P/M - prior=1 lda #%00100001 ; playfield after P/M - prior=1
;STA WSYNC ;STA WSYNC
sta PRIOR sta PRIOR
bne EndOfDLI_GO bne DLIinterruptGraph.EndOfDLI_Gr
EndofPMG EndofPMG
cmp #1 cmp #1
bne ColoredLines bne ColoredLines
lda #%00100100 ; playfield before P/M lda #%00100100 ; playfield before P/M
;STA WSYNC ;STA WSYNC
sta PRIOR sta PRIOR
bne EndOfDLI_GO bne DLIinterruptGraph.EndOfDLI_Gr
ColoredLines ColoredLines
cmp #9 cmp #9
beq CreditsScroll beq CreditsScroll
@@ -76,15 +76,11 @@ ColoredLines
;STA WSYNC ;STA WSYNC
sta COLPF2 sta COLPF2
sty COLPF1 sty COLPF1
bne EndOfDLI_GO bne DLIinterruptGraph.EndOfDLI_Gr
CreditsScroll CreditsScroll
lda #$00 lda #$00
sta COLPF2 sta COLPF2
EndOfDLI_GO beq DLIinterruptGraph.EndOfDLI_Gr
inc dliCounter
ply
pla
rti
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
.proc DLIinterruptText .proc DLIinterruptText
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.