op0 ( opcode -- ? )


Vocabulary
icfp.2006

Inputs
opcodean object


Outputs
?an object


Definition
USING: kernel math ;

IN: icfp.2006

: op0 ( opcode -- ? )
get-cba rot reg-val zero?
[ 2drop ] [ [ reg-val ] dip set-reg ] if f ;