Ответ 1
Числа с плавающей запятой обрабатываются в специальных регистрах в специальном процессоре (FPU) и сохраняются в специальном формате и не могут рассматриваться как целые числа (WriteInt). Числа с плавающей запятой содержат дополнительную информацию о знаке числа и экспоненте. Само число изменяется на число от 1 до 2 с соответствующим показателем, где ведущий 1 обычно скрыт. Посмотрите здесь только для двойного формата: https://en.wikipedia.org/wiki/Double-precision_floating-point_format. Эти цифры вряд ли будут точными.
По крайней мере, начиная с 11 лет библиотека Irvine32 предоставляет функцию WriteFloat, чтобы показать значение регистра F0U ST0 в экспоненциальной форме. Он не всплывает или не освобождает этот регистр.
Изменить
call writeint
к
fld posx ; Load floating point number into ST0
call WriteFloat ; Write ST0
ffree st[0] ; Free ST0 - don't forget it!
call Crlf ; New line
fld negx ; Load floating point number into ST0
call WriteFloat ; Write ST0
ffree st[0] ; Free ST0 - don't forget it!
call Crlf ; New line
Если в вашей библиотеке нет WriteFloat, я предлагаю загрузить и установить новейшие файлы с домашней страницы Irvine: http://www.kipirvine.com/asm/examples/index.htm ( Примеры программ и исходный код библиотеки ссылок для Седьмой версии). Вы также можете использовать другую библиотеку, например. C-runtime library (msvcrt.inc и msvcrt.lib) или Библиотека FPU Раймонда Филиатре.
Если вы не можете использовать библиотеку, которая предоставляет процедуры с плавающей запятой, вам необходимо самостоятельно преобразовать числа:
INCLUDE irvine32.inc
.DATA
a REAL4 3.0
b REAL4 7.0
cc REAL4 2.0
posx REAL4 0.0
negx REAL4 0.0
buf BYTE 1024 DUP (?)
.CODE
double2dec PROC C USES edi ; Args: ST(0): FPU-register to convert, EDI: pointer to string
LOCAL CONTROL_WORD:WORD, TEN:WORD, TEMP:WORD, DUMMY:QWORD
; modifying rounding mode
fstcw CONTROL_WORD
mov ax, CONTROL_WORD
or ah, 00001100b ; Set RC=11: truncating rounding mode
mov TEMP, ax
fldcw TEMP ; Load new rounding mode
; Check for negative
ftst ; ST0 negative?
fstsw ax
test ah, 001b
jz @F ; No: skip the next instructions
mov byte ptr [edi], '-' ; Negative sign
add edi, 1
@@:
FABS ; Abs (upper case to differ from C-library)
; Separate integer and fractional part & convert integer part into ASCII
fst st(1) ; Doubling ST(0) - ST(1)=ST(0)
frndint ; ST(0) to integer
fsub st(1), st(0) ; Integral part in ST(0), fractional part in ST(1)
; Move 10 to st(1)
mov TEN, 10
fild TEN
fxch
xor ecx, ecx ; Push/pop counter
@@: ; First loop
fst st(3) ; Preserve ST(0)
fprem ; ST(0) = remainder ST(0)/ST(1)
fistp word ptr TEMP ; ST(3) -> ST(2) !
push word ptr TEMP
inc ecx
fld st(2) ; Restore ST(0)
fdiv st(0), st(1)
frndint ; ST(0) to integer
fxam ; ST0 == 0.0?
fstsw ax
sahf
jnz @B ; No: loop
fxch st(2) ; ST(0) <-> ST(2) (fractional part)
ffree st(2)
ffree st(3)
@@: ; Second loop
pop ax
or al, '0'
mov [edi], al
inc edi
loop @B ; Loop ECX times
mov byte ptr [edi], '.' ; Decimal point
add edi, 1
; Isolate digits of fractional part and store ASCII
get_fractional:
fmul st(0), st(1) ; Multiply by 10 (shift one decimal digit into integer part)
fist word ptr TEMP ; Store digit
fisub word ptr TEMP ; Clear integer part
mov al, byte ptr TEMP ; Load digit
or al, 30h ; Convert digit to ASCII
mov byte ptr [edi], al ; Append it to string
add edi, 1 ; Increment pointer to string
fxam ; ST0 == 0.0?
fstsw ax
sahf
jnz get_fractional ; No: once more
mov byte ptr [edi], 0 ; Null-termination for ASCIIZ
; clean up FPU
ffree st(0) ; Empty ST(0)
ffree st(1) ; Empty ST(1)
fldcw CONTROL_WORD ; Restore old rounding mode
ret ; Return: EDI points to the null-terminated string
double2dec ENDP
main proc
; Solve quadratic equation - no error checking
; The formula is: -b +/- squareroot(b2 - 4ac) / (2a)
fld1 ; Get constants 2 and 4
fadd st,st ; 2 at bottom
fld st ; Copy it
fmul a ; = 2a
fmul st(1),st ; = 4a
fxch ; Exchange
fmul cc ; = 4ac
fld b ; Load b
fmul st,st ; = b2
fsubr ; = b2 - 4ac
; Negative value here produces error
fsqrt ; = square root(b2 - 4ac)
fld b ; Load b
fchs ; Make it negative
fxch ; Exchange
fld st ; Copy square root
fadd st,st(2) ; Plus version = -b + root(b2 - 4ac)
fxch ; Exchange
fsubp st(2),st ; Minus version = -b - root(b2 - 4ac)
fdiv st,st(2) ; Divide plus version
fstp posx ; Store it
fdivr ; Divide minus version
fstp negx ; Store it
; Write the results
fld posx ; Load floating point number into ST0
lea edi, buf ; EDI: pointer to a buffer for a string
call double2dec ; Convert ST0 to buf and pop
mov edx, edi ; EDX: pointer to a null-terminated string
call WriteString ; Irvine32
call Crlf ; Irvine32: New line
fld negx ; Load floating point number into ST0
lea edi, buf ; EDI: pointer to a buffer for a string
call double2dec ; Convert ST0 to buf and pop
mov edx, edi ; EDX: pointer to a null-terminated string
call WriteString ; Irvine32
call Crlf ; Irvine32: New line
exit ; Irvine32: ExitProcess
main ENDP
end main