; Вычислить значение температуры ; в градусах Цельсия
if SP[ 0 ] <= 99 then DispTens ; Не выводить, если темпера-
; тура выше 100С
PORTB = 'V call SendCHAR
DispTens if SP[ 0 ] <= 9 then DispOnes
; Вывести на экран значение десятков
PORTB = ( ( SP[ 0 ] / 10 ) / / 10 ) + 'О'
call SendCHAR ; Послать в ЖКИ число десятков
DispOnes PORTB = ( SP[ 0 ] / / 10 ) + 'О1 call SendCHAR
; Вывести на экран значение единиц
; Теперь определить, следует ли модифицировать значение времени
UPDTime ; Обновить значение времени
if ( FracHi & 0x04 ) == 0 then Loop ; Ничего не посыпать в ЖКИ
if ( PORTA & 1) != О then CheckTime ; Клавиша "Set" нажата?