( a -- a a ) CODE DUP HL POPqq, ( A ) chkPS, HL PUSHqq, ( A ) HL PUSHqq, ( A ) ;CODE ( a -- ) CODE DROP HL POPqq, ;CODE
