Avr90s8515, программа не работает Опции

[Prevan]

Доброго времени суток!
Возник вопрос, связанный с реализацией на МК 8515 программы, которая через порт А выполняет чтение данных с буфера (например число 11110000), а затем производит запись в регистр этого числа. В схеме используется дешифратор адреса на базе микросхемы 74ALS155, который осуществляет выбор через ножки МК (PС6 и PС7) буфера или регистра.
Суть микросхемы заключатеся в том, чтобы считать значения с задатчиков (число 11110000) и выдать их на светодиоды (первые четыре включены, остальные выключены).
При запуске в протеусе сама схема, кроме МК работает правильно. МК осуществляет управление дешифраторам неправильно (ножки МК PС6 и PС7 - выбор микросхемы, ножки PD6 и PD7 - стробирующие сигналы дешифратора).

Код программы:

Код

;************************************************* **********************
; Программ один раз в секунду считывает данные с входов и выводит их
;без изменений на выходы.
;************************************************* **********************
.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;

Сообщение отредактировал rezident - May 29 2010, 00:59

Причина редактирования: Оформление цитаты исходника.

Эскизы прикрепленных изображений

 

[Prevan]

Здравствуйте! Подкорректировал код с учётом задержек (руководствовался ДШ и примерами схожих программ). Программа компилируется и при запуске видно, как перебегают сигналы порта А, подключенного к ЖКИ, но дисплей по-прежнему ничего не отображает. По логике вещей, дело в последовательности установления битов RW, RS и Е, но просмотренный мною на несколько раз код явных ошибок не таит. Буду рад прочесть идеи, советы по направлению программы в рабочее русло...

CODE

.include "8515def.inc" ; Подключение внешней библиотеки с описанием
; символических имен и определением адресов
; регистров микроконтроллера
.cseg ; CODE segment
.org 0 ;
rjmp init ; Вектор прерывания по включению питания,
; сбросу RESET или от сторожевого таймера
.org $0d ;
.include "MyLib.inc" ; Подключение файла с описанием символических
; имен портов и подпрограммами
.def Dat_LCD= r20 ; Данные/команды передаваемые на LCD

;****** Инициализация контроллера ****************************************
;** выполняется при включении питания, сбросу RESET, или от
;** сторожевого таймера
;*************************************************************************
init:
ldi temp, low(RAMEND) ; Инициализация указателя стека
out SPL, temp ; в конце внутреннего ОЗУ
ldi temp, high(RAMEND) ;
out SPH, temp ;
rcall Config_Port ; Вызов подпрограммы конфигурирования портов
rcall Init_lcd ; Вызов подпрограммы инициализации ЖКИ

;****** Подпрограмма чтения 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

;****** Вывод в 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: ;ПОДПРОГРАММА ИНИЦИАЛИЗАЦИИ ЖКИ
rcall DEL_5MS ;Задержка 15 мс
rcall DEL_5MS ;
rcall DEL_5MS ;
ldi Dat_LCD,$38 ;ЖКИ 8 бит,2 строки, 5х7 точек
rcall lcd_dat ;Запись управляющего слова в ЖКИ
rcall DEL_5MS ;Задержка 5.4 нс
ldi Dat_LCD,$38 ;ЖКИ 8 бит,2 строки, 5х7 точек
rcall lcd_dat ;Запись управляющего слова в ЖКИ
rcall DEL_100us ;Задержка 100 мкс
ldi Dat_LCD,$38 ;ЖКИ 8 бит,2 строки, 5х7 точек
rcall lcd_dat ;Запись управляющего слова в ЖКИ
rcall DEL_100us ;Задержка 100 мкс
ldi Dat_LCD,$38 ;ЖКИ 8 бит,2 строки, 5х7 точек
rcall lcd_dat ;Запись управляющего слова в ЖКИ
rcall DEL_100us ;Задержка 100 мкс
ldi Dat_LCD,$04 ;Выключить ЖКИ
rcall lcd_dat ;Запись управляющего слова в ЖКИ
rcall DEL_100us ;Задержка 100 мкс
ldi Dat_LCD,$01 ;Очистить ЖКИ,и устан. курсор в начало
rcall lcd_dat ;Запись управляющего слова в ЖКИ
rcall DEL_5MS ;Задержка 5.4 мс
ldi Dat_LCD,$0c ;вкл. дисплей, выкл. кусор,мерцание выкл.
rcall lcd_dat ;Запись управляющего слова в ЖКИ
rcall DEL_100us ;задержка 100 мкс;
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
;****** Подпрограмма формирования задержки *****************************
DEL_5MS: ;ЗАДЕРЖКА 5 МС
ldi R25,27
d: ldi R24,255
d1: dec R24
brne d1
dec R25
brne d
ret

;****** Подпрограмма формирования задержки *****************************
DEL_100us: ;ЗАДЕРЖКА 100 МКС
ldi R25,125
d2: dec R25
brne d2
ret

;****** Подпрограмма формирования задержки *****************************
del200:
ldi temp2, 5
d3: ser temp1
d4: ldi temp, 209
d5: dec temp
brne d5
dec temp1
brne d4
dec temp2
brne d3
ret

;****** Во flash - памяти после программы размещаем постоянные данные **
.org $200
text0: .DB 168,112,111,180,112, 97,188,188,97 ;Программа

[ILYAUL]

Здравствуйте! Подкорректировал код с учётом задержек (руководствовался ДШ и примерами схожих программ). Программа компилируется и при запуске видно, как перебегают сигналы порта А, подключенного к ЖКИ, но дисплей по-прежнему ничего не отображает. По логике вещей, дело в последовательности установления битов RW, RS и Е, но просмотренный мною на несколько раз код явных ошибок не таит. Буду рад прочесть идеи, советы по направлению программы в рабочее русло...

1. Файл Mylib.inc и плиз в архиве , а не кодом
2. Какой LCD?