( a b -- a b a )
CODE OVER
    HL POP,       ( B )
    DE POP,       ( A )
    chkPS,
    DE PUSH,      ( A )
    HL PUSH,      ( B )
    DE PUSH,      ( A )
;CODE