Ensamblador - Error ejercicio ensamblador MC88110

;-----------------------------------------Datos---------------------------------------------------

org 0

nf: res 4

IM1:	data 2,2

		data 0x04030201

IM2:	data 2,2

		data 0x08060402

org 2500

IMAGEN: data 4, 8

data 0xFF0201FF, 0xFF0403FF

data 0xFF0605FF, 0xFF0807FF

data 0xFF0605FF, 0xFF0807FF

data 0xFF0201FF, 0xFF0403FF

org 500

SUBIMAGEN: res 12

i:        data 1

j:        data 6

org 2000

MFILTRO: 	data 0, 1, 0, 1, 0, 1

			data 0, 1, 1, 1, 0, 1

			data 0, 1, 0, 1, 0, 1

SUBIMAGENP: data 0x01030201, 0x01020103, 0x00000002

org 3000

IMAGENFP:

			data    3, 3

			data    0x01030201, 0x01020103, 0x00000002

FILTROFP: 	data 0, 1, 0, 1, 0, 1

			data 0, 1, 1, 1, 0, 1

			data 0, 1, 0, 1, 0, 1

FILTRADA: res 20

org 4000

IMAGEN1:

		data 4, 4

		data 0x04030201

		data 0x0D0E0F10

		data 0x05040302

		data 0x23222120

FILTRO1: 	data 1, 8, 1, 8, 1, 8

			data 1, 8, 0, 8, 1, 8

			data 1, 8, 1, 8, 1, 8

FILTRADA1: res 24

data 0x55555555, 0x55555555

org 5000

IMAGEN3:

		data 4, 8

		data 0xFF0000FF, 0xFF0000FF

		data 0xFF0000FF, 0xFF0000FF

		data 0xFF0000FF, 0xFF0000FF

		data 0xFF0000FF, 0xFF0000FF

FILTRADA3:

		res 24

FILTRO3: 	data 1, 8, 1, 8, 1, 8

			data 1, 8, 0, 8, 1, 8

			data 1, 8, 1, 8, 1, 8

org 6000

IMAGEN2:

		data 4, 8

		data 0x04030201, 0x07060504

		data 0x14134211, 0x17168514

		data 0x24232221, 0x27262574

		data 0x34333231, 0x37363534

FILTRADA2:

		res 40

FILTRO2: 	data 0, 1, -3, 1, 0, 1

			data 0, 1, 4, 1, 0, 1

			data 0, 1, 0, 1, 0, 1

org 0x8000

IMAGEN4: data 4, 8

		data 0xFF0201FF, 0xFF0403FF

		data 0xFF0605FF, 0xFF0807FF

		data 0xFF0605FF, 0xFF0807FF

		data 0xFF0201FF, 0xFF0403FF

FILTRO4:

			data 1, 8, 1, 8, 1, 8

			data 1, 8, 0, 8, 1, 8

			data 1, 8, 1, 8, 1, 8

org 0x8100

FILTRADA4: res 40

org 7000

IMAGEN5:

		data 5, 5

		data 0x000A000A, 0x0000000A

		data 0x000A0000, 0x000A000A

		data 0x00000000, 0x000A000A

		data 0x0000000A

FILTRO5: 	data 0, 1, 0, 1, 0, 1

			data 0, 1, 1, 2, 0, 1

			data 0, 1, 0, 1, 0, 1

FILTRADA5: res 36

org 0x14000

IMAGEN6: data 4, 8

		data 0xFF0000FF, 0xFF0000FF

		data 0xFF0000FF, 0xFF0000FF

		data 0xFF0000FF, 0xFF0000FF

		data 0xFF0000FF, 0xFF0000FF

FILTRO6: 	data 1, 4, 0, 4, 1, 4

			data 0, 4, 1, 4, 0, 4

			data 1, 4, 0, 4, 1, 4

FILTRADA6: res 36

; macros--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

LEA:	MACRO	(ra, eti)

		or		ra, r0,  low(eti)

		or.u	ra, ra, high(eti)

		ENDMACRO

