WebSVN – Kolibri OS – Blame – /programs/develop/mtdbg/gui.inc

Rev	Author	Line No.	Line
4591	hidnplayr	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GUI ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		3	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4
		5	;-----------------------------------------------------------------------------
		6	; Color scheme
		7
7675	hidnplayr	8	BLACK_ON_WHITE = 0
		9	MOVIEOS = 1
		10	WHITE_ON_BLACK = 2
4591	hidnplayr	11
7677	hidnplayr	12	;-----------------------------------------------------------------------------
		13	; Font
		14
		15	FONT equ 0 ; 0 to 3
		16	FONT_MULTIPLIER equ 1 ; 1 to 8
		17
		18	;-----------------------------------------------------------------------------
		19	; GUI elements size and position
		20
		21	TEXT_Y_CLEARANCE = 1 ; in pixels
		22
		23	DATA_WIDTH = 80 ; in characters
		24	DATA_X_POS = 12 ; in pixels
		25
		26	TITLE_X_POS = 30 ; in pixels
		27	TITLE_Y_POS = 8 ; in pixels
		28
		29	DUMP_HEIGHT = 6 ; in text lines
		30	MIN_DISASM_HEIGHT = 18 ; in text lines
		31	MSG_HEIGHT = 14 ; in text lines
		32
		33	;-----------------------------------------------------------------------------
		34
		35	if (FONT eq 0)
		36	FONT_X_SIZE = 6*FONT_MULTIPLIER
		37	else
		38	FONT_X_SIZE = 8*FONT_MULTIPLIER
		39	end if
		40
		41	if (FONT eq 0)
		42	FONT_Y_SIZE = 9*FONT_MULTIPLIER
		43	else
		44	FONT_Y_SIZE = 16*FONT_MULTIPLIER
		45	end if
		46
		47	TITLE_Y_SIZE = (FONT_Y_SIZE + TEXT_Y_CLEARANCE)
		48	DUMP_Y_POS = (TITLE_Y_POS + TITLE_Y_SIZE)
		49	DUMP_Y_SIZE = (DUMP_HEIGHT*(FONT_Y_SIZE + TEXT_Y_CLEARANCE))
		50	DISASM_Y_POS = (DUMP_Y_POS + DUMP_Y_SIZE + 4)
		51
		52	MSG_WIDTH = DATA_WIDTH
		53	MSG_X_POS = DATA_X_POS
		54	MSG_X_SIZE = MSG_WIDTH*FONT_X_SIZE
		55	MSG_Y_SIZE = MSG_HEIGHT*(FONT_Y_SIZE + TEXT_Y_CLEARANCE)
		56
		57	CMD_WIDTH = DATA_WIDTH
		58	CMD_X_POS = DATA_X_POS
		59	CMD_Y_SIZE = (FONT_Y_SIZE+TEXT_Y_CLEARANCE)
		60
		61	REGISTERS_Y_POS = DUMP_Y_POS
		62	REGISTERS_X_SIZE = (22+2)*(FONT_X_SIZE) ; 22 characters + 2 spacing
		63
		64	wnd_x_size = (DATA_X_POS + MSG_X_SIZE + DATA_X_POS + REGISTERS_X_SIZE + 3) + 10
		65	wnd_y_size = (((DISASM_Y_POS + (MIN_DISASM_HEIGHT*(FONT_Y_SIZE + TEXT_Y_CLEARANCE)) + 4) + MSG_Y_SIZE + 4) + CMD_Y_SIZE + DATA_X_POS)
		66
		67	;-----------------------------------------------------------------------------
		68
4591	hidnplayr	69	; format - 0xRRGGBB
		70	if COLOR_THEME eq MOVIEOS
		71
		72	COLOR_BG_NORMAL = 0x1d272f
		73	COLOR_BG_BREAKPOINT = 0x0000aa
		74	COLOR_BG_SELECTED = 0xec9300
		75	COLOR_LINE = 0x00b9a0
		76	COLOR_TXT_NORMAL = 0xffffff
		77	COLOR_TXT_INACTIVE = 0x8f7948
		78	COLOR_TXT_CHANGED = 0xec9300
4886	hidnplayr	79	COLOR_TXT_LABEL = 0x22b14c
4591	hidnplayr	80	COLOR_TXT_SELECTED = 0x1d272f
4888	hidnplayr	81	COLOR_TXT_HEX = 0xec9300
4886	hidnplayr	82	COLOR_TXT_BREAKPOINT = 0xec9300
4591	hidnplayr	83
		84	else if COLOR_THEME eq WHITE_ON_BLACK
		85
		86	COLOR_BG_NORMAL = 0x101010 ; dark grey
		87	COLOR_BG_BREAKPOINT = 0xFF0000 ; red
		88	COLOR_BG_SELECTED = 0x0000FF ; blue
		89	COLOR_LINE = 0xFFFFFF ; white
		90	COLOR_TXT_NORMAL = 0xFFFFFF ; white
		91	COLOR_TXT_INACTIVE = 0x808080 ; grey
		92	COLOR_TXT_CHANGED = 0x00AA00 ; green
4886	hidnplayr	93	COLOR_TXT_LABEL = COLOR_TXT_NORMAL
4591	hidnplayr	94	COLOR_TXT_SELECTED = 0xFFFFFF ; white
4888	hidnplayr	95	COLOR_TXT_HEX = COLOR_TXT_NORMAL
4886	hidnplayr	96	COLOR_TXT_BREAKPOINT = COLOR_TXT_NORMAL
4591	hidnplayr	97
		98	else ; BLACK ON WHITE
		99
		100	COLOR_BG_NORMAL = 0xffffff ; white
		101	COLOR_BG_BREAKPOINT = 0xFF0000 ; red
		102	COLOR_BG_SELECTED = 0x0000FF ; blue
		103	COLOR_LINE = 0x000000 ; black
		104	COLOR_TXT_NORMAL = 0x000000 ; black
		105	COLOR_TXT_INACTIVE = 0x808080 ; grey
		106	COLOR_TXT_CHANGED = 0x00AA00 ; green
4886	hidnplayr	107	COLOR_TXT_LABEL = COLOR_TXT_NORMAL
4591	hidnplayr	108	COLOR_TXT_SELECTED = 0xFFFFFF ; white
4888	hidnplayr	109	COLOR_TXT_HEX = COLOR_TXT_NORMAL
4886	hidnplayr	110	COLOR_TXT_BREAKPOINT = COLOR_TXT_NORMAL
4591	hidnplayr	111
		112	end if
		113
4924	Serge	114	struc fpcvt
		115	{
		116	.str_buf rb 32
		117	.cvt_buf rb 16
		118	.bcd_man rb 10
		119	.bcd_exp rb 10
		120	.exp rd 1
		121	.digits rq 1
		122	.sizeof:
		123	}
		124
		125
		126
4591	hidnplayr	127	;-----------------------------------------------------------------------------
		128	; Entry point
		129
		130	; TODO: split all gui part in independent function, move entry point into mtdbg.asm
		131
		132	start:
4890	hidnplayr	133	; initialize process heap
4591	hidnplayr	134	mcall 68, 11
4902	Serge	135
		136	push eax
		137	fstcw word [esp]
4909	Serge	138	pop eax
		139	and ax, not (3 shl 10)
		140	or ax, 1 shl 10 ; set round-to-minus infinity mode
		141	push eax
4902	Serge	142	fldcw word [esp]
		143	pop eax
		144
4591	hidnplayr	145	mov edi, messages
7677	hidnplayr	146	mov ecx, MSG_WIDTH*MSG_HEIGHT
4591	hidnplayr	147	mov al, ' '
		148	rep stosb
		149	xor eax, eax
		150	mov [messages_pos], eax
		151	mov [cmdline_len], eax
		152	mov [cmdline_pos], eax
		153	mov edi, needzerostart
		154	mov ecx, (needzeroend-needzerostart+3)/4
		155	rep stosd
		156	mov esi, begin_str
		157	call put_message_nodraw
4890	hidnplayr	158	; set event mask - default events and debugging events
7677	hidnplayr	159	mcall 40, EVM_REDRAW or EVM_KEY or EVM_BUTTON or EVM_DEBUG
4890	hidnplayr	160	; set debug messages buffer
4591	hidnplayr	161	mov ecx, dbgbufsize
		162	mov dword [ecx], 256
		163	xor ebx, ebx
		164	mov [ecx+4], ebx
		165	mov al, 69
		166	mcall
		167	mov esi, i_param
		168	call get_arg.skip_spaces
		169	test al, al
		170	jz dodraw
		171	push esi
		172	call draw_window
		173	pop esi
		174	call OnLoadInit
		175	jmp waitevent
		176
		177	dodraw:
		178	call draw_window
		179
		180	waitevent:
		181	mcall 10
		182	cmp al, 9
		183	jz debugmsg
		184	dec eax
		185	jz dodraw
		186	dec eax
		187	jz keypressed
		188	dec eax
		189	jnz waitevent
4914	Serge	190	;button pressed
		191	mcall 17
		192	test al, al
		193	jnz waitevent
		194	movzx eax, ah
		195	jmp dword [.jmp_table+eax*4]
4591	hidnplayr	196
4914	Serge	197	.close:
		198	mcall -1
		199	.mmx:
		200	movzx edx, [fpu_mode]
		201	xor dl, 1
		202	mov [fpu_mode], dl
		203	push edx
		204	jnz .fpu
		205	call draw_mmx_regs
		206	jmp .draw_label
		207	.fpu:
		208	call draw_fpu_regs
		209	.draw_label:
		210	pop edx
		211	mov edx, [btn2_tab+edx*4]
		212	mov edi, COLOR_BG_NORMAL
7677	hidnplayr	213	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL or 0x40000000)
4914	Serge	214	mov esi, 7
		215	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	216	add ebx, 4*10000h+REGISTERS_Y_POS
