Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1851 → Rev 2148

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