PUSH:	MACRO	(ra)

		subu	r30, r30, 4

		st		ra, r30, r0

		ENDMACRO

POP:	MACRO	(ra)

		ld		ra, r30, r0

		addu	r30, r30, 4

		ENDMACRO

LOAD:	MACRO	(ra, eti)

		or		ra, r0,  low(eti)

		or.u	ra, ra, high(eti)

		ld 		ra,ra,r0

		ENDMACRO

DBZ:    MACRO  (ra, eti)

		sub    ra, ra, 1

		cmp    r4, ra, r0

		bb1    eq, r4, eti

		ENDMACRO

DBNZ:   MACRO  (ra, eti)

		sub    ra, ra, 1

		cmp    r5, ra, r0

		bb0    eq, r5, eti

		ENDMACRO

;-----------------------------------Pruebas SQRT------------------------------------

PPAL: LEA (r30,60000)

      or r2,r0,2

	  PUSH (r2)

	  bsr Sqrt

	  POP(r2)

	  or r2,r0,1

	  PUSH (r2)

	  bsr Sqrt

	  POP(r2)

	  or r2,r0,16

	  PUSH (r2)

	  bsr Sqrt

	  POP(r2)

	  PUSH(r29)

	  bsr Sqrt

	  addu r30,r30,4

	  stop

;---------------------------------Prubas nFiltrados---------------------------------

PPAL1:  LEA (r30,60000)

		subu r2,r0,5

		PUSH(r2)

		bsr nFiltrados

		POP(r2)

		stop

;-----------------------------------Pruebas Comp---------------------------------

PPAL2:	LEA(r30,60000)

		LEA(r2,IM1)

		LEA(r3,IM2)

		PUSH(r3)

		PUSH(r2)

		bsr Comp

		stop

;---------------------------------Prueba Submatriz------------------------------------

PPAL3:	LEA(r30,60000)

		LEA(r2,IMAGEN)

		LEA(r3,SUBIMAGEN)

		LOAD(r4,i)

		LOAD(r5,j)

		PUSH(r5)

		PUSH(r4)

		PUSH(r3)

		PUSH(r2)

		bsr SubMatriz

		POP(r2)

		POP(r3)

		POP(r4)

		POP(r5)

		stop

;---------------------------------Prueba ValorPixel------------------------------------

PPAL4:	LEA(r30,60000)

		LEA(r2,SUBIMAGENP)

		LEA(r3,MFILTRO)

		PUSH(r3)

		PUSH(r2)

		bsr ValorPixel

		POP(r2)

		POP(r3)

		stop

;---------------------------------Prueba FiltroPixel------------------------------------

PPAL5:	LEA(r30,60000)

		LEA(r2,FILTROFP)

		LEA(r3,IMAGEN2)

		addu r4,r0,6

		addu r6,r0,2

		PUSH(r2)

		PUSH(r4)

		PUSH(r6)

		PUSH(r3)

		bsr FilPixel

		POP(r3)

		POP(r6)

		POP(r4)

		POP(r2)

		stop

;---------------------------------Prueba Filtro------------------------------------

PPAL6:	LEA(r30, 60000)

		LEA(r2, IMAGEN2)

		LEA(r3, FILTRADA2)

		LEA(r4, FILTRO2)

		PUSH(r4)

		PUSH(r3)

		PUSH(r2)

		bsr Filtro

		POP(r2)

		POP(r3)

		POP(r4)

		stop

;---------------------------------Prueba FiltroRec------------------------------------

PPAL7:	LEA(r30, 60000)

		addu r10, r0, 5		;nf

		st r10, r0, 0

		LEA(r2, IMAGEN1)

		LEA(r3, FILTRO1)

		LEA(r4, FILTRADA1)

		addu r5,r0,40		;ncambios

		PUSH(r5)

		PUSH(r3)

		PUSH(r4)

		PUSH(r2)

		bsr FiltRec

		POP(r2)

		POP(r4)

		POP(r3)

		POP(r5)

		stop

PPAL8:	LEA(r30, 60000)

		addu r10,r0,100		;nf

		st r10, r0, 0

		LEA(r2, IMAGEN4)

		LEA(r3, FILTRO4)

		LEA(r4, FILTRADA4)

		addu r5, r0, 5		;ncambios

		PUSH(r5)

		PUSH(r3)

		PUSH(r4)

		PUSH(r2)

		bsr FiltRec

		POP(r2)

		POP(r4)

		POP(r3)

		POP(r5)

		stop

PPAL9:	LEA(r30, 60000)

		addu r10,r0,10		;nf

		st r10,r0,0

		LEA(r2, IMAGEN5)

		LEA(r3, FILTRO5)

		LEA(r4, FILTRADA5)

		addu r5, r0, 2		;ncambios

		PUSH(r5)

		PUSH(r3)

		PUSH(r4)

		PUSH(r2)

		bsr FiltRec

		POP(r2)

		POP(r4)

		POP(r3)

		POP(r5)

		stop

PPAL10:	LEA(r30, 60000)

		addu r10,r0,2		;nf

		st r10,r0,0

		LEA(r2, IMAGEN5)

		LEA(r3, FILTRO5)

		LEA(r4, FILTRADA5)

		addu r5, r0, 0		;ncambios

		PUSH(r5)

		PUSH(r3)

		PUSH(r4)

		PUSH(r2)

		bsr FiltRec

		POP(r2)

		POP(r4)

		POP(r3)

		POP(r5)

		stop

;------------------------------------Subrutinas-------------------------------------------------------------------------

Sqrt:		PUSH(r1)

			PUSH(r31)

			or r31,r30,r0

			ld r20,r31,8	; Cargamos el parametro de etrada

			or r22,r20,r0	; copia

			cmp r7,r20,2	; Comparamos que num<2

			bb1 lt,r7,FIN_BUCLE			; Si num menor que dos saltamos a FIN_BUCLE

			or r21,r20,r0	; Copiamos Num en r21 para poder operar (a)

			addu r22,r22,1	; Cargamos en r22 un 1 (b)

BUCLE:		addu r21,r21,r22; Sumamos a+b == Num + 1

			divu r21,r21,2	; Dividimos (a+b)/2

			divu r22,r20,r21; Dividimos Num/a+b

			cmp r7,r21,r22	; Comparamos a y b

			bb1 lt,r7,CAMBIO; Vemos si a es menor que b

VOLVER:		or r24,r0,r0

			sub r24,r21,r22

			cmp r7,r24,1

			bb1 le,r7,FIN_BUCLE

			br BUCLE

CAMBIO:		or r23,r21,r0

			or r21,r22,r0	; Cambiamos r21 por r22

			or r22,r23,r0	; Cambiamos r22 por r21

			br VOLVER

FIN_BUCLE:	cmp r7,r20,0

			bb1 lt,r7,MENOS

			or r29,r22,r0

			or r30,r31,r0

			POP(r31)

			POP(r1)

			jmp(r1)

MENOS:		or r29,r0,r0

			or r30,r31,r0

			POP(r31)

			POP(r1)

			jmp(r1)

;------------------------------------------------------------------------------------

nFiltrados:	PUSH(r1)

			ld r2,r0,0

			ld r5, r30, 4

			cmp r3,r5,0

			bb1 ge,r3,INI

			ld r6,r0,r0

			sub r6,r6,1

			cmp r3,r6,0

			bb1 lt,r3,CERO

			br NF0

INI:		st r5,r0,r0

			or r29,r5,r0

			POP(r1)

            jmp (r1)

NF0:      	st r6,r0,r0

			or r29, r6, r0

			POP(r1)

            jmp (r1)

CERO:		st r0, r0, 0

			or r29, r0, 0

			POP(r1)

            jmp (r1)

;-----------------------------------------------------------------------------------

