Subversion Repositories Kolibri OS

Rev

Rev 2705 | Rev 3326 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2705 Rev 2710
Line 1... Line 1...
1 
; <--- description --->
 1 
; <--- description --->
2 
; compiler:     FASM 1.67.23
 2 
; compiler:     FASM 1.67.23
3 
; name:         Mouse Emulation For KolibriOS
 3 
; name:         Mouse Emulation For KolibriOS
4 
;-----------------------------------------------------------------------------
 4 
;-----------------------------------------------------------------------------
- 
 
 5 
; version:	1.2
- 
 
 6 
; last update:  01/06/2012
- 
 
 7 
; written by:   Marat Zakiyanov aka Mario79, aka Mario
- 
 
 8 
; changes:      using new functions 66.6 and 66.7
- 
 
 9 
;-----------------------------------------------------------------------------
5 
; version:	1.1
 10 
; version:	1.1
6 
; last update:  26/05/2012
 11 
; last update:  26/05/2012
7 
; written by:   Lipatov Kirill aka Leency
 12 
; written by:   Lipatov Kirill aka Leency
8 
; changes:      shows notify with instructions, while opening program
 13 
; changes:      shows notify with instructions, while opening program
9 
;-----------------------------------------------------------------------------
 14 
;-----------------------------------------------------------------------------
Line 28... Line 33...
28 
 
 33 
 
29 
; <--- start of code --->
 34 
; <--- start of code --->
30 
CODE
 35 
CODE
31 
;-----------------------------------------------------------------------------
 36 
;-----------------------------------------------------------------------------
32 
start:
 - 
 
33 
    mov eax,70
 37 
start:
34 
    mov ebx,notifyapp
 - 
 
Line 35... Line 38...
35 
    mcall
 38 
	mcall	70,notifyapp
36
39
37 
start1:
 40 
start1:
38 
	xor	ebx,ebx
 41 
	xor	ebx,ebx
39 
	mcall	40
 42 
	mcall	40
Line 40... Line 43...
40 
@@:
 43 
@@:
41 
	mcall	23,10
44 
	mcall	23,10
42 
 
 45 
 
Line 43... Line 46...
43 
	mcall	66,3
 46 
	mcall	66,3
44 
	test	eax,0x80
 47 
	test	eax,0x80	;NumLock status
Line 59... Line 62...
59 
 
 62 
 
Line 60... Line 63...
60 
	mcall	2		   ; get key code
 63 
	mcall	2		   ; get key code
61
64
62 
	push	eax
 65 
	push	eax
63 
	mcall	66,3
 66 
	mcall	66,3
64 
	test	eax,0x80
 67 
	test	eax,0x80	;NumLock status
65 
	pop	eax
 68 
	pop	eax
66 
	jnz	@f
 69 
	jnz	@f
67 
	mov	ebx,5
 70 
	mov	ebx,5
Line 268... Line 271...
268 
	mov	cl,72	; Down Num 8
 271 
	mov	cl,72	; Down Num 8
269 
	mcall	66
 272 
	mcall	66
Line 270... Line 273...
270 
 
 273 
 
271 
	mov	cl,73	; Down Num 9
 274 
	mov	cl,73	; Down Num 9
- 
 
 275 
	mcall	66
- 
 
 276 
; disable/enable input, work only hotkeys (f.66.6,66.7)
- 
 
 277 
	add	ebx,2
272 
	mcall	66
 278 
	mcall	66
273 
	ret
 279 
	ret
274 
;-----------------------------------------------------------------------------
 280 
;-----------------------------------------------------------------------------
275 
; <--- initialised data --->
 281 
; <--- initialised data --->
276 
DATA
 282 
DATA
277 
;-----------------------------------------------------------------------------
 283 
;-----------------------------------------------------------------------------
278 
; <--- uninitialised data --->
 284 
; <--- uninitialised data --->
279 
UDATA
 285 
UDATA
280 
mouse_timer_ticks	dd 0
 286 
mouse_timer_ticks	dd 0
281 
;-----------------------------------------------------------------------------
 287 
;-----------------------------------------------------------------------------
282 
if lang eq ru
 288 
if lang eq ru
283 
ud_user_message db 'NumLock ¢ª«/¢ëª« í¬ã«ïâ®à ¬ëè¨. “¯à ¢«¥­¨¥ Numpad',0 ;㤠«¨âì áâà®çªã ¨§ å®â_ª¥©§
 289 
ud_user_message db 'NumLock ¢ª«/¢ëª« í¬ã«ïâ®à ¬ëè¨. “¯à ¢«¥­¨¥ Numpad',0
284 
else
 290 
else
285 
ud_user_message db 'NumLock - on/off mouse emul. Numpad - move cursor',0
 291 
ud_user_message db 'NumLock - on/off mouse emul. Numpad - move cursor',0
Line 286... Line 292...
286 
end if
 292 
end if
Line 291... Line 297...
291 
        dd      ud_user_message
 297 
	dd ud_user_message
292 
        dd      0
 298 
	dd 0
293 
        dd      0
 299 
	dd 0
294 
        db      '@notify',0
 300 
	db '@notify',0
295 
;-----------------------------------------------------------------------------
 301 
;-----------------------------------------------------------------------------
296 
 
 - 
 
297 
 
 - 
 
298 
 
 - 
 
299 
MEOS_APP_END
 302 
MEOS_APP_END
300 
; <--- end of KolibriOS application --->
 303 
; <--- end of KolibriOS application --->
301 
; ZG
 304 
; ZG
302 

            305