Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1493 → Rev 1490

/programs/media/midamp/trunk/build.sh
File deleted
Property changes:
Deleted: svn:executable
-*
\ No newline at end of property
/programs/media/midamp/trunk/MIDAMP.ASM
8,7 → 8,7
; COMPILE WITH FASM
 
PLAYLIST_PATH equ '/HD0/1/PLAYLIST.TXT'
;APP_MEM equ 150*1024
APP_MEM equ 150*1024
 
IPC_PLAY equ 0xa1
IPC_PAUS equ 0xa2
56,16 → 56,14
db 'MENUET01'
dd 0x01
dd START
dd IM_END
dd I_END ;APP_MEM
dd stacktop ;APP_MEM - 1024
dd I_END
dd APP_MEM
dd APP_MEM - 1024
dd I_PARAM
listsel dd 0
channel dd 0
COLOR_ORDER equ MENUETOS
include '..\..\..\macros.inc' ; decrease code size (optional)
include '..\..\..\develop\libraries\box_lib\asm\trunk\opendial.mac'
use_OpenDialog
lang fix en
;purge mov
include 'debug.inc'
79,10 → 77,6
btns:
file 'buttons.gif'
START:
mcall 68, 11
;OpenDialog initialisation
init_OpenDialog OpenDialog_data
 
or [flag],FL_BOTTRED;+FL_MUTE
mov ecx,ipcarea
call init_ipc
126,20 → 120,6
noparam:
mov [param],'W'
or [flag],FL_ADD
;---------------------------------------------------------------------
;OpenDialog_start:
; copy_path open_dialog_name,path,library_path,0
start_OpenDialog OpenDialog_data
 
cmp [OpenDialog_data.status],2 ; OpenDialog does not start
je .fopen ; some kind of alternative, instead OpenDialog
cmp [OpenDialog_data.status],1
je open_file
jmp still
;---------------------------------------------------------------------
 
.fopen:
call fopen
get_path:
cmp byte[filename],0
361,35 → 341,6
param db 'W'
curnote db 0x80
tick_count dd 0
;---------------------------------------------------------------------
OpenDialog_data:
.type dd 0
.procinfo dd prcinfo ;+4
.com_area_name dd communication_area_name ;+8
.com_area dd 0 ;+12
.opendir_pach dd temp_dir_pach ;+16
.dir_default_pach dd communication_area_default_pach ;+20
.start_path dd open_dialog_path ;+24
.draw_window dd draw_window ;+28
.status dd 0 ;+32
.openfile_pach dd filename ;+36
.filename_area dd 0 ;+40
.filter_area dd Filter
 
communication_area_name:
db 'FFFFFFFF_open_dialog',0
open_dialog_path:
db '/sys/File Managers/opendial',0
communication_area_default_pach:
db '/rd/1',0
 
Filter:
dd Filter.end - Filter
.1:
db 'MID',0
.end:
db 0
;---------------------------------------------------------------------
dir_info:
dd 1
dd 0
403,11 → 354,11
dd 0
dd 0
dd 0
fsize dd 120*1024 ;APP_MEM-2048-workarea ; max size
fsize dd APP_MEM-2048-workarea ; max size
dd workarea
IM_END: ; ª®­¥æ ¯à®£à ¬¬ë
I_END: ; ª®­¥æ ¯à®£à ¬¬ë
filename:
rb 4096 ;1024+16
rb 1024+16
prcinfo process_information
I_PARAM rb 256
childPID dd ?
437,16 → 388,5
rb 4
playlist rb 256*LISTITEMS
IncludeUGlobals
;----------------------------------------------------------------
temp_dir_pach:
rb 4096
;----------------------------------------------------------------
rb 4096
thread_stack:
rb 4096
stacktop:
;----------------------------------------------------------------
dir_table rb 32+304
workarea:
rb 120*1024
I_END:
/programs/media/midamp/trunk/thread.inc
68,7 → 68,7
.less:
loop .nxt
push esi
mcall 51,1,new_thread,thread_stack ;APP_MEM
mcall 51,1,new_thread,APP_MEM
pop edx
cmp edx,[childPID]
jne .nochild