Subversion Repositories Kolibri OS

Rev

Rev 2010 | Rev 2465 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2010 Rev 2434
1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 
;;                                                              ;;
 2 
;;                                                              ;;
3 
;; Copyright (C) KolibriOS team 2004-2008. All rights reserved. ;;
 3 
;; Copyright (C) KolibriOS team 2004-2008. All rights reserved. ;;
4 
;; Distributed under terms of the GNU General Public License    ;;
 4 
;; Distributed under terms of the GNU General Public License    ;;
5 
;;                                                              ;;
 5 
;;                                                              ;;
6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7 
 
 7 
 
8 
$Revision: 2010 $
 8 
$Revision: 2434 $
9 
 
 9 
 
10 
 
 10 
 
11 
;   check mouse
 11 
;   check mouse
12 
;
 12 
;
13 
;
 13 
;
14 
;   FB00  ->   FB0F   mouse memory 00 chunk count - FB0A-B x - FB0C-D y
 14 
;   FB00  ->   FB0F   mouse memory 00 chunk count - FB0A-B x - FB0C-D y
15 
;   FB10  ->   FB17   mouse color mem
 15 
;   FB10  ->   FB17   mouse color mem
16 
;   FB21              x move
 16 
;   FB21              x move
17 
;   FB22              y move
 17 
;   FB22              y move
18 
;   FB30              color temp
 18 
;   FB30              color temp
19 
;   FB28              high bits temp
 19 
;   FB28              high bits temp
20 
;   FB4A  ->   FB4D   FB4A-B x-under - FB4C-D y-under
 20 
;   FB4A  ->   FB4D   FB4A-B x-under - FB4C-D y-under
21 
;   FC00  ->   FCFE   com1/ps2 buffer
 21 
;   FC00  ->   FCFE   com1/ps2 buffer
22 
;   FCFF              com1/ps2 buffer count starting from FC00
 22 
;   FCFF              com1/ps2 buffer count starting from FC00
23 
 
 23 
 
24 
uglobal
 24 
uglobal
- 
 
 25 
;--------------------------------------
- 
 
 26 
align 4
25 
  mousecount  dd  0x0
 27 
  mousecount  dd  0x0
26 
  mousedata   dd  0x0
 28 
  mousedata   dd  0x0
- 
 
 29 
Y_UNDER_subtraction_CUR_hot_y:
- 
 
 30 
        dd 0
- 
 
 31 
X_UNDER_subtraction_CUR_hot_x:
- 
 
 32 
        dd 0
- 
 
 33 
Y_UNDER_sub_CUR_hot_y_add_curh:
- 
 
 34 
        dd 0
- 
 
 35 
X_UNDER_sub_CUR_hot_x_add_curh:
- 
 
 36 
        dd 0
27 
endg
 37 
endg
28 
 
 38 
 
29 
iglobal
 39 
iglobal
- 
 
 40 
;--------------------------------------
- 
 
 41 
align 4
30 
mouse_delay	   dd 10
 42 
mouse_delay        dd 10
31 
mouse_speed_factor: dd 3
 43 
mouse_speed_factor:
- 
 
 44 
                    dd 3
32 
mouse_timer_ticks  dd 0
 45 
mouse_timer_ticks  dd 0
33 
endg
 46 
endg
34 
 
 - 
 
35 
;include 'm_com.inc'
 - 
 
36 
 
 - 
 
37 
 
 - 
 
38 
;test_mario79:
 - 
 
39 
;        push   esi
 - 
 
40 
;        push   eax
 - 
 
41 
;        mov    [write_error_to],process_test_m79+43
 47 
;-----------------------------------------------------------------------------
42 
;        movzx  eax,al  ;[DevErrorCode]
 - 
 
43 
;        call   writehex
 - 
 
44 
;        mov    esi,process_test_m79
 - 
 
45 
;        call   sys_msg_board_str
 - 
 
46 
;        pop    eax
 - 
 
47 
;        pop    esi
 - 
 
48 
;        ret
 48 
align 4
49 
;process_test_m79 db 'K : Process - test Mario79 error    00000000',13,10,0
 - 
 
50 
 
 - 
 
51 
draw_mouse_under:
 49 
draw_mouse_under:
52 
	; return old picture
 50 
        ; return old picture
53 
 
 - 
 
54 
    cmp [_display.restore_cursor], 0
 51 
        cmp     [_display.restore_cursor], 0
55 
    je @F
 52 
        je      @F
56 
 
 53 
 
57 
	pushad
 54 
        pushad
58 
	movzx  eax,word [X_UNDER]
 55 
        movzx   eax, word [X_UNDER]
59 
	movzx  ebx,word [Y_UNDER]
 56 
        movzx   ebx, word [Y_UNDER]
60 
    stdcall [_display.restore_cursor], eax, ebx
 57 
        stdcall [_display.restore_cursor], eax, ebx
61 
	popad
 58 
        popad
62 
	ret
 59 
        ret
- 
 
 60 
;--------------------------------------
- 
 
 61 
align 4
63 
@@:
 62 
@@:
64 
	pushad
 63 
        pushad
65 
	xor    ecx,ecx
 64 
        xor     ecx, ecx
66 
	xor    edx,edx
 65 
        xor     edx, edx
- 
 
 66 
;--------------------------------------
67 
	align  4
 67 
align 4
68 
mres:
 68 
mres:
69 
	movzx  eax,word [X_UNDER]
 69 
        movzx   eax, word [X_UNDER]
70 
	movzx  ebx,word [Y_UNDER]
 70 
        movzx   ebx, word [Y_UNDER]
71 
	add    eax,ecx
 71 
        add     eax, ecx
72 
	add    ebx,edx
 72 
        add     ebx, edx
73 
	push   ecx
 73 
        push    ecx
74 
	push   edx
 74 
        push    edx
75 
	push   eax
 75 
        push    eax
76 
	push   ebx
 76 
        push    ebx
77 
	mov    eax,edx
 77 
        mov     eax, edx
78 
	shl    eax,6
 78 
        shl     eax, 6
79 
	shl    ecx,2
 79 
        shl     ecx, 2
80 
	add    eax,ecx
 80 
        add     eax, ecx
81 
	add    eax,mouseunder
 81 
        add     eax, mouseunder
82 
	mov    ecx,[eax]
 82 
        mov     ecx, [eax]
83 
	pop    ebx
 83 
        pop     ebx
84 
	pop    eax
 84 
        pop     eax
85 
	mov    edi, 1 ;force
 85 
        mov     edi, 1 ; force
- 
 
 86 
        or      ecx, 0x04000000  ; don't save to mouseunder area
86 
	call   [putpixel]
 87 
        call    [putpixel]
87 
	pop    edx
 88 
        pop     edx
88 
	pop    ecx
 89 
        pop     ecx
89 
	inc    ecx
 90 
        inc     ecx
90 
	cmp    ecx, 16
 91 
        cmp     ecx, 16
91 
	jnz    mres
 92 
        jnz     mres
92 
	xor    ecx, ecx
 93 
        xor     ecx, ecx
93 
	inc    edx
 94 
        inc     edx
94 
	cmp    edx, 24
 95 
        cmp     edx, 24
95 
	jnz    mres
 96 
        jnz     mres
96 
	popad
 97 
        popad
97 
	ret
 98 
        ret
- 
 
 99 
;-----------------------------------------------------------------------------
98 
 
 100 
align 4
99 
save_draw_mouse:
 101 
save_draw_mouse:
100 
 
 - 
 
101 
    cmp [_display.move_cursor], 0
 102 
        cmp     [_display.move_cursor], 0
102 
	je .no_hw_cursor
 103 
        je      .no_hw_cursor
103 
	pushad
 104 
        pushad
104 
 
 105 
 
105 
	mov    [X_UNDER],ax
 106 
        mov     [X_UNDER], ax
106 
	mov    [Y_UNDER],bx
 107 
        mov     [Y_UNDER], bx
107 
	movzx  eax,word [MOUSE_Y]
 108 
        movzx   eax, word [MOUSE_Y]
108 
	movzx  ebx,word [MOUSE_X]
 109 
        movzx   ebx, word [MOUSE_X]
109 
	push eax
 110 
        push    eax
110 
	push ebx
 111 
        push    ebx
111 
 
 112 
 
112 
	mov ecx, [Screen_Max_X]
 113 
        mov     ecx, [Screen_Max_X]
113 
	inc ecx
 114 
        inc     ecx
114 
	mul ecx
 115 
        mul     ecx
115 
    add eax, [_WinMapAddress]
 116 
        add     eax, [_WinMapAddress]
116 
    movzx edx, byte [ebx+eax]
 117 
        movzx   edx, byte [ebx+eax]
117 
	shl edx, 8
 118 
        shl     edx, 8
118 
        mov esi, [edx+SLOT_BASE+APPDATA.cursor]
 119 
        mov     esi, [edx+SLOT_BASE+APPDATA.cursor]
119 
 
 120 
 
120 
        cmp esi, [current_cursor]
 121 
        cmp     esi, [current_cursor]
121 
	je .draw
 122 
        je      .draw
122 
 
 123 
 
123 
        push esi
 124 
        push    esi
124 
    call [_display.select_cursor]
 125 
        call    [_display.select_cursor]
125 
        mov [current_cursor], esi
 126 
        mov     [current_cursor], esi
- 
 
 127 
;--------------------------------------
- 
 
 128 
align 4
126 
.draw:
 129 
.draw:
127 
    stdcall [_display.move_cursor], esi
 130 
        stdcall [_display.move_cursor], esi
128 
	popad
 131 
        popad
129 
	ret
 132 
        ret
- 
 
 133 
;--------------------------------------
- 
 
 134 
;align 4
130 
.fail:
 135 
;.fail:
131 
	mov ecx, [def_cursor]
 136 
;        mov     ecx, [def_cursor]
132 
	mov [edx+SLOT_BASE+APPDATA.cursor], ecx
 137 
;        mov     [edx+SLOT_BASE+APPDATA.cursor], ecx
133 
    stdcall [_display.move_cursor], ecx            ; stdcall: [esp]=ebx,eax
 138 
;        stdcall [_display.move_cursor], ecx        ; stdcall: [esp]=ebx,eax
134 
	popad
 139 
;        popad
135 
	ret
 140 
;        ret
- 
 
 141 
;--------------------------------------
136 
 
 142 
align 4
137 
.no_hw_cursor:
 143 
.no_hw_cursor:
138 
	pushad
 144 
        pushad
139 
	; save & draw
 145 
        ; save & draw
140 
	mov    [X_UNDER],ax
 146 
        mov     [X_UNDER], ax
141 
	mov    [Y_UNDER],bx
 147 
        mov     [Y_UNDER], bx
142 
	push   eax
 148 
        push    eax
143 
	push   ebx
 149 
        push    ebx
144 
	mov    ecx,0
 150 
        mov     ecx, 0
145 
	mov    edx,0
 151 
        mov     edx, 0
- 
 
 152 
;--------------------------------------
146 
	align  4
 153 
align 4
147 
drm:
 154 
drm:
148 
	push   eax
 155 
        push    eax
149 
	push   ebx
 156 
        push    ebx
150 
	push   ecx
 157 
        push    ecx
151 
	push   edx
 158 
        push    edx
152 
	; helloworld
 159 
        ; helloworld
153 
	push  ecx
 160 
        push    ecx
154 
	add    eax,ecx	; save picture under mouse
 161 
        add     eax, ecx; save picture under mouse
155 
	add    ebx,edx
 162 
        add     ebx, edx
156 
	push   ecx
 163 
        push    ecx
- 
 
 164 
        or      ecx, 0x04000000  ; don't load to mouseunder area
157 
	call   getpixel
 165 
        call    getpixel
158 
	mov    [COLOR_TEMP],ecx
 166 
        mov     [COLOR_TEMP], ecx
159 
	pop    ecx
 167 
        pop     ecx
160 
	mov    eax,edx
 168 
        mov     eax, edx
161 
	shl    eax,6
 169 
        shl     eax, 6
162 
	shl    ecx,2
 170 
        shl     ecx, 2
163 
	add    eax,ecx
 171 
        add     eax, ecx
164 
	add    eax,mouseunder
 172 
        add     eax, mouseunder
165 
	mov    ebx,[COLOR_TEMP]
 173 
        mov     ebx, [COLOR_TEMP]
- 
 
 174 
        and     ebx, 0xffffff
166 
	mov    [eax],ebx
 175 
        mov     [eax], ebx
167 
	pop  ecx
 176 
        pop     ecx
168 
	mov    edi,edx	     ; y cycle
 177 
        mov     edi, edx     ; y cycle
169 
	shl    edi,4	   ; *16 bytes per row
 178 
        shl     edi, 4     ; *16 bytes per row
170 
	add    edi,ecx	     ; x cycle
 179 
        add     edi, ecx     ; x cycle
171 
	mov    esi, edi
 180 
        mov     esi, edi
172 
	add    edi, esi
 181 
        add     edi, esi
173 
	add    edi, esi       ; *3
 182 
        add     edi, esi      ; *3
174 
	add    edi,[MOUSE_PICTURE]	; we have our str address
 183 
        add     edi, [MOUSE_PICTURE]    ; we have our str address
175 
	mov    esi, edi
 184 
        mov     esi, edi
176 
	add    esi, 16*24*3
 185 
        add     esi, 16*24*3
177 
	push   ecx
 186 
        push    ecx
178 
	mov    ecx, [COLOR_TEMP]
 187 
        mov     ecx, [COLOR_TEMP]
179 
	call   combine_colors
 188 
        call    combine_colors
- 
 
 189 
        and     ecx, 0xffffff
180 
	mov    [MOUSE_COLOR_MEM], ecx
 190 
        mov     [MOUSE_COLOR_MEM], ecx
181 
	pop    ecx
 191 
        pop     ecx
182 
	pop    edx
 192 
        pop     edx
183 
	pop    ecx
 193 
        pop     ecx
184 
	pop    ebx
 194 
        pop     ebx
185 
	pop    eax
 195 
        pop     eax
186 
	add    eax,ecx	     ; we have x coord+cycle
 196 
        add     eax, ecx     ; we have x coord+cycle
187 
	add    ebx,edx	     ; and y coord+cycle
 197 
        add     ebx, edx     ; and y coord+cycle
188 
	push   ecx
 198 
        push    ecx
189 
	mov    ecx, [MOUSE_COLOR_MEM]
 199 
        mov     ecx, [MOUSE_COLOR_MEM]
190 
	mov    edi, 1
 200 
        mov     edi, 1 ; force
- 
 
 201 
        or      ecx, 0x04000000  ; don't save to mouseunder area
191 
	call   [putpixel]
 202 
        call    [putpixel]
192 
	pop    ecx
 203 
        pop     ecx
193 
	mov    ebx,[esp+0]	; pure y coord again
 204 
        mov     ebx, [esp+0]    ; pure y coord again
194 
	mov    eax,[esp+4]	; and x
 205 
        mov     eax, [esp+4]    ; and x
195 
	inc    ecx	    ; +1 cycle
 206 
        inc     ecx         ; +1 cycle
196 
	cmp    ecx,16	    ; if more than 16
 207 
        cmp     ecx, 16     ; if more than 16
197 
	jnz    drm
 208 
        jnz     drm
198 
	xor    ecx, ecx
 209 
        xor     ecx, ecx
199 
	inc    edx
 210 
        inc     edx
200 
	cmp    edx,24
 211 
        cmp     edx, 24
201 
	jnz    drm
 212 
        jnz     drm
202 
	add   esp,8
 213 
        add     esp, 8
203 
	popad
 214 
        popad
204 
	ret
 215 
        ret
205 
 
 - 
 
- 
 
 216 
;-----------------------------------------------------------------------------
206 
 
 217 
align 4
207 
combine_colors:
 218 
combine_colors:
208 
      ; in
 219 
      ; in
209 
      ; ecx - color ( 00 RR GG BB )
 220 
      ; ecx - color ( 00 RR GG BB )
210 
      ; edi - ref to new color byte
 221 
      ; edi - ref to new color byte
211 
      ; esi - ref to alpha byte
 222 
      ; esi - ref to alpha byte
212 
      ;
 223 
      ;
213 
      ; out
 224 
      ; out
214 
      ; ecx - new color ( roughly (ecx*[esi]>>8)+([edi]*[esi]>>8) )
 225 
      ; ecx - new color ( roughly (ecx*[esi]>>8)+([edi]*[esi]>>8) )
215 
      push eax
 226 
        push    eax
216 
      push ebx
 227 
        push    ebx
217 
      push edx
 228 
        push    edx
218 
      push ecx
 229 
        push    ecx
219 
      xor ecx, ecx
 230 
        xor     ecx, ecx
220 
	 ; byte 2
 231 
         ; byte 2
221 
      mov eax, 0xff
 232 
        mov     eax, 0xff
222 
      sub al, [esi+0]
 233 
        sub     al, [esi+0]
223 
      mov ebx, [esp]
 234 
        mov     ebx, [esp]
224 
      shr ebx, 16
 235 
        shr     ebx, 16
225 
      and ebx, 0xff
 236 
        and     ebx, 0xff
226 
      mul ebx
 237 
        mul     ebx
227 
      shr eax, 8
 238 
        shr     eax, 8
228 
      add ecx, eax
 239 
        add     ecx, eax
229 
      xor eax, eax
 240 
        xor     eax, eax
230 
      xor ebx, ebx
 241 
        xor     ebx, ebx
231 
      mov al, [edi+0]
 242 
        mov     al, [edi+0]
232 
      mov bl, [esi+0]
 243 
        mov     bl, [esi+0]
233 
      mul ebx
 244 
        mul     ebx
234 
      shr eax, 8
 245 
        shr     eax, 8
235 
      add ecx, eax
 246 
        add     ecx, eax
236 
      shl ecx, 8
 247 
        shl     ecx, 8
237 
	 ; byte 1
 248 
         ; byte 1
238 
      mov eax, 0xff
 249 
        mov     eax, 0xff
239 
      sub al, [esi+1]
 250 
        sub     al, [esi+1]
240 
      mov ebx, [esp]
 251 
        mov     ebx, [esp]
241 
      shr ebx, 8
 252 
        shr     ebx, 8
242 
      and ebx, 0xff
 253 
        and     ebx, 0xff
243 
      mul ebx
 254 
        mul     ebx
244 
      shr eax, 8
 255 
        shr     eax, 8
245 
      add ecx, eax
 256 
        add     ecx, eax
246 
      xor eax, eax
 257 
        xor     eax, eax
247 
      xor ebx, ebx
 258 
        xor     ebx, ebx
248 
      mov al, [edi+1]
 259 
        mov     al, [edi+1]
249 
      mov bl, [esi+1]
 260 
        mov     bl, [esi+1]
250 
      mul ebx
 261 
        mul     ebx
251 
      shr eax, 8
 262 
        shr     eax, 8
252 
      add ecx, eax
 263 
        add     ecx, eax
253 
      shl ecx, 8
 264 
        shl     ecx, 8
254 
	 ; byte 2
 265 
         ; byte 2
255 
      mov eax, 0xff
 266 
        mov     eax, 0xff
256 
      sub al, [esi+2]
 267 
        sub     al, [esi+2]
257 
      mov ebx, [esp]
 268 
        mov     ebx, [esp]
258 
      and ebx, 0xff
 269 
        and     ebx, 0xff
