.data
str1: .asciiz "Cant de numeros: "
espacio: .asciiz " "
array: .space 512 # 128 ints

.text
main:   li $v0, 4
        la $a0, str1
        syscall
        li $v0, 5
        syscall

        li $s0, 0
        la $t0, array
        or $s1, $v0, $0

for1:   bge $s0, $s1, seguir

        li $v0, 5
        syscall

        sw $v0, 0($t0)

        addi $s0, $s0, 1
        addi $t0, $t0, 4
        j for1

seguir:
        li $t0, 0
        li $t1, 0
        li $t2, 0
        la $t5, array

FOR:	bge $t0, $s1, finpr

		addi $t1, $t0, 0
		addi $t2, $t0, 1

		addi $t6, $t5, 0
		FOR2:	bge $t2, $s1, fin2

				lw $t3, 0($t6)
				lw $t4, 4($t6)
				bge $t3, $t4, noswap # si es menor hace ...

					sw $t4, 0($t6)
					sw $t3, 4($t6)

		noswap:	addi $t6, $t6, 4
				addi, $t1, $t1, 1
				addi, $t2, $t2, 1
				j FOR2

fin2:	addi $t5, $t5, 4
		addi $t0, $t0, 1
		j FOR

finpr:	li $s0, 0
        la $t0, array

for2:
        bge $s0, $s1, ceguir
        li $v0, 1

        lw $a0, 0($t0)
        syscall

        li $v0, 4
        la $a0, espacio
        syscall

        addi $t0, $t0, 4
        addi $s0, $s0, 1
        j for2

ceguir: li $v0, 10
        syscall