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

Subversion Repositories Kolibri OS

(root)/programs/develop/h2d2b/trunk/h2d2b.asm – Rev 3941 → 6697