WebSVN – Kolibri OS – Blame – /programs/develop/mtdbg/mtdbg.asm

Rev	Author	Line No.	Line
4901	Serge	1	;COLOR_THEME fix BLACK_ON_WHITE
		2	COLOR_THEME fix MOVIEOS
4591	hidnplayr	3
		4	format binary as ""
542	diamond	5	include '../../macros.inc'
205	heavyiron	6	use32
3675	GerdtR	7	db 'MENUET01'
		8	dd 1
		9	dd start
		10	dd i_end
		11	dd used_mem
		12	dd used_mem
		13	dd i_param
		14	dd 0
205	heavyiron	15
3675	GerdtR	16	;-----------------------------------------------------------------------------
		17
		18	REG_MODE_CPU equ 1
		19	REG_MODE_MMX equ 2
		20	REG_MODE_SSE equ 3
		21	REG_MODE_AVX equ 4
		22
		23	;-----------------------------------------------------------------------------
		24
		25	include 'gui.inc' ; GUI routines
		26
		27	;-----------------------------------------------------------------------------
		28	; Find command in list
		29
		30	find_cmd:
		31	; all commands are case-insensitive
		32	push edi
		33
		34	.x4:
		35	mov al, [edi]
		36	cmp al, 0
		37	jz .x5
		38	cmp al, 'A'
		39	jb @f
		40	cmp al, 'Z'
		41	ja @f
		42	or al, 20h
		43
		44	@@:
		45	stosb
		46	jmp .x4
		47
		48	; find command
		49	.x5:
		50	pop edi
		51
		52	.x6:
		53	cmp dword [esi], 0
		54	jz .x7
		55	push esi
		56	mov esi, [esi]
		57	lodsb
		58	movzx ecx, al
		59	push edi
		60	repz cmpsb
		61	pop edi
		62	pop esi
		63	jz .x8
		64	add esi, 17
		65	jmp .x6
		66
		67	.x7:
		68	stc
		69
		70	.x8:
		71	ret
		72
205	heavyiron	73	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3675	GerdtR	74	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DEBUGGING ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
205	heavyiron	75	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		76
3675	GerdtR	77	;-----------------------------------------------------------------------------
		78	; Help event
205	heavyiron	79
3675	GerdtR	80	OnHelp:
		81	mov esi, help_msg
		82	mov edi, [curarg]
		83	cmp byte [edi], 0
		84	jz .x
		85	mov esi, help_groups
		86	call find_cmd
		87	jc .nocmd
		88	mov esi, [esi+12]
205	heavyiron	89
3675	GerdtR	90	.x:
		91	jmp put_message
205	heavyiron	92
3675	GerdtR	93	.nocmd:
		94	mov esi, aUnknownCommand
		95	jmp .x
205	heavyiron	96
3675	GerdtR	97	;-----------------------------------------------------------------------------
		98	; Quit event
		99	OnQuit:
		100	mcall -1
205	heavyiron	101
3675	GerdtR	102	;-----------------------------------------------------------------------------
		103	; Working with debug context
205	heavyiron	104
3675	GerdtR	105	get_new_context:
		106	mov esi, context
		107	mov edi, oldcontext
4893	Serge	108	mov ecx, (ctx_end-context)/4
3675	GerdtR	109	rep movsd
205	heavyiron	110
3675	GerdtR	111	get_context:
4893	Serge	112	mcall 69, 1, [debuggee_pid], ctx_end-context, context
3675	GerdtR	113	ret
205	heavyiron	114
3675	GerdtR	115	set_context:
		116	mcall 69, 2, [debuggee_pid], 28h, context
		117	ret
205	heavyiron	118
3675	GerdtR	119	get_dump:
		120	mov edi, dumpdata
		121	mov esi, [edi-4]
		122	mov edx, dump_height*10h
		123	mov ecx, edx
		124	xor eax, eax
		125	push edi
		126	rep stosb
		127	pop edi
		128	mcall 69, 6, [debuggee_pid]
		129	cmp eax, -1
		130	jnz @f
		131	mov esi, read_mem_err
		132	call put_message
		133	xor eax, eax
205	heavyiron	134
3675	GerdtR	135	@@:
		136	mov [edi-8], eax
		137	; call restore_from_breaks
		138	; ret
205	heavyiron	139
3675	GerdtR	140	; in: edi=buffer,eax=size,esi=address
		141	restore_from_breaks:
		142	mov ebx, breakpoints
205	heavyiron	143
3675	GerdtR	144	@@:
		145	test byte [ebx+4], 1
		146	jz .cont ; ignore invalid
		147	test byte [ebx+4], 2 or 8
		148	jnz .cont ; ignore disabled and memory breaks
		149	mov ecx, [ebx]
		150	sub ecx, esi
		151	cmp ecx, eax
		152	jae .cont
		153	mov dl, [ebx+5]
		154	mov [edi+ecx], dl
205	heavyiron	155
3675	GerdtR	156	.cont:
		157	add ebx, 6
		158	cmp ebx, breakpoints+breakpoints_n*6
		159	jb @b
		160	ret
205	heavyiron	161
3675	GerdtR	162	;-----------------------------------------------------------------------------
		163	; Load executable event
205	heavyiron	164
3675	GerdtR	165	OnLoad:
		166	mov esi, [curarg]
205	heavyiron	167
3675	GerdtR	168	OnLoadInit:
		169	mov edi, loadname
		170	or [prgname_len], -1
		171	mov [prgname_ptr], edi
205	heavyiron	172
3675	GerdtR	173	.copyname:
		174	lodsb
		175	stosb
		176	inc [prgname_len]
		177	cmp al, '/'
		178	jnz @f
		179	or [prgname_len], -1
		180	mov [prgname_ptr], edi
205	heavyiron	181
3675	GerdtR	182	@@:
		183	cmp al, ' '
		184	ja .copyname
		185	mov byte [edi-1], 0
		186	and [load_params], 0
		187	dec esi
		188	call get_arg.skip_spaces
		189	cmp al, 0
		190	jz @f
		191	mov [load_params], esi
205	heavyiron	192
3675	GerdtR	193	@@:
		194	and [dumppos], 0
		195	mov ecx, [symbols]
		196	jecxz do_reload
		197	mcall 68, 13
		198	and [symbols], 0
		199	and [num_symbols], 0
205	heavyiron	200
3675	GerdtR	201	; TODO: make it local
		202	do_reload:
		203	;push 18
		204	;pop eax
		205	;push 7
		206	;pop ebx
		207	mcall 18, 7
		208	mov [dbgwnd], eax
		209	xchg ecx, eax
		210	;push 70
		211	;pop eax
		212	;mov ebx, fn70_load_block
		213	mcall 70, fn70_load_block
		214	test eax, eax
		215	jns .load_ok
205	heavyiron	216
3675	GerdtR	217	.load_err:
		218	push eax
		219	mov esi, load_err_msg
		220	call put_message
		221	pop eax
		222	not eax
		223	cmp eax, 0x20
		224	jae .unk_err
		225	mov esi, [load_err_msgs+eax*4]
		226	test esi, esi
		227	jnz put_message
205	heavyiron	228
3675	GerdtR	229	.unk_err:
		230	mov esi, unk_err_msg
		231	inc eax
		232	push eax
		233	call put_message_nodraw
		234	jmp draw_messages
205	heavyiron	235
3675	GerdtR	236	.load_ok:
		237	mov [debuggee_pid], eax
		238	mov [bSuspended], 1
6344	serge	239	mov eax, 5
		240	mov ebx, 20
		241	int 0x40
		242
3675	GerdtR	243	push ecx
		244	call get_context
		245	mov edi, oldcontext
4893	Serge	246	mov ecx, (ctx_end-context)/4
3675	GerdtR	247	rep movsd
205	heavyiron	248
3675	GerdtR	249	; activate debugger window
		250	pop ecx
		251	;mov bl, 3
		252	;push 18
		253	;pop eax
		254	mcall 18, 3
		255	call redraw_title
		256	call draw_registers.redraw
		257	; read and draw dump of memory
		258	call get_dump
		259	call draw_dump.redraw
		260	call update_disasm_eip_force
		261	mov esi, load_succ_msg
		262	push [debuggee_pid]
		263	call put_message_nodraw
		264	call draw_messages
		265	; try to load symbols
		266	mov esi, loadname
		267	mov edi, symbolsfile
		268	push edi
205	heavyiron	269
3675	GerdtR	270	@@:
		271	lodsb
		272	stosb
		273	test al, al
		274	jnz @b
		275	lea ecx, [edi-1]
205	heavyiron	276
3675	GerdtR	277	@@:
		278	dec edi
		279	cmp edi, symbolsfile
		280	jb @f
		281	cmp byte [edi], '/'
		282	jz @f
		283	cmp byte [edi], '.'
		284	jnz @b
		285	mov ecx, edi
205	heavyiron	286
3675	GerdtR	287	@@:
4886	hidnplayr	288	mov dword[ecx], '.dbg'
		289	mov byte[ecx+4], 0
3675	GerdtR	290	pop esi
		291	mov ebp, esi
4886	hidnplayr	292	push ecx esi
		293	call OnLoadSymbols.silent ; Try to load .dbg file
		294	pop esi ecx
		295	xor eax, eax
		296	cmp [num_symbols], eax
		297	jne @f
		298	mov dword[ecx], '.map' ; If failed, try .map file too
3675	GerdtR	299	call OnLoadSymbols.silent
4886	hidnplayr	300	@@:
		301
3675	GerdtR	302	; now test for packed progs
		303	cmp [disasm_buf_size], 100h
		304	jz @f
		305	ret
205	heavyiron	306
3675	GerdtR	307	@@:
		308	mov esi, mxp_nrv_sig
		309	mov ebp, disasm_buffer
		310	mov edi, ebp
		311	push 3
		312	pop ecx
		313	repz cmpsb
		314	jnz .not_mxp_nrv
		315	cmpsb
		316	mov cl, mxp_nrv_sig_size-4
		317	repz cmpsb
		318	mov esi, mxp_nrv_name
		319	jz .packed
205	heavyiron	320
3675	GerdtR	321	.not_mxp_nrv:
		322	mov esi, mxp_sig
		323	mov edi, ebp
		324	mov cl, mxp_sig_size
		325	repz cmpsb
		326	mov esi, mxp_name
		327	jz .packed
205	heavyiron	328
3675	GerdtR	329	.not_mxp:
		330	mov esi, mxp_lzo_sig1
		331	mov edi, ebp
		332	mov cl, mxp_lzo_sig1_size
		333	repz cmpsb
		334	mov esi, mxp_lzo_name
		335	jz .packed
		336	mov esi, mxp_lzo_sig2
		337	mov edi, ebp
		338	mov cl, 8
		339	repz cmpsb
		340	jnz .not_mxp_lzo
		341	cmpsb
		342	mov cl, mxp_lzo_sig2_size - 9
		343	repz cmpsb
		344	mov esi, mxp_lzo_name
		345	jz .packed
205	heavyiron	346
3675	GerdtR	347	.not_mxp_lzo:
		348	mov esi, mtappack_name
		349	cmp dword [ebp], 0xBF5E246A
		350	jnz .not_mtappack
		351	cmp dword [ebp+8], 0xEC4E8B57
		352	jnz .not_mtappack1
		353	cmp dword [ebp+12], 0x8D5EA4F3
		354	jnz .not_mtappack1
		355	cmp byte [ebp+12h], 0xE9
		356	jz .packed
		357
		358	.not_mtappack1:
		359	cmp word [ebp+8], 0xB957
		360	jnz .not_mtappack
		361	cmp dword [ebp+14], 0x575EA4F3
		362	jnz .not_mtappack2
		363	cmp byte [ebp+17h], 0xE9
		364	jz .packed
		365
		366	.not_mtappack2:
		367	cmp dword [ebp+14], 0x5F8DA4F3
		368	jnz .not_mtappack3
		369	cmp word [ebp+18], 0xE9FC
		370	jz .packed
		371
		372	.not_mtappack3:
		373	cmp word [ebp+14], 0xA4F3
		374	jnz .not_mtappack
		375	cmp byte [ebp+15h], 0xE9
		376	jz .packed
		377
		378	.not_mtappack:
		379	ret
		380
		381	.packed:
		382	push esi
		383	mov esi, aPacked1
		384	call put_message_nodraw
		385	pop esi
		386	call put_message_nodraw
		387	mov esi, aPacked2
		388	call put_message
		389	call hide_cursor
		390	;push 40
		391	;pop eax
		392	;push 7
		393	;pop ebx
		394	mcall 40, 7
		395
		396	.wait:
		397	;push 10
		398	;pop eax
		399	mcall 10
		400	dec eax
		401	jz .redraw
		402	dec eax
		403	jz .key
		404	or eax, -1
		405	mcall
		406
		407	.redraw:
		408	call draw_window
		409	call hide_cursor
		410	jmp .wait
		411
		412	.key:
		413	mov al, 2
		414	mcall
		415	cmp ah, 'y'
		416	jz .yes
		417	cmp ah, 'Y'
		418	jz .yes
		419	cmp ah, 0xD
		420	jz .yes
		421	cmp ah, 'n'
		422	jz .no
		423	cmp ah, 'N'
		424	jnz .wait
		425
		426	.no:
		427	;push 40
		428	;pop eax
		429	;mov ebx, 0x107
		430	mcall 40, 0x107
		431	call draw_cursor
		432	mov esi, aN_str
		433	jmp put_message
		434
		435	.yes:
		436	;push 40
		437	;pop eax
		438	;mov ebx, 0x107
		439	mcall 40, 0x107
		440	call draw_cursor
		441	mov esi, aY_str
		442	call put_message
		443	call OnUnpack
		444	ret
		445
		446	;-----------------------------------------------------------------------------
		447	; Searching signatures
		448
205	heavyiron	449	mxp_nrv_sig:
3675	GerdtR	450	xor eax, eax
		451	mov ecx, 0x95 ; 0xA1 for programs with parameters
		452	mov [eax], ecx
		453	add ecx, [eax+24h]
		454	push 40h
		455	pop esi
		456	mov edi, [eax+20h]
		457	push edi
		458	rep movsb
		459	jmp dword [esp]
		460	pop esi
		461	add esi, [eax]
		462	xor edi, edi
		463
205	heavyiron	464	mxp_nrv_sig_size = $ - mxp_nrv_sig
		465
		466	mxp_sig:
3675	GerdtR	467	mov ecx, 1CBh
		468	push 46h
		469	pop esi
		470	mov edi, [20h]
		471	rep movsb
		472	mov ecx, [24h]
		473	rep movsb
		474	jmp dword [20h]
		475	mov eax, [20h]
		476	add eax, 1CBh
		477	push eax
		478	push dword [24h]
		479	push 0
		480	push 8
		481	call $+0x25
		482
205	heavyiron	483	mxp_sig_size = $ - mxp_sig
		484
		485	mxp_lzo_sig1:
3675	GerdtR	486	xor eax, eax
		487	mov ebp, 0FFh
		488	mov ecx, 175h
		489	mov [eax], ecx
		490	add ecx, [eax+24h]
		491	push 45h
		492	pop esi
		493	mov edi, [eax+20h]
		494	push edi
		495	rep movsb
		496	jmp dword [esp]
		497	pop ebx
		498	add ebx, [eax]
		499	xor edi, edi
		500	cmp byte [ebx], 11h
		501	jbe $+0x1A
		502
205	heavyiron	503	mxp_lzo_sig1_size = $ - mxp_lzo_sig1
3675	GerdtR	504
205	heavyiron	505	mxp_lzo_sig2:
3675	GerdtR	506	xor eax, eax
		507	mov ebp, 0FFh
		508	mov ecx, 188h ; or 177h
		509	mov [eax], ecx
		510	add ecx, [eax+24h]
		511	push 44h
		512	pop esi
		513	mov edi, [eax+20h]
		514	rep movsb
		515	jmp dword [eax+20h]
		516	mov ebx, [eax+20h]
		517	add ebx, [eax]
		518
205	heavyiron	519	mxp_lzo_sig2_size = $ - mxp_lzo_sig2
		520
3675	GerdtR	521	;-----------------------------------------------------------------------------
		522	; Reload executable event
		523
205	heavyiron	524	OnReload:
3675	GerdtR	525	cmp [debuggee_pid], 0
		526	jnz terminate_reload
		527	mov esi, need_debuggee
		528	cmp byte [loadname], 0
		529	jnz do_reload
		530	jz put_message
		531
		532	; TODO: make it local
205	heavyiron	533	terminate_reload:
3675	GerdtR	534	mov [bReload], 1
		535
		536	;-----------------------------------------------------------------------------
		537	; Terminate process event
		538
205	heavyiron	539	OnTerminate:
3675	GerdtR	540	;mov ecx, [debuggee_pid]
		541	;push 8
		542	;pop ebx
		543	;push 69
		544	;pop eax
		545	mcall 69, 8, [debuggee_pid]
		546	ret
		547	;-----------------------------------------------------------------------------
		548	; Suspend process event
205	heavyiron	549
		550	AfterSuspend:
3675	GerdtR	551	mov [bSuspended], 1
		552	call get_new_context
		553	call get_dump
		554	call redraw_title
		555	call draw_registers.redraw
		556	call draw_dump.redraw
		557	call update_disasm_eip
		558	ret
205	heavyiron	559
		560	OnSuspend:
3675	GerdtR	561	;mov ecx, [debuggee_pid]
		562	;push 4
		563	;pop ebx
		564	;push 69
		565	;pop eax
		566	mcall 69, 4, [debuggee_pid]
		567	call AfterSuspend
		568	mov esi, aSuspended
		569	jmp put_message
		570
		571	;-----------------------------------------------------------------------------
		572	; Resume process event
		573
205	heavyiron	574	DoResume:
3675	GerdtR	575	;mov ecx, [debuggee_pid]
		576	;push 5
		577	;pop ebx
		578	;push 69
		579	;pop eax
		580	mcall 69, 5, [debuggee_pid]
		581	mov [bSuspended], 0
		582	ret
		583
205	heavyiron	584	OnResume:
3675	GerdtR	585	mov esi, [curarg]
		586	cmp byte [esi], 0
		587	jz GoOn
		588	call calc_expression
		589	jc .ret
		590	mov eax, ebp
		591	push eax
		592	call find_enabled_breakpoint
		593	pop eax
		594	jz GoOn
		595	mov bl, 5 ; valid enabled one-shot
		596	call add_breakpoint
		597	jnc GoOn
		598	mov esi, aBreakpointLimitExceeded
		599	call put_message
		600
		601	.ret:
		602	ret
		603
205	heavyiron	604	GoOn:
3675	GerdtR	605	; test for enabled breakpoint at eip
		606	mov eax, [_eip]
		607	call find_enabled_breakpoint
		608	jnz .nobreak
		609	; temporarily disable breakpoint, make step, enable breakpoint, continue
		610	inc eax
		611	mov [temp_break], eax
		612	mov [bAfterGo], 1
		613	dec eax
		614	call disable_breakpoint
		615	call get_context
		616	or byte [_eflags+1], 1 ; set TF
		617	call set_context
		618	and byte [_eflags+1], not 1
		619	call DoResume
		620	ret
		621
		622	.nobreak:
		623	call DoResume
		624	call redraw_title
		625	call draw_registers.redraw
		626	call draw_dump.redraw
		627	ret
		628
		629	;-----------------------------------------------------------------------------
		630	; Detach process event
		631
205	heavyiron	632	OnDetach:
3675	GerdtR	633	;mov ecx, [debuggee_pid]
		634	;push 3
		635	;pop ebx
		636	;push 69
		637	;pop eax
		638	mcall 69, 3, [debuggee_pid]
		639	and [debuggee_pid], 0
		640	call redraw_title
		641	call draw_registers.redraw
		642	call draw_dump.redraw
		643	call free_symbols
		644	mov esi, aContinued
		645	jmp put_message
205	heavyiron	646
		647	after_go_exception:
3675	GerdtR	648	push eax
		649	mov eax, [temp_break]
		650	dec eax
		651	push esi
		652	call enable_breakpoint
		653	; in any case, clear TF and RF
		654	call get_new_context
		655	and [_eflags], not 10100h ; clear TF,RF
		656	call set_context
		657	xor edx, edx
		658	mov [temp_break], edx
		659	xchg dl, [bAfterGo]
		660	pop esi
		661	pop eax
		662	cmp dl, 2
		663	jnz @f
		664	lodsd
		665	push esi
		666	call get_dump
		667	jmp exception.done
205	heavyiron	668
3675	GerdtR	669	@@:
		670	test eax, eax
		671	jz .notint1
		672	; if exception is result of single step, simply ignore it and continue
		673	test dword [esi], 0xF
		674	jnz dbgmsgstart.5
		675	lodsd
		676	push esi
		677	mov esi, oldcontext
		678	mov edi, context
		679	mov ecx, 28h/4
		680	rep movsd
		681	call DoResume
		682	jmp dbgmsgend
		683
		684	.notint1:
		685	; in other case, work as without temp_break
		686	lodsd
		687	push esi
		688	push eax
		689	jmp exception.4
		690
		691	.notour:
		692
		693	; TODO: split it out
205	heavyiron	694	debugmsg:
3675	GerdtR	695	neg [dbgbufsize]
		696	mov esi, dbgbuf
		697
		698	; TODO: make it local
205	heavyiron	699	dbgmsgstart:
3675	GerdtR	700	lodsd
		701	; push eax esi
		702	; push dword [esi]
		703	; mov esi, dbgmsg_str
		704	; call put_message_nodraw
		705	; pop esi eax
		706	add esi, 4
		707	dec eax
		708	jz exception
		709	dec eax
		710	jz terminated
6344	serge	711	dec eax
		712	jnz dbg_notify
		713
3675	GerdtR	714	mov [bSuspended], 1
		715	cmp [bAfterGo], 0
		716	jnz after_go_exception
		717	push esi
		718	call get_new_context
		719	and [_eflags], not 10100h ; clear TF,RF
		720	call set_context
		721	pop esi
		722
		723	; TODO: WTF? Need for meaning label names
		724	.5:
		725	push esi
		726	call get_dump
		727	pop esi
		728	lodsd
		729	xor ecx, ecx
		730
		731	.6:
		732	bt eax, ecx
		733	jnc .7
		734	mov ebx, [drx_break+ecx*4]
		735	test ebx, ebx
		736	jz .7
		737	pushad
		738	dec ebx
		739	push ebx
		740	mov esi, aBreakStop
		741	call put_message_nodraw
		742	popad
		743
		744	.7:
		745	inc ecx
		746	cmp cl, 4
		747	jb .6
		748	push esi
		749	jmp exception.done_draw
		750
6344	serge	751	dbg_notify:
		752	int3
		753	add esi, 32
		754	push esi
		755	jmp dbgmsgend
		756
		757
3675	GerdtR	758	; TODO: make it local
205	heavyiron	759	terminated:
3675	GerdtR	760	push esi
		761	mov esi, terminated_msg
		762	call put_message
		763	and [debuggee_pid], 0
		764	and [temp_break], 0
		765	mov [bAfterGo], 0
		766	xor eax, eax
		767	mov ecx, breakpoints_n*6/4+4
		768	mov edi, breakpoints
		769	rep stosd
		770	cmp [bReload], 1
		771	sbb [bReload], -1
		772	jnz exception.done
		773	call free_symbols
		774	jmp exception.done
		775
205	heavyiron	776	exception:
3675	GerdtR	777	mov [bSuspended], 1
		778	cmp [bAfterGo], 0
		779	jnz after_go_exception
		780	lodsd
		781	push esi
		782	push eax
		783	call get_new_context
		784	and [_eflags], not 10100h ; clear TF,RF
		785	call set_context
		786
		787	; TODO: fix for useful name
		788	.4:
		789	call get_dump
		790	pop eax
		791	; int3 command generates exception 0D, #GP
		792	push eax
		793	cmp al, 0Dh
		794	jnz .notdbg
		795	; check for 0xCC byte at eip
		796	push 0
5460	hidnplayr	797	mcall 69, 6, [debuggee_pid], 1, [_eip], esp
3675	GerdtR	798	pop eax
		799	cmp al, 0xCC
5460	hidnplayr	800	je .int3
		801	; check for 0xCD03 word at eip
		802	push 0
		803	inc edx
		804	mcall 69;, 6, [debuggee_pid], 2, [_eip], esp
		805	pop eax
		806	cmp ax, 0x03CD
		807	jne .notdbg
		808	mov eax, [_eip]
		809	inc [_eip]
		810	inc [_eip]
		811	jmp .user_int3_
		812	.int3:
3675	GerdtR	813	; this is either dbg breakpoint or int3 cmd in debuggee
		814	mov eax, [_eip]
		815	call find_enabled_breakpoint
		816	jnz .user_int3
		817	; dbg breakpoint; clear if one-shot
		818	pop ecx
		819	push eax
		820	mov esi, aBreakStop
		821	test byte [edi+4], 4
		822	jz .put_msg_eax
		823	pop ecx
		824	call clear_breakpoint
		825	jmp .done
		826
		827	.user_int3:
		828	mov eax, [_eip]
		829	inc [_eip]
5460	hidnplayr	830	.user_int3_:
3675	GerdtR	831	pop ecx
		832	push eax
		833	call set_context
		834	mov esi, aUserBreak
		835	jmp .put_msg_eax
		836
		837	.notdbg:
5461	hidnplayr	838	pop eax
		839	push eax
		840	push eax
3675	GerdtR	841	mov esi, aException
5461	hidnplayr	842	call put_message_nodraw
		843	pop eax
3675	GerdtR	844
5461	hidnplayr	845	cmp al, 16
		846	ja .suspended
		847	mov esi, [msg_fault_sel + eax*4]
		848	call put_message_nodraw
		849
		850	.suspended:
		851	mov esi, aSuspended
		852
3675	GerdtR	853	.put_msg_eax:
		854	call put_message_nodraw
		855
		856	.done_draw:
		857	call draw_messages
		858
		859	.done:
5461	hidnplayr	860	mcall 18, 3, [dbgwnd] ; activate dbg window
3675	GerdtR	861	call redraw_title
		862	call draw_registers.redraw
		863	call draw_dump.redraw
		864	call update_disasm_eip
		865
205	heavyiron	866	dbgmsgend:
3675	GerdtR	867	pop esi
		868	mov ecx, [dbgbuflen]
		869	add ecx, dbgbuf
		870	cmp esi, ecx
		871	jnz dbgmsgstart
		872	and [dbgbuflen], 0
		873	neg [dbgbufsize]
		874	cmp [bReload], 2
		875	jnz @f
		876	mov [bReload], 0
		877	call do_reload
205	heavyiron	878
3675	GerdtR	879	@@:
		880	jmp waitevent
		881
		882	; TODO: make it local
4590	clevermous	883	F7:
3675	GerdtR	884	cmp [debuggee_pid], 0
		885	jz .no
		886	call OnStep
		887
		888	.no:
		889	jmp waitevent
		890
		891	; TODO: make it local
4590	clevermous	892	F8:
3675	GerdtR	893	cmp [debuggee_pid], 0
4590	clevermous	894	jz F7.no
3675	GerdtR	895	call OnProceed
4590	clevermous	896	jmp F7.no
205	heavyiron	897
3675	GerdtR	898	;-----------------------------------------------------------------------------
		899	; Step execution event
		900
		901	;Here we get [] argument at do step times
4443	clevermous	902	OnStepMultiple:
3675	GerdtR	903	cmp [bSuspended], 0
4443	clevermous	904	jz OnStep.running
		905	mov [step_num], 1
3675	GerdtR	906	mov esi, [curarg]
4443	clevermous	907	test esi, esi
		908	jz .do
3675	GerdtR	909	cmp byte [esi], 0
4443	clevermous	910	jz .do
3675	GerdtR	911	call get_hex_number
		912	jc .ret
		913	cmp eax, 0 ; check if lesser or equal than 0
		914	jle .ret
		915	mov [step_num], eax
4443	clevermous	916	.do:
		917	call OnStep
		918	dec [step_num]
		919	jnz .do
		920	.ret:
		921	ret
205	heavyiron	922
4443	clevermous	923	OnStep:
		924	cmp [bSuspended], 0
		925	jz .running
3675	GerdtR	926	call get_context
		927	or byte [_eflags+1], 1 ; set TF
		928	call set_context
		929	and byte [_eflags+1], not 1
		930	; if instruction at eip is "int xx", set one-shot breakpoint immediately after
		931	mov eax, [_eip]
		932	call find_enabled_breakpoint
		933	jnz @f
		934	cmp byte [edi+5], 0xCD
		935	jz .int
		936
		937	@@:
		938	push 0
		939	;push 69
		940	;pop eax
		941	;push 6
		942	;pop ebx
		943	;mov ecx, [debuggee_pid]
		944	;push 3
		945	;pop edx
		946	;mov edi, esp
		947	;mov esi, [_eip]
		948	mcall 69, 6, [debuggee_pid], 3, [_eip], esp
		949	cmp eax, edx
		950	pop eax
		951	jnz .doit
		952	cmp al, 0xCD
		953	jz .int
		954	cmp ax, 0x050F
		955	jz .syscall
		956	cmp ax, 0x340F
		957	jz .sysenter
		958
		959	; resume process
		960	.doit:
		961	call GoOn
		962	cmp [bAfterGo], 0
		963	jz @f
		964	mov [bAfterGo], 2
		965
		966	@@:
		967	ret
		968
		969	; return address is [ebp-4]
		970	.sysenter:
		971	push 0
		972	;push 69
		973	;pop eax
		974	inc edx ; read 4 bytes
		975	mov esi, [_ebp]
		976	sub esi, 4
		977	mcall 69
		978	cmp eax, edx
		979	pop eax
		980	jnz .syscall
		981	push eax
		982	and byte [_eflags+1], not 1
		983	call set_context
		984	pop eax
		985	jmp @f
		986
		987	.syscall:
		988	and byte [_eflags+1], not 1 ; clear TF - avoid system halt (!)
		989	call set_context
		990
		991	.int:
		992	mov eax, [_eip]
		993	inc eax
		994	inc eax
		995
		996	@@:
		997	push eax
		998	call find_enabled_breakpoint
		999	pop eax
		1000	jz .doit
		1001	; there is no enabled breakpoint yet; set temporary breakpoint
		1002	mov bl, 5
		1003	call add_breakpoint
		1004	jmp .doit
		1005
		1006	.running:
		1007	mov esi, aRunningErr
		1008	jmp put_message
		1009
		1010	;-----------------------------------------------------------------------------
		1011	; Proceed process event
5206	clevermous	1012	;Here we get [] argument at do step times
		1013	OnProceedMultiple:
3675	GerdtR	1014	cmp [bSuspended], 0
		1015	jz OnStep.running
5206	clevermous	1016	mov [proc_num], 1
3675	GerdtR	1017	mov esi, [curarg]
5206	clevermous	1018	test esi, esi
		1019	jz .do
3675	GerdtR	1020	cmp byte [esi], 0
5206	clevermous	1021	jz .do
3675	GerdtR	1022	call get_hex_number
		1023	jc .ret
5206	clevermous	1024	cmp eax, 0 ; check if lesser or equal than 0
3675	GerdtR	1025	jle .ret
		1026	mov [proc_num], eax
		1027	mov [curarg], 0
5206	clevermous	1028	.do:
		1029	call OnProceed
		1030	dec [proc_num]
		1031	jnz .do
		1032	.ret:
		1033	ret
205	heavyiron	1034
5206	clevermous	1035
		1036	OnProceed:
		1037	cmp [bSuspended], 0
		1038	jz OnStep.running
3675	GerdtR	1039	mov esi, [_eip]
205	heavyiron	1040
3675	GerdtR	1041	@@:
		1042	call get_byte_nobreak
4443	clevermous	1043	jc OnStep
3675	GerdtR	1044	inc esi
		1045	; skip prefixes
		1046	call is_prefix
		1047	jz @b
		1048	cmp al, 0xE8 ; call
		1049	jnz @f
		1050	add esi, 4
		1051	jmp .doit
205	heavyiron	1052
3675	GerdtR	1053	; A4,A5 = movs; A6,A7 = cmps
		1054	@@:
		1055	cmp al, 0xA4
		1056	jb @f
		1057	cmp al, 0xA8
		1058	jb .doit
205	heavyiron	1059
3675	GerdtR	1060	; AA,AB = stos; AC,AD = lods; AE,AF = scas
		1061	@@:
		1062	cmp al, 0xAA
		1063	jb @f
		1064	cmp al, 0xB0
		1065	jb .doit
205	heavyiron	1066
3675	GerdtR	1067	; E0 = loopnz; E1 = loopz; E2 = loop
		1068	@@:
		1069	cmp al, 0xE0
		1070	jb .noloop
		1071	cmp al, 0xE2
		1072	ja .noloop
		1073	inc esi
		1074	jmp .doit
205	heavyiron	1075
3675	GerdtR	1076	; FF /2 = call
		1077	.noloop:
		1078	cmp al, 0xFF
4443	clevermous	1079	jnz OnStep
3675	GerdtR	1080	call get_byte_nobreak
4443	clevermous	1081	jc OnStep
3675	GerdtR	1082	inc esi
		1083	mov cl, al
		1084	and al, 00111000b
		1085	cmp al, 00010000b
