PREFIX strlen:
str	IS $0
count	IS $1
c	IS $2

:strlen SET count,0
	JMP test
loop	ADD count,count,1	
test	LDB c,str,count
	PBNZ c,loop
	SET $0,count   Ergebnis	
	POP 1,0