Subversion Repositories Kolibri OS

;

;   MyKey. Version 0.2.

;

;   Author:         Asper

;   Date of issue:  29.12.2009

;   Compiler:       FASM

;   Target:         KolibriOS

;

use32

	org	0x0

	db	'MENUET01'	; 8 byte id

	dd	38		; required os

	dd	STARTAPP	; program start

	dd	I_END		; program image size

	dd	0x1000000	; required amount of memory

	dd	0x1000000	; stack heap

	dd	0x0

	dd	app_path

include 'ASPAPI.INC'

include 'string.inc'

include 'macros.inc'

include 'editbox_ex.mac'

include 'load_lib.mac'

include 'dll.inc'

include 'debug.inc'

DEBUG	 equ 0;1

N_KEYCOLOR    equ 0x00EEEEEE ; Normal button color

C_KEYCOLOR    equ 0x00CBE1E1 ; Control button color

A_KEYCOLOR    equ 0x00FF6400;258778 ; Active button color

C_TEXTCOLOR   equ 0x80000000 ; Button caption color

CA_TEXTCOLOR  equ 0x80FFFFFF ; Active button caption color

A_TEXTCOLOR   equ 0x00FFFFFF ; Active text color

WIN_X	      equ 265

WIN_Y	      equ 50;175

WIN_W	      equ 595

WIN_H	      equ 415 ;570

WIN_COLOR     equ 0x040099BB;0x04EEEEEE

ITEM_BUTTON_W	      equ 192;100

ITEM_BUTTON_H	      equ 23

ITEM_BUTTON_SPACE     equ 0

FIRST_ITEM_BUTTON_ID  equ 7

BUT_W	      equ 80

BUT_H	      equ 20

MAX_HOTKEYS_NUM equ 15 ;  Bad bounding :/. Until we have normal listbox control.

PATH_MAX_CHARS equ 255

@use_library

STARTAPP:

	; Initialize memory

	mcall	68, 11

	or	eax,eax

	jz	close_app

	; Import libraries

	sys_load_library  boxlib_name, sys_path, boxlib_name, system_dir0, err_message_found_lib, head_f_l, myimport,err_message_import, head_f_i

	cmp	eax,-1

	jz	close_app

	stdcall dll.Load,importTable

	test	eax, eax

	jnz	close_app

	; Get memory for editboxes text

	mcall	68, 12, MAX_HOTKEYS_NUM*PATH_MAX_CHARS

	mov	dword [buf_cmd_line], eax

	mov	dword [edit1.text],   eax

	mcall	68, 12, MAX_HOTKEYS_NUM*PATH_MAX_CHARS

	mov	dword [buf_cmd_params], eax

	mov	dword [edit2.text],	eax

	mcall	68, 12, MAX_HOTKEYS_NUM*32

	mov	dword [it_buf_cmd_line], eax

	mov	dword [it_edit.text],	 eax

	call	Load_HotkeyList

	mcall	66, 1, 1  ; Set keyboard mode to get scancodes.

	mcall	26, 2, 1, ascii_keymap

get_mykey_window_slot_number:

	call	draw_window

	mcall	18, 7

	mov	[mykey_window], eax

set_event_mask:

	mcall	 40, 39

red:

      .test_slot:

	mcall	18, 7

	mov	ebx, [mykey_window]

	cmp	eax, ebx

	jne	@f

	mov	ecx, [it_window]

	cmp	ebx, ecx

	je	@f

      .activate_it_window:

	mov	al,  byte [it_alive]

	test	al,  al

	jz	@f

	mov	byte [it_alive], 0

	mcall	18, 3		      ; Activate input thread window

      @@:

	call	draw_window

still:

	call	reset_modifiers

	mcall	10		 ; Wait for an event in the queue.

	cmp	al,1		      ; redraw request ?

	jz	red

	cmp	al,2		      ; key in buffer ?

	jz	key

	cmp	al,3		      ; button in buffer ?

	jz	button

	cmp	al,6

	jz	mouse

	jmp	still

key:

	mcall	2

	push	eax

	mcall	66, 3

	mov	dword [modifiers], eax

	pop	eax

	test	word [edit1.flags], 10b

	jnz	.editbox_input

	test	word [edit2.flags], 10b

	jz	@f

     .editbox_input:

	cmp	ah, 0x80 ;if key up

	ja	still

	cmp	ah, 42 ;LShift

	je	still

	cmp	ah, 54 ;RShift

	je	still

	cmp	ah, 56 ;Alt

	je	still

	cmp	ah, 29 ;Ctrl

	je	still

	cmp	ah, 69 ;Pause/Break

	je	still

       mov     esi, ascii_keymap

       call    Scan2ASCII

       push dword edit1

       call [edit_box_key]

       push dword edit2

       call [edit_box_key]

       jmp still

     @@:

      ;------------------------

	mov	cl, byte [hotkeys_num]

     .test_next_hotkey:

	dec	cl

	mov	bl, cl

	and	ebx, 0xFF

	shl	ebx, 2

	add	ebx, dword Hotkeys.codes

	mov	edx, dword [ebx]

	cmp	ah, dl

	jne	@f

	shr	edx, 8

	cmp	edx, dword [modifiers]

	jne	@f

	push	eax

	mov	eax, PATH_MAX_CHARS

	mul	cl

	mov	edx, eax

	add	edx, dword [buf_cmd_params]

	add	eax, dword [buf_cmd_line]

	mov	esi, eax

	pop	eax

	call	RunProgram

	jmp	.end_test

     @@:

	or	cl, cl

	jnz	.test_next_hotkey

     .end_test:

      ;------------------------

	jmp	still

button:

	mcall	17	       ; Get pressed button code

	cmp	ah, 1		    ; Test x button

	je	close_app

	cmp	ah, 2

	jne	@f

	call	AddHotKey

	jmp	red

       @@:

	cmp	ah, 5

	jne	@f

	call	Load_HotkeyList

	jmp	red

       @@:

	cmp	ah, 6

	jne	@f

	call	WriteIni

	xor	edx, edx

	mov	esi, aRamSaver

	call	RunProgram

       @@:

	cmp	ah, FIRST_ITEM_BUTTON_ID     ; Test if pressed buttons

	jb	still			     ; is a HotKey button...

	mov	al, ah

	sub	al, FIRST_ITEM_BUTTON_ID

	cmp	al, byte [hotkeys_num]

	jnb	still			     ; ...so, if not then still,

	mov	byte [butt], ah 	  ; if yes then save pressed button ID

	and	eax, 0xFF

	mov	cl, byte PATH_MAX_CHARS

	mul	cl

	mov	ebx, eax

	add	ebx, dword [buf_cmd_params]

	add	eax, dword [buf_cmd_line]

	mov	dword [edit1.text], eax

	mov	dword [edit2.text], ebx

	mov	esi, eax

	call	strlen

	mov	dword [edit1.size], ecx

	mov	dword [edit1.pos], ecx

	mov	esi, ebx

	call	strlen

	mov	dword [edit2.size], ecx

	mov	dword [edit2.pos], ecx

	jmp	red

mouse:

	push	dword edit1

	call	[edit_box_mouse]

	push	dword edit2

	call	[edit_box_mouse]

	jmp	still

close_app:

	mov	eax,-1			; close this program

	int	0x40

draw_window:

	start_draw_window WIN_X,WIN_Y,WIN_W,WIN_H,WIN_COLOR,labelt, 11;labellen-labelt

	;bar         5, 24, 585, 385, 0x800000 or 0x90D2

	;rectangle2  6, 25, 585, 385, 0xFFFFFF, 0

	;bar         5, 24, BUT_W+4, 350, 0x008C00D2;0x800000 or A_KEYCOLOR

	;rectangle2  6, 25, BUT_W+4, 350, 0xFFFFFF, 0

	push	dword edit1

	call	[edit_box_draw]

	push	dword edit2

	call	[edit_box_draw]

	stdcall draw_button,   7,WIN_H-BUT_H-10,BUT_W,BUT_H,2,0x0050D250,AddKeyText,   0,C_TEXTCOLOR	; Add Hotkey.

    if 0

	stdcall draw_button,  90,WIN_H-BUT_H-10,BUT_W,BUT_H,3,C_KEYCOLOR,DeleteKeyText,0,C_TEXTCOLOR	; Delete Hotkey.

	stdcall draw_button, 173,WIN_H-BUT_H-10,BUT_W,BUT_H,4,C_KEYCOLOR,ManageKeyText,0,C_TEXTCOLOR	; Manage Hotkey.

    end if

	stdcall draw_button,   WIN_W-BUT_W*2-14,WIN_H-BUT_H-10,BUT_W,BUT_H,5,0x0050D250,ReloadKeyText,	 0,C_TEXTCOLOR	  ; Save Hotkeys list.

	stdcall draw_button,   WIN_W-BUT_W-7,WIN_H-BUT_H-10,BUT_W,BUT_H,6,0x0050D250,SaveKeyText,   0,C_TEXTCOLOR    ; Save Hotkeys list.

	movzx	ecx, byte [hotkeys_num]

	cmp	ecx, MAX_HOTKEYS_NUM

	jng	@f

	mov	ecx, MAX_HOTKEYS_NUM

     @@:

	mov	eax, 30

	mov	ebx, FIRST_ITEM_BUTTON_ID

     @@:

	or	cl, cl

	jz	@f

	mov	edx, ebx

	sub	edx, FIRST_ITEM_BUTTON_ID

	shl	edx, 5; edx=edx*32

	add	edx, dword Hotkeys

	cmp	bl, byte [butt]

	jne	.l1

	stdcall draw_button, 7,eax,ITEM_BUTTON_W,ITEM_BUTTON_H,ebx,A_KEYCOLOR  ,edx,0,CA_TEXTCOLOR

	bar	    220, 70, 350, 30, 0x00C8E1F0 ;0x800000 or A_KEYCOLOR

	rectangle2  221, 71, 350, 30, 0xFFFFFF, 0

	mov	esi, Hotkeys.code_names

	sub	edx, dword Hotkeys

	shl	edx, 1

	add	esi, edx

	stdcall outtextxy, 225, 80, esi, 64, C_TEXTCOLOR

	jmp	.l2

     .l1:

	stdcall draw_button, 7,eax,ITEM_BUTTON_W,ITEM_BUTTON_H,ebx,N_KEYCOLOR,edx,0,C_TEXTCOLOR

     .l2:

	add	eax, ITEM_BUTTON_H+ITEM_BUTTON_SPACE

	inc	ebx

	dec	cl

	jmp	@b

      @@:

	end_draw_window

ret

AddHotKey:

	mov	al, byte [hotkeys_num]

	cmp	al, MAX_HOTKEYS_NUM

	jge	.end

	inc	al

	mov	byte [hotkeys_num], al

	mcall	51, 1, dword start_input_thread, dword input_thread_stack_top

    .end:

ret

Load_HotkeyList:

	call	ReadIni

	mov	al, byte [butt]

	mov	ah, byte [hotkeys_num]

	cmp	al, ah

	jle	@f

	mov	al, ah

      @@:

	and	eax, 0xFF

	sub	al, FIRST_ITEM_BUTTON_ID

	mov	cl, byte PATH_MAX_CHARS

	mul	cl

	mov	ebx, eax

	add	eax, dword [buf_cmd_line]

	add	ebx, dword [buf_cmd_params]

	mov	esi, eax

	call	strlen

	mov	dword [edit1.size], ecx

	mov	dword [edit1.pos], ecx

	mov	esi, ebx

	call	strlen

	mov	dword [edit2.size], ecx

	mov	dword [edit2.pos], ecx

ret

reset_modifiers:

	pusha

	mov	esi, dword [it_hotkey_addr]

	test	esi, esi

	jz	.end_set_mods

	lodsd

	; Set new hotkey for the main thread

	mov	cl, al

	shr	eax, 8

	xor    edx, edx

	push	cx

	mov    cl, 3

     .next_pair:

	shl    edx, 4

	mov    bl, al

	and    bl, 3

	or     bl, bl

	jz     .l1

	cmp    bl, 3 ; both?

	jne    @f

	or     dl, 2

	jmp    .l1

      @@:

	add    bl, 2

	or     dl, bl

      .l1:

	shr    eax, 2

	dec    cl

	test   cl, cl

	jnz    .next_pair

	mov    bx, dx

	and    bx, 0xF0F

	xchg   bl, bh

	and    dx, 0x0F0

	or     dx, bx

	pop    cx

	mcall	66, 4

	mov	dword [it_hotkey_addr], 0

     .end_set_mods:

	popa

ret

;######################## Input Thread code start  ##########################

start_input_thread:

	mov	ecx, 1	   ; to get scancodes.

	mcall	26, 2, 1, it_ascii_keymap

	mcall	66, 1	   ; Set keyboard mode

	mov	dword [it_hotkey_addr], 0

