author | Andrey Skvortsov <andrej.skvortzov@gmail.com> |
Fri, 06 May 2016 11:48:02 +0300 | |
changeset 1008 | 59435d4c5e0c |
parent 0 | fb772792efd1 |
permissions | -rwxr-xr-x |
FUNCTION WEIGH : WORD (* BCD encoded *) VAR_INPUT (* "EN" input is used to indicate "scale ready" *) weigh_command : BOOL; gross_weight : WORD ; (* BCD encoded *) tare_weight : INT ; END_VAR (* Function Body *) IF weigh_command THEN WEIGH := INT_TO_BCD (BCD_TO_INT(gross_weight) - tare_weight); END_IF ; END_FUNCTION (* Implicit "ENO" *)