TITLE	TAREA1 ;VICTOR MANUEL INIESTRA ALVAREZ
	ORG 	1000 ;ARQ. Y PROG. DE PROC. 14 DE OCT. 1994
FRASE	DEFM	MEXIQUENSE0 ;FRASE A ANALIZAR
LETRA	DEFM	E	;LETRA A BUSCAR
POSICI	DEFB	11	;POSICION DE LA LETRA
VECES	DEFB	0	;VECES QUE SE REPITE
VOY_EN	DEFB	1	;CONTADOR
	ORG 	0
	LDX	FRASE	;X=FRASE
BUSCA:	LD	#01	;A=1
	ADD	#0FF	;ACARREO=1
	LD	X	;A=@X
	SBC	LETRA	;A=@X-LETRA
	JZ	ENCONT	;@X=LETRA
	LD	VOY_EN	;A=VOY_EN
	ADD	#1	;A=VOY_EN+1
	STO	VOY_EN	;VOY_EN=VOY_EN+1
	LD	#1
	ADD	#0FF
	LD	X	;A=@X
	SBC	FRASE+0A ;A=@X-'0'
	JZ	ACABE	;@X='0' SE ACABO LA CADENA
	INX		;X=X+1
	LD	#1	;A=0
	ADD	#0FF	;ZERO=1
	JZ	BUSCA	;CONTINUA LA BUSQUEDA
ENCONT:	LD	VOY_EN	;A=VOY_EN
	STO	POSICI	;POSICION=VOY_EN
	LD	VECES	;A=VECES
	ADD	#1	;A=VECES+1
	STO	VECES	;VECES=VECES+1
	INX		;X=X+1
SIG_BU:	LD	#1	;A=1
	ADD	#0FF	;ACARREO=1
	LD	X	;A=@X
	SBC	LETRA	;A=@X-LETRA
	JZ	OTRA	;@X=LETRA
	LD	#1	;A=1
	ADD	#0FF	;ACARREO=1
	LD	X	;A=@X
	SBC	FRASE+0A ;A=@X-'0'
	JZ	ACABE	;@X='0' SE ACABO LA CADENA
	INX		;X=X+1
	LD	#1	;A=0
	ADD	#0FF	;ZERO=1
	JZ	SIG_BU	;SIGUE BUSCANDO
OTRA:	LD	VECES	;A=VECES+1
	ADD	#1	;A=VECES+1
	STO	VECES	;VECES=VECES+1
	INX		;X=X+1
	LD	#1	;A=1
	ADD	#0FF	;ZERO=0
	JZ	SIG_BU	;CONTINUALE
ACABE:	HALT		;DETEN EL PROGRAMA
	END

    Source: geocities.com/v.iniestra/apuntes/arq_proc

               ( geocities.com/v.iniestra/apuntes)                   ( geocities.com/v.iniestra)