Comp:	PUSH(r1)

		PUSH(r31)

		or r31,r30,r30

		or r22, r0, r0		; diferencia

		ld r20, r31, 8		; Direccion Im1

		ld r21, r31, 12 	; Direccion Im2

		ld r2, r20, 0		; M

		ld r3, r20, 4		; N

		mulu r2, r2, r3		; M*N

		or r3, r0, r0		; i = 0

		addu r20, r20, 8

		addu r21, r21, 8

BUCCMP:	cmp r6, r2, r3

		bb1 eq, r6, FINCOMP

		ld.bu r23, r20, r0	; Im1ij

		ld.bu r24, r21, r0	; Im2ij

		subu r4, r23, r24	; Im1ij - Im2ij

		mulu r4, r4, r4		; (Im1ij - Im2ij)^2

		addu r22, r22, r4	; diferencia = diferencia + (Im1ij - Im2ij)^2

		addu r20, r20, 1

		addu r21, r21, 1

		addu r3, r3, 1

		br BUCCMP

FINCOMP:PUSH(r22)

		bsr Sqrt

		POP(r22)

		POP(r31)

		POP(r1)

		jmp(r1)

;-----------------------------------------------------------------------------------------------

SubMatriz: 	PUSH(r1)

			PUSH(r31)

			or r31,r30,r30

			ld r20,r31,8	; Dir Imagen

			ld r21,r31,12	; Dir SubImagen

			ld r22,r31,16	; i

			ld r23,r31,20	; j

			ld r24,r20,0	; Fila(m)

			ld r25,r20,4	; Columna(n)

			addu r20,r20,8	; Avanzamos al primer elemento de la matriz Imagen

			mulu r2,r24,r25	; m*n(tamaño)

			subu r22,r22,1	; i-1

			subu r23,r23,1	; j-1

			mulu r3,r25,r22	; n*i

			addu r3,r3,r23	; (n*i)+j

			or r4,r0,r0

			addu r4,r3,r20	; (((n*i)+j)*tamaño)+dirImagen <--- dir(ij)

			ld.bu r26,r4,r0	; Cargamos le bit dir(ij)

			st.b r26,r21,r0	; Guardar bit ij en posicion

			addu r21,r21,1

			addu r23,r23,1	; j

			mulu r3,r25,r22	; n*i

			addu r3,r3,r23	; (n*i)+j

			or r4,r0,r0

			addu r4,r3,r20	; (((n*i)+j)*tamaño)+dirImagen <--- dir(ij)

			ld.bu r26,r4,r0	; Cargamos le bit dir(ij)

			st.b r26,r21,r0	; Guardar bit ij en posicion

			addu r21,r21,1

			addu r23,r23,1	; j+1

			mulu r3,r25,r22	; n*i

			addu r3,r3,r23	; (n*i)+j

			or r4,r0,r0

			addu r4,r3,r20	; (((n*i)+j)*tamaño)+dirImagen <--- dir(ij)

			ld.bu r26,r4,r0	; Cargamos le bit dir(ij)

			st.b r26,r21,r0	; Guardar bit ij en posicion

			addu r21,r21,1

			addu r22,r22,1	; i

			subu r23,r23,2	; j-1

			mulu r3,r25,r22	; n*i

			addu r3,r3,r23	; (n*i)+j

			or r4,r0,r0

			addu r4,r3,r20	; (((n*i)+j)*tamaño)+dirImagen <--- dir(ij)

			ld.bu r26,r4,r0	; Cargamos le bit dir(ij)

			st.b r26,r21,r0	; Guardar bit ij en posicion

			addu r21,r21,1

			addu r23,r23,1	; j

			mulu r3,r25,r22	; n*i

			addu r3,r3,r23	; (n*i)+j

			or r4,r0,r0

			addu r4,r3,r20	; (((n*i)+j)*tamaño)+dirImagen <--- dir(ij)

			ld.bu r26,r4,r0	; Cargamos le bit dir(ij)

			st.b r26,r21,r0	; Guardar bit ij en posicion

			addu r21,r21,1

			addu r23,r23,1	; j+1

			mulu r3,r25,r22	; n*i

			addu r3,r3,r23	; (n*i)+j

			or r4,r0,r0

			addu r4,r3,r20	; (((n*i)+j)*tamaño)+dirImagen <--- dir(ij)

			ld.bu r26,r4,r0	; Cargamos le bit dir(ij)

			st.b r26,r21,r0	; Guardar bit ij en posicion

			addu r21,r21,1

			subu r23,r23,2	; j-1

			addu r22,r22,1	; i+1

			mulu r3,r25,r22	; n*i

			addu r3,r3,r23	; (n*i)+j

			or r4,r0,r0

			addu r4,r3,r20	; (((n*i)+j)*tamaño)+dirImagen <--- dir(ij)

			ld.bu r26,r4,r0	; Cargamos le bit dir(ij)

			st.b r26,r21,r0	; Guardar bit ij en posicion

			addu r21,r21,1

			addu r23,r23,1	; j

			mulu r3,r25,r22	; n*i

			addu r3,r3,r23	; (n*i)+j

			or r4,r0,r0

			addu r4,r3,r20	; (((n*i)+j)*tamaño)+dirImagen <--- dir(ij)

			ld.bu r26,r4,r0	; Cargamos le bit dir(ij)

			st.b r26,r21,r0	; Guardar bit ij en posicion

			addu r21,r21,1

			addu r23,r23,1	; j+1

			mulu r3,r25,r22	; n*i

			addu r3,r3,r23	; (n*i)+j

			or r4,r0,r0

			addu r4,r3,r20	; (((n*i)+j)*tamaño)+dirImagen <--- dir(ij)

			ld.bu r26,r4,r0	; Cargamos le bit dir(ij)

			st.b r26,r21,r0	; Guardar bit ij en posicion

