A etc/test.tal => etc/test.tal +5 -0
@@ 0,0 1,5 @@
+
+
+@hey ( -> )
+ BRK
+
M makefile => makefile +1 -1
@@ 12,7 12,7 @@ clean:
lint:
@ ${LIN} src/${ID}.tal
run: ${ROM}
- @ ${EMU} ${ROM} src/${ID}.tal
+ @ ${EMU} ${ROM} etc/test.tal
install: ${ROM}
@ cp ${ROM} ${DIR}
uninstall:
M src/uxnfor.tal => src/uxnfor.tal +5 -4
@@ 47,8 47,9 @@
@on-interactive ( -> )
.Console/read DEI .src skey ?{ !exit }
format-file
- ( ) ;src sclr
- ( ) ;dst sclr !exit
+ ;src <sclr>
+ ;dst <sclr>
+ !exit
(
@|core )
@@ 440,7 441,7 @@
scap/ STA
JMP2r
-@sclr ( str* -- )
+@<sclr> ( str* -- )
#00 ROT ROT
&w ( -- )
STAk
@@ 499,7 500,7 @@
@scope
&new ( -- )
;mem/scope DUP2 ,&ptr STR2
- !sclr
+ !<sclr>
&put ( c -- )
#00 [ LIT2 &ptr =mem/scope ]
( ) DUP2 ;mem/scope-cap EQU2 ?&overflow