大概就是这样的程序，太长了，不方便全发，请看懂的人和我联系。多谢！
AAA PROC NAER
FILD SPEEDH
FWAIT
MOV WMSL,100
FILD WMSL
FWAIT
FDIVP ST(1),ST
FWAIT
mov al,ds:byte ptr [macr]
MOV BL,AL
AND BX,1FH
test al,40h
jz not_f
mov bx,22
n_b: SHL BX,1
MOV AX,CS:[BX+OFFSET BDD]
MOV WUNIT,AX
FILD WMSL
FWAIT
FMULP ST(1),ST
FISTP SPEEDH
FWAIT
RET
AAA ENDP
