		ORG		$1000

MAXIMO	EQU		$5
BUSCAR	EQU		'a'

		CLR		CONTADOR
		LEA		CADENA,A6
		MOVE.L	#MAXIMO,D6
CUENTA	MOVE.B	(A6)+,D5
		CMP.B	#BUSCAR,D5
		BEQ		ENCONT

SIGUE	CMPI.B	#'*',(A6)
		DBEQ	D6,CUENTA
		MOVE.L	CONTADOR,D4
		TRAP	#$1

ENCONT	ADDI	#1,CONTADOR
		JMP		SIGUE

CADENA	DC.B	'casa*'

CONTADOR	DS.L	1

		END
