
DATOS		EQU		$2000
PROGRAMA	EQU		$1000

			ORG		DATOS

CADENA1		DS.L	1
CADENA2		DS.L	1
COINCIDE	DS.W	1

			ORG		CADENA1
			
			DC.L	$03000000

			ORG		CADENA2
			
			DC.L	$03000000

			ORG		COINCIDE

			DC.W	0000

			ORG		PROGRAMA

COMIENZO	MOVEA.L	#CADENA1,A0
			MOVEA.L	#CADENA2,A1
			MOVEQ	#-1,D1
			MOVEQ	#0,D0
			MOVE.B	(A0)+,D0
			CMP.B	(A1)+,D0
			BNE		HECHO
			TST.B	D0
			BEQ		IGUAL
			SUBQ.W	#1,D0

BUCLE		CMPM.B	(A0)+,(A1)+
			DBNE	D0,BUCLE
			BNE		HECHO

IGUAL		NOT.W	D1

HECHO		MOVE.W	D1,COINCIDE
			TRAP	#1

			END

		
