;Ordenar un vector dado mediante el algoritmo de la burbuja

.Const

.Data

Vec1 DD 8, 10, 2, 4, 5, 6, 1, 2, 3, 4, 7, 8, 9, 5, 6, 2, 3, 1, 4, 7 	;Aqui esta el vector
Num DD 20															;Numero de elementos

.Code

start:
	Invoke printf, "Vamos a Ordenar el vector Vec1 ya iniciado mediante el algoritmo de la burbuja: "
	Invoke puts, "", "\N"               ;Salto de Linea
	Invoke printf, "Vector a Ordenar: "
	Invoke puts, "", "\N"               ;Salto de Linea

;Imprimir por pantalla el vector:

imprimir:
	Mov Ebx, 0							;Ponemos el contador del bucle a cero.
	Mov Esi, Addr Vec1					;Se le pasa la direccion base para movernos por todo el vector
bucle:
	Cmp Ebx, [Num]						;Comparacion de Eax y N
	Je > fin							;Salta si Eax y N son iguales, por lo que seria igual a if(Eax < N)
		Invoke printf, "%d, ", [Esi]		;Imprime el valor que hay en la direccion de memoria
		Inc Ebx								;Eax++
		Add Esi, 4							;Se le suma 4 para movernos sobre el vector elemento a elemento
		Jmp < bucle							;Salto incondicional, se usa < porque el salto es hacia atras.
fin:
		Invoke puts, "", "\N"               ;Salto de Linea

;Fin parte imprimir Vector por pantalla

;Ordenar los elementos del vector con algoritmo burbuja
burbuja:
	Mov Esi, 0							;Contador i del bucle fuera
	Mov Edi, 0							;Contador j del bucle dentro
	Mov Ebx, Addr Vec1					;Metemos en Ebx la direccion base de vec1 para el bucle de fuera
while_fuera:
			Cmp Esi, [Num]
			Je > fin_whilefuera			;while(i < Num)
				Mov Edi, Esi			;Hacemos j = i al iniciar el bucle
				Mov Ebp, Ebx			;Metemos en Ebp la direccion base por donde vamos a empezar que sera en vec1[i]

while_dentro:
				Cmp Edi, [Num]
				Je > fin_whiledentro			;while(j < Num)
				Mov Eax, [Ebx]					;No se pueden comparar [Ebx] y [Ebp] por lo que los hemos pasado a Eax y Ecx
				Mov Ecx, [Ebp]
if:
					Cmp Eax, Ecx
					Jbe > fin_if							;if (Vec1[i] > Vec1[j])
						;Invoke printf, "Valor de Vec1[%d]= %d <-- Vec1[%d]= %d, ", Esi, [Ebx], Edi, [Ebp]
						;Invoke puts, "", "\N"               ;Salto de Linea
						Mov Eax, [Ebx]						;aux1 = vec1[i]
						Mov Edx, [Ebp]						;aux2 = vec1[j]
						Mov [Ebx], Edx						;vec1[i] = aux2
						Mov [Ebp], Eax						;vec1[j] = aux1
fin_if:
					Inc Edi										;j++
					Add Ebp, 4
					Jmp while_dentro							;volvemos al bucle while dentro
fin_whiledentro:
				Inc Esi											;i++ al terminar el while_dentro
				Add Ebx, 4
				Jmp while_fuera									;volveos al bucle while fuera
fin_whilefuera:

;Imprimimos de nuevo los resultados
	Invoke printf, "Vector Ordenado: "
	Invoke puts, "", "\N"               ;Salto de Linea

imprimir2:
	Mov Ebx, 0								;Ponemos el contador del bucle a cero.
	Mov Esi, Addr Vec1						;Se le pasa la direccion base para movernos por todo el vector
bucle2:
	Cmp Ebx, [Num]							;Comparacion de Eax y N
	Je > fin2								;Salta si Eax y N son iguales, por lo que seria igual a if(Eax < N)
		Invoke printf, "%d, ", [Esi]		;Imprime el valor que hay en la direccion de memoria
		Inc Ebx								;Eax++
		Add Esi, 4							;Se le suma 4 para movernos sobre el vector elemento a elemento
		Jmp < bucle2							;Salto incondicional, se usa < porque el salto es hacia atras.
fin2:
		Invoke puts, "", "\N"               ;Salto de Linea


;Fin parte Ordenar los elementos
Exit:
	     
	Invoke system, "pause"
	Xor EAX, EAX
	Invoke ExitProcess, EAX

;Fin del programa principal