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


;--------------------------------------------------------------------
; v.016 30.07.2011
; Start with open file path
; Show working file path
; Some optimization
;
; Marat Zakiyanov aka Mario79, aka Mario
;--------------------------------------------------------------------
; v.015 08.03.2010
; Support for OpenDialog - Open and Save
; Some optimization
;
; Marat Zakiyanov aka Mario79, aka Mario
;--------------------------------------------------------------------
; v.014 05.02.2010
; 
; PageUp, PageDown      - áâà ­¨æ  ¢¢¥àå/¢­¨§
; Ctrl+UP, Ctrl+Down    - ¯à®ªàãâª  áâà ­¨æë ­  áâà®ªã ¢¢¥àå/¢­¨§ ¡¥§ á¬¥é¥­¨ï ªãàá®à 
; Home,End              - ¢ ­ ç «®/ª®­¥æ áâà®ª¨
; Ctrl+Home, Ctrl+End   - ª ¯¥à¢®¬ã/¯®á«¥¤­¥¬ã ¡ ©âã ä ©« 
; Left, Right           - ªãàá®à ¢«¥¢®/¢¯à ¢®
; Ctrl+O                - ®âªàëâì ä ©«
; Ctrl+S                - á®åà ­¨âì
; Ctrl+F                - ¯®¨áª (+Tab ¤«ï OptionBox)
; Ctrl+G                - ¯¥à¥å®¤ ­  á¬¥é¥­¨¥ (+Tab ¤«ï OptionBox)
; Ctrl+B                - ¢ë¤¥«¨âì ¡«®ª
; ESC                   - á­ïâì ¢ë¤¥«¥­¨¥
; Ctrl+C		- ª®¯¨à®¢ âì ¡«®ª
; Ctrl+V		- ¢áâ ¢¨âì ¢ ¢ë¤¥«¥­­ãî ®¡« áâì
; Ctrl+X		- ¢ëà¥§ âì ¢ë¤¥«¥­­ãî ®¡« áâì (¢ ¡ãä¥à)
; n                     - ¨­¢¥àâ¨à®¢ âì ¡ ©â ¯®¤ ªãàá®à®¬
; Ins                   - à¥¦¨¬ § ¬¥­ë/¢áâ ¢ª¨ (¯® ã¬®«ç ­¨î)
;   Del                 - ¢ à¥¦¨¬¥ ¢áâ ¢ª¨ - ã¤ «¨âì ¡ ©â ¯®¤ ªãàá®à®¬
;   BackSpace           - ¢ à¥¦¨¬¥ ¢áâ ¢ª¨ - ã¤ «¨âì ¡ ©â ¯¥à¥¤ ªãàá®à®¬
; ~                     - á¬¥­  ª®¤¨à®¢ª¨ (cp866,cp1251)
; Shift+~               - á¬¥­  ª®¤¨à®¢ª¨ (cp866 ¨«¨ cp1251,koi8-r)
 
;  ¬ïâì ¯¥à¥à á¯à¥¤¥«ï¥âáï ­  ã¢¥«¨ç¥­¨¥ i umen'shenie.
;  ©« § £àã¦ ¥âáï æ¥«¨ª®¬.
 
;  ªà®áë load_lib.mac ¨ ¡¨¡«¨®â¥ªã box_lib.obj á®§¤ «¨:
;  - Alexey Teplov / «¥ªá¥© ¥¯«®¢
; Mario79, Mario - Marat Zakiyanov /  à â  ª¨ï­®¢
; Diamondz - Evgeny Grechnikov / ¢£¥­¨© à¥ç­¨ª®¢ ¨ ¤à.
;
; staper@inbox.ru
; babalbes@yandex.ru
;--------------------------------------------------------------------
use32
	org	0
	db	'MENUET01'
	dd	1
	dd	START	;program start
	dd	I_END	;program image	size
	dd	(D_END+0x600) and not 3	;required amount of memory
	dd	(D_END+0x600) and not 3	;stack
	dd	fname_buf
	dd	cur_dir_path
;--------------------------------------------------------------------
_title	equ 'HeEd 0.16', 0
 
include	'lang.inc'
include '../../../KOSfuncs.inc'
include '../../../config.inc'		;for nightbuild
include '../../../macros.inc'
include	'../../libraries/box_lib/trunk/box_lib.mac'
include	'../../../load_lib.mac'
 
@use_library
;--------------------------------------------------------------------
times	16	dd	0
 
frgrd_color	equ	0xfefefe
bkgrd_color	equ	0x000000
kursred_color	equ	0x0039ff
kurstxt_color	equ	0x708090
text_color	equ	0xaaaaaa
 
panel_clr1	equ	0xe9e9e2
panel_clr2	equ	0x8b8b89
panel_clr3	equ	0x777777;eaeae3
;--------------------------------------------------------------------
palitra:
.1	dd	frgrd_color,bkgrd_color	;æ¢¥â ­¥¢ë¤¥«¥­­®£® á¨¬¢®« 
.2	dd	frgrd_color,text_color	;«¥¢ë©,¯à ¢ë© áâ®«¡æë,ç áâì ­¨¦­¥© áâà®ª¨
.3	dd	kursred_color,frgrd_color	;ªãàá®à 
.4	dd	kurstxt_color,bkgrd_color	;ªãàá®à  ¢ â¥ªáâ®¢®© ®¡« áâ¨
.5	dd	panel_clr1,not	text_color	;­¨¦­ïï ¯ ­¥«ì
;--------------------------------------------------------------------
FIRST_HEX equ 0*65536+24
scroll_width_size equ 15
;--------------------------------------------------------------------
struct	f70
	Function	rd 1
	Position	rd 1
	Flags	rd 1
	Count	rd 1
	Buffer	rd 1
	rezerv	rb 1
	FileName	rd 1
ends
;--------------------------------------------------------------------
START:
	mcall	SF_SYS_MISC,SSF_HEAP_INIT
 
load_libraries l_libs_start,end_l_libs
;--------------------------------------------------------------------
;OpenDialog	initialisation
	push    dword OpenDialog_data
	call    [OpenDialog_Init]
;--------------------------------------------------------------------	
	mov	esi,fname_buf
	cmp	[esi],byte 0
	je	.start_temp_file_name
	
	cld
@@:
	lodsb
	test	al,al
	jne	@b
	
	std
@@:
	lodsb
	cmp	al,'/'	
	jne	@b
	add	esi,2
	jmp	.selected_start_file_name
;--------------------------------------------------------------------	
.start_temp_file_name:
	mov	esi,start_temp_file_name
.selected_start_file_name:
	mov	edi,filename_area
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
 
	mcall	SF_SET_EVENTS_MASK,0x27
 
	mcall	SF_SYS_MISC,SSF_MEM_ALLOC,32*1024	;áâà ­¨ç­ë© ¡ãä¥à
	mov	[screen_table],eax
	mcall	SF_SYS_MISC,SSF_MEM_ALLOC,4*1024
 
	mov	[file_buffer],eax
 
	mcall	SF_SYS_MISC,SSF_MEM_ALLOC,1024
	mov	[copy_buf],eax
 
 
	;à §¬¥à	â¥ªãé¥£® ¯ãâ¨
	mov	esi,cur_dir_path
@@:
	cmp	byte [esi],0
	je	@f
	inc	esi
	jmp	@b
;-------------------------------------
@@:
	sub	esi,cur_dir_path
	mov	[edit1.pos],esi
	mov	[edit1.size],esi
 
	;®¡é¥á¨áâ¥¬­ë¥ ª« ¢¨è¨ ¤«ï Shift+ªãàá®àë
;	mcall	SF_KEYBOARD,SSF_SET_SYS_HOTKEY,75,1
;	mcall	SF_KEYBOARD,,77
;	mcall	SF_KEYBOARD,,72
;	mcall	SF_KEYBOARD,,80
 
	call	ready_screen_buffer
;	jmp	open_file
	mcall	SF_THREAD_INFO,procinfo,-1
	mov	ecx,[ebx+30]	; PID
	mcall	SF_SYSTEM,SSF_GET_THREAD_SLOT
	mov	[active_process],eax	; WINDOW SLOT
;--------------------------------------------------------------------
; open the file if program has a file path, when it was launched
	cmp	[fname_buf],byte 0
	jne	open_dialog.start
;--------------------------------------------------------------------
redraw_all:
	call	control_minimal_window_size
	call	draw_window_1
still:
	mcall	SF_WAIT_EVENT
 
	cmp	eax,6
	je	mouse
	dec	al
	jz	redraw_all
	dec	al
	jz	key
	dec	al
	jz	button
	jmp	still
;---------------------------------------------------------------------
control_minimal_window_size:
	pusha
	mcall	SF_THREAD_INFO,procinfo,-1
	mov	eax,[ebx+70]
	test	eax,10b
	jnz	.end
	test	eax,100b
	jnz	.end
	test	eax,1b
	jnz	.end
	mov	esi,-1
	mov	eax,procinfo
	mov	eax,[eax+46]
	cmp	eax,299
	jae	@f
	mov	esi,299
	mcall	SF_CHANGE_WINDOW,-1,ebx,ebx
@@:
	mov	edx,-1
	mov	eax,procinfo
	mov	eax,[eax+42]
	cmp	eax,399
	jae	@f
	mov	edx,399
	mcall	SF_CHANGE_WINDOW,-1,ebx,,ebx
@@:
.end:
	popa
	ret
;---------------------------------------------------------------------
red:
	call	ready_screen_buffer
	call	main_area
	jmp	still
;---------------------------------------------------------------------
draw_window_1:
	call	start_draw
	call	draw_window
 
	mov     eax,[threath_buf+70]
	test	eax,10b
	jnz     .end
	test	eax,100b
	jnz     .end
 
	call	show_file_size
	call	show_codepage
	call	show_insert
	call	ready_screen_buffer
	call	main_area
.end:
	ret
;---------------------------------------------------------------------
key:
	mcall	SF_GET_KEY
	dec	al
	jz	still
	dec	al
	jz	key.syst
	cmp	ah,2
	je	Ctrl_B	;¢ë¤¥«¨âì ¡«®ª
	cmp	ah,3
	je	Ctrl_C	;copy
	cmp	ah,6
	je	Ctrl_F	;find
	cmp	ah,7
	je	Ctrl_G	;go to
	cmp	ah,8
	je	BackSpace
	cmp	ah,15
	je	open_dialog ;open_file ;Ctrl+O
	cmp	ah,19
	je	open_dialog_save ;save_file ;Ctrl+S
	cmp	ah,22
	je	Ctrl_V	;paste
	cmp	ah,24
	je	Ctrl_X	;cut
	cmp	ah,27
	je	ESC
	cmp	ah,48
	jb	still
	cmp	ah,57
	jbe	input_from_keyboard	;0-9
	cmp	ah,65
	jb	still
	cmp	ah,70
	jbe	input_from_keyboard	;A-F
	cmp	ah,81
	jne	@f
	call	Ctrl_DOWN
	jmp	red
;--------------------------------------
@@:
	cmp	ah,82
	jne	@f
	call	Ctrl_UP
	jmp	red
;--------------------------------------
@@:
	cmp	ah,84
	jne	@f
	call	Ctrl_HOME
	jmp	red
;--------------------------------------
@@:
	cmp	ah,85
	je	Ctrl_END
	cmp	ah,96
	je	change_codepage	;⨫줠, cp866 - cp1251
	cmp	ah,97
	jb	still
	cmp	ah,102
	jbe	input_from_keyboard ;a-f
	cmp	ah,126
	jne	@f
	xor	ah,ah
	jmp	change_codepage	;Shift+~, koi8-r
;--------------------------------------
@@:
	cmp	ah,110
	je	invert_byte ;n
	cmp	ah,176
	jne	@f
	call	LEFT
	jmp	red
;--------------------------------------
@@:
	cmp	ah,177
	jne	@f
	call	DOWN
	jmp	red
;--------------------------------------
@@:
	cmp	ah,178
	je	UP
	cmp	ah,179
	je	RIGHT
	cmp	ah,180
	jne	@f
	call	HOME
	jmp	red
;--------------------------------------
@@:
	cmp	ah,181
	je	END_
	cmp	ah,182
	je	DEL
	cmp	ah,183
	je	PGDN
	cmp	ah,184
	je	PGUP
	cmp	ah,185
	je	Insert
	jmp	still
;--------------------------------------
.syst:
	cmp	ah,72
	cmp	ah,75
	cmp	ah,77
	cmp	ah,80
	jmp	still
;--------------------------------------------------------------------
button:
	mcall	SF_GET_BUTTON
	dec	ah
	jnz	still
 
	jmp	close_prog
;--------------------------------------------------------------------
align	4
mouse:
	mcall	SF_SYSTEM,SSF_GET_ACTIVE_WINDOW
	cmp	[active_process],eax
	jne	still
 
	mcall	SF_MOUSE_GET,SSF_SCROLL_DATA
	test	eax,eax
	jz	.menu_bar_1;.mouse
	bt	eax,15
	jc	@f	;®¡à ¡®âª  ª®«ñá¨ª  ¬ëè¨
	mov	ecx,eax
	shl	ecx,2
.1:
	call	Ctrl_DOWN
	loop	.1
	jmp	red
;--------------------------------------
@@:
	xor	ecx,ecx
	sub	cx,ax
	shl	cx,2
.2:
	call	Ctrl_UP
	loop	.2
	jmp	red
;--------------------------------------------------------------------
.menu_bar_1:
	call	.set_mouse_flag
@@:
	push	dword menu_data_1	;mouse event for Menu 1
	call	[menu_bar_mouse]
	cmp	[menu_data_1.click],dword 1
	jne	.menu_bar_2
	cmp	[menu_data_1.cursor_out],dword 0
	jne	.analyse_out_menu_1
	jmp	.menu_bar_1
;--------------------------------------------------------------------
.menu_bar_2:
	push	dword menu_data_2
	call	[menu_bar_mouse]
	cmp	[menu_data_2.click],dword 1
	jne	.menu_bar_3
	cmp	[menu_data_2.cursor_out],dword 0
	jne	.analyse_out_menu_2
	jmp	.menu_bar_1
;--------------------------------------------------------------------
.menu_bar_3:
	push	dword menu_data_3
	call	[menu_bar_mouse]
	cmp	[menu_data_3.click],dword 1
	jne	.scroll_bar
	cmp	[menu_data_3.cursor_out],dword 0
	jne	.analyse_out_menu_3
	jmp	.menu_bar_1
;--------------------------------------------------------------------
.set_mouse_flag:
	xor	eax,eax
	inc	eax
	mov	[menu_data_1.get_mouse_flag],eax
	mov	[menu_data_2.get_mouse_flag],eax
	mov	[menu_data_3.get_mouse_flag],eax
	ret
;--------------------------------------------------------------------
.analyse_out_menu_1:
	cmp	[menu_data_1.cursor_out],dword 1
	je	open_dialog
	cmp	[menu_data_1.cursor_out],dword 2
	je	open_dialog_save	;save_file
	cmp	[menu_data_1.cursor_out],dword 3
	je	close_prog
	jmp	still
;--------------------------------------------------------------------
.analyse_out_menu_2:
	cmp	[menu_data_2.cursor_out],dword 1
	jne	@f
	add	[bytes_per_line],4
	jmp	redraw_all
;--------------------------------------
@@:
	cmp	[menu_data_2.cursor_out],dword 2
	jne	@f
	add	[bytes_per_line],8
	jmp	redraw_all
;--------------------------------------
@@:
	cmp	[menu_data_2.cursor_out],dword 3
	jne	@f
	cmp	[bytes_per_line],4
	je	still
	sub	[bytes_per_line],4
	jmp	redraw_all
;--------------------------------------
@@:
	cmp	[menu_data_2.cursor_out],dword 4
	jne	still
	cmp	[bytes_per_line],8
	jbe	still
	sub	[bytes_per_line],8
	jmp	redraw_all
;--------------------------------------------------------------------
.analyse_out_menu_3:	;analyse result of Menu 2
	cmp	[menu_data_3.cursor_out],dword 1
	jne	still
	call	create_help_window
	jmp	still
;--------------------------------------------------------------------
.scroll_bar:
;	mcall	SF_MOUSE_GET,SSF_BUTTON
;	test	eax,eax
;	jnz	@f
;	btr	[flags],5
;	btr	[flags],7
;	jmp	still
 
.mouse:
.vertical:
	mcall	SF_MOUSE_GET,SSF_BUTTON
	test	eax,eax
	jnz	@f
	btr	[flags],5
	btr	[flags],7
	jmp	still
;--------------------------------------
@@:
	bt	[flags],5
	jc	@f
	bt	[flags],7
	jc	.horizontal_0
 
	mcall	SF_MOUSE_GET,SSF_WINDOW_POSITION
	shr	eax,16
	cmp	ax,[scroll_bar_data_vertical.x_pos]
	jb	.horizontal
	sub	ax,[scroll_bar_data_vertical.x_pos]
	cmp	ax,[scroll_bar_data_vertical.x_size]
	jge	still
 
 
@@:
;	cmp	[scroll_bar_data_vertictal.delta2],0
	;	jne	.horizontal
 
;	mov	eax,[scroll_bar_data_vertical.max_area]
;	cmp	eax,[scroll_bar_data_vertical.cur_area]
;	jbe	.horizontal
 
	;	mouse event for Vertical ScrollBar
	mov	edi,[screen_table]
	mov	edi,[edi]
	cmp	edi,[file_size]
	jae	still
	push	dword scroll_bar_data_vertical	;draw for Vertical ScrollBar
	call	[scrollbar_ver_mouse]
 
	xor	edx,edx
	mov	ebx,[scroll_bar_data_vertical.max_area]
	sub	ebx,[scroll_bar_data_vertical.cur_area]
	mov	eax,[file_size]
	mov	esi,[bytes_per_line]
	mov	ecx,[scroll_bar_data_vertical.position]
	div	esi
	xor	edx,edx
	mul	ecx
	div	ebx
	mul	esi
	cmp	eax,[file_size]
	jng	@f
	sub	eax,esi;[bytes_per_line]
