VAR_INPUT

Main_var:WORD;

BOOL_var AT Main_var :ARRAY[0..15] OF BOOL;

END_VAR

VAR

I:INT;

stroe:ARRAY[0..20] OF INT;

END_VAR    

VAR_OUTPUT

    // Output Parameters

SUM:INT;

END_VAR

    FOR I:= 0 TO 15 BY 1 DO

     stroe[I]:= BOOL_TO_INT(BOOL_var[i]);

    SUM:= stroe[0]+ stroe[1]+ stroe[2]+ stroe[3]+ stroe[4]+ stroe[5]+ stroe[6]+ stroe[7]+ stroe[8]+ stroe[9]+  stroe[10]+ stroe[11]+ stroe[12]+  stroe[13]+  stroe[14]+  stroe[15];

    END_FOR;

简单好理解

当改为双字  则 拆双字即可。