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
; mov eax,[ebx+30]
; mov [PID],eax
; xor ecx,ecx
;@@:
; inc ecx
; mcall 9, procinfo
; mov eax,[PID]
; cmp eax,[ebx+30]
; jne @r
; mov [active_process],ecx
mcall 9,procinfo,-1 mcall 9,procinfo,-1
mov eax,[ebx+30] mov ecx,[ebx+30] ; PID
mov [PID],eax mcall 18,21
xor ecx,ecx mov [active_process],eax ; WINDOW SLOT
@@:
inc ecx
mcall 9, procinfo
mov eax,[PID]
cmp eax,[ebx+30]
jne @r
mov [active_process],ecx
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