4914	Serge	217	mcall 4
		218	jmp waitevent
		219
		220	align 4
		221	.jmp_table:
		222	dd waitevent
		223	dd .close
		224	dd .mmx
		225
		226
4591	hidnplayr	227	; TODO: split in more independent function
		228	keypressed:
		229	mov al, 2
		230	mcall
		231	shr eax, 8
		232	cmp al, 8
		233	jz .backspace
		234	cmp al, 0xB0
		235	jz .left
		236	cmp al, 0xB3
		237	jz .right
		238	cmp al, 0x0D
		239	jz .enter
		240	cmp al, 0xB6
		241	jz .del
		242	cmp al, 0xB4
		243	jz .home
		244	cmp al, 0xB5
		245	jz .end
		246	cmp al, 0xB1
		247	jz .down
		248	cmp al, 0xB2
4594	hidnplayr	249	jz .up
		250	cmp ah, 0x41
		251	jz F7
		252	cmp ah, 0x42
		253	jz F8
7677	hidnplayr	254	cmp [cmdline_len], CMD_WIDTH
4591	hidnplayr	255	jae waitevent
		256	push eax
		257	call clear_cmdline_end
		258	pop eax
		259	mov edi, cmdline
		260	mov ecx, [cmdline_len]
		261	add edi, ecx
		262	lea esi, [edi-1]
		263	sub ecx, [cmdline_pos]
		264	std
		265	rep movsb
		266	cld
		267	stosb
		268	inc [cmdline_len]
		269	call draw_cmdline_end
		270	inc [cmdline_pos]
		271	call draw_cursor
		272	jmp waitevent
		273
		274	.backspace:
		275	cmp [cmdline_pos], 0
		276	jz waitevent
		277	dec [cmdline_pos]
		278
		279	.delchar:
		280	call clear_cmdline_end
		281	mov edi, [cmdline_pos]
		282	dec [cmdline_len]
		283	mov ecx, [cmdline_len]
		284	sub ecx, edi
		285	add edi, cmdline
		286	lea esi, [edi+1]
		287	rep movsb
		288	call draw_cmdline_end
		289	call draw_cursor
		290	jmp waitevent
		291
		292	.del:
		293	mov eax, [cmdline_pos]
		294	cmp eax, [cmdline_len]
		295	jae waitevent
		296	jmp .delchar
		297
		298	.left:
		299	cmp [cmdline_pos], 0
		300	jz waitevent
		301	call hide_cursor
		302	dec [cmdline_pos]
		303	call draw_cursor
		304	jmp waitevent
		305
		306	.right:
		307	mov eax, [cmdline_pos]
		308	cmp eax, [cmdline_len]
		309	jae waitevent
		310	call hide_cursor
		311	inc [cmdline_pos]
		312	call draw_cursor
		313	jmp waitevent
		314
		315	.home:
		316	call hide_cursor
		317	and [cmdline_pos], 0
		318	call draw_cursor
		319	jmp waitevent
		320
		321	.end:
		322	call hide_cursor
		323	mov eax, [cmdline_len]
		324	mov [cmdline_pos], eax
		325	call draw_cursor
		326
		327	.up:
		328	.down:
		329	jmp waitevent
		330
4890	hidnplayr	331	; We also trying to execute previous command, if empty command_line
4591	hidnplayr	332	.enter:
		333	mov ecx, [cmdline_len]
		334	test ecx, ecx
		335	jnz .exec_cur
		336	mov cl, byte [cmdline_prev]
		337	cmp cl, 0
		338	jz waitevent
		339
		340	.exec_prev:
		341	mov esi, cmdline_prev
		342	jmp .exec
		343
		344	.exec_cur:
		345	mov esi, cmdline
		346
		347	.exec:
		348	mov byte [esi+ecx], 0
		349	and [cmdline_pos], 0
		350	push esi
		351	call clear_cmdline_end
		352	call draw_cursor
		353	pop esi
		354	and [cmdline_len], 0
4890	hidnplayr	355	; skip leading spaces
4591	hidnplayr	356	call get_arg.skip_spaces
		357	cmp al, 0
		358	jz waitevent
4890	hidnplayr	359	; now esi points to command
4591	hidnplayr	360	push esi
		361	mov esi, prompt
		362	call put_message_nodraw
		363	pop esi
		364	push esi
		365	call put_message_nodraw
		366
		367	; TODO: add meaningful name
		368	z1:
		369	mov esi, newline
		370	call put_message
		371	pop esi
		372	push esi
		373	call get_arg
		374	mov [curarg], esi
		375	pop edi
		376	mov esi, commands
		377	call find_cmd
		378	mov eax, aUnknownCommand
		379	jc .x11
		380
4890	hidnplayr	381	; check command requirements
		382	; flags field:
		383	; &1: command may be called without parameters
		384	; &2: command may be called with parameters
		385	; &4: command may be called without loaded program
		386	; &8: command may be called with loaded program
4591	hidnplayr	387	mov eax, [esi+8]
		388	mov ecx, [curarg]
		389	cmp byte [ecx], 0
		390	jz .noargs
		391	test byte [esi+16], 2
		392	jz .x11
		393	jmp @f
		394
		395	.noargs:
		396	test byte [esi+16], 1
		397	jz .x11
		398
		399	@@:
		400	cmp [debuggee_pid], 0
		401	jz .nodebuggee
		402	mov eax, aAlreadyLoaded
		403	test byte [esi+16], 8
		404	jz .x11
		405	jmp .x9
		406
		407	.nodebuggee:
		408	mov eax, need_debuggee
		409	test byte [esi+16], 4
		410	jnz .x9
		411
		412	.x11:
		413	xchg esi, eax
		414	call put_message
		415
4890	hidnplayr	416	; store cmdline for repeating
4591	hidnplayr	417	.x10:
		418	mov esi, cmdline
		419	mov ecx, [cmdline_len]
		420
		421	@@:
		422	cmp ecx, 0
		423	jle .we
		424	mov al, [esi + ecx]
		425	mov [cmdline_prev + ecx], al
		426	dec ecx
		427	jmp @b
		428
		429	.we:
		430	mov [cmdline_len], 0
		431	jmp waitevent
		432
		433	.x9:
		434	call dword [esi+4]
		435	jmp .x10
		436
		437	;-----------------------------------------------------------------------------
		438	; Cmdline handling
		439
		440	clear_cmdline_end:
		441	mov ebx, [cmdline_pos]
		442	mov ecx, [cmdline_len]
		443	sub ecx, ebx
7677	hidnplayr	444	imul ebx, FONT_X_SIZE
		445	imul ecx, FONT_X_SIZE
4591	hidnplayr	446	inc ecx
7677	hidnplayr	447	add ebx, CMD_X_POS
4591	hidnplayr	448	shl ebx, 16
		449	or ebx, ecx
4908	hidnplayr	450	mov ecx, [cmdline_y_pos_dd]
7677	hidnplayr	451	mov cx, CMD_Y_SIZE
4591	hidnplayr	452	mov edx, COLOR_BG_NORMAL
		453	; draw container rectangle/box for cmdline
		454	mcall 13
		455	ret
		456
		457	draw_cmdline:
		458	xor ebx, ebx
		459	jmp @f
		460
		461	; TODO: make it local
		462	draw_cmdline_end:
		463	mov ebx, [cmdline_pos]
		464
		465	@@:
		466	mov esi, [cmdline_len]
		467	sub esi, ebx
4890	hidnplayr	468
7677	hidnplayr	469	mov ecx, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL
4591	hidnplayr	470	lea edx, [cmdline+ebx]
7677	hidnplayr	471	imul ebx, FONT_X_SIZE
		472	add ebx, CMD_X_POS
4591	hidnplayr	473	shl ebx, 16
4908	hidnplayr	474	mov bx, word[cmdline_y_pos_dd+4]
		475	inc bx
4890	hidnplayr	476	; draw a text string in the window
4591	hidnplayr	477	mcall 4
		478	ret
		479
		480	;-----------------------------------------------------------------------------
		481	; Working with messages
		482	; in: esi->ASCIIZ message
		483	put_message_nodraw:
		484	mov edx, [messages_pos]
		485
		486	.m:
		487	lea edi, [messages+edx]
		488
		489	.l:
		490	lodsb
		491	cmp al, 0
		492	jz .done
		493	call test_scroll
		494	cmp al, 10
		495	jz .newline
		496	cmp al, '%'
		497	jnz @f
		498	cmp dword [esp], z1
		499	jnz .format
		500
		501	@@:
		502	stosb
		503	inc edx
		504	jmp .l
		505
		506	.newline:
		507	push edx
7677	hidnplayr	508	mov ecx, MSG_WIDTH
4591	hidnplayr	509	xor eax, eax
		510	xchg eax, edx
		511	div ecx
		512	xchg eax, edx
		513	pop edx
		514	test eax, eax
		515	jz .m
		516	sub edx, eax
		517	add edx, ecx
		518	jmp .m
		519
		520	.done:
		521	mov [messages_pos], edx
		522	ret
		523
4890	hidnplayr	524	; at this moment all format specs must be %X
4591	hidnplayr	525	.format:
		526	lodsb ; get
		527	sub al, '0'
		528	movzx ecx, al
		529	lodsb
		530	pop eax
		531	pop ebp
		532	push eax
4890	hidnplayr	533	; write number in ebp with ecx digits
4591	hidnplayr	534	dec ecx
		535	shl ecx, 2
		536
		537	.writenibble:
		538	push ecx
		539	call test_scroll
		540	pop ecx
		541	mov eax, ebp
		542	shr eax, cl
		543	and al, 0xF
		544	cmp al, 10
		545	sbb al, 69h
		546	das
		547	stosb
		548	inc edx
		549	sub ecx, 4
		550	jns .writenibble
		551	jmp .l
		552
		553	test_scroll:
