Subversion Repositories Kolibri OS

;

;   DEBUG BOARD for APPLICATIONS and KERNEL DEVELOPMENT

;

;   See f63

;

;   Compile with FASM for KolibriOS

;

WRITE_LOG    equ 1

P_LEN		 equ 11

include 'lang.inc'

   use32

   org	  0x0

   db	  'MENUET01'		  ; 8 byte id

   dd	  0x01			  ; header version

   dd	  START 		  ; start of code

   dd	  I_END 		  ; size of image

   dd	  mem			; memory for app

   dd	  mem			; esp

   dd	  filename , 0x0	  ; I_Param , I_Icon

include '../../../macros.inc'

include '../../../debug.inc'

purge newline

MAXSTRINGS = 16

TMP = 80*(MAXSTRINGS+1)

;------------------------------------------------------------------------------

START:				; start of execution

	call CheckUnique

	mov	edi,filename

	cmp	[edi],byte 0

	jnz	param

	mov	esi,default_filename

@@:

	lodsb

	stosb

	test	al,al

	jnz	@b

param:

; allow user to see messages written before start

;	mov	ecx,4096

;flush:

;	mcall	63,2

;	loop	flush

	mov	ecx,TMP

	xor	eax,eax

	mov	edi,[targ]

	rep	stosb

	mov	[tmp1],'x'

	mov	[tmp2],'x'

	mcall	14

	and	eax,0xffff0000

	sub	eax,399 shl 16

	add	eax,399

	mov	[xstart],eax

	mcall	48,3,sc,sizeof.system_colors

	mov	esi,filename

	call	CreateFile

;------------------------------------------------------------------------------

red:

	call draw_window

;------------------------------------------------------------------------------

still:

	cmp	[buffer_length],0

	je	@f

	call	write_buffer

@@:

	mcall	23,50		; wait here for event

	cmp	eax,1			; redraw request ?

	je	red

	cmp	eax,2			; key in buffer ?

	je	key

	cmp	eax,3			; button in buffer ?

	je	button

	mcall	63,2

	cmp	ebx,1

	jne	still

new_data:

	cmp	[buffer_length],255

	jne	@f

	call	write_buffer

@@:

	movzx	ebx,byte[buffer_length]

	mov	[ebx+tmp],al

	inc	[buffer_length]

	mov	ebp,[targ]

.no4:

	cmp	al,13

	jne	no13

	and	[ebp-8],dword 0

	jmp	new_check

;------------------------------------------

write_buffer:

	pusha

	mov	edx,tmp

	movzx	ecx,byte[buffer_length]	;1

	mov	esi,filename

.write_to_logfile:

	call	WriteToFile

	cmp	eax,5

	jne	@f

	mov	esi,filename

	mov	[filepos],0

	call	CreateFile

	jnc	.write_to_logfile

@@:

	movzx	eax,byte[buffer_length]

	add	[filepos],eax

	xor	eax,eax

	mov	[buffer_length],al

	popa

	ret

;------------------------------------------

no13:

	cmp	al,10

	jne	no10

	and	[ebp-8],dword 0

	inc	dword [ebp-4]

	cmp	[ebp-4],dword MAXSTRINGS

	jbe	.noypos

	mov	[ebp-4],dword MAXSTRINGS

	lea	esi,[ebp+80]

	mov	edi,ebp

	mov	ecx,80*(MAXSTRINGS)

	cld

	rep	movsb

	mov	esi,[ebp-4]

	imul	esi,80

	add	esi,[ebp-8]

	add	esi,ebp

	mov	ecx,80

	xor	al,al

	rep	stosb

.noypos:

	mov	[targ],text2

	and	[krnl_cnt],0

	jmp	new_check

;------------------------------------------

no10:

	cmp	ebp,text1

	je	add2

	mov	ecx,[krnl_cnt]

	cmp	al,[krnl_msg+ecx]

	jne	.noknl

	inc	[krnl_cnt]

	cmp	[krnl_cnt],4

	jne	new_check

	mov	[targ],text1

.noknl:

	mov	ebp,[targ]

	jecxz	.add

	push	eax

	mov	esi,krnl_msg

.l1:

	lodsb

	call	add_char

	loop	.l1

	pop	eax

.add:

	and	[krnl_cnt],0

