@clamp ( min max a -- b )
	/min /max RET

@min ( a b -- a < b ? a : b )
	OVR OVR LTH
	JNZ ,min/morethan
	SWP
@min/morethan
	POP
	RET

@max ( a b -- a > b ? a : b )
	OVR OVR GTH
	JNZ ,max/lessthan
	SWP
@max/lessthan
	POP
	RET

@memcpy.n 0000
@memcpy ( srcaddr dstaddr n -- ) ( !! doesn't work with n=0 )
	DEC -memcpy.n STA
	OVR OVR
	-memcpy.n LDA
	DUP ROT ADD SWP ROT OVR ADD LDA ROT STA
	DUP JNZ ,memcpy
	POP POP POP RET