Compilation option: faster graphics routines / better compatibility.

grafproc.asm

@@ -1293,18 +1293,35 @@ drawmountainsloop
 	beq NoMountain
     sta ydraw
 	sty ydraw+1
-;    jsr DrawLine
+.IF FASTER_GRAF_PROCS = 1
 ;	there was Drawline proc 
-drawline
+    lda #screenheight
+    sec
+    sbc ydraw
+    sta tempbyte01
     jsr plot.MakePlot
 	; after plot we have: (xbyte),y - addres of screen byte; X - index in bittable (number of bit)
 ;    jmp IntoDraw    ; jumps inside Draw routine
                     ; because one pixel is already plotted (and who cares? :) )
+@
+	lda (xbyte),y
+	and bittable2,x
+	sta (xbyte),y
+;IntoDraw
+	adw xbyte #screenBytes
+	dec tempbyte01
+	bne @-
+;	end of Drawline proc
+.ELSE
+;	there was Drawline proc 
+drawline
+    jsr plot.MakePlot
 	inc ydraw
 	lda ydraw
 	cmp #screenheight
 	bne drawline
 ;	end of Drawline proc
+.ENDIF
 NoMountain
     inw modify
     inw xdraw

scorch.asm

@@ -12,6 +12,9 @@
 ;---------------------------------------------------
 .def XCORRECTION_FOR_PM = 0
 ; if 1 - active x position of tanks correction fo PMG
+.def FASTER_GRAF_PROCS = 1
+; if 1 - activates faster graphics routines
+;        (direct writes to screen memory - atari only :) )
 ;---------------------------------------------------
 
    ;OPT r+  ; saves 12 bytes :O