FUNCTION FC2017 : void

VAR_INPUT

  S: BOOL; //源地址  

  BitN:INT;//位号

END_VAR

VAR_IN_OUT

  D: WORD;//目标地址

END_VAR

VAR_TEMP 

     Word2:    WORD;

     BitBuffer AT Word2: ARRAY[0..15] OF BOOL; 

     I:INT;

END_VAR 

BEGIN

    Word2:=D;

 IF BitN<8 THEN        

        I:=BitN+8;

    ELSE

        I:=BitN-8;

    END_IF; 

    BitBuffer[I]:= S;

    D:=Word2; 

END_FUNCTION  

看不明白什么意思 能实现什么功能