add2:

	call	add_char

new_check:

	mcall	63,2

	cmp	ebx,1

	je	new_data

	call	draw_text

	jmp	still

;------------------------------------------------------------------------------

key:

	mcall	2

	cmp	ah,' '

	je	button.noclose

	jmp	still

;------------------------------------------------------------------------------

button:

	mcall	17	; get id

	cmp	ah,1		; button id=1 ?

	jne	.noclose

	or	eax,-1 		; close this program

	mcall

.noclose:

	xor	[vmode],1

	jmp	red

;------------------------------------------------------------------------------

add_char:

	push	esi

	mov	esi,[ebp-4]

	imul	esi,80

	add	esi,[ebp-8]

	mov	[ebp+esi],al

	inc	dword[ebp-8]

	cmp	dword[ebp-8],80

	jb	.ok

	mov	dword[ebp-8],79

.ok:

	pop	esi

	ret

;------------------------------------------------------------------------------

;   *********************************************

;   *******  WINDOW DEFINITIONS AND DRAW ********

;   *********************************************

draw_window:

	mcall	12,1	; 1, start of draw

	mcall 48, 5     ; GetClientTop

    shr ebx, 16

	mov	ecx,ebx

	shl ecx,16

	add ecx,MAXSTRINGS*10+45	   ; [y start] *65536 + [y size]

	xor	eax,eax		     ; function 0 : define and draw window

;	mov	edx,[sc.work]		   ; color of work area RRGGBB,8->color gl

	mov	edx,0xffffff

	or	edx,0x14000000

	xor	esi,esi

	mcall	,[xstart],,,,title

	mov	ebx,296 shl 16+5*6

	mcall	8,,<5,12>,3,[sc.work]

	mov	edx,[vmode]

	lea	edx,[edx*4+duk]

	mcall	4,<300,8>,,,4

	call	draw_text

	mcall	12,2	; 2, end of draw

	ret

;------------------------------------------------------------------------------

draw_text:

	mov	ebx,15*65536+30	   ; draw info text with function 4

;	mov	ecx,[sc.work_text]

	xor	ecx,ecx

	or	ecx,0x40000000

;	mov	edi,[sc.work]

	mov	edi,0xffffff

	mov	edx,text1

	cmp	[vmode],0

	je	.kern

	mov	edx,text2

.kern:

	push	ebx ecx edx

	mcall	9,procinfo,-1

	mov	eax,[ebx+42]

	xor	edx,edx

	mov	ebx,6

	div	ebx

	pop	edx ecx ebx

	mov	esi,80

	cmp	eax,esi

	ja	@f

	mov	esi,eax

@@:

	cmp	esi,5

	ja	@f

	mov	esi,5

@@:

	sub	esi,4

	mov	eax,4

newline:

	mcall

	add	ebx,10

	add	edx,80

	cmp	[edx],byte 'x'

	jne	newline

	ret

;------------------------------------------------------------------------------

;********************************************

;*  input:  esi = pointer to the file name  *

;********************************************

CreateFile:

	pusha

	mov	dword [InfoStructure],2		; create file

	mov	dword [InfoStructure+4],0	; reserved

	mov	dword [InfoStructure+8],0	; reserved

	mov	dword [InfoStructure+12],0	; 0 bytes to write (just create)

	mov	dword [InfoStructure+16],0	; NULL data pointer (no data)

	mov	dword [InfoStructure+20],0	; reserved

	mov	dword [InfoStructure+21],esi	; pointer to the file name

	mcall	70, InfoStructure

	test	eax,eax

	jz	.out

	stc

.out:

	popa

	ret

;------------------------------------------------

;********************************************

;*  input:  esi = pointer to the file name  *

;*          edx = pointer to data buffer    *

;*          ecx = data length               *

;********************************************

WriteToFile:

	push	ebx

	mov	dword [InfoStructure],3		; write to file

	mov	eax,  [filepos]

	mov	dword [InfoStructure+4],eax	; lower position addr

	mov	dword [InfoStructure+8],0	; upper position addr (0 for FAT)

	mov	dword [InfoStructure+12],ecx	; number of bytes to write

	mov	dword [InfoStructure+16],edx	; pointer to data buffer

	mov	dword [InfoStructure+20],0	; reserved

	mov	dword [InfoStructure+21],esi	; pointer to the file name

	mcall	70, InfoStructure

	clc

	test	eax,eax

	jz	.out

	stc

