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