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



format binary
include '..\..\macros.inc'
use32
	db	'MENUET01'
	dd	1
	dd	start
	dd	i_end

	call	put_message_nodraw
; set event mask - default events and debugging events
	push	40
	pop	eax
	mov	ebx, 0x107
	mcall
; set debug messages buffer
	mov	ecx, dbgbufsize
	mov	dword [ecx], 256
	xor	ebx, ebx
	mov	[ecx+4], ebx
	mov	al, 69
	mcall
	mov	esi, i_param
	call	skip_spaces
	test	al, al
	jz	dodraw
	push	esi

dodraw:
	call	draw_window
waitevent:
	push	10
	pop	eax
	mcall
	cmp	al, 9
	jz	debugmsg
	dec	eax
	jz	dodraw
	dec	eax

	dec	eax
	jnz	waitevent
; button pressed - we have only one button (close)
	push	-1
	pop	eax
	mcall
keypressed:
	mov	al, 2
	mcall
	shr	eax, 8
	cmp	al, 8
	jz	.backspace
	cmp	al, 0xB0
	jz	.left

	add	ebx, cmdline_x_pos
	shl	ebx, 16
	or	ebx, ecx
	mov	ecx, cmdline_y_pos*10000h + cmdline_y_size
	mov	edx, 0xFFFFFF
	mcall
	ret

 
draw_cmdline:
	xor	ebx, ebx

	lea	edx, [cmdline+ebx]
	imul	ebx, 6
	add	ebx, cmdline_x_pos
	shl	ebx, 16
	or	ebx, cmdline_y_pos+1
	mcall
	ret

 
put_message_nodraw:
; in: esi->ASCIZ message

	push	13
	pop	eax
	mov	edx, 0xFFFFFF
	mov	ebx, messages_x_pos*10000h+messages_x_size
	mov	ecx, messages_y_pos*10000h+messages_y_size
	mcall
	mov	edx, messages
	push	messages_width
	pop	esi
	xor	ecx, ecx
	mov	al, 4
	mov	ebx, messages_x_pos*10000h+messages_y_pos
@@:
	mcall
	add	edx, esi
	add	ebx, 10
	cmp	edx, messages+messages_width*messages_height
	jb	@b
	ret

	add	ebx, cmdline_x_pos
	mov	edx, ebx
	shl	ebx, 16
	or	ebx, edx
	xor	edx, edx
	mcall
	ret
hide_cursor:
	mov	ebx, [cmdline_pos]
	push	13
	pop	eax

	add	ebx, cmdline_x_pos
	shl	ebx, 16
	inc	ebx
	mov	ecx, cmdline_y_pos*10000h + cmdline_y_size
	mov	edx, 0xFFFFFF
	mcall
	mov	ebx, [cmdline_pos]
	cmp	ebx, [cmdline_len]
	jae	.ret
	mov	al, 4
	xor	ecx, ecx

	add	ebx, cmdline_x_pos
	shl	ebx, 16
	or	ebx, cmdline_y_pos+1
	push	1
	pop	esi
	mcall
.ret:
	ret

 
redraw_title:
	push	13
	pop	eax
	mov	edx, 0xFFFFFF
	mov	ebx, title_x_pos*10000h + data_x_pos+data_x_size-title_x_pos
	mov	ecx, title_y_pos*10000h + title_y_size
	mcall
draw_title:
	mov	al, 38
	mov	ebx, (data_x_pos-2)*10000h + title_x_pos-5
	mov	ecx, (title_y_pos+5)*10001h
	xor	edx, edx
	mcall
	push	NoPrgLoaded_len
	pop	esi
	cmp	[debuggee_pid], 0
	jz	@f

	mov	bx, data_x_pos+data_x_size-10-5-6*7
	cmp	[bSuspended], 0
	jz	@f
	add	ebx, 6
@@:
	mcall
	mov	ebx, (data_x_pos+data_x_size-10+4)*0x10000 + data_x_pos+data_x_size+2
	mcall
	mov	al, 4
	mov	ebx, title_x_pos*10000h+title_y_pos
	xor	ecx, ecx
	mov	edx, NoPrgLoaded_str
	cmp	[debuggee_pid], 0
	jz	@f
	mov	edx, [prgname_ptr]
@@:
	mcall
	cmp	[debuggee_pid], 0
	jz	.nodebuggee
	mov	ebx, (data_x_pos+data_x_size-10-6*7)*10000h + title_y_pos
	mov	edx, aRunning
	push	7

	jz	@f
	add	ebx, 6*10000h
	mov	edx, aPaused
	dec	esi
@@:
	mcall
	ret
.nodebuggee:
	mov	al, 38
	mov	ebx, (data_x_pos+data_x_size-10-6*7-5)*0x10000 + data_x_pos+data_x_size+2
	mov	ecx, (title_y_pos+5)*10001h

	jz	.cd
	mov	ecx, 0x00AA00
.cd:
	push	4
	pop	eax
	mcall
	imul	esi, 60000h
	lea	edx, [ebx+esi]
	mov	al, 47
	mov	ebx, 80101h
	mov	esi, ecx
	pop	ecx
	mcall
	lea	ebx, [edx+60000h*18]
	mov	esi, ecx
	pop	ecx
	pop	edx
	add	edx, ecx

	test	ah, 3
	jp	.doit
	mov	ecx, 0x00AA00
.doit:
	mov	ah, 0
	mcall
	ret

 
redraw_registers:
	push	13
	pop	eax
	mov	edx, 0xFFFFFF
	mov	ebx, data_x_pos*10000h + data_x_size
	mov	ecx, registers_y_pos*10000h + registers_y_size
	mcall
draw_registers:
	mov	esi, _eax
	push	4
	pop	ecx

@@:
	mov	edx, aColon
	xor	esi, esi
	inc	esi
	mov	ebx, (registers_x_pos+37*6)*10000h + registers_y_pos+20
	mcall
	mov	edx, flags
@@:
	add	ebx, 2*6*10000h
	call	draw_flag
	inc	edx

	push	13
	pop	eax
	mov	edx, 0xFFFFFF
	mov	ebx, data_x_pos*10000h + data_x_size
	mov	ecx, dump_y_pos*10000h + dump_y_size
	mcall