4443	clevermous	1086	jnz OnStep
3675	GerdtR	1087	; skip instruction
		1088	mov al, cl
		1089	and eax, 7
		1090	shr cl, 6
		1091	jz .mod0
		1092	jp .doit
		1093	cmp al, 4
		1094	jnz @f
		1095	inc esi
205	heavyiron	1096
3675	GerdtR	1097	@@:
		1098	inc esi
		1099	dec cl
		1100	jz @f
		1101	add esi, 3
205	heavyiron	1102
3675	GerdtR	1103	@@:
		1104	jmp .doit
205	heavyiron	1105
3675	GerdtR	1106	.mod0:
		1107	cmp al, 4
		1108	jnz @f
		1109	call get_byte_nobreak
4443	clevermous	1110	jc OnStep
3675	GerdtR	1111	inc esi
		1112	and al, 7
205	heavyiron	1113
3675	GerdtR	1114	@@:
		1115	cmp al, 5
		1116	jnz .doit
		1117	add esi, 4
205	heavyiron	1118
3675	GerdtR	1119	.doit:
		1120	; insert one-shot breakpoint at esi and resume
		1121	call get_byte_nobreak
4443	clevermous	1122	jc OnStep
3675	GerdtR	1123	mov eax, esi
		1124	call find_enabled_breakpoint
		1125	jz @f
		1126	mov eax, esi
		1127	mov bl, 5
		1128	call add_breakpoint
		1129	jmp OnStep.doit
		1130
		1131	@@:
		1132	ret
		1133
		1134	;-----------------------------------------------------------------------------
		1135	; Read next byte of machine code
		1136
		1137	get_byte_nobreak:
		1138	mov eax, esi
		1139	call find_enabled_breakpoint
		1140	jnz .nobreak
		1141	mov al, [edi+5]
		1142	clc
		1143	ret
4893	Serge	1144
3675	GerdtR	1145	.nobreak:
		1146	;push 69
		1147	;pop eax
		1148	;push 6
		1149	;pop ebx
		1150	;mov ecx, [debuggee_pid]
		1151	xor edx, edx
		1152	push edx
		1153	inc edx
		1154	mov edi, esp
		1155	mcall 69, 6, [debuggee_pid]
		1156	dec eax
		1157	clc
		1158	jz @f
		1159	stc
4893	Serge	1160
3675	GerdtR	1161	@@:
		1162	pop eax
		1163	ret
		1164
		1165	include 'parser.inc'
		1166
		1167	;-----------------------------------------------------------------------------
		1168	; Calculate expression event
		1169
205	heavyiron	1170	OnCalc:
3675	GerdtR	1171	mov esi, [curarg]
		1172	call calc_expression
		1173	jc .ret
		1174	push ebp
		1175	mov esi, calc_string
		1176	call put_message_nodraw
		1177	jmp draw_messages
4893	Serge	1178
3675	GerdtR	1179	.ret:
		1180	ret
205	heavyiron	1181
3675	GerdtR	1182	;-----------------------------------------------------------------------------
		1183	; Dump memory event
		1184
205	heavyiron	1185	OnDump:
3675	GerdtR	1186	mov esi, [curarg]
		1187	cmp byte [esi], 0
		1188	jnz .param
		1189	add [dumppos], dump_height*10h
		1190	jmp .doit
4893	Serge	1191
3675	GerdtR	1192	.param:
		1193	call calc_expression
		1194	jc .ret
		1195	mov [dumppos], ebp
205	heavyiron	1196
3675	GerdtR	1197	.doit:
		1198	call get_dump
		1199	call draw_dump.redraw
		1200
		1201	.ret:
		1202	ret
		1203
		1204	;-----------------------------------------------------------------------------
		1205	; Dissassemble block of executable event
		1206
205	heavyiron	1207	OnUnassemble:
3675	GerdtR	1208	mov esi, [curarg]
		1209	cmp byte [esi], 0
		1210	jnz .param
		1211	mov eax, [disasm_start_pos]
4908	hidnplayr	1212	mov ecx, [disasm_height_dd]
3675	GerdtR	1213	mov [disasm_cur_pos], eax
205	heavyiron	1214
3675	GerdtR	1215	.l:
		1216	mov eax, [disasm_cur_pos]
		1217	call find_symbol
		1218	jc @f
		1219	dec ecx
		1220	jz .m
		1221
		1222	@@:
		1223	push ecx
		1224	call disasm_instr
		1225	pop ecx
		1226	jc .err
		1227	loop .l
		1228
		1229	.m:
		1230	mov eax, [disasm_cur_pos]
		1231	jmp .doit
		1232
		1233	.param:
		1234	call calc_expression
		1235	jc .ret
		1236	mov eax, ebp
		1237
		1238	.doit:
		1239	push eax
		1240	push [disasm_start_pos]
		1241	mov [disasm_start_pos], eax
		1242	call update_disasm
		1243	pop [disasm_start_pos]
		1244	pop eax
		1245	cmp [disasm_cur_str], 0
		1246	jz @f
		1247	mov [disasm_start_pos], eax
		1248
		1249	.ret:
		1250	ret
		1251
		1252	@@:
		1253	call update_disasm
		1254
		1255	.err:
		1256	mov esi, aInvAddr
		1257	jmp put_message
		1258
		1259	;-----------------------------------------------------------------------------
		1260	; Access to register value event
		1261
205	heavyiron	1262	OnReg:
3675	GerdtR	1263	mov esi, [curarg]
		1264	call get_arg.skip_spaces
		1265	call find_reg
		1266	jnc @f
205	heavyiron	1267
3675	GerdtR	1268	.err:
		1269	mov esi, RSyntax
		1270	jmp put_message
		1271
		1272	@@:
		1273	call get_arg.skip_spaces
		1274	test al, al
		1275	jz .err
		1276	cmp al, '='
		1277	jnz @f
		1278	inc esi
		1279	call get_arg.skip_spaces
		1280	test al, al
		1281	jz .err
		1282
		1283	@@:
		1284	push edi
		1285	call calc_expression
		1286	pop edi
		1287	jc .ret
		1288	; now edi=register id, ebp=value
		1289	cmp [bSuspended], 0
		1290	mov esi, aRunningErr
		1291	jz put_message
		1292	xchg eax, ebp
		1293	cmp edi, 24
		1294	jz .eip
		1295	sub edi, 4
		1296	jb .8lo
		1297	sub edi, 4
		1298	jb .8hi
		1299	sub edi, 8
		1300	jb .16
		1301	mov [_eax+edi*4], eax
		1302	jmp .ret
		1303
		1304	.16:
		1305	mov word [_eax+(edi+8)*4], ax
		1306	jmp .ret
		1307
		1308	.8lo:
		1309	mov byte [_eax+(edi+4)*4], al
		1310	jmp .ret
		1311
		1312	.8hi:
		1313	mov byte [_eax+(edi+4)*4+1], al
		1314	jmp .ret
		1315
		1316	.eip:
		1317	mov [_eip], eax
		1318	call update_disasm_eip
		1319
		1320	.ret:
		1321	call set_context
		1322	jmp draw_registers.redraw
		1323
		1324	;-----------------------------------------------------------------------------
		1325	; Breakpoints manipulation
205	heavyiron	1326	OnBp:
3675	GerdtR	1327	mov esi, [curarg]
		1328	call calc_expression
		1329	jc .ret
		1330	xchg eax, ebp
		1331	push eax
		1332	call find_breakpoint
		1333	inc eax
		1334	pop eax
		1335	jz .notfound
		1336	mov esi, aDuplicateBreakpoint
		1337	jmp .sayerr
205	heavyiron	1338
3675	GerdtR	1339	.notfound:
		1340	mov bl, 1
		1341	call add_breakpoint
		1342	jnc .ret
		1343	mov esi, aBreakpointLimitExceeded
		1344
		1345	.sayerr:
		1346	call put_message
		1347
		1348	.ret:
4890	hidnplayr	1349	jmp draw_disasm
3675	GerdtR	1350
205	heavyiron	1351	OnBpmb:
3675	GerdtR	1352	mov dh, 0011b
		1353	jmp DoBpm
		1354
205	heavyiron	1355	OnBpmw:
3675	GerdtR	1356	mov dh, 0111b
		1357	jmp DoBpm
		1358
205	heavyiron	1359	OnBpmd:
3675	GerdtR	1360	mov dh, 1111b
		1361
205	heavyiron	1362	DoBpm:
3675	GerdtR	1363	mov esi, [curarg]
		1364	cmp byte [esi], 'w'
		1365	jnz @f
		1366	and dh, not 2
		1367	inc esi
205	heavyiron	1368
3675	GerdtR	1369	@@:
		1370	push edx
		1371	call calc_expression
		1372	pop edx
		1373	jnc @f
		1374	ret
		1375
		1376	; ebp = expression, dh = flags
		1377	@@:
		1378	movzx eax, dh
		1379	shr eax, 2
		1380	test ebp, eax
		1381	jz @f
		1382	mov esi, aUnaligned
		1383	jmp put_message
		1384
		1385	@@:
		1386	mov eax, ebp
		1387	mov bl, 0Bh
		1388	call add_breakpoint
		1389	jnc @f
		1390	mov esi, aBreakpointLimitExceeded
		1391	jmp put_message
		1392
		1393	; now find index
		1394	@@:
		1395	push eax
		1396	xor ecx, ecx
		1397
		1398	.l1:
		1399	cmp [drx_break+ecx*4], 0
		1400	jnz .l2
		1401	;push 69
		1402	;pop eax
		1403	push ecx
		1404	mov dl, cl
		1405	;mov ecx, [debuggee_pid]
		1406	mov esi, ebp
		1407	;push 9
		1408	;pop ebx
		1409	mcall 69, 9, [debuggee_pid]
		1410	test eax, eax
		1411	jz .ok
		1412	pop ecx
		1413
		1414	.l2:
		1415	inc ecx
		1416	cmp ecx, 4
		1417	jb .l1
		1418	pop eax
		1419	call clear_breakpoint
		1420	mov esi, aBreakpointLimitExceeded
		1421	jmp put_message
		1422
		1423	.ok:
		1424	pop ecx
		1425	pop eax
		1426	and byte [edi], not 2 ; breakpoint is enabled
		1427	shl dl, 6
		1428	or dl, dh
		1429	mov byte [edi+1], dl
		1430	inc eax
		1431	mov [drx_break+ecx*4], eax
		1432	ret
		1433
205	heavyiron	1434	OnBc:
3675	GerdtR	1435	mov esi, [curarg]
205	heavyiron	1436
3675	GerdtR	1437	@@:
		1438	call get_hex_number
		1439	jc OnBp.ret
		1440	call clear_breakpoint
		1441	jmp @b
		1442
205	heavyiron	1443	OnBd:
3675	GerdtR	1444	mov esi, [curarg]
205	heavyiron	1445
3675	GerdtR	1446	@@:
		1447	call get_hex_number
		1448	jc OnBp.ret
		1449	call disable_breakpoint
		1450	jmp @b
		1451