@@:
	mov	ecx,[cursor]
	inc	ecx
	shr	ecx,1
	add	ecx,eax
@@:
	cmp	ecx,[file_size]
	jle	@f
	sub	ecx,esi;[bytes_per_line]
	sub	eax,esi;[bytes_per_line]
	jmp	@b
;--------------------------------------
@@:
	mov	[begin_offset],eax
	bts	[flags],5
 
	mov	eax,scroll_bar_data_vertical.redraw
	xor	ebx,ebx
;	cmp	[eax],ebx
;	je	@f
	mov	[eax],ebx
	jmp	red
;--------------------------------------------------------------------
;@@:
;	cmp	[scroll_bar_data_vertical.delta2],0
;	jne	still
.horizontal:
	mov	eax,[scroll_bar_data_horizontal.max_area]
	cmp	eax,[scroll_bar_data_horizontal.cur_area]
	jbe	.other
 
	mcall	SF_MOUSE_GET,SSF_WINDOW_POSITION
	cmp	ax,[scroll_bar_data_horizontal.y_pos]
	jb	still
	sub	ax,[scroll_bar_data_horizontal.y_pos]
	cmp	ax,[scroll_bar_data_horizontal.y_size]
	jge	still
 
	; mouse event for Horizontal ScrollBar
.horizontal_0:
;	mcall	SF_MOUSE_GET,SSF_BUTTON
;	test	eax,eax
;	jnz	@f
;	btr	[flags],5
;	btr	[flags],7
;	jmp	still
;@@:;	bt	[flags],7
;	jc	@f
 
;	mcall	SF_MOUSE_GET,SSF_WINDOW_POSITION
;	shr	eax,16
;	cmp	ax,[scroll_bar_data_vertical.x_pos]
;	jb	.horizontal
;	sub	ax,[scroll_bar_data_vertical.x_pos]
;	cmp	ax,[scroll_bar_data_vertical.x_size]
;	jge	still
;@@:
	; mouse event for Vertical ScrollBar
 
	mov	eax,[ready_screen_buffer.string_size]
	shr	eax,1
	cmp	eax,[len_str_scr]
	jle	still
	push	dword scroll_bar_data_horizontal	;draw for Horizontal ScrollBar
	call	[scrollbar_hor_mouse]
 
	xor	edx,edx
	mov	eax,[scroll_bar_data_horizontal.position]
	mov	ebx,[ready_screen_buffer.string_size]
	shr	ebx,1
	mul	ebx
	mov	ebx,[scroll_bar_data_horizontal.max_area]
	sub	ebx,[scroll_bar_data_horizontal.cur_area]
	div	ebx
	mov	[beg_str_scr],eax
	add	eax,[len_str_scr]
	mov	ebx,[ready_screen_buffer.string_size]
	shr	ebx,1
	cmp	eax,ebx
	jle	@f
	mov	eax,[ready_screen_buffer.string_size]
	shr	eax,1
	sub	eax,[len_str_scr]
	mov	[beg_str_scr],eax
@@:
	mov	eax,scroll_bar_data_horizontal.redraw
	xor	ebx,ebx
	cmp	[eax],ebx
	je	.other
	mov	[eax],ebx
;	call	draw_window
	call	main_area
	bts	[flags],7
	jmp	still
;--------------------------------------------------------------------
.other:
;	cmp	[scroll_bar_data_vertical.delta2],0
;	jne	still
;	cmp	[scroll_bar_data_horizontal.delta2],0
;	jne	still
	jmp	still
;--------------------------------------------------------------------
align	4
ready_screen_buffer:
	mov	[.fl],0
	mov	esi,[screen_table]
	add	esi,4
	mov	ecx,[number_strings]
	mov	[.number_strings],cx
	push	[cursor]
	pop	[.cursor]
	push	[file_size]
	pop	[.length_to_end]
	mov	edi,[begin_offset]
 
	mov	[.shblock_end],0
	mov	[.shblock_beg],0
	bt	[flags],8
	jnc	@f
	mov	eax,[shblock_beg]
	add	eax,[file_buffer]
	mov	[.shblock_beg],eax
	mov	eax,[shblock_end]
	add	eax,[file_buffer]
	mov	[.shblock_end],eax
@@:
	mov	[.offset],edi
	sub	[.length_to_end],edi
	jz	.pre_next_string
	add	edi,[file_buffer]
 
.next_string:
	mov	word [esi],0x2020
	add	esi,2
	mov	eax,0x20302030
	mov	dword [esi],eax
	mov	dword [esi+4],eax
	mov	dword [esi+8],eax
	mov	dword [esi+12],eax
	push	edi
	mov	ecx,8
	mov	edi,[.offset]
@@:
	mov	eax,edi
	and	eax,0xF
	cmp	al,10
	sbb	al,69h
	das
	mov	[esi+ecx*2-2],al
	shr	edi,4
	loop	@b
	mov	word [esi+16],0x203a	;¤¢®¥â®ç¨¥
	mov	eax,[bytes_per_line]
	add	[.offset],eax
	mov	[.string_size],2+4*4+4+2
	add	esi,4*4+4+2
	pop	edi
	mov	[.temp],edi
	push	[.cursor]
	pop	[.cursor_temp]
 
	;hex	§­ ç¥­¨ï
	mov	dword [esi-4],0x20202020
 
	mov	edx,[bytes_per_line]
.next_group:
	mov	ecx,[group_bytes]
 
.next_byte:
	mov	al,[edi]
	ror	ax,4
	cmp	al,10
	sbb	al,69h
	das
	mov	[esi],al
	mov	byte [esi+1],0x20
	cmp	edi,[.shblock_end]
	ja	@f
	cmp	edi,[.shblock_beg]
	jl	@f
	mov	byte [esi+1],(0x20+3*4)
@@:
	dec	[.cursor]
	jnz	@f
	mov	byte [esi+1],(0x20+2*4)
@@:
	shr	ax,16-4
	cmp	al,10
	sbb	al,69h
	das
	mov	[esi+2],al
	mov	byte [esi+3],0x20
	cmp	edi,[.shblock_end]
	ja	@f
	cmp	edi,[.shblock_beg]
	jl	@f
	mov	byte [esi+3],(0x20+3*4)
@@:
	dec	[.cursor]
	jnz	@f
	mov	byte [esi+3],(0x20+2*4)
@@:
	mov	word [esi+4],0x2020
	add	[.string_size],6
	add	esi,6
	inc	edi
	dec	[.length_to_end]
	jz	.to_null
	dec	ecx
	jz	@f
	dec	edx
	jnz	.next_byte
	jz	.ascii
@@:
	mov	word [esi],0x2020
	add	esi,2
	add	[.string_size],2
	dec	edx
	jnz	.next_group;byte
	sub	esi,2
	sub	[.string_size],2
	jz	.ascii
.ascii:
	push	edi
	mov	edi,[.temp]
	mov	word [esi],0x2020
	mov	ebx,[.cursor_temp]
	add	esi,2
	add	[.string_size],2
	mov	ecx,[bytes_per_line]
@@:
	mov	al,[edi]
	mov	[esi],al
	mov	byte [esi+1],0x20
	dec	ebx
	jnz	.s1
	mov	byte [esi+1],(0x20+3*4)
.s1:
	dec	ebx
	jnz	.s2
	mov	byte [esi+1],(0x20+3*4)
.s2:
	inc	edi
	add	esi,2
	add	[.string_size],2
	loop	@b
	pop	edi
	mov	edx,[bytes_per_line]
	dec	[.number_strings]
	jnz	.next_string
	ret
;---------------------------------------------------------------------
.fl	db 0
.fl_buf	dd 0
.to_null:
	dec	[.fl]
	mov	[.fl_buf],edi
	jmp	.pre_next_byte0
;--------------------------------------------------------------------
.pre_next_string:
	mov	word [esi],0x2020
	add	esi,2
	mov	eax,0x20302030
	mov	dword [esi],eax
	mov	dword [esi+4],eax
	mov	dword [esi+8],eax
	mov	dword [esi+12],eax
	mov	ecx,8
	mov	edi,[.offset]
@@:
	mov	eax,edi
	and	eax,0xF
	cmp	al,10
	sbb	al,69h
	das
	mov	[esi+ecx*2-2],al
	shr	edi,4
	loop	@b
	mov	word [esi+16],0x203a	;¤¢®¥â®ç¨¥
	mov	eax,[bytes_per_line]
	add	[.offset],eax
	mov	[.string_size],2+4*4+4+2
	add	esi,4*4+4+2
	push	[.cursor]
	pop	[.cursor_temp]
 
	;hex §­ ç¥­¨ï
	mov	dword [esi-4],0x20202020
 
	mov	edx,[bytes_per_line]
.pre_next_group:
	mov	ecx,[group_bytes]
 
.pre_next_byte:
	mov	dword [esi],0x20202020
	dec	[.cursor]
	jnz	@f
	mov	byte [esi+1],(0x20+2*4)
@@:
	dec	[.cursor]
	jnz	@f
	mov	byte [esi+3],(0x20+2*4)
@@:
	mov	word [esi+4],0x2020
	add	[.string_size],6
	add	esi,6
.pre_next_byte0:
	dec	ecx
	jz	@f
	dec	edx
	jnz	.pre_next_byte
	jz	.pre_ascii
@@:
	mov	word [esi],0x2020
	add	esi,2
	add	[.string_size],2
	dec	edx
	jnz	.pre_next_group;byte
	sub	esi,2
	sub	[.string_size],2
	jz	.pre_ascii
 
.pre_ascii:
	mov	word [esi],0x2020
	add	esi,2
	add	[.string_size],2
	mov	ecx,[bytes_per_line]
	cmp	[.fl],0	;¯à®¢¥àª  ä« £ 
	jne	.last_ascii
	mov	ebx,[.cursor_temp]
@@:
	mov	word [esi],0x2020
	dec	ebx
	jnz	.ps1
	mov	byte [esi+1],(0x20+3*4)
.ps1:
	dec	ebx
	jnz	.ps2
	mov	byte [esi+1],(0x20+3*4)
.ps2:
	add	esi,2
	add	[.string_size],2
.1:
	loop	@b
	mov	edx,[bytes_per_line]
	dec	[.number_strings]
	jnz	.pre_next_string
	ret
;---------------------------------------------------------------------
;ª®àà¥ªâ­® ®¡à ¡ âë¢ ¥¬ ä¨­ «ì­ãî áâà®ªã ä ©« , ¤«¨­  ª®â®à®© ¢ à¨ â¨¢­ 
.last_ascii:
	mov	ebx,[.fl_buf]
	sub	ebx,[.temp]
	sub	ecx,ebx
	mov	edi,[.temp]
	mov	[.fl],0
@@:
	mov	al,[edi]
	mov	[esi],al
	mov	byte [esi+1],0x20
	dec	[.cursor_temp]
	jnz	.la1
	mov	byte [esi+1],(0x20+3*4)
.la1:
	dec	[.cursor_temp]
	jnz	.la2
	mov	byte [esi+1],(0x20+3*4)
.la2:
	inc	edi
	add	esi,2
	add	[.string_size],2
	dec	ebx
	jnz	@b
	inc	ecx
	jmp	.1
;--------------------------------------------------------------------
.string_size	dd 16
.number_strings	dw 0
.length_to_end	dd 0
.temp		dd 0
.offset		dd 0
.cursor		dd 0
.cursor_temp	dd 0
.shblock_beg	dd 0
.shblock_end	dd 0
;--------------------------------------------------------------------
align	4
main_area:
	mov	ecx,[number_strings]
	mov	[.number_strings],cx
	push	[len_str_scr]
	pop	[.len_str_scr]
	mov	eax,[ready_screen_buffer.string_size]
	shr	eax,1
	mov	[.string_size],eax
	mov	edi,[screen_table]
	mov	edi,[edi]
	cmp	[file_size],edi
	jbe	.4
	xor	edx,edx	;¯®«§ã­®ª
	mov	ebx,[scroll_bar_data_vertical.max_area]
	sub	ebx,[scroll_bar_data_vertical.cur_area]
	mov	ecx,[file_size]
	mov	eax,[current_offset]
	test	eax,eax
	jnz	.3
	inc	eax
.3:
	mul	ebx
	test	ecx,ecx
	jnz	.5
	inc	ecx
.5:
	div	ecx
	mov	[scroll_bar_data_vertical.position],eax
 
	mcall	SF_MOUSE_GET,SSF_BUTTON	;ª¯®¯ª 	¬ëè¨ ­ ¦ â  - ­¥â á¬ëá«  ¯¥à¥à¨á®¢ë¢ âì ScrollBar
	test	eax,eax
	jnz	.4
	push	dword scroll_bar_data_vertical
	call	[scrollbar_ver_mouse]
 
	push	dword scroll_bar_data_vertical	;draw for Vertical ScrollBar
	call	[scrollbar_ver_draw]
 
;	push	dword scroll_bar_data_vertical	;draw for Vertical ScrollBar
;	call	[scrollbar_ver_draw]
 
;	xor	eax,eax
;	inc	eax
;	mov	[scroll_bar_data_vertical.all_redraw],eax
;	push	dword scroll_bar_data_vertical	;draw for Vertical ScrollBar
;	call	[scrollbar_ver_draw]
;	xor	eax,eax	;reset	all_redraw	flag
;	mov	[scroll_bar_data_vertical.all_redraw],eax
 
.4:
	mov	esi,0x000001	;æ¢¥â ¨ ç¨á«® ¡¨â ­  ¯¨ªá¥«ì
	mov	edx,FIRST_HEX	;ª®®à¤¨­ âë ¯¥à¢®£® hex
	call	show_current_offset
	mov	edi,[screen_table]
	add	edi,4
	mov	ecx,[beg_str_scr]
	sub	[.string_size],ecx
	shl	ecx,1
	add	edi,ecx
.out:
	push	edi
	movzx	ebx,byte [edi]
	cmp	bl,128	;¯à®¢¥àª  ­  ¯à¨­ ¤«¥¦­®áâì á¨¬¢®«  ª à áè¨à¥­­®© â ¡«¨æ¥
	jb	.7
	add	ebx,[codepage_offset]
.7:
	movzx	edi,byte [edi+1]
	lea	edi,[(edi*2-0x40)]
	add	edi,palitra
	shl	bx,4
	add	ebx,font_buffer
	mov	ecx,8*65536+16
	mov	ebp,0
	mcall	SF_PUT_IMAGE_EXT
	pop	edi
 
	add	edi,2
	add	edx,8*65536
 
	dec	[.len_str_scr]
	jz	.loop_str
	dec	[.string_size]
	jz	.next_string
 
	push	edi
	movzx	ebx,byte [edi]
	cmp	bl,128
	jb	.8
	add	ebx,[codepage_offset]
.8:
	movzx	edi,byte [edi+1]
	lea	edi,[(edi*2-0x40)]
	add	edi,palitra
	shl	bx,4
	add	ebx,font_buffer
	mcall
	pop	edi
 
	add	edi,2
	add	edx,8*65536
 
	dec	[.len_str_scr]
	jz	.loop_str
	dec	[.string_size]
	jnz	.out
	jz	.next_string	; WTF?
;--------------------------------------------------------------------
.string_size	dd 0
.number_strings	dw 0
.len_str_scr	dd 0
;--------------------------------------------------------------------
@@:
	pushad
	mov	ecx,edx
	shl	ecx,16
	mov	ebx,edx
	shr	ebx,16
	cmp	bx,[scroll_bar_data_vertical.x_pos]
	jge	.ls1
	mov	ax,[scroll_bar_data_vertical.x_pos]
	sub	ax,bx
	shl	ebx,16
	mov	bx,ax
	mov	cx,16
	mcall	SF_DRAW_RECT,,,frgrd_color
.ls1:
	popad
	jmp	@f
;--------------------------------------------------------------------
.loop_str:
	bt	[flags],6
	jc	@b
@@:
	dec	[.string_size]
	jz	.next_string
	add	edi,2
	add	edx,8*65536
	jmp	@b
;--------------------------------------
@@:;®ç¨áâª  ä®­®¢ë¬ æ¢¥â®¬ ­¥§ ªà è¥­­ëå ®¡« áâ¥©
	pushad
	ror	edx,16
	mov	dx,16
	mov	ecx,edx
	mov	edx,frgrd_color
	movzx	ebx,[scroll_bar_data_vertical.x_pos]
	
	mov	ax,[scroll_bar_data_vertical.x_size]
	test	ax,ax
	jnz	.no_inc_ebx
	inc	ebx
.no_inc_ebx:
	sub	ecx,2*65536
	mov	cx,2
	mcall	SF_DRAW_RECT
	popad
 
	pushad
	mov	ecx,edx
	shl	ecx,16
	mov	ebx,edx
	shr	ebx,16
	cmp	bx,[scroll_bar_data_vertical.x_pos]
	jge	.10
	mov	ax,[scroll_bar_data_vertical.x_pos]
	sub	ax,bx
	shl	ebx,16
	mov	bx,ax
	mov	cx,16
	
	mov	ax,[scroll_bar_data_vertical.x_size]
	test	ax,ax
	jnz	.no_inc_ebx_2
	inc	ebx
.no_inc_ebx_2:
	mcall	SF_DRAW_RECT,,,frgrd_color
.10:
	popad
	jmp	@f
;--------------------------------------------------------------------
.next_string:
	bt	[flags],6
	jc	@b
