SCL 块移动/填充家族 — BLKMOV、UMOVE_BLK、UFILL_BLK

1FUNCTION_BLOCK "FB_UMoveBlk_Demo"
2{ S7_Optimized_Access := 'TRUE' }
3VERSION : 0.1
4   VAR_INPUT
5      Copy : Bool;
6      Count : UInt := 4;
7   END_VAR
8 
9   VAR_OUTPUT
10      Done : Bool;
11      Sum : Int;
12   END_VAR
13 
14   VAR
15      Source : Array[0..3] of Int;
16      Dest : Array[0..3] of Int;
17   END_VAR
18 
19BEGIN
20   REGION 准备数据
21      #Source[0] := 1; #Source[1] := 2; #Source[2] := 3; #Source[3] := 4;
22      #Dest[0] := 0; #Dest[1] := 0; #Dest[2] := 0; #Dest[3] := 0;
23   END_REGION
24 
25   REGION 不可中断块移动
26      IF #Copy THEN
27         UMOVE_BLK(IN := #Source[0], COUNT := #Count, OUT => #Dest[0]);
28      END_IF;
29   END_REGION
30 
31   REGION 结果
32      #Done := #Dest[0] = 1 AND #Dest[1] = 2 AND #Dest[2] = 3 AND #Dest[3] = 4;
33      #Sum := #Dest[0] + #Dest[1] + #Dest[2] + #Dest[3];
34   END_REGION
35END_FUNCTION_BLOCK
36 

1FUNCTION_BLOCK "FB_UFillBlk_Demo"
2{ S7_Optimized_Access := 'TRUE' }
3VERSION : 0.1
4   VAR_INPUT
5      Fill : Bool;
6      Value : Int := 7;
7      Count : UInt := 4;
8   END_VAR
9 
10   VAR_OUTPUT
11      Done : Bool;
12      Sum : Int;
13   END_VAR
14 
15   VAR
16      Dest : Array[0..3] of Int;
17   END_VAR
18 
19BEGIN
20   REGION 不可中断块填充
21      IF #Fill THEN
22         UFILL_BLK(IN := #Value, COUNT := #Count, OUT => #Dest[0]);
23      END_IF;
24   END_REGION
25 
26   REGION 结果
27      #Done := #Dest[0] = #Value AND #Dest[1] = #Value AND #Dest[2] = #Value AND #Dest[3] = #Value;
28      #Sum := #Dest[0] + #Dest[1] + #Dest[2] + #Dest[3];
29   END_REGION
30END_FUNCTION_BLOCK
31