it_set_editbox:

	mov	al, byte [hotkeys_num]

	sub	al, 1

	and	eax, 0xFF

	shl	eax, 5

	add	eax, dword Hotkeys.names

	mov	dword [it_edit.text], eax

	mov	esi, eax

	call	strlen

	mov	dword [it_edit.size], ecx

	mov	dword [it_edit.pos], ecx

get_it_window_slot_number:

	call	it_draw_window

	mcall	18, 7

	mov	[it_window], eax

it_set_event_mask:

	mcall	40, 39

it_red:

	call	it_draw_window

it_still:

	mcall	10		 ; Wait for an event in the queue.

	cmp	al,1		      ; redraw request ?

	jz	it_red

	cmp	al,2		      ; key in buffer ?

	jz	it_key

	cmp	al,3		      ; button in buffer ?

	jz	it_button

	cmp	al,6

	jz	it_mouse

	jmp	it_still

it_key:

	mcall	2

	mov	byte [it_keycode], 0

	stdcall outtextxy, 10, 100, ctrl_key_names, 35, 0

	cmp	ah, 1 ;Esc

	jne	@f

	dec	byte [hotkeys_num]

	jmp	close_app

      @@:

	cmp	ah, 0x80 ;if key up

	ja	.end

	cmp	ah, 42 ;[Shift] (left)

	je	.end

	cmp	ah, 54 ;[Shift] (right)

	je	.end

	cmp	ah, 56 ;[Alt]

	je	.end

	cmp	ah, 29 ;[Ctrl]

	je	.end

	cmp	ah, 69 ;[Pause Break]

	je	.end

	mov	byte [it_keycode], ah

	mov	esi, it_ascii_keymap

	call	Scan2ASCII

	test	word [it_edit.flags], 10b

	jz	.end

	push	dword it_edit

	call	[edit_box_key]

	jmp	it_still

      .end:

	mcall	26, 2, 1, it_ascii_keymap

	call	it_test_key_modifiers

	test	dl, 3

	jz	@f

	push	edx

	mcall	26, 2, 2, it_ascii_keymap

	pop	edx

      @@:

	mov	al, byte [it_keycode]

	test	al, al

	jz	@f

	shl	edx, 8

	mov	dl, al

	mov	eax, dword [it_hotkey_addr]

	test	eax, eax

	jnz	@f

	call	it_set_keycode_name

	mov	al, byte [hotkeys_num]

	dec	al

	and	eax, 0xFF

	shl	eax, 2;5

	add	eax, dword Hotkeys.codes

	mov	dword [eax], edx

	mov	dword [it_hotkey_addr], eax

	mov	cl, dl ; finally set hotkey

	shr	edx, 8

	mcall	66, 4

      @@:

	jmp	it_still

it_test_key_modifiers:

	push	eax

	mcall	66, 3 ;get control keys state

	mov	edx,  eax

      .lshift:

	test	al, 1  ; LShift ?

	jz	.rshift

	stdcall outtextxy, 10, 100, ctrl_key_names, 6, A_TEXTCOLOR

      .rshift:

	test	al, 2  ; RShift ?

	jz	.lctrl

	stdcall outtextxy, 184, 100, ctrl_key_names+29, 6, A_TEXTCOLOR

      .lctrl:

	test	al, 4  ; LCtrl ?

	jz	.rctrl

	stdcall outtextxy, 52, 100, ctrl_key_names+7, 5, A_TEXTCOLOR

      .rctrl:

	test	al, 8  ; RCtrl ?

	jz	.lalt

	stdcall outtextxy, 148, 100, ctrl_key_names+23, 5, A_TEXTCOLOR

      .lalt:

	test	al, 0x10  ; LAlt ?

	jz	.ralt

	stdcall outtextxy, 88, 100, ctrl_key_names+13, 4, A_TEXTCOLOR

      .ralt:

	test	al, 0x20  ; RAlt ?

	jz	@f

	stdcall outtextxy, 118, 100, ctrl_key_names+18, 4, A_TEXTCOLOR

      @@:

	pop	eax

ret