@@:
	push	[len_str_scr]
	pop	[.len_str_scr]
	mov	eax,[ready_screen_buffer.string_size]
	shr	eax,1
	mov	[.string_size],eax	;ª®àà¥ªæ¨ï á¬¥é¥­¨ï ¢å®¤­ëå ¤ ­­ëå
	mov	ecx,[beg_str_scr]
	sub	[.string_size],ecx
	sub	eax,ecx
	shl	ecx,1
	add	edi,ecx
 
	shl	eax,19
	sub	edx,eax
	add	edx,18
	dec	[.number_strings]
	jnz	.out
	btr	[flags],6
	jmp	end_draw
;--------------------------------------------------------------------
align	4
show_current_offset:
	pushad
	push	edx	;¢ë¢®¤ â¥ªãé¥£® á¬¥é¥­¨ï ¢ ä ©«¥
	mov	edi,palitra.5
	mov	eax,[begin_offset]
	mov	ebx,[cursor]
	dec	ebx
	shr	bx,1
	add	ebx,eax
	mov	[current_offset],ebx
	mov	edx,[low_area]
	lea	eax,[8*8+8+8]
	shl	eax,16
	add	edx,eax
	mov	ecx,8
	call	hex_output
	lea	eax,[8*8+14]
	shl	eax,16
	add	edx,eax
	push	edx
	;¤¢®¨ç­®¥ §­ ç¥­¨¥ ¡ ©â 
	mov	edx,[file_buffer]
	add	edx,ebx;[current_offset]
	xor	eax,eax
	cmp	ebx,[file_size]
	jae	@f
	mov	al,[edx]
@@:
	mov	bx,2
	mov	ebp,8
	xor	ecx,ecx
	xor	edx,edx
@@:
	div	bx
	or	cl,dl
	ror	ecx,4
	dec	ebp
	jnz	@b
	mov	ebx,ecx
	pop	edx
	mov	ecx,8
	call	hex_output
 
	;¤¥áïâ¨ç­®¥
	push	edx
	mov	edx,[file_buffer]
	mov	ebx,[current_offset]
	add	edx,ebx
	xor	eax,eax
	inc	ebx
	cmp	ebx,[file_size]	;0 ¥á«¨ §  £à ­¨æ¥© ä ©« 
	jb	@f
	mov	edx,D_END
@@:
	mov	al,[edx]
	xor	ebx,ebx
;	mov	ebp,3
	mov	cl,10
@@:
	div	cl
	mov	bl,ah
	xor	ah,ah
	shl	ebx,8
	test	al,al
;	dec	ebp
	jnz	@b
	shr	ebx,8
	cmp	byte [edx],100
	jb	.1
	mov	ebp,3
	jmp	@f
;--------------------------------------
.1:
	mov	ebp,1
	cmp	byte [edx],10
	jb	@f
	mov	ebp,2
@@:
	mov	al,bl
	shr	ebx,8
	cmp	al,10
	sbb	al,69h
	das
	shl	eax,8
;	test	bx,bx
	dec	ebp
	jnz	@b
 
	mov	ecx,8*65536+16
	pop	edx
	add	edx,(8*8+30)*65536;268*65536
	mov	edi,palitra.5
	mov	ebp,0
	push	dword 3
@@:
	shr	eax,8
	xor	ebx,ebx
	mov	bl,al
	shl	ebx,4
	add	ebx,font_buffer
	push	eax
	mcall	SF_PUT_IMAGE_EXT
	pop	eax
	sub	edx,8*65536
	dec	dword [esp]
	jnz	@b
	add	esp,4
;	mov	edx,[low_area]	;¢ë¢®¤ esp
;	add	edx,298*65536
;	mov	ebx,esp
;	mov	ecx,8
;	call	hex_output
	pop	edx
	popad
	ret
;---------------------------------------------------------------------
align	4
hex_output:	;¢ë¢®¤ hex áâà®ª¨ ¨§ 8 á¨¬¢®«®¢
	pushad
	mov	edi,(hex8_string)	; ¤à¥á ¡ãä¥à 
	mov	dword [edi],0x30303030
	mov	dword [edi+4],0x30303030
	push	ecx
.1:
	mov	eax,ebx
	and	eax,0xF
	cmp	al,10
	sbb	al,69h
	das
	mov	[edi+ecx-1],al
	shr	ebx,4
	loop	.1
	mov	ecx,8*65536+16
.2:
	push	edi
	xor	ebx,ebx
	mov	al,[edi]
	shl	eax,4
	add	eax,font_buffer
	xchg	eax,ebx
	mov	edi,palitra.5
	mov	ebp,0
	mcall	SF_PUT_IMAGE_EXT
	add	edx,8*65536
	pop	edi
	inc	edi
	dec	dword [esp]
	jnz	.2
	add	esp,4
	popad
	ret
;------------------------------------------------------
align	4
input_from_keyboard:
	xor	al,al
	sub	ah,48
	cmp	ah,9
	jle	.1
	sub	ah,7
	cmp	ah,15
	jle	.1
	sub	ah,32
.1:
	bt	[flags],1
	jnc	.2
	mov	ebx,[cursor]
	and	bl,1
	jz	.2
	inc	[file_size]
	call	raspred_mem
	mov	edi,[current_offset]
	add	edi,[file_buffer]
	mov	esi,[file_buffer]
	add	esi,[file_size]
	dec	esi
@@:
	cmp	edi,esi
	ja	@f
	mov	bl,[esi]
	mov	[esi+1],bl
	dec	esi
	jmp	@b
;--------------------------------------
@@:
	call	show_file_size
	mov	ebx,[current_offset]
	add	ebx,[file_buffer]
	mov	byte [ebx],0
.2:
	mov	ecx,[current_offset]
	add	ecx,[file_buffer]
	;á¬.	¯¥à¢ãî	¢¥àá¨î	heed.asm
	mov	dl,[ecx]	;®à¨£¨­ «ì­ë© ¡ ©â
	mov	ebx,[cursor]
	and	bl,1	;­¥ç¥â - à¥¤ ªâ¨àã¥¬ áâ àè¨© ¯®«ã¡ ©â
	jnz	.hi_half_byte ;çñâ - áâ àè¨©
	and	dl,0xf0	;®¡­ã«ï¥¬ ¬«. ¯-¡ ©â ®à¨£¨­ «ì­®£® ¡ ©â 
	jmp	.patch_byte
;--------------------------------------
.hi_half_byte:	;®¤­®¢à¥¬¥­­® á¤¢¨£ ¥¬ ­ã¦­®¥ §­ ç¥­¨¥ ¢ áâ ¯-â ¨ ®¡­ã«ï¥¬ ¬« ¤è¨©
	shl	ax,4
	and	dl,0x0f	;®¡­ã«ï¥¬ áâ àè¨© ¯®«ã¡ ©â ã ®à¨£¨­ «ì­®£® ¡ ©â 
.patch_byte:
	or	ah,dl
	mov	[ecx],ah
	jmp	RIGHT
;--------------------------------------------------------------------
raspred_mem:
	pushad
	xor	edx,edx
	mov	ecx,4096
	mov	eax,[file_size]
	inc	eax
	div	ecx
	cmp	eax,[prev_f_size_bl]
	ja	@f
	je	.ret
	cmp	[file_size],4096
	jbe	.ret
	mov	[prev_f_size_bl],eax
	xor	edx,edx
	mul	ecx
	mov	ecx,eax
	jmp	.1
;--------------------------------------
@@:
	mov	[prev_f_size_bl],eax
	xor	edx,edx
	mul	ecx
	add	ecx,eax
.1:
	mcall	SF_SYS_MISC,SSF_MEM_REALLOC,,[file_buffer]
.ret:
	popad
	ret
;--------------------------------------------------------------------
align	4
show_file_size:
	mov	ebx,[file_size]
	mov	edx,[low_area];
	mov	esi,1
	mov	ecx,8
	call	hex_output
	ret
;---------------------------------------------------------------------
align	4
create_title:
	mov	edi,title_buf
	mov	esi,title
	cld
@@:
	lodsb
	stosb
	test	al,al
	jne	@b
	mov	[edi-1],byte ' '
	mov	esi,fname_buf
@@:
	lodsb
	stosb
	test	al,al
	jne	@b
	ret
;---------------------------------------------------------------------
align	4
draw_window:
	call	create_title
	xor	esi,esi
	mcall	SF_CREATE_WINDOW,100*65536+653,100*65536+360,((0x73 shl 24) + frgrd_color),,title_buf	;title
	mcall	SF_THREAD_INFO,threath_buf,-1
;	cmp	byte [threath_buf+70],3	;®ª­® á¢ñà­ãâ® ¢ § £®«®¢®ª?
;	jnae	@f
	mov	eax,[threath_buf+70]
	test	eax,10b
	jnz	.@d
	test	eax,100b
	jz	@f
.@d:
	call	end_draw
	ret
;--------------------------------------
@@:
	cmp	dword [threath_buf+66],(24*4)	;¯à®¢¥àª  ¬¨­¨¬ «ì­®© ¢ëá®âë
	jae	@f
	mov	esi,dword [threath_buf+46]
	sub	esi,dword [threath_buf+66]
	add	esi,24*4
	mcall	SF_CHANGE_WINDOW,-1,-1,-1,
	jmp	.@d
;--------------------------------------
@@:
	cmp	dword [threath_buf+62],(26*6)	;¯à®¢¥àª  ¬¨­¨¬ «ì­®© è¨à¨­ë
	jae	@f
	mov	edx,dword [threath_buf+42]
	sub	edx,dword [threath_buf+62]
	add	edx,26*6
	mcall	SF_CHANGE_WINDOW,-1,-1,,-1
	jmp	.@d
;--------------------------------------
@@:
	mov	eax,[file_size]
	mov	ebx,[bytes_per_line]
	xor	edx,edx
	div	ebx
	mov	[scroll_bar_data_vertical.x_size],0
	cmp	eax,[number_strings]
	jl	@f
	mov	[scroll_bar_data_vertical.x_size],scroll_width_size
@@:
	mov	eax,dword [threath_buf+62]	;è¨à¨­  ª«¨¥­âáª®© ®¡« áâ¨
	sub	ax,[scroll_bar_data_vertical.x_size]
	mov	[scroll_bar_data_vertical.x_pos],ax
	mov	eax,dword [threath_buf+66]	;¢ëá®â  ª«¨¥­âáª®© ®¡« áâ¨
	sub	eax,24+24-11
	mov	[scroll_bar_data_vertical.y_size],ax
	mov	ebx,eax
	push	eax
	add	ebx,20
	mov	[scroll_bar_data_vertical.max_area],ebx
	mov	ebx,[scroll_bar_data_vertical.btn_height]
	shl	ebx,1
	add	ebx,20
	mov	[scroll_bar_data_vertical.cur_area],ebx
	pop	eax
	sub	eax,3
	mov	ebx,18
	xor	edx,edx
	div	bx
	mov	[number_strings],eax	;ª®«-¢® hex áâà®ª ¢ ®ª­¥
	mov	ebx,[bytes_per_line]
	mul	ebx
	mov	edi,[screen_table]	;ª®«-¢® ¡ ©â®¢ ¤«ï ¢ë¢®¤ 
	mov	dword [edi],eax
 
	push	eax
 
	mov	ebx,dword [threath_buf+62]
	inc	ebx
	mov	ecx,(FIRST_HEX-18)
	ror	ecx,16
	mov	cx,18
	ror	ecx,16
	mcall	SF_DRAW_RECT,,,frgrd_color	;¯®«®á  á¢¥àåã
 
	mcall	,,18,panel_clr1	;¢¥àå­ïï ¯ ­¥«ì
 
	dec	ebx
	mcall	SF_DRAW_LINE,,<18,18>,panel_clr2
	mov	ecx,dword [threath_buf+66]
	sub	cx,18
	push	cx
	shl	ecx,16
	pop	cx
	mcall	,,,panel_clr3	;­¨¦­ïï ¯ ­¥«ì
	inc	ebx
	add	ecx,1*65536
	mov	cx,18
	mcall	SF_DRAW_RECT,,,panel_clr1
 
 
	mov	eax,dword [threath_buf+62]
	sub	eax,scroll_width_size
	shr	eax,3	;div 8
	mov	[len_str_scr],eax
 
 
	mov	eax,[len_str_scr]
	shl	eax,1
	cmp	eax,[ready_screen_buffer.string_size]
	jae	@f
 
	mov	edi,[screen_table]
	mov	eax,[bytes_per_line]
	sub	dword [edi],eax
	dec	[number_strings]
 
@@:
	shr	ecx,16
	mov	edx,ecx
	mov	ecx,(FIRST_HEX)
	shr	ecx,16
	mov	eax,[number_strings]
	lea	ebx,[eax*8];*18
	lea	ebx,[ebx*2]
	lea	eax,[eax*2]
	add	eax,ebx
	add	cx,ax
	add	cx,21
	sub	dx,cx
	shl	ecx,16
	add	cx,dx
	sub	ecx,1*65536
	movzx	ebx,	word [scroll_bar_data_vertical.x_pos]
	inc	ebx
	mcall	SF_DRAW_RECT,,,frgrd_color
 
	pop	eax
 
	cmp	eax,[file_size]
	jge	@f
;	push	dword scroll_bar_data_vertical
;	call	[scrollbar_ver_mouse]
	xor	eax,eax
	inc	eax
	mov	[scroll_bar_data_vertical.all_redraw],eax
	push	dword scroll_bar_data_vertical	;draw for Vertical ScrollBar
	call	[scrollbar_ver_draw]
	xor	eax,eax	;reset all_redraw flag
	mov	[scroll_bar_data_vertical.all_redraw],eax
@@:
	push	dword menu_data_1	;draw for Menu 1
	call	[menu_bar_draw]
	push	dword menu_data_2	;draw for Menu 2
	call	[menu_bar_draw]
	push	dword menu_data_3	;draw for Menu 3
	call	[menu_bar_draw]
 
;;;
 
	mov	eax,dword [threath_buf+66]
	add	eax,8*65536-15
	mov	[low_area],eax
 
	mov	ebx,[beg_str_scr]
	mov	[beg_str_scr],0
	mov	eax,[len_str_scr]
	shl	eax,1
	cmp	eax,[ready_screen_buffer.string_size]
	jae	@f
 
	mov	[beg_str_scr],ebx
	movzx	eax,word [threath_buf+66]
	sub	eax,34
	mov	[scroll_bar_data_horizontal.y_pos],ax
 
;cur_area/(x_size-30)=len_str_scr/string_size
 
	mov	eax,dword [threath_buf+62]
	sub	ax,[scroll_bar_data_vertical.x_size]
	mov	[scroll_bar_data_horizontal.x_size],ax
	sub	eax,[scroll_bar_data_horizontal.btn_height]
	sub	eax,[scroll_bar_data_horizontal.btn_height]
	mov	[scroll_bar_data_horizontal.max_area],eax
	xor	edx,edx
	mov	ebx,[len_str_scr]
	mul	ebx
	mov	ebx,[ready_screen_buffer.string_size]
	shr	ebx,1
	div	ebx
	mov	[scroll_bar_data_horizontal.cur_area],eax
 
	push	dword scroll_bar_data_horizontal	;draw for Horizontal ScrollBar
	call	[scrollbar_hor_mouse]
	xor	eax,eax
	inc	eax
	mov	[scroll_bar_data_horizontal.all_redraw],eax
	push	dword scroll_bar_data_horizontal	;draw for Vertical ScrollBar
	call	[scrollbar_hor_draw]
	xor	eax,eax	;reset all_redraw flag
	mov	[scroll_bar_data_horizontal.all_redraw],eax
@@:
	mov	eax,[low_area]
	mov	edi,[screen_table]
	mov	esi,[bytes_per_line]
	mov	ecx,esi
	shl	ecx,1
	mov	eax,[edi]
	mov	ebx,[cursor]
	inc	ebx
	shr	ebx,1
@@:
	cmp	eax,ebx
	jge	@f
	add	[begin_offset],esi
	sub	[cursor],ecx
	sub	ebx,esi
	jmp	@b
;--------------------------------------
@@:
	bts	[flags],6
	ret
;--------------------------------------------------------------------
align	4
start_draw:
	mcall	SF_REDRAW,SSF_BEGIN_DRAW
	ret
;--------------------------------------------------------------------
end_draw:
	mcall	SF_REDRAW,SSF_END_DRAW
	ret
;--------------------------------------------------------------------
close_prog:
	mcall	SF_TERMINATE_PROCESS
;--------------------------------------------------------------------
change_codepage:	;¬¥­ï¥¬ ¢â®àãî ¯®«®¢¨­ã â ¡«¨æë
	test	ah,ah
	jnz	@f
	btc	[flags],4
	jc	.1
	push	[codepage_offset]
	pop	[codepage_offset_previous]
	mov	[codepage_offset],2*128
	jmp	.end
;--------------------------------------
.1:
	push	[codepage_offset_previous]
	pop	[codepage_offset]
	jmp	.end
;--------------------------------------
@@:
	cmp	[codepage_offset],0
	jne	@f
	add	[codepage_offset],128
	jmp	.end
;--------------------------------------
@@:
	mov	[codepage_offset],0
.end:
	call	show_codepage
	jmp	red
;--------------------------------------------------------------------
show_codepage:
	mov	ebp,6
	mov	edx,dword [threath_buf+62]
	sub	edx,73
	shl	edx,16
	add	edx,[low_area]
	mov	edi,string_cp866
	cmp	[codepage_offset],0
	je	@f
	add	edi,6
	cmp	[codepage_offset],128
	je	@f
	add	edi,6
@@:
	mov	ecx,8*65536+16
	mov	esi,1
	push	ebp
	mov	ebp,0
@@:
	xor	ebx,ebx
	push	edi
	mov	bl,[edi]
	shl	bx,4
	add	ebx,font_buffer
	mov	edi,palitra.5
	mcall	SF_PUT_IMAGE_EXT
	add	edx,8*65536
	pop	edi
	inc	edi
	dec	dword [esp]
	jnz	@b
	add	esp,4
	ret
