方法二：检查站点状态
A #Req
S #ReqConfig
R #ReqNormal
R #ReqFault

CALL "RDSYSST"
REQ :=#ReqConfig
SZL_ID :=W#16#92
INDEX :=#Master_ID
RET_VAL :=#ret
BUSY :=#busy
SZL_HEADER:=#SZL_HEADER
DR :=#buffer.configstation

A #ReqConfig
JCN _101
A #busy
JC _101
R #ReqConfig
S #ReqNormal
_101: NOP 0

CALL "RDSYSST"
REQ :=#ReqNormal
SZL_ID :=W#16#292
INDEX :=#Master_ID
RET_VAL :=#ret
BUSY :=#busy
SZL_HEADER:=#SZL_HEADER
DR :=#buffer.normalstation

A #ReqNormal
JCN _102
A #busy
JC _102
R #ReqNormal
S #ReqFault
_102: NOP 0


CALL "RDSYSST"
REQ :=#ReqFault
SZL_ID :=W#16#692
INDEX :=#Master_ID
RET_VAL :=#ret
BUSY :=#busy
SZL_HEADER:=#SZL_HEADER
DR :=#buffer.faultstation

A #ReqFault
JCN _103
A #busy
JC _103
R #ReqFault
_103: NOP 0

O #ReqConfig
O #ReqNormal
O #ReqFault
= #Checking
//存放站点状态的结构
buffer : STRUCT
configstation : ARRAY [1 .. 128 ] OF BOOL ;
normalstation : ARRAY [1 .. 128 ] OF BOOL ;
faultstation : ARRAY [1 .. 128 ] OF BOOL ;
END_STRUCT ;