forked from KolibriOS/kolibrios
163 lines
1.5 KiB
NASM
163 lines
1.5 KiB
NASM
|
|
; Keyboard indicators v0.1
|
|
; by Albom
|
|
|
|
use32
|
|
org 0
|
|
db 'MENUET01'
|
|
dd 1
|
|
dd _start
|
|
dd _end
|
|
dd _memory
|
|
dd _stack
|
|
dd _param
|
|
dd 0
|
|
|
|
|
|
_start:
|
|
|
|
call _key_set
|
|
call _wnd_draw
|
|
|
|
_event_wait:
|
|
|
|
mov eax, 10
|
|
int 0x40
|
|
|
|
cmp eax, 1
|
|
jne @f
|
|
call _wnd_draw
|
|
|
|
@@:
|
|
cmp eax, 2
|
|
jne @f
|
|
call _key_check
|
|
|
|
@@:
|
|
cmp eax, 3
|
|
jne @f
|
|
call _btn_check
|
|
|
|
@@:
|
|
|
|
|
|
jmp _event_wait
|
|
|
|
_key_set:
|
|
mov eax, 66
|
|
mov edx, 0
|
|
mov ebx, 4
|
|
mov cl, 69
|
|
int 0x40
|
|
|
|
mov eax, 66
|
|
mov edx, 0
|
|
mov ebx, 4
|
|
mov cl, 58
|
|
int 0x40
|
|
|
|
mov eax, 66
|
|
mov edx, 0
|
|
mov ebx, 4
|
|
mov cl, 70
|
|
int 0x40
|
|
|
|
ret
|
|
|
|
|
|
_wnd_draw:
|
|
pusha
|
|
|
|
mov eax, 12
|
|
mov ebx, 1
|
|
int 0x40
|
|
|
|
xor eax, eax
|
|
mov ebx, 10*65536+100
|
|
mov ecx, 10*65536+30
|
|
mov edx, 0x34ffffff
|
|
mov edi, _ind
|
|
int 0x40
|
|
|
|
call _indicators_check
|
|
|
|
mov eax, 12
|
|
mov ebx, 2
|
|
int 0x40
|
|
|
|
popa
|
|
ret
|
|
|
|
_key_check:
|
|
pusha
|
|
mov eax, 2
|
|
int 0x40
|
|
|
|
call _indicators_check
|
|
|
|
popa
|
|
ret
|
|
|
|
_btn_check:
|
|
pusha
|
|
mov eax, 17
|
|
int 0x40
|
|
cmp ah, 1
|
|
jne @f
|
|
mov eax, -1
|
|
int 0x40
|
|
@@:
|
|
popa
|
|
ret
|
|
|
|
|
|
_indicators_check:
|
|
pusha
|
|
mov eax, 66
|
|
mov ebx, 3
|
|
int 40h
|
|
|
|
test_ins:
|
|
test eax, 0x80
|
|
jz @f
|
|
mov [_ind], '*'
|
|
jmp test_caps
|
|
@@:
|
|
mov [_ind], 'o'
|
|
|
|
test_caps:
|
|
test eax, 0x40
|
|
jz @f
|
|
mov [_ind+1], '*'
|
|
jmp test_scroll
|
|
@@:
|
|
mov [_ind+1], 'o'
|
|
|
|
test_scroll:
|
|
test eax, 0x100
|
|
jz @f
|
|
mov [_ind+2], '*'
|
|
jmp test_ok
|
|
@@:
|
|
mov [_ind+2], 'o'
|
|
|
|
test_ok:
|
|
mov eax, 71
|
|
mov ebx, 1
|
|
mov ecx, _ind
|
|
int 0x40
|
|
popa
|
|
ret
|
|
|
|
_ind db 'ooo', 0
|
|
|
|
_param:
|
|
rb 256
|
|
|
|
_end:
|
|
|
|
align 32
|
|
rb 2048
|
|
_stack:
|
|
_memory:
|