;--------------------------------------------------------------------
show_insert:	;®â®¡à ¦¥­¨¥ à¥¦¨¬  ¢áâ ¢ª¨/§ ¬¥­ë
	mov	ebp,3
	mov	edx,dword [threath_buf+62]
	sub	edx,120
	shl	edx,16	; mov edx,428*65536+335
	add	edx,[low_area]
	mov	edi,string_ins
	push	ebp
	mov	ecx,8*65536+16
	mov	esi,1
	mov	ebp,0
.1:
	xor	ebx,ebx
	push	edi
	bt	[flags],1
	jnc	.2
	mov	bl,[edi]
	shl	bx,4
.2:
	add	ebx,font_buffer
	mov	edi,palitra.5
	mcall	SF_PUT_IMAGE_EXT
	add	edx,8*65536
	pop	edi
	inc	edi
	dec	dword [esp]
	jnz	.1
	add	esp,4
	ret
;-------------------------------------------------------------------------------
	;help window
create_help_window:
	pushad
        cmp	[help_is_open_already], 1
        jne	@f
  	mov     ecx, [help_window_pid]
        mcall   SF_SYSTEM, SSF_GET_THREAD_SLOT
        xchg    eax, ecx
        mcall   SF_SYSTEM, SSF_FOCUS_WINDOW
	popad
        ret
;---------------------------------------------------------------------
@@:
	mcall	SF_CREATE_THREAD,1,.thread,(.threat_stack+16*4)
        mov     [help_is_open_already], 1
        mov     [help_window_pid], eax
	popad
	ret
;--------------------------------------------------------------------
.thread:
	call	.window
;--------------------------------------------------------------------
.still:
	mcall	SF_WAIT_EVENT
	dec	al
	jz	.red
	dec	al
	jz	.key
	dec	al
	jz	.button
	jmp	.still
;--------------------------------------------------------------------
        and	[help_is_open_already], 0
	mcall	SF_TERMINATE_PROCESS
.button:
	mcall	SF_GET_BUTTON
	cmp	ah,1
	jne	@f
        and	[help_is_open_already], 0
	mcall	SF_TERMINATE_PROCESS
@@:
	cmp	ah,2
	jne	@f
	mov	edi,(help_end-help_text)/51
	movzx	eax,[cur_help_string]
	sub	edi,13
	sub	edi,eax
	jz	.still
	inc	[cur_help_string]
	jmp	.red
;--------------------------------------
@@:
	cmp	ah,3
	jne	.still
	cmp	[cur_help_string],0
	je	.still
	dec	[cur_help_string]
	jmp	.red
;--------------------------------------------------------------------
.key:
	mcall	SF_GET_KEY
	jmp	.still
;--------------------------------------------------------------------
.red:
	call	.window
	jmp	.still
;--------------------------------------------------------------------
.window:
	pushad
	mcall	SF_REDRAW,SSF_BEGIN_DRAW
	mcall	SF_CREATE_WINDOW,50*65536+320,0x70*65536+240,0x13000000,,help_but_text
	mcall	SF_DEFINE_BUTTON,<130,20>,<6,12>,2,0xaaaaaa
	mcall	,<150,20>,,3,
	mov	ebx,8*65536+15
	mov	ecx,0x00DDDDDD
	xor	edx,edx
	movzx	eax,byte [cur_help_string]
	mov	edi,(help_end-help_text)/51
	sub	edi,eax
	mov	esi,51
	mul	si
	mov	edx,help_text
	add	edx,eax
	mov	eax,SF_DRAW_TEXT
@@:
	add	ebx,0x10
	mcall
	add	edx,51
	dec	edi
	jnz	@b
	mcall	SF_REDRAW,SSF_END_DRAW
	popad
	ret
;--------------------------------------------------------------------
.threat_stack:	times	16	dd	0
;--------------------------------------------------------------------
open_file:
	mov	[func_70.Function],SSF_GET_INFO
	mov	[func_70.Position],0
	mov	[func_70.Flags],0
	mov	[func_70.Count],0
	mov	[func_70.Buffer],bufferfinfo
	mov	[func_70.rezerv],0
	mov	[func_70.FileName],file_name
	mcall	SF_FILE,func_70
 
	test	al,al	;ä ©« ­ ©¤¥­?
	jz	@f
	mcall	SF_DRAW_TEXT,400*65536+31,0x80CC0000,error_open_file_string
	jmp	open_file
;--------------------------------------------------------------------
@@:
	mov	eax,	dword [bufferfinfo+32]	;ª®¯¨àã¥¬ à §¬¥à ä ©« 
	mov	[file_size],eax
 
	mcall	SF_SYS_MISC,SSF_MEM_FREE,[file_buffer]
	test	eax,eax
	jnz	@f
	;§¤¥áì ®è¨¡ª  ­  ­¥ ®á¢®¡®¦¤¥­¨¥ ¡«®ª 
@@:
	mov ecx,[file_size]
	or ecx,ecx
	jnz @f
	inc ecx ;¥á«¨ à §¬¥à ä ©«  0 ¡ ©â
@@:
	mcall	SF_SYS_MISC,SSF_MEM_ALLOC
	mov	[file_buffer],eax
 
;;¨¬¥¥¬ â ¡«¨æã: [ DWORD ãª § â¥«ì ­  ¯¥à¢ë© í«¥¬¥­â ¡«®ª  : DWORD ¤«¨­  ¡«®ª  ]
 
	mov	[func_70.Function],SSF_READ_FILE
	mov	[func_70.Position],0
	mov	[func_70.Flags],0
	mov	[func_70.rezerv],0
	mov	[func_70.FileName],file_name
	push	dword [file_size];dword [edi+4]
	pop	dword [func_70.Count]
	push	dword [file_buffer];dword [edi]
	pop	dword [func_70.Buffer]
	mcall	SF_FILE,func_70
 
	test	eax,eax
	jz	@f
	;®è¨¡ª  çâ¥­¨ï
@@:
	call	Ctrl_HOME
 
	jmp	redraw_all
;-------------------------------------------------------------------------------
open_dialog_save:
	mov	[OpenDialog_data.type],1	; Save
 
	push    dword OpenDialog_data
	call    [OpenDialog_Start]
 
;	cmp	[OpenDialog_data.status],2	; OpenDialog does not start
	cmp	[OpenDialog_data.status],1
	jne	still
	mov	esi,fname_buf
	mov	edi,file_name
	cld
@@:
	cmp	byte [esi],0
	je	@f
	movsb
	jmp	@b
;--------------------------------------
@@:
	mov	byte [edi],0
	sub	esi,path
	mov	[edit1.size],esi
	mov	[edit1.pos],esi
;	jmp	save_file
;-------------------------------------------------------------------------------
save_file:	;á®åà ­ï¥¬ ä ©«
	mov	[func_70.Function],SSF_CREATE_FILE
	mov	[func_70.Position],0
	mov	[func_70.Flags],0
	push	[file_size]
	pop	[func_70.Count]
	push	[file_buffer]
	pop	[func_70.Buffer]
	mov	[func_70.rezerv],0
	mov	[func_70.FileName],file_name
	mcall	SF_FILE,func_70
	cmp	al,0	;á®åà ­ñ­ ã¤ ç­®?
	je	redraw_all
	mcall	SF_DRAW_TEXT,400*65536+31,0x80CC0000,error_save_file_string
	jmp	save_file
;-------------------------------------------------------------------------------
draw_ed_box:	;à¨á®¢ ­¨¥ edit box' 
.1:
	push	eax	ebx	ecx	edx
	mcall	SF_DRAW_RECT,180*65536+220,25*65536+70,0xaaaaaa
	bt	[flags],9
	jnc	@f
	mcall	SF_DRAW_TEXT,246*65536+35,0x80ffffff,sel_text
@@:
	bt	[flags],2
	jnc	@f
	push	dword Option_boxs
	call	[option_box_draw]
@@:
	bt	[flags],3
	jnc	@f
	push	dword Option_boxs2
	call	[option_box_draw]
@@:
	mov	eax,ed_box_data
	mov	ecx,[eax]
@@:
	add	eax,4
	push	dword [eax]
	call	[edit_box_draw]
	loop	@b
	pop	edx	ecx	ebx	eax
.2:
	mcall	SF_WAIT_EVENT
	cmp	al,6
	je	.mouse
	cmp	al,3
	je	.button
	cmp	al,2
	je	.keys
	cmp	al,1
	jne	.2
	call	draw_window
	
	mov     eax,[threath_buf+70]
	test    eax,10b
	jnz     .2
	test    eax,100b
	jnz     .2
	
	call	main_area
	bt	[flags],2
	jnc	@f
	push	dword Option_boxs
	call	[option_box_draw]
@@:
	bt	[flags],3
	jnc	@f
	push	dword Option_boxs2
	call	[option_box_draw]
@@:
	jmp	.1
;--------------------------------------------------------------------
.mouse:
	bt	[flags],2
	jnc	@f
	push	dword Option_boxs
	call	[option_box_mouse]
@@:
	bt	[flags],3
	jnc	@f
	push	dword Option_boxs2
	call	[option_box_mouse]
@@:
	jmp	.2
;--------------------------------------------------------------------
.keys:
	mcall	SF_GET_KEY
	cmp	ah,13
	je	.4
	cmp	ah,27
	je	.3
 
	bt	[flags],2	;¯à®¢¥àª  ­  ¯à¨¬¥­¨¬®áâì á¨¬¢®«®¢ 0-9,a-b
	jnc	.eb2
.eb1:
	cmp	ah,9
	jne	.eb1_1
	push	edx
	mov	edx,[option_group1]
	cmp	edx,op1
	jne	@f
	mov	edx,op2
	jmp	.eb1_2
;--------------------------------------
@@:
	cmp	edx,op2
	jne	@f
	mov	edx,op3
	jmp	.eb1_2
;--------------------------------------
@@:
	mov	edx,op1
.eb1_2:
	mov	[option_group1],edx
	pop	edx
	jmp	.1
;--------------------------------------
.eb1_1:
	cmp	ah,48
	jb	.eb1_3
	cmp	ah,57
	jbe	.eb
	cmp	ah,102
	jg	.eb1_3
	cmp	ah,97
	jge	.eb
.eb1_3:
	cmp	ah,182
	je	.eb
	cmp	ah,8
	je	.eb
	cmp	ah,176
	je	.eb
	cmp	ah,179
	je	.eb
	dec	[edit2.shift]
	dec	[edit2.shift+4]
 
	push	dword [ed_box_data+4];	[esp]
	call	[edit_box_draw]
	jmp	.2
;--------------------------------------
.eb2:
	bt	[flags],3
	jnc	.eb3
	cmp	ah,9
	jne	.eb2_2
	push	edx
	mov	edx,[option_group2]
	cmp	edx,op11
	jne	@f
	mov	edx,op12
	jmp	.eb2_1
;--------------------------------------
@@:
	mov	edx,op11
.eb2_1:
	mov	[option_group2],edx
	pop	edx
	jmp	.1
;--------------------------------------
.eb2_2:
	cmp	ah,182
	je	.eb
	cmp	ah,8
	je	.eb
	cmp	ah,176
	je	.eb
	cmp	ah,179
	je	.eb
	mov	edx,[option_group2]
	cmp	edx,op11
	jne	.eb
	cmp	ah,48
	jb	.eb2_3
	cmp	ah,57
	jbe	.eb
	cmp	ah,102
	jg	.eb2_3
	cmp	ah,97
	jge	.eb
.eb2_3:
	dec	[edit3.shift]
	dec	[edit3.shift+4]
	push	dword [ed_box_data+4];[esp]
	call	[edit_box_draw]
	jmp	.2
;--------------------------------------
.eb3:
	bt	[flags],9
	jnc	.eb
	cmp	ah,9
	je	.eb3_1
	cmp	ah,182
	je	.eb3_2
	cmp	ah,8
	je	.eb3_2
	cmp	ah,176
	je	.eb3_2
	cmp	ah,179
	je	.eb3_2
	cmp	ah,48
	jb	.eb3_3
	cmp	ah,57
	jbe	.eb3_2
	cmp	ah,102
	jg	.eb3_3
	cmp	ah,97
	jge	.eb3_2
.eb3_3:
	push	edx
	mov	edx,[edit4.flags]
	and	edx,2
	jz	@f
	pop	edx
	dec	[edit4.shift]
	dec	[edit4.shift+4]
	jmp	.2
;--------------------------------------
@@:
	pop	edx
	dec	[edit5.shift]
	dec	[edit5.shift+4]
	jmp	.2
;--------------------------------------
.eb3_1:
	push	edx
	mov	edx,[edit4.flags]
	and	edx,2
	jz	@f
	pop	edx
	mov	[edit5.flags],2
	mov	[edit4.flags],0
	jmp	.eb3_2
;--------------------------------------
@@:
	pop	edx
	mov	[edit4.flags],2
	mov	[edit5.flags],0
.eb3_2:
	push	dword [ed_box_data+4]
	call	[edit_box_key]
	push	dword [ed_box_data+8]
	call	[edit_box_key]
	jmp	.1
;--------------------------------------
.eb:
	push	dword [ed_box_data+4];[esp]
	call	[edit_box_key]
	jmp	.2
;--------------------------------------------------------------------
.button:
	mcall	SF_GET_BUTTON
	cmp	ah,1
	jne	.2
	jmp	close_prog
.3:
	btr	[flags],2
	btr	[flags],3
	add	esp,4
	jmp	redraw_all
.4:
	mcall	SF_DRAW_RECT,180*65536+220,25*65536+70,frgrd_color
	ret
;--------------------------------------------------------------------
strtohex:
;enter: edi - pointer to string,ebx - pointer to size of string; exit: eax in hex
	mov	esi,hex8_string
@@:
	mov	ah,[edi+ecx-1]	;®¡à ¡®âª  ¢¢¥¤ñ­­ëå á¨¬¢®«®¢
	sub	ah,48
	cmp	ah,9
	jbe	.1
	sub	ah,7
	cmp	ah,15
	jbe	.1
	sub	ah,32
.1:
	mov	[esi+ecx-1],ah
	dec	ecx
	jnz	@b
	mov	ecx,[ebx]
	xor	eax,eax
.2:
	shl	eax,4
	or	al,[esi]
	inc	esi
	dec	ecx
	jnz	.2
	ret
 
Ctrl_G:
	bts	[flags],2
	mov	dword [ed_box_data],1
	mov	dword [ed_box_data+4],edit2
	call	draw_ed_box
	btr	[flags],2
	mov	ecx,[edit2.size]
	test	ecx,ecx
	jz	.end
	cmp	ecx,8
	jg	Ctrl_G
 
	mov	edi,go_to_string
	mov	ebx,edit2.size
	call	strtohex
 
	cmp	eax,[file_size]	;¢ë¡®à check_box' 
	jg	Ctrl_G
	mov	edx,[option_group1]
	cmp	edx,op1	;abs
	je	.abs
	cmp	edx,op2
	jne	.back
	add	eax,[current_offset]	;forward
	cmp	eax,[file_size]
	jg	Ctrl_G
	mov	edi,[screen_table]
	mov	edi,[edi]
	xor	edx,edx
@@:
	add	edx,edi
	cmp	eax,edx
	jg	@b
	sub	edx,edi
	mov	[begin_offset],edx
	sub	eax,edx
	shl	eax,1
	inc	eax
	mov	[cursor],eax
	jmp	.end
;--------------------------------------------------------------------
.back:
	cmp	eax,[current_offset]	;back
	jg	Ctrl_G
	mov	edi,[screen_table]
	mov	edi,[edi]
	mov	ebx,[current_offset]
	sub	ebx,eax
	xor	edx,edx
@@:
	add	edx,edi
	cmp	edx,ebx
	jb	@b
	sub	edx,edi
	mov	[begin_offset],edx
	sub	ebx,edx
	mov	edx,ebx
	shl	edx,1
	inc	edx
	mov	[cursor],edx
	jmp	.end
;--------------------------------------------------------------------
.abs:
	mov	esi,[screen_table]
	mov	esi,[esi]
	xor	ebx,ebx
.3:
	add	ebx,esi
	cmp	eax,ebx
	jg	.3
	sub	ebx,esi
	cmp	ebx,[file_size]
	jg	Ctrl_G
	mov	[begin_offset],ebx
	sub	eax,ebx
	shl	eax,1
	inc	eax
	mov	[cursor],eax
.end:
	jmp	red
;--------------------------------------------------------------------
Ctrl_B:
	bts	[flags],9
	mov	dword [ed_box_data],2
	mov	dword [ed_box_data+4],edit4
	mov	dword [ed_box_data+8],edit5
	call	draw_ed_box
	btr	[flags],9
 
	mov	ecx,[edit4.size]
	test	ecx,ecx
	jz	.end
	cmp	ecx,8
	jg	Ctrl_B
 
	mov	edi,sel1_string
	mov	ebx,edit4.size
	call	strtohex
 
	cmp	eax,[file_size]
	jge	Ctrl_B
	push	eax	;from
	mov	ecx,[edit5.size]
	test	ecx,ecx
	jz	.end
	cmp	ecx,8
	jg	Ctrl_B
 
	mov	edi,sel2_string
	mov	ebx,edit5.size
	call	strtohex
 
	cmp	eax,[file_size]
	jb	@f
	pop	eax
	jmp	Ctrl_B
 
@@:
	pop	[shblock_beg]
	cmp	eax,[shblock_beg]
	jae	@f
	xchg	eax,[shblock_beg]
@@:
	mov	[shblock_end],eax
	bts	[flags],8
.end:
	jmp	red
;--------------------------------------------------------------------
Ctrl_F:
	bts	[flags],3
	mov	dword [ed_box_data],1
	mov	dword [ed_box_data+4],edit3
	call	draw_ed_box
	btr	[flags],3
	mov	ecx,[edit3.size]
	test	ecx,ecx
	jz	.end
	cmp	ecx,8
	jg	Ctrl_F
	mov	edi,find_string
	mov	edx,[option_group2]
	cmp	edx,op11
	jne	.find
	mov	eax,find_string
	push	dword [eax]
	push	dword [eax+4]
	bts	[flags],0
	mov	ebx,edit3.size
	call	strtohex
	mov	ecx,[edit3.size]
	bt	cx,0
	jnc	.3
	inc	ecx
	shl	eax,4
