Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4721 Akyltist 1 
;-----------------------------------------------------------------------------+
2 
; Функция преобразования строки в вещественное число [ by ManHunter / PCL ]   |
3 
;-----------------------------------------------------------------------------|
4 
; Параметры:                                                                  |
5 
;   lpStr - указатель на исходную строку в формате ASCIIZ                     |
6 
;   lpResult - указатель на переменную-приемник значения                      |
7 
; На выходе:                                                                  |
8 
;   EAX = 1 - строка успешно преобразована                                    |
9 
;   EAX = 0 - строка не может быть преобразована в число                      |
10 
;-----------------------------------------------------------------------------+
11 
proc    string2float lpStr:DWORD, lpResult:DWORD
12 
    ; Локальные переменные
13 
    locals
14 
      dot    dd ?   ; Указатель на дробную часть
15 
      exp    dd ?   ; Указатель на экспоненту
16 
      digit  dd ?   ; Цифра
17 
    endl
18 
 
19 
    pusha
20 
 
21 
    ; Проверка строки на валидность
22 
    mov     [digit],1
23 
 
24 
    mov     [exp],0
25 
    mov     [dot],0
26 
    mov     esi,[lpStr]
27 
    ; Минус или плюс может быть только в начале
28 
    cmp     byte [esi],'-'
29 
    je      @f
30 
    cmp     byte [esi],'+'
31 
    jne     .loc_chk_loop
32 
@@:
33 
    inc     esi
34 
 
35 
    ; После знака не может быть нуля
36 
    cmp     byte [esi],0
37 
    je      .loc_chk_error
38 
.loc_chk_loop:
39 
    ; В строке должны быть цифр, экспонента и не более одной точки
40 
    lodsb
41 
    or      al,al
42 
    jz      .loc_chk_complete
43 
    cmp     al,'e'
44 
    je      .loc_chk_exp
45 
    cmp     al,'E'
46 
    je      .loc_chk_exp
47 
    cmp     al,'.'
48 
    je      .loc_chk_dot
49 
    cmp     al,'0'
50 
    jb      .loc_chk_error
51 
    cmp     al,'9'
52 
    ja      .loc_chk_error
53 
    jmp     .loc_chk_loop
54 
 
55 
.loc_chk_dot:
56 
    ; Точка в строке уже есть?
57 
    cmp     [dot],0
58 
    ; Строка имеет некорректный формат
59 
    jne     .loc_chk_error
60 
 
61 
    ; Экспонента уже есть?
62 
    cmp     [exp],0
63 
    ; Строка имеет некорректный формат
64 
    jne     .loc_chk_error
65 
 
66 
    ; Указатель на дробную часть
67 
    mov     [dot],esi
68 
 
69 
    jmp     .loc_chk_loop
70 
 
71 
.loc_chk_exp:
72 
    ; Экспонента уже есть?
73 
    cmp     [exp],0
74 
    ; Строка имеет некорректный формат
75 
    jne     .loc_chk_error
76 
 
77 
    ; Указатель на начало экспоненты
78 
    mov     [exp],esi
79 
 
80 
    ; Сразу после экспоненты не может быть нуля
81 
    cmp     byte [esi],0
82 
    je      .loc_chk_error
83 
 
84 
    ; После экспоненты может быть знак
85 
    cmp     byte [esi],'-'
86 
    je      @f
87 
    cmp     byte [esi],'+'
88 
    jne     .loc_chk_loop
89 
@@:
90 
    inc     esi
91 
 
92 
    ; Сразу после минуса не может быть нуля
93 
    cmp     byte [esi],0
94 
    je      .loc_chk_error
95 
 
96 
    ; Проверить следующий символ
97 
    jmp     .loc_chk_loop
98 
 
99 
.loc_chk_error:
100 
    ; Строка не является числом
101 
    mov     [digit],0
102 
    jmp     .loc_ret
103 
 
104 
.loc_chk_complete:
105 
    ; Инициализация сопроцессора
106 
    finit
107 
 
108 
    ; Начальное значение числа
109 
    fldz
110 
 
111 
    ; Множитель и делитель
112 
    mov     [digit],10
113 
    fild    dword [digit]
114 
 
115 
    ; Запись значений до запятой
116 
    mov     esi,[lpStr]
117 
 
118 
    ; В начале строки минус?
119 
    cmp     byte [esi],'-'
120 
    je      @f
121 
    cmp     byte [esi],'+'
122 
    jne     .loc_before_dot
123 
@@:
124 
    inc     esi
125 
    ; Преобразование числа до запятой
126 
.loc_before_dot:
127 
    lodsb
128 
    ; Конец строки?
129 
    or      al,al
130 
    jz      .loc_complete
131 
 
132 
    cmp     al,'.'
133 
    je      .loc_complete_before_dot
134 
    cmp     al,'e'
135 
    je      .loc_exp
136 
    cmp     al,'E'
137 
    je      .loc_exp
