diff -r 58a65b901719 -r 69075340d6a9 examples/example.xml --- a/examples/example.xml Fri Apr 13 17:54:40 2007 +0200 +++ b/examples/example.xml Wed Apr 18 16:39:28 2007 +0200 @@ -23,11 +23,8 @@ - + - - - @@ -65,6 +62,13 @@ + + + + + + + @@ -91,7 +95,7 @@ - FBDTest + OUT @@ -386,7 +390,7 @@ - + @@ -395,24 +399,22 @@ -LD Y1 -SUB Y2 (* Substract Y2 from Y1 *) -ST Temp (* Store Y1-Y2 in Temp *) -MUL Temp (* Multiply by Temp to square *) -ADD( X1 (* Defer ADD *) -SUB X2 (* Substract X1 from X2 *) -ST Temp (* Store X1-X2 in Temp *) -MUL Temp (* Multiply by Temp to square *) -) -CAL SQRT (* Call Square root fun *) -ST ILTest (* Setup function result *) -GT TMax (* Greater than TMax ? *) -JMPC ERR (* Yes, Jump to Error *) -S ENO (* Set ENO *) -RET (* Normal return *) - -ERR: -RET (* Error return, ENO not set *) + LD Y1 + SUB Y2 (* Substract Y2 from Y1 *) + ST Temp (* Store Y1-Y2 in Temp *) + MUL Temp (* Multiply by Temp to square *) + ADD( X1 (* Defer ADD *) + SUB X2 (* Substract X1 from X2 *) + ST Temp (* Store X1-X2 in Temp *) + MUL Temp (* Multiply by Temp to square *) + ) + CAL SQRT (* Call Square root fun *) + ST ILTest (* Setup function result *) + GT TMax (* Greater than TMax ? *) + JMPC ERR (* Yes, Jump to Error *) + S ERROR (* Set ERROR *) + RET (* Normal return *) +ERR: RET (* Error return, ENO not set *) @@ -847,14 +849,14 @@ IF Collision THEN Speed := 0; - Brakes := ON; + Brakes := TRUE; END_IF; -IF (Gate = CLOSED) AND - (Pump = ON) AND (Temp > 200.0) THEN - Control_State := Active; +IF (Gate = TRUE) AND + (Pump = TRUE) AND (Temp > 200.0) THEN + Control_State := TRUE; ELSE - Control_State := Hold; + Control_State := FALSE; PumpSpeed := 10.0; END_IF;