PREFIX strcmp:
s1	IS $0
s2      IS $1
count	IS $2
c1	IS $3
c2	IS $4
cmp	IS $5

:strlen SET count,0
	JMP test
loop	ADD count,count,1	
test	LDB c1,s1,count
	LDB c2,s2,count
	CMP cmp,c1,c2
	BNZ cmp,return    verschieden
	PBNZ c1,loop	  gleich

return	SET $0,cmp        Ergebnis	
	POP 1,0