下面是关于浮点运算指令方面的一例,程序对三角形的面积和周长进行了计算!!!
.386
.model flat, stdcall  ;32 bit memory model
option casemap :none  ;case sensitive

include m1.inc

.code

start:

        invoke GetModuleHandle,NULL
        mov                hInstance,eax

    invoke InitCommonControls
        invoke DialogBoxParam,hInstance,IDD_DIALOG1,NULL,addr DlgProc,NULL
        invoke ExitProcess,0

;########################################################################

DlgProc proc hWin:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM

        mov                eax,uMsg
        .if eax==WM_INITDIALOG

        .elseif eax==WM_COMMAND
             .if wParam==IDC_OK
                     invoke GetDlgItemText,hWin,IDC_A,addr lpA,sizeof lpA ;得到边长a
                     invoke FpuAtoFL,addr lpA,0,DEST_FPU;转化为数值
                     invoke GetDlgItemText,hWin,IDC_B,addr lpB,sizeof lpB
                     invoke FpuAtoFL,addr lpB,0,DEST_FPU
                     invoke GetDlgItemText,hWin,IDC_C,addr lpC,sizeof lpC
                     invoke FpuAtoFL,addr lpC,0,DEST_FPU
                fld st(0)    ;判定所输入数据是否是三角形
                fld st(2)
                fadd
                fcomp st(3)
                fstsw  ax       ; 将状态字保存
                and eax,100000000B  ；;测试状态字的第9位，若为1则说明两边之和小于了第三边
                jnz ErrorHandle                        fld st(0)
                fld st(3)
                fadd
                fcomp st(2)
                fstsw  ax
                and eax,100000000B
                jnz ErrorHandle       
                fld st(1)
                fld st(3)
                fadd
                fcomp st(1)
                fstsw  ax
                and eax,100000000B
                jnz ErrorHandle           ;判定结束
                fadd ;边长相加
                     fadd ;边长相加
                     invoke FpuFLtoA,0,4,addr lpL,SRC1_FPU or SRC2_DIMM
                     invoke SetDlgItemText,hWin,IDC_L,addr lpL
                     fild LTWO
                     fdiv
                     fld st(0)
                     invoke FpuAtoFL,addr lpA,0,DEST_FPU
                     fsub
                     fld st(1)
                     invoke FpuAtoFL,addr lpB,0,DEST_FPU
                     fsub
                     fld st(2)
                     invoke FpuAtoFL,addr lpC,0,DEST_FPU
                     fsub
                     fmul
                     fmul
                     fmul
                     fsqrt
                     invoke FpuFLtoA,0,4,addr lpS,SRC1_FPU or SRC2_DIMM
                     invoke SetDlgItemText,hWin,IDC_S,addr lpS
                     ret
                     ErrorHandle:
                     invoke MessageBox,hWin,addr lpMessage,NULL,MB_OK and MB_ICONERROR
                     ret

             .endif
        .elseif eax==WM_CLOSE
                invoke EndDialog,hWin,0
        .else
                mov                eax,FALSE
                ret
        .endif
        mov                eax,TRUE
        ret

DlgProc endp

end start

下面是inc文件的内容;

include windows.inc
include kernel32.inc
include user32.inc
include Comctl32.inc
include shell32.inc
include fpu.inc
includelib fpu.lib
includelib kernel32.lib
includelib user32.lib
includelib Comctl32.lib
includelib shell32.lib

DlgProc                        PROTO        :HWND,:UINT,:WPARAM,:LPARAM

.const

IDD_DIALOG1                        equ 101
IDC_A                                equ 1003
IDC_B                                equ 1004
IDC_OK                                equ 1005
IDC_C                                equ 1006
IDC_S                                equ 1008
IDC_L                                equ 1010
LTWO dw 2
lpMessage db "不是三角形",0
;#########################################################################
.data?
hInstance                        dd ?
lpA db 10 dup(?)
lpB db 10 dup(?)
;#########################################################################
lpC db 10 dup(?)
lpL db 10 dup(?)
lpS db 10 dup(?)
附件是全部的源程序!!!

阿里云助力开发者！2核2G 3M带宽不限流量！6.18限时价，开 发者可享99元/年，续费同价！

上传的附件：

• m1.rar （6.48kb，38次下载）