;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;;A/D-Wandler mit Ausgabe an LCD Display ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; .include "m8def.inc" ;Definitionsdatei einbinden ; single ADC .def temp =R18 ;temporary storage register .def Txbyte =R19 ;Data to be transmitted .def Rxbyte =R20 ;Received data .DEF rmp = R21 ; als Vielzweckregister verwendet für Umwandlung .def temp1 = r25 .def temp2 = r26 .def temp3 = r22 .def temp4 = r23 .def rxbyte = r24 .org 0x0000 ldi r16, low(RAMEND) out SPL, r16 ldi r16, high(RAMEND) out SPH, r16 ldi r16, 0b00000011 ; 110.. = Internal Ref 2.56V letzen 3 stellen für analog eingang out ADMUX, r16 ; 010.. = AVCC , ca 5.07V ldi r16, 0b10001111 out ADCSR, r16 ldi temp1, 0xFF ;Port D = Ausgang out DDRD, temp1 rcall lcd_init ;Display initialisieren rcall lcd_clear ;Display l?schen loop: rcall delay rcall delay rcall delay rcall delay sbi ADCSR,ADSC rcall delay rcall delay rcall delay rcall delay loop2: sbis ADCSR,ADIF rjmp loop2 in r16, ADCL in r17, ADCH com r16 ;für Convertierung Invert aus 5V->0V 0V->5V mov temp1, r16 rcall lcd_data com r17 mov temp1, r17 rcall lcd_data andi r17,$03 mov rmp,r17 ; Wandle um ADC-Wert um mov R2,rmp mov rmp,r16 mov R1,rmp rcall fpconv10 ; Rufe die Umwandlungsroutine start: ldi temp1,0x80 ; Set DDRAM Adress to 0x40 rcall lcd_command ldi ZL, LOW(text*2) ; Adresse des Strings in den ldi ZH, HIGH(text*2) ; Z-Pointer laden rcall print ldi temp1, 0x85 rcall lcd_command mov temp1, r5 ; ASCII-Ergebnis steht in R5-R10 rcall lcd_data mov temp1, r6 rcall lcd_data mov temp1, r7 rcall lcd_data mov temp1, r8 rcall lcd_data mov temp1, r9 rcall lcd_data mov temp1, r10 rcall lcd_data rcall lcd_Cursor_home rjmp loop rjmp start ret print: lpm temp1,z+ ; Erstes Byte des Strings nach R0 lesen tst temp1 ; R0 auf 0 testen breq print_end ; wenn 0, dann zu print_end rcall lcd_data ; LCD-Sendefunktion aufrufen rjmp print ; wieder zum Anfang springen print_end: ret delay: push r16 push r17 in r16,SREG push r16 ldi r16, $FF;$84 ; 132 - 1,604,1,1=607 = +1=80125Takte dloop0: ldi r17, $FF;$C9 ; 201 - 1,1,1 = 603+1=604 dloop1: dec r17 brne dloop1 ; 0.02003 sec , ca 20 msec dec r16 brne dloop0 pop r16 out SREG,r16 pop r17 pop r16 ret ;UMWANDLUNGSROUTINE fpconv10: rcall fpconv10m ; Multipliziere mit 320.313 rcall fpconv10r ; Runden und Division mit 65536 rcall fpconv10a ; Umwandlung in ASCII-String rjmp fpconv10f ; Setze Dezimalpunkt und Nullabschluss fpconv10f: ldi rmp,'.' ; Setze Dezimalpunkt mov R6,rmp ldi rmp, 86 ;V mov R10,rmp ret ; Alles fertig ; Startbedingung: ; +---+---+ ; | R2+ R1| Eingabezahl ; +---+---+ ; +---+---+---+---+ ; | R6| R5| R4| R3| Multiplikant 320.313 = $00 04 E3 38 (00 02 80 A0) bei 2,56V ; | 00| 04| E3| 38| 328.000 (05 01 40) bei 5.12V ; +---+---+---+---+ ; +---+---+---+---+ ; |R10| R9| R8| R7| Resultat ; | 00| 00| 00| 00| ; +---+---+---+---+ ; fpconv10m: clr R6 ; Setze den Multiplikant auf 320.313 ldi rmp,$04 mov R5,rmp ldi rmp,$E3 mov R4,rmp ldi rmp,$38 mov R3,rmp clr R10 ; leere Ergebnisregister clr R9 clr R8 clr R7 fpconv10m1: mov rmp,R1 ; Prüfe ob noch Bits zu multiplizieren or rmp,R2 ; Irgendein Bit Eins? brne fpconv10m2 ; Noch Einsen, mach weiter ret ; fertig, kehre zurück fpconv10m2: lsr R2 ; Schiebe MSB nach rechts (teilen durch 2) ror R1 ; Rotiere LSB rechts und setze Bit 7 brcc fpconv10m3 ; Wenn das niedrigste Bit eine 0 war, ; dann überspringe den Additionsschritt add R7,R3 ; Addiere die Zahl in R6:R5:R4:R3 zum Ergebnis adc R8,R4 adc R9,R5 adc R10,R6 fpconv10m3: lsl R3 ; Multipliziere R6:R5:R4:R3 mit 2 rol R4 rol R5 rol R6 rjmp fpconv10m1 ; Wiederhole für das n?chste Bit ; ; Runde die Zahl in R10:R9 mit dem Wert von Bit 7 von R8 ; fpconv10r: clr rmp ; Null nach rmp lsl R8 ; Rotiere Bit 7 ins Carry adc R9,rmp ; Addiere LSB mit ?bertrag adc R10,rmp ; Addiere MSB mit ?bertrag mov R2,R10 ; Kopiere den Wert nach R2:R1 (durch 65536 teilen) mov R1,R9 ret ; ; Wandle das Wort in R2:R1 in einen ASCII-Text in R5:R6:R7:R8:R9:R10 ; ; +---+---+ ; + R2| R1| Eingangswert 0..5.000 ; +---+---+ ; +---+---+ ; | R4| R3| Dezimalteiler ; +---+---+ ; +---+---+---+---+---+---+ ; | R5| R6| R7| R8| R9|R10| Ergebnistext (für Einmgangswert 5,000) ; |'5'|'.'|'0'|'0'|'0'|$00| mit Null-Abschluss ; +---+---+---+---+---+---+ ; fpconv10a: ldi rmp,HIGH(1000) ; Setze Dezimalteiler auf 1.000 mov R4,rmp ldi rmp,LOW(1000) mov R3,rmp rcall fpconv10d ; Hole ASCII-Ziffer durch wiederholtes Abziehen mov R5,rmp ; Setze Tausender Zeichen clr R4 ; Setze Dezimalteiler auf 100 ldi rmp,100 mov R3,rmp rcall fpconv10d ; Hole die n?chste Ziffer mov R7,rmp ; Setze Hunderter Zeichen ldi rmp,10 ; Setze Dezimalteiler auf 10 mov R3,rmp rcall fpconv10d ; Hole die n?chste Ziffer mov R8,rmp ; Setze Zehner Zeichen ldi rmp,'0' ; Wandle Rest in ASCII-Ziffer um add rmp,R1 mov R9,rmp ; Setze Einer Zeichen ret ; ; Wandle Bin?rwort in R2:R1 in eine Dezimalziffer durch fortgesetztes ; Abziehen des Dezimalteilers in R4:R3 (1000, 100, 10) ; fpconv10d: ldi rmp,'0' ; Beginne mit ASCII-0 fpconv10d1: cp R1,R3 ; Vergleiche Wort mit Teiler cpc R2,R4 brcc fpconv10d2 ; Carry nicht gesetzt, subtrahiere Teiler ret ; fertig fpconv10d2: sub R1,R3 ; Subtrahiere Teilerwert sbc R2,R4 inc rmp ; Ziffer um eins erh?hen rjmp fpconv10d1 ; und noch einmal von vorne ; Ende der Flie?komma-Umwandlungsroutinen ; ; ; Ende des Umwandlungstestprogramms ; ;.include "lcd-routines.asm" ;LCD-Routinen werden hier eingefügt ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; LCD-Routinen ;; ;; ============ ;; ;; ;; ;; ;; ;; 4bit-Interface ;; ;; DB4-DB7: PD0-PD3 ;; ;; RS: PD4 ;; ;; E: PD5 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;.include "lcd-routines.asm" ;LCD-Routinen werden hier eingefügt ;sendet ein Datenbyte an das LCD lcd_data: mov temp2, temp1 ;"Sicherungskopie" für ;die Übertragung des 2.Nibbles swap temp1 ;Vertauschen andi temp1, 0b00001111 ;oberes Nibble auf Null setzen sbr temp1, 1<<4 ;entspricht 0b00010000 out PORTD, temp1 ;ausgeben rcall lcd_enable ;Enable-Routine aufrufen ;2. Nibble, kein swap da es schon ;an der richtigen stelle ist andi temp2, 0b00001111 ;obere Hälfte auf Null setzen sbr temp2, 1<<4 ;entspricht 0b00010000 out PORTD, temp2 ;ausgeben rcall lcd_enable ;Enable-Routine aufrufen rcall delay50us ;Delay-Routine aufrufen ret ;zurück zum Hauptprogramm ;sendet einen Befehl an das LCD lcd_command: ;wie lcd_data, nur ohne RS zu setzen mov temp2, temp1 swap temp1 andi temp1, 0b00001111 out PORTD, temp1 rcall lcd_enable andi temp2, 0b00001111 out PORTD, temp2 rcall lcd_enable rcall delay50us ret ;erzeugt den Enable-Puls lcd_enable: sbi PORTD, 5 ;Enable high nop ;3 Taktzyklen warten nop nop cbi PORTD, 5 ;Enable wieder low ret ;Und wieder zurück ;Pause nach jeder Übertragung delay50us: ;50us Pause ldi temp1, $42 delay50us_:dec temp1 brne delay50us_ ret ;wieder zurück ;Längere Pause für manche Befehle delay5ms: ;5ms Pause ldi temp1, $21 WGLOOP0: ldi temp2, $C9 WGLOOP1: dec temp2 brne WGLOOP1 dec temp1 brne WGLOOP0 ret ;wieder zurück ;Initialisierung: muss ganz am Anfang des Programms aufgerufen werden lcd_init: ldi temp3,50 powerupwait: rcall delay5ms dec temp3 brne powerupwait ldi temp1, 0b00000011 ;muss 3mal hintereinander gesendet out PORTD, temp1 ;werden zur Initialisierung rcall lcd_enable ;1 rcall delay5ms rcall lcd_enable ;2 rcall delay5ms rcall lcd_enable ;und 3! rcall delay5ms ldi temp1, 0b00000010 ;4bit-Modus einstellen out PORTD, temp1 rcall lcd_enable rcall delay5ms ldi temp1, 0b00000100 rcall lcd_command ldi temp1, 0b00101000 ;noch was einstellen... rcall lcd_command ldi temp1, 0b00001100 ;...nochwas... rcall lcd_command ldi temp1, 0b00000100 ;endlich fertig rcall lcd_command ret ;Sendet den Befehl zur Löschung des Displays lcd_clear: ldi temp1, 0b00000001 ;Display löschen rcall lcd_command rcall delay5ms ret lcd_Cursor_home: ldi temp1, 0b00000010 ;Cursor Home rjmp lcd_command ret text: .db "Uss= ",0 ; Stringkonstante, durch eine 0 abgeschlossen