请用FC写一个功能块，判断一个字中有多少位为1？输入一个字，输出1的个数用SCL语言

在SCL（Structured Text）编程语言中，我们通常会使用IF、COUNT、AND等指令来实现计数功能。以下是一个简单的功能块（FB，Functional Block），用于计算输入字节中1的个数：

-- FB: CountBitsOne (InputByte : INT; OutputCount : INT)
-- Description: Counts the number of bits set to 1 in an input byte.
-- Inputs:
--   InputByte: An 8-bit integer (INT) representing the byte to be checked.
-- Outputs:
--   OutputCount: The number of bits set to 1, stored as an integer (INT).
begin
    -- Initialize output count to zero
    OutputCount := 0;
    
    -- Iterate through each bit using a loop
    for I in 1 to 8 loop
        -- Check if the current bit is set to 1
        if InputByte AND (1 shl (7 - I)) > 0 then
            -- If it's 1, increment the count
            OutputCount := OutputCount + 1;
        end if;
    end loop;
end CountBitsOne;