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, editbox_ex ¨ ¡¨¡«¨®â¥ªã box_lib.obj á®§¤ «¨:
;  - Alexey Teplov / «¥ªá¥© ¥¯«®¢
; Mario79, Mario - Marat Zakiyanov /  à â  ª¨ï­®¢
; Diamondz - Evgeny Grechnikov / ¢£¥­¨© à¥ç­¨ª®¢ ¨ ¤à.
;
; staper@inbox.ru
; babalbes@yandex.ru
;--------------------------------------------------------------------
use32
	org	0x0
	db	'MENUET01'
	dd	0x1
	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 '../../../config.inc'		;for nightbuild
include '../../../macros.inc'
include	'../../libraries/box_lib/trunk/box_lib.mac'
include	'../../libraries/box_lib/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
	func_n	rd 1
	param1	rd 1
	param2	rd 1
	param3	rd 1
	param4	rd 1
	rezerv	rb 1
	name	rd 1
ends
;--------------------------------------------------------------------
START:
	mcall	68,11
 
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	40,0x27
 
	mcall	68,12,32*1024	;áâà ­¨ç­ë© ¡ãä¥à
	mov	[screen_table],eax
	mcall	68,12,4*1024
 
	mov	[file_buffer],eax
 
	mcall	68,12,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	66,4,75,1
;	mcall	66,,77
;	mcall	66,,72
;	mcall	66,,80
 
	call	ready_screen_buffer
;	jmp	open_file
	mcall	9,procinfo,-1
	mov	ecx,[ebx+30]	; PID
	mcall	18,21
	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	10
 
	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	9,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	67,-1,ebx,ebx
@@:
	mov	edx,-1
	mov	eax,procinfo
	mov	eax,[eax+42]
	cmp	eax,399
	jae	@f
	mov	edx,399
	mcall	67,-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	2
	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	17
	dec	ah
	jnz	still
 
	jmp	close_prog
;--------------------------------------------------------------------
align	4
mouse:
	mcall	18,7
	cmp	[active_process],eax
	jne	still
 
	mcall	37,7
	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	37,2
;	test	eax,eax
;	jnz	@f
;	btr	[flags],5
;	btr	[flags],7
;	jmp	still
 
.mouse:
.vertical:
	mcall	37,2
	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	37,1
	shr	eax,16
	cmp	ax,[scroll_bar_data_vertical.start_x]
	jb	.horizontal
	sub	ax,[scroll_bar_data_vertical.start_x]
	cmp	ax,[scroll_bar_data_vertical.size_x]
	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	37,1
	cmp	ax,[scroll_bar_data_horizontal.start_y]
	jb	still
	sub	ax,[scroll_bar_data_horizontal.start_y]
	cmp	ax,[scroll_bar_data_horizontal.size_y]
	jge	still
 
	; mouse event for Horizontal ScrollBar
.horizontal_0:
;	mcall	37,2
;	test	eax,eax
;	jnz	@f
;	btr	[flags],5
;	btr	[flags],7
;	jmp	still
;@@:;	bt	[flags],7
;	jc	@f
 
;	mcall	37,1
;	shr	eax,16
;	cmp	ax,[scroll_bar_data_vertical.start_x]
;	jb	.horizontal
;	sub	ax,[scroll_bar_data_vertical.start_x]
;	cmp	ax,[scroll_bar_data_vertical.size_x]
;	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	37,2	;ª¯®¯ª 	¬ëè¨ ­ ¦ â  - ­¥â á¬ëá«  ¯¥à¥à¨á®¢ë¢ âì 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	65
	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.start_x]
	jge	.ls1
	mov	ax,[scroll_bar_data_vertical.start_x]
	sub	ax,bx
	shl	ebx,16
	mov	bx,ax
	mov	cx,16
	mcall	13,,,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.start_x]
	
	mov	ax,[scroll_bar_data_vertical.size_x]
	test	ax,ax
	jnz	.no_inc_ebx
	inc	ebx
.no_inc_ebx:
	sub	ecx,2*65536
	mov	cx,2
	mcall	13
	popad
 
	pushad
	mov	ecx,edx
	shl	ecx,16
	mov	ebx,edx
	shr	ebx,16
	cmp	bx,[scroll_bar_data_vertical.start_x]
	jge	.10
	mov	ax,[scroll_bar_data_vertical.start_x]
	sub	ax,bx
	shl	ebx,16
	mov	bx,ax
	mov	cx,16
	
	mov	ax,[scroll_bar_data_vertical.size_x]
	test	ax,ax
	jnz	.no_inc_ebx_2
	inc	ebx
.no_inc_ebx_2:
	mcall	13,,,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	65
	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	65
	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	68,20,,[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	0,100*65536+653,100*65536+360,((0x73 shl 24) + frgrd_color),,title_buf	;title
	mcall	9,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	67,-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	67,-1,-1,,-1
	jmp	.@d
;--------------------------------------
@@:
	mov	eax,[file_size]
	mov	ebx,[bytes_per_line]
	xor	edx,edx
	div	ebx
	mov	[scroll_bar_data_vertical.size_x],0
	cmp	eax,[number_strings]
	jl	@f
	mov	[scroll_bar_data_vertical.size_x],scroll_width_size
@@:
	mov	eax,dword [threath_buf+62]	;è¨à¨­  ª«¨¥­âáª®© ®¡« áâ¨
	sub	ax,[scroll_bar_data_vertical.size_x]
	mov	[scroll_bar_data_vertical.start_x],ax
	mov	eax,dword [threath_buf+66]	;¢ëá®â  ª«¨¥­âáª®© ®¡« áâ¨
	sub	eax,24+24-11
	mov	[scroll_bar_data_vertical.size_y],ax
	mov	ebx,eax
	push	eax
	add	ebx,20
	mov	[scroll_bar_data_vertical.max_area],ebx
	mov	ebx,[scroll_bar_data_vertical.btn_high]
	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	13,,,frgrd_color	;¯®«®á  á¢¥àåã
 
	mcall	,,18,panel_clr1	;¢¥àå­ïï ¯ ­¥«ì
 
	dec	ebx
	mcall	38,,<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	13,,,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.start_x]
	inc	ebx
	mcall	13,,,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.start_y],ax
 
;cur_area/(size_x-30)=len_str_scr/string_size
 
	mov	eax,dword [threath_buf+62]
	sub	ax,[scroll_bar_data_vertical.size_x]
	mov	[scroll_bar_data_horizontal.size_x],ax
	sub	eax,[scroll_bar_data_horizontal.btn_high]
	sub	eax,[scroll_bar_data_horizontal.btn_high]
	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	12,1
	ret
;--------------------------------------------------------------------
end_draw:
	mcall	12,2
	ret
;--------------------------------------------------------------------
close_prog:
	mcall	-1
;--------------------------------------------------------------------
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	65
	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	65
	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   18, 21
        xchg    EAX, ECX
        mcall   18, 3
	popad
        ret
;---------------------------------------------------------------------
@@:
	mcall	51,1,.thread,(.threat_stack+16*4)
        mov     [help_is_open_already], 1
        mov     [help_window_pid], EAX
	popad
	ret
;--------------------------------------------------------------------
.thread:
	call	.window
;--------------------------------------------------------------------
.still:
	mcall	10
	dec	al
	jz	.red
	dec	al
	jz	.key
	dec	al
	jz	.button
	jmp	.still
;--------------------------------------------------------------------
        and	[help_is_open_already], 0
	mcall	-1
.button:
	mcall	17,1
	cmp	ah,1
	jne	@f
        and	[help_is_open_already], 0
	mcall	-1
@@:
	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	2
	jmp	.still
;--------------------------------------------------------------------
.red:
	call	.window
	jmp	.still
;--------------------------------------------------------------------
.window:
	pushad
	mcall	12,1
	mcall	0,50*65536+320,0x70*65536+240,0x13000000,,help_but_text
	mcall	8,<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,4
@@:
	add	ebx,0x10
	mcall
	add	edx,51
	dec	edi
	jnz	@b
	mcall	12,2
	popad
	ret
;--------------------------------------------------------------------
.threat_stack:	times	16	dd	0
;--------------------------------------------------------------------
open_file:
	mov	[func_70.func_n],5
	mov	[func_70.param1],0
	mov	[func_70.param2],0
	mov	[func_70.param3],0
	mov	[func_70.param4],bufferfinfo
	mov	[func_70.rezerv],0
	mov	[func_70.name],file_name
	mcall	70,func_70
 
	test	al,al	;ä ©« ­ ©¤¥­?
	jz	@f
	mcall	4,400*65536+31,0x80CC0000,error_open_file_string
	jmp	open_file
;--------------------------------------------------------------------
@@:
;	mov	edx,[blocks_counter]
;	mov	edi,[blocks_table]
;	@@:	mov	ecx,[edi]	;¢ëá¢®¡®¦¤ ¥¬:
;	mcall	68,13	;¡«®ª¨ ä ©« 
;	add	edi,8
;	dec	edx
;	jnz	@b
;	mcall	68,13,[blocks_table]	;â ¡«¨æã
 
	mov	eax,	dword [bufferfinfo+32]	;ª®¯¨àã¥¬ à §¬¥à ä ©« 
	mov	[file_size],eax
 
;	mov	ebx,65536	;64 ¡«®ª
;	xor	edx,edx
;	div	ebx
;	push	dx	;¤«¨­  ¯®á«¥¤­¥£® ¡«®ª 
;	test	dx,dx
;	jz	@f
;	inc	eax
;	@@:	test	eax,eax
;	jnz	@f
;	inc	eax
;	@@:	mov	[blocks_counter],eax
;	sal	eax,3;*8	;à §¬¥à â ¡«¨æë á ¨­¤¥ªá ¬¨ ¡«®ª®¢
;;	add	eax,32	;à¥è ¥¬	¯à®¡«¥¬ã á 32 ä ©« ¬¨
 
;	mov	ecx,eax	;¢ë¤¥«ï¥¬ ¯ ¬ïâì:
;	mcall	68,12	;¯®¤ â ¡«¨æã
;	mov	[blocks_table],eax
;	mov	edi,eax
;	mov	ecx,[blocks_counter]
;	@@:	mov	dword [edi+4],65536
;	add	edi,8
;	loop	@b
;	xor	edx,edx
;	pop	dx	;¤«¨­  ¯®á«¥¤­¥£® ¡«®ª 
;	mov	dword [edi-4],edx
 
;	mov	edx,[blocks_counter]
;	mov	edi,[blocks_table]
;@@:	mcall	68,12,[edi+4]	;¯®¤ ¡«®ª
;	mov	[edi],eax
;	add	edi,8
;	dec	edx
;	jnz	@b
 
	mcall	68,13,[file_buffer]
	test	eax,eax
	jnz	@f
	;§¤¥áì ®è¨¡ª  ­  ­¥ ®á¢®¡®¦¤¥­¨¥ ¡«®ª 
