Wurzel Nachkommastellen als BCD...?
Moin...
Das folgende Programm soll aus einer Zahl, die an Port 0 eingegeben wird, die Wurzel berechnen, die Vorkommastellen in den Speicherbereich 70-72 schreiben, die ersten 5 Nachkommastellen in den Speicherbereich 73-77.
Die Wurzel berechnen klappt soweit. Die Zahl vor dem Komma wird auch korrekt eingetragen. Nur bei den Nachkommastellen hab ich irgendwie ein Problem, welches sich in einem riesigen '?' offenbart.
Im Register 2 werden ja die Vorkommastellen binär gespeichert. im Register R0 'anscheinend' der "Rest". Nur wie krieg ich diesen Rest dann als BCD-Nachkommastellen hin? Irgendwo hab ich nen Denkfehler...
(CPU ist ein normaler 8051, KEIL-Compiler)
Code:
ISEG AT 70H
ErgebnisBCD: DS 3
ISEG AT 73H
ErgebnisBCDKomma: DS 5
CSEG AT 0
;NUMH = R0
;NUML = R1
;SQRT = R2
;SUB = R3
;CNTR = R4
;WURZEL BERECHNEN
init: MOV R0,#0
MOV R1,P0
MOV R2,#0
MOV R4,#4
BCK: MOV A,R2
CLR C
RLC A
SETB C
RLC A
MOV R3,A
CLR C
MOV A,R1
RLC A
MOV R1,A
MOV A,R0
RLC A
MOV R0,A
CLR C
MOV A,R1
RLC A
MOV R1,A
MOV A,R0
RLC A
MOV R0,A
CLR C
SUBB A,R3
JC Skip
MOV 0,A
SKIP: MOV A,R2
CPL C
RLC A
MOV R2,A
DJNZ R4,BCK
;AB HIER AUFLÖSEN NACH BCD, VORKOMMAANTEIL
BCDStart: MOV R1,#(ErgebnisBCD+2)
MOV R5,#3
MOV A,R2
BCDLoop1: Call BCDDiv10
MOV @R1,B
DEC R1
DJNZ R5,BCDLoop1
JMP BCDStartNext
BCDDiv10: MOV B,#10
DIV AB
RET
BCDStartNext: MOV A,#0
MOV R1,#(ErgebnisBCD+2)
ADD A,@R1
DEC R1
ADD A,@R1
DEC R1
ADD A,@R1
;AB HIER AUFLÖSEN NACH BCD, DEZIMALSTELLEN
[...?...]
JMP INIT
ENDE:
JMP ENDE
END
