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

[dr.doc]

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

Скорее всего идут от датчика положения коленвала. А на нем, как правило, несколько "зубов" отсутствуют. Поэтому без фильтрации и гистерезиса и будет "дергать". Фильтр позволит уменьшить гистерезис.

[СКАЗОЧНИК]

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

[dr.doc]

Точно. Попутал. просто недавно знакомый про своего американца данные искал и у него получалось 4000 имп/миля. Но последовательность была неравномерной. Возможно мозг выдавал пачки, использую что-либо вроде ABS.

[СКАЗОЧНИК]

Вот. Уже ближе к делу! У меня Тойота, на ней, как мне удалось найти, 2548 импульсов на километр. Схемку хочу сделать универсальную. На Тойотах самые меделнные импульсы (их меньше всего). На других автопромах их больше.
Чтобы измерить такие медленные импульсы я и сделал две переменные, т.к. у ТИНИ13 нет 16 разрядного таймера. Как и посоветовали, при каждом переполнении таймера делаю инкремент переменной. Получился таймер 16 разрядный. ))) По сохраненным значениям в памяти МК видно, что их достаточно, да и в ручную я посчитал, что при 4,8 МГц и делителе таймера на 256, один тик таймера будет 0,000213 секунды.

[Demiurg]

Я асм почти окончательно забросил. Делюсь некоторыми советами для тех кто еще верен асму животворящему
Шаблон. Главный файл. pattern.asm:

Спойлер

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

//==================
.nolist
.include   "m32def.inc"
.list
//==================

//=============== Функции и глобальные определения проекта ===============
//----------
#define NO   0
#define YES 1
//----------

//----------
#define TINY 0
#define MEGA 1
//----------

//----------
#define NO_CHANGE 0
#define CHANGE 1
//----------

//----------
#define tab_h(x) HIGH(x), LOW(x)
#define tab_l(x) LOW(x), HIGH(x)
//----------

//----------
#define WORK   0
#define DEBUG   1
//==================

//==================
#define PROJECT         DEBUG // WORK // 

#define CPU_TYPE      MEGA

#define WATCH_DOG      NO_CHANGE

#define EEPROM         YES
//==================

//==================
.equ   XTAL   = 8000000
//==================

//==================
//---------- List used register ----------
//                           n/u - Not Used
//                     = r0   result multiply
//                     = r1   result multiply
.def   RCLR            = r2
.def   RSER            = r3
.def   RSREG            = r4
.def   EEDREG            = r5
.def   KEYS_PREV         = r6
.def   KEYS_CURRENT      = r7
.def   ADC_PUMP_SPEED      = r8
//                     = r9
//                     = r10
//                     = r11
//                     = r12
//                     = r13   n/u
//                     = r14   Used.
//                     = r15   Used.
//----------
.def   TEMP            = r16 // Used. Everywhere
//                     = r17   Used. Everywhere
//                     = r18   Used. Everywhere
//                     = r19   Used. Everywhere
.def   FSM_STATE         = r20
.def   FSM_FLAGS         = r21
.def   CNT               = r22
.def   FLAGS            = r23
.def   POINT_ENTRY_L      = r24 // adiw/sbiw
.def   POINT_ENTRY_H      = r25 // adiw/sbiw
//                     = r26   XL
//                     = r27   XH
//                     = r28   YL
//                     = r29   YH
//                     = r30   ZL
//                     = r31   ZH
//==================

//==================
.set   NUM_FLG = -1

.macro Def_Flag
.set NUM_FLG = (NUM_FLG+1)
.set @0 = NUM_FLG
.if   (NUM_FLG<=7)
.message "Flag Defined!"
.else
.error "Flag Not Defined"
.endif
.endmacro

.set   NUM_ERR = 0

.macro Def_Err_ID
.set NUM_ERR = (NUM_ERR+1)
.set @0 = NUM_ERR
.message "Number Error Defined!"
.endmacro

.macro   End_Table
.db      0xFF, 0xFF
.endmacro
//==================

#if (PROJECT==DEBUG)

//==================
.equ   TEST_LED_PORT   = PORTD
.equ   TEST_LED_DDR   = DDRD
.equ   TEST_LED_PIN   = PIND

.equ   TEST_LED      = PD7
//----------

//----------
.macro   test_led_on
   in         r16, TEST_LED_DDR
   setb      r16, TEST_LED
   out         TEST_LED_DDR, r16
.endmacro

.macro   test_led_off
   in         r16, TEST_LED_DDR
   clrb      r16, TEST_LED
   out         TEST_LED_DDR, r16
.endmacro
//==================

#endif

//==================
.include   "vectors_m32.inc"

.include   "library.inc"

.include   "proc_errors.inc"

.include   "system_timer.inc"

.include   "fsm.inc"

.include   "prototreads.inc"

.include   "in_out_def.inc"

.include   "in_out_lib.inc"

.include   "val_def.inc"

.include   "kbd_drv_def.inc"

.include   "kbd_drv.inc"

.include   "proc_menu.inc"
//************************************************************************

.dseg
.org 0x200

rdata:
.byte 6

.cseg

//************************************************************************
Reset:
//----------
   Clear_Registers
//----------

//----------
   clr      RCLR
   ser      r16
   mov      RSER, r16
   clr      FLAGS
//----------

//----------
   Init_Stack // Инициализация стека.
//----------

//----------
   Clear_SRAM // Очистка ОЗУ.
//----------

//----------
   Init_System_Timer // Инициализация системного таймера.
//----------

//----------
   Init_WDT
//----------

//----------
   Init_Sleep_Mode
//----------

//---------- Отладка ----------
#if (PROJECT==DEBUG)

#endif
//==================

   sei

//==================
Main:
   wdr
   rcall   Service_Timers
   rcall   KBD_DRV
   rcall   Proc_Menu
   rjmp   Main
//==================

В конце заголовочный файлов на конкретные МК есть таблицы векторов. Для каждого используемого МК делаем отдельный файл по этому примеру. vectors_m32.inc:

Спойлер

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

.cseg

.org   0x0000
      rjmp   Reset

; ***** INTERRUPT VECTORS ************************************************
.org   INT0addr            ; External Interrupt Request 0
      reti

.org   INT1addr            ; External Interrupt Request 1
      reti

.org   INT2addr            ; External Interrupt Request 2
      reti

.org   OC2addr               ; Timer/Counter2 Compare Match
      reti

.org   OVF2addr            ; Timer/Counter2 Overflow
      reti

.org   ICP1addr            ; Timer/Counter1 Capture Event
      reti

.org   OC1Aaddr            ; Timer/Counter1 Compare Match A
      reti

.org   OC1Baddr            ; Timer/Counter1 Compare Match B
      reti

.org   OVF1addr            ; Timer/Counter1 Overflow
      reti

.org   OC0addr               ; Timer/Counter0 Compare Match
      rjmp   Sys_Timer_Comp

.org   OVF0addr            ; Timer/Counter0 Overflow
      reti

.org   SPIaddr               ; Serial Transfer Complete
      reti

.org   URXCaddr            ; USART, Rx Complete
      reti

.org   UDREaddr            ; USART Data Register Empty
      reti

.org   UTXCaddr            ; USART, Tx Complete
      reti

.org   ADCCaddr            ; ADC Conversion Complete
      reti

.org   ERDYaddr            ; EEPROM Ready
      reti

.org   ACIaddr               ; Analog Comparator
      reti

.org   TWIaddr               ; 2-wire Serial Interface
      reti

.org   SPMRaddr            ; Store Program Memory Ready
      reti
;----------

;----------
.org   INT_VECTORS_SIZE      ; size in words
;===================

Шаблон конечного автомата (этакое ядро конечного автомата) с переходом по индексу-состоянию.

Спойлер

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

.cseg

//==================
.macro Proc_FSM
   ldz      @0*2
   rjmp   _Proc_FSM
.endmacro

_Proc_FSM:
   lpm      XH, Z+ ; Считывание старшего байта адреса состояния автомата.
   lpm      XL, Z+ ; Считывание младшего байта адреса состояния автомата.
   ld      r16, X ; Считывание состояния автомата.
   lpm      r17, Z+ ; Считывание количества состояний автомата.
   cp      r16, r17
   brsh   Process_Errors_FSM
   lpm      XH, Z+
   lpm      XL, Z
   movw   ZH:ZL, XH:XL
   add      ZL, r16
   adc      ZH, RCLR
   shiftlwz
   lpm      r17, Z+
   lpm      r16, Z
   movw   ZH:ZL, r17:r16
   ijmp
Process_Errors_FSM:
   cli
   adiw   ZL, 2
   lpm      r16, Z
   rjmp   Proc_Errors
//==================

//==================
Set_FSM_State:
   st         Y, FSM_STATE
   ret
//==================

//==================
//Proc_FSM_Exit:
//   st         Y, FSM_FLAGS
//   std         Y+1, FSM_STATE
//   ret
//==================

Пример использования шаблона конечного автомата:

Спойлер

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

KBD_DRV:
   pushiwl      Kbd_Drv_Save_Val // Эти две строки - манипуляция со стеком. В стек загоняется эта подпрограмма. 
                                                            // После выхода из конечного автомата прыгаем сюда, сохраняем данные,
                                                            // после этого возвращаемся в место, откуда вызвали конечный автомат.
                                                            // если толком не знаете как работает стек, и как им манипулировать,
                                                            // не используйте этот прием.
   pushiwl      Define_Keys          // 

   ldy         _KEYS
   ldd         FSM_STATE, Y+DISP_KEYS
   ldd         FSM_FLAGS, Y+DISP_KEYS_FLAGS

   Scan_Keys // Макрос сканирование кнопок. Дефайнами подставляются нужные функции. Порт\Матрица\Несколько портов.
   Proc_FSM   Tab_FSM_KBD_DRV

//==================
Kbd_Drv_Save_Val:
   std      Y+DISP_KEYS, FSM_STATE
   std      Y+DISP_KEYS_FLAGS, FSM_FLAGS
   ret
//==================

Keys_Init:
   ser         r16
   mov         KEYS_PREV, r16
   mov         KEYS_CURRENT, r16
   std         Y+DISP_KEYS_BUF, r16
   Set_State   _KEYS_NONE
   ret

Tab_FSM_KBD_DRV:
.db      tab_h(_KEYS), MAX_FSM_KBD_DRV_STATES, tab_h(Tab_Jmp_KBD_DRV), ERR_ID_KBD_DRV

Tab_Jmp_KBD_DRV:
.equ   MAX_FSM_KBD_DRV_STATES   = 5 // Количество состояний автомата.

.equ   _KEYS_INIT            = 0
.db      tab_h(Keys_Init)

.equ   _KEYS_NONE            = 1
.db      tab_h(Keys_None)

.equ   _KEYS_DOWN            = 2
.db      tab_h(Keys_Down)

.equ   _KEYS_WAIT_UP         = 3
.db      tab_h(Keys_Wait_Up)

.equ   _KEYS_UP            = 4
.db      tab_h(Keys_Up)

До кучи набор макросов, подпрограмм.

Спойлер

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

.macro   clrb
   cbr      @0,1<<@1
.endmacro

.macro   setb
   sbr      @0,1<<@1
.endmacro

.macro sfbs
   lds      r16,@0
   sbrs   r16,@1
.endmacro

.macro sfbc
   lds      r16,@0
   sbrc   r16,@1
.endmacro

.macro stfb
   lds      r16,@0
   sbr      r16,@1
   sts      @0,r16
.endmacro

.macro clfb
   lds      r16,@0
   cbr      r16,@1
   sts      @0,r16
.endmacro

.macro   ldiw
   ldi      @0,High(@2)
   ldi      @1,Low(@2)
.endmacro

.macro   ldx
   ldi      XH,High(@0)
   ldi      XL,Low(@0)
.endmacro

.macro   ldy
   ldi      YH,High(@0)
   ldi      YL,Low(@0)
.endmacro

.macro   ldz
   ldi      ZH,High(@0)
   ldi      ZL,Low(@0)
.endmacro

.macro   pushx
   push   XL
   push   XH
.endmacro

.macro   pushy
   push   YL
   push   YH
.endmacro

.macro   pushz
   push   ZL
   push   ZH
.endmacro

.macro   popx
   pop      XH
   pop      XL
.endmacro

.macro   popy
   pop      YH
   pop      YL
.endmacro

.macro   popz
   pop      ZH
   pop      ZL
.endmacro

.macro   stsi
   ldi      r16,@1
   sts      @0,r16
.endmacro

.macro   stsiw
   ldi      r16,high(@1)
   sts      @0+1,r16
   ldi      r16,low(@1)
   sts      @0,r16
.endmacro

.macro   outi
   ldi      r16,@1
   out      @0,r16
.endmacro

.macro outiw
   ldi      r16,high(@1)
   out      @0H,r16
   ldi      r16,low(@1)
   out      @0L,r16
.endmacro

.macro adi
   subi   @0,-@1
.endmacro

.macro adci
   sbci   @0,-@1
.endmacro

.macro addiw
   subi   @0L,LOW(-@1)
   sbci   @0H,HIGH(-@1)
.endmacro

.macro cpw
   cp      @0,@1
   cpc      @2,@3
.endmacro

.macro subiw
   subi   @0L,LOW(@1)
   sbci   @0H,HIGH(@1)
.endmacro

.macro addw
   add      @0L,@1
   adc      @0H,@2
.endmacro

.macro shiftlwz
   lsl      ZL
   rol      ZH
.endmacro

.macro shiftrw
   lsr      @0H
   ror      @0L
.endmacro

.macro         INIT_STACK
.ifdef   SPH
   outi   SPH,HIGH(RAMEND)
.endif
   outi   SPL,LOW(RAMEND)
.endmacro

.macro   INIT_WATCH_DOG
   outi   WDTCR,1<<WDTOE | 1<<WDE ;  | 1<<WDP2 | 1<<WDP1 | 1<<WDP0
.endmacro

.macro   INIT_SLEEP_MODE
   in      r16,MCUCR
   sbr      r16,1<<SE
   out      MCUCR,Temp
.endmacro

.macro   INIT_EXT_INT0
   in      r16,MCUCR
   sbr      r16,1<<ISC00 | 1<<ISC01
   out      MCUCR,Temp
   in      r16,GICR
   sbr      r16,1<<INT0
   out      GICR,r16
.endmacro

.macro   INIT_EXT_INT1
   in      r16,MCUCR
   sbr      r16,1<<ISC10 | 1<<ISC11
   out      MCUCR,Temp
   in      r16,GICR
   sbr      r16,1<<INT1
   out      GICR,r16
.endmacro

.macro   INIT_EXT_INT2
   in      r16,MCUCR
   sbr      r16,1<<SE
   out      MCUCR,Temp
   in      r16,MCUCSR
   sbr      r16,1<<ISC2
   out      MCUCSR,Temp
   in      r16,GICR
   sbr      r16,1<<INT2
   out      GICR,r16
.endmacro

.macro   INIT_TIMER0
   out      TCNT0,RCLR
   in      r16,TIMSK
   sbr      r16,1<<OCIE0
   out      TIMSK,r16
   outi   OCR0,(XTAL/64/1000)
   outi   TCCR0,1<<CS00 | 1<<CS01
.endmacro

.macro   INIT_TIMER1
   in      r16,TIMSK
   sbr      r16,1<<OCIE1A
   out      TIMSK,r16
   out      TCNT1H,Zero
   out      TCNT1L,Zero

   ldi      r16,High(36)
   out      OCR1AH,r16
   ldi      r16,Low(36)
   out      OCR1AL,r16 ; При частоте кварца 7,3728 Мгц число 72=10 мс.

   ldi      r16,0x05
   out      TCCR1B,r16
.endmacro

.macro   INIT_TIMER2
   out      TCNT2,RCLR
   in      r16,TIMSK
   sbr      r16,1<<OCIE2
   out      TIMSK,r16
   outi   OCR2,(XTAL/64/1000)
   outi   TCCR2,4
.endmacro

.macro   Case
   cpi      STREG,@0
   brne   Exit_Case
   rjmp   @1
Exit_Case:
.endmacro

.macro   Case_Not_Equal
   cpi      STREG,@0
   breq   Exit_Case
   rjmp   @1
Exit_Case:
.endmacro

.macro   Read_State
   lds      r16,@0
.endmacro

.macro   Set_State
   ldi      r16,@1
   sts      @0,r16
.endmacro

.macro   Set_Mode
   ldi      r16,@1
   sts      @0,r16
.endmacro

.macro   Check_States
   cpi      r16,@0
   brlo   Check_States_Exit
   rjmp   @1
Check_States_Exit:
.endmacro

.macro   Read_Last_State
   lds      r17,@0
.endmacro

.macro   ClearRegisters
   clr      r0
   clr      r1
   clr      r2
   clr      r3
   clr      r4
   clr      r5
   clr      r6
   clr      r7
   clr      r8
   clr      r9
   clr      r10
   clr      r11
   clr      r12
   clr      r13
   clr      r14
   clr      r15

   clr      r16
   clr      r17
   clr      r18
   clr      r19
   clr      r20
   clr      r21
   clr      r22
   clr      r23
   clr      r24
   clr      r25
   clr      r26
   clr      r27
   clr      r28
   clr      r29
   clr      r30
   clr      r31
.endmacro

.macro   Set_State
   ldi      FSM_STATE, @0
.endmacro

.macro Clear_Registers
   clr      ZH
   ldi      ZL, 30
Clear_Register_Cycle:
   dec      ZL
   st      Z, ZH
   brne   Clear_Register_Cycle
.endmacro

;*************************************************************************
;=========== SRAM ====================
;*************************************************************************

.macro   OUT_SRAM
   ldi      XH,HIGH(@0)
   ldi      XL,LOW(@0)
   ldi      Data_H,HIGH(@1)
   ldi      Data_L,LOW(@1)
   rcall   _OUT_SRAM
.endmacro

.macro   OUTI_SRAM
   ldi      XH,HIGH(@0)
   ldi      XL,LOW(@0)
   ldi      r17,@1
   ldi      r16,@2
   rcall   _OUT_SRAM
.endmacro

_OUT_SRAM:
   st      X+,r16
   dec      r17
   brne   _OUT_SRAM
   ret

.macro   Copy_SRAM
.if @3==YES
   push   YH
   push   YL
.endif
   ldi      XH,HIGH(@0)
   ldi      XL,LOW(@0)
   ldi      YH,HIGH(@1)
   ldi      YL,LOW(@1)
   ldi      r17,@2
   rcall   _Copy_SRAM
.if @3==YES
   pop      YL
   pop      YH
.endif
.endmacro

_Copy_SRAM:
   ld      r16,X+
   st      Y+,r16
   dec      r17
   brne   _Copy_SRAM
   ret

.macro   Clear_SRAM
   ldx      SRAM_START
Clear_SRAM_Cycle:
   st      X+,RCLR
   cpi      XL,LOW(SRAM_START+SRAM_SIZE)
   brne   Clear_SRAM_Cycle
   cpi      XH,HIGH(SRAM_START+SRAM_SIZE)
   brne   Clear_SRAM_Cycle
.endmacro
;*************************************************************************

;*************************************************************************
;========== EEPROM ===================
;*************************************************************************

;Так как возможна случайная запись в EEPROM в случае сбоя питания, то:
;1 - В микроконтроллере включить контроль снижения напряжения питания. 
;2 - Первый (0x00) байт никогда не используется. 
;3 - После ресета обнулить указатель адреса EEPROM. 
;Решения для увеличения ресурса EEPROM:
;4 - Перед записью считывается байт, предназначенный для записи,
;проверяется на равенство с записываемым, если байты равны, то переход
;к записи следующего байта. 
;5 - В конце работы с EEPROM обнулить указатель адреса. 

#if (EEPROM==YES)

.macro Read_EEPROM
   ldix   @0 ; Указатель адреса EEPROM.
   ldiy   @1 ; Указатель адреса SRAM.
   ldi      r17,@2
   rcall   _Read_EEPROM
.endmacro

_Read_EEPROM:
   sbic   EECR,EEWE
   rjmp   _Read_EEPROM
.ifdef EEARH
   out      EEARH,XH
.endif
   out      EEARL,XL
   sbi      EECR,EERE
   sbi      EECR,EERE
   in      EEDREG,EEDR
   st      Y+,EEDREG
   adiw   XL,1
   dec      r17
   brne   _Read_EEPROM
_Read_EEPROM_0:
   sbic   EECR,EEWE
   rjmp   _Read_EEPROM_0
.ifdef EEARH
   out      EEARH,RCLR
.endif
   out      EEARL,RCLR
   ret

EERead:
   sbic   EECR,EEWE
   rjmp   EERead
.ifdef EEARH
   out      EEARH,XH
.endif
   out      EEARL,XL
   sbi      EECR,EERE
   sbi      EECR,EERE
   in      EEDREG,EEDR
EERead_1:
   sbic   EECR,EEWE
   rjmp   EERead_1
.ifdef EEARH
   out      EEARH,RCLR
.endif
   out      EEARL,RCLR
   ret

EEWrite:
   sbic   EECR,EEWE
   rjmp   EEWrite
.ifdef EEARH
   out      EEARH,XH
