MOVW *VD131, AC0 ANDW 16#FF, AC0 AB> AC0, 16#39 MOVW AC0, AC1 -I 16#37, AC1 LRD
AB<= AC0, 16#39 MOVW -I LRD
INCD LRD
MOVW ANDW LRD
AB> MOVW -I LRD
AB<= MOVW -I LRD
SLB LRD
MOVW +I LRD
+I LPP
+D Network
AC0, AC1 16#30, AC1 VD131 *VD131, AC0 16#FF, AC0 AC0, 16#39 AC0, AC2 16#37, AC2 AC0, 16#30 AC0, AC2 16#30, AC2 AC1, 4 AC1, AC3 AC2, AC3 AC3, VW129 1, VD131 4
NEXT
Network 5 // 指针加一,指向下一个 LD SM0.0 MOVW 0, AC2 MOVW 0, AC3 +D 1, VD131 Network 6 LD LPS
MOVW ANDW INVW MOVW +I MOVB SRB AW> +I LRD
MOVB LRD
+D LRD
MOVB ANDB LRD
AW> +I LRD
AW<= +I LPP
SM0.0 16#FF, AC0 VW129, AC0 AC0 1, VW800 AC0, VW800 VB801, AC2 AC2, 4 AC2, 9 16#37, AC2 AC2, *VD131 1, VD131 VB801, AC3 16#0F, AC3 AC3, 9 16#37, AC3 AC3, 9 16#30, AC3
MOVB AC3, *VD131
Network 7 // 发送前,强行禁止接收 LD SM0.0 MOVB 16#70, SMB87 RCV VB200, 0 Network 8 // 开始发送 LD SM0.0 MOVB 17, VB100 XMT VB100, 0 FILL 0, VW200, 9 Network 9 // 发送后允许接收 LD SM0.0 MOVB 16#F0, SMB87 END_SUBROUTINE_BLOCK SUBROUTINE_BLOCK SBR_2:SBR2 TITLE=频率显示运算子程序 VAR LIN1:DWORD; lLIN2:DWORD; LIN3:DWORD; LIN4:DWORD; END_VAR BEGIN
Network 1 // 把接收到的16进制ASCII码信息,转换成习惯的小数点形式 LD SM0.0 BTI VB2008, LW0 BTI VB2009, LW2 BTI VB2010, LW4 BTI VB2011, LW6 Network 2 LD SM0.0 LPS
AW> LW0, 16#40 MOVW LW0, AC0 -I 16#37, AC0 LPP
AW< LW0, 16#40 MOVW LW0, AC0 -I 16#30, AC0 Network LD LPS
AW> MOVW -I LPP
AW< MOVW -I Network LD LPS
AW> MOVW -I LPP
AW< MOVW -I Network LD LPS
AW> MOVW
3 SM0.0 LW2, 16#40 LW2, AC1 16#37, AC1 LW2, 16#40 LW2, AC1 16#30, AC1 4 SM0.0 LW4, 16#40 LW4, AC2 16#37, AC2 LW4, 16#40 LW4, AC2 16#30, AC2 5 SM0.0 LW6, 16#40 LW6, AC3
-I 16#37, AC3 LPP
AW< LW6, 16#40 MOVW LW6, AC3 -I 16#30, AC3 Network 6 LD SM0.0 MOVB SLB MOVB SLB
Network LD MOVB ORB Network LD MOVB ORB Network LD ITD DTR MOVR /R Network LD R
AC0, LB8 LB8, 4 AC2, LB9 LB9, 4 7 SM0.0 LB8, VB3200 AC1, VB3200 8 SM0.0 LB9, VB3201 AC3, VB3201 9 SM0.0
VW3200, VD3300 VD3300, VD3304 VD3304, VD3308 100.0, VD3308 10 SM0.0 M20.1, 1