SP@ SP! SPACE
SP@ ( -- )  
<FORTH-83>
the address of the top of stack. Does save it onto the stack. You could do
   : DUP  SP@ @ ;

reference: p4_s_p_fetch in ../src/forth-83.c:0260, export CO SP@