forked from KolibriOS/kolibrios
577eed1321
*skinsel from diamond *end, menu, @panel - more stable with different system colors *@rb - new menu *@panel - fixed drawing cpu usage in QEMU and maybe on some real comps git-svn-id: svn://kolibrios.org@318 a494cfbc-eb01-0410-851d-a64ba20cac60
102 lines
2.1 KiB
NASM
102 lines
2.1 KiB
NASM
use32
|
|
db 'MENUET01'
|
|
dd 1
|
|
dd start
|
|
dd i_end
|
|
dd mem, mem
|
|
dd 0, 0
|
|
|
|
start:
|
|
push 70
|
|
pop eax
|
|
mov ebx, fileinfo
|
|
int 0x40
|
|
cmp ebx, max_file_size
|
|
jz exit
|
|
cmp ebx, -1
|
|
jnz @f
|
|
exit:
|
|
or eax, -1
|
|
int 0x40
|
|
@@:
|
|
mov esi, filebuf
|
|
xor ecx, ecx
|
|
scan1l1:
|
|
or edi, -1
|
|
scan1:
|
|
inc edi
|
|
lodsb
|
|
test al, al
|
|
jz scan1done
|
|
cmp al, 13
|
|
jz newline
|
|
cmp al, 10
|
|
jnz scan1
|
|
newline:
|
|
test edi, edi
|
|
jz scan1l1
|
|
inc ecx
|
|
jmp scan1l1
|
|
scan1done:
|
|
test edi, edi
|
|
jz @f
|
|
inc ecx
|
|
@@:
|
|
jecxz exit
|
|
push 3
|
|
pop eax
|
|
int 0x40
|
|
ror eax, 16
|
|
mov edx, 1024
|
|
@@:
|
|
sub eax, 0x43ab45b5
|
|
ror eax, 1
|
|
xor eax, 0x32c4324f
|
|
ror eax, 1
|
|
dec edx
|
|
jnz @b
|
|
div ecx
|
|
; use edx as random index
|
|
mov esi, filebuf
|
|
scan2l1:
|
|
push esi
|
|
or edi, -1
|
|
scan2:
|
|
inc edi
|
|
lodsb
|
|
test al, al
|
|
jz newline2
|
|
cmp al, 13
|
|
jz newline2
|
|
cmp al, 10
|
|
jnz scan2
|
|
newline2:
|
|
pop eax
|
|
test edi, edi
|
|
jz scan2l1
|
|
dec edx
|
|
jns scan2l1
|
|
mov byte [esi-1], 0
|
|
; set eax (-> ASCIIZ string) as skin
|
|
mov [eax-4], esi
|
|
lea ecx, [eax-20]
|
|
push 48
|
|
pop eax
|
|
mov bl, 8
|
|
int 0x40
|
|
jmp exit
|
|
|
|
fileinfo:
|
|
dd 0
|
|
dq 0
|
|
dd max_file_size
|
|
dd filebuf
|
|
db '/rd/1/skinsel.dat',0
|
|
i_end:
|
|
max_file_size = 0x1000 - 0x40 - $
|
|
filebuf:
|
|
rb max_file_size
|
|
; stack
|
|
rb 0x40
|
|
mem:
|