Hilfe welche Assembler Befehle sind richtig? [Archiv] - ProgForum.com

Archiv verlassen und diese Seite im Standarddesign anzeigen : Hilfe welche Assembler Befehle sind richtig?

Import-Script

18.01.2002, 20:34

Ich habe folgendes Problem beim AT 89C2051. Über eine serielle Schnittstelle werden ASCII Zeichen der Reihe nach abgeholt. Es handelt sich um HZE.D, ZE.D und E.D (Hunderter, Zehner , Einer, Dezimalzahl). Aber vorher ist nicht bekannt, ob z.B. 111.1, 11.1 oder 1.1 ankommt. Daher wird die erste Zahl immer in 33H Hunderter, 34 H Zehner und 33H Einer geschrieben und durch den identifizierten Dezimalpunkt ggf. nachträglich wieder auf 0 gesetzt. Der nachfolgende Quelltext funktioniert aber nur, wenn drei Stellen vor dem Dezimalpunkt geliefert werden. Der Befehl MOV 33H,A MOV 34H,A MOV 35H,A schreibt nicht ein ankommendes Zeichen in drei Register und z.B. der Befehl MOV 33H,#0 überschreibt ggf. die vorsorgliche Eintragung nicht mit 0. Was mache ich falsch? LIES1: LCALL GETCHR ;lesen 1.Stelle MOV 33H,A ;Hunderter MOV 34H,A ;vorsorglich auch Zehner schreiben MOV 35H,A ;vorsorglich auch Einer schreiben LCALL GETCHR ;lesen 2.Stelle CJNE A,#2EH,LIES2 ;es kommt keine Dezimalstelle MOV 33H,#0 ;es kommt eine Dezimalstelle setze Hunderter auf 0 MOV 34H,#0 ;es kommt eine Dezimalstelle setze Zehner auf 0 LCALL GETCHR ;lesen 3.Stelle MOV 36H,A ;Dezimale schreiben SJMP LCALL ;mit CALL weitermachen LIES2: MOV 34H,A ;Zehner MOV 35H,A ;vorsorglich auch Einer schreiben LCALL GETCHR ;3.Stelle lesen und abholen CJNE A,#2EH,LIES3 ;es kommt keine Dezimalstelle MOV 33H,#0 ;es kommt eine Dezimalstelle, setze Hunderter auf 0 LCALL GETCHR ;4.Stellen lesen und abholen MOV 36H,A ;Dezimale schreiben SJMP LCALL ;mit CALL weitermachen LIES3: MOV 35H,A ;DST-Einer lesen LCALL GETCHR ;4.Stelle lesen und abholen( muss Punkt sein ) LCALL GETCHR ;5.Stelle lesen und abholen MOV 36H,A ;Dezimale schreiben CALL: Weiter im Programmablauf

Import-Script

19.01.2002, 02:05

Habe ich das richtig verstanden, daß hinterher die Hunderter an 33h, Zehner an 34h... "." an 36h und die Dezimalstelle an 37h stehen soll? probier doch mal <TABLE><TR><TD>lade_zahl:</TD><TD>mov r0,#33h</TD><TD>; vorläufige Zieladresse </TD></TR><TR><TD>_nextc:</TD><TD>lcall getchr </TD></TR><TR><TD></TD><TD>mov @r0,a </TD></TR><TR><TD></TD><TD>inc R0 </TD></TR><TR><TD></TD><TD>cjne a, #2eh, _nextc</TD><TD>; bis nach "." weiterlesen </TD></TR><TR><TD>; "." ist gespeichert</TD><TD> jetzt noch 1 Ziffer: </TD></TR><TR><TD></TD><TD>lcall getchr </TD></TR><TR><TD></TD><TD>mov @r0, a </TD></TR><TR><TD>; jetzt lesen wir das</TD><TD> rückwärts aus und</TD><TD> speichern ab 37h: </TD></TR><TR><TD></TD><TD>mov r1, #38h</TD><TD>; eins weiter als Zieladresse </TD></TR><TR><TD>_copy:</TD><TD>mov a, @r0 </TD></TR><TR><TD></TD><TD>dec r1 </TD></TR><TR><TD></TD><TD>mov @r1, a </TD></TR><TR><TD></TD><TD>dec r0 </TD></TR><TR><TD></TD><TD>cjne r0, #32h, _copy</TD><TD>; solange bis 33h (Startadresse) kopiert wurde </TD></TR><TR><TD>; die übrigen Bytes</TD><TD> noch löschen: </TD></TR><TR><TD></TD><TD>clr A </TD></TR><TR><TD>_clear:</TD><TD>cjne r1, #33h, _fertig</TD><TD>; 33h schon bearbeitet? </TD></TR><TR><TD></TD><TD>dec r1 </TD></TR><TR><TD></TD><TD>mov @r1, a </TD></TR><TR><TD></TD><TD>sjmp _clear </TD></TR><TR><TD>_fertig:</TD><TD></TD><TD>; Ende! </TD></TR><TR><TD></TD></TR></TABLE> nochmal in Prosa: Die ankommenden Bytes werden ab 33h aufsteigend gespeichert. Ende wird durch "." und noch 1 Ziffer erkannt. Jetzt wird der empfangene String von hinten so kopiert, daß er bei 37h aufhört und schließlich noch vorne mit 0-Bytes aufgefüllt. Ciao!

Import-Script

19.01.2002, 08:17

Hallo, die HZE.D sollen nicht verschoben werden. Nur nachdem bekannt ist (durch erkennen ein Dezimalpunkt kam), sollen z.B. HZE auf 0 gesetzt werden, wenn die Zahl z.B. 0,5 ist. MfG Wolfgang

Import-Script

