.define cms
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

cms:
	popl	saveret, *RR14
	ldm	savereg, R4, $10
	ldl	RR2, RR14
	add	R3, R0
	ldl	RR4, RR2
	add	R5, R0
	sra	R0
2:	pop	R1, *RR14
	cp	R1, *RR2
	jr	NE, 1f
	inc	R3, $2
	djnz	R0, 2b
1:	ld	R15, R5
	ldm	R4, savereg, $10
	pushl	*RR14, saveret
	ret