.3:
	shr	ecx,1
.4:
	mov	[edi+ecx-1],al
	shr	eax,8
	loop	.4
.find:
	mov	esi,[current_offset]
	mov	ebx,[file_size]
	mov	eax,ebx
	add	eax,[file_buffer]
	add	esi,[file_buffer]
.5:
	mov	ecx,[edit3.size]
	cmp	edx,op11
	jne	.7
	bt	cx,0
	jnc	.6
	inc	ecx
.6:
	shr	ecx,1
.7:
	cld
@@:
	cmp	esi,eax
	jg	.end
	cmpsb
	je	.8
	mov	edi,find_string
	jmp	.5
;--------------------------------------
.8:
	loop	@b
	sub	esi,[file_buffer]
	mov	ecx,[edit3.size]
	cmp	edx,op11
	jne	.10
	bt	cx,0
	jnc	.9
	inc	ecx
.9:
	shr	ecx,1
.10:
	sub	esi,ecx
	xor	edx,edx
	mov	edi,[screen_table]
	mov	edi,[edi]
@@:
	add	edx,edi
	cmp	edx,esi
	jb	@b
	sub	edx,edi
	mov	[begin_offset],edx
	sub	esi,edx
	shl	esi,1
	inc	esi
	mov	[cursor],esi
.end:
	bt	[flags],0
	jnc	@f
	mov	eax,find_string
	pop	dword [eax+4]
	pop	dword [eax]
	btr	[flags],0
@@:
	jmp	red
;--------------------------------------------------------------------
invert_byte:
	mov	ebx,[current_offset]
	cmp	ebx,[file_size]
	jae	still
	add	ebx,[file_buffer]
	not	byte [ebx]
	jmp	red
;--------------------------------------------------------------------
Insert:	;¯¥à¥ª«îç¥­¨¥	à¥¦¨¬ 	¢áâ ¢ª¨/§ ¬¥­ë
	btc	[flags],1	;not [insert_mod]
	call	show_insert
	jmp	red
;--------------------------------------------------------------------
DEL:
	bt	[flags],1
	jnc	still
	mov	edi,[current_offset]
	mov	esi,[file_buffer]
	mov	edx,[file_size]
	test	edx,edx
	jz	still
	dec	edx
	cmp	edi,edx
	jbe	@f
	call	LEFT
	call	LEFT
	jmp	red
@@:
	jb	@f
	call	LEFT
	call	LEFT
@@:
	cmp	edi,edx
	je	@f
	mov	al,[edi+esi+1]
	mov	[edi+esi],al
	inc	edi
	jmp	@b
@@:
	dec	[file_size]
	call	show_file_size
	jmp	red
;--------------------------------------------------------------------
BackSpace:
	bt	[flags],1	;cmp [insert_mod],0
	jnc	still	;je still
	mov	edi,[current_offset]
	mov	esi,[file_buffer]
	mov	edx,[file_size]
	test	edx,edx
	jz	still
	test	edi,edi
	jz	still
	call	LEFT
	call	LEFT
	cmp	[cursor],2
	jne	@f
	cmp	edx,1
	jne	@f
	dec	[cursor]
@@:
	cmp	edi,edx
	jge	@f
	mov	al,[edi+esi]
	mov	[edi+esi-1],al
	inc	edi
	jmp	@b
;--------------------------------------
@@:
	dec	[file_size]
	call	show_file_size
	jmp	red
;--------------------------------------------------------------------
Ctrl_UP:
	cmp	[begin_offset],0
	je	@f
	mov	eax,[bytes_per_line]
	sub	[begin_offset],eax
@@:
	ret
;--------------------------------------------------------------------
Ctrl_DOWN:
	mov	eax,[cursor]
	dec	eax
	shr	eax,1
	add	eax,[begin_offset]
	mov	ebx,[bytes_per_line]
	add	eax,ebx
	cmp	eax,[file_size]
	jge	@f
	add	[begin_offset],ebx
@@:
	ret
;--------------------------------------------------------------------
UP:
	mov	eax,[current_offset]
	cmp	eax,[bytes_per_line]
	jb	still
	mov	eax,[cursor]
	dec	ax
	shr	ax,1
	cmp	eax,[bytes_per_line]
	jge	@f
	mov	eax,[bytes_per_line]
	sub	[begin_offset],eax
	jmp	red
@@:
	mov	eax,[bytes_per_line]
	shl	ax,1
	sub	[cursor],eax
	jmp	red
;--------------------------------------------------------------------
DOWN:	;­ 	áâà®ªã	¢­¨§
	mov	eax,[current_offset]
	add	eax,[bytes_per_line]
	bt	[flags],1
	jnc	@f
	dec	eax
@@:
	cmp	eax,[file_size]
	jge	still	;¥á«¨ ¬ë ­  ¯®á«¥¤­¥© áâà®ª¥ ä ©« , â® áâ®¯
	mov	eax,[screen_table]
	mov	eax,[eax]
	mov	edx,[cursor]
	dec	dx
	shr	dx,1
	add	edx,[bytes_per_line]
	cmp	eax,edx	;­  ¯®á«¥¤­¥© áâà®ª¥?
	jbe	@f
	mov	eax,[bytes_per_line]
	shl	ax,1
	add	[cursor],eax
	ret
@@:
	mov	eax,[bytes_per_line]
	add	[begin_offset],eax
	ret
;--------------------------------------------------------------------
LEFT:
	cmp	[cursor],1
	jbe	@f
	dec	[cursor]
	jmp	.end
;--------------------------------------
@@:
	cmp	[begin_offset],0	;ªãàá®à	­  ¯¥à¢®© áâà®ª¥ á® á¬¥é¥­¨¥¬ 0?
	jne	@f	;¨­ ç¥ á¬¥é ¥¬ á ¯à®ªàãâª®© ¢¢¥àå ¢¢¥àå ¨ ¢ ª®­¥æ áâà®ª¨
;	inc	[cursor]
	jmp	.end;still	;â®£¤  áâ®¯
;--------------------------------------
@@:
	mov	eax,[bytes_per_line]
	sub	[begin_offset],eax
	shl	ax,1
	dec	eax
	add	[cursor],eax
.end:
	ret
;--------------------------------------------------------------------
RIGHT:
	mov	ecx,[begin_offset]	;¢ëç¨á«ï¥¬ á¬¥é¥­¨¥ ªãàá®à 
	mov	edx,[cursor]	;¤«ï ¯à®¢¥àª¨ áãé¥áâ¢®¢ ­¨ï
	shr	edx,1	;á«¥¤ãîé¥£® á¨¬¢®« 
	add	ecx,edx
	bt	[flags],1
	jnc	@f
	dec	ecx	;áà ¢­¨¢ ¥¬ á à §¬¥à®¬ ä ©« 
@@:
	cmp	ecx,[file_size]	;¯®«®¦¥­¨¥¬ ªãàá®à  - ­¥ ¤ «¥¥ 1 ¡ ©â  ®â ª®­æ  ä ©« 
	jge	red
	cmp	[file_size],0
	je	still
	mov	eax,[screen_table]
	mov	eax,[eax]
	mov	ecx,[begin_offset]
	cmp	eax,edx	;áà ¢­¥­¨¥ ­  ­¨¦­îî áâà®ªã
	jbe	@f
	inc	[cursor]	;ªãàá®à ¢¯à ¢®
	jmp	red
;--------------------------------------
@@:
	mov	ecx,[bytes_per_line]	;á¬¥é ¥¬áï ­  áâà®çªã ¢­¨§
	add	[begin_offset],ecx	;á ¯à®ªàãâª®©
	shl	cx,1
	dec	cx
	sub	[cursor],ecx
	jmp	red
;--------------------------------------------------------------------
PGDN:
	mov	edi,[screen_table]
	mov	eax,[edi]
	shl	eax,1
	add	eax,[begin_offset]
	cmp	eax,[file_size]	;¥áâì «¨ ¢®§¬®¦­®áâì á¬¥áâ¨âìáï ­  áâà ­¨æã?
	jg	Ctrl_END
	mov	eax,[edi]
	add	[begin_offset],eax
;	mov	ebx,[cursor]
;	dec	ebx
;	xor	ecx,ecx
;	bt	ebx,0
;	jnc	@f
;	inc	ecx
;	@@:	shr	ebx,1
;	add	ebx,eax
;	@@:	cmp	ebx,[file_size]
;	jbe	@f
;	sub	ebx,[bytes_per_line]
;	jmp	@b
;	@@:	sub	ebx,eax
;	shl	ebx,1
;	inc	ebx
;	add	ebx,ecx
;	mov	[cursor],ebx
	jmp	red
;--------------------------------------------------------------------
PGUP:
	mov	eax,[screen_table]
	mov	eax,[eax]
	mov	edx,[begin_offset]
	cmp	eax,edx
	jbe	@f
	call	Ctrl_HOME
	jmp	red
;--------------------------------------
@@:
	sub	[begin_offset],eax
	jmp	red
;--------------------------------------------------------------------
HOME:
	mov	eax,[cursor]
	dec	ax
	shr	ax,1
	mov	ecx,[bytes_per_line]
	xor	edx,edx
	div	ecx
	shl	dx,1
	sub	[cursor],edx
	bt	[cursor],0
	jc	@f
	dec	[cursor]
@@:
	ret
;--------------------------------------------------------------------
END_:
	mov	eax,[cursor]
	dec	ax
	shr	ax,1
	mov	ecx,[bytes_per_line]
	xor	edx,edx
	div	ecx
	mov	eax,[current_offset]
	sub	eax,edx
	add	eax,[bytes_per_line]
	mov	edx,[file_size]
	cmp	eax,edx
	jbe	@f
	sub	edx,eax
	add	eax,edx
@@:
	sub	eax,[begin_offset]
	shl	eax,1
	test	eax,eax
	jz	red
	dec	eax
	mov	[cursor],eax
	jmp	red
;--------------------------------------------------------------------
Ctrl_HOME:
	mov	[begin_offset],0
	mov	[cursor],1
	ret
;--------------------------------------------------------------------
Ctrl_END:
	mov	eax,[file_size]
	mov	ecx,[screen_table]
	mov	ecx,[ecx]
	xor	edx,edx
	div	ecx
	test	dx,dx
	jnz	@f
	test	eax,eax
	jz	@f
	mov	edx,ecx
	dec	eax
@@:
	push	dx
	xor	dx,dx
	mul	ecx
	pop	dx
	shl	edx,1
	cmp	edx,1
	jg	@f
	mov	edx,2
@@:
	dec	edx
	mov	[begin_offset],eax
	mov	[cursor],edx
	jmp	red
;--------------------------------------------------------------------
ESC:
	btr	[flags],8
	jmp	red
;--------------------------------------------------------------------
copy_to_buf:
	bt	[flags],8
	jnc	.1
	mov	eax,[shblock_end]
	sub	eax,[shblock_beg]
	inc	eax
	mov	ecx,eax
	mov	[copy_len],eax
	mcall	SF_SYS_MISC,SSF_MEM_REALLOC,,[copy_buf]
	mov	esi,[shblock_beg]
	mov	edi,[copy_buf]
	add	esi,[file_buffer]
	mov	ecx,[copy_len]
	cld
@@:
	movsb
	loop	@b
	bts	[flags],10
	xor	eax,eax
	ret
;---------------------------------------------------------------------
.1:
	or	eax,-1
	ret
;--------------------------------------------------------------------
Ctrl_C:
	call	copy_to_buf
	jmp	still
;--------------------------------------------------------------------
shblock_sz	dd	0
;--------------------------------------------------------------------
Ctrl_V:
	bt	[flags],10
	jnc	still
	bt	[flags],8
	jnc	.past_kurs
;¢áâ ¢«ï¥¬ ¡«®ª ¢ ¢ë¤¥«¥­­ãî ®¡« áâì
	mov	ebx,[shblock_end]
	sub	ebx,[shblock_beg]
	inc	ebx
	mov	[shblock_sz],ebx
	mov	esi,[copy_buf]
	mov	edi,[file_buffer]
	add	edi,[shblock_beg]
	mov	eax,[copy_len]
.1:
	cld
@@:
	movsb
	dec	eax
	jz	.del
	dec	ebx
	jnz	@b
.add:
	push	esi	edi	eax
	push	[file_size]
	add	[file_size],eax
	call	raspred_mem
	pop	ecx
	mov	edi,[esp+4]
	add	ecx,[file_buffer]
	sub	ecx,edi
	inc	ecx
	mov	edi,[file_size]
	add	edi,[file_buffer]
	mov	esi,edi
	sub	esi,eax
	std
@@:
	movsb
	loop	@b
	pop	eax edi esi
	cld
@@:
	movsb
	dec	eax
	jnz	@b
	mov	eax,[shblock_beg]
	add	eax,[copy_len]
	dec	eax
	mov	[shblock_end],eax
	jmp	red
;--------------------------------------
.del:
	dec	ebx
	jz	red
	mov	ecx,[file_size]
	add	ecx,[file_buffer]
	sub	ecx,edi
	mov	esi,edi
	add	esi,ebx
	cld
@@:
	movsb
	loop	@b
	sub	[file_size],ebx
	call	raspred_mem
	mov	eax,[shblock_beg]
	add	eax,[copy_len]
	dec	eax
	mov	[shblock_end],eax
	jmp	red
;--------------------------------------------------------------------
;¥á«¨ ¡«®ª ­¥ ¢ë¤¥«¥­, â® ¢áâ ¢«ï¥¬ ¡«®ª ¯¥à¥¤ ªãàá®à®¬ 
.past_kurs:
;	bt	[flags],1
;	jnc	still
;	mov	esi,[file_buffer]
;	add	esi,[current_offset]
;	jmp	red
	jmp	still
;--------------------------------------------------------------------
Ctrl_X:
	bt	[flags],1
	jnc	still
	call	copy_to_buf
	test	eax,eax
	jnz	still
 
	mov	ecx,[file_size]
	sub	ecx,[copy_len]
	sub	ecx,[shblock_beg]
	inc	ecx
	mov	ebx,[file_size]
	mov	edi,[shblock_beg]
	mov	esi,[shblock_end]
	inc	esi
	add	esi,[file_buffer]
	add	edi,[file_buffer]
	add	ebx,[file_buffer]
	cld
@@:
	cmp	esi,ebx
	je	.1
	movsb
	loop	@b
.1:
	mov	eax,[file_size]
	sub	eax,[copy_len]
	mov	[file_size],eax
	btr	[flags],8
 
	mov	eax,[shblock_beg]
	mov	esi,[screen_table]
	mov	esi,[esi]
	xor	ebx,ebx
.3:
	add	ebx,esi
	cmp	eax,ebx
	jg	.3
	sub	ebx,esi
;	cmp	ebx,[file_size]
;	jg	Ctrl_G
	mov	[begin_offset],ebx
	sub	eax,ebx
	shl	eax,1
	inc	eax
	mov	[cursor],eax
	jmp	red
;---------------------------------------------------------------------
open_dialog:
	mov	[OpenDialog_data.type],0	; Open
 
	push    dword OpenDialog_data
	call    [OpenDialog_Start]
 
;	cmp	[OpenDialog_data.status],2	; OpenDialog does not start
	cmp	[OpenDialog_data.status],1
	jne	still
.start:
	mov	esi,fname_buf
.load:
	mov	edi,file_name
	cld
@@:
	cmp	byte [esi],0
	je	@f
	movsb
	jmp	@b
@@:
	mov	byte [edi],0
	sub	esi,path
	mov	[edit1.size],esi
	mov	[edit1.pos],esi
	jmp	open_file
;---------------------------------------------------------------------
;----------------------- DATA AREA------------------------
;--------------------------------------------------------------------
align 4
ProcLib_import:
OpenDialog_Init		dd aOpenDialog_Init
OpenDialog_Start	dd aOpenDialog_Start
;OpenDialog__Version	dd aOpenDialog_Version
        dd      0,0
aOpenDialog_Init	db 'OpenDialog_init',0
aOpenDialog_Start	db 'OpenDialog_start',0
;aOpenDialog_Version	db 'Version_OpenDialog',0
;---------------------------------------------------------------------
align	4
Box_lib_import:
edit_box_draw		dd aEdit_box_draw
edit_box_key		dd aEdit_box_key
edit_box_mouse		dd aEdit_box_mouse
version_ed		dd aVersion_ed
 
option_box_draw		dd aOption_box_draw
option_box_mouse	dd aOption_box_mouse
version_op		dd aVersion_op
 
scrollbar_ver_draw	dd aScrollbar_ver_draw
scrollbar_ver_mouse	dd aScrollbar_ver_mouse
scrollbar_hor_draw	dd aScrollbar_hor_draw
scrollbar_hor_mouse	dd aScrollbar_hor_mouse
version_scrollbar	dd aVersion_scrollbar
 
menu_bar_draw		dd aMenu_bar_draw
menu_bar_mouse		dd aMenu_bar_mouse
version_menu_bar	dd aVersion_menu_bar
 
	dd 0,0
 
aEdit_box_draw		db 'edit_box_draw',0
aEdit_box_key		db 'edit_box_key',0
aEdit_box_mouse		db 'edit_box_mouse',0
aVersion_ed		db 'version_ed',0
 
aOption_box_draw	db 'option_box_draw',0
aOption_box_mouse	db 'option_box_mouse',0
aVersion_op		db 'version_op',0
 
aScrollbar_ver_draw	db 'scrollbar_v_draw',0
aScrollbar_ver_mouse	db 'scrollbar_v_mouse',0
aScrollbar_hor_draw	db 'scrollbar_h_draw',0
aScrollbar_hor_mouse	db 'scrollbar_h_mouse',0
aVersion_scrollbar	db 'version_scrollbar',0
 
aMenu_bar_draw		db 'menu_bar_draw',0
aMenu_bar_mouse		db 'menu_bar_mouse',0
aVersion_menu_bar	db 'version_menu_bar',0
;---------------------------------------------------------------------
align	4
scroll_bar_data_vertical scrollbar scroll_width_size, 565, 284, 19, scroll_width_size, 300+20, 50, 0, 0xAAAAAA, 0xCCCCCC, 0, 10
;---------------------------------------------------------------------
align	4
scroll_bar_data_horizontal scrollbar 300, 0, scroll_width_size, 300, scroll_width_size, 300, 30, 1, 0xAAAAAA, 0xCCCCCC, 0, 10
;---------------------------------------------------------------------
align	4
menu_data_1:
.type:		dd 0	;+0
.x:
.size_x	dw 40	;+4
.start_x	dw 2	;+6
.y:
.size_y		dw 15	;+8
.start_y	dw 2	;+10
.text_pointer:	dd menu_text_area	;0	;+12
.pos_pointer:	dd menu_text_area.1	;0	;+16
.text_end	dd menu_text_area.end	;0	;+20
.mouse_pos	dd 0	;+24
.mouse_keys	dd 0	;+28
.x1:
if lang eq ru
 .size_x1	dw 4*2+9*6	;+32
else
 .size_x1	dw 40	;+32
end if
.start_x1	dw 2	;+34
.y1:
.size_y1	dw 100	;+36
.start_y1	dw 18	;+38
.bckg_col	dd 0xeeeeee	;+40
.frnt_col	dd 0xff	;+44
.menu_col	dd 0xffffff	;+48
.select		dd 0	;+52
.out_select	dd 0	;+56
.buf_adress	dd 0	;+60
.procinfo	dd 0	;+64
.click		dd 0	;+68
.cursor		dd 0	;+72
.cursor_old	dd 0	;+76
.interval	dd 16	;+80
.cursor_max	dd 0	;+84
.extended_key	dd 0	;+88
.menu_sel_col	dd 0x00cc00	;+92
.bckg_text_col	dd 0	;+96
.frnt_text_col	dd 0xffffff	;+100
.mouse_keys_old	dd 0	;+104
.font_height	dd 8	;+108
.cursor_out	dd 0	;+112
.get_mouse_flag	dd 0	;+116
 
menu_text_area:
if lang eq ru
  	 db ' ©«',0
 .1:
	 db 'âªàëâì',0
	 db '®åà ­¨âì',0
	 db 'ëå®¤',0
else
  	 db 'File',0
 .1:
	 db 'Open',0
	 db 'Save',0
	 db 'Exit',0
end if
.end:
	 db 0
 
;---------------------------------------------------------------------
align	4
menu_data_2:
.type:		dd 0	;+0
.x:
.size_x	dw 40	;+4
.start_x	dw 43	;+6
.y:
.size_y		dw 15	;+8
.start_y	dw 2	;+10
.text_pointer:	dd menu_text_area_2	;0	;+12
.pos_pointer:	dd menu_text_area_2.1	;0	;+16
.text_end	dd menu_text_area_2.end	;0	;+20
.mouse_pos	dd 0	;+24
.mouse_keys	dd 0	;+28
.x1:
.size_x1	dw 4*2+5*6	;+32
.start_x1	dw 43	;+34
.y1:
.size_y1	dw 100	;+36
.start_y1	dw 18	;+38
.bckg_col	dd 0xeeeeee	;+40
.frnt_col	dd 0xff	;+44
.menu_col	dd 0xffffff	;+48
.select		dd 0	;+52
.out_select	dd 0	;+56
.buf_adress	dd 0	;+60
.procinfo	dd 0	;+64
.click		dd 0	;+68
.cursor		dd 0	;+72
.cursor_old	dd 0	;+76
.interval	dd 16	;+80
.cursor_max	dd 0	;+84
.extended_key	dd 0	;+88
.menu_sel_col	dd 0x00cc00	;+92
.bckg_text_col	dd 0	;	+96
.frnt_text_col	dd 0xffffff	;+100
.mouse_keys_old	dd 0	;+104
.font_height	dd 8	;+108
.cursor_out	dd 0	;+112
.get_mouse_flag	dd 0	;+116
 
menu_text_area_2:
if lang eq ru
	 db '¨¤',0
 .1:
else
	 db 'View',0
 .1:
end if
	 db 'Add 4',0
	 db 'Add 8',0
	 db 'Sub 4',0
	 db 'Sub 8',0
.end:
	 db 0
 
;---------------------------------------------------------------------
align	4
menu_data_3:
.type:		dd 0	;+0
.x:
if lang eq ru
 .size_x	dw 4*2+7*6	;+32
else
 .size_x	dw 40	;+4
end if
.start_x	dw 84	;+6
.y:
.size_y		dw 15	;+8
.start_y	dw 2	;+10
.text_pointer:	dd menu_text_area_3	;0	;+12
.pos_pointer:	dd menu_text_area_3.1	;0	;+16
.text_end	dd menu_text_area_3.end	;0	;+20
.mouse_pos	dd 0	;+24
.mouse_keys	dd 0	;+28
.x1:
if lang eq ru
 .size_x1	dw 4*2+7*6	;+32
else
 .size_x1	dw 40	;+32
end if
.start_x1	dw 84	;+34
.y1:
.size_y1	dw 100	;+36
.start_y1	dw 18	;+38
.bckg_col	dd 0xeeeeee	;+40
.frnt_col	dd 0xff	;+44
.menu_col	dd 0xffffff	;+48
.select		dd 0	;+52
.out_select	dd 0	;+56
.buf_adress	dd 0	;+60
.procinfo	dd 0	;+64
.click		dd 0	;+68
.cursor		dd 0	;+72
.cursor_old	dd 0	;+76
.interval	dd 16	;+80
.cursor_max	dd 0	;+84
.extended_key	dd 0	;+88
.menu_sel_col	dd 0x00cc00	;+92
.bckg_text_col	dd 0	;	+96
.frnt_text_col	dd 0xffffff	;+100
.mouse_keys_old	dd 0	;+104
.font_height	dd 8	;+108
.cursor_out	dd 0	;+112
.get_mouse_flag	dd 0	;+116
 
menu_text_area_3:
if lang eq ru
	db '¯à ¢ª ',0
 .1:
	db '¯à ¢ª ',0
else
	db 'Help',0
 .1:
	db 'Help',0
end if
.end:
	db 0
;---------------------------------------------------------------------
edit1	edit_box 200,190,27,0xffffff,0x6a9480,0,0xAABBCC,0,134,cur_dir_path,ed_focus,ed_focus,6,6	;ä ©«	®âªàëâì\á®åà ­¨âì
edit2	edit_box 55,270,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,go_to_string,ed_focus,ed_focus,0,0	;¯¥à¥å®¦¤	­ 	á¬¥é¥­¨¥
edit3	edit_box 55,270,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,find_string,ed_focus,ed_focus,0,0	;¯®¨áª
edit4	edit_box 55,220,49,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,sel1_string,ed_focus,ed_focus,0,0	;¢ë¤¥«¨âì	¡«®ª	­ ç.á¬¥é.
edit5	edit_box 55,300,49,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,sel2_string,ed_focus,0,0,0	;¢ë¤¥«¨âì	¡«®ª	ª®­.á¬¥é.
 
op1	option_box option_group1,210,50,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1,1
op2	option_box option_group1,310,50,6,12,0xFFFFFF,0,0,op_text.2,op_text.e2-op_text.2
op3	option_box option_group1,310,65,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
op11	option_box option_group2,210,50,6,12,0xffffff,0,0,op_text2.11,op_text2.e11-op_text2.11
op12	option_box option_group2,310,50,6,12,0xffffff,0,0,op_text2.21,op_text2.e21-op_text2.21
 
option_group1	dd op1	;ãª § â¥«¨, ®­¨ ®â®¡à ¦ îâáï ¯® ã¬®«ç ­¨î, ª®£¤  ¢ë¢®¤¨âáï
option_group2	dd op11	;¯à¨«®¦¥­¨¥
Option_boxs	dd op1,op2,op3,0
Option_boxs2	dd op11,op12,0
 
op_text:	; ®¯à®¢®¦¤ îé¨© â¥ªáâ ¤«ï ç¥ª ¡®ªá®¢
if lang eq ru
 .1	db '¡á®«îâ­®¥'
 .e1:
 .2	db '¯¥à¥¤'
 .e2:
 .3	db ' § ¤'
 .e3:
else
 .1	db 'Absolutely'
 .e1:
 .2	db 'Forward'
 .e2:
 .3	db 'Back'
 .e3:
end if
 
op_text2:
.11	db 'Hex'
.e11:
.21	db 'ASCII'
.e21:
;--------------------------------------------------------------------
system_dir_Boxlib			db '/sys/lib/box_lib.obj',0
system_dir_ProcLib			db '/sys/lib/proc_lib.obj',0
 
sel_text	db "From to",0
 
help_but_text	= menu_text_area_3 ;db	'Help',0
 
head_f_i:
if lang eq ru
 error_open_file_string	db " ©« ­¥ ­ ©¤¥­!",0
 error_save_file_string	db " ©« ­¥ á®åà ­¥­!",0
else
 error_open_file_string	db "Isn't found!",0
 error_save_file_string	db "Isn't saved!",0
end if
string_cp866	db ' cp866'
string_cp1251	db 'cp1251'
string_koi8r	db 'koi8-r'
string_ins	db 'Ins'
 
 
align	4
number_strings	dd 16	;ª®«¨ç¥áâ¢® áâà®ª ­  «¨áâ¥
;bytes_per_line	dd 16	;ª®«-¢® áâ®«¡æ®¢
 
group_bytes	dd 8
bytes_per_line	dd 16
 
 
 
;blocks_counter	dd 1
;blocks_table	dd 0
cursor	dd 1
 
flags	dw 001000010b
;¡¨â	0: ¢ edit_box - ¢®á¯à¨ïâ¨¥/(­¥)	¢á¥å ¢¢®¤¨¬ëå á¨¬¢®«®¢
;1:	0/1 - à¥¦¨¬ § ¬¥­ë/¢áâ ¢ª¨
;2:	¢ edit_box - ®¡à ¡®âª  Ctrl_G
;3:	¢ edit_box - ®¡à ¡®âª  Ctrl_F
;4:	¢ change_codepage - ¥á«¨ ¯®¤­ïâ, â® ¢®ááâ ­®¢¨âì ¯à¥¤ë¤ãéãî ª®¤¨à®¢ªã
;5:	vertical_scroll_bar move
;6:	¯®«­ ï	¯¥à¥à¨á®¢ª  ®ª­ 
;7:	horizontal_scroll_bar move
;8:	1 - ¢ë¤¥«¥­ ¡«®ª
;9:	¢ edit_box - ®¡à ¡®âª  Ctrl_B
;10:	¢ ¯ ¬ïâ¨ "¢¨á¨â" áª®¯¨à®¢ ­­ë© ¡«®ª
;--------------------------------------------------------------------
help_text:
if lang eq ru
 db 'Ctrl+O              - ®âªàëâì ä ©«                 '
 db 'Ctrl+S              - á®åà ­¨âì                    '
 db 'PageUp, PageDown    - áâà ­¨æ  ¢¢¥àå/¢­¨§          '
 db 'Ctrl+UP, Ctrl+Down  - ¯à®ªàãâª  áâà ­¨æë ­  áâà®-  '
 db '                 ªã ¢¢¥àå/¢­¨§ ¡¥§ á¬¥é¥­¨ï ªãàá®à '
 db 'Home,End            - ¢ ­ ç «®/ª®­¥æ áâà®ª¨        '
 db 'Ctrl+Home, Ctrl+End - ¢ ­ ç «®/ª®­¥æ ä ©«          '
 db 'Left, Right, UP, DN - ªãàá®à ¢«¥¢®/¢¯à ¢®/¢ëè¥/­¨¦¥'
 db 'n                   - ¨­¢¥àâ¨à®¢ âì ¡ ©â           '
 db 'Ins                 - à¥¦¨¬ § ¬¥­ë/¢áâ ¢ª¨         '
 db '  Del               - ã¤ «¨âì ¡ ©â ¯®¤ ªãàá®à®¬    '
 db '  BackSpace         - ã¤ «¨âì ¡ ©â ¯¥à¥¤ ªãàá®à®¬  '
 db '~                   - á¬¥­  ª®¤¨à®¢®ª cp866,cp1251 '
 db 'Shift+~             - cp866/cp1251,koi8r           '
 db 'Ctrl+F              - ¯®¨áª                        '
 db 'Ctrl+G              - ¯¥à¥å®¤ ­  á¬¥é¥­¨¥          '
 db 'Ctrl+B              - ¢ë¤¥«¨âì ¡«®ª                '
 db 'ESC                 - á­ïâì ¢ë¤¥«¥­¨¥              '
 db 'Ctrl+C              - ª®¯¨à®¢ âì ¡«®ª              '
 db 'Ctrl+V              - ¢áâ ¢¨âì ¢ ¢ë¤¥«¥­­ãî ®¡« áâì'
 db 'Ctrl+X              - ¢ëà¥§ âì ¢ ¡ãä¥à             '
else
 db 'Ctrl+O              - open file                    '
 db 'Ctrl+S              - save file                    '
 db 'PageUp, PageDown    - page up/down                 '
 db 'Ctrl+UP, Ctrl+Down  - scroll page by one string    '
 db '                    up/down without cursor movement'
 db 'Home,End            - at the start/end of string   '
 db 'Ctrl+Home, Ctrl+End - at the start/end of file     '
 db 'Left, Right, Up, Dn - move cursor to the lft/rght..'
 db 'n                   - invert byte                  '
 db 'Ins                 - replace/past mode            '
 db '  Del               - delete byte under cursor     '
 db '  BackSpace         - delete byte before cursor    '
 db '~                   - change codepages cp866,cp1251'
 db 'Shift+~             - cp866/cp1251,koi8r           '
 db 'Ctrl+F              - find                         '
 db 'Ctrl+G              - go to offset                 '
 db 'Ctrl+B              - select area                  '
 db 'ESC                 - deselect area                '
 db 'Ctrl+C              - copy area                    '
 db 'Ctrl+V              - past into area from buf      '
 db 'Ctrl+X              - cut area into buffer         '
end if
help_end:
;--------------------------------------------------------------------
;align	4096
font_buffer	file 'cp866-8x16'	;ASCII+cp866	(+ð,ñ)
cp1251		file 'cp1251-8x16'
koi8_r		file 'koi8-r-8x16'	
 
title	db	_title
;---------------------------------------------------------------------
l_libs_start:
 
library01  l_libs system_dir_Boxlib+9, buf_cmd_lin, system_dir_Boxlib, Box_lib_import
 
library02  l_libs system_dir_ProcLib+9, buf_cmd_lin, system_dir_ProcLib, ProcLib_import
 
end_l_libs:
;---------------------------------------------------------------------
OpenDialog_data:
.type			dd 0
.procinfo		dd procinfo	;+4
.com_area_name		dd communication_area_name	;+8
.com_area		dd 0	;+12
.opendir_pach		dd temp_dir_pach	;+16
.dir_default_pach	dd communication_area_default_pach	;+20
.start_path		dd open_dialog_path	;+24
.draw_window		dd draw_window_1	;+28
.status			dd 0	;+32
.openfile_pach 		dd fname_buf	;+36
.filename_area		dd filename_area	;+40
.filter_area		dd Filter
.x:
.x_size			dw 420 ;+48 ; Window X size
.x_start		dw 10 ;+50 ; Window X position
.y:
.y_size			dw 320 ;+52 ; Window y size
.y_start		dw 10 ;+54 ; Window Y position
 
communication_area_name:
	db 'FFFFFFFF_open_dialog',0
open_dialog_path:
if __nightbuild eq yes
	db '/sys/MANAGERS/opendial',0
else
	db '/sys/File Managers/opendial',0
end if
communication_area_default_pach:
	db '/sys',0
 
Filter:
dd	Filter.end - Filter.1
.1:
;db	'BIN',0
;db	'DAT',0
.end:
db	0
 
start_temp_file_name:	db 'temp.bin',0
 
;---------------------------------------------------------------------
I_END:
;--------------------------------------------------------------------
file_name:
cur_dir_path	rb 4096
buf_cmd_lin	rb 0
procinfo:	;opendialog
threath_buf:
	rb 0x400
path:
		rb 1024+16	;opendialog
 
screen_table	rd 1
begin_offset	rd 1
file_buffer	rd 1
 
copy_buf	rd 1
copy_len	rd 1
 
current_offset	rd 1
;	rd	1 ;¯®¤ áâ àè¨© dword
codepage_offset	rd 1
codepage_offset_previous	rd 1
low_area	rd 1	;ª®®à¤¨­ âë ­¨¦­¥© áâà®ª¨
right_table_xy	rd 1
 
prev_f_size_bl	rd 1
 
len_str_scr	rd 1
beg_str_scr	rd 1
 
shblock_beg	rd 1	;á¬¥é¥­¨¥ ­ ç «  ¡«®ª 
shblock_end	rd 1	;á¬¥é¥­¨¥ ª®­æ  ¡«®ª 
 
;mouse_flag	rd 1
file_size	rd 1
;	rd	1 ;¯®¤ áâ àè¨© dword
 
active_process	rd 1
 
ed_box_data:	rd 8	;¯¥à¢ë© dword -ª®«-¢® í«¥¬¥­â®¢ ¤«ï ®¡à ¡®âª¨, ¤ «¥¥ ãª § â¥«¨ ­  editX;
 
