WebSVN – Kolibri OS – Diff – /programs/develop/h2d2b/trunk/h2d2b.asm


;;      h2d2b v0.5 big fonts by Leency      ;;
;;      09.11.2016                          ;;
 
;;      h2d2b v0.4 use editbox by IgorA     ;;
;;      30.08.2011                          ;;
 
;;      h2d2b v0.3 system colors by Leency  ;;
;;      21.08.2011                          ;;
 
;;      hex2dec2bin 0.2 by Alexei Ershov    ;;
;;      16.11.2006                          ;;
 
WIN_W = 364
 
use32
    org 0x0
    db  'MENUET01'
    dd  0x01,start,i_end,e_end,e_end,0,sys_path
 
include '../../../proc32.inc'
include '../../../macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áá¥¬¡«¥àé¨ª®¢!
include '../../../develop/libraries/box_lib/load_lib.mac'
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include 'lang.inc'
 
@use_library
 
start:
	load_libraries l_libs_start,l_libs_end
	;¯à®¢¥àª  ­  áª®«ìª® ã¤ ç­® § £ã§¨« áì ­ è  ¡¨¡«¨®â¥ª 
	mov	ebp,lib_0
	cmp	dword [ebp+ll_struc_size-4],0
	jz	@f
		mcall -1 ;exit not correct
	@@:
	mcall 40,0x80000027
	mcall 48, 3, sys_colors, 40
	edit_boxes_set_sys_color edit1,editboxes_end,sys_colors
 
red:
    call draw_window
 
still:
    mcall 10		; äã­ªæ¨ï 10 - ¦¤ âì á®¡ëâ¨ï
 
    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		; ¥á«¨ ¤àã£®¥ á®¡ëâ¨¥ - ¢ ­ ç «® æ¨ª« 
 
;---------------------------------------------------------------------
 
key:		       ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
    mcall 2
	cmp ah,13 ;®¡à ¡®âª  ª­®¯ª¨ Enter
	je @f
		stdcall [edit_box_key], dword edit1
		jmp still
	@@:
	mov edi,string1
	add edi,[edit1.size] ;ãáâ ­ ¢«¨¢ ¥¬ ¢ edi ª®­¥æ áâà®ª¨
	jmp read_str
    jmp still		; ¢¥à­ãâìáï ª ­ ç «ã æ¨ª« 
 
read_str:
    dec   edi
    mov   esi, string1
 
    call  GetBase
 
    xor   ecx, ecx
    inc   ecx		; ecx = 1
 
make_bin:
    xor   eax, eax
 
next_digit:
    xor   edx, edx
    cmp   edi, esi
    jb	  .done
 
    mov   dl, [edi]
    cmp   dl, '-'
    jne   @f
    neg   eax
    jmp   .done
@@:
    cmp   dl, 'F'
    jbe   @f
    and   dl, 11011111b
@@:
    sub   dl, '0'
    cmp   dl, 9
    jbe   @f
    sub   dl, 'A'-'9'-1
@@:
    cmp   dl, bl
    jb	  @f
    ; ¤¥áì ®¡à ¡®â âì ®è¨¡ªã
 
    jmp   .done
@@:
    push  ecx
    xchg  eax, ecx
    mul   edx ;        edx:eax = eax * edx
    add   ecx, eax
    pop   eax
    mul   ebx
    xchg  eax, ecx
    dec   edi
    jmp   next_digit
 
.done:
   mov	  [num], eax	; á®åà ­ï¥¬ ¢¢¥¤¥­­®¥ ç¨á«®
   jmp	  red
 
;---------------------------------------------------------------------
 
button:
	mcall 17		; 17 - ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
	cmp   ah, 1 	; ¥á«¨  ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1,
	jne   @f
		mcall -1
	@@:
	cmp ah, 2
	jne @f
		shl [num], 1
		jmp red
	@@:
	cmp ah, 3
	jne @f
		shr [num], 1
		jmp red
	@@:
	cmp ah, 4
	jne @f
		sar [num], 1
		jmp red
	@@:
	cmp ah, 5
	jne @f
		mov edi,string1
		add edi,[edit1.size] ;ãáâ ­ ¢«¨¢ ¥¬ ¢ edi ª®­¥æ áâà®ª¨
		jmp read_str
		;jmp red
	@@:
	jmp still
 
mouse:
	stdcall [edit_box_mouse], edit1
	jmp still
 
;------------------------------------------------
    draw_window:
;------------------------------------------------
	mcall	48, 3, sys_colors, 40
 
    mcall 12, 1
	mov	edx, 0x14000000
	or	edx, [sys_colors.work]
	;mov	esi, 0x80000000
	;or	esi, [sys_colors.grab_text]
    mcall 0, 200*65536+WIN_W, 200*65536+179, ,,title
 
	
    mcall  8,         15*65536+42,106*65536+ 21, 2, [sys_colors.work_button] ; ª­®¯ª  shl
    mcall   ,         70*65536+42,             ,  , ; ª­®¯ª  sal
    mcall   , (WIN_W-55)*65536+42,             , 3, ; ª­®¯ª  shr
    mcall   ,(WIN_W-111)*65536+42,             , 4, ; ª­®¯ª  sar
    mcall   , (WIN_W-72)*65536+58,145*65536+ 21, 5, ; ª­®¯ª  Ok
 
	mov	ecx, 0x90000000
	or	ecx, [sys_colors.work_text]
    mcall  4, 15*65536+30,   , binstr,
    mcall   , 15*65536+46,   , decstr,
    mcall   , 15*65536+62,   ,sdecstr,
    mcall   , 15*65536+78,   , hexstr,
    mcall   , 15*65536+150,  , numstr,
 
	mov	ecx, 0x90000000
	or	ecx, [sys_colors.work_button_text]
    mcall  , 23*65536+109, , shl_sal_sar_shr_button_caption
	mcall  , (WIN_W-59)*65536+149,	, Okstr,
    mov    ecx, [num]
 
	mov esi, [sys_colors.work_text]
	or  esi, 0x90000000
 
    mcall  47, 10*65536,   ,(WIN_W-92)*65536+62,    ; 10-­ ï á® §­ ª®¬
	BIN_LINE_BLOCK_W = 76
    mcall 47, 8*65536+512,,(WIN_W-BIN_LINE_BLOCK_W)*65536+30 ; 2-­ ï	
    ror    ecx, 8
	mov    edx, (WIN_W-BIN_LINE_BLOCK_W*2)*65536+30
	mcall
    ror    ecx, 8
    mov    edx, (WIN_W-BIN_LINE_BLOCK_W*3)*65536+30
	mcall
    ror    ecx, 8
    mov    edx, (WIN_W-BIN_LINE_BLOCK_W*4)*65536+30
	mcall
    ror    ecx, 8
    mov    [minus], '+'
    jnc    @f
    mov    [minus], '-'
    neg    ecx
@@:
    mcall   , 10*65536,   ,(WIN_W-92)*65536+46,    ; 10-­ ï
	mcall   , 8*65536+256,,(WIN_W-76)*65536+78,    ; 16-­ ï
	mov   ecx,esi
    mcall  4, (WIN_W-102)*65536+61, , minus, 1
    mcall 38, 15*65536+WIN_W-15, 137*65536+137, [sys_colors.work_graph]
	stdcall [edit_box_draw], edit1
    mcall 12, 2 		   ; äã­ªæ¨ï 12: á®®¡é¨âì  ®¡ ®âà¨á®¢ª¥ ®ª­ 
 
ret
 
 
;-------------------------------------------------
    GetBase:
;-------------------------------------------------
    mov   ebx, 10
    cmp   edi, esi
    jb	  .done
 
    mov   al, [edi]
    cmp   al, 'H'
    jbe   @f
    and   al, 11011111b
@@:
    cmp   al, 'H'
    jne   @f
    mov   ebx, 16
    dec   edi
    jmp   .done
 
@@:
    cmp   al, 'D'
    jne   @f
    mov   ebx, 10
    dec   edi
    jmp   .done
 
@@:
    cmp   al, 'B'
    jne   .done
    mov   ebx, 2
    dec   edi
 
.done:
ret
 
;-------------------------------------------------
string1:
  db  34 dup(' ')
string1_end:
  num	dd  0
 
 
 title db 'hex2dec2bin 0.5',0
 minus	db '-',0
 hexstr db 'hex:',0
 binstr db 'bin:',0
 decstr db 'dec:',0
 sdecstr db 'signed dec:',0
 shl_sal_sar_shr_button_caption db 'shl    sal                    sar    shr',0
 
if lang eq ru
	numstr db '¨á«®:',0
	Okstr db '¢®¤',0
	head_f_i:
	head_f_l db '¨áâ¥¬­ ï ®è¨¡ª ',0
else
	numstr db 'Number:',0
	Okstr db 'Enter',0
	head_f_i:
	head_f_l db 'System error',0
end if
 
mouse_dd dd 0
edit1 edit_box (WIN_W-67-82), 67, 146, 0xffffff, 0xff, 0x80ff, 0, 0x90000000, (string1_end-string1), string1 , mouse_dd, ed_focus+ed_always_focus
 
editboxes_end:
 
system_dir_0 db '/sys/lib/'
lib_name_0 db 'box_lib.obj',0
err_msg_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'box_lib.obj',39,0
err_msg_import_0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'box_lib',39,0
 
l_libs_start:
	lib_0 l_libs lib_name_0, sys_path, library_path, system_dir_0,\
		err_msg_found_lib_0,head_f_l,import_box_lib,err_msg_import_0,head_f_i
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
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
 
i_end:
 sys_colors		system_colors
 rb 0x400					;stack
 sys_path rb 4096
 library_path rb 4096
e_end:				   ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë

Rev 7449	Rev 7548
1	;; h2d2b v0.5 big fonts by Leency ;;	1	;; h2d2b v0.5 big fonts by Leency ;;
2	;; 09.11.2016 ;;	2	;; 09.11.2016 ;;
3		3
4	;; h2d2b v0.4 use editbox by IgorA ;;	4	;; h2d2b v0.4 use editbox by IgorA ;;
5	;; 30.08.2011 ;;	5	;; 30.08.2011 ;;
6		6
7	;; h2d2b v0.3 system colors by Leency ;;	7	;; h2d2b v0.3 system colors by Leency ;;
8	;; 21.08.2011 ;;	8	;; 21.08.2011 ;;
9		9
10	;; hex2dec2bin 0.2 by Alexei Ershov ;;	10	;; hex2dec2bin 0.2 by Alexei Ershov ;;
11	;; 16.11.2006 ;;	11	;; 16.11.2006 ;;
12		12
13	WIN_W = 364	13	WIN_W = 364
14		14
15	use32	15	use32
16	org 0x0	16	org 0x0
17	db 'MENUET01'	17	db 'MENUET01'
18	dd 0x01,start,i_end,e_end,e_end,0,sys_path	18	dd 0x01,start,i_end,e_end,e_end,0,sys_path
19		19
20	include '../../../proc32.inc'	20	include '../../../proc32.inc'
21	include '../../../macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§ì áá¥¬¡«¥àé¨ª®¢!	21	include '../../../macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§ì áá¥¬¡«¥àé¨ª®¢!
22	include '../../../develop/libraries/box_lib/load_lib.mac'	22	include '../../../develop/libraries/box_lib/load_lib.mac'
23	include '../../../develop/libraries/box_lib/trunk/box_lib.mac'	23	include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
24	include 'lang.inc'	24	include 'lang.inc'
25		25
26	@use_library	26	@use_library
27		27
28	start:	28	start:
29	load_libraries l_libs_start,l_libs_end	29	load_libraries l_libs_start,l_libs_end
30	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì è ¡¨¡«¨®â¥ª	30	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì è ¡¨¡«¨®â¥ª
31	mov ebp,lib_0	31	mov ebp,lib_0
32	cmp dword [ebp+ll_struc_size-4],0	32	cmp dword [ebp+ll_struc_size-4],0
33	jz @f	33	jz @f
34	mcall -1 ;exit not correct	34	mcall -1 ;exit not correct
35	@@:	35	@@:
36	mcall 40,0x80000027	36	mcall 40,0x80000027
37	mcall 48, 3, sys_colors, 40	37	mcall 48, 3, sys_colors, 40
38	edit_boxes_set_sys_color edit1,editboxes_end,sys_colors	38	edit_boxes_set_sys_color edit1,editboxes_end,sys_colors
39		39
40	red:	40	red:
41	call draw_window	41	call draw_window
42		42
43	still:	43	still:
44	mcall 10 ; äãªæ¨ï 10 - ¦¤ âì á®¡ëâ¨ï	44	mcall 10 ; äãªæ¨ï 10 - ¦¤ âì á®¡ëâ¨ï
45		45
46	cmp eax,1 ; ¯¥à¥à¨á®¢ âì ®ª® ?	46	cmp eax,1 ; ¯¥à¥à¨á®¢ âì ®ª® ?
47	je red ; ¥á«¨ ¤ - ¬¥âªã red	47	je red ; ¥á«¨ ¤ - ¬¥âªã red
48	cmp eax,2 ; ¦ â ª« ¢¨è ?	48	cmp eax,2 ; ¦ â ª« ¢¨è ?
49	je key ; ¥á«¨ ¤ - key	49	je key ; ¥á«¨ ¤ - key
50	cmp eax,3 ; ¦ â ª®¯ª ?	50	cmp eax,3 ; ¦ â ª®¯ª ?
51	je button ; ¥á«¨ ¤ - button	51	je button ; ¥á«¨ ¤ - button
52	cmp eax,6	52	cmp eax,6
53	je mouse	53	je mouse
54		54
55	jmp still ; ¥á«¨ ¤àã£®¥ á®¡ëâ¨¥ - ¢ ç «® æ¨ª«	55	jmp still ; ¥á«¨ ¤àã£®¥ á®¡ëâ¨¥ - ¢ ç «® æ¨ª«
56		56
57	;---------------------------------------------------------------------	57	;---------------------------------------------------------------------
58		58
59	key: ; ¦ â ª« ¢¨è ª« ¢¨ âãà¥	59	key: ; ¦ â ª« ¢¨è ª« ¢¨ âãà¥
60	mcall 2	60	mcall 2
61	cmp ah,13 ;®¡à ¡®âª ª®¯ª¨ Enter	61	cmp ah,13 ;®¡à ¡®âª ª®¯ª¨ Enter
62	je @f	62	je @f
63	stdcall [edit_box_key], dword edit1	63	stdcall [edit_box_key], dword edit1
64	jmp still	64	jmp still
65	@@:	65	@@:
66	mov edi,string1	66	mov edi,string1
67	add edi,[edit1.size] ;ãáâ ¢«¨¢ ¥¬ ¢ edi ª®¥æ áâà®ª¨	67	add edi,[edit1.size] ;ãáâ ¢«¨¢ ¥¬ ¢ edi ª®¥æ áâà®ª¨
68	jmp read_str	68	jmp read_str
69	jmp still ; ¢¥àãâìáï ª ç «ã æ¨ª«	69	jmp still ; ¢¥àãâìáï ª ç «ã æ¨ª«
70		70
71	read_str:	71	read_str:
72	dec edi	72	dec edi
73	mov esi, string1	73	mov esi, string1
74		74
75	call GetBase	75	call GetBase
76		76
77	xor ecx, ecx	77	xor ecx, ecx
78	inc ecx ; ecx = 1	78	inc ecx ; ecx = 1
79		79
80	make_bin:	80	make_bin:
81	xor eax, eax	81	xor eax, eax
82		82
83	next_digit:	83	next_digit:
84	xor edx, edx	84	xor edx, edx
85	cmp edi, esi	85	cmp edi, esi
86	jb .done	86	jb .done
87		87
88	mov dl, [edi]	88	mov dl, [edi]
89	cmp dl, '-'	89	cmp dl, '-'
90	jne @f	90	jne @f
91	neg eax	91	neg eax
92	jmp .done	92	jmp .done
93	@@:	93	@@:
94	cmp dl, 'F'	94	cmp dl, 'F'
95	jbe @f	95	jbe @f
96	and dl, 11011111b	96	and dl, 11011111b
97	@@:	97	@@:
98	sub dl, '0'	98	sub dl, '0'
99	cmp dl, 9	99	cmp dl, 9
100	jbe @f	100	jbe @f
101	sub dl, 'A'-'9'-1	101	sub dl, 'A'-'9'-1
102	@@:	102	@@:
103	cmp dl, bl	103	cmp dl, bl
104	jb @f	104	jb @f
105	; ¤¥áì ®¡à ¡®â âì ®è¨¡ªã	105	; ¤¥áì ®¡à ¡®â âì ®è¨¡ªã
106		106
107	jmp .done	107	jmp .done
108	@@:	108	@@:
109	push ecx	109	push ecx
110	xchg eax, ecx	110	xchg eax, ecx
111	mul edx ; edx:eax = eax * edx	111	mul edx ; edx:eax = eax * edx
112	add ecx, eax	112	add ecx, eax
113	pop eax	113	pop eax
114	mul ebx	114	mul ebx
115	xchg eax, ecx	115	xchg eax, ecx
116	dec edi	116	dec edi
117	jmp next_digit	117	jmp next_digit
118		118
119	.done:	119	.done:
120	mov [num], eax ; á®åà ï¥¬ ¢¢¥¤¥®¥ ç¨á«®	120	mov [num], eax ; á®åà ï¥¬ ¢¢¥¤¥®¥ ç¨á«®
121	jmp red	121	jmp red
122		122
123	;---------------------------------------------------------------------	123	;---------------------------------------------------------------------
124		124
125	button:	125	button:
126	mcall 17 ; 17 - ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ â®© ª®¯ª¨	126	mcall 17 ; 17 - ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ â®© ª®¯ª¨
127	cmp ah, 1 ; ¥á«¨ ¦ â ª®¯ª á ®¬¥à®¬ 1,	127	cmp ah, 1 ; ¥á«¨ ¦ â ª®¯ª á ®¬¥à®¬ 1,
128	jne @f	128	jne @f
129	mcall -1	129	mcall -1
130	@@:	130	@@:
131	cmp ah, 2	131	cmp ah, 2
132	jne @f	132	jne @f
133	shl [num], 1	133	shl [num], 1
134	jmp red	134	jmp red
135	@@:	135	@@:
136	cmp ah, 3	136	cmp ah, 3
137	jne @f	137	jne @f
138	shr [num], 1	138	shr [num], 1
139	jmp red	139	jmp red
140	@@:	140	@@:
141	cmp ah, 4	141	cmp ah, 4
142	jne @f	142	jne @f
143	sar [num], 1	143	sar [num], 1
144	jmp red	144	jmp red
145	@@:	145	@@:
146	cmp ah, 5	146	cmp ah, 5
147	jne @f	147	jne @f
148	mov edi,string1	148	mov edi,string1
149	add edi,[edit1.size] ;ãáâ ¢«¨¢ ¥¬ ¢ edi ª®¥æ áâà®ª¨	149	add edi,[edit1.size] ;ãáâ ¢«¨¢ ¥¬ ¢ edi ª®¥æ áâà®ª¨
150	jmp read_str	150	jmp read_str
151	;jmp red	151	;jmp red
152	@@:	152	@@:
153	jmp still	153	jmp still
154		154
155	mouse:	155	mouse:
156	stdcall [edit_box_mouse], edit1	156	stdcall [edit_box_mouse], edit1
157	jmp still	157	jmp still
158		158
159	;------------------------------------------------	159	;------------------------------------------------
160	draw_window:	160	draw_window:
161	;------------------------------------------------	161	;------------------------------------------------
162	mcall 48, 3, sys_colors, 40	162	mcall 48, 3, sys_colors, 40
163		163
164	mcall 12, 1	164	mcall 12, 1
165	mov edx, 0x14000000	165	mov edx, 0x14000000
166	or edx, [sys_colors.work]	166	or edx, [sys_colors.work]
167	;mov esi, 0x80000000	167	;mov esi, 0x80000000
168	;or esi, [sys_colors.grab_text]	168	;or esi, [sys_colors.grab_text]
169	mcall 0, 20065536+WIN_W, 20065536+179, ,,title	169	mcall 0, 20065536+WIN_W, 20065536+179, ,,title
170		170
171		171
172	mcall 8, 1565536+42,10665536+ 21, 2, [sys_colors.work_button] ; ª®¯ª shl	172	mcall 8, 1565536+42,10665536+ 21, 2, [sys_colors.work_button] ; ª®¯ª shl
173	mcall , 70*65536+42, , , ; ª®¯ª sal	173	mcall , 70*65536+42, , , ; ª®¯ª sal
174	mcall , (WIN_W-55)*65536+42, , 3, ; ª®¯ª shr	174	mcall , (WIN_W-55)*65536+42, , 3, ; ª®¯ª shr
175	mcall ,(WIN_W-111)*65536+42, , 4, ; ª®¯ª sar	175	mcall ,(WIN_W-111)*65536+42, , 4, ; ª®¯ª sar
176	mcall , (WIN_W-72)65536+58,14565536+ 21, 5, ; ª®¯ª Ok	176	mcall , (WIN_W-72)65536+58,14565536+ 21, 5, ; ª®¯ª Ok
177		177
178	mov ecx, 0x90000000	178	mov ecx, 0x90000000
179	or ecx, [sys_colors.work_text]	179	or ecx, [sys_colors.work_text]
180	mcall 4, 15*65536+30, , binstr,	180	mcall 4, 15*65536+30, , binstr,
181	mcall , 15*65536+46, , decstr,	181	mcall , 15*65536+46, , decstr,
182	mcall , 15*65536+62, ,sdecstr,	182	mcall , 15*65536+62, ,sdecstr,
183	mcall , 15*65536+78, , hexstr,	183	mcall , 15*65536+78, , hexstr,
184	mcall , 15*65536+150, , numstr,	184	mcall , 15*65536+150, , numstr,
185		185
186	mov ecx, 0x90000000	186	mov ecx, 0x90000000
187	or ecx, [sys_colors.work_button_text]	187	or ecx, [sys_colors.work_button_text]
188	mcall , 23*65536+109, , shl_sal_sar_shr_button_caption	188	mcall , 23*65536+109, , shl_sal_sar_shr_button_caption
189	mcall , (WIN_W-59)*65536+149, , Okstr,	189	mcall , (WIN_W-59)*65536+149, , Okstr,
190	mov ecx, [num]	190	mov ecx, [num]
191		191
192	mov esi, [sys_colors.work_text]	192	mov esi, [sys_colors.work_text]
193	or esi, 0x90000000	193	or esi, 0x90000000
194		194
195	mcall 47, 1065536, ,(WIN_W-92)65536+62, ; 10- ï á® § ª®¬	195	mcall 47, 1065536, ,(WIN_W-92)65536+62, ; 10- ï á® § ª®¬
196	BIN_LINE_BLOCK_W = 76	196	BIN_LINE_BLOCK_W = 76
197	mcall 47, 865536+512,,(WIN_W-BIN_LINE_BLOCK_W)65536+30 ; 2- ï	197	mcall 47, 865536+512,,(WIN_W-BIN_LINE_BLOCK_W)65536+30 ; 2- ï
198	ror ecx, 8	198	ror ecx, 8
199	mov edx, (WIN_W-BIN_LINE_BLOCK_W2)65536+30	199	mov edx, (WIN_W-BIN_LINE_BLOCK_W2)65536+30
200	mcall	200	mcall
201	ror ecx, 8	201	ror ecx, 8
202	mov edx, (WIN_W-BIN_LINE_BLOCK_W3)65536+30	202	mov edx, (WIN_W-BIN_LINE_BLOCK_W3)65536+30
203	mcall	203	mcall
204	ror ecx, 8	204	ror ecx, 8
205	mov edx, (WIN_W-BIN_LINE_BLOCK_W4)65536+30	205	mov edx, (WIN_W-BIN_LINE_BLOCK_W4)65536+30
206	mcall	206	mcall
207	ror ecx, 8	207	ror ecx, 8
208	mov [minus], '+'	208	mov [minus], '+'
209	jnc @f	209	jnc @f
210	mov [minus], '-'	210	mov [minus], '-'
211	neg ecx	211	neg ecx
212	@@:	212	@@:
213	mcall , 1065536, ,(WIN_W-92)65536+46, ; 10- ï	213	mcall , 1065536, ,(WIN_W-92)65536+46, ; 10- ï
214	mcall , 865536+256,,(WIN_W-76)65536+78, ; 16- ï	214	mcall , 865536+256,,(WIN_W-76)65536+78, ; 16- ï
-		215	mov ecx,esi
215	mcall 4, (WIN_W-102)*65536+58, 0x90000000, minus, 1	216	mcall 4, (WIN_W-102)*65536+61, , minus, 1
216	mcall 38, 1565536+WIN_W-15, 13765536+137, [sys_colors.work_graph]	217	mcall 38, 1565536+WIN_W-15, 13765536+137, [sys_colors.work_graph]
217	stdcall [edit_box_draw], edit1	218	stdcall [edit_box_draw], edit1
218	mcall 12, 2 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª	219	mcall 12, 2 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª
219		220
220	ret	221	ret
221		222
222		223
223	;-------------------------------------------------	224	;-------------------------------------------------
224	GetBase:	225	GetBase:
225	;-------------------------------------------------	226	;-------------------------------------------------
226	mov ebx, 10	227	mov ebx, 10
227	cmp edi, esi	228	cmp edi, esi
228	jb .done	229	jb .done
229		230
230	mov al, [edi]	231	mov al, [edi]
231	cmp al, 'H'	232	cmp al, 'H'
232	jbe @f	233	jbe @f
233	and al, 11011111b	234	and al, 11011111b
234	@@:	235	@@:
235	cmp al, 'H'	236	cmp al, 'H'
236	jne @f	237	jne @f
237	mov ebx, 16	238	mov ebx, 16
238	dec edi	239	dec edi
239	jmp .done	240	jmp .done
240		241
241	@@:	242	@@:
242	cmp al, 'D'	243	cmp al, 'D'
243	jne @f	244	jne @f
244	mov ebx, 10	245	mov ebx, 10
245	dec edi	246	dec edi
246	jmp .done	247	jmp .done
247		248
248	@@:	249	@@:
249	cmp al, 'B'	250	cmp al, 'B'
250	jne .done	251	jne .done
251	mov ebx, 2	252	mov ebx, 2
252	dec edi	253	dec edi
253		254
254	.done:	255	.done:
255	ret	256	ret
256		257
257	;-------------------------------------------------	258	;-------------------------------------------------
258	string1:	259	string1:
259	db 34 dup(' ')	260	db 34 dup(' ')
260	string1_end:	261	string1_end:
261	num dd 0	262	num dd 0
262		263
263		264
264	title db 'hex2dec2bin 0.5',0	265	title db 'hex2dec2bin 0.5',0
265	minus db '-',0	266	minus db '-',0
266	hexstr db 'hex:',0	267	hexstr db 'hex:',0
267	binstr db 'bin:',0	268	binstr db 'bin:',0
268	decstr db 'dec:',0	269	decstr db 'dec:',0
269	sdecstr db 'signed dec:',0	270	sdecstr db 'signed dec:',0
270	shl_sal_sar_shr_button_caption db 'shl sal sar shr',0	271	shl_sal_sar_shr_button_caption db 'shl sal sar shr',0
271		272
272	if lang eq ru	273	if lang eq ru
273	numstr db '¨á«®:',0	274	numstr db '¨á«®:',0
274	Okstr db '¢®¤',0	275	Okstr db '¢®¤',0
275	head_f_i:	276	head_f_i:
276	head_f_l db '¨áâ¥¬ ï ®è¨¡ª ',0	277	head_f_l db '¨áâ¥¬ ï ®è¨¡ª ',0
277	else	278	else
278	numstr db 'Number:',0	279	numstr db 'Number:',0
279	Okstr db 'Enter',0	280	Okstr db 'Enter',0
280	head_f_i:	281	head_f_i:
281	head_f_l db 'System error',0	282	head_f_l db 'System error',0
282	end if	283	end if
283		284
284	mouse_dd dd 0	285	mouse_dd dd 0
285	edit1 edit_box (WIN_W-67-82), 67, 146, 0xffffff, 0xff, 0x80ff, 0, 0x90000000, (string1_end-string1), string1 , mouse_dd, ed_focus+ed_always_focus	286	edit1 edit_box (WIN_W-67-82), 67, 146, 0xffffff, 0xff, 0x80ff, 0, 0x90000000, (string1_end-string1), string1 , mouse_dd, ed_focus+ed_always_focus
286		287
287	editboxes_end:	288	editboxes_end:
288		289
289	system_dir_0 db '/sys/lib/'	290	system_dir_0 db '/sys/lib/'
290	lib_name_0 db 'box_lib.obj',0	291	lib_name_0 db 'box_lib.obj',0
291	err_msg_found_lib_0 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'box_lib.obj',39,0	292	err_msg_found_lib_0 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'box_lib.obj',39,0
292	err_msg_import_0 db 'è¨¡ª ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'box_lib',39,0	293	err_msg_import_0 db 'è¨¡ª ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'box_lib',39,0
293		294
294	l_libs_start:	295	l_libs_start:
295	lib_0 l_libs lib_name_0, sys_path, library_path, system_dir_0,\	296	lib_0 l_libs lib_name_0, sys_path, library_path, system_dir_0,\
296	err_msg_found_lib_0,head_f_l,import_box_lib,err_msg_import_0,head_f_i	297	err_msg_found_lib_0,head_f_l,import_box_lib,err_msg_import_0,head_f_i
297	l_libs_end:	298	l_libs_end:
298		299
299	align 4	300	align 4
300	import_box_lib:	301	import_box_lib:
301	;dd sz_init1	302	;dd sz_init1
302	edit_box_draw dd sz_edit_box_draw	303	edit_box_draw dd sz_edit_box_draw
303	edit_box_key dd sz_edit_box_key	304	edit_box_key dd sz_edit_box_key
304	edit_box_mouse dd sz_edit_box_mouse	305	edit_box_mouse dd sz_edit_box_mouse
305	;edit_box_set_text dd sz_edit_box_set_text	306	;edit_box_set_text dd sz_edit_box_set_text
306	dd 0,0	307	dd 0,0
307	;sz_init1 db 'lib_init',0	308	;sz_init1 db 'lib_init',0
308	sz_edit_box_draw db 'edit_box',0	309	sz_edit_box_draw db 'edit_box',0
309	sz_edit_box_key db 'edit_box_key',0	310	sz_edit_box_key db 'edit_box_key',0
310	sz_edit_box_mouse db 'edit_box_mouse',0	311	sz_edit_box_mouse db 'edit_box_mouse',0
311	;sz_edit_box_set_text db 'edit_box_set_text',0	312	;sz_edit_box_set_text db 'edit_box_set_text',0
312		313
313	i_end:	314	i_end:
314	sys_colors system_colors	315	sys_colors system_colors
315	rb 0x400 ;stack	316	rb 0x400 ;stack
316	sys_path rb 4096	317	sys_path rb 4096
317	library_path rb 4096	318	library_path rb 4096
318	e_end: ; ¬¥âª ª®æ ¯à®£à ¬¬ë	319	e_end: ; ¬¥âª ª®æ ¯à®£à ¬¬ë

Subversion Repositories Kolibri OS

(root)/programs/develop/h2d2b/trunk/h2d2b.asm – Rev 7449 → 7548