.at 10
x: .word 000
zero: .word 000



main: INP x
      LDA x
      STA arg
      LDA zero
      JAZ fonction
retour: OUT res
        HRS 00






arg: .word 000
res: .word 000
fonction: LDA arg
          ADD arg
          STA res
          LDA zero
          JAZ retour