WebSVN – Kolibri OS – Diff – /programs/system/board/trunk/board.asm


;
;   DEBUG BOARD for APPLICATIONS and KERNEL DEVELOPMENT
;
;   See f63
;
;   Compile with FASM for Menuet
;
LMARGIN    equ (15+5)
TMARGIN    equ (35+5)
HSPACE	   equ 16
VSPACE	   equ 12
IPC_BUF    equ 160
DR_GRID    equ 0;1
WRITE_LOG  equ 1
 
FL_KRNL equ 1
 
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	  i_end+0x2000			; memory for app (4 Kb)
   dd	  i_end+0x2000			; esp
   dd	  0x0 , 0x0		  ; I_Param , I_Icon
include '..\..\..\MACROS.INC'
include 'debug.inc'
purge newline
MAXSTRINGS = 16
TMP = 80*(MAXSTRINGS+1)
 
START:				; start of execution
 
     mcall 60,1,ipcbuff,IPC_BUF+20
     mcall 40,1000111b
     mov  [ipcbuff+4],8
; allow user to see messages written before start
;     mov  ecx,4096
;    flush:
;     mov  eax,63
;     mov  ebx,2
;     mcall
;     loop flush
 
     mov  ecx, TMP
     xor  eax, eax
     mov  edi, [targ]
     rep  stosb
 
     mov  [tmp1],'x'
     mov  [tmp2],'x'
 
     mov  eax,14
     mcall
     and  eax,0xffff0000
     sub  eax,399 shl 16
     add  eax,399
     mov  [xstart],eax
 
     mov  eax,48
     mov  ebx,3
     mov  ecx,sc
     mov  edx,sizeof.system_colors
     mcall
  if WRITE_LOG
     mov  esi, filename
     call CreateFile
  end if
 
  red:
     call draw_window
 
still:
 
    mov  eax,23 		; wait here for event
    mov  ebx,1
    mcall
 
    cmp  eax,1			; redraw request ?
    je	 red
    cmp  eax,2			; key in buffer ?
    je	 key
    cmp  eax,3			; button in buffer ?
    je	 button
    cmp  eax,7
    je	 ipc
 
    mov  eax,63
    mov  ebx,2
    mcall
 
    cmp  ebx,1
    jne  still
 
  new_data:
  if WRITE_LOG
     pusha
     mov  [tmp], al
     mov  edx, tmp
     mov  ecx, 1
     mov  esi, filename
  .write_to_logfile:
     call WriteToFile
     cmp  eax, 5
     jne  @f
     mov  esi, filename
     mov  [filepos], 0
     call CreateFile
     jmp  .write_to_logfile
  @@:
     inc  [filepos]
     popa
  end if
 
    mov  ebp,[targ]
  .no4:
    cmp  al,13
    jne  no13
    and  dword[ebp-8],0
    jmp  new_check
   no13:
    cmp  al,10
    jne  no10
    inc  dword[ebp-4]
    cmp  dword[ebp-4],MAXSTRINGS
    jbe  .noypos
    mov  dword[ebp-4],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:
 
    mov  eax,63
    mov  ebx,2
    mcall
 
    cmp  ebx,1
    je	 new_data
 
    cmp  [vmode],2
    je	 still
    call draw_window
 
    jmp  still
 
  ipc:
    mov  [vmode],2
    mov  eax,ipcbuff
    mov  esi,[eax+8]
    mov  byte[eax],1
    push dword[eax+12]
    pop  [dump_len]
    mcall 9,work,-1
    mov  ecx,eax
   .lp:
    mcall 9
    cmp  [ebx+30],esi
    je	 .ok
    loop .lp
    and  [dump_len],0
    jmp  red
  .ok:
    mov  [pid],esi
    lea  esi,[ebx+10]
    mov  edi,dump_title+10
    mov  ecx,12
    rep  movsb
    jmp  red
  key:				; key
    mov  al,2		       ; just read it and ignore
    mcall
    cmp  ah,' '
    je	 button.no_krnl_flt
    cmp  [vmode],2
    jne  still
    cmp  ah,176 ;left
    jb	 still
    cmp  ah,179 ;right
    ja	still
    mov  ecx,[offs]
    shr  eax,8
    sub  eax,176
    add  ecx,[arrows+eax*4]
    shl  ecx,12
    shr  cx,12
    jmp  button.check_sel
  .nol:
    jmp  still
 