259 
      mul ebx
 270 
        mul     ebx
260 
      shr eax, 8
 271 
        shr     eax, 8
261 
      add ecx, eax
 272 
        add     ecx, eax
262 
      xor eax, eax
 273 
        xor     eax, eax
263 
      xor ebx, ebx
 274 
        xor     ebx, ebx
264 
      mov al, [edi+2]
 275 
        mov     al, [edi+2]
265 
      mov bl, [esi+2]
 276 
        mov     bl, [esi+2]
266 
      mul ebx
 277 
        mul     ebx
267 
      shr eax, 8
 278 
        shr     eax, 8
268 
      add ecx, eax
 279 
        add     ecx, eax
269 
      pop eax
 280 
        pop     eax
270 
      pop edx
 281 
        pop     edx
271 
      pop ebx
 282 
        pop     ebx
272 
      pop eax
 283 
        pop     eax
273 
      ret
 284 
        ret
- 
 
 285 
;-----------------------------------------------------------------------------
- 
 
 286 
align 4
- 
 
 287 
check_mouse_area_for_getpixel:
- 
 
 288 
; in:
- 
 
 289 
; eax = x
- 
 
 290 
; ebx = y
- 
 
 291 
; out:
- 
 
 292 
; ecx = new color
- 
 
 293 
        push    eax ebx
- 
 
 294 
; check for Y
- 
 
 295 
        xor     ecx, ecx
- 
 
 296 
        mov     cx, [Y_UNDER]  ; [MOUSE_Y]
274 
 
 - 
 
275 
 
 - 
 
276 
__sys_disable_mouse:
 - 
 
277 
      cmp  dword [MOUSE_VISIBLE],dword 0
 - 
 
278 
      je    @f
 - 
 
279 
      ret
 - 
 
280 
@@:
 - 
 
281 
      pushad
 - 
 
282 
      cmp  [CURRENT_TASK],dword 1
 - 
 
283 
      je   disable_m
 - 
 
284 
      mov  edx,[CURRENT_TASK]
 - 
 
285 
      shl  edx,5
 - 
 
286 
      add  edx,window_data
 - 
 
287 
      movzx  eax, word [MOUSE_X]
 - 
 
288 
      movzx  ebx, word [MOUSE_Y]
 - 
 
289 
      mov  ecx,[Screen_Max_X]
 - 
 
290 
      inc  ecx
 - 
 
291 
      imul  ecx,ebx
 - 
 
292 
      add  ecx,eax
 - 
 
293 
      add  ecx, [_WinMapAddress]
 - 
 
294 
      mov   eax, [CURRENT_TASK]
 - 
 
295 
      cmp   al, [ecx]
 - 
 
296 
      je    yes_mouse_disable
 - 
 
297 
      cmp   al, [ecx+16]
 - 
 
298 
      je    yes_mouse_disable
 - 
 
299 
      add   ebx, 10
 - 
 
300 
      cmp   ebx, [Screen_Max_Y]
 - 
 
301 
      jae   no_mouse_disable
 - 
 
302 
      mov   ebx,[Screen_Max_X]
 - 
 
303 
      inc   ebx
 - 
 
304 
      imul  ebx,10
 - 
 
305 
      add   ecx,ebx
 - 
 
306 
      cmp   al, [ecx]
 - 
 
307 
      je    yes_mouse_disable
 - 
 
308 
      cmp   al, [ecx+16]
 - 
 
309 
      je    yes_mouse_disable
 - 
 
310 
      jmp   no_mouse_disable
 - 
 
311 
yes_mouse_disable:
 - 
 
312 
      mov  edx,[CURRENT_TASK]
 - 
 
313 
      shl  edx,5
 - 
 
314 
      add  edx,window_data
 - 
 
315 
      movzx  eax, word [MOUSE_X]
 - 
 
316 
      movzx  ebx, word [MOUSE_Y]
 - 
 
317 
      mov  ecx,[edx+0]	 ; mouse inside the area ?
 - 
 
318 
      add  eax,10
 - 
 
319 
      cmp  eax,ecx
 - 
 
320 
      jb   no_mouse_disable
 - 
 
321 
      sub  eax,10
 - 
 
322 
      add  ecx,[edx+8]
 - 
 
323 
      cmp  eax,ecx
 - 
 
324 
      jg   no_mouse_disable
 - 
 
325 
      mov  ecx,[edx+4]
 - 
 
326 
      add  ebx,14
 297 
 
327 
      cmp  ebx,ecx
 298 
        cmp     ebx, ecx
328 
      jb   no_mouse_disable
 - 
 
329 
      sub  ebx,14
 299 
        jb      .no_mouse_area
330 
      add  ecx,[edx+12]
 300 
        add     ecx, 23  ; mouse cursor Y size
331 
      cmp  ebx,ecx
 301 
        cmp     ebx, ecx
332 
      jg   no_mouse_disable
 302 
        ja      .no_mouse_area
333 
disable_m:
 303 