205	heavyiron	1452	OnBe:
3675	GerdtR	1453	mov esi, [curarg]
205	heavyiron	1454
3675	GerdtR	1455	@@:
		1456	call get_hex_number
		1457	jc OnBp.ret
		1458	push eax
		1459	call find_enabled_breakpoint
		1460	pop eax
		1461	jz .err
		1462	call enable_breakpoint
		1463	jmp @b
		1464
		1465	.err:
		1466	mov esi, OnBeErrMsg
		1467	jmp put_message
		1468
		1469	; TODO: split it out in parser.inc
205	heavyiron	1470	get_hex_number:
3675	GerdtR	1471	call get_arg.skip_spaces
		1472	xor ecx, ecx
		1473	xor edx, edx
205	heavyiron	1474
3675	GerdtR	1475	@@:
		1476	lodsb
		1477	call is_hex_digit
		1478	jc .ret
		1479	shl edx, 4
		1480	or dl, al
		1481	inc ecx
		1482	jmp @b
		1483
		1484	.ret:
		1485	dec esi
		1486	cmp ecx, 1
		1487	xchg eax, edx
		1488	ret
		1489
		1490	;-----------------------------------------------------------------------------
		1491	; Breakpoints list event
		1492
205	heavyiron	1493	OnBl:
3675	GerdtR	1494	mov esi, [curarg]
		1495	cmp byte [esi], 0
		1496	jz .listall
		1497	call get_hex_number
		1498	jc .ret
		1499	cmp eax, breakpoints_n
		1500	jae .err
		1501	push eax
		1502	add eax, eax
		1503	lea edi, [breakpoints + eax + eax*2]
		1504	pop eax
		1505	test byte [edi+4], 1
		1506	jz .err
		1507	call show_break_info
205	heavyiron	1508
3675	GerdtR	1509	.ret:
		1510	ret
		1511
		1512	.err:
		1513	mov esi, aInvalidBreak
		1514	jmp put_message
		1515
		1516	.listall:
		1517	mov edi, breakpoints
		1518	xor eax, eax
		1519
		1520	@@:
		1521	test byte [edi+4], 1
		1522	jz .cont
		1523	push edi eax
		1524	call show_break_info
		1525	pop eax edi
		1526
		1527	.cont:
		1528	add edi, 6
		1529	inc eax
		1530	cmp eax, breakpoints_n
		1531	jb @b
		1532	ret
		1533
		1534	;-----------------------------------------------------------------------------
4893	Serge	1535
205	heavyiron	1536	show_break_info:
3675	GerdtR	1537	push edi
		1538	test byte [edi+4], 8
		1539	jnz .dr
		1540	push dword [edi]
		1541	push eax
		1542	mov esi, aBreakNum
		1543	call put_message_nodraw
		1544	jmp .cmn
205	heavyiron	1545
3675	GerdtR	1546	.dr:
		1547	push eax
		1548	mov esi, aMemBreak1
		1549	call put_message_nodraw
		1550	pop edi
		1551	push edi
		1552	mov esi, aMemBreak2
		1553	test byte [edi+5], 2
		1554	jz @f
		1555	mov esi, aMemBreak3
		1556
		1557	@@:
		1558	call put_message_nodraw
		1559	pop edi
		1560	push edi
		1561	mov esi, aMemBreak6
		1562	test byte [edi+5], 8
		1563	jnz @f
		1564	mov esi, aMemBreak5
		1565	test byte [edi+5], 4
		1566	jnz @f
		1567	mov esi, aMemBreak4
		1568
		1569	@@:
		1570	call put_message_nodraw
		1571	pop edi
		1572	push edi
		1573	push dword [edi]
		1574	mov esi, aMemBreak7
		1575	call put_message_nodraw
		1576
		1577	.cmn:
		1578	pop edi
		1579	test byte [edi+4], 2
		1580	jz @f
		1581	push edi
		1582	mov esi, aDisabled
		1583	call put_message_nodraw
		1584	pop edi
		1585
		1586	@@:
		1587	test byte [edi+4], 4
		1588	jz @f
		1589	mov esi, aOneShot
		1590	call put_message_nodraw
		1591
		1592	@@:
		1593	mov esi, newline
		1594	jmp put_message
		1595
		1596	;-----------------------------------------------------------------------------
		1597	; Add breakpoint
		1598	; in: EAX = address; BL = flags
		1599	; out: CF = 1 => error
		1600	; CF = 0 and EAX = breakpoint number
		1601
205	heavyiron	1602	add_breakpoint:
3675	GerdtR	1603	xor ecx, ecx
		1604	mov edi, breakpoints
205	heavyiron	1605
3675	GerdtR	1606	@@:
		1607	test byte [edi+4], 1
		1608	jz .found
		1609	add edi, 6
		1610	inc ecx
		1611	cmp ecx, breakpoints_n
		1612	jb @b
		1613	stc
		1614	ret
		1615
		1616	.found:
		1617	stosd
		1618	xchg eax, ecx
		1619	mov [edi], bl
		1620	test bl, 2
		1621	jnz @f
		1622	or byte [edi], 2
		1623	push eax
		1624	call enable_breakpoint
		1625	pop eax
		1626
		1627	@@:
		1628	clc
		1629	ret
		1630
		1631	;-----------------------------------------------------------------------------
		1632	; Remove breakpoint
		1633
205	heavyiron	1634	clear_breakpoint:
3675	GerdtR	1635	cmp eax, breakpoints_n
		1636	jae .ret
		1637	mov ecx, 4
		1638	inc eax
205	heavyiron	1639
3675	GerdtR	1640	.1:
		1641	cmp [drx_break-4+ecx*4], eax
		1642	jnz @f
		1643	and [drx_break-4+ecx*4], 0
		1644
		1645	@@:
		1646	loop .1
		1647	dec eax
		1648	push eax
		1649	add eax, eax
		1650	lea edi, [breakpoints + eax + eax*2 + 4]
		1651	test byte [edi], 1
		1652	pop eax
		1653	jz .ret
		1654	push edi
		1655	call disable_breakpoint
		1656	pop edi
		1657	mov byte [edi], 0
		1658
		1659	.ret:
		1660	ret
		1661
		1662	;-----------------------------------------------------------------------------
		1663	; Disable breakpoint
		1664
205	heavyiron	1665	disable_breakpoint:
3675	GerdtR	1666	cmp eax, breakpoints_n
		1667	jae .ret
		1668	add eax, eax
		1669	lea edi, [breakpoints + eax + eax*2 + 5]
		1670	test byte [edi-1], 1
		1671	jz .ret
		1672	test byte [edi-1], 2
		1673	jnz .ret
		1674	or byte [edi-1], 2
		1675	test byte [edi-1], 8
		1676	jnz .dr
		1677	push esi
		1678	;push 7
		1679	;pop ebx
		1680	;push 69
		1681	;pop eax
		1682	;mov ecx, [debuggee_pid]
		1683	;xor edx, edx
		1684	;inc edx
		1685	;mov esi, [edi-5]
		1686	mcall 69, 7, [debuggee_pid], 1, [edi-5]
		1687	pop esi
205	heavyiron	1688
3675	GerdtR	1689	.ret:
		1690	ret
		1691
		1692	.dr:
		1693	mov dl, [edi]
		1694	shr dl, 6
		1695	mov dh, 80h
		1696	;push 69
		1697	;pop eax
		1698	;push 9
		1699	;pop ebx
		1700	;mov ecx, [debuggee_pid]
		1701	mcall 69, 9, [debuggee_pid]
		1702	ret
		1703
		1704	;-----------------------------------------------------------------------------
		1705	; Enable breakpoint
		1706
205	heavyiron	1707	enable_breakpoint:
3675	GerdtR	1708	push esi
		1709	cmp eax, breakpoints_n
		1710	jae .ret
		1711	add eax, eax
		1712	lea edi, [breakpoints + eax + eax*2 + 5]
		1713	test byte [edi-1], 1
		1714	jz .ret
		1715	test byte [edi-1], 2
		1716	jz .ret
		1717	and byte [edi-1], not 2
		1718	test byte [edi-1], 8
		1719	jnz .dr
		1720	;push 6
		1721	;pop ebx
		1722	;push 69
		1723	;pop eax
		1724	;mov esi, [edi-5]
		1725	;mov ecx, [debuggee_pid]
		1726	;xor edx, edx
		1727	;inc edx
		1728	mcall 69, 6, [debuggee_pid], 1, [edi-5]
		1729	dec eax
		1730	jnz .err
		1731	;mov al, 69
		1732	push 0xCC
		1733	mov edi, esp
		1734	inc ebx
		1735	mcall 69
		1736	pop eax
205	heavyiron	1737
3675	GerdtR	1738	.ret:
		1739	pop esi
		1740	ret
205	heavyiron	1741
3675	GerdtR	1742	.err:
		1743	or byte [edi-1], 2
		1744	mov esi, aBreakErr
		1745	call put_message
		1746	pop esi
		1747	ret
205	heavyiron	1748
3675	GerdtR	1749	.dr:
		1750	;push 9
		1751	;pop ebx
		1752	;push 69
		1753	;pop eax
		1754	mov esi, [edi-5]
		1755	;mov ecx, [debuggee_pid]
		1756	mov dl, [edi]
		1757	shr dl, 6
		1758	mov dh, [edi]
		1759	and dh, 0xF
		1760	mcall 69, 9, [debuggee_pid]
		1761	test eax, eax
		1762	jnz .err
		1763	pop esi
		1764	ret
205	heavyiron	1765
3675	GerdtR	1766	;-----------------------------------------------------------------------------
		1767	; Find breakpoint
542	diamond	1768
3675	GerdtR	1769	find_breakpoint:
		1770	xor ecx, ecx
		1771	xchg eax, ecx
		1772	mov edi, breakpoints
542	diamond	1773
3675	GerdtR	1774	@@:
		1775	test byte [edi+4], 1
		1776	jz .cont
		1777	test byte [edi+4], 8
		1778	jnz .cont
		1779	cmp [edi], ecx
		1780	jz .found
542	diamond	1781
3675	GerdtR	1782	.cont:
		1783	add edi, 6
		1784	inc eax
		1785	cmp eax, breakpoints_n
		1786	jb @b
		1787	or eax, -1
542	diamond	1788
3675	GerdtR	1789	.found:
		1790	ret
542	diamond	1791
3675	GerdtR	1792	;-----------------------------------------------------------------------------
		1793	;
542	diamond	1794
3675	GerdtR	1795	find_enabled_breakpoint:
		1796	xor ecx, ecx
		1797	xchg eax, ecx
		1798	mov edi, breakpoints
542	diamond	1799
3675	GerdtR	1800	@@:
		1801	test byte [edi+4], 1
		1802	jz .cont
		1803	test byte [edi+4], 2 or 8
		1804	jnz .cont
		1805	cmp [edi], ecx
		1806	jz .found
542	diamond	1807
3675	GerdtR	1808	.cont:
		1809	add edi, 6
		1810	inc eax
		1811	cmp eax, breakpoints_n
		1812	jb @b
		1813	or eax, -1
205	heavyiron	1814
3675	GerdtR	1815	.found:
		1816	ret
205	heavyiron	1817
3675	GerdtR	1818	; TODO: add find_disabled_breakpoint
205	heavyiron	1819
3675	GerdtR	1820	;-----------------------------------------------------------------------------
		1821	; Unpack executable event
