WebSVN – Kolibri OS – Blame – /kernel/trunk/video/cursors.inc

Rev	Author	Line No.	Line
465	serge	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
		3	;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
		4	;; Distributed under terms of the GNU General Public License ;;
		5	;; ;;
		6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
221	serge	7
593	mikedld	8	$Revision: 819 $
		9
		10
221	serge	11	LOAD_FROM_FILE equ 0
		12	LOAD_FROM_MEM equ 1
		13	LOAD_INDIRECT equ 2
		14	LOAD_SYSTEM equ 3
		15
224	serge	16	struc BITMAPINFOHEADER {
		17	.biSize dd ? ; DWORD
		18	.biWidth dd ? ; LONG
		19	.biHeight dd ? ; LONG
		20	.biPlanes dw ? ; WORD
		21	.biBitCount dw ? ; WORD
		22	.biCompression dd ? ; DWORD
		23	.biSizeImage dd ? ; DWORD
		24	.biXPelsPerMeter dd ? ; LONG
		25	.biYPelsPerMeter dd ? ; LONG
		26	.biClrUsed dd ? ; DWORD
		27	.biClrImportant dd ? ; DWORD
		28	}
		29
		30	virtual at 0
		31	BI BITMAPINFOHEADER
		32	end virtual
		33
221	serge	34	align 4
		35	proc vesa_init_cursor stdcall, dst:dword, src:dword
		36	locals
		37	rBase dd ?
		38	pQuad dd ?
		39	pBits dd ?
		40	pAnd dd ?
		41	width dd ?
		42	height dd ?
		43	counter dd ?
		44	endl
		45
		46	mov esi, [src]
224	serge	47	add esi,[esi+18]
		48	mov eax,esi
221	serge	49
224	serge	50	cmp [esi+BI.biBitCount], 24
		51	je .img_24
233	serge	52	cmp [esi+BI.biBitCount], 8
		53	je .img_8
		54	cmp [esi+BI.biBitCount], 4
		55	je .img_4
		56
		57	.img_2:
		58	add eax, [esi]
		59	mov [pQuad],eax
		60	add eax,8
		61	mov [pBits],eax
		62	add eax, 128
		63	mov [pAnd],eax
		64	mov eax,[esi+4]
		65	mov [width],eax
		66	mov ebx,[esi+8]
		67	shr ebx,1
		68	mov [height],ebx
		69
		70	mov edi, [dst]
		71	add edi, 32314
		72	mov [rBase],edi
		73
		74	mov esi,[pQuad]
		75	.l21:
		76	mov ebx, [pBits]
		77	mov ebx, [ebx]
		78	bswap ebx
		79	mov eax, [pAnd]
		80	mov eax, [eax]
		81	bswap eax
		82	mov [counter], 32
		83	@@:
		84	xor edx, edx
		85	shl eax,1
		86	setc dl
		87	dec edx
		88
		89	xor ecx, ecx
		90	shl ebx,1
		91	setc cl
		92	mov ecx, [esi+ecx*4]
		93	and ecx, edx
		94	and edx, 0xFF000000
		95	or edx, ecx
		96	mov [edi], edx
		97
		98	add edi, 4
		99	dec [counter]
		100	jnz @B
		101
		102	add [pBits], 4
		103	add [pAnd], 4
		104	mov edi,[rBase]
		105	sub edi,128
		106	mov [rBase],edi
		107	sub [height],1
		108	jnz .l21
		109	ret
		110
224	serge	111	.img_4:
221	serge	112	add eax, [esi]
		113	mov [pQuad],eax
		114	add eax,64
		115	mov [pBits],eax
		116	add eax, 0x200
		117	mov [pAnd],eax
		118	mov eax,[esi+4]
		119	mov [width],eax
		120	mov ebx,[esi+8]
		121	shr ebx,1
		122	mov [height],ebx
		123
		124	mov edi, [dst]
		125	add edi, 32314
		126	mov [rBase],edi
		127
