diff --git a/gui/shavian/6x13.icn b/gui/shavian/6x13.icn new file mode 100644 index 0000000..ce30bf3 Binary files /dev/null and b/gui/shavian/6x13.icn differ diff --git a/gui/shavian/7x14.icn b/gui/shavian/7x14.icn new file mode 100644 index 0000000..c8448b8 Binary files /dev/null and b/gui/shavian/7x14.icn differ 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 .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