205	heavyiron	1822
3675	GerdtR	1823	OnUnpack:
		1824	; program must be loaded - checked when command was parsed
		1825	; program must be stopped
		1826	mov esi, aRunningErr
		1827	cmp [bSuspended], 0
		1828	jz put_message
		1829	; all breakpoints must be disabled
		1830	mov edi, breakpoints
205	heavyiron	1831
3675	GerdtR	1832	@@:
		1833	test byte [edi+4], 1
		1834	jz .cont
		1835	test byte [edi+4], 2
		1836	jnz .cont
		1837	mov esi, aEnabledBreakErr
		1838	jmp put_message
205	heavyiron	1839
3675	GerdtR	1840	.cont:
		1841	add edi, 6
		1842	cmp edi, breakpoints+breakpoints_n*6
		1843	jb @b
		1844	; ok, now do it
		1845	; set breakpoint on 0xC dword access
		1846	push 9
		1847	pop ebx
		1848	mov ecx, [debuggee_pid]
		1849	mov dx, 1111b*256
		1850	push 0xC
		1851	pop esi
205	heavyiron	1852
3675	GerdtR	1853	@@:
		1854	;push 69
		1855	;pop eax
		1856	mcall 69
		1857	test eax, eax
		1858	jz .breakok
		1859	inc edx
		1860	cmp dl, 4
		1861	jb @b
809	diamond	1862
3675	GerdtR	1863	.breakok:
		1864	call GoOn
809	diamond	1865
3675	GerdtR	1866	; now wait for event
		1867	.wait:
		1868	;push 10
		1869	;pop eax
		1870	mcall 10
		1871	dec eax
		1872	jz .redraw
		1873	dec eax
		1874	jz .key
		1875	dec eax
		1876	jnz .debug
		1877	; button; we have only one button, close
		1878	or eax, -1
		1879	mcall
205	heavyiron	1880
3675	GerdtR	1881	.redraw:
		1882	call draw_window
		1883	jmp .wait
205	heavyiron	1884
3675	GerdtR	1885	.key:
		1886	mov al, 2
		1887	mcall
		1888	cmp ah, 3 ; Ctrl+C
		1889	jnz .wait
205	heavyiron	1890
3675	GerdtR	1891	.userbreak:
		1892	mov esi, aInterrupted
205	heavyiron	1893
3675	GerdtR	1894	.x1:
		1895	push edx esi
		1896	call put_message
		1897	pop esi edx
		1898	or dh, 80h
		1899	;push 69
		1900	;pop eax
		1901	;push 9
		1902	;pop ebx
		1903	;mov ecx, [debuggee_pid]
		1904	mcall 69, 9, [debuggee_pid]
		1905	cmp esi, aUnpacked
		1906	jnz OnSuspend
		1907	jmp AfterSuspend
205	heavyiron	1908
3675	GerdtR	1909	.debug:
		1910	cmp [dbgbuflen], 4*3
		1911	jnz .notour
		1912	cmp dword [dbgbuf], 3
		1913	jnz .notour
		1914	test byte [dbgbuf+8], 1
		1915	jnz .our
205	heavyiron	1916
3675	GerdtR	1917	.notour:
		1918	mov esi, aInterrupted
		1919	push edx
		1920	call put_message
		1921	pop edx
		1922	or dh, 80h
		1923	;push 69
		1924	;pop eax
		1925	;push 9
		1926	;pop ebx
		1927	;mov ecx, [debuggee_pid]
		1928	mcall 69, 9, [debuggee_pid]
		1929	jmp debugmsg
205	heavyiron	1930
3675	GerdtR	1931	.our:
		1932	and [dbgbuflen], 0
		1933	push edx
		1934	call get_context
		1935	push eax
		1936	;mov al, 69
		1937	;mov bl, 6
		1938	;mov ecx, [debuggee_pid]
		1939	;mov edi, esp
		1940	;push 4
		1941	;pop edx
		1942	;push 0xC
		1943	;pop esi
		1944	mcall 69, 6, [debuggee_pid], 4, 0xC, esp
		1945	pop eax
		1946	pop edx
		1947	cmp eax, [_eip]
		1948	jz .done
		1949	call DoResume
		1950	jmp .wait
205	heavyiron	1951
3675	GerdtR	1952	.done:
		1953	mov esi, aUnpacked
		1954	jmp .x1
809	diamond	1955
3675	GerdtR	1956	;-----------------------------------------------------------------------------
4886	hidnplayr	1957	; Include Symbol parser
205	heavyiron	1958
4886	hidnplayr	1959	include 'symbols.inc'
205	heavyiron	1960
3675	GerdtR	1961	;-----------------------------------------------------------------------------
		1962	; Include disassembler engine
		1963
		1964	include 'disasm.inc'
		1965
205	heavyiron	1966	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1967	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DATA ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1968	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1969
4886	hidnplayr	1970	caption_str db 'Kolibri Debugger',0
205	heavyiron	1971
4913	hidnplayr	1972	begin_str db 'Kolibri Debugger, version 0.35',10
4591	hidnplayr	1973	db 'Hint: type "help" for help, "quit" to quit'
3675	GerdtR	1974	newline db 10,0
		1975	prompt db '> ',0
		1976
205	heavyiron	1977	help_groups:
3675	GerdtR	1978	dd aControl, 0, 0, help_control_msg
		1979	db 0
		1980	dd aData, 0, 0, help_data_msg
		1981	db 0
		1982	dd aBreakpoints, 0, 0, help_breaks_msg
		1983	db 0
		1984
		1985	;-----------------------------------------------------------------------------
		1986	; Commands format definitions
		1987
		1988	; TODO: make it with macros
		1989
205	heavyiron	1990	; flags field:
		1991	; &1: command may be called without parameters
		1992	; &2: command may be called with parameters
		1993	; &4: command may be called without loaded program
		1994	; &8: command may be called with loaded program
		1995	commands:
3675	GerdtR	1996	dd _aH, OnHelp, HelpSyntax, HelpHelp
		1997	db 0Fh
		1998	dd aHelp, OnHelp, HelpSyntax, HelpHelp
		1999	db 0Fh
		2000	dd aQuit, OnQuit, QuitSyntax, QuitHelp
		2001	db 0Dh
		2002	dd aLoad, OnLoad, LoadSyntax, LoadHelp
		2003	db 6
		2004	dd aReload, OnReload, ReloadSyntax, ReloadHelp
		2005	db 0Dh
		2006	dd aTerminate, OnTerminate, TerminateSyntax, TerminateHelp
		2007	db 9
		2008	dd aDetach, OnDetach, DetachSyntax, DetachHelp
		2009	db 9
		2010	dd aSuspend, OnSuspend, SuspendSyntax, SuspendHelp
		2011	db 9
		2012	dd aResume, OnResume, ResumeSyntax, ResumeHelp
		2013	db 0Bh
4443	clevermous	2014	dd aStep, OnStepMultiple, StepSyntax, StepHelp
3675	GerdtR	2015	db 0Bh
5206	clevermous	2016	dd aProceed, OnProceedMultiple, ProceedSyntax, ProceedHelp
3675	GerdtR	2017	db 0Bh
		2018	dd aCalc, OnCalc, CalcSyntax, CalcHelp
		2019	db 0Eh
		2020	dd aDump, OnDump, DumpSyntax, DumpHelp
		2021	db 0Bh
		2022	dd aUnassemble, OnUnassemble, UnassembleSyntax, UnassembleHelp
		2023	db 0Bh
		2024	dd aBp, OnBp, BpSyntax, BpHelp
		2025	db 0Ah
		2026	dd aBpm, OnBpmb, BpmSyntax, BpmHelp
		2027	db 0Ah
		2028	dd aBpmb, OnBpmb, BpmSyntax, BpmHelp
		2029	db 0Ah
		2030	dd aBpmw, OnBpmw, BpmSyntax, BpmHelp
		2031	db 0Ah
		2032	dd aBpmd, OnBpmd, BpmSyntax, BpmHelp
		2033	db 0Ah
		2034	dd aBl, OnBl, BlSyntax, BlHelp
		2035	db 0Bh
		2036	dd aBc, OnBc, BcSyntax, BcHelp
		2037	db 0Ah
		2038	dd aBd, OnBd, BdSyntax, BdHelp
		2039	db 0Ah
		2040	dd aBe, OnBe, BeSyntax, BeHelp
		2041	db 0Ah
		2042	dd aReg, OnReg, RSyntax, RHelp
		2043	db 0Ah
		2044	dd aUnpack, OnUnpack, UnpackSyntax, UnpackHelp
		2045	db 9
		2046	dd aLoadSymbols, OnLoadSymbols, LoadSymbolsSyntax, LoadSymbolsHelp
		2047	db 0Ah
		2048	dd 0
205	heavyiron	2049
3675	GerdtR	2050	;-----------------------------------------------------------------------------
		2051	; Help messages for commands groups
		2052
		2053	aHelp db 5,'help',0
		2054	_aH db 2,'h',0
		2055	HelpHelp db 'Help on specified function',10
		2056	HelpSyntax db 'Usage: h or help [group \| command]',10,0
		2057
		2058	help_msg db 'List of known command groups:',10
		2059	db '"help control" - display list of control commands',10
		2060	db '"help data" - display list of commands concerning data',10
		2061	db '"help breakpoints" - display list of commands concerning breakpoints',10,0
		2062
		2063	; Control commands group
		2064
		2065	aControl db 8,'control',0
		2066	help_control_msg db 'List of control commands:',10
		2067	db 'h = help - help',10
		2068	db 'quit - exit from debugger',10
		2069	db 'load [params] - load program for debugging',10
		2070	db 'reload - reload debugging program',10
		2071	db 'load-symbols - load information on symbols for program',10
		2072	db 'terminate - terminate loaded program',10
		2073	db 'detach - detach from debugging program',10
		2074	db 'stop - suspend execution of debugging program',10
		2075	db 'g [] - go on (resume execution of debugging program)',10
4590	clevermous	2076	db 's [] - program step, also ',10
		2077	db 'p [] - program wide step, also ',10
3675	GerdtR	2078	db 'unpack - try to bypass unpacker code (heuristic)',10,0
		2079
		2080	; Data commands group
		2081
		2082	aData db 5,'data',0
		2083	help_data_msg db 'List of data commands:',10
		2084	db '? - calculate value of expression',10
		2085	db 'd [] - dump data at given address',10
		2086	db 'u [] - unassemble instructions at given address',10
		2087	db 'r or',10
		2088	db 'r = - set register value',10,0
4893	Serge	2089
3675	GerdtR	2090	; Breakpoints commands group
		2091
205	heavyiron	2092	aBreakpoints db 12,'breakpoints',0
3675	GerdtR	2093	help_breaks_msg db 'List of breakpoints commands:',10
		2094	db 'bp - set breakpoint on execution',10
		2095	db 'bpm[b\|w\|d] - set breakpoint on memory access',10
		2096	db 'bl [] - breakpoint(s) info',10
		2097	db 'bc ... - clear breakpoint',10
		2098	db 'bd ... - disable breakpoint',10
		2099	db 'be ... - enable breakpoint',10,0
205	heavyiron	2100
3675	GerdtR	2101	;-----------------------------------------------------------------------------
		2102	; Individual command help messages
