/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 990
от 29.02.2008, 12:05

Вопрос № 124.593

Здрасьте! с асмом я знакома не много, но в основном работала с целыми числами... там легко организовывался ввод и вывод... теперь передо мной стоит задача работы с вещественными числами... как организовать ввод вещественного числа?

Отправлен: 24.02.2008, 12:03 Вопрос задала: Ерёмина Л.А. (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Zetasm Здравствуйте, Ерёмина Л.А.! В MASM32 можно использовать функции FpuAtoFL и FpuFLtoA из библиотеки FPULib. Они описаны в файле masm32helpfpulib.hlp В FASM можно использовать функции приведенные в приложении. Взяты с форума http://board.flatassembler.net/ Приложение: ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ; ascii2float (buffer, number) ; param: buffer -> Asciiz string ; number -> pointer for qword number ; notes: number range is 1e-300 to 1e300 ; all number before and after dot '.' are added with st=st*10+new_number ; when numbers end divide by 10 with count of numbers after dot ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- proc ascii2float buffer:DWORD, number:DWORD push eax ebx ecx edx esi mov esi,[buffer] fninit fldz or ecx,-1 ; digit count after '.' (-1 = none) xor ebx,ebx ; ebx: bit0 = mantissa sign , bit1 = exp sign xor edx,edx ; exponent .test_sign: cmp byte [esi],'+' je .sign_skip cmp byte [esi],'-' jne .new_char xor ebx,1 .sign_skip: inc esi jmp .test_sign .new_char: movzx eax,byte [esi] cmp al,'.' je .separator cmp al,',' jne .not_separator .separator: xor ecx,ecx jmp .next_number .not_separator: cmp al,'e' je .exponent cmp al,'E' je .exponent sub al,'0' cmp al,9 ja .number_end push eax fmul [f10] fiadd dword [esp] pop eax or ecx,ecx js .next_number inc ecx .next_number: inc esi jmp .new_char .exponent: inc esi cmp byte [esi],'+' je .exponent cmp byte [esi],'-' jne .exp_char xor ebx,2 jmp .exponent .exp_char: movzx eax,byte [esi] sub al,'0' cmp al,9 ja .number_end imul edx,10 add edx,eax inc esi cmp edx,30 jb .exp_char .number_end: cmp ecx,1 jl .add_exp fdiv [f10] dec ecx jmp .number_end .add_exp: test edx,edx jz .exp_ok dec edx test ebx,2 jz .exp_positive fdiv [f10] jmp .add_exp .exp_positive: fmul [f10] jmp .add_exp .exp_ok: test ebx,1 jz .sign_ok fchs .sign_ok: mov ebx,[number] fstp qword [ebx] pop esi edx ecx ebx eax ret endp ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ; float2ascii (number, count, buffer) ; put float value ?.? into buffer ; param: number -> pointer to qword number ; count -> count of digits to display after dot '.' ; buffer -> buffer for Asciiz string ; notes: number range is 1e-300 to 1e300 ; if number is below 1e-15 or above 1e15 use exponent format ; ToDo: better rounding (display 1.2 not 1.199999...) ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- proc float2ascii number:DWORD, count:DWORD, buffer:DWORD local old_cw:WORD, new_cw:WORD, packed_BCD:TBYTE, BCD_buffer[20]:BYTE push eax ebx ecx edx esi edi mov edi,[buffer] xor edx,edx ; exponent fninit fstcw [old_cw] mov ax,[old_cw] or ax,0000110000000000b ; no fpu rounding mov [new_cw],ax fldcw [new_cw] mov ebx,[number] fld qword [ebx] ftst fstsw ax sahf jp .error je .mantissa jnc .positive fabs mov byte [edi],'-' inc edi .positive: fcom [f1e_300] ; test if too small fstsw ax sahf jb .mantissa fcom [f1e_15] ; test if too many zeros fstsw ax sahf jb .test1 fcom [f1e15] ; test if too many digits fstsw ax sahf jb .mantissa .test10: fcom [f10] fstsw ax sahf jb .mantissa inc edx fdiv [f10] jmp .test10 .test1: fcom [f1] fstsw ax sahf jnb .mantissa dec edx fmul [f10] jmp .test1 .error: mov dword [edi],'ERRO' mov word [edi+4],'R' add edi,5 jmp .float_end .mantissa: lea ebx,[packed_BCD] fld st fbstp [ebx] lea esi,[BCD_buffer] mov ecx,9 ; 9 packed BCD numbers + sign byte .unpack_BCD: movzx eax,byte [ebx] inc ebx shl eax,4 shr al,4 mov [esi],ax add esi,2 loop .unpack_BCD lea ecx,[BCD_buffer] ; start of BCD buffer .skip_zero: dec esi cmp byte [esi],0 jne .number cmp esi,ecx ; don't skip last 0 ja .skip_zero .number: mov al,[esi] ; convert byte -> ASCII dec esi or al,'0' mov [edi],al inc edi cmp esi,ecx jae .number mov ecx,[count] ; digit count after dot or cl,cl je .float_end cmp cl,15 ; if over 15 it must be error jb .dot mov cl,8 ; use default 8 digits .dot: mov byte [edi],'.' inc edi .new_decimal: fld st ; digit = (st-int(st))*10 frndint fsubp ; use only decimal part fmul [f10] ; get first digit after dot fist dword [edi] ; and save it or byte [edi],'0' inc edi dec cl ; loop until all decimals are done jnz .new_decimal round_result = 0 if round_result = 1 fmul [f10] fist dword [edi] cmp byte [edi],5 jb .round_ok mov ebx,edi .round_more: dec ebx mov al,[ebx] cmp al,'0' jb .round_ok cmp al,'9' ja .round_ok jb .do_inc mov byte [ebx],'0' jmp .round_more .do_inc: inc byte [ebx] .round_ok: end if .exp_sign: mov al,'+' or edx,edx jz .float_end jns .exp_positive neg edx mov al,'-' .exp_positive: mov byte [edi],'e' ; put exponent: 'e+000' inc edi mov [edi],al inc edi mov eax,edx mov ebx,10 mov ecx,2 .exp_loop: xor edx,edx div ebx or dl,'0' mov [edi+ecx],dl dec ecx jns .exp_loop add edi,3 .float_end: fldcw [old_cw] mov byte [edi],0 pop edi esi edx ecx ebx eax ret endp ; data f1 dq 1.0 f10 dq 10.0 f1e_300 dq 1e-300 f1e15 dq 1e15 f1e_15 dq 1e-15

Ответ отправил: Zetasm (статус: 1-ый класс) Ответ отправлен: 24.02.2008, 13:31 Оценка за ответ: 3

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ерёмина Л.А.! Числа с точкой в формате ХХХ.ХХХХ можно вводить так (см. приложение). Удачи! Приложение: MASM;IDEAL or MASM MODEL small stack 50 .386 DATASEG input_number db 'please input you number:$' out_over db 13,10,'you number very big$' float_base dw 10 BCD_count db ? BCD_number dt ? REAL_number dt ? CODESEG start: mov ax,@DATA mov ds,ax mov es,ax ;приглашение к вводу mov ah,9 mov dx,offset input_number int 21h ;обнуляем BCD число и счетчик xor al,al mov BCD_count,al mov cx,10 cld mov di,offset BCD_number rep stosb ;запускаем FPU finit fldz ;ввод без эхо L01: mov ah,8 int 21h cmp al,'.' jz coma cmp al,0dh;контроль jz stop cmp al,'0';контроль диапазона чисел jl L01;меньше 0 cmp al,'9';контроль диапазона чисел jg L01;больше 9 ;число L02: push ax ;загружаем BCD число mov edi,dword ptr BCD_number mov esi,dword ptr BCD_number[4] mov bx,word ptr BCD_number[8] ;сдвигаем его на 4 бита mov cx,4 L03: add bx,bx adc esi,esi adc edi,edi loop L03 ;добавляем только введенное число и записываем обратно and ax,0fh or bx,ax mov dword ptr BCD_number,edi mov dword ptr BCD_number[4],esi mov word ptr BCD_number[8],bx ;востанавливаем число в ASCI форме и выводим pop ax int 29h;быстрый вывод mov ah,BCD_count inc ah cmp ah,18 jg over mov BCD_count,ah ;корестируем константу в FPU fimul word ptr float_base jmp short L01 ;выводим точку и записываем в FPU единицу coma: int 29h fld1 jmp short L01 ;сообщение об ошибке over: mov dx,offset out_over ;вывод output: mov ah,9 int 21h ;выход exit: mov ah,4ch int 21h ;загружаем в FPU BCD число stop: fbld BCD_number ;делим его на константу fdiv st(0),st(1) ;записываем в память fstp REAL_number ;выводим вещественное число std mov si,offset REAL_number+9 mov al,13 int 29h mov al,10 int 29h ;выводим знак мантисы и экспоненты lodsb mov bl,al call L00 lodsb mov bl,al call L00 ;перходим на новую строчку mov al,13 int 29h mov al,10 int 29h ;вывод побайтно мантисы mov cx,8 L09: push cx lodsb mov bl,al call L00 mov al,'.' int 29h pop cx loop L09 jmp short exit ;вывод побитно L00: mov cx,8 L08: xor al,al shl bl,1 adc al,30h int 29h loop L08 ret end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 29.02.2008, 11:40

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.71 от 27.02.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru