~rabbits/drifblim

2ec6a1c7d6e59c6af2ad067d52843866302fc723 — Devine Lu Linvega 1 year, 1 month ago b879fea
Small optimizations of stdlib
1 files changed, 5 insertions(+), 7 deletions(-)

M src/drifblim.tal
M src/drifblim.tal => src/drifblim.tal +5 -7
@@ 438,7 438,7 @@ JMP2r
JMP2r

@sput ( chr str* -- )
	scap INC2k #00 ROT ROT STA STA
	scap ROT #00 SWP2 STA2
JMP2r

@slen ( str* -- len* )


@@ 448,19 448,17 @@ JMP2r
@scat ( src* dst* -+ )
	scap
@scpy ( src* dst* -- )
	OVR2 LDA ?&e POP2 POP2 JMP2r
	&e ( src* dst* ~- )
		STH2
	STH2
	&w ( -- )
		LDAk STH2kr STA INC2r INC2 LDAk ?&w
		POP2 #00 STH2r STA
		LDAk #00 STH2kr STA2 INC2r INC2 LDAk ?&w
	POP2 POP2r
JMP2r

@sclr ( str* -- )
	#00 ROT ROT
	&w ( -- )
		STAk INC2 LDAk ?&w
	POP2 POP
	STA
JMP2r

@skey ( key buf -- proc )