这是我用了多年的程序，绝对的原创。
需要把所有的故障都放在sorce DB，再增加一个DB用于保存旧的故障。输出有两个：
F_actived 表示有故障，不管有多少个故障都为true输出。正常输出给故障报警灯用的，再跟CPU的心跳位相与就可以作为一个闪烁的报警灯了。
New_Fault 表示有新故障，只要有新的故障都将输出一个周期，一般增加一个时间延时后输出到故障蜂鸣器。

FUNCTION FC 6 : VOID
TITLE =
AUTHOR : Franklin
VERSION : 0.1


VAR_INPUT
Src_DB : INT ; //Sorce DB of faults
Copy_DB : INT ; //Copy DB of faults
Words : INT ; //Number words of faults
END_VAR
VAR_OUTPUT
F_actived : BOOL ; //Fault active
New_Fault : BOOL ;
END_VAR
BEGIN
NETWORK
TITLE =

SET ;
SAVE ;

CLR ;
= #F_actived;
= #New_Fault;

L 0;
T LD 4;
T LW 2;

L #Src_DB;
T LW 0;
OPN DB [LW 0];
L #Copy_DB;
T LW 0;
OPN DI [LW 0];


_000: L 0;
L DBW [LD 4];
==I ;
JC _003;
S #F_actived;
L DIW [LD 4];
<=I ;
JC _001;
S #New_Fault;
TAK ;
_003: T DIW [LD 4];

_001: L LW 2;
+ 1;
T LW 2;
L #Words;
< I ;
JCN _en;
L LD 4;
+ L#16;
T LD 4;
JU _000;
_en: NOP 0;

END_FUNCTION