M build.sh => build.sh +6 -1
@@ 4,10 4,15 @@ echo "Cleaning.."
rm -rf bin
mkdir bin
+if [ -e "$HOME/roms/uxnlin.rom" ]
+then
+ echo "Linting.."
+ uxncli $HOME/roms/uxnlin.rom src/nasu.tal
+fi
+
echo "Assembling.."
uxnasm src/nasu.tal bin/nasu.rom
-echo "Installing.."
if [ -d "$HOME/roms" ] && [ -e ./bin/nasu.rom ]
then
cp ./bin/nasu.rom $HOME/roms
M src/nasu.tal => src/nasu.tal +3 -5
@@ 122,7 122,7 @@ JMP2r
&no-start
( end )
.Console/read DEI
- DUP DUP #1f GTH SWP #7f LTH AND ,&no-end JCN
+ DUPk #1f GTH SWP #7f LTH AND ,&no-end JCN
#00 ,&listening STR
&no-end
( capture )
@@ 555,8 555,7 @@ JMP2r
@op-shiftu ( addr* -- )
- DUP2
- DUP2 #0007 ADD2 SWP2 LDAk STH
+ DUP2k #0007 ADD2 SWP2 LDAk STH
&ch1
INC2k LDA STH
DUP2 STHr ROT ROT STA
@@ 575,8 574,7 @@ JMP2r
@op-shiftd ( addr* -- )
- DUP2
- DUP2 #0007 ADD2 LDAk STH
+ DUP2k #0007 ADD2 LDAk STH
&ch1
DUP2 #0001 SUB2 LDA STH
DUP2 STHr ROT ROT STA