.endif
   out      EEARL,XL
   out      EEDR,EEDREG
   sbi      EECR,EEMWE
   sbi      EECR,EEWE
EEWrite_1:
   sbic   EECR,EEWE
   rjmp   EEWrite_1
.ifdef EEARH
   out      EEARH,RCLR
.endif
   out      EEARL,RCLR
   ret

.macro Write_EEPROM
   ldiy   @0 ; Указатель адреса SRAM.
   ldix   @1 ; Указатель адреса EEPROM.
   ldi      r17,@2
   rcall   _Write_EEPROM
.endmacro

_Write_EEPROM:
   sbic   EECR,EEWE
   rjmp   _Write_EEPROM
.ifdef EEARH
   out      EEARH,XH
.endif
   out      EEARL,XL
   ld      EEDREG,Y+
   out      EEDR,EEDREG
   sbi      EECR,EEMWE
   sbi      EECR,EEWE
   adiw   XL,1
   dec      r17
   brne   _Write_EEPROM
_Write_EEPROM_0:
   sbic   EECR,EEWE
   rjmp   _Write_EEPROM_0
.ifdef EEARH
   out      EEARH,RCLR
.endif
   out      EEARL,RCLR
   ret

.macro   Clear_EEPROM
   ldx      @0
   ldy      @1
   rcall   _Clear_EEPROM
.endmacro

_Clear_EEPROM:
   sbic   EECR,EEWE
   rjmp   _Clear_EEPROM
.ifdef EEARH
   out      EEARH,XH
.endif
   out      EEARL,XL
   out      EEDR,RCLR
   sbi      EECR,EEMWE
   sbi      EECR,EEWE
   adiw   XL,1
   sbiw   YL,1
   brne   _Clear_EEPROM
_Clear_EEPROM_0:
   sbic   EECR,EEWE
   rjmp   _Clear_EEPROM_0
.ifdef EEARH
   out      EEARH,RCLR
.endif
   out      EEARL,RCLR
   ret

#endif
;*************************************************************************

/************************************************************************/
#if (BCD==YES)

.dseg

HEX_DEC_BUFFER:
.equ   HEX_DEC_BUFFER_LENGHT = 5
.byte   HEX_DEC_BUFFER_LENGHT


.cseg

Hex_Dec:
   ldx      HEX_DEC_BUFFER
   ldi      r17,HIGH(10000)
   ldi      r16,LOW(10000)
   rcall   Digit
   st      X+,r18
   ldi      r17,HIGH(1000)
   ldi      r16,LOW(1000)
   rcall   Digit
   st      X+,r18
   ldi      r17,HIGH(100)
   ldi      r16,LOW(100)
   rcall   Digit
   st      X+,r18
   ldi      r17,HIGH(10)
   ldi      r16,LOW(10)
   rcall   Digit
   st      X+,r18
   mov      r16,r14
   ori      r16,0x30
   st      X+,r16
Hex_Dec_End:
   ret

Digit:
   ldi      r18,-1
Digit_Cycle:
   inc      r18
   sub      r14,r16
   sbc      r15,r17
   brsh   Digit_Cycle
   add      r14,r16
   adc      r15,r17
   ori      r18,0x30
   ret
#endif
/************************************************************************/

/************************************************************************/
Empty_Action:
   ret
/************************************************************************/

/************************************************************************/
Table_Bits:
.db 0b00000001, 0b00000010, 0b00000100, 0b00001000
.db 0b00010000, 0b00100000, 0b01000000, 0b10000000
/************************************************************************/

/************************************************************************/
.macro end_array
.db 0xFF,0xFF
.endmacro
/************************************************************************/

[СКАЗОЧНИК]

Вот устроили из темы срач холиварный. Эту часть надо вырезать и отнести в МЯЯЯУ.
А у меня тем временем глюки с моей программулиной даже в Протеусе. Не могу понять в чем дело. Возможно и прерывания гонят. Хотя, не должны. В эмуляторе же крутил много раз программу, там тупо крутится в главном цикле и выполняет условия. Однако, почему-то умудряется погасить один светодиод не тогда, когда надо, должен гасить оба сразу. А даже команды во всем тексте такой нет, где он гасит один светодиод...
Не пойму, как он умудряется это сделать.
и когда совсем импульсов нет, соответственно нет и прерываний. Почему тогда он не выключает их иной раз?

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

