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

[Pink-Pank]

Ну, тогда где-то лишний rcall или забыли ret. Еще как вариант - обращаетесь к регистрам периферии за диапазоном 0x5F при помощи команд in/out. В результате попадаете на регистры стека. Где-то тут на форуме проскакивала такая ошибка.

[akl]

Может кому не лень будет, глянет в АВРстудии проект мой...Однако, после выхода из подпрограммы инициализации дисплея (по ret) попадает не туда, откуда начал... Уже исправил одну проблему, когда перекидывало по ret выше на два адреса, а теперь НИЖЕ перекидывает...

Если это вся программа, то работает правильно.

Спойлер

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

   .include "tn2313def.inc"   


; ============
; ТИП МИКРОКОНТРОЛЛЕРА (.device)
; ============

   .device ATtiny2313
 
; =================
; ОБЪЯВЛЕНИЯ И КОНСТАНТЫ (.def, .equ)
; =================
 
   .def temp = R16   
   
; ====
; МАССИВЫ И Т.Д. (.eseg) EEPROM (.db, .dw)
; ====
   
   .eseg

; ******************************
; НАЧАЛО ПРОГРАММЫ (.cseg) FLASH
; ******************************
   
   .cseg

; ----------
; ВЕКТОРЫ ПРЕРЫВАНИЙ
; ----------
   
   rjmp RESET          ; Reset Handler
    rjmp INT_0          ; External Interrupt0 Handler
    rjmp INT_1          ; External Interrupt1 Handler
    rjmp TIM1_CAPT       ; Timer1 Capture Handler
    rjmp TIM1_COMPA    ; Timer1 CompareA Handler
    rjmp TIM1_OVF       ; Timer1 Overflow Handler
   rjmp TIM0_OVF       ; Timer0 Overflow Handler
   rjmp USART0_RXC    ; USART0 RX Complete Handler
   rjmp USART0_DRE    ; USART0,UDR Empty Handler
   rjmp USART0_TXC    ; USART0 TX Complete Handler
   rjmp ANA_COMP       ; Analog Comparator Handler
   rjmp PCINT          ; Pin Change Interrupt
   rjmp TIMER1_COMPB    ; Timer1 Compare B Handler
   rjmp TIMER0_COMPA    ; Timer0 Compare A Handler
   rjmp TIMER0_COMPB    ; Timer0 Compare B Handler
   rjmp USI_START       ; USI Start Handler
   rjmp USI_OVERFLOW    ; USI Overflow Handler
   rjmp EE_READY       ; EEPROM Ready Handler
   rjmp WDT_OVERFLOW    ; Watchdog Overflow Handler
   
   
   ;RESET          ; Reset Handler
    INT_0:          ; External Interrupt0 Handler
    INT_1:         ; External Interrupt1 Handler
    TIM1_CAPT:       ; Timer1 Capture Handler
    TIM1_COMPA:    ; Timer1 CompareA Handler
    TIM1_OVF:       ; Timer1 Overflow Handler
   TIM0_OVF:       ; Timer0 Overflow Handler
   USART0_RXC:    ; USART0 RX Complete Handler
   USART0_DRE:    ; USART0,UDR Empty Handler
   USART0_TXC:    ; USART0 TX Complete Handler
   ANA_COMP:       ; Analog Comparator Handler
   PCINT:          ; Pin Change Interrupt
   TIMER1_COMPB:    ; Timer1 Compare B Handler
   TIMER0_COMPA:    ; Timer0 Compare A Handler исправил в ТН2313ДЕФ.ИНК
   TIMER0_COMPB:    ; Timer0 Compare B Handler исправил в ТН2313ДЕФ.ИНК
   USI_START:       ; USI Start Handler
   USI_OVERFLOW:    ; USI Overflow Handler
   EE_READY:       ; EEPROM Ready Handler
   WDT_OVERFLOW:    ; Watchdog Overflow Handler
   
   reti         ; Выход из прерываний, которые не используются

; ----------
; ОБРАБОТЧИКИ ПРЕРЫВАНИЙ
; ----------

 
         
; **************************************************************************************************
; ИНИЦИАЛИЗАЦИЯ МК (логическое начало основной программы) ******************************************
; **************************************************************************************************

;           --------- конфигурация портов ----------           

   Reset:   
         
;         ---------- начальные значения переменных, массивы ----------
           
      
;           ----- конфигурация прерываний, стека, аналогового компаратора, таймеров -----

         ldi temp, 0xFF         ; Сбросить флаги внешних прерываний 
         out EIFR, temp         
         
         ldi temp, RAMEND      ; Загрузка указателя стека
         out SPL, temp

         ldi temp, 1<<ACD       ; Выключаем аналоговый компаратор (для меньшего потребления)
         out ACSR, temp                
         
      
      rcall   INIT_LCD

      ldi         R18, 0x34      
      rcall   SYMBOL

;ADDRESS 1,2

   ;      SYMBOL   0x33
   ;      SYMBOL   0x37
   ;      SYMBOL   0x36
   ;      SYMBOL   0x31
;ADDRESS 1,8
   ;      SYMBOL   0x4d
   ;      SYMBOL   0x48      
   ;      SYMBOL   0x7a

;ADDRESS 1,12
   ;      SYMBOL   0x6b
   ;      SYMBOL   0x48
   ;      SYMBOL   0x7a


;ADDRESS 2,2
   ;      SYMBOL   0x34
   ;      SYMBOL   0x33
   ;      SYMBOL   0x37
   ;      SYMBOL   0x36
   ;      SYMBOL   0x31
;ADDRESS 2,8
   ;      SYMBOL   0x4d
   ;      SYMBOL   0xa1      
   ;      SYMBOL   0xe5
;ADDRESS 2,12
;
;         SYMBOL   0xba
;         SYMBOL   0xa1
;         SYMBOL   0xe5
      ;   SYMBOL   0x70
      ;   SYMBOL   0xc3
      ;   SYMBOL   0xb3
      ;   SYMBOL   0x61
      ;   SYMBOL   0xb9
;ADDRESS 2,12   

                                     
;           ---------- разрешение прерываний ----------         

         sei                  ; Разрешаем прерывания   

; *******************************************************************************************************************
; ОСНОВНАЯ ПРОГРАММА (основной цикл) ********************************************************************************
; *******************************************************************************************************************

   Start:   
                           
   rjmp Start   ; Конец программы, переход на начало


; ***************************************************************************************************
; ПОДПРОГРАММЫ **************************************************************************************
; ***************************************************************************************************
;SYMBOL:
 ;      OUT   PORTB,R18
;вывод старшей тетрады
   ;    SWAP R18
  ;     OUT   PORTB,R18
;вывод младшей тетрады
   ;RET
;   ret
;INIT_LCD:
;   ret


;*****************************************************************************************************************************   
         .equ   DB7port = PORTB      ; Указать порт,к которому подключен вывод DB7 дисплея
         .equ   DB7ddr   = DDRB      ; Указать регистр напраавления порта, к которому подключен DB7 дисплея
         .equ   DB7_PIN   = PINB
         .equ   DB7pin   = 1         ; Указать номер бита порта, к которому подключен DB7 дисплея

         .equ   DB6port = PORTB
         .equ   DB6ddr   = DDRB
         .equ   DB6_PIN   = PINB
         .equ   DB6pin  = 4

         .equ   DB5port = PORTB
         .equ   DB5ddr   = DDRB      ; Аналогично (см. выше)
         .equ   DB5_PIN   = PINB
         .equ   DB5pin  = 2

         .equ   DB4port = PORTB
         .equ   DB4ddr   = DDRB
         .equ   DB4_PIN   = PINB
         .equ   DB4pin  = 3

         .equ   RSport  = PORTD
         .equ   RSddr   = DDRD
         .equ   RSpin   = 6

         .equ   R_Wport   = PORTD
         .equ   R_Wddr   = DDRD
         .equ   R_Wpin   = 5

         .equ   Eport   = PORTB
         .equ   Eddr   = DDRB
         .equ   Epin   = 0

         .equ   SPEED   = 4
;****************************************************************************************************************************

   INIT_LCD:

      sbi   RSddr, RSpin
      cbi   RSport, RSpin

      sbi R_Wddr, R_Wpin
      cbi R_Wport, R_Wpin         ; Запись в дисплей RW

      sbi Eddr, Epin
      cbi Eport, Epin            ; Опустили строб E      
      
      rcall   OUT_PORT          ;                      
   
      rcall   CLR_PORT
         
      rcall    DELAY_13107         ; Первая задержка в районе более 20 мс (после включения питания)
      rcall    DELAY_13107
      rcall    DELAY_13107
      rcall    DELAY_13107
      
      ;----------   
                                                         
      ldi      R18,   0b00110000   ; Команда установки 8 линий для инициализации (первый раз) 
      
      rcall   DB_LINE            ; Вызываем подпрограмму, которая отправит команду (тетраду)

      rcall   STROBE

      rcall    DELAY_13107         ; Вторая задержка больше 5 мс

      ;----------
      
      rcall   STROBE            ; Команду на выходе никто не менял, значит просто строб

      rcall    DELAY_102         ; Задержка в 100 мкс

      ;----------
   
      rcall   STROBE

      rcall    DELAY_102         ; Задержка в 100 мкс

      ;----------
      cbi   RSport, RSpin      ; Идет команда

      ldi      R18,   0b00100000   ; Команда установки 4 линии для инициализации (четвертый раз)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      
      rcall   DB_LINE            ; Вызываем подпрограмму, которая отправит команду (тетраду)

      rcall   STROBE

      rcall    DELAY_102         ; Задержка в 100 мкс

      ;----------
      cbi   RSport, RSpin      ; Идет команда
         
      ldi      R18,   0b00101000   ; Команда установки 4 линии и две строки (наконец-то прошла и вторая тетрада) (уже нормалный порядок битов в команде)
      rcall   CMD_WR            ; Вызываем подпрограмму отправки команды
      
      ldi      R18,   0b00001000   ; Выключение дисплея
      rcall   CMD_WR            ; Вызываем подпрограмму отправки команды
   
      ldi      R18,   0b00000001   ; Очистка дисплея
      rcall   CMD_WR            ; Вызываем подпрограмму отправки команды
      rcall    DELAY_13107
      
      ldi      R18,   0b00000110   ; Установка режима вывода данных (сдвиг курсора вправо)
      rcall   CMD_WR            ; Вызываем подпрограмму отправки команды
      
      ldi      R18,   0b00001101   ; Включаем дисплей, курсор в виде квадрата
      rcall   CMD_WR            ; Вызываем подпрограмму отправки команды

   ret

;==============   

   STROBE:

      sbi Eport, Epin      ; Подняли строб
         
         rcall DELAY      ; Задержка более 500 нс

      cbi Eport, Epin      ; Опустили строб

         rcall DELAY      ; Задержка более 500 нс
   ret

;----------

   SYMBOL:               ; Символ (код символа)
         
      ;ldi      R18,   @0
      rcall   DATA_WR
      
   ;.ENDM
   ret

;----------

;   .MACRO   ADDRESS               ; Адерс в формате Адрес (х,у) , где х - строка (1 или 2), у - позиция в строке (0...16)
      
;         ldi R18, @0

;         cpi R18, 1

;         breq RAVNO            ; Перейти, если равно, т.е. выбрана 1 строка

;            ldi R18, (192+@1)   ; А если выбрана 2 строка, то прибавляем к ее адресу (и команде) позицию
         
;            rjmp W
         
;      RAVNO:   ldi R18, (128+@1)   ; А если первая строка, то прибавляем к ее команде позиции

;      W:   rcall CMD_WR

;   .ENDM
   
;*************************************************************************************************************

; ПРОЦЕДУРА записи байта команды в дисплей

   CMD_WR:

   ;   cli
      ;   rcall   BUSY         ; Ждем готовности
         cbi   RSport, RSpin      ; Идет команда
         rjmp   WRITE

;----------

; ПРОЦЕДУРА записи байта данных в дисплей

   DATA_WR:   

   ;   cli
      ;   rcall   BUSY         ; Ждем готовности
      sbi   RSport, RSpin      ; Идут данные      

;----------

   WRITE:

         rcall   DB_LINE            ; Вызываем подпрограмму, которая выведет значение тетрады в порт(ы)

         rcall   STROBE

               swap   R18         ; Перевернем тетрады местами 

               nop
      
         rcall   DB_LINE            ; 

         rcall   STROBE

         rcall   DELAY_102
   ;sei
   ret

;===================

   DB_LINE:                     ; Выводим тетраду в линии дисплея
            rcall CLR_PORT
            
            sbrc    R18, 4          ; Пропустить слудующую, еслли бит сброшен
            sbi      DB4port, DB4pin   ; Ставим бит
            sbrc    R18, 5          ; Пропустить слудующую, еслли бит сброшен
            sbi      DB5port, DB5pin   ; Ставим бит
            sbrc    R18, 6          ; Пропустить слудующую, еслли бит сброшен
            sbi      DB6port, DB6pin   ; Ставим бит
            sbrc    R18, 7          ; Пропустить слудующую, еслли бит сброшен
            sbi      DB7port, DB7pin   ; Ставим бит         
   ret

;=====================

;   BUSY:                        ; Ожидание флага занятости контроллера дисплея
;         ;   RCALL   PORT_IN         ; Порты на вход
;
;            cbi   RSport, RSpin            ; Идет Команда!
;            sbi   R_Wport, R_Wpin            ; Чтение!
;         
;   BusyLoop:   sbi    Eport, Epin         ; Подняли строб
;            rcall    DELAY            ; Задержка более 500 нс
;            clr R18                  ; Очистить переменную
;         ;----------
;         
;            sbic    DB7_PIN, DB7pin      ; Пропустить следующую команду, если пин очищен = 0
;               rjmp   S1
;            ldi R18, 0x00            ; Если очищен, делаем нулями
;               rjmp   Z1            ; и выходим
;            S1: ldi R18, 0xFF         ; А если не очищен, то делаем R17 единиц                     
;         ;----------
;         Z1:   cbi Eport, Epin            ; Опустили строб
;            rcall DELAY               ; Задержка более 500 нс
;
;            sbi    Eport, Epin         ; Подняли строб (Дальше строб идет, но вторую тетраду мы не читаем,на нее пофиг)
;            rcall    DELAY            ; Задержка более 500 нс
;
;            cbi Eport, Epin            ; Опустили строб
;            rcall DELAY               ; Задержка более 500 нс
;
;            cpi   R18,0x00         ; сравниваем флаг = 0? Дисплей  свободен?
;            brne   BusyLoop      ; Если нет, то переход
;   ret
;----------      

   DELAY_102:
      
      ldi R16, 255         ; Задержка ~102,4 mkсек 
      ldi R17, 1         
            
      Loop2:    subi R16, 1      
            sbci R17, 0
            brcc Loop2      
   ret

;----------

   DELAY_13107:
      
      ldi R16, 255         ; Задержка ~13.107 mсек 
      ldi R17, 255   
         
   
      Loop1:    subi R16, 1      
            sbci R17, 0
            brcc Loop1   
   ret

;----------

   DELAY:

         ldi      R16, SPEED

   loop:   dec      R16
         brne   loop

   ret

;----------

CLR_PORT:
         cbi DB4port, DB4pin
         cbi DB5port, DB5pin
         cbi DB6port, DB6pin
         cbi DB7port, DB7pin
ret

;----------

