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

Prepare for mountains colors (test)

Browse Source 
But no memory for one "NOP" (a800) and colors array :)
This commit is contained in:
Pecusx
2022-11-30 09:58:48 +01:00
parent 18cce6377e
commit d14f9a2999
5 changed files with 27 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
constants_top.asm
+3 -1
View File
@@ -14,7 +14,9 @@ TankShapesTable .BYTE char_tank1___________
dliColorsBack dliColorsBack
:10 .by $02,$00 :10 .by $02,$00
dliColorsFore dliColorsFore
.by $0a .by $0a ; one mountains color
; .by $0e,$0c,$0c,$0b,$0b,$0a,$0a,$09,$09,$08 ; mountains colors array
; .by $08,$08,$07,$07,$07,$06,$06,$06,$06,$05
CashOptionL ;(one zero less than on the screen) CashOptionL ;(one zero less than on the screen)
.by 0,<200,<800,<1200,<2000 .by 0,<200,<800,<1200,<2000
CashOptionH CashOptionH
display_static.asm
+13 -13
View File
@@ -127,36 +127,36 @@ dl ; MAIN game display list
.byte $4f .byte $4f
.word display ; 1 line .word display ; 1 line
:76 .by $0f ;76 :76 .by $0f ;76
.by $0f+$80 ; DLI (black bar) ;2 .by $0f+$80,$0f ; DLI (black bar) ;3
.by $0f+$80 ; DLI .by $0f+$80 ; DLI
:13 .by $0f ;13 :12 .by $0f ;12
.by $0f+$80 ; DLI (black bar) ;2 .by $0f+$80,$0f ; DLI (black bar) ;3
.by $0f+$80 ; DLI .by $0f+$80 ; DLI
:8 .by $0f ;8 :7 .by $0f ;7
.by $4f ;1 .by $4f ;1
.wo display+$0ff0 .wo display+$0ff0
:2 .by $0f ;2 :2 .by $0f ;2
.by $0f+$80 ; DLI (black bar) ;2 .by $0f+$80,$0f ; DLI (black bar) ;3
.by $0f+$80 ; DLI
:9 .by $0f ;9
.by $0f+$80 ; DLI (black bar) ;2
.by $0f+$80 ; DLI .by $0f+$80 ; DLI
:8 .by $0f ;8 :8 .by $0f ;8
.by $0f+$80 ; DLI (black bar) ;2 .by $0f+$80,$0f ; DLI (black bar) ;3
.by $0f+$80 ; DLI .by $0f+$80 ; DLI
:7 .by $0f ;7 :7 .by $0f ;7
.by $0f+$80 ; DLI (black bar) ;2 .by $0f+$80,$0f ; DLI (black bar) ;3
.by $0f+$80 ; DLI .by $0f+$80 ; DLI
:6 .by $0f ;6 :6 .by $0f ;6
.by $0f+$80 ; DLI (black bar) ;2 .by $0f+$80,$0f ; DLI (black bar) ;3
.by $0f+$80 ; DLI .by $0f+$80 ; DLI
:5 .by $0f ;5 :5 .by $0f ;5
.by $0f+$80 ; DLI (black bar) ;2 .by $0f+$80,$0f ; DLI (black bar) ;3
.by $0f+$80 ; DLI .by $0f+$80 ; DLI
:4 .by $0f ;4 :4 .by $0f ;4
.by $0f+$80 ; DLI (black bar) ;2 .by $0f+$80,$0f ; DLI (black bar) ;3
.by $0f+$80 ; DLI .by $0f+$80 ; DLI
:3 .by $0f ;3 :3 .by $0f ;3
.by $0f+$80,$0f ; DLI (black bar) ;3
.by $0f+$80 ; DLI
:2 .by $0f ;2
.by $0f+$80 ; DLI (black to end);1 .by $0f+$80 ; DLI (black to end);1
:38 .byte $0f ;35 ..... = 200 :38 .byte $0f ;35 ..... = 200
.by $4f .by $4f
scorch.asm
+11 -7
View File
@@ -1178,29 +1178,33 @@ MakeTanksVisible
rts rts
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
/* .proc DLIinterruptGraph .proc DLIinterruptGraph
;sta dliA ;sta dliA
;sty dliY ;sty dliY
pha pha
phy phy
ldy dliCounter ldy dliCounter
lda dliColorsBack,y lda dliColorsBack,y
ldy dliColorsFore nop
nop
nop
.IF TARGET = 800 .IF TARGET = 800
nop ; necessary on 800 because DLIs take less time, jitter visible without it nop ; necessary on 800 because DLIs take less time, jitter visible without it
nop ;nop
.ENDIF .ENDIF
sta COLPF1 sta COLPF1
sty COLPF2 ; lda dliColorsFore,y ; mountains colors array
lda dliColorsFore ; one mauntain color
sta COLPF2
inc dliCounter inc dliCounter
;ldy dliY ;ldy dliY
;lda dliA ;lda dliA
ply ply
pla pla
rti rti
.endp */ .endp
.proc DLIinterruptGraph /* .proc DLIinterruptGraph
pha pha
lda dliColorsFore lda dliColorsFore
nop nop
@@ -1218,7 +1222,7 @@ MakeTanksVisible
sta DliColorBack sta DliColorBack
pla pla
rti rti
.endp .endp */
;-------------------------------------------------- ;--------------------------------------------------
.proc DLIinterruptOptions .proc DLIinterruptOptions
;sta dliA ;sta dliA
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.