.at 20
a: .word 000
b: .word 000
compteur: .word 001
ab: .word 000
zero: .word 000
un: .word 001

main: INP a
      INP b
      LDA a
      STA ab


loop: LDA b
      SUB compteur
      JAZ exit
      LDA compteur
      ADD un
      STA compteur
      LDA ab
      ADD a
      STA ab
      LDA zero
      JAZ loop


exit: OUT ab
      HRS 00