Minutes = Minutes + uDlay - 1 ; Обновить число минут
Seconds = Seconds + 60 ; Обновить число секунд
uDlay = ( ( uDlay « 1 ) + 1 ) & Ox03F
goto IncTime ; Произвести увеличение значения времени
CheckTime: ; Сбросить значение переменной uDlay
uDlay = 1
IncTime: ; Определить, надо ли менять отображение
; времени
if Frac >= 0x00090 then IntTimeSkip
FracHi = FracHi - 1 IntTimeSkip:
Frac = Frac - OxOD090 FracHi = FracHi - 3
Seconds = Seconds + 1
Выполнить перенос для FracHi
if Seconds < 60 then Loop ; He производить изменение значения