6. Funktionseinheiten eines Computers / Mikrocomputers

Rechnergrundlagen Teil 2 - 66 - Prof. Dipl.-Ing. Komar
Das DEBUG-Programm unter DOS unterstützt nicht die Fehlersuche in Programmen für die FPU, denn bei
einem Haltepunkt werden nicht die Inhalte der FPU-Register dargestellt.
Außerdem kennt der DEBUG-Assemb ler nicht die symbolischen Format-Vereinbarungen DWORD und
QWORD, sondern es stehen nur BYTE , WORD und TBYTE (10 Byte) zur Verfügung .
Von den Anweisungen für die Vereinbarungen von Speicherbelegungen DB (1 Byte), DW (Word =2 Byte),
DD ( Doubl e Word =4 Byte), DQ (Vierfachwort = 8 Byte ) und DT ( 10 Byte) akzeptiert der DEBUG-
Assembler nur DB und DW.
Im unten dargestellte DEBUG-Assembler-Programmbeispiel wird mit dem Euklidischen Algorithmus der
größte gemeinsame Teiler zweier natürlicher Zahlen berechnet.
Im Beispiel werden die beiden Zahlen 65535 und 255 als jeweils 18-stellige Dezimalzahlen ( 10 Byte Packed
Dezimal Integer ) mittels DB-Anweisung im Speicher vereinbart, da dieses Beispielprogramm ohne Ein-und
Ausgabe arbeitet. Das Ergebnis wird als 10 Byte BCD-Wert ab Offset-Adresse 0230 abgespeichert.
Euklidischer Algorithmus (Programmablauf)
p:= Zahl 1
q:= Zahl 2
1. p mod q = r (Teilerrest r von p/q )
2. r = 0 ? �� ja, dann ist q der größte gemeinsamr Teiler ; END
3. nein, dann p:= q ; q:= r
4. gehe zu 1.
a 100
ORG 100
;Euklidischer Algorithmus mit FPU ( Programm EUKLFPU.ASM )
;
FBLD TBYTE PTR [210] ; q als 18-stellige BCD-Zahl nach ST(0)
FBLD TBYTE PTR [200] ; p auf Stapel nach ST, q dadurch nach ST(1)
;
FPREM ; ST = ST - ST(1) Teilschritt von p mod q = r
FSTSW [220] ; FPU-Statuswort nach DS:0220
TEST WORD PTR [220],400 ;C2-Flag auf 1 testen, modulo-Division beendet?
JNZ 108 ;********************
FTST ;modulo-Div. beendet aber ist r = ST = 0 ?
FSTSW [220]
TEST WORD PTR [220],4000 ;C3-Flag auf 1 testen, Teilerrest r = 0 ?
JNZ 128 ;*********************
FXCH ;Vertausche ST mit ST(1), p � q, q � r
JMP 108
FXCH ;Vertausche ST mit ST(1), r mit q
FBSTP [230] ;q in Speicher bringen für Ergebnisausgabe
MOV AX,4C00
INT 21 ;Programm beenden
;
ORG 200
DB 35,55,65,00,00,00,00,00,00,00 ;65535 in 10 Byte BCD
ORG 210
DB 55,02,00,00,00,00,00,00,00,00 ; 255
n euklfpu.com
r bx
0
r cx
200
w
q