.out:

	pop      ebx

	ret

;-------------------------------------------------

;********************************************

;*  input:  esi = pointer to string         *

;*          edi = pointer to string         *

;*          ecx = data length               *

;********************************************

StrCmp:

	repe cmpsb

	ja .a_greater_b

	jb .a_less_b

.equal:

	mov eax, 0

	jmp .end

.a_less_b:

	mov eax, 1

	jmp .end

.a_greater_b:

	mov eax, -1

.end:

	ret

;-------------------------------------------------

;********************************************

;*  input:  edi = pointer to string         *

;*          ecx = data length			    *

;********************************************

; 'a' - 'A' = 32 -> 'A'|32 = 'a'

ToLower:

	xor eax, eax

.cycle:

	or byte[edi+eax], 32

	inc eax

	loop .cycle

.end:

	ret

;-------------------------------------------------

CheckUnique:

;get info on current thread, save pid/tid

;look for another process with same name and different pid/tid

;if found, close self

;else continue normally

.get_thread_info:

	mov ebx, procinfo

	mov ecx, -1

	mcall 9

.get_pid:

; check_buffer

	mov [process_count], eax

	mov eax, [ebx+process_information.PID]

	mov [pid_tid], eax

	mov ecx, 2

.check_threads:

	cmp ecx, [process_count]

	ja .leave_check

	mov eax, 9

	mcall

.check_slot_free:

	cmp dword [ebx+process_information.slot_state], 9

	je .next_thread

.check_pid:

	mov eax, [pid_tid]

	cmp [ebx+process_information.PID], eax

	je .next_thread

.get_proc_name:

	lea edi, [ebx+process_information.process_name]

	push ecx

	mov ecx, my_name_size-1

.lower_case:

	call ToLower

	lea esi, [my_name]

	mov ecx, my_name_size

	call StrCmp

	pop ecx

	cmp eax, 0

	je .close_program

.next_thread:

	inc ecx

	jmp .check_threads

.close_program:

	mcall 18,3 ; restore and active window of previous thread

	mov eax, -1

	mcall

.leave_check:

	ret

;--------------------------------------------------

InfoStructure:

	dd 0x0	; subfunction number

	dd 0x0	; position in the file in bytes

	dd 0x0	; upper part of the position address

	dd 0x0	; number of bytes to read

	dd 0x0	; pointer to the buffer to write data

	db 0

	dd 0	; pointer to the filename

filepos	dd 0

default_filename db '/sys/boardlog.txt',0

;------------------------------------------------------------------------------

krnl_msg db 'K : '

duk db 'KernUser'

; DATA AREA

; 11,11 > 0,-1

; 5,11  > 0,-1

if lang eq ru

 title	db '„®áª  ®â« ¤ª¨ ¨ á®®¡é¥­¨©',0

else if lang eq it

 title	db 'Notifiche e informazioni generiche per il debug',0

else if lang eq ge

 title	db 'Allgemeines debug- & nachrichtenboard',0

else

 title	db 'General debug & message board',0

end if

krnl_cnt	dd 0

vmode		dd 1

targ		dd text2

my_name 	   db 'board',0

my_name_size   = $-my_name

process_count  dd 0x0

pid_tid		   dd 0x0

;------------------------------------------------------------------------------

I_END:

;------------------------------------------------------------------------------

offs	dd ?

flag	rb 1

	rd 2

;x1pos	dd ?

;y1pos	dd ?

text1	rb 80*(MAXSTRINGS+1)

tmp1	db ?

	rd 2

;x2pos	dd ?

;y2pos	dd ?

text2	rb 80*(MAXSTRINGS+1)

tmp2	db ?

xstart	dd ?

sc system_colors

i_end:

buffer_length	rb 1

;------------------------------------------------------------------------------

tmp	rb	256

;------------------------------------------------------------------------------

filename	rb 256

;------------------------------------------------------------------------------

align 4

procinfo:

	rb 1024

;------------------------------------------------------------------------------

align 4

stackbuf	rb 2000h

;------------------------------------------------------------------------------

mem: