.global start

.EQU N, 8

.data
A:  .word 7,3,25,4,75,2,1,1

.bss
B:  .space N*4
max:    .space 4
ind:    .space 4

.text
start:
            MOV R0, #0 // Índice i
            MOV R1, #0 // Índice j
            LDR R2, =A
            LDR R3, =B
            LDR R4, =max
            LDR R5, =ind
for_uno:    CMP R1, #N
            BGE fin_for_uno
            MOV R6, #0
            STR R6, [R4]
for_dos:    CMP R0, #N
            BGE fin_for_dos
            LDR R6, [R2, R0, LSL #2]
            LDR R7, [R4]
            CMP R6, R7
            BLE fin_if
            STR R6, [R4]
            STR R0, [R5]
fin_if:     ADD R0, R0, #1 // i++
            B for_dos
fin_for_dos:MOV R0, #0
            LDR R6, [R5]
            LDR R7, [R2, R6, LSL #2]
            STR R7, [R3, R1, LSL #2]
            MOV R7, #0
            STR R7, [R2, R6, LSL #2]
            ADD R1, R1, #1 // j++
            B for_uno
            REV R8, R7
fin_for_uno:
FIN:        B .
            .end