MASchmidt

5 - Zahl als Byte dezimal ausgeben

Dec 13th, 2017
44
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. JMP start
  2. zahl:
  3. DB 23 ;Zahl als Byte
  4. DB 0
  5. start:
  6. MOV A,[zahl] ;Zahl(Byte) nach A kopieren
  7. MOV D,234 ;Output auf "Einer" setzen
  8. .loop:
  9. MOV C,A ;A nach C kopieren
  10. DIV 10 ;A durch 10 teilen
  11. MOV B,A ;Ergebnis nach B kopieren
  12. MUL 10 ;A x 10
  13. SUB C,A ;A von C subtrahieren
  14. ADD C,48 ;C + 48 für die ASCII Ziffer
  15. MOV [D],C ;Ziffer ausgeben
  16. DEC D ;Output Adresse um 1 senken für die nächste Ziffer
  17. MOV A,B ;B wieder nach A kopieren
  18. CMP D,231 ;solange Output Adresse != 231 ist weitermachen
  19. JNE .loop
  20. HLT ;Programm stoppen
Advertisement
Add Comment
Please, Sign In to add comment