6.1.0380
2DUP
two-dupe
CORE
 
( x1 x2 -- x1 x2 x1 x2 )

Duplicate cell pair x1 x2.

Testing:
T{ 1 2 2DUP -> 1 2 1 2 }T