beginner_de

Avr-Asm-Tutorial S. 121
; +----+
; | R1 | Eingabezahl, im Beispiel $FF
; | FF |
; +----+
; +----+----+----+
; | R4 | R3 | R2 | Multiplikant 502 = $00 01 F6
; | 00 | 01 | F6 |
; +----+----+----+
;
;
; +----+----+----+
; | R7 | R6 | R5 | Resultat, im Beispiel 128.010
; | 01 | F4 | 0A |
; +----+----+----+
fpconv8m:
clr R4 ; Setze den Multiplikant auf 502
ldi rmp,$01
mov R3,rmp
ldi rmp,$F6
mov R2,rmp
clr R7 ; leere Ergebnisregister
clr R6
clr R5
fpconv8m1:
or r1,R1 ; Prüfe ob noch Bits 1 sind
brne fpconv8m2 ; Noch Einsen, mach weiter
ret ; fertig, kehre zurück
fpconv8m2:
lsr R1 ; Schiebe Zahl nach rechts (teilen durch 2)
brcc fpconv8m3 ; Wenn das niedrigste Bit eine 0 war, dann überspringe den
Additionsschritt
add R5,R2 ; Addiere die Zahl in R4:R3:R2 zum Ergebnis
adc R6,R3
adc R7,R4
fpconv8m3:
lsl R2 ; Multipliziere R4:R3:R2 mit 2
rol R3
rol R4
rjmp fpconv8m1 ; Wiederhole für das nächste Bit
; Runde die Zahl in R7:R6 mit dem Wert von Bit 7 von R5
fpconv8r:
clr rmp ; Null nach rmp
lsl R5 ; Rotiere Bit 7 ins Carry
adc R6,rmp ; Addiere LSB mit Übertrag
adc R7,rmp ; Addiere MSB mit Übertrag
mov R2,R7 ; Kopiere den Wert nach R2:R1 (durch 256 teilen)
mov R1,R6
ret
; Wandle das Wort in R2:R1 in einen ASCII-Text in R5:R6:R7:R8
; +----+----+
; + R2 | R1 | Eingangswert 0..500
; +----+----+
; +----+----+
; | R4 | R3 | Dezimalteiler
; +----+----+
; +----+----+----+----+
; | R5 | R6 | R7 | R8 | Ergebnistext (für Eingangswert 500)
; | '5'| '.'| '0'| '0'|
; +----+----+----+----+
fpconv8a:
clr R4 ; Setze Dezimalteiler auf 100
ldi rmp,100
mov R3,rmp
rcall fpconv8d ; Hole ASCII-Ziffer durch wiederholtes Abziehen
mov R5,rmp ; Setze Hunderter Zeichen
ldi rmp,10 ; Setze Dezimalteiler auf 10