saxar | Дата: Воскресенье, 08.12.2013, 00:52 | Сообщение # 1 |
Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Здраствуйте товарищи программисты ..
извеняюсь за ошибки, пишу через трансляте.ру, так как не имею русской клавиатуры.
Сергей спасибо за прекрасное инфо. Многому научился. Программировал мега 8 последний раз в 2007 году, и то простую логику.
по работе рограммировал спс сименс и митсубиси, но вот решил перейти конкретно на атмел. друг подарил 25 новых мега8.
уже несколько дней пытаюсь написать код измерения напряжения на 3 ацп ножках. ну никак не получаеться. хочу сделать автоматическую интеллигентную лед подсветку.
уже вытравил готовую плату, а вот с совтом проблема.
вот мои код на 2 адц канала. Работает как то странно. лед перед вклучением слегка светяться.
Сергей что неправильно????
.device atmega8 .nolist .list ;#################################### .include "m8def.inc"; Prisoedinenie faila opisanii
;Legende
.org 0 ; Zadanie nulegogo starta programmi rjmp reset ; bezuslownyi perexod na metku reset
.org 14 ; rjmp ADCI ; ;===================================================
reset: ; nachalo razdela inizializazii kontrollera
ldi r16,high(ramend) ; zagruzka werxnei granizi ozu out SPH,r16 ; kopirowanija znachenia w r16 werxnei granizi ozu ldi r16,low(ramend) out SPL,r16 ; Kopirowanie znachenie iz r16 w SPL ldi r16, (1<<TOIE1) ;zagruzka w register r16 "1"smezhennoi na TOIE1 out TIMSK,r16 ;Kopirowanie znachenija iz registra r16 w register TIMSK
;=================================================================================
ldi r16,(1<<ADEN)|(1<<ADSC)|(1<<ADFR)|(1<<ADIE)|(1<<ADPS2)|(1<<ADPS1);|(1<<ADPS0) out ADCSR,r16 ; ldi r16,(1<<WGM11)|(1<<WGM10)|(1<<COM1A1)|(1<<COM1A0) out TCCR1A,r16 ; ;============================================================================== ldi r16, (1<<CS12) ; |(1<<CS11);Zagruzka dwux 1 smezhennix na CS00 ? CS02 out TCCR1B,r16 ; clr r16 sei
clr r31
main:
rjmp main
;======================================================================
ADCI: ;
ldi r17,1
eor r20,r17 out PORTB,r20
;rjmp main
sbic portb, 0 ; rjmp adc4 ; rjmp adc7 adc4:
ldi r16,(1<<ADLAR)|(1<<REFS0)|(1<<MUX2)|(1<<MUX1)|(1<<MUX0);| out ADMUX,r16 ;
in r16,ADCH ; out ICR1L,r16 ;
cpi r16,80 ;================ Punkt gorenija LED BRSH LEDein1 rjmp Ledaus1 ; perexod led aus LEDein1: sbi portc,1 ; ustanovit portb 1 rjmp edit1 Ledaus1: cbi portc,1 ; ochistit pordb 1 edit1: clr r16
reti
adc7:
ldi r16,(1<<ADLAR)|(1<<REFS0)|(1<<MUX2)|(0<<MUX1)|(0<<MUX0);| out ADMUX,r16 ;
in r16,ADCH ; out ICR1L,r16 ;
cpi r16,150 ;================ Punkt gorenija LED BRSH LEDein2 rjmp Ledaus2 ; perexod led aus LEDein2: sbi PORTC,0 ; ustanovit portb 0 rjmp edit2 Ledaus2: cbi PORTC,0 ; ochistit pordb 1 edit2:
clr r16
reti ; ;========================================================================
|
|
| |