Разработка системы управления кондиционером
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
младшим разрядом вперед
djnz R1, rb1;продолжать, если не последний
ret
;подпрограмма чтения бита
rd1LAN:
call mrslot
ret
;вывод Тпм наЖКИ №2
prtmp:mov a, #16;вывод пробела
call prch2
mov a, bufLAN+1;считываем старший байт
swap a;обмен тетрад
anl a, #0F0H;получили старший полубайт
mov R5, a;временно записываем в R5
mov a, bufLAN;считываем младший байт
swap a;обмен тетрад
anl a, #0FH;получили младший полубайт
add a, R5;складываем полубайты
mov b, #10;деление на 10
div ab
call prch2;вывод десятков
mov a, b;берем остаток от деления
call prch2;вывод единиц
mov a, #17;вывод символа градус
call prch2
mov a, #0CH;вывод буквы С(Цельсия)
call prch2
ret
;подпрограмма режима охлаждения
reoh:clr P0.2;выкл. Нагревательный элемент
setb P0.4;вкл. компрессор
setb P0.3;вкл. вентелятор
call zader
jz re4;переход при нажатой клавише
ret
re4:clr P0.4;выкл. компрессор
clr P0.3;выкл. вентелятор
call zader
jz re3;переход при нажатой клавише
ret
re3:mov a, bufLAN+1
swap a
anl a, #0F0H
mov R5, a
mov a, bufLAN
swap a
anl a, #0FH
add a, R5;в аккумуляторе байт Тпм
mov b, bufLAN2
mov b, #b-2
mov a, #LE(a, b);сравнение Тпм<=Туст-2
cjne a, #0FFFFH, re1;переход, если не истина
inc bufLAN3;счетчик циклов режима увеличить на 1
mov a, #GT(bufLAN3, 2)
cjne a, #0FFFFH, re2;сравнение счетчик циклов>=2
mov bufLAN3, #0;обнуление счетчика
mov a, #4;в режим обогрева
ret
re1:mov bufLAN3, #0;обнуление счетчика
re2:mov a, #5;режим охлаждения
ret
;конец программы
end