forked from KolibriOS/kolibrios
KFM - small optimization
git-svn-id: svn://kolibrios.org@2148 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
eca36f7ef4
commit
b20ee6ddec
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user