Форум РадиоКот

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

	.INCLUDE "tn13def.inc"

; ****************************
; Дата:  14.02.2015										ПРОВЕРКА ДРУГОЙ СТРУКТУРЫ
; Для AVR: ATtiny13A
; Тактовая частота: 4.8 МГц
; Выполняемые функции: включение светодиода на 3 минуты, двойное энергосбережение
; =========
; объявления
.equ	Fo=4800000

.def	temp=r16;
.def	flag=r19;
; =========
.cseg						; выбор сегмента - программный код
						
.org	$000
rjmp nach					; (reset)

.org	$001					
rjmp	Knopka				; появление 0 на PB1

.org    $002
reti

.org	$003				
Timer:						; Timer\counter overflow
	SBIW	ZH:ZL,1
	BRNE	 BLA

	ldi		temp,0b00000011	; выкл LED
	out		PortB, temp		;

	out		TIMSK0,R0		; запрещ прерыв таймера

	ldi		flag,0
	reti
; =========
Bla:
	cpi		flag,1
	brlo 	PC+3; переход, если  flag=0
	ldi		temp,0b00100000	; разрешение sleep (5 бит), idle (4-3 биты)
	out		MCUCR, temp		; сон для таймера
	RETI

; обработка прерывания
Knopka:
	out		GIMSK,R0		; запрещение прерывания от INT0

	LDI		R22,1<<SE
	OUT		MCUCR,R22		; режим работы SLEEP IDLE

	ldi		temp,0b00000010	; вкл LED
	out		PortB, temp		;				

	ldi		temp,0b00000010 ;
	out		TIMSK0, temp	;разрешение прерыв по переполнению
; очистка счетчика            
	ldi		temp,0b0000001 ; для проверки clk/1!!!!!!!!!
;	ldi		temp,0b0000101 ;		
	out		TCCR0B,temp		; clk/1024 - tccr0b=xxxx x101
; тут счетчик начал считать
	ldi		flag,$01		; флаг=1 -> переход в bla
	reti		
; =========
; =========
; =========
Nach:
	SBI	ACSR,ACD	; выключить аналоговый компаратор
; =========
; инициализация портов и периферии
	ldi		temp,0b11111111 ; 
	out		DDRB,temp		; 
	ldi		temp,0b00000011	; 
	out		PortB, temp		;

	CBI	DDRB,1		; лапу INT0(PB1) на вход с подтяжкой
	
	LDI	ZH,HIGH(3*60*Fo/256/1024)
	LDI	ZL,LOW(3*60*Fo/256/1024)	; загрузка значения 3 минуты
;	ldi		zh,$0C			;для числа 3296: zl=$E0, zh=$0C
;	ldi		zl,$E0			;

	CLR	R0
	OUT	TCNT0,R0

	ldi		temp,0b00110000	; разрешение sleep (5 бит), power down (4-3 биты),
	out		MCUCR, temp		; просыпается от низкого уровня на INT0 (1-0 биты)

	ldi		temp,0b01000000	; разрешение прерывания от INT0
	out		GIMSK, temp		;
	OUT		GIFR,temp
	sei
WAIT:
	SLEEP
; Основное тело программы
; flag=1? да - к таймеру. нет - спать
	CPI		flag,1
	BREQ 	WAIT; переход, если  flag=1

	rjmp Nach
.exit