Subversion Repositories Kolibri OS

; <--- description --->

; compiler:     FASM 1.67.23

; name:         Mouse Emulation For KolibriOS

; version:      0.8

; last update:  03/10/2007

; written by:   Zlobny_Gluk

; e-mail:       umbrosia@land.ru

; <--- include all KolibriOS stuff --->

;include "lang.inc"

include "MACROS.INC"

; <--- start of KolibriOS application --->

MEOS_APP_START

; <--- start of code --->

CODE

  start:

  ;set an waiting mask

   mcall 40,10b

  wait_event_one:

    call checkspeed

    mov eax,66

    mov ebx,3

    int 0x40

    test eax,0x80

    jnz wait_event_two

    cmp ebp,1

    je unset_hotkeys

    mov eax,5

    mov ebx,10

    int 0x40

    jmp wait_event_one

  wait_event_two:

    cmp ebp,0

    je set_hotkeys

    mov ebp,1

    mov eax,10

    int 0x40

    cmp eax, 2			   ; if event == 2

    jmp key			   ; jump to key handler

    jmp wait_event_one		   ; else return to the start of main cycle

  key:				   ; key event handler

    mov eax, 2			   ; get key code

    int 0x40

    cmp al,2

    je mousewriteli

    jmp wait_event_one

  set_hotkeys:

    mov eax,66

    mov ebx,4

    mov cl,79d

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,4

    mov cl,80

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,4

    mov cl,81

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,4

    mov cl,75

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,4

    mov cl,76

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,4

    mov cl,77

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,4

    mov cl,71

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,4

    mov cl,72

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,4

    mov cl,73

    mov edx,0

    int 0x40

  mov ebp,1

  jmp wait_event_two

  unset_hotkeys:

    mov eax,66

    mov ebx,5

    mov cl,79

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,5

    mov cl,80

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,5

    mov cl,81

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,5

    mov cl,75

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,5

    mov cl,76

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,5

    mov cl,77

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,5

    mov cl,71

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,5

    mov cl,72

    mov edx,0

    int 0x40

    mov eax,66

    mov ebx,5

    mov cl,73

    mov edx,0

    int 0x40

    xor ebp,ebp

  jmp wait_event_one

checkspeed:

   mov eax,18

   mov ebx,19

   xor ecx,ecx

   int 0x40

   mov esi,eax

ret

  mouseread:

    ;numchecking

    mov eax,66

    mov ebx,3

    int 0x40

    test eax,0x80

    jz wait_event_one

    ;mousereading

    mov eax,37

    mov ebx,0

    int 0x40

    add edx,eax

  sravn:

    xor ebx,ebx

    xor edi,edi

    real:

    mov ebx,edx

    mov edi,ebx

    shr ebx,16 ; get x1

    shl edi,16 ; get y1

    shr edi,16

    nullli:

    add ebx,16

    cmp ebx,65535

    jg xmin

    sub ebx,15

    add edi,16

    cmp edi,65535

    jg ymin

    sub edi,15

    razr:

    mov eax,14

    int 0x40

    mov ecx,eax

    shr eax,16 ; get x2

    shl ecx,16 ; get y2

    shr ecx,16

    rightdownli:

    cmp eax,ebx

    jl xmax

    cmp ecx,edi

    jl ymax

  mousewrite:

    mov eax,18

    mov ebx,19

    mov ecx,4

    int 0x40

  jmp wait_event_one

  xmax:

    dec eax

    dec ebx

    dec edi

    shl eax,16

    add edi,eax

    mov edx,edi

    jmp sravn

  xmin:

    mov edx,edi

    jmp sravn

  ymax:

    dec ecx

    dec ebx

    shl ebx,16

    mov edi,ebx

    add edi,ecx

    mov edx,edi

    jmp sravn

  ymin:

    shl ebx,16

    mov edx,ebx

    shr ebx,16

    jmp sravn

  mousewriteli:

    cmp ah,79

    je keyone

    cmp ah,80

    je keytwo

    cmp ah,81

    je keythree

    cmp ah,75

    je keyfour

    cmp ah,77

    je keysix

    cmp ah,71

    je keyseven

    cmp ah,72

    je keyeight

    cmp ah,73

    je keynine

    cmp ah,76

    je keyfive

  jmp wait_event_one

;how_much_time:

;mov eax,26

;mov ebx,9

;int 0x40

;push eax

;ret

;oldkeyvsyakoe!

;incesi:

;inc esi

;ret

;nullesi:

;xor esi, esi

;ret

;oldkey:

;cmp ah, bh

;je incesi

;cmp ah, bh

;jne nullesi

;ret

keyone:

;call oldkey

xor edx,edx

call left

call down

xor ah,ah

mov bh,79

jmp mouseread

keytwo:

;call oldkey

xor edx,edx

call down

call down

xor ah,ah

mov bh,80

jmp mouseread

keythree:

;call oldkey

xor edx,edx

call right

call down

xor ah,ah

mov bh,81

jmp mouseread

keyfour:

;call oldkey

xor edx,edx

call left

call left

xor ah,ah

mov bh,75

jmp mouseread

keysix:

;call oldkey

xor edx,edx

call right

call right

xor ah,ah

mov bh,77

jmp mouseread

keyseven:

;call oldkey

xor edx,edx

call left

call up

xor ah,ah

mov bh,71

jmp mouseread

keyeight:

;call oldkey

xor edx,edx

call up

call up

xor ah,ah

mov bh,72

jmp mouseread

keynine:

;call oldkey

xor edx,edx

call right

call up

xor ah,ah

mov bh,73

jmp mouseread

keyfive:

 mcall 18, 19, 5, 1

 mov eax,5

 mov ebx,1

 int 0x40

 mcall 18, 19, 5, 0

jmp wait_event_one

left:

mov eax,esi

leftstart:

dec eax

sub edx,65536

cmp eax,0

ja leftstart

ret

right:

mov eax,esi

rightstart:

dec eax

add edx,65536

cmp eax,0

ja rightstart

ret

down:

mov eax,esi

downstart:

dec eax

add edx,1

cmp eax,0

ja downstart

ret

up:

mov eax,esi

upstart:

dec eax

sub edx,1

cmp eax,0

ja upstart

ret

; <--- initialised data --->

DATA

; <--- uninitialised data --->

UDATA

MEOS_APP_END

; <--- end of KolibriOS application --->

; ZG