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


;************************************************************************
; v.015 08.03.2010
; Support for OpenDialog - Open and Save
; Some optimization
;************************************************************************
; 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	0x0	;buf_cmd_lin
	dd	cur_dir_path
 
_title	equ 'HeEd 0.15'
 
include	'lang.inc'
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	edi,filename_area
	mov	esi,start_temp_file_name
	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	[blocks_table],eax
	mov	[file_buffer],eax
;	mov	esi,eax
;	mcall	68,12,4*1024
;	mov	[esi],eax
;	mov	[blocks_counter],1
 
;	mcall	68,12,1024	;Procinfo area for function 9 in MenuBar
;	mov	[menu_data_1.procinfo],eax
;	mov	[menu_data_2.procinfo],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
 
redraw_all:
	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
 
red:	call	ready_screen_buffer
	call	main_area
	jmp	still
 
draw_window_1:
	call	start_draw
	call	draw_window
	call	show_file_size
	call	show_codepage
	call	show_insert
	call	ready_screen_buffer
	call	main_area
	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	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
 
.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]
	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
	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
draw_window:
	mcall	0,100*65536+653,100*65536+360,((0x73 shl 24) + frgrd_color),,title
	mcall	9,threath_buf,-1
	cmp	byte [threath_buf+70],3	;®ª­® á¢ñà­ãâ® ¢ § £®«®¢®ª?
	jnae	@f
.@d:
	call	end_draw
	add	esp,4
	jmp	still
@@:
	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	;­¨¦­ïï ¯ ­¥«ì
	add	ecx,1*65536
	mov	cx,18
;	inc	ebx
	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]
	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
	mcall	51,1,.thread,(.threat_stack+16*4)
	popad
	ret
.thread:
	call	.window
.still:
	mcall	10
	dec	al
	jz	.red
	dec	al
	jz	.key
	dec	al
	jz	.button
	jmp	.still
	mcall	-1
.button:
	mcall	17,1
	cmp	ah,1
	jne	@f
	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
	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
	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
 
 
;---------------------------------------------------------
;----------------------- 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 1	;+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 1	;+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:
.size_x1	dw 40	;+32
.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:
	db 'File',0
.1:
	db 'Open',0
	db 'Save',0
	db 'Exit',0
.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 50	;+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:
	db 'View',0
.1:
	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:
.size_x		dw 40	;+4
.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:
.size_x1	dw 40	;+32
.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:
	db 'Help',0
.1:
	db 'Help',0
.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,260,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,go_to_string,ed_focus,ed_focus,0,0	;¯¥à¥å®¦¤	­ 	á¬¥é¥­¨¥
edit3	edit_box 55,260,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,210,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:	; ®¯à®¢®¦¤ îé¨© â¥ªáâ ¤«ï ç¥ª ¡®ªá®¢
.1	db 'Absolutely'
.e1:
.2	db 'Forward'
.e2:
.3	db 'Back'
.e3:
 
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
 
head_f_i:
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
 
sel_text	db "From to",0
 
help_but_text	= menu_text_area_3 ;db	'Help',0
error_open_file_string	db "Isn't found!",0
error_save_file_string	db "Isn't saved!",0
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'
 
 
;##########################	open_dial
get_loops	dd 0
dlg_pid_get	dd 0
DLGPID	dd 0
param:
	dd 0	; My dec PID
	dd 0,0	; Type of dialog
run_fileinfo:
	dd 7
	dd 0
	dd param
	dd 0
	dd 0
;run_filepath
	db '/sys/SYSXTREE',0
readdir_fileinfo:
	dd 1
	dd 0
	dd 0
readblocks	dd	0
directory_ptr	dd	0
 
;##########################	
 
 
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
 
communication_area_name:
	db 'FFFFFFFF_open_dialog',0
open_dialog_path:
	db '/sys/File Managers/opendial',0
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
 
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 - ®ª­¥
 
func_70	f70
;---------------------------------------------------------------------
fname_buf:
	rb 4096
;---------------------------------------------------------------------
temp_dir_pach:
	rb 4096
;---------------------------------------------------------------------
filename_area:
	rb 256
;---------------------------------------------------------------------
D_END:

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

Subversion Repositories Kolibri OS

(root)/programs/develop/heed/trunk/heed.asm – Rev 1439 → 1510