Subversion Repositories Kolibri OS

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

; DEBUG BOARD for APPLICATIONS and KERNEL DEVELOPMENT

; See f63

; Compile with FASM for KolibriOS

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

include 'lang.inc'

WRITE_LOG    equ 1

P_LEN        equ 11

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

        use32

        org     0x0

        db      'MENUET01'

        dd      0x01

        dd      START

        dd      I_END

        dd      mem

        dd      mem

        dd     filename, 0x0

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

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

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

purge       newline

MAXSTRINGS  = 45

TMP = 80*(MAXSTRINGS+1)

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

    START:

        call    CheckUnique

        mov     edi, filename

        cmp     [edi], byte 0

        jnz     param

        mov     esi, default_filename

    @@:

        lodsb

        stosb

        test    al,al

        jnz     @b

    param:

        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.sys_colors_new

        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, 0xffffff

        or      edx, 0x14000000

        xor     esi, esi

        mcall   ,[xstart],,,,title

        mov     ebx, 296 shl 16+31

        mcall   8,,<4,13>,3,[sc.btn_face]

        mov     edx, [vmode]

        lea     edx, [edx*4+duk]

		mov     ecx, 0x80

		shr     ecx, 24

		add     ecx, [sc.btn_text]

        mcall   4,<300,7>,,,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

        xor     ecx, ecx

        or      ecx, 0x40000000

        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+00], 2   ; create file

        mov     dword [InfoStructure+04], 0   ; reserved

        mov     dword [InfoStructure+08], 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+00], 3   ; write to file

        mov     eax,  [filepos]

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

        mov     dword [InfoStructure+08], 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

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

;* 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

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

CheckUnique:

    .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:

        ; restore and active window of previous thread

        mcall    18, 3

        mov      eax, -1

        mcall

    .leave_check:

        ret

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

;***********************************  DATA ************************************

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

align 4

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      0x0

        dd      0x0                       ; pointer to the filename

filepos dd      0x0

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

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

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_msg        db  'K : '

duk             db  'KernUser'

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

text1           rb  80*(MAXSTRINGS+1)

tmp1            db  ?

                rd  2

text2           rb  80*(MAXSTRINGS+1)

tmp2            db  ?

xstart          dd  ?

sc              sys_colors_new

i_end:

buffer_length   rb  1

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

tmp             rb  256

filename        rb  256

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

align 4

procinfo:

        rb 1024

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

align 4

stackbuf        rb  2000h

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

mem: