程序段1
TAR1 #TEMP7
L DB7.DBD0
LAR1
L DBD [AR1,P#0.0]
T #TEMP4
程序段2
TAR1 #TEMP7
L DB7.DBD0
LAR1
L DBD [AR1,P#0.0]
T #TEMP4
程序段3
L #TEMP4
L #IN1
>=I
= #TEMP5
程序段4
A #IN0
AN #TEMP5
= #TEMP6
程序段5
AN M2.0
ON #TEMP6
JC M002
L #TEMP4
L 1
+D
T #TEMP4
M002: NOP 0
程序段6
// 置位逻辑
A #IN0
A #TEMP5
S #IO3
// 复位逻辑
A #IN0
｜NOT｜
A #IN2
R #IO3
这里IN2始终为定值1
程序段7
NOP 0
L DB7.DBD0
LAR1
L #TEMP4
T DBD [AR1,P#0.0]
L P#DBX4.0
+AR1
TAR1 DB7.DBD0
LAR1 #TEMP7
程序段8
结束程序