0<= ( a -- flag )
simulate : 0<= 0> 0= ;
reference: p4_zero_less_equal in ../src/misc.c:0428, export CO 0<=