From 321e21d4d1321bdc74a23f720f6841d94daa09a3 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Mon, 11 Jan 2021 11:56:06 -0500
Subject: [PATCH] plasma: trick to make tiny smaller

doesn't work if you page flip :(
---
 graphics/gr/plasma/plasma_tiny.s | 27 ++++++++++++++++++---------
 1 file changed, 18 insertions(+), 9 deletions(-)

diff --git a/graphics/gr/plasma/plasma_tiny.s b/graphics/gr/plasma/plasma_tiny.s
index 30009b4d..960d6c48 100644
--- a/graphics/gr/plasma/plasma_tiny.s
+++ b/graphics/gr/plasma/plasma_tiny.s
@@ -14,6 +14,7 @@
 ; 121 -- make full screen
 ; 119 -- from qkumba, remove php/plp
 ; 118 -- from qkumba, remove SAVEX
+; 109 -- realize we can use PLOT instead of GBASCALC
 
 .include "zp.inc"
 .include "hardware.inc"
@@ -80,6 +81,11 @@ plot_frame:
 
 plot_yloop:
 
+	;==========
+
+	ldy	#39		; XX = 39 (countdown)
+
+
 	txa			; get (y&0xf)<<4
 	pha			; save YY
 	asl
@@ -89,23 +95,26 @@ plot_yloop:
 	sta	CTEMP
 
 	txa
-	lsr
+;	lsr
 
-	ldy	#$0f		; setup mask
-	bcc	plot_mask
-	ldy	#$f0
+	jsr	PLOT		; this sets up MASK and GBASL/H for us
+				; it plots a point at XX,39 but  doesn't
+				; matter as we overdraw
 
-plot_mask:
-	sty	MASK
+
+;	ldy	#$0f		; setup mask				; 2
+;	bcc	plot_mask						; 2
+;	ldy	#$f0							; 2
+
+;plot_mask:
+;	sty	MASK							; 2
 
 
 
-	jsr	GBASCALC	; point GBASL/H to address in A
+;	jsr	GBASCALC	; point GBASL/H to address in A		; 3
 				; after, A trashed, C is clear
 
-	;==========
 
-	ldy	#39		; XX = 39 (countdown)
 
 plot_xloop: