corrected MIDAMP.ASM

git-svn-id: svn://kolibrios.org@141 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Evgeny Grechnikov (Diamond) 2006-08-28 14:23:17 +00:00
parent bb515acb25
commit 1eba0190d0

View File

@ -7,9 +7,8 @@
; ;
; COMPILE WITH FASM ; COMPILE WITH FASM
PLAYLIST_PATH equ '/HD/1/MIDI/PLAYLIST.TXT' PLAYLIST_PATH equ '/HD0/1/PLAYLIST.TXT'
APP_MEM equ 150*1024 APP_MEM equ 150*1024
DIR_SIZE equ 1024
IPC_PLAY equ 0xa1 IPC_PLAY equ 0xa1
IPC_PAUS equ 0xa2 IPC_PAUS equ 0xa2
@ -59,7 +58,7 @@ use32
dd START dd START
dd I_END dd I_END
dd APP_MEM dd APP_MEM
dd APP_MEM-1024 dd APP_MEM ;stack size=1024
dd I_PARAM dd I_PARAM
listsel dd 0 listsel dd 0
channel dd 0 channel dd 0
@ -147,20 +146,14 @@ clearpath:
mov [play_area],ax mov [play_area],ax
mov [tick_count],eax mov [tick_count],eax
mov [delta],eax mov [delta],eax
inc eax
mov [fsize],eax
mov [curnote],0x80 mov [curnote],0x80
mov ecx,64 mov ecx,64
mov esi,filename mov esi,filename
mov edi,I_PARAM mov edi,I_PARAM
rep movsd rep movsd
mov eax,58 mov eax,70
mov ebx,file_info mov ebx,file_info
int 0x40 int 0x40
mov eax,ebx
shr eax,9
inc eax
mov [fsize],eax
add ebx,workarea add ebx,workarea
mov [midi_limit],ebx mov [midi_limit],ebx
mov edi,I_PARAM mov edi,I_PARAM
@ -169,9 +162,6 @@ clearpath:
mov edi,filename mov edi,filename
call str_len call str_len
mov [fname_len],eax mov [fname_len],eax
mov eax,58
mov ebx,file_info
int 0x40
midi_kill: midi_kill:
call kill call kill
include 'midilite.inc' include 'midilite.inc'
@ -354,13 +344,21 @@ pl_ptr dd playlist
param db 'W' param db 'W'
curnote db 0x80 curnote db 0x80
tick_count dd 0 tick_count dd 0
dir_info:
dd 1
dd 0
dd 0
dd 1
dd dir_table
db 0
dd filename
play_area dw ? play_area dw ?
file_info: file_info:
dd 0 dd 0
dd 0 dd 0
fsize dd 1 dd 0
fsize dd APP_MEM-1024-workarea ; max size
dd workarea dd workarea
dd hash_table
I_END: ; ª®­¥æ ¯à®£à ¬¬ë I_END: ; ª®­¥æ ¯à®£à ¬¬ë
filename: filename:
rb 1024+16 rb 1024+16
@ -386,7 +384,7 @@ cur_track db ?
sel_track db ? sel_track db ?
ipcmsg db ? ipcmsg db ?
fnbuf: fnbuf:
rb 256 rb 1024
btn_raw rb 222*17*3+12 btn_raw rb 222*17*3+12
hdr_raw rb 275*29*3+12 hdr_raw rb 275*29*3+12
bottom_raw rb 25*378*3+12 bottom_raw rb 25*378*3+12
@ -394,5 +392,5 @@ bottom_raw rb 25*378*3+12
playlist rb 256*LISTITEMS playlist rb 256*LISTITEMS
hash_table: hash_table:
rd 4096 rd 4096
dir_table rb DIR_SIZE dir_table rb 32+304
workarea: workarea: