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

Rev	Author	Line No.	Line
2288	clevermous	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
5363	yogev_ezra	3	;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
2288	clevermous	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	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		19
		20	$Revision: 8869 $
		21
5154	hidnplayr	22	uglobal
		23	align 4
7522	dunkaist	24	bgr_cur_line rd MAX_SCREEN_WIDTH
		25	bgr_next_line rd MAX_SCREEN_WIDTH
5154	hidnplayr	26	endg
2288	clevermous	27
5154	hidnplayr	28	iglobal
		29	align 4
		30	overlapping_of_points_ptr dd overlapping_of_points
		31	endg
2288	clevermous	32
		33
5154	hidnplayr	34	;-----------------------------------------------------------------------------
		35	; eax = x
		36	; ebx = y
2288	clevermous	37
5154	hidnplayr	38	align 4
		39	Vesa20_getpixel16:
2288	clevermous	40
5154	hidnplayr	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
2288	clevermous	70	ret
5154	hidnplayr	71
2430	mario79	72	;-----------------------------------------------------------------------------
5154	hidnplayr	73	; eax = x
		74	; ebx = y
		75
2430	mario79	76	align 4
2288	clevermous	77	Vesa20_getpixel24:
5154	hidnplayr	78
		79	; check for hardware cursor
2451	mario79	80	cmp [_display.select_cursor], select_cursor
		81	je @f
2448	mario79	82	cmp [_display.select_cursor], 0
		83	jne .no_mouseunder
5154	hidnplayr	84	@@:
		85
		86	; check mouse area for putpixel
		87	test ecx, 0x04000000 ; don't load to mouseunder area
2430	mario79	88	jnz .no_mouseunder
		89	call [_display.check_m_pixel]
5154	hidnplayr	90	test ecx, ecx ; 0xff000000
2430	mario79	91	jnz @f
5154	hidnplayr	92
		93	.no_mouseunder:
2446	mario79	94	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2480	mario79	95	mov ebx, [BPSLine_calc_area+ebx*4]
5154	hidnplayr	96	lea edi, [eax+eax2] ; edi = x3
		97	add edi, ebx ; edi = x3+(yy multiplier)
		98
2288	clevermous	99	mov ecx, [LFB_BASE+edi]
5154	hidnplayr	100	@@:
		101	and ecx, 0x00ffffff
2288	clevermous	102	ret
5154	hidnplayr	103
2430	mario79	104	;-----------------------------------------------------------------------------
5154	hidnplayr	105	; eax = x
		106	; ebx = y
		107
2430	mario79	108	align 4
2288	clevermous	109	Vesa20_getpixel32:
5154	hidnplayr	110
		111	; check for hardware cursor
2451	mario79	112	cmp [_display.select_cursor], select_cursor
		113	je @f
2448	mario79	114	cmp [_display.select_cursor], 0
		115	jne .no_mouseunder
5154	hidnplayr	116	@@:
		117
		118	; check mouse area for putpixel
		119	test ecx, 0x04000000 ; don't load to mouseunder area
2430	mario79	120	jnz .no_mouseunder
		121	call [_display.check_m_pixel]
5154	hidnplayr	122	test ecx, ecx ; 0xff000000
2430	mario79	123	jnz @f
5154	hidnplayr	124
		125	.no_mouseunder:
2446	mario79	126	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2480	mario79	127	mov ebx, [BPSLine_calc_area+ebx*4]
5154	hidnplayr	128	lea edi, [ebx+eax4] ; edi = x4+(y*y multiplier)
		129
2288	clevermous	130	mov ecx, [LFB_BASE+edi]
5154	hidnplayr	131	@@:
		132	and ecx, 0x00ffffff
2288	clevermous	133	ret
5154	hidnplayr	134
2430	mario79	135	;-----------------------------------------------------------------------------
5154	hidnplayr	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
2288	clevermous	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 ?
2430	mario79	160	.real_sx_and_abs_cx dd ?
		161	.real_sy_and_abs_cy dd ?
		162	.stack_data = 4*14
2288	clevermous	163	.edi dd ?
		164	.esi dd ?
		165	.ebp dd ?
		166	.esp dd ?
		167	.ebx dd ?
		168	.edx dd ?
		169	.ecx dd ?
		170	.eax dd ?
		171	.ret_addr dd ?
		172	.arg_0 dd ?
		173	end virtual
5154	hidnplayr	174
2288	clevermous	175	pushad
		176	sub esp, putimg.stack_data
		177	; save pointer to image
		178	mov [putimg.pti], ebx
		179	; unpack the size
		180	mov eax, ecx
		181	and ecx, 0xFFFF
		182	shr eax, 16
		183	mov [putimg.image_sx], eax
		184	mov [putimg.image_sy], ecx
		185	; unpack the coordinates
		186	mov eax, edx
		187	and edx, 0xFFFF
		188	shr eax, 16
		189	mov [putimg.image_cx], eax
		190	mov [putimg.image_cy], edx
		191	; calculate absolute (i.e. screen) coordinates
		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
		199	; real_sx = MIN(wnd_sx-image_cx, image_sx);
5154	hidnplayr	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
2288	clevermous	202	sub ebx, [putimg.image_cx]
		203	ja @f
		204	add esp, putimg.stack_data
		205	popad
		206	ret
5154	hidnplayr	207
		208	@@:
2288	clevermous	209	cmp ebx, [putimg.image_sx]
		210	jbe .end_x
		211	mov ebx, [putimg.image_sx]
5154	hidnplayr	212	.end_x:
2288	clevermous	213	mov [putimg.real_sx], ebx
		214	; init real_sy
5154	hidnplayr	215	mov ebx, [eax-twdw + WDATA.box.height] ; ebx = wnd_sy
2288	clevermous	216	inc ebx
		217	sub ebx, [putimg.image_cy]
		218	ja @f
		219	add esp, putimg.stack_data
		220	popad
		221	ret
5154	hidnplayr	222
		223	@@:
2288	clevermous	224	cmp ebx, [putimg.image_sy]
		225	jbe .end_y
		226	mov ebx, [putimg.image_sy]
5154	hidnplayr	227	.end_y:
2288	clevermous	228	mov [putimg.real_sy], ebx
		229	; line increment
		230	mov eax, [putimg.image_sx]
		231	mov ecx, [putimg.real_sx]
		232	sub eax, ecx
		233	;; imul eax, [putimg.source_bpp]
		234	; lea eax, [eax + eax * 2]
		235	call esi
		236	add eax, [putimg.arg_0]
		237	mov [putimg.line_increment], eax
		238	; winmap new line increment
5350	serge	239	mov eax, [_display.width]
2288	clevermous	240	sub eax, [putimg.real_sx]
		241	mov [putimg.winmap_newline], eax
		242	; screen new line increment
5351	serge	243	mov eax, [_display.lfb_pitch]
5154	hidnplayr	244	mov ebx, [_display.bytes_per_pixel]
2288	clevermous	245	imul ecx, ebx
		246	sub eax, ecx
		247	mov [putimg.screen_newline], eax
		248	; pointer to image
		249	mov esi, [putimg.pti]
		250	; pointer to screen
		251	mov edx, [putimg.abs_cy]
2446	mario79	252	; imul edx, [BytesPerScanLine]
2480	mario79	253	mov edx, [BPSLine_calc_area+edx*4]
2288	clevermous	254	mov eax, [putimg.abs_cx]
		255	imul eax, ebx
		256	add edx, eax
		257	; pointer to pixel map
		258	mov eax, [putimg.abs_cy]
2446	mario79	259	; imul eax, [Screen_Max_X]
		260	; add eax, [putimg.abs_cy]
		261	mov eax, [d_width_calc_area + eax*4]
		262
2288	clevermous	263	add eax, [putimg.abs_cx]
5351	serge	264	add eax, [_display.win_map]
2288	clevermous	265	xchg eax, ebp
5154	hidnplayr	266
2430	mario79	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
5154	hidnplayr	273
2288	clevermous	274	; get process number
8869	rgimad	275	mov ebx, [current_slot_idx]
5154	hidnplayr	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
2288	clevermous	282	je put_image_end_32
5154	hidnplayr	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
2435	mario79	484	put_image_end_24:
5154	hidnplayr	485
2288	clevermous	486	mov edi, [putimg.real_sy]
5154	hidnplayr	487
2453	mario79	488	; check for hardware cursor
2455	mario79	489	mov ecx, [_display.select_cursor]
		490	cmp ecx, select_cursor
		491	je put_image_end_24_new
		492	cmp ecx, 0
