~rabbits/drifblim

b314cbf78634f8f7021146028577ddaaca75fe41 — Devine Lu Linvega a month ago 3654ef2
Errors when input is empty
2 files changed, 7 insertions(+), 6 deletions(-)

M build.sh
M src/drifloon.tal
M build.sh => build.sh +1 -3
@@ 11,6 11,7 @@ then
fi

uxnasm src/drifblim.tal bin/drifblim-seed.rom
uxnasm src/drifloon.tal bin/drifloon.rom

if [ -d "$HOME/roms" ] && [ -e bin/drifblim-seed.rom ]
then


@@ 26,6 27,3 @@ uxncli bin/hello.rom

# Pack

# uxncli bin/drifblim.rom etc/bh.tal bin/bh.rom
# uxncli bin/bh.rom bin/drifblim.rom > bin/bh.log


M src/drifloon.tal => src/drifloon.tal +6 -3
@@ 12,18 12,19 @@ BRK

	.Console/read DEI
	DUP [ LIT2 &buffer =source ] STA
	;&buffer LDA2k INC2 SWP2 STA2
	#0a NEQ ?&end
		,&buffer LDR2 ;source EQU2 ?&empty
		assemble
		print-summary
		&end
	;&buffer LDA2k INC2 SWP2 STA2

BRK
	&empty ;err pstr ;err/empty pstr ( halt ) #010f DEO BRK

@on-error ( id* name* -> )

	#0a19 DEO
	( print ) ;err pstr pstr #2019 DEO pstr ;dict/in pstr ;scope pstr ;dict/dot pstr
	;err pstr pstr #2019 DEO pstr ;dict/in pstr ;scope pstr ;dict/dot pstr
	( halt ) #010f DEO

BRK


@@ 38,6 39,7 @@ BRK
		LDAk handle-char
		INC2 LDAk ?&w
	POP2

JMP2r

@handle-char ( c -- )


@@ 399,6 401,7 @@ JMP2r
	&invalid "Invalid $1
	&mode "Mode $1
	&rewind "Rewind $1
	&empty "Empty $1

@opcodes
	"LIT "INC "POP "NIP "SWP "ROT "DUP "OVR