it_set_keycode_name:

	pusha

	mov	al, byte [hotkeys_num]

	dec	al

	and	eax, 0xFF

	shl	eax, 6

	mov	edi, Hotkeys.code_names

	add	edi, eax

	mov	ecx, 64

	xor	ax, ax

	call	strnset

	mcall	66, 3 ;get control keys state

      .lshift:

	test	al, 1  ; LShift ?

	jz	.rshift

	mov	esi, ctrl_key_names

	mov	ecx, 6

	call	strncat

	mov	esi, aPlus

	mov	ecx, 3

	call	strncat

      .rshift:

	test	al, 2  ; RShift ?

	jz	.lctrl

	mov	esi, ctrl_key_names+29

	mov	ecx, 6

	call	strncat

	mov	esi, aPlus

	mov	ecx, 3

	call	strncat

      .lctrl:

	test	al, 4  ; LCtrl ?

	jz	.rctrl

	mov	esi, ctrl_key_names+7

	mov	ecx, 5

	call	strncat

	mov	esi, aPlus

	mov	ecx, 3

	call	strncat

      .rctrl:

	test	al, 8  ; RCtrl ?

	jz	.lalt

	mov	esi, ctrl_key_names+23

	mov	ecx, 5

	call	strncat

	mov	esi, aPlus

	mov	ecx, 3

	call	strncat

      .lalt:

	test	al, 0x10  ; LAlt ?

	jz	.ralt

	mov	esi, ctrl_key_names+13

	mov	ecx, 4

	call	strncat

	mov	esi, aPlus

	mov	ecx, 3

	call	strncat

      .ralt:

	test	al, 0x20  ; RAlt ?

	jz	@f

	mov	esi, ctrl_key_names+18

	mov	ecx, 4

	call	strncat

	mov	esi, aPlus

	mov	ecx, 3

	call	strncat

      @@:

	mov	esi, it_ascii_keymap

	and	edx, 0xFF

	add	esi, edx

	mov	ecx, 1

	call	strncat

	popa

ret

it_button:

	mcall	17	       ; Get pressed button code

	cmp	ah, 1	       ; Test x button

	jne	@f

	jmp	close_app

      @@:

	jmp	it_still

it_mouse:

	push	dword it_edit

	call	[edit_box_mouse]

	jmp	it_still

it_draw_window:

	start_draw_window 450,WIN_Y+250,225,70,WIN_COLOR,it_labelt, 26;labellen-labelt

	push	dword it_edit

	call	[edit_box_draw]

	stdcall outtextxy, 43, 50, it_hint, 0, 0x323232

	stdcall outtextxy, 10, 100, ctrl_key_names, 0, 0

	;stdcall draw_button,   7,WIN_H-30,80,20,2,C_KEYCOLOR,AddKeyText,   0,C_TEXTCOLOR    ; Add Hot key.

	end_draw_window

	mov	byte [it_alive], 1

ret

;######################## Input Thread code end ##########################

; Read configuration file

ReadIni:

	; Get path

	mov	edi, ini_path

	mov	esi, app_path

	call	strlen

      .get_path:

	cmp	byte [app_path+ecx-1], '/'

	je	@f

	loop	.get_path

      @@:

	call	strncpy

	mov	byte [ini_path+ecx], 0

	mov	esi, aIni

	call	strlen

	call	strncat

	; Get hotkey number

	invoke	ini_get_int, ini_path, aMain, aKeynum, 0

	and	eax, 0xFF

	test	al, al

	jz	.end

	cmp	al, MAX_HOTKEYS_NUM

	jle	@f

	mov	al, MAX_HOTKEYS_NUM

      @@:

	mov	byte [hotkeys_num], al

	mov	ecx, eax

	xor	eax, eax

      .get_next_hotkey_values:

	call	set_next_hotkey_section_name

	; Get hotkey name

	mov	edi, eax

	shl	edi, 5 ; edi=eax*32

	add	edi, dword Hotkeys

	push	eax ecx

	invoke	ini_get_str, ini_path, aHotkey, aName, edi, 32, 0

	pop	ecx eax

	; Get hotkey code

	mov	edi, eax

	shl	edi, 2 ; edi=eax*4

	add	edi, dword Hotkeys.codes

	push	eax ecx edx

	invoke	ini_get_int, ini_path, aHotkey, aKeycode, 0

	mov	dword [it_hotkey_addr], edi

	stosd

	; set hotkey

	call	reset_modifiers

	pop	edx ecx eax

	; Get hotkey code_name

	mov	edi, eax

	shl	edi, 6 ; edi=eax*64

	add	edi, dword Hotkeys.code_names

	push	eax ecx

	invoke	ini_get_str, ini_path, aHotkey, aKeycodeName, edi, 64, 0

	pop	ecx eax

	; Get hotkey path and param

	push	eax ecx

	mov	cl, byte PATH_MAX_CHARS

	mul	cl

	mov	edi, eax

	push	edi

	add	edi, dword [buf_cmd_line]

	invoke	ini_get_str, ini_path, aHotkey, aPath, edi, 32, 0

	pop	edi

	add	edi, dword [buf_cmd_params]

	invoke	ini_get_str, ini_path, aHotkey, aParam, edi, 32, 0

	pop	ecx eax

	inc	al

	dec	ecx

	test	ecx, ecx

	jnz    .get_next_hotkey_values

    .end:

ret

; Write configuration file

WriteIni:

	mov	edi, ini_path

	; Set hotkey number

	movzx	ecx, byte [hotkeys_num]

	invoke	ini_set_int, ini_path, aMain, aKeynum, ecx

	xor	eax, eax

      .get_next_hotkey_values:

	call	set_next_hotkey_section_name

	; Set hotkey name

	push	eax ecx

	mov	esi, eax

	shl	esi, 5 ; edi=eax*32

	add	esi, dword Hotkeys

	call	strlen

	invoke	ini_set_str, ini_path, aHotkey, aName, esi, ecx

	pop	ecx eax

	; Set hotkey code

	mov	esi, eax

	shl	esi, 2 ; edi=eax*4

	add	esi, dword Hotkeys.codes

	push	eax ecx edx

	invoke	ini_set_int, ini_path, aHotkey, aKeycode, dword [esi]

	pop	edx ecx eax

	; Set hotkey code_name

	mov	esi, eax

	shl	esi, 6 ; edi=eax*64

	add	esi, dword Hotkeys.code_names

	push	eax ecx

	call	strlen

	invoke	ini_set_str, ini_path, aHotkey, aKeycodeName, esi, ecx

	pop	ecx eax

	; Set hotkey path and param

	push	eax ecx

	;inc     al

	mov	cl, byte PATH_MAX_CHARS

	mul	cl

	mov	esi, eax

	push	esi

	add	esi, dword [buf_cmd_line]

	call	strlen

	invoke	ini_set_str, ini_path, aHotkey, aPath, esi, ecx

	pop	esi

	add	esi, dword [buf_cmd_params]

	call	strlen

	invoke	ini_set_str, ini_path, aHotkey, aParam, esi, ecx

	pop	ecx eax

	inc	al

	dec	ecx

	test	ecx, ecx

	jnz    .get_next_hotkey_values

    .end:

ret

set_next_hotkey_section_name:		;(eax - num)

; this code mainly from debug.inc

	push	eax ecx edi

	mov	edi, aHotkey

	add	edi, 6 ; + strlen("hotkey")

	mov	ecx, 10

	push	-'0'

    .l0:

	xor	edx, edx

	div	ecx

	push	edx

	test	eax, eax

	jnz	.l0

    .l1:

	pop	eax

	add	al, '0'

	;call   debug_outchar

	stosb

	jnz	.l1

	pop	edi ecx eax

ret

;****************************************

;*  input:  esi = pointer to keymap     *

;*           ah  = scan code            *

;*  output:  ah  = ascii code           *

;****************************************

Scan2ASCII:

	push	esi

	shr	eax, 8

	add	esi, eax

	lodsb

	shl	eax, 8

	pop	esi

ret

;********************************************

;*  input:  esi = pointer to the file name  *

;*          edx = pointer to the parametrs  *

;********************************************

RunProgram:

    pusha

    mov      dword [InfoStructure],    7   ; run program

    mov      dword [InfoStructure+4],  0   ; flags

    mov      dword [InfoStructure+8],  edx ; pointer to the parametrs

    mov      dword [InfoStructure+12], 0   ; reserved

    mov      dword [InfoStructure+16], 0   ; reserved

    mov      dword [InfoStructure+20], 0   ; reserved

    mov      dword [InfoStructure+21], esi ; pointer to the file name

    mcall    70, InfoStructure

    cmp      eax, 0

    jl	     .err_out

  .out:

    popa

    clc

    ret

  .err_out:

    print    "Can't load program"

    popa

    stc

    ret