2453	mario79	493	je put_image_end_24_old
5154	hidnplayr	494	.new_line:
2288	clevermous	495	mov ecx, [putimg.real_sx]
5154	hidnplayr	496	.new_x:
2288	clevermous	497	push [putimg.edi]
		498	mov eax, [putimg.ebp+4]
		499	call eax
		500	cmp [ebp], bl
		501	jne .skip
5154	hidnplayr	502
		503	; store to LFB
2453	mario79	504	mov [LFB_BASE+edx], ax
		505	shr eax, 16
		506	mov [LFB_BASE+edx+2], al
5154	hidnplayr	507
		508	.skip:
2453	mario79	509	add edx, 3
		510	inc ebp
		511	dec ecx
		512	jnz .new_x
		513
		514	add esi, [putimg.line_increment]
5154	hidnplayr	515	add edx, [putimg.screen_newline]
		516	add ebp, [putimg.winmap_newline]
2453	mario79	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
5154	hidnplayr	524	.correct:
2453	mario79	525	mov eax, [putimg.edi]
		526	mov byte [eax], 80h
5154	hidnplayr	527	@@:
2453	mario79	528	dec edi
		529	jnz .new_line
5154	hidnplayr	530	.finish:
2453	mario79	531	add esp, putimg.stack_data
		532	popad
		533	ret
5154	hidnplayr	534
2453	mario79	535	;------------------------------------------------------------------------------
5154	hidnplayr	536
2453	mario79	537	align 4
		538	put_image_end_24_old:
5154	hidnplayr	539
		540	.new_line:
2453	mario79	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
5154	hidnplayr	550
2430	mario79	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
2435	mario79	559	call check_mouse_area_for_putpixel
2430	mario79	560	pop ecx
5154	hidnplayr	561	; store to LFB
2288	clevermous	562	mov [LFB_BASE+edx], ax
		563	shr eax, 16
		564	mov [LFB_BASE+edx+2], al
5154	hidnplayr	565
		566	.skip:
2288	clevermous	567	add edx, 3
		568	inc ebp
		569	dec ecx
		570	jnz .new_x
2435	mario79	571
2288	clevermous	572	add esi, [putimg.line_increment]
5154	hidnplayr	573	add edx, [putimg.screen_newline]
		574	add ebp, [putimg.winmap_newline]
2435	mario79	575
2288	clevermous	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
5154	hidnplayr	582
		583	.correct:
2288	clevermous	584	mov eax, [putimg.edi]
		585	mov byte [eax], 80h
5154	hidnplayr	586
		587	@@:
2288	clevermous	588	dec edi
		589	jnz .new_line
2453	mario79	590	jmp put_image_end_24.finish
5154	hidnplayr	591
2453	mario79	592	;------------------------------------------------------------------------------
5154	hidnplayr	593
2430	mario79	594	align 4
2435	mario79	595	put_image_end_24_new:
5154	hidnplayr	596
		597	.new_line:
2435	mario79	598	mov ecx, [putimg.real_sx]
5154	hidnplayr	599
		600	.new_x:
2435	mario79	601	push [putimg.edi]
		602	mov eax, [putimg.ebp+4]
		603	call eax
		604	cmp [ebp], bl
		605	jne .skip
5154	hidnplayr	606
2435	mario79	607	push ecx
5154	hidnplayr	608	.sh:
2575	mario79	609	neg ecx
		610	add ecx, [putimg.real_sx_and_abs_cx + 4]
5154	hidnplayr	611
2575	mario79	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]
2435	mario79	622	sub ecx, edi
5154	hidnplayr	623
2435	mario79	624	; check for Y
		625	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		626	jae .no_mouse_area
		627
2575	mario79	628	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
2435	mario79	629	jb .no_mouse_area
5154	hidnplayr	630
2435	mario79	631	; check mouse area for putpixel
		632	call check_mouse_area_for_putpixel_new.1
5154	hidnplayr	633	cmp ecx, -1 ; SHIT HAPPENS?
2575	mario79	634	jne .no_mouse_area
		635
		636	mov ecx, [esp]
		637	jmp .sh
5154	hidnplayr	638
		639	.no_mouse_area:
2435	mario79	640	pop ecx
5154	hidnplayr	641
		642	; store to LFB
2435	mario79	643	mov [LFB_BASE+edx], ax
		644	shr eax, 16
		645	mov [LFB_BASE+edx+2], al
5154	hidnplayr	646
		647	.skip:
2435	mario79	648	add edx, 3
		649	inc ebp
		650	dec ecx
		651	jnz .new_x
		652
		653	add esi, [putimg.line_increment]
5154	hidnplayr	654	add edx, [putimg.screen_newline]
		655	add ebp, [putimg.winmap_newline]
2435	mario79	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
5154	hidnplayr	663
		664	.correct:
2435	mario79	665	mov eax, [putimg.edi]
		666	mov byte [eax], 80h
5154	hidnplayr	667
		668	@@:
2435	mario79	669	dec edi
		670	jnz .new_line
		671	jmp put_image_end_24.finish
5154	hidnplayr	672
2430	mario79	673	;------------------------------------------------------------------------------
5154	hidnplayr	674
2430	mario79	675	align 4
2288	clevermous	676	put_image_end_32:
5154	hidnplayr	677
2288	clevermous	678	mov edi, [putimg.real_sy]
5154	hidnplayr	679
2453	mario79	680	; check for hardware cursor
2455	mario79	681	mov ecx, [_display.select_cursor]
		682	cmp ecx, select_cursor
		683	je put_image_end_32_new
		684	cmp ecx, 0
2453	mario79	685	je put_image_end_32_old
5154	hidnplayr	686
		687	.new_line:
2288	clevermous	688	mov ecx, [putimg.real_sx]
5154	hidnplayr	689
		690	.new_x:
2288	clevermous	691	push [putimg.edi]
		692	mov eax, [putimg.ebp+4]
		693	call eax
		694	cmp [ebp], bl
		695	jne .skip
5154	hidnplayr	696
		697	; store to LFB
2288	clevermous	698	mov [LFB_BASE+edx], eax
5154	hidnplayr	699
		700	.skip:
2288	clevermous	701	add edx, 4
		702	inc ebp
		703	dec ecx
		704	jnz .new_x
2435	mario79	705
2288	clevermous	706	add esi, [putimg.line_increment]
5154	hidnplayr	707	add edx, [putimg.screen_newline]
		708	add ebp, [putimg.winmap_newline]
2435	mario79	709
2288	clevermous	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
5154	hidnplayr	716
		717	.correct:
2288	clevermous	718	mov eax, [putimg.edi]
		719	mov byte [eax], 80h
5154	hidnplayr	720
		721	@@:
2288	clevermous	722	dec edi
		723	jnz .new_line
5154	hidnplayr	724
		725	.finish:
2288	clevermous	726	add esp, putimg.stack_data
		727	popad
3606	Serge	728	cmp [SCR_MODE], 0x12
2436	mario79	729	jne @f
2288	clevermous	730	call VGA__putimage
5154	hidnplayr	731	@@:
2288	clevermous	732	mov [EGA_counter], 1
		733	ret
5154	hidnplayr	734
2453	mario79	735	;------------------------------------------------------------------------------
5154	hidnplayr	736
2453	mario79	737	align 4
		738	put_image_end_32_old:
5154	hidnplayr	739
		740	.new_line:
2453	mario79	741	mov ecx, [putimg.real_sx]
5154	hidnplayr	742	.new_x:
2453	mario79	743	push [putimg.edi]
		744	mov eax, [putimg.ebp+4]
		745	call eax
		746	cmp [ebp], bl
		747	jne .skip
5154	hidnplayr	748
2453	mario79	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
5154	hidnplayr	759	; store to LFB
2453	mario79	760	mov [LFB_BASE+edx], eax
5154	hidnplayr	761
		762	.skip:
2453	mario79	763	add edx, 4
		764	inc ebp
		765	dec ecx
		766	jnz .new_x
		767
		768	add esi, [putimg.line_increment]
5154	hidnplayr	769	add edx, [putimg.screen_newline]
		770	add ebp, [putimg.winmap_newline]
2453	mario79	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
5154	hidnplayr	778
		779	.correct:
2453	mario79	780	mov eax, [putimg.edi]
		781	mov byte [eax], 80h
5154	hidnplayr	782
		783	@@:
2453	mario79	784	dec edi
		785	jnz .new_line
		786	jmp put_image_end_32.finish
5154	hidnplayr	787
2453	mario79	788	;------------------------------------------------------------------------------
5154	hidnplayr	789
2453	mario79	790	align 4
2435	mario79	791	put_image_end_32_new:
5154	hidnplayr	792
		793	.new_line:
2435	mario79	794	mov ecx, [putimg.real_sx]
5154	hidnplayr	795
		796	.new_x:
2435	mario79	797	push [putimg.edi]
		798	mov eax, [putimg.ebp+4]
		799	call eax
		800	cmp [ebp], bl
		801	jne .skip
5154	hidnplayr	802
2435	mario79	803	push ecx
5154	hidnplayr	804
		805	.sh:
2575	mario79	806	neg ecx
		807	add ecx, [putimg.real_sx_and_abs_cx + 4]
5154	hidnplayr	808
2575	mario79	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]
2435	mario79	817	sub ecx, edi
5154	hidnplayr	818
2435	mario79	819	; check for Y
		820	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		821	jae .no_mouse_area
2575	mario79	822	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
2435	mario79	823	jb .no_mouse_area
5154	hidnplayr	824
2435	mario79	825	; check mouse area for putpixel
		826	call check_mouse_area_for_putpixel_new.1
5154	hidnplayr	827	cmp ecx, -1 ; SHIT HAPPENS?
2575	mario79	828	jne .no_mouse_area
		829
		830	mov ecx, [esp]
		831	jmp .sh
5154	hidnplayr	832
		833	.no_mouse_area:
2435	mario79	834	pop ecx
5154	hidnplayr	835
		836	; store to LFB
2435	mario79	837	mov [LFB_BASE+edx], eax
5154	hidnplayr	838
		839	.skip:
2435	mario79	840	add edx, 4
		841	inc ebp
		842	dec ecx
		843	jnz .new_x
		844
		845	add esi, [putimg.line_increment]
5154	hidnplayr	846	add edx, [putimg.screen_newline]
		847	add ebp, [putimg.winmap_newline]
2435	mario79	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
5154	hidnplayr	855
		856	.correct:
2435	mario79	857	mov eax, [putimg.edi]
		858	mov byte [eax], 80h
5154	hidnplayr	859
		860	@@:
2435	mario79	861	dec edi
		862	jnz .new_line
		863	jmp put_image_end_32.finish
5154	hidnplayr	864
2430	mario79	865	;------------------------------------------------------------------------------
2288	clevermous	866	; eax = x coordinate
		867	; ebx = y coordinate
5154	hidnplayr	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)
2288	clevermous	872	; edi = 0x00000001 force
		873
5154	hidnplayr	874	align 4
		875	__sys_putpixel:
		876
2288	clevermous	877	pushad
5350	serge	878	cmp eax, [_display.width]
		879	jge .exit
		880	cmp ebx, [_display.height]
		881	jge .exit
5154	hidnplayr	882	test edi, 1 ; force ?
2288	clevermous	883	jnz .forced
		884
5154	hidnplayr	885	; not forced
2438	mario79	886	mov edx, [d_width_calc_area + ebx*4]
5351	serge	887	add edx, [_display.win_map]
2288	clevermous	888	movzx edx, byte [eax+edx]
8869	rgimad	889	cmp edx, [current_slot_idx]
2288	clevermous	890	jne .exit
5154	hidnplayr	891
		892	.forced:
		893	; check for color inversion
2288	clevermous	894	test ecx, 0x01000000
5154	hidnplayr	895	jz .no_inv
2430	mario79	896
5154	hidnplayr	897	push eax ebx edx edi
		898	call [GETPIXEL]
		899	pop edi edx ebx eax
		900
2288	clevermous	901	not ecx
2430	mario79	902	rol ecx, 8
		903	mov cl, [esp+32-8+3]
		904	ror ecx, 8
2288	clevermous	905	mov [esp+32-8], ecx
5154	hidnplayr	906	.no_inv:
		907	call [PUTPIXEL] ; call the real put_pixel function
		908	.exit:
2288	clevermous	909	popad
		910	ret
5154	hidnplayr	911
2430	mario79	912	;-----------------------------------------------------------------------------
5154	hidnplayr	913	; eax = x
		914	; ebx = y
		915
2288	clevermous	916	align 4
5154	hidnplayr	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	;-----------------------------------------------------------------------------
2288	clevermous	948	; eax = x
		949	; ebx = y
5154	hidnplayr	950
		951	align 4
		952	Vesa20_putpixel16_new:
		953
2430	mario79	954	mov ecx, eax
		955	shl ecx, 16
		956	mov cx, bx
		957
2446	mario79	958	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2480	mario79	959	mov ebx, [BPSLine_calc_area+ebx*4]
5154	hidnplayr	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]
2288	clevermous	1010	lea edi, [eax+eax2]; edi = x3
		1011	mov eax, [esp+32-8+4]
5154	hidnplayr	1012
2448	mario79	1013	; check for hardware cursor
		1014	cmp [_display.select_cursor], 0
		1015	jne @f
2430	mario79	1016	; check mouse area for putpixel
		1017	test eax, 0x04000000
		1018	jnz @f
2436	mario79	1019	call check_mouse_area_for_putpixel
5154	hidnplayr	1020	@@:
		1021
		1022	; store to LFB
2288	clevermous	1023	mov [LFB_BASE+ebx+edi], ax
		1024	shr eax, 16
		1025	mov [LFB_BASE+ebx+edi+2], al
2436	mario79	1026	ret
5154	hidnplayr	1027
2436	mario79	1028	;-----------------------------------------------------------------------------
5154	hidnplayr	1029	; eax = x
		1030	; ebx = y
		1031
2436	mario79	1032	align 4
		1033	Vesa20_putpixel24_new:
5154	hidnplayr	1034
2436	mario79	1035	mov ecx, eax
		1036	shl ecx, 16
		1037	mov cx, bx
		1038
2446	mario79	1039	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2480	mario79	1040	mov ebx, [BPSLine_calc_area+ebx*4]
2436	mario79	1041	lea edi, [eax+eax2]; edi = x3
		1042	mov eax, [esp+32-8+4]
5154	hidnplayr	1043
2448	mario79	1044	; check for hardware cursor
		1045	cmp [_display.select_cursor], select_cursor
		1046	jne @f
2436	mario79	1047	; check mouse area for putpixel
		1048	test eax, 0x04000000
		1049	jnz @f
5154	hidnplayr	1050
2436	mario79	1051	; check for Y
		1052	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		1053	jae @f
2575	mario79	1054	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		1055	jb @f
5154	hidnplayr	1056	rol ecx, 16
2575	mario79	1057
2436	mario79	1058	; check for X
		1059	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		1060	jae @f
2575	mario79	1061	sub cx, [X_UNDER_subtraction_CUR_hot_x]
		1062	jb @f
		1063	ror ecx, 16
		1064
2436	mario79	1065	call check_mouse_area_for_putpixel_new.1
5154	hidnplayr	1066	@@:
		1067	; store to LFB
2436	mario79	1068	mov [LFB_BASE+ebx+edi], ax
		1069	shr eax, 16
		1070	mov [LFB_BASE+ebx+edi+2], al
2288	clevermous	1071	ret
5154	hidnplayr	1072
2430	mario79	1073	;-----------------------------------------------------------------------------
5154	hidnplayr	1074	; eax = x
		1075	; ebx = y
		1076
