发布于 2014-07-25 08:51:57
3楼
给你一个求和的程序。
ORGANIZATION_BLOCK 主程序:OB1
TITLE=程序注释
BEGIN
Network 1 // 网络标题
// 网络注释
END_ORGANIZATION_BLOCK
SUBROUTINE_BLOCK 求和_W:SBR1
TITLE=
VAR_INPUT
Adress:DWORD; // 起始地址
Count:INT; // 变量数
END_VAR
VAR_OUTPUT
Sum:INT; // 和
END_VAR
VAR
temp_adr:DWORD; // 指针
temp_cou:INT; // 循环计数
END_VAR
BEGIN
Network 1 // NETWORK TITLE (single line)
// 先将结果清零;将起始地址付给指针;循环开始,设定循环次数(变量数);将指针指向的地址值付给累加器,将累加器的值加上结果(和),将指针的地址加上偏移量,循环一次结束。
LD SM0.0
MOVW +0, LW6
MOVD LD0, LD8
FOR LW12, +1, LW4
MOVW *LD8, AC1
+I AC1, LW6
+D +2, LD8
Network 2
NEXT
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK 求和_R:SBR2
TITLE=
VAR_INPUT
Adress:DWORD;
Count:INT;
END_VAR
VAR_OUTPUT
Sum:REAL;
END_VAR
VAR
temp_adr:DWORD;
temp_cou:INT;
END_VAR
BEGIN
Network 1 // NETWORK TITLE (single line)
LD SM0.0
MOVR 0.0, LD6
MOVD LD0, LD10
FOR LW14, +1, LW4
MOVR *LD10, AC1
+R AC1, LD6
+D 4, LD10
Network 2
NEXT
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK 求和_DW:SBR16
TITLE=
VAR_INPUT
Adress:DWORD;
Count:INT;
END_VAR
VAR_OUTPUT
Sum:DWORD;
END_VAR
VAR
temp_adr:DWORD;
temp_cou:INT;
END_VAR
BEGIN
Network 1 // NETWORK TITLE (single line)
LD SM0.0
MOVD +0, LD6
MOVD LD0, LD10
FOR LW14, +1, LW4
MOVD *LD10, AC1
+D AC1, LD6
+D 4, LD10
Network 2
NEXT
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK add_w_dw:SBR28
TITLE=
VAR_INPUT
Adress:DWORD;
Count:INT;
END_VAR
VAR_OUTPUT
Sum:DWORD;
END_VAR
VAR
temp_adr:DWORD;
temp_cou:INT;
END_VAR
BEGIN
Network 1 // NETWORK TITLE (single line)
LD SM0.0
MOVD +0, LD6
MOVD LD0, LD10
FOR LW14, +1, LW4
ITD *LD10, AC1
+D AC1, LD6
+D 2, LD10
Network 2
NEXT
END_SUBROUTINE_BLOCK
INTERRUPT_BLOCK INT_0:INT0
TITLE=中断程序注释
BEGIN
Network 1 // 网络标题
// 网络注释
END_INTERRUPT_BLOCK