7677	hidnplayr	554	cmp edx, MSG_WIDTH*MSG_HEIGHT
4591	hidnplayr	555	jnz .ret
		556	push esi
		557	mov edi, messages
7677	hidnplayr	558	lea esi, [edi+MSG_WIDTH]
		559	mov ecx, (MSG_HEIGHT-1)*MSG_WIDTH/4
4591	hidnplayr	560	rep movsd
		561	push eax
		562	mov al, ' '
		563	push edi
7677	hidnplayr	564	push MSG_WIDTH
4591	hidnplayr	565	pop ecx
		566	sub edx, ecx
		567	rep stosb
		568	pop edi
		569	pop eax
		570	pop esi
		571
		572	.ret:
		573	ret
		574
		575	;-----------------------------------------------------------------------------
		576
		577	put_message:
		578	call put_message_nodraw
		579
		580	draw_messages:
4890	hidnplayr	581	; draw container rectangle/box
7677	hidnplayr	582	mov ebx, MSG_X_POS shl 16
4908	hidnplayr	583	add ebx, [messages_x_size_dd+4]
		584	mov ecx, [messages_y_pos_dd]
7677	hidnplayr	585	mov cx, MSG_Y_SIZE
4908	hidnplayr	586	mcall 13, , , COLOR_BG_NORMAL
4591	hidnplayr	587	mov edx, messages
7677	hidnplayr	588	push MSG_WIDTH
4591	hidnplayr	589	pop esi
7677	hidnplayr	590	mov ecx, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL
		591	mov ebx, MSG_X_POS*10000h
4908	hidnplayr	592	mov bx, word[messages_y_pos_dd+4]
4591	hidnplayr	593
		594	@@:
		595	; display text string in the window
		596	mcall 4
		597	add edx, esi
7677	hidnplayr	598	add ebx, FONT_Y_SIZE+TEXT_Y_CLEARANCE
		599	cmp edx, messages+MSG_WIDTH*MSG_HEIGHT
4591	hidnplayr	600	jb @b
		601	ret
		602
		603	;-----------------------------------------------------------------------------
		604	; Show/hide cursor in command line
		605
		606	; TODO: make it cursor.draw and cursor.hide ???
		607	draw_cursor:
4908	hidnplayr	608	mov ecx, [cmdline_y_pos_dd+2]
7677	hidnplayr	609	add cx, CMD_Y_SIZE-1
4591	hidnplayr	610	mov ebx, [cmdline_pos]
7677	hidnplayr	611	imul ebx, FONT_X_SIZE
		612	add ebx, CMD_X_POS
4591	hidnplayr	613	mov edx, ebx
		614	shl ebx, 16
		615	or ebx, edx
7677	hidnplayr	616	mov edx, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL
4888	hidnplayr	617	; draw line
4591	hidnplayr	618	mcall 38
		619	ret
		620
		621	hide_cursor:
		622	mov ebx, [cmdline_pos]
7677	hidnplayr	623	imul ebx, FONT_X_SIZE
		624	add ebx, CMD_X_POS
4591	hidnplayr	625	shl ebx, 16
		626	inc ebx
4908	hidnplayr	627	mov ecx, [cmdline_y_pos_dd]
7677	hidnplayr	628	mov cx, CMD_Y_SIZE
4591	hidnplayr	629	mov edx, COLOR_BG_NORMAL
		630	; draw container rectangle/box
		631	mcall 13
		632	mov ebx, [cmdline_pos]
		633	cmp ebx, [cmdline_len]
		634	jae .ret
		635	; setting up text color scheme and attributes
7677	hidnplayr	636	mov ecx, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL
4591	hidnplayr	637	lea edx, [cmdline+ebx]
7677	hidnplayr	638	imul ebx, FONT_X_SIZE
		639	add ebx, CMD_X_POS
4591	hidnplayr	640	shl ebx, 16
4908	hidnplayr	641	mov bx, word[cmdline_y_pos_dd+4]
		642	inc bx
4591	hidnplayr	643	push 1
		644	pop esi
		645	; draw text string in the window
		646	mcall 4
		647
		648	.ret:
		649	ret
		650
		651	;-----------------------------------------------------------------------------
		652	; Draw program window title
		653
		654	; FIXME: something wrong here
		655	redraw_title:
		656	; draw container rectangle/box
4908	hidnplayr	657	mov ebx, [data_x_size_dd+4]
7677	hidnplayr	658	add ebx, TITLE_X_POS*10000h+DATA_X_POS-TITLE_X_POS
		659	mcall 13, , TITLE_Y_POS*10000h+TITLE_Y_SIZE, COLOR_BG_NORMAL
4591	hidnplayr	660
		661	draw_title:
7677	hidnplayr	662	mcall 38, (DATA_X_POS-2)10000h+TITLE_X_POS-5, (TITLE_Y_POS+(FONT_Y_SIZE/2))10001h, COLOR_LINE
4591	hidnplayr	663	push NoPrgLoaded_len
		664	pop esi
		665	cmp [debuggee_pid], 0
		666	jz @f
		667	mov esi, [prgname_len]
		668
		669	@@:
7677	hidnplayr	670	imul ebx, esi, FONT_X_SIZE
		671	add ebx, TITLE_X_POS+4
4591	hidnplayr	672	shl ebx, 16
7677	hidnplayr	673	mov bx, DATA_X_POS-10-5-FONT_X_SIZE*7
4908	hidnplayr	674	add bx, word[data_x_size_dd+4]
4591	hidnplayr	675	cmp [bSuspended], 0
		676	jz @f
7677	hidnplayr	677	add ebx, FONT_X_SIZE
4591	hidnplayr	678
		679	@@:
		680	; draw line with COLOR_LINE (in edx)
		681	mcall
4908	hidnplayr	682	mov ebx, [data_x_size_dd+2]
7677	hidnplayr	683	add ebx, (DATA_X_POS-10+4)*0x10000 + DATA_X_POS+2
4591	hidnplayr	684	; draw line with COLOR_LINE (in edx)
		685	mcall
		686	mov al, 4
7677	hidnplayr	687	mov ebx, TITLE_X_POS*10000h+TITLE_Y_POS
4591	hidnplayr	688	; setting up text color scheme and attributes
7677	hidnplayr	689	mov ecx, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL
4591	hidnplayr	690	mov edx, NoPrgLoaded_str
		691	cmp [debuggee_pid], 0
		692	jz @f
		693	mov edx, [prgname_ptr]
		694
		695	@@:
		696	; draw text string in the window
		697	mcall
		698	cmp [debuggee_pid], 0
		699	jz .nodebuggee
4908	hidnplayr	700	mov ebx, [data_x_size_dd]
7677	hidnplayr	701	add ebx, (DATA_X_POS-10-FONT_X_SIZE7)10000h + TITLE_Y_POS
4591	hidnplayr	702	mov edx, aRunning
		703	push 7
		704	pop esi
		705	cmp [bSuspended], 0
		706	jz @f
7677	hidnplayr	707	add ebx, FONT_X_SIZE*10000h
4591	hidnplayr	708	mov edx, aPaused
		709	dec esi
		710
		711	@@:
		712	; draw line with COLOR_LINE (in edx) in one case
7677	hidnplayr	713	; and draw text string with color (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL (in ecx) in another
4591	hidnplayr	714	mcall
		715	ret
		716
		717	.nodebuggee:
		718	mov al, 38
4908	hidnplayr	719	mov ebx, [data_x_size_dd+2]
7677	hidnplayr	720	add ebx, (DATA_X_POS-10-FONT_X_SIZE7-5)0x10000 + DATA_X_POS+2
		721	mov ecx, (TITLE_Y_POS+(FONT_Y_SIZE/2))*10001h
4591	hidnplayr	722	mov edx, COLOR_LINE
		723	jmp @b
		724
		725	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		726	;;;;;;;;;;;;;;;;;;; REGISTERS PANEL ;;;;;;;;;;;;;;;;;;;;;;;;;;
		727	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		728
		729	;-----------------------------------------------------------------------------
		730	; Display common register content
		731
		732	; TODO: add format support (e.g. numerical value, or address offset/pointer)
		733
		734	; in: esi->value, edx->string, ecx = string length, ebx = coord
		735	draw_register:
4906	Serge	736	push esi
4591	hidnplayr	737	push edx
		738	push ecx
4906	Serge	739	push ebp
4890	hidnplayr	740
4906	Serge	741	mov ebp, ecx
		742
4907	Serge	743	mov eax, [esi]
		744
7677	hidnplayr	745	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_INACTIVE or 0x40000000)
4591	hidnplayr	746	cmp [debuggee_pid], 0
		747	jz .cd
		748	cmp [bSuspended], 0
		749	jz .cd
4890	hidnplayr	750
7677	hidnplayr	751	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL or 0x40000000)
4906	Serge	752	cmp eax, dword [esi+oldcontext-context]
		753	je .cd
7677	hidnplayr	754	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_CHANGED or 0x40000000)
4906	Serge	755	.cd:
		756	push eax ;store reg value
4591	hidnplayr	757
4906	Serge	758	mov esi, ebp
4591	hidnplayr	759	; draw a text string in the window
		760	mcall 4
4906	Serge	761
7677	hidnplayr	762	imul esi, FONT_X_SIZE*10000h
4591	hidnplayr	763	lea edx, [ebx+esi]
		764	mov esi, ecx
		765	pop ecx
4890	hidnplayr	766
4591	hidnplayr	767	; draw a number in the window
4906	Serge	768	rol ecx, 16
		769	mcall 47, 0x00040100