; DATA AREA

; Application Title

labelt		db	'MyKey v.0.2'

mykey_window	dd	0	   ; Slot number of MyKey main thread

;########### Input Thread data start ############

; Input Thread Title

it_labelt	db	"Input hotkey and it's name"

;labellen:

it_edit edit_box 180, 20, 30, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, 31, it_buf_cmd_line, 0, 0

it_buf_cmd_line   dd	  0 ;db MAX_HOTKEYS_NUM*32 dup(0)  ; !Make it dynamic!!!

it_window	  dd	  0	     ; Slot number of the input thread

it_alive	  db	  0	     ; Flag of the input thread existance

it_keycode	  db	  0

it_hotkey_addr	  dd	  0

it_hint 	  db	  'or press Esc to cancel',0

;########### Input Thread data end   ############

;Button names

AddKeyText	db 'Add',0

ReloadKeyText	db 'Reload',0

SaveKeyText	db 'Save',0

;DeleteKeyText   db 'Delete',0

;ManageKeyText   db 'Manage',0

hotkeys_num   db 0;15

butt	      db FIRST_ITEM_BUTTON_ID	    ; Pressed button ID

modifiers     dd 0

;Data structures for loadlib.mac and editbox_ex.mac [

edit1 edit_box 350, 220, 30, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, PATH_MAX_CHARS+1, buf_cmd_line, 0, 0

edit2 edit_box 350, 220, 50, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, PATH_MAX_CHARS+1, buf_cmd_params, 0, 0

buf_cmd_line   dd 0

buf_cmd_params dd 0

sys_path:

system_dir0 db '/sys/lib/'

boxlib_name db 'box_lib.obj',0

err_message_found_lib	db "Can't find box_lib.obj",0

head_f_i:

head_f_l		db 'System error',0

err_message_import	db 'Error on import box_lib.obj',0

align 4

myimport:

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

		dd  0,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

align 16

importTable:

library 						\

	libini, 'libini.obj';,                           \

;        boxlib, 'boxlib.obj'                            \

;import  boxlib, \

;edit_box_draw  , 'edit_box', \

;edit_box_key   , 'edit_box_key', \

;edit_box_mouse , 'edit_box_mouse', \

;version_ed     , 'version_ed'

import	libini, \

	ini_get_str  ,'ini_get_str', \

	ini_set_str  ,'ini_set_str', \

	ini_get_int  ,'ini_get_int', \

	ini_set_int  ,'ini_set_int';, \

;        ini_get_color,'ini_get_color', \

;        ini_set_color,'ini_set_color'

;] Data structures for loadlib.mac and editbox_ex.mac

InfoStructure:

		     dd      0x0     ; subfunction number

		     dd      0x0     ; position in the file in bytes

		     dd      0x0     ; upper part of the position address

		     dd      0x0     ; number of     bytes to read

		     dd      0x0     ; pointer to the buffer to write data

		     db      0

		     dd      0	     ; pointer to the filename

I_END:			  ; End of application code and data marker

   rb 300 ;input thread stack size

input_thread_stack_top:

ascii_keymap:

	     db 128 dup(?)

ctrl_key_names db  'LShift LCtrl LAlt RAlt RCtrl RShift',0

aPlus	       db  ' + ',0

aIni	       db  'mykey.ini',0

aMain	       db  'main',0

aKeynum        db  'keynum',0

aHotkey        db  'hotkey',0,0,0

aName	       db  'name',0

aKeycode       db  'keycode',0

aKeycodeName   db  'keycode_name',0

aPath	       db  'path',0

aParam	       db  'param',0

aRamSaver      db  '/sys/rdsave',0

app_path       rb  255

ini_path       rb  255

Hotkeys:  ;(name = 32 b) + (modifiers = 3 b) + (keycode = 1 b) + (keycode_name = 64 b) = 100 bytes for 1 hotkey

    .names:

	     db 'My1',0

	     rb 28

	     db 'My2',0

	     rb 28

	     db 'My3',0

	     rb 28

	     rb MAX_HOTKEYS_NUM*32-3

    .codes:

	     dd MAX_HOTKEYS_NUM dup (0)

    .code_names:

	     rb MAX_HOTKEYS_NUM*64

it_ascii_keymap: