B main

array       DEFW 6, 5, 8, 2, 1, 4, 3, 7, 9
size        DEFW 9

            ALIGN
            ;Inputs:R0: Address of the start of the array
            ;       R1: Size of the array
bubble      STMFD SP!, {R4-R6}
            ADD R2, R0, #4
            ; BUG
            ; Size needs to be reduced to avoid out-of-index
            SUB R1, R1, #1

pas_lp      MOV R6, #0
            MOV R3, #0
            B swp_lp_cnd
swp_lp      LDR R4, [R0, R3 ASL #2]
            LDR R5, [R2, R3 ASL #2]
            CMP R4, R5
            STRLT R4, [R2, R3 ASL #2]
            STRLT R5, [R0, R3 ASL #2]
            MOV R6, #1
skip_swp    ADD R3, R3, #1

swp_lp_cnd  CMP R3, R1
            BLT swp_lp

            SUB R1, R1, #1

            CMP R6, #0
            ; BUG
            ; Should check if items were swapped (R6==1) and loop again if it isn't. (opposite condition)
            BNE pas_lp

            LDMFD SP!, {R4-R6}
            MOV PC, R14


main        MOV SP, #1000
            ADR R0, array
            LDR R1, size
            ; BUG
            ; B needs to be BL to set the link register
            BL bubble

            ADR R1, array
            LDR R2, size
            ; BUG
            ; Size is used to count number of bytes. Thus needs to be multiplied by 4
            ADD R2, R1, R2 ASL #2

prt_lp      LDR R0, [R1], #4
            SWI 4
            MOV R0, #10
            SWI 0
prt_lp_cnd  CMP R1, R2
            BLT prt_lp
            SWI 2