;*-------------------------------------------------
;* Analog-Digital-Wandlung
;* mit Analog-Komparator
;* - - - - - - - - - - - - - - - - - - - - - - - -
;* Port B Bit 0 RC-Glied 1uF/10 kOhm
;* Port B Bit 1 Mess-Spannung
;* Port B Bit 3 Timer-PWM-Ausgang
;* MCU ATTiny4313, Takt 4 MHz
;* PortD LCD Ausgabe: 	R/W=GND
;* PD7 PD6 PD5 PD4 PD3 PD2 PD1 PD0
;* n/a LED ena rs  D7  D6  D5  D4
;* Adapter auf LCD-Port:
;* PD7 PD6 PD5 PD4 PD3 PD2 PD1 PD0
;*  D7  D6  D5  D4  LED n/a ena rs
; ATtiny4313 memory use summary [bytes]:
; Segment   Begin    End  Code Data Used Size  Use%
;--------------------------------------------------
;[.cseg] 0x000000 0x0002a6 650   28  678 4096 16.6%
;[.dseg] 0x000060 0x000060   0    0    0  256  0.0%
;[.eseg] 0x000000 0x000000   0    0    0  256  0.0%
;Assembly complete, 0 errors. 0 warnings
;--------------------------------------------------  
;
.nolist
.include "tn4313def.inc"
.list
;
.def	temp = r16	; Temporaerregister 1
.def	temp1 = r17	; Temporaerregister 2
.def	temp2 = r18	; Temporaerregister 3 
.def	temp3 = r19	; Temporaerregister 4 
.equ daten = portd	; PortD nur 7 Bit Breite, Bit 7 fehlt
.equ rs = 4			; 0bn00x0000 Portbit Register Select
.equ ena = 5		; 0bn0x00000 Portbit Enable
.equ licht = 6      ; 0bnx000000 Portbit LCD-Beleuchtung
.equ zeit0 = 200    ; Zeitschleifen Ladewerte
.equ zeit1 = 65535
.cseg
.org	0x0000
rjmp main			; zum Hauptprogramm
;
main:
ldi	temp,	low(ramend)	; Stackpointer initialisieren
out	spl,	temp    	 
ldi	temp,	high(ramend) 
out	sph,	temp    	; 
ldi	temp,	0xFF		; Ports einrichten 
out	ddrb,	temp		; PortB A/D 
out portb, 	temp		; Pullups setzen
out ddrd, 	temp		; PortD Ausgabe LCD
out portd,  temp		; Pullups setzen	
rcall lcdinit
ldi	temp,	0x18		; Watchdog enable (1<<WDCE)|(1<<WDE);=dec24 change-ena/+enable
out	WDTCR,	temp
ori	temp,	(1<<WDE)|(1<<WDP2)|(1<<WDP1);0x0E; Prescaler Set (1<<WDE)|(1<<WDP2)|(1<<WDP1)
out	WDTCR,	temp		; ca. 1 sec timeout ;=dec30
wdr
; 
rcall	ad_init			; A/D-Konverter initialisieren
rcall legende1
rcall legende2
rjmp	endlos1
;
endlos1:
wdr
rcall	adc_on1
lsr	temp
push	temp1
push	temp
ldi temp, 0x8D
rcall comd2lcd
pop temp
mov	temp1,	temp
rol temp1		; Max. Anzeige 255 statt 127
rcall	bin2dec
push	temp
ldi temp, 0xCD
rcall comd2lcd
pop temp
mov	temp1,	temp
rol temp1		; Max. Anzeige 255 statt 127
rcall	bin2dec
mov	temp1,	temp
pop	temp1
clr	temp
rjmp endlos1
;
legende1:			; Festtext: "Messwert_1 ="
ldi	temp,	0x80		; Positionierung Anfang
rcall	comd2lcd		; Zeile 1, Spalte 1
rcall	wait2
ldi	ZL,	LOW(text1*2)	; Adresse des Strings in den
ldi	ZH,	HIGH(text1*2)	; Z-Pointer laden
rcall	print			; Funktion print aufrufen
rcall	wait3
ret				
;
print:
lpm				; erstes Byte des Strings nach R0 lesen
mov temp, r0			; R0 auf 0 testen
cpi temp, 0x00	; alternativer Befehl
breq	print_end		; wenn 0, dann zu print_end
mov temp1, temp		; Datenausgabe hier nur ueber temp1
rcall	char2lcd
adiw	ZL:ZH,	1		; Adresse des Z-Pointers um 1 erhoehen
rjmp	print			; zum Anfang springen, um naechstes 
;				; Byte aus dem cseg-Label text1;zu holen
print_end:
rcall	wait3
ret
;
text1:
.db "Messwert_1 = ",0
;
legende2:			; Festtext: "Messwert_2 ="
ldi	temp,	0xC0		; Positionierung Anfang
rcall	comd2lcd		; Zeile 1, Spalte 1
rcall	wait2
ldi	ZL,	LOW(text2*2)	; Adresse des Strings in den
ldi	ZH,	HIGH(text2*2)	; Z-Pointer laden
rcall	print1			; Funktion print aufrufen
rcall	wait3
ret				
;
print1:
lpm	temp, Z+			; erstes Byte des Strings nach temp lesen
tst temp				; temp auf 0 testen
breq	print_end		; wenn 0, dann zu print_end
mov temp1, temp		; Datenausgabe hier nur ueber temp1
rcall	char2lcd
rjmp	print1			; zum Anfang springen, um naechstes 
;				; Byte aus dem cseg-Label text1;zu holen
text2:
.db "Messwert_2 = ",0
;
ad_init:
wdr
push 	temp
;ldi temp, 0x00
;out ddrb, temp
cbi	ddrb, 0
;out portb, temp
cbi	portb,	0
cbi	ddrb,	1
cbi	portb,	1
;ldi temp, 0b00001000
;out ddrb,temp
sbi	ddrb,	3
clr	temp
out	OCR1AH,	temp
out	OCR1AL,	temp
ldi	temp,	0x81
out	TCCR1A,	temp
ldi	temp,	0x01
out	TCCR1B,	temp
ldi	temp,	0x13
out	ACSR,	temp
pop	temp
ret
;
adc_on1:
wdr
push	temp1
push	temp2
clr	temp1
out	OCR1AH,	temp1
out	OCR1AL,	temp1
cbi	portb,	0
sbi	ddrb,	0
clr	temp
rjmp	pause_
;
pause_:
wdr
nop
dec 	temp
brne	pause_
cbi	ddrb,	0
ldi	temp,	0x00
rjmp	adc_on2
;
adc_on2:
wdr
in	temp2,	TIFR
sbrs	temp2,	7
rjmp	adc_on2
ori	temp2,	0x80
out	TIFR,	temp2
out	OCR1AH,	temp1
out	OCR1AL,	temp
sbic	ACSR, ACO
rjmp	adc_on3
cpi	temp,	0xFF
breq	adc_on3
inc	temp
rjmp	adc_on2
;
adc_on3:
wdr
out	OCR1AH,	temp1
out	OCR1AL,	temp1
pop	temp2
pop	temp1
ret
;
;**LCD-Initialisierung - LCD - Ausgabe-Routinen**
lcdinit:
rcall wait1			; LCD Power On Self Reset abwarten
push temp			; Sicherung Temporaer- und 		
push temp1			; Statusregister auf Stapel
in temp1,SREG
push temp1
rcall lcd_reset		; LCD-Bus-Reset
rcall lcd_achtbit	; LCD-Init: acht Bit	
rcall lcd_acht_vier	; LCD-Init: acht zu vier Bit
rcall lcd_vier_zwei	; LCD-Init: vier Bit, zwei Zeilen
rcall lcd_on_off	; LCD-Init: Displaypuffer aus
rcall lcd_clear		; LCD-Init: Anzeige löschen	
rcall lcd_entrymode	; LCD-Init: Entry Mode Set
pop temp1			; Wiederherstellung Temporaer-
out SREG,temp1		; und Statusregister
pop temp1
pop temp
ret
;
lcd_reset:			; LCD-Bus Reset
push temp			; Temporaerregister auf Stack retten
cbi daten, rs		; RS=0
ldi temp,0x00		; Reset des LCD-Ausgabeports	
out daten,temp
rcall enable		; Enable-Impuls toggeln
rcall wait3
pop temp			; Temporaerregister wiederherstellen
ret
;
lcd_achtbit:		; Acht-Bit-Init
push temp			; an folgende Portbelegung angepasst:
;					; PD7 PD6 PD5 PD4 PD3 PD2 PD1 PD0
;					; n/a LED ena rs D7  D6  D5  D4
ldi temp,0x03		; dreimal hex 0x03
cbi daten, rs		; RS=0
out daten,temp		; immer notwendig, wenn
rcall enable		; einmal 8/4-Bit-Modus
rcall wait3			; gewechselt wurde, dabei 
ldi temp, 0x03		; jedesmal			
cbi daten, rs		; RS=0
out daten,temp		; auf Port ausgeben
rcall enable		; Enable-Impuls senden, dann 
rcall wait3			; Pausen folgen lassen
ldi temp, 0x03		
cbi daten, rs
out daten,temp
rcall enable
rcall wait3
pop temp
ret
;
lcd_acht_vier:		; Acht-zu-Vier-Bit-Modus-Wechsel
push temp
cbi daten, rs		; RS=0
ldi temp,0x02		; zunaechst nur 4-Bit-Modus
out daten,temp		; obere vier Bit werden
rcall enable		; ignoriert, aber immer noch
rcall wait3			; 8-Bit-Befehlsbreite
pop temp
ret
;
lcd_vier_zwei:		; Vier-Bit_modus, zwei Zeilen
push temp
cbi daten,rs		; RS=0
ldi temp,0x28		; dann Vier-Bit-Modus, zweizeilig
rcall comd2lcd		; ab hier werden Steuerbefehle
rcall wait3			; auch im Vier-Bit-Modus ueber
pop temp			; Unterprogramm "comd2lcd" gesendet
ret			
;
lcd_on_off:			; On-off-Control
push temp			; Displaypuffer ein-, ausschalten
cbi daten, rs		; RS=0
ldi temp, 0x08		; Displaypuffer aus, Blinken aus, 
rcall comd2lcd		; kein Cursor
rcall wait3
pop temp
ret
;
lcd_clear:			; Anzeige loeschen
push temp
cbi daten, rs		; RS=0
ldi temp,0x01		; Anzeige wird im Space-Modus
rcall comd2lcd		; geloescht, dauert laenger... 
rcall wait3			; ... Pause laenger
rcall wait3
pop temp
ret
;
lcd_entrymode:		; Entry/Shift Mode Set
push temp
cbi daten, rs		; RS=0
ldi temp,0x06		; Cursor von rechts nach links
rcall comd2lcd		; kein Schieben
rcall wait3
cbi daten, rs		; RS=0
ldi temp,0x10		; kein Schieben, Cursorbewegung 
rcall comd2lcd		; nach rechts
rcall wait3
cbi daten, rs		; RS=0
ldi temp,0x0C		; Anzeige wieder einschalten
rcall comd2lcd		; Cursor aus, Blinken aus
rcall wait3
cbi daten, rs		; RS=0
ldi temp,0x01		; Anzeige nochmals loeschen
rcall comd2lcd
rcall wait3
pop temp
ret
;
char2lcd:			; gibt Charakter auf "temp" ueber LCD aus
cbi daten,licht		; LCD-Hintergrundbeleuchtung aus
push temp			; rettet temps auf Stapel
push temp1
mov temp, temp1
mov temp1, temp		; Kopie fuer Nachfolge-Operation
andi temp, 0xF0		; unteres Daten-Nibble ausblenden
swap temp			; an Portbelegung anpassen...
andi temp, 0x0F		; oberes Portbit-Nibble ausblenden
ori temp, 0b00010000 ; RS=high
out daten,temp		; Ausgabe D4-D7-Daten-Nibble auf Port D0-D3
rcall enable		; Enableimpuls 
andi temp1, 0x0F	; oberes Portbit-Nibble ausblenden	
ori temp1, 0b00010000 ; RS=high
out daten,temp1		; Ausgabe D0-D3-Daten-Nibble auf D0-D3
rcall enable		; Enableimpuls
sbi daten,licht		; Hintergrundbeleuchtung ein
pop temp1			; Zurueckholen von temps
pop temp
rcall wait2			; Verarbeitungszeit LCD abwarten
ret
;
comd2lcd:			; sendet Steuerzeichen auf "temp" an LCD
push temp			; rettet "temps" auf Stapel
push temp1
mov temp1,temp		; Kopie fuer Nachfolge-Operation
andi temp, 0xF0		; unteres Daten-Nibble ausblenden
swap temp			; an Portbelegung anpassen...
andi temp, 0x0F		; oberes Portbit-Nibble ausblenden; RS=0
out daten,temp		; Ausgabe D4-D7-Daten-Nibble auf Port D0-D3
rcall enable		; Enableimpuls 
andi temp1, 0x0F	; oberes Portbit-Nibble ausblenden; RS=0
out daten,temp1		; Ausgabe D0-D3-Daten-Nibble auf D0-D3
rcall enable		; Enableimpuls senden
pop temp1			; Zurueckholen von temps
pop temp
rcall wait2			; Verarbeitungszeit LCD abwarten
ret
;
enable:				; Enableimpuls-Generierung
nop
sbi daten, ena		; Portbit "Enable" auf high
nop					; Zeitverzoegerung mindestens
nop					; 1000 ns laut Datenblatt LCD
nop
nop
nop
nop
cbi daten, ena		; Portbit "Enable" auf low zuruecksetzen
nop
ret
;
bin2dec:			; Umwandlung "temp1" 8 bit binaer auf  
wdr					; ASCII dezimal, 3 Stellen mit fuehrenden
push	temp		; Nullen
push	temp1
push	temp2
mov	temp2,	temp1	; Anzahl Hunderter abzaehlen
ldi	temp1,	0x30	; ASCII "Ziffer Null" vorladen
rjmp	num_1
;
num_1:
subi	temp2,	100	; zieht Wert 100 von temp2 ab
brcs	num_2		; springt zur Ausgabe, wenn negativer
inc	temp1			; Uebertrag entstanden
rjmp	num_1		; Ausgabe Anzahl Schleifendurchlaeufe
;
num_2:
rcall	char2lcd
subi	temp2,	-100; zaehlt 100 wieder dazu, da die
ldi	temp1, 0x30		; Schleife davor 100 zuviel abzog
;					; Anzahl Zehner abzaehlen
num_3:
subi	temp2,	10	; zieht Wert 10 ab
brcs	num_4		; springt zur Ausgabe, wenn negativer
inc	temp1			; Uebertrag entstanden
rjmp	num_3		; Ausgabe Anzahl Schleifendurchlaeufe
;
num_4:
rcall	char2lcd
subi	temp2,	-10	; zaehlt 10 wieder dazu, da die
;					; Schleife davor 10 zuviel abzog
ldi	temp1, 0x30		; addiert ASCII-Code zu Einer hinzu
add	temp1,	temp2
rcall	char2lcd 	; Ausgabe Einer
pop	temp2
pop	temp1
pop	temp		
ret
;
wait1:			; Verzoegerungsschleifen fuer LCD
rcall wait3
rcall wait3
rcall wait3
ret
;
wait2:			;Verzoegerungsschleife 2
push xl
push xh
push temp			;Register sichern auf Stapel
push temp1			;Sicherung von Temporaerregistern
in temp1, SREG		;und Statusregister auf Stapel
push temp1			;bei Interrupts notwendig
ldi xl, low(zeit0)	;laedt Zaehlregisterpaar mit
ldi xh, high(zeit0)	;oben deklariertem Wert "Zeit0"
rjmp repeatx
;
wait3:			;Verzoegerungsschleife 3
push xl
push xh
push temp			;Register sichern auf Stapel
push temp1			;Sicherung von Temporaerregistern
in temp1, SREG		;und Statusregister auf Stapel
push temp1			;bei Interrupts notwendig
ldi xl, low(zeit1)	;laedt Zaehlregisterpaar mit
ldi xh, high(zeit1)	;oben deklariertem Wert "Zeit1"
rjmp repeatx
;
repeatx:			;16-Bit-Subtraktionsschleife:
sbiw xl:xh, 1		;decrementiert Doppelregister
brne repeatx		;zaehlt bis Null
pop temp1			;Wiederherstellung von
out SREG, temp1		;geretteten"Registern
pop temp1
pop temp
pop xh
pop xl
ret
;