; donnees
zero: .word 000
x: .word 000
val: .word 000
pval: .word val ; "pointer sur val"
pretf: .word retf

.at 10
main: INP x
      LDA x
      STA arg
      LDA pval
      STA pres
      LDA pretf
      STA pret
      LDA zero
      JAZ fn_double
retf: OUT val
      HRS 00


.at 30
           arg: .word 000 ; argument
           pres: .word 000 ; @resultat
           pret: .word 000 ; @retour
fn_double: LDA arg
           ADD arg
           STI pres
           LDA pret
           ADD return
           STA return
           LDA zero
return:    JAZ 00