; offset Y
- 
 
 304 
        sub     bx, [Y_UNDER]  ;[MOUSE_Y]
- 
 
 305 
;--------------------------------------
334 
      cmp  dword [MOUSE_VISIBLE],dword 0
 306 
; check for X
- 
 
 307 
        xor     ecx, ecx
335 
      jne  no_mouse_disable
 308 
        mov     cx, [X_UNDER]  ;[MOUSE_X]
- 
 
 309 
        cmp     eax, ecx
- 
 
 310 
        jb      .no_mouse_area
336 
      pushf
 311 
        add     ecx, 15  ; mouse cursor X size
337 
      cli
 312 
        cmp     eax, ecx
338 
      call draw_mouse_under
 313 
        ja      .no_mouse_area
339 
      popf
 314 
; offset X
- 
 
 315 
        sub     ax, [X_UNDER]  ;[MOUSE_X]
- 
 
 316 
;--------------------------------------
340 
      mov  [MOUSE_VISIBLE],dword 1
 317 
; eax = offset x
- 
 
 318 
; ebx = offset y
- 
 
 319 
        shl     ebx, 6  ;y
- 
 
 320 
        shl     eax, 2  ;x
- 
 
 321 
        add     eax, ebx
- 
 
 322 
        add     eax, mouseunder
- 
 
 323 
        mov     ecx, [eax]
- 
 
 324 
        and     ecx, 0xffffff
341 
no_mouse_disable:
 325 
        or      ecx, 0xff000000
342 
      popad
 326 
        pop     ebx eax
- 
 
 327 
        ret
343 
      ret
 328 
;--------------------------------------
344 
 
 329 
align 4
345 
__sys_draw_pointer:
 330 
.no_mouse_area:
346 
	cmp   [mouse_pause],0
 331 
        xor     ecx, ecx
347 
	je    @f
 332 
        pop     ebx eax
- 
 
 333 
        ret
- 
 
 334 
;-----------------------------------------------------------------------------
- 
 
 335 
align 4
348 
	ret
 336 
check_mouse_area_for_putpixel:
- 
 
 337 
; in:
- 
 
 338 
; ecx = x shl 16 + y
- 
 
 339 
; eax = color
- 
 
 340 
; out:
349 
@@:
 341 
; eax = new color
- 
 
 342 
        push    eax
- 
 
 343 
; check for Y
350 
	push   eax
 344 
        mov     ax, [Y_UNDER]  ; [MOUSE_Y]
351 
	mov	eax,[timer_ticks]
 345 
        cmp     cx, ax
- 
 
 346 
        jb      .no_mouse_area
- 
 
 347 
        add     ax, 23  ; mouse cursor Y size
- 
 
 348 
        cmp     cx, ax
352 
	sub	eax,[MouseTickCounter]
 349 
        ja      .no_mouse_area
- 
 
 350 
; offset Y
- 
 
 351 
        sub     cx, [Y_UNDER]  ;[MOUSE_Y]
- 
 
 352 
        mov     ax, cx
- 
 
 353 
        shl     eax, 16
- 
 
 354 
;--------------------------------------
- 
 
 355 
; check for X
- 
 
 356 
        mov     ax, [X_UNDER]  ;[MOUSE_X]
- 
 
 357 
        shr     ecx, 16
- 
 
 358 
        cmp     cx, ax
- 
 
 359 
        jb      .no_mouse_area
- 
 
 360 
        add     ax, 15  ; mouse cursor X size
- 
 
 361 
        cmp     cx, ax
353 
	cmp	eax,1
 362 
        ja      .no_mouse_area
- 
 
 363 
; offset X
- 
 
 364 
        sub     cx, [X_UNDER]  ;[MOUSE_X]
- 
 
 365 
        mov     ax, cx
- 
 
 366 
;--------------------------------------
- 
 
 367 
; eax = (offset y) shl 16 + (offset x)
354 
	ja	@f
 368 
 
- 
 
 369 
        pop     ecx
- 
 
 370 
 
- 
 
 371 
        push    eax ebx
- 
 
 372 
 
- 
 
 373 
        mov     ebx, eax
- 
 
 374 
        shr     ebx, 16        ;y
- 
 
 375 
        and     eax, 0xffff    ;x
- 
 
 376 
 
- 
 
 377 
        shl     ebx, 6
- 
 
 378 
        shl     eax, 2
- 
 
 379 
        add     eax, ebx
- 
 
 380 
        add     eax, mouseunder
- 
 
 381 
        and     ecx, 0xFFFFFF
- 
 
 382 
        mov     [eax], ecx
- 
 
 383 
 
- 
 
 384 
        pop     ebx eax
- 
 
 385 
 
- 
 
 386 
        push    esi edi
- 
 
 387 
        rol     eax, 16
- 
 
 388 
        movzx   edi, ax     ; y cycle
- 
 
 389 
        shl     edi, 4     ; *16 bytes per row
- 
 
 390 
        shr     eax, 16
