~rabbits/drifblim

c44c16af6bab1dd41466448cff5e1c6c05960b1f — Devine Lu Linvega 2 months ago cd40688
Fall through from write-hex to write-short
1 files changed, 1 insertions(+), 5 deletions(-)

M src/drifblim.tal
M src/drifblim.tal => src/drifblim.tal +1 -5
@@ 142,7 142,7 @@ JMP2r
	POP POP2
	;err/number !crash
	&byte POP NIP2 NIP !write
	&short POP NIP2 !write-short
	&short POP NIP2 ( fall through )

@write-short ( short* -- )



@@ 159,8 159,6 @@ JMP2r
	( move )
	#0001 !move-head

( .. )

@get-hex ( str* -- value* )

	DUP2 is-hex ?&valid


@@ 168,8 166,6 @@ JMP2r
		&valid
	!shex

( .. )

@get-rel ( label* -- distance )

	.program/write LDZ #00 EQU ?&fill