Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
2.2.4 Quelltext<br />
;<strong>Tresor</strong>steuerung (G07) Matthias Stahl & Florian Meyer<br />
.include "m48def.inc" ;Einbinden der Register-namen usw.<br />
.def TW = R17 ;devieniere Tastatur-Wert<br />
#define E2 PORTB,1 ;devieniere Enable 1<br />
#define E1 PORTB,0 ;devieniere Enable 2<br />
#define RS PORTB,7 ;devieniere Read/Steuer<br />
#define RW PORTB,6 ;devieniere Read/Write<br />
.org 0x0000 ;Der nächste Befehl steht an Adresse 0x0000<br />
INIT: ;INIT-Label<br />
INITLCD:<br />
ldi R16 , 0b11100011 ;Das Bitmuster 0xff in R16 laden<br />
out DDRB, R16 ;und in das Data Direction Register B schreiben<br />
ldi R16, 0b11111111 ;Das Bitmuster 0xf0 in R16 laden<br />
out DDRC, R16 ;und in das Data Direction Register C schreiben<br />
ldi R16, 0b11111111 ;Das Bitmuster 0xff in R16 laden<br />
out DDRD, R16 ;und in das Data Direction Register D schreiben<br />
rcall WARTEN_10m ;40ms Pause<br />
rcall WARTEN_10m<br />
rcall WARTEN_10m<br />
rcall WARTEN_10m<br />
cbi RS ;LCD soll Steuerbefehl erhalten<br />
cbi RW ;LCD soll lesen<br />
ldi R16, 0x39<br />
rcall ILC1 ;Enable LCD1<br />
rcall WARTEN_10u<br />
rcall ILC1<br />
rcall WARTEN_1m<br />
rcall WARTEN_1m<br />
rcall WARTEN_1m<br />
rcall WARTEN_1m<br />
rcall WARTEN_1m<br />
rcall ILC1<br />
rcall WARTEN_10u<br />
ldi R16, 0x14 ;8-Bit-Interface, 2-zeilig, 5*7-Font<br />
rcall ILC1<br />
rcall WARTEN_10u ;100us Pause<br />
Seite 15