DUP DUMP DUP>R
DUP ( a -- a a )  
ansi .6.1.1290 <CORE>
duplicate the cell on top of the stack - so the two topmost cells have the same value (they are equal w.r.t = ) , see DROP for the inverse

reference: p4_dup in ../src/core.c:1003, export CO DUP