diff --git a/constants_top.asm b/constants_top.asm index aa4294c..4d849d6 100644 --- a/constants_top.asm +++ b/constants_top.asm @@ -14,7 +14,9 @@ TankShapesTable .BYTE char_tank1___________ dliColorsBack :10 .by $02,$00 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) .by 0,<200,<800,<1200,<2000 CashOptionH diff --git a/display_static.asm b/display_static.asm index 12f00f9..f772d08 100644 --- a/display_static.asm +++ b/display_static.asm @@ -127,36 +127,36 @@ dl ; MAIN game display list .byte $4f .word display ; 1 line :76 .by $0f ;76 - .by $0f+$80 ; DLI (black bar) ;2 + .by $0f+$80,$0f ; DLI (black bar) ;3 .by $0f+$80 ; DLI - :13 .by $0f ;13 - .by $0f+$80 ; DLI (black bar) ;2 + :12 .by $0f ;12 + .by $0f+$80,$0f ; DLI (black bar) ;3 .by $0f+$80 ; DLI - :8 .by $0f ;8 + :7 .by $0f ;7 .by $4f ;1 .wo display+$0ff0 :2 .by $0f ;2 - .by $0f+$80 ; DLI (black bar) ;2 - .by $0f+$80 ; DLI - :9 .by $0f ;9 - .by $0f+$80 ; DLI (black bar) ;2 + .by $0f+$80,$0f ; DLI (black bar) ;3 .by $0f+$80 ; DLI :8 .by $0f ;8 - .by $0f+$80 ; DLI (black bar) ;2 + .by $0f+$80,$0f ; DLI (black bar) ;3 .by $0f+$80 ; DLI :7 .by $0f ;7 - .by $0f+$80 ; DLI (black bar) ;2 + .by $0f+$80,$0f ; DLI (black bar) ;3 .by $0f+$80 ; DLI :6 .by $0f ;6 - .by $0f+$80 ; DLI (black bar) ;2 + .by $0f+$80,$0f ; DLI (black bar) ;3 .by $0f+$80 ; DLI :5 .by $0f ;5 - .by $0f+$80 ; DLI (black bar) ;2 + .by $0f+$80,$0f ; DLI (black bar) ;3 .by $0f+$80 ; DLI :4 .by $0f ;4 - .by $0f+$80 ; DLI (black bar) ;2 + .by $0f+$80,$0f ; DLI (black bar) ;3 .by $0f+$80 ; DLI :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 :38 .byte $0f ;35 ..... = 200 .by $4f diff --git a/scorch.asm b/scorch.asm index f17bd93..1964aed 100644 --- a/scorch.asm +++ b/scorch.asm @@ -1178,29 +1178,33 @@ MakeTanksVisible rts .endp ;-------------------------------------------------- -/* .proc DLIinterruptGraph +.proc DLIinterruptGraph ;sta dliA ;sty dliY pha phy ldy dliCounter lda dliColorsBack,y - ldy dliColorsFore + nop + nop + nop .IF TARGET = 800 nop ; necessary on 800 because DLIs take less time, jitter visible without it - nop + ;nop .ENDIF sta COLPF1 - sty COLPF2 +; lda dliColorsFore,y ; mountains colors array + lda dliColorsFore ; one mauntain color + sta COLPF2 inc dliCounter ;ldy dliY ;lda dliA ply pla rti -.endp */ +.endp -.proc DLIinterruptGraph +/* .proc DLIinterruptGraph pha lda dliColorsFore nop @@ -1218,7 +1222,7 @@ MakeTanksVisible sta DliColorBack pla rti -.endp +.endp */ ;-------------------------------------------------- .proc DLIinterruptOptions ;sta dliA diff --git a/scorch.bin b/scorch.bin index 942ccbf..c0a5e3a 100644 Binary files a/scorch.bin and b/scorch.bin differ diff --git a/scorch.xex b/scorch.xex index 0fe8b1b..d0737fc 100644 Binary files a/scorch.xex and b/scorch.xex differ