@@:
	mcall	68,12,[file_size]
	mov	[file_buffer],eax
 
;;¨¬¥¥¬ â ¡«¨æã: [ DWORD ãª § â¥«ì ­  ¯¥à¢ë© í«¥¬¥­â ¡«®ª  : DWORD ¤«¨­  ¡«®ª  ]
 
;	mov	ecx,[blocks_counter]	;®âªàë¢ ¥¬ ä ©«
;	mov	edi,[blocks_table]
	mov	[func_70.func_n],0
	mov	[func_70.param1],0
	mov	[func_70.param2],0
	mov	[func_70.rezerv],0
	mov	[func_70.name],file_name
;@@:
	push	dword [file_size];dword [edi+4]
	pop	dword [func_70.param3]
	push	dword [file_buffer];dword [edi]
	pop	dword [func_70.param4]
	mcall	70,func_70
;	add	edi,8
;	add	dword [func_70.param1],65536
;	loop	@b
 
	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
;;	je	.sysxtree	; some kind of alternative, instead OpenDialog
;	je	save_file
	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.func_n],2
	mov	[func_70.param1],0
	mov	[func_70.param2],0
	push	[file_size]
	pop	[func_70.param3]
	push	[file_buffer]
	pop	[func_70.param4]
	mov	[func_70.rezerv],0
	mov	[func_70.name],file_name
	mcall	70,func_70
	cmp	al,0	;á®åà ­ñ­ ã¤ ç­®?
	je	redraw_all
	mcall	4,400*65536+31,0x80CC0000,error_save_file_string
	jmp	save_file
;-------------------------------------------------------------------------------
draw_ed_box:	;à¨á®¢ ­¨¥ edit box' 
.1:
	push	eax	ebx	ecx	edx
	mcall	13,180*65536+220,25*65536+70,0xaaaaaa
	bt	[flags],9
	jnc	@f
	mcall	4,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	10
	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	2
	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	17
	cmp	ah,1
	jne	.2
	jmp	close_prog
.3:
	btr	[flags],2
	btr	[flags],3
	add	esp,4
	jmp	redraw_all
