Subversion Repositories Kolibri OS

Rev

Rev 1851 | Rev 2346 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1851 Rev 2148
Line 51... Line 51...
51 
include   'files.inc'
 51 
include   'files.inc'
52 
;---------------------------------------------------------------------
 52 
;---------------------------------------------------------------------
53 
STRLEN = 1024
 53 
STRLEN = 1024
54 
;---------------------------------------------------------------------
 54 
;---------------------------------------------------------------------
55 
START:
 55 
START:
- 
 
 56 
;    mcall 9, procinfo, -1
- 
 
 57 
;    mov   eax,[ebx+30]
- 
 
 58 
;    mov   [PID],eax
- 
 
 59 
;    xor   ecx,ecx
- 
 
 60 
;@@:
- 
 
 61 
;    inc   ecx
- 
 
 62 
;    mcall 9, procinfo
- 
 
 63 
;    mov   eax,[PID]
- 
 
 64 
;    cmp   eax,[ebx+30]
- 
 
 65 
;    jne   @r
- 
 
 66 
;    mov  [active_process],ecx
56 
    mcall 9, procinfo, -1
 67 
	mcall	9,procinfo,-1
57 
    mov   eax,[ebx+30]
 68 
	mov	ecx,[ebx+30]	; PID
58 
    mov   [PID],eax
 - 
 
59 
    xor   ecx,ecx
 - 
 
60 
@@:
 - 
 
61 
    inc   ecx
 - 
 
62 
    mcall 9, procinfo
 - 
 
63 
    mov   eax,[PID]
 - 
 
64 
    cmp   eax,[ebx+30]
 - 
 
65 
    jne   @r
 69 
	mcall	18,21
66 
    mov  [active_process],ecx
 70 
	mov	[active_process],eax	; WINDOW SLOT
67 
    mov   [appl_memory],mem
 71 
    mov   [appl_memory],mem
68 
    mov   ax,[select_disk_char]
 72 
    mov   ax,[select_disk_char]
69 
    mov   [read_folder_name],ax
 73 
    mov   [read_folder_name],ax
70 
    mov   [read_folder_1_name],ax
 74 
    mov   [read_folder_1_name],ax
71 
    call  load_icon_and_convert_to_img
 75 
    call  load_icon_and_convert_to_img