发布于 2007-07-26 16:27:32
0楼
CALL "READ_CLK"
RET_VAL:="故障码"
CDT :="实时时间块".REAL_TIME
A BR
= L 2.0
A(
A L 2.0
JNB _001
L DB6.DBB 0
T #REAL_TIME_TIME
SET
SAVE
CLR
_001: A BR
)
JNB _002
L #REAL_TIME_TIME
BTI
T "实时时间块".YEAR
_002: NOP 0
A(
A L 2.0
JNB _003
L DB6.DBB 1
T #REAL_TIME_TIME
SET
SAVE
CLR
_003: A BR
)
JNB _004
L #REAL_TIME_TIME
BTI
T "实时时间块".MONTH
_004: NOP 0
A(
A L 2.0
JNB _005
L DB6.DBB 2
T #REAL_TIME_TIME
SET
SAVE
CLR
_005: A BR
)
JNB _006
L #REAL_TIME_TIME
BTI
T "实时时间块".DAY
_006: NOP 0
A(
A L 2.0
JNB _007
L DB6.DBB 3
T #REAL_TIME_TIME
SET
SAVE
CLR
_007: A BR
)
JNB _008
L #REAL_TIME_TIME
BTI
T "实时时间块".HOUR
_008: NOP 0
A(
A L 2.0
JNB _009
L DB6.DBB 4
T #REAL_TIME_TIME
SET
SAVE
CLR
_009: A BR
)
JNB _00a
L #REAL_TIME_TIME
BTI
T "实时时间块".MIN
_00a: NOP 0
A(
A L 2.0
JNB _00b
L DB6.DBB 5
T #REAL_TIME_TIME
SET
SAVE
CLR
_00b: A BR
)
JNB _00c
L #REAL_TIME_TIME
BTI
T "实时时间块".SEC
_00c: NOP 0
A(
L "实时时间块".HOUR
L "运行时间块".SWITCH_START_H
==I
)
A(
L "实时时间块".MIN
L "运行时间块".SWITCH_START_M
==I
)
A(
L "实时时间块".SEC
L "运行时间块".SWITCH_START_S
==I
)
FP "脉冲位1M"
S "换泵时间段M"