Prepare for mountains colors (test)

But no memory for one "NOP" (a800) and colors array :)

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   

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

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