{
Update Analog Output n: put (t,y) event.
}
procedure UpdateAo(n:Integer; t,y:Real);
var b:Boolean;
begin
 if RefAo(n)<>0 then b:=PutAo(n,t,y);
end;
{
Update Digital Output n: put (t,y) event.
}
procedure UpdateDo(n:Integer; t,y:Real);
var b:Boolean;
begin
 if RefDo(n)<>0 then b:=PutDo(n,t,y);
end;
