Программирование МК на ассемблере ASM-51 и AVR Pascal. Китаев Ю.В. - 78 стр.

UptoLike

ВУЗ: 

Университет ИТМО | Санкт-Петербург

Составители: 

Рубрика: 

78
Delay 30,229;== задержка на 15мсек после включения ЖКД
call InitALL;== начальная настройка
call menu;== текст меню действий - на экран дисплея
_88888888:;== начало бесконечного цикла основной программы
call Wait_4_KeyPressed;== ожидание нажатия на клавишу
zvezda:;== начало блока выбора действий vvvvvvvvv
cjne ascii_code,#'*',reshetka;== если '*' не нажата, переход к '#'
call LCDclear;==
call menu;== если нажата - выводим на LCD меню действий
jmp _88888888
reshetka:
cjne ascii_code,#'#',bukva_D;== если '#' не нажата, переход к 'D'
call LCDclear
LCDstrn adc_pusk;== иначе выводим
строку "# - PUSK ADC"
setb SCONV;== пуск АЦП
w1: jnb ADCI, w1;== ждем окончание цикла преобр. (ADCI бит
готовности)
clr ADCI;== преобр. завершено - обнуляем признак готовности
call readADC;== читаем и отображаем выходной код АЦП
jmp _88888888
bukva_D:
cjne ascii_code,#'D',cifra_0;== если 'D' не нажата, переход к '0'
call LCDclear
LCDstrn dac_code;== иначе выводим текст - "D - выберите код ЦАП"
call smena_koda_ADC
jmp _88888888
cifra_0:
cjne ascii_code,#'0',i_t_d;== если '0' не нажата, переход к i_t_d
call LCDclear;== иначе очищаем дисплей
Write #0,LED_address;==гашение светодиодов
mov daccode,#DACfst;== загрузить в ЦАП
некий начальный код
jmp _88888888
i_t_d:;......................;== дествие i (и так далее)
;== конец блока выбора действий ^^^^^^^^^^^^^^^^^
jmp _88888888;== конец бесконечного цикла
;====endmain====endmain====endmain====endmain====
;== ДАЛЕЕ РАЗМЕЩАЮТСЯ ПОДПРОГРАММЫ ==
InitALL:;== п/п инициализации всего и вся
mov DPP,#DPP_page_addr;== адрес страницы, на кот. находятся ВУ
LCDinit;== настройка ЖКД
mov daccode,#DACfst;== некое нач. значение ЦАП (255..0)
call DAC_ADC_init;== настройка ЦАП и АЦП
ret
;================================================

Страницы