forked from KolibriOS/kolibrios
Board
1) Optimize redrawing 2) Clearing of source code git-svn-id: svn://kolibrios.org@2234 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Marat Zakiyanov (Mario79)
parent
132b516d92
commit
63531bfca1
@ -23,109 +23,96 @@ include 'debug.inc'
|
||||
purge newline
|
||||
MAXSTRINGS = 16
|
||||
TMP = 80*(MAXSTRINGS+1)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
START: ; start of execution
|
||||
mov edi, filename
|
||||
cmp byte [edi], 0
|
||||
mov edi,filename
|
||||
cmp [edi],byte 0
|
||||
jnz param
|
||||
mov esi, default_filename
|
||||
mov esi,default_filename
|
||||
@@:
|
||||
lodsb
|
||||
stosb
|
||||
test al, al
|
||||
test al,al
|
||||
jnz @b
|
||||
param:
|
||||
|
||||
; allow user to see messages written before start
|
||||
; mov ecx,4096
|
||||
; flush:
|
||||
; mov eax,63
|
||||
; mov ebx,2
|
||||
; mcall
|
||||
;flush:
|
||||
; mcall 63,2
|
||||
; loop flush
|
||||
|
||||
mov ecx, TMP
|
||||
xor eax, eax
|
||||
mov edi, [targ]
|
||||
mov ecx,TMP
|
||||
xor eax,eax
|
||||
mov edi,[targ]
|
||||
rep stosb
|
||||
|
||||
mov [tmp1],'x'
|
||||
mov [tmp2],'x'
|
||||
|
||||
mov eax,14
|
||||
mcall
|
||||
mcall 14
|
||||
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
|
||||
mcall 48,3,sc,sizeof.system_colors
|
||||
if WRITE_LOG
|
||||
mov esi,filename
|
||||
call CreateFile
|
||||
end if
|
||||
|
||||
red:
|
||||
end if
|
||||
;------------------------------------------------------------------------------
|
||||
red:
|
||||
call draw_window
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
still:
|
||||
|
||||
mov eax,23 ; wait here for event
|
||||
mov ebx,1
|
||||
mcall
|
||||
|
||||
mcall 23,1 ; 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
|
||||
|
||||
mov eax,63
|
||||
mov ebx,2
|
||||
mcall
|
||||
|
||||
mcall 63,2
|
||||
cmp ebx,1
|
||||
jne still
|
||||
|
||||
new_data:
|
||||
if WRITE_LOG
|
||||
new_data:
|
||||
if WRITE_LOG
|
||||
pusha
|
||||
mov [tmp], al
|
||||
mov edx, tmp
|
||||
mov ecx, 1
|
||||
mov esi, filename
|
||||
.write_to_logfile:
|
||||
mov [tmp],al
|
||||
mov edx,tmp
|
||||
mov ecx,1
|
||||
mov esi,filename
|
||||
.write_to_logfile:
|
||||
call WriteToFile
|
||||
cmp eax, 5
|
||||
cmp eax,5
|
||||
jne @f
|
||||
mov esi, filename
|
||||
mov [filepos], 0
|
||||
mov esi,filename
|
||||
mov [filepos],0
|
||||
call CreateFile
|
||||
jnc .write_to_logfile
|
||||
@@:
|
||||
@@:
|
||||
inc [filepos]
|
||||
popa
|
||||
end if
|
||||
|
||||
end if
|
||||
mov ebp,[targ]
|
||||
.no4:
|
||||
.no4:
|
||||
cmp al,13
|
||||
jne no13
|
||||
and dword[ebp-8],0
|
||||
and [ebp-8],dword 0
|
||||
jmp new_check
|
||||
no13:
|
||||
;------------------------------------------
|
||||
no13:
|
||||
cmp al,10
|
||||
jne no10
|
||||
and dword[ebp-8],0
|
||||
inc dword[ebp-4]
|
||||
cmp dword[ebp-4],MAXSTRINGS
|
||||
and [ebp-8],dword 0
|
||||
inc dword [ebp-4]
|
||||
cmp [ebp-4],dword MAXSTRINGS
|
||||
jbe .noypos
|
||||
mov dword[ebp-4],MAXSTRINGS
|
||||
mov [ebp-4],dword MAXSTRINGS
|
||||
lea esi,[ebp+80]
|
||||
mov edi,ebp
|
||||
mov ecx,80*(MAXSTRINGS)
|
||||
@ -139,11 +126,12 @@ still:
|
||||
mov ecx,80
|
||||
xor al,al
|
||||
rep stosb
|
||||
.noypos:
|
||||
.noypos:
|
||||
mov [targ],text2
|
||||
and [krnl_cnt],0
|
||||
jmp new_check
|
||||
no10:
|
||||
;------------------------------------------
|
||||
no10:
|
||||
cmp ebp,text1
|
||||
je add2
|
||||
mov ecx,[krnl_cnt]
|
||||
@ -153,54 +141,44 @@ still:
|
||||
cmp [krnl_cnt],4
|
||||
jne new_check
|
||||
mov [targ],text1
|
||||
.noknl:
|
||||
.noknl:
|
||||
mov ebp,[targ]
|
||||
jecxz .add
|
||||
push eax
|
||||
mov esi,krnl_msg
|
||||
.l1:
|
||||
.l1:
|
||||
lodsb
|
||||
call add_char
|
||||
loop .l1
|
||||
pop eax
|
||||
.add:
|
||||
.add:
|
||||
and [krnl_cnt],0
|
||||
add2:
|
||||
add2:
|
||||
call add_char
|
||||
|
||||
new_check:
|
||||
|
||||
mov eax,63
|
||||
mov ebx,2
|
||||
mcall
|
||||
|
||||
new_check:
|
||||
mcall 63,2
|
||||
cmp ebx,1
|
||||
je new_data
|
||||
|
||||
call draw_window
|
||||
|
||||
call draw_text
|
||||
jmp still
|
||||
|
||||
key: ; key
|
||||
mov al,2 ; just read it and ignore
|
||||
mcall
|
||||
;------------------------------------------------------------------------------
|
||||
key:
|
||||
mcall 2
|
||||
cmp ah,' '
|
||||
je button.noclose
|
||||
jmp still
|
||||
|
||||
button: ; button
|
||||
mov al,17 ; get id
|
||||
mcall
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
button:
|
||||
mcall 17 ; get id
|
||||
cmp ah,1 ; button id=1 ?
|
||||
jne .noclose
|
||||
|
||||
or eax,-1 ; close this program
|
||||
mcall
|
||||
.noclose:
|
||||
.noclose:
|
||||
xor [vmode],1
|
||||
jmp red
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
add_char:
|
||||
push esi
|
||||
mov esi,[ebp-4]
|
||||
@ -211,62 +189,66 @@ add_char:
|
||||
cmp dword[ebp-8],80
|
||||
jb .ok
|
||||
mov dword[ebp-8],79
|
||||
.ok:
|
||||
.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
|
||||
mcall 12,1 ; 1, start of draw
|
||||
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]
|
||||
xor esi,esi
|
||||
mcall ,[xstart],,,,title
|
||||
mov ebx,296 shl 16+5*6
|
||||
mov edx,3;+1 shl 30
|
||||
mcall 8,,<5,12>
|
||||
mcall 8,,<5,12>,3,[sc.work]
|
||||
mov edx,[vmode]
|
||||
lea edx,[edx*4+duk]
|
||||
mcall 4,<300,8>,,,4
|
||||
|
||||
mov ebx,15*65536+33 ; draw info text with function 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]
|
||||
or ecx,0x40000000
|
||||
mov edi,[sc.work]
|
||||
mov edx,text1
|
||||
cmp [vmode],0
|
||||
je .kern
|
||||
mov edx,text2
|
||||
.kern:
|
||||
.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:
|
||||
newline:
|
||||
mcall
|
||||
add ebx,10
|
||||
add edx,80
|
||||
cmp [edx],byte 'x'
|
||||
jne newline
|
||||
mov eax,12 ; function 12:tell os about windowdraw
|
||||
mov ebx,2 ; 2, end of draw
|
||||
mcall
|
||||
|
||||
ret
|
||||
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
if WRITE_LOG
|
||||
;********************************************
|
||||
;* input: esi = pointer to the file name *
|
||||
@ -274,21 +256,21 @@ if WRITE_LOG
|
||||
|
||||
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
|
||||
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
|
||||
test eax,eax
|
||||
jz .out
|
||||
stc
|
||||
.out:
|
||||
.out:
|
||||
popa
|
||||
ret
|
||||
|
||||
;------------------------------------------------
|
||||
;********************************************
|
||||
;* input: esi = pointer to the file name *
|
||||
;* edx = pointer to data buffer *
|
||||
@ -297,24 +279,23 @@ CreateFile:
|
||||
|
||||
WriteToFile:
|
||||
push ebx
|
||||
mov dword [InfoStructure], 3 ; write to file
|
||||
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
|
||||
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
|
||||
test eax,eax
|
||||
jz .out
|
||||
stc
|
||||
.out:
|
||||
.out:
|
||||
pop ebx
|
||||
ret
|
||||
|
||||
|
||||
;--------------------------------------------------
|
||||
InfoStructure:
|
||||
dd 0x0 ; subfunction number
|
||||
dd 0x0 ; position in the file in bytes
|
||||
@ -328,10 +309,7 @@ filepos dd 0
|
||||
default_filename db '/sys/boardlog.txt',0
|
||||
tmp db 0
|
||||
end if
|
||||
|
||||
|
||||
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
krnl_msg db 'K : '
|
||||
duk db 'KernUser'
|
||||
|
||||
@ -346,27 +324,37 @@ else if lang eq en
|
||||
else
|
||||
title db 'Allgemeines debug- & nachrichtenboard',0
|
||||
end if
|
||||
krnl_cnt dd 0
|
||||
vmode dd 1
|
||||
targ dd text2
|
||||
krnl_cnt dd 0
|
||||
vmode dd 1
|
||||
targ dd text2
|
||||
;------------------------------------------------------------------------------
|
||||
I_END:
|
||||
offs dd ?
|
||||
flag rb 1
|
||||
;------------------------------------------------------------------------------
|
||||
offs dd ?
|
||||
flag rb 1
|
||||
rd 2
|
||||
; x1pos dd ?
|
||||
; y1pos dd ?
|
||||
text1 rb 80*(MAXSTRINGS+1)
|
||||
tmp1 db ?
|
||||
;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
|
||||
;x2pos dd ?
|
||||
;y2pos dd ?
|
||||
text2 rb 80*(MAXSTRINGS+1)
|
||||
tmp2 db ?
|
||||
xstart dd ?
|
||||
|
||||
sc system_colors
|
||||
|
||||
i_end:
|
||||
|
||||
filename rb 256
|
||||
;------------------------------------------------------------------------------
|
||||
align 4
|
||||
procinfo:
|
||||
rb 1024
|
||||
;------------------------------------------------------------------------------
|
||||
align 4
|
||||
stackbuf rb 2000h
|
||||
;------------------------------------------------------------------------------
|
||||
mem:
|
||||
|
||||
@ -1,5 +1,6 @@
|
||||
@erase lang.inc
|
||||
@echo lang fix en >lang.inc
|
||||
@fasm board.asm board
|
||||
@kpack board
|
||||
@erase lang.inc
|
||||
@pause
|
||||
@ -1,5 +1,6 @@
|
||||
@erase lang.inc
|
||||
@echo lang fix ge >lang.inc
|
||||
@fasm board.asm board
|
||||
@kpack board
|
||||
@erase lang.inc
|
||||
@pause
|
||||
@ -1,5 +1,6 @@
|
||||
@erase lang.inc
|
||||
@echo lang fix ru >lang.inc
|
||||
@fasm board.asm board
|
||||
@kpack board
|
||||
@erase lang.inc
|
||||
@pause
|
||||
Loading…
Reference in New Issue
Block a user