IF ON THEN
tm1(IN:=ON,PT:=PT);
Q:=tm1.Q;
IF tm1.Q THEN
OP:=FW;
tm1(IN:=FALSE);
ELSE
OP:=CR;
END_IF;
ELSE
OP:=0;
Q:=FALSE;
END_IF;
может из этого что то получится