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

Rev	Author	Line No.	Line
425	victor	1	$Revision: 425 $
1	ha	2	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		3	;; ;;
		4	;; VESA20.INC ;;
		5	;; ;;
		6	;; Vesa 2.0 functions for MenuetOS ;;
		7	;; ;;
		8	;; Copyright 2002 Ville Turjanmaa ;;
		9	;; Alexey, kgaz@crosswindws.net ;;
		10	;; - Voodoo compatible graphics ;;
		11	;; Juan M. Caravaca ;;
		12	;; - Graphics optimimizations eg. drawline ;;
		13	;; ;;
		14	;; See file COPYING for details ;;
		15	;; ;;
		16	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		17
		18	; If you're planning to write your own video driver I suggest
		19	; you replace the VESA12.INC file and see those instructions.
		20
381	serge	21	;ScreenWidth equ 0xfe00
		22	;ScreenHeight equ 0xfe04
		23	;BytesPerScanLine equ 0xfe08
		24	;LFBAddress equ 0xfe80
		25	;ScreenBPP equ 0xfbf1
		26	;WinMapAddress equ 0x460000
1	ha	27
		28
		29
		30	;*************************************************
		31	; getpixel
		32	;
		33	; in:
		34	; eax = x coordinate
		35	; ebx = y coordinate
		36	;
		37	; ret:
		38	; ecx = 00 RR GG BB
		39
		40	getpixel:
		41	push eax ebx edx edi
389	serge	42	call dword [GETPIXEL]
1	ha	43	pop edi edx ebx eax
		44	ret
		45
		46	Vesa20_getpixel24:
		47	; eax = x
		48	; ebx = y
		49	imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
		50	lea edi, [eax+eax2] ; edi = x3
		51	add edi, ebx ; edi = x3+(yy multiplier)
		52	add edi, [LFBAddress] ; ebx = where pixel is in memory
		53	mov ecx, [edi]
		54	and ecx, 0xffffff
		55	ret
		56
		57
		58	Vesa20_getpixel32:
		59	imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
		60	lea edi, [ebx+eax4] ; edi = x4+(y*y multiplier)
		61	add edi, [LFBAddress] ; ebx = where pixel is in memory
		62	mov ecx, [edi]
		63	and ecx, 0xffffff
		64	ret
		65
		66	;*************************************************
		67
		68	virtual at esp
		69	putimg:
		70	.real_sx dd ?
		71	.real_sy dd ?
		72	.image_sx dd ?
		73	.image_sy dd ?
		74	.image_cx dd ?
		75	.image_cy dd ?
		76	.pti dd ?
		77	.abs_cx dd ?
		78	.abs_cy dd ?
		79	.line_increment dd ?
		80	.winmap_newline dd ?
		81	.screen_newline dd ?
283	diamond	82	.stack_data = 4*12
		83	.edi dd ?
		84	.esi dd ?
		85	.ebp dd ?
314	diamond	86	.esp dd ?
		87	.ebx dd ?
		88	.edx dd ?
		89	.ecx dd ?
		90	.eax dd ?
		91	.ret_addr dd ?
		92	.arg_0 dd ?
1	ha	93	end virtual
		94
283	diamond	95	align 16
1	ha	96	; ebx = pointer
		97	; ecx = size [x\|y]
		98	; edx = coordinates [x\|y]
283	diamond	99	; ebp = pointer to 'get' function
		100	; esi = pointer to 'init' function
		101	; edi = parameter for 'get' function
1	ha	102	vesa20_putimage:
		103	pushad
		104	call [disable_mouse]
		105
		106	sub esp, putimg.stack_data
		107
		108	; save pointer to image
		109	mov [putimg.pti], ebx
		110
		111	; unpack the size
		112	mov eax, ecx
		113	and ecx, 0xFFFF
		114	shr eax, 16
		115	mov [putimg.image_sx], eax
		116	mov [putimg.image_sy], ecx
		117
		118	; unpack the coordinates
		119	mov eax, edx
		120	and edx, 0xFFFF
		121	shr eax, 16
		122	mov [putimg.image_cx], eax
		123	mov [putimg.image_cy], edx
		124
		125	; calculate absolute (i.e. screen) coordinates
379	serge	126	mov eax, [TASK_BASE]
115	poddubny	127	mov ebx, [eax-twdw + WDATA.box.left]
1	ha	128	add ebx, [putimg.image_cx]
		129	mov [putimg.abs_cx], ebx
115	poddubny	130	mov ebx, [eax-twdw + WDATA.box.top]
1	ha	131	add ebx, [putimg.image_cy]
		132	mov [putimg.abs_cy], ebx
		133
		134	; real_sx = MIN(wnd_sx-image_cx, image_sx);
