这个程序是以前在学习园地下载的?没耐心看下去,也不知道是什么程序,相信一定有人知道.
ORGANIZATION_BLOCK MAIN:OB1
TITLE=POU Comment
BEGIN
Network 1 // Network Title
// Network Comment
LD SM0.1
CALL SBR0
Network 2
// For PLC Port 1 send and recive
LD SM0.0
CALL SBR6
CALL SBR1

CALL SBR7


END_ORGANIZATION_BLOCK
SUBROUTINE_BLOCK Init:SBR0
TITLE=POU Comment
BEGIN
Network 1
LD SM0.0
MOVB 16#05, SMB130
MOVD &VB1500, VD1000
ATCH INT0, 25
MOVW +1, VW1128
MOVD 16#1, VD1011
MOVW +0, VW1008
ENI
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK ReadWrite1:SBR1
TITLE=POU Comment
BEGIN
Network 1 // Int Type Data to ASCII for Send
LD SM0.0
CALL SBR4
Network 2 // write station 1 SV
// Network Comment
LD M0.0
EU
XMT VB1100, 1
Network 3 // write station 2 SV
// Network Comment
LD M0.1
EU
XMT VB1120, 1
Network 4 // write station 3 SV
// Network Comment
LD M10.0
EU
XMT VB1140, 1
Network 5 // write station 4 SV
// Network Comment
LD M10.0
EU
XMT VB1160, 1
Network 6 // write station 5 SV
// Network Comment
LD M10.0
EU
XMT VB1180, 1
Network 7 // write station 6 SV
// Network Comment
LD M10.0
EU
XMT VB1200, 1
Network 8 // write station 7 SV
// Network Comment
LD M10.0
EU
XMT VB1220, 1



Network 9 // write station 8 SV
// Network Comment
LD M10.0
EU
XMT VB1240, 1
Network 10 // write station 9 SV
// Network Comment
LD M10.0
EU
XMT VB1260, 1
Network 11 // write station 10 SV
// Network Comment
LD M10.0
EU
XMT VB1280, 1
Network 12 // Read Station 1 PV
LD V1014.0
EU
+D +0, VD1000
XMT VB1400, 1
Network 13 // Read Station 2 PV
LD V1014.1
EU
+D +20, VD1000
XMT VB1410, 1
Network 14 // Read Station 3 PV
LD M10.0
EU
+D +40, VD1000
XMT VB1420, 1
Network 15 // Read Station 4 PV
LD M10.0
EU
+D +60, VD1000
XMT VB1430, 0
Network 16 // Read Station 5 PV
LD M10.0
EU
+D +80, VD1000
XMT VB1440, 0
Network 17 // Read Station 6 PV
LD M10.0
EU
+D +100, VD1000
XMT VB1450, 0
Network 18 // Read Station 7 PV
LD M10.0
EU
+D +120, VD1000
XMT VB1460, 0
Network 19 // Read Station 8 PV
LD M10.0
EU
+D +140, VD1000
XMT VB1470, 0
Network 20 // Read Station 9 PV
LD M10.0
EU
+D +160, VD1000
XMT VB1480, 0
Network 21 // Read Station 10 PV
LD M10.0
EU
+D +180, VD1000
XMT VB1490, 0
Network 22
// ASCII data convert to Int data
LD SM0.0
CALL SBR5
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK int_to_char:SBR2
TITLE=SUBROUTINE COMMENTS
VAR_INPUT
Input_Temp:INT;
END_VAR
VAR_OUTPUT
ASC_I:BYTE;
ASC_II:BYTE;
ASC_III:BYTE;
END_VAR
BEGIN
Network 1 // Network Title
// Network Comment
LD SM0.0
LPS
MOVW LW0, LW8
AENO
DIV +100, LD6
AENO
MOVB LB9, LB15
AENO
MOVW LW14, LW24
AENO
+I 16#30, LW24
AENO
MOVB LB25, LB2
LRD
MOVW LW6, LW12
AENO
DIV +10, LD10
AENO
MOVB LB13, LB17
AENO
MOVW LW16, LW26
AENO
+I 16#30, LW26
AENO
MOVB LB27, LB3
LPP
MOVB LB11, LB19
AENO
MOVW LW18, LW28
AENO
+I 16#30, LW28
AENO
MOVB LB29, LB4
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK char_to_int:SBR3
TITLE=SUBROUTINE COMMENTS
VAR_INPUT
ASC_I:BYTE;
ASC_II:BYTE;
ASC_III:BYTE;
END_VAR
VAR_OUTPUT
Temp_out:INT;
END_VAR
BEGIN
Network 1 // Network Title
// Network Comment
LD SM0.0
LPS
BTI LB0, LW10
AENO
-I 16#30, LW10
LRD
BTI LB1, LW12
AENO
-I 16#30, LW12
LRD
BTI LB2, LW14
AENO
-I 16#30, LW14
LRD
MOVW LW10, LW16
*I +100, LW16
LRD
MOVW LW12, LW18
*I +10, LW18
LRD
MOVW LW16, LW20
+I LW18, LW20
LPP
MOVW LW20, LW3
+I LW14, LW3
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK int_asc:SBR4
TITLE=SUBROUTINE COMMENTS
BEGIN
Network 1 // temperature value to write
// Network Comment
LD SM0.0
CALL SBR2, VW0, VB1107, VB1108, VB1109
CALL SBR2, VW2, VB1127, VB1128, VB1129
CALL SBR2, VW4, VB1147, VB1148, VB1149
CALL SBR2, VW6, VB1167, VB1168, VB1169
CALL SBR2, VW8, VB1187, VB1188, VB1189
CALL SBR2, VW10, VB1207, VB1208, VB1209
CALL SBR2, VW12, VB1227, VB1228, VB1229
CALL SBR2, VW14, VB1247, VB1248, VB1249
CALL SBR2, VW16, VB1267, VB1268, VB1269
CALL SBR2, VW18, VB1287, VB1288, VB1289
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK asc_int:SBR5
TITLE=SUBROUTINE COMMENTS
BEGIN
Network 1 // Network Title
// Network Comment
LD SM0.0
CALL SBR3, VB1506, VB1507, VB1508, VW20
CALL SBR3, VB1526, VB1527, VB1528, VW22
CALL SBR3, VB1546, VB1547, VB1548, VW24
CALL SBR3, VB1566, VB1567, VB1568, VW26
CALL SBR3, VB1586, VB1587, VB1588, VW28
CALL SBR3, VB1606, VB1607, VB1608, VW30
CALL SBR3, VB1626, VB1627, VB1628, VW32
CALL SBR3, VB1646, VB1647, VB1648, VW34
CALL SBR3, VB1666, VB1667, VB1668, VW36
CALL SBR3, VB1686, VB1687, VB1688, VW38
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK CRC:SBR6
TITLE=
BEGIN
Network 1
MOVD &VB1105, AC1
MOVD 16#53, AC2
FOR AC3, +1, +7
XORW *AC1, AC2
INCD AC1
NEXT
INCD AC1
MOVB AC2, *AC1