.4:
	mcall	13,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	68,20,,[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
;	je	.sysxtree	; some kind of alternative, instead OpenDialog
	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
        dd      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
	dd 0
 
aEdit_box_draw		db 'edit_box',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:
.x:
.size_x		dw scroll_width_size;+0
.start_x	dw 565	;+2
.y:
.size_y		dw 284	;+4
.start_y	dw 19	;+6
.btn_high	dd scroll_width_size	;+8
.type		dd 0	;+12
.max_area	dd 300+20	;+16
.cur_area	dd 50	;+20
.position	dd 0	;+24
.bckg_col	dd 0xAAAAAA	;+28
.frnt_col	dd 0xCCCCCC	;+32
.line_col	dd 0	;+36
.redraw		dd 0	;+40
.delta		dw 0	;+44
.delta2		dw 0	;+46
.run_x:
.r_size_x	dw 0	;+48
.r_start_x	dw 0	;+50
.run_y:
.r_size_y	dw 0	;+52
.r_start_y	dw 0	;+54
.m_pos		dd 0	;+56
.m_pos_2	dd 0	;+60
.m_keys		dd 0	;+64
.run_size	dd 0	;+68
.position2	dd 0	;+72
.work_size	dd 0	;+76
.all_redraw	dd 0	;+80
.ar_offset	dd 10	;+84
;---------------------------------------------------------------------
align	4
scroll_bar_data_horizontal:
.x:
.size_x		dw 300	;0	;+0
.start_x	dw 0	;0	;+2
.y:
.size_y		dw scroll_width_size	;0	;+4
.start_y	dw 300	;0	;+6
.btn_high	dd scroll_width_size	;+8
.type		dd 0	;+12
.max_area	dd 300	;+16
.cur_area	dd 30	;+20
.position	dd 1	;+24
.bckg_col	dd 0xAAAAAA	;+28
.frnt_col	dd 0xCCCCCC	;+32
.line_col	dd 0	;+36
.redraw		dd 0	;+40
.delta		dw 0	;+44
.delta2		dw 0	;+46
.run_x:
.r_size_x	dw 0	;+48
.r_start_x	dw 0	;+50
.run_y:
.r_size_y	dw 0	;+52
.r_start_y	dw 0	;+54
.m_pos		dd 0	;+56
.m_pos_2	dd 0	;+60
.m_keys		dd 0	;+64
.run_size	dd 0	;+68
.position2	dd 0	;+72
.work_size	dd 0	;+76
.all_redraw	dd 0	;+80
.ar_offset	dd 10	;+84
;---------------------------------------------------------------------
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
 head_f_l	db '®è¨¡ª ',0
 err_message_found_lib1		db 'box_lib.obj - ¥ ­ ©¤¥­!',0
 err_message_found_lib2		db 'proc_lib.obj - ¥ ­ ©¤¥­!',0
 
 err_message_import1			db 'box_lib.obj - è¨¡ª  ¨¬¯®àâ !',0
 err_message_import2			db 'proc_lib.obj - è¨¡ª  ¨¬¯®àâ !',0
 
 error_open_file_string	db " ©« ­¥ ­ ©¤¥­!",0
 error_save_file_string	db " ©« ­¥ á®åà ­¥­!",0
else
 head_f_l	db 'error',0
 err_message_found_lib1		db 'box_lib.obj - Not found!',0
 err_message_found_lib2		db 'proc_lib.obj - Not found!',0
 
 err_message_import1			db 'box_lib.obj - Wrong import!',0
 err_message_import2			db 'proc_lib.obj - Wrong import!',0
 
 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:
;	load_library	boxlib_name,cur_dir_path,buf_cmd_lin,system_path,\
;	err_message_found_lib,head_f_l,myimport,err_message_import,head_f_i
 
library01  l_libs system_dir_Boxlib+9, cur_dir_path, buf_cmd_lin, system_dir_Boxlib, \
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
 
library02  l_libs system_dir_ProcLib+9, cur_dir_path, buf_cmd_lin, system_dir_ProcLib, \
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
 
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 '/rd/1',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 2843	Rev 3456
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, editbox_ex ¨ ¡¨¡«¨®â¥ªã box_lib.obj á®§¤ «¨:	41	; ªà®áë load_lib.mac, editbox_ex ¨ ¡¨¡«¨®â¥ªã 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 0x0	50	org 0x0
51	db 'MENUET01'	51	db 'MENUET01'
52	dd 0x1	52	dd 0x1
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 '../../../config.inc' ;for nightbuild	63	include '../../../config.inc' ;for nightbuild
64	include '../../../macros.inc'	64	include '../../../macros.inc'
65	include '../../libraries/box_lib/trunk/box_lib.mac'	65	include '../../libraries/box_lib/trunk/box_lib.mac'
66	include '../../libraries/box_lib/load_lib.mac'	66	include '../../libraries/box_lib/load_lib.mac'
67		67
68	@use_library	68	@use_library
69	;--------------------------------------------------------------------	69	;--------------------------------------------------------------------
70	times 16 dd 0	70	times 16 dd 0
71		71
72	frgrd_color equ 0xfefefe	72	frgrd_color equ 0xfefefe
73	bkgrd_color equ 0x000000	73	bkgrd_color equ 0x000000
74	kursred_color equ 0x0039ff	74	kursred_color equ 0x0039ff
75	kurstxt_color equ 0x708090	75	kurstxt_color equ 0x708090
76	text_color equ 0xaaaaaa	76	text_color equ 0xaaaaaa
77		77
78	panel_clr1 equ 0xe9e9e2	78	panel_clr1 equ 0xe9e9e2
79	panel_clr2 equ 0x8b8b89	79	panel_clr2 equ 0x8b8b89
80	panel_clr3 equ 0x777777;eaeae3	80	panel_clr3 equ 0x777777;eaeae3
81	;--------------------------------------------------------------------	81	;--------------------------------------------------------------------
82	palitra:	82	palitra:
83	.1 dd frgrd_color,bkgrd_color ;æ¢¥â ¥¢ë¤¥«¥®£® á¨¬¢®«	83	.1 dd frgrd_color,bkgrd_color ;æ¢¥â ¥¢ë¤¥«¥®£® á¨¬¢®«
84	.2 dd frgrd_color,text_color ;«¥¢ë©,¯à ¢ë© áâ®«¡æë,ç áâì ¨¦¥© áâà®ª¨	84	.2 dd frgrd_color,text_color ;«¥¢ë©,¯à ¢ë© áâ®«¡æë,ç áâì ¨¦¥© áâà®ª¨
85	.3 dd kursred_color,frgrd_color ;ªãàá®à	85	.3 dd kursred_color,frgrd_color ;ªãàá®à
86	.4 dd kurstxt_color,bkgrd_color ;ªãàá®à ¢ â¥ªáâ®¢®© ®¡« áâ¨	86	.4 dd kurstxt_color,bkgrd_color ;ªãàá®à ¢ â¥ªáâ®¢®© ®¡« áâ¨
87	.5 dd panel_clr1,not text_color ;¨¦ïï ¯ ¥«ì	87	.5 dd panel_clr1,not text_color ;¨¦ïï ¯ ¥«ì
88	;--------------------------------------------------------------------	88	;--------------------------------------------------------------------
89	FIRST_HEX equ 0*65536+24	89	FIRST_HEX equ 0*65536+24
90	scroll_width_size equ 15	90	scroll_width_size equ 15
91	;--------------------------------------------------------------------	91	;--------------------------------------------------------------------
92	struct f70	92	struct f70
93	func_n rd 1	93	func_n rd 1
94	param1 rd 1	94	param1 rd 1
95	param2 rd 1	95	param2 rd 1
96	param3 rd 1	96	param3 rd 1
97	param4 rd 1	97	param4 rd 1
98	rezerv rb 1	98	rezerv rb 1
99	name rd 1	99	name rd 1
100	ends	100	ends
101	;--------------------------------------------------------------------	101	;--------------------------------------------------------------------
102	START:	102	START:
103	mcall 68,11	103	mcall 68,11
104		104
105	load_libraries l_libs_start,end_l_libs	105	load_libraries l_libs_start,end_l_libs
106	;--------------------------------------------------------------------	106	;--------------------------------------------------------------------
107	;OpenDialog initialisation	107	;OpenDialog initialisation
108	push dword OpenDialog_data	108	push dword OpenDialog_data
109	call [OpenDialog_Init]	109	call [OpenDialog_Init]
110	;--------------------------------------------------------------------	110	;--------------------------------------------------------------------
111	mov esi,fname_buf	111	mov esi,fname_buf
112	cmp [esi],byte 0	112	cmp [esi],byte 0
113	je .start_temp_file_name	113	je .start_temp_file_name
114		114
115	cld	115	cld
116	@@:	116	@@:
117	lodsb	117	lodsb
118	test al,al	118	test al,al
119	jne @b	119	jne @b
120		120
121	std	121	std
122	@@:	122	@@:
123	lodsb	123	lodsb
124	cmp al,'/'	124	cmp al,'/'
125	jne @b	125	jne @b
126	add esi,2	126	add esi,2
127	jmp .selected_start_file_name	127	jmp .selected_start_file_name
128	;--------------------------------------------------------------------	128	;--------------------------------------------------------------------
129	.start_temp_file_name:	129	.start_temp_file_name:
130	mov esi,start_temp_file_name	130	mov esi,start_temp_file_name
131	.selected_start_file_name:	131	.selected_start_file_name:
132	mov edi,filename_area	132	mov edi,filename_area
133	xor eax,eax	133	xor eax,eax
134	cld	134	cld
135	@@:	135	@@:
136	lodsb	136	lodsb
137	stosb	137	stosb
138	test eax,eax	138	test eax,eax
139	jnz @b	139	jnz @b
140		140
141	mcall 40,0x27	141	mcall 40,0x27
142		142
143	mcall 68,12,32*1024 ;áâà ¨çë© ¡ãä¥à	143	mcall 68,12,32*1024 ;áâà ¨çë© ¡ãä¥à
144	mov [screen_table],eax	144	mov [screen_table],eax
145	mcall 68,12,4*1024	145	mcall 68,12,4*1024
146		146
147	mov [file_buffer],eax	147	mov [file_buffer],eax
148		148
149	mcall 68,12,1024	149	mcall 68,12,1024
150	mov [copy_buf],eax	150	mov [copy_buf],eax
151		151
152		152
153	;à §¬¥à â¥ªãé¥£® ¯ãâ¨	153	;à §¬¥à â¥ªãé¥£® ¯ãâ¨
154	mov esi,cur_dir_path	154	mov esi,cur_dir_path
155	@@:	155	@@:
156	cmp byte [esi],0	156	cmp byte [esi],0
157	je @f	157	je @f
158	inc esi	158	inc esi
159	jmp @b	159	jmp @b
160	;-------------------------------------	160	;-------------------------------------
161	@@:	161	@@:
162	sub esi,cur_dir_path	162	sub esi,cur_dir_path
163	mov [edit1.pos],esi	163	mov [edit1.pos],esi
164	mov [edit1.size],esi	164	mov [edit1.size],esi
165		165
166	;®¡é¥á¨áâ¥¬ë¥ ª« ¢¨è¨ ¤«ï Shift+ªãàá®àë	166	;®¡é¥á¨áâ¥¬ë¥ ª« ¢¨è¨ ¤«ï Shift+ªãàá®àë
167	; mcall 66,4,75,1	167	; mcall 66,4,75,1
168	; mcall 66,,77	168	; mcall 66,,77
169	; mcall 66,,72	169	; mcall 66,,72
170	; mcall 66,,80	170	; mcall 66,,80
171		171
172	call ready_screen_buffer	172	call ready_screen_buffer
173	; jmp open_file	173	; jmp open_file
174	mcall 9,procinfo,-1	174	mcall 9,procinfo,-1
175	mov ecx,[ebx+30] ; PID	175	mov ecx,[ebx+30] ; PID
176	mcall 18,21	176	mcall 18,21
177	mov [active_process],eax ; WINDOW SLOT	177	mov [active_process],eax ; WINDOW SLOT
178	;--------------------------------------------------------------------	178	;--------------------------------------------------------------------
179	; open the file if program has a file path, when it was launched	179	; open the file if program has a file path, when it was launched
180	cmp [fname_buf],byte 0	180	cmp [fname_buf],byte 0
181	jne open_dialog.start	181	jne open_dialog.start
182	;--------------------------------------------------------------------	182	;--------------------------------------------------------------------
183	redraw_all:	183	redraw_all:
184	call control_minimal_window_size	184	call control_minimal_window_size
185	call draw_window_1	185	call draw_window_1
186	still:	186	still:
187	mcall 10	187	mcall 10
188		188
189	cmp eax,6	189	cmp eax,6
190	je mouse	190	je mouse
191	dec al	191	dec al
192	jz redraw_all	192	jz redraw_all
193	dec al	193	dec al
194	jz key	194	jz key
195	dec al	195	dec al
196	jz button	196	jz button
197	jmp still	197	jmp still
198	;---------------------------------------------------------------------	198	;---------------------------------------------------------------------
199	control_minimal_window_size:	199	control_minimal_window_size:
200	pusha	200	pusha
201	mcall 9,procinfo,-1	201	mcall 9,procinfo,-1
202	mov eax,[ebx+70]	202	mov eax,[ebx+70]
203	test eax,10b	203	test eax,10b
204	jnz .end	204	jnz .end
205	test eax,100b	205	test eax,100b
206	jnz .end	206	jnz .end
207	test eax,1b	207	test eax,1b
208	jnz .end	208	jnz .end
209	mov esi,-1	209	mov esi,-1
210	mov eax,procinfo	210	mov eax,procinfo
211	mov eax,[eax+46]	211	mov eax,[eax+46]
212	cmp eax,299	212	cmp eax,299
213	jae @f	213	jae @f
214	mov esi,299	214	mov esi,299
215	mcall 67,-1,ebx,ebx	215	mcall 67,-1,ebx,ebx
216	@@:	216	@@:
217	mov edx,-1	217	mov edx,-1
218	mov eax,procinfo	218	mov eax,procinfo
219	mov eax,[eax+42]	219	mov eax,[eax+42]
220	cmp eax,399	220	cmp eax,399
221	jae @f	221	jae @f
222	mov edx,399	222	mov edx,399
223	mcall 67,-1,ebx,,ebx	223	mcall 67,-1,ebx,,ebx
224	@@:	224	@@:
225	.end:	225	.end:
226	popa	226	popa
227	ret	227	ret
228	;---------------------------------------------------------------------	228	;---------------------------------------------------------------------
229	red:	229	red:
230	call ready_screen_buffer	230	call ready_screen_buffer
231	call main_area	231	call main_area
232	jmp still	232	jmp still
233	;---------------------------------------------------------------------	233	;---------------------------------------------------------------------
234	draw_window_1:	234	draw_window_1:
235	call start_draw	235	call start_draw
236	call draw_window	236	call draw_window
-		237
-		238	mov eax,[threath_buf+70]
-		239	test eax,10b
-		240	jnz .end
-		241	test eax,100b
-		242	jnz .end
-		243
237	call show_file_size	244	call show_file_size
238	call show_codepage	245	call show_codepage
239	call show_insert	246	call show_insert
240	call ready_screen_buffer	247	call ready_screen_buffer
241	call main_area	248	call main_area
-		249	.end:
242	ret	250	ret
243	;---------------------------------------------------------------------	251	;---------------------------------------------------------------------
244	key:	252	key:
245	mcall 2	253	mcall 2
246	dec al	254	dec al
247	jz still	255	jz still
248	dec al	256	dec al
249	jz key.syst	257	jz key.syst
250	cmp ah,2	258	cmp ah,2
251	je Ctrl_B ;¢ë¤¥«¨âì ¡«®ª	259	je Ctrl_B ;¢ë¤¥«¨âì ¡«®ª
252	cmp ah,3	260	cmp ah,3
253	je Ctrl_C ;copy	261	je Ctrl_C ;copy
254	cmp ah,6	262	cmp ah,6
255	je Ctrl_F ;find	263	je Ctrl_F ;find
256	cmp ah,7	264	cmp ah,7
257	je Ctrl_G ;go to	265	je Ctrl_G ;go to
258	cmp ah,8	266	cmp ah,8
259	je BackSpace	267	je BackSpace
260	cmp ah,15	268	cmp ah,15
261	je open_dialog ;open_file ;Ctrl+O	269	je open_dialog ;open_file ;Ctrl+O
262	cmp ah,19	270	cmp ah,19
263	je open_dialog_save ;save_file ;Ctrl+S	271	je open_dialog_save ;save_file ;Ctrl+S
264	cmp ah,22	272	cmp ah,22
265	je Ctrl_V ;paste	273	je Ctrl_V ;paste
266	cmp ah,24	274	cmp ah,24
267	je Ctrl_X ;cut	275	je Ctrl_X ;cut
268	cmp ah,27	276	cmp ah,27
269	je ESC	277	je ESC
270	cmp ah,48	278	cmp ah,48
271	jb still	279	jb still
272	cmp ah,57	280	cmp ah,57
273	jbe input_from_keyboard ;0-9	281	jbe input_from_keyboard ;0-9
274	cmp ah,65	282	cmp ah,65
275	jb still	283	jb still
276	cmp ah,70	284	cmp ah,70
277	jbe input_from_keyboard ;A-F	285	jbe input_from_keyboard ;A-F
278	cmp ah,81	286	cmp ah,81
279	jne @f	287	jne @f
280	call Ctrl_DOWN	288	call Ctrl_DOWN
281	jmp red	289	jmp red
282	;--------------------------------------	290	;--------------------------------------
283	@@:	291	@@:
284	cmp ah,82	292	cmp ah,82
285	jne @f	293	jne @f
286	call Ctrl_UP	294	call Ctrl_UP
287	jmp red	295	jmp red
288	;--------------------------------------	296	;--------------------------------------
289	@@:	297	@@:
290	cmp ah,84	298	cmp ah,84
291	jne @f	299	jne @f
292	call Ctrl_HOME	300	call Ctrl_HOME
293	jmp red	301	jmp red
294	;--------------------------------------	302	;--------------------------------------
295	@@:	303	@@:
296	cmp ah,85	304	cmp ah,85
297	je Ctrl_END	305	je Ctrl_END
298	cmp ah,96	306	cmp ah,96
299	je change_codepage ;⨫줠, cp866 - cp1251	307	je change_codepage ;⨫줠, cp866 - cp1251
300	cmp ah,97	308	cmp ah,97
301	jb still	309	jb still
302	cmp ah,102	310	cmp ah,102
303	jbe input_from_keyboard ;a-f	311	jbe input_from_keyboard ;a-f
304	cmp ah,126	312	cmp ah,126
305	jne @f	313	jne @f
306	xor ah,ah	314	xor ah,ah
307	jmp change_codepage ;Shift+~, koi8-r	315	jmp change_codepage ;Shift+~, koi8-r
308	;--------------------------------------	316	;--------------------------------------
309	@@:	317	@@:
310	cmp ah,110	318	cmp ah,110
311	je invert_byte ;n	319	je invert_byte ;n
312	cmp ah,176	320	cmp ah,176
313	jne @f	321	jne @f
314	call LEFT	322	call LEFT
315	jmp red	323	jmp red
316	;--------------------------------------	324	;--------------------------------------
317	@@:	325	@@:
318	cmp ah,177	326	cmp ah,177
319	jne @f	327	jne @f
320	call DOWN	328	call DOWN
321	jmp red	329	jmp red
322	;--------------------------------------	330	;--------------------------------------
323	@@:	331	@@:
324	cmp ah,178	332	cmp ah,178
325	je UP	333	je UP
326	cmp ah,179	334	cmp ah,179
327	je RIGHT	335	je RIGHT
328	cmp ah,180	336	cmp ah,180
329	jne @f	337	jne @f
330	call HOME	338	call HOME
331	jmp red	339	jmp red
332	;--------------------------------------	340	;--------------------------------------
333	@@:	341	@@:
334	cmp ah,181	342	cmp ah,181
335	je END_	343	je END_
336	cmp ah,182	344	cmp ah,182
337	je DEL	345	je DEL
338	cmp ah,183	346	cmp ah,183
339	je PGDN	347	je PGDN
340	cmp ah,184	348	cmp ah,184
341	je PGUP	349	je PGUP
342	cmp ah,185	350	cmp ah,185
343	je Insert	351	je Insert
344	jmp still	352	jmp still
345	;--------------------------------------	353	;--------------------------------------
346	.syst:	354	.syst:
347	cmp ah,72	355	cmp ah,72
348	cmp ah,75	356	cmp ah,75
349	cmp ah,77	357	cmp ah,77
350	cmp ah,80	358	cmp ah,80
351	jmp still	359	jmp still
352	;--------------------------------------------------------------------	360	;--------------------------------------------------------------------
353	button:	361	button:
354	mcall 17	362	mcall 17
355	dec ah	363	dec ah
356	jnz still	364	jnz still
357		365
358	jmp close_prog	366	jmp close_prog
359	;--------------------------------------------------------------------	367	;--------------------------------------------------------------------
360	align 4	368	align 4
361	mouse:	369	mouse:
362	mcall 18,7	370	mcall 18,7
363	cmp [active_process],eax	371	cmp [active_process],eax
364	jne still	372	jne still
365		373
366	mcall 37,7	374	mcall 37,7
367	test eax,eax	375	test eax,eax
368	jz .menu_bar_1;.mouse	376	jz .menu_bar_1;.mouse
369	bt eax,15	377	bt eax,15
370	jc @f ;®¡à ¡®âª ª®«ñá¨ª ¬ëè¨	378	jc @f ;®¡à ¡®âª ª®«ñá¨ª ¬ëè¨
371	mov ecx,eax	379	mov ecx,eax
372	shl ecx,2	380	shl ecx,2
373	.1:	381	.1:
374	call Ctrl_DOWN	382	call Ctrl_DOWN
375	loop .1	383	loop .1
376	jmp red	384	jmp red
377	;--------------------------------------	385	;--------------------------------------
378	@@:	386	@@:
379	xor ecx,ecx	387	xor ecx,ecx
380	sub cx,ax	388	sub cx,ax
381	shl cx,2	389	shl cx,2
382	.2:	390	.2:
383	call Ctrl_UP	391	call Ctrl_UP
384	loop .2	392	loop .2
385	jmp red	393	jmp red
386	;--------------------------------------------------------------------	394	;--------------------------------------------------------------------
387	.menu_bar_1:	395	.menu_bar_1:
388	call .set_mouse_flag	396	call .set_mouse_flag
389	@@:	397	@@:
390	push dword menu_data_1 ;mouse event for Menu 1	398	push dword menu_data_1 ;mouse event for Menu 1
391	call [menu_bar_mouse]	399	call [menu_bar_mouse]
392	cmp [menu_data_1.click],dword 1	400	cmp [menu_data_1.click],dword 1
393	jne .menu_bar_2	401	jne .menu_bar_2
394	cmp [menu_data_1.cursor_out],dword 0	402	cmp [menu_data_1.cursor_out],dword 0
395	jne .analyse_out_menu_1	403	jne .analyse_out_menu_1
396	jmp .menu_bar_1	404	jmp .menu_bar_1
397	;--------------------------------------------------------------------	405	;--------------------------------------------------------------------
398	.menu_bar_2:	406	.menu_bar_2:
399	push dword menu_data_2	407	push dword menu_data_2
400	call [menu_bar_mouse]	408	call [menu_bar_mouse]
401	cmp [menu_data_2.click],dword 1	409	cmp [menu_data_2.click],dword 1
402	jne .menu_bar_3	410	jne .menu_bar_3
403	cmp [menu_data_2.cursor_out],dword 0	411	cmp [menu_data_2.cursor_out],dword 0
404	jne .analyse_out_menu_2	412	jne .analyse_out_menu_2
405	jmp .menu_bar_1	413	jmp .menu_bar_1
406	;--------------------------------------------------------------------	414	;--------------------------------------------------------------------
407	.menu_bar_3:	415	.menu_bar_3:
408	push dword menu_data_3	416	push dword menu_data_3
409	call [menu_bar_mouse]	417	call [menu_bar_mouse]
410	cmp [menu_data_3.click],dword 1	418	cmp [menu_data_3.click],dword 1
411	jne .scroll_bar	419	jne .scroll_bar
412	cmp [menu_data_3.cursor_out],dword 0	420	cmp [menu_data_3.cursor_out],dword 0
413	jne .analyse_out_menu_3	421	jne .analyse_out_menu_3
414	jmp .menu_bar_1	422	jmp .menu_bar_1
415	;--------------------------------------------------------------------	423	;--------------------------------------------------------------------
416	.set_mouse_flag:	424	.set_mouse_flag:
417	xor eax,eax	425	xor eax,eax
418	inc eax	426	inc eax
419	mov [menu_data_1.get_mouse_flag],eax	427	mov [menu_data_1.get_mouse_flag],eax
420	mov [menu_data_2.get_mouse_flag],eax	428	mov [menu_data_2.get_mouse_flag],eax
421	mov [menu_data_3.get_mouse_flag],eax	429	mov [menu_data_3.get_mouse_flag],eax
422	ret	430	ret
423	;--------------------------------------------------------------------	431	;--------------------------------------------------------------------
424	.analyse_out_menu_1:	432	.analyse_out_menu_1:
425	cmp [menu_data_1.cursor_out],dword 1	433	cmp [menu_data_1.cursor_out],dword 1
426	je open_dialog	434	je open_dialog
427	cmp [menu_data_1.cursor_out],dword 2	435	cmp [menu_data_1.cursor_out],dword 2
428	je open_dialog_save ;save_file	436	je open_dialog_save ;save_file
429	cmp [menu_data_1.cursor_out],dword 3	437	cmp [menu_data_1.cursor_out],dword 3
430	je close_prog	438	je close_prog
431	jmp still	439	jmp still
432	;--------------------------------------------------------------------	440	;--------------------------------------------------------------------
433	.analyse_out_menu_2:	441	.analyse_out_menu_2:
434	cmp [menu_data_2.cursor_out],dword 1	442	cmp [menu_data_2.cursor_out],dword 1
435	jne @f	443	jne @f
436	add [bytes_per_line],4	444	add [bytes_per_line],4
437	jmp redraw_all	445	jmp redraw_all
438	;--------------------------------------	446	;--------------------------------------
439	@@:	447	@@:
440	cmp [menu_data_2.cursor_out],dword 2	448	cmp [menu_data_2.cursor_out],dword 2
441	jne @f	449	jne @f
442	add [bytes_per_line],8	450	add [bytes_per_line],8
443	jmp redraw_all	451	jmp redraw_all
444	;--------------------------------------	452	;--------------------------------------
445	@@:	453	@@:
446	cmp [menu_data_2.cursor_out],dword 3	454	cmp [menu_data_2.cursor_out],dword 3
447	jne @f	455	jne @f
448	cmp [bytes_per_line],4	456	cmp [bytes_per_line],4
449	je still	457	je still
450	sub [bytes_per_line],4	458	sub [bytes_per_line],4
451	jmp redraw_all	459	jmp redraw_all
452	;--------------------------------------	460	;--------------------------------------
453	@@:	461	@@:
454	cmp [menu_data_2.cursor_out],dword 4	462	cmp [menu_data_2.cursor_out],dword 4
455	jne still	463	jne still
456	cmp [bytes_per_line],8	464	cmp [bytes_per_line],8
457	jbe still	465	jbe still
458	sub [bytes_per_line],8	466	sub [bytes_per_line],8
459	jmp redraw_all	467	jmp redraw_all
460	;--------------------------------------------------------------------	468	;--------------------------------------------------------------------
461	.analyse_out_menu_3: ;analyse result of Menu 2	469	.analyse_out_menu_3: ;analyse result of Menu 2
462	cmp [menu_data_3.cursor_out],dword 1	470	cmp [menu_data_3.cursor_out],dword 1
463	jne still	471	jne still
464	call create_help_window	472	call create_help_window
465	jmp still	473	jmp still
466	;--------------------------------------------------------------------	474	;--------------------------------------------------------------------
467	.scroll_bar:	475	.scroll_bar:
468	; mcall 37,2	476	; mcall 37,2
469	; test eax,eax	477	; test eax,eax
470	; jnz @f	478	; jnz @f
471	; btr [flags],5	479	; btr [flags],5
472	; btr [flags],7	480	; btr [flags],7
473	; jmp still	481	; jmp still
474		482
475	.mouse:	483	.mouse:
476	.vertical:	484	.vertical:
477	mcall 37,2	485	mcall 37,2
478	test eax,eax	486	test eax,eax
479	jnz @f	487	jnz @f
480	btr [flags],5	488	btr [flags],5
481	btr [flags],7	489	btr [flags],7
482	jmp still	490	jmp still
483	;--------------------------------------	491	;--------------------------------------
484	@@:	492	@@:
485	bt [flags],5	493	bt [flags],5
486	jc @f	494	jc @f
487	bt [flags],7	495	bt [flags],7
488	jc .horizontal_0	496	jc .horizontal_0
489		497
490	mcall 37,1	498	mcall 37,1
491	shr eax,16	499	shr eax,16
492	cmp ax,[scroll_bar_data_vertical.start_x]	500	cmp ax,[scroll_bar_data_vertical.start_x]

Subversion Repositories Kolibri OS

(root)/programs/develop/heed/trunk/heed.asm – Rev 2843 → 3456