/*
*   LU-MOP-MD1
*   Ādams Muzikants
*   am14056
*
*   Izveidot programmiņu asemblerā, kas aprēķina aritmētiskās progresijas summu no 1 līdz n ar soli 1.
*/
    .text
    .align  2
    .global prog_sum
    .type   prog_sum, %function
prog_sum:
    @copy input parameter to r1, reset r0 to 0
    mov r1, r0
    mov r0, #0
    @do loop while test is true
    b loop
    b test
loop:
    @adds r1 to r0 and goes to error if overflow
    adds r0, r0, r1
    bcs error
test:
    @decreases r1 by 1 and continues loop if not 0
    subs r1, r1, #1
    bhi loop
exit:
    bx lr
error:
    @changes output to 0
    mov r0, #0
    b exit
    .size   prog_sum, .-prog_sum