233	serge	128	mov esi,[pQuad]
221	serge	129	mov ebx, [pBits]
233	serge	130	.l4:
		131	mov eax, [pAnd]
		132	mov eax, [eax]
221	serge	133	bswap eax
		134	mov [counter], 16
		135	@@:
		136	xor edx, edx
		137	shl eax,1
		138	setc dl
		139	dec edx
		140
233	serge	141	movzx ecx, byte [ebx]
		142	and cl, 0xF0
221	serge	143	shr ecx, 2
233	serge	144	mov ecx, [esi+ecx]
221	serge	145	and ecx, edx
		146	and edx, 0xFF000000
		147	or edx, ecx
		148	mov [edi], edx
		149
		150	xor edx, edx
		151	shl eax,1
		152	setc dl
		153	dec edx
		154
233	serge	155	movzx ecx, byte [ebx]
		156	and cl, 0x0F
		157	mov ecx, [esi+ecx*4]
221	serge	158	and ecx, edx
		159	and edx, 0xFF000000
		160	or edx, ecx
		161	mov [edi+4], edx
		162
		163	inc ebx
		164	add edi, 8
		165	dec [counter]
		166	jnz @B
		167
233	serge	168	add [pAnd], 4
221	serge	169	mov edi,[rBase]
		170	sub edi,128
		171	mov [rBase],edi
		172	sub [height],1
233	serge	173	jnz .l4
221	serge	174	ret
233	serge	175	.img_8:
		176	add eax, [esi]
		177	mov [pQuad],eax
		178	add eax,1024
		179	mov [pBits],eax
		180	add eax, 1024
		181	mov [pAnd],eax
		182	mov eax,[esi+4]
		183	mov [width],eax
		184	mov ebx,[esi+8]
		185	shr ebx,1
		186	mov [height],ebx
		187
		188	mov edi, [dst]
		189	add edi, 32314
		190	mov [rBase],edi
		191
		192	mov esi,[pQuad]
		193	mov ebx, [pBits]
		194	.l81:
		195	mov eax, [pAnd]
		196	mov eax, [eax]
		197	bswap eax
		198	mov [counter], 32
		199	@@:
		200	xor edx, edx
		201	shl eax,1
		202	setc dl
		203	dec edx
		204
		205	movzx ecx, byte [ebx]
		206	mov ecx, [esi+ecx*4]
		207	and ecx, edx
		208	and edx, 0xFF000000
		209	or edx, ecx
		210	mov [edi], edx
		211
		212	inc ebx
		213	add edi, 4
		214	dec [counter]
		215	jnz @B
		216
		217	add [pAnd], 4
		218	mov edi,[rBase]
		219	sub edi,128
		220	mov [rBase],edi
		221	sub [height],1
		222	jnz .l81
		223	ret
224	serge	224	.img_24:
		225	add eax, [esi]
		226	mov [pQuad],eax
		227	add eax, 0xC00
		228	mov [pAnd],eax
		229	mov eax,[esi+BI.biWidth]
		230	mov [width],eax
		231	mov ebx,[esi+BI.biHeight]
		232	shr ebx,1
		233	mov [height],ebx
		234
		235	mov edi, [dst]
		236	add edi, 32314
		237	mov [rBase],edi
		238
		239	mov esi,[pAnd]
		240	mov ebx, [pQuad]
		241	.row_24:
		242	mov eax, [esi]
		243	bswap eax
		244	mov [counter], 32
		245	@@:
		246	xor edx, edx
		247	shl eax,1
		248	setc dl
		249	dec edx
		250
		251	mov ecx, [ebx]
		252	and ecx, 0x00FFFFFF
		253	and ecx, edx
		254	and edx, 0xFF000000
		255	or edx, ecx
		256	mov [edi], edx
		257	add ebx, 3
		258	add edi, 4
		259	dec [counter]
		260	jnz @B
		261
		262	add esi, 4
		263	mov edi,[rBase]
		264	sub edi,128
		265	mov [rBase],edi
		266	sub [height],1
		267	jnz .row_24
		268	ret
