;Проба генерации периода 1 минута из часовым кварцем

	.INCLUDE "M8515def.inc"

.equ	Fo=32772
;.equ	Fo=32768
;************************************************
	.CSEG

.ORG	$0000
RESET:
	RJMP	START	; On Reset

.ORG	$0004
COMPA_T1:		; Timer 1A compare
	SUBI	R20,1
	BRMI	MIN_OUT
	BRNE	COMP_OUT
	OUT	OCR1AH,YH
	OUT	OCR1AL,YL
COMP_OUT:
	RETI
MIN_OUT:
	RET
;*************************************************
;*************************************************
;*************************************************
START:
	LDI	XH,HIGH(RAMEND)
	LDI	XL,LOW(RAMEND)
	OUT	SPH,XH
	OUT	SPL,XL
	SBI	ACSR,ACD	; выключить аналоговый компаратор

	SER	R20
	OUT	DDRA,R20
	OUT	DDRB,R20
	OUT	DDRC,R20	; 
	OUT	DDRD,R20	; 
	OUT	DDRE,R20	;
	CBI	DDRC,7 
;*************************************************
GO:
	LDI	R16,1<<SE
	OUT	MCUCR,R16	; режим SLEEP IDLE

	LDI	R20,59

	LDI	YH,HIGH(Fo-1)
	LDI	YL,LOW(Fo-1)
	OUT	OCR1AH,YH
	OUT	OCR1AL,YL

	LDI	YH,HIGH(Fo-30-1)
	LDI	YL,LOW(Fo-30-1)

	LDI	R17,1<<OCIE1A
	OUT	TIMSK,R17
	OUT	TIFR,R17

	LDI	R16,1<<WGM12|1<<CS10		; Fo/1 CTC
	OUT	TCCR1B,R16

	CBI	PORTD,5
WAIT_BEGIN:
	SEI
WAIT:
	SLEEP
	BRIE	WAIT

	SBI	PORTD,5
	RJMP	GO

.EXIT