12.1. Adresový register

FIXME:

\ fetch
: @   ( a → n )
    A! @A ;

\ store
: !   ( n a → )
    A! !A ;


A! ( a → )    \ A ← TOS
@A ( → n )    \ TOS ← mem[A]
!A ( n → )    \ mem[A] ← TOS

Dalším rozšířením je adresní register s autoinkrementací/dekrementací.

+!   ( n a → )   \ Add n to mem[A] and store to mem[A]