FIN_MATRIZ:	POP(r31)

			POP(r1)

			jmp(r1)

;----------------------------------------------------------------------------------------------------

ValorPixel:	PUSH(r1)

			PUSH(r31)

			or r31,r30,r30

			ld r20,r31,12	; Cargamos MFiltro

			ld r21,r31,8	; Cargamos SubImagen

			or r2,r0,r0		; Acumulador Acc

			or r3,r0,r0		; Contador

			addu r5,r0,256	; K=256

BUCLE_PIX:	cmp r4,r3,9

			bb1 eq,r4,FIN_VPIXEL

			ld.bu r22,r21,r0; Bit SubImagen

			ld r23,r20,0	; Elem MFiltro(num)

			ld r24,r20,4	; Elem MFiltro(denomi)

			muls r22,r22,r5	; bit * 256

			muls r4,r22,r23	; (bit * 256 )*num

			divs r4,r4,r24	; ((bit * 256 )*num)/denominador

			add r2,r2,r4	; Guardamos en ACC <-- ((bit * 256 )*num)/denominador

			addu r20,r20,8

			addu r21,r21,1

			addu r3,r3,1

			br BUCLE_PIX

FIN_VPIXEL:	divs r2,r2,256	; Dividimos el acc entre 256

			or r29,r2,r0

			POP(r31)

			POP(r1)

			jmp(r1)

;-------------------------------------------------------------------------------------------------------

