发布于 2004-04-30 17:10:31
0楼
to:108,hula
我已经做好文件,请看下面:
ORGANIZATION_BLOCK Main:OB1
TITLE=
// 程序注释
// 按 F1 获得帮助及举例程序
//
BEGIN
Network 1 // 网络题目 (单行)
//
// 网络注释
//
LD SM0.1
CALL Initialize
Network 2
LD SM0.0
CALL Map_Inputs
CALL Map_Outputs
CALL process
CALL alarm
CALL Timer
END_ORGANIZATION_BLOCK
SUBROUTINE_BLOCK Map_Inputs:SBR0
TITLE=
// 子程序注释
// 按 F1 获得帮助及举例程序
//
BEGIN
Network 1 // 网络题目 (单行)
//
// 网络注释
//
LD SM0.0
MOVW IW0, MW0
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK Map_Outputs:SBR1
TITLE=
// 子程序注释
// 按 F1 获得帮助及举例程序
//
BEGIN
Network 1 // 网络题目 (单行)
//
// 网络注释
//
LD SM0.0
MOVB MB25, QB3
XORB 127, QB3
MOVB MB29, QB2
XORB 127, QB2
MOVB MB22, QB0
Network 2
LD M24.0
= Q1.1
Network 3
LD M28.0
= Q1.0
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK process:SBR2
TITLE=
// 子程序注释
// 按 F1 获得帮助及举例程序
//
BEGIN
Network 1 //
//
// 网络注释
//
LD M0.0
AN V0.5
A T43
AN L0.2
EU
S L0.1, 1
R V0.3, 1
Network 2
//
LD M0.0
A L0.1
TON T37, +50
Network 3
LD M0.0
A V0.3
TON T43, +50
Network 4
//
LD T37
EU
S V0.3, 1
R L0.1, 1
Network 5 //
//
LD V0.0
EU
AN V0.6
AN L0.1
S L0.2, 1
R V0.3, 1
Network 6
LD V0.0
EU
R V0.0, 1
Network 7
LD M0.0
A L0.2
TON T38, +50
Network 8
LD T38
EU
MOVW +0, MW26
Network 9
LDW> VW6, VW8
EU
R L0.2, 1
R L0.1, 1
S V0.3, 1
MOVW +0, VW6
MOVW +0, MW26
Network 10
LD L0.1
= V0.1
Network 11
LD L0.2
= V0.2
Network 12
LDN L0.1
AN L0.2
= V0.3
Network 13
LD V0.1
CALL process1
Network 14
LD SM0.0
CALL process2
Network 15
LD V0.3
CALL process3
Network 16 // ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//
Network 17
//
// 网络注释
//
LD M0.1
A T44
AN V0.1
AN L0.6
EU
S L0.5, 1
R V0.7, 1
Network 18
//
LD M0.1
A L0.5
TON T39, +50
Network 19
LD M0.1
A V0.7
TON T44, +50
Network 20
//
LD T39
EU
S V0.7, 1
R L0.5, 1
Network 21 //
//
LD V0.4
EU
AN V0.2
AN L0.5
S L0.6, 1
R V0.7, 1
Network 22
LD V0.4
EU
R V0.4, 1
Network 23
LD M0.1
A L0.6
TON T40, +50
Network 24
LD T40
EU
MOVW +0, MW30
Network 25
LDW> VW106, VW108
EU
R L0.6, 1
R L0.5, 1
S V0.7, 1
MOVW +0, VW106
MOVW +0, MW30
Network 26
LD L0.5
= V0.5
Network 27
LD L0.6
= V0.6
Network 28
LDN V0.6
AN V0.5
= V0.7
Network 29
//
LD V0.5
CALL process1
Network 30
//
LD SM0.0
CALL process2
Network 31
LD V0.7
CALL process3
Network 32
//
LDW= MW24, +0
MOVW +0, MW26
Network 33
LDW= MW28, +0
MOVW +0, MW30
Network 34
//
LD V0.1
O V0.5
= M22.5
Network 35
LDN M0.3
R L0.1, 1
R L0.2, 1
R L0.5, 1
R L0.6, 1
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK process1:SBR3
TITLE=
// 子程序注释
// 按 F1 获得帮助及举例程序
//
BEGIN
Network 1 // 网络题目 (单行)
//
// 网络注释
//
LD V0.1
MOVW VW2, MW24
Network 2
LD V0.5
MOVW VW102, MW28
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK process2:SBR4
TITLE=
// 子程序注释
// 按 F1 获得帮助及举例程序
//
BEGIN
Network 1
LD SM0.0
MOVW VW6, LW0
*I +4, LW0
Network 2
LD V0.2
EU
LPS
MOVD &VB6, AC1
AENO
+I LW0, AC1
AENO
MOVW *AC1, MW24
LPP
MOVD &VB8, AC2
AENO
+I LW0, AC2
AENO
AN SM0.0
MOVW *AC2, MW26
Network 3
LD V0.2
A SM0.5
EU
-I +1, MW26
Network 4
LD V0.2
AW<= MW26, +0
AW<= VW6, VW8
LPS
+I +1, VW6
+I +4, AC1
AENO
MOVW *AC1, MW24
LPP
+I +4, AC2
AENO
MOVW *AC2, MW26
Network 5
Network 6
LD SM0.0
MOVW VW106, LW2
*I +4, LW2
Network 7
LD V0.6
EU
LPS
MOVD &VB106, AC1
AENO
+I LW2, AC1
AENO
MOVW *AC1, MW28
LPP
MOVD &VB108, AC2
AENO
+I LW2, AC2
AENO
AN SM0.0
MOVW *AC2, MW30
Network 8
LD V0.6
A SM0.5
EU
-I +1, MW30
Network 9
LD V0.6
AW<= MW30, +0
AW<= VW106, VW108
LPS
+I +1, VW106
+I +4, AC1
AENO
MOVW *AC1, MW28
LPP
+I +4, AC2
AENO
MOVW *AC2, MW30
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK process3:SBR5
TITLE=
// 子程序注释
// 按 F1 获得帮助及举例程序
//
BEGIN
Network 1
LD V0.3
MOVW VW4, MW24
Network 2
LD V0.7
MOVW VW104, MW28
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK Initialize:SBR6
TITLE=
// 子程序注释
// 按 F1 获得帮助及举例程序
//
BEGIN
Network 1 // 网络题目 (单行)
//
// 网络注释
//
LD SM0.0
MOVW +261, VW2
MOVW +0, VW4
MOVW +5, VW8
MOVW +98, VW10
MOVW +146, VW14
MOVW +134, VW18
MOVW +138, VW22
MOVW +134, VW26
Network 2 // 网络题目 (单行)
//
// 网络注释
//
LD SM0.0
MOVW +261, VW102
MOVW +0, VW104
MOVW +5, VW108
MOVW +98, VW110
MOVW +146, VW114
MOVW +134, VW118
MOVW +138, VW122
MOVW +134, VW126
Network 3 // temp
//
LDN SM0.0
MOVW +240, VW12
MOVW +240, VW16
MOVW +240, VW20
MOVW +240, VW24
MOVW +240, VW28
Network 4 // temp
//
LDN SM0.0
MOVW +240, VW112
MOVW +240, VW116
MOVW +240, VW120
MOVW +240, VW124
MOVW +240, VW128
Network 5
LD SM0.0
R V0.0, 1
R V0.4, 1
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK alarm:SBR7
TITLE=
// 子程序注释
// 按 F1 获得帮助及举例程序
//
BEGIN
Network 1
//
LDN M0.3
EU
S M22.4, 1
Network 2
//
LD M0.2
EU
R M22.4, 1
Network 3
//
LD V0.1
= M22.0
Network 4
//
LD V0.2
= M22.1
Network 5
//
LD V0.5
= M22.2
Network 6
//
LD V0.6
= M22.3
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK Timer:SBR10
TITLE=
// 子程序注释
// 按 F1 获得帮助及举例程序
//
BEGIN
Network 1 // 网络题目 (单行)
//
// 网络注释
//
LD V0.1
A SM0.5
EU
INCW MW10
Network 2
LDW>= MW10, +60
EU
INCW MW12
MOVW +0, MW10
Network 3
LDW>= MW12, +60
EU
INCW MW14
MOVW +0, MW12
Network 4
LD V0.5
A SM0.5
EU
INCW MW16
Network 5
LDW>= MW16, +60
EU
INCW MW18
MOVW +0, MW16
Network 6
LDW>= MW18, +60
EU
INCW MW20
MOVW +0, MW18
Network 7 // Reset Timer
//
LDW>= VW6, +5
MOVW +0, MW10
MOVW +0, MW12
MOVW +0, MW14
Network 8 // Reset Timer2
//
LDW>= VW106, +5
MOVW +0, MW16
MOVW +0, MW18
MOVW +0, MW20
END_SUBROUTINE_BLOCK
请帮忙检查,谢谢!