221	serge	269	endp
		270
		271	align 4
227	serge	272	proc set_cursor stdcall, hcursor:dword
		273	mov eax, [hcursor]
230	serge	274	cmp [eax+CURSOR.magic], 'CURS'
		275	jne .fail
281	serge	276	; cmp [eax+CURSOR.size], CURSOR_SIZE
		277	; jne .fail
465	serge	278	mov ebx, [current_slot]
		279	xchg eax, [ebx+APPDATA.cursor]
227	serge	280	ret
230	serge	281	.fail:
		282	mov eax, [def_cursor]
465	serge	283	mov ebx, [current_slot]
		284	xchg eax, [ebx+APPDATA.cursor]
230	serge	285	ret
227	serge	286	endp
221	serge	287
281	serge	288	; param
		289	; eax= pid
		290	; ebx= src
		291	; ecx= flags
227	serge	292
281	serge	293	vesa_cursor:
		294	.src equ esp
		295	.flags equ esp+4
		296	.hcursor equ esp+8
		297
		298	sub esp, 4 ;space for .hcursor
		299	push ecx
		300	push ebx
		301
		302	mov ebx, eax
		303	mov eax, CURSOR_SIZE
		304	call create_kernel_object
		305	test eax, eax
		306	jz .fail
		307
		308	mov [.hcursor],eax
		309
		310	xor ebx, ebx
		311	mov [eax+CURSOR.magic], 'CURS'
		312	mov [eax+CURSOR.destroy], destroy_cursor
		313	mov [eax+CURSOR.hot_x], ebx
		314	mov [eax+CURSOR.hot_y], ebx
		315
227	serge	316	stdcall kernel_alloc, 0x1000
221	serge	317	test eax, eax
		318	jz .fail
		319
281	serge	320	mov edi, [.hcursor]
227	serge	321	mov [edi+CURSOR.base], eax
221	serge	322
281	serge	323	mov esi, [.src]
		324	mov ebx, [.flags]
227	serge	325	cmp bx, LOAD_INDIRECT
		326	je .indirect
221	serge	327
227	serge	328	movzx ecx, word [esi+10]
		329	movzx edx, word [esi+12]
		330	mov [edi+CURSOR.hot_x], ecx
		331	mov [edi+CURSOR.hot_y], edx
221	serge	332
227	serge	333	stdcall vesa_init_cursor, eax, esi
281	serge	334	mov eax, [.hcursor]
221	serge	335	.fail:
281	serge	336	add esp, 12
221	serge	337	ret
227	serge	338	.indirect:
		339	shr ebx, 16
		340	movzx ecx, bh
		341	movzx edx, bl
		342	mov [eax+CURSOR.hot_x], ecx
		343	mov [eax+CURSOR.hot_y], edx
221	serge	344
227	serge	345	xchg edi, eax
		346	mov ecx, 1024
		347	cld
		348	rep movsd
281	serge	349	add esp, 12
221	serge	350	ret
		351
		352	align 4
		353	proc load_cursor stdcall, src:dword, flags:dword
		354	locals
		355	handle dd ?
		356	endl
		357
227	serge	358	xor eax, eax
786	serge	359	cmp [create_cursor], eax
		360	je .fail2
		361
227	serge	362	mov [handle], eax
		363	cmp word [flags], LOAD_FROM_FILE
		364	jne @F
221	serge	365
		366	stdcall load_file, [src]
		367	test eax, eax
662	serge	368	jz .fail
221	serge	369	mov [src], eax
227	serge	370	@@:
662	serge	371	push ebx
		372	push esi
		373	push edi
		374
281	serge	375	mov eax, [CURRENT_TASK]
		376	shl eax, 5
379	serge	377	mov eax, [CURRENT_TASK+eax+4]
281	serge	378	mov ebx, [src]
		379	mov ecx, [flags]
		380	call [create_cursor] ;eax, ebx, ecx
