From 20a01503def1eedd84086a8aa8be33a825e3be5d Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 5 Apr 2023 14:27:56 -0700
Subject: [PATCH] (romviz) Optimizations

---
 gui/romviz/romviz.tal | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/gui/romviz/romviz.tal b/gui/romviz/romviz.tal
index c338e8b..c5e799e 100644
--- a/gui/romviz/romviz.tal
+++ b/gui/romviz/romviz.tal
@@ -125,7 +125,7 @@ JMP2r
 
 	.page LDZ set-page
 	draw-clear
-	#00 .Screen/auto DEO
+	[ LIT2 00 -Screen/auto ] DEO
 	;pixel-icn .Screen/addr DEO2
 	LIT2r 0000
 	&stream
@@ -139,7 +139,7 @@ JMP2r
 	#01 ;draw-chr/color STA
 	#01e0 .Screen/x DEO2
 	#0010 .Screen/y DEO2
-	#01 .Screen/auto DEO
+	[ LIT2 01 -Screen/auto ] DEO
 	.page LDZ draw-byte
 	( size )
 	#0200 .Screen/x DEO2
@@ -169,12 +169,12 @@ JMP2r
 
 @draw-clear ( -- )
 
-	#f1 .Screen/auto DEO
+	[ LIT2 f1 -Screen/auto ] DEO
 	#0400
 	&v
 		#0020 .Screen/x DEO2
 		#00 OVR #70 SFT2 #0020 ADD2 .Screen/y DEO2
-		#c0 &h #00 .Screen/sprite DEO INC DUP ?&h POP
+		#c0 &h [ LIT2 00 -Screen/sprite ] DEO INC DUP ?&h POP
 		INC GTHk ?&v
 	POP2
 
@@ -205,11 +205,11 @@ JMP2r
 
 @draw-linev ( -- )
 
-	#02 .Screen/auto DEO
+	[ LIT2 02 -Screen/auto ] DEO
 	;linev-icn .Screen/addr DEO2
 	#4000
 	&v
-		#05 .Screen/sprite DEO
+		[ LIT2 05 -Screen/sprite ] DEO
 		INC GTHk ?&v
 	POP2
 
@@ -217,11 +217,11 @@ JMP2r
 
 @draw-lineh ( -- )
 
-	#01 .Screen/auto DEO
+	[ LIT2 01 -Screen/auto ] DEO
 	;lineh-icn .Screen/addr DEO2
 	#4000
 	&v
-		#05 .Screen/sprite DEO
+		[ LIT2 05 -Screen/sprite ] DEO
 		INC GTHk ?&v
 	POP2
 
@@ -242,14 +242,14 @@ JMP2r
 @draw-chr ( char -- )
 
 	#20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2
-	[ LIT &color 01 ] .Screen/sprite DEO
+	[ LIT2 &color 01 -Screen/sprite ] DEO
 
 JMP2r
 
 @draw-str ( str* -- )
 
 	LDAk #01 SUB #7f GTH ?&skip
-	#01 .Screen/auto DEO
+	[ LIT2 01 -Screen/auto ] DEO
 	&w
 		LDAk draw-chr
 		INC2 LDAk ?&w
@@ -262,15 +262,15 @@ JMP2r
 
 	addr-pos .Screen/y DEO2 .Screen/x DEO2
 	DUP ?&no-null
-		POP ( .Screen/sprite DEO ) JMP2r
+		POP JMP2r
 		&no-null
 	DUP #20 GTH ?&no-low
-		POP #05 .Screen/sprite DEO JMP2r
+		POP [ LIT2 05 -Screen/sprite ] DEO JMP2r
 		&no-low
 	#80 GTH ?&no-ascii
-		#0a .Screen/sprite DEO JMP2r
+		[ LIT2 0a -Screen/sprite ] DEO JMP2r
 		&no-ascii
-	#0f .Screen/sprite DEO
+	[ LIT2 0f -Screen/sprite ] DEO
 
 JMP2r