* DUP ( a -- a a ) 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
DUP
( a -- a a )
=
DROP
FORTH/ANS core (dpANS.6.1.1290) ordinary primitive