lbessard@27: lbessard@27: lbessard@28: lbessard@28: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@27: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN1 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN2 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: OUT lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN3 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: POU qui sert a tester PLCOpenEditor. lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: Commentaire lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: LDTest lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN1 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN2 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN3 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN4 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: LD Y1 lbessard@28: SUB Y2 (* Substract Y2 from Y1 *) lbessard@28: ST Temp (* Store Y1-Y2 in Temp *) lbessard@28: MUL Temp (* Multiply by Temp to square *) lbessard@28: ADD( X1 (* Defer ADD *) lbessard@28: SUB X2 (* Substract X1 from X2 *) lbessard@28: ST Temp (* Store X1-X2 in Temp *) lbessard@28: MUL Temp (* Multiply by Temp to square *) lbessard@28: ) lbessard@28: SQRT (* Call Square root fun *) lbessard@28: ST ILTest (* Setup function result *) lbessard@28: GT TMax (* Greater than TMax ? *) lbessard@28: JMPC ERR (* Yes, Jump to Error *) lbessard@28: S ERROR (* Set ERROR *) lbessard@28: RET (* Normal return *) lbessard@28: ERR: RET (* Error return, ENO not set *) lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IF IN1 THEN lbessard@28: IN2 := 1; lbessard@28: ELSE lbessard@28: IN3 := 1; lbessard@28: END_IF; lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: := AND(IN1, IN2, IN3); lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN2 AND IN3 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN3 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN4 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN5 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN5 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IN5 lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: IF Collision THEN lbessard@28: Speed := 0; lbessard@28: Brakes := TRUE; lbessard@28: END_IF; lbessard@28: lbessard@28: IF (Gate = TRUE) AND lbessard@28: (Pump = TRUE) AND (Temp > 200.0) THEN lbessard@28: Control_State := TRUE; lbessard@28: ELSE lbessard@28: Control_State := FALSE; lbessard@28: PumpSpeed := 10.0; lbessard@28: END_IF; lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@27: lbessard@27: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@28: lbessard@27: lbessard@27: