Можете сказать почему неккоректно выводит значение с вершины стэка сопроцессора?

@танкист34 · Регистрация: 15.03.2013

Студворк — интернет-сервис помощи студентам

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
.286C
MODEL SMALL
STACK 256
DATASEG
x2 dq 3.14
CODESEG
include outfloat.asm
start:
finit
fld x2
push 2
call OutFloat
 
length_frac equ [bp+4]
ten equ word ptr [bp-2]
temp equ word ptr [bp-4]
 
OutFloat proc near
 
        enter 4, 0
        mov ten, 10
        ftst
        fstsw ax
        sahf
        jnc @positiv
        mov al, '-'
        int 29h
        fchs
@positiv:
        fld1
        fld st(1)
        fprem
        fsub st(2), st
        fxch st(2)
        xor cx, cx
@1:
        fidiv ten
        fxch st(1)
        fld st(1)
        fprem
        fsub st(2), st
        fimul ten
        fistp temp
        push temp
        inc cx
        fxch st(1)
        ftst
        fstsw ax
        sahf
        jnz @1
@2:
        pop ax
        add al, '0'
        int 29h
        loop @2
        fstp st
        fxch st(1)
        ftst
        fstsw ax
        sahf
        jz @quit
        mov al, '.'
        int 29h
        mov cx, length_frac
@3:
        fimul ten
        fxch st(1)
        fld st(1)
        fprem
        fsub st(2), st
        fxch st(2)
        fistp temp
        mov ax, temp
        or al, 30h
        int 29h
        fxch st(1)
        ftst
        fstsw ax
        sahf
        loopne @3
@quit:
        fstp
        fstp st
        leave
        ret 2
OutFloat endp

@Mikl___ · 03.11.2013, 09:23

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
; masm dos exe #
.MODEL small
.STACK 256
.DATA
x2 dt 3.1415926535897932384626433832795
string db 20 dup('$')
.CODE
.486
start:  mov ax,@data
    mov ds,ax
    mov es,ax
    fninit
    fld x2
    push 16
    call OutFloat
    mov ah,9
    mov dx,offset string
    int 21h
    mov ah,0
    int 16h
    mov ah,4Ch
    int 21h
OutFloat proc c length_frac:word
local ten:word
local temp:word
 
    lea di,string
    mov ten, 10
    ftst
    fstsw ax
    sahf
    jnc @positiv
    mov al,'-'
    stosb
    fchs
@positiv:fld1
    fld st(1)
    fprem
    fsub st(2), st
    fxch st(2)
    xor cx,cx
@1:     fidiv ten
    fxch st(1)
    fld st(1)
    fprem
    fsub st(2), st
    fimul ten
    fistp temp
    push temp
    inc cx
    fxch st(1)
    ftst
    fstsw ax
    sahf
    jnz @1
@2:     pop ax
    add al,'0'
    stosb
    loop @2
    fstp st
    fxch st(1)
    ftst
    fstsw ax
    sahf
    jz @quit
    mov al, '.'
    stosb
    mov cx,length_frac
@3:     fimul ten
    fxch st(1)
    fld st(1)
    fprem
    fsub st(2), st
    fxch st(2)
    fistp temp
    mov ax,temp
    or al,30h
    stosb
    fxch st(1)
    ftst
    fstsw ax
    sahf
    loopne @3
@quit:  fstp st
    fstp st
    ret 
OutFloat endp 
end start

@танкист34 · 04.11.2013, 05:31 **[ТС]**

Mikl___ а можете сказать почему string именно 20 ?
и буква "с" после proc обозначает язык ?

@Mikl___ · 04.11.2013, 06:26

танкист34,

сделай string короче и посмотри, что из этого выйдет, честно говоря, я просто поставил 20 без предварительных расчетов, но если посчитать "знак"+"целая часть"+"разделяющая точка"+"16 знаков после запятой"+"терминирующий доллар"=20
при указании языка "с" ret автоматом преобразуется в "leave/retn 2" иначе придется "ручками" удалять после выполнения процедуры оставшийся в стеке аргумент

@танкист34 · 04.11.2013, 07:06 **[ТС]**

Mikl___ а эта же функция вывода вещественного числа по идее должна и корректно выводить целые числа?

@Mikl___ · 04.11.2013, 07:42

танкист34,
это твоя функция, ты попросил ПОПРАВИТЬ для x2=3.14 - я сделал для x2=3.1415926535897932384626433832795. О том чтобы искать ошибки и ПЕРЕДЕЛЫВАТЬ функцию чтобы она "корректно выводила целые числа", реагировала на NAN, QNAN ("нечисла"), "бесконечность" и сигнализировала об ошибках речи не было. Давай делай сам

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@танкист34 -23 / 0 / 2 Регистрация: 15.03.2013 Сообщений: 328
	04.11.2013, 05:31 [ТС]
	Mikl___ а можете сказать почему string именно 20 ? и буква "с" после proc обозначает язык ? 0

@Mikl___ Ушел с форума 16373 / 7685 / 1080 Регистрация: 11.11.2010 Сообщений: 13,759
	04.11.2013, 06:26
	танкист34, сделай string короче и посмотри, что из этого выйдет, честно говоря, я просто поставил 20 без предварительных расчетов, но если посчитать "знак"+"целая часть"+"разделяющая точка"+"16 знаков после запятой"+"терминирующий доллар"=20 при указании языка "с" ret автоматом преобразуется в "leave/retn 2" иначе придется "ручками" удалять после выполнения процедуры оставшийся в стеке аргумент 1

@танкист34 -23 / 0 / 2 Регистрация: 15.03.2013 Сообщений: 328
	04.11.2013, 07:06 [ТС]
	Mikl___ а эта же функция вывода вещественного числа по идее должна и корректно выводить целые числа? 0

@Mikl___ Ушел с форума 16373 / 7685 / 1080 Регистрация: 11.11.2010 Сообщений: 13,759
	04.11.2013, 07:42
	танкист34, это твоя функция, ты попросил ПОПРАВИТЬ для x2=3.14 - я сделал для x2=3.1415926535897932384626433832795. О том чтобы искать ошибки и ПЕРЕДЕЛЫВАТЬ функцию чтобы она "корректно выводила целые числа", реагировала на NAN, QNAN ("нечисла"), "бесконечность" и сигнализировала об ошибках речи не было. Давай делай сам 0