115	poddubny	135	mov ebx, [eax-twdw + WDATA.box.width] ; ebx = wnd_sx
133	diamond	136	; \begin{diamond}[20.08.2006]
		137	; note that WDATA.box.width is one pixel less than real window x-size
		138	inc ebx
		139	; \end{diamond}[20.08.2006]
1	ha	140	sub ebx, [putimg.image_cx]
		141	ja @f
		142	add esp, putimg.stack_data
		143	popad
		144	ret
		145	@@:
		146	cmp ebx, [putimg.image_sx]
		147	jbe .end_x
		148	mov ebx, [putimg.image_sx]
		149	.end_x:
		150	mov [putimg.real_sx], ebx
		151
		152	; init real_sy
115	poddubny	153	mov ebx, [eax-twdw + WDATA.box.height] ; ebx = wnd_sy
133	diamond	154	; \begin{diamond}[20.08.2006]
		155	inc ebx
		156	; \end{diamond}[20.08.2006]
1	ha	157	sub ebx, [putimg.image_cy]
		158	ja @f
		159	add esp, putimg.stack_data
		160	popad
		161	ret
		162	@@:
		163	cmp ebx, [putimg.image_sy]
		164	jbe .end_y
		165	mov ebx, [putimg.image_sy]
		166	.end_y:
		167	mov [putimg.real_sy], ebx
		168
		169	; line increment
		170	mov eax, [putimg.image_sx]
		171	sub eax, [putimg.real_sx]
		172	;; imul eax, [putimg.source_bpp]
283	diamond	173	; lea eax, [eax + eax * 2]
		174	call esi
314	diamond	175	add eax, [putimg.arg_0]
1	ha	176	mov [putimg.line_increment], eax
		177
		178	; winmap new line increment
		179	mov eax, [ScreenWidth]
		180	inc eax
		181	sub eax, [putimg.real_sx]
		182	mov [putimg.winmap_newline], eax
		183
		184	; screen new line increment
		185	mov eax, [BytesPerScanLine]
		186	mov ecx, [putimg.real_sx]
		187	movzx ebx, byte [ScreenBPP]
		188	shr ebx, 3
		189	imul ecx, ebx
		190	sub eax, ecx
		191	mov [putimg.screen_newline], eax
		192
		193	; pointer to image
283	diamond	194	mov esi, [putimg.pti]
1	ha	195
		196	; pointer to screen
		197	mov edx, [putimg.abs_cy]
		198	imul edx, [BytesPerScanLine]
		199	mov eax, [putimg.abs_cx]
		200	movzx ebx, byte [ScreenBPP]
		201	shr ebx, 3
		202	imul eax, ebx
		203	add edx, eax
		204	add edx, [LFBAddress]
		205
		206	; pointer to pixel map
		207	mov eax, [putimg.abs_cy]
		208	imul eax, [ScreenWidth]
		209	add eax, [putimg.abs_cy]
		210	add eax, [putimg.abs_cx]
		211	add eax, WinMapAddress
		212	xchg eax, ebp
		213
		214	; get process number
379	serge	215	mov ebx, [CURRENT_TASK]
1	ha	216
		217	cmp byte [ScreenBPP], 32
		218	je put_image_end_32
		219
		220	;put_image_end_24:
		221	mov edi, [putimg.real_sy]
		222	align 4
		223	.new_line:
283	diamond	224	mov ecx, [putimg.real_sx]
1	ha	225
		226	; push ebp edx
		227	align 4
		228	.new_x:
		229
283	diamond	230	push [putimg.edi]
		231	mov eax, [putimg.ebp+4]
		232	call eax
1	ha	233	cmp [ebp], bl
		234	jne .skip
283	diamond	235	; mov eax, [esi] ; eax = RRBBGGRR
1	ha	236	mov [edx], ax
		237	shr eax, 16
		238	mov [edx+2], al
		239	.skip:
		240
283	diamond	241	; add esi, 3 ;[putimg.source_bpp]
1	ha	242	add edx, 3
		243	inc ebp
		244
283	diamond	245	dec ecx
1	ha	246	jnz .new_x
		247	; pop edx ebp
		248
283	diamond	249	add esi, [putimg.line_increment]
1	ha	250	add edx, [putimg.screen_newline] ;[BytesPerScanLine]
		251	add ebp, [putimg.winmap_newline] ;[ScreenWidth]
		252	;inc ebp
		253
		254	dec edi
		255	jnz .new_line
		256	.finish:
		257	add esp, putimg.stack_data
		258	popad
		259	ret
		260
		261	put_image_end_32:
		262	mov edi, [putimg.real_sy]
		263	align 4
		264	.new_line:
283	diamond	265	mov ecx, [putimg.real_sx]
1	ha	266
		267	; push ebp edx
		268	align 4
		269	.new_x:
		270
283	diamond	271	push [putimg.edi]
		272	mov eax, [putimg.ebp+4]
		273	call eax
1	ha	274	cmp [ebp], bl
		275	jne .skip
283	diamond	276	; mov eax, [esi] ; ecx = RRBBGGRR
1	ha	277	mov [edx], eax
		278	.skip:
		279
283	diamond	280	; add esi, [putimg.source_bpp]
1	ha	281	add edx, 4
		282	inc ebp
		283
283	diamond	284	dec ecx
1	ha	285	jnz .new_x
		286	; pop edx ebp
		287
283	diamond	288	add esi, [putimg.line_increment]
1	ha	289	add edx, [putimg.screen_newline] ;[BytesPerScanLine]
		290	add ebp, [putimg.winmap_newline] ;[ScreenWidth]
		291	;inc ebp
		292
		293	dec edi
		294	jnz .new_line
		295	.finish:
		296	add esp, putimg.stack_data
		297	popad
379	serge	298	call VGA__putimage
117	mario79	299	mov [EGA_counter],1
1	ha	300	ret
		301
		302
		303	;*************************************************
		304	align 4
		305	__sys_putpixel:
		306
		307	; eax = x coordinate
		308	; ebx = y coordinate
		309	; ecx = ?? RR GG BB ; 0x01000000 negation
		310	; edi = 0x00000001 force
		311
		312	;;; mov [novesachecksum], dword 0
		313
		314	pushad
		315	test edi,1 ; force ?
		316	jnz .forced
		317	; not forced:
52	mikedld	318	push ecx ; save 24th bit in case negative pixel wanted
1	ha	319	call checkpixel
		320	test ecx,ecx
52	mikedld	321	pop ecx
1	ha	322	jnz .exit
		323	.forced:
		324	cmp [ScreenWidth], eax
		325	jb .exit
		326	cmp [ScreenHeight], ebx
		327	jb .exit
		328	.ok:
		329	; check if negation
		330	test ecx,0x01000000
		331	jz .noneg
		332	call getpixel
		333	not ecx
		334	mov [esp+32-8],ecx
		335	.noneg:
		336	; OK to set pixel
381	serge	337	call dword [PUTPIXEL] ; call the real put_pixel function
1	ha	338	.exit:
		339	popad
33	mario79	340
1	ha	341	ret
		342
		343	align 4
		344	Vesa20_putpixel24:
		345
		346	; eax = x
		347	; ebx = y
		348
		349	imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
		350	lea edi, [eax+eax2] ; edi = x3
		351	mov eax, [esp+32-8+4]
		352	add edi, [LFBAddress]
		353	add edi, ebx ; ebx = where to put pixel in memory
		354	mov [edi], ax
		355	shr eax, 16
		356	mov [edi+2], al
		357
		358	ret
		359
		360
		361	align 4
		362	Vesa20_putpixel32:
		363
		364	; eax = x
		365	; ebx = y
		366
		367	imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
		368	lea edi, [ebx+eax4] ; edi = x4+(y*y multiplier)
		369	mov eax, [esp+32-8+4] ; eax = color
		370	add edi, [LFBAddress] ; ebx = where to put pixel in memory
		371	mov [edi], eax
		372
		373	ret
		374
		375
		376	;*************************************************
		377
		378	;align 4
		379	calculate_edi:
		380	mov edi, ebx
		381	imul edi, [ScreenWidth]
		382	add edi, ebx
		383	add edi, eax
		384	ret
		385
		386	;*************************************************
		387
		388	; DRAWLINE
		389
		390	align 4
		391	__sys_draw_line:
36	mario79	392	; inc [mouse_pause]
1	ha	393	call [disable_mouse]
		394
		395	; draw a line
		396	; eax = HIWORD = x1
		397	; LOWORD = x2
		398	; ebx = HIWORD = y1
		399	; LOWORD = y2
		400	; ecx = color
		401	; edi = force ?
		402	pusha
		403
		404	dl_x1 equ esp+20
		405	dl_y1 equ esp+16
		406	dl_x2 equ esp+12
		407	dl_y2 equ esp+8
		408	dl_dx equ esp+4
		409	dl_dy equ esp+0
		410
		411	xor edx, edx ; clear edx
		412	xor esi, esi ; unpack arguments
		413	xor ebp, ebp
		414	mov si, ax ; esi = x2
		415	mov bp, bx ; ebp = y2
		416	shr eax, 16 ; eax = x1
		417	shr ebx, 16 ; ebx = y1
		418
		419	push eax ; save x1
		420	push ebx ; save y1
		421	push esi ; save x2
		422	push ebp ; save y2
		423
		424	; checking x-axis...
		425	sub esi, eax ; esi = x2-x1
		426	push esi ; save y2-y1
		427	jl .x2lx1 ; is x2 less than x1 ?
		428	jg .no_vline ; x1 > x2 ?
		429	mov edx, ebp ; else (if x1=x2)
		430	call vline
		431	push edx ; necessary to rightly restore stack frame at .exit
		432	jmp .exit
		433	.x2lx1:
		434	neg esi ; get esi absolute value
		435	.no_vline:
		436
		437	; checking y-axis...
		438	sub ebp, ebx ; ebp = y2-y1
		439	push ebp ; save y2-y1
		440	jl .y2ly1 ; is y2 less than y1 ?
		441	jg .no_hline ; y1 > y2 ?
		442	mov edx, [dl_x2] ; else (if y1=y2)
		443	call hline
		444	jmp .exit
		445	.y2ly1:
		446	neg ebp ; get ebp absolute value
		447	.no_hline:
		448
		449
		450	cmp ebp, esi
		451	jle .x_rules ; \|y2-y1\| < \|x2-x1\| ?
		452
		453	cmp [dl_y2], ebx ; make sure y1 is at the begining
		454	jge .no_reverse1
		455
		456	neg dword [dl_dx]
		457	mov edx, [dl_x2]
		458	mov [dl_x2], eax
		459	mov [dl_x1], edx
		460	mov edx, [dl_y2]
		461	mov [dl_y2], ebx
		462	mov [dl_y1], edx
		463
		464	.no_reverse1:
		465
		466	mov eax, [dl_dx]
		467	cdq ; extend eax sing to edx
		468	shl eax, 16 ; using 16bit fix-point maths
		469	idiv ebp ; eax = ((x2-x1)*65536)/(y2-y1)
		470	mov edx, ebp ; edx = counter (number of pixels to draw)
		471	mov ebp, 1 *65536 ; <<16 ; ebp = dy = 1.0
		472	mov esi, eax ; esi = dx
		473
		474	jmp .y_rules
		475	.x_rules:
		476
		477	cmp [dl_x2], eax ; make sure x1 is at the begining
		478	jge .no_reverse2
		479
		480	neg dword [dl_dy]
		481	mov edx, [dl_x2]
		482	mov [dl_x2], eax
		483	mov [dl_x1], edx
		484	mov edx, [dl_y2]
		485	mov [dl_y2], ebx
		486	mov [dl_y1], edx
		487
		488	.no_reverse2:
		489
		490	xor edx, edx
		491	mov eax, [dl_dy]
		492	cdq ; extend eax sing to edx
		493	shl eax, 16 ; using 16bit fix-point maths
		494	idiv esi ; eax = ((y2-y1)*65536)/(x2-x1)
		495	mov edx, esi ; edx = counter (number of pixels to draw)
		496	mov esi, 1 *65536 ;<< 16 ; esi = dx = 1.0
		497	mov ebp, eax ; ebp = dy
		498
		499	.y_rules:
		500
		501	mov eax, [dl_x1]
		502	mov ebx, [dl_y1]
		503	shl eax, 16
		504	shl ebx, 16
		505
		506	align 4
		507
		508	.draw:
		509	push eax ebx
		510	shr eax, 16
		511	shr ebx, 16
		512	call [putpixel]
		513	pop ebx eax
		514
		515	add ebx, ebp ; y = y+dy
		516	add eax, esi ; x = x+dx
		517
		518	dec edx
		519	jnz .draw
		520
		521	; force last drawn pixel to be at (x2,y2)
		522	mov eax, [dl_x2]
		523	mov ebx, [dl_y2]
		524	call [putpixel]
		525	.exit:
		526	add esp, 6*4
		527	popa
36	mario79	528	; dec [mouse_pause]
		529	call [draw_pointer]
1	ha	530	ret
		531
		532
		533	hline:
		534	; draw an horizontal line
		535	; eax = x1
		536	; edx = x2
		537	; ebx = y
		538	; ecx = color
		539	; edi = force ?
		540	push eax edx
		541
		542	cmp edx, eax ; make sure x2 is above x1
		543	jge @f
		544	xchg eax, edx
		545	align 4
		546	@@:
		547	call [putpixel]
		548	inc eax
		549	cmp eax, edx
		550	jle @b
		551
		552	pop edx eax
		553	ret
		554
		555
		556	vline:
		557	; draw a vertical line
		558	; eax = x
		559	; ebx = y1
		560	; edx = y2
		561	; ecx = color
		562	; edi = force ?
		563	push ebx edx
		564
		565	cmp edx, ebx ; make sure y2 is above y1
		566	jge @f
		567	xchg ebx, edx
		568	align 4
		569	@@:
		570	call [putpixel]
		571	inc ebx
		572	cmp ebx, edx
		573	jle @b
		574
		575	pop edx ebx
		576	ret
		577
		578
		579	;*************************************************
		580
		581
		582	virtual at esp
		583	drbar:
		584	.bar_sx dd ?
		585	.bar_sy dd ?
		586	.bar_cx dd ?
		587	.bar_cy dd ?
		588	.abs_cx dd ?
		589	.abs_cy dd ?
		590	.real_sx dd ?
		591	.real_sy dd ?
		592	.color dd ?
		593	.line_inc_scr dd ?
		594	.line_inc_map dd ?
		595	.stack_data = 4*11
		596	end virtual
		597
		598	align 4
		599	; eax cx
		600	; ebx cy
		601	; ecx xe
		602	; edx ye
		603	; edi color
		604	vesa20_drawbar:
379	serge	605
1	ha	606	pushad
		607	call [disable_mouse]
		608
		609	sub esp, drbar.stack_data
		610
		611	mov [drbar.color], edi
		612
		613	sub edx, ebx
41	mikedld	614	jle .exit ;// mike.dld, 2005-01-29
1	ha	615	sub ecx, eax
41	mikedld	616	jle .exit ;// mike.dld, 2005-01-29
1	ha	617	mov [drbar.bar_sy], edx
		618	mov [drbar.bar_sx], ecx
		619
		620	mov [drbar.bar_cx], eax
		621	mov [drbar.bar_cy], ebx
		622
379	serge	623	mov edi, [TASK_BASE]
115	poddubny	624	add eax, [edi-twdw + WDATA.box.left] ; win_cx
		625	add ebx, [edi-twdw + WDATA.box.top] ; win_cy
1	ha	626	mov [drbar.abs_cx], eax
		627	mov [drbar.abs_cy], ebx
		628
		629	; real_sx = MIN(wnd_sx-bar_cx, bar_sx);
115	poddubny	630	mov ebx, [edi-twdw + WDATA.box.width] ; ebx = wnd_sx
133	diamond	631	; \begin{diamond}[20.08.2006]
		632	; note that WDATA.box.width is one pixel less than real window x-size
		633	inc ebx
		634	; \end{diamond}[20.08.2006]
1	ha	635	sub ebx, [drbar.bar_cx]
		636	ja @f
41	mikedld	637	.exit: ;// mike.dld, 2005-01-29
1	ha	638	add esp, drbar.stack_data
		639	popad
		640	xor eax, eax
		641	inc eax
379	serge	642
1	ha	643	ret
		644	@@:
		645	cmp ebx, [drbar.bar_sx]
		646	jbe .end_x
		647	mov ebx, [drbar.bar_sx]
		648	.end_x:
		649	mov [drbar.real_sx], ebx
		650
		651	; real_sy = MIN(wnd_sy-bar_cy, bar_sy);
115	poddubny	652	mov ebx, [edi-twdw + WDATA.box.height] ; ebx = wnd_sy
133	diamond	653	; \begin{diamond}[20.08.2006]
		654	inc ebx
		655	; \end{diamond}
1	ha	656	sub ebx, [drbar.bar_cy]
		657	ja @f
		658	add esp, drbar.stack_data
		659	popad
		660	xor eax, eax
		661	inc eax
379	serge	662
1	ha	663	ret
		664	@@:
		665	cmp ebx, [drbar.bar_sy]
		666	jbe .end_y
		667	mov ebx, [drbar.bar_sy]
		668	.end_y:
		669	mov [drbar.real_sy], ebx
		670
		671	; line_inc_map
		672	mov eax, [ScreenWidth]
		673	sub eax, [drbar.real_sx]
		674	inc eax
		675	mov [drbar.line_inc_map], eax
		676
		677	; line_inc_scr
		678	mov eax, [drbar.real_sx]
		679	movzx ebx, byte [ScreenBPP]
		680	shr ebx, 3
		681	imul eax, ebx
		682	neg eax
		683	add eax, [BytesPerScanLine]
		684	mov [drbar.line_inc_scr], eax
		685
		686	; pointer to screen
		687	mov edx, [drbar.abs_cy]
		688	imul edx, [BytesPerScanLine]
		689	mov eax, [drbar.abs_cx]
		690	; movzx ebx, byte [ScreenBPP]
		691	; shr ebx, 3
		692	imul eax, ebx
		693	add edx, eax
		694	add edx, [LFBAddress]
		695
		696	; pointer to pixel map
		697	mov eax, [drbar.abs_cy]
		698	imul eax, [ScreenWidth]
		699	add eax, [drbar.abs_cy]
		700	add eax, [drbar.abs_cx]
		701	add eax, WinMapAddress
		702	xchg eax, ebp
		703
		704	; get process number
379	serge	705	mov ebx, [CURRENT_TASK]
1	ha	706
		707	cmp byte [ScreenBPP], 24
		708	jne draw_bar_end_32
		709	draw_bar_end_24:
		710	mov eax, [drbar.color] ;; BBGGRR00
		711	mov bh, al ;; bh = BB
		712	shr eax, 8 ;; eax = RRGG
		713	; eax - color high RRGG
		714	; bl - process num
		715	; bh - color low BB
		716	; ecx - temp
		717	; edx - pointer to screen
		718	; esi - counter
		719	; edi - counter
		720
		721	mov esi, [drbar.real_sy]
		722	align 4
		723	.new_y:
		724	mov edi, [drbar.real_sx]
		725	align 4
		726	.new_x:
		727
		728	cmp byte [ebp], bl
		729	jne .skip
		730	mov [edx], bh
		731	mov [edx + 1], ax
		732	.skip:
		733
		734	; add pixel
		735	add edx, 3
		736	inc ebp
		737
		738	dec edi
		739	jnz .new_x
		740
		741	; add line
		742	add edx, [drbar.line_inc_scr]
		743	add ebp, [drbar.line_inc_map]
		744
		745	; drawing gradient bars
		746	test eax, 0x00800000
		747	jz @f
		748	test bh, bh
		749	jz @f
		750	dec bh
		751	@@:
		752	;
		753
		754	dec esi
		755	jnz .new_y
		756
		757	add esp, drbar.stack_data
		758	popad
		759	xor eax, eax
		760	ret
		761
		762	draw_bar_end_32:
		763	mov eax, [drbar.color] ;; BBGGRR00
		764
		765	mov esi, [drbar.real_sy]
		766	align 4
		767	.new_y:
		768	mov edi, [drbar.real_sx]
		769	align 4
		770	.new_x:
		771
		772	cmp byte [ebp], bl
		773	jne .skip
		774	mov [edx], eax
		775	.skip:
		776
		777	; add pixel
		778	add edx, 4
		779	inc ebp
		780
		781	dec edi
		782	jnz .new_x
		783
		784	; add line
		785	add edx, [drbar.line_inc_scr]
		786	add ebp, [drbar.line_inc_map]
		787
		788	; drawing gradient bars
		789	test eax, 0x80000000
		790	jz @f
		791	test al, al
		792	jz @f
		793	dec al
		794	@@:
		795	;
		796
		797	dec esi
		798	jnz .new_y
		799
		800	add esp, drbar.stack_data
		801	popad
117	mario79	802	call VGA_draw_bar
1	ha	803	xor eax, eax
117	mario79	804	mov [EGA_counter],1
1	ha	805	ret
		806
		807
		808	;voodoodbcplimit:
		809
		810	; ebp:=(y+Ywin)*(ScreenXSize+1)+(x+Xwin)+AddrBuffer
		811
		812
		813	; pusha
		814
		815	; xor edx,edx
		816	; mov eax,ebp
		817	; mov ebx,[ScreenWidth] ; Screen_X_size
		818	; inc ebx ; +1
		819	; sub eax,WinMapAddress ; -AddrBuffer
		820	; div ebx ;
		821	; mov ebx,eax ; ebx:=Y
		822	; mov eax,edx ; eax:=X
		823	; call cplimit
		824
		825	; test ecx,ecx
		826	; jne dbcpl12
		827	; popa
		828	; clc
		829	; ret
		830	; dbcpl12:
		831	; popa
		832	; stc
		833	; ret
		834
		835
		836
		837
		838	;dbcplimit:
		839
		840	; pusha
		841
		842	; xor edx,edx
		843	; mov ebx,[ScreenWidth]
		844	; inc ebx
		845	; sub eax,WinMapAddress
		846	; div ebx
		847	; mov ebx,eax
		848	; mov eax,edx
		849	; call cplimit
		850
		851	; test ecx,ecx
		852	; jne dbcpl1
		853	; popa
		854	; clc
		855	; ret
		856	; dbcpl1:
		857	; popa
		858	; stc
		859	; ret
		860
		861
		862
		863
		864
		865
		866	;--------------vbe voodoo ------------------------------------------------
		867	vesa20_drawbackground_tiled:
		868
		869	call [disable_mouse]
		870
		871	push ebp
		872	push eax
		873	push ebx
		874	push ecx
		875	push edx
		876
		877	mov edx,dword [WinMapAddress-8] ; B
		878	add edx,dword [WinMapAddress-8] ; +B
		879	add edx,dword [WinMapAddress-8] ; +B
		880	push edx
		881
115	poddubny	882	mov ebp,[draw_data+32+RECT.left] ; x start:=(x+Xwin)
		883	mov ebx,[draw_data+32+RECT.top] ; y start:=(y+Ywin)
1	ha	884
		885	mov eax,[BytesPerScanLine]
		886	mul ebx
		887	xchg ebp, eax ; BytesPerScanLine*(Ywin+y)
		888	add ebp, eax ; +X
		889	add ebp, eax ; +X
		890	add ebp, eax ; +X
		891
		892	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x size
		893	jz @f
		894	add ebp,eax ; +X
		895	@@:
		896	add ebp,[LFBAddress] ; +LFB
		897
		898	; ebp:=YBytesPerScanLine+XBytesPerPixel+AddrLFB
		899
		900	call calculate_edi
		901
		902
		903	dp3: ; MAIN LOOP
		904
		905	cmp [edi+WinMapAddress],byte 1 ; ptrBuffer^<>byte(1)
		906	; je ybgp
		907	;
		908	; jmp nbgp
		909	;
		910	; ybgp:
		911	jne nbgp
		912
		913	push eax
		914	push ebx
		915
		916	mov ecx,dword [WinMapAddress-8] ; B
		917	xor edx,edx ; edx:=0
		918	div ecx ; Xstart/B
		919
		920	; eax=Int(qn) edx:=Rem
		921
		922	lea esi,[edx+edx2] ; esi:=edx3
		923
		924	mov ecx,dword [WinMapAddress-4] ; ecx:=H
		925	mov eax,[esp+0] ; eax:=Ystart
		926	xor edx,edx ;
		927	div ecx ; Ystart/H
		928
		929	mov eax,edx ; eax:=Rem
		930	xor edx,edx ;
		931	mov ebx,[esp+8] ; ebx:=B*3
		932	mul ebx ;
		933	add esi,eax ;
381	serge	934	mov eax,[esi+IMG_BACKGROUND]
1	ha	935	and eax,0xffffff
		936
		937	xchg edi, ebp
		938	stosw
		939	shr eax,16
		940	stosb
		941	xchg ebp, edi ; ebp+=3
		942	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x size
		943	jz @f
		944	inc ebp ; +1
		945	@@:
		946
		947	pop ebx
		948	pop eax
		949
		950	jmp hook1
		951
		952	nbgp:
		953	add ebp,3 ; +3
		954	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x size
		955	jz @f
		956	inc ebp ; +1
		957	@@:
		958
		959	hook1:
		960
		961	inc edi ; ptrBuffer++
		962	add esi,3 ; ptrImage+=3
		963	inc eax
115	poddubny	964	cmp eax,[draw_data+32+RECT.right] ; X > xend?
1	ha	965	; jg nodp3
		966	; jmp dp3
		967	;
		968	; nodp3:
		969	jle dp3
		970
115	poddubny	971	mov ebp,[draw_data+32+RECT.left]
1	ha	972
		973	inc ebx
		974
		975	mov eax,[BytesPerScanLine]
		976	mul ebx
		977	xchg ebp, eax ; BytesPerScanLine*(Ywin+y)
		978	add ebp, eax ; +X
		979	add ebp, eax ; +X=X*2
		980	add ebp, eax ; +X=X*3
		981	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x size
		982	jz @f
		983	add ebp,eax ; +X=X*4
		984	@@:
		985	add ebp,[LFBAddress] ; +LFB
		986
		987	; ebp:=YBytesPerScanLine+XBytesPerPixel+AddrLFB
		988
		989	call calculate_edi
		990
115	poddubny	991	cmp ebx,[draw_data+32+RECT.bottom]
1	ha	992	; jg dp4
		993	;
		994	; jmp dp3
		995	;
		996	; dp4:
		997	jle dp3
		998
		999	add esp,4
		1000
		1001	pop edx
		1002	pop ecx
		1003	pop ebx
		1004	pop eax
		1005	pop ebp
117	mario79	1006	mov [EGA_counter],1
		1007	call VGA_drawbackground
1	ha	1008	ret
		1009
		1010	; ----------
		1011
		1012
		1013	vesa20_drawbackground_stretch:
		1014
		1015	call [disable_mouse]
		1016
		1017	push ebp
		1018	push eax
		1019	push ebx
		1020	push ecx
		1021	push edx
		1022
		1023	mov edx,dword [WinMapAddress-8] ; B
		1024	add edx,dword [WinMapAddress-8] ; +B
		1025	add edx,dword [WinMapAddress-8] ; +B
		1026	push edx
		1027
115	poddubny	1028	mov ebp,[draw_data+32+RECT.left] ; x start:=(x+Xwin)
		1029	mov ebx,[draw_data+32+RECT.top] ; y start:=(y+Ywin)
1	ha	1030
		1031	mov eax,[BytesPerScanLine]
		1032	mul ebx
		1033	xchg ebp, eax ; BytesPerScanLine*(Ywin+y)
		1034	add ebp, eax ; +X
		1035	add ebp, eax ; +X
		1036	add ebp, eax ; +X
		1037
		1038	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x size
		1039	jz @f
		1040	add ebp,eax ; +X
		1041	@@:
		1042	add ebp,[LFBAddress] ; +LFB
		1043
		1044	; ebp:=YBytesPerScanLine+XBytesPerPixel+AddrLFB
		1045
		1046	call calculate_edi
		1047
		1048
379	serge	1049	sdp3: ; MAIN LOOP
		1050	cmp [edi+WinMapAddress],byte 1 ; ptrBuffer^<>byte(1)
		1051	jne snbgp
		1052	push eax
		1053	push ebx
		1054	mov eax,dword [WinMapAddress-8]
		1055	imul eax, [esp+4] ;4
		1056	xor edx,edx
		1057	mov ebx,[ScreenWidth]
		1058	div ebx
		1059	mov cx,dx
		1060	lea esi,[eax+eax*2]
		1061	mov eax,dword [WinMapAddress-4]
		1062	imul eax, [esp+0] ;0
		1063	xor edx,edx
		1064	mov ebx,[ScreenHeight]
		1065	div ebx
		1066	shl ecx,16
		1067	mov cx,dx
		1068	imul eax, [esp+8] ;8
		1069	add esi,eax