OUT_PORT:
         sbi   DB4ddr, DB4pin            ; Задаем направление порта на ВЫХОД
         sbi   DB5ddr, DB5pin
         sbi   DB6ddr, DB6pin
         sbi   DB7ddr, DB7pin      
ret
;.include "LCD4.inc"   
.exit

Спойлер

Студия 4.19

STACK_1.GIF

[СКАЗОЧНИК]

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

[Gudd-Head]

Бывает, бывает что студия дико глючит.

[СКАЗОЧНИК]

Так вроде же официальная бесплатная среда разработки для АВР?!
Первый раз столкнулся просто. (не сильно часто получается новые программулины выдумывать).

[Gudd-Head]

Так вроде же официальная бесплатная среда разработки для АВР?!

Ну и что?

[СКАЗОЧНИК]

Должны поддерживать свое детище и фиксить ошибки своевременно. ))))

[Gudd-Head]

Дык, поддерживают — качайте 6-ю

[СКАЗОЧНИК]

А какую скачивать? там что-то много всего...

[akl]

По мне довольно стабильная 4.19 build 730. Пока ещё можно найти здесь

[СКАЗОЧНИК]

Уже 6.2 хочу. )) только не знаю какую. Просто 6.2 или 6.2 виз НЕТ?

[akl]

Шестёрка не понравилась. Херь какая-то монстрообразная.

[Jack_A]

По мне довольно стабильная 4.19 build 730.

Перед тем, как от нее отказаться и взяться за следующую, Атмели ее прилично вылизали В ранних релизах, помню, таймеры не работали.
Нормальная среда, если не гнаться за суперновинками.

[СКАЗОЧНИК]

Так все таки... За какую версию то??? .я уже скачал на всякий случай 4.19. Надо 6.2 качать нет?

[afz]

Так все таки... За какую версию то??? .я уже скачал на всякий случай 4.19. Надо 6.2 качать нет?

Если у Вас нет чипов, которые не поддерживаются студией 4.19 (то есть сильно новых), то 4.19 - самое то! Если же Вы соберетесь работать с этими суперновыми МК, которые студия 4.19 не поддерживает, тогда придется качать и ставить 6.х

[СКАЗОЧНИК]

Опять хренота какая-то... Добился, чтобы работала программа. Решил еще один файлик вложить, в котором прописать макросы. Так вот, цепляю его на самом верху программного кода, где все библиотеки (инклуды), а потом в программе пишу макрос. сволочь жалуется, что для него это неизвестная команда...

[Gudd-Head]

Может, ошибка синтаксическая в названии команды?

[Engineer_Keen]

С инклудами бывает такой косяк когда что-то в нем поправил (добавил функцию), а в другом файле делаешь например ее вызов и при компиляции вылезает такая ошибка. Дело в том, что исправленный файл почему-то студией не сохранился на диск (приходится перед компиляцией сохранять все вручную). Почему такое иногда выскакивает пока не просек

[СКАЗОЧНИК]

ошибка синтаксическая

Уже мильон раз проверил...

файл почему-то студией не сохранился на диск

Как это так? Я же в папке его смотрел. Он там есть. Я просто создал новый файл, в нем сделал макрос. Дал файлу название в "Сохранить как...", потом подключил его в главной программе. И в главной же программе делаю вызов макроса, а он мне хрен..

Ептить!!! Пару раз презагрузил студию, пару раз сохранил. Теперь все работает...

Короче. Совет. В любой непонятной ситуации, ПЕРЕЗАГРУЖАЙ СТУДИЮ!!

[Engineer_Keen]

Дал файлу название в "Сохранить как..."

Бывает что файл сохранил, потом что-то в нем подредактировал, а изменения перед компиляцией автоматически не сохранились, как результат вылезает ошибка при попытке задействовать измененную часть программы, вот я о чем. Но у вас скорее всего проблема не в этом.
Глюкавая студия у вас какая-то, то код жрет, то с сохранением проблемы