Last line indicates Black Hole

This commit is contained in:
Pecusx
2023-10-03 13:48:23 +02:00
parent 58170eea81
commit fbc396ec1b
6 changed files with 16 additions and 5 deletions
+2 -1
View File
@@ -180,7 +180,8 @@ dl ; MAIN game display list
.by $0f+$80 ; DLI
:2 .by $0f ;2
.by $0f+$80 ; DLI (black to end);1
:38 .byte $0f ;35 ..... = 200
:37 .byte $0f ;34 ..... = 199
.by $0f+$80 ; DLI - Black Hole
.by $4f
.wo EmptyLine ; additional line of ground
.byte $41
+11 -1
View File
@@ -7,6 +7,8 @@
pha
phy
ldy dliCounter
cpy #$14
beq GoBlackHole
lda dliColorsBack,y
.IF TARGET = 800
nop ; necessary on 800 because DLIs take less time, jitter visible without it
@@ -14,7 +16,7 @@
nop
.ENDIF
nop
nop
;nop
sta COLPF1
lda GradientNr
bne GoGradient
@@ -23,11 +25,19 @@ GoGradient
iny
lda (GradientColors),y ; mountains colors array
sta COLPF2
NoBlacHoleLine
EndOfDLI_Gr
inc dliCounter
ply
pla
rti
GoBlackHole
lda BlackHole
beq NoBlacHoleLine
nop
lda #$00 ; color of last line
sta COLPF2
beq EndOfDLI_Gr
.endp
;--------------------------------------------------
.proc DLIinterruptOptions