4591	hidnplayr	770
4906	Serge	771	shr ecx, 16
7677	hidnplayr	772	add edx, (4*FONT_X_SIZE+3) shl 16
4906	Serge	773	mcall 47
4900	Serge	774
4906	Serge	775	pop ebp
4900	Serge	776	pop ecx
4591	hidnplayr	777	pop edx
4906	Serge	778	pop esi
4591	hidnplayr	779	add edx, ecx
		780	ret
		781
4924	Serge	782
		783	; in: edi=cvt buffer, st0 = value
		784
		785	;align 4
		786	;fp2str:
		787
		788
		789
4591	hidnplayr	790	;-----------------------------------------------------------------------------
4900	Serge	791	; Display FPU register (ST0 - ST7) content
		792	;
4906	Serge	793	; in: ebp->index, ebx = coord
		794
4900	Serge	795	draw_fpu_register_2:
		796
		797	.str_buf equ esp
4912	Serge	798	.cvt_buf equ .str_buf+32
		799	.bcd_man equ .cvt_buf+16
		800	.bcd_exp equ .bcd_man+10
		801	.exp equ .bcd_exp+10
4910	Serge	802	.tmp equ .exp+4
4912	Serge	803	.lcl_end equ .tmp+4
4900	Serge	804
4912	Serge	805	sub esp, 32+16+10+10+4+4
4900	Serge	806
4901	Serge	807	mov edi, .str_buf
4912	Serge	808	shl ebp, 16
		809	lea eax, ['ST0:'+ebp]
4901	Serge	810	stosd
4912	Serge	811	mov eax, 0x20202020
4901	Serge	812	stosd
		813	stosd
		814	stosd
4912	Serge	815	stosd
		816	stosd
4901	Serge	817
		818	movzx eax, word [_fsw]
		819	shr eax, 11
		820	add eax, ebp
4912	Serge	821	shr ebp, 12
4901	Serge	822	and eax, 7
		823	bt dword [_ftw], eax
4924	Serge	824	jc .exam
4901	Serge	825
4912	Serge	826	mov dword [.str_buf+8],' emp'
		827	mov word [.str_buf+8+4],'ty'
4901	Serge	828	jmp .display
		829
4924	Serge	830	.exam:
		831	fld tword [_st0+ebp]
		832	fxam
		833	fstsw ax
		834	fstp st1
		835	sahf
4901	Serge	836
4924	Serge	837	jz .c3
		838	jp .c2
4901	Serge	839
4924	Serge	840	;C0 leaf
		841	jc .nan
		842
		843	; C3 = 0 C2 = 0 C0 = 0 - invalid
4912	Serge	844	mov dword [.str_buf+6], ' inv'
		845	mov dword [.str_buf+6+4], 'alid'
4901	Serge	846	jmp .display
		847
4924	Serge	848	; C3 = 0 C2 = 0 C0 = 1 - Not a Number
		849	.nan:
		850	mov dword [.str_buf+10], ' NaN'
		851	jmp .display
4901	Serge	852
4924	Serge	853	;C2 leaf - valid or infinity
4901	Serge	854
4924	Serge	855	.c2:
		856	; C3 = 0 C2 = 1 C0 = 0 - valid number
		857
		858	jnc .decode
		859
		860	; C3 = 0 C2 = 1 C0 = 1 - Infinty
		861
		862	;check sign flag
		863	test ah, 0x02
		864	jnz @F
		865	mov dword [.str_buf+10], '+Inf'
		866	jmp .display
		867	@@:
		868	mov dword [.str_buf+10], '-Inf'
		869	jmp .display
		870
		871	.c3:
		872	jp .denormal
		873	jc .empty
		874
		875	; C3 = 1 C2 = 1 C0 = 0 - Zero
		876
4912	Serge	877	mov dword [.str_buf+10], ' 0.0'
4901	Serge	878	jmp .display
		879
4924	Serge	880	.empty:
		881	mov dword [.str_buf+8],' emp'
		882	mov word [.str_buf+8+4],'ty'
		883	jmp .display
		884
		885	; C3 = 1 C2 = 1 C0 = 0 - Denormal number
		886
		887	.denormal:
		888	test ah, 0x02
		889	jnz @F
		890
		891	mov dword [.str_buf+6], '+den'
		892	mov dword [.str_buf+6+4], 'orm '
		893	jmp .display
		894	@@:
		895	mov dword [.str_buf+6], '-den'
		896	mov dword [.str_buf+6+4], 'orm '
		897	jmp .display
		898
4901	Serge	899	.decode:
4912	Serge	900	fld tword [_st0+ebp]
4910	Serge	901	fabs
		902	fld st0
4900	Serge	903	fldlg2
4910	Serge	904	fld st1
4900	Serge	905	fyl2x
		906	frndint
4910	Serge	907	fist dword [.exp]
4900	Serge	908	fld st0
		909	fbstp tword [.bcd_exp]
4910	Serge	910
4900	Serge	911	fldl2t
		912	fmulp
		913	fld st0
		914	frndint
		915	fxch
		916	fsub st,st1
		917
		918	f2xm1
		919	fld1
		920	faddp
		921	fscale
		922	fstp st1
		923	fdivp
4910	Serge	924
		925	fist dword [.tmp]
		926	cmp dword [.tmp], 10
		927	jae .fixup
		928
		929	fstp st1
		930	jmp .done
		931
		932	.fixup:
		933	fstp st0
		934
		935	inc dword [.exp]
		936	fild dword [.exp]
		937	fld st0
4912	Serge	938	fbstp tword [.bcd_exp]
4910	Serge	939
		940	fldl2t
		941	fmulp
		942	fld st0
		943	frndint
		944	fxch
4912	Serge	945	fsub st,st1
4910	Serge	946
		947	f2xm1
		948	fld1
		949	faddp
		950	fscale
4912	Serge	951	fstp st1
4910	Serge	952	fdivp
		953	.done:
4912	Serge	954	fimul dword [n_digits]
4900	Serge	955	fbstp tword [.bcd_man]
		956
4912	Serge	957	lea edi, [.cvt_buf]
		958	mov edx, dword [.bcd_man]
		959	mov ecx, 8
		960	@@:
		961	xor eax, eax
		962	shld eax, edx, 4
4900	Serge	963	stosb
4912	Serge	964	shl edx, 4
		965	loop @B
4900	Serge	966
4912	Serge	967	lea esi, [.cvt_buf+7]
		968	lea edi, [.str_buf+13]
		969	mov ecx, 7
		970	mov ah, 0x30
		971	std
		972	.skip_z:
		973	lodsb
4900	Serge	974	test al, al
4912	Serge	975	jnz .body
		976	loop .skip_z
		977	.body:
		978	add al, ah
4900	Serge	979	stosb
4912	Serge	980	lodsb
		981	jcxz .point
		982	loop .body
		983	.point:
		984	dec edi
		985	add al, ah
		986	mov ah, '.'
4900	Serge	987	stosw
		988
4912	Serge	989	bt word [_st0+ebp+8], 15
		990	jnc .m_sign
4900	Serge	991	mov al, '-'
4912	Serge	992	mov [edi+1], al
4901	Serge	993
4912	Serge	994	.m_sign:
		995	cld
4900	Serge	996
4912	Serge	997	mov dx, word [.bcd_exp]
		998	test dx, dx
		999	jz .display
4900	Serge	1000
4912	Serge	1001	lea edi, [.str_buf+15]
		1002	mov ax, 'E '
		1003	cmp byte [.bcd_exp+9], 0x80
		1004	jne .w_e_sign
		1005	mov ax, 'E-'
4901	Serge	1006
4912	Serge	1007	.w_e_sign:
		1008	stosw
4901	Serge	1009
4912	Serge	1010	mov ecx, 4
		1011	.skip_lz:
		1012	xor eax, eax
7677	hidnplayr	1013	shld ax, dx, 4
4912	Serge	1014	shl dx, 4
		1015	test al, al
		1016	jnz .w_exp
		1017	loop .skip_lz
		1018	.w_exp:
7677	hidnplayr	1019	add al, 0x30
4900	Serge	1020	stosb
4912	Serge	1021	xor eax, eax
7677	hidnplayr	1022	shld ax, dx, 4
4912	Serge	1023	shl dx,4
		1024	loop .w_exp
4901	Serge	1025
		1026	.display:
		1027
7677	hidnplayr	1028	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_INACTIVE or 0x40000000)
4900	Serge	1029	cmp [debuggee_pid], 0
		1030	jz .do_label
		1031	cmp [bSuspended], 0
		1032	jz .do_label
		1033
7677	hidnplayr	1034	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL or 0x40000000)
4900	Serge	1035
4912	Serge	1036	mov eax, dword [_st0+ebp]
		1037	cmp eax, dword [_st0+(oldcontext-context)+ebp]
4900	Serge	1038	jne .scol
		1039
4912	Serge	1040	mov eax, dword [_st0+ebp+4]
		1041	cmp eax, dword [_st0+(oldcontext-context)+ebp+4]
4900	Serge	1042	jne .scol
		1043
4912	Serge	1044	mov ax, word [_st0+ebp+8]
		1045	cmp ax, word [_st0+(oldcontext-context)+ebp+8]
4900	Serge	1046	je .do_label
		1047
		1048	.scol:
7677	hidnplayr	1049	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_CHANGED or 0x40000000)
4900	Serge	1050
		1051	.do_label:
		1052	; draw a text string in the window
4914	Serge	1053	mov esi, 23
4912	Serge	1054	mov edx, .str_buf
4900	Serge	1055	mov edi, COLOR_BG_NORMAL
7677	hidnplayr	1056	mcall 4
4900	Serge	1057
4912	Serge	1058	shr ebp, 4
		1059	add esp, 32+16+10+10+4+4
4900	Serge	1060
		1061	ret
		1062
		1063
		1064	;-----------------------------------------------------------------------------
