Pájův sklep

Tady jsem umístil krátký prográmek pro mikrořadič 68HC11. Je to ptákovinka resp. zápočtový program na vytvoření pulsního generátoru. Časová základna běží na konstantním kmitočtu daném vztahem f=1/(65536*E), kde E je vnitřní pracovní frekvence mikrořadiče. Více muže napovědět blokové schéma vnitřních čítačů a časovačů.
Generátor se ovládá pomocí dvou tlačítek UP a DOWN připojených na port PA2 resp. PA1 a společně pak na vývod PA6, kde je i výstup generátoru. Obsluha tlačítek je pomocí systému přerušení od vnitřních čítačů IC1 a IC2, které generují přerušení, jenž zvýší resp. sníží střídu výstupního signálu.

DSTART	equ $C100	kde bude zacatek programu
OC1M	equ $100C	maska aktivity bitu pri OC1
OC1D	equ $100D	registr dat pro aktivitu pri OC1
TOC1	equ $1016	registr vzoru pro srovnani fce OC1
TOC2	equ $1018	registr vzoru pro srovnani fce OC2
TCTL1	equ $1020	prvni ridici registr casovace
TCTL2	equ $1021	druhy ridici registr casovace
TMSK1	equ $1022	prvni registr masky preruseni od casovace
TMSK2	equ $1024	druhy registr masky preruseni od casovace
IC1I	equ $FFEE	adresa preruseni od IC1
IC2I	equ $FFEC	adresa preruseni od IC2
	org DSTART	zacatecni adresa

* provedeme nejdrive nastaveni generatoru

	sei	zakaze vsechny preruseni
	ldaa #%01111111
	anda TMSK2	zakaze preruseni pri preteceni citace (INT0)
	staa TMSK2
	ldaa #%00000110
	staa TMSK1	zakaze preruseni od komparatoru OCx a povoli preruseni od IC1 a IC2
	ldd #$0000
	std TOC1	vynulovani citace TOC1
	ldd #$8000
	std TOC2	nastaveni citace TOC2 na pulku
	ldaa #%01000000
	oraa OC1D
	staa OC1D
	ldaa #%01000000
	oraa OC1M	pri shode TOC1 zapise na PA6 jednicku
	staa OC1M
	ldaa #%10000000
	anda TCTL1	pri shode TOC2 zapise na PA6 nulu
	staa TCTL1

* timto je dokonceno nastaveni generatoru
* zacneme se zabyvat zmenou sirky generovaneho pulsu

	ldd #INTIC1
	std IC1I	nastavi adresu pro zpracovani preruseni od IC1
	ldd #INTIC2
	std IC2I	nastavi adresu pro zpracovani preruseni od IC2
	ldaa #%00101000
	staa TCTL2	bude reagovat na zmeny z 0 na 1 u vyvodu PA0 a PA1
	cli	povoli preruseni
JUMP	jmp JUMP	tady muze byt dalsi program, ted je tu smycka

* tady jsou podprogramy pro zpracovani preruseni od klavesnice
* pricitani, odcitani citace

INTIC1	sei	zakazu preruseni
	inc TOC2	zvetseni delky pulsu
	bcc END1	test preteceni
	dec TOC2	vrati puvodni hodnotu
END1	cli	povolim preruseni
	rti	navrat
INTIC2
	sei	zakazu preruseni
	dec TOC2	zmenseni delky pulsu
	beq END2	test nulovosti
	inc TOC2	vrati puvodni hodnotu
END2	cli	povolim preruseni
	rti

Jinak si můžete stáhnout i tento prográmek tady.

A tady mě můžete poslat poštu autoru - Pavel Škorpil