$HIDE ;;Hidden section inserted by S-Edit
ClearESIODiag	EQU	F	:= 0	;Force to clear the Diagnostic Bit of the Smart-RIO diagnostic
CheckClearDiag	EQU	PB		;PB to clear the Smart-RIO diagnostic
RIO0_rDiag	EQU	R		;Result of Read Peripheral
EXTN	S.RIO.GlobalDiagnostic	F	;Another RIO diagnostic flag is set
EXTN	S.RIO.RIO_00.Diagnostic	F	;RIO_00 diagnostic flag
$ATTR INFO=K
EXTN	S.RIO.RIO_00.DiagnosticID		;Peripheral ID for RDP/WRP
$GROUP S
$ENDGROUP
$ENDHIDE
; The code on this program does set on the Smart-RIO manager
; the diagnostic flag 'S.RIO.NameXY.Diagnostic' of the Smart-RIO to 0.
; If the network interruption between the Smart-RIO manager AND the Smart-RIO
; is longer than the timeout defined IN the device configurator then the diagnostic
; flag 'S.RIO.NameXY.Diagnostic' is SET to 0 automatically afterword that the
; network interruption is no more there.
; If the network interruption is shorter than the timeout which is defined the DC,
; Than the diagnostic flag 'S.RIO.NameXY.Diagnostic' remain 1 AND it'S necessary
; to SET the flag to 0 with the code on this program
;**********************************************
;
; Date:            11.11.2016
; Version:         1.0
; Autor:           C.Alfonsi
; Company:         SBC
;**********************************************

            COB    0
                   0
; if there is a error on the Smart-RIO and the diagnostic should be set to 0
            STH    ClearESIODiag
            ANH    S.RIO.GlobalDiagnostic
            CPB    H CheckClearDiag


            ECOB

; PB to clear the Smart-RIO diagnstic information
            PB     CheckClearDiag
            STH    S.RIO.RIO_00.Diagnostic
            JR     L next
            RDP    S.RIO.RIO_00.DiagnosticID
                   RIO0_rDiag
next:
            EPB