From b2cfc76267dd4c331257b3fbfbd9c85127981dc6 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sun, 11 Feb 2024 11:45:51 -0800
Subject: [PATCH] Housekeeping

---
 gui/shaviankb/shaviankb.tal | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/gui/shaviankb/shaviankb.tal b/gui/shaviankb/shaviankb.tal
index 1b09671..49f407c 100644
--- a/gui/shaviankb/shaviankb.tal
+++ b/gui/shaviankb/shaviankb.tal
@@ -172,11 +172,6 @@
 	[ LIT2 &color 03 -Screen/sprite ] DEOk DEOk DEOk DEO
 	JMP2r
 
-@<draw-times> ( color times -- )
-	OVR .Screen/sprite DEO
-	INC DUP ?<draw-times>
-	POP2 JMP2r
-
 @<draw-frame> ( x* y* w h sprite* -- )
 	.Screen/addr DEO2
 	,&h STR
@@ -205,14 +200,17 @@
 	,&w LDR <draw-frame>/repeat
 	<draw-frame>/next
 	[ LIT2 81 -Screen/sprite ] DEO
-	( fill ) <draw-frame>/next
 	,&x LDR2 #0008 ADD2 .Screen/x DEO2
 	,&y LDR2 #0008 ADD2 .Screen/y DEO2
 	JMP2r
 	&next .Screen/addr DEI2k #0010 ADD2 ROT DEO2
 	JMP2r
-	&repeat #00 &repeat-loop [ LIT2 81 -Screen/sprite ] DEO
-	INC GTHk ?&repeat-loop
+	&repeat #8100 ROT SUB
+	( >> )
+
+@<draw-times> ( color times -- )
+	OVR .Screen/sprite DEO
+	INC DUP ?<draw-times>
 	POP2 JMP2r
 
 @<update-pointer> ( color addr* -- )