4591	hidnplayr	1065	; Show FPU MMX register content
		1066	;
4906	Serge	1067	; in: ebp index, ebx = coord
4890	hidnplayr	1068
4906	Serge	1069	draw_mmx_register_2:
		1070
4914	Serge	1071	sub esp, 24
		1072	lea edi, [esp+4]
		1073
4906	Serge	1074	shl ebp, 4
4914	Serge	1075	mov eax, ebp
		1076	shl eax, 16-4
		1077	add eax, 'MM0:'
		1078	mov [esp], eax
4906	Serge	1079
4914	Serge	1080	mov edx, dword [_mm0+ebp+4]
		1081	call .hex_2_str
		1082	mov al, ' '
		1083	stosb
		1084	call .hex_2_str
		1085	mov al, ' '
		1086	stosb
		1087
		1088	mov edx, dword [_mm0+ebp]
		1089	call .hex_2_str
		1090	mov al, ' '
		1091	stosb
		1092	call .hex_2_str
		1093
7677	hidnplayr	1094	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_INACTIVE or 0x40000000)
4591	hidnplayr	1095	cmp [debuggee_pid], 0
		1096	jz .cd
		1097	cmp [bSuspended], 0
		1098	jz .cd
4890	hidnplayr	1099
7677	hidnplayr	1100	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL or 0x40000000)
4591	hidnplayr	1101
4906	Serge	1102	mov eax, dword [_mm0+ebp]
		1103	cmp eax, dword [_mm0+(oldcontext-context)+ebp]
		1104	jne .scol
		1105
		1106	mov eax, dword [_mm0+ebp+4]
		1107	cmp eax, dword [_mm0+(oldcontext-context)+ebp+4]
		1108	je .cd
		1109
		1110	.scol:
7677	hidnplayr	1111	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_CHANGED or 0x40000000)
4906	Serge	1112	.cd:
4591	hidnplayr	1113	; draw a text string in the window
4890	hidnplayr	1114
4914	Serge	1115	mov esi, 23
4906	Serge	1116	mov edx, esp
		1117	mov edi, COLOR_BG_NORMAL
7677	hidnplayr	1118	mcall 4
4914	Serge	1119	shr ebp, 4
		1120	add esp, 24
		1121	ret
4906	Serge	1122
4914	Serge	1123	align 4
		1124	.hex_2_str:
		1125	mov ecx, 4
		1126	@@:
		1127	xor eax, eax
		1128	shld eax, edx, 4
		1129	aaa
		1130	adc al, 0x30
		1131	aad 16
		1132	shl edx, 4
		1133	stosb
		1134	loop @B
		1135	ret
4906	Serge	1136
4914	Serge	1137	align 4
		1138	draw_fpu_regs:
		1139	push ebp
		1140	push 8
		1141	xor ebp, ebp
		1142	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1143	add ebx, 210000h+REGISTERS_Y_POS+14(TEXT_Y_CLEARANCE+FONT_Y_SIZE)
4914	Serge	1144	.draw_regs:
		1145	call draw_fpu_register_2
7677	hidnplayr	1146	add ebx, FONT_Y_SIZE+TEXT_Y_CLEARANCE
4914	Serge	1147	inc ebp
		1148	dec dword [esp]
		1149	jnz .draw_regs
		1150	pop eax ;restore stack
		1151	pop ebp
		1152	ret
4906	Serge	1153
4914	Serge	1154	align 4
		1155	draw_mmx_regs:
		1156	push ebp
		1157	push 8
		1158	xor ebp, ebp
		1159	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1160	add ebx, 210000h+REGISTERS_Y_POS+14(TEXT_Y_CLEARANCE+FONT_Y_SIZE)
4914	Serge	1161	.draw_regs:
		1162	call draw_mmx_register_2
7677	hidnplayr	1163	add ebx, FONT_Y_SIZE+TEXT_Y_CLEARANCE
4914	Serge	1164	inc ebp
		1165	dec dword [esp]
		1166	jnz .draw_regs
		1167	pop eax
		1168	pop ebp
4591	hidnplayr	1169	ret
		1170
4924	Serge	1171	align 4
		1172	draw_sse_regs:
		1173	push ebp
		1174	push 8
		1175	xor ebp, ebp
		1176	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1177	add ebx, 210000h+REGISTERS_Y_POS+14(TEXT_Y_CLEARANCE+FONT_Y_SIZE)
4924	Serge	1178	.draw_regs:
		1179	; call draw_sse_register
7677	hidnplayr	1180	add ebx, FONT_Y_SIZE+TEXT_Y_CLEARANCE
4924	Serge	1181	inc ebp
		1182	dec dword [esp]
		1183	jnz .draw_regs
		1184	pop eax
		1185	pop ebp
		1186	ret
		1187
4591	hidnplayr	1188	; TODO add AVX registers
		1189
		1190	;-----------------------------------------------------------------------------
		1191	; Display contents of EFLAGS register
		1192	draw_flag:
		1193	movzx edi, byte [edx+7]
		1194	bt [_eflags], edi
		1195	jc .on
		1196	or byte [edx], 20h
		1197	jmp .onoff
		1198
		1199	.on:
		1200	and byte [edx], not 20h
		1201
		1202	.onoff:
7677	hidnplayr	1203	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_INACTIVE or 0x40000000)
4591	hidnplayr	1204	cmp [debuggee_pid], 0
		1205	jz .doit
		1206	cmp [bSuspended], 0
		1207	jz .doit
4890	hidnplayr	1208
7677	hidnplayr	1209	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL or 0x40000000)
4591	hidnplayr	1210	bt [_eflags], edi
		1211	lahf
		1212	bt dword [_eflags + oldcontext - context], edi
		1213	rcl ah, 1
		1214	test ah, 3
		1215	jp .doit
7677	hidnplayr	1216	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_CHANGED or 0x40000000)
4591	hidnplayr	1217
		1218	.doit:
		1219	mov ah, 0
		1220	mov edi, COLOR_BG_NORMAL
		1221	; draw a text string in the window in one case
		1222	; and a number in another
		1223	; color scheme same as for previously called function (was in ecx)
		1224	mcall
		1225	ret
		1226
		1227	;-----------------------------------------------------------------------------
		1228	; Draw registers frame title
		1229
		1230	; Also show current register set (common + MMX, SSE or AVX)
		1231	draw_reg_title:
		1232	mov edi, COLOR_BG_NORMAL
7677	hidnplayr	1233	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL or 0x40000000)
4591	hidnplayr	1234	mov esi, 7
		1235	cmp [reg_mode], REG_MODE_CPU
		1236	jz @f
7677	hidnplayr	1237	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_INACTIVE or 0x40000000)
4591	hidnplayr	1238	@@:
4914	Serge	1239	movzx edx, [fpu_mode]
		1240	mov edx, [btn2_tab+edx*4]
		1241
4591	hidnplayr	1242	; draw a text string in the window
4908	hidnplayr	1243	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1244	add ebx, 4*10000h+REGISTERS_Y_POS
4908	hidnplayr	1245	mcall 4
4888	hidnplayr	1246
4591	hidnplayr	1247	cmp [reg_mode], REG_MODE_SSE
		1248	jz @f
7677	hidnplayr	1249	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_INACTIVE or 0x40000000)
4591	hidnplayr	1250	@@:
		1251	mov edx, aSSE
		1252	; draw a text string in the window
4908	hidnplayr	1253	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1254	add ebx, (7FONT_X_SIZE+4)10000h+REGISTERS_Y_POS
4908	hidnplayr	1255	mcall 4
4888	hidnplayr	1256
4591	hidnplayr	1257	cmp [reg_mode], REG_MODE_AVX
		1258	jz @f
7677	hidnplayr	1259	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_INACTIVE or 0x40000000)
4591	hidnplayr	1260	@@:
		1261	mov edx, aAVX
		1262	; draw a text string in the window
4908	hidnplayr	1263	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1264	add ebx, (14FONT_X_SIZE+4)10000h+REGISTERS_Y_POS
4908	hidnplayr	1265	mcall 4
4591	hidnplayr	1266	ret
		1267
		1268	;-----------------------------------------------------------------------------
		1269	; Display common registers set + MMX + FPU
		1270
		1271	draw_main_registers:
4888	hidnplayr	1272	; TODO: add support for FPU ST0-ST7 registers
4591	hidnplayr	1273	mov edi, COLOR_BG_NORMAL
		1274	mov esi, _eax
		1275	push 4
		1276	pop ecx
		1277	mov edx, regs_strs
