KFM - small optimization

git-svn-id: svn://kolibrios.org@2148 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/fs/kfm/trunk/build.bat

@@ -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

programs/fs/kfm/trunk/kfm.asm

@@ -53,17 +53,21 @@ include   'files.inc'
 STRLEN = 1024
 ;---------------------------------------------------------------------
 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
+;    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
+	mov	ecx,[ebx+30]	; PID
+	mcall	18,21
+	mov	[active_process],eax	; WINDOW SLOT
     mov   [appl_memory],mem
     mov   ax,[select_disk_char]
     mov   [read_folder_name],ax