Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 1490 → Rev 1493

/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,14 → 56,16
db 'MENUET01'
dd 0x01
dd START
dd I_END
dd APP_MEM
dd APP_MEM - 1024
dd IM_END
dd I_END ;APP_MEM
dd stacktop ;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'
77,6 → 79,10
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
120,6 → 126,20
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
341,6 → 361,35
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
354,11 → 403,11
dd 0
dd 0
dd 0
fsize dd APP_MEM-2048-workarea ; max size
fsize dd 120*1024 ;APP_MEM-2048-workarea ; max size
dd workarea
I_END: ; ª®­¥æ ¯à®£à ¬¬ë
IM_END: ; ª®­¥æ ¯à®£à ¬¬ë
filename:
rb 1024+16
rb 4096 ;1024+16
prcinfo process_information
I_PARAM rb 256
childPID dd ?
388,5 → 437,16
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/build.sh
0,0 → 1,10
#!/bin/bash
# This script does for linux the same as build.bat for DOS,
# it compiles the KoOS kernel, hopefully ;-)
 
echo "lang fix en"
echo "lang fix en" > lang.inc
mkdir bin
fasm -m 65536 MIDAMP.ASM ./bin/midamp
rm -f lang.inc
exit 0
Property changes:
Added: svn:executable
+*
\ No newline at end of property
/programs/media/midamp/trunk/thread.inc
68,7 → 68,7
.less:
loop .nxt
push esi
mcall 51,1,new_thread,APP_MEM
mcall 51,1,new_thread,thread_stack ;APP_MEM
pop edx
cmp edx,[childPID]
jne .nochild