MASchmidt icon

5 - Zahl als Byte dezimal ausgeben (ohne führende '0')

MASchmidt | PRO | 12/13/17 10:22:56 PM UTC | 0 ⭐ | 147 👁️ | Never ⏰ | []
text |

640 B

|

None

|

0 👍

/

0 👎

JMP start
zahl:
DB 23		;Zahl als Byte
DB 0
start:
MOV A,[zahl] 	;Zahl(Byte) nach A kopieren
MOV D,234 	;Output auf "Einer" setzen
.loop:
MOV C,A 	;A nach C kopieren
DIV 10 		;A durch 10 teilen
JZ ende
MOV B,A 	;Ergebnis nach B kopieren
MUL 10 		;A x 10
SUB C,A		;A von C subtrahieren
ADD C,48	;C + 48 für die ASCII Ziffer
MOV [D],C	;Ziffer ausgeben
DEC D		;Output Adresse um 1 senken für die nächste Ziffer
MOV A,B		;B wieder nach A kopieren
JNZ .loop
 ende:
MOV B,A 	;Ergebnis nach B kopieren
MUL 10 		;A x 10
SUB C,A		;A von C subtrahieren
ADD C,48	;C + 48 für die ASCII Ziffer
MOV [D],C	;Ziffer ausgeben
HLT		;Programm stoppen

Comments