draw_dump:
; addresses
	mov	al, 47
	mov	ebx, 80100h
	mov	edx, data_x_pos*10000h + dump_y_pos

	jz	@f
	cmp	[bSuspended], 0
	jz	@f
	xor	esi, esi
@@:
	mcall
	add	ecx, 10h
	add	edx, 10
	cmp	dl, dump_y_pos + dump_y_size
	jb	@b
; hex dump of data

	xor	edi, edi
	mov	edx, (data_x_pos+12*6)*10000h + dump_y_pos
	cmp	[dumpread], edi
	jz	.hexdumpdone1
.hexdumploop1:
	mcall
	add	edx, 3*6*10000h
	inc	ecx
	inc	edi
	test	edi, 15
	jz	.16

	pop	esi
	mov	edx, aQuests
.hexdumploop2:
	cmp	edi, dump_height*10h
	jae	.hexdumpdone2
	mcall
	add	ebx, 3*6*10000h
	inc	edi
	test	edi, 15
	jz	.16x
	test	edi, 7

	dec	esi
; colon, minus signs
	mov	ebx, (data_x_pos+8*6)*10000h + dump_y_pos
	mov	edx, aColon
@@:
	mcall
	add	ebx, 10
	cmp	bl, dump_y_pos+dump_height*10
	jb	@b
	mov	ebx, (data_x_pos+(12+3*8)*6)*10000h + dump_y_pos
	mov	edx, aMinus
@@:
	mcall
	add	ebx, 10
	cmp	bl, dump_y_pos+dump_height*10
	jb	@b
; ASCII data
	mov	ebx, (data_x_pos+(12+3*10h+2+2)*6)*10000h + dump_y_pos

	push	edx
	cmp	byte [edx], 20h
	jae	@f
	mov	edx, aPoint
@@:
	mcall
	pop	edx
	inc	edx
	add	ebx, 6*10000h
	dec	edi
	jz	.asciidone

	push	13
	pop	eax
	mov	edx, 0xFFFFFF
	mov	ebx, data_x_pos*10000h + data_x_size
	mov	ecx, (disasm_y_pos-1)*10000h + (disasm_y_size+1)
	mcall
draw_disasm:
	mov	eax, [disasm_start_pos]
	mov	[disasm_cur_pos], eax
	and	[disasm_cur_str], 0
.loop:

	popad
	jnz	.nored
	push	13
	pop	eax
	mov	edx, 0xFF0000
	mcall
.nored:
	mov	eax, [_eip]
	cmp	eax, ebp
	jnz	.noblue
	push	13
	pop	eax
	mov	edx, 0x0000FF
	mcall
	mov	esi, 0xFFFFFF	; on blue bgr, use white color
.noblue:
	push	47
	pop	eax
	mov	ebx, 80100h
	mov	edx, [disasm_cur_str]
	imul	edx, 10
	add	edx, data_x_pos*10000h + disasm_y_pos
	mov	ecx, ebp
	mcall
	mov	al, 4
	lea	ebx, [edx+8*6*10000h]
	mov	ecx, esi
	push	1
	pop	esi
	mov	edx, aColon
	mcall
	push	9
	pop	edi
	lea	edx, [ebx+2*6*10000h]
	mov	esi, ecx
	mov	al, 47
	mov	ebx, 20101h
	mov	ecx, ebp
	sub	ecx, [disasm_start_pos]
	add	ecx, disasm_buffer
.drawhex:
	mcall
	add	edx, 6*3*10000h
	inc	ecx
	inc	ebp
	cmp	ebp, [disasm_cur_pos]
	jae	.hexdone

	lea	ebx, [edx-6*10000h]
	mov	ecx, esi
	push	3
	pop	esi
	mov	edx, aDots
	mcall
	mov	esi, ecx
.hexdone:
	xor	eax, eax
	mov	edi, disasm_string
	mov	edx, edi

	xchg	ecx, esi
	mov	ebx, [disasm_cur_str]
	imul	ebx, 10
	add	ebx, (data_x_pos+6*40)*10000h+disasm_y_pos
	mov	al, 4
	mcall
	inc	[disasm_cur_str]
	cmp	[disasm_cur_str], disasm_height
	jb	.loop
.loopend:
	ret

	pop	ebx
	mov	ecx, [debuggee_pid]
	mov	edi, disasm_buffer
	mov	edx, 256
	mov	esi, [disasm_start_pos]
	mcall
	cmp	eax, -1
	jnz	@f
	mov	esi, read_mem_err
	call	put_message
.no:

; start redraw
	push	12
	pop	eax
	push	1
	pop	ebx
	mcall
; define window
	xor	eax, eax
	mov	ebx, wnd_x_size
	mov	ecx, wnd_y_size
	mov	edx, 3FFFFFFh
	mcall
; caption
	mov	al, 4
	mov	ecx, 0xFFFFFF
	mov	ebx, 80008h
	mov	edx, caption_str
	push	caption_len
	pop	esi
	mcall
; messages frame
	mov	al, 38
	mov	ebx, (messages_x_pos-2)*10000h + (messages_x_pos+messages_x_size+2)
	push	ebx
	mov	ecx, (messages_y_pos-2)*10001h
	xor	edx, edx
	mcall
	mov	ecx, (messages_y_pos+messages_y_size+2)*10001h
	mcall
	mov	ebx, (messages_x_pos-2)*10001h
	push	ebx
	mov	ecx, (messages_y_pos-2)*10000h + (messages_y_pos+messages_y_size+2)
	mcall
	mov	ebx, (messages_x_pos+messages_x_size+2)*10001h
	push	ebx
	mcall
; command line frame
	mov	ecx, (cmdline_y_pos-2)*10000h + (cmdline_y_pos+cmdline_y_size+2)
	pop	ebx
	mcall
	pop	ebx
	mcall
	pop	ebx
	mov	ecx, (cmdline_y_pos+cmdline_y_size+2)*10001h
	mcall
	mov	ecx, (cmdline_y_pos-2)*10001h
	mcall
