Subversion Repositories Kolibri OS

Rev

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

Rev 205 Rev 485
Line 61... Line 61...
61 
  dd	 APP_MEM - 1024
 61 
  dd	 APP_MEM - 1024
62 
  dd	 I_PARAM
 62 
  dd	 I_PARAM
63 
listsel    dd 0
 63 
listsel    dd 0
64 
channel dd 0
 64 
channel dd 0
65 
COLOR_ORDER equ MENUETOS
 65 
COLOR_ORDER equ MENUETOS
66 
include 'macros.inc' ; decrease code size (optional)
 66 
include '..\..\..\macros.inc' ; decrease code size (optional)
67 
lang fix en
 67 
lang fix en
68 
;purge mov
 68 
;purge mov
69 
include 'debug.inc'
 69 
include 'debug.inc'
70 
include 'dlg.inc'
 70 
include 'dlg.inc'
71 
include 'playlist.inc'
 71 
include 'playlist.inc'
Line 151... Line 151...
151 
    mov  esi,filename
 151 
    mov  esi,filename
152 
    mov  edi,I_PARAM
 152 
    mov  edi,I_PARAM
153 
    rep  movsd
 153 
    rep  movsd
154 
    mov  eax,70
 154 
    mov  eax,70
155 
    mov  ebx,file_info
 155 
    mov  ebx,file_info
156 
    int  0x40
 156 
    mcall
157 
    add  ebx,workarea
 157 
    add  ebx,workarea
158 
    mov  [midi_limit],ebx
 158 
    mov  [midi_limit],ebx
159 
    mov  edi,I_PARAM
 159 
    mov  edi,I_PARAM
160 
    call find_slash
 160 
    call find_slash
161 
    mov  [fn_ptr],edi
 161 
    mov  [fn_ptr],edi
Line 223... Line 223...
223 
    call draw_window
 223 
    call draw_window
224 
still:
 224 
still:
225 
    mov  ecx,ipcarea
 225 
    mov  ecx,ipcarea
226 
    call init_ipc
 226 
    call init_ipc
227 
    mov  eax,10
 227 
    mov  eax,10
228 
    int  0x40
 228 
    mcall
229 
prc_event:
 229 
prc_event:
230 
    test eax,eax
 230 
    test eax,eax
231 
    jz	 still
 231 
    jz	 still
232 
  .evt:
 232 
  .evt:
233 
    cmp  eax,1
 233 
    cmp  eax,1