Datum: 09.03.2008 10:09
Hallo, ich habe ein Controllerboard mit einem Atmel 89C51RC2 Controller. Mit meinem Assembler Programm kann ich über ein Poti die Werte an der LCD von 0-255 ausgeben. Das Poti ist an Ain0 angeschlossen. Nun muss ich über ein zweites Poti ebenfalls die Werte erfassen und mit auf dem LCD ausgeben. Das Poti ist an Ain1 angeschlossen. Kann mir jemand zur Programmierung zum zweiten Poti helfen? Mein bisheriger Code sieht so aus
extern code ain0 extern code dezaus extern code initLCD extern code cursorpos extern code loeschen orl pcon,#80h mov th1,#243 mov tl1,#243 anl tmod,#00001111b orl tmod,#00100000b setb tr1 mov scon,#01010000b call initLCD call loeschen anf: mov A,#0 call cursorpos call ain0 ;Daten stehen in A mov R3,A ;save A mov B,#100 div AB ;1 steht in A,27 in B ADD A,#30h ;Zahl->ASCII lcall seraus mov A,B mov B,#10 div AB ;2 im Akku, 7 in B ADD A,#30h lcall seraus mov A,B ADD A,#30h lcall seraus mov A,#10 lcall seraus mov A,#13 lcall seraus mov A,R3 ; restore A mov p2, A call dezaus jmp anf seraus: mov sbuf,A warte: jnb ti, warte clr ti ret |
. Bin für jede Hilfe dankbar. Gruß Daniel
Datum: 09.03.2008 19:55
hier mal ein Versuch, der meinen zweiten Poti einlesen soll, aber nicht funktioniert
code at 0 include c51rd2.inc extern code ain0 extern code dezaus extern code initLCD extern code cursorpos extern code loeschen orl pcon,#80h mov th1,#243 mov tl1,#243 anl tmod,#00001111b orl tmod,#00100000b setb tr1 mov scon,#01010000b call initLCD call loeschen anf: mov A,#0 call cursorpos call ain0 ;Daten stehen in A mov R3,A ;save A mov B,#100 div AB ;1 steht in A,27 in B ADD A,#30h ;Zahl->ASCII lcall seraus ; H mov A,B mov B,#10 div AB ;2 im Akku, 7 in B ADD A,#30h lcall seraus; Z ; mov a, '.' ; lcall seraus mov A,B ADD A,#30h lcall seraus; E mov A,#10 lcall seraus mov A,#' '; ... statt 13 lcall seraus mov A,R3 ; restore A mov p2, A ; Binärausgabe LED call dezaus ; LCD mov A,#8 call cursorpos call ain1 ;Daten stehen in A mov R3,A ;save A mov B,#100 div AB ;1 steht in A,27 in B ADD A,#30h ;Zahl->ASCII lcall seraus mov A,B mov B,#10 div AB ;2 im Akku, 7 in B ADD A,#30h lcall seraus mov A,B ADD A,#30h lcall seraus mov A,#10 lcall seraus mov A,#13 lcall seraus mov A,R3 ; restore A ;mov p2, A call dezaus jmp anf seraus: mov sbuf,A warte: jnb ti, warte clr ti ret |
Datum: 09.03.2008 20:00
Hier noch mein addahilf Programm, welches ich hier eingebunden habe
;ADDAhilf.a51**************************************** erweitert Jan2004 ;************* Hilfsprogramme für den AD- und DA- Umsetzer mit I2C-Bus ***** ;*************************************************************************** code include C51RD2.inc ;****** verwendete Adressen und Abkürzungen für den AD- und DA-Umsetzter *** Adr_lies EQU 10010001b ;1001 fest, 000 durch Platine, 1 Wert lesen Adr_schreib EQU 10010000b ;1001 fest, 000 durch Platine, 0 Wert lesen Contr_Ain0 EQU 01000000b ;4 einzelne ADU, Kanal0 Contr_Ain1 EQU 01000001b ;4 einzelne ADU, Kanal1 Contr_Ain2 EQU 01000010b ;4 einzelne ADU, Kanal2 Contr_Ain3 EQU 01000011b ;4 einzelne ADU, Kanal3 delay EQU 10 ; Zeitverzögerung der Datenübertragung nach jedem Bit ; Normalwert 10, minimal 1 möglich = schneller ; diese Verzögerung wird nur wirksam bei $set (fast=0) $set (fast=0) ; maximale Schnelligkeit mit fast=1 reg7 data 07 ; als Register verwendete Speicherstellen reg0 data 00 ;****** hier die verwendeten I2C-Leitungen eintragen ************************ daten EQU p3.5 ;SDA, i2c-Datenleitung clock EQU p3.4 ;SCL, i2c-Taktleitung ; Trigger: EQU p3.6 ;Hilfsausgang für das Oszilloskop ;*************************************************************************** public Ain0,Ain1,Ain2,Ain3,Aout ; für normale Ein- und Ausgaben public initAD0,initAD1,initAD2,initAD3,ADin_fast,stoppAD ; für schnelle Eingaben public initDA,DAout_fast,stoppDA ; für schnelle Ausgaben public initi2c,starti2c,stoppi2c,ausgabei2c ; I2C-Bus-Routinen public einleseni2c_ohne_ack,einleseni2c_mit_ack ;******* Verwendung der Hilfsprogramme (Beispiele) *************************** ; Übergaberegister ist immer der Akku ; -------------- einfache Ein- und Ausgaben -------------------------- ; lcall Ain0 ; Einlesen analoger Eingang 0 (0 bis 5V) ; mov P2,a ; Ausgeben des digitalisierten Wertes an P2 ; mov a,P1 ; 8 Schalterstellungen einlesen und ; lcall Aout ; Ausgeben als Analogwert 0 bis 5V an Aout ; -------------- schnelle Eingaben ---------------------------------- ; mov r0,#80h ; Anfangsadresse int. RAM ; lcall initAD0 ; Analogeingang0 initialisieren ;in: lcall ADin_fast ; einen Analogwert einlesen ; mov @r0,a ; Wert im RAM ablegen ; inc r0 ; nächste Speicherstelle ; cjne r0,#0ffh,in ; Endwert? ; lcall stoppAD ; Ende AD-Protokoll ; -------------- schnelle Ausgaben --------------------------------- ; mov r0,#80h ; Anfangsadresse int. RAM ; lcall initDA ; Analogausgang initialisieren ;out: mov a,@r0 ; Wert aus RAM holen ; lcall DAout_fast ; als Analogwert ausgeben ; inc r0 ; nächste Speicherstelle ; cjne r0,#0ffh,out; Endwert? ; lcall stoppDA ; Ende DA-Protokoll ;************ Analoge Eingänge einlesen *************************** Ain0: mov a,#Contr_Ain0 ;Controll-Byte Kanal0 lcall Ain ret Ain1: mov a,#Contr_Ain1 ;Controll-Byte Kanal1 lcall Ain ret Ain2: mov a,#Contr_Ain2 ;Controll-Byte Kanal2 lcall Ain ret Ain3: mov a,#Contr_Ain3 ;Controll-Byte Kanal3 lcall Ain ret Ain: lcall initAD ; Analogeingang initialisieren lcall einleseni2c_ohne_ack ; Wert holen und einlesen beenden lcall stoppi2c ; Protokoll beenden ret initAD0: push acc mov a,#Contr_Ain0 ;Controll-Byte Kanal0 lcall initAD pop acc ret initAD1: push acc mov a,#Contr_Ain1 ;Controll-Byte Kanal1 lcall initAD pop acc ret initAD2: push acc mov a,#Contr_Ain2 ;Controll-Byte Kanal2 lcall initAD pop acc ret initAD3: push acc mov a,#Contr_Ain3 ;Controll-Byte Kanal3 lcall initAD pop acc ret initAD: ; Analogeingang initialisieren push acc push acc ; Controll-Byte mit Kanalnummer retten lcall initI2C ; Initialisierung der Leitungen (Grundzustand) lcall starti2c ; Startbedingung des I2C-Bus: Jetzt gehts los mov a,#Adr_schreib ; Adresse des IC und Schreibwunsch (zur Kanalwahl) lcall ausgabei2c ; ausgeben pop acc ; Controll-Byte mit Kanalnummer lcall ausgabei2c ; ausgeben lcall stoppi2c lcall starti2c mov a,#Adr_lies ; Adresse des IC und Lesewunsch lcall ausgabei2c ; ausgeben lcall einleseni2c_mit_ack ; Wandlung starten pop acc ret ;ADin_fast siehe unten wie einleseni2c_ohne_ack stoppAD: ; Ende AD-Protokoll push acc lcall einleseni2c_ohne_ack ; Ende dem I2c-IC mitteilen lcall stoppi2c pop acc ret Aout: ; Analoge Ausgabe lcall initDA ; mit Initialisierung lcall DAout_fast lcall stoppDA ; und Abschluss des Protokolls initDA: ; Analogausgang initialisieren push acc lcall initi2c lcall starti2c mov a,#Adr_schreib lcall ausgabei2c mov a,#Contr_Ain0 lcall ausgabei2c pop acc ret ; DAout_fast wie ausgabei2c siehe unten ; stoppDA wie stoppi2c siehe unten initI2C: ;Leitungen in den Grundzustand High setb Daten setb Clock lcall warte ret starti2c: ;Startbedingung ;setb Trigger ;nop ;clr Trigger clr daten lcall warte clr clock lcall warte ret ;*********** Byte im Akku ausgeben **************************************** ;*********** Adressen- oder Datenausgabe ********************************** ;*********** Acknoledge-Bit = Carry nach Up-Ende ************************** DAout_fast: ausgabei2c: push reg7 mov reg7,#08h ;Rundenzähler aloop: mov c,acc.7 ;Datenbit aus Akku holen mov daten,c ;und ausgeben lcall warte setb clock ;Daten sind gültig rl a ;Daten links schieben => nächstes Datenbit lcall warte clr clock ;Datenausgabe ist beendet lcall warte djnz reg7,aloop setb daten ;Leitung freigeben (high) für Acknowledge-Bit lcall warte setb clock ;Slave kann bestätigen lcall warte mov c,daten ;Acknoledge-Bit einlesen clr clock ; pop reg7 ret ADin_fast: ; Wert der letzten Wandlung holen, steht dann im Akku einleseni2c_mit_ack: lcall lies8bit ;Datenbyte der letzten Wandlung lesen und Konvertierung des neuen Datenbytes starten clr daten ;Acknowledge-Bit senden lcall warte setb clock ;Ackn. gültig lcall warte clr clock ;Ackn. beendet ;clr daten ret einleseni2c_ohne_ack: ; kein Ack kündigt dem IC an, dass dies die letzte Wandlung war lcall lies8bit ;aktuelles Datenbyte lesen setb daten ;kein Acknowledge-Bit senden, dies ist das letzte Datenbyte lcall warte setb clock ;Ackn. gültig lcall warte clr clock ;Ackn. beendet lcall warte clr daten ret ;einleseni2c: ; alte Routine, wird nicht mehr gebraucht ; lcall einleseni2c_mit_ack ;DA-Wandlung startet ; lcall einleseni2c_ohne_ack ;Wert abholen und Ende des Zugriffs ankündigen ; ret lies8bit: ;8Bit seriell einlesen und im Akku ablegen push reg7 setb daten ;Leitung freigeben (high) für Daten mov reg7,#08h ;Rundenzähler eloop: setb clock ;Daten sind gültig lcall warte mov c,daten ;lesen mov acc.7,c ;Datenbit in den Akku rl a ;Daten links schieben => nächstes Datenbit lcall warte clr clock ;Daten lesen ist beendet lcall warte djnz reg7,eloop pop reg7 ret stoppDA: stoppi2c: setb clock ;Stoppbedingung lcall warte setb daten lcall warte ret warte : ;Zeitverzögerung $if (fast=1) ret $else push reg0 mov reg0,#delay wloop: djnz reg0,wloop pop reg0 ret $endif end |
Datum: 09.03.2008 20:06
Daniel Moeb wrote: > hier mal ein Versuch, der meinen zweiten Poti einlesen soll, aber nicht > funktioniert Das ist keine sinnvolle Aussage. Und das Codefragment ist auch nicht brauchbar. - Code als Anhang - Code compilierbar, d.h. alle nötigen includes, externe Funktionen. Peter
Datum: 09.03.2008 20:15
Was sagt dein Debugger?
Email-Benachrichtigung aktivierenAntwort schreiben
Die Angabe einer Email-Adresse ist freiwillig. Wenn Sie automatisch per Email über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.
Wichtige Regeln - erst lesen, dann posten!
- Suchfunktion und Betreffsuche benutzen - vielleicht gibt es schon einen ähnlichen Beitrag
- Aussagekräftigen Betreff wählen
- Im Betreff angeben um welchen Controllertyp es geht (AVR, PIC, ...)
- Groß- und Kleinschreibung verwenden
- Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang
- JPEG-Dateien (.jpg) nur für Fotos und Scans verwenden
- Schaltpläne, Screenshots usw. als PNG oder GIF anhängen
Formatierung (mehr Informationen...)
- [c]C-Code[/c]
- [avrasm]AVR-Assembler-Code[/avrasm]
- [pre]vorformatierter Text (z.B. Code in anderen Sprachen)[/pre]
- [math]Formel in LaTeX-Syntax[/math]
- [[Titel]] - Link zu Artikel