M build.sh => build.sh +2 -1
@@ 8,6 8,7 @@ if [ -e "$HOME/roms/uxnlin.rom" ]
then
echo "Linting.."
uxncli $HOME/roms/uxnlin.rom src/drifblim.tal
+ uxncli $HOME/roms/uxnlin.rom src/drifloon.tal
fi
uxnasm src/drifblim.tal bin/drifblim-seed.rom
@@ 16,7 17,7 @@ uxnasm src/drifloon.tal bin/drifloon.rom
if [ -d "$HOME/roms" ] && [ -e bin/drifblim-seed.rom ]
then
cp bin/drifblim-seed.rom $HOME/roms/drifblim.rom
- echo "Installed in $HOME/roms"
+ echo "Installed in $HOME/roms"
fi
# Running
M src/drifblim.tal => src/drifblim.tal +4 -6
@@ 87,9 87,8 @@ JMP2r
#0100 set-head
;dict/reset ;scope scpy
#00 ;write/skip STA
- handle-file
-JMP2r
+!handle-file
@parse ( t* -- )
@@ 105,9 104,8 @@ JMP2r
( non-runic )
DUP2 is-hex ?lib/rawhex
DUP2 is-opcode ?lib/opcode
- lib/litjsi
-JMP2r
+!lib/litjsi
@lib
&padabs INC2 get-hex write-pad !set-head
@@ 359,9 357,9 @@ JMP2r
( length )
;dict/in pstr ;write/length LDA2 #00ff SUB2 pdec ;dict/bytes pstr
;create-label/count LDA2 pdec ;dict/labels pstr
- ;dict/end pstr
+ ;dict/end
-JMP2r
+!pstr
@save-symbols ( -- )
M src/drifloon.tal => src/drifloon.tal +4 -6
@@ 74,9 74,8 @@ JMP2r
#0100 set-head
;dict/reset ;scope scpy
#00 ;write/skip STA
- handle-source
-JMP2r
+!handle-source
@parse ( t* -- )
@@ 92,9 91,8 @@ JMP2r
( non-runic )
DUP2 is-hex ?lib/rawhex
DUP2 is-opcode ?lib/opcode
- lib/litjsi
-JMP2r
+!lib/litjsi
@lib
&padabs INC2 get-hex write-pad !set-head
@@ 342,9 340,9 @@ JMP2r
( result )
;dict/assembled pstr ;write/length LDA2 #00ff SUB2 pdec ;dict/bytes pstr
;create-label/count LDA2 pdec ;dict/labels pstr
- ;dict/end pstr
+ ;dict/end
-JMP2r
+!pstr
(
@|stdlib )