FilPixel: 	PUSH(r1)

			PUSH(r31)

			or r31,r30,r30

			ld r20,r31,8	; Cargamos la Imagen

			ld r21,r31,12	; Cargamos la i

			ld r22,r31,16	; Cargamos la j

			ld r23,r31,20	; Cargamos MFiltro

			ld r24,r20,0	; Fila(m) de Imagen

			ld r25,r20,4	; Columna(n) de Imagen

			subu r24,r24,1

			subu r25,r25,1

			; Comparación Borde

			cmp r5, r21, r0	; i=0

			bb1 eq, r5, BORDE

			cmp r5, r22, r0	; j=0

			bb1 eq, r5, BORDE

			cmp r5, r21, r24; i = M-1

			bb1 eq, r5, BORDE

			cmp r5, r22, r25; j = N-1

			bb1 eq, r5, BORDE

			subu r30,r31,12	; Reserva Subimg

			or r5,r30,r0	; DirSubImagen

			PUSH(r22)

			PUSH(r21)

			PUSH(r5)

			PUSH(r20)

			bsr SubMatriz

			POP(r20)

			POP(r5)

			POP(r21)

			POP(r22)

			ld r27,r31,20 	; Cargamos el MFiltro

			PUSH(r27)

			PUSH(r5)

			bsr ValorPixel

			POP(r5)

			POP(r27)

			; Ajustamos el resultado a los limites establecidos

			cmp r4,r29,0

			bb1 lt,r4,MENOR; Comprobamos si es menor

			cmp r4,r29,255

			bb1 gt,r4,MAYOR; Comprobamos si es mayor

			or r30,r31,r0

			POP(r31)

			POP(r1)

			jmp(r1)

BORDE:		addu r20,r20,8	; Primer elemento de la matriz//revisar cuidado no cagarla aquiXD

			addu r24,r24,1	; M

			addu r25,r25,1	; N

			mulu r3,r25,r21	; n*i

			addu r3,r3,r22	; (n*i)+j

			or r4,r0,r0

			addu r4,r3,r20	; (((n*i)+j)*tamaño)+dirImagen <--- dir(ij)

			ld.bu r9,r4,r0	; Cargamos le bit dir(ij)

			addu r29,r9,r0

			or r30,r31,r0	; Cargamos el pixel del borde

			POP(r31)

			POP(r1)

			jmp(r1)

MENOR:		addu r29,r0,0

			or r30,r31,r0

			POP(r31)

			POP(r1)

			jmp(r1)

MAYOR:		addu r29,r0,255

			or r30,r31,r0

			POP(r31)

			POP(r1)

			jmp(r1)

;-------------------------------------------------------------------------------------------------------

Filtro:	PUSH(r1)

		PUSH(r31)

		or r31,r30,r0

		ld r20,r31,8 	; Imagen

		ld r21,r31,12	; ImFiltrada

		ld r22,r31,16	; MFiltro

		ld r23,r20,0	; M->Imagen

		ld r24,r20,4	; N->Imagen

		st r23,r21,0	; Copiamos la M de imagen sombre M de ImFiltrada

		st r24,r21,4	; Copiamos la N de imagen sombre N de ImFiltrada

		addu r21,r21,8	; primer elemento de ImFiltrada

		or r2,r0,r0		; i = 0

		or r3,r0,r0		; j = 0

		or r4,r0,r0		; contador bucle

FBUCLE:	cmp r7,r2,r23

		bb1 eq,r7,FINFL

		cmp r7,r3,r24

		bb1 eq,r7,AUMENTARI

		PUSH(r23)

		PUSH(r24)

		PUSH(r4)

		PUSH(r21)	; Para no perder r21

		PUSH(r22)

		PUSH(r3)

		PUSH(r2)

		PUSH(r20)

		bsr FilPixel

		POP(r20)

		POP(r2)

		POP(r3)

		POP(r22)

		POP(r21)

		POP(r4)

		POP(r24)

		POP(r23)

		st.b r29,r21,r4

		addu r3,r3,1	; j++

		addu r4,r4,1

		br FBUCLE

AUMENTARI:addu r2,r2,1	; i++

		or r3,r0,0

		br FBUCLE

FINFL:	or r30,r31,r0

			POP(r31)

			POP(r1)

			jmp(r1)

;-------------------------------------------------------------------------------------------------------

FiltRec:PUSH(r1)

		PUSH(r31)

		or r31,r30,r0

		ld r2,r31,8					; Puntero ImagenIn

		ld r3,r31,12				; Puntero ImagenOut

		ld r4,r31,16				; Puntero MFiltro

		ld r6,r31,20				; Valor NCambios

		ld r8,r2,0					; Valor M

		ld r9,r2,4					; Valor N

		mulu r10,r8,r9				; Número de elementos (MxN)

