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

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

$000 nach (переход при сбросе\включении питания)
$001 knopka (при наличии 0 на входе INT0)
$003 timer (переполнение таймера\счетчика)

nach:
       sei
       разрешение прерыв. от Int0
       rjmp start
Knopka:
       запрет прерыв. от Int0
       sei
       разрешение прерыв. от переполнения
       разрешение idle mode
       rjmp bla
Timer:
       sei
       inc REG
       _проверка REG на совпадение с некоторым числом(для формирования задержки)
       если REG<числа, то rjmp bla
       иначе
       запрет прерыв. по переполнению
       разрешение прерыв. от Int0
       sei
       rjmp start
Start:
       разрешение Power-down
       sleep
       rjmp start
Bla:
      sleep (был разрешен Idle mode)
      rjmp bla

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

.device		ATtiny13
.nolist
.include	"C:\Program Files (x86)\Atmel\AVR Tools\AvrAssembler2\Appnotes\tn13def.inc"
.list

.def	temp=r16;
.def	srl=r17;
.def	srh=r18;

.cseg						
						
.org	$000
rjmp nach					; (reset)

.org	$001					
rjmp	Knopka				; 

.org    $002
reti

.org	$003				
rjmp	timer				; Timer\counter overflow				

Nach:
	ldi		temp, low(ramend);
	out		spl,temp
	ldi		temp,0x80		; выкл. комп.
	out 	ACSR,temp		; 

	ldi		temp,0b11111111 ; 
	out		DDRB,temp		; 
	ldi		temp,0b00000011	; 
	out		PortB, temp		;

	sei						;
	ldi		temp,0b01000000	;раз. прер. от Int0
	out		GIMSK, temp		;

	rjmp 	start
; =========

Knopka:
	ldi		temp,0b00000000	; запрещ прер INT0
	out		GIMSK, temp		;

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

	ldi		temp,0b00100000	; разр. sleep, idle 
	out		MCUCR, temp		;

	sei						; 

	ldi		zh,$00	; вводим числа, с которыми будет сравниваться т.н. REG
	ldi		zl,$02	;

	ldi		temp,0b00000010 ;
	out		TIMSK0, temp	;разр прер по переполнению

	ldi		temp,0b00000001 ;		
	out		TCCR0B,temp		; clk/1024

	ldi		srL, $00		
	ldi		srH, $00
	rjmp 	bla				
Timer: ;проверка
	inc		srL
	brvc 	PC+3			;
	inc		srh
	clr		srl

	sei						;
	cp		srh, zh			;
	brlo	bla				; 
	cp		srl,zl			;
	brlo	bla				; 
	;проверку прошел
	ldi		temp,0b00000011	; выкл LED
	out		PortB, temp		;

	ldi		temp,0b00000000 ;
	out		TIMSK0, temp	; запр прер по переполнениню


	ldi		temp,0b01000000	; разр прерыв INT0
	out		GIMSK, temp		;	

	rjmp start;
; =========
Start:
	ldi		temp,0b00110000	; sleep, Power-down, проснется от 0 на Int0
	out		MCUCR, temp		;
	sleep
	nop;
	rjmp start
Bla:						
	sleep;
	rjmp bla
.exit