WebSVN – Kolibri OS – Blame – /kernel/branches/Kolibri-acpi/video/vesa20.inc

Rev	Author	Line No.	Line
431	serge	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
5565	serge	3	;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
431	serge	4	;; Distributed under terms of the GNU General Public License ;;
		5	;; ;;
		6	;; VESA20.INC ;;
		7	;; ;;
		8	;; Vesa 2.0 functions for MenuetOS ;;
		9	;; ;;
		10	;; Copyright 2002 Ville Turjanmaa ;;
		11	;; Alexey, kgaz@crosswindws.net ;;
		12	;; - Voodoo compatible graphics ;;
		13	;; Juan M. Caravaca ;;
		14	;; - Graphics optimimizations eg. drawline ;;
		15	;; ;;
		16	;; See file COPYING for details ;;
		17	;; ;;
		18	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1	ha	19
593	mikedld	20	$Revision: 5596 $
		21
5201	serge	22	uglobal
		23	align 4
		24	bgr_cur_line rd 1920 ; maximum width of screen
		25	bgr_next_line rd 1920
		26	endg
593	mikedld	27
5201	serge	28	iglobal
		29	align 4
		30	overlapping_of_points_ptr dd overlapping_of_points
		31	endg
1	ha	32
		33
2434	Serge	34	;-----------------------------------------------------------------------------
5201	serge	35	; eax = x
		36	; ebx = y
		37
2434	Serge	38	align 4
5201	serge	39	Vesa20_getpixel16:
		40
		41	; check for hardware cursor
		42	cmp [_display.select_cursor], select_cursor
		43	je @f
		44	cmp [_display.select_cursor], 0
		45	jne .no_mouseunder
		46	@@:
		47
		48	; check mouse area for putpixel
		49	test ecx, 0x04000000 ; don't load to mouseunder area
		50	jnz .no_mouseunder
		51	call [_display.check_m_pixel]
		52	test ecx, ecx ; 0xff000000
		53	jnz @f
		54
		55	.no_mouseunder:
		56	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
		57	mov ebx, [BPSLine_calc_area+ebx*4]
		58	lea edi, [eax2] ; edi = x2
		59	add edi, ebx ; edi = x2+(yy multiplier)
		60
		61	movzx ecx, word[LFB_BASE+edi]
		62	shl ecx, 3
		63	ror ecx, 8
		64	shl cx, 2
		65	ror ecx, 8
		66	shl cl, 3
		67	rol ecx, 16
		68	@@:
		69	and ecx, 0x00ffffff
2434	Serge	70	ret
5201	serge	71
2434	Serge	72	;-----------------------------------------------------------------------------
5201	serge	73	; eax = x
		74	; ebx = y
		75
2434	Serge	76	align 4
1	ha	77	Vesa20_getpixel24:
5201	serge	78
		79	; check for hardware cursor
2465	Serge	80	cmp [_display.select_cursor], select_cursor
		81	je @f
		82	cmp [_display.select_cursor], 0
		83	jne .no_mouseunder
5201	serge	84	@@:
		85
		86	; check mouse area for putpixel
5596	serge	87	test ecx, 0x04000000 ; don't load to mouseunder area
2434	Serge	88	jnz .no_mouseunder
		89	call [_display.check_m_pixel]
5201	serge	90	test ecx, ecx ; 0xff000000
2434	Serge	91	jnz @f
5201	serge	92
		93	.no_mouseunder:
2465	Serge	94	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2987	Serge	95	mov ebx, [BPSLine_calc_area+ebx*4]
5201	serge	96	lea edi, [eax+eax2] ; edi = x3
5596	serge	97	add edi, ebx ; edi = x3+(yy multiplier)
5201	serge	98
2434	Serge	99	mov ecx, [LFB_BASE+edi]
5201	serge	100	@@:
		101	and ecx, 0x00ffffff
2434	Serge	102	ret
5201	serge	103
2434	Serge	104	;-----------------------------------------------------------------------------
5201	serge	105	; eax = x
		106	; ebx = y
		107
2434	Serge	108	align 4
1	ha	109	Vesa20_getpixel32:
5201	serge	110
		111	; check for hardware cursor
2465	Serge	112	cmp [_display.select_cursor], select_cursor
		113	je @f
		114	cmp [_display.select_cursor], 0
		115	jne .no_mouseunder
5201	serge	116	@@:
		117
		118	; check mouse area for putpixel
5596	serge	119	test ecx, 0x04000000 ; don't load to mouseunder area
2434	Serge	120	jnz .no_mouseunder
		121	call [_display.check_m_pixel]
5201	serge	122	test ecx, ecx ; 0xff000000
2434	Serge	123	jnz @f
5201	serge	124
		125	.no_mouseunder:
2465	Serge	126	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2987	Serge	127	mov ebx, [BPSLine_calc_area+ebx*4]
5201	serge	128	lea edi, [ebx+eax4] ; edi = x4+(y*y multiplier)
		129
2434	Serge	130	mov ecx, [LFB_BASE+edi]
5201	serge	131	@@:
		132	and ecx, 0x00ffffff
2434	Serge	133	ret
5201	serge	134
2434	Serge	135	;-----------------------------------------------------------------------------
5201	serge	136	; ebx = pointer
		137	; ecx = size [x\|y]
		138	; edx = coordinates [x\|y]
		139	; ebp = pointer to 'get' function
		140	; esi = pointer to 'init' function
		141	; edi = parameter for 'get' function
		142
		143	align 16
		144	vesa20_putimage:
		145
1	ha	146	virtual at esp
		147	putimg:
		148	.real_sx dd ?
		149	.real_sy dd ?
		150	.image_sx dd ?
		151	.image_sy dd ?
		152	.image_cx dd ?
		153	.image_cy dd ?
		154	.pti dd ?
		155	.abs_cx dd ?
		156	.abs_cy dd ?
		157	.line_increment dd ?
		158	.winmap_newline dd ?
		159	.screen_newline dd ?
2434	Serge	160	.real_sx_and_abs_cx dd ?
		161	.real_sy_and_abs_cy dd ?
		162	.stack_data = 4*14
283	diamond	163	.edi dd ?
		164	.esi dd ?
		165	.ebp dd ?
314	diamond	166	.esp dd ?
		167	.ebx dd ?
		168	.edx dd ?
		169	.ecx dd ?
		170	.eax dd ?
		171	.ret_addr dd ?
		172	.arg_0 dd ?
1	ha	173	end virtual
5201	serge	174
2434	Serge	175	pushad
		176	sub esp, putimg.stack_data
469	serge	177	; save pointer to image
2434	Serge	178	mov [putimg.pti], ebx
469	serge	179	; unpack the size
2434	Serge	180	mov eax, ecx
		181	and ecx, 0xFFFF
		182	shr eax, 16
		183	mov [putimg.image_sx], eax
		184	mov [putimg.image_sy], ecx
469	serge	185	; unpack the coordinates
2434	Serge	186	mov eax, edx
		187	and edx, 0xFFFF
		188	shr eax, 16
		189	mov [putimg.image_cx], eax
		190	mov [putimg.image_cy], edx
469	serge	191	; calculate absolute (i.e. screen) coordinates
2434	Serge	192	mov eax, [TASK_BASE]
		193	mov ebx, [eax-twdw + WDATA.box.left]
		194	add ebx, [putimg.image_cx]
		195	mov [putimg.abs_cx], ebx
		196	mov ebx, [eax-twdw + WDATA.box.top]
		197	add ebx, [putimg.image_cy]
		198	mov [putimg.abs_cy], ebx
469	serge	199	; real_sx = MIN(wnd_sx-image_cx, image_sx);
5201	serge	200	mov ebx, [eax-twdw + WDATA.box.width] ; ebx = wnd_sx
		201	inc ebx ; WDATA.box.width is one pixel less than real window x-size
2434	Serge	202	sub ebx, [putimg.image_cx]
		203	ja @f
		204	add esp, putimg.stack_data
		205	popad
		206	ret
5201	serge	207
		208	@@:
2434	Serge	209	cmp ebx, [putimg.image_sx]
		210	jbe .end_x
		211	mov ebx, [putimg.image_sx]
5201	serge	212	.end_x:
2434	Serge	213	mov [putimg.real_sx], ebx
469	serge	214	; init real_sy
5201	serge	215	mov ebx, [eax-twdw + WDATA.box.height] ; ebx = wnd_sy
2434	Serge	216	inc ebx
		217	sub ebx, [putimg.image_cy]
		218	ja @f
		219	add esp, putimg.stack_data
		220	popad
		221	ret
5201	serge	222
		223	@@:
2434	Serge	224	cmp ebx, [putimg.image_sy]
		225	jbe .end_y
		226	mov ebx, [putimg.image_sy]
5201	serge	227	.end_y:
2434	Serge	228	mov [putimg.real_sy], ebx
469	serge	229	; line increment
2434	Serge	230	mov eax, [putimg.image_sx]
		231	mov ecx, [putimg.real_sx]
		232	sub eax, ecx
469	serge	233	;; imul eax, [putimg.source_bpp]
		234	; lea eax, [eax + eax * 2]
2434	Serge	235	call esi
		236	add eax, [putimg.arg_0]
		237	mov [putimg.line_increment], eax
469	serge	238	; winmap new line increment
5565	serge	239	mov eax, [_display.width]
2434	Serge	240	sub eax, [putimg.real_sx]
		241	mov [putimg.winmap_newline], eax
469	serge	242	; screen new line increment
5565	serge	243	mov eax, [_display.lfb_pitch]
5201	serge	244	mov ebx, [_display.bytes_per_pixel]
2434	Serge	245	imul ecx, ebx
		246	sub eax, ecx
		247	mov [putimg.screen_newline], eax
469	serge	248	; pointer to image
2434	Serge	249	mov esi, [putimg.pti]
469	serge	250	; pointer to screen
2434	Serge	251	mov edx, [putimg.abs_cy]
2465	Serge	252	; imul edx, [BytesPerScanLine]
2987	Serge	253	mov edx, [BPSLine_calc_area+edx*4]
2434	Serge	254	mov eax, [putimg.abs_cx]
		255	imul eax, ebx
		256	add edx, eax
469	serge	257	; pointer to pixel map
2434	Serge	258	mov eax, [putimg.abs_cy]
5201	serge	259	; imul eax, [Screen_Max_X]
		260	; add eax, [putimg.abs_cy]
2465	Serge	261	mov eax, [d_width_calc_area + eax*4]
		262
2434	Serge	263	add eax, [putimg.abs_cx]
5565	serge	264	add eax, [_display.win_map]
2434	Serge	265	xchg eax, ebp
5201	serge	266
2434	Serge	267	mov ecx, [putimg.real_sx]
		268	add ecx, [putimg.abs_cx]
		269	mov [putimg.real_sx_and_abs_cx], ecx
		270	mov ecx, [putimg.real_sy]
		271	add ecx, [putimg.abs_cy]
		272	mov [putimg.real_sy_and_abs_cy], ecx
5201	serge	273
469	serge	274	; get process number
2434	Serge	275	mov ebx, [CURRENT_TASK]
5201	serge	276
		277	cmp byte [_display.bits_per_pixel], 16
		278	je put_image_end_16
		279	cmp byte [_display.bits_per_pixel], 24
		280	je put_image_end_24
		281	cmp byte [_display.bits_per_pixel], 32
2434	Serge	282	je put_image_end_32
5201	serge	283
		284	;------------------------------------------------------------------------------
		285
		286	put_image_end_16:
		287
		288	mov edi, [putimg.real_sy]
		289
		290	; check for hardware cursor
		291	mov ecx, [_display.select_cursor]
		292	cmp ecx, select_cursor
		293	je put_image_end_16_new
		294	cmp ecx, 0
		295	je put_image_end_16_old
		296	.new_line:
		297	mov ecx, [putimg.real_sx]
		298	.new_x:
		299	push [putimg.edi]
		300	mov eax, [putimg.ebp+4]
		301	call eax
		302	cmp [ebp], bl
		303	jne .skip
		304	; convert to 16 bpp and store to LFB
		305	and eax, 00000000111110001111110011111000b
		306	shr ah, 2
		307	shr ax, 3
		308	ror eax, 8
		309	add al, ah
		310	rol eax, 8
		311	mov [LFB_BASE+edx], ax
		312	.skip:
		313	add edx, 2
		314	inc ebp
		315	dec ecx
		316	jnz .new_x
		317
		318	add esi, [putimg.line_increment]
		319	add edx, [putimg.screen_newline]
		320	add ebp, [putimg.winmap_newline]
		321
		322	cmp [putimg.ebp], putimage_get1bpp
		323	jz .correct
		324	cmp [putimg.ebp], putimage_get2bpp
		325	jz .correct
		326	cmp [putimg.ebp], putimage_get4bpp
		327	jnz @f
		328	.correct:
		329	mov eax, [putimg.edi]
		330	mov byte [eax], 80h
		331	@@:
		332	dec edi
		333	jnz .new_line
		334	.finish:
		335	add esp, putimg.stack_data
		336	popad
		337	ret
		338
		339	;------------------------------------------------------------------------------
		340
		341	align 4
		342	put_image_end_16_old:
		343
		344	.new_line:
		345	mov ecx, [putimg.real_sx]
		346	.new_x:
		347	push [putimg.edi]
		348	mov eax, [putimg.ebp+4]
		349	call eax
		350	cmp [ebp], bl
		351	jne .skip
		352
		353	push ecx
		354	neg ecx
		355	add ecx, [putimg.real_sx_and_abs_cx + 4]
		356	shl ecx, 16
		357	add ecx, [putimg.real_sy_and_abs_cy + 4]
		358	sub ecx, edi
		359
		360	; check mouse area for putpixel
		361	call check_mouse_area_for_putpixel
		362	pop ecx
		363
		364	; convert to 16 bpp and store to LFB
		365	;; and eax, 00000000111110001111110011111000b
		366	;; shr ah, 2
		367	;; shr ax, 3
		368	;; ror eax, 8
		369	;; add al, ah
		370	;; rol eax, 8
		371	mov [LFB_BASE+edx], ax
		372	.skip:
		373	inc edx
		374	inc edx
		375	inc ebp
		376	dec ecx
		377	jnz .new_x
		378
		379	add esi, [putimg.line_increment]
		380	add edx, [putimg.screen_newline]
		381	add ebp, [putimg.winmap_newline]
		382
		383	cmp [putimg.ebp], putimage_get1bpp
		384	jz .correct
		385	cmp [putimg.ebp], putimage_get2bpp
		386	jz .correct
		387	cmp [putimg.ebp], putimage_get4bpp
		388	jnz @f
		389	.correct:
		390	mov eax, [putimg.edi]
		391	mov byte [eax], 80h
		392	@@:
		393	dec edi
		394	jnz .new_line
		395	jmp put_image_end_16.finish
		396
		397	;------------------------------------------------------------------------------
		398
		399	align 4
		400	put_image_end_16_new:
		401
		402	.new_line:
		403	mov ecx, [putimg.real_sx]
		404
		405	.new_x:
		406	push [putimg.edi]
		407	mov eax, [putimg.ebp+4]
		408	call eax
		409
		410	cmp [ebp], bl
		411	jne .skip
		412
		413	push ecx
		414	.sh:
		415	neg ecx
		416	add ecx, [putimg.real_sx_and_abs_cx + 4]
		417
		418	; check for X
		419	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		420	jae .no_mouse_area
		421
		422	sub cx, [X_UNDER_subtraction_CUR_hot_x]
		423	jb .no_mouse_area
		424
		425	shl ecx, 16
		426	add ecx, [putimg.real_sy_and_abs_cy + 4]
		427	sub ecx, edi
		428
		429	; check for Y
		430	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		431	jae .no_mouse_area
		432
		433	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		434	jb .no_mouse_area
		435
		436	; check mouse area for putpixel
		437	call check_mouse_area_for_putpixel_new.1
		438	cmp ecx, -1 ; SHIT HAPPENS?
		439	jne .no_mouse_area
		440
		441	mov ecx, [esp]
		442	jmp .sh
		443
		444	.no_mouse_area:
		445	pop ecx
		446	; convert to 16 bpp and store to LFB
		447	and eax, 00000000111110001111110011111000b
		448	shr ah, 2
		449	shr ax, 3
		450	ror eax, 8
		451	add al, ah
		452	rol eax, 8
		453	mov [LFB_BASE+edx], ax
		454
		455	.skip:
		456	add edx, 2
		457	inc ebp
		458	dec ecx
		459	jnz .new_x
		460
		461	add esi, [putimg.line_increment]
		462	add edx, [putimg.screen_newline]
		463	add ebp, [putimg.winmap_newline]
		464
		465	cmp [putimg.ebp], putimage_get1bpp
		466	jz .correct
		467	cmp [putimg.ebp], putimage_get2bpp
		468	jz .correct
		469	cmp [putimg.ebp], putimage_get4bpp
		470	jnz @f
		471
		472	.correct:
		473	mov eax, [putimg.edi]
		474	mov byte [eax], 80h
		475
		476	@@:
		477	dec edi
		478	jnz .new_line
		479	jmp put_image_end_16.finish
		480
		481	;------------------------------------------------------------------------------
		482
		483	align 4
2439	Serge	484	put_image_end_24:
5201	serge	485
2434	Serge	486	mov edi, [putimg.real_sy]
5201	serge	487
2465	Serge	488	; check for hardware cursor
		489	mov ecx, [_display.select_cursor]
		490	cmp ecx, select_cursor
		491	je put_image_end_24_new
		492	cmp ecx, 0
		493	je put_image_end_24_old
5201	serge	494	.new_line:
2434	Serge	495	mov ecx, [putimg.real_sx]
5201	serge	496	.new_x:
2434	Serge	497	push [putimg.edi]
		498	mov eax, [putimg.ebp+4]
		499	call eax
		500	cmp [ebp], bl
		501	jne .skip
5201	serge	502
		503	; store to LFB
2465	Serge	504	mov [LFB_BASE+edx], ax
		505	shr eax, 16
		506	mov [LFB_BASE+edx+2], al
5201	serge	507
		508	.skip:
2465	Serge	509	add edx, 3
		510	inc ebp
		511	dec ecx
		512	jnz .new_x
		513
		514	add esi, [putimg.line_increment]
5201	serge	515	add edx, [putimg.screen_newline]
		516	add ebp, [putimg.winmap_newline]
2465	Serge	517
		518	cmp [putimg.ebp], putimage_get1bpp
		519	jz .correct
		520	cmp [putimg.ebp], putimage_get2bpp
		521	jz .correct
		522	cmp [putimg.ebp], putimage_get4bpp
		523	jnz @f
5201	serge	524	.correct:
2465	Serge	525	mov eax, [putimg.edi]
		526	mov byte [eax], 80h
5201	serge	527	@@:
2465	Serge	528	dec edi
		529	jnz .new_line
5201	serge	530	.finish:
2465	Serge	531	add esp, putimg.stack_data
		532	popad
		533	ret
5201	serge	534
2465	Serge	535	;------------------------------------------------------------------------------
5201	serge	536
2465	Serge	537	align 4
		538	put_image_end_24_old:
5201	serge	539
		540	.new_line:
2465	Serge	541	mov ecx, [putimg.real_sx]
		542	;--------------------------------------
		543	align 4
		544	.new_x:
		545	push [putimg.edi]
		546	mov eax, [putimg.ebp+4]
		547	call eax
		548	cmp [ebp], bl
		549	jne .skip
5201	serge	550
2434	Serge	551	push ecx
		552	neg ecx
		553	add ecx, [putimg.real_sx_and_abs_cx + 4]
		554	shl ecx, 16
		555	add ecx, [putimg.real_sy_and_abs_cy + 4]
		556	sub ecx, edi
		557
		558	; check mouse area for putpixel
2439	Serge	559	call check_mouse_area_for_putpixel
2434	Serge	560	pop ecx
5201	serge	561	; store to LFB
2434	Serge	562	mov [LFB_BASE+edx], ax
		563	shr eax, 16
		564	mov [LFB_BASE+edx+2], al
5201	serge	565
		566	.skip:
2434	Serge	567	add edx, 3
		568	inc ebp
		569	dec ecx
		570	jnz .new_x
2439	Serge	571
2434	Serge	572	add esi, [putimg.line_increment]
5201	serge	573	add edx, [putimg.screen_newline]
		574	add ebp, [putimg.winmap_newline]
2439	Serge	575
2434	Serge	576	cmp [putimg.ebp], putimage_get1bpp
		577	jz .correct
		578	cmp [putimg.ebp], putimage_get2bpp
		579	jz .correct
		580	cmp [putimg.ebp], putimage_get4bpp
		581	jnz @f
5201	serge	582
		583	.correct:
2434	Serge	584	mov eax, [putimg.edi]
		585	mov byte [eax], 80h
5201	serge	586
		587	@@:
2434	Serge	588	dec edi
		589	jnz .new_line
2465	Serge	590	jmp put_image_end_24.finish
5201	serge	591
2465	Serge	592	;------------------------------------------------------------------------------
5201	serge	593
2434	Serge	594	align 4
2439	Serge	595	put_image_end_24_new:
5201	serge	596
		597	.new_line:
2439	Serge	598	mov ecx, [putimg.real_sx]
5201	serge	599
		600	.new_x:
2439	Serge	601	push [putimg.edi]
		602	mov eax, [putimg.ebp+4]
		603	call eax
		604	cmp [ebp], bl
		605	jne .skip
5201	serge	606
2439	Serge	607	push ecx
5201	serge	608	.sh:
2987	Serge	609	neg ecx
		610	add ecx, [putimg.real_sx_and_abs_cx + 4]
5201	serge	611
2987	Serge	612	; check for X
		613	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		614	jae .no_mouse_area
		615
		616	sub cx, [X_UNDER_subtraction_CUR_hot_x]
		617	jb .no_mouse_area
		618
		619	shl ecx, 16
		620
		621	add ecx, [putimg.real_sy_and_abs_cy + 4]
2439	Serge	622	sub ecx, edi
5201	serge	623
2439	Serge	624	; check for Y
		625	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		626	jae .no_mouse_area
		627
2987	Serge	628	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
2439	Serge	629	jb .no_mouse_area
5201	serge	630
2439	Serge	631	; check mouse area for putpixel
		632	call check_mouse_area_for_putpixel_new.1
5201	serge	633	cmp ecx, -1 ; SHIT HAPPENS?
2987	Serge	634	jne .no_mouse_area
		635
		636	mov ecx, [esp]
		637	jmp .sh
5201	serge	638
		639	.no_mouse_area:
2439	Serge	640	pop ecx
5201	serge	641
		642	; store to LFB
2439	Serge	643	mov [LFB_BASE+edx], ax
		644	shr eax, 16
		645	mov [LFB_BASE+edx+2], al
5201	serge	646
		647	.skip:
2439	Serge	648	add edx, 3
		649	inc ebp
		650	dec ecx
		651	jnz .new_x
		652
		653	add esi, [putimg.line_increment]
5201	serge	654	add edx, [putimg.screen_newline]
		655	add ebp, [putimg.winmap_newline]
2439	Serge	656
		657	cmp [putimg.ebp], putimage_get1bpp
		658	jz .correct
		659	cmp [putimg.ebp], putimage_get2bpp
		660	jz .correct
		661	cmp [putimg.ebp], putimage_get4bpp
		662	jnz @f
5201	serge	663
		664	.correct:
2439	Serge	665	mov eax, [putimg.edi]
		666	mov byte [eax], 80h
5201	serge	667
		668	@@:
2439	Serge	669	dec edi
		670	jnz .new_line
		671	jmp put_image_end_24.finish
5201	serge	672
2434	Serge	673	;------------------------------------------------------------------------------
5201	serge	674
2434	Serge	675	align 4
1	ha	676	put_image_end_32:
5201	serge	677
2434	Serge	678	mov edi, [putimg.real_sy]
5201	serge	679
2465	Serge	680	; check for hardware cursor
		681	mov ecx, [_display.select_cursor]
		682	cmp ecx, select_cursor
		683	je put_image_end_32_new
		684	cmp ecx, 0
		685	je put_image_end_32_old
5201	serge	686
		687	.new_line:
2434	Serge	688	mov ecx, [putimg.real_sx]
5201	serge	689
		690	.new_x:
2434	Serge	691	push [putimg.edi]
		692	mov eax, [putimg.ebp+4]
		693	call eax
		694	cmp [ebp], bl
		695	jne .skip
5201	serge	696
		697	; store to LFB
2434	Serge	698	mov [LFB_BASE+edx], eax
5201	serge	699
		700	.skip:
2434	Serge	701	add edx, 4
		702	inc ebp
		703	dec ecx
		704	jnz .new_x
2439	Serge	705
2434	Serge	706	add esi, [putimg.line_increment]
5201	serge	707	add edx, [putimg.screen_newline]
		708	add ebp, [putimg.winmap_newline]
2439	Serge	709
2434	Serge	710	cmp [putimg.ebp], putimage_get1bpp
		711	jz .correct
		712	cmp [putimg.ebp], putimage_get2bpp
		713	jz .correct
		714	cmp [putimg.ebp], putimage_get4bpp
		715	jnz @f
5201	serge	716
		717	.correct:
2434	Serge	718	mov eax, [putimg.edi]
		719	mov byte [eax], 80h
5201	serge	720
		721	@@:
2434	Serge	722	dec edi
		723	jnz .new_line
5201	serge	724
		725	.finish:
2434	Serge	726	add esp, putimg.stack_data
		727	popad
3555	Serge	728	cmp [SCR_MODE], 0x12
2439	Serge	729	jne @f
2434	Serge	730	call VGA__putimage
5201	serge	731	@@:
2434	Serge	732	mov [EGA_counter], 1
		733	ret
5201	serge	734
2465	Serge	735	;------------------------------------------------------------------------------
5201	serge	736
2465	Serge	737	align 4
		738	put_image_end_32_old:
5201	serge	739
		740	.new_line:
2465	Serge	741	mov ecx, [putimg.real_sx]
5201	serge	742	.new_x:
2465	Serge	743	push [putimg.edi]
		744	mov eax, [putimg.ebp+4]
		745	call eax
		746	cmp [ebp], bl
		747	jne .skip
5201	serge	748
2465	Serge	749	push ecx
		750	neg ecx
		751	add ecx, [putimg.real_sx_and_abs_cx + 4]
		752	shl ecx, 16
		753	add ecx, [putimg.real_sy_and_abs_cy + 4]
		754	sub ecx, edi
		755
		756	; check mouse area for putpixel
		757	call check_mouse_area_for_putpixel
		758	pop ecx
5201	serge	759	; store to LFB
2465	Serge	760	mov [LFB_BASE+edx], eax
5201	serge	761
		762	.skip:
2465	Serge	763	add edx, 4
		764	inc ebp
		765	dec ecx
		766	jnz .new_x
		767
		768	add esi, [putimg.line_increment]
5201	serge	769	add edx, [putimg.screen_newline]
		770	add ebp, [putimg.winmap_newline]
2465	Serge	771
		772	cmp [putimg.ebp], putimage_get1bpp
		773	jz .correct
		774	cmp [putimg.ebp], putimage_get2bpp
		775	jz .correct
		776	cmp [putimg.ebp], putimage_get4bpp
		777	jnz @f
5201	serge	778
		779	.correct:
2465	Serge	780	mov eax, [putimg.edi]
		781	mov byte [eax], 80h
5201	serge	782
		783	@@:
2465	Serge	784	dec edi
		785	jnz .new_line
		786	jmp put_image_end_32.finish
5201	serge	787
2465	Serge	788	;------------------------------------------------------------------------------
5201	serge	789
2465	Serge	790	align 4
2439	Serge	791	put_image_end_32_new:
5201	serge	792
		793	.new_line:
2439	Serge	794	mov ecx, [putimg.real_sx]
5201	serge	795
		796	.new_x:
2439	Serge	797	push [putimg.edi]
		798	mov eax, [putimg.ebp+4]
		799	call eax
		800	cmp [ebp], bl
		801	jne .skip
5201	serge	802
2439	Serge	803	push ecx
5201	serge	804
		805	.sh:
2987	Serge	806	neg ecx
		807	add ecx, [putimg.real_sx_and_abs_cx + 4]
5201	serge	808
2987	Serge	809	; check for X
		810	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		811	jae .no_mouse_area
		812	sub cx, [X_UNDER_subtraction_CUR_hot_x]
		813	jb .no_mouse_area
		814	shl ecx, 16
		815
		816	add ecx, [putimg.real_sy_and_abs_cy + 4]
2439	Serge	817	sub ecx, edi
5201	serge	818
2439	Serge	819	; check for Y
		820	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		821	jae .no_mouse_area
2987	Serge	822	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
2439	Serge	823	jb .no_mouse_area
5201	serge	824
2439	Serge	825	; check mouse area for putpixel
		826	call check_mouse_area_for_putpixel_new.1
5201	serge	827	cmp ecx, -1 ; SHIT HAPPENS?
2987	Serge	828	jne .no_mouse_area
		829
		830	mov ecx, [esp]
		831	jmp .sh
5201	serge	832
		833	.no_mouse_area:
2439	Serge	834	pop ecx
5201	serge	835
		836	; store to LFB
2439	Serge	837	mov [LFB_BASE+edx], eax
5201	serge	838
		839	.skip:
2439	Serge	840	add edx, 4
		841	inc ebp
		842	dec ecx
		843	jnz .new_x
		844
		845	add esi, [putimg.line_increment]
5201	serge	846	add edx, [putimg.screen_newline]
		847	add ebp, [putimg.winmap_newline]
2439	Serge	848
		849	cmp [putimg.ebp], putimage_get1bpp
		850	jz .correct
		851	cmp [putimg.ebp], putimage_get2bpp
		852	jz .correct
		853	cmp [putimg.ebp], putimage_get4bpp
		854	jnz @f
5201	serge	855
		856	.correct:
2439	Serge	857	mov eax, [putimg.edi]
		858	mov byte [eax], 80h
5201	serge	859
		860	@@:
2439	Serge	861	dec edi
		862	jnz .new_line
		863	jmp put_image_end_32.finish
5201	serge	864
2434	Serge	865	;------------------------------------------------------------------------------
1	ha	866	; eax = x coordinate
		867	; ebx = y coordinate
5201	serge	868	; ecx = xx RR GG BB
		869	; xx flags:
		870	; 0x01000000 color inversion
		871	; 0x02000000 used for draw_rectangle without top line (for drawwindow_III and drawwindow_IV)
1	ha	872	; edi = 0x00000001 force
		873
5201	serge	874	align 4
		875	__sys_putpixel:
		876
2434	Serge	877	pushad
5565	serge	878	cmp eax, [_display.width]
		879	jge .exit
		880	cmp ebx, [_display.height]
		881	jge .exit
5596	serge	882	test edi, 1 ; force ?
2434	Serge	883	jnz .forced
1300	serge	884
5201	serge	885	; not forced
2439	Serge	886	mov edx, [d_width_calc_area + ebx*4]
5565	serge	887	add edx, [_display.win_map]
2434	Serge	888	movzx edx, byte [eax+edx]
		889	cmp edx, [CURRENT_TASK]
		890	jne .exit
5201	serge	891
		892	.forced:
		893	; check for color inversion
2434	Serge	894	test ecx, 0x01000000
5201	serge	895	jz .no_inv
2434	Serge	896
5201	serge	897	push eax ebx edx edi
		898	call [GETPIXEL]
		899	pop edi edx ebx eax
		900
2434	Serge	901	not ecx
		902	rol ecx, 8
		903	mov cl, [esp+32-8+3]
		904	ror ecx, 8
		905	mov [esp+32-8], ecx
5201	serge	906	.no_inv:
		907	call [PUTPIXEL] ; call the real put_pixel function
		908	.exit:
2434	Serge	909	popad
		910	ret
5201	serge	911
2434	Serge	912	;-----------------------------------------------------------------------------
5201	serge	913	; eax = x
		914	; ebx = y
		915
1	ha	916	align 4
5201	serge	917	Vesa20_putpixel16:
		918
		919	mov ecx, eax
		920	shl ecx, 16
		921	mov cx, bx
		922
		923	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
		924	mov ebx, [BPSLine_calc_area+ebx*4]
		925	lea edi, [eax2]; edi = x2
		926	mov eax, [esp+32-8+4]
		927
		928	; check for hardware cursor
		929	cmp [_display.select_cursor], 0
		930	jne @f
		931	; check mouse area for putpixel
		932	test eax, 0x04000000
		933	jnz @f
		934	call check_mouse_area_for_putpixel
		935	@@:
		936	; store to LFB
		937	and eax, 00000000111110001111110011111000b
		938	shr ah, 2
		939	shr ax, 3
		940	ror eax, 8
		941	add al, ah
		942	rol eax, 8
		943
		944	mov [LFB_BASE+ebx+edi], ax
		945	ret
		946
		947	;-----------------------------------------------------------------------------
469	serge	948	; eax = x
		949	; ebx = y
5201	serge	950
		951	align 4
		952	Vesa20_putpixel16_new:
		953
2434	Serge	954	mov ecx, eax
		955	shl ecx, 16
		956	mov cx, bx
1	ha	957
2465	Serge	958	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2987	Serge	959	mov ebx, [BPSLine_calc_area+ebx*4]
5201	serge	960	lea edi, [eax2]; edi = x2
		961	mov eax, [esp+32-8+4]
		962
		963	; check for hardware cursor
		964	cmp [_display.select_cursor], select_cursor
		965	jne @f
		966	; check mouse area for putpixel
		967	test eax, 0x04000000
		968	jnz @f
		969
		970	; check for Y
		971	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		972	jae @f
		973	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		974	jb @f
		975	rol ecx, 16
		976
		977	; check for X
		978	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		979	jae @f
		980	sub cx, [X_UNDER_subtraction_CUR_hot_x]
		981	jb @f
		982	ror ecx, 16
		983
		984	call check_mouse_area_for_putpixel_new.1
		985	@@:
		986	; store to LFB
		987	and eax, 00000000111110001111110011111000b
		988	shr ah, 2
		989	shr ax, 3
		990	ror eax, 8
		991	add al, ah
		992	rol eax, 8
		993
		994	mov [LFB_BASE+ebx+edi], ax
		995	ret
		996
		997	;-----------------------------------------------------------------------------
		998	; eax = x
		999	; ebx = y
		1000
		1001	align 4
		1002	Vesa20_putpixel24:
		1003
		1004	mov ecx, eax
		1005	shl ecx, 16
		1006	mov cx, bx
		1007
		1008	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
		1009	mov ebx, [BPSLine_calc_area+ebx*4]
2434	Serge	1010	lea edi, [eax+eax2]; edi = x3
		1011	mov eax, [esp+32-8+4]
5201	serge	1012
2465	Serge	1013	; check for hardware cursor
		1014	cmp [_display.select_cursor], 0
		1015	jne @f
