kolibrios/programs/system/board/trunk/board.asm
Kenshin 31c6bb85f2 new board 1.0.1
for board 1.0:
* 8x16 fonts
* log updating
* daemon mode
* advanced parameter string parsing and new params
* adaptive window
* fullscreen mode
* two separate buttons for display mode
* no "K : " prefix
* exception-caused forced termination highlight
for board 1.0.1:
* minimal-sized window fix


git-svn-id: svn://kolibrios.org@8560 a494cfbc-eb01-0410-851d-a64ba20cac60
2021-02-02 00:56:06 +00:00

1282 lines
23 KiB
NASM
Raw Blame History

;-------------------------------------------------------------------------------
; DEBUG BOARD v1.0.1 for APPLICATIONS and KERNEL DEVELOPMENT
; See f63
; Compile with FASM for KolibriOS
;-------------------------------------------------------------------------------
use32
org 0
db "MENUET01"
dd 1
dd START
dd I_END
dd MEM_END
dd STACK_TOP
dd PARAMS_STRING
dd 0
;-------------------------------------------------------------------------------
include "lang.inc"
include "../../../macros.inc"
purge newline
MAX_STRINGS = 45
STRING_LENGTH = 80 ;must be a multiple of 4
LINE_HEIGHT = 16
WINDOW_W = 60*8+5*2
WINDOW_W_MIN = 330
WORK_AREA_H_MIN = 60
WINDOW_W_PRCNT = 40
WINDOW_H_PRCNT = 75
TEXTFIELD_H = MAX_STRINGS*LINE_HEIGHT
FONT_TYPE = 0x50000000
;-------------------------------------------------------------------------------
START:
mcall 68, 11 ;init heap
call parse_params_string
test eax, eax
jnz .no_params
call check_and_fix_params
.no_params:
call STATE_handler
mov ecx, MAX_STRINGS*(STRING_LENGTH/4)
mov edi, text1
mov eax, " "
push ecx
rep stosd
pop ecx
mov edi, text2
rep stosd
cmp [params.daemon_mode], 1
je .create_log_file
call calc_window_size
mov ax, word [xstart+2]
mov [prev_win_x], ax
mov ax, word [ystart+2]
mov [prev_win_y], ax
mov ax, word [xstart]
mov [prev_win_w], ax
mov ax, word [ystart]
mov [prev_win_h], ax
cmp [fullscreen_mode], 0
je @f
call calc_fullscreen_window_size
@@:
mcall 48, 3, sc, sizeof.system_colors
xor eax, eax
mov [vmode], eax
mov dword [text1-4], eax
mov dword [text1-8], eax
mov dword [text2-4], eax
mov dword [text2-8], eax
mov [krnl_cnt], eax
mov [hl_line_count], eax
.create_log_file:
xor eax, eax
mov byte [buffer_length], al
mov [filepos], eax
cmp [params.logging_mode], 0
je @f
mov esi, [log_filename]
call create_file
jnc @f
mov esi, default_log_filename
mov [log_filename], default_log_filename
call create_file
@@:
cmp [params.daemon_mode], 0
je .red
mcall 40, 0 ;set event mask (do not receive any event codes)
.red:
cmp [params.daemon_mode], 1
je .still
mcall 9, procinfo, -1 ;get info about board process
mov eax, dword [procinfo+42] ;width of board window
mov edx, WINDOW_W_MIN
cmp eax, edx
jae @f
mcall 67, -1, -1, WINDOW_W_MIN, -1 ;resize window
mov dword [procinfo+42], edx
@@:
mcall 48, 4 ; get window header height
mov [window_header_height], eax
mov esi, WORK_AREA_H_MIN
add esi, eax
mov eax, dword [procinfo+46] ;height of board window
cmp eax, esi
jae @f
mcall 67, -1, -1, -1 ;resize window
mov dword [procinfo+46], esi
@@:
call draw_window
.still:
cmp byte [buffer_length], 0
je @f
cmp [params.logging_mode], 0
je @f
call write_buffer
@@:
cmp [params.daemon_mode], 0
je @f
mcall 5, 50 ;pause for 0.5 sec
jmp .read_byte
@@:
mcall 23, 50 ; wait here for event
dec eax ; redraw request ?
jz .red
dec eax ; key in buffer ?
jz .key
dec eax ; button in buffer ?
jz .button
.read_byte:
mcall 63, 2 ;read a byte from the debug buffer
cmp ebx, 1
je .new_data
jne .still
.key:
mcall 2
cmp ah, " "
jne @f
not [vmode]
and [vmode], 1
jmp .red
@@:
cmp ah, 51 ; F2
je .open_boardlog
cmp ah, 0x1B ;[Esc]?
je terminate_board
cmp ah, 0x44 ;[F11]?
jne .still
cmp [fullscreen_mode], 0
jne @f
mov [fullscreen_mode], 1
mcall 9, procinfo, -1 ;get info about process
mov ax, word [ebx+34]
mov [prev_win_x], ax
mov ax, word [ebx+38]
mov [prev_win_y], ax
mov ax, word [ebx+42]
mov [prev_win_w], ax
mov ax, word [ebx+46]
mov [prev_win_h], ax
call calc_fullscreen_window_size
movzx ebx, word [xstart+2]
movzx ecx, word [ystart+2]
movzx edx, word [xstart]
movzx esi, word [ystart]
mcall 67 ;change window size & position
jmp .still
@@:
mov [fullscreen_mode], 0
mcall 71, 2, title, 1 ;set window caption
mcall 18, 25, 2, -1, 0 ;set window position (usual)
mov [already_on_top], 0
movzx ebx, word [prev_win_x]
movzx ecx, word [prev_win_y]
movzx edx, word [prev_win_w]
movzx esi, word [prev_win_h]
mcall 67 ;change window size & position
@@:
jmp .still
.open_boardlog:
mov eax, [log_filename]
mov [open_log_in_tinypad+8], eax
mcall 70, open_log_in_tinypad
jmp .red
.button:
mcall 17 ; get id
cmp ah, 1 ; button id=1 ?
jne .button.noclose
.exit:
jmp terminate_board
.button.noclose:
cmp ah, 3
jne @f
mov [vmode], 0
jmp .red
@@:
cmp ah, 4
jne @f
mov [vmode], 1
@@:
jmp .red
.new_data:
cmp byte [buffer_length], 255
jne @f
cmp [params.logging_mode], 0
je @f
call write_buffer
@@:
movzx ebx, byte [buffer_length]
mov [ebx+tmp], al
inc byte [buffer_length]
cmp [params.daemon_mode], 1
je .read_byte
mov ebp, [targ]
cmp al, 10
jz .new_line
cmp al, 13
jz .new_check
jmp .char
.new_line:
and [ebp-8], dword 0
inc dword [ebp-4]
cmp [ebp-4], dword MAX_STRINGS
jb .noypos
mov [ebp-4], dword MAX_STRINGS-1
lea esi, [ebp+STRING_LENGTH]
mov edi, ebp
mov ecx, (MAX_STRINGS-1)*(STRING_LENGTH/4)
cld
rep movsd
mov esi, [ebp-4]
imul esi, STRING_LENGTH
add esi, [ebp-8]
add esi, ebp
mov ecx, STRING_LENGTH/4
mov eax, " "
rep stosd
.noypos:
mov [targ], text1
and [krnl_cnt], 0
jmp .new_check
.char:
cmp ebp, text2
je .add2
mov ecx, [krnl_cnt]
cmp al, [krnl_msg+ecx]
jne .nokrnl
inc [krnl_cnt]
cmp [krnl_cnt], 4
jne .new_check
mov [targ], text2
.nokrnl:
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 ;read a byte from the debug buffer
cmp ebx, 1
je .new_data
cmp [params.daemon_mode], 1
je .still
call draw_text
jmp .still
;-------------------------------------------------------------------------------
;------------------------------------------------------------------------------
add_char:
push esi
mov esi, [ebp-4]
imul esi, STRING_LENGTH
add esi, [ebp-8]
mov [ebp+esi], al
cmp dword [ebp-8], STRING_LENGTH-1
je .ok
inc dword [ebp-8]
.ok:
pop esi
ret
;-------------------------------------------------------------------------------
calc_fullscreen_window_size:
;-------------------------------------------------------------------------------
push eax
mcall 14 ;get screen size
; inc ax
mov word [ystart], ax
shr eax, 16
; inc ax
mov word [xstart], ax
xor eax, eax
mov word [xstart+2], ax
mov word [ystart+2], ax
pop eax
ret
;-------------------------------------------------------------------------------
calc_window_size:
;-------------------------------------------------------------------------------
pusha
mcall 48, 5 ;get screen working area size
mov [ystart], ebx
ror eax, 16
ror ebx, 16
mov [xstart], eax
movzx ecx, ax
movzx edx, bx
shr eax, 16
shr ebx, 16
sub eax, ecx
sub ebx, edx
inc eax
inc ebx
mov ecx, 100
mov edx, WINDOW_W_PRCNT
mul edx
xor edx, edx
div ecx
cmp ax, WINDOW_W_MIN
jae @f
mov ax, WINDOW_W_MIN
@@:
mov word [xstart], ax
sub word [xstart+2], ax
mov eax, ebx
mov edx, WINDOW_H_PRCNT
mul edx
xor edx, edx
div ecx
mov dx, ax
mov cx, WORK_AREA_H_MIN
mcall 48, 4 ; get window header height
add ax, cx
cmp dx, ax
jae @f
mov dx, ax
@@:
mov word [ystart], dx
popa
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
write_buffer:
pusha
mov edx, tmp
movzx ecx, byte [buffer_length]
mov esi, [log_filename]
mov ebx, ecx
.write_to_logfile:
call write_to_file
cmp eax, 5
jne @f
mov esi, [log_filename]
mov [filepos], 0
call create_file
jnc .write_to_logfile
; mov [params.logging_mode], 0
jmp .ret
@@:
add [filepos], ebx
xor eax, eax
mov byte [buffer_length], al
.ret:
popa
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
parse_params_string:
;result: eax = 0 (OK), eax = -1 (no params string), -2 (wrong params string)
xor eax, eax
pusha
mov esi, PARAMS_STRING
mov ecx, 256
cmp byte [esi], 0
je .no_params_string
@@:
call skip_spaces
call check_param
inc eax
jz .no_params_string
inc eax
jz .wrong_params_string
cmp byte [esi], 0
je .ok
loop @b
.ok:
popa
ret
.no_params_string:
popa
dec eax
ret
.wrong_params_string:
popa
dec eax
dec eax
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
skip_spaces:
push eax
cld
.0:
lodsb
cmp al, " "
je @f
cmp al, 9 ;skip tabs too
jne .ret
@@:
loop .0
.ret:
dec esi
pop eax
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
check_param:
push ebx
test ecx, ecx
jz .empty
cld
lodsb
test al, al
jnz @f
dec esi
jmp .empty
@@:
cmp al, "-"
jne .not_option
dec ecx
lodsb
test al, al
jz .wrong_option
cmp al, " "
je .wrong_option
cmp al, 9
je .wrong_option
dec esi
call check_option
inc eax
jnz .ok
.wrong_option:
lea esi, [esi-2]
jmp .wrong
.not_option:
cmp [params.log_filename_found], 1
je .wrong
mov [params.log_filename], esi
cmp al, '"'
je .quoted
dec [params.log_filename]
xor ebx, ebx
inc ebx
dec ecx
@@:
lodsb
test al, al
jz @f
cmp al, " "
je @f
cmp al, 9
je @f
inc ebx
loop @b
dec ebx
@@:
dec esi
mov [params.log_filename_found], 1
mov [params.log_filename.size], ebx
jmp .ok
.quoted:
xor ebx, ebx
dec ecx
.quoted.0:
lodsb
test al, al
jnz @f
lea ecx, [ecx+ebx+1]
lea esi, [esi-2]
sub esi, ebx
jmp .wrong
@@:
cmp al, '"'
je @f
inc ebx
loop .quoted.0
lea ecx, [ecx+ebx+1]
lea esi, [esi-2]
sub esi, ebx
jmp .wrong
@@:
mov al, byte [esi]
test al, al
jz @f
cmp al, " "
je @f
cmp al, 9
jne .wrong ;there must be spaces or null after closing (final) quote mark
@@:
mov [params.log_filename_found], 1
mov [params.log_filename.size], ebx
.ok:
xor eax, eax
pop ebx
ret
.empty:
xor eax, eax
dec eax
pop ebx
ret
.wrong:
xor eax, eax
dec eax
dec eax
pop ebx
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
check_option:
push ebx edi
lea ebx, [esi-1]
cmp byte [esi], "-"
je .long_option
cld
@@:
lodsb
test al, al
jz .ok
cmp al, " "
je .ok
cmp al, 9
je .ok
call .subcheck
test eax, eax
jz .wrong
loop @b
.subcheck:
cmp al, "d"
jne @f
mov [params.daemon_mode], 1
ret
@@:
cmp al, "s"
jne @f
mov [params.stop_daemon_flag], 1
ret
@@:
cmp al, "n"
jne @f
mov [params.logging_mode], 0
ret
@@:
cmp al, "r"
jne @f
mov [params.rewrite_log_flag], 1
ret
@@:
cmp al, "f"
jne @f
mov [fullscreen_mode], 1
ret
@@:
xor eax, eax
ret
.long_option:
lodsb
dec ecx
jz .wrong
mov edi, esi
push esi
cmp ecx, params.options.d.size-1
jl @f
mov esi, params.options.d
call cmp_str
jnz @f
pop esi
lea ecx, [ecx-params.options.d.size-1]
lea esi, [esi+params.options.d.size-1]
mov [params.daemon_mode], 1
jmp .long_option.0
@@:
cmp ecx, params.options.s.size-1
jl @f
mov esi, params.options.s
call cmp_str
jnz @f
pop esi
lea ecx, [ecx-params.options.s.size-1]
lea esi, [esi+params.options.s.size-1]
mov [params.stop_daemon_flag], 1
jmp .long_option.0
@@:
cmp ecx, params.options.n.size-1
jl @f
mov esi, params.options.n
call cmp_str
jnz @f
pop esi
lea ecx, [ecx-params.options.n.size-1]
lea esi, [esi+params.options.n.size-1]
mov [params.logging_mode], 0
jmp .long_option.0
@@:
cmp ecx, params.options.r.size-1
jl @f
mov esi, params.options.r
call cmp_str
jnz @f
pop esi
lea ecx, [ecx-params.options.r.size-1]
lea esi, [esi+params.options.r.size-1]
mov [params.rewrite_log_flag], 1
jmp .long_option.0
@@:
cmp ecx, params.options.f.size-1
jl @f
mov esi, params.options.f
call cmp_str
jnz @f
pop esi
lea ecx, [ecx-params.options.f.size-1]
lea esi, [esi+params.options.f.size-1]
mov [fullscreen_mode], 1
jmp .long_option.0
@@:
pop esi
jmp .wrong
.long_option.0:
mov al, byte [esi]
test al, al
jz @f
cmp al, " "
je @f
cmp al, 9
jne .wrong ;there must be spaces or null after long option
@@:
inc esi
.ok:
dec esi
xor eax, eax
pop edi ebx
ret
.wrong:
xor eax, eax
dec eax
pop edi esi
ret
;-------------------------------------------------------------------------------
check_and_fix_params:
;-------------------------------------------------------------------------------
push eax
cmp [params.daemon_mode], 1
jne @f
mov [params.stop_daemon_flag], 0
mov [params.logging_mode], 1
@@:
mov eax, [params.log_filename]
test eax, eax
jz @f
mov [log_filename], eax
add ebx, [params.log_filename.size]
mov byte [eax+ebx], 0
@@:
pop eax
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
;************************ WINDOW DEFINITIONS AND DRAW ************************
;-------------------------------------------------------------------------------
draw_window:
mcall 12, 1 ; start of draw
xor edx, edx
mov dl, 0x13
cmp [fullscreen_mode], 0
je @f
mov dl, 1 ;set fullscreen mode window
@@:
shl edx, 24
or edx, 0xFFFFFF
xor esi, esi
mcall 0,[xstart],[ystart],,,title
cmp [fullscreen_mode], 0
je .l0
cmp [already_on_top], 1
je @f
mcall 18, 25, 2, -1, 1 ;set window position (always on top)
mov [already_on_top], 1
@@:
mcall 13, [xstart], [ystart], 0xFFFFFF ;draw a rectangle (fill the window)
.l0:
mov ebx, 15 shl 16+(8*4+5)
xor ecx, ecx
cmp [fullscreen_mode], 1
je @f
mov ecx, [window_header_height]
@@:
add ecx, 5
shl ecx, 16
mov cx, LINE_HEIGHT+5
mov eax, [sc.work_button]
cmp [vmode], 0
jne @f
call lighten_color ;make button lighter if it's active
@@:
mov esi, eax
mcall 8,,,3 ;'User' button
push ebx ecx
shr ecx, 16
mov bx, cx
rol ebx, 16
add bx, 3
ror ebx, 16
add bx, 4
mov ecx, 0x90
shl ecx, 24
add ecx, [sc.work_button_text]
mcall 4,,, u_button_text
cmp [vmode], 0
jne @f
add ebx, 1 shl 16
mcall ;make text bolder if the button is active
@@:
pop ecx ebx
add ebx, (8*4+10) shl 16
mov bx, (8*6+5+5)
mov eax, [sc.work_button]
cmp [vmode], 1
jne @f
call lighten_color ;make button lighter if it's active
@@:
mov esi, eax
mcall 8,,,4 ;'Kernel' button
shr ecx, 16
mov bx, cx
rol ebx, 16
add bx, 3
ror ebx, 16
add bx, 4
mov ecx, 0x90
shl ecx, 24
add ecx, [sc.work_button_text]
mcall 4,,, k_button_text
cmp [vmode], 1
jne @f
add ebx, 1 shl 16
mcall ;make text bolder if the button is active
@@:
call draw_text
mcall 12, 2 ; 2, end of draw
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
draw_text:
mov ebx, 15 shl 16 + 0
xor bx, bx
cmp [fullscreen_mode], 1
je @f
mov bx, word [window_header_height]
@@:
add bx, 5+(LINE_HEIGHT+5)+5 ;space between window header and textfield
mov ecx, FONT_TYPE
mov edi, 0xFFFFFF
mov edx, text2
cmp [vmode], 1
je .kern
mov edx, text1
.kern:
push ebx edx
mov eax, dword [procinfo+42] ;x-size of board window
sub eax, 15*2
xor edx, edx
mov ebx, 8
div ebx
@@:
cmp [vmode], 1
jne @f
add eax, 4
@@:
mov esi, STRING_LENGTH
cmp eax, esi
ja @f
mov esi, eax
@@:
mov eax, dword [procinfo+46] ;y-size of board window
cmp [fullscreen_mode], 1
je @f
sub eax, [window_header_height]
@@:
sub eax, 5+(LINE_HEIGHT+5)+5+5
xor edx, edx
mov ebx, 16
div ebx
pop edx ebx
mov ebp, [edx-4] ;[edx-4] = count of strings
cmp eax, ebp
ja @f
mov ebp, eax
@@:
test ebp, ebp
jz .ret
mov eax, 4
.newline:
cmp [edx], dword "K : "
jne .no_k_prefix
push edx esi
add edx, 4
sub esi, 4
push ecx esi edi
mov ecx, STRING_LENGTH-4
mov edi, edx
mov esi, proc_fors_term
call cmp_str
jz .highlight
mov esi, proc_fors_term_sp
call cmp_str
jnz .no_fors_term
.highlight:
lea edi, [edx+STRING_LENGTH*7]
mov esi, unexp_end_of_stack
call cmp_str
jnz @f
mov [hl_line_count], 8
jmp .no_fors_term
@@:
mov [hl_line_count], 10
.no_fors_term:
pop edi esi ecx
push ecx
cmp [hl_line_count], 0
je @f
and ecx, 0xFF000000
or ecx, 0xCC0000 ;red
dec [hl_line_count]
@@:
mcall ; draw info text with function 4
pop ecx
pop esi edx
jmp @f
.no_k_prefix:
mcall
@@:
add ebx, LINE_HEIGHT
add edx, STRING_LENGTH
dec ebp
jnz .newline
.ret:
ret
;-------------------------------------------------------------------------------
cmp_str:
;-------------------------------------------------------------------------------
pusha
@@:
lodsb
test al, al
jz .ret
scasb
loope @b
xor eax, eax
inc eax
.ret:
popa
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
lighten_color:
ror eax, 16
add al, 20
rol eax, 8
add al, 20
rol eax, 8
add al, 20
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
;* input: esi = pointer to the file name *
;-------------------------------------------------------------------------------
create_file:
pusha
cmp [params.rewrite_log_flag], 1
je .create
xor eax, eax
mov dword [f70_structure+0], 5 ; get file info
mov dword [f70_structure+4], eax ; reserved
mov dword [f70_structure+8], eax ; reserved
mov dword [f70_structure+12], eax ; reserved
mov dword [f70_structure+16], file_info ; file info buf pointer
mov dword [f70_structure+20], eax ; reserved
mov dword [f70_structure+21], esi ; pointer to the file name
mcall 70, f70_structure
cmp eax, 5
je .create ;create file if it doesn't exist
test eax, eax
jnz .create
cmp dword [file_info+36], 0
jne .create
mov eax, dword [file_info+32]
mov [filepos], eax
jmp .ret
.create:
xor eax, eax
mov dword [f70_structure+0], 2 ; create file
mov dword [f70_structure+4], eax ; reserved
mov dword [f70_structure+8], eax ; reserved
mov dword [f70_structure+12], eax ; 0 bytes to write (just create)
mov dword [f70_structure+16], eax ; NULL data pointer (no data)
mov dword [f70_structure+20], eax ; reserved
mov dword [f70_structure+21], esi ; pointer to the file name
mcall 70, f70_structure
test eax, eax
jz .ret
stc
.ret:
popa
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
;* input: esi = pointer to the file name *
;* edx = pointer to data buffer *
;* ecx = data length *
;-------------------------------------------------------------------------------
write_to_file:
push ebx
mov dword [f70_structure+0], 3 ; write to file
mov eax, [filepos]
mov dword [f70_structure+4], eax ; lower position addr
mov dword [f70_structure+8], 0 ; upper position addr (0 for FAT)
mov dword [f70_structure+12], ecx ; number of bytes to write
mov dword [f70_structure+16], edx ; pointer to data buffer
mov dword [f70_structure+20], 0 ; reserved
mov dword [f70_structure+21], esi ; pointer to the file name
mcall 70, f70_structure
clc
test eax, eax
jz .out
stc
.out:
pop ebx
ret
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
STATE_handler:
mcall 68, 22, STATE_shm_block.name,, 0x00 ;open "BOARDAPP:STATE" shared memory block (ro access)
test eax, eax
jz .create_STATE_shm_block
mov ecx, 20*10 ;timeout = 20 sec
.0:
mov ebx, [eax]
test ebx, ebx
jz @f
mcall 5, 10 ;wait for 0.1 sec
loop .0
jmp terminate_board
@@:
mov ebx, [eax+4]
test ebx, ebx
jnz terminate_board
cmp dword [eax+12], 0
jne @f
mov ecx, [eax+16]
mcall 18, 21 ;get slot number by PID
test eax, eax
jz terminate_board
mov ecx, eax
mcall 18, 3 ;activate board window
jmp terminate_board
@@:
cmp [params.stop_daemon_flag], 1
jne terminate_board
cmp dword [eax+12], 1
jne terminate_board
mov ecx, [eax+16]
mcall 18, 18 ;terminate daemonized board
jmp terminate_board
.create_STATE_shm_block:
cmp [params.stop_daemon_flag], 1
je terminate_board
mcall 68,,,STATE_shm_block.size, 0x08 ;create "BOARDAPP:STATE" shared memory block (ro access for other processes)
test eax, eax
jz terminate_board
mov edi, eax
mov dword [edi], 1
mov dword [edi+4], STATE_shm_block.version
mov dword [edi+8], STATE_shm_block.size
movzx eax, byte [params.daemon_mode]
mov dword [edi+12], eax
mcall 9, procinfo, -1
mov eax, [ebx+30] ;PID of board
mov dword [edi+16], eax
mov dword [edi], 0
.ret:
ret
;-------------------------------------------------------------------------------
terminate_board:
mcall -1
;-------------------------------------------------------------------------------
; DATA
if lang eq ru
title db "<22><><20><EFBFBD><E2ABA0><EFBFBD> <20><><EFBFBD><E9A5AD> v1.0.1", 0
else if lang eq it
title db "Notifiche e informazioni generiche per il debug v1.0.1", 0
else if lang eq ge
title db "Allgemeines debug- & nachrichtenboard v1.0.1", 0
else
title db "General debug & message board v1.0.1", 0
end if
STATE_shm_block:
;structure of BOARDAPP:STATE shared memory block:
;+0 dd mutex (0 - unlocked, block was already written by board, 1 - locked, board is writing into block)
;+4 dd version of block structure (current is 0)
;+8 dd size of block (min. 4096 byte for version 0)
;+12 dd board's state (0 - usual windowed app, 1 - daemonized)
;+16 dd board's PID
;next bytes are reserved
.name db "BOARDAPP:STATE", 0
.size = 4*1024
.version = 0
default_log_filename db "/tmp0/1/boardlog.txt", 0
krnl_msg db "K : "
k_button_text db "Kernel", 0
u_button_text db "User", 0
proc_fors_term db "Process - forced terminate PID: ", 0
proc_fors_term_sp db "Proceso - terminado forzado PID: ", 0
unexp_end_of_stack db "Unexpected end of the stack", 0
log_filename dd default_log_filename
filepos dd 0
already_on_top db 0
params:
.log_filename dd 0
.log_filename.size dd 0
.log_filename_found db 0
.daemon_mode db 0 ;0 - normal mode, 1 - daemon mode
.stop_daemon_flag db 0
.logging_mode db 1 ;0 - don't log, 1 - log
.rewrite_log_flag db 0
.options.d db "daemonize", 0
.options.d.size = $-.options.d
.options.s db "stop-daemon", 0
.options.s.size = $-.options.s
.options.n db "no-log", 0
.options.n.size = $-.options.n
.options.r db "rewrite-log", 0
.options.r.size = $-.options.r
.options.f db "fullscreen", 0
.options.f.size = $-.options.f
vmode dd 1
fullscreen_mode db 0
align 4
targ dd text1
open_log_in_tinypad:
dd 7
dd 0
dd 0
dd 0
dd 0
db "/sys/tinypad", 0
I_END:
prev_win_x dw ?
prev_win_y dw ?
prev_win_w dw ?
prev_win_h dw ?
f70_structure:
dd ? ; subfunction number
dd ? ;
dd ? ;
dd ? ;
dd ? ;
db ?
dd ? ; pointer to the filename
window_header_height dd ?
buffer_length dd ?
krnl_cnt dd ?
xstart dd ?
ystart dd ?
hl_line_count rd 1
sc system_colors
rd 2
text1 rb STRING_LENGTH*MAX_STRINGS ;'User' messages
rd 2
text2 rb STRING_LENGTH*MAX_STRINGS ;'Kernel' messages
tmp rb 256
PARAMS_STRING rb 256
procinfo rb 1024
file_info rb 40
align 4
rb 512
STACK_TOP:
MEM_END: