Ассемблер (ASM) для AVR в вопросах и ответах

[Prevan]

Здравствуйте! Подскажите почему при запуске программы на дисплей сразу выдаётся цифра "1", хотя на дисплей должны выдаваться цифры только при нажатии клавиш

Код: Выделить всё

;******************************************************
.include "8515def.inc"	;файл определений AT90S8515
.def temp=r16		;временная переменная
.def lcd=r22		;регистр LCD (ЖК-дисплея)

.equ rs=5	; (RS=1) - данные, (RS=0) - команды
.equ rw=4	; (RW=1) - чтение LCD, (RW=0) - запись в LCD
.equ e=3	;строб сигналов на шине команды/данные

.org $000
	rjmp init
.org $007
	rjmp scankeys	;обработка клавиатуры

;Инициализация
init:
	ldi temp,low(RAMEND) ;Инициализация
	out spl,temp	     ;указателя стека
	ldi temp,high(RAMEND)
	out sph,temp
      ;Инициализация портов
	ser temp
	out DDRA,temp	     ;порт РА на вывод
	ldi temp,$30
	out DDRC,temp	     ; конфигурируем биты 4, 5 порта C на вывод.
	ldi temp,$38	     ;линии порта PD4-PD5 на вывод,
	out DDRD,temp	     
	ldi temp,$0F	     ;PC0-PC3 на ввод
	out PORTC,temp

      ;Инициализация таймера 0
	ldi temp,$05
	out TCCR0,temp	     ;коэффициент деления 1024	
	ldi temp, (1<<TOIE0)
	out TIMSK, temp	     ;разрешение прерываний от таймера
      ;Инициализация ЖК-дисплея
	rcall delay2ms
	ldi lcd,$38		;8-битовый режим вывода,
	rcall lcdcom		;2 строки, шрифт 5х7
	ldi lcd,$06		;Направление сдвига курсора вправо, без сдвига дисплея
	rcall lcdcom
	ldi lcd,$0C		;включить дисплей
	rcall lcdcom		;погасить курсор
	ldi lcd,$01		;Очистить дисплей и установить курсор в нулевую позицию
	rcall lcdcom
	rcall delay2ms
     	sei			;разрешение прерываний
      loop: rjmp loop

      ;Подпрограмма обработки клавиатуры
      scankeys:
	cbi     PORTD,5		; установить бит 5 порта C в «0»
	sbi	PORTD,4		; установить бит 4 порта C в «1»
	ldi     lcd,0x31	; загрузить цифру "1" в регистр lcd
	SBIC    PINC,0		; если сброшен пропустить следующую команду
	rcall   lcddat
	ldi     lcd,0x32	; загрузить цифру "2" в регистр lcd
	SBIC    PINC,1		; если сброшен пропустить следующую команду
	rcall   lcddat
	ldi     lcd,0x33	; загрузить цифру "3" в регистр lcd
	SBIC    PINC,2		; если сброшен пропустить следующую команду
	rcall   lcddat
	ldi     lcd,0x34	; загрузить цифру "4" в регистр lcd
	SBIC    PINC,3		; если сброшен пропустить следующую команду
	rcall   lcddat	

	cbi     PORTD,4		; установить бит 4 порта C в «0»
	sbi	PORTD,5		; установить бит 5 порта C в «1»
	ldi     lcd,0x35	; загрузить цифру "5" в регистр lcd
	SBIC    PINC,0		; если сброшен пропустить следующую команду
	rcall   lcddat
	ldi     lcd,0x36	; загрузить цифру "6" в регистр lcd
	SBIC    PINC,1		; если сброшен пропустить следующую команду
	rcall   lcddat
	ldi     lcd,0x37	; загрузить цифру "7" в регистр lcd
	SBIC    PINC,2		; если сброшен пропустить следующую команду
	rcall   lcddat
	ldi     lcd,0x38	; загрузить цифру "8" в регистр lcd
	SBIC    PINC,3		; если сброшен пропустить следующую команду
	rcall   lcddat	
      reti

     
     ;Подпрограмма вывода на дисплей байта команды
     lcdcom:
	out PORTA,lcd		;вывод команды
	ldi temp,0x08		;установка режима записи команд
	out PORTD,temp
	cbi PORTD,e		;фронт 1/0 строба
	rcall delay40us
	ret

     ;Подпрограмма вывода на дисплей байта данных
     lcddat:
	out PORTA,lcd		;вывод символа
	ldi temp,0x20		;установка режима записи данных
	out PORTC,temp
	ldi temp,0x08		;установка режима записи данных
	out PORTD,temp
	cbi PORTD,e		;фронт 1/0 строба
	rcall delay40us
	ret

[Modest]

Блин и как я раньше на асме писал
А где задержка, защита от дребезга контактов?
Програмка считает нажатия кнопок или выводит последовательно цифры от 1 и до ...8 ?
Так чуть чуть вспомнил и чуть разобрался Снимаю свой вопрос

[Prevan]

Блин и как я раньше на асме писал
А где задержка, защита от дребезга контактов?
Програмка считает нажатия кнопок или выводит последовательно цифры от 1 и до ...8 ?
Так чуть чуть вспомнил и чуть разобрался Снимаю свой вопрос

Да, программа выдаёт номер нажатой клавиши на LCD
Подпрограммы задержки я вырезал из сообщения чтобы меньше места занимал код (в реальной программе они есть)
А насчёт дребезга хотел спросить как его можно реализовать, а то при нажатии сразу штуки по три одинаковых цифры выдаёт?

[lenivec87]

Здравствуйте. Начал изучать хмегу 128а3, нигде не могу найти примеров на асм. Кто-ниь может помосодействовать. Хочу хотя бы посмотреть как ее инициализировать? Принцип написания программ такой же как и на обычных авр?

[Modest]

Здесь вот


scankeys:

rcall delay40us

здесь опросить ногу от которой прерывание пришло
сли истина то продолжаем с опросом клавы
если нет то разрешаем прерывание и снова уходим в цикл loop: rjmp loop

ну и дальше как есть
cbi PORTD,5 ; установить бит 5 порта C в «0»
..................


(извиняй синтаксис асма подзабыл по этому писал словами, щас на С уже 2 года)
задержку подобрать придётся опытным путём

Кстати а что там за схемка, как там прерывание реализованно от всех кнопок?

[Prevan]

Кстати а что там за схемка, как там прерывание реализованно от всех кнопок?

прерывание происходит от любой нажатой кнопки
С дребезгом вопос ещё как-бы терпит, а вот почему первая единица всегда появляется - вот это для меня загадка

Вложение 4.JPG больше недоступно

[Modest]

Ну для начала нужно бы порты клавиатуры подтянуть резисторами.
Потом попробуй после инициализации портов обнульть их все, лишним не будет.

[Prevan]

Ну для начала нужно бы порты клавиатуры подтянуть резисторами.
Потом попробуй после инициализации портов обнульть их все, лишним не будет.

А вообще для чего подключают подтягивающие резисторы?

[Modest]

Ну блин вопрос прямо в лоб

Без подтягивающих резисторов у тя на портах будет что попало.
Т. е. если у тя нога настроена на вход и физически она у тебя в воздухе висит ( никуда не подключена) то при считывании
с этой ноги не факт что на ней будет низкий уровень (т. е. "0").

[Rimsky]

Ну для начала нужно бы порты клавиатуры подтянуть резисторами.

На практике вполне хватает внутренних подтяжек порта (регистр PORTn выставляем в 1 при DDRn = 0 PUD = 0)

[Modest]

Да, а потом появляются вопросы "а почему уменя....."
в протеусе можно и поставить, не убудет.

[Prevan]

Подайте идею как можно написать чтобы в подпрограмме содержание регистра уменьшалось каждый раз на единицу и как только доходило до нуля, по новой устанавливало значение и выполняло ещё ряд действий?

примерно:

ldi num, 10;
......
podprogramma:

dec num;
cpi num,0
brne met

met: ldi num, 10;
{и ещё ряд команд, которые выполняются когда num равно 0}
ret

только эта подпрограмма будет проходить через met даже если num>0

[Rimsky]

Подайте идею как можно написать чтобы в подпрограмме содержание регистра уменьшалось каждый раз на единицу и как только доходило до нуля, по новой устанавливало значение и выполняло ещё ряд действий?

примерно:

ldi num, 10;
......
podprogramma:

dec num;
cpi num,0
brne met

met: ldi num, 10;
{и ещё ряд команд, которые выполняются когда num равно 0}
ret

только эта подпрограмма будет проходить через met даже если num>0

ldi r16, 10
loop:
dec r16
brne loop

inc r17
cpi r17, 1
breq metka1
cpi r17, 2
breq metka2
cpi r17, 3
breq metka3
cpi r17, 4
breq metka4
metka1:
rjmp loop
metka2:
rjmp loop
metka3:
rjmp loop
metka4:
rjmp loop

[Engineer_Keen]

Подайте идею как можно написать чтобы в подпрограмме содержание регистра уменьшалось каждый раз на единицу и как только доходило до нуля, по новой устанавливало значение и выполняло ещё ряд действий?

CPI - убрать совсем, метку MET поставить перед RET. Все.

Код: Выделить всё

LDI num, 10
......
podprogramma:

DEC num;
BRNE MET

LDI num, 10
{и ещё ряд команд, которые выполняются когда num равно 0}
MET:
RET

[Prevan]

Попробовал сделать согласно алгоритму функцию, которая бы при заполнении строки дисплея очищала её и ставила курсор в начальную позицию:

Код: Выделить всё

     lcddat:
	out PORTA,lcd		;вывод символа
	ldi temp,0x20		;установка режима записи данных
	out PORTC,temp
	ldi temp,0x08		;установка режима записи данных
	out PORTD,temp
	cbi PORTD,e		;фронт 1/0 строба
	rcall delay40us
	rcall del200		;задержка в 200мс от дребезга контактов

	dec num                              ;начало обработки значения количества выведенных символов
	cpi num,0
	breq met                             ;переход на met если курсор дошёл до конца строки или
	ret                                      ;возврат к основной программе                                     
	met:
	ldi lcd,$01		;Очистить дисплей и установить курсор в нулевую позицию
	rcall lcdcom
	ldi num,5                             ;снова установить значение num=5
	ret 

при нажатии значения кнопок выводятся подряд пять символов, затем идёт пробел и опять пять символов, т.е. как я понял, команду ldi lcd,$01 он воспринимает как вывод данных, а не команд.

[Prevan]

CPI - убрать совсем, метку MET поставить перед RET. Все.

Так тоже попробовал сделать, результат точно такой же: команду очистки дисплея "ldi lcd,$01" он воспринимает как данные, выводимые на дисплей, то есть "пробел". В данном случае выдаётся пять значений, затем "пробел", затем снова пять значений:

Код: Выделить всё

;******************************************************
.include "8515def.inc"	;файл определений AT90S8515
.def temp=r16		;временная переменная
.def temp1=r17
.def temp2=r18
.def num=r19
.def lcd=r22		;регистр LCD (ЖК-дисплея)

.equ rs=5	; (RS=1) - данные, (RS=0) - команды
.equ rw=4	; (RW=1) - чтение LCD, (RW=0) - запись в LCD
.equ e=3	;строб сигналов на шине команды/данные

.org $000
	rjmp init
.org $007
	rjmp scankeys	;обработка клавиатуры

;Инициализация
init:
	ldi temp,low(RAMEND) ;Инициализация
	out spl,temp	     ;указателя стека
	ldi temp,high(RAMEND)
	out sph,temp
      ;Инициализация портов
	ser temp
	out DDRA,temp	     ;порт РА на вывод
	ldi temp,$30
	out DDRC,temp	     ; конфигурируем биты 4, 5 порта C на вывод.
	ldi temp,$38	     ;линии порта PD4-PD5 на вывод,
	out DDRD,temp	     
	ldi temp,$0F	     ;PC0-PC3 на ввод
	out PORTC,temp

      ;Инициализация таймера 0
	ldi temp,$05
	out TCCR0,temp	     ;коэффициент деления 1024	
	ldi temp, (1<<TOIE0)
	out TIMSK, temp	     ;разрешение прерываний от таймера
      ;Инициализация ЖК-дисплея
	rcall delay2ms
	ldi lcd,$38		;8-битовый режим вывода,
	rcall lcdcom		;2 строки, шрифт 5х7
	ldi lcd,$06		;Направление сдвига курсора вправо, без сдвига дисплея
	rcall lcdcom
	ldi lcd,$0C		;включить дисплей
	rcall lcdcom		;погасить курсор
	ldi lcd,$01		;Очистить дисплей и установить курсор в нулевую позицию
	rcall lcdcom
	rcall delay2ms
	ldi num,5
     	sei			;разрешение прерываний
      loop: 

	rjmp loop

	

	;Подпрограмма обработки клавиатуры
      scankeys:


	cbi     PORTD,5		; установить бит 5 порта C в «0»
	sbi	PORTD,4		; установить бит 4 порта C в «1»
	ldi     lcd,0x31	; загрузить цифру "1" в регистр lcd
	SBIC    PINC,0		; если сброшен пропустить следующую команду
	rcall lcddat
	ldi     lcd,0x32	; загрузить цифру "2" в регистр lcd
	SBIC    PINC,1		; если сброшен пропустить следующую команду
	rcall lcddat
	ldi     lcd,0x33	; загрузить цифру "3" в регистр lcd
	SBIC    PINC,2		; если сброшен пропустить следующую команду
	rcall lcddat
	ldi     lcd,0x34	; загрузить цифру "4" в регистр lcd
	SBIC    PINC,3		; если сброшен пропустить следующую команду
	rcall lcddat	

	cbi     PORTD,4		; установить бит 4 порта C в «0»
	sbi	PORTD,5		; установить бит 5 порта C в «1»
	ldi     lcd,0x35	; загрузить цифру "5" в регистр lcd
	SBIC    PINC,0		; если сброшен пропустить следующую команду
	rcall lcddat
	ldi     lcd,0x36	; загрузить цифру "6" в регистр lcd
	SBIC    PINC,1		; если сброшен пропустить следующую команду
	rcall lcddat
	ldi     lcd,0x37	; загрузить цифру "7" в регистр lcd
	SBIC    PINC,2		; если сброшен пропустить следующую команду
	rcall lcddat
	ldi     lcd,0x38	; загрузить цифру "8" в регистр lcd
	SBIC    PINC,3		; если сброшен пропустить следующую команду
	rcall lcddat	
      reti


     
     ;Подпрограмма вывода на дисплей байта команды
     lcdcom:
	out PORTA,lcd		;вывод команды
	ldi temp,0x08		;установка режима записи команд
	out PORTD,temp
	cbi PORTD,e		;фронт 1/0 строба
	rcall delay40us
	ret

     ;Подпрограмма вывода на дисплей байта данных
     lcddat:
	out PORTA,lcd		;вывод символа
	ldi temp,0x20		;установка режима записи данных
	out PORTC,temp
	ldi temp,0x08		;установка режима записи данных
	out PORTD,temp
	cbi PORTD,e		;фронт 1/0 строба
	rcall delay40us
	rcall del200		;задержка в 200мс от дребезга контактов

	dec num                              ;КОД ПО НОВОМУ АЛГОРИТМУ
	brne met                             ;переход на met если num=0
	ldi num,5                             ;значение num установить снова
	ldi lcd,$01		;Очистить дисплей и установить курсор в нулевую позицию
	rcall lcdcom
	met:                                   ;переход к основной программе
	ret 

[alexval2006]

товарищи может у кого есть примерчик по работе с PS2 клавиатурой а то нашёл букварь на си от АВР но хотелось бы на асме

[GP1]

если мне память не изменяет AVR318

[AI_Disable]

Подскажите, какое минимальное число циклов может занять программный SPI? Конкретно интересует, можно ли уложиться в 100 тактов?
ЗЫ: 8 бит, mode 0

[Meteor]

Если не ошибаюсь, то минимум - 4 такта на бит.
Т.о. 8 бит будут переданы за 32 такта.