Start:   

      cp  ONBlL, PERIODL 
      cpc  ONBlH, PERIODH
      brsh ONB

       rjmp T
      
   ONB: sbi PORTB, 2
 
   T:   cp  ONTumL, PERIODL    ; Если 
      cpc  ONTumH, PERIODH 
      brsh ONT

       rjmp O

   ONT: sbi PORTB, 0

   O:   cp  OFFL, PERIODL     ; Сравниваем с настоящим значением накопленного
      cpc  OFFH, PERIODH   ; Если начисленное больше, то выключаем (скорость сильно маленькая)
      brlo OFF

      rjmp Start      

   OFF: cbi PORTB, 0
       cbi PORTB, 2

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

[Z_h_e]

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

Вот устроили из темы срач холиварный.

Жирный плюс Вам за остановку этого беспредела.

[Demiurg]

...

Программа не вся. У вас там строка есть, если начисленное больше, то выключаем, а команда стоит brlo. Или считается что если PERIOD больше?

Если происходит что-то необъяснимое, то локализуем ошибку. В вашем случае гаснет один светодиод. Значит, предполагаемые причины: в прерывании не сохраняется-восстанавливается SREG, какой-нибудь регистр. Работа с портом в прерывании и в основном цикле.

Какие функции еще выполняет пин? Может вы режим какой включаете, из-за чего гаснет светодиод.

Также следует не исключать ошибку самого протеуса. Для отладки программ лучше AVR-Studio 4.19 ничего нет. Так как это продукт самого ATMEL, то симулятор симулирует максимально приближенно к правде. Если же у студии и есть какие косяки с симулированием, то они известны.

Лично я пользуюсь всегда только студией, если нужно проверить программу. Протеусом пользовался для проверки пару раз максимум. Когда нужно было быстро проверить работоспособность связки. символьный дисплей, семисегментный дисплей.

[Starichok51]

Вот устроили из темы срач холиварный.

на правах модератора удалил весь устроенный срач холиварный...

[СКАЗОЧНИК]

ошибка сохранения флагов в обработчике прерывания или регистров

А там я делал по вашему совету. Т.е. использовал флаг прерывания таймера, т.к. он меньше по приоритету, чем внешнее прерывание по фронту/спаду.
Ой! Точно, в таймере флаги то используются! Сейчас исправлю!

Спойлер

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

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

   INT0add:

      push temp                  ; Закидываем в стек темп
      in temp, SREG               ; Закидываем в стек СРЕГ
      push temp

         in temp, TIFR0            ; Проверка флага переполнения таймера
         andi temp, (1<<1)         ; Накладываем маску, если 1 бит был единицей, то он и останется, все остальные будут 0. Если он 0, то будет флаг Z
         breq NOFLAG               ; Нет флага (стоит Z), значит уходим, иначе обрабатываем флаг
            out TIFR0, temp         ; В темп уже есть этот флаг, как 1, снова его запихиваем и тем самым скинем флаг
            inc OVF               ; Добавляем еще одно переполнение к таймеру
            
            
      NOFLAG: in PERIODL, TCNT0      ; Считываем значение младшего
            mov PERIODH, OVF      ; Считываем занчение старшего
            
            clr OVF               ; Чистим все для очередного замера
            out TCNT0, OVF
      
      pop temp                  ; Вытаскиваем из стека СРЕГ
      out SREG, temp      
      pop temp                  ; Вытаскиваем из стека темп          

   reti

;----------

   OVF0add:

      inc OVF

      cpi OVF, 251
      brsh OVER
      reti

      OVER: ldi OVF, 250

   reti

а команда стоит brlo. Или считается что если PERIOD больше?

Да, именно так. Если период больше всего всего, то значит импульс слишком длинный и давно пора выключить все нагрузки. ))) Даже алгоритм пришлось рисовать для этого на листочке. Вообще все конспектирую и стараюсь рисовать. Так понятнее разбираться.

в прерывании не сохраняется-восстанавливается SREG, какой-нибудь регистр. Работа с портом в прерывании и в основном цикле.

Может вы режим какой включаете, из-за чего гаснет светодиод.

Вот. В прерывании сохраняю регистры. Во втором прерывании с ними не работаю, поэтому и не трогаю. С портами не работаю в прерывании, Тини13, там альтернативных функций не так много, поэтому использую порт как есть и всего один INT0. Все...