4908	hidnplayr	1278	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1279	add ebx, 210000h+REGISTERS_Y_POS+2(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1280	call draw_register
4908	hidnplayr	1281	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1282	add ebx, 210000h+REGISTERS_Y_POS+3(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1283	add esi, _ebx-_eax
		1284	call draw_register
4908	hidnplayr	1285	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1286	add ebx, 210000h+REGISTERS_Y_POS+4(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1287	add esi, _ecx-_ebx
		1288	call draw_register
4908	hidnplayr	1289	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1290	add ebx, 210000h+REGISTERS_Y_POS+5(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1291	add esi, _edx-_ecx
		1292	call draw_register
4908	hidnplayr	1293	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1294	add ebx, 210000h+REGISTERS_Y_POS+6(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1295	add esi, _esi-_edx
		1296	call draw_register
4908	hidnplayr	1297	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1298	add ebx, 210000h+REGISTERS_Y_POS+7(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1299	add esi, _edi-_esi
		1300	call draw_register
4908	hidnplayr	1301	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1302	add ebx, 210000h+REGISTERS_Y_POS+8(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1303	add esi, _ebp-_edi
		1304	call draw_register
4908	hidnplayr	1305	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1306	add ebx, 210000h+REGISTERS_Y_POS+9(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1307	add esi, _esp-_ebp
		1308	call draw_register
4908	hidnplayr	1309	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1310	add ebx, 210000h+REGISTERS_Y_POS+10(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1311	add esi, _eip-_esp
		1312	call draw_register
4908	hidnplayr	1313	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1314	add ebx, 210000h+REGISTERS_Y_POS+11(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4895	Serge	1315
4591	hidnplayr	1316	mov cl, 7
		1317	add esi, _eflags-_eip
		1318	call draw_register
		1319
4914	Serge	1320	cmp [fpu_mode], 1
		1321	je .fpu
		1322	call draw_mmx_regs
		1323	jmp @f
7677	hidnplayr	1324	.fpu:
4914	Serge	1325	call draw_fpu_regs
7677	hidnplayr	1326	@@:
		1327	mov ecx, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_INACTIVE
4591	hidnplayr	1328	cmp [debuggee_pid], 0
		1329	jz @f
		1330	cmp [bSuspended], 0
		1331	jz @f
7677	hidnplayr	1332	mov ecx, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL
4591	hidnplayr	1333	@@:
		1334	mov edx, aColon
		1335	xor esi, esi
		1336	inc esi
4908	hidnplayr	1337	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1338	add ebx, 1010000h+REGISTERS_Y_POS+12(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4908	hidnplayr	1339	mcall 4
4591	hidnplayr	1340	mov edx, flags
		1341
		1342	@@:
7677	hidnplayr	1343	add ebx, 2FONT_X_SIZE10000h
4591	hidnplayr	1344	call draw_flag
		1345	inc edx
		1346	cmp dl, flags_bits and 0xFF
		1347	jnz @b
		1348	ret
		1349
		1350	;-----------------------------------------------------------------------------
		1351	; Draw SSE registers set
		1352
		1353	draw_sse_registers:
4888	hidnplayr	1354
4591	hidnplayr	1355	ret
		1356
		1357	;-----------------------------------------------------------------------------
		1358	; Draw AVX registers set
		1359
		1360	draw_avx_registers:
4888	hidnplayr	1361
4591	hidnplayr	1362	ret
		1363
		1364	;-----------------------------------------------------------------------------
		1365	; Draw all registers sets
		1366	draw_registers:
4888	hidnplayr	1367
		1368	; draw container rectangle/box with COLOR_BG_NORMAL
4908	hidnplayr	1369	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1370	add ebx, (-1)*10000h+(REGISTERS_X_SIZE+2)
4908	hidnplayr	1371	mov ecx, [registers_y_size_dd+4]
7677	hidnplayr	1372	add ecx, ((TITLE_Y_POS+(FONT_Y_SIZE/2))+1)*10000h+2
4908	hidnplayr	1373	mcall 13, , , COLOR_BG_NORMAL
4591	hidnplayr	1374	call draw_reg_title
4888	hidnplayr	1375
		1376	.redraw:
4591	hidnplayr	1377	cmp [reg_mode], REG_MODE_CPU
		1378	jnz @f
		1379	call draw_main_registers
		1380	ret
		1381
		1382	@@:
		1383	cmp [reg_mode], REG_MODE_SSE
		1384	jnz @f
		1385	call draw_sse_registers
		1386	ret
		1387
		1388	@@:
		1389	call draw_avx_registers
		1390	ret
		1391
		1392	;-----------------------------------------------------------------------------
		1393	; Display memory dump
		1394
		1395	draw_dump:
		1396	; draw container rectangle/box in the window
4908	hidnplayr	1397	mov ebx, [data_x_size_dd+4]
7677	hidnplayr	1398	add ebx, DATA_X_POS*10000h
		1399	mcall 13, , DUMP_Y_POS*10000h+DUMP_Y_SIZE, COLOR_BG_NORMAL
4591	hidnplayr	1400
		1401	.redraw:
4888	hidnplayr	1402	; addresses
4591	hidnplayr	1403	mov ebx, 80100h
7677	hidnplayr	1404	mov edx, DATA_X_POS*10000h + DUMP_Y_POS
4591	hidnplayr	1405	mov ecx, [dumppos]
		1406	mov edi, COLOR_BG_NORMAL
7677	hidnplayr	1407	mov esi, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_INACTIVE or 0x40000000)
4591	hidnplayr	1408	cmp [debuggee_pid], 0
		1409	jz @f
		1410	cmp [bSuspended], 0
		1411	jz @f
7677	hidnplayr	1412	mov esi, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL or 0x40000000)
4591	hidnplayr	1413	@@:
4888	hidnplayr	1414	; draw a number in the window
4591	hidnplayr	1415	mcall 47
		1416	add ecx, 10h
7677	hidnplayr	1417	add edx, FONT_Y_SIZE + TEXT_Y_CLEARANCE
		1418	cmp dl, DUMP_Y_POS + DUMP_Y_SIZE
4591	hidnplayr	1419	jb @b
4888	hidnplayr	1420	; hex dump of data
4591	hidnplayr	1421	mov ecx, dumpdata
		1422	push ecx
		1423	xor ebx, ebx
7677	hidnplayr	1424	mov edx, (DATA_X_POS+12FONT_X_SIZE)10000h + DUMP_Y_POS
4591	hidnplayr	1425	cmp [dumpread], ebx
		1426	jz .hexdumpdone1
		1427
		1428	.hexdumploop1:
		1429	push ebx
		1430	mov ebx, 20101h
4888	hidnplayr	1431	; draw a number in the window
4591	hidnplayr	1432	mcall
		1433	pop ebx
7677	hidnplayr	1434	add edx, 3FONT_X_SIZE10000h
4591	hidnplayr	1435	inc ecx
		1436	inc ebx
		1437	test bl, 15
		1438	jz .16
		1439	test bl, 7
		1440	jnz @f
7677	hidnplayr	1441	add edx, 2FONT_X_SIZE10000h - (FONT_Y_SIZE+TEXT_Y_CLEARANCE) + FONT_X_SIZE(310h+2)*10000h
4591	hidnplayr	1442
		1443	.16:
7677	hidnplayr	1444	add edx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE) - FONT_X_SIZE(310h+2)*10000h
4591	hidnplayr	1445
		1446	@@:
		1447	cmp ebx, [dumpread]
		1448	jb .hexdumploop1
		1449
		1450	.hexdumpdone1:
		1451	mov al, 4
		1452	; copy color value from esi to ecx
		1453	; to draw text string with 'mcall 4'
		1454	mov ecx, esi
		1455	xchg ebx, edx
		1456	push 2
		1457	pop esi
		1458
		1459	.hexdumploop2:
7677	hidnplayr	1460	cmp edx, DUMP_HEIGHT*10h
4591	hidnplayr	1461	jae .hexdumpdone2
		1462	push edx
		1463	mov edx, aQuests
		1464	; draw text string with color in ecx, copied from esi
		1465	mcall
		1466	pop edx
7677	hidnplayr	1467	add ebx, 3FONT_X_SIZE10000h
4591	hidnplayr	1468	inc edx
		1469	test dl, 15
		1470	jz .16x
		1471	test dl, 7
		1472	jnz .hexdumploop2
7677	hidnplayr	1473	add ebx, 2FONT_X_SIZE10000h - (FONT_Y_SIZE+TEXT_Y_CLEARANCE) + FONT_X_SIZE(310h+2)*10000h
4591	hidnplayr	1474
7677	hidnplayr	1475	.16x:
		1476	add ebx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE) - FONT_X_SIZE(310h+2)*10000h
4591	hidnplayr	1477	jmp .hexdumploop2
		1478
7677	hidnplayr	1479	.hexdumpdone2:
4591	hidnplayr	1480	dec esi
4890	hidnplayr	1481	; colon, minus signs
7677	hidnplayr	1482	mov ebx, (DATA_X_POS+8FONT_X_SIZE)10000h + DUMP_Y_POS
4591	hidnplayr	1483	mov edx, aColon
		1484
		1485	@@:
		1486	mcall
7677	hidnplayr	1487	add ebx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE)
		1488	cmp bl, DUMP_Y_POS+DUMP_HEIGHT*(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1489	jb @b
7677	hidnplayr	1490	mov ebx, (DATA_X_POS+(12+38)FONT_X_SIZE)*10000h + DUMP_Y_POS
4591	hidnplayr	1491	mov edx, aMinus
		1492
		1493	@@:
		1494	mcall
7677	hidnplayr	1495	add ebx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE)
		1496	cmp bl, DUMP_Y_POS+DUMP_HEIGHT*(FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1497	jb @b
4890	hidnplayr	1498	; ASCII data
7677	hidnplayr	1499	mov ebx, (DATA_X_POS+(12+310h+2+2)FONT_X_SIZE)*10000h + DUMP_Y_POS
4591	hidnplayr	1500	pop edx
7677	hidnplayr	1501	push DUMP_HEIGHT*10h
4591	hidnplayr	1502
		1503	.asciiloop:
		1504	push edx
		1505	cmp byte [edx], 20h
		1506	jae @f
		1507	mov edx, aPoint
		1508
		1509	@@:
		1510	; draw a text string in the window, color in ecx
		1511	mcall
		1512	pop edx
		1513	inc edx
7677	hidnplayr	1514	add ebx, FONT_X_SIZE*10000h
4591	hidnplayr	1515	dec dword [esp]
		1516	jz .asciidone
		1517	test byte [esp], 15
		1518	jnz .asciiloop
7677	hidnplayr	1519	add ebx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE) - FONT_X_SIZE10h10000h
4591	hidnplayr	1520	jmp .asciiloop
		1521
		1522	.asciidone:
		1523	pop ecx
		1524	ret
		1525
		1526	;-----------------------------------------------------------------------------
		1527	; Display disassembled code
		1528
		1529	draw_disasm:
		1530
		1531	mov eax, [disasm_start_pos]
		1532	mov [disasm_cur_pos], eax
		1533	and [disasm_cur_str], 0
		1534
		1535	.loop:
		1536	mov eax, [disasm_cur_pos]
		1537	call find_symbol
		1538	jc .nosymb
		1539	mov ebx, [disasm_cur_str]
7677	hidnplayr	1540	imul ebx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1541	push ebx
7677	hidnplayr	1542	lea ecx, [ebx+DISASM_Y_POS-1]
4591	hidnplayr	1543	shl ecx, 16
		1544	mov cl, 11
		1545	; setting up background color for disassembled text
		1546	mov edx, COLOR_BG_NORMAL
		1547	; draw container rectangle/box with color COLOR_BG_NORMAL (was 0xFFFFFF - white)
4908	hidnplayr	1548	mov ebx, [data_x_size_dd+4]
7677	hidnplayr	1549	add ebx, DATA_X_POS*10000h
4908	hidnplayr	1550	mcall 13
4591	hidnplayr	1551	pop ebx
		1552	; copy color value from edx (COLOR_BG_NORMAL)
		1553	mov edi, edx
7677	hidnplayr	1554	add ebx, (DATA_X_POS+FONT_X_SIZE2)10000h+DISASM_Y_POS
4591	hidnplayr	1555	mov edx, esi
		1556
		1557	@@:
		1558	lodsb
		1559	test al, al
		1560	jnz @b
		1561	mov byte [esi-1], ':'
		1562	sub esi, edx
		1563	; normal color
		1564	; was 0x40000000
7677	hidnplayr	1565	mov ecx, ((FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_LABEL or 0x40000000)
4591	hidnplayr	1566	mov al, 4
		1567	; draw a text string in the window with color COLOR_TXT_NORMAL in ecx
		1568	mcall
		1569	mov byte [esi+edx-1], 0
		1570	lea esi, [esi*3]
		1571	movzx ecx, bx
		1572	shr ebx, 16
		1573	lea ebx, [ebx+esi*2]
		1574	shl ecx, 16
		1575	mov cl, 10
		1576	imul ebx, 10001h
7677	hidnplayr	1577	sub bx, DATA_X_POS
4908	hidnplayr	1578	sub bx, word[data_x_size_dd+4]
4591	hidnplayr	1579	neg bx
		1580	mov al, 13
		1581	; copy color value from edi
		1582	mov edx, edi
		1583	; draw container rectangle/box for disassembled text, color in edx
		1584	mcall
		1585	inc [disasm_cur_str]
4908	hidnplayr	1586	mov eax, [disasm_height_dd]
		1587	cmp [disasm_cur_str], eax
4591	hidnplayr	1588	jae .loopend
		1589
		1590	.nosymb:
		1591	push [disasm_cur_pos]
		1592	call disasm_instr
		1593	pop ebp
		1594	jc .loopend
4886	hidnplayr	1595	mov edx, COLOR_BG_NORMAL
7677	hidnplayr	1596	mov esi, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_NORMAL
		1597	mov ebx, DATA_X_POS*10000h
4908	hidnplayr	1598	add ebx, [data_x_size_dd+4]
4591	hidnplayr	1599	mov ecx, [disasm_cur_str]
7677	hidnplayr	1600	imul ecx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE)*10000h
		1601	add ecx, (DISASM_Y_POS-1)*10000h + (FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1602	mov eax, ebp
		1603	pushad
		1604	call find_enabled_breakpoint
		1605	popad
4886	hidnplayr	1606	jnz .nobp
4591	hidnplayr	1607	mov edx, COLOR_BG_BREAKPOINT
7677	hidnplayr	1608	mov esi, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_BREAKPOINT
4886	hidnplayr	1609	.nobp:
4591	hidnplayr	1610
		1611	mov eax, [_eip]
		1612	cmp eax, ebp
4886	hidnplayr	1613	jnz .notcurrent
4591	hidnplayr	1614	mov edx, COLOR_BG_SELECTED
7677	hidnplayr	1615	mov esi, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_SELECTED
4886	hidnplayr	1616	.notcurrent:
		1617	push esi ; Save color value for disassembled text
4591	hidnplayr	1618
		1619	; draw container rectangle/box for disassembled text
		1620	; color in edx
		1621	mcall 13
4890	hidnplayr	1622
4591	hidnplayr	1623	mov edx, [disasm_cur_str]
7677	hidnplayr	1624	imul edx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE)
		1625	add edx, DATA_X_POS*10000h + DISASM_Y_POS
4591	hidnplayr	1626	; draw a number in the window, color in esi
		1627	mcall 47, 80100h, ebp
4890	hidnplayr	1628
7677	hidnplayr	1629	lea ebx, [edx+8FONT_X_SIZE10000h]
4886	hidnplayr	1630	mov ecx, esi ; text color
4591	hidnplayr	1631	push 2
		1632	pop esi
		1633	mov edx, aColon
4886	hidnplayr	1634	; draw the colon
4591	hidnplayr	1635	mcall 4
		1636	push 9
		1637	pop edi
7677	hidnplayr	1638	lea edx, [ebx+2FONT_X_SIZE10000h]
4591	hidnplayr	1639	mov ecx, ebp
		1640	sub ecx, [disasm_start_pos]
		1641	add ecx, disasm_buffer
		1642
7677	hidnplayr	1643	mov esi, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_HEX
4886	hidnplayr	1644	mov eax, [_eip]
		1645	cmp eax, ebp
		1646	jnz @f
7677	hidnplayr	1647	mov esi, (FONT and 11b) shl 28 or ((FONT_MULTIPLIER - 1) and 111b) shl 24 or COLOR_TXT_SELECTED
4886	hidnplayr	1648	@@:
4591	hidnplayr	1649	.drawhex:
		1650	; draw a number in the window, color in esi
		1651	mcall 47, 20101h
7677	hidnplayr	1652	add edx, FONT_X_SIZE310000h
4591	hidnplayr	1653	inc ecx
		1654	inc ebp
		1655	cmp ebp, [disasm_cur_pos]
		1656	jae .hexdone
		1657	dec edi
		1658	jnz .drawhex
		1659	push esi
		1660	mov esi, [disasm_cur_pos]
		1661	dec esi
		1662	cmp esi, ebp
		1663	pop esi
		1664	jbe .drawhex
4890	hidnplayr	1665
7677	hidnplayr	1666	lea ebx, [edx-FONT_X_SIZE*10000h]
4591	hidnplayr	1667	; copy color value from esi
		1668	mov ecx, esi
		1669	push 3
		1670	pop esi
		1671	mov edx, aDots
		1672	; draw a text string in the window, color in ecx
		1673	mcall 4
		1674
		1675	.hexdone:
4886	hidnplayr	1676	pop esi
4591	hidnplayr	1677	xor eax, eax
		1678	mov edi, disasm_string
		1679	mov edx, edi
		1680	or ecx, -1
		1681	repnz scasb
		1682	not ecx
		1683	dec ecx
		1684	xchg ecx, esi
		1685	mov ebx, [disasm_cur_str]
7677	hidnplayr	1686	imul ebx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE)
		1687	add ebx, (DATA_X_POS+FONT_X_SIZE40)10000h+DISASM_Y_POS
4890	hidnplayr	1688
4591	hidnplayr	1689	; draw a text string in the window, color in ecx
		1690	mcall 4
		1691	inc [disasm_cur_str]
4908	hidnplayr	1692	mov eax, [disasm_height_dd]
		1693	cmp [disasm_cur_str], eax
4591	hidnplayr	1694	jb .loop
		1695
		1696	.loopend:
4908	hidnplayr	1697	mov ecx, [disasm_height_dd]
4591	hidnplayr	1698	sub ecx, [disasm_cur_str]
		1699	jz @f
7677	hidnplayr	1700	imul ecx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4591	hidnplayr	1701	inc ecx
7677	hidnplayr	1702	mov eax, DISASM_Y_POS
4908	hidnplayr	1703	add eax, [disasm_y_size_dd+4]
4591	hidnplayr	1704	sub eax, ecx
		1705	shl eax, 16
		1706	add ecx, eax
4890	hidnplayr	1707	; Draw filled rectangle
4908	hidnplayr	1708	mov ebx, [data_x_size_dd+4]
7677	hidnplayr	1709	add ebx, DATA_X_POS*10000h
4908	hidnplayr	1710	mcall 13, , , COLOR_BG_NORMAL
4591	hidnplayr	1711
		1712	@@:
		1713	ret
		1714
		1715	;-----------------------------------------------------------------------------
		1716
		1717	; TODO: cleanup of this function, make some global labels local
		1718	update_disasm_eip:
		1719	; test if instruction at eip is showed
5206	clevermous	1720	mov ecx, [disasm_height_dd]
4591	hidnplayr	1721	mov eax, [disasm_start_pos]
		1722	mov [disasm_cur_pos], eax
		1723
		1724	.l:
		1725	mov eax, [disasm_cur_pos]
		1726	call find_symbol
		1727	jc @f
		1728	dec ecx
		1729	jz .m
		1730
		1731	@@:
		1732	cmp [_eip], eax
4890	hidnplayr	1733	jz draw_disasm
4591	hidnplayr	1734	push ecx
		1735	call disasm_instr
		1736	pop ecx
		1737	jc .m
		1738	loop .l
		1739
		1740	.m:
		1741
		1742	update_disasm_eip_force:
		1743	mov eax, [_eip]
		1744	mov [disasm_start_pos], eax
		1745
		1746	update_disasm:
		1747	cmp [debuggee_pid], 0
		1748	jz .no
4890	hidnplayr	1749
4591	hidnplayr	1750	mcall 69, 6, [debuggee_pid], 256, [disasm_start_pos], disasm_buffer
		1751	cmp eax, -1
		1752	jnz @f
		1753	mov esi, read_mem_err
		1754	call put_message
		1755
		1756	.no:
		1757	xor eax, eax
		1758
		1759	@@:
		1760	mov [disasm_buf_size], eax
		1761	call restore_from_breaks
4890	hidnplayr	1762	jmp draw_disasm
4591	hidnplayr	1763
		1764
		1765	;-----------------------------------------------------------------------------
		1766	; Draw main window
		1767
		1768	draw_window:
4890	hidnplayr	1769	; start window redraw
4591	hidnplayr	1770	mcall 12, 1
		1771
4890	hidnplayr	1772	; define window
5696	hidnplayr	1773	mcall 0, wnd_x_size+10, wnd_y_size+30, (COLOR_BG_NORMAL or 0x33000000), ,caption_str
4591	hidnplayr	1774
4908	hidnplayr	1775	; Get actual window size
		1776	mcall 9, thread_info, -1
4591	hidnplayr	1777
4908	hidnplayr	1778	; Check if window is rolled up
		1779	test [thread_info.wnd_state], 100b
		1780	jnz .done
		1781
		1782	; Check if window isnt smaller then permisseable
		1783	mov eax, [thread_info.box.width] ; window xsize
		1784	mov ebx, [thread_info.box.height] ; ysize
		1785	mov edx, [thread_info.client_box.width] ; work area xsize
		1786	mov esi, [thread_info.client_box.height] ; ysize
		1787	sub eax, edx
		1788	sub ebx, esi
		1789
		1790	cmp edx, wnd_x_size
		1791	jae .x_ok
		1792	mov edx, wnd_x_size
		1793	.x_ok:
		1794	add edx, eax
		1795
		1796	cmp esi, wnd_y_size
		1797	jae .y_ok
		1798	mov esi, wnd_y_size
		1799	.y_ok:
		1800	add esi, ebx
		1801	mcall 67, -1, -1 ; set the new sizes
		1802
		1803	; (re)calculate coordinates of GUI elements
		1804	mov eax, [thread_info.client_box.width]
7677	hidnplayr	1805	sub eax, DATA_X_POS + DATA_X_POS + REGISTERS_X_SIZE+3
4908	hidnplayr	1806	mov [data_x_size_dd+4], eax
		1807	mov [messages_x_size_dd+4], eax
4591	hidnplayr	1808	shl eax, 16
4908	hidnplayr	1809	mov [data_x_size_dd], eax
		1810	mov [messages_x_size_dd], eax
		1811	shr eax, 16
7677	hidnplayr	1812	add eax, DATA_X_POS + 4
4908	hidnplayr	1813	mov [registers_x_pos_dd+4], eax
		1814	shl eax, 16
		1815	mov [registers_x_pos_dd], eax
4591	hidnplayr	1816
4908	hidnplayr	1817	mov eax, [thread_info.client_box.height]
7677	hidnplayr	1818	sub eax, CMD_Y_SIZE + DATA_X_POS
4908	hidnplayr	1819	mov [cmdline_y_pos_dd+4], eax
		1820	shl eax, 16
		1821	mov [cmdline_y_pos_dd], eax
		1822	shr eax, 16
7677	hidnplayr	1823	sub eax, MSG_Y_SIZE + 4
4908	hidnplayr	1824	mov [messages_y_pos_dd+4], eax
		1825	shl eax, 16
		1826	mov [messages_y_pos_dd], eax
		1827	shr eax, 16
7677	hidnplayr	1828	sub eax, DISASM_Y_POS + 4
4908	hidnplayr	1829	mov [disasm_y_size_dd+4], eax
		1830	shl eax, 16
		1831	mov [disasm_y_size_dd], eax
		1832	shr eax, 16
7677	hidnplayr	1833	mov ecx, (FONT_Y_SIZE+TEXT_Y_CLEARANCE)
4908	hidnplayr	1834	xor edx, edx
		1835	div ecx
		1836	mov [disasm_height_dd], eax
		1837
		1838	mov eax, [thread_info.client_box.height]
7677	hidnplayr	1839	sub eax, DATA_X_POS + TITLE_Y_POS+(FONT_Y_SIZE/2)+2
4908	hidnplayr	1840	mov [registers_y_size_dd+4], eax
		1841	shl eax, 16
		1842	mov [registers_y_size_dd], eax
		1843
4890	hidnplayr	1844	; messages frame
4908	hidnplayr	1845	mov ebx, [messages_x_size_dd+4]
7677	hidnplayr	1846	add ebx, (MSG_X_POS-2)*10000h + (MSG_X_POS+2)
4591	hidnplayr	1847	push ebx
4908	hidnplayr	1848	mov ecx, [messages_y_pos_dd+2]
		1849	add ecx, -2*10001h
4591	hidnplayr	1850	mov edx, COLOR_LINE
		1851	mcall 38
7677	hidnplayr	1852	add ecx, (MSG_Y_SIZE+2+2)*10001h
4591	hidnplayr	1853	mcall
7677	hidnplayr	1854	mov ebx, (MSG_X_POS-2)*10001h
4591	hidnplayr	1855	push ebx
4908	hidnplayr	1856	mov ecx, [messages_y_pos_dd+2]
7677	hidnplayr	1857	add ecx, (-2*10000h) + (MSG_Y_SIZE+2)
4591	hidnplayr	1858	mcall
4908	hidnplayr	1859	mov ebx, [messages_x_size_dd+2]
7677	hidnplayr	1860	add ebx, (MSG_X_POS+2)*10001h
4591	hidnplayr	1861	push ebx
		1862	mcall
		1863
4890	hidnplayr	1864	; command line frame
4908	hidnplayr	1865	mov ecx, [cmdline_y_pos_dd+2]
7677	hidnplayr	1866	add ecx, (-2*10000h) + (CMD_Y_SIZE+2)
4591	hidnplayr	1867	pop ebx
		1868	mcall
		1869	pop ebx
		1870	mcall
		1871	pop ebx
4908	hidnplayr	1872	mov ecx, [cmdline_y_pos_dd+2]
7677	hidnplayr	1873	add ecx, (CMD_Y_SIZE+2)*10001h
4908	hidnplayr	1874
4591	hidnplayr	1875	mcall
4908	hidnplayr	1876	mov ecx, [cmdline_y_pos_dd+2]
		1877	add ecx, (-2*10001h)
4591	hidnplayr	1878	mcall
		1879
4890	hidnplayr	1880	; registers frame
4908	hidnplayr	1881	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1882	add ebx, (-2) shl 16 + (REGISTERS_X_SIZE+3)
		1883	mov ecx, (TITLE_Y_POS+(FONT_Y_SIZE/2)) shl 16 + 1
4908	hidnplayr	1884	mov edx, COLOR_LINE
		1885	mcall 13 ; top
		1886	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1887	add ebx, ((-2)+(REGISTERS_X_SIZE+3)) shl 16 + 1
4908	hidnplayr	1888	mov ecx, [registers_y_size_dd+4]
7677	hidnplayr	1889	add ecx, (TITLE_Y_POS+(FONT_Y_SIZE/2)) shl 16 + (+3+1)
4908	hidnplayr	1890	mcall ; right
		1891	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1892	add ebx, (-2) shl 16 + (REGISTERS_X_SIZE+3+1)
4908	hidnplayr	1893	mov ecx, [registers_y_size_dd]
7677	hidnplayr	1894	add ecx, ((TITLE_Y_POS+(FONT_Y_SIZE/2))+4) shl 16 + 1
4908	hidnplayr	1895	mcall ; bottom
4591	hidnplayr	1896
4890	hidnplayr	1897	; messages
4591	hidnplayr	1898	call draw_messages
		1899
4890	hidnplayr	1900	; command line & cursor
4591	hidnplayr	1901	call draw_cmdline
		1902	call draw_cursor
		1903
4890	hidnplayr	1904	; title & registers & dump & disasm
7677	hidnplayr	1905	mov ebx, (DATA_X_POS-2)*10001h
		1906	mov ecx, (TITLE_Y_POS+(FONT_Y_SIZE/2))*10000h + (-2)
4908	hidnplayr	1907	add ecx, [messages_y_pos_dd+4]
4591	hidnplayr	1908	mov edx, COLOR_LINE
		1909	mcall 38
4908	hidnplayr	1910	mov ebx, [data_x_size_dd+2]
7677	hidnplayr	1911	add ebx, (DATA_X_POS+2)*10001h
4591	hidnplayr	1912	mcall
4908	hidnplayr	1913	mov ebx, [data_x_size_dd+4]
7677	hidnplayr	1914	add ebx, (DATA_X_POS-2)*10000h + (DATA_X_POS+2)
		1915	mov ecx, (DISASM_Y_POS-4)*10001h
4591	hidnplayr	1916	mcall
		1917
4914	Serge	1918	mov ebx, [registers_x_pos_dd]
7677	hidnplayr	1919	add ebx, (-1) shl 16 + REGISTERS_X_SIZE + 1
		1920	mov ecx, (REGISTERS_Y_POS - 2) shl 16 + FONT_Y_SIZE + TEXT_Y_CLEARANCE
		1921	mov edx, (1 shl 30) + 2
4914	Serge	1922	mov esi, 0x00808080
		1923	mcall 8
		1924
		1925
4890	hidnplayr	1926	; redraw whole window again
4591	hidnplayr	1927	call redraw_title
		1928	call draw_registers
		1929	call draw_dump
4890	hidnplayr	1930	call draw_disasm
4591	hidnplayr	1931
4908	hidnplayr	1932
		1933	.done:
4890	hidnplayr	1934	; end of window redraw
4591	hidnplayr	1935	mcall 12, 2
		1936	ret
		1937
		1938	; vim: ft=fasm tabstop=4
		1939

Subversion Repositories Kolibri OS

(root)/programs/develop/mtdbg/gui.inc – Rev 7677