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

 	push	ecx
 	push	esi
 	mov	eax, esi
 	mov	esi, ecx
 ; color
-	mov	ecx, 808080h
+	mov	ecx, 40808080h
 	cmp	[debuggee_pid], 0
 	jz	.cd
 	cmp	[bSuspended], 0
 	jz	.cd
-	xor	ecx, ecx
+	mov	ecx, 40000000h
+	push	edi
 	mov	edi, [eax]
 	cmp	dword [eax+oldcontext-context], edi
+	pop	edi
 	jz	.cd
-	mov	ecx, 0x00AA00
+	mov	ecx, 0x4000AA00
 .cd:
 	push	4
 	pop	eax
 	mcall
 	imul	esi, 60000h
 	or	byte [edx], 20h
 	jmp	.onoff
 .on:
 	and	byte [edx], not 20h
 .onoff:
-	mov	ecx, 808080h
+	mov	ecx, 40808080h
 	cmp	[debuggee_pid], 0
 	jz	.doit
 	cmp	[bSuspended], 0
 	jz	.doit
-	xor	ecx, ecx
+	mov	ecx, 40000000h
 	bt	[_eflags], edi
 	lahf
 	bt	dword [_eflags + oldcontext - context], edi
 	rcl	ah, 1
 	test	ah, 3
 	jp	.doit
-	mov	ecx, 0x00AA00
+	mov	ecx, 0x4000AA00
 .doit:
 	mov	ah, 0
+	mov	edi, 0xFFFFFF
 	mcall
 	ret
-redraw_registers:
+draw_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
+redraw_registers:
-draw_registers:
+	mov	edi, 0xFFFFFF
 	mov	esi, _eax
 	push	4
 	pop	ecx
 	mov	edx, regs_strs
 	inc	edx
 	cmp	dl, flags_bits and 0xFF
 	jnz	@b
 	ret
-redraw_dump:
+draw_dump:
 	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:
+redraw_dump:
 ; addresses
 	mov	al, 47
 	mov	ebx, 80100h
 	mov	edx, data_x_pos*10000h + dump_y_pos
+	mov	ecx, [dumppos]
-	mov	ecx, [dumppos]
+	mov	edi, 0xFFFFFF
-	mov	esi, 808080h
+	mov	esi, 40808080h
 	cmp	[debuggee_pid], 0
 	jz	@f
 	cmp	[bSuspended], 0
 	jz	@f
-	xor	esi, esi
+	mov	esi, 40000000h
 @@:
 	mcall
 	add	ecx, 10h
 	add	edx, 10
 	cmp	dl, dump_y_pos + dump_y_size
 	jb	@b
-; hex dump of data
-	mov	ebx, 20101h
+; hex dump of data
 	mov	ecx, dumpdata
 	push	ecx
-	xor	edi, edi
+	xor	ebx, ebx
 	mov	edx, (data_x_pos+12*6)*10000h + dump_y_pos
-	cmp	[dumpread], edi
+	cmp	[dumpread], ebx
 	jz	.hexdumpdone1
+.hexdumploop1:
+	push	ebx
-.hexdumploop1:
+	mov	ebx, 20101h
+	mcall
-	mcall
+	pop	ebx
 	add	edx, 3*6*10000h
 	inc	ecx
-	inc	edi
+	inc	ebx
-	test	edi, 15
+	test	bl, 15
 	jz	.16
-	test	edi, 7
+	test	bl, 7
 	jnz	@f
 	add	edx, 2*6*10000h - 10 + 6*(3*10h+2)*10000h
 .16:
 	add	edx, 10 - 6*(3*10h+2)*10000h
 @@:
-	cmp	edi, [dumpread]
+	cmp	ebx, [dumpread]
 	jb	.hexdumploop1
 .hexdumpdone1:
 	mov	al, 4
 	mov	ecx, esi
-	mov	ebx, edx
+	xchg	ebx, edx
 	push	2
-	pop	esi
-	mov	edx, aQuests
+	pop	esi
 .hexdumploop2:
-	cmp	edi, dump_height*10h
+	cmp	edx, dump_height*10h
+	jae	.hexdumpdone2
+	push	edx
-	jae	.hexdumpdone2
+	mov	edx, aQuests
+	mcall
-	mcall
+	pop	edx
 	add	ebx, 3*6*10000h
-	inc	edi
+	inc	edx
-	test	edi, 15
+	test	dl, 15
 	jz	.16x
-	test	edi, 7
+	test	dl, 7
 	jnz	.hexdumploop2
 	add	ebx, 2*6*10000h - 10 + 6*(3*10h+2)*10000h
 .16x:
 	add	ebx, 10 - 6*(3*10h+2)*10000h
 	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
-	mov	edi, dump_height*10h
 	pop	edx
+	push	dump_height*10h
 .asciiloop:
 	push	edx
 	cmp	byte [edx], 20h
 	jae	@f
 	mov	edx, aPoint
 @@:
 	mcall
 	pop	edx
 	inc	edx
 	add	ebx, 6*10000h
-	dec	edi
+	dec	dword [esp]
 	jz	.asciidone
-	test	edi, 15
+	test	byte [esp], 15
 	jnz	.asciiloop
 	add	ebx, 10 - 6*10h*10000h
 	jmp	.asciiloop
 .asciidone:
+	pop	ecx
 	ret
 redraw_disasm:
-	push	13
+;	push	13
-	pop	eax
+;	pop	eax
-	mov	edx, 0xFFFFFF
+;	mov	edx, 0xFFFFFF
-	mov	ebx, data_x_pos*10000h + data_x_size
+;	mov	ebx, data_x_pos*10000h + data_x_size
-	mov	ecx, (disasm_y_pos-1)*10000h + (disasm_y_size+1)
+;	mov	ecx, (disasm_y_pos-1)*10000h + (disasm_y_size+1)
-	mcall
+;	mcall
 draw_disasm:
 	mov	eax, [disasm_start_pos]
 	mov	[disasm_cur_pos], eax
 	and	[disasm_cur_str], 0
 @@:	lodsb
 	test	al, al
 	jnz	@b
 	mov	byte [esi-1], ':'
 	sub	esi, edx
-	xor	ecx, ecx
+	mov	ecx, 40000000h
+	mov	edi, 0xFFFFFF
 	push	4
 	pop	eax
 	mcall
 	mov	byte [esi+edx-1], 0
+	lea	esi, [esi*3]
+	movzx	ecx, bx
+	shr	ebx, 16
+	lea	ebx, [ebx+esi*2]
+	shl	ecx, 16
+	mov	cl, 10
+	imul	ebx, 10001h
+	sub	bx, data_x_pos+data_x_size
+	neg	bx
+	mov	al, 13
+	mov	edx, edi
+	mcall
 	inc	[disasm_cur_str]
 	cmp	[disasm_cur_str], disasm_height
 	jae	.loopend
 .nosymb:
 	push	[disasm_cur_pos]
 	call	disasm_instr
 	pop	ebp
 	jc	.loopend
 	xor	esi, esi	; default color: black
+	mov	edx, 0xFFFFFF	; default background: white
 	mov	ebx, data_x_pos*10000h + data_x_size
 	mov	ecx, [disasm_cur_str]
 	imul	ecx, 10*10000h
 	add	ecx, (disasm_y_pos-1)*10000h + 10
 	mov	eax, ebp
 	pushad
 	call	find_enabled_breakpoint
 	popad
 	jnz	.nored
-	push	13
-	pop	eax
-	mov	edx, 0xFF0000
+	mov	edx, 0xFF0000	; use background: red
-	mcall
 .nored:
 	mov	eax, [_eip]
 	cmp	eax, ebp
 	jnz	.noblue
-	push	13
-	pop	eax
-	mov	edx, 0x0000FF
+	mov	edx, 0x0000FF	; use background: blue
-	mcall
 	mov	esi, 0xFFFFFF	; on blue bgr, use white color
 .noblue:
-	push	47
+	push	13
 	pop	eax
+	mcall
+	mov	al, 47
 	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
+	push	2
 	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:
+	mov	al, 47
+	mov	ebx, 20101h
 	mcall
 	add	edx, 6*3*10000h
 	inc	ecx
 	inc	ebp
 	cmp	ebp, [disasm_cur_pos]
 	mcall
 	inc	[disasm_cur_str]
 	cmp	[disasm_cur_str], disasm_height
 	jb	.loop
 .loopend:
+	mov	ecx, disasm_height
+	sub	ecx, [disasm_cur_str]
+	jz	@f
+	imul	ecx, 10
+	mov	eax, disasm_y_pos + disasm_y_size
+	sub	eax, ecx
+	shl	eax, 16
+	add	ecx, eax
+	push	13
+	pop	eax
+	mov	ebx, data_x_pos*65536 + data_x_size
+	mov	edx, 0xFFFFFF
+	mcall
+@@:
 	ret
 update_disasm_eip:
 ; test if instruction at eip is showed
 	mcall
 ; define window
 	xor	eax, eax
 	mov	ebx, wnd_x_size
 	mov	ecx, wnd_y_size
-	mov	edx, 14FFFFFFh
+	mov	edx, 54FFFFFFh
 	mov	edi, caption_str
 	mcall
+; clear unused areas
+	mov	al, 48
+	push	4
+	pop	ebx
+	mcall
+	cmp	eax, title_y_pos
+	jb	@f
+	push	registers_y_pos
+	pop	eax
+@@:
+	push	registers_y_pos
+	pop	ecx
+	push	eax
+	sub	ecx, eax
+	shl	eax, 16
+	add	ecx, eax
+	mov	ebx, 5*10000h + (wnd_x_size-9)
+	push	13
+	pop	eax
+	mcall
+	mov	ecx, (registers_y_pos+registers_y_size)*10000h + (dump_y_pos-registers_y_pos-registers_y_size)
+	mcall
+	mov	ecx, (dump_y_pos+dump_y_size)*10000h + (disasm_y_pos-dump_y_pos-dump_y_size)
+	mcall
+	mov	ecx, (disasm_y_pos+disasm_y_size)*10000h + (messages_y_pos-disasm_y_pos-disasm_y_size)
+	mcall
+	mov	ecx, (messages_y_pos+messages_y_size)*10000h + (wnd_y_size-messages_y_pos-messages_y_size-4)
+	mcall
+	mov	ebx, 5*10000h + (data_x_pos-5)
+	pop	ecx
+	imul	ecx, 10001h
+	sub	cx, wnd_y_size-4
+	neg	cx
+	mcall
+	mov	ebx, (data_x_pos+data_x_size)*10000h + (wnd_x_size-data_x_pos-data_x_size-4)
+	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
 	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	redraw_title
 	call	draw_registers
 	call	draw_dump
-	call	draw_disasm
+	call	redraw_disasm
 ; end redraw
 	push	12
 	pop	eax
 	push	2
 	pop	ebx
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DATA ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 caption_str db 'Kolibri Debugger',0
 caption_len = $ - caption_str
-begin_str db	'Kolibri Debugger, version 0.31',10
+begin_str db	'Kolibri Debugger, version 0.32',10
 	db	'Hint: type "help" for help, "quit" for quit'
 newline	db	10,0
 prompt	db	'> ',0
 aRunning	db	'Running'
 aPaused		db	'Paused'
 aPoint		db	0x1C
 aMinus		db	'-'
 aColon		db	':'
+aSpace		db	' '
 aQuests		db	'??'
 aDots		db	'...'
 aParseError	db	'Parse error',10,0
 aDivByZero	db	'Division by 0',10,0
 calc_string	db	'%8X',10,0

Subversion Repositories Kolibri OS

(root)/programs/develop/mtdbg/mtdbg.asm – Rev 809 → 998