| 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 ;
;========================================================================
|
| |
| |
