timer5.asm

.WARMST	equ	$FF7C
.OUTSTR	equ	$FFC7
.OUTCLR	equ	$FFC4
.OUT2BS	equ	$FFC1

TCNT	equ	$100E		;текущее значение таймера
TCTL1	equ	$1020		;программирвание выходных функций
TCTL2	equ	$1021		;выбор фронта для события
TIC1	equ	$1010		;входной регистр 1
TOC2	equ	$1018		;значение компаратора 2
TFLG1	equ	$1023		;флаги событий
CFORC	equ	$100B		;эмуляция события

ADCTL	equ	$1030
ADR1	equ	$1031
ADR4	equ	$1034

EOT	equ	$04

	ORG	$100

	LDAA	#%00010001
	STAA	TCTL2	событие по OC1 и по OC3 по переднему фронту 10001
			* Сбрасываем события ICx в TFLG1
	LDAA	#%00000100
	STAA	TFLG1	сброс OC1
	LDAA	#%01000000
	STAA	TFLG1	сброс OC2
	LDAA	#%00100000
	STAA	TFLG1	сброс OC3

	LDAA	#%01000000
	STAA	TCTL1	смена логического уровня на OC2

	LDAA	#$21
	STAA	ADCTL

	LDAA	#$93
	STAA	$1039

test:	
	LDAA	TFLG1
	BITA	#%00000100
	BNE	oprn

	LDAA	TFLG1
	BITA	#%01000000
	BNE	small

	BRA	test	

oprn:	
	LDAA	#%00000100
	STAA	TFLG1	
	LDAA	#%01000000
	STAA	TFLG1

	LDD	TIC1	
	SUBD	Tmp
	LSRD		
	LSRD
	LSRD
	LSRD
	STD	Period

	LDAB	ADR1
	CLRA
	SUBD	#$80
	STD	ACP

	LDD 	TIC1
	ADDD	Period
	ADDD	ACP
	STD	TOC2
	
	LDD	TIC1
	STD	Tmp
	
	BRA	test

small:	
	LDD 	TOC2
	ADDD	Period
	SUBD	ACP
	STD	TOC2
	
	LDAA	#%01000000
	STAA	TFLG1

big:	LDAA	TFLG1
	BITA	#%01000000
	BEQ	big

	LDAB	ADR1
	CLRA
	SUBD	#$80
	STD	ACP

	LDD 	TOC2
	ADDD	Period
	ADDD	ACP
	STD	TOC2

	LDAA	#%01000000
	STAA	TFLG1

	JMP	test


halt:	JSR	.WARMST

Tmp:	FDB	0

Period:	FDB	0

Delay:	FDB	0

Del:	FDB	$E

ACP:	FDB	0