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

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

.INCLUDE "m8DEF.INC"
.def tmp=r16
.def tmp0=r17
.cseg
;INTERRUPT VECTORS
	rjmp reset				; Reset Handler
	reti;	rjmp EXT_INT0 			; IRQ0 Handler
	reti					;	rjmp EXT_INT1 ; IRQ1 Handler
	reti					;rjmp TIM2_COMP ; Timer2 Compare Handler
	reti					;rjmp TIM2_OVF ; Timer2 Overflow Handler
	rjmp TIM1_CAPT				;Timer1 Capture Handler
	reti					;rjmp TIM1_COMPA ; Timer1 CompareA Handler
	reti					;rjmp TIM1_COMPB ; Timer1 CompareB Handler
	reti					;rjmp TIMPINC 4 191_OVF	;Timer1 Overflow Handler
reti;	rjmp look				;tim0_ovf ; Timer0 Overflow Handler
	reti					;rjmp SPI_STC ; SPI Transfer Complete Handler
	reti					;rjmp USART_RXC ; USART RX Complete Handler
	reti					;rjmp USART_UDRE ; UDR Empty Handler
	reti					;rjmp USART_TXC ; USART TX Complete Handler
	reti					;rjmp ADC_inc ; ADC Conversion Complete Handler
	reti					;rjmp EE_RDY ; EEPROM Ready Handler
	reti					;rjmp ANA_COMP ; Analog Comparator Handler
	reti					;rjmp TWSI ; Two-wire Serial Interface Handler
	reti					;rjmp SPM_RDY ; Store Program Memory Ready Handler
RESET:
	ldi tmp,low(RAMEND)
	out spl,tmp
	ldi tmp,high(RAMEND)
	out sph,tmp

	ldi tmp,(1<<ticie1)
	out timsk,tmp
	ldi tmp,(0<<icnc1)|(1<<ices1)
	out tccr1b,tmp

	ldi tmp,0b00000000
	out ddrb,tmp
	ldi tmp,0b00000000
	out portb,tmp
	sei
main:
	rjmp main

TIM1_CAPT:
	push tmp			;сохраняем данные
	push tmp0			;которые можем потерять
	in tmp,sreg			;tmp, tmp0,
	push tmp			;sreg



	pop tmp				;восстанавливаем ранее
	out sreg,tmp		;сохранённые данные
	pop tmp0			;в обратном порядке
	pop tmp				;sreg,tmp,tmp0
	reti
.exit

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

.INCLUDE "m8DEF.INC"
.def tmp=r16
.def tmp0=r17
.cseg
;INTERRUPT VECTORS
   rjmp reset            ; Reset Handler
   reti;   rjmp EXT_INT0          ; IRQ0 Handler
   reti               ;   rjmp EXT_INT1 ; IRQ1 Handler
   reti               ;rjmp TIM2_COMP ; Timer2 Compare Handler
   reti               ;rjmp TIM2_OVF ; Timer2 Overflow Handler
	IN	XL,ICR1L	;Timer1 Capture Handler
	IN	XH,ICR1H
;   rjmp TIM1_CAPT;Timer1 Capture Handler
   reti               ;rjmp TIM1_COMPA ; Timer1 CompareA Handler
;   reti               ;rjmp TIM1_COMPB ; Timer1 CompareB Handler
;   reti               ;rjmp TIMPINC 4 191_OVF   ;Timer1 Overflow Handler
;reti;   rjmp look            ;tim0_ovf ; Timer0 Overflow Handler
;   reti               ;rjmp SPI_STC ; SPI Transfer Complete Handler
;   reti               ;rjmp USART_RXC ; USART RX Complete Handler
;   reti               ;rjmp USART_UDRE ; UDR Empty Handler
;   reti               ;rjmp USART_TXC ; USART TX Complete Handler
;   reti               ;rjmp ADC_inc ; ADC Conversion Complete Handler
;   reti               ;rjmp EE_RDY ; EEPROM Ready Handler
;   reti               ;rjmp ANA_COMP ; Analog Comparator Handler
;   reti               ;rjmp TWSI ; Two-wire Serial Interface Handler
;   reti               ;rjmp SPM_RDY ; Store Program Memory Ready Handler
RESET:
   ldi tmp,low(RAMEND)
   out spl,tmp
   ldi tmp,high(RAMEND)
   out sph,tmp

   ldi tmp,0b00000000
   out ddrb,tmp
   ldi tmp,0b00000001
   out portb,tmp

   ldi tmp,(1<<ticie1)
   out timsk,tmp

   OUT	TIFR,tmp

;   ldi tmp,(0<<icnc1)|(1<<ices1)
 ;  out tccr1b,tmp


   LDI	R22,(1<<ices1|1<<cs10)
   OUT	TCCR1B,R22

   sei
main:
   rjmp main

;TIM1_CAPT:
;   push tmp         ;сохраняем данные
;   push tmp0         ;которые можем потерять
;   in tmp,sreg         ;tmp, tmp0,
;   push tmp         ;sreg



;   pop tmp            ;восстанавливаем ранее
;   out sreg,tmp      ;сохранённые данные
;   pop tmp0         ;в обратном порядке
;   pop tmp            ;sreg,tmp,tmp0
;   reti
.exit

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

; Проба изменяемой в пределах 1...300 Гц частоты Fout
.include "tn13def.inc"; используемое устройство

.equ	Fo=9600000

.equ	Fout=1
;.equ	Fout=300

.equ	Tout=Fo/40/Fout	; длительность периода сдвига R0...R4
; длительность 1/40 периода придется рассчитываь или сводить в таблицу!!!!!!!!
   .CSEG
   .ORG	0
	RJMP	START
   .ORG	$03
OVER_T0:
	SBIW	YL,1
	BRPL	OUT_RETI
SET_Tout:
	LDI	YH,BYTE3(Tout)
	LDI	YL,BYTE2(Tout)
	LDI	R16,BYTE1(256-low(Tout)-1)
	OUT	TCNT0,R16

	OUT	TIMSK0,R17
	OUT	TIFR0,R17

	SET
	RET
OUT_RETI:
	RETI
;*************************************************
START:
	CLR	R0
	CLR	R1
	CLR	R2
	LDI	R16,$FF
	MOV	R3,R16
	MOV	R4,R16

	SBI	PORTB,1
	SBI	DDRB,1
	
	LDI	R22,$80
	OUT	ACSR,R22	; выключить аналоговый компаратор
;*************************************************
GO:
; настройка таймера
	LDI	ZH,40

	LDI	R17,$02
	RCALL	SET_Tout
	CLT
;*************************************************
	LDI	R22,$20
	OUT	MCUCR,R22	; разрешение режима SLEEP IDLE

	LDI	R22,1
	OUT	TCCR0B,R22
;*************************************************
	SEI
WAIT:
	SLEEP
	BRTC	WAIT
	CLT

GO_TIME:
	IN	R16,PORTB

	CLC
	SBRC	R4,0
	SEC

	ROR	R0	
	ROR	R1	
	ROR	R2	
	ROR	R3	
	ROR	R4
	
	CBR		R16,$02
	BRCC	PC+2
	SBR		R16,$02
	OUT		PORTB,R16

	DEC	ZH
	BRNE	WAIT-1
;вычисление периода следующей частоты
SET_PERIOD:
;***
;***
;***
;***
	RJMP	GO
;*************************************************