程序: L P##IN0 LAR1 L W [AR1,P#2.0] T #LENGTH L W [AR1,P#4.0] T #DBS L D [AR1,P#6.0] T #DZS //将数据源的ANY指针数据复制下来 L P##IN1 LAR1 L B#16#10 //对应ANY_JI T LB 28 L B [AR1,P#1.0] T LB 29 //对应ANY_JI L W [AR1,P#2.0] T LW 30 //对应ANY_JI L W [AR1,P#4.0] T #DBJI T LW 32 //对应TANY_JI L D [AR1,P#6.0] T #DZJI T LD 34 //对应ANY_JI //将存放奇数的DB块的ANY数据进行处理,并编写ANY_JI L P##IN2 LAR1 L B#16#10 T LB 38 //对应ANY_OU L B [AR1,P#1.0] T LB 39 //对应ANY_OU L W [AR1,P#2.0] T LW 40 //对应ANY_OU L W [AR1,P#4.0] T #DBOU T LW 42 //对应ANY_OU L D [AR1,P#6.0] T #DZOU T LD 44 //对应ANY_OU ////将存放偶数的DB块的ANY数据进行处理,并编写ANY_OU L 0 T #ZERO CALL "FILL" BVAL :=#ZERO RET_VAL:=#TEMP12 BLK :=#ANY_JI CALL "FILL" BVAL :=#ZERO RET_VAL:=#TEMP13 BLK :=#ANY_OU //初始化,清零,调用SFC21 OPN DB [#DBS] OPN DI [#DBJI] LAR1 #DZS LAR2 #DZJI L #LENGTH M002: T #LOOP_JI L DBW [AR1,P#0.0] SRW 1 A >0 JCN M001 L DBW [AR1,P#0.0] T DIW [AR2,P#0.0] +AR2 P#2.0 M001: +AR1 P#2.0 L #LOOP_JI LOOP M002 //奇数 OPN DB [#DBS] OPN DI [#DBOU] LAR1 #DZS LAR2 #DZOU L #LENGTH M004: T #LOOP_OU L DBW [AR1,P#0.0] SRW 1 A >0 JC M003 L DBW [AR1,P#0.0] T DIW [AR2,P#0.0] +AR2 P#2.0 M003: +AR1 P#2.0 L #LOOP_OU LOOP M004 //偶数 调用:因为这里采用的是INT数据所以在调用的时候要写:P#DB7.DBX0.0 INT 10 |
电工学习网 ( )
GMT+8, 2021-12-6 20:45