~rabbits/uxnfor

a6bf2ad4c1b6c2568854f0b8e1ff44224e8a7fa9 — neauoire 2 months ago 8921d77
Process target test file
3 files changed, 11 insertions(+), 5 deletions(-)

A etc/test.tal
M makefile
M src/uxnfor.tal
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