Для отладки программ лучше AVR-Studio 4.19 ничего нет.

Тоже так думаю. Но сама студия в отладке показывает = все прекрасно. Даже с эмуляцией прерываний и т.д. и т.п. Все значения обрабатывает идеально.
Глючить начинает Протеус и Железо. Причем, как-то одинаково почти. В Протеусе я подаю импульсы с генератора, а в реальной жизни от спидометра на Тойота Спасио. И там и там моргает... А когда частота спидометра/генератора снижается, то выключается ближний свет, в то время, когда выключиться должны только вместе при самой маленькой скорости. Даже в программе нет такой строчки, где отдельное выключение порта... Только одновременно.

В Протеусе начал проверять, просто от безысходности. Дома нет возможности реальное железо тестировать, т.к. нет датчика скорости (или его эмулятора). Обычно Протеусом вообще не пользуюсь...

Не знаю. Буду сидеть и думать до конца. Хочу доделать это устройство. Результатами обязательно всеми поделюсь. Может кто полезное для себя возьмет или найдет.
Если кому будет интересно, выложу проект Протеуса и Прошивку.

Благодарю всех за проявленный интерес!

на правах модератора

З.Ы. В верху неправильный подсчет написал по времени периода таймера.
Вот правильный:

Спойлер

Частота МК 4,8 МГц. Тмк = 0,000000208 с.
Частота таймера 4,8 МГц/256 = 18750 Гц. Ттайм = 0,000053333 с.
Полный счет таймера 256 TCNT0 и еще 250 переполнений (так ограничивает прерывание), получается за примерно 3,4 с.
Минимальный период импульса указан выше = 0,0000533333 с.
Т.е. таймер может считать от f = 0.294 Гц, до f = 18750 Гц.
Мои подсчеты по замерам на реальном автомобиле при скорости в районе 5 км/ч fимп. = 8,75 Гц или Тимп. = 0,1143 с.
А при скорости 200 км/ч fимп. = 141,844 Гц или Тимп. = 0,007 с.
Запас есть, как не крути.

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

[Z_h_e]

В Протеусе начал проверять, просто от безысходности.

Протеус отлично средство отладки, просто надо понимать что это всего лишь эмулятор, но Вашу задачу он легко съест.

[СКАЗОЧНИК]

У меня еще комп его плохо тянет. и иной раз виснет.

[Z_h_e]

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

[СКАЗОЧНИК]

Все. Тема моя походу умерла сама собой. )))) Я только что осознал, что в городе есть светофоры и пешеходные переходы... И каждое снижение скорости или остановка будут гасить туманки и второй ближний свет. Лампам придет писец еще быстрее... Вот блин.

У кого есть предложения, куда еще можно применять эту плату? Может использовать ее как отсечку для Жигулей? А то у меня просили.

[Demiurg]

...

Смириться, успокоив себя тем, что получил бесценный опыт. Отрицательный результат - тоже результат.
А наработки когда-нибудь пригодятся в другом устройстве.

[WiseLord]

А ввести два режима - город и трасса? В одном ничего такого не делать (или делать иначе), в другом - переключать фары как задумано.

[СКАЗОЧНИК]

Хороший вариант. ))) Все равно решили эту схему доделывать, но изменили немного критерии и включили в работу задержки, т.е. если стоим более 10 секунд, то выключить свет. А город-трасса - тоже есть, можно включить в ручную все. А можно в автоматическом режиме через эту конструкцию.
Сейчас буду додумывать.
Спасибо.

[ILYAUL]

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

;----------

   OVF0add:

      inc OVF

      cpi OVF, 251
      brsh OVER
      reti


   reti

Команда CPI меняет регистр SREG. Когда Вы научитесь сохранять этот регистр , если применяете команды его изменяющие?

[СКАЗОЧНИК]

В прерываниях у меня сохраняется этот регистр. Уже ))))

[akl]

...Мои подсчеты по замерам на реальном автомобиле при скорости в районе 5 км/ч fимп. = 8,75 Гц или Тимп. = 0,1143 с. А при скорости 200 км/ч fимп. = 141,844 Гц или Тимп. = 0,007 с.

Уточню. Если при скорости 200 км/3600сек измерено 141,844 имп./сек, то датчик выдает 2553 имп/км. В общем, ожидаемо. Чего нельзя сказать про скорость 5км/час. Должно получиться 3,54 имп./сек.