kolibrios-fun/programs/fs/kfm/trunk/key.inc
Doczom ee74827e6e KFM: Add function create file
git-svn-id: svn://kolibrios.org@9121 a494cfbc-eb01-0410-851d-a64ba20cac60
2021-08-05 19:52:42 +00:00

736 lines
18 KiB
PHP

key:
mcall 2
cmp [extended_key],1
je .extended_key
test al, al
jnz still
cmp ah, 0xE0
jne @f
mov [extended_key],1
jmp still
@@:
cmp ah,15
jne .no_tab
inc [select_panel_counter]
and [select_panel_counter],1b
call draw_left_panel
call draw_right_panel
jmp still
.no_tab:
cmp ah,72 ; arrow up
je key_72.1
cmp ah,80 ; arrow down
je key_80.1
cmp ah,28 ; Enter
je key_28.1
cmp ah,17 ; W
je set_background
cmp ah,19 ; R
je reload_dir_1
cmp ah,42
je key_shift_up
cmp ah,54
je key_shift_up
cmp ah,142
je exit_dir_1 ; BackSpace Up
cmp ah,170
je key_shift_down
cmp ah,182
je key_shift_down
cmp ah,29
je key_ctrl_up.1
cmp ah,157
je key_ctrl_down.1
cmp ah,56
je key_alt_up.1
cmp ah,184
je key_alt_down.1
cmp ah,206 ; NumPad+ Up
je NumPad_plus_Up
cmp ah,202 ; NumPad- Up
je NumPad_minus_Up
cmp ah,183 ; NumPad* Up
je NumPad_sneg_Up
cmp ah,158
je symbol_a_up
cmp ah,59 ; down F1
je f_key_f1
cmp ah,60 ; down F2
je f_key_f2
cmp ah,61 ; down F3
je f_key_f3 ;sort_name
cmp ah,62 ; down F4
je f_key_f4 ;sort_type
cmp ah,63 ; down F5
je f_key_f5 ;sort_size
cmp ah,64 ; down F6
je f_key_f6 ; sort_date
cmp ah,65 ; down F7
je f_key_f7 ;
cmp ah,66 ; down F8
je f_key_f8 ; delete_file
cmp ah,67
je f_key_f9
cmp ah,88 ; down F12
je f_key_f12
jmp still
;-------------------------------------------------------------
.extended_key:
mov [extended_key],0
key_80:
cmp ah,80 ; arrow down
jne key_72
.1:
cmp [select_panel_counter],0
jne .right_1
mov eax,[left_folder_block]
dec eax
imul eax,10
cmp ax,[left_start_draw_cursor_line]
jbe .marked_action ;still
mov ax,[left_start_draw_cursor_line]
add ax,10
cmp ax,[left_panel_y_correct_size_y]
jae @f
.add_1:
add [left_start_draw_cursor_line],10
call draw_left_panel
mov [drawing_panel_folder],1
jmp still
.all:
sub ecx,10 shl 16
mov edx,0xffffff
mcall
mov [not_clear_lines],1
call draw_folder_data
mov [not_clear_lines],0
jmp still
.marked_action:
cmp [marked_action],0
je still
mov [marked_action],0
call draw_left_panel
jmp still
.marked_action_1:
cmp [marked_action],0
je still
mov [marked_action],0
call draw_right_panel
jmp still
@@:
mov eax,[left_folder_block]
sub eax,[max_panel_line]
test eax,0x80000000
jz @f
xor eax,eax
@@:
cmp [marked_action],0
jne @f
cmp [left_start_draw_line],eax
je still
@@:
mov [marked_action],0
inc [left_start_draw_line]
call draw_left_panel
jmp still
.right_1:
mov eax,[right_folder_block]
dec eax
imul eax,10
cmp ax,[right_start_draw_cursor_line]
jbe .marked_action_1 ;still
mov ax,[right_start_draw_cursor_line]
add ax,10
cmp ax,[right_panel_y_correct_size_y]
jae @f
.add_2:
add [right_start_draw_cursor_line],10
call draw_right_panel
mov [drawing_panel_folder],2
jmp still
@@:
mov eax,[right_folder_block]
sub eax,[max_panel_line]
test eax,0x80000000
jz @f
xor eax,eax
@@:
cmp [marked_action],0
jne @f
cmp [right_start_draw_line],eax
je still
@@:
mov [marked_action],0
inc [right_start_draw_line]
call draw_right_panel
jmp still
;-------------------------------------------------------------
key_72:
cmp ah,72 ;arrow up
jne key_81
.1:
cmp [select_panel_counter],0
jne .right_1
mov ax,[left_start_draw_cursor_line]
add ax,[left_panel_y.start_y]
cmp [left_panel_y.start_y],ax
je @f
sub [left_start_draw_cursor_line],10
call draw_left_panel
mov [drawing_panel_folder],1
jmp still
.all:
add ecx,10 shl 16
mov edx,0xffffff
mcall
mov [not_clear_lines],1
call draw_folder_data
mov [not_clear_lines],0
jmp still
@@:
cmp [left_start_draw_line],0
je still
dec [left_start_draw_line]
call draw_left_panel
jmp still
.right_1:
mov ax,[right_start_draw_cursor_line]
add ax,[right_panel_y.start_y]
cmp [right_panel_y.start_y],ax
je @f
sub [right_start_draw_cursor_line],10
call draw_right_panel
mov [drawing_panel_folder],2
jmp still
@@:
cmp [right_start_draw_line],0
je still
dec [right_start_draw_line]
call draw_right_panel
jmp still
;-------------------------------------------------------------
key_81:
cmp ah,81 ; PageDown
jne key_73
mov eax,[max_panel_line]
cmp [select_panel_counter],0
jne .right_1
mov ebx,[left_folder_block]
sub ebx,eax
test ebx,0x80000000
jnz .left_2
sub ebx,[left_start_draw_line]
cmp ebx,eax
ja .ok_1
mov ebx,[left_folder_block]
sub ebx,eax
call prepare_data_left_down
ja @f
cmp ebx,[left_start_draw_line]
je still
@@:
mov [left_start_draw_line],ebx
.left_3:
dec eax
imul eax,10
.left_1:
mov [left_start_draw_cursor_line],ax
call draw_left_panel
jmp still
.left_2:
mov eax,[left_folder_block]
sub eax,[left_start_draw_line]
dec eax
imul eax,10
cmp ax,[left_start_draw_cursor_line]
jbe still
jmp .left_1
.ok_1:
add [left_start_draw_line],eax
call draw_left_panel
jmp still
.right_1:
mov ebx,[right_folder_block]
sub ebx,eax
test ebx,0x80000000
jnz .right_3
sub ebx,[right_start_draw_line]
cmp ebx,eax
jae .ok_2
mov ebx,[right_folder_block]
sub ebx,eax
call prepare_data_right_down
ja @f
cmp ebx,[right_start_draw_line]
je still
@@:
mov [right_start_draw_line],ebx
.right_4:
dec eax
imul eax,10
.right_2:
mov [right_start_draw_cursor_line],ax
call draw_right_panel
jmp still
.right_3:
mov eax,[right_folder_block]
sub eax,[right_start_draw_line]
dec eax
imul eax,10
cmp ax,[right_start_draw_cursor_line]
jbe still
jmp .right_2
.ok_2:
add [right_start_draw_line],eax
call draw_right_panel
jmp still
;-------------------------------------------------------------
prepare_data_right_down:
mov ecx,[right_folder_block]
sub ecx,[right_start_draw_line]
dec ecx
imul ecx,10
cmp cx,[right_start_draw_cursor_line]
ret
;-------------------------------------------------------------
prepare_data_left_down:
mov ecx,[left_folder_block]
sub ecx,[left_start_draw_line]
dec ecx
imul ecx,10
cmp cx,[left_start_draw_cursor_line]
ret
;-------------------------------------------------------------
key_73:
cmp ah,73 ; PageUp
jne key_71
mov eax,[max_panel_line]
cmp [select_panel_counter],0
jne .right_1
mov ebx,[left_start_draw_line]
sub ebx,eax
test ebx,0x8000000
jz @f
cmp [left_start_draw_line],0
jne .draw_line_1
cmp [left_start_draw_cursor_line],0
je still
mov [left_start_draw_cursor_line],0
.draw_line_1:
mov [left_start_draw_line],0
call draw_left_panel
jmp still
@@:
sub [left_start_draw_line],eax
call draw_left_panel
jmp still
.right_1:
mov ebx,[right_start_draw_line]
sub ebx,eax
test ebx,0x80000000
jz @f
cmp [right_start_draw_line],0
jne .draw_line_2
cmp [right_start_draw_cursor_line],0
je still
mov [right_start_draw_cursor_line],0
.draw_line_2:
mov [right_start_draw_line],0
call draw_right_panel
jmp still
@@:
sub [right_start_draw_line],eax
call draw_right_panel
jmp still
;-------------------------------------------------------------
key_71:
cmp ah,71 ; Home
jne key_79
cmp [select_panel_counter],0
jne .right_1
cmp [left_start_draw_line],0
jne .draw_left_panel
cmp [left_start_draw_cursor_line],0
je still
.draw_left_panel:
mov [left_start_draw_line],0
mov [left_start_draw_cursor_line],0
call draw_left_panel
jmp still
.right_1:
cmp [right_start_draw_line],0
jne .draw_right_panel
cmp [right_start_draw_cursor_line],0
je still
.draw_right_panel:
mov [right_start_draw_line],0
mov [right_start_draw_cursor_line],0
call draw_right_panel
jmp still
;-------------------------------------------------------------
key_79:
cmp ah,79 ; End
jne key_28
cmp [select_panel_counter],0
jne .right_1
mov eax,[left_folder_block]
sub eax,[max_panel_line]
test eax,0x80000000
jnz key_81.left_2
call prepare_data_left_down
ja @f
cmp eax,[left_start_draw_line]
je still
@@:
mov [left_start_draw_line],eax
mov eax,[max_panel_line]
jmp key_81.left_3
.right_1:
mov eax,[right_folder_block]
sub eax,[max_panel_line]
test eax,0x80000000
jnz key_81.right_3
call prepare_data_right_down
ja @f
cmp eax,[right_start_draw_line]
je still
@@:
mov [right_start_draw_line],eax
mov eax,[max_panel_line]
jmp key_81.right_4
;-------------------------------------------------------------
key_28:
cmp ah,28 ; Enter
jne key_ctrl_up
.1:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je still
cmp [alt_flag],1
je files_information
mov [open_param],0
.2:
cmp [select_panel_counter],0
jne .right_1
mov ebp,read_folder_name ;read_folder.name
call calculate_left_data_1
add esi,32
cmp [exit_dir],1
je .up_patch
test [esi],byte 0x10
jz file_no_folder
cmp [open_param],0
jne still
cmp [esi+40],word 2Eh
je still
cmp [esi+40],word '..'
je .up_patch
call calculate_key_28_1
mov [left_start_draw_cursor_line],0
mov [left_start_draw_line],0
jmp proc_read_folder
.up_patch:
call calculate_key_28_2
jmp proc_read_folder
.right_1:
mov ebp,read_folder_1_name ;read_folder_1.name
call calculate_right_data_1
add esi,32
cmp [exit_dir],1
je .up_patch_1
test [esi],byte 0x10
jz file_no_folder
cmp [esi+40],word 2Eh
je still
cmp [esi+40],word '..'
je .up_patch_1
call calculate_key_28_1
mov [right_start_draw_cursor_line],0
mov [right_start_draw_line],0
jmp proc_read_folder_1
.up_patch_1:
call calculate_key_28_2
jmp proc_read_folder_1
;---------------------------------------------------------------------
calculate_key_28_1:
; mov edi,read_folder.name-1
mov edi,ebp
dec edi
inc ebp
@@:
inc edi
cmp [edi],byte 0
jne @r
cmp edi,ebp ;read_folder.name+1
je @f
mov al,'/'
mov [edi],al
inc edi
@@:
add esi,40
@@:
cld
lodsb
stosb
cmp al,0
jnz @r
ret
;---------------------------------------------------------------------
calculate_key_28_2:
mov [exit_dir],0
mov edi,ebp ;read_folder.name
@@:
inc edi
cmp [edi],byte 0
jne @r
mov [extension_size],edi
dec edi
@@:
dec edi
cmp [edi],byte '/'
jne @r
mov eax,ebp ;read_folder.name
cmp edi,eax
jbe @f
mov [edi],byte 0
@@:
inc edi
mov [temp_counter_dword],edi
dec edi
sub [extension_size],edi
mov [search_pre_folder],1
ret
;---------------------------------------------------------------------
set_background:
cmp [shift_flag],1
je .shift
cmp [ctrl_flag],1
jne still
mov [open_param],background_stretch
jmp key_28.2
.shift:
mov [open_param],background_tile
jmp key_28.2
;---------------------------------------------------------------------
reload_dir_1:
cmp [ctrl_flag],0
je still
jmp reload_dir
;---------------------------------------------------------------------
symbol_a_up:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je .ctrl
cmp [alt_flag],1
je still
jmp still
.ctrl:
mov [mark_action_counter],0
jmp mark_all_file
;---------------------------------------------------------------------
NumPad_plus_Up:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je .ctrl
cmp [alt_flag],1
je still
jmp still
.ctrl:
mov [mark_action_counter],0
jmp mark_all_file
;---------------------------------------------------------------------
NumPad_minus_Up:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je .ctrl
cmp [alt_flag],1
je still
jmp still
.ctrl:
mov [mark_action_counter],1
jmp mark_all_file
;---------------------------------------------------------------------
NumPad_sneg_Up:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je .ctrl
cmp [alt_flag],1
je still
jmp still
.ctrl:
mov [mark_action_counter],2
jmp mark_all_file
;---------------------------------------------------------------------
f_key_f1:
;sort_name:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je still
cmp [alt_flag],1
je draw_left_select_disk_menu
jmp help_start
;---------------------------------------------------------------------
f_key_f2:
;sort_name:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je still
cmp [alt_flag],1
je draw_right_select_disk_menu
jmp still
;---------------------------------------------------------------------
f_key_f3:
;sort_name:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je .ctrl
cmp [alt_flag],1
je still
jmp still
.ctrl:
cmp [select_panel_counter],1
je right_sort_name
jmp left_sort_name
;---------------------------------------------------------------------
f_key_f4:
;sort_type:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je .ctrl
cmp [alt_flag],1
je still
jmp open_file_f4
.ctrl:
cmp [select_panel_counter],1
je right_sort_type
jmp left_sort_type
;---------------------------------------------------------------------
f_key_f5:
;sort_size:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je .ctrl
cmp [alt_flag],1
je still
jmp copy_file_f5
.ctrl:
cmp [select_panel_counter],1
je right_sort_size
jmp left_sort_size
;---------------------------------------------------------------------
f_key_f6:
;sort_date:
cmp [shift_flag],1
je .shift
cmp [ctrl_flag],1
je .ctrl
cmp [alt_flag],1
je still
jmp move_file_f6
.shift:
jmp still
.ctrl:
cmp [select_panel_counter],1
je right_sort_date
jmp left_sort_date
;---------------------------------------------------------------------
f_key_f7:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je still
cmp [alt_flag],1
je still
jmp create_directory
;---------------------------------------------------------------------
f_key_f8:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je still
cmp [alt_flag],1
je still
jmp delete_file
;---------------------------------------------------------------------
f_key_f9:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je still
cmp [alt_flag],1
je still
jmp create_new_file; create_directory;
;---------------------------------------------------------------------
f_key_f12:
cmp [shift_flag],1
je still
cmp [ctrl_flag],1
je still
cmp [alt_flag],1
je still
jmp exit_apl
;---------------------------------------------------------------------
key_shift_up:
cmp [shift_flag],1
je still
mov [shift_flag],1
jmp key_alt_down.for_all
;---------------------------------------------------------------------
key_shift_down:
mov [shift_flag],0
jmp key_alt_down.for_all
;---------------------------------------------------------------------
key_ctrl_up:
cmp ah,29
jne key_ctrl_down
.1:
cmp [ctrl_flag],1
je still
mov [ctrl_flag],1
jmp key_alt_down.for_all
;---------------------------------------------------------------------
key_ctrl_down:
cmp ah,157
jne key_alt_up
.1:
mov [ctrl_flag],0
jmp key_alt_down.for_all
;---------------------------------------------------------------------
key_alt_up:
cmp ah,56
jne key_alt_down
.1:
cmp [alt_flag],1
je still
mov [alt_flag],1
jmp key_alt_down.for_all
;---------------------------------------------------------------------
key_alt_down:
cmp ah,184
jne key_insert
.1:
mov [alt_flag],0
.for_all:
call erase_fbutton
call draw_fbutton
jmp still
;---------------------------------------------------------------------
key_insert:
cmp ah,82 ; Insert
je mark_file
cmp ah,83
je f_key_f8 ;delete_file
key_end:
jmp still
;---------------------------------------------------------------------