uxn

commit 7e4cb5fd1e50751f88aea5be6ff4f4ad735c9c68
parent 2a95c710b90f5faa9cb9d05bcdce58c78099445b
Author: neauoire <aliceffekt@gmail.com>
Date:   Sat,  3 Jul 2021 10:38:20 -0700

Minor optimization to font.tal

Diffstat:
M
projects/examples/demos/font.tal
 | 
22
+++++++++++-----------

1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/projects/examples/demos/font.tal b/projects/examples/demos/font.tal
@@ -62,19 +62,19 @@ BRK
 @draw-uf3 ( x* y* text* color -- )
 		
 	STH 
-	STH2
-	.Screen/y DEO2
-	.Screen/x DEO2
-	STH2r
+	SWP2 .Screen/y DEO2
+	SWP2 DUP2 .Screen/x DEO2 SWP2
 	&loop
-		LDAk #0a ! ,&no-linebreak JCN
-			#0000 .Screen/x DEO2
-			.Screen/y DEI2 #0018 ++ .Screen/y DEO2
-		&no-linebreak
-		LDAk STHkr ,&sprite JSR
-		#0001 ++
+		LDAk 
+		DUP #0a ! ,&no-linebreak JCN
+			( move down ) OVR2 .Screen/x DEO2
+			( incr y ) .Screen/y DEI2 #0010 ++ .Screen/y DEO2 
+			POP ,&continue JMP &no-linebreak
+		STHkr ,&sprite JSR
+		&continue
+		( incr addr ) #0001 ++
 		LDAk ,&loop JCN
-	POP2 POPr
+	POP2 POP2 POPr
 	RTN
 
 	&sprite ( char color -- )