381	serge	1070	mov eax,[esi+IMG_BACKGROUND]
379	serge	1071	push eax
		1072	ror ecx,16
		1073	xor eax,eax
		1074	mov ax,cx
		1075	shl eax,1 ; �� 2
		1076	lea eax,[eax+eax*4] ; �� 5
		1077	xor edx,edx
		1078	mov ebx,[ScreenWidth]
		1079	div ebx
		1080	cmp eax,5
		1081	pop eax
		1082	jb @f
381	serge	1083	mov ebx,[esi+IMG_BACKGROUND+3]
379	serge	1084	call overlapping_of_points
		1085	@@:
		1086	push eax
		1087	ror ecx,16
		1088	xor eax,eax
		1089	mov ax,cx
		1090	shl eax,1 ; �� 2
		1091	lea eax,[eax+eax*4] ; ��
		1092	xor edx,edx
		1093	mov ebx,[ScreenHeight]
		1094	div ebx
		1095	cmp eax,5
		1096	pop eax
		1097	jb @f
		1098	mov ebx,[display_data-8]
		1099	shl ebx,1
		1100	add ebx,[display_data-8]
381	serge	1101	add ebx,IMG_BACKGROUND
379	serge	1102	add ebx,esi
		1103	mov ebx,[ebx]
		1104	call overlapping_of_points
		1105	@@:
		1106	and eax,0xffffff
		1107	xchg edi, ebp
		1108	stosw
		1109	shr eax,16
		1110	stosb
		1111	xchg ebp, edi ; ebp+=3
		1112	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x size
		1113	jz @f
		1114	inc ebp ; +1
		1115	@@:
		1116	pop ebx
		1117	pop eax
		1118	jmp shook1
1	ha	1119
379	serge	1120	overlapping_of_points:
		1121	push ecx edi
		1122	mov ecx,eax
		1123	mov edx,ebx
		1124	xor eax,eax
		1125	mov al,cl
		1126	xor ebx,ebx
		1127	mov bl,dl
		1128	add eax,ebx
		1129	rcr eax,1
		1130	xor edi,edi
		1131	mov di,ax
		1132	xor eax,eax
		1133	mov al,ch
		1134	xor ebx,ebx
		1135	mov bl,dh
		1136	add eax,ebx
		1137	rcr eax,1
		1138	ror edi,8
		1139	add edi,eax
		1140	ror ecx,8
		1141	ror edx,8
		1142	xor eax,eax
		1143	mov al,ch
		1144	xor ebx,ebx
		1145	mov bl,dh
		1146	add eax,ebx
		1147	rcr eax,1
		1148	ror edi,8
		1149	add eax,edi
		1150	ror eax,16
		1151	pop edi ecx
205	heavyiron	1152	ret
1	ha	1153
		1154	snbgp:
		1155	add ebp,3 ; +3
		1156	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x size
		1157	jz @f
		1158	inc ebp ; +1
		1159	@@:
		1160
		1161	shook1:
		1162
		1163	inc edi ; ptrBuffer++
		1164	add esi,3 ; ptrImage+=3
		1165	inc eax
115	poddubny	1166	cmp eax,[draw_data+32+RECT.right] ; X > xend?
1	ha	1167	jle sdp3
		1168
115	poddubny	1169	mov ebp,[draw_data+32+RECT.left]
1	ha	1170
		1171	inc ebx
		1172
		1173	mov eax,[BytesPerScanLine]
		1174	mul ebx
		1175	xchg ebp, eax ; BytesPerScanLine*(Ywin+y)
		1176	add ebp, eax ; +X
		1177	add ebp, eax ; +X=X*2
		1178	add ebp, eax ; +X=X*3
		1179	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x size
		1180	jz @f
		1181	add ebp,eax ; +X=X*4
		1182	@@:
		1183	add ebp,[LFBAddress] ; +LFB
		1184
		1185	; ebp:=YBytesPerScanLine+XBytesPerPixel+AddrLFB
		1186
		1187	call calculate_edi
		1188
115	poddubny	1189	cmp ebx,[draw_data+32+RECT.bottom]
1	ha	1190	jle sdp3
		1191
		1192	add esp,4
		1193
		1194	pop edx
		1195	pop ecx
		1196	pop ebx
		1197	pop eax
		1198	pop ebp
117	mario79	1199	mov [EGA_counter],1
		1200	call VGA_drawbackground
1	ha	1201	ret

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/vesa20.inc @ 473 – Rev 425