New (faster) ingame DLI

display_static.asm

@@ -117,8 +117,8 @@ dl ; MAIN game display list
         .byte $70
         .byte $42 
         .word statusBuffer
-        .byte $02, $02 +$80 ;DLI
+        .byte $02, $02
-        .byte $10  ; 2 blank lines 
+        .byte $10+$80  ; 2 blank lines + DLI
 
         .byte $4f
         .word display                   ; 1 line

scorch.asm

@@ -1125,7 +1125,7 @@ MakeTanksVisible
 	rts
 .endp
 ;--------------------------------------------------
-.proc DLIinterruptGraph
+/* .proc DLIinterruptGraph
     ;sta dliA
 	;sty dliY
 	pha
@@ -1145,6 +1145,25 @@ MakeTanksVisible
     ply
     pla
     rti
+.endp */
+
+.proc DLIinterruptGraph
+	pha
+	lda dliColorsFore
+	nop
+	nop
+    .IF TARGET = 800
+	    nop  ; necessary on 800 because DLIs take less time, jitter visible without it
+        nop
+		nop
+    .ENDIF
+	sta COLPF2
+	lda DliColorBack
+    sta COLPF1
+	eor #$02
+	sta DliColorBack
+    pla
+    rti
 .endp
 ;--------------------------------------------------
 .proc DLIinterruptOptions
@@ -1213,6 +1232,7 @@ DLIinterruptNone
 ;--------------------------------------------------
 .proc VBLinterrupt
 	mva #0 dliCounter
+	mva #$02 DliColorBack
 	
 	lda PAL
 	and #%00001110

variables.asm

@@ -414,6 +414,8 @@ ResultX
 ;ResultY .DS 1
 ResultOfTankNr
     .DS 1
+DliColorBack
+	.ds 1
 
 ;----------------------------------------------------
 ;PutChar4x4