Subversion Repositories Kolibri OS

Rev

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

Rev 1523 Rev 1549
Line 55... Line 55...
55 
;;
 55 
;;
56 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 56 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 57... Line 57...
57 
 
 57 
 
Line 58... Line 58...
58 
include 'macros.inc'
 58 
include 'macros.inc'
Line 59... Line 59...
59 
 
 59 
 
Line 60... Line 60...
60 
$Revision: 1523 $
 60 
$Revision: 1549 $
Line 2231... Line 2231...
2231 
     ret
 2231 
     ret
2232 
 .set_pointer_position:
 2232 
 .set_pointer_position:
2233 
;     cmp  ecx,4  ; set mouse pointer position
 2233 
;     cmp  ecx,4  ; set mouse pointer position
2234 
     dec   ecx
 2234 
     dec   ecx
2235 
     jnz  .set_mouse_button
 2235 
     jnz  .set_mouse_button
2236 
     mov   [MOUSE_Y],dx    ;y
 2236 
     cmp   dx, word[Screen_Max_Y]
2237 
     ror   edx,16
 2237 
     ja    .end
2238 
     mov   [MOUSE_X],dx    ;x
 - 
 
2239 
     rol   edx,16
 2238 
     rol   edx,16
- 
 
 2239 
     cmp   dx, word[Screen_Max_X]
- 
 
 2240 
     ja    .end
- 
 
 2241 
     mov   [MOUSE_X], edx
2240 
     ret
 2242 
     ret
2241 
 .set_mouse_button:
 2243 
 .set_mouse_button:
2242 
;     cmp   ecx,5  ; set mouse button features
 2244 
;     cmp   ecx,5  ; set mouse button features
2243 
     dec   ecx
 2245 
     dec   ecx
2244 
     jnz  .end
 2246 
     jnz  .end