221	serge	381	mov [handle], eax
662	serge	382
227	serge	383	cmp word [flags], LOAD_FROM_FILE
		384	jne .exit
221	serge	385	stdcall kernel_free, [src]
227	serge	386	.exit:
662	serge	387	pop edi
		388	pop esi
		389	pop ebx
		390	.fail:
221	serge	391	mov eax, [handle]
786	serge	392	.fail2:
221	serge	393	ret
		394	endp
		395
		396	align 4
233	serge	397	proc delete_cursor stdcall, hcursor:dword
		398	locals
		399	hsrv dd ?
		400	io_code dd ?
		401	input dd ?
		402	inp_size dd ?
		403	output dd ?
		404	out_size dd ?
		405	endl
		406
		407	mov esi, [hcursor]
		408	cmp [esi+CURSOR.magic], 'CURS'
		409	jne .fail
281	serge	410	; cmp [esi+CURSOR.size], CURSOR_SIZE
		411	; jne .fail
233	serge	412
		413	mov ebx, [CURRENT_TASK]
		414	shl ebx, 5
379	serge	415	mov ebx, [CURRENT_TASK+ebx+4]
233	serge	416	cmp ebx, [esi+CURSOR.pid]
		417	jne .fail
		418
465	serge	419	mov ebx, [current_slot]
		420	cmp esi, [ebx+APPDATA.cursor]
233	serge	421	jne @F
		422	mov eax, [def_cursor]
465	serge	423	mov [ebx+APPDATA.cursor], eax
233	serge	424	@@:
		425	mov eax, [hcursor]
281	serge	426	call [eax+APPOBJ.destroy]
233	serge	427	.fail:
		428	ret
		429	endp
		430
281	serge	431	; param
		432	; eax= cursor
		433
233	serge	434	align 4
281	serge	435	destroy_cursor:
		436
		437	push eax
		438	stdcall kernel_free, [eax+CURSOR.base]
		439	pop eax
		440
		441	call destroy_kernel_object
		442	ret
		443
		444	align 4
638	serge	445	select_cursor:
		446
		447	ret 4
		448
		449	align 4
221	serge	450	proc init_cursors
673	serge	451
381	serge	452	cmp [SCR_MODE],word 0x13
233	serge	453	jbe .fail
		454
673	serge	455	test word [SCR_MODE], 0x4000
		456	jz .fail
		457
221	serge	458	movzx eax, byte [ScreenBPP]
381	serge	459	mov ebx, [BytesPerScanLine]
221	serge	460	cmp eax, 32
		461	jne @F
		462	sub ebx, 128
		463	jmp .init
		464	@@:
		465	cmp eax, 24
		466	jne .fail
		467	sub ebx, 96
		468	.init:
		469	mov [cur_def_interl], ebx
		470
346	diamond	471	stdcall load_driver, szHwMouse
233	serge	472	mov [hw_cursor], eax
227	serge	473	test eax, eax
		474	jz .sw_mouse
		475
221	serge	476	stdcall load_cursor, def_arrow, dword LOAD_FROM_MEM
		477	mov [def_cursor], eax
227	serge	478	ret
		479	.sw_mouse:
		480	mov [create_cursor], vesa_cursor
221	serge	481
227	serge	482	stdcall load_cursor, def_arrow, dword LOAD_FROM_MEM
		483	mov [def_cursor], eax
		484
753	serge	485	mov ecx, [Screen_Max_X]
		486	mov edx, [Screen_Max_Y]
221	serge	487	inc ecx
		488	inc edx
		489	mov [scr_width], ecx
		490	mov [scr_height], edx
		491
		492	movzx ebx, byte [ScreenBPP]
		493	cmp ebx, 32
		494	jne @F
		495
638	serge	496
		497	mov dword [select_hw_cursor], select_cursor
221	serge	498	mov dword [set_hw_cursor], cursor_32
		499	mov dword [hw_restore], restore_32
		500	ret
		501	@@:
638	serge	502	mov dword [select_hw_cursor], select_cursor
221	serge	503	mov dword [set_hw_cursor], cursor_24
		504	mov dword [hw_restore], restore_24
		505	ret
		506	.fail:
		507	xor eax, eax
638	serge	508	mov dword [select_hw_cursor], eax
221	serge	509	mov dword [set_hw_cursor], eax
		510	mov dword [hw_restore], eax
		511	ret
		512	endp
		513
		514	align 4
		515	proc restore_24 stdcall, x:dword, y:dword
		516	locals
		517	w dd ?
		518	endl
		519
		520	mov edi, [cur_saved_base]
		521	mov edx, [cur_saved_h]
		522	mov ebx, [cur_saved_interl]
641	diamond	523	test edx, edx
		524	jz .ret
221	serge	525
		526	mov esi, cur_saved_data
		527	@@:
		528	mov ecx, [cur_saved_w]
		529	lea ecx, [ecx+ecx*2]
		530	rep movsb
		531	add edi, ebx
		532	dec edx
		533	jnz @B
641	diamond	534	.ret:
221	serge	535	ret
		536	endp
		537
		538	align 4
		539	proc restore_32 stdcall, x:dword, y:dword
		540	locals
		541	w dd ?
		542	endl
		543
		544	mov edi, [cur_saved_base]
		545	mov edx, [cur_saved_h]
		546	mov ebx, [cur_saved_interl]
641	diamond	547	test edx, edx
		548	jz .ret
221	serge	549
		550	mov esi, cur_saved_data
		551	@@:
		552	mov ecx, [cur_saved_w]
		553	rep movsd
		554	add edi, ebx
		555	dec edx
		556	jnz @B
641	diamond	557	.ret:
221	serge	558	ret
		559	endp
		560
		561	align 4
		562	proc cursor_24 stdcall, hcursor:dword, x:dword, y:dword
		563	locals
		564	w dd ?
		565	h dd ?
		566	st dd ?
		567	_dx dd ?
		568	_dy dd ?
		569	endl
		570
		571	mov esi, [hcursor]
		572	mov ecx, [x]
		573	mov eax, [y]
		574	mov ebx, [BytesPerScanLine]
		575
		576	xor edx, edx
		577	sub ecx, [esi+CURSOR.hot_x]
		578	mov [x], ecx
		579	sets dl
		580	dec edx
		581	and ecx, edx ;clip x to 0<=x
		582	mov edi, ecx
		583	sub edi, [x]
		584	mov [_dx], edi
		585
		586	xor edx, edx
		587	sub eax, [esi+CURSOR.hot_y]
		588	mov [y], eax
		589	sets dl
		590	dec edx
		591	and eax, edx ;clip y to 0<=y
		592	mov edi, eax
		593	sub edi, [y]
		594	mov [_dy], edi
		595
		596	mul ebx
		597	lea esi, [ecx+ecx*2]
		598	add esi, [LFBAddress]
		599	add esi, eax
		600	mov [cur_saved_base],esi
		601
		602	mov edi, [scr_width]
		603	mov edx, [scr_height]
		604	mov eax, 32
		605
		606	sub edi, ecx
		607	cmp edi, eax
224	serge	608	jng @F
		609	mov edi, eax
		610	@@:
221	serge	611	sub edi, [_dx]
		612
		613	sub edx, [y]
		614	cmp edx, eax
224	serge	615	jng @F
		616	mov edx, eax
		617	@@:
221	serge	618	sub edx, [_dy]
		619
		620	mov [w], edi
		621	mov [h], edx
		622	mov [cur_saved_w], edi
		623	mov [cur_saved_h], edx
		624
		625	sub eax, edi
224	serge	626	shl eax, 2 ;lea eax, [eax+eax*2]
221	serge	627	lea edi, [edi+edi*2]
		628	sub ebx, edi
		629	mov [cur_saved_interl], ebx
		630
		631	mov edi, cur_saved_data
		632	@@:
		633	mov ecx, [w]
		634	lea ecx, [ecx+ecx*2]
		635	rep movsb
		636	add esi, ebx
		637	dec edx
		638	jnz @B
		639
		640	;draw cursor
		641	mov edx, eax
		642	mov edi, [cur_saved_base]
		643	mov eax, [_dy]
		644	shl eax, 5
		645	add eax, [_dx]
		646	shl eax, 2
		647
		648	mov esi, [hcursor]
		649	mov esi, [esi+CURSOR.base]
		650	add esi, eax
		651	.row:
		652	mov ecx, [w]
		653	.pix:
		654	lodsd
		655	test eax, 0xFF000000
		656	jz @F
		657
		658	mov word [edi], ax
		659	shr eax, 16
		660	mov [edi+2],al
		661	@@:
		662	add edi, 3
		663	dec ecx
		664	jnz .pix
		665
		666	add esi, edx
		667	add edi, ebx
		668	dec [h]
		669	jnz .row
		670	ret
		671	endp
		672
		673	align 4
		674	proc cursor_32 stdcall, hcursor:dword, x:dword, y:dword
		675	locals
		676	w dd ?
		677	h dd ?
		678	st dd ?
		679	_dx dd ?
		680	_dy dd ?
		681	endl
		682
		683	mov esi, [hcursor]
		684	mov ecx, [x]
		685	mov eax, [y]
		686	mov ebx, [BytesPerScanLine]
		687
		688	xor edx, edx
		689	sub ecx, [esi+CURSOR.hot_x]
		690	mov [x], ecx
		691	sets dl
		692	dec edx
		693	and ecx, edx ;clip x to 0<=x
		694	mov edi, ecx
		695	sub edi, [x]
		696	mov [_dx], edi
		697
		698	xor edx, edx
		699	sub eax, [esi+CURSOR.hot_y]
		700	mov [y], eax
		701	sets dl
		702	dec edx
		703	and eax, edx ;clip y to 0<=y
		704	mov edi, eax
		705	sub edi, [y]
		706	mov [_dy], edi
		707
		708	mul ebx
		709	lea esi, [eax+ecx*4]
		710	add esi, [LFBAddress]
		711	mov [cur_saved_base],esi
		712
		713	mov edi, [scr_width]
		714	mov edx, [scr_height]
		715	mov eax, 32
		716
		717	sub edi, ecx
		718	cmp edi, eax
224	serge	719	jng @F
		720	mov edi, eax
		721	@@:
221	serge	722	sub edi, [_dx]
		723
		724	sub edx, [y]
		725	cmp edx, eax
224	serge	726	jng @F
		727	mov edx, eax
		728	@@:
221	serge	729	sub edx, [_dy]
		730
		731	mov [w], edi
		732	mov [h], edx
		733	mov [cur_saved_w], edi
		734	mov [cur_saved_h], edx
		735
		736	sub eax, edi
		737	shl eax, 2
		738	shl edi, 2
		739	sub ebx, edi
		740	mov [cur_saved_interl], ebx
		741
		742	mov edi, cur_saved_data
		743	@@:
		744	mov ecx, [w]
		745	rep movsd
		746	add esi, ebx
		747	dec edx
		748	jnz @B
		749
		750	;draw cursor
		751	mov edx, eax
		752	mov edi, [cur_saved_base]
		753	mov eax, [_dy]
		754	shl eax, 5
		755	add eax, [_dx]
		756	shl eax, 2
		757
		758	mov esi, [hcursor]
		759	mov esi, [esi+CURSOR.base]
		760	add esi, eax
		761	.row:
		762	mov ecx, [w]
		763	.pix:
		764	lodsd
		765	test eax, 0xFF000000
		766	jz @F
		767	mov [edi], eax
		768	@@:
		769	add edi, 4
		770	dec ecx
		771	jnz .pix
		772	add esi, edx
		773	add edi, ebx
		774	dec [h]
		775	jnz .row
		776	ret
		777	endp
		778
		779	align 4
		780	def_arrow:
		781	file 'arrow.cur'
		782

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/cursors.inc @ 4288 – Rev 819