Network 2
MOVD &VB1125, AC1
MOVD 16#53, AC2
FOR AC3, +1, +7
XORW *AC1, AC2
INCD AC1
NEXT
INCD AC1
MOVB AC2, *AC1


Network 3
MOVD &VB1145, AC1
MOVD 16#53, AC2
FOR AC3, +1, +7
XORW *AC1, AC2
INCD AC1
NEXT
INCD AC1
MOVB AC2, *AC1



Network 4
MOVD &VB1165, AC1
MOVD 16#53, AC2
FOR AC3, +1, +7
XORW *AC1, AC2
INCD AC1
NEXT
INCD AC1
MOVB AC2, *AC1


Network 5
MOVD &VB1185, AC1
MOVD 16#53, AC2
FOR AC3, +1, +7
XORW *AC1, AC2
INCD AC1
NEXT
INCD AC1
MOVB AC2, *AC1


Network 6
MOVD &VB1205, AC1
MOVD 16#53, AC2
FOR AC3, +1, +7
XORW *AC1, AC2
INCD AC1
NEXT
INCD AC1
MOVB AC2, *AC1


Network 7
MOVD &VB1225, AC1
MOVD 16#53, AC2
FOR AC3, +1, +7
XORW *AC1, AC2
INCD AC1
NEXT
INCD AC1
MOVB AC2, *AC1


Network 8

MOVD &VB1245, AC1
MOVD 16#53, AC2
FOR AC3, +1, +7
XORW *AC1, AC2
INCD AC1
NEXT
INCD AC1
MOVB AC2, *AC1

Network 9
MOVD &VB1265, AC1
MOVD 16#53, AC2
FOR AC3, +1, +7
XORW *AC1, AC2
INCD AC1
NEXT
INCD AC1
MOVB AC2, *AC1

Network 10
MOVD &VB1285, AC1
MOVD 16#53, AC2
FOR AC3, +1, +7
XORW *AC1, AC2
INCD AC1
NEXT
INCD AC1
MOVB AC2, *AC1

END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK Timer:SBR7
TITLE=POU Comment
BEGIN
Network 1 // Network Title
// Network Comment
LDN T37
TON T38, +1
Network 2
LD T38
TON T37, +1
EU
RLD VD1011, 1
Network 3
LDD= VD1011, 16#10
MOVD +1, VD1011
END_SUBROUTINE_BLOCK
INTERRUPT_BLOCK INT_0:INT0
TITLE=POU Comment
BEGIN
Network 1
LD SM0.0
WDR
Network 2
LDB= SMB2, 2
S V1010.0, 1
Network 3
LD V1010.0
MOVB SMB2, *VD1000
INCD VD1000
INCW VW1008
Network 4
LDW= VW1008, +11

MOVD &VB1500, VD1000
MOVW +0, VW1008
R V1010.0, 1
Network 5
LD SM0.0
CRETI
END_INTERRUPT_BLOCK




