bubble_sort     PROC

        SUB     r1, r1, #1
        CMP     r1, #0
        BXLE    lr
        str     lr, [sp, #-4]!
        ADD     lr, r0, r1, LSL #2

loop1:
        MOV     r3, r0
loop2:
        LDR     r2, [r3]
        LDR     ip, [r3, #4]!
        CMP     r2, ip
        STRGT   ip, [r4, #-4]
        STRGT   r2, [r3]
        CMP     lr, r3
        BNE     loop2
        SUBS    r1, r1, #1
        SUB     lr, lr, #4
        BNE     loop1

        LDR     lr, [sp], #4
        BX      lr

ENDP