FUNCTION "FC_INT_TO_8DO" : VOID
TITLE =FC Integer > 8DO BitCode
AUTHOR : ---
VERSION : 0.1
VAR_INPUT
iWert : INT ; //Integer 0..127
END_VAR
VAR_OUTPUT
o_Bit1 : BOOL ;
o_Bit2 : BOOL ;
o_Bit4 : BOOL ;
o_Bit8 : BOOL ;
o_Bit16 : BOOL ;
o_Bit32 : BOOL ;
o_Bit64 : BOOL ;
o_Bit128 : BOOL ;
END_VAR
BEGIN
NETWORK
TITLE =
U( ;
L 255;
L #iWert;
>=I ;
) ;
U( ;
L 0;
L #iWert;
<=I ;
) ;
SPB n1;
L 0;
n1: T LW 0;
U L 1.0;
= #o_Bit1;
U L 1.1;
= #o_Bit2;
U L 1.2;
= #o_Bit4;
U L 1.3;
= #o_Bit8;
U L 1.4;
= #o_Bit16;
U L 1.5;
= #o_Bit32;
U L 1.6;
= #o_Bit64;
U L 1.7;
= #o_Bit128;
END_FUNCTION