SP@

SP@

SP!

SPACE

SP@

* SP@ ( -- )

the address of the top of stack. Does save it onto
the stack. You could do

   : DUP  SP@ @ ;

FORTH/FORTH forth_83 ordinary primitive