Средства разработки для PICMICRO - Страница 113

Средства разработки для PICMICRO - Средства разработки для PICMICRO

if ( FracHi & 0x04 ) == 0 then Loop ; Ничего не посыпать в ЖКИ

if ( PORTA & 1) != О then CheckTime ; Клавиша "Set" нажата?

Minutes = Minutes + uDlay - 1 ; Обновить число минут
Seconds = Seconds + 60 ; Обновить число секунд

uDlay = ( ( uDlay « 1 ) + 1 ) & Ox03F

goto IncTime ; Произвести увеличение значения времени

CheckTime: ; Сбросить значение переменной uDlay

uDlay = 1

IncTime: ; Определить, надо ли менять

;

PORTB = '-' call SendCHAR

DispTemp SP[ 0 ] = SP[ 0 ] / 2

; Вывести на экран знак '-'

; Вывести значение температуры

Go to Top