bufferfinfo	rb 40
hex8_string	rb 9	;¡ãä¥à ¤«ï hex_output
go_to_string	rb 9
find_string	rb 17
sel1_string	rb 9
sel2_string	rb 9
cur_help_string	rb 1	;­®¬¥à áâà®ª¨, á ª®â®à®© ¢ë¢®¤¨âáï â¥ªáâ ¢ help - ®ª­¥
 
help_is_open_already	rb 1  ;¥á«¨ ®ª­® á¯à ¢ª¨ ®âªàëâ®, â® §¤¥áì 1
help_window_pid 	rd 1
 
func_70	f70
;---------------------------------------------------------------------
title_buf:
	rb 4096
;---------------------------------------------------------------------
fname_buf:
	rb 4096
;---------------------------------------------------------------------
temp_dir_pach:
	rb 4096
;---------------------------------------------------------------------
filename_area:
	rb 256
;---------------------------------------------------------------------
D_END:

Rev 9568	Rev 9587
1	;--------------------------------------------------------------------	1	;--------------------------------------------------------------------
2	; v.016 30.07.2011	2	; v.016 30.07.2011
3	; Start with open file path	3	; Start with open file path
4	; Show working file path	4	; Show working file path
5	; Some optimization	5	; Some optimization
6	;	6	;
7	; Marat Zakiyanov aka Mario79, aka Mario	7	; Marat Zakiyanov aka Mario79, aka Mario
8	;--------------------------------------------------------------------	8	;--------------------------------------------------------------------
9	; v.015 08.03.2010	9	; v.015 08.03.2010
10	; Support for OpenDialog - Open and Save	10	; Support for OpenDialog - Open and Save
11	; Some optimization	11	; Some optimization
12	;	12	;
13	; Marat Zakiyanov aka Mario79, aka Mario	13	; Marat Zakiyanov aka Mario79, aka Mario
14	;--------------------------------------------------------------------	14	;--------------------------------------------------------------------
15	; v.014 05.02.2010	15	; v.014 05.02.2010
16	;	16	;
17	; PageUp, PageDown - áâà ¨æ ¢¢¥àå/¢¨§	17	; PageUp, PageDown - áâà ¨æ ¢¢¥àå/¢¨§
18	; Ctrl+UP, Ctrl+Down - ¯à®ªàãâª áâà ¨æë áâà®ªã ¢¢¥àå/¢¨§ ¡¥§ á¬¥é¥¨ï ªãàá®à	18	; Ctrl+UP, Ctrl+Down - ¯à®ªàãâª áâà ¨æë áâà®ªã ¢¢¥àå/¢¨§ ¡¥§ á¬¥é¥¨ï ªãàá®à
19	; Home,End - ¢ ç «®/ª®¥æ áâà®ª¨	19	; Home,End - ¢ ç «®/ª®¥æ áâà®ª¨
20	; Ctrl+Home, Ctrl+End - ª ¯¥à¢®¬ã/¯®á«¥¤¥¬ã ¡ ©âã ä ©«	20	; Ctrl+Home, Ctrl+End - ª ¯¥à¢®¬ã/¯®á«¥¤¥¬ã ¡ ©âã ä ©«
21	; Left, Right - ªãàá®à ¢«¥¢®/¢¯à ¢®	21	; Left, Right - ªãàá®à ¢«¥¢®/¢¯à ¢®
22	; Ctrl+O - ®âªàëâì ä ©«	22	; Ctrl+O - ®âªàëâì ä ©«
23	; Ctrl+S - á®åà ¨âì	23	; Ctrl+S - á®åà ¨âì
24	; Ctrl+F - ¯®¨áª (+Tab ¤«ï OptionBox)	24	; Ctrl+F - ¯®¨áª (+Tab ¤«ï OptionBox)
25	; Ctrl+G - ¯¥à¥å®¤ á¬¥é¥¨¥ (+Tab ¤«ï OptionBox)	25	; Ctrl+G - ¯¥à¥å®¤ á¬¥é¥¨¥ (+Tab ¤«ï OptionBox)
26	; Ctrl+B - ¢ë¤¥«¨âì ¡«®ª	26	; Ctrl+B - ¢ë¤¥«¨âì ¡«®ª
27	; ESC - áïâì ¢ë¤¥«¥¨¥	27	; ESC - áïâì ¢ë¤¥«¥¨¥
28	; Ctrl+C - ª®¯¨à®¢ âì ¡«®ª	28	; Ctrl+C - ª®¯¨à®¢ âì ¡«®ª
29	; Ctrl+V - ¢áâ ¢¨âì ¢ ¢ë¤¥«¥ãî ®¡« áâì	29	; Ctrl+V - ¢áâ ¢¨âì ¢ ¢ë¤¥«¥ãî ®¡« áâì
30	; Ctrl+X - ¢ëà¥§ âì ¢ë¤¥«¥ãî ®¡« áâì (¢ ¡ãä¥à)	30	; Ctrl+X - ¢ëà¥§ âì ¢ë¤¥«¥ãî ®¡« áâì (¢ ¡ãä¥à)
31	; n - ¨¢¥àâ¨à®¢ âì ¡ ©â ¯®¤ ªãàá®à®¬	31	; n - ¨¢¥àâ¨à®¢ âì ¡ ©â ¯®¤ ªãàá®à®¬
32	; Ins - à¥¦¨¬ § ¬¥ë/¢áâ ¢ª¨ (¯® ã¬®«ç ¨î)	32	; Ins - à¥¦¨¬ § ¬¥ë/¢áâ ¢ª¨ (¯® ã¬®«ç ¨î)
33	; Del - ¢ à¥¦¨¬¥ ¢áâ ¢ª¨ - ã¤ «¨âì ¡ ©â ¯®¤ ªãàá®à®¬	33	; Del - ¢ à¥¦¨¬¥ ¢áâ ¢ª¨ - ã¤ «¨âì ¡ ©â ¯®¤ ªãàá®à®¬
34	; BackSpace - ¢ à¥¦¨¬¥ ¢áâ ¢ª¨ - ã¤ «¨âì ¡ ©â ¯¥à¥¤ ªãàá®à®¬	34	; BackSpace - ¢ à¥¦¨¬¥ ¢áâ ¢ª¨ - ã¤ «¨âì ¡ ©â ¯¥à¥¤ ªãàá®à®¬
35	; ~ - á¬¥ ª®¤¨à®¢ª¨ (cp866,cp1251)	35	; ~ - á¬¥ ª®¤¨à®¢ª¨ (cp866,cp1251)
36	; Shift+~ - á¬¥ ª®¤¨à®¢ª¨ (cp866 ¨«¨ cp1251,koi8-r)	36	; Shift+~ - á¬¥ ª®¤¨à®¢ª¨ (cp866 ¨«¨ cp1251,koi8-r)
37		37
38	; ¬ïâì ¯¥à¥à á¯à¥¤¥«ï¥âáï ã¢¥«¨ç¥¨¥ i umen'shenie.	38	; ¬ïâì ¯¥à¥à á¯à¥¤¥«ï¥âáï ã¢¥«¨ç¥¨¥ i umen'shenie.
39	; ©« § £àã¦ ¥âáï æ¥«¨ª®¬.	39	; ©« § £àã¦ ¥âáï æ¥«¨ª®¬.
40		40
41	; ªà®áë load_lib.mac ¨ ¡¨¡«¨®â¥ªã box_lib.obj á®§¤ «¨:	41	; ªà®áë load_lib.mac ¨ ¡¨¡«¨®â¥ªã box_lib.obj á®§¤ «¨:
42	; - Alexey Teplov / «¥ªá¥© ¥¯«®¢	42	; - Alexey Teplov / «¥ªá¥© ¥¯«®¢
43	; Mario79, Mario - Marat Zakiyanov / à â ª¨ï®¢	43	; Mario79, Mario - Marat Zakiyanov / à â ª¨ï®¢
44	; Diamondz - Evgeny Grechnikov / ¢£¥¨© à¥ç¨ª®¢ ¨ ¤à.	44	; Diamondz - Evgeny Grechnikov / ¢£¥¨© à¥ç¨ª®¢ ¨ ¤à.
45	;	45	;
46	; staper@inbox.ru	46	; staper@inbox.ru
47	; babalbes@yandex.ru	47	; babalbes@yandex.ru
48	;--------------------------------------------------------------------	48	;--------------------------------------------------------------------
49	use32	49	use32
50	org 0	50	org 0
51	db 'MENUET01'	51	db 'MENUET01'
52	dd 1	52	dd 1
53	dd START ;program start	53	dd START ;program start
54	dd I_END ;program image size	54	dd I_END ;program image size
55	dd (D_END+0x600) and not 3 ;required amount of memory	55	dd (D_END+0x600) and not 3 ;required amount of memory
56	dd (D_END+0x600) and not 3 ;stack	56	dd (D_END+0x600) and not 3 ;stack
57	dd fname_buf	57	dd fname_buf
58	dd cur_dir_path	58	dd cur_dir_path
59	;--------------------------------------------------------------------	59	;--------------------------------------------------------------------
60	_title equ 'HeEd 0.16', 0	60	_title equ 'HeEd 0.16', 0
61		61
62	include 'lang.inc'	62	include 'lang.inc'
63	include '../../../KOSfuncs.inc'	63	include '../../../KOSfuncs.inc'
64	include '../../../config.inc' ;for nightbuild	64	include '../../../config.inc' ;for nightbuild
65	include '../../../macros.inc'	65	include '../../../macros.inc'
66	include '../../libraries/box_lib/trunk/box_lib.mac'	66	include '../../libraries/box_lib/trunk/box_lib.mac'
67	include '../../../load_lib.mac'	67	include '../../../load_lib.mac'
68		68
69	@use_library	69	@use_library
70	;--------------------------------------------------------------------	70	;--------------------------------------------------------------------
71	times 16 dd 0	71	times 16 dd 0
72		72
73	frgrd_color equ 0xfefefe	73	frgrd_color equ 0xfefefe
74	bkgrd_color equ 0x000000	74	bkgrd_color equ 0x000000
75	kursred_color equ 0x0039ff	75	kursred_color equ 0x0039ff
76	kurstxt_color equ 0x708090	76	kurstxt_color equ 0x708090
77	text_color equ 0xaaaaaa	77	text_color equ 0xaaaaaa
78		78
79	panel_clr1 equ 0xe9e9e2	79	panel_clr1 equ 0xe9e9e2
80	panel_clr2 equ 0x8b8b89	80	panel_clr2 equ 0x8b8b89
81	panel_clr3 equ 0x777777;eaeae3	81	panel_clr3 equ 0x777777;eaeae3
82	;--------------------------------------------------------------------	82	;--------------------------------------------------------------------
83	palitra:	83	palitra:
84	.1 dd frgrd_color,bkgrd_color ;æ¢¥â ¥¢ë¤¥«¥®£® á¨¬¢®«	84	.1 dd frgrd_color,bkgrd_color ;æ¢¥â ¥¢ë¤¥«¥®£® á¨¬¢®«
85	.2 dd frgrd_color,text_color ;«¥¢ë©,¯à ¢ë© áâ®«¡æë,ç áâì ¨¦¥© áâà®ª¨	85	.2 dd frgrd_color,text_color ;«¥¢ë©,¯à ¢ë© áâ®«¡æë,ç áâì ¨¦¥© áâà®ª¨
86	.3 dd kursred_color,frgrd_color ;ªãàá®à	86	.3 dd kursred_color,frgrd_color ;ªãàá®à
87	.4 dd kurstxt_color,bkgrd_color ;ªãàá®à ¢ â¥ªáâ®¢®© ®¡« áâ¨	87	.4 dd kurstxt_color,bkgrd_color ;ªãàá®à ¢ â¥ªáâ®¢®© ®¡« áâ¨
88	.5 dd panel_clr1,not text_color ;¨¦ïï ¯ ¥«ì	88	.5 dd panel_clr1,not text_color ;¨¦ïï ¯ ¥«ì
89	;--------------------------------------------------------------------	89	;--------------------------------------------------------------------
90	FIRST_HEX equ 0*65536+24	90	FIRST_HEX equ 0*65536+24
91	scroll_width_size equ 15	91	scroll_width_size equ 15
92	;--------------------------------------------------------------------	92	;--------------------------------------------------------------------
93	struct f70	93	struct f70
94	Function rd 1	94	Function rd 1
95	Position rd 1	95	Position rd 1
96	Flags rd 1	96	Flags rd 1
97	Count rd 1	97	Count rd 1
98	Buffer rd 1	98	Buffer rd 1
99	rezerv rb 1	99	rezerv rb 1
100	FileName rd 1	100	FileName rd 1
101	ends	101	ends
102	;--------------------------------------------------------------------	102	;--------------------------------------------------------------------
103	START:	103	START:
104	mcall SF_SYS_MISC,SSF_HEAP_INIT	104	mcall SF_SYS_MISC,SSF_HEAP_INIT
105		105
106	load_libraries l_libs_start,end_l_libs	106	load_libraries l_libs_start,end_l_libs
107	;--------------------------------------------------------------------	107	;--------------------------------------------------------------------
108	;OpenDialog initialisation	108	;OpenDialog initialisation
109	push dword OpenDialog_data	109	push dword OpenDialog_data
110	call [OpenDialog_Init]	110	call [OpenDialog_Init]
111	;--------------------------------------------------------------------	111	;--------------------------------------------------------------------
112	mov esi,fname_buf	112	mov esi,fname_buf
113	cmp [esi],byte 0	113	cmp [esi],byte 0
114	je .start_temp_file_name	114	je .start_temp_file_name
115		115
116	cld	116	cld
117	@@:	117	@@:
118	lodsb	118	lodsb
119	test al,al	119	test al,al
120	jne @b	120	jne @b
121		121
122	std	122	std
123	@@:	123	@@:
124	lodsb	124	lodsb
125	cmp al,'/'	125	cmp al,'/'
126	jne @b	126	jne @b
127	add esi,2	127	add esi,2
128	jmp .selected_start_file_name	128	jmp .selected_start_file_name
129	;--------------------------------------------------------------------	129	;--------------------------------------------------------------------
130	.start_temp_file_name:	130	.start_temp_file_name:
131	mov esi,start_temp_file_name	131	mov esi,start_temp_file_name
132	.selected_start_file_name:	132	.selected_start_file_name:
133	mov edi,filename_area	133	mov edi,filename_area
134	xor eax,eax	134	xor eax,eax
135	cld	135	cld
136	@@:	136	@@:
137	lodsb	137	lodsb
138	stosb	138	stosb
139	test eax,eax	139	test eax,eax
140	jnz @b	140	jnz @b
141		141
142	mcall SF_SET_EVENTS_MASK,0x27	142	mcall SF_SET_EVENTS_MASK,0x27
143		143
144	mcall SF_SYS_MISC,SSF_MEM_ALLOC,32*1024 ;áâà ¨çë© ¡ãä¥à	144	mcall SF_SYS_MISC,SSF_MEM_ALLOC,32*1024 ;áâà ¨çë© ¡ãä¥à
145	mov [screen_table],eax	145	mov [screen_table],eax
146	mcall SF_SYS_MISC,SSF_MEM_ALLOC,4*1024	146	mcall SF_SYS_MISC,SSF_MEM_ALLOC,4*1024
147		147
148	mov [file_buffer],eax	148	mov [file_buffer],eax
149		149
150	mcall SF_SYS_MISC,SSF_MEM_ALLOC,1024	150	mcall SF_SYS_MISC,SSF_MEM_ALLOC,1024
151	mov [copy_buf],eax	151	mov [copy_buf],eax
152		152
153		153
154	;à §¬¥à â¥ªãé¥£® ¯ãâ¨	154	;à §¬¥à â¥ªãé¥£® ¯ãâ¨
155	mov esi,cur_dir_path	155	mov esi,cur_dir_path
156	@@:	156	@@:
157	cmp byte [esi],0	157	cmp byte [esi],0
158	je @f	158	je @f
159	inc esi	159	inc esi
160	jmp @b	160	jmp @b
161	;-------------------------------------	161	;-------------------------------------
162	@@:	162	@@:
163	sub esi,cur_dir_path	163	sub esi,cur_dir_path
164	mov [edit1.pos],esi	164	mov [edit1.pos],esi
165	mov [edit1.size],esi	165	mov [edit1.size],esi
166		166
167	;®¡é¥á¨áâ¥¬ë¥ ª« ¢¨è¨ ¤«ï Shift+ªãàá®àë	167	;®¡é¥á¨áâ¥¬ë¥ ª« ¢¨è¨ ¤«ï Shift+ªãàá®àë
168	; mcall SF_KEYBOARD,SSF_SET_SYS_HOTKEY,75,1	168	; mcall SF_KEYBOARD,SSF_SET_SYS_HOTKEY,75,1
169	; mcall SF_KEYBOARD,,77	169	; mcall SF_KEYBOARD,,77
170	; mcall SF_KEYBOARD,,72	170	; mcall SF_KEYBOARD,,72
171	; mcall SF_KEYBOARD,,80	171	; mcall SF_KEYBOARD,,80
172		172
173	call ready_screen_buffer	173	call ready_screen_buffer
174	; jmp open_file	174	; jmp open_file
175	mcall SF_THREAD_INFO,procinfo,-1	175	mcall SF_THREAD_INFO,procinfo,-1
176	mov ecx,[ebx+30] ; PID	176	mov ecx,[ebx+30] ; PID
177	mcall SF_SYSTEM,SSF_GET_THREAD_SLOT	177	mcall SF_SYSTEM,SSF_GET_THREAD_SLOT
178	mov [active_process],eax ; WINDOW SLOT	178	mov [active_process],eax ; WINDOW SLOT
179	;--------------------------------------------------------------------	179	;--------------------------------------------------------------------
180	; open the file if program has a file path, when it was launched	180	; open the file if program has a file path, when it was launched
181	cmp [fname_buf],byte 0	181	cmp [fname_buf],byte 0
182	jne open_dialog.start	182	jne open_dialog.start
183	;--------------------------------------------------------------------	183	;--------------------------------------------------------------------
184	redraw_all:	184	redraw_all:
185	call control_minimal_window_size	185	call control_minimal_window_size
186	call draw_window_1	186	call draw_window_1
187	still:	187	still:
188	mcall SF_WAIT_EVENT	188	mcall SF_WAIT_EVENT
189		189
190	cmp eax,6	190	cmp eax,6
191	je mouse	191	je mouse
192	dec al	192	dec al
193	jz redraw_all	193	jz redraw_all
194	dec al	194	dec al
195	jz key	195	jz key
196	dec al	196	dec al
197	jz button	197	jz button
198	jmp still	198	jmp still
199	;---------------------------------------------------------------------	199	;---------------------------------------------------------------------
200	control_minimal_window_size:	200	control_minimal_window_size:
201	pusha	201	pusha
202	mcall SF_THREAD_INFO,procinfo,-1	202	mcall SF_THREAD_INFO,procinfo,-1
203	mov eax,[ebx+70]	203	mov eax,[ebx+70]
204	test eax,10b	204	test eax,10b
205	jnz .end	205	jnz .end
206	test eax,100b	206	test eax,100b
207	jnz .end	207	jnz .end
208	test eax,1b	208	test eax,1b
209	jnz .end	209	jnz .end
210	mov esi,-1	210	mov esi,-1
211	mov eax,procinfo	211	mov eax,procinfo
212	mov eax,[eax+46]	212	mov eax,[eax+46]
213	cmp eax,299	213	cmp eax,299
214	jae @f	214	jae @f
215	mov esi,299	215	mov esi,299
216	mcall SF_CHANGE_WINDOW,-1,ebx,ebx	216	mcall SF_CHANGE_WINDOW,-1,ebx,ebx
217	@@:	217	@@:
218	mov edx,-1	218	mov edx,-1
219	mov eax,procinfo	219	mov eax,procinfo
220	mov eax,[eax+42]	220	mov eax,[eax+42]
221	cmp eax,399	221	cmp eax,399
222	jae @f	222	jae @f
223	mov edx,399	223	mov edx,399
224	mcall SF_CHANGE_WINDOW,-1,ebx,,ebx	224	mcall SF_CHANGE_WINDOW,-1,ebx,,ebx
225	@@:	225	@@:
226	.end:	226	.end:
227	popa	227	popa
228	ret	228	ret
229	;---------------------------------------------------------------------	229	;---------------------------------------------------------------------
230	red:	230	red:
231	call ready_screen_buffer	231	call ready_screen_buffer
232	call main_area	232	call main_area
233	jmp still	233	jmp still
234	;---------------------------------------------------------------------	234	;---------------------------------------------------------------------
235	draw_window_1:	235	draw_window_1:
236	call start_draw	236	call start_draw
237	call draw_window	237	call draw_window
238		238
239	mov eax,[threath_buf+70]	239	mov eax,[threath_buf+70]
240	test eax,10b	240	test eax,10b
241	jnz .end	241	jnz .end
242	test eax,100b	242	test eax,100b
243	jnz .end	243	jnz .end
244		244
245	call show_file_size	245	call show_file_size
246	call show_codepage	246	call show_codepage
247	call show_insert	247	call show_insert
248	call ready_screen_buffer	248	call ready_screen_buffer
249	call main_area	249	call main_area
250	.end:	250	.end:
251	ret	251	ret
252	;---------------------------------------------------------------------	252	;---------------------------------------------------------------------
253	key:	253	key:
254	mcall SF_GET_KEY	254	mcall SF_GET_KEY
255	dec al	255	dec al
256	jz still	256	jz still
257	dec al	257	dec al
258	jz key.syst	258	jz key.syst
259	cmp ah,2	259	cmp ah,2
260	je Ctrl_B ;¢ë¤¥«¨âì ¡«®ª	260	je Ctrl_B ;¢ë¤¥«¨âì ¡«®ª
261	cmp ah,3	261	cmp ah,3
262	je Ctrl_C ;copy	262	je Ctrl_C ;copy
263	cmp ah,6	263	cmp ah,6
264	je Ctrl_F ;find	264	je Ctrl_F ;find
265	cmp ah,7	265	cmp ah,7
266	je Ctrl_G ;go to	266	je Ctrl_G ;go to
267	cmp ah,8	267	cmp ah,8
268	je BackSpace	268	je BackSpace
269	cmp ah,15	269	cmp ah,15
270	je open_dialog ;open_file ;Ctrl+O	270	je open_dialog ;open_file ;Ctrl+O
271	cmp ah,19	271	cmp ah,19
272	je open_dialog_save ;save_file ;Ctrl+S	272	je open_dialog_save ;save_file ;Ctrl+S
273	cmp ah,22	273	cmp ah,22
274	je Ctrl_V ;paste	274	je Ctrl_V ;paste
275	cmp ah,24	275	cmp ah,24
276	je Ctrl_X ;cut	276	je Ctrl_X ;cut
277	cmp ah,27	277	cmp ah,27
278	je ESC	278	je ESC
279	cmp ah,48	279	cmp ah,48
280	jb still	280	jb still
281	cmp ah,57	281	cmp ah,57
282	jbe input_from_keyboard ;0-9	282	jbe input_from_keyboard ;0-9
283	cmp ah,65	283	cmp ah,65
284	jb still	284	jb still
285	cmp ah,70	285	cmp ah,70
286	jbe input_from_keyboard ;A-F	286	jbe input_from_keyboard ;A-F
287	cmp ah,81	287	cmp ah,81
288	jne @f	288	jne @f
289	call Ctrl_DOWN	289	call Ctrl_DOWN
290	jmp red	290	jmp red
291	;--------------------------------------	291	;--------------------------------------
292	@@:	292	@@:
293	cmp ah,82	293	cmp ah,82
294	jne @f	294	jne @f
295	call Ctrl_UP	295	call Ctrl_UP
296	jmp red	296	jmp red
297	;--------------------------------------	297	;--------------------------------------
298	@@:	298	@@:
299	cmp ah,84	299	cmp ah,84
300	jne @f	300	jne @f
301	call Ctrl_HOME	301	call Ctrl_HOME
302	jmp red	302	jmp red
303	;--------------------------------------	303	;--------------------------------------
304	@@:	304	@@:
305	cmp ah,85	305	cmp ah,85
306	je Ctrl_END	306	je Ctrl_END
307	cmp ah,96	307	cmp ah,96
308	je change_codepage ;⨫줠, cp866 - cp1251	308	je change_codepage ;⨫줠, cp866 - cp1251
309	cmp ah,97	309	cmp ah,97
310	jb still	310	jb still
311	cmp ah,102	311	cmp ah,102
312	jbe input_from_keyboard ;a-f	312	jbe input_from_keyboard ;a-f
313	cmp ah,126	313	cmp ah,126
314	jne @f	314	jne @f
315	xor ah,ah	315	xor ah,ah
316	jmp change_codepage ;Shift+~, koi8-r	316	jmp change_codepage ;Shift+~, koi8-r
317	;--------------------------------------	317	;--------------------------------------
318	@@:	318	@@:
319	cmp ah,110	319	cmp ah,110
320	je invert_byte ;n	320	je invert_byte ;n
321	cmp ah,176	321	cmp ah,176
322	jne @f	322	jne @f
323	call LEFT	323	call LEFT
324	jmp red	324	jmp red
325	;--------------------------------------	325	;--------------------------------------
326	@@:	326	@@:
327	cmp ah,177	327	cmp ah,177
328	jne @f	328	jne @f
329	call DOWN	329	call DOWN
330	jmp red	330	jmp red
331	;--------------------------------------	331	;--------------------------------------
332	@@:	332	@@:
333	cmp ah,178	333	cmp ah,178
334	je UP	334	je UP
335	cmp ah,179	335	cmp ah,179
336	je RIGHT	336	je RIGHT
337	cmp ah,180	337	cmp ah,180
338	jne @f	338	jne @f
339	call HOME	339	call HOME
340	jmp red	340	jmp red
341	;--------------------------------------	341	;--------------------------------------
342	@@:	342	@@:
343	cmp ah,181	343	cmp ah,181
344	je END_	344	je END_
345	cmp ah,182	345	cmp ah,182
346	je DEL	346	je DEL
347	cmp ah,183	347	cmp ah,183
348	je PGDN	348	je PGDN
349	cmp ah,184	349	cmp ah,184
350	je PGUP	350	je PGUP
351	cmp ah,185	351	cmp ah,185
352	je Insert	352	je Insert
353	jmp still	353	jmp still
354	;--------------------------------------	354	;--------------------------------------
355	.syst:	355	.syst:
356	cmp ah,72	356	cmp ah,72
357	cmp ah,75	357	cmp ah,75
358	cmp ah,77	358	cmp ah,77
359	cmp ah,80	359	cmp ah,80
360	jmp still	360	jmp still
361	;--------------------------------------------------------------------	361	;--------------------------------------------------------------------
362	button:	362	button:
363	mcall SF_GET_BUTTON	363	mcall SF_GET_BUTTON
364	dec ah	364	dec ah
365	jnz still	365	jnz still
366		366
367	jmp close_prog	367	jmp close_prog
368	;--------------------------------------------------------------------	368	;--------------------------------------------------------------------
369	align 4	369	align 4
370	mouse:	370	mouse:
371	mcall SF_SYSTEM,SSF_GET_ACTIVE_WINDOW	371	mcall SF_SYSTEM,SSF_GET_ACTIVE_WINDOW
372	cmp [active_process],eax	372	cmp [active_process],eax
373	jne still	373	jne still
374		374
375	mcall SF_MOUSE_GET,SSF_SCROLL_DATA	375	mcall SF_MOUSE_GET,SSF_SCROLL_DATA
376	test eax,eax	376	test eax,eax
377	jz .menu_bar_1;.mouse	377	jz .menu_bar_1;.mouse
378	bt eax,15	378	bt eax,15
379	jc @f ;®¡à ¡®âª ª®«ñá¨ª ¬ëè¨	379	jc @f ;®¡à ¡®âª ª®«ñá¨ª ¬ëè¨
380	mov ecx,eax	380	mov ecx,eax
381	shl ecx,2	381	shl ecx,2
382	.1:	382	.1:
383	call Ctrl_DOWN	383	call Ctrl_DOWN
384	loop .1	384	loop .1
385	jmp red	385	jmp red
386	;--------------------------------------	386	;--------------------------------------
387	@@:	387	@@:
388	xor ecx,ecx	388	xor ecx,ecx
389	sub cx,ax	389	sub cx,ax
390	shl cx,2	390	shl cx,2
391	.2:	391	.2:
392	call Ctrl_UP	392	call Ctrl_UP
393	loop .2	393	loop .2
394	jmp red	394	jmp red
395	;--------------------------------------------------------------------	395	;--------------------------------------------------------------------
396	.menu_bar_1:	396	.menu_bar_1:
397	call .set_mouse_flag	397	call .set_mouse_flag
398	@@:	398	@@:
399	push dword menu_data_1 ;mouse event for Menu 1	399	push dword menu_data_1 ;mouse event for Menu 1
400	call [menu_bar_mouse]	400	call [menu_bar_mouse]
401	cmp [menu_data_1.click],dword 1	401	cmp [menu_data_1.click],dword 1
402	jne .menu_bar_2	402	jne .menu_bar_2
403	cmp [menu_data_1.cursor_out],dword 0	403	cmp [menu_data_1.cursor_out],dword 0
404	jne .analyse_out_menu_1	404	jne .analyse_out_menu_1
405	jmp .menu_bar_1	405	jmp .menu_bar_1
406	;--------------------------------------------------------------------	406	;--------------------------------------------------------------------
407	.menu_bar_2:	407	.menu_bar_2:
408	push dword menu_data_2	408	push dword menu_data_2
409	call [menu_bar_mouse]	409	call [menu_bar_mouse]
410	cmp [menu_data_2.click],dword 1	410	cmp [menu_data_2.click],dword 1
411	jne .menu_bar_3	411	jne .menu_bar_3
412	cmp [menu_data_2.cursor_out],dword 0	412	cmp [menu_data_2.cursor_out],dword 0
413	jne .analyse_out_menu_2	413	jne .analyse_out_menu_2
414	jmp .menu_bar_1	414	jmp .menu_bar_1
415	;--------------------------------------------------------------------	415	;--------------------------------------------------------------------
416	.menu_bar_3:	416	.menu_bar_3:
417	push dword menu_data_3	417	push dword menu_data_3
418	call [menu_bar_mouse]	418	call [menu_bar_mouse]
419	cmp [menu_data_3.click],dword 1	419	cmp [menu_data_3.click],dword 1
420	jne .scroll_bar	420	jne .scroll_bar
421	cmp [menu_data_3.cursor_out],dword 0	421	cmp [menu_data_3.cursor_out],dword 0
422	jne .analyse_out_menu_3	422	jne .analyse_out_menu_3
423	jmp .menu_bar_1	423	jmp .menu_bar_1
424	;--------------------------------------------------------------------	424	;--------------------------------------------------------------------
425	.set_mouse_flag:	425	.set_mouse_flag:
426	xor eax,eax	426	xor eax,eax
427	inc eax	427	inc eax
428	mov [menu_data_1.get_mouse_flag],eax	428	mov [menu_data_1.get_mouse_flag],eax
429	mov [menu_data_2.get_mouse_flag],eax	429	mov [menu_data_2.get_mouse_flag],eax
430	mov [menu_data_3.get_mouse_flag],eax	430	mov [menu_data_3.get_mouse_flag],eax
431	ret	431	ret
432	;--------------------------------------------------------------------	432	;--------------------------------------------------------------------
433	.analyse_out_menu_1:	433	.analyse_out_menu_1:
434	cmp [menu_data_1.cursor_out],dword 1	434	cmp [menu_data_1.cursor_out],dword 1
435	je open_dialog	435	je open_dialog
436	cmp [menu_data_1.cursor_out],dword 2	436	cmp [menu_data_1.cursor_out],dword 2
437	je open_dialog_save ;save_file	437	je open_dialog_save ;save_file
438	cmp [menu_data_1.cursor_out],dword 3	438	cmp [menu_data_1.cursor_out],dword 3
439	je close_prog	439	je close_prog
440	jmp still	440	jmp still
441	;--------------------------------------------------------------------	441	;--------------------------------------------------------------------
442	.analyse_out_menu_2:	442	.analyse_out_menu_2:
443	cmp [menu_data_2.cursor_out],dword 1	443	cmp [menu_data_2.cursor_out],dword 1
444	jne @f	444	jne @f
445	add [bytes_per_line],4	445	add [bytes_per_line],4
446	jmp redraw_all	446	jmp redraw_all
447	;--------------------------------------	447	;--------------------------------------
448	@@:	448	@@:
449	cmp [menu_data_2.cursor_out],dword 2	449	cmp [menu_data_2.cursor_out],dword 2
450	jne @f	450	jne @f
451	add [bytes_per_line],8	451	add [bytes_per_line],8
452	jmp redraw_all	452	jmp redraw_all
453	;--------------------------------------	453	;--------------------------------------
454	@@:	454	@@:
455	cmp [menu_data_2.cursor_out],dword 3	455	cmp [menu_data_2.cursor_out],dword 3
456	jne @f	456	jne @f
457	cmp [bytes_per_line],4	457	cmp [bytes_per_line],4
458	je still	458	je still
459	sub [bytes_per_line],4	459	sub [bytes_per_line],4
460	jmp redraw_all	460	jmp redraw_all
461	;--------------------------------------	461	;--------------------------------------
462	@@:	462	@@:
463	cmp [menu_data_2.cursor_out],dword 4	463	cmp [menu_data_2.cursor_out],dword 4
464	jne still	464	jne still
465	cmp [bytes_per_line],8	465	cmp [bytes_per_line],8
466	jbe still	466	jbe still
467	sub [bytes_per_line],8	467	sub [bytes_per_line],8
468	jmp redraw_all	468	jmp redraw_all
469	;--------------------------------------------------------------------	469	;--------------------------------------------------------------------
470	.analyse_out_menu_3: ;analyse result of Menu 2	470	.analyse_out_menu_3: ;analyse result of Menu 2
471	cmp [menu_data_3.cursor_out],dword 1	471	cmp [menu_data_3.cursor_out],dword 1
472	jne still	472	jne still
473	call create_help_window	473	call create_help_window
474	jmp still	474	jmp still
475	;--------------------------------------------------------------------	475	;--------------------------------------------------------------------
476	.scroll_bar:	476	.scroll_bar:
477	; mcall SF_MOUSE_GET,SSF_BUTTON	477	; mcall SF_MOUSE_GET,SSF_BUTTON
478	; test eax,eax	478	; test eax,eax
479	; jnz @f	479	; jnz @f
480	; btr [flags],5	480	; btr [flags],5
481	; btr [flags],7	481	; btr [flags],7
482	; jmp still	482	; jmp still
483		483
484	.mouse:	484	.mouse:
485	.vertical:	485	.vertical:
486	mcall SF_MOUSE_GET,SSF_BUTTON	486	mcall SF_MOUSE_GET,SSF_BUTTON
487	test eax,eax	487	test eax,eax
488	jnz @f	488	jnz @f
489	btr [flags],5	489	btr [flags],5
490	btr [flags],7	490	btr [flags],7
491	jmp still	491	jmp still
492	;--------------------------------------	492	;--------------------------------------
493	@@:	493	@@:
494	bt [flags],5	494	bt [flags],5
495	jc @f	495	jc @f
496	bt [flags],7	496	bt [flags],7
497	jc .horizontal_0	497	jc .horizontal_0
498		498
499	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION	499	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
500	shr eax,16	500	shr eax,16

Subversion Repositories Kolibri OS

(root)/programs/develop/heed/trunk/heed.asm @ 131 – Rev 9568 → 9587