author | Manuele Conti <conti.ma@alice.it> |
Mon, 31 Dec 2012 11:02:38 +0100 | |
changeset 783 | 3bd2704d9ba9 |
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 *) LD weigh_command JMPC WEIGH_NOW ST ENO (* No weighing, 0 to "ENO" *) RET WEIGH_NOW: LD gross_weight BCD_TO_INT SUB tare_weight INT_TO_BCD (* Return evaluated weight *) ST WEIGH END_FUNCTION (* Implicit "ENO" *)