2288	clevermous	1077	align 4
		1078	Vesa20_putpixel32:
5154	hidnplayr	1079
2430	mario79	1080	mov ecx, eax
		1081	shl ecx, 16
		1082	mov cx, bx
		1083
2446	mario79	1084	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2480	mario79	1085	mov ebx, [BPSLine_calc_area+ebx*4]
5154	hidnplayr	1086	lea edi, [ebx+eax4] ; edi = x4+(y*y multiplier)
		1087	mov eax, [esp+32-8+4] ; eax = color
		1088
2448	mario79	1089	; check for hardware cursor
		1090	cmp [_display.select_cursor], 0
		1091	jne @f
2430	mario79	1092	; check mouse area for putpixel
		1093	test eax, 0x04000000
		1094	jnz @f
2436	mario79	1095	call check_mouse_area_for_putpixel
5154	hidnplayr	1096	@@:
2430	mario79	1097	and eax, 0xffffff
5154	hidnplayr	1098	; store to LFB
2288	clevermous	1099	mov [LFB_BASE+edi], eax
2436	mario79	1100	ret
5154	hidnplayr	1101
2436	mario79	1102	;-----------------------------------------------------------------------------
5154	hidnplayr	1103	; eax = x
		1104	; ebx = y
		1105
2436	mario79	1106	align 4
		1107	Vesa20_putpixel32_new:
5154	hidnplayr	1108
2436	mario79	1109	mov ecx, eax
		1110	shl ecx, 16
		1111	mov cx, bx
		1112
2446	mario79	1113	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
2480	mario79	1114	mov ebx, [BPSLine_calc_area+ebx*4]
5154	hidnplayr	1115	lea edi, [ebx+eax4] ; edi = x4+(y*y multiplier)
		1116	mov eax, [esp+32-8+4] ; eax = color
		1117
2448	mario79	1118	; check for hardware cursor
		1119	cmp [_display.select_cursor], select_cursor
		1120	jne @f
2436	mario79	1121	; check mouse area for putpixel
		1122	test eax, 0x04000000
		1123	jnz @f
5154	hidnplayr	1124
2436	mario79	1125	; check for Y
		1126	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		1127	jae @f
2575	mario79	1128	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		1129	jb @f
5154	hidnplayr	1130	rol ecx, 16
2575	mario79	1131
2436	mario79	1132	; check for X
		1133	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
		1134	jae @f
2575	mario79	1135	sub cx, [X_UNDER_subtraction_CUR_hot_x]
		1136	jb @f
		1137	ror ecx, 16
		1138
2436	mario79	1139	call check_mouse_area_for_putpixel_new.1
5154	hidnplayr	1140	@@:
		1141	and eax, 0x00ffffff
		1142	; store to LFB
2436	mario79	1143	mov [LFB_BASE+edi], eax
2288	clevermous	1144	ret
5154	hidnplayr	1145
2430	mario79	1146	;-----------------------------------------------------------------------------
5154	hidnplayr	1147
2430	mario79	1148	align 4
2288	clevermous	1149	calculate_edi:
2446	mario79	1150	; mov edi, ebx
		1151	; imul edi, [Screen_Max_X]
		1152	; add edi, ebx
		1153	mov edi, [d_width_calc_area + ebx*4]
2288	clevermous	1154	add edi, eax
		1155	ret
5154	hidnplayr	1156
		1157
2430	mario79	1158	;-----------------------------------------------------------------------------
2288	clevermous	1159	; DRAWLINE
2430	mario79	1160	;-----------------------------------------------------------------------------
5154	hidnplayr	1161	; eax = x1 shl 16 + x2
		1162	; ebx = y1 shl 16 + y2
2288	clevermous	1163	; ecx = color
		1164	; edi = force ?
		1165
5154	hidnplayr	1166	align 4
		1167	__sys_draw_line:
		1168
2288	clevermous	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
5154	hidnplayr	1176	pusha
		1177
		1178	xor edx, edx ; clear edx
		1179	xor esi, esi ; unpack arguments
2288	clevermous	1180	xor ebp, ebp
5154	hidnplayr	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
2288	clevermous	1189	; checking x-axis...
5154	hidnplayr	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)
2288	clevermous	1195	call vline
5154	hidnplayr	1196	push edx ; necessary to rightly restore stack frame at .exit
2288	clevermous	1197	jmp .exit
5154	hidnplayr	1198
		1199	.x2lx1:
		1200	neg esi ; get esi absolute value
		1201
		1202	.no_vline:
2288	clevermous	1203	; checking y-axis...
5154	hidnplayr	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 ?
		1208	mov edx, [dl_x2] ; else (if y1=y2)
2288	clevermous	1209	call hline
		1210	jmp .exit
5154	hidnplayr	1211
		1212	.y2ly1:
		1213	neg ebp ; get ebp absolute value
		1214
		1215	.no_hline:
2288	clevermous	1216	cmp ebp, esi
5154	hidnplayr	1217	jle .x_rules ; \|y2-y1\| < \|x2-x1\| ?
		1218	cmp [dl_y2], ebx ; make sure y1 is at the begining
2288	clevermous	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
5154	hidnplayr	1227
		1228	.no_reverse1:
2288	clevermous	1229	mov eax, [dl_dx]
5154	hidnplayr	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)
		1233
2353	mario79	1234	; correction for the remainder of the division
		1235	shl edx, 1
		1236	cmp ebp, edx
		1237	jb @f
		1238	inc eax
5154	hidnplayr	1239	@@:
		1240	mov edx, ebp ; edx = counter (number of pixels to draw)
		1241	mov ebp, 1 shl 16 ; ebp = dy = 1.0
		1242	mov esi, eax ; esi = dx
2288	clevermous	1243	jmp .y_rules
5154	hidnplayr	1244	.x_rules:
		1245	cmp [dl_x2], eax ; make sure x1 is at the begining
2288	clevermous	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
5154	hidnplayr	1254	.no_reverse2:
2288	clevermous	1255	xor edx, edx
		1256	mov eax, [dl_dy]
5154	hidnplayr	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)
2353	mario79	1260	; correction for the remainder of the division
		1261	shl edx, 1
		1262	cmp esi, edx
		1263	jb @f
		1264	inc eax
5154	hidnplayr	1265	@@:
		1266	mov edx, esi ; edx = counter (number of pixels to draw)
		1267	mov esi, 1 shl 16 ; esi = dx = 1.0
		1268	mov ebp, eax ; ebp = dy
		1269
		1270	.y_rules:
2288	clevermous	1271	mov eax, [dl_x1]
		1272	mov ebx, [dl_y1]
		1273	shl eax, 16
		1274	shl ebx, 16
2455	mario79	1275
5154	hidnplayr	1276	and ecx, 0xFBFFFFFF ; negate 0x04000000 save to mouseunder area
		1277	.draw:
2288	clevermous	1278	push eax ebx
5154	hidnplayr	1279
2353	mario79	1280	; correction for the remainder of the division
		1281	test ah, 0x80
		1282	jz @f
		1283	add eax, 1 shl 16
5154	hidnplayr	1284	@@:
2288	clevermous	1285	shr eax, 16
2353	mario79	1286	; correction for the remainder of the division
		1287	test bh, 0x80
		1288	jz @f
		1289	add ebx, 1 shl 16
5154	hidnplayr	1290	@@:
2288	clevermous	1291	shr ebx, 16
5154	hidnplayr	1292	; and ecx, 0xFBFFFFFF ; negate 0x04000000 save to mouseunder area
2453	mario79	1293	; call [putpixel]
		1294	call __sys_putpixel
2288	clevermous	1295	pop ebx eax
		1296	add ebx, ebp ; y = y+dy
		1297	add eax, esi ; x = x+dx
		1298	dec edx
		1299	jnz .draw
		1300	; force last drawn pixel to be at (x2,y2)
		1301	mov eax, [dl_x2]
		1302	mov ebx, [dl_y2]
5154	hidnplayr	1303	; and ecx, 0xFBFFFFFF ;n egate 0x04000000 save to mouseunder area
2453	mario79	1304	; call [putpixel]
		1305	call __sys_putpixel
5154	hidnplayr	1306
		1307	.exit:
2288	clevermous	1308	add esp, 6*4
		1309	popa
2430	mario79	1310	; call [draw_pointer]
2288	clevermous	1311	ret
5154	hidnplayr	1312
2430	mario79	1313	;------------------------------------------------------------------------------
2288	clevermous	1314	; draw an horizontal line
		1315	; eax = x1
		1316	; edx = x2
		1317	; ebx = y
		1318	; ecx = color
		1319	; edi = force ?
5154	hidnplayr	1320
		1321	align 4
		1322	hline:
		1323
2288	clevermous	1324	push eax edx
		1325	cmp edx, eax ; make sure x2 is above x1
		1326	jge @f
		1327	xchg eax, edx
5154	hidnplayr	1328	@@:
2430	mario79	1329	and ecx, 0xFBFFFFFF ;negate 0x04000000 save to mouseunder area
5154	hidnplayr	1330	@@:
2453	mario79	1331	; call [putpixel]
		1332	call __sys_putpixel
2288	clevermous	1333	inc eax
		1334	cmp eax, edx
		1335	jle @b
		1336	pop edx eax
		1337	ret
5154	hidnplayr	1338
2430	mario79	1339	;------------------------------------------------------------------------------
2288	clevermous	1340	; draw a vertical line
		1341	; eax = x
		1342	; ebx = y1
		1343	; edx = y2
		1344	; ecx = color
		1345	; edi = force ?
5154	hidnplayr	1346
		1347	align 4
		1348	vline:
		1349
2288	clevermous	1350	push ebx edx
		1351	cmp edx, ebx ; make sure y2 is above y1
		1352	jge @f
		1353	xchg ebx, edx
5154	hidnplayr	1354	@@:
2430	mario79	1355	and ecx, 0xFBFFFFFF ;negate 0x04000000 save to mouseunder area
5154	hidnplayr	1356	@@:
2453	mario79	1357	; call [putpixel]
		1358	call __sys_putpixel
2288	clevermous	1359	inc ebx
		1360	cmp ebx, edx
		1361	jle @b
		1362	pop edx ebx
		1363	ret
5154	hidnplayr	1364
2430	mario79	1365	;------------------------------------------------------------------------------
5154	hidnplayr	1366	; eax cx
		1367	; ebx cy
		1368	; ecx xe
		1369	; edx ye
		1370	; edi color
		1371
2430	mario79	1372	align 4
5154	hidnplayr	1373	vesa20_drawbar:
		1374
2288	clevermous	1375	virtual at esp
		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 ?
2430	mario79	1388	.real_sx_and_abs_cx dd ?
		1389	.real_sy_and_abs_cy dd ?
		1390	.stack_data = 4*13
2288	clevermous	1391	end virtual
5154	hidnplayr	1392
2288	clevermous	1393	pushad
		1394	sub esp, drbar.stack_data
		1395	mov [drbar.color], edi
		1396	sub edx, ebx
5154	hidnplayr	1397	jle .exit
2288	clevermous	1398	sub ecx, eax
5154	hidnplayr	1399	jle .exit
2288	clevermous	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]
5154	hidnplayr	1405	add eax, [edi-twdw + WDATA.box.left] ; win_cx
		1406	add ebx, [edi-twdw + WDATA.box.top] ; win_cy
2288	clevermous	1407	mov [drbar.abs_cx], eax
		1408	mov [drbar.abs_cy], ebx
		1409	; real_sx = MIN(wnd_sx-bar_cx, bar_sx);
5154	hidnplayr	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
2288	clevermous	1412	sub ebx, [drbar.bar_cx]
		1413	ja @f
5154	hidnplayr	1414	.exit:
2288	clevermous	1415	add esp, drbar.stack_data
		1416	popad
		1417	xor eax, eax
		1418	inc eax
		1419	ret
5154	hidnplayr	1420	@@:
2288	clevermous	1421	cmp ebx, [drbar.bar_sx]
		1422	jbe .end_x
		1423	mov ebx, [drbar.bar_sx]
5154	hidnplayr	1424	.end_x:
2288	clevermous	1425	mov [drbar.real_sx], ebx
		1426	; real_sy = MIN(wnd_sy-bar_cy, bar_sy);
5154	hidnplayr	1427	mov ebx, [edi-twdw + WDATA.box.height] ; ebx = wnd_sy
2288	clevermous	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
5154	hidnplayr	1436	@@:
2288	clevermous	1437	cmp ebx, [drbar.bar_sy]
		1438	jbe .end_y
		1439	mov ebx, [drbar.bar_sy]
5154	hidnplayr	1440	.end_y:
2288	clevermous	1441	mov [drbar.real_sy], ebx
		1442	; line_inc_map
5350	serge	1443	mov eax, [_display.width]
2288	clevermous	1444	sub eax, [drbar.real_sx]
		1445	mov [drbar.line_inc_map], eax
		1446	; line_inc_scr
		1447	mov eax, [drbar.real_sx]
5154	hidnplayr	1448	mov ebx, [_display.bytes_per_pixel]
2288	clevermous	1449	imul eax, ebx
		1450	neg eax
5351	serge	1451	add eax, [_display.lfb_pitch]
2288	clevermous	1452	mov [drbar.line_inc_scr], eax
		1453	; pointer to screen
		1454	mov edx, [drbar.abs_cy]
2446	mario79	1455	; imul edx, [BytesPerScanLine]
2480	mario79	1456	mov edx, [BPSLine_calc_area+edx*4]
2288	clevermous	1457	mov eax, [drbar.abs_cx]
		1458	imul eax, ebx
		1459	add edx, eax
		1460	; pointer to pixel map
		1461	mov eax, [drbar.abs_cy]
2446	mario79	1462	; imul eax, [Screen_Max_X]
		1463	; add eax, [drbar.abs_cy]
		1464	mov eax, [d_width_calc_area + eax*4]
		1465
2288	clevermous	1466	add eax, [drbar.abs_cx]
5351	serge	1467	add eax, [_display.win_map]
2288	clevermous	1468	xchg eax, ebp
5154	hidnplayr	1469
2430	mario79	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
5154	hidnplayr	1478
2288	clevermous	1479	; get process number
8869	rgimad	1480	mov ebx, [current_slot_idx] ; bl - process num
2446	mario79	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
5154	hidnplayr	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
2430	mario79	1494	;--------------------------------------
2446	mario79	1495	; eax - color high RRGGBB
2288	clevermous	1496	; bl - process num
		1497	; ecx - temp
		1498	; edx - pointer to screen
		1499	; esi - counter
		1500	; edi - counter
5154	hidnplayr	1501
		1502	align 4
		1503	draw_bar_end_24:
		1504
2453	mario79	1505	; check for hardware cursor
2455	mario79	1506	mov ecx, [_display.select_cursor]
		1507	cmp ecx, select_cursor
		1508	je draw_bar_end_24_new
		1509	cmp ecx, 0
2453	mario79	1510	je draw_bar_end_24_old
5154	hidnplayr	1511	.new_y:
2288	clevermous	1512	mov edi, [drbar.real_sx]
5154	hidnplayr	1513	.new_x:
2288	clevermous	1514	cmp byte [ebp], bl
		1515	jne .skip
5154	hidnplayr	1516
		1517	; store to LFB
2453	mario79	1518	mov [edx], ax
		1519	shr eax, 16
		1520	mov [edx + 2], al
5154	hidnplayr	1521	.skip:
2453	mario79	1522	; add pixel
		1523	add edx, 3
		1524	inc ebp
		1525	dec edi
		1526	jnz .new_x
		1527	; add line
		1528	add edx, [drbar.line_inc_scr]
		1529	add ebp, [drbar.line_inc_map]
		1530	; drawing gradient bars
		1531	test bh, 0x80
		1532	jz @f
		1533	test al, al
		1534	jz @f
		1535	dec al
5154	hidnplayr	1536	@@:
2453	mario79	1537	dec esi
		1538	jnz .new_y
5154	hidnplayr	1539	.end:
2453	mario79	1540	add esp, drbar.stack_data
		1541	popad
		1542	xor eax, eax
		1543	ret
