~rabbits/drifblim

66c0b04bce86dde1196856587e5cf30746b7232b — neauoire 4 months ago 9a1049e
Faster #chex
1 files changed, 4 insertions(+), 6 deletions(-)

M src/drifblim.tal
M src/drifblim.tal => src/drifblim.tal +4 -6
@@ 419,15 419,13 @@ JMP2r

JMP2r

@chex ( char -- <hex> )
@chex ( c --  )

	DUP #2f GTH OVR #3a LTH AND ,&n JCN
	DUP #60 GTH OVR #67 LTH AND ,&l JCN
		POP #ff
	LIT "0 SUB DUP #09 GTH JMP JMP2r
	#27 SUB DUP #0f GTH JMP JMP2r
	POP #ff

JMP2r
	&n #30 SUB JMP2r
	&l #57 SUB JMP2r

@pdec ( short* -- )