;************************************************* **********************
; Программ один раз в секунду считывает данные с входов и выводит их
;без изменений на выходы.
;************************************************* **********************
.include "c:\8515def.inc"; Подключение внешней библиотеки с описанием
; символических имен и определением адресов
; регистров микроконтроллера
.cseg
.org 0
rjmp init; Вектор прерывания по включению питания,
.org $0d;

.def inl = r3; Данные получаемые с входов
.def inh = r4;
.def outl = r5; Данные на выходы
.def outh = r6;
.def temp = r16; Временные регистры
.def temp1 = r17;
.def temp2 = r18;
; имен портов и подпрограммами
;****** Инициализация контроллера ****************************************
; выполняется при включении питания, сбросу RESET, или от
; сторожевого таймера
;************************************************* ************************
;****** Чтение данных *****************************************
read_in:
clr zl; Устанавливаем адрес первого буфера
ldi zh, $80;
ld inh, z; Читаем содержимое первого буфера
ldi zh, $40; Устанавливаем адрес второго буфера
ld inl, z; Читаем содержимое второго буфера
ret



;****** Запись данных ****************************************
write_out:
clr zl; Устанавливаем адрес первого регистра
ldi zh, $80;
st z, outh; Записываем значения в первый регистр
ldi zh, $40; Устанавливаем адрес второго регистра
st z, outl; Запмисываем значения во второй регистр
ret
;****** Формирование задержки 1с **************************************
delay1:
ldi temp2, 25;
d0: ser temp1;
d1: ldi temp, 209;
d2: dec temp;
brne d2;
dec temp1;
brne d1;
dec temp2;
brne d0;
ret;
init:
;****** Инициализация МК **********************************
ldi temp, low(RAMEND); Инициализация указателя стека
out SPL, temp; в конце внутреннего ОЗУ
ldi temp, high(RAMEND);
out SPH, temp;
ldi temp, (1<<SRE); Разрешение работы с внешним ОЗУ
out mcucr, temp;
;****** Основная программа ***********************************************
main:
rcall read_in; Вызов подпрограммы чтения данных
mov outh, inh;
mov outl, inl;
rcall write_out; Вызов подпрограммы записи данных
rcall delay1; Вызов подпрограммы формирования задержки 1с
rjmp main;

.include "8515def.inc" ; Подключение внешней библиотеки с описанием
; символических имен и определением адресов
; регистров микроконтроллера
.cseg ; CODE segment
.org 0 ;
rjmp init ; Вектор прерывания по включению питания,
; сбросу RESET или от сторожевого таймера
.org $0d ;
.include "MyLib.inc" ; Подключение файла с описанием символических
; имен портов и подпрограммами
;****** Инициализация контроллера ****************************************
;** выполняется при включении питания, сбросу RESET, или от **
;** сторожевого таймера **
;*************************************************************************
init:
ldi temp, low(RAMEND) ; Инициализация указателя стека
out SPL, temp ; в конце внутреннего ОЗУ
ldi temp, high(RAMEND);
out SPH, temp ;

rcall Config_Port ; Вызов подпрограммы конфигурирования портов
rcall Init_lcd ; Вызов подпрограммы инициализации ЖКИ
;****** Вывод в DDRAM постоянного текста*******************
rcall wait_busy ;
ldi zl,low(text0*2) ; Установить указатель Z на начало буфера text0
ldi zh,high(text0*2);
ldi temp2, 30 ; Установить счетчик программируемых ячеек DDRAM
ddram:
lpm ; Извлечь из flash-памяти байт данных
mov dat_lcd, r0 ;
rcall lcd_dat ; Записать его в DDRAM
rcall wait_busy ;
ld r0, z+ ; Увеличить на 1 указатель Z адреса flash-памяти
dec temp2 ; Если еще не все ячейки запрограммированы
brne ddram ; вернуться назад
;*************************************************************************
;****** Основная программа ***********************************************
main:
ldi temp, 2 ; Установить дисплей относительно буфера
rcall lcd_dat ; DDRAM в начальную позицию
ldi r24,5 ; остановка
stop1:
rcall del200
dec r24
brne stop
ldi r24, 10 ; установка счетчика символов
shift:
ldi dat_lcd,$18 ; сдвиг дисплея на один символ
rcall lcd_com
rcall del200 ; задержка ~1/5 с при кварце 4 МГц
dec r24
brne shift
ldi r24,5 ; остановка после вывода каждой строки
stop:
rcall del200
dec r24
brne stop
rjmp main ; повторить сначала
;***********************************************************************
;****** Инициализация ЖКИ **********************************************
init_lcd:
ldi dat_lcd, 0b00001000 ; включить дисплей, выключить курсор
rcall lcd_com ;
rcall del40 ;
ldi dat_lcd, 0b00110000 ; 8-битный интерфейс, 1-строка, шрифт-5х8 точек
rcall lcd_com ;
rcall del40 ;
ldi dat_lcd, 0b00000110 ; Направление сдвига курсора вправо,
rcall lcd_com ; запретить сдвиг дисплея вместе с курсором
rcall del40 ;
ldi dat_lcd, 0b00000001 ; Очистить дисплей и установить курсор в
rcall lcd_com ; начальную позицию
rcall del40 ;
ret
;****** Запись команды в ЖКИ *******************************************
lcd_com:
in temp, ddrc ; Чтение состояния выводов порта С
andi temp, 0b11001111; Сброс RS и R/W (Выводы PC4, PC5)
out ddrc, temp ;
sbi portb, LCD_E ; Установка бита 0 порта B(сигнал E=1).
out porta, dat_lcd ; Вывод команды на шину данных LCD
cbi portb, LCD_E ; Cброс бита 0 порта B(сигнал E=0)
ret
;****** Запись данных в ЖКИ ********************************************
lcd_dat:
cbi ddrc, LCD_RW ; Сброс R/W
sbi ddrc, LCD_RS ; Установка RS
sbi portb, LCD_E ; Установка бита 0 порта B(сигнал E=1).
out porta, dat_lcd ; Вывод ASCII символа на шину данных LCD
cbi portb, LCD_E ; Cброс бита 0 порта B(сигнал E=0)
ret
;****** Подпрограмма чтения BUSY флага и счетчика адреса ЖКИ ***********
read_busy:
clr temp ; Линии порта A как входы
out ddra, temp ;
out porta, temp ;
sbi ddrc, LCD_RW ; Установка R/W
cbi ddrc, LCD_RS ; Сброс RS
sbi portb, LCD_E ; Установка бита 0 порта B (сигнал E=1).
nop ; Формирование задержки 1 мкс
nop ;
nop ;
nop ;
in dat_lcd, pina ; Чтение данных из ЖКИ
cbi portb, LCD_E ; Cброс бита 0 порта B (сигнал E=0)
ser temp ; Линии порта A как выход
out ddra, temp ;
ret
;****** Подпрограмма ожидания сброса BUSY флага ЖКИ ********************
wait_busy: ;
rcall read_busy ;
sbrc dat_lcd, busy ;
rjmp wait_busy ;
ret
;****** Подпрограмма формирования задержки ~40мкс **********************
del40:
ldi temp, 53
d3: dec temp
brne d3
ret
;****** Подпрограмма формирования задержки *****************************
del200:
ldi temp2, 5
d0: ser temp1
d1: ldi temp, 209
d2: dec temp
brne d2
dec temp1
brne d1
dec temp2
brne d0
ret
;****** Во flash - памяти после программы размещаем постоянные данные **
.org $200
text0: .DB 168,112,111,180,112, 97,188,188,97 ;Программа