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

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

; ’…‘’-®ЇаҐ¤Ґ«Ґ­ЁҐ з бв®вл Єў а楢®Ј® ЈҐ­Ґа в®а  AT90S2313 Fclk=8000000kHz

	.INCLUDE "2313def.inc"

	.CSEG
.def	_FF=R1
.equ	Fo=8002729		; 8002729 в этой строке пользователем устанавливается
				; частота кварца

	RESET:
		RJMP	START		; On Reset
COMP_A:
		SET			; On Interrupt 0
		RETI			; On Interrupt 1
		RETI			; Timer 1 capture

		RJMP	COMP_A		; Timer 1 compare
TIM1:
		SBIW	R24,1
		BRNE	TIM1_OUT

		CBI	PORTD,6

		LDI	R20,$40
		OUT	TIMSK,R20

		LDI	R20,$09		; START T1
		OUT	TCCR1B,R20

		OUT	TIFR,_FF
		SEI
	TIM1_WAIT:
		BRTC	TIM1_WAIT

		SBI	PORTD,6
		SET
	TIM1_OUT:
		RETI
;************************************************
	START:
		LDI	R16,LOW(RAMEND)
		OUT	SPL,R16
		
		SER	R16
		MOV	_FF,R16
		OUT	PORTB,R16
		OUT	DDRB,R16	; €­ЁжЁ «Ё§ жЁп Ї®ав  B

		OUT	PORTD,R16
		OUT	DDRD,R16	; €­ЁжЁ «Ё§ жЁп Ї®ав  D

		LDI	R20,$80
		OUT	ACSR,R20	; DISABLE ANCOMP

		CLR	ZH
		OUT	TCCR1B,ZH
		OUT	TCNT1H,ZH
		OUT	TCNT1L,ZH

		LDI	XH,HIGH(10*Fo-10*(Fo/65536)*65536-0)
		LDI	XL,LOW(10*Fo-10*(Fo/65536)*65536-0)
;		LDI	XH,HIGH(10*Fo-10*(Fo/65536)*65536-110)
;		LDI	XL,LOW(10*Fo-10*(Fo/65536)*65536-110)
		OUT	OCR1AH,XH
		OUT	OCR1AL,XL
	START1:

		LDI	R25,HIGH(10*Fo/65536)
		LDI	R24,LOW(10*Fo/65536)	; 122dec KOLITCHESTVO PEREPOLNENI T1 1SEC

		CLT

		LDI	R20,$80
		OUT	TIMSK,R20

		LDI	R20,$01		; START T1
		OUT	TCCR1B,R20

		OUT	TIFR,_FF
		SEI
	WAIT:
		BRTC	WAIT
		RJMP	START1

;************************************************
;************************************************
;************************************************