[an error occurred while processing this directive]
|
< pre >
; Кварц 16 MHz, ADXL202 AN604
;Таймеры CK/8
.include "d:\my code\m8def.inc"
.def tmp =r16
.def tmpL =r17
.def tmpH =r18
.def lc =r19
.def cikl =r20
.cseg
.org $0000
rjmp reset
reset:
ldi tmp,0x5f ;$035f
out spl,tmp ;Определение вершины стека
ldi tmp,0x03 ;$035f
out sph,tmp ;Определение вершины стека
;---------------Определяем напраление работы портов -----------------------------------------------------
;Направление работы портов
;PORTB
ser tmp
out DDRB,tmp ;Выход
clr tmp
out PORTB,tmp ;Низкий уровень на выходе порта
out PINB,tmp ;Низкий уровень на выходе порта
;PORTD
ser tmp ;tmp=0xFF
out DDRD,tmp ;
clr tmp
out PORTD,tmp ;Низкий уровень на выходе порта
out PIND,tmp ;низкий уровень на выходе порта
;PORTC main: sbis ucsra,udre sbis ucsra,udre nop <
ser tmp ;tmp=0xFF
cbr tmp,(1<
clr tmp
out PORTC,tmp ;Низкий уровень на выходе порта
out PINC,tmp ;Низкий уровень на выходе порта
;---------------Разрешаем работу сторожевого таймера , сброс через 2 сек---------------------------------
; wdr
; ldi tmp,0b00011000 ;WDP=110(1сек),WDE=1,
; out WDTCR,tmp
; ldi tmp,0b00001111
; out WDTCR,tmp ;Установка сторожевого таймера
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;---------------Выключаем аналоговый компоратор----------------------- ldi tmp,0b10000000
out acsr,tmp ;выключение аналогово компаратора
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
ldi zL,low(65535) ;Загрузка в YH:YL константы 65535
ldi zH,high(65535)
sbiw zL,1 ;вычитание из YH:YL еденицы
brne pc-1 ;Если результат вычитания не равен 0 перейти
;************test USaRT
ldi tmp,0x67
out UBRRL,tmp ;UBRR = c = 9600
sbi UCSRB,txen
sbis ucsra,udre
rjmp pc-1
ldi tmp,0x01
out udr,tmp
sbis ucsra,udre
rjmp pc-1
ldi tmp,0x02
out udr,tmp
rjmp pc-1
ldi tmp,0x03
out udr,tmp
sbis ucsra,udre
rjmp pc-1
ldi tmp,0x04
out udr,tmp
rjmp pc-1
ldi tmp,0x05
out udr,tmp
sbis ucsra,udre
rjmp pc-1
ldi tmp,0x06
out udr,tmp
Rjmp pc-1
;*************
< / pre >
Ответы
Перейти к списку ответов
|||
Конференция
|||
Архив
|||
Главная страница
|||
Содержание