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

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

Subversion Repositories Kolibri OS

(root)/programs/develop/mtdbg/mtdbg.asm – Rev 4591