extrn Ausgabe : FAR
.MODEL Small
.386
.STACK 100h
.DATA
EinAus DD 1.569
Faktor DW 10
CWR DW ?
CWDEF DW 037Fh
Text2 DB "Ergebnis: $"
.CODE
Start: mov ax,@data
mov ds,ax ;DS initialisieren
fld EinAus ;EinAus auf Stack
fild Faktor ;Faktor laden
fmul ;mit 10 multiplizieren
fstcw CWR ;CW-Register nach CWR
mov ax,CWR
or ax,0000110000000000b ;Setz Bits 10&11!
; 5432109876543210 <- Bit Nr. (Hilfe)
mov CWR,ax
fclex ;Exceptions vermeiden
fldcw CWR
fistp EinAus ;Runden & nach EinAus
fclex
fldcw CWDEF ;Control-Word-Reg. zurücksetzen
wait ;anstelle von fstcw und wait auch finit möglich
mov ah,09h
mov dx,OFFSET Text2
int 21h ;Text ausgeben
mov eax,EinAus
call Ausgabe ;Ergebnis anzeigen
mov ah,4Ch
int 21h ;Programm beenden
END Start
¤ Dauer der Verarbeitung: 0.17 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|