Процедура очистки

Процедура очистки вызывается, когда произошло событие, которое значительно изменило достижимость или вызвало поломку локальных часов.

begin clear procedure

peer.org

/* пометка неопределенных временных меток */

peer.rec

peer.xmt

peer.reach	/* сброс переменных состояния */
peer.filter	/* все ступени */

peer.valid

peer.dispersion

{peer.hostpoll

/* первичная установка периода рассылки */

call poll-update;

call clock-select;

/* Выбор эталонных часов */

end clear procedure;