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

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

Subversion Repositories Kolibri OS

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