BUCFR:	divu r11,r10,4				; Cálculo del número múltiplo de 4

		mulu r11,r11,4				; 4 * cociente

		subu r15,r10,r11			; tamaño - (4 * cociente)

		cmp r7,r15,0				; (tamaño - (4 * cociente)) == 0

		bb1 eq,r7,FINBUCFR

		cmp r7,r15,1				; (tamaño - (4 * cociente)) == 1

		bb1 eq,r7,SUM3

SUM3:	addu r10,r10,3				; +3

		br BUCFR

		cmp r7,r15,2				; (tamaño - (4 * cociente)) == 2

		bb1 eq,r7,SUM2

SUM2:	addu r10,r10,2				; +2

		br BUCFR

		cmp r7,r15,3				; (tamaño - (4 * cociente)) == 3

		bb1 eq,r7,SUM1

SUM1:	addu r10,r10,1				; +1

		br BUCFR

FINBUCFR:addu r10,r10,8				; Espacio a reservar

		subu r30,r30,r10			; Reserva de espacio para la ImagenTMP

		or r12,r30,r30				; Puntero TMP

		PUSH(r12)

		PUSH(r6)

		PUSH(r10)

		PUSH(r4)

		PUSH(r3)

		PUSH(r2)

S11:	bsr Filtro

S12:	POP(r2)

		POP(r3)

		POP(r4)

		POP(r10)

		POP(r6)

		PUSH(r12)

		ld r13,r31,12				; Duplicamos Puntero ImagenOut

		or r14,r12,r12

		; Copiamos r12 en r14

		ld r11,r13,r0				; Cargar elemento ImagenOut

		st r11,r12,r0				; Copiar elemento en ImagenTMP

		ld r11,r13,4				; Cargar elemento ImagenOut

		st r11,r12,4				; Copiar elemento en ImagenTMP primer elemento y sec

		addu r13,r13,8

		addu r12,r12,8

		subu r10,r10,8

BUCFR1:	ld.bu r11,r13,r0				; Cargar elemento ImagenOut

		st.b r11,r12,r0				; Copiar elemento en ImagenTMP

		subu r10,r10,1

		cmp r7,r10,r0

		bb1 eq,r7,FINBUCFR1

		addu r12,r12,1				; Avanzar Puntero  ImagenTMP

		addu r13,r13,1				; Avanzar Puntero  ImagenOut

		br BUCFR1

FINBUCFR1:PUSH(r14)

		PUSH(r4)

		PUSH(r6)

		PUSH(r3)

		PUSH(r2)

		sub r11,r0,1				; Cargamos en r11 el Oper -1

		PUSH(r11)

		bsr nFiltrados

		POP(r11)

		POP(r2)

		POP(r3)

		POP(r6)

		POP(r4)

		POP(r14)

S:		cmp r7,r29,r0

		bb1 eq,r7,FINBUCFR2

		PUSH(r14)					; Copia puntero IMP

		PUSH(r4)					; Puntero Mfiltro

		PUSH(r6)					; Valor Ncambios

		PUSH(r3)					; ImagenIn

		PUSH(r2)					; ImagenOut

		bsr Comp

		POP(r2)

		POP(r3)

		POP(r6)

		POP(r4)

		POP(r14)

S5:

		cmp r7,r29,r6

		bb1 lt,r7,FINBUCFR3	; no se pq no lo hace bien preguntar

		PUSH(r6)

		PUSH(r4)

		PUSH(r3)

		PUSH(r14)

		bsr FiltRec

P12:	POP(r14)

		POP(r3)

		POP(r4)

		POP(r6)

		br FINBUCFR3

FINBUCFR2:sub r29,r0,1

FINBUCFR3:or r30,r31,r0

		POP(r31)

		POP(r1)

		jmp(r1)