CODE POIDS ( n1 --- n2)
  bx pop           \ valeur d‚placement dans BX
  BITS # bx add    \ ajout adresse de base … BX
  ax ax sub        \ AX:=0; mise … z‚ro AX
  0 [bx] al mov    \ AL (partie 8 bits poids faible AX) := adr((BX)+0)
  1PUSH END-CODE   \ empilage contenu AX et retour … FORTH