; messages
	call	draw_messages
; command line & cursor
	call	draw_cmdline
	call	draw_cursor
; title & registers & dump & disasm
	mov	al, 38
	mov	ebx, (data_x_pos-2)*10001h
	mov	ecx, (title_y_pos+5)*10000h + (messages_y_pos-2)
	mcall
	mov	ebx, (data_x_pos+data_x_size+2)*10001h
	mcall
	mov	ebx, (data_x_pos-2)*10000h + (data_x_pos+data_x_size+2)
	mov	ecx, (dump_y_pos-3)*10001h
	mcall
	mov	ecx, (disasm_y_pos-4)*10001h
	mcall
	call	draw_title
	call	draw_registers
	call	draw_dump
	call	draw_disasm
; end redraw
	mov	al, 12
	push	2
	pop	ebx
	mcall
	ret

 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DEBUGGING ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	jmp	.x

 
OnQuit:
	xor	eax, eax
	dec	eax

	mcall
 
get_new_context:
	mov	esi, context

	pop	eax
	mov	ecx, [debuggee_pid]
	mov	esi, context
	push	28h
	pop	edx
	mcall
	ret
set_context:
	push	2
	pop	ebx
	push	69
	pop	eax
	mov	ecx, [debuggee_pid]
	mov	esi, context
	push	28h
	pop	edx
	mcall
	ret

 
get_dump:
	mov	edi, dumpdata

	pop	edi
	mov	ecx, [debuggee_pid]
	mov	al, 69
	push	6
	pop	ebx
	mcall
	cmp	eax, -1
	jnz	@f
	mov	esi, read_mem_err
	call	put_message
	xor	eax, eax

do_reload:
	push	18
	pop	eax
	push	7
	pop	ebx
	mcall
	mov	[dbgwnd], eax
	xchg	ecx, eax
	push	70
	pop	eax
	mov	ebx, fn70_load_block
	mcall
	test	eax, eax
	jns	.load_ok
.load_err:
	push	eax
	mov	esi, load_err_msg

; activate debugger window
	pop	ecx
	mov	bl, 3
	push	18
	pop	eax
	mcall
	call	redraw_title
	call	redraw_registers
	call	get_dump
	call	redraw_dump
	call	update_disasm_eip_force

	call	hide_cursor
	push	40
	pop	eax
	push	7
	pop	ebx
	mcall
.wait:
	push	10
	pop	eax
	mcall
	dec	eax
	jz	.redraw
	dec	eax
	jz	.key
	or	eax, -1
	mcall
.redraw:
	call	draw_window
	call	hide_cursor
	jmp	.wait
.key:
	mov	al, 2
	mcall
	cmp	ah, 'y'
	jz	.yes
	cmp	ah, 'Y'
	jz	.yes
	cmp	ah, 0xD

	jnz	.wait
.no:
	push	40
	pop	eax
	mov	ebx, 0x107
	mcall
	call	draw_cursor
	mov	esi, aN_str
	jmp	put_message
.yes:
	push	40
	pop	eax
	mov	ebx, 0x107
	mcall
	call	draw_cursor
	mov	esi, aY_str
	call	put_message
	call	OnUnpack
	ret

	mov	ecx, [debuggee_pid]
	push	8
	pop	ebx
	push	69
	pop	eax
	mcall
	ret

 
AfterSuspend:
	mov	[bSuspended], 1

	mov	ecx, [debuggee_pid]
	push	4
	pop	ebx
	push	69
	pop	eax
	mcall
	call	AfterSuspend
	mov	esi, aSuspended
	jmp	put_message
DoResume:
	mov	ecx, [debuggee_pid]
	push	5
	pop	ebx
	push	69
	pop	eax
	mcall
	mov	[bSuspended], 0
	ret
OnResume:
	mov	esi, [curarg]
	cmp	byte [esi], 0

	mov	ecx, [debuggee_pid]
	push	3
	pop	ebx
	push	69
	pop	eax
	mcall
	and	[debuggee_pid], 0
	call	redraw_title
	call	redraw_registers
	call	redraw_dump
	mov	esi, aContinued

	mov	ecx, [debuggee_pid]
	mov	edi, esp
	mov	esi, [_eip]
	push	1
	pop	edx
	mcall
	pop	eax
	cmp	al, 0xCC
	jnz	.notdbg
; this is either dbg breakpoint or int3 cmd in debuggee
	mov	eax, [_eip]

	push	18
	pop	eax
	push	3
	pop	ebx
	mov	ecx, [dbgwnd]
	mcall	; activate dbg window
	call	redraw_title
	call	redraw_registers
	call	redraw_dump
	call	update_disasm_eip
dbgmsgend:

	mov	ecx, [debuggee_pid]
	push	3
	pop	edx
	mov	edi, esp
	mov	esi, [_eip]
	mcall
	cmp	eax, edx
	pop	eax
	jnz	.doit
	cmp	al, 0xCD
	jz	.int

	mov	ecx, [debuggee_pid]
	xor	edx, edx
	push	edx
	inc	edx
	mov	edi, esp
	mcall
	dec	eax
	clc
	jz	@f
	stc
@@:	pop	eax

	mov	dl, cl
	mov	ecx, [debuggee_pid]
	mov	esi, ebp
	push	9
	pop	ebx
	mcall
	test	eax, eax
	jz	.ok
	pop	ecx
.l2:
	inc	ecx

	pop	eax
	mov	ecx, [debuggee_pid]
	xor	edx, edx
	inc	edx
	mov	esi, [edi-5]
	mcall
	pop	esi
.ret:
	ret
.dr:
	mov	dl, [edi]

	push	69
	pop	eax
	push	9
	pop	ebx
	mov	ecx, [debuggee_pid]
	mcall
	ret

 
enable_breakpoint:
	push	esi

	pop	eax
	mov	esi, [edi-5]
	mov	ecx, [debuggee_pid]
	xor	edx, edx
	inc	edx
	mcall
	dec	eax
	jnz	.err
	mov	al, 69
	push	0xCC
	mov	edi, esp
	inc	ebx
	mcall
	pop	eax
.ret:
	pop	esi
	ret
.err:

	mov	ecx, [debuggee_pid]
	mov	dl, [edi]
	shr	dl, 6
	mov	dh, [edi]
	and	dh, 0xF
	mcall
	test	eax, eax
	jnz	.err
	pop	esi
	ret

	push	0xC
	pop	esi
@@:
	push	69
	pop	eax
	mcall
	test	eax, eax
	jz	.breakok
	inc	edx
	cmp	dl, 4
	jb	@b

	call	GoOn
; now wait for event
.wait:
	push	10
	pop	eax
	mcall
	dec	eax
	jz	.redraw
	dec	eax
	jz	.key
	dec	eax
	jnz	.debug
; button; we have only one button, close
	or	eax, -1
	mcall
.redraw:
	call	draw_window
	jmp	.wait
.key:
	mov	al, 2
	mcall
	cmp	ah, 3	; Ctrl+C
	jnz	.wait
.userbreak:
	mov	esi, aInterrupted
.x1:

	push	69
	pop	eax
	push	9
	pop	ebx
	mov	ecx, [debuggee_pid]
	mcall
	cmp	esi, aUnpacked
	jnz	OnSuspend
	jmp	AfterSuspend
.debug:
	cmp	[dbgbuflen], 4*3

	push	69
	pop	eax
	push	9
	pop	ebx
	mov	ecx, [debuggee_pid]
	mcall
	jmp	debugmsg
.our:
	and	[dbgbuflen], 0
	push	edx
	call	get_context

	mov	edi, esp
	push	4
	pop	edx
	push	0xC
	pop	esi
	mcall
	pop	eax
	pop	edx
	cmp	eax, [_eip]
	jz	.done
	call	DoResume

