From 03933fdbcfb642646e9e741e7e2ac71cf1d8e85b Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 6 Feb 2024 11:42:07 -0800
Subject: [PATCH] Save output

---
 gui/shavian/6x13.icn    | Bin 0 -> 576 bytes
 gui/shavian/7x14.icn    | Bin 0 -> 576 bytes
 gui/shavian/build.sh    |   3 ++-
 gui/shavian/shavian.tal |  10 +++++++---
 4 files changed, 9 insertions(+), 4 deletions(-)
 create mode 100644 gui/shavian/6x13.icn
 create mode 100644 gui/shavian/7x14.icn

diff --git a/gui/shavian/6x13.icn b/gui/shavian/6x13.icn
new file mode 100644
index 0000000000000000000000000000000000000000..ce30bf33c4c75ca844f82c1b7a7cdf0792920617
GIT binary patch
literal 576
zcmYk3A&<i_4225<0t&1{0RdJNP%uzc1qB6B6i~3AFi=gW>EM3A{rG#f)9D_VzP{M8
zUpD)$VHkY)u@A6wE@ozq;&;tpCLeNZhj2haa4rX_A?8v_+mz1_m%>csz0>+E3NJ8(
z+f~wTbekExVRqi&fP)<v>s%}#es&ILI(lnp@K^x8@u;k(tOfrSbhOq-xl?jMBSEL)
zAV_4aV|$IJf19tpZ2Z;(<JP9>>h*LY@uxoc-YdDBybpv5qS2W1ZFTZK(2l{Eze_B6
zXXw`xk|-i0)bAmhrq;|yBZ`c%+k9o*YhAv+&A+Equilu_QdjfWx}?<e##C#)oBw$J
Q;}d^yfsfzgSl5)mfB8@^O8@`>

literal 0
HcmV?d00001

diff --git a/gui/shavian/7x14.icn b/gui/shavian/7x14.icn
new file mode 100644
index 0000000000000000000000000000000000000000..c8448b8791bea9ee8dcfeffff149530a05202550
GIT binary patch
literal 576
zcmYk1t!{-t5QPydR@^j`Dg<J(3Q4LEhz(hRXqpN{<qAY4xe9?G1X0mP=%Z9!%|lf5
zL3(BfZhF+WXV3gavZ^f0Z2o>{V@%_rMtl`Ta3ouYZTlF(b?{8qgjzDhjQGJnclMr{
zFvB2IbxG9@hFC=xFiN4f=)n_an+Z>F&f-I0o$EPIY%o#B)d6{nr~2TB#Nwr`;P2;b
z$w)uh8M+V@6J~-$$`av1S=O;~FI2GnB+N!DKguDL<ymVf;$rm+=KQR!C4S6Bg3{rL
z`R9H(`^^95&WNA2b2>$P)&V;D5S3*J>NDXQRvxXb&i$LVeR}*=e|PS-P0EFH*L6@H
g)~j>Jy-mBW>!<qPH}IG8%WKrzmu2a?zIP7(9|P1y^8f$<

literal 0
HcmV?d00001

diff --git a/gui/shavian/build.sh b/gui/shavian/build.sh
index 4ea1418..836e3d9 100755
--- a/gui/shavian/build.sh
+++ b/gui/shavian/build.sh
@@ -23,5 +23,6 @@ then
 	cp $DST $CPY
 fi
 
-cat 6x13.txt | $EMU $DST
+cat 6x13.txt | $EMU $DST > 6x13.icn
+cat 7x14.txt | $EMU $DST > 7x14.icn
 
diff --git a/gui/shavian/shavian.tal b/gui/shavian/shavian.tal
index 4b055c3..64cb60b 100644
--- a/gui/shavian/shavian.tal
+++ b/gui/shavian/shavian.tal
@@ -1,3 +1,5 @@
+( cat in.txt | uxnemu shavian.rom > out.icn )
+
 |00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
@@ -26,7 +28,7 @@
 	.Console/read DEI
 	( linebreak ) DUP #0a NEQ ?{ POP parse-line BRK }
 	( append ) #00 ;buf scap/ STA2
-	( #010e DEO ) BRK
+	BRK
 
 @parse-line ( -- )
 	;buf LDA DUP [ LIT "0 ] EQU SWP [ LIT "1 ] EQU ORA ?new-pixels
@@ -36,12 +38,14 @@
 	( clean ) #0000 ;buf STA2
 	.id LDZ2 <draw-glyph>
 	.id LDZ2 INC2 .id STZ2
-	#0002 ;new-pixels/row STA2
+	#0003 ;new-pixels/row STA2
 	JMP2r
 
 @new-pixels ( -- )
-	;buf parse-pixels .id LDZ2 #40 SFT2 ;glyphs ADD2 [ LIT2 &row 0002 ] INC2k ,&row STR2
+	;buf parse-pixels
+	( store ) DUP .id LDZ2 #40 SFT2 ;glyphs ADD2 [ LIT2 &row 0003 ] INC2k ,&row STR2
 	ADD2 STA
+	( output ) #18 DEO
 	( clean ) #0000 ;buf STA2
 	JMP2r