forked from KolibriOS/kolibrios
Andrew
f222e98a09
- Update language codes and add comments. - Correct `en_US` translations. - Some whitespace clean-up (mainly EOL sanitation). Reviewed-on: KolibriOS/kolibrios#76 Co-authored-by: Andrew <dent.ace@gmail.com> Co-committed-by: Andrew <dent.ace@gmail.com>
199 lines
3.2 KiB
NASM
199 lines
3.2 KiB
NASM
; Keyboard indicators v0.2
|
|
; by Albom and IgorA
|
|
|
|
use32
|
|
org 0
|
|
db 'MENUET01'
|
|
dd 1
|
|
dd _start
|
|
dd _end
|
|
dd _memory
|
|
dd stacktop
|
|
dd 0
|
|
dd sys_path
|
|
|
|
include '../../macros.inc'
|
|
include '../../proc32.inc'
|
|
include '../../develop/libraries/box_lib/load_lib.mac'
|
|
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
|
|
;include 'mem.inc'
|
|
;include 'dll.inc'
|
|
include 'lang.inc' ; Language support for locales: it_IT, en_US.
|
|
|
|
@use_library ;_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load
|
|
|
|
align 4
|
|
_start:
|
|
load_libraries l_libs_start,l_libs_end
|
|
mcall 48,3,sc,sizeof.system_colors
|
|
mcall 40,0x27
|
|
|
|
init_checkboxes2 check_boxes,check_boxes_end
|
|
check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc
|
|
call _key_set
|
|
|
|
align 4
|
|
red_win:
|
|
call draw_window
|
|
|
|
|
|
align 4
|
|
still:
|
|
mcall 10
|
|
|
|
cmp al,1 ;èçì. ïîëîæåíèå îêíà
|
|
jz red_win
|
|
cmp al,2
|
|
jz key
|
|
cmp al,3
|
|
jz button
|
|
|
|
;stdcall [check_box_mouse], ch1
|
|
;stdcall [check_box_mouse], ch2
|
|
;stdcall [check_box_mouse], ch3
|
|
|
|
jmp still
|
|
|
|
;óñòàíîâèòü îáùåñèñòåìíûå "ãîðÿ÷èå êëàâèøè"
|
|
align 4
|
|
_key_set:
|
|
mov eax, 66
|
|
mov ebx, 4
|
|
mov edx, 0
|
|
mov cl, 69
|
|
int 0x40
|
|
|
|
mov eax, 66
|
|
mov ebx, 4
|
|
mov edx, 0
|
|
mov cl, 58
|
|
int 0x40
|
|
|
|
mov eax, 66
|
|
mov ebx, 4
|
|
mov edx, 0
|
|
mov cl, 70
|
|
int 0x40
|
|
|
|
ret
|
|
|
|
align 4
|
|
draw_window:
|
|
pushad
|
|
mcall 12,1
|
|
mov edx, [sc.work]
|
|
or edx, 0x34000000
|
|
mcall 0, (10 shl 16)+100, (10 shl 16)+75
|
|
|
|
stdcall [check_box_draw], ch1
|
|
stdcall [check_box_draw], ch2
|
|
stdcall [check_box_draw], ch3
|
|
mcall 12,2
|
|
popad
|
|
ret
|
|
|
|
align 4
|
|
key:
|
|
mcall 2
|
|
call _indicators_check
|
|
jmp still
|
|
|
|
align 4
|
|
_indicators_check:
|
|
pusha
|
|
mov eax, 66
|
|
mov ebx, 3
|
|
int 40h
|
|
|
|
test_ins:
|
|
test eax, 0x80
|
|
jz @f
|
|
bts dword[ch1.flags],1
|
|
jmp test_caps
|
|
@@:
|
|
btr dword[ch1.flags],1
|
|
|
|
test_caps:
|
|
test eax, 0x40
|
|
jz @f
|
|
bts dword[ch2.flags],1
|
|
jmp test_scroll
|
|
@@:
|
|
btr dword[ch2.flags],1
|
|
|
|
test_scroll:
|
|
test eax, 0x100
|
|
jz @f
|
|
bts dword[ch3.flags],1
|
|
jmp test_ok
|
|
@@:
|
|
btr dword[ch3.flags],1
|
|
|
|
test_ok:
|
|
call draw_window
|
|
popa
|
|
ret
|
|
|
|
align 4
|
|
button:
|
|
mcall 17
|
|
cmp ah,1
|
|
jne still
|
|
.exit:
|
|
mcall -1
|
|
|
|
|
|
check_boxes:
|
|
ch1 check_box2 (5 shl 16)+15,(5 shl 16)+10,5, 0xffffff,0x8000,0xff,\
|
|
txt_160,0+ch_flag_middle
|
|
ch2 check_box2 (5 shl 16)+15,(17 shl 16)+10,5, 0xffffff,0x8000,0xff,\
|
|
txt_159,0+ch_flag_middle
|
|
ch3 check_box2 (5 shl 16)+15,(29 shl 16)+10,5, 0xffffff,0x8000,0xff,\
|
|
txt_158,0+ch_flag_middle
|
|
check_boxes_end:
|
|
|
|
if lang eq it_IT
|
|
txt_160 db 'Bloc Num',0
|
|
txt_159 db 'Bloc Maiusc',0
|
|
txt_158 db 'Bloc Scorr',0
|
|
else ; Default to en_US
|
|
txt_160 db 'Num',0
|
|
txt_159 db 'Caps',0
|
|
txt_158 db 'Scroll',0
|
|
end if
|
|
head_f_i:
|
|
head_f_l db 'Ñèñòåìíàÿ îøèáêà',0
|
|
|
|
system_dir_0 db '/sys/lib/'
|
|
lib_name_0 db 'box_lib.obj',0
|
|
err_msg_found_lib_0 db 'Íå íàéäåíà áèáëèîòåêà box_lib.obj',0
|
|
err_msg_import_0 db 'Îøèáêà ïðè èìïîðòå áèáëèîòåêè box_lib',0
|
|
|
|
l_libs_start:
|
|
lib_0 l_libs lib_name_0, sys_path, library_path, system_dir_0,\
|
|
err_msg_found_lib_0,head_f_l,import_box_lib,err_msg_import_0,head_f_i
|
|
l_libs_end:
|
|
|
|
align 4
|
|
import_box_lib:
|
|
;init dd sz_init
|
|
init_checkbox dd sz_init_checkbox
|
|
check_box_draw dd sz_check_box_draw
|
|
check_box_mouse dd sz_check_box_mouse
|
|
dd 0,0
|
|
;sz_init db 'lib_init',0
|
|
sz_init_checkbox db 'init_checkbox2',0
|
|
sz_check_box_draw db 'check_box_draw2',0
|
|
sz_check_box_mouse db 'check_box_mouse2',0
|
|
|
|
;mouse_dd dd 0x0
|
|
sc system_colors
|
|
|
|
_end:
|
|
align 32
|
|
rb 2048
|
|
stacktop:
|
|
sys_path rb 1024
|
|
library_path rb 1024
|
|
_memory:
|