2434	Serge	1016	; check mouse area for putpixel
		1017	test eax, 0x04000000
		1018	jnz @f
2439	Serge	1019	call check_mouse_area_for_putpixel
5201	serge	1020	@@:
		1021
		1022	; store to LFB
2434	Serge	1023	mov [LFB_BASE+ebx+edi], ax
		1024	shr eax, 16
		1025	mov [LFB_BASE+ebx+edi+2], al
2439	Serge	1026	ret
5201	serge	1027
2439	Serge	1028	;-----------------------------------------------------------------------------
5201	serge	1029	; eax = x
		1030	; ebx = y
		1031
2439	Serge	1032	align 4
		1033	Vesa20_putpixel24_new:
5201	serge	1034
2439	Serge	1035	mov ecx, eax
		1036	shl ecx, 16
		1037	mov cx, bx
		1038
2465	Serge	1039	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2987	Serge	1040	mov ebx, [BPSLine_calc_area+ebx*4]
2439	Serge	1041	lea edi, [eax+eax2]; edi = x3
		1042	mov eax, [esp+32-8+4]
5201	serge	1043
2465	Serge	1044	; check for hardware cursor
		1045	cmp [_display.select_cursor], select_cursor
		1046	jne @f
2439	Serge	1047	; check mouse area for putpixel
		1048	test eax, 0x04000000
		1049	jnz @f
5201	serge	1050
2439	Serge	1051	; check for Y
		1052	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		1053	jae @f
2987	Serge	1054	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		1055	jb @f
5201	serge	1056	rol ecx, 16
2987	Serge	1057
2439	Serge	1058	; check for X
		1059	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		1060	jae @f
2987	Serge	1061	sub cx, [X_UNDER_subtraction_CUR_hot_x]
		1062	jb @f
		1063	ror ecx, 16
		1064
2439	Serge	1065	call check_mouse_area_for_putpixel_new.1
5201	serge	1066	@@:
		1067	; store to LFB
2439	Serge	1068	mov [LFB_BASE+ebx+edi], ax
		1069	shr eax, 16
		1070	mov [LFB_BASE+ebx+edi+2], al
2434	Serge	1071	ret
5201	serge	1072
2434	Serge	1073	;-----------------------------------------------------------------------------
5201	serge	1074	; eax = x
		1075	; ebx = y
		1076
2434	Serge	1077	align 4
1	ha	1078	Vesa20_putpixel32:
5201	serge	1079
2434	Serge	1080	mov ecx, eax
		1081	shl ecx, 16
		1082	mov cx, bx
1	ha	1083
2465	Serge	1084	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2987	Serge	1085	mov ebx, [BPSLine_calc_area+ebx*4]
5201	serge	1086	lea edi, [ebx+eax4] ; edi = x4+(y*y multiplier)
		1087	mov eax, [esp+32-8+4] ; eax = color
		1088
2465	Serge	1089	; check for hardware cursor
		1090	cmp [_display.select_cursor], 0
		1091	jne @f
2434	Serge	1092	; check mouse area for putpixel
		1093	test eax, 0x04000000
		1094	jnz @f
2439	Serge	1095	call check_mouse_area_for_putpixel
5201	serge	1096	@@:
2434	Serge	1097	and eax, 0xffffff
5201	serge	1098	; store to LFB
2434	Serge	1099	mov [LFB_BASE+edi], eax
2439	Serge	1100	ret
5201	serge	1101
2439	Serge	1102	;-----------------------------------------------------------------------------
5201	serge	1103	; eax = x
		1104	; ebx = y
		1105
2439	Serge	1106	align 4
		1107	Vesa20_putpixel32_new:
5201	serge	1108
2439	Serge	1109	mov ecx, eax
		1110	shl ecx, 16
		1111	mov cx, bx
		1112
2465	Serge	1113	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2987	Serge	1114	mov ebx, [BPSLine_calc_area+ebx*4]
5201	serge	1115	lea edi, [ebx+eax4] ; edi = x4+(y*y multiplier)
		1116	mov eax, [esp+32-8+4] ; eax = color
		1117
2465	Serge	1118	; check for hardware cursor
		1119	cmp [_display.select_cursor], select_cursor
		1120	jne @f
2439	Serge	1121	; check mouse area for putpixel
		1122	test eax, 0x04000000
		1123	jnz @f
5201	serge	1124
2439	Serge	1125	; check for Y
		1126	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		1127	jae @f
2987	Serge	1128	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		1129	jb @f
5201	serge	1130	rol ecx, 16
2987	Serge	1131
2439	Serge	1132	; check for X
		1133	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		1134	jae @f
2987	Serge	1135	sub cx, [X_UNDER_subtraction_CUR_hot_x]
		1136	jb @f
		1137	ror ecx, 16
		1138
2439	Serge	1139	call check_mouse_area_for_putpixel_new.1
5201	serge	1140	@@:
		1141	and eax, 0x00ffffff
		1142	; store to LFB
2439	Serge	1143	mov [LFB_BASE+edi], eax
2434	Serge	1144	ret
5201	serge	1145
2434	Serge	1146	;-----------------------------------------------------------------------------
5201	serge	1147
2434	Serge	1148	align 4
1	ha	1149	calculate_edi:
5201	serge	1150	; mov edi, ebx
		1151	; imul edi, [Screen_Max_X]
		1152	; add edi, ebx
2465	Serge	1153	mov edi, [d_width_calc_area + ebx*4]
2434	Serge	1154	add edi, eax
		1155	ret
5201	serge	1156
		1157
2434	Serge	1158	;-----------------------------------------------------------------------------
1	ha	1159	; DRAWLINE
2434	Serge	1160	;-----------------------------------------------------------------------------
5201	serge	1161	; eax = x1 shl 16 + x2
		1162	; ebx = y1 shl 16 + y2
1	ha	1163	; ecx = color
		1164	; edi = force ?
		1165
5201	serge	1166	align 4
		1167	__sys_draw_line:
		1168
1	ha	1169	dl_x1 equ esp+20
		1170	dl_y1 equ esp+16
		1171	dl_x2 equ esp+12
		1172	dl_y2 equ esp+8
		1173	dl_dx equ esp+4
		1174	dl_dy equ esp+0
		1175
5201	serge	1176	pusha
		1177
5596	serge	1178	xor edx, edx ; clear edx
		1179	xor esi, esi ; unpack arguments
2434	Serge	1180	xor ebp, ebp
5596	serge	1181	mov si, ax ; esi = x2
		1182	mov bp, bx ; ebp = y2
		1183	shr eax, 16 ; eax = x1
		1184	shr ebx, 16 ; ebx = y1
		1185	push eax ; save x1
		1186	push ebx ; save y1
		1187	push esi ; save x2
		1188	push ebp ; save y2
469	serge	1189	; checking x-axis...
5596	serge	1190	sub esi, eax ; esi = x2-x1
		1191	push esi ; save y2-y1
		1192	jl .x2lx1 ; is x2 less than x1 ?
		1193	jg .no_vline ; x1 > x2 ?
		1194	mov edx, ebp ; else (if x1=x2)
2434	Serge	1195	call vline
5596	serge	1196	push edx ; necessary to rightly restore stack frame at .exit
2434	Serge	1197	jmp .exit
5201	serge	1198
		1199	.x2lx1:
5596	serge	1200	neg esi ; get esi absolute value
5201	serge	1201
		1202	.no_vline:
469	serge	1203	; checking y-axis...
5596	serge	1204	sub ebp, ebx ; ebp = y2-y1
		1205	push ebp ; save y2-y1
		1206	jl .y2ly1 ; is y2 less than y1 ?
		1207	jg .no_hline ; y1 > y2 ?
5201	serge	1208	mov edx, [dl_x2] ; else (if y1=y2)
2434	Serge	1209	call hline
		1210	jmp .exit
5201	serge	1211
		1212	.y2ly1:
5596	serge	1213	neg ebp ; get ebp absolute value
5201	serge	1214
		1215	.no_hline:
2434	Serge	1216	cmp ebp, esi
5596	serge	1217	jle .x_rules ; \|y2-y1\| < \|x2-x1\| ?
5201	serge	1218	cmp [dl_y2], ebx ; make sure y1 is at the begining
2434	Serge	1219	jge .no_reverse1
		1220	neg dword [dl_dx]
		1221	mov edx, [dl_x2]
		1222	mov [dl_x2], eax
		1223	mov [dl_x1], edx
		1224	mov edx, [dl_y2]
		1225	mov [dl_y2], ebx
		1226	mov [dl_y1], edx
5201	serge	1227
		1228	.no_reverse1:
2434	Serge	1229	mov eax, [dl_dx]
5596	serge	1230	cdq ; extend eax sing to edx
		1231	shl eax, 16 ; using 16bit fix-point maths
		1232	idiv ebp ; eax = ((x2-x1)*65536)/(y2-y1)
5201	serge	1233
2434	Serge	1234	; correction for the remainder of the division
		1235	shl edx, 1
		1236	cmp ebp, edx
		1237	jb @f
		1238	inc eax
5201	serge	1239	@@:
5596	serge	1240	mov edx, ebp ; edx = counter (number of pixels to draw)
5201	serge	1241	mov ebp, 1 shl 16 ; ebp = dy = 1.0
5596	serge	1242	mov esi, eax ; esi = dx
2434	Serge	1243	jmp .y_rules
5201	serge	1244	.x_rules:
5596	serge	1245	cmp [dl_x2], eax ; make sure x1 is at the begining
2434	Serge	1246	jge .no_reverse2
		1247	neg dword [dl_dy]
		1248	mov edx, [dl_x2]
		1249	mov [dl_x2], eax
		1250	mov [dl_x1], edx
		1251	mov edx, [dl_y2]
		1252	mov [dl_y2], ebx
		1253	mov [dl_y1], edx
5201	serge	1254	.no_reverse2:
2434	Serge	1255	xor edx, edx
		1256	mov eax, [dl_dy]
5596	serge	1257	cdq ; extend eax sing to edx
		1258	shl eax, 16 ; using 16bit fix-point maths
		1259	idiv esi ; eax = ((y2-y1)*65536)/(x2-x1)
2434	Serge	1260	; correction for the remainder of the division
		1261	shl edx, 1
		1262	cmp esi, edx
		1263	jb @f
		1264	inc eax
5201	serge	1265	@@:
5596	serge	1266	mov edx, esi ; edx = counter (number of pixels to draw)
5201	serge	1267	mov esi, 1 shl 16 ; esi = dx = 1.0
5596	serge	1268	mov ebp, eax ; ebp = dy
5201	serge	1269
		1270	.y_rules:
2434	Serge	1271	mov eax, [dl_x1]
		1272	mov ebx, [dl_y1]
		1273	shl eax, 16
		1274	shl ebx, 16
2465	Serge	1275
5201	serge	1276	and ecx, 0xFBFFFFFF ; negate 0x04000000 save to mouseunder area
		1277	.draw:
2434	Serge	1278	push eax ebx
5201	serge	1279
2434	Serge	1280	; correction for the remainder of the division
		1281	test ah, 0x80
		1282	jz @f
		1283	add eax, 1 shl 16
5201	serge	1284	@@:
2434	Serge	1285	shr eax, 16
		1286	; correction for the remainder of the division
		1287	test bh, 0x80
		1288	jz @f
		1289	add ebx, 1 shl 16
5201	serge	1290	@@:
2434	Serge	1291	shr ebx, 16
5201	serge	1292	; and ecx, 0xFBFFFFFF ; negate 0x04000000 save to mouseunder area
2465	Serge	1293	; call [putpixel]
		1294	call __sys_putpixel
2434	Serge	1295	pop ebx eax
		1296	add ebx, ebp ; y = y+dy
		1297	add eax, esi ; x = x+dx
		1298	dec edx
		1299	jnz .draw
469	serge	1300	; force last drawn pixel to be at (x2,y2)
2434	Serge	1301	mov eax, [dl_x2]
		1302	mov ebx, [dl_y2]
5201	serge	1303	; and ecx, 0xFBFFFFFF ;n egate 0x04000000 save to mouseunder area
2465	Serge	1304	; call [putpixel]
		1305	call __sys_putpixel
5201	serge	1306
		1307	.exit:
2434	Serge	1308	add esp, 6*4
		1309	popa
		1310	; call [draw_pointer]
		1311	ret
5201	serge	1312
2434	Serge	1313	;------------------------------------------------------------------------------
1	ha	1314	; draw an horizontal line
		1315	; eax = x1
		1316	; edx = x2
		1317	; ebx = y
		1318	; ecx = color
		1319	; edi = force ?
5201	serge	1320
		1321	align 4
		1322	hline:
		1323
2434	Serge	1324	push eax edx
		1325	cmp edx, eax ; make sure x2 is above x1
		1326	jge @f
		1327	xchg eax, edx
5201	serge	1328	@@:
2434	Serge	1329	and ecx, 0xFBFFFFFF ;negate 0x04000000 save to mouseunder area
5201	serge	1330	@@:
2465	Serge	1331	; call [putpixel]
		1332	call __sys_putpixel
2434	Serge	1333	inc eax
		1334	cmp eax, edx
		1335	jle @b
		1336	pop edx eax
		1337	ret
5201	serge	1338
2434	Serge	1339	;------------------------------------------------------------------------------
1	ha	1340	; draw a vertical line
		1341	; eax = x
		1342	; ebx = y1
		1343	; edx = y2
		1344	; ecx = color
		1345	; edi = force ?
5201	serge	1346
		1347	align 4
		1348	vline:
		1349
2434	Serge	1350	push ebx edx
		1351	cmp edx, ebx ; make sure y2 is above y1
		1352	jge @f
		1353	xchg ebx, edx
5201	serge	1354	@@:
2434	Serge	1355	and ecx, 0xFBFFFFFF ;negate 0x04000000 save to mouseunder area
5201	serge	1356	@@:
2465	Serge	1357	; call [putpixel]
		1358	call __sys_putpixel
2434	Serge	1359	inc ebx
		1360	cmp ebx, edx
		1361	jle @b
		1362	pop edx ebx
		1363	ret
5201	serge	1364
2434	Serge	1365	;------------------------------------------------------------------------------
5201	serge	1366	; eax cx
		1367	; ebx cy
		1368	; ecx xe
		1369	; edx ye
		1370	; edi color
		1371
2434	Serge	1372	align 4
5201	serge	1373	vesa20_drawbar:
		1374
1	ha	1375	virtual at esp
469	serge	1376	drbar:
		1377	.bar_sx dd ?
		1378	.bar_sy dd ?
		1379	.bar_cx dd ?
		1380	.bar_cy dd ?
		1381	.abs_cx dd ?
		1382	.abs_cy dd ?
		1383	.real_sx dd ?
		1384	.real_sy dd ?
		1385	.color dd ?
		1386	.line_inc_scr dd ?
		1387	.line_inc_map dd ?
2434	Serge	1388	.real_sx_and_abs_cx dd ?
		1389	.real_sy_and_abs_cy dd ?
		1390	.stack_data = 4*13
1	ha	1391	end virtual
5201	serge	1392
2434	Serge	1393	pushad
		1394	sub esp, drbar.stack_data
		1395	mov [drbar.color], edi
		1396	sub edx, ebx
5201	serge	1397	jle .exit
2434	Serge	1398	sub ecx, eax
5201	serge	1399	jle .exit
2434	Serge	1400	mov [drbar.bar_sy], edx
		1401	mov [drbar.bar_sx], ecx
		1402	mov [drbar.bar_cx], eax
		1403	mov [drbar.bar_cy], ebx
		1404	mov edi, [TASK_BASE]
5201	serge	1405	add eax, [edi-twdw + WDATA.box.left] ; win_cx
		1406	add ebx, [edi-twdw + WDATA.box.top] ; win_cy
2434	Serge	1407	mov [drbar.abs_cx], eax
		1408	mov [drbar.abs_cy], ebx
469	serge	1409	; real_sx = MIN(wnd_sx-bar_cx, bar_sx);
5201	serge	1410	mov ebx, [edi-twdw + WDATA.box.width] ; ebx = wnd_sx
		1411	inc ebx ; WDATA.box.width is one pixel less than real window x-size
2434	Serge	1412	sub ebx, [drbar.bar_cx]
		1413	ja @f
5201	serge	1414	.exit:
2434	Serge	1415	add esp, drbar.stack_data
		1416	popad
		1417	xor eax, eax
		1418	inc eax
		1419	ret
5201	serge	1420	@@:
2434	Serge	1421	cmp ebx, [drbar.bar_sx]
		1422	jbe .end_x
		1423	mov ebx, [drbar.bar_sx]
5201	serge	1424	.end_x:
2434	Serge	1425	mov [drbar.real_sx], ebx
469	serge	1426	; real_sy = MIN(wnd_sy-bar_cy, bar_sy);
5201	serge	1427	mov ebx, [edi-twdw + WDATA.box.height] ; ebx = wnd_sy
2434	Serge	1428	inc ebx
		1429	sub ebx, [drbar.bar_cy]
		1430	ja @f
		1431	add esp, drbar.stack_data
		1432	popad
		1433	xor eax, eax
		1434	inc eax
		1435	ret
5201	serge	1436	@@:
2434	Serge	1437	cmp ebx, [drbar.bar_sy]
		1438	jbe .end_y
		1439	mov ebx, [drbar.bar_sy]
5201	serge	1440	.end_y:
2434	Serge	1441	mov [drbar.real_sy], ebx
469	serge	1442	; line_inc_map
5565	serge	1443	mov eax, [_display.width]
2434	Serge	1444	sub eax, [drbar.real_sx]
		1445	mov [drbar.line_inc_map], eax
469	serge	1446	; line_inc_scr
2434	Serge	1447	mov eax, [drbar.real_sx]
5201	serge	1448	mov ebx, [_display.bytes_per_pixel]
2434	Serge	1449	imul eax, ebx
		1450	neg eax
5565	serge	1451	add eax, [_display.lfb_pitch]
2434	Serge	1452	mov [drbar.line_inc_scr], eax
469	serge	1453	; pointer to screen
2434	Serge	1454	mov edx, [drbar.abs_cy]
2465	Serge	1455	; imul edx, [BytesPerScanLine]
2987	Serge	1456	mov edx, [BPSLine_calc_area+edx*4]
2434	Serge	1457	mov eax, [drbar.abs_cx]
		1458	imul eax, ebx
		1459	add edx, eax
469	serge	1460	; pointer to pixel map
2434	Serge	1461	mov eax, [drbar.abs_cy]
5201	serge	1462	; imul eax, [Screen_Max_X]
		1463	; add eax, [drbar.abs_cy]
2465	Serge	1464	mov eax, [d_width_calc_area + eax*4]
		1465
2434	Serge	1466	add eax, [drbar.abs_cx]
5565	serge	1467	add eax, [_display.win_map]
2434	Serge	1468	xchg eax, ebp
5201	serge	1469
2434	Serge	1470	mov ebx, [drbar.real_sx]
		1471	add ebx, [drbar.abs_cx]
		1472	mov [drbar.real_sx_and_abs_cx], ebx
		1473	mov ebx, [drbar.real_sy]
		1474	add ebx, [drbar.abs_cy]
		1475	mov [drbar.real_sy_and_abs_cy], ebx
		1476
		1477	add edx, LFB_BASE
5201	serge	1478
469	serge	1479	; get process number
2465	Serge	1480	mov ebx, [CURRENT_TASK] ; bl - process num
		1481	mov esi, [drbar.real_sy]
		1482	mov eax, [drbar.color] ; BBGGRR00
		1483	rol eax, 8
		1484	mov bh, al ; 0x80 drawing gradient bars
		1485	ror eax, 8
5201	serge	1486
		1487	cmp byte [_display.bits_per_pixel], 16
		1488	je draw_bar_end_16
		1489	cmp byte [_display.bits_per_pixel], 24
		1490	je draw_bar_end_24
		1491	cmp byte [_display.bits_per_pixel], 32
		1492	je draw_bar_end_32
		1493
2434	Serge	1494	;--------------------------------------
2465	Serge	1495	; eax - color high RRGGBB
1	ha	1496	; bl - process num
		1497	; ecx - temp
		1498	; edx - pointer to screen
		1499	; esi - counter
		1500	; edi - counter
5201	serge	1501
		1502	align 4
		1503	draw_bar_end_24:
		1504
2465	Serge	1505	; check for hardware cursor
		1506	mov ecx, [_display.select_cursor]
		1507	cmp ecx, select_cursor
		1508	je draw_bar_end_24_new
		1509	cmp ecx, 0
		1510	je draw_bar_end_24_old
5201	serge	1511	.new_y:
2434	Serge	1512	mov edi, [drbar.real_sx]
5201	serge	1513	.new_x:
2434	Serge	1514	cmp byte [ebp], bl
		1515	jne .skip
5201	serge	1516
		1517	; store to LFB
2434	Serge	1518	mov [edx], ax
		1519	shr eax, 16
		1520	mov [edx + 2], al
5201	serge	1521	.skip:
469	serge	1522	; add pixel
2434	Serge	1523	add edx, 3
		1524	inc ebp
		1525	dec edi
		1526	jnz .new_x
469	serge	1527	; add line
2434	Serge	1528	add edx, [drbar.line_inc_scr]
		1529	add ebp, [drbar.line_inc_map]
2465	Serge	1530	; drawing gradient bars
		1531	test bh, 0x80
2434	Serge	1532	jz @f
2465	Serge	1533	test al, al
2434	Serge	1534	jz @f
2465	Serge	1535	dec al
5201	serge	1536	@@:
2434	Serge	1537	dec esi
		1538	jnz .new_y
5201	serge	1539	.end:
2434	Serge	1540	add esp, drbar.stack_data
		1541	popad
		1542	xor eax, eax
		1543	ret
5201	serge	1544
2465	Serge	1545	;------------------------------------------------------------------------------
5201	serge	1546
2465	Serge	1547	align 4
		1548	draw_bar_end_24_old:
5201	serge	1549
		1550	.new_y:
2465	Serge	1551	mov edi, [drbar.real_sx]
5201	serge	1552	.new_x:
2465	Serge	1553	cmp byte [ebp], bl
		1554	jne .skip
5201	serge	1555
2465	Serge	1556	mov ecx, [drbar.real_sx_and_abs_cx]
		1557	sub ecx, edi
		1558	shl ecx, 16
		1559	add ecx, [drbar.real_sy_and_abs_cy]
		1560	sub ecx, esi
		1561	; check mouse area for putpixel
		1562	call check_mouse_area_for_putpixel
5201	serge	1563	; store to LFB
2465	Serge	1564	mov [edx], ax
		1565	shr eax, 16
		1566	mov [edx + 2], al
		1567	mov eax, [drbar.color]
5201	serge	1568	.skip:
2465	Serge	1569	; add pixel
		1570	add edx, 3
		1571	inc ebp
		1572	dec edi
		1573	jnz .new_x
		1574	; add line
		1575	add edx, [drbar.line_inc_scr]
		1576	add ebp, [drbar.line_inc_map]
		1577	; drawing gradient bars
		1578	test bh, 0x80
		1579	jz @f
		1580	test al, al
		1581	jz @f
		1582	dec al
5201	serge	1583	@@:
2465	Serge	1584	dec esi
		1585	jnz .new_y
		1586	jmp draw_bar_end_24.end
5201	serge	1587
2465	Serge	1588	;------------------------------------------------------------------------------
5201	serge	1589
2465	Serge	1590	align 4
2434	Serge	1591	draw_bar_end_24_new:
5201	serge	1592
		1593	.new_y:
2434	Serge	1594	mov edi, [drbar.real_sx]
5201	serge	1595	.new_x:
2434	Serge	1596	cmp byte [ebp], bl
		1597	jne .skip
5201	serge	1598
2434	Serge	1599	mov ecx, [drbar.real_sy_and_abs_cy]
		1600	sub ecx, esi
5201	serge	1601
2434	Serge	1602	; check for Y
		1603	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		1604	jae .no_mouse_area
2987	Serge	1605	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		1606	jb .no_mouse_area
2434	Serge	1607	rol ecx, 16
		1608	add ecx, [drbar.real_sx_and_abs_cx]
		1609	sub ecx, edi
5201	serge	1610
2434	Serge	1611	; check for X
2987	Serge	1612	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		1613	jae .no_mouse_area
		1614	sub cx, [X_UNDER_subtraction_CUR_hot_x]
2434	Serge	1615	jb .no_mouse_area
5201	serge	1616	ror ecx, 16
2434	Serge	1617
		1618	; check mouse area for putpixel
2987	Serge	1619	push eax
2434	Serge	1620	call check_mouse_area_for_putpixel_new.1
		1621	mov [edx], ax
		1622	shr eax, 16
		1623	mov [edx + 2], al
2987	Serge	1624	pop eax
2434	Serge	1625	jmp .skip
5201	serge	1626
		1627	.no_mouse_area:
		1628	; store to LFB
2465	Serge	1629	mov [edx], ax
		1630	ror eax, 16
		1631	mov [edx + 2], al
		1632	rol eax, 16
5201	serge	1633	.skip:
		1634
2434	Serge	1635	; add pixel
		1636	add edx, 3
		1637	inc ebp
		1638	dec edi
		1639	jnz .new_x
5201	serge	1640
2434	Serge	1641	; add line
		1642	add edx, [drbar.line_inc_scr]
		1643	add ebp, [drbar.line_inc_map]
5201	serge	1644
2465	Serge	1645	; drawing gradient bars
		1646	test bh, 0x80
2434	Serge	1647	jz @f
2465	Serge	1648	test al, al
2434	Serge	1649	jz @f
2465	Serge	1650	dec al
5201	serge	1651	@@:
2434	Serge	1652	dec esi
		1653	jnz .new_y
		1654	jmp draw_bar_end_24.end
5201	serge	1655
2465	Serge	1656	;------------------------------------------------------------------------------
		1657	; eax - color high RRGGBB
		1658	; bl - process num
		1659	; ecx - temp
		1660	; edx - pointer to screen
		1661	; esi - counter
		1662	; edi - counter
5201	serge	1663
		1664	draw_bar_end_32:
		1665
2465	Serge	1666	; check for hardware cursor
		1667	mov ecx, [_display.select_cursor]
		1668	cmp ecx, select_cursor
		1669	je draw_bar_end_32_new
		1670	cmp ecx, 0
		1671	je draw_bar_end_32_old
5201	serge	1672
		1673	.new_y:
2434	Serge	1674	mov edi, [drbar.real_sx]
5201	serge	1675	.new_x:
2434	Serge	1676	cmp byte [ebp], bl
		1677	jne .skip
5201	serge	1678
		1679	; store to LFB
2434	Serge	1680	mov [edx], eax
2465	Serge	1681	mov eax, [drbar.color]
5201	serge	1682	.skip:
		1683
469	serge	1684	; add pixel
2434	Serge	1685	add edx, 4
		1686	inc ebp
		1687	dec edi
		1688	jnz .new_x
5201	serge	1689
469	serge	1690	; add line
2434	Serge	1691	add edx, [drbar.line_inc_scr]
		1692	add ebp, [drbar.line_inc_map]
5201	serge	1693
2465	Serge	1694	; drawing gradient bars
		1695	test bh, 0x80
2434	Serge	1696	jz @f
		1697	test al, al
		1698	jz @f
		1699	dec al
5201	serge	1700	@@:
2434	Serge	1701	dec esi
		1702	jnz .new_y
5201	serge	1703	.end:
2434	Serge	1704	add esp, drbar.stack_data
		1705	popad
3555	Serge	1706	cmp [SCR_MODE], 0x12
2439	Serge	1707	jne @f
2434	Serge	1708	call VGA_draw_bar
5201	serge	1709	@@:
2434	Serge	1710	xor eax, eax
		1711	mov [EGA_counter], 1
		1712	ret
5201	serge	1713
2465	Serge	1714	draw_bar_end_32_old:
5201	serge	1715
		1716	.new_y:
2465	Serge	1717	mov edi, [drbar.real_sx]
5201	serge	1718	.new_x:
2465	Serge	1719	cmp byte [ebp], bl
		1720	jne .skip
5201	serge	1721
2465	Serge	1722	mov ecx, [drbar.real_sx_and_abs_cx]
		1723	sub ecx, edi
		1724	shl ecx, 16
		1725	add ecx, [drbar.real_sy_and_abs_cy]
		1726	sub ecx, esi
		1727
		1728	; check mouse area for putpixel
		1729	call check_mouse_area_for_putpixel
5201	serge	1730	; store to LFB
2465	Serge	1731	mov [edx], eax
		1732	mov eax, [drbar.color]
5201	serge	1733	.skip:
2465	Serge	1734	; add pixel
		1735	add edx, 4
		1736	inc ebp
		1737	dec edi
		1738	jnz .new_x
		1739	; add line
		1740	add edx, [drbar.line_inc_scr]
		1741	add ebp, [drbar.line_inc_map]
		1742	; drawing gradient bars
		1743	test bh, 0x80
		1744	jz @f
		1745	test al, al
		1746	jz @f
		1747	dec al
5201	serge	1748	@@:
2465	Serge	1749	dec esi
		1750	jnz .new_y
		1751	jmp draw_bar_end_32.end
5201	serge	1752
2465	Serge	1753	;------------------------------------------------------------------------------
5201	serge	1754
2465	Serge	1755	align 4
2434	Serge	1756	draw_bar_end_32_new:
5201	serge	1757
		1758	.new_y:
2434	Serge	1759	mov edi, [drbar.real_sx]
5201	serge	1760	.new_x:
2434	Serge	1761	cmp byte [ebp], bl
		1762	jne .skip
5201	serge	1763
2434	Serge	1764	mov ecx, [drbar.real_sy_and_abs_cy]
		1765	sub ecx, esi
5201	serge	1766
2434	Serge	1767	; check for Y
		1768	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		1769	jae .no_mouse_area
2987	Serge	1770	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		1771	jb .no_mouse_area
2434	Serge	1772	rol ecx, 16
		1773	add ecx, [drbar.real_sx_and_abs_cx]
		1774	sub ecx, edi
5201	serge	1775
2434	Serge	1776	; check for X
2987	Serge	1777	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		1778	jae .no_mouse_area
		1779	sub cx, [X_UNDER_subtraction_CUR_hot_x]
2434	Serge	1780	jb .no_mouse_area
5201	serge	1781	ror ecx, 16
2434	Serge	1782
		1783	; check mouse area for putpixel
2987	Serge	1784	push eax
2434	Serge	1785	call check_mouse_area_for_putpixel_new.1
		1786	mov [edx], eax
2987	Serge	1787	pop eax
2434	Serge	1788	jmp .skip
5201	serge	1789	.no_mouse_area:
		1790
		1791	; store to LFB
2434	Serge	1792	mov [edx], eax
5201	serge	1793	.skip:
		1794
		1795	; add pixel
		1796	add edx, 4
		1797	inc ebp
		1798	dec edi
		1799	jnz .new_x
		1800
		1801	; add line
		1802	add edx, [drbar.line_inc_scr]
		1803	add ebp, [drbar.line_inc_map]
		1804
		1805	; drawing gradient bars
		1806	test bh, 0x80
		1807	jz @f
		1808	test al, al
		1809	jz @f
		1810	dec al
		1811	@@:
		1812	dec esi
		1813	jnz .new_y
		1814	jmp draw_bar_end_32.end
		1815
		1816	;------------------------------------------------------------------------------
		1817	; eax - color high RRGGBB
		1818	; bl - process num
		1819	; ecx - temp
		1820	; edx - pointer to screen
		1821	; esi - counter
		1822	; edi - counter
		1823
2434	Serge	1824	align 4
5201	serge	1825	draw_bar_end_16:
		1826
		1827	; check for hardware cursor
		1828	mov ecx, [_display.select_cursor]
		1829	cmp ecx, select_cursor
		1830	je draw_bar_end_16_new
		1831	cmp ecx, 0
		1832	je draw_bar_end_16_old
		1833	.new_y:
		1834	mov edi, [drbar.real_sx]
		1835	.new_x:
		1836	cmp byte [ebp], bl
		1837	jne .skip
		1838	; convert to 16 bpp and store to LFB
		1839	and eax, 00000000111110001111110011111000b
		1840	shr ah, 2
		1841	shr ax, 3
		1842	ror eax, 8
		1843	add al, ah
		1844	rol eax, 8
		1845	mov [edx], ax
		1846	mov eax, [drbar.color]
		1847	.skip:
		1848
		1849	; add pixel
		1850	add edx, 2
		1851	inc ebp
		1852	dec edi
		1853	jnz .new_x
		1854	; add line
		1855	add edx, [drbar.line_inc_scr]
		1856	add ebp, [drbar.line_inc_map]
		1857	; drawing gradient bars
		1858	test bh, 0x80
		1859	jz @f
		1860	test al, al
		1861	jz @f
		1862	dec al
		1863	@@:
		1864	dec esi
		1865	jnz .new_y
		1866	.end:
		1867	add esp, drbar.stack_data
		1868	popad
		1869	cmp [SCR_MODE], 0x12
		1870	jne @f
		1871	call VGA_draw_bar
		1872	@@:
		1873	xor eax, eax
		1874	mov [EGA_counter], 1
		1875	ret
		1876
		1877	;------------------------------------------------------------------------------
		1878
		1879	align 4
		1880	draw_bar_end_16_old:
		1881
		1882	.new_y:
		1883	mov edi, [drbar.real_sx]
		1884	.new_x:
		1885	cmp byte [ebp], bl
		1886	jne .skip
		1887
		1888	mov ecx, [drbar.real_sx_and_abs_cx]
		1889	sub ecx, edi
		1890	shl ecx, 16
		1891	add ecx, [drbar.real_sy_and_abs_cy]
		1892	sub ecx, esi
		1893
		1894	; check mouse area for putpixel
		1895	call check_mouse_area_for_putpixel
		1896	; convert to 16 bpp and store to LFB
		1897	and eax, 00000000111110001111110011111000b
		1898	shr ah, 2
		1899	shr ax, 3
		1900	ror eax, 8
		1901	add al, ah
		1902	rol eax, 8
		1903	mov [edx], ax
		1904	mov eax, [drbar.color]
2434	Serge	1905	.skip:
5201	serge	1906
2434	Serge	1907	; add pixel
5201	serge	1908	add edx, 2
2434	Serge	1909	inc ebp
		1910	dec edi
		1911	jnz .new_x
5201	serge	1912
2434	Serge	1913	; add line
		1914	add edx, [drbar.line_inc_scr]
		1915	add ebp, [drbar.line_inc_map]
5201	serge	1916
2465	Serge	1917	; drawing gradient bars
		1918	test bh, 0x80
2434	Serge	1919	jz @f
		1920	test al, al
		1921	jz @f
		1922	dec al
5201	serge	1923	@@:
		1924	dec esi
		1925	jnz .new_y
		1926	jmp draw_bar_end_16.end
		1927
		1928	;------------------------------------------------------------------------------
		1929
