.text
        .global main
main:   stmfd   sp!, { r4, lr }
        ldr r1, pvar
        stmfd sp!, {r0, r1}
loop:
        sub r0,r0,r0
        add r0,pc, #fmt - . - 8
        bl scanf
        cmp r0,#0
        bne endw
        ldr r4,pvar
        ldr r4,[r4]
        add r2,r2,r4
        b loop
endw:
        mov r1,r2
        add sp,sp, #8
        stmfd sp!, {r0,r1}
        sub r0,r0,r0
        add     r0, pc, #fmtt - . - 8
        bl      printf
        add     sp, sp, #8           // чистим стек от аргументов
        mov     r0, #0
        ldmfd   sp!, { r4, pc }
pvar : .int var
fmt:    .asciz  "%d"
fmtt:   .asciz "%d\n"
        .data
var:  .int 0