KFM - small optimization

git-svn-id: svn://kolibrios.org@2148 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Marat Zakiyanov (Mario79) 2011-09-02 20:06:10 +00:00
parent eca36f7ef4
commit b20ee6ddec
2 changed files with 19 additions and 12 deletions

View File

@ -1,2 +1,5 @@
fasm kfm.asm kfm @echo lang fix en >lang.inc
@fasm -m 16384 kfm.asm kfm
@erase lang.inc
@kpack kfm
@pause @pause

View File

@ -53,17 +53,21 @@ include 'files.inc'
STRLEN = 1024 STRLEN = 1024
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
START: START:
mcall 9, procinfo, -1 ; mcall 9, procinfo, -1
mov eax,[ebx+30] ; mov eax,[ebx+30]
mov [PID],eax ; mov [PID],eax
xor ecx,ecx ; xor ecx,ecx
@@: ;@@:
inc ecx ; inc ecx
mcall 9, procinfo ; mcall 9, procinfo
mov eax,[PID] ; mov eax,[PID]
cmp eax,[ebx+30] ; cmp eax,[ebx+30]
jne @r ; jne @r
mov [active_process],ecx ; mov [active_process],ecx
mcall 9,procinfo,-1
mov ecx,[ebx+30] ; PID
mcall 18,21
mov [active_process],eax ; WINDOW SLOT
mov [appl_memory],mem mov [appl_memory],mem
mov ax,[select_disk_char] mov ax,[select_disk_char]
mov [read_folder_name],ax mov [read_folder_name],ax