ADC_Test.asm

;*-------------------------------------------------
;* 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
;--------------------------------------------------  
.include "tn4313def.inc"
.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
.org  0x0000
rjmp main      ; zum Hauptprogramm
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
rcall  ad_init      ; A/D-Konverter initialisieren
rcall legende1
rcall legende2
rjmp  endlos1
endlos1:
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        
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
.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
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
.db "Messwert_2 = ",0
ad_init:
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
adc_on1:
push  temp1
push  temp2
clr  temp1
out  OCR1AH,  temp1
out  OCR1AL,  temp1
cbi  portb,  0
sbi  ddrb,  0
clr  temp
rjmp  pause_
pause_:
dec   temp
brne  pause_
cbi  ddrb,  0
ldi  temp,  0x00
rjmp  adc_on2
adc_on2:
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:
out  OCR1AH,  temp1
out  OCR1AL,  temp1
pop  temp2
pop  temp1
;**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
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
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
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
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
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
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
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
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
enable:        ; Enableimpuls-Generierung
sbi daten, ena    ; Portbit "Enable" auf high
nop          ; Zeitverzoegerung mindestens
nop          ; 1000 ns laut Datenblatt LCD
cbi daten, ena    ; Portbit "Enable" auf low zuruecksetzen
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
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
rcall  char2lcd
subi  temp2,  -100; zaehlt 100 wieder dazu, da die
ldi  temp1, 0x30    ; Schleife davor 100 zuviel abzog
;          ; Anzahl Zehner abzaehlen
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
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    
wait1:      ; Verzoegerungsschleifen fuer LCD
rcall wait3
rcall wait3
rcall wait3
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
Kontakt/Impressum – Datenschutzerklärung – Nutzungsbedingungen – Werbung auf Mikrocontroller.net