20.01.2002, 01:20

Nach Deiner Mail weiß ich mehr: Die "." sollen nicht gespeichert werden. Also verkürzen wir den Puffer etwas: - hinter dem Kommentar "jetzt noch eine Ziffer" noch ein "dec r0", dann überschreiben wir mit der letzten Ziffer den "." wieder. - die Kopierroutine bleibt, allerdings initialisieren wir r1 ein Byte niedriger (wir brauchen ja keins für den "."): mov r1, #37h (statt 38h). Alles andere kann so bleiben. Jetzt stehen in 33h die Hunderter, in 34h die Zehner, in 35h die Einer und in 36h die Zehntel. Die vorher nicht übertragenen Stellen (H, Z, evtl. E) sind mit dem Wert 0 belegt. Zu beachten ist noch, daß die Ziffern noch in ASCII vorliegen, also 30h für "0", 31h für "1" usw. Ist dies nicht erwünscht, würde ich während des Kopierens (also zwischen "dec r1" und "mov @r1, a") noch ein "anl a, #0fh" einfügen. Gruß Bernd

Import-Script

20.01.2002, 08:22

Hallo, ich verstehe ein wenig die Zusammenhänge, nicht die Befehle, aber nach dem Programmieren hat es funktioniert. ASCII Werte sind richtig für die Weiterverarbeitung. Eine Bitte noch, die nächsten gelesenen Werte müssen nur in HZE und nicht Dezimalzahl gespeichert werden in 37H Hunderter, 38H Zehner und in 39H Einer. Gleiche Problemstellung, es ist vorher nicht bekannt ob 1,2 oder 3 Stellen vor dem Dezimalpunkt sind, die Dezimalzahl danach wird nicht benötigt. Du benutzt Register, die im Programm vorher und danach auch noch genutzt werden, wird das Probleme geben? Vielen Dank Wolfgang

Import-Script

20.01.2002, 14:56

Das mit den Zahlen ohne Dezimalpunkt ist problematisch, irgendwie muß man ja erkennen, wann die Zahl zuende ist (Nullbyte, Return, Newline...) Falls Du in den Registern A, R1, R0 Werte hast, die Du /vor/ dem Aufruf der Routine setzt und die Du /nachdem/ die Routine zurückkehrt brauchst, dann solltest Du das ganze mit push acc (für A) push 0 (für R0) push 1 (für R1) ... pop 1 / 0 / acc einrahmen (Achtung, man holt die Sachen in umgekehrter Reihenfolge vom Stack). Ciao

Import-Script

20.01.2002, 19:24

Hallo Bernd, ich glaube ich habe mich unpräzise ausgedrückt. Ein Dezimalpunkt kommt auch hier. Zum Erkennen wann die Zahl zu Ende ist, kann er also genutzt werden, er soll aber ebenfalls nicht gespeichert werden und die Dezimalstelle danach auch nicht. Gruß Wolfgang

Import-Script

20.01.2002, 19:51

Hallo Wolfgang, willst Du die Zahlen wirklich im Dezimalformat verwenden ? Üblicherweise wird doch intern im Binärformat gerechnet. Dann sieht eine Zahleneingabe so aus: val = val * 10 + digit D.h. zu Anfang wird eine Null gespeichert und dann wird solange der Wert mit 10 multipliziert und das neue Digit addiert, solange Digits empfangen werden. für 8 Bit könnte das so aussehen: wert equ 33h mov wert, #0 weiter: call getchr cjne a, #'.', einlesen ret einlesen: xch a, wert mov b, #10 mul ab add a, wert mov wert, a jmp weiter Peter

Import-Script

20.01.2002, 21:48

Hallo Peter, ja im HZE Format, da es sich um Nautische Meilen handelt werden die Zahlen danach in KM umgerechnet und mit einem Sprachausgabechip angesagt. Gruß Wolfgang

Import-Script

21.01.2002, 02:05

Hallo Wolfgang, werth equ 33h wertz equ 34h werte equ 35h mov werth, #0 mov wertz, #0 mov werte, #0 weiter: call getchr cjne a, #'.', einlesen ret einlesen: xch a, werte xch a, wertz mov werth, a jmp weiter mich würde dann aber mal interessieren, wie Du die Umrechnung machst. Peter

Import-Script

21.01.2002, 19:41

Hallo Peter, danke, aber dein Quelltext bringt nicht das gewünschte Ergebnis. Die Lösung von Bernd ist sehr komplex, aber sie funktioniert. Vielleicht ist bei dir nur ein kleiner Fehler, den du schnell findest. Zur Erklärung: Es kommen über die serielle Schnittstelle ASCII Strings, die Zahlengruppen sind durch Komma getrennt. Die Zahlen werden einzeln abgeholt durch den Befehl „LCALL GETCHR“ und müssen dann verarbeitet werden. Noch mal das Problem: Bei deiner Lösung müssen HZE erkannt/ erfasst und abelegt werden, auch hier kommt eine Dezimalstelle und eine/ mehrere Dezimalzahlen, die jedoch nicht genutzt werden sollen. Die Auswertungsroute ist mehrere Seiten lang, schick mir eine Mail, dann hänge ich sie an. Gruß Wolfgang

Import-Script

21.01.2002, 23:43

Ich habs jetzt nicht getestet, aber sie sollte so funktionieren: "1.": H=0 Z=0 E=1 "12.": H=0 Z=1 E=2 "123.": H=1 Z=2 E=3 Ich dachte, so war es gewünscht. Hast Du es getestet ? Nochmal, wie rechnet man dezimal auf einem 8-Bitter ? Ich mach intern immer alles Binär und nur die Ein- und Ausgabe wandelt in oder von Dezimal. Peter