- 
 
 391 
        add     edi, eax     ; x cycle
- 
 
 392 
        lea     edi, [edi*3]
- 
 
 393 
        add     edi, [MOUSE_PICTURE]    ; we have our str address
- 
 
 394 
        mov     esi, edi
- 
 
 395 
        add     esi, 16*24*3
- 
 
 396 
        call    combine_colors
- 
 
 397 
        pop     edi esi
- 
 
 398 
;--------------------------------------
- 
 
 399 
align 4
- 
 
 400 
.end:
355 
	pop    eax
 401 
        mov     eax, ecx
- 
 
 402 
        ret
356 
	ret
 403 
;--------------------------------------
357 
@@:
 - 
 
358 
	mov	eax,[timer_ticks]
 404 
align 4
359 
	mov	[MouseTickCounter],eax
 405 
.no_mouse_area:
360 
	pop	eax
 - 
 
361 
	pushad
 - 
 
362 
	cmp    dword [MOUSE_VISIBLE],dword 0  ; mouse visible ?
 - 
 
363 
	je     chms00
 - 
 
364 
	mov	[MOUSE_VISIBLE], dword 0
 - 
 
365 
	movzx  ebx,word [MOUSE_Y]
 - 
 
366 
	movzx  eax,word [MOUSE_X]
 - 
 
367 
	pushfd
 - 
 
368 
	cli
 - 
 
369 
	call   save_draw_mouse
 - 
 
370 
	popfd
 - 
 
371 
nodmu2:
 - 
 
372 
	popad
 406 
        pop     eax
- 
 
 407 
        ret
373 
	ret
 408 
;-----------------------------------------------------------------------------
- 
 
 409 
align 4
- 
 
 410 
__sys_draw_pointer:
374 
chms00:
 411 
        pushad
375 
	movzx  ecx,word [X_UNDER]
 412 
        movzx   ecx, word [X_UNDER]
376 
	movzx  edx,word [Y_UNDER]
 413 
        movzx   edx, word [Y_UNDER]
377 
	movzx  ebx,word [MOUSE_Y]
 414 
        movzx   ebx, word [MOUSE_Y]
378 
	movzx  eax,word [MOUSE_X]
 415 
        movzx   eax, word [MOUSE_X]
379 
	cmp    eax,ecx
 416 
        cmp     eax, ecx
380 
	jne    redrawmouse
 417 
        jne     redrawmouse
381 
	cmp    ebx,edx
 418 
        cmp     ebx, edx
382 
	jne    redrawmouse
 419 
        je      nodmp
- 
 
 420 
;--------------------------------------
383 
	jmp    nodmp
 421 
align 4
384 
redrawmouse:
 422 
redrawmouse:
385 
	pushfd
 423 
        pushfd
386 
	cli
 424 
        cli
387 
	call   draw_mouse_under
 425 
        call    draw_mouse_under
388 
	call   save_draw_mouse
 426 
        call    save_draw_mouse
- 
 
 427 
 
- 
 
 428 
        mov     eax, [_display.select_cursor]
- 
 
 429 
        test    eax, eax
- 
 
 430 
        jz      @f
- 
 
 431 
 
- 
 
 432 
        xor     eax, eax
- 
 
 433 
        mov     esi, [current_cursor]
- 
 
 434 
 
- 
 
 435 
        mov     ax, [Y_UNDER]
- 
 
 436 
        sub     eax, [esi+CURSOR.hot_y]
- 
 
 437 
        mov     [Y_UNDER_subtraction_CUR_hot_y], eax
- 
 
 438 
        add     eax, [cur.h]
- 
 
 439 
        mov     [Y_UNDER_sub_CUR_hot_y_add_curh], eax
- 
 
 440 
 
- 
 
 441 
        mov     ax, [X_UNDER]
- 
 
 442 
        sub     eax, [esi+CURSOR.hot_x]
- 
 
 443 
        mov     [X_UNDER_subtraction_CUR_hot_x], eax
- 
 
 444 
        add     eax, [cur.w]
- 
 
 445 
        mov     [X_UNDER_sub_CUR_hot_x_add_curh], eax
- 
 
 446 
;--------------------------------------
- 
 
 447 
align 4
- 
 
 448 
@@:
389 
	popfd
 449 
        popfd
- 
 
 450 
;--------------------------------------
- 
 
 451 
align 4
390 
nodmp:
 452 
nodmp:
391 
	popad
 453 
        popad
392 
	ret
 454 
        ret
- 
 
 455 
;-----------------------------------------------------------------------------
393 
 
 456 
align 4
394 
proc set_mouse_data stdcall, BtnState:dword, XMoving:dword, YMoving:dword, VScroll:dword, HScroll:dword
 457 
proc set_mouse_data stdcall, BtnState:dword, XMoving:dword, YMoving:dword, VScroll:dword, HScroll:dword
395 
 
 458 
 
396 
    mov  eax,[BtnState]
 459 
        mov     eax, [BtnState]
397 
    mov  [BTN_DOWN],eax
 460 
        mov     [BTN_DOWN], eax
398 
 
 461 
 
399 
    mov  eax,[XMoving]
 462 
        mov     eax, [XMoving]
400 
    call mouse_acceleration
 463 
        call    mouse_acceleration
401 
    add  ax,[MOUSE_X]	 ;[XCoordinate]
 464 
        add     ax, [MOUSE_X];[XCoordinate]
402 
    cmp  ax,0
 465 
        cmp     ax, 0
403 
    jge  @@M1
 466 
        jge     @@M1
404 
    mov  eax,0
 467 
        mov     eax, 0
405 
    jmp  @@M2
 468 
        jmp     @@M2
- 
 
 469 
;--------------------------------------
- 
 
 470 
align 4
406 
@@M1:
 471 
@@M1:
407 
    cmp  ax,[Screen_Max_X]   ;ScreenLength
 472 
        cmp     ax, [Screen_Max_X];ScreenLength
408 
    jl	 @@M2
 473 
        jl      @@M2
409 
    mov  ax,[Screen_Max_X]   ;ScreenLength-1
 474 
        mov     ax, [Screen_Max_X];ScreenLength-1
- 
 
 475 
;--------------------------------------
410 
 
 476 
align 4
411 
@@M2:
 477 
@@M2:
412 
    mov  [MOUSE_X],ax	  ;[XCoordinate]
 478 
        mov     [MOUSE_X], ax;[XCoordinate]
413 
 
 479 
 
414 
    mov  eax,[YMoving]
 480 
        mov     eax, [YMoving]
415 
    neg  eax
 481 
        neg     eax
416 
    call mouse_acceleration
 482 
        call    mouse_acceleration
417 
 
 483 
 
418 
    add  ax,[MOUSE_Y]	;[YCoordinate]
 484 
        add     ax, [MOUSE_Y];[YCoordinate]
419 
    cmp  ax,0
 485 
        cmp     ax, 0
420 
    jge  @@M3
 486 
        jge     @@M3
421 
    mov  ax,0
 487 
        mov     ax, 0
422 
    jmp  @@M4
 488 
        jmp     @@M4
- 
 
 489 
;--------------------------------------
- 
 
 490 
align 4
423 
@@M3:
 491 
@@M3:
424 
    cmp  ax,[Screen_Max_Y]  ;ScreenHeigth
 492 
        cmp     ax, [Screen_Max_Y];ScreenHeigth
425 
    jl	 @@M4
 493 
        jl      @@M4
426 
    mov  ax,[Screen_Max_Y] ;ScreenHeigth-1
 494 
        mov     ax, [Screen_Max_Y];ScreenHeigth-1
- 
 
 495 
;--------------------------------------
427 
 
 496 
align 4
428 
@@M4:
 497 
@@M4:
429 
    mov  [MOUSE_Y],ax	  ;[YCoordinate]
 498 
        mov     [MOUSE_Y], ax;[YCoordinate]
430 
 
 499 
 
431 
    mov  eax,[VScroll]
 500 
        mov     eax, [VScroll]
432 
    add  [MOUSE_SCROLL_V],ax
 501 
        add     [MOUSE_SCROLL_V], ax
433 
 
 502 
 
434 
    mov  eax,[HScroll]
 503 
        mov     eax, [HScroll]
435 
    add  [MOUSE_SCROLL_H],ax
 504 
        add     [MOUSE_SCROLL_H], ax
436 
 
 505 
 
437 
    mov  [mouse_active],1
 506 
        mov     [mouse_active], 1
438 
    mov  eax,[timer_ticks]
 507 
        mov     eax, [timer_ticks]
439 
    mov  [mouse_timer_ticks],eax
 508 
        mov     [mouse_timer_ticks], eax
440 
    ret
 509 
        ret
441 
endp
 510 
endp
- 
 
 511 
;-----------------------------------------------------------------------------
442 
 
 512 
align 4
443 
mouse_acceleration:
 513 
mouse_acceleration:
444 
	push  eax
 514 
        push    eax
445 
	mov   eax,[timer_ticks]
 515 
        mov     eax, [timer_ticks]
446 
	sub   eax,[mouse_timer_ticks]
 516 
        sub     eax, [mouse_timer_ticks]
447 
	cmp   eax,[mouse_delay]
 517 
        cmp     eax, [mouse_delay]
448 
	pop   eax
 518 
        pop     eax
449 
	ja    @f
 519 
        ja      @f
450 
	;push  edx
 520 
        ;push  edx
451 
	imul  eax,[mouse_speed_factor]
 521 
        imul    eax, [mouse_speed_factor]
452 
	;pop   edx
 522 
        ;pop   edx
- 
 
 523 
;--------------------------------------
- 
 
 524 
align 4
453 
@@:
 525 
@@:
454 
	ret
 526 
        ret
455 

            -
            
 

          

          

            -
            
 

            527
            
;-----------------------------------------------------------------------------