sp@
-- a-addr gforth "spat"
sp!
a-addr -- gforth "spstore"
fp@
-- f-addr gforth "fp-fetch"
fp!
f-addr -- gforth "fp-store"
rp@
-- a-addr gforth "rpat"
rp!
a-addr -- gforth "rpstore"
lp@
-- addr gforth "l-p-fetch"
lp!
c-addr -- gforth "lp-store"