1 FUNCTION WEIGH : WORD     (* BCD encoded *)

     2   VAR_INPUT  (* "EN" input is used to indicate "scale ready" *)

     3     weigh_command : BOOL;

     4     gross_weight : WORD ; (* BCD encoded *)

     5     tare_weight : INT ;

     6   END_VAR

     7 (* Function Body *)

     8 	LD	weigh_command	

     9 	JMPC	WEIGH_NOW	

    10 	ST	ENO	(* No weighing, 0 to "ENO" *)

    11 	RET		

    12 WEIGH_NOW:	LD	gross_weight	

    13 	BCD_TO_INT		

    14 	SUB	tare_weight	

    15 	INT_TO_BCD		(* Return evaluated weight *)

    16 	ST	WEIGH	

    17 

    18 END_FUNCTION                     (* Implicit "ENO" *)