; Multiply two numbers

start:
    INP
    STA total
    STA amount
    INP
    STA i

loop: ; while (i > 0)
    LDA i
    SUI 1
    JPZ end
    STA i
    LDA total
    ADD amount
    STA total
    JMP loop

end:
    LDA total
    OUT
    HLT

i:      .data 1 0
total:  .data 1 0
amount: .data 1 0