Rev 410	Rev 485
Line 1...	Line 1...
1	format binary	1	format binary
-		2	include '..\..\macros.inc'
2	use32	3	use32
3	db 'MENUET01'	4	db 'MENUET01'
4	dd 1	5	dd 1
5	dd start	6	dd start
6	dd i_end	7	dd i_end
Line 65...	Line 66...
65	call put_message_nodraw	66	call put_message_nodraw
66	; set event mask - default events and debugging events	67	; set event mask - default events and debugging events
67	push 40	68	push 40
68	pop eax	69	pop eax
69	mov ebx, 0x107	70	mov ebx, 0x107
70	int 40h	71	mcall
71	; set debug messages buffer	72	; set debug messages buffer
72	mov ecx, dbgbufsize	73	mov ecx, dbgbufsize
73	mov dword [ecx], 256	74	mov dword [ecx], 256
74	xor ebx, ebx	75	xor ebx, ebx
75	mov [ecx+4], ebx	76	mov [ecx+4], ebx
76	mov al, 69	77	mov al, 69
77	int 40h	78	mcall
78	mov esi, i_param	79	mov esi, i_param
79	call skip_spaces	80	call skip_spaces
80	test al, al	81	test al, al
81	jz dodraw	82	jz dodraw
82	push esi	83	push esi
Line 87...	Line 88...
87	dodraw:	88	dodraw:
88	call draw_window	89	call draw_window
89	waitevent:	90	waitevent:
90	push 10	91	push 10
91	pop eax	92	pop eax
92	int 40h	93	mcall
93	cmp al, 9	94	cmp al, 9
94	jz debugmsg	95	jz debugmsg
95	dec eax	96	dec eax
96	jz dodraw	97	jz dodraw
97	dec eax	98	dec eax
Line 99...	Line 100...
99	dec eax	100	dec eax
100	jnz waitevent	101	jnz waitevent
101	; button pressed - we have only one button (close)	102	; button pressed - we have only one button (close)
102	push -1	103	push -1
103	pop eax	104	pop eax
104	int 40h	105	mcall
105	keypressed:	106	keypressed:
106	mov al, 2	107	mov al, 2
107	int 40h	108	mcall
108	shr eax, 8	109	shr eax, 8
109	cmp al, 8	110	cmp al, 8
110	jz .backspace	111	jz .backspace
111	cmp al, 0xB0	112	cmp al, 0xB0
112	jz .left	113	jz .left
Line 332...	Line 333...
332	add ebx, cmdline_x_pos	333	add ebx, cmdline_x_pos
333	shl ebx, 16	334	shl ebx, 16
334	or ebx, ecx	335	or ebx, ecx
335	mov ecx, cmdline_y_pos*10000h + cmdline_y_size	336	mov ecx, cmdline_y_pos*10000h + cmdline_y_size
336	mov edx, 0xFFFFFF	337	mov edx, 0xFFFFFF
337	int 40h	338	mcall
338	ret	339	ret
Line 339...	Line 340...
339		340
340	draw_cmdline:	341	draw_cmdline:
341	xor ebx, ebx	342	xor ebx, ebx
Line 351...	Line 352...
351	lea edx, [cmdline+ebx]	352	lea edx, [cmdline+ebx]
352	imul ebx, 6	353	imul ebx, 6
353	add ebx, cmdline_x_pos	354	add ebx, cmdline_x_pos
354	shl ebx, 16	355	shl ebx, 16
355	or ebx, cmdline_y_pos+1	356	or ebx, cmdline_y_pos+1
356	int 40h	357	mcall
357	ret	358	ret
Line 358...	Line 359...
358		359
359	put_message_nodraw:	360	put_message_nodraw:
360	; in: esi->ASCIZ message	361	; in: esi->ASCIZ message
Line 447...	Line 448...
447	push 13	448	push 13
448	pop eax	449	pop eax
449	mov edx, 0xFFFFFF	450	mov edx, 0xFFFFFF
450	mov ebx, messages_x_pos*10000h+messages_x_size	451	mov ebx, messages_x_pos*10000h+messages_x_size
451	mov ecx, messages_y_pos*10000h+messages_y_size	452	mov ecx, messages_y_pos*10000h+messages_y_size
452	int 40h	453	mcall
453	mov edx, messages	454	mov edx, messages
454	push messages_width	455	push messages_width
455	pop esi	456	pop esi
456	xor ecx, ecx	457	xor ecx, ecx
457	mov al, 4	458	mov al, 4
458	mov ebx, messages_x_pos*10000h+messages_y_pos	459	mov ebx, messages_x_pos*10000h+messages_y_pos
459	@@:	460	@@:
460	int 40h	461	mcall
461	add edx, esi	462	add edx, esi
462	add ebx, 10	463	add ebx, 10
463	cmp edx, messages+messages_width*messages_height	464	cmp edx, messages+messages_width*messages_height
464	jb @b	465	jb @b
465	ret	466	ret
Line 473...	Line 474...
473	add ebx, cmdline_x_pos	474	add ebx, cmdline_x_pos
474	mov edx, ebx	475	mov edx, ebx
475	shl ebx, 16	476	shl ebx, 16
476	or ebx, edx	477	or ebx, edx
477	xor edx, edx	478	xor edx, edx
478	int 40h	479	mcall
479	ret	480	ret
480	hide_cursor:	481	hide_cursor:
481	mov ebx, [cmdline_pos]	482	mov ebx, [cmdline_pos]
482	push 13	483	push 13
483	pop eax	484	pop eax
Line 485...	Line 486...
485	add ebx, cmdline_x_pos	486	add ebx, cmdline_x_pos
486	shl ebx, 16	487	shl ebx, 16
487	inc ebx	488	inc ebx
488	mov ecx, cmdline_y_pos*10000h + cmdline_y_size	489	mov ecx, cmdline_y_pos*10000h + cmdline_y_size
489	mov edx, 0xFFFFFF	490	mov edx, 0xFFFFFF
490	int 40h	491	mcall
491	mov ebx, [cmdline_pos]	492	mov ebx, [cmdline_pos]
492	cmp ebx, [cmdline_len]	493	cmp ebx, [cmdline_len]
493	jae .ret	494	jae .ret
494	mov al, 4	495	mov al, 4
495	xor ecx, ecx	496	xor ecx, ecx
Line 498...	Line 499...
498	add ebx, cmdline_x_pos	499	add ebx, cmdline_x_pos
499	shl ebx, 16	500	shl ebx, 16
500	or ebx, cmdline_y_pos+1	501	or ebx, cmdline_y_pos+1
501	push 1	502	push 1
502	pop esi	503	pop esi
503	int 40h	504	mcall
504	.ret:	505	.ret:
505	ret	506	ret
Line 506...	Line 507...
506		507
507	redraw_title:	508	redraw_title:
508	push 13	509	push 13
509	pop eax	510	pop eax
510	mov edx, 0xFFFFFF	511	mov edx, 0xFFFFFF
511	mov ebx, title_x_pos*10000h + data_x_pos+data_x_size-title_x_pos	512	mov ebx, title_x_pos*10000h + data_x_pos+data_x_size-title_x_pos
512	mov ecx, title_y_pos*10000h + title_y_size	513	mov ecx, title_y_pos*10000h + title_y_size
513	int 40h	514	mcall
514	draw_title:	515	draw_title:
515	mov al, 38	516	mov al, 38
516	mov ebx, (data_x_pos-2)*10000h + title_x_pos-5	517	mov ebx, (data_x_pos-2)*10000h + title_x_pos-5
517	mov ecx, (title_y_pos+5)*10001h	518	mov ecx, (title_y_pos+5)*10001h
518	xor edx, edx	519	xor edx, edx
519	int 40h	520	mcall
520	push NoPrgLoaded_len	521	push NoPrgLoaded_len
521	pop esi	522	pop esi
522	cmp [debuggee_pid], 0	523	cmp [debuggee_pid], 0
523	jz @f	524	jz @f
Line 528...	Line 529...
528	mov bx, data_x_pos+data_x_size-10-5-6*7	529	mov bx, data_x_pos+data_x_size-10-5-6*7
529	cmp [bSuspended], 0	530	cmp [bSuspended], 0
530	jz @f	531	jz @f
531	add ebx, 6	532	add ebx, 6
532	@@:	533	@@:
533	int 40h	534	mcall
534	mov ebx, (data_x_pos+data_x_size-10+4)*0x10000 + data_x_pos+data_x_size+2	535	mov ebx, (data_x_pos+data_x_size-10+4)*0x10000 + data_x_pos+data_x_size+2
535	int 40h	536	mcall
536	mov al, 4	537	mov al, 4
537	mov ebx, title_x_pos*10000h+title_y_pos	538	mov ebx, title_x_pos*10000h+title_y_pos
538	xor ecx, ecx	539	xor ecx, ecx
539	mov edx, NoPrgLoaded_str	540	mov edx, NoPrgLoaded_str
540	cmp [debuggee_pid], 0	541	cmp [debuggee_pid], 0
541	jz @f	542	jz @f
542	mov edx, [prgname_ptr]	543	mov edx, [prgname_ptr]
543	@@:	544	@@:
544	int 40h	545	mcall
545	cmp [debuggee_pid], 0	546	cmp [debuggee_pid], 0
546	jz .nodebuggee	547	jz .nodebuggee
547	mov ebx, (data_x_pos+data_x_size-10-67)10000h + title_y_pos	548	mov ebx, (data_x_pos+data_x_size-10-67)10000h + title_y_pos
548	mov edx, aRunning	549	mov edx, aRunning
549	push 7	550	push 7
Line 552...	Line 553...
552	jz @f	553	jz @f
553	add ebx, 6*10000h	554	add ebx, 6*10000h
554	mov edx, aPaused	555	mov edx, aPaused
555	dec esi	556	dec esi
556	@@:	557	@@:
557	int 40h	558	mcall
558	ret	559	ret
559	.nodebuggee:	560	.nodebuggee:
560	mov al, 38	561	mov al, 38
561	mov ebx, (data_x_pos+data_x_size-10-67-5)0x10000 + data_x_pos+data_x_size+2	562	mov ebx, (data_x_pos+data_x_size-10-67-5)0x10000 + data_x_pos+data_x_size+2
562	mov ecx, (title_y_pos+5)*10001h	563	mov ecx, (title_y_pos+5)*10001h
Line 582...	Line 583...
582	jz .cd	583	jz .cd
583	mov ecx, 0x00AA00	584	mov ecx, 0x00AA00
584	.cd:	585	.cd:
585	push 4	586	push 4
586	pop eax	587	pop eax
587	int 40h	588	mcall
588	imul esi, 60000h	589	imul esi, 60000h
589	lea edx, [ebx+esi]	590	lea edx, [ebx+esi]
590	mov al, 47	591	mov al, 47
591	mov ebx, 80101h	592	mov ebx, 80101h
592	mov esi, ecx	593	mov esi, ecx
593	pop ecx	594	pop ecx
594	int 40h	595	mcall
595	lea ebx, [edx+60000h*18]	596	lea ebx, [edx+60000h*18]
596	mov esi, ecx	597	mov esi, ecx
597	pop ecx	598	pop ecx
598	pop edx	599	pop edx
599	add edx, ecx	600	add edx, ecx
Line 620...	Line 621...
620	test ah, 3	621	test ah, 3
621	jp .doit	622	jp .doit
622	mov ecx, 0x00AA00	623	mov ecx, 0x00AA00
623	.doit:	624	.doit:
624	mov ah, 0	625	mov ah, 0
625	int 40h	626	mcall
626	ret	627	ret
Line 627...	Line 628...
627		628
628	redraw_registers:	629	redraw_registers:
629	push 13	630	push 13
630	pop eax	631	pop eax
631	mov edx, 0xFFFFFF	632	mov edx, 0xFFFFFF
632	mov ebx, data_x_pos*10000h + data_x_size	633	mov ebx, data_x_pos*10000h + data_x_size
633	mov ecx, registers_y_pos*10000h + registers_y_size	634	mov ecx, registers_y_pos*10000h + registers_y_size
634	int 40h	635	mcall
635	draw_registers:	636	draw_registers:
636	mov esi, _eax	637	mov esi, _eax
637	push 4	638	push 4
638	pop ecx	639	pop ecx
Line 670...	Line 671...
670	@@:	671	@@:
671	mov edx, aColon	672	mov edx, aColon
672	xor esi, esi	673	xor esi, esi
673	inc esi	674	inc esi
674	mov ebx, (registers_x_pos+376)10000h + registers_y_pos+20	675	mov ebx, (registers_x_pos+376)10000h + registers_y_pos+20
675	int 40h	676	mcall
676	mov edx, flags	677	mov edx, flags
677	@@:	678	@@:
678	add ebx, 2610000h	679	add ebx, 2610000h
679	call draw_flag	680	call draw_flag
680	inc edx	681	inc edx
Line 686...	Line 687...
686	push 13	687	push 13
687	pop eax	688	pop eax
688	mov edx, 0xFFFFFF	689	mov edx, 0xFFFFFF
689	mov ebx, data_x_pos*10000h + data_x_size	690	mov ebx, data_x_pos*10000h + data_x_size
690	mov ecx, dump_y_pos*10000h + dump_y_size	691	mov ecx, dump_y_pos*10000h + dump_y_size
691	int 40h	692	mcall
692	draw_dump:	693	draw_dump:
693	; addresses	694	; addresses
694	mov al, 47	695	mov al, 47
695	mov ebx, 80100h	696	mov ebx, 80100h
696	mov edx, data_x_pos*10000h + dump_y_pos	697	mov edx, data_x_pos*10000h + dump_y_pos
Line 700...	Line 701...
700	jz @f	701	jz @f
701	cmp [bSuspended], 0	702	cmp [bSuspended], 0
702	jz @f	703	jz @f
703	xor esi, esi	704	xor esi, esi
704	@@:	705	@@:
705	int 40h	706	mcall
706	add ecx, 10h	707	add ecx, 10h
707	add edx, 10	708	add edx, 10
708	cmp dl, dump_y_pos + dump_y_size	709	cmp dl, dump_y_pos + dump_y_size
709	jb @b	710	jb @b
710	; hex dump of data	711	; hex dump of data
Line 714...	Line 715...
714	xor edi, edi	715	xor edi, edi
715	mov edx, (data_x_pos+126)10000h + dump_y_pos	716	mov edx, (data_x_pos+126)10000h + dump_y_pos
716	cmp [dumpread], edi	717	cmp [dumpread], edi
717	jz .hexdumpdone1	718	jz .hexdumpdone1
718	.hexdumploop1:	719	.hexdumploop1:
719	int 40h	720	mcall
720	add edx, 3610000h	721	add edx, 3610000h
721	inc ecx	722	inc ecx
722	inc edi	723	inc edi
723	test edi, 15	724	test edi, 15
724	jz .16	725	jz .16
Line 738...	Line 739...
738	pop esi	739	pop esi
739	mov edx, aQuests	740	mov edx, aQuests
740	.hexdumploop2:	741	.hexdumploop2:
741	cmp edi, dump_height*10h	742	cmp edi, dump_height*10h
742	jae .hexdumpdone2	743	jae .hexdumpdone2
743	int 40h	744	mcall
744	add ebx, 3610000h	745	add ebx, 3610000h
745	inc edi	746	inc edi
746	test edi, 15	747	test edi, 15
747	jz .16x	748	jz .16x
748	test edi, 7	749	test edi, 7
Line 755...	Line 756...
755	dec esi	756	dec esi
756	; colon, minus signs	757	; colon, minus signs
757	mov ebx, (data_x_pos+86)10000h + dump_y_pos	758	mov ebx, (data_x_pos+86)10000h + dump_y_pos
758	mov edx, aColon	759	mov edx, aColon
759	@@:	760	@@:
760	int 40h	761	mcall
761	add ebx, 10	762	add ebx, 10
762	cmp bl, dump_y_pos+dump_height*10	763	cmp bl, dump_y_pos+dump_height*10
763	jb @b	764	jb @b
764	mov ebx, (data_x_pos+(12+38)6)*10000h + dump_y_pos	765	mov ebx, (data_x_pos+(12+38)6)*10000h + dump_y_pos
765	mov edx, aMinus	766	mov edx, aMinus
766	@@:	767	@@:
767	int 40h	768	mcall
768	add ebx, 10	769	add ebx, 10
769	cmp bl, dump_y_pos+dump_height*10	770	cmp bl, dump_y_pos+dump_height*10
770	jb @b	771	jb @b
771	; ASCII data	772	; ASCII data
772	mov ebx, (data_x_pos+(12+310h+2+2)6)*10000h + dump_y_pos	773	mov ebx, (data_x_pos+(12+310h+2+2)6)*10000h + dump_y_pos
Line 776...	Line 777...
776	push edx	777	push edx
777	cmp byte [edx], 20h	778	cmp byte [edx], 20h
778	jae @f	779	jae @f
779	mov edx, aPoint	780	mov edx, aPoint
780	@@:	781	@@:
781	int 40h	782	mcall
782	pop edx	783	pop edx
783	inc edx	784	inc edx
784	add ebx, 6*10000h	785	add ebx, 6*10000h
785	dec edi	786	dec edi
786	jz .asciidone	787	jz .asciidone
Line 795...	Line 796...
795	push 13	796	push 13
796	pop eax	797	pop eax
797	mov edx, 0xFFFFFF	798	mov edx, 0xFFFFFF
798	mov ebx, data_x_pos*10000h + data_x_size	799	mov ebx, data_x_pos*10000h + data_x_size
799	mov ecx, (disasm_y_pos-1)*10000h + (disasm_y_size+1)	800	mov ecx, (disasm_y_pos-1)*10000h + (disasm_y_size+1)
800	int 40h	801	mcall
801	draw_disasm:	802	draw_disasm:
802	mov eax, [disasm_start_pos]	803	mov eax, [disasm_start_pos]
803	mov [disasm_cur_pos], eax	804	mov [disasm_cur_pos], eax
804	and [disasm_cur_str], 0	805	and [disasm_cur_str], 0
805	.loop:	806	.loop:
Line 818...	Line 819...
818	popad	819	popad
819	jnz .nored	820	jnz .nored
820	push 13	821	push 13
821	pop eax	822	pop eax
822	mov edx, 0xFF0000	823	mov edx, 0xFF0000
823	int 40h	824	mcall
824	.nored:	825	.nored:
825	mov eax, [_eip]	826	mov eax, [_eip]
826	cmp eax, ebp	827	cmp eax, ebp
827	jnz .noblue	828	jnz .noblue
828	push 13	829	push 13
829	pop eax	830	pop eax
830	mov edx, 0x0000FF	831	mov edx, 0x0000FF
831	int 40h	832	mcall
832	mov esi, 0xFFFFFF ; on blue bgr, use white color	833	mov esi, 0xFFFFFF ; on blue bgr, use white color
833	.noblue:	834	.noblue:
834	push 47	835	push 47
835	pop eax	836	pop eax
836	mov ebx, 80100h	837	mov ebx, 80100h
837	mov edx, [disasm_cur_str]	838	mov edx, [disasm_cur_str]
838	imul edx, 10	839	imul edx, 10
839	add edx, data_x_pos*10000h + disasm_y_pos	840	add edx, data_x_pos*10000h + disasm_y_pos
840	mov ecx, ebp	841	mov ecx, ebp
841	int 40h	842	mcall
842	mov al, 4	843	mov al, 4
843	lea ebx, [edx+8610000h]	844	lea ebx, [edx+8610000h]
844	mov ecx, esi	845	mov ecx, esi
845	push 1	846	push 1
846	pop esi	847	pop esi
847	mov edx, aColon	848	mov edx, aColon
848	int 40h	849	mcall
849	push 9	850	push 9
850	pop edi	851	pop edi
851	lea edx, [ebx+2610000h]	852	lea edx, [ebx+2610000h]
852	mov esi, ecx	853	mov esi, ecx
853	mov al, 47	854	mov al, 47
854	mov ebx, 20101h	855	mov ebx, 20101h
855	mov ecx, ebp	856	mov ecx, ebp
856	sub ecx, [disasm_start_pos]	857	sub ecx, [disasm_start_pos]
857	add ecx, disasm_buffer	858	add ecx, disasm_buffer
858	.drawhex:	859	.drawhex:
859	int 40h	860	mcall
860	add edx, 6310000h	861	add edx, 6310000h
861	inc ecx	862	inc ecx
862	inc ebp	863	inc ebp
863	cmp ebp, [disasm_cur_pos]	864	cmp ebp, [disasm_cur_pos]
864	jae .hexdone	865	jae .hexdone
Line 874...	Line 875...
874	lea ebx, [edx-6*10000h]	875	lea ebx, [edx-6*10000h]
875	mov ecx, esi	876	mov ecx, esi
876	push 3	877	push 3
877	pop esi	878	pop esi
878	mov edx, aDots	879	mov edx, aDots
879	int 40h	880	mcall
880	mov esi, ecx	881	mov esi, ecx
881	.hexdone:	882	.hexdone:
882	xor eax, eax	883	xor eax, eax
883	mov edi, disasm_string	884	mov edi, disasm_string
884	mov edx, edi	885	mov edx, edi
Line 889...	Line 890...
889	xchg ecx, esi	890	xchg ecx, esi
890	mov ebx, [disasm_cur_str]	891	mov ebx, [disasm_cur_str]
891	imul ebx, 10	892	imul ebx, 10
892	add ebx, (data_x_pos+640)10000h+disasm_y_pos	893	add ebx, (data_x_pos+640)10000h+disasm_y_pos
893	mov al, 4	894	mov al, 4
894	int 40h	895	mcall
895	inc [disasm_cur_str]	896	inc [disasm_cur_str]
896	cmp [disasm_cur_str], disasm_height	897	cmp [disasm_cur_str], disasm_height
897	jb .loop	898	jb .loop
898	.loopend:	899	.loopend:
899	ret	900	ret
Line 925...	Line 926...
925	pop ebx	926	pop ebx
926	mov ecx, [debuggee_pid]	927	mov ecx, [debuggee_pid]
927	mov edi, disasm_buffer	928	mov edi, disasm_buffer
928	mov edx, 256	929	mov edx, 256
929	mov esi, [disasm_start_pos]	930	mov esi, [disasm_start_pos]
930	int 40h	931	mcall
931	cmp eax, -1	932	cmp eax, -1
932	jnz @f	933	jnz @f
933	mov esi, read_mem_err	934	mov esi, read_mem_err
934	call put_message	935	call put_message
935	.no:	936	.no:
Line 943...	Line 944...
943	; start redraw	944	; start redraw
944	push 12	945	push 12
945	pop eax	946	pop eax
946	push 1	947	push 1
947	pop ebx	948	pop ebx
948	int 40h	949	mcall
949	; define window	950	; define window
950	xor eax, eax	951	xor eax, eax
951	mov ebx, wnd_x_size	952	mov ebx, wnd_x_size
952	mov ecx, wnd_y_size	953	mov ecx, wnd_y_size
953	mov edx, 3FFFFFFh	954	mov edx, 3FFFFFFh
954	int 40h	955	mcall
955	; caption	956	; caption
956	mov al, 4	957	mov al, 4
957	mov ecx, 0xFFFFFF	958	mov ecx, 0xFFFFFF
958	mov ebx, 80008h	959	mov ebx, 80008h
959	mov edx, caption_str	960	mov edx, caption_str
960	push caption_len	961	push caption_len
961	pop esi	962	pop esi
962	int 40h	963	mcall
963	; messages frame	964	; messages frame
964	mov al, 38	965	mov al, 38
965	mov ebx, (messages_x_pos-2)*10000h + (messages_x_pos+messages_x_size+2)	966	mov ebx, (messages_x_pos-2)*10000h + (messages_x_pos+messages_x_size+2)
966	push ebx	967	push ebx
967	mov ecx, (messages_y_pos-2)*10001h	968	mov ecx, (messages_y_pos-2)*10001h
968	xor edx, edx	969	xor edx, edx
969	int 40h	970	mcall
970	mov ecx, (messages_y_pos+messages_y_size+2)*10001h	971	mov ecx, (messages_y_pos+messages_y_size+2)*10001h
971	int 40h	972	mcall
972	mov ebx, (messages_x_pos-2)*10001h	973	mov ebx, (messages_x_pos-2)*10001h
973	push ebx	974	push ebx
974	mov ecx, (messages_y_pos-2)*10000h + (messages_y_pos+messages_y_size+2)	975	mov ecx, (messages_y_pos-2)*10000h + (messages_y_pos+messages_y_size+2)
975	int 40h	976	mcall
976	mov ebx, (messages_x_pos+messages_x_size+2)*10001h	977	mov ebx, (messages_x_pos+messages_x_size+2)*10001h
977	push ebx	978	push ebx
978	int 40h	979	mcall
979	; command line frame	980	; command line frame
980	mov ecx, (cmdline_y_pos-2)*10000h + (cmdline_y_pos+cmdline_y_size+2)	981	mov ecx, (cmdline_y_pos-2)*10000h + (cmdline_y_pos+cmdline_y_size+2)
981	pop ebx	982	pop ebx
982	int 40h	983	mcall
983	pop ebx	984	pop ebx
984	int 40h	985	mcall
985	pop ebx	986	pop ebx
986	mov ecx, (cmdline_y_pos+cmdline_y_size+2)*10001h	987	mov ecx, (cmdline_y_pos+cmdline_y_size+2)*10001h
987	int 40h	988	mcall
988	mov ecx, (cmdline_y_pos-2)*10001h	989	mov ecx, (cmdline_y_pos-2)*10001h
989	int 40h	990	mcall
990	; messages	991	; messages
991	call draw_messages	992	call draw_messages
992	; command line & cursor	993	; command line & cursor
993	call draw_cmdline	994	call draw_cmdline
994	call draw_cursor	995	call draw_cursor
995	; title & registers & dump & disasm	996	; title & registers & dump & disasm
996	mov al, 38	997	mov al, 38
997	mov ebx, (data_x_pos-2)*10001h	998	mov ebx, (data_x_pos-2)*10001h
998	mov ecx, (title_y_pos+5)*10000h + (messages_y_pos-2)	999	mov ecx, (title_y_pos+5)*10000h + (messages_y_pos-2)
999	int 40h	1000	mcall
1000	mov ebx, (data_x_pos+data_x_size+2)*10001h	1001	mov ebx, (data_x_pos+data_x_size+2)*10001h
1001	int 40h	1002	mcall
1002	mov ebx, (data_x_pos-2)*10000h + (data_x_pos+data_x_size+2)	1003	mov ebx, (data_x_pos-2)*10000h + (data_x_pos+data_x_size+2)
1003	mov ecx, (dump_y_pos-3)*10001h	1004	mov ecx, (dump_y_pos-3)*10001h
1004	int 40h	1005	mcall
1005	mov ecx, (disasm_y_pos-4)*10001h	1006	mov ecx, (disasm_y_pos-4)*10001h
1006	int 40h	1007	mcall
1007	call draw_title	1008	call draw_title
1008	call draw_registers	1009	call draw_registers
1009	call draw_dump	1010	call draw_dump
1010	call draw_disasm	1011	call draw_disasm
1011	; end redraw	1012	; end redraw
1012	mov al, 12	1013	mov al, 12
1013	push 2	1014	push 2
1014	pop ebx	1015	pop ebx
1015	int 40h	1016	mcall
1016	ret	1017	ret
Line 1017...	Line 1018...
1017		1018
1018	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1019	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1019	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DEBUGGING ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1020	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DEBUGGING ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 1035...	Line 1036...
1035	jmp .x	1036	jmp .x
Line 1036...	Line 1037...
1036		1037
1037	OnQuit:	1038	OnQuit:
1038	xor eax, eax	1039	xor eax, eax
1039	dec eax	1040	dec eax
Line 1040...	Line 1041...
1040	int 40h	1041	mcall

Subversion Repositories Kolibri OS

(root)/programs/develop/mtdbg/mtdbg.asm – Rev 410 → 485