DEPTH
* DEPTH ( -- value )

return the depth of the parameter stack before
the call, see SP@ - the return-value is in >CELLS

core ordinary primitive