Quelle fpu.asm Sprache: Masm

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

quality100%

¤ Dauer der Verarbeitung: 0.1 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.