DATA_BLOCK_TAB 用户定义1
//
BEGIN
//SLAVE 1 Auto
//WRITE station 1 SV
VB1100 13
VB1101 16#04
VB1102 16#30
VB1103 16#31
VB1104 16#02
VB1105 16#53 //CRC start addr,not include STX
VB1106 16#31
VB1107 16#32
VB1108 16#30
VB1109 16#30
VB1110 16#2E
VB1111 16#30
VB1112 16#03

//WRITE station 2 SV
VB1120 13
VB1121 16#04
VB1122 16#30
VB1123 16#32
VB1124 16#02
VB1125 16#53
VB1126 16#31
VB1127 16#32
VB1128 16#30
VB1129 16#30
VB1130 16#2E
VB1131 16#30
VB1132 16#03

//WRITE station 3 SV
VB1140 13
VB1141 16#04
VB1142 16#30
VB1143 16#33
VB1144 16#02
VB1145 16#53
VB1146 16#31
VB1147 16#32
VB1148 16#30
VB1149 16#30
VB1150 16#2E
VB1151 16#30
VB1152 16#03

//WRITE station 4 SV
VB1160 13
VB1161 16#04
VB1162 16#30
VB1163 16#34
VB1164 16#02
VB1165 16#53
VB1166 16#31
VB1167 16#32
VB1168 16#30
VB1169 16#30
VB1170 16#2E
VB1171 16#30
VB1172 16#03

//WRITE station 5 SV
VB1180 13
VB1181 16#04
VB1182 16#30
VB1183 16#35
VB1184 16#02
VB1185 16#53
VB1186 16#31
VB1187 16#32
VB1188 16#30
VB1189 16#30
VB1190 16#2E
VB1191 16#30
VB1192 16#03

//WRITE station 6 SV
VB1200 13
VB1201 16#04
VB1202 16#30
VB1203 16#36
VB1204 16#02
VB1205 16#53
VB1206 16#31
VB1207 16#32
VB1208 16#30
VB1209 16#30
VB1210 16#2E
VB1211 16#30
VB1212 16#03

//WRITE station 7 SV
VB1220 13
VB1221 16#04
VB1222 16#30
VB1223 16#37
VB1224 16#02
VB1225 16#53
VB1226 16#31
VB1227 16#32
VB1228 16#30
VB1229 16#30
VB1230 16#2E
VB1231 16#30
VB1232 16#03

//WRITE station 8 SV
VB1240 13
VB1241 16#04
VB1242 16#30
VB1243 16#38
VB1244 16#02
VB1245 16#53
VB1246 16#31
VB1247 16#32
VB1248 16#30
VB1249 16#30
VB1250 16#2E
VB1251 16#30
VB1252 16#03

//WRITE station 9 SV
VB1260 13
VB1261 16#04
VB1262 16#30
VB1263 16#39
VB1264 16#02
VB1265 16#53
VB1266 16#31
VB1267 16#32
VB1268 16#30
VB1269 16#30
VB1270 16#2E
VB1271 16#30
VB1272 16#03

//WRITE station 10 SV
VB1280 13
VB1281 16#04
VB1282 16#31
VB1283 16#30
VB1284 16#02
VB1285 16#53
VB1286 16#31
VB1287 16#32
VB1288 16#30
VB1289 16#30
VB1290 16#2E
VB1291 16#30
VB1292 16#03



//READ station 1 PV
VB1400 16#06
VB1401 16#04
VB1402 16#30
VB1403 16#31
VB1404 16#4D
VB1405 16#31
VB1406 16#05

//READ station 2 PV
VB1410 16#06
VB1411 16#04
VB1412 16#30
VB1413 16#32
VB1414 16#4D
VB1415 16#31
VB1416 16#05

//READ station 3 PV
VB1420 16#06
VB1421 16#04
VB1422 16#30
VB1423 16#33
VB1424 16#4D
VB1425 16#31
VB1426 16#05

//READ station 4 PV
VB1430 16#06
VB1431 16#04
VB1432 16#30
VB1433 16#34
VB1434 16#4D
VB1435 16#31
VB1436 16#05

//READ station 5 PV
VB1440 16#06
VB1441 16#04
VB1442 16#30
VB1443 16#35
VB1444 16#4D
VB1445 16#31
VB1446 16#05

//READ station 6 PV
VB1450 16#06
VB1451 16#04
VB1452 16#30
VB1453 16#36
VB1454 16#4D
VB1455 16#31
VB1456 16#05

//READ station 7 PV
VB1460 16#06
VB1461 16#04
VB1462 16#30
VB1463 16#37
VB1464 16#4D
VB1465 16#31
VB1466 16#05

//READ station 8 PV
VB1470 16#06
VB1471 16#04
VB1472 16#30
VB1473 16#38
VB1474 16#4D
VB1475 16#31
VB1476 16#05

//READ station 9 PV
VB1480 16#06
VB1481 16#04
VB1482 16#30
VB1483 16#39
VB1484 16#4D
VB1485 16#31
VB1486 16#05

//READ station 10 PV
VB1490 16#06
VB1491 16#04
VB1492 16#31
VB1493 16#30
VB1494 16#4D
VB1495 16#31
VB1496 16#05
END_DATA_BLOCK_TAB