forked from KolibriOS/kolibrios
319 lines
7.9 KiB
NASM
319 lines
7.9 KiB
NASM
; <20>à®£à ¬¬ ¤«ï ¯à¥®¡à §®¢ ¨ï ç¨á¥« ¨§ áâப¨
|
||
; ¢ ä®à¬ â float, double, â ª¦¥ ¨§ 10 ¨«¨ 16 à¨ç®£®
|
||
; ¢® float.
|
||
; ‘¤¥« ®á®¢¥ hex2dec2bin ¨ ¯à¨¬¥à®¢ ¨§ ä ©« list2_05.inc
|
||
; ( ¢â®à Šã« ª®¢ ‚« ¤¨¬¨à ƒ¥ ¤ì¥¢¨ç 24.05.2002),
|
||
; ª®â®àë¥ ChE ¯¥à¥¤¥« « á 16 32 ¡¨â áᥬ¡«¥à fasm.
|
||
; <20>à®£à ¬¬ ¯®§¢®«ï¥â à¥è âì â ª¨¥ § ¤ ç¨:
|
||
; 1) ç¨á«® ¢ áâப®¢®¬ ¢¨¤¥ ¯¥à¥¢¥á⨠¢ 4 ¡ ©â (float) ¢ ¬ è¨ë© ¢¨¤
|
||
; 2) ç¨á«® ¢ áâப®¢®¬ ¢¨¤¥ ¯¥à¥¢¥á⨠¢ 8 ¡ ©â (double) ¢ ¬ è¨ë© ¢¨¤
|
||
; 3) ç¨á«® ¢ ¬ 訮¬ ¢¨¤¥ (float) ¯¥à¥¢¥á⨠¢ áâப®¢ë© ¢¨¤ (5 § ª®¢ ¯®á«¥ § ¯ï⮩)
|
||
|
||
use32
|
||
org 0
|
||
db 'MENUET01'
|
||
dd 1,start,i_end,e_end,e_end,0,sys_path
|
||
|
||
include '../../../proc32.inc'
|
||
include '../../../macros.inc'
|
||
include '../../../KOSfuncs.inc'
|
||
include '../../../load_lib.mac'
|
||
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
|
||
include '../../../develop/info3ds/info_fun_float.inc'
|
||
include 'lang.inc'
|
||
|
||
@use_library
|
||
|
||
align 4
|
||
start:
|
||
load_libraries l_libs_start,l_libs_end
|
||
;¯à®¢¥àª ᪮«ìª® ã¤ ç® § £ã§¨« áì è ¡¨¡«¨®â¥ª
|
||
mov ebp,lib_0
|
||
cmp dword[ebp+ll_struc_size-4],0
|
||
jz @f
|
||
mcall SF_TERMINATE_PROCESS
|
||
@@:
|
||
mcall SF_SET_EVENTS_MASK,0xC0000027
|
||
mcall SF_STYLE_SETTINGS,SSF_GET_COLORS, sys_colors, sizeof.system_colors
|
||
edit_boxes_set_sys_color edit1,editboxes_end,sys_colors
|
||
option_boxes_set_sys_color sys_colors,Option_boxes1
|
||
|
||
align 4
|
||
red:
|
||
call draw_window
|
||
|
||
align 4
|
||
still:
|
||
mcall SF_WAIT_EVENT
|
||
|
||
cmp eax,1 ; ¯¥à¥à¨á®¢ âì ®ª® ?
|
||
je red ; ¥á«¨ ¤ - ¬¥âªã red
|
||
cmp eax,2 ; ¦ â ª« ¢¨è ?
|
||
je key ; ¥á«¨ ¤ - key
|
||
cmp eax,3 ; ¦ â ª®¯ª ?
|
||
je button ; ¥á«¨ ¤ - button
|
||
cmp eax,6
|
||
je mouse
|
||
|
||
jmp still ; ¥á«¨ ¤à㣮¥ ᮡë⨥ - ¢ ç «® 横«
|
||
|
||
align 4
|
||
key: ; ¦ â ª« ¢¨è ª« ¢¨ âãà¥
|
||
mcall SF_GET_KEY
|
||
;cmp ah,13
|
||
stdcall [edit_box_key], edit1
|
||
jmp still ; ¢¥àãâìáï ª ç «ã 横«
|
||
|
||
align 4
|
||
button:
|
||
mcall SF_GET_BUTTON
|
||
cmp ah, 1 ; ¥á«¨ <20>… ¦ â ª®¯ª á ®¬¥à®¬ 1,
|
||
jne @f
|
||
mcall SF_TERMINATE_PROCESS
|
||
@@:
|
||
cmp ah, 5
|
||
jne @f
|
||
cmp dword[option_group1],opt3
|
||
jne .opt_3_end
|
||
stdcall conv_str_to_int,[edit1.text]
|
||
mov dword[Data_Double],eax
|
||
finit
|
||
fld dword[Data_Double]
|
||
fstp qword[Data_Double]
|
||
|
||
; Data_Double - ¯à¥®¡à §ã¥¬®¥ ç¨á«®
|
||
mov word[NumberSymbolsAD],8 ; ª®«¨ç¥á⢮ § ª®¢ ç¨á« ¯®á«¥ § ¯ï⮩ (1-17)
|
||
call DoubleFloat_to_String
|
||
call String_crop_0
|
||
mov dword[Data_Double],eax ;¢®ááâ ¢«¨¢ ¥¬ § 票¥ ¢ ä®à¬ ⥠float
|
||
jmp .opt_all_end
|
||
.opt_3_end:
|
||
|
||
mov esi,string1
|
||
mov edi,Data_String
|
||
cld
|
||
mov ecx,32
|
||
rep movsb
|
||
|
||
call String_to_DoubleFloat
|
||
cmp dword[option_group1],opt1
|
||
jne .opt_all_end ;¥á«¨ ¢ë¡à float, â® ¯à¥®¡à §ã¥¬ ¨§ à ¥¥ ¯®«ã祮£® double
|
||
finit
|
||
fld qword[Data_Double] ;ç¨â ¥¬ ¨§ double
|
||
fstp dword[Data_Double] ; ¢®§¢à é ¥¬ ¢® float
|
||
.opt_all_end:
|
||
jmp red
|
||
@@:
|
||
jmp still
|
||
|
||
align 4
|
||
mouse:
|
||
stdcall [edit_box_mouse], edit1
|
||
stdcall [option_box_mouse], Option_boxes1
|
||
jmp still
|
||
|
||
;------------------------------------------------
|
||
align 4
|
||
draw_window:
|
||
mcall SF_STYLE_SETTINGS,SSF_GET_COLORS, sys_colors, sizeof.system_colors
|
||
|
||
mcall SF_REDRAW,SSF_BEGIN_DRAW
|
||
mov edx, 0x14000000
|
||
or edx, [sys_colors.work]
|
||
mcall SF_CREATE_WINDOW, (200 shl 16)+300, (200 shl 16)+175, ,,title
|
||
|
||
mcall SF_DEFINE_BUTTON, ((300-53) shl 16)+38, (145 shl 16)+15, 5, [sys_colors.work_button] ; ª®¯ª Ok
|
||
|
||
mov ecx, 0x80000000
|
||
or ecx, [sys_colors.work_text]
|
||
mcall SF_DRAW_TEXT, (15 shl 16) +30,, binstr,
|
||
mcall , (15 shl 16) +58,, decstr,
|
||
mcall , ((240-56*3) shl 16) +58,, Data_String,
|
||
mcall , (15 shl 16) +72,, hexstr,
|
||
mcall , (15 shl 16)+150,, numstr,
|
||
|
||
mov ecx, 0x80000000
|
||
or ecx, [sys_colors.work_button_text]
|
||
mcall , ((300-42) shl 16)+149, , Okstr,3
|
||
|
||
cmp dword[option_group1],opt1
|
||
je @f ;¥á«¨ ¢ë¡à float, â® áâ à訥 4 ¡ ©â (¨§ double) ¥ ¯¥ç â ¥¬
|
||
cmp dword[option_group1],opt3
|
||
je @f ;¥á«¨ ¢ë¡à float, â® áâ à訥 4 ¡ ©â (¨§ double) ¥ ¯¥ç â ¥¬
|
||
mov ecx, dword[Data_Double+4]
|
||
mcall SF_DRAW_NUMBER, (8 shl 16)+256,,(185 shl 16)+72,[sys_colors.work_text] ; 16- ï
|
||
|
||
mov ecx, dword[Data_Double+4]
|
||
mcall ,(8 shl 16)+512,,(240 shl 16)+30, ; 2- ï
|
||
ror ecx, 8
|
||
mcall ,,,((240-56) shl 16)+30,
|
||
ror ecx, 8
|
||
mcall ,,,((240-56*2) shl 16)+30,
|
||
ror ecx, 8
|
||
mcall ,,,((240-56*3) shl 16)+30,
|
||
ror ecx, 8
|
||
@@:
|
||
|
||
mov ecx,dword[Data_Double]
|
||
mcall SF_DRAW_NUMBER, (8 shl 16)+256,,(240 shl 16)+72,[sys_colors.work_text] ; 16- ï
|
||
|
||
mov ecx,dword[Data_Double]
|
||
mcall , (8 shl 16)+512,,(240 shl 16)+44, ; 2- ï
|
||
ror ecx, 8
|
||
mcall ,,,((240-56) shl 16)+44,
|
||
ror ecx, 8
|
||
mcall ,,,((240-56*2) shl 16)+44,
|
||
ror ecx, 8
|
||
mcall ,,,((240-56*3) shl 16)+44,
|
||
ror ecx, 8
|
||
|
||
mcall SF_DRAW_LINE, (15 shl 16)+300-15, (137 shl 16)+137, [sys_colors.work_graph]
|
||
stdcall [edit_box_draw], edit1
|
||
stdcall [option_box_draw], Option_boxes1
|
||
mcall SF_REDRAW,SSF_END_DRAW
|
||
|
||
ret
|
||
|
||
|
||
string1 db 32 dup (0)
|
||
string1_end:
|
||
|
||
|
||
;input:
|
||
; buf - 㪠§ ⥫ì áâபã, ç¨á«® ¤®«¦® ¡ëâì ¢ 10 ¨«¨ 16 à¨ç®¬ ¢¨¤¥
|
||
;output:
|
||
; eax - ç¨á«®
|
||
align 4
|
||
proc conv_str_to_int uses ebx ecx esi, buf:dword
|
||
xor eax,eax
|
||
xor ebx,ebx
|
||
mov esi,[buf]
|
||
;®¯à¥¤¥«¥¨¥ ®âà¨æ ⥫ìëå ç¨á¥«
|
||
xor ecx,ecx
|
||
inc ecx
|
||
cmp byte[esi],'-'
|
||
jne @f
|
||
dec ecx
|
||
inc esi
|
||
@@:
|
||
|
||
cmp word[esi],'0x'
|
||
je .load_digit_16
|
||
|
||
.load_digit_10: ;áç¨âë¢ ¨¥ 10-â¨çëå æ¨äà
|
||
mov bl,byte[esi]
|
||
cmp bl,'0'
|
||
jl @f
|
||
cmp bl,'9'
|
||
jg @f
|
||
sub bl,'0'
|
||
imul eax,10
|
||
add eax,ebx
|
||
inc esi
|
||
jmp .load_digit_10
|
||
jmp @f
|
||
|
||
.load_digit_16: ;áç¨âë¢ ¨¥ 16-à¨çëå æ¨äà
|
||
add esi,2
|
||
.cycle_16:
|
||
mov bl,byte[esi]
|
||
cmp bl,'0'
|
||
jl @f
|
||
cmp bl,'f'
|
||
jg @f
|
||
cmp bl,'9'
|
||
jle .us1
|
||
cmp bl,'A'
|
||
jl @f ;®âᥨ¢ ¥¬ ᨬ¢®«ë >'9' ¨ <'A'
|
||
.us1: ;á®áâ ¢®¥ ãá«®¢¨¥
|
||
cmp bl,'F'
|
||
jle .us2
|
||
cmp bl,'a'
|
||
jl @f ;®âᥨ¢ ¥¬ ᨬ¢®«ë >'F' ¨ <'a'
|
||
sub bl,32 ;¯¥à¥¢®¤¨¬ ᨬ¢®«ë ¢ ¢¥à娩 ॣ¨áâà, ¤«ï ã¯à®é¥¨ï ¨å ¯®á«¥¤ã饩 ®¡à ¡®âª¨
|
||
.us2: ;á®áâ ¢®¥ ãá«®¢¨¥
|
||
sub bl,'0'
|
||
cmp bl,9
|
||
jle .cor1
|
||
sub bl,7 ;convert 'A' to '10'
|
||
.cor1:
|
||
shl eax,4
|
||
add eax,ebx
|
||
inc esi
|
||
jmp .cycle_16
|
||
@@:
|
||
cmp ecx,0 ;¥á«¨ ç¨á«® ®âà¨æ ⥫쮥
|
||
jne @f
|
||
sub ecx,eax
|
||
mov eax,ecx
|
||
@@:
|
||
ret
|
||
endp
|
||
|
||
;-------------------------------------------------
|
||
title db 'string to double 20.08.19',0
|
||
hexstr db 'hex:',0
|
||
decstr db 'dec:',0
|
||
binstr db 'bin:',0
|
||
|
||
if lang eq ru
|
||
numstr db '—¨á«®:',0
|
||
Okstr db '‚¢®¤',0
|
||
else
|
||
numstr db 'Number:',0
|
||
Okstr db 'Ok',0
|
||
end if
|
||
|
||
mouse_dd dd 0
|
||
edit1 edit_box 182, 59, 146, 0xffffff, 0xff, 0x80ff, 0, 0x8000, (string1_end-string1), string1, mouse_dd, 0
|
||
editboxes_end:
|
||
|
||
;option_boxes
|
||
opt1 option_box option_group1, 15, 90, 8, 12, 0xffffff, 0x80ff, 0, op_text.1, 17
|
||
opt2 option_box option_group1, 15, 106, 8, 12, 0xffffff, 0x80ff, 0, op_text.2, 18
|
||
opt3 option_box option_group1, 15, 122, 8, 12, 0xffffff, 0x80ff, 0, op_text.3, 21
|
||
|
||
op_text: ;⥪áâ ¤«ï à ¤¨® ª®¯®ª
|
||
.1 db 'str(dec) -> float'
|
||
.2 db 'str(dec) -> double'
|
||
.3 db 'float(dec,hex) -> str'
|
||
;㪠§ ⥫¨ ¤«ï option_box
|
||
option_group1 dd opt1
|
||
Option_boxes1 dd opt1, opt2, opt3, 0
|
||
|
||
system_dir_0 db '/sys/lib/'
|
||
lib_name_0 db 'box_lib.obj',0
|
||
|
||
|
||
l_libs_start:
|
||
lib_0 l_libs lib_name_0, library_path, system_dir_0,import_box_lib
|
||
l_libs_end:
|
||
|
||
align 4
|
||
import_box_lib:
|
||
;dd sz_init1
|
||
edit_box_draw dd sz_edit_box_draw
|
||
edit_box_key dd sz_edit_box_key
|
||
edit_box_mouse dd sz_edit_box_mouse
|
||
;edit_box_set_text dd sz_edit_box_set_text
|
||
option_box_draw dd aOption_box_draw
|
||
option_box_mouse dd aOption_box_mouse
|
||
;version_op dd aVersion_op
|
||
dd 0,0
|
||
;sz_init1 db 'lib_init',0
|
||
sz_edit_box_draw db 'edit_box',0
|
||
sz_edit_box_key db 'edit_box_key',0
|
||
sz_edit_box_mouse db 'edit_box_mouse',0
|
||
;sz_edit_box_set_text db 'edit_box_set_text',0
|
||
aOption_box_draw db 'option_box_draw',0
|
||
aOption_box_mouse db 'option_box_mouse',0
|
||
;aVersion_op db 'version_op',0
|
||
|
||
i_end:
|
||
sys_colors system_colors
|
||
align 16
|
||
sys_path rb 4096
|
||
library_path rb 4096
|
||
rb 0x400 ;stack
|
||
e_end: ; ¬¥âª ª®æ ¯à®£à ¬¬ë
|