arrows dd -1,16,-16,1
 
  button:			; button
    mov  al,17		       ; get id
    mcall
 
    cmp  ah,1			; button id=1 ?
    jne  .noclose
 
    or	 eax,-1 		; close this program
    mcall
  .noclose:
	shr  eax,8
		cmp  eax,10
		jb   .nodump
		  lea  edi,[eax-10]
		mcall 37,1
		  sub  eax,[edi*4+dump_cell_marg]
		sub  eax,TMARGIN+VSPACE
		push eax
    and  eax,0xffff
		  xor  edx,edx
		div  word[edi*4+dump_cell_size+2]
		  mov  ecx,eax
    shl  ecx,16
		xor  edx,edx
		  pop  eax
		shr  eax,16
		div  word[edi*4+dump_cell_size]
		mov  cx,ax
  .check_sel:
		mov  eax,ecx
    shl  ax,12
    shr  eax,12
    inc  eax
    cmp  eax,[dump_len]
    ja	 still;.nosel
    mov  dword[sel_byte],ecx
    dec  eax
    mov  [offs],eax
    jmp  red
 
  .nodump:
    cmp  eax,2
    jne  .no_krnl_flt
    xor  [flag],FL_KRNL
    jmp  still
  .no_krnl_flt:
    mov  [ipcbuff+4],8
    and  byte[ipcbuff],0
    inc  [vmode]
    cmp  [vmode],3
    jb	 .vmok
    and  [vmode],0
  .vmok:
    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:
 
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,1			   ; 1, start of draw
    mcall
 
				   ; DRAW WINDOW
    xor  eax,eax		     ; function 0 : define and draw window
;   mov  ebx,50*65536+400          ; [x start] *65536 + [x size]
    mov  ebx,[xstart]
    mov  ecx,MAXSTRINGS*10+45	   ; [y start] *65536 + [y size]
    mov  edx,[sc.work]		   ; color of work area RRGGBB,8->color gl
    or	 edx,0x13000000
    mov  edi,title		  ; WINDOW LABEL
    mcall
 
    mov  ecx,4
    mov  esi,[sc.work]
    mov  ebx,296 shl 16+5*6
    mov  edx,3;+1 shl 30
    mcall 8,,<5,12>
    mov  edx,[vmode]
    lea  edx,[edx*4+duk]
    mcall 4,<300,8>,,,4
 
    cmp  [vmode],2
    je	 no_mdbg
    mov  ebx,15*65536+33	   ; draw info text with function 4
    mov  ecx,[sc.work_text]
    mov  edx,text1
    cmp  [vmode],0
    je	 .kern
    mov  edx,text2
  .kern:
    mov  esi,80
    mov  eax,4
  newline:
    mcall
    add  ebx,10
    add  edx,80
    cmp  [edx],byte 'x'
    jne  newline
    jmp  enddraw
  no_mdbg:
  if DUMP_TEST eq 1
    mov  esi,0
    mov  [dump_len],100;IPC_BUF
  else
    mov  esi,ipcbuff+16
  end if
    mov  ecx,[dump_len]
    call dump_btn
		call draw_dump
		enddraw:
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,2			   ; 2, end of draw
    mcall
 
    ret
 
if DR_GRID eq 1
draw_grid:
  mov  ecx,11
  mov  edi,(TMARGIN+VSPACE)shl 16+TMARGIN+VSPACE
 .l1:
  push ecx
  mov  ebx,LMARGIN shl 16+LMARGIN+16*HSPACE
  mcall 38,,edi,0
  add  edi,VSPACE shl 16+VSPACE
  pop  ecx
  loop .l1
  mov  ecx,17
  mov  edi,(TMARGIN+VSPACE)shl 16+TMARGIN+VSPACE*10
  mov  ebx,LMARGIN shl 16+LMARGIN
 .l2:
  push ecx
  mcall 38,,edi,0
  add  ebx,HSPACE shl 16+HSPACE
  pop  ecx
  loop .l2
  ret
end if
 
draw_numbers:
  mcall 4,(LMARGIN+2) shl 16+180,0,numb,numb_len-numb
  mov  eax,dword[sel_byte]
  shl  ax,12
  shr  eax,12
  mov  edi,eax
if ~ DUMP_TEST eq 1
  add  edi,ipcbuff+16
end if
  mov  edx,(LMARGIN+2+6*6)shl 16+180
  mov  ebx,0x30000
  movzx ecx,byte[edi]
  mcall 47,,,,0x4e00e7
  add  ebx,0x20000
  add  edx,(6*10)shl 16
  movzx ecx,word[edi]
  mcall
  add  ebx,0x50000
  add  edx,(6*13)shl 16
  mov  ecx,[edi]
  mcall
  mov  ebx,0x80100
  add  edx,(6*19)shl 16
  mcall
.ex:
  ret
 
draw_dump:
; esi - data ptr, ecx - length
  jecxz draw_numbers.ex
  pusha
  call draw_numbers
  mcall 4,(LMARGIN+2) shl 16+27,0,dump_title,dump_t_len-dump_title
  mcall 47,0x30101,ipcbuff+8,(LMARGIN+2+6*29)shl 16+27
  add	edx,(6*27) shl 16
  mov	ecx,offs
  mcall
  sub	edx,(5*6)shl 16
  mcall ,0x30001
  mov  ecx,16
  mov  edi,HSPACE shl 16
  mov  ebx,(LMARGIN+5)shl 16+42
  call draw_marks
  mov  ecx,[esp+24]
  dec  ecx
  shr  ecx,4
  inc  ecx
  mov  ebx,(LMARGIN-10)shl 16+TMARGIN+2+VSPACE
  mov  edi,VSPACE
  call draw_marks
  popa
		mov  edx,TMARGIN+2
		mov  edi,ecx
	.lp:
		add  edx,(LMARGIN+2) shl 16+VSPACE
		mov  ecx,16
		cmp  edi,ecx
		jae  .less
		mov  ecx,edi
	.less:
		sub  edi,ecx
		push esi ecx
		mov  ebx,0x20100
	.lp1:
		push ecx esi
		movzx ecx,byte[esi]
		mcall 47,,,,0
		add  edx,HSPACE shl 16
		pop  esi ecx
		inc  esi
		loop .lp1
		pusha
		mov  ebx,edx
		and  ebx,0xffff
		add  ebx,(LMARGIN+16*HSPACE+15)shl 16
		mov  edx,[esp+36]
		mov  esi,[esp+32]
		mcall 4,,0
		popa
		add  esp,8
		and  edx,0xffff
		test edi,edi
		jnz  .lp