205	heavyiron	2103
3675	GerdtR	2104	aQuit db 5,'quit',0
		2105	QuitHelp db 'Quit from debugger',10
		2106	QuitSyntax db 'Usage: quit',10,0
205	heavyiron	2107
3675	GerdtR	2108	aLoad db 5,'load',0
		2109	LoadHelp db 'Load program for debugging',10
		2110	LoadSyntax db 'Usage: load [parameters]',10,0
205	heavyiron	2111
3675	GerdtR	2112	aReload db 7,'reload',0
		2113	ReloadHelp db 'Reload debugging program (restart debug session)',10
		2114	ReloadSyntax db 'Usage: reload',10,0
		2115
		2116	aTerminate db 10,'terminate',0
205	heavyiron	2117	TerminateHelp db 'Terminate debugged program',10
		2118	TerminateSyntax db 'Usage: terminate',10,0
		2119
3675	GerdtR	2120	aDetach db 7,'detach',0
		2121	DetachHelp db 'Detach from debugged program',10
		2122	DetachSyntax db 'Usage: detach',10,0
205	heavyiron	2123
3675	GerdtR	2124	aSuspend db 5,'stop',0
		2125	SuspendHelp db 'Suspend execution of debugged program',10
205	heavyiron	2126	SuspendSyntax db 'Usage: stop',10,0
		2127
3675	GerdtR	2128	aResume db 2,'g',0
		2129	ResumeHelp db 'Go (resume execution of debugged program)',10
		2130	ResumeSyntax db 'Usage: g',10
		2131	db ' or: g - wait until specified address is reached',10,0
205	heavyiron	2132
3675	GerdtR	2133	aStep db 2,'s',0
		2134	StepHelp db 'Make step in debugged program',10
		2135	StepSyntax db 'Usage: s []',10,0
205	heavyiron	2136
3675	GerdtR	2137	aProceed db 2,'p',0
		2138	ProceedHelp db 'Make wide step in debugged program (step over CALL, REPxx, LOOP)',10
		2139	ProceedSyntax db 'Usage: p []',10,0
205	heavyiron	2140
3675	GerdtR	2141	aDump db 2,'d',0
		2142	DumpHelp db 'Dump data of debugged program',10
		2143	DumpSyntax db 'Usage: d - dump data at specified address',10
		2144	db ' or: d - continue current dump',10,0
205	heavyiron	2145
3675	GerdtR	2146	aCalc db 2,'?',0
		2147	CalcHelp db 'Calculate value of expression',10
		2148	CalcSyntax db 'Usage: ? ',10,0
205	heavyiron	2149
3675	GerdtR	2150	aUnassemble db 2,'u',0
205	heavyiron	2151	UnassembleHelp db 'Unassemble',10
3675	GerdtR	2152	UnassembleSyntax db 'Usage: u - unassemble instructions at specified address',10
		2153	db ' or: u - continue current unassemble screen',10,0
205	heavyiron	2154
3675	GerdtR	2155	aReg db 2,'r',0
		2156	RHelp db 'Set register value',10
		2157	RSyntax db 'Usage: r ',10
		2158	db ' or: r = - set value of to ',10,0
205	heavyiron	2159
3675	GerdtR	2160	aBp db 3,'bp',0
		2161	BpHelp db 'set BreakPoint on execution',10
		2162	BpSyntax db 'Usage: bp ',10,0
205	heavyiron	2163
3675	GerdtR	2164	aBpm db 4,'bpm',0
		2165	aBpmb db 5,'bpmb',0
		2166	aBpmw db 5,'bpmw',0
		2167	aBpmd db 5,'bpmd',0
		2168	BpmHelp db 'set BreakPoint on Memory access',10
		2169	db 'Maximum 4 breakpoints of this type are allowed',10
		2170	db 'Note that for this breaks debugger is activated after access',10
		2171	BpmSyntax db 'Usage: bpmb [w] ',10
		2172	db ' bpmw [w] ',10
		2173	db ' bpmd [w] ',10
		2174	db ' bpm is synonym for bpmd',10
		2175	db '"w" means break only on writes (default is on read/write)',10,0
205	heavyiron	2176
3675	GerdtR	2177	aBl db 3,'bl',0
		2178	BlHelp db 'Breakpoint List',10
		2179	BlSyntax db 'Usage: bl - list all breakpoints',10
		2180	db ' bl - display info on particular breakpoint',10,0
205	heavyiron	2181
3675	GerdtR	2182	aBc db 3,'bc',0
		2183	BcHelp db 'Breakpoint Clear',10
		2184	BcSyntax db 'Usage: bc ',10
		2185	db 'Examples: bc 2',10
		2186	db ' bc 1 3 4 A',10,0
205	heavyiron	2187
3675	GerdtR	2188	aBd db 3,'bd',0
		2189	BdHelp db 'Breakpoint Disable',10
		2190	BdSyntax db 'Usage: bd ',10
		2191	db 'Examples: bd 2',10
		2192	db ' bd 1 3 4 A',10,0
205	heavyiron	2193
3675	GerdtR	2194	aBe db 3,'be',0
		2195	BeHelp db 'Breakpoint Enable',10
		2196	BeSyntax db 'Usage: be ',10
		2197	db 'Examples: be 2',10
		2198	db ' be 1 3 4 A',10,0
205	heavyiron	2199
3675	GerdtR	2200	aUnpack db 7,'unpack',0
		2201	UnpackHelp db 'Try to bypass unpacker code',10
		2202	UnpackSyntax db 'Usage: unpack',10,0
205	heavyiron	2203
3675	GerdtR	2204	aLoadSymbols db 13,'load-symbols',0
542	diamond	2205	LoadSymbolsHelp db 'Load symbolic information for executable',10
		2206	LoadSymbolsSyntax db 'Usage: load-symbols ',10,0
		2207
205	heavyiron	2208	aUnknownCommand db 'Unknown command',10,0
		2209
3675	GerdtR	2210	;-----------------------------------------------------------------------------
		2211	; Error messages
		2212
		2213	load_err_msg db 'Cannot load program. ',0
		2214	unk_err_msg db 'Unknown error code -%4X',10,0
		2215	aCannotLoadFile db 'Cannot load file. ',0
		2216	unk_err_msg2 db 'Unknown error code %4X.',10,0
205	heavyiron	2217	load_err_msgs:
3675	GerdtR	2218	dd .1, 0, .3, 0, .5, .6, 0, 0, .9, .A, 0, 0, 0, 0, 0, 0
		2219	dd 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, .1E, .1F, .20
		2220	.1 db 'HD undefined.',10,0
		2221	.3 db 'Unknown FS.',10,0
		2222	.5 db 'File not found.',10,0
		2223	.6 db 'Unexpected EOF.',10,0
		2224	.9 db 'FAT table corrupted.',10,0
		2225	.A db 'Access denied.',10,0
		2226	.1E db 'No memory.',10,0
		2227	.1F db 'Not Menuet/Kolibri executable.',10,0
		2228	.20 db 'Too many processes.',10,0
		2229	load_succ_msg db 'Program loaded successfully! PID=%4X. Use "g" to run.',10,0
		2230	need_debuggee db 'No program loaded. Use "load" command.',10,0
		2231	aAlreadyLoaded db 'Program is already loaded. Use "terminate" or "detach" commands',10,0
		2232	terminated_msg db 'Program terminated.',10,0
5461	hidnplayr	2233	aException db 'Debugged program caused an exception %2X. ', 0
		2234	msg_fault_sel dd aDivide, aDebug, aNonMask, aUndefined, aOverflow
		2235	dd aBounds, aInvalid, aCoProcessorNA, aDoubleFault
		2236	dd aUndefined, aInvalidTSS, aSegment, aStack
		2237	dd aProtection, aPageFault, aUndefined, aCoProcessor
		2238	aDivide db '(Divide error)',10,0
		2239	aDebug db '(Single-step/debug exception)',10,0
		2240	aNonMask db '(Nonmaskable interrupt)',10,0
		2241	aOverflow db '(Overflow)',10,0
		2242	aBounds db '(Bounds check)',10,0
		2243	aInvalid db '(Invalid opcode)',10,0
		2244	aCoProcessorNA db '(Coprocessor not available)',10,0
		2245	aDoubleFault db '(Double fault)',10,0
		2246	aUndefined db '(Undefined fault)',10,0
		2247	aInvalidTSS db '(Invalid TSS)',10,0
		2248	aSegment db '(Segment not present)',10,0
		2249	aStack db '(Stack fault)',10,0
		2250	aProtection db '(General protection fault)',10,0
		2251	aPageFault db '(Page fault)',10,0
		2252	aCoProcessor db '(Coprocessor error)',10,0
3675	GerdtR	2253	aSuspended db 'Suspended',10,0
		2254	aContinued db 'Continuing',10,0
		2255	aRunningErr db 'Program is running',10,0
		2256	read_mem_err db 'ERROR: cannot read process memory!!!',10,0
205	heavyiron	2257	aBreakpointLimitExceeded db 'Breakpoint limit exceeded',10,0
3675	GerdtR	2258	aBreakErr db 'Cannot activate breakpoint, it will be disabled',10,0
		2259	aDuplicateBreakpoint db 'Duplicate breakpoint',10,0
		2260	aInvalidBreak db 'Invalid breakpoint number',10,0
		2261	OnBeErrMsg db 'There is already enabled breakpoint on this address',10,0
		2262	aBreakNum db '%2X: at %8X',0
		2263	aMemBreak1 db '%2X: on ',0
		2264	aMemBreak2 db 'read from ',0
		2265	aMemBreak3 db 'access of ',0
		2266	aMemBreak4 db 'byte',0
		2267	aMemBreak5 db 'word',0
		2268	aMemBreak6 db 'dword',0
		2269	aMemBreak7 db ' at %8X',0
		2270	aOneShot db ', one-shot',0
		2271	aDisabled db ', disabled',0
		2272	aBreakStop db 'Breakpoint #%2X',10,0
		2273	aUserBreak db 'int3 command at %8X',10,0
		2274	;dbgmsg_str db 'Debug message for process %4X.',10,0
		2275	aInvAddr db 'Invalid address',10,0
		2276	NoPrgLoaded_str db 'No program loaded'
205	heavyiron	2277	NoPrgLoaded_len = $ - NoPrgLoaded_str
3675	GerdtR	2278	aRunning db 'Running'
		2279	aPaused db 'Paused'
4914	Serge	2280
		2281	aFPU db '[ FPU ]'
		2282	aMMX db '[ MMX ]'
5460	hidnplayr	2283	aSSE db '[SSE32]'
		2284	aSSE2 db '[SSE64]'
		2285	aMMX128 db '[MMX128]'
4914	Serge	2286
4591	hidnplayr	2287	aAVX db '[ AVX ]'
		2288	aMSR db '[ MSR ]'
3675	GerdtR	2289	aPoint db 0x1C
		2290	aMinus db '-'
		2291	aColon db ':'
		2292	aSpace db ' '
		2293	aQuests db '??'
		2294	aDots db '...'
		2295	aParseError db 'Parse error',10,0
		2296	aDivByZero db 'Division by 0',10,0
		2297	calc_string db '%8X',10,0
		2298	aNoMemory db 'No memory',10,0
		2299	aSymbolsLoaded db 'Symbols loaded',10,0
		2300	aUnaligned db 'Unaligned address',10,0
		2301	aEnabledBreakErr db 'Enabled breakpoints are not allowed',10,0
		2302	aInterrupted db 'Interrupted',10,0
		2303	aUnpacked db 'Unpacked successful!',10,0
		2304	aPacked1 db 'Program is probably packed with ',0
		2305	aPacked2 db '.',10,'Try to unpack automatically? [y/n]: ',0
		2306	aY_str db 'y',10,0
		2307	aN_str db 'n',10,0
		2308	mxp_nrv_name db 'mxp_nrv',0
		2309	mxp_name db 'mxp',0
		2310	mxp_lzo_name db 'mxp_lzo',0
		2311	mtappack_name db 'mtappack',0
		2312	flags db 'CPAZSDO'
		2313	flags_bits db 0,2,4,6,7,10,11
		2314
		2315	;-----------------------------------------------------------------------------
		2316	; Registers strings
		2317
205	heavyiron	2318	regs_strs:
4886	hidnplayr	2319	db 'EAX='
		2320	db 'EBX='
		2321	db 'ECX='
		2322	db 'EDX='
		2323	db 'ESI='
		2324	db 'EDI='
		2325	db 'EBP='
		2326	db 'ESP='
		2327	db 'EIP='
		2328	db 'EFLAGS='
		2329
3675	GerdtR	2330	sse_strs:
4886	hidnplayr	2331	db '-XMM0-'
		2332	db '-XMM1-'
		2333	db '-XMM2-'
		2334	db '-XMM3-'
		2335	db '-XMM4-'
		2336	db '-XMM5-'
		2337	db '-XMM6-'
		2338	db '-XMM7-'
3675	GerdtR	2339	avx_strs:
4886	hidnplayr	2340	db '-YMM0-'
		2341	db '-YMM1-'
		2342	db '-YMM2-'
		2343	db '-YMM3-'
		2344	db '-YMM4-'
		2345	db '-YMM5-'
		2346	db '-YMM6-'
		2347	db '-YMM7-'
205	heavyiron	2348
4910	Serge	2349	align 4
4912	Serge	2350	n_digits dd 10000000
4914	Serge	2351
		2352	btn2_tab dd aFPU
		2353	dd aMMX
		2354	btn3_tab dd aSSE2
		2355	dd aMMX128
		2356	dd aSSE
		2357
4886	hidnplayr	2358	reg_mode db 1
205	heavyiron	2359
4909	Serge	2360
3675	GerdtR	2361	include 'disasm_tbl.inc'
205	heavyiron	2362
		2363	reg_table:
4886	hidnplayr	2364	db 2,'al',0
		2365	db 2,'cl',1
		2366	db 2,'dl',2
		2367	db 2,'bl',3
		2368	db 2,'ah',4
		2369	db 2,'ch',5
		2370	db 2,'dh',6
		2371	db 2,'bh',7
		2372	db 2,'ax',8
		2373	db 2,'cx',9
		2374	db 2,'dx',10
		2375	db 2,'bx',11
		2376	db 2,'sp',12
		2377	db 2,'bp',13
		2378	db 2,'si',14
		2379	db 2,'di',15
		2380	db 3,'eax',16
		2381	db 3,'ecx',17
		2382	db 3,'edx',18
		2383	db 3,'ebx',19
		2384	db 3,'esp',20
		2385	db 3,'ebp',21
		2386	db 3,'esi',22
		2387	db 3,'edi',23
		2388	db 3,'eip',24
		2389	db 0
205	heavyiron	2390
542	diamond	2391	IncludeIGlobals
		2392
		2393	fn70_read_block:
4886	hidnplayr	2394	dd 0
		2395	dq 0
		2396	dd ?
		2397	dd ?
		2398	db 0
		2399	dd ?
542	diamond	2400
		2401	fn70_attr_block:
4886	hidnplayr	2402	dd 5
		2403	dd 0,0,0
		2404	dd fileattr
		2405	db 0
		2406	dd ?
542	diamond	2407
205	heavyiron	2408	fn70_load_block:
4886	hidnplayr	2409	dd 7
		2410	dd 1
		2411	load_params dd 0
		2412	dd 0
		2413	dd 0
205	heavyiron	2414	i_end:
		2415	loadname:
4886	hidnplayr	2416	db 0
		2417	rb 255
205	heavyiron	2418
4886	hidnplayr	2419	symbolsfile rb 260
542	diamond	2420
205	heavyiron	2421	prgname_ptr dd ?
		2422	prgname_len dd ?
		2423
542	diamond	2424	IncludeUGlobals
		2425
4914	Serge	2426	align 4
		2427	debuggee_pid dd ?
4886	hidnplayr	2428	dbgwnd dd ?
4914	Serge	2429	temp_break dd ?
205	heavyiron	2430
4914	Serge	2431
		2432	fpu_mode db ?
		2433	sse_mode db ?
		2434	bSuspended db ?
		2435	bAfterGo db ?
		2436
		2437
		2438	messages_pos dd ?
4886	hidnplayr	2439	messages rb messages_height*messages_width
205	heavyiron	2440
4886	hidnplayr	2441	cmdline rb cmdline_width+1
		2442	cmdline_len dd ?
		2443	cmdline_pos dd ?
		2444	curarg dd ?
205	heavyiron	2445
4886	hidnplayr	2446	cmdline_prev rb cmdline_width+1
205	heavyiron	2447
4886	hidnplayr	2448	was_temp_break db ?
		2449	symbol_section db ?
205	heavyiron	2450
4886	hidnplayr	2451	dbgbufsize dd ?
		2452	dbgbuflen dd ?
		2453	dbgbuf rb 256
542	diamond	2454
4886	hidnplayr	2455	fileattr rb 40
3675	GerdtR	2456
4893	Serge	2457	;keep aligned !!!
		2458	;do not change layout !!!
		2459
		2460	align 16
205	heavyiron	2461	needzerostart:
		2462	context:
4886	hidnplayr	2463	_eip dd ?
		2464	_eflags dd ?
		2465	_eax dd ?
		2466	_ecx dd ?
		2467	_edx dd ?
		2468	_ebx dd ?
		2469	_esp dd ?
		2470	_ebp dd ?
		2471	_esi dd ?
		2472	_edi dd ?
205	heavyiron	2473
4893	Serge	2474	_ctx_flags:
4908	hidnplayr	2475	dd ?
		2476	dd ?
205	heavyiron	2477
4893	Serge	2478	_sse_flags:
4900	Serge	2479
		2480
		2481	_fcw dw ?
		2482	_fsw dw ?
		2483	_ftw db ?
		2484	db ?
		2485	_fop dw ?
		2486	_fpu_ip dd ?
		2487	dw ?
		2488	dw ?
		2489
4908	hidnplayr	2490	dq ?
		2491	dq ?
4893	Serge	2492
3675	GerdtR	2493	fpu_context:
4893	Serge	2494	mmx_context:
		2495	_st0:
		2496	_mm0: rq 2
		2497	_st1:
		2498	_mm1: rq 2
		2499	_st2:
		2500	_mm2: rq 2
		2501	_st3:
		2502	_mm3: rq 2
		2503	_st4:
		2504	_mm4: rq 2
		2505	_st5:
		2506	_mm5: rq 2
		2507	_st6:
		2508	_mm6: rq 2
		2509	_st7:
		2510	_mm7: rq 2
3675	GerdtR	2511
		2512	sse_context:
4893	Serge	2513	_xmm0 rq 2
		2514	_xmm1 rq 2
		2515	_xmm2 rq 2
		2516	_xmm3 rq 2
		2517	_xmm4 rq 2
		2518	_xmm5 rq 2
		2519	_xmm6 rq 2
		2520	_xmm7 rq 2
		2521	ctx_end:
3675	GerdtR	2522
4893	Serge	2523	oldcontext rb _ctx_flags-context
4901	Serge	2524	rb 32
4893	Serge	2525
		2526	oldfpucontext:
		2527	oldmmxcontext: rb sse_context-fpu_context
		2528	oldssecontext: rb ctx_end-sse_context
		2529
		2530	if 0
3675	GerdtR	2531	avx_context:
4886	hidnplayr	2532	_ymm0 dq 4 dup ?
		2533	_ymm1 dq 4 dup ?
		2534	_ymm2 dq 4 dup ?
		2535	_ymm3 dq 4 dup ?
		2536	_ymm4 dq 4 dup ?
		2537	_ymm5 dq 4 dup ?
		2538	_ymm6 dq 4 dup ?
		2539	_ymm7 dq 4 dup ?
3675	GerdtR	2540	oldavxcontext rb $-avx_context
4893	Serge	2541	end if
3675	GerdtR	2542
4893	Serge	2543
4906	Serge	2544	step_num dd ?
		2545	proc_num dd ?
4886	hidnplayr	2546	dumpread dd ?
		2547	dumppos dd ?
		2548	dumpdata rb dump_height*10h
3675	GerdtR	2549
205	heavyiron	2550	; breakpoint structure:
		2551	; dword +0: address
		2552	; byte +4: flags
		2553	; bit 0: 1 <=> breakpoint valid
		2554	; bit 1: 1 <=> breakpoint disabled
		2555	; bit 2: 1 <=> one-shot breakpoint
		2556	; bit 3: 1 <=> DRx breakpoint
		2557	; byte +5: overwritten byte
		2558	; for DRx breaks: flags + (index shl 6)
		2559	breakpoints_n = 256
4886	hidnplayr	2560	breakpoints rb breakpoints_n*6
		2561	drx_break rd 4
205	heavyiron	2562
4886	hidnplayr	2563	disasm_buf_size dd ?
205	heavyiron	2564
4886	hidnplayr	2565	symbols dd ?
		2566	num_symbols dd ?
542	diamond	2567
4886	hidnplayr	2568	bReload db ?
205	heavyiron	2569
		2570	needzeroend:
		2571
4886	hidnplayr	2572	disasm_buffer rb 256
		2573	disasm_start_pos dd ?
		2574	disasm_cur_pos dd ?
		2575	disasm_cur_str dd ?
		2576	disasm_string rb 256
205	heavyiron	2577
4913	hidnplayr	2578	thread_info process_information
4908	hidnplayr	2579
4913	hidnplayr	2580	;-----------------------------------------------------------------------------
		2581	; Coordinates and sizes for GUI
		2582
		2583	data_x_size_dd dd ?, ?
		2584	messages_x_size_dd dd ?, ?
		2585	registers_x_pos_dd dd ?, ?
		2586
		2587	disasm_height_dd dd ?
		2588	disasm_y_size_dd dd ?, ?
		2589	messages_y_pos_dd dd ?, ?
		2590	cmdline_y_pos_dd dd ?, ?
		2591	registers_y_size_dd dd ?, ?
		2592
4886	hidnplayr	2593	i_param rb 256
205	heavyiron	2594
		2595	; stack
3675	GerdtR	2596	align 400h
		2597	rb 400h
205	heavyiron	2598	used_mem:
3675	GerdtR	2599
		2600	; vim: ft=fasm tabstop=4
		2601

Subversion Repositories Kolibri OS

(root)/programs/develop/mtdbg/mtdbg.asm @ 551 – Rev 6344