2434	Serge	1930	align 4
5201	serge	1931	draw_bar_end_16_new:
		1932
		1933	.new_y:
		1934	mov edi, [drbar.real_sx]
		1935	.new_x:
		1936	cmp byte [ebp], bl
		1937	jne .skip
		1938
		1939	mov ecx, [drbar.real_sy_and_abs_cy]
		1940	sub ecx, esi
		1941
		1942	; check for Y
		1943	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		1944	jae .no_mouse_area
		1945	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		1946	jb .no_mouse_area
		1947	rol ecx, 16
		1948	add ecx, [drbar.real_sx_and_abs_cx]
		1949	sub ecx, edi
		1950
		1951	; check for X
		1952	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		1953	jae .no_mouse_area
		1954	sub cx, [X_UNDER_subtraction_CUR_hot_x]
		1955	jb .no_mouse_area
		1956	ror ecx, 16
		1957
		1958	; check mouse area for putpixel
		1959	push eax
		1960	call check_mouse_area_for_putpixel_new.1
		1961	push eax
		1962	and eax, 00000000111110001111110011111000b
		1963	shr ah, 2
		1964	shr ax, 3
		1965	ror eax, 8
		1966	add al, ah
		1967	rol eax, 8
		1968	mov [edx], ax
		1969	pop eax
		1970	pop eax
		1971	jmp .skip
		1972
		1973	.no_mouse_area:
		1974	; convert to 16 bpp and store to LFB
		1975	push eax
		1976	and eax, 00000000111110001111110011111000b
		1977	shr ah, 2
		1978	shr ax, 3
		1979	ror eax, 8
		1980	add al, ah
		1981	rol eax, 8
		1982	mov [edx], ax
		1983	pop eax
		1984	.skip:
		1985
		1986	; add pixel
		1987	add edx, 2
		1988	inc ebp
		1989	dec edi
		1990	jnz .new_x
		1991
		1992	; add line
		1993	add edx, [drbar.line_inc_scr]
		1994	add ebp, [drbar.line_inc_map]
		1995
		1996	; drawing gradient bars
		1997	test bh, 0x80
		1998	jz @f
		1999	test al, al
		2000	jz @f
		2001	dec al
		2002	@@:
2434	Serge	2003	dec esi
		2004	jnz .new_y
5201	serge	2005	jmp draw_bar_end_16.end
		2006
2434	Serge	2007	;------------------------------------------------------------------------------
5201	serge	2008
2434	Serge	2009	align 4
1	ha	2010	vesa20_drawbackground_tiled:
5201	serge	2011
527	diamond	2012	pushad
		2013	; External loop for all y from start to end
		2014	mov ebx, [draw_data+32+RECT.top] ; y start
5201	serge	2015	dp2:
527	diamond	2016	mov ebp, [draw_data+32+RECT.left] ; x start
		2017	; 1) Calculate pointers in WinMapAddress (does pixel belong to OS thread?) [ebp]
5596	serge	2018	; and LFB data (output for our function) [edi]
2465	Serge	2019	; mov eax, [BytesPerScanLine]
		2020	; mul ebx
2987	Serge	2021	mov eax, [BPSLine_calc_area+ebx*4]
527	diamond	2022	xchg ebp, eax
		2023	add ebp, eax
		2024	add ebp, eax
5201	serge	2025	cmp byte [_display.bytes_per_pixel], 2
		2026	je @f
527	diamond	2027	add ebp, eax
5201	serge	2028	cmp byte [_display.bytes_per_pixel], 3
		2029	je @f
527	diamond	2030	add ebp, eax
5201	serge	2031
		2032	@@:
1300	serge	2033	add ebp, LFB_BASE
469	serge	2034	; ebp:=YBytesPerScanLine+XBytesPerPixel+AddrLFB
527	diamond	2035	call calculate_edi
		2036	xchg edi, ebp
5565	serge	2037	add ebp, [_display.win_map]
527	diamond	2038	; Now eax=x, ebx=y, edi->output, ebp=offset in WinMapAddress
		2039	; 2) Calculate offset in background memory block
		2040	push eax
		2041	xor edx, edx
		2042	mov eax, ebx
784	diamond	2043	div dword [BgrDataHeight] ; edx := y mod BgrDataHeight
527	diamond	2044	pop eax
		2045	push eax
784	diamond	2046	mov ecx, [BgrDataWidth]
527	diamond	2047	mov esi, edx
784	diamond	2048	imul esi, ecx ; esi := (y mod BgrDataHeight) * BgrDataWidth
527	diamond	2049	xor edx, edx
784	diamond	2050	div ecx ; edx := x mod BgrDataWidth
		2051	sub ecx, edx
527	diamond	2052	add esi, edx ; esi := (y mod BgrDataHeight)*BgrDataWidth + (x mod BgrDataWidth)
		2053	pop eax
		2054	lea esi, [esi*3]
		2055	add esi, [img_background]
		2056	xor edx, edx
		2057	inc edx
		2058	; 3) Loop through redraw rectangle and copy background data
		2059	; Registers meaning:
		2060	; eax = x, ebx = y (screen coordinates)
		2061	; ecx = deltax - number of pixels left in current tile block
		2062	; edx = 1
		2063	; esi -> bgr memory, edi -> output
		2064	; ebp = offset in WinMapAddress
5201	serge	2065	dp3:
1300	serge	2066	cmp [ebp], dl
5201	serge	2067	jnz .next_pix
		2068
2434	Serge	2069	push eax ecx
		2070	mov ecx, eax
		2071	shl ecx, 16
		2072	add ecx, ebx
		2073
		2074	mov eax, [esi]
2465	Serge	2075
		2076	; check for hardware cursor
		2077	cmp [_display.select_cursor], select_cursor
		2078	je @f
		2079	cmp [_display.select_cursor], 0
		2080	jne .no_mouseunder
5201	serge	2081	@@:
2434	Serge	2082	and eax, 0xffffff
		2083	; check mouse area for putpixel
		2084	call [_display.check_mouse]
5201	serge	2085	.no_mouseunder:
		2086
		2087	cmp byte [_display.bits_per_pixel], 16
		2088	je .16bpp
		2089	; store to LFB
2434	Serge	2090	mov [edi], ax
		2091	shr eax, 16
		2092	mov [edi+2], al
5201	serge	2093	pop ecx eax
		2094	jmp .next_pix
2434	Serge	2095
5201	serge	2096	.16bpp:
		2097	; convert to 16 bpp and store to LFB
		2098	and eax, 00000000111110001111110011111000b
		2099	shr ah, 2
		2100	shr ax, 3
		2101	ror eax, 8
		2102	add al, ah
		2103	rol eax, 8
		2104	mov [edi], ax
2434	Serge	2105	pop ecx eax
5201	serge	2106
		2107	; Advance to next pixel
		2108	.next_pix:
527	diamond	2109	add esi, 3
5201	serge	2110	add edi, [_display.bytes_per_pixel]
		2111
527	diamond	2112	add ebp, edx
		2113	add eax, edx
		2114	cmp eax, [draw_data+32+RECT.right]
		2115	ja dp4
		2116	sub ecx, edx
		2117	jnz dp3
5201	serge	2118
527	diamond	2119	; next tile block on x-axis
		2120	mov ecx, [BgrDataWidth]
		2121	sub esi, ecx
		2122	sub esi, ecx
		2123	sub esi, ecx
		2124	jmp dp3
5201	serge	2125
		2126	dp4:
527	diamond	2127	; next scan line
		2128	inc ebx
		2129	cmp ebx, [draw_data+32+RECT.bottom]
		2130	jbe dp2
		2131	popad
		2132	mov [EGA_counter], 1
3555	Serge	2133	cmp [SCR_MODE], 0x12
2439	Serge	2134	jne @f
527	diamond	2135	call VGA_drawbackground
5201	serge	2136	@@:
527	diamond	2137	ret
5201	serge	2138
2434	Serge	2139	;------------------------------------------------------------------------------
5201	serge	2140
2434	Serge	2141	align 4
1	ha	2142	vesa20_drawbackground_stretch:
5201	serge	2143
527	diamond	2144	pushad
		2145	; Helper variables
5201	serge	2146	; calculate 2^32*(BgrDataWidth-1) mod (ScreenWidth-1)
527	diamond	2147	mov eax, [BgrDataWidth]
5201	serge	2148	dec eax
527	diamond	2149	xor edx, edx
5565	serge	2150	div dword [screen_workarea.right]
546	diamond	2151	push eax ; high
		2152	xor eax, eax
5565	serge	2153	div dword [screen_workarea.right]
546	diamond	2154	push eax ; low
5201	serge	2155
546	diamond	2156	; the same for height
527	diamond	2157	mov eax, [BgrDataHeight]
5201	serge	2158	dec eax
527	diamond	2159	xor edx, edx
5565	serge	2160	div dword [screen_workarea.bottom]
546	diamond	2161	push eax ; high
		2162	xor eax, eax
5565	serge	2163	div dword [screen_workarea.bottom]
546	diamond	2164	push eax ; low
5201	serge	2165
527	diamond	2166	; External loop for all y from start to end
		2167	mov ebx, [draw_data+32+RECT.top] ; y start
		2168	mov ebp, [draw_data+32+RECT.left] ; x start
		2169	; 1) Calculate pointers in WinMapAddress (does pixel belong to OS thread?) [ebp]
		2170	; and LFB data (output for our function) [edi]
2465	Serge	2171	; mov eax, [BytesPerScanLine]
		2172	; mul ebx
2987	Serge	2173	mov eax, [BPSLine_calc_area+ebx*4]
527	diamond	2174	xchg ebp, eax
		2175	add ebp, eax
		2176	add ebp, eax
5201	serge	2177	cmp byte [_display.bytes_per_pixel], 2
		2178	jz @f
527	diamond	2179	add ebp, eax
5201	serge	2180	cmp byte [_display.bytes_per_pixel], 3
527	diamond	2181	jz @f
		2182	add ebp, eax
5201	serge	2183	@@:
		2184
469	serge	2185	; ebp:=YBytesPerScanLine+XBytesPerPixel+AddrLFB
527	diamond	2186	call calculate_edi
		2187	xchg edi, ebp
5201	serge	2188
527	diamond	2189	; Now eax=x, ebx=y, edi->output, ebp=offset in WinMapAddress
		2190	push ebx
546	diamond	2191	push eax
527	diamond	2192	; 2) Calculate offset in background memory block
		2193	mov eax, ebx
546	diamond	2194	imul ebx, dword [esp+12]
		2195	mul dword [esp+8]
755	diamond	2196	add edx, ebx ; edx:eax = y * 2^32*(BgrDataHeight-1)/(ScreenHeight-1)
546	diamond	2197	mov esi, edx
		2198	imul esi, [BgrDataWidth]
		2199	push edx
527	diamond	2200	push eax
546	diamond	2201	mov eax, [esp+8]
		2202	mul dword [esp+28]
		2203	push eax
		2204	mov eax, [esp+12]
		2205	mul dword [esp+28]
		2206	add [esp], edx
755	diamond	2207	pop edx ; edx:eax = x * 2^32*(BgrDataWidth-1)/(ScreenWidth-1)
546	diamond	2208	add esi, edx
527	diamond	2209	lea esi, [esi*3]
		2210	add esi, [img_background]
555	diamond	2211	push eax
		2212	push edx
		2213	push esi
5201	serge	2214
555	diamond	2215	; 3) Smooth horizontal
5201	serge	2216	bgr_resmooth0:
555	diamond	2217	mov ecx, [esp+8]
		2218	mov edx, [esp+4]
		2219	mov esi, [esp]
		2220	push edi
		2221	mov edi, bgr_cur_line
		2222	call smooth_line
5201	serge	2223
		2224	bgr_resmooth1:
559	diamond	2225	mov eax, [esp+16+4]
		2226	inc eax
		2227	cmp eax, [BgrDataHeight]
		2228	jae bgr.no2nd
555	diamond	2229	mov ecx, [esp+8+4]
		2230	mov edx, [esp+4+4]
		2231	mov esi, [esp+4]
		2232	add esi, [BgrDataWidth]
		2233	add esi, [BgrDataWidth]
		2234	add esi, [BgrDataWidth]
		2235	mov edi, bgr_next_line
		2236	call smooth_line
5201	serge	2237
		2238	bgr.no2nd:
555	diamond	2239	pop edi
5201	serge	2240
		2241	sdp3:
555	diamond	2242	xor esi, esi
		2243	mov ecx, [esp+12]
5201	serge	2244
555	diamond	2245	; 4) Loop through redraw rectangle and copy background data
527	diamond	2246	; Registers meaning:
555	diamond	2247	; esi = offset in current line, edi -> output
527	diamond	2248	; ebp = offset in WinMapAddress
555	diamond	2249	; dword [esp] = offset in bgr data
755	diamond	2250	; qword [esp+4] = x * 2^32 * (BgrDataWidth-1) / (ScreenWidth-1)
		2251	; qword [esp+12] = y * 2^32 * (BgrDataHeight-1) / (ScreenHeight-1)
536	diamond	2252	; dword [esp+20] = x
546	diamond	2253	; dword [esp+24] = y
527	diamond	2254	; precalculated constants:
755	diamond	2255	; qword [esp+28] = 2^32*(BgrDataHeight-1)/(ScreenHeight-1)
		2256	; qword [esp+36] = 2^32*(BgrDataWidth-1)/(ScreenWidth-1)
5201	serge	2257
		2258	sdp3a:
5565	serge	2259	mov eax, [_display.win_map]
1300	serge	2260	cmp [ebp+eax], byte 1
527	diamond	2261	jnz snbgp
555	diamond	2262	mov eax, [bgr_cur_line+esi]
546	diamond	2263	test ecx, ecx
		2264	jz .novert
555	diamond	2265	mov ebx, [bgr_next_line+esi]
		2266	call [overlapping_of_points_ptr]
5201	serge	2267
		2268	.novert:
2434	Serge	2269	push ecx
2465	Serge	2270	; check for hardware cursor
		2271	cmp [_display.select_cursor], select_cursor
		2272	je @f
		2273	cmp [_display.select_cursor], 0
		2274	jne .no_mouseunder
5201	serge	2275	@@:
2434	Serge	2276	mov ecx, [esp+20+4] ;x
		2277	shl ecx, 16
		2278	add ecx, [esp+24+4] ;y
		2279	; check mouse area for putpixel
		2280	call [_display.check_mouse]
5201	serge	2281	.no_mouseunder:
		2282
		2283	cmp [_display.bits_per_pixel], 16
		2284	jne .not_16bpp
		2285	; convert to 16 bpp and store to LFB
		2286	and eax, 00000000111110001111110011111000b
		2287	shr ah, 2
		2288	shr ax, 3
		2289	ror eax, 8
		2290	add al, ah
		2291	rol eax, 8
1300	serge	2292	mov [LFB_BASE+edi], ax
5201	serge	2293	pop ecx
		2294	jmp snbgp
		2295	.not_16bpp:
		2296
		2297	; store to LFB
		2298	mov [LFB_BASE+edi], ax
527	diamond	2299	shr eax, 16
1300	serge	2300	mov [LFB_BASE+edi+2], al
2434	Serge	2301	pop ecx
5201	serge	2302
		2303	snbgp:
		2304	add edi, [_display.bytes_per_pixel]
527	diamond	2305	add ebp, 1
536	diamond	2306	mov eax, [esp+20]
527	diamond	2307	add eax, 1
536	diamond	2308	mov [esp+20], eax
555	diamond	2309	add esi, 4
527	diamond	2310	cmp eax, [draw_data+32+RECT.right]
555	diamond	2311	jbe sdp3a
5201	serge	2312
		2313	sdp4:
527	diamond	2314	; next y
546	diamond	2315	mov ebx, [esp+24]
527	diamond	2316	add ebx, 1
546	diamond	2317	mov [esp+24], ebx
527	diamond	2318	cmp ebx, [draw_data+32+RECT.bottom]
		2319	ja sdpdone
5201	serge	2320
527	diamond	2321	; advance edi, ebp to next scan line
		2322	sub eax, [draw_data+32+RECT.left]
		2323	sub ebp, eax
5565	serge	2324	add ebp, [_display.width]
527	diamond	2325	sub edi, eax
		2326	sub edi, eax
5201	serge	2327	cmp byte [_display.bytes_per_pixel], 2
		2328	jz @f
527	diamond	2329	sub edi, eax
5201	serge	2330	cmp byte [_display.bytes_per_pixel], 3
527	diamond	2331	jz @f
		2332	sub edi, eax
5201	serge	2333
		2334	@@:
5565	serge	2335	add edi, [_display.lfb_pitch]
527	diamond	2336	; restore ecx,edx; advance esi to next background line
546	diamond	2337	mov eax, [esp+28]
		2338	mov ebx, [esp+32]
		2339	add [esp+12], eax
		2340	mov eax, [esp+16]
		2341	adc [esp+16], ebx
555	diamond	2342	sub eax, [esp+16]
		2343	mov ebx, eax
546	diamond	2344	lea eax, [eax*3]
		2345	imul eax, [BgrDataWidth]
555	diamond	2346	sub [esp], eax
527	diamond	2347	mov eax, [draw_data+32+RECT.left]
536	diamond	2348	mov [esp+20], eax
555	diamond	2349	test ebx, ebx
		2350	jz sdp3
		2351	cmp ebx, -1
		2352	jnz bgr_resmooth0
		2353	push edi
		2354	mov esi, bgr_next_line
		2355	mov edi, bgr_cur_line
5565	serge	2356	mov ecx, [_display.width]
2434	Serge	2357	rep movsd
555	diamond	2358	jmp bgr_resmooth1
5201	serge	2359
		2360	sdpdone:
546	diamond	2361	add esp, 44
527	diamond	2362	popad
2434	Serge	2363	mov [EGA_counter], 1
3555	Serge	2364	cmp [SCR_MODE], 0x12
2439	Serge	2365	jne @f
527	diamond	2366	call VGA_drawbackground
5201	serge	2367	@@:
527	diamond	2368	ret
1	ha	2369
2434	Serge	2370	;--------------------------------------
5201	serge	2371
555	diamond	2372	align 4
		2373	smooth_line:
		2374	mov al, [esi+2]
		2375	shl eax, 16
		2376	mov ax, [esi]
		2377	test ecx, ecx
		2378	jz @f
		2379	mov ebx, [esi+2]
		2380	shr ebx, 8
		2381	call [overlapping_of_points_ptr]
5201	serge	2382	@@:
555	diamond	2383	stosd
		2384	mov eax, [esp+20+8]
		2385	add eax, 1
		2386	mov [esp+20+8], eax
		2387	cmp eax, [draw_data+32+RECT.right]
		2388	ja @f
		2389	add ecx, [esp+36+8]
		2390	mov eax, edx
		2391	adc edx, [esp+40+8]
		2392	sub eax, edx
		2393	lea eax, [eax*3]
		2394	sub esi, eax
		2395	jmp smooth_line
5201	serge	2396	@@:
555	diamond	2397	mov eax, [draw_data+32+RECT.left]
		2398	mov [esp+20+8], eax
		2399	ret
5201	serge	2400
2434	Serge	2401	;------------------------------------------------------------------------------
5201	serge	2402
555	diamond	2403	align 16
379	serge	2404	overlapping_of_points:
555	diamond	2405	if 0
		2406	; this version of procedure works, but is slower than next version
546	diamond	2407	push ecx edx
		2408	mov edx, eax
		2409	push esi
		2410	shr ecx, 24
		2411	mov esi, ecx
		2412	mov ecx, ebx
		2413	movzx ebx, dl
527	diamond	2414	movzx eax, cl
546	diamond	2415	sub eax, ebx
527	diamond	2416	movzx ebx, dh
546	diamond	2417	imul eax, esi
		2418	add dl, ah
527	diamond	2419	movzx eax, ch
546	diamond	2420	sub eax, ebx
		2421	imul eax, esi
		2422	add dh, ah
		2423	ror ecx, 16
		2424	ror edx, 16
		2425	movzx eax, cl
		2426	movzx ebx, dl
		2427	sub eax, ebx
		2428	imul eax, esi
		2429	pop esi
		2430	add dl, ah
		2431	mov eax, edx
		2432	pop edx
527	diamond	2433	ror eax, 16
546	diamond	2434	pop ecx
527	diamond	2435	ret
555	diamond	2436	else
		2437	push ecx edx
		2438	mov edx, eax
		2439	push esi
		2440	shr ecx, 26
		2441	mov esi, ecx
		2442	mov ecx, ebx
		2443	shl esi, 9
		2444	movzx ebx, dl
		2445	movzx eax, cl
		2446	sub eax, ebx
		2447	movzx ebx, dh
		2448	add dl, [BgrAuxTable+(eax+0x100)+esi]
		2449	movzx eax, ch
		2450	sub eax, ebx
		2451	add dh, [BgrAuxTable+(eax+0x100)+esi]
		2452	ror ecx, 16
		2453	ror edx, 16
		2454	movzx eax, cl
		2455	movzx ebx, dl
		2456	sub eax, ebx
		2457	add dl, [BgrAuxTable+(eax+0x100)+esi]
		2458	pop esi
		2459	mov eax, edx
		2460	pop edx
		2461	ror eax, 16
		2462	pop ecx
		2463	ret
		2464	end if
		2465
5201	serge	2466
2434	Serge	2467	;------------------------------------------------------------------------------
5201	serge	2468
2434	Serge	2469	align 4
555	diamond	2470	init_background:
5201	serge	2471
555	diamond	2472	mov edi, BgrAuxTable
		2473	xor edx, edx
5201	serge	2474
		2475	.loop2:
555	diamond	2476	mov eax, edx
		2477	shl eax, 8
		2478	neg eax
		2479	mov ecx, 0x200
5201	serge	2480
		2481	.loop1:
555	diamond	2482	mov byte [edi], ah
		2483	inc edi
		2484	add eax, edx
		2485	loop .loop1
		2486	add dl, 4
		2487	jnz .loop2
564	diamond	2488	test byte [cpu_caps+(CAPS_MMX/8)], 1 shl (CAPS_MMX mod 8)
555	diamond	2489	jz @f
		2490	mov [overlapping_of_points_ptr], overlapping_of_points_mmx
5201	serge	2491	@@:
555	diamond	2492	ret
5201	serge	2493
2434	Serge	2494	;------------------------------------------------------------------------------
5201	serge	2495
555	diamond	2496	align 16
		2497	overlapping_of_points_mmx:
5201	serge	2498
555	diamond	2499	movd mm0, eax
		2500	movd mm4, eax
		2501	movd mm1, ebx
		2502	pxor mm2, mm2
		2503	punpcklbw mm0, mm2
		2504	punpcklbw mm1, mm2
		2505	psubw mm1, mm0
		2506	movd mm3, ecx
		2507	psrld mm3, 24
		2508	packuswb mm3, mm3
		2509	packuswb mm3, mm3
		2510	pmullw mm1, mm3
		2511	psrlw mm1, 8
		2512	packuswb mm1, mm2
		2513	paddb mm4, mm1
		2514	movd eax, mm4
5201	serge	2515
555	diamond	2516	ret
5201	serge	2517
2434	Serge	2518	;------------------------------------------------------------------------------

Subversion Repositories Kolibri OS

(root)/kernel/branches/Kolibri-acpi/video/vesa20.inc – Rev 5596