.PSECT	CEQUAL
CEQUAL:: TST	(R5)+
	CLR	R0
	MOV	(R5)+,	R1
	MOV	(R5)+,	R2
	MOV	@(R5)+,	R3
1$:	CMPB	(R1)+,	(R2)+
	BNE	2$
	DEC	R3
	BNE	1$
	RTS	PC
2$:	BLO	3$
	TSTB	-(R2)
	BNE	25$
	CMPB	-(R1),	#40
	BEQ	4$
25$:	INC	R0
	RTS	PC
3$:	TSTB	-(R1)
	BNE	35$
	CMPB	-(R2),	#40
	BEQ	4$
35$:	DEC	R0
4$:	RTS	PC
	.END