.ex:
		ret
 
draw_marks:
; ebx -xy, edi-addition, ecx -cycles
		pusha
  mov  edx,__hexdigits
  mov  eax,4
  mov  esi,1
.tt:
  push ecx
  mcall ,,0xffffff
  add  ebx,edi
  inc  edx
  pop  ecx
  loop .tt
  popa
  ret
 
dump_btn: ; ecx-length
  jecxz draw_dump.ex
		pusha
		test ecx,0xffff
		je   .even
		add  ecx,16
	.even:
		shr  ecx,4
		imul ecx,VSPACE
		add  ecx,(TMARGIN+VSPACE)shl 16-5
		mcall 8,LMARGIN shl 16+16*HSPACE-5,,10+3 shl 29,[sc.work]
		inc  edx
		mcall ,(LMARGIN+16*HSPACE+15)shl 16+6*16
		mov  edx,0xff0000
		mov  esi,dump_cell_size
		xor  eax,eax
		movzx ebx,[sel_byte]
		lodsw
		imul bx,ax
		shl  ebx,16
		lea  ebx,[ebx+eax+LMARGIN shl 16]
		movzx ecx,[sel_byte+2]
		lodsw
		imul cx,ax
		shl  ecx,16
		lea  ecx,[ecx+eax+(TMARGIN+VSPACE) shl 16]
		mcall 13
		movzx ebx,[sel_byte]
		lodsw
		imul bx,ax
		shl  ebx,16
		lea  ebx,[ebx+eax+(LMARGIN+16*HSPACE+15)shl 16]
  mcall 13
		popa
.ex:
		ret
 
 
if WRITE_LOG
;********************************************
;*  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
    clc
    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
 
 
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
filename db '/sys/boardlog.txt',0
tmp	 db 0
end if
 
 
 
 
krnl_msg db 'K : '
duk db 'KernUserDump'
numb db 'Byte:     Word:       Dword:               Hex:'
numb_len:
dump_title db 'Dump from              (pid=    h)         Offset:     (   h)'
dump_t_len:
 
; DATA AREA
 
dump_cell_marg dd LMARGIN shl 16,(LMARGIN+16*HSPACE+15)shl 16
dump_cell_size dw HSPACE,VSPACE,6,VSPACE
; 11,11 > 0,-1
; 5,11  > 0,-1
if lang eq ru
   title    db	 '®áª  ®â« ¤ª¨ ¨ á®®¡é¥­¨©',0
else if lang eq en
   title    db	 'General debug & message board',0
else
   title    db	 'Allgemeines debug- & nachrichtenboard',0
end if
   krnl_cnt dd 0
   vmode dd 1
   targ  dd text2
I_END:
     offs dd ?
     flag rb 1
     ipcbuff rb IPC_BUF+20
     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 ?
     work rb 4096
     sel_byte  dw ?,?
     pid  dd ?
     xstart dd ?
     dump_len dd ?
     sc system_colors
i_end:

Rev 1355	Rev 1571
1	;	1	;
2	; DEBUG BOARD for APPLICATIONS and KERNEL DEVELOPMENT	2	; DEBUG BOARD for APPLICATIONS and KERNEL DEVELOPMENT
3	;	3	;
4	; See f63	4	; See f63
5	;	5	;
6	; Compile with FASM for Menuet	6	; Compile with FASM for Menuet
7	;	7	;
8	LMARGIN equ (15+5)	8	LMARGIN equ (15+5)
9	TMARGIN equ (35+5)	9	TMARGIN equ (35+5)
10	HSPACE equ 16	10	HSPACE equ 16
11	VSPACE equ 12	11	VSPACE equ 12
12	IPC_BUF equ 160	12	IPC_BUF equ 160
13	DR_GRID equ 0;1	13	DR_GRID equ 0;1
-		14	WRITE_LOG equ 1
14		15
15	FL_KRNL equ 1	16	FL_KRNL equ 1
16		17
17	include 'lang.inc'	18	include 'lang.inc'
18		19
19	use32	20	use32
20	org 0x0	21	org 0x0
21	db 'MENUET01' ; 8 byte id	22	db 'MENUET01' ; 8 byte id
22	dd 0x01 ; header version	23	dd 0x01 ; header version
23	dd START ; start of code	24	dd START ; start of code
24	dd I_END ; size of image	25	dd I_END ; size of image
25	dd i_end+0x2000 ; memory for app (4 Kb)	26	dd i_end+0x2000 ; memory for app (4 Kb)
26	dd i_end+0x2000 ; esp	27	dd i_end+0x2000 ; esp
27	dd 0x0 , 0x0 ; I_Param , I_Icon	28	dd 0x0 , 0x0 ; I_Param , I_Icon
28	include '..\..\..\MACROS.INC'	29	include '..\..\..\MACROS.INC'
29	include 'debug.inc'	30	include 'debug.inc'
30	purge newline	31	purge newline
31	MAXSTRINGS = 16	32	MAXSTRINGS = 16
32	TMP = 80*(MAXSTRINGS+1)	33	TMP = 80*(MAXSTRINGS+1)
33		34
34	START: ; start of execution	35	START: ; start of execution
35		36
36	mcall 60,1,ipcbuff,IPC_BUF+20	37	mcall 60,1,ipcbuff,IPC_BUF+20
37	mcall 40,1000111b	38	mcall 40,1000111b
38	mov [ipcbuff+4],8	39	mov [ipcbuff+4],8
39	; allow user to see messages written before start	40	; allow user to see messages written before start
40	; mov ecx,4096	41	; mov ecx,4096
41	; flush:	42	; flush:
42	; mov eax,63	43	; mov eax,63
43	; mov ebx,2	44	; mov ebx,2
44	; mcall	45	; mcall
45	; loop flush	46	; loop flush
46		47
47	mov ecx, TMP	48	mov ecx, TMP
48	xor eax, eax	49	xor eax, eax
49	mov edi, [targ]	50	mov edi, [targ]
50	rep stosb	51	rep stosb
51		52
52	mov [tmp1],'x'	53	mov [tmp1],'x'
53	mov [tmp2],'x'	54	mov [tmp2],'x'
54		55
55	mov eax,14	56	mov eax,14
56	mcall	57	mcall
57	and eax,0xffff0000	58	and eax,0xffff0000
58	sub eax,399 shl 16	59	sub eax,399 shl 16
59	add eax,399	60	add eax,399
60	mov [xstart],eax	61	mov [xstart],eax
61		62
62	mov eax,48	63	mov eax,48
63	mov ebx,3	64	mov ebx,3
64	mov ecx,sc	65	mov ecx,sc
65	mov edx,sizeof.system_colors	66	mov edx,sizeof.system_colors
66	mcall	67	mcall
-		68	if WRITE_LOG
-		69	mov esi, filename
-		70	call CreateFile
-		71	end if
67		72
68	red:	73	red:
69	call draw_window	74	call draw_window
70		75
71	still:	76	still:
72		77
73	mov eax,23 ; wait here for event	78	mov eax,23 ; wait here for event
74	mov ebx,1	79	mov ebx,1
75	mcall	80	mcall
76		81
77	cmp eax,1 ; redraw request ?	82	cmp eax,1 ; redraw request ?
78	je red	83	je red
79	cmp eax,2 ; key in buffer ?	84	cmp eax,2 ; key in buffer ?
80	je key	85	je key
81	cmp eax,3 ; button in buffer ?	86	cmp eax,3 ; button in buffer ?
82	je button	87	je button
83	cmp eax,7	88	cmp eax,7
84	je ipc	89	je ipc
85		90
86	mov eax,63	91	mov eax,63
87	mov ebx,2	92	mov ebx,2
88	mcall	93	mcall
89		94
90	cmp ebx,1	95	cmp ebx,1
91	jne still	96	jne still
92		97
93	new_data:	98	new_data:
-		99	if WRITE_LOG
-		100	pusha
-		101	mov [tmp], al
-		102	mov edx, tmp
-		103	mov ecx, 1
-		104	mov esi, filename
-		105	.write_to_logfile:
-		106	call WriteToFile
-		107	cmp eax, 5
-		108	jne @f
-		109	mov esi, filename
-		110	mov [filepos], 0
-		111	call CreateFile
-		112	jmp .write_to_logfile
-		113	@@:
-		114	inc [filepos]
-		115	popa
-		116	end if
-		117
94	mov ebp,[targ]	118	mov ebp,[targ]
95	.no4:	119	.no4:
96	cmp al,13	120	cmp al,13
97	jne no13	121	jne no13
98	and dword[ebp-8],0	122	and dword[ebp-8],0
99	jmp new_check	123	jmp new_check
100	no13:	124	no13:
101	cmp al,10	125	cmp al,10
102	jne no10	126	jne no10
103	inc dword[ebp-4]	127	inc dword[ebp-4]
104	cmp dword[ebp-4],MAXSTRINGS	128	cmp dword[ebp-4],MAXSTRINGS
105	jbe .noypos	129	jbe .noypos
106	mov dword[ebp-4],MAXSTRINGS	130	mov dword[ebp-4],MAXSTRINGS
107	lea esi,[ebp+80]	131	lea esi,[ebp+80]
108	mov edi,ebp	132	mov edi,ebp
109	mov ecx,80*(MAXSTRINGS)	133	mov ecx,80*(MAXSTRINGS)
110	cld	134	cld
111	rep movsb	135	rep movsb
112		136
113	mov esi,[ebp-4]	137	mov esi,[ebp-4]
114	imul esi,80	138	imul esi,80
115	add esi,[ebp-8]	139	add esi,[ebp-8]
116	add esi,ebp	140	add esi,ebp
117	mov ecx,80	141	mov ecx,80
118	xor al,al	142	xor al,al
119	rep stosb	143	rep stosb
120	.noypos:	144	.noypos:
121	mov [targ],text2	145	mov [targ],text2
122	and [krnl_cnt],0	146	and [krnl_cnt],0
123	jmp new_check	147	jmp new_check
124	no10:	148	no10:
125	cmp ebp,text1	149	cmp ebp,text1
126	je add2	150	je add2
127	mov ecx,[krnl_cnt]	151	mov ecx,[krnl_cnt]
128	cmp al,[krnl_msg+ecx]	152	cmp al,[krnl_msg+ecx]
129	jne .noknl	153	jne .noknl
130	inc [krnl_cnt]	154	inc [krnl_cnt]
131	cmp [krnl_cnt],4	155	cmp [krnl_cnt],4
132	jne new_check	156	jne new_check
133	mov [targ],text1	157	mov [targ],text1
134	.noknl:	158	.noknl:
135	mov ebp,[targ]	159	mov ebp,[targ]
136	jecxz .add	160	jecxz .add
137	push eax	161	push eax
138	mov esi,krnl_msg	162	mov esi,krnl_msg
139	.l1:	163	.l1:
140	lodsb	164	lodsb
141	call add_char	165	call add_char
142	loop .l1	166	loop .l1
143	pop eax	167	pop eax
144	.add:	168	.add:
145	and [krnl_cnt],0	169	and [krnl_cnt],0
146	add2:	170	add2:
147	call add_char	171	call add_char
148		172
149	new_check:	173	new_check:
150		174
151	mov eax,63	175	mov eax,63
152	mov ebx,2	176	mov ebx,2
153	mcall	177	mcall
154		178
155	cmp ebx,1	179	cmp ebx,1
156	je new_data	180	je new_data
157		181
158	cmp [vmode],2	182	cmp [vmode],2
159	je still	183	je still
160	call draw_window	184	call draw_window
161		185
162	jmp still	186	jmp still
163		187
164	ipc:	188	ipc:
165	mov [vmode],2	189	mov [vmode],2
166	mov eax,ipcbuff	190	mov eax,ipcbuff
167	mov esi,[eax+8]	191	mov esi,[eax+8]
168	mov byte[eax],1	192	mov byte[eax],1
169	push dword[eax+12]	193	push dword[eax+12]
170	pop [dump_len]	194	pop [dump_len]
171	mcall 9,work,-1	195	mcall 9,work,-1
172	mov ecx,eax	196	mov ecx,eax
173	.lp:	197	.lp:
174	mcall 9	198	mcall 9
175	cmp [ebx+30],esi	199	cmp [ebx+30],esi
176	je .ok	200	je .ok
177	loop .lp	201	loop .lp
178	and [dump_len],0	202	and [dump_len],0
179	jmp red	203	jmp red
180	.ok:	204	.ok:
181	mov [pid],esi	205	mov [pid],esi
182	lea esi,[ebx+10]	206	lea esi,[ebx+10]
183	mov edi,dump_title+10	207	mov edi,dump_title+10
184	mov ecx,12	208	mov ecx,12
185	rep movsb	209	rep movsb
186	jmp red	210	jmp red
187	key: ; key	211	key: ; key
188	mov al,2 ; just read it and ignore	212	mov al,2 ; just read it and ignore
189	mcall	213	mcall
190	cmp ah,' '	214	cmp ah,' '
191	je button.no_krnl_flt	215	je button.no_krnl_flt
192	cmp [vmode],2	216	cmp [vmode],2
193	jne still	217	jne still
194	cmp ah,176 ;left	218	cmp ah,176 ;left
195	jb still	219	jb still
196	cmp ah,179 ;right	220	cmp ah,179 ;right
197	ja still	221	ja still
198	mov ecx,[offs]	222	mov ecx,[offs]
199	shr eax,8	223	shr eax,8
200	sub eax,176	224	sub eax,176
201	add ecx,[arrows+eax*4]	225	add ecx,[arrows+eax*4]
202	shl ecx,12	226	shl ecx,12
203	shr cx,12	227	shr cx,12
204	jmp button.check_sel	228	jmp button.check_sel
205	.nol:	229	.nol:
206	jmp still	230	jmp still
207		231
208	arrows dd -1,16,-16,1	232	arrows dd -1,16,-16,1
209		233
210	button: ; button	234	button: ; button
211	mov al,17 ; get id	235	mov al,17 ; get id
212	mcall	236	mcall
213		237
214	cmp ah,1 ; button id=1 ?	238	cmp ah,1 ; button id=1 ?
215	jne .noclose	239	jne .noclose
216		240
217	or eax,-1 ; close this program	241	or eax,-1 ; close this program
218	mcall	242	mcall
219	.noclose:	243	.noclose:
220	shr eax,8	244	shr eax,8
221	cmp eax,10	245	cmp eax,10
222	jb .nodump	246	jb .nodump
223	lea edi,[eax-10]	247	lea edi,[eax-10]
224	mcall 37,1	248	mcall 37,1
225	sub eax,[edi*4+dump_cell_marg]	249	sub eax,[edi*4+dump_cell_marg]
226	sub eax,TMARGIN+VSPACE	250	sub eax,TMARGIN+VSPACE
227	push eax	251	push eax
228	and eax,0xffff	252	and eax,0xffff
229	xor edx,edx	253	xor edx,edx
230	div word[edi*4+dump_cell_size+2]	254	div word[edi*4+dump_cell_size+2]
231	mov ecx,eax	255	mov ecx,eax
232	shl ecx,16	256	shl ecx,16
233	xor edx,edx	257	xor edx,edx
234	pop eax	258	pop eax
235	shr eax,16	259	shr eax,16
236	div word[edi*4+dump_cell_size]	260	div word[edi*4+dump_cell_size]
237	mov cx,ax	261	mov cx,ax
238	.check_sel:	262	.check_sel:
239	mov eax,ecx	263	mov eax,ecx
240	shl ax,12	264	shl ax,12
241	shr eax,12	265	shr eax,12
242	inc eax	266	inc eax
243	cmp eax,[dump_len]	267	cmp eax,[dump_len]
244	ja still;.nosel	268	ja still;.nosel
245	mov dword[sel_byte],ecx	269	mov dword[sel_byte],ecx
246	dec eax	270	dec eax
247	mov [offs],eax	271	mov [offs],eax
248	jmp red	272	jmp red
249		273
250	.nodump:	274	.nodump:
251	cmp eax,2	275	cmp eax,2
252	jne .no_krnl_flt	276	jne .no_krnl_flt
253	xor [flag],FL_KRNL	277	xor [flag],FL_KRNL
254	jmp still	278	jmp still
255	.no_krnl_flt:	279	.no_krnl_flt:
256	mov [ipcbuff+4],8	280	mov [ipcbuff+4],8
257	and byte[ipcbuff],0	281	and byte[ipcbuff],0
258	inc [vmode]	282	inc [vmode]
259	cmp [vmode],3	283	cmp [vmode],3
260	jb .vmok	284	jb .vmok
261	and [vmode],0	285	and [vmode],0
262	.vmok:	286	.vmok:
263	jmp red	287	jmp red
264		288
265	add_char:	289	add_char:
266	push esi	290	push esi
267	mov esi,[ebp-4]	291	mov esi,[ebp-4]
268	imul esi,80	292	imul esi,80
269	add esi,[ebp-8]	293	add esi,[ebp-8]
270	mov [ebp+esi],al	294	mov [ebp+esi],al
271	inc dword[ebp-8]	295	inc dword[ebp-8]
272	cmp dword[ebp-8],80	296	cmp dword[ebp-8],80
273	jb .ok	297	jb .ok
274	mov dword[ebp-8],79	298	mov dword[ebp-8],79
275	.ok:	299	.ok:
276	pop esi	300	pop esi
277	ret	301	ret
278		302
279	; *********************************************	303	; *********************************************
280	; ***** WINDOW DEFINITIONS AND DRAW ******	304	; ***** WINDOW DEFINITIONS AND DRAW ******
281	; *********************************************	305	; *********************************************
282		306
283		307
284	draw_window:	308	draw_window:
285		309
286	mov eax,12 ; function 12:tell os about windowdraw	310	mov eax,12 ; function 12:tell os about windowdraw
287	mov ebx,1 ; 1, start of draw	311	mov ebx,1 ; 1, start of draw
288	mcall	312	mcall
289		313
290	; DRAW WINDOW	314	; DRAW WINDOW
291	xor eax,eax ; function 0 : define and draw window	315	xor eax,eax ; function 0 : define and draw window
292	; mov ebx,5065536+400 ; [x start] 65536 + [x size]	316	; mov ebx,5065536+400 ; [x start] 65536 + [x size]
293	mov ebx,[xstart]	317	mov ebx,[xstart]
294	mov ecx,MAXSTRINGS10+45 ; [y start] 65536 + [y size]	318	mov ecx,MAXSTRINGS10+45 ; [y start] 65536 + [y size]
295	mov edx,[sc.work] ; color of work area RRGGBB,8->color gl	319	mov edx,[sc.work] ; color of work area RRGGBB,8->color gl
296	or edx,0x13000000	320	or edx,0x13000000
297	mov edi,title ; WINDOW LABEL	321	mov edi,title ; WINDOW LABEL
298	mcall	322	mcall
299		323
300	mov ecx,4	324	mov ecx,4
301	mov esi,[sc.work]	325	mov esi,[sc.work]
302	mov ebx,296 shl 16+5*6	326	mov ebx,296 shl 16+5*6
303	mov edx,3;+1 shl 30	327	mov edx,3;+1 shl 30
304	mcall 8,,<5,12>	328	mcall 8,,<5,12>
305	mov edx,[vmode]	329	mov edx,[vmode]
306	lea edx,[edx*4+duk]	330	lea edx,[edx*4+duk]
307	mcall 4,<300,8>,,,4	331	mcall 4,<300,8>,,,4
308		332
309	cmp [vmode],2	333	cmp [vmode],2
310	je no_mdbg	334	je no_mdbg
311	mov ebx,15*65536+33 ; draw info text with function 4	335	mov ebx,15*65536+33 ; draw info text with function 4
312	mov ecx,[sc.work_text]	336	mov ecx,[sc.work_text]
313	mov edx,text1	337	mov edx,text1
314	cmp [vmode],0	338	cmp [vmode],0
315	je .kern	339	je .kern
316	mov edx,text2	340	mov edx,text2
317	.kern:	341	.kern:
318	mov esi,80	342	mov esi,80
319	mov eax,4	343	mov eax,4
320	newline:	344	newline:
321	mcall	345	mcall
322	add ebx,10	346	add ebx,10
323	add edx,80	347	add edx,80
324	cmp [edx],byte 'x'	348	cmp [edx],byte 'x'
325	jne newline	349	jne newline
326	jmp enddraw	350	jmp enddraw
327	no_mdbg:	351	no_mdbg:
328	if DUMP_TEST eq 1	352	if DUMP_TEST eq 1
329	mov esi,0	353	mov esi,0
330	mov [dump_len],100;IPC_BUF	354	mov [dump_len],100;IPC_BUF
331	else	355	else
332	mov esi,ipcbuff+16	356	mov esi,ipcbuff+16
333	end if	357	end if
334	mov ecx,[dump_len]	358	mov ecx,[dump_len]
335	call dump_btn	359	call dump_btn
336	call draw_dump	360	call draw_dump
337	enddraw:	361	enddraw:
338	mov eax,12 ; function 12:tell os about windowdraw	362	mov eax,12 ; function 12:tell os about windowdraw
339	mov ebx,2 ; 2, end of draw	363	mov ebx,2 ; 2, end of draw
340	mcall	364	mcall
341		365
342	ret	366	ret
343		367
344	if DR_GRID eq 1	368	if DR_GRID eq 1
345	draw_grid:	369	draw_grid:
346	mov ecx,11	370	mov ecx,11
347	mov edi,(TMARGIN+VSPACE)shl 16+TMARGIN+VSPACE	371	mov edi,(TMARGIN+VSPACE)shl 16+TMARGIN+VSPACE
348	.l1:	372	.l1:
349	push ecx	373	push ecx
350	mov ebx,LMARGIN shl 16+LMARGIN+16*HSPACE	374	mov ebx,LMARGIN shl 16+LMARGIN+16*HSPACE
351	mcall 38,,edi,0	375	mcall 38,,edi,0
352	add edi,VSPACE shl 16+VSPACE	376	add edi,VSPACE shl 16+VSPACE
353	pop ecx	377	pop ecx
354	loop .l1	378	loop .l1
355	mov ecx,17	379	mov ecx,17
356	mov edi,(TMARGIN+VSPACE)shl 16+TMARGIN+VSPACE*10	380	mov edi,(TMARGIN+VSPACE)shl 16+TMARGIN+VSPACE*10
357	mov ebx,LMARGIN shl 16+LMARGIN	381	mov ebx,LMARGIN shl 16+LMARGIN
358	.l2:	382	.l2:
359	push ecx	383	push ecx
360	mcall 38,,edi,0	384	mcall 38,,edi,0
361	add ebx,HSPACE shl 16+HSPACE	385	add ebx,HSPACE shl 16+HSPACE
362	pop ecx	386	pop ecx
363	loop .l2	387	loop .l2
364	ret	388	ret
365	end if	389	end if
366		390
367	draw_numbers:	391	draw_numbers:
368	mcall 4,(LMARGIN+2) shl 16+180,0,numb,numb_len-numb	392	mcall 4,(LMARGIN+2) shl 16+180,0,numb,numb_len-numb
369	mov eax,dword[sel_byte]	393	mov eax,dword[sel_byte]
370	shl ax,12	394	shl ax,12
371	shr eax,12	395	shr eax,12
372	mov edi,eax	396	mov edi,eax
373	if ~ DUMP_TEST eq 1	397	if ~ DUMP_TEST eq 1
374	add edi,ipcbuff+16	398	add edi,ipcbuff+16
375	end if	399	end if
376	mov edx,(LMARGIN+2+6*6)shl 16+180	400	mov edx,(LMARGIN+2+6*6)shl 16+180
377	mov ebx,0x30000	401	mov ebx,0x30000
378	movzx ecx,byte[edi]	402	movzx ecx,byte[edi]
379	mcall 47,,,,0x4e00e7	403	mcall 47,,,,0x4e00e7
380	add ebx,0x20000	404	add ebx,0x20000
381	add edx,(6*10)shl 16	405	add edx,(6*10)shl 16
382	movzx ecx,word[edi]	406	movzx ecx,word[edi]
383	mcall	407	mcall
384	add ebx,0x50000	408	add ebx,0x50000
385	add edx,(6*13)shl 16	409	add edx,(6*13)shl 16
386	mov ecx,[edi]	410	mov ecx,[edi]
387	mcall	411	mcall
388	mov ebx,0x80100	412	mov ebx,0x80100
389	add edx,(6*19)shl 16	413	add edx,(6*19)shl 16
390	mcall	414	mcall
391	.ex:	415	.ex:
392	ret	416	ret
393		417
394	draw_dump:	418	draw_dump:
395	; esi - data ptr, ecx - length	419	; esi - data ptr, ecx - length
396	jecxz draw_numbers.ex	420	jecxz draw_numbers.ex
397	pusha	421	pusha
398	call draw_numbers	422	call draw_numbers
399	mcall 4,(LMARGIN+2) shl 16+27,0,dump_title,dump_t_len-dump_title	423	mcall 4,(LMARGIN+2) shl 16+27,0,dump_title,dump_t_len-dump_title
400	mcall 47,0x30101,ipcbuff+8,(LMARGIN+2+6*29)shl 16+27	424	mcall 47,0x30101,ipcbuff+8,(LMARGIN+2+6*29)shl 16+27
401	add edx,(6*27) shl 16	425	add edx,(6*27) shl 16
402	mov ecx,offs	426	mov ecx,offs
403	mcall	427	mcall
404	sub edx,(5*6)shl 16	428	sub edx,(5*6)shl 16
405	mcall ,0x30001	429	mcall ,0x30001
406	mov ecx,16	430	mov ecx,16
407	mov edi,HSPACE shl 16	431	mov edi,HSPACE shl 16
408	mov ebx,(LMARGIN+5)shl 16+42	432	mov ebx,(LMARGIN+5)shl 16+42
409	call draw_marks	433	call draw_marks
410	mov ecx,[esp+24]	434	mov ecx,[esp+24]
411	dec ecx	435	dec ecx
412	shr ecx,4	436	shr ecx,4
413	inc ecx	437	inc ecx
414	mov ebx,(LMARGIN-10)shl 16+TMARGIN+2+VSPACE	438	mov ebx,(LMARGIN-10)shl 16+TMARGIN+2+VSPACE
415	mov edi,VSPACE	439	mov edi,VSPACE
416	call draw_marks	440	call draw_marks
417	popa	441	popa
418	mov edx,TMARGIN+2	442	mov edx,TMARGIN+2
419	mov edi,ecx	443	mov edi,ecx
420	.lp:	444	.lp:
421	add edx,(LMARGIN+2) shl 16+VSPACE	445	add edx,(LMARGIN+2) shl 16+VSPACE
422	mov ecx,16	446	mov ecx,16
423	cmp edi,ecx	447	cmp edi,ecx
424	jae .less	448	jae .less
425	mov ecx,edi	449	mov ecx,edi
426	.less:	450	.less:
427	sub edi,ecx	451	sub edi,ecx
428	push esi ecx	452	push esi ecx
429	mov ebx,0x20100	453	mov ebx,0x20100
430	.lp1:	454	.lp1:
431	push ecx esi	455	push ecx esi
432	movzx ecx,byte[esi]	456	movzx ecx,byte[esi]
433	mcall 47,,,,0	457	mcall 47,,,,0
434	add edx,HSPACE shl 16	458	add edx,HSPACE shl 16
435	pop esi ecx	459	pop esi ecx
436	inc esi	460	inc esi
437	loop .lp1	461	loop .lp1
438	pusha	462	pusha
439	mov ebx,edx	463	mov ebx,edx
440	and ebx,0xffff	464	and ebx,0xffff
441	add ebx,(LMARGIN+16*HSPACE+15)shl 16	465	add ebx,(LMARGIN+16*HSPACE+15)shl 16
442	mov edx,[esp+36]	466	mov edx,[esp+36]
443	mov esi,[esp+32]	467	mov esi,[esp+32]
444	mcall 4,,0	468	mcall 4,,0
445	popa	469	popa
446	add esp,8	470	add esp,8
447	and edx,0xffff	471	and edx,0xffff
448	test edi,edi	472	test edi,edi
449	jnz .lp	473	jnz .lp
450	.ex:	474	.ex:
451	ret	475	ret
452		476
453	draw_marks:	477	draw_marks:
454	; ebx -xy, edi-addition, ecx -cycles	478	; ebx -xy, edi-addition, ecx -cycles
455	pusha	479	pusha
456	mov edx,__hexdigits	480	mov edx,__hexdigits
457	mov eax,4	481	mov eax,4
458	mov esi,1	482	mov esi,1
459	.tt:	483	.tt:
460	push ecx	484	push ecx
461	mcall ,,0xffffff	485	mcall ,,0xffffff
462	add ebx,edi	486	add ebx,edi
463	inc edx	487	inc edx
464	pop ecx	488	pop ecx
465	loop .tt	489	loop .tt
466	popa	490	popa
467	ret	491	ret
468		492
469	dump_btn: ; ecx-length	493	dump_btn: ; ecx-length
470	jecxz draw_dump.ex	494	jecxz draw_dump.ex
471	pusha	495	pusha
472	test ecx,0xffff	496	test ecx,0xffff
473	je .even	497	je .even
474	add ecx,16	498	add ecx,16
475	.even:	499	.even:
476	shr ecx,4	500	shr ecx,4

Subversion Repositories Kolibri OS

(root)/programs/system/board/trunk/board.asm @ 6162 – Rev 1355 → 1571