5154	hidnplayr	1544
2453	mario79	1545	;------------------------------------------------------------------------------
5154	hidnplayr	1546
2453	mario79	1547	align 4
		1548	draw_bar_end_24_old:
5154	hidnplayr	1549
		1550	.new_y:
2453	mario79	1551	mov edi, [drbar.real_sx]
5154	hidnplayr	1552	.new_x:
2453	mario79	1553	cmp byte [ebp], bl
		1554	jne .skip
5154	hidnplayr	1555
2446	mario79	1556	mov ecx, [drbar.real_sx_and_abs_cx]
2430	mario79	1557	sub ecx, edi
		1558	shl ecx, 16
2446	mario79	1559	add ecx, [drbar.real_sy_and_abs_cy]
2430	mario79	1560	sub ecx, esi
		1561	; check mouse area for putpixel
		1562	call check_mouse_area_for_putpixel
5154	hidnplayr	1563	; store to LFB
2430	mario79	1564	mov [edx], ax
		1565	shr eax, 16
		1566	mov [edx + 2], al
2446	mario79	1567	mov eax, [drbar.color]
5154	hidnplayr	1568	.skip:
2288	clevermous	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]
2446	mario79	1577	; drawing gradient bars
		1578	test bh, 0x80
2288	clevermous	1579	jz @f
2446	mario79	1580	test al, al
2288	clevermous	1581	jz @f
2446	mario79	1582	dec al
5154	hidnplayr	1583	@@:
2288	clevermous	1584	dec esi
		1585	jnz .new_y
2453	mario79	1586	jmp draw_bar_end_24.end
5154	hidnplayr	1587
2453	mario79	1588	;------------------------------------------------------------------------------
5154	hidnplayr	1589
2430	mario79	1590	align 4
		1591	draw_bar_end_24_new:
5154	hidnplayr	1592
		1593	.new_y:
2430	mario79	1594	mov edi, [drbar.real_sx]
5154	hidnplayr	1595	.new_x:
2430	mario79	1596	cmp byte [ebp], bl
		1597	jne .skip
5154	hidnplayr	1598
2430	mario79	1599	mov ecx, [drbar.real_sy_and_abs_cy]
		1600	sub ecx, esi
5154	hidnplayr	1601
2430	mario79	1602	; check for Y
		1603	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		1604	jae .no_mouse_area
2575	mario79	1605	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		1606	jb .no_mouse_area
2430	mario79	1607	rol ecx, 16
		1608	add ecx, [drbar.real_sx_and_abs_cx]
		1609	sub ecx, edi
5154	hidnplayr	1610
2430	mario79	1611	; check for X
2575	mario79	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]
2430	mario79	1615	jb .no_mouse_area
5154	hidnplayr	1616	ror ecx, 16
2430	mario79	1617
		1618	; check mouse area for putpixel
2477	mario79	1619	push eax
2430	mario79	1620	call check_mouse_area_for_putpixel_new.1
		1621	mov [edx], ax
		1622	shr eax, 16
		1623	mov [edx + 2], al
2477	mario79	1624	pop eax
2430	mario79	1625	jmp .skip
5154	hidnplayr	1626
		1627	.no_mouse_area:
		1628	; store to LFB
2446	mario79	1629	mov [edx], ax
		1630	ror eax, 16
		1631	mov [edx + 2], al
		1632	rol eax, 16
5154	hidnplayr	1633	.skip:
		1634
2430	mario79	1635	; add pixel
		1636	add edx, 3
		1637	inc ebp
		1638	dec edi
		1639	jnz .new_x
5154	hidnplayr	1640
2430	mario79	1641	; add line
		1642	add edx, [drbar.line_inc_scr]
		1643	add ebp, [drbar.line_inc_map]
5154	hidnplayr	1644
2446	mario79	1645	; drawing gradient bars
		1646	test bh, 0x80
2430	mario79	1647	jz @f
2446	mario79	1648	test al, al
2430	mario79	1649	jz @f
2446	mario79	1650	dec al
5154	hidnplayr	1651	@@:
2430	mario79	1652	dec esi
		1653	jnz .new_y
		1654	jmp draw_bar_end_24.end
5154	hidnplayr	1655
2453	mario79	1656	;------------------------------------------------------------------------------
2446	mario79	1657	; eax - color high RRGGBB
		1658	; bl - process num
		1659	; ecx - temp
		1660	; edx - pointer to screen
		1661	; esi - counter
		1662	; edi - counter
5154	hidnplayr	1663
		1664	draw_bar_end_32:
		1665
2453	mario79	1666	; check for hardware cursor
2455	mario79	1667	mov ecx, [_display.select_cursor]
		1668	cmp ecx, select_cursor
		1669	je draw_bar_end_32_new
		1670	cmp ecx, 0
2453	mario79	1671	je draw_bar_end_32_old
5154	hidnplayr	1672
		1673	.new_y:
2288	clevermous	1674	mov edi, [drbar.real_sx]
5154	hidnplayr	1675	.new_x:
2288	clevermous	1676	cmp byte [ebp], bl
		1677	jne .skip
5154	hidnplayr	1678
		1679	; store to LFB
2430	mario79	1680	mov [edx], eax
2446	mario79	1681	mov eax, [drbar.color]
5154	hidnplayr	1682	.skip:
		1683
2288	clevermous	1684	; add pixel
		1685	add edx, 4
		1686	inc ebp
		1687	dec edi
		1688	jnz .new_x
5154	hidnplayr	1689
2288	clevermous	1690	; add line
		1691	add edx, [drbar.line_inc_scr]
		1692	add ebp, [drbar.line_inc_map]
5154	hidnplayr	1693
2446	mario79	1694	; drawing gradient bars
		1695	test bh, 0x80
2288	clevermous	1696	jz @f
		1697	test al, al
		1698	jz @f
		1699	dec al
5154	hidnplayr	1700	@@:
2288	clevermous	1701	dec esi
		1702	jnz .new_y
5154	hidnplayr	1703	.end:
2288	clevermous	1704	add esp, drbar.stack_data
		1705	popad
3606	Serge	1706	cmp [SCR_MODE], 0x12
2436	mario79	1707	jne @f
2288	clevermous	1708	call VGA_draw_bar
5154	hidnplayr	1709	@@:
2288	clevermous	1710	xor eax, eax
		1711	mov [EGA_counter], 1
		1712	ret
5154	hidnplayr	1713
2453	mario79	1714	draw_bar_end_32_old:
5154	hidnplayr	1715
		1716	.new_y:
2453	mario79	1717	mov edi, [drbar.real_sx]
5154	hidnplayr	1718	.new_x:
2453	mario79	1719	cmp byte [ebp], bl
		1720	jne .skip
5154	hidnplayr	1721
2453	mario79	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
5154	hidnplayr	1730	; store to LFB
2453	mario79	1731	mov [edx], eax
		1732	mov eax, [drbar.color]
5154	hidnplayr	1733	.skip:
2453	mario79	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
5154	hidnplayr	1748	@@:
2453	mario79	1749	dec esi
		1750	jnz .new_y
		1751	jmp draw_bar_end_32.end
5154	hidnplayr	1752
2453	mario79	1753	;------------------------------------------------------------------------------
5154	hidnplayr	1754
2453	mario79	1755	align 4
2430	mario79	1756	draw_bar_end_32_new:
5154	hidnplayr	1757
		1758	.new_y:
2430	mario79	1759	mov edi, [drbar.real_sx]
5154	hidnplayr	1760	.new_x:
2430	mario79	1761	cmp byte [ebp], bl
		1762	jne .skip
5154	hidnplayr	1763
2430	mario79	1764	mov ecx, [drbar.real_sy_and_abs_cy]
		1765	sub ecx, esi
5154	hidnplayr	1766
2430	mario79	1767	; check for Y
		1768	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
		1769	jae .no_mouse_area
2575	mario79	1770	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
		1771	jb .no_mouse_area
2430	mario79	1772	rol ecx, 16
		1773	add ecx, [drbar.real_sx_and_abs_cx]
		1774	sub ecx, edi
5154	hidnplayr	1775
2430	mario79	1776	; check for X
2575	mario79	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]
2430	mario79	1780	jb .no_mouse_area
5154	hidnplayr	1781	ror ecx, 16
2430	mario79	1782
		1783	; check mouse area for putpixel
2477	mario79	1784	push eax
2430	mario79	1785	call check_mouse_area_for_putpixel_new.1
		1786	mov [edx], eax
2477	mario79	1787	pop eax
2430	mario79	1788	jmp .skip
5154	hidnplayr	1789	.no_mouse_area:
		1790
		1791	; store to LFB
2430	mario79	1792	mov [edx], eax
5154	hidnplayr	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
2430	mario79	1824	align 4
5154	hidnplayr	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]
2430	mario79	1905	.skip:
5154	hidnplayr	1906
2430	mario79	1907	; add pixel
5154	hidnplayr	1908	add edx, 2
2430	mario79	1909	inc ebp
		1910	dec edi
		1911	jnz .new_x
5154	hidnplayr	1912
2430	mario79	1913	; add line
		1914	add edx, [drbar.line_inc_scr]
		1915	add ebp, [drbar.line_inc_map]
5154	hidnplayr	1916
2446	mario79	1917	; drawing gradient bars
		1918	test bh, 0x80
2430	mario79	1919	jz @f
		1920	test al, al
		1921	jz @f
		1922	dec al
5154	hidnplayr	1923	@@:
		1924	dec esi
		1925	jnz .new_y
		1926	jmp draw_bar_end_16.end
		1927
		1928	;------------------------------------------------------------------------------
		1929
2430	mario79	1930	align 4
5154	hidnplayr	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	@@:
2430	mario79	2003	dec esi
		2004	jnz .new_y
5154	hidnplayr	2005	jmp draw_bar_end_16.end
		2006
2430	mario79	2007	;------------------------------------------------------------------------------
5154	hidnplayr	2008
2430	mario79	2009	align 4
2288	clevermous	2010	vesa20_drawbackground_tiled:
5154	hidnplayr	2011
2288	clevermous	2012	pushad
		2013	; External loop for all y from start to end
		2014	mov ebx, [draw_data+32+RECT.top] ; y start
5154	hidnplayr	2015	dp2:
2288	clevermous	2016	mov ebp, [draw_data+32+RECT.left] ; x start
		2017	; 1) Calculate pointers in WinMapAddress (does pixel belong to OS thread?) [ebp]
5154	hidnplayr	2018	; and LFB data (output for our function) [edi]
2446	mario79	2019	; mov eax, [BytesPerScanLine]
		2020	; mul ebx
2480	mario79	2021	mov eax, [BPSLine_calc_area+ebx*4]
2288	clevermous	2022	xchg ebp, eax
		2023	add ebp, eax
		2024	add ebp, eax
5154	hidnplayr	2025	cmp byte [_display.bytes_per_pixel], 2
		2026	je @f
2288	clevermous	2027	add ebp, eax
5154	hidnplayr	2028	cmp byte [_display.bytes_per_pixel], 3
		2029	je @f
2288	clevermous	2030	add ebp, eax
5154	hidnplayr	2031
		2032	@@:
2288	clevermous	2033	add ebp, LFB_BASE
		2034	; ebp:=YBytesPerScanLine+XBytesPerPixel+AddrLFB
		2035	call calculate_edi
		2036	xchg edi, ebp
5351	serge	2037	add ebp, [_display.win_map]
2288	clevermous	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
		2043	div dword [BgrDataHeight] ; edx := y mod BgrDataHeight
		2044	pop eax
		2045	push eax
		2046	mov ecx, [BgrDataWidth]
		2047	mov esi, edx
		2048	imul esi, ecx ; esi := (y mod BgrDataHeight) * BgrDataWidth
		2049	xor edx, edx
		2050	div ecx ; edx := x mod BgrDataWidth
		2051	sub ecx, edx
		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
5154	hidnplayr	2065	dp3:
2288	clevermous	2066	cmp [ebp], dl
5154	hidnplayr	2067	jnz .next_pix
		2068
2430	mario79	2069	push eax ecx
		2070	mov ecx, eax
		2071	shl ecx, 16
		2072	add ecx, ebx
		2073
		2074	mov eax, [esi]
2448	mario79	2075
		2076	; check for hardware cursor
2451	mario79	2077	cmp [_display.select_cursor], select_cursor
		2078	je @f
2448	mario79	2079	cmp [_display.select_cursor], 0
		2080	jne .no_mouseunder
5154	hidnplayr	2081	@@:
2430	mario79	2082	and eax, 0xffffff
		2083	; check mouse area for putpixel
		2084	call [_display.check_mouse]
5154	hidnplayr	2085	.no_mouseunder:
		2086
		2087	cmp byte [_display.bits_per_pixel], 16
		2088	je .16bpp
		2089	; store to LFB
2430	mario79	2090	mov [edi], ax
		2091	shr eax, 16
		2092	mov [edi+2], al
5154	hidnplayr	2093	pop ecx eax
		2094	jmp .next_pix
2430	mario79	2095
5154	hidnplayr	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
2430	mario79	2105	pop ecx eax
5154	hidnplayr	2106
		2107	; Advance to next pixel
		2108	.next_pix:
2288	clevermous	2109	add esi, 3
5154	hidnplayr	2110	add edi, [_display.bytes_per_pixel]
		2111
2288	clevermous	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
5154	hidnplayr	2118
2288	clevermous	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
5154	hidnplayr	2125
		2126	dp4:
2288	clevermous	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
3606	Serge	2133	cmp [SCR_MODE], 0x12
2436	mario79	2134	jne @f
2288	clevermous	2135	call VGA_drawbackground
5154	hidnplayr	2136	@@:
2288	clevermous	2137	ret
5154	hidnplayr	2138
2430	mario79	2139	;------------------------------------------------------------------------------
5154	hidnplayr	2140
2430	mario79	2141	align 4
2288	clevermous	2142	vesa20_drawbackground_stretch:
5154	hidnplayr	2143
2288	clevermous	2144	pushad
		2145	; Helper variables
		2146	; calculate 2^32*(BgrDataWidth-1) mod (ScreenWidth-1)
		2147	mov eax, [BgrDataWidth]
		2148	dec eax
		2149	xor edx, edx
6593	serge	2150	div dword [_display.width]
2288	clevermous	2151	push eax ; high
		2152	xor eax, eax
6593	serge	2153	div dword [_display.width]
2288	clevermous	2154	push eax ; low
5154	hidnplayr	2155
2288	clevermous	2156	; the same for height
		2157	mov eax, [BgrDataHeight]
		2158	dec eax
		2159	xor edx, edx
6593	serge	2160	div dword [_display.height]
2288	clevermous	2161	push eax ; high
		2162	xor eax, eax
6593	serge	2163	div dword [_display.height]
2288	clevermous	2164	push eax ; low
5154	hidnplayr	2165
2288	clevermous	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]
2446	mario79	2171	; mov eax, [BytesPerScanLine]
		2172	; mul ebx
2480	mario79	2173	mov eax, [BPSLine_calc_area+ebx*4]
2288	clevermous	2174	xchg ebp, eax
		2175	add ebp, eax
		2176	add ebp, eax
5154	hidnplayr	2177	cmp byte [_display.bytes_per_pixel], 2
		2178	jz @f
2288	clevermous	2179	add ebp, eax
5154	hidnplayr	2180	cmp byte [_display.bytes_per_pixel], 3
2288	clevermous	2181	jz @f
		2182	add ebp, eax
5154	hidnplayr	2183	@@:
		2184
2288	clevermous	2185	; ebp:=YBytesPerScanLine+XBytesPerPixel+AddrLFB
		2186	call calculate_edi
		2187	xchg edi, ebp