138 
 
139 
    ; Очередная цифра
140 
    sub     al,'0'
141 
    movzx   eax,al
142 
    mov     [digit],eax
143 
 
144 
    ; Записать
145 
    fild    dword [digit]
146 
    fxch    st2
147 
    fmul    st0,st1
148 
    fxch    st2
149 
    fadd    st2,st0
150 
 
151 
    ffree   st0     ; Почистить стек
152 
    fincstp
153 
 
154 
    jmp     .loc_before_dot
155 
 
156 
    ; Преобразование дробной части числа
157 
.loc_complete_before_dot:
158 
    ; Дробная часть есть?
159 
    cmp     [dot],0
160 
    je      .loc_complete_after_dot
161 
 
162 
    ; Экспонента есть?
163 
    cmp     [exp],0
164 
    je      @f
165 
 
166 
    ; Указатель на начало экспоненты
167 
    mov     esi,[exp]
168 
    jmp     .loc_start_after_dot
169 
@@:
170 
    ; Иначе перенести указатель на конец строки
171 
    xor     ecx,ecx
172 
    dec     ecx
173 
    xor     eax,eax
174 
    mov     edi,esi
175 
    repne   scasb
176 
 
177 
    mov     esi,edi
178 
 
179 
.loc_start_after_dot:
180 
    std
181 
    dec     esi
182 
    dec     esi
183 
 
184 
    ; Дробная часть
185 
    fldz
186 
    fxch    st1
187 
.loc_after_dot:
188 
    lodsb
189 
    ; Конец дробной части?
190 
    cmp     al,'.'
191 
    je      .loc_complete_after_dot
192 
 
193 
    ; Очередная цифра
194 
    sub     al,'0'
195 
    movzx   eax,al
196 
    mov     [digit],eax
197 
 
198 
    ; Записать
199 
    fild    dword [digit]
200 
    fadd    st2,st0
201 
    fxch    st2
202 
    fdiv    st0,st1
203 
    fxch    st2
204 
 
205 
    ffree   st0     ; Почистить стек
206 
    fincstp
207 
 
208 
    jmp     .loc_after_dot
209 
 
210 
.loc_complete_after_dot:
211 
    ; Сбросить флаг направления
212 
    cld
213 
 
214 
    ffree   st0     ; Почистить стек
215 
    fincstp
216 
 
217 
    ; Сложить дробную и целую часть
218 
    fadd    st1,st0
219 
 
220 
.loc_exp:
221 
    ; Экспонента есть?
222 
    cmp     [exp],0
223 
    je      .loc_complete
224 
 
225 
    ; Получить значение экспоненты
226 
    xor     ecx,ecx
227 
 
228 
    mov     esi,[exp]
229 
    ; В начале строки минус?
230 
    cmp     byte [esi],'-'
231 
    je      @f
232 
    cmp     byte [esi],'+'
233 
    jne     .loc_start_exp
234 
@@:
235 
    inc     esi
236 
.loc_start_exp:
237 
    lodsb
238 
    or      al,al
239 
    jz      .loc_end_exp
240 
 
241 
    sub     al,'0'
242 
    movzx   eax,al
243 
    imul    ecx,10
244 
    add     ecx,eax
245 
 
246 
    jmp     .loc_start_exp
247 
.loc_end_exp:
248 
 
249 
    or      ecx,ecx
250 
    jz      .loc_complete
251 
 
252 
    ffree   st0     ; Почистить стек
253 
    fincstp
254 
 
255 
    mov     [digit],10
256 
    fild    dword [digit]
257 
 
258 
    ; Делить или умножать?
259 
    mov     esi,[exp]
260 
    cmp     byte [esi],'-'
261 
    je      .loc_exp_divide
262 
 
263 
.loc_exp_multiple:
264 
    fmul    st1,st0
265 
    loop    .loc_exp_multiple
266 
    jmp     .loc_complete
267 
 
268 
.loc_exp_divide:
269 
    fdiv    st1,st0
270 
    loop    .loc_exp_divide
271 
 
272 
.loc_complete:
273 
    ffree   st0     ; Почистить стек
274 
    fincstp
275 
 
276 
    ; В начале строки минус?
277 
    mov     esi,[lpStr]
278 
    cmp     byte [esi],'-'
279 
    jne     @f
280 
 
281 
    ; Изменить знак числа
282 
    fchs
283 
@@:
284 
    ; Записать значение в ячейку памяти
285 
    mov     eax,[lpResult]
286 
    ; Если требуется повышенная точность, то приемник
287 
    ; должен иметь размер QWORD, а следующую команду
288 
    ; надо заменить на fstp qword [eax]
289 
    fstp    tword [eax]
290 
 
291 
    ; Успешное преобразование
292 
    mov     [digit],1
293 
.loc_ret:
294 
    popa
295 
 
296 
    ; Результат преобразования
297 
    mov     eax,[digit]
298 
 
299 
    ret
300 
endp