ExamplePrimitives.Rose
Last Edited by: Spreitzer, March 4, 1984 1:29:07 pm PST
PassBlock: CELL [input < INT[4], gate < BOOL, output> INT[4]]
EvalSimple
IF gate THEN output ← input;
ENDCELL;
InvertBlock: CELL [input< INT[4], output> INT[4]]
EvalSimple
output ← 15 - input;
ENDCELL