5154	hidnplayr	2188
2288	clevermous	2189	; Now eax=x, ebx=y, edi->output, ebp=offset in WinMapAddress
		2190	push ebx
		2191	push eax
		2192	; 2) Calculate offset in background memory block
		2193	mov eax, ebx
		2194	imul ebx, dword [esp+12]
		2195	mul dword [esp+8]
		2196	add edx, ebx ; edx:eax = y * 2^32*(BgrDataHeight-1)/(ScreenHeight-1)
		2197	mov esi, edx
		2198	imul esi, [BgrDataWidth]
		2199	push edx
		2200	push eax
		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
		2207	pop edx ; edx:eax = x * 2^32*(BgrDataWidth-1)/(ScreenWidth-1)
		2208	add esi, edx
		2209	lea esi, [esi*3]
		2210	add esi, [img_background]
		2211	push eax
		2212	push edx
		2213	push esi
5154	hidnplayr	2214
2288	clevermous	2215	; 3) Smooth horizontal
5154	hidnplayr	2216	bgr_resmooth0:
2288	clevermous	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
5154	hidnplayr	2223
		2224	bgr_resmooth1:
2288	clevermous	2225	mov eax, [esp+16+4]
		2226	inc eax
		2227	cmp eax, [BgrDataHeight]
		2228	jae bgr.no2nd
		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
5154	hidnplayr	2237
		2238	bgr.no2nd:
2288	clevermous	2239	pop edi
5154	hidnplayr	2240
		2241	sdp3:
2288	clevermous	2242	xor esi, esi
		2243	mov ecx, [esp+12]
5154	hidnplayr	2244
2288	clevermous	2245	; 4) Loop through redraw rectangle and copy background data
		2246	; Registers meaning:
		2247	; esi = offset in current line, edi -> output
		2248	; ebp = offset in WinMapAddress
		2249	; dword [esp] = offset in bgr data
		2250	; qword [esp+4] = x * 2^32 * (BgrDataWidth-1) / (ScreenWidth-1)
		2251	; qword [esp+12] = y * 2^32 * (BgrDataHeight-1) / (ScreenHeight-1)
		2252	; dword [esp+20] = x
		2253	; dword [esp+24] = y
		2254	; precalculated constants:
		2255	; qword [esp+28] = 2^32*(BgrDataHeight-1)/(ScreenHeight-1)
		2256	; qword [esp+36] = 2^32*(BgrDataWidth-1)/(ScreenWidth-1)
5154	hidnplayr	2257
		2258	sdp3a:
5351	serge	2259	mov eax, [_display.win_map]
2288	clevermous	2260	cmp [ebp+eax], byte 1
		2261	jnz snbgp
		2262	mov eax, [bgr_cur_line+esi]
		2263	test ecx, ecx
		2264	jz .novert
		2265	mov ebx, [bgr_next_line+esi]
		2266	call [overlapping_of_points_ptr]
5154	hidnplayr	2267
		2268	.novert:
2430	mario79	2269	push ecx
2448	mario79	2270	; check for hardware cursor
2451	mario79	2271	cmp [_display.select_cursor], select_cursor
2459	mario79	2272	je @f
2448	mario79	2273	cmp [_display.select_cursor], 0
		2274	jne .no_mouseunder
5154	hidnplayr	2275	@@:
2430	mario79	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]
5154	hidnplayr	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
2288	clevermous	2292	mov [LFB_BASE+edi], ax
5154	hidnplayr	2293	pop ecx
		2294	jmp snbgp
		2295	.not_16bpp:
		2296
		2297	; store to LFB
		2298	mov [LFB_BASE+edi], ax
2288	clevermous	2299	shr eax, 16
		2300	mov [LFB_BASE+edi+2], al
2430	mario79	2301	pop ecx
5154	hidnplayr	2302
		2303	snbgp:
		2304	add edi, [_display.bytes_per_pixel]
2288	clevermous	2305	add ebp, 1
		2306	mov eax, [esp+20]
		2307	add eax, 1
		2308	mov [esp+20], eax
		2309	add esi, 4
		2310	cmp eax, [draw_data+32+RECT.right]
		2311	jbe sdp3a
5154	hidnplayr	2312
		2313	sdp4:
2288	clevermous	2314	; next y
		2315	mov ebx, [esp+24]
		2316	add ebx, 1
		2317	mov [esp+24], ebx
		2318	cmp ebx, [draw_data+32+RECT.bottom]
		2319	ja sdpdone
5154	hidnplayr	2320
2288	clevermous	2321	; advance edi, ebp to next scan line
		2322	sub eax, [draw_data+32+RECT.left]
		2323	sub ebp, eax
5350	serge	2324	add ebp, [_display.width]
2288	clevermous	2325	sub edi, eax
		2326	sub edi, eax
5154	hidnplayr	2327	cmp byte [_display.bytes_per_pixel], 2
		2328	jz @f
2288	clevermous	2329	sub edi, eax
5154	hidnplayr	2330	cmp byte [_display.bytes_per_pixel], 3
2288	clevermous	2331	jz @f
		2332	sub edi, eax
5154	hidnplayr	2333
		2334	@@:
5351	serge	2335	add edi, [_display.lfb_pitch]
2288	clevermous	2336	; restore ecx,edx; advance esi to next background line
		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
		2342	sub eax, [esp+16]
		2343	mov ebx, eax
		2344	lea eax, [eax*3]
		2345	imul eax, [BgrDataWidth]
		2346	sub [esp], eax
		2347	mov eax, [draw_data+32+RECT.left]
		2348	mov [esp+20], eax
		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
5350	serge	2356	mov ecx, [_display.width]
2288	clevermous	2357	rep movsd
		2358	jmp bgr_resmooth1
5154	hidnplayr	2359
		2360	sdpdone:
2288	clevermous	2361	add esp, 44
		2362	popad
		2363	mov [EGA_counter], 1
3606	Serge	2364	cmp [SCR_MODE], 0x12
2436	mario79	2365	jne @f
2288	clevermous	2366	call VGA_drawbackground
5154	hidnplayr	2367	@@:
2288	clevermous	2368	ret
		2369
2430	mario79	2370	;--------------------------------------
5154	hidnplayr	2371
2288	clevermous	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]
5154	hidnplayr	2382	@@:
2288	clevermous	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
5154	hidnplayr	2396	@@:
2288	clevermous	2397	mov eax, [draw_data+32+RECT.left]
		2398	mov [esp+20+8], eax
		2399	ret
5154	hidnplayr	2400
2430	mario79	2401	;------------------------------------------------------------------------------
5154	hidnplayr	2402
2288	clevermous	2403	align 16
		2404	overlapping_of_points:
		2405	if 0
		2406	; this version of procedure works, but is slower than next version
		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
		2414	movzx eax, cl
		2415	sub eax, ebx
		2416	movzx ebx, dh
		2417	imul eax, esi
		2418	add dl, ah
		2419	movzx eax, ch
		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
		2433	ror eax, 16
		2434	pop ecx
		2435	ret
		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
5154	hidnplayr	2466
2430	mario79	2467	;------------------------------------------------------------------------------
5154	hidnplayr	2468
2430	mario79	2469	align 4
2288	clevermous	2470	init_background:
5154	hidnplayr	2471
2288	clevermous	2472	mov edi, BgrAuxTable
		2473	xor edx, edx
5154	hidnplayr	2474
		2475	.loop2:
2288	clevermous	2476	mov eax, edx
		2477	shl eax, 8
		2478	neg eax
		2479	mov ecx, 0x200
5154	hidnplayr	2480
		2481	.loop1:
2288	clevermous	2482	mov byte [edi], ah
		2483	inc edi
		2484	add eax, edx
		2485	loop .loop1
		2486	add dl, 4
		2487	jnz .loop2
		2488	test byte [cpu_caps+(CAPS_MMX/8)], 1 shl (CAPS_MMX mod 8)
		2489	jz @f
		2490	mov [overlapping_of_points_ptr], overlapping_of_points_mmx
5154	hidnplayr	2491	@@:
2288	clevermous	2492	ret
5154	hidnplayr	2493
2430	mario79	2494	;------------------------------------------------------------------------------
5154	hidnplayr	2495
2288	clevermous	2496	align 16
		2497	overlapping_of_points_mmx:
5154	hidnplayr	2498
2288	clevermous	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
5154	hidnplayr	2515
2288	clevermous	2516	ret
5154	hidnplayr	2517
2430	mario79	2518	;------------------------------------------------------------------------------

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/vesa20.inc – Rev 8869