~rabbits/drifblim

077314068763770943ffdd5da078e3e1738ef7b5 — Devine Lu Linvega a month ago 68f8f85
Removed tail-calls
3 files changed, 10 insertions(+), 13 deletions(-)

M build.sh
M src/drifblim.tal
M src/drifloon.tal
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 )