kolibrios/programs/media/midamp/trunk/MIDAMP.ASM
Evgeny Grechnikov (Diamond) d5f66e011c * new version of gif_lite.inc, common for all programs which use GIF
* restored config.inc because it is needed for normal compilation of
  one program with build_ru.bat

git-svn-id: svn://kolibrios.org@552 a494cfbc-eb01-0410-851d-a64ba20cac60
2007-06-25 17:20:49 +00:00

393 lines
7.3 KiB
NASM
Raw Blame History

; MIDI PLAYER FOR MENUET v1.0
; Written in pure assembler by Ivushkin Andrey aka Willow
;
;
; Created: December 7, 2004
; Last changed: July 29, 2005
;
; COMPILE WITH FASM
PLAYLIST_PATH equ '/HD0/1/PLAYLIST.TXT'
APP_MEM equ 150*1024
IPC_PLAY equ 0xa1
IPC_PAUS equ 0xa2
IPC_TRIG equ 0xa3
IPC_UPDT equ 0xb1
IPC_NEXT equ 0xb2
LISTITEMS equ 40
WND_BACK equ 0x24263c
PLY equ 63
WND_HEIGHT equ (PLY+9*LISTITEMS+10)+25
BTNS_XY equ 14 shl 16+42
BTNS_SIZE equ 222 shl 16+17
BROWSE_X equ 10 shl 16+8
BROWSE_Y equ 26 shl 16+8
FN_XY equ 12 shl 16+15
BAR_WIDTH equ 251
BAR_X equ 10 shl 16
BAR_Y equ 29 shl 16+5
TOTALTIME_XY equ 124 shl 16+28
CURTIME_X equ 225 shl 16+40
CURTIME_Y equ 15 shl 16+11
CURTIME_XY equ 236 shl 16+15
NONCRITICAL_MSG equ 0
SOUND equ ON;OFF
OUTDUMP equ 0
OUTLINE equ 8
FL_SHUFFLE equ 0x01
FL_REPEAT equ 0x02
FL_HIDDEN equ 0x04
FL_MUTE equ 0x08
FL_REVERSE equ 0x10
FL_ADD equ 0x20
FL_PLAY equ 0x40
FL_LOCK equ 0x80
FL_BOTTRED equ 0x100
FL_MULSEL equ 0x8000
use32
org 0x0
db 'MENUET01'
dd 0x01
dd START
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)
lang fix en
;purge mov
include 'debug.inc'
include 'dlg.inc'
include 'playlist.inc'
include 'gif_lite.inc'
bottom:
file 'bottom.gif'
hdrimg:
file 'hdr.gif'
btns:
file 'buttons.gif'
START:
or [flag],FL_BOTTRED;+FL_MUTE
mov ecx,ipcarea
call init_ipc
mcall 40,1000111b
mov esi,btns
mov edi,btn_raw
call ReadGIF
mov esi,hdrimg
mov edi,hdr_raw
call ReadGIF
mov esi,bottom
mov edi,bottom_raw
call ReadGIF
call respawn
mcall 9,prcinfo,-1
mov edx,[ebx+30]
mov [parentPID],edx
mov esi,I_PARAM
cmp dword[esi],0
jnz .yesparam
call PL_load
cmp [list_count],0
je noparam
mov eax,[pl_ptr]
or word[eax],FL_MULSEL
jmp auto_load
.yesparam:
mov al,byte[esi]
cmp al,'/'
je .defact
mov [param],al
inc esi
.defact:
mov edi,filename;fnbuf
mov ecx,64
rep movsd
jmp open_file
clearpath:
newline
mov [fname_len],0
noparam:
mov [param],'W'
or [flag],FL_ADD
call fopen
get_path:
cmp byte[filename],0
jz still
open_file:
cmp [param],'W'
je .noplay
cmp [param],'H'
jne .nohidd
; or [flag],FL_PLAY
or [flag],FL_HIDDEN
call draw_window
and [flag],not FL_HIDDEN
call Shade
; jmp .noplay
.nohidd:
or [flag],FL_PLAY
.noplay:
xor eax,eax
mov [play_area],ax
mov [tick_count],eax
mov [delta],eax
mov [curnote],0x80
mov ecx,64
mov esi,filename
mov edi,I_PARAM
rep movsd
mov eax,70
mov ebx,file_info
mcall
add ebx,workarea
mov [midi_limit],ebx
mov edi,I_PARAM
call find_slash
mov [fn_ptr],edi
mov edi,filename
call str_len
mov [fname_len],eax
midi_kill:
call kill
include 'midilite.inc'
decode_end:
; dpd edi
; dps <13,10,'Notes='>
; sub edi,[midi_limit]
; shr edi,1
; dpd edi
dps ' Notes: max='
movzx eax,[max_note]
dpd eax
dps 'min='
movzx eax,[min_note]
dpd eax
newline
; sub esi,workarea
; jmp _close
.play:
call kill
call respawn
xor edx,edx
mov esi,[midi_limit]
mov [cur_ptr],esi
mov [cur_tick],edx
mov [delta],edx
.count_ticks:
lodsw
test eax,eax
jz .eof
and eax,0x7f
add edx,eax
jmp .count_ticks
.eof:
mov [tick_count],edx
if OUTDUMP eq 1
mov esi,[midi_limit]
call out_dump
end if
and [flag],not FL_LOCK
test [flag],FL_PLAY
jz .noplay
call draw_window
mcall 5,100
mov eax,IPC_PLAY
call ipc_send
.noplay:
test [flag],FL_ADD
jz red
mov esi,filename
mov ecx,[fname_len]
movzx eax,[list_count]
mov [play_num],eax
add_song:
call PL_add
and [flag],not FL_ADD
red:
call draw_window
still:
mov ecx,ipcarea
call init_ipc
mov eax,10
mcall
prc_event:
test eax,eax
jz still
.evt:
cmp eax,1
je red
cmp eax,2
je key
cmp eax,3
je button
cmp eax,7
jne still
movzx eax,byte[ipcarea+16]
cmp eax,IPC_UPDT
jne .noupdt
call draw_bar
jmp still
.noupdt:
cmp eax,IPC_NEXT
jne still
cmp [param],'H'
je _close
xor edx,edx
test [flag],FL_SHUFFLE
jz .noshuf
mcall 26,9
movzx ebx,byte[list_count]
div ebx
mov eax,edx
jmp play_
.noshuf:
test [flag],FL_REPEAT
jnz decode_end.play
mov eax,[play_num]
inc eax
cmp al,[list_count]
jb bList.next
mov eax,IPC_PAUS
call ipc_send
jmp red
if OUTDUMP eq 1
out_dump:
mov ecx,OUTLINE
.next_byte:
lodsd
bswap eax
dph eax
dps ' '
lodsd
bswap eax
dph eax
dps <13,10>
loop .next_byte
ret
end if
str_len:
; in: edi-str ptr
; out: eax-str length
push ecx edi
xor eax,eax
mov ecx,256
repne scasb
jecxz .nofn
sub edi,[esp]
mov eax,edi
.nofn:
pop edi ecx
ret
fopen:
or [flag],FL_LOCK
opendialog draw_window, ret_path, ret_path, filename
ret_path:
and [flag],not FL_LOCK
ret
include 'event.inc'
include "thread.inc"
include "draw.inc"
; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E5AEA4><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>:
dd -2 shl 16+4,251,12 shl 16,29 shl 16+5
dd 21,16
main_coo:
dd 14 shl 16, 42 shl 16,23 shl 16
dd 228 shl 16+38
dd 14 shl 16+10
dd 236 shl 16+15
btncoords:
dd 120 shl 16+20, 1 shl 16+15
dd 149 shl 16+44, 2 shl 16+12
dd 195 shl 16+26, 2 shl 16+12
dd -2 shl 16+4,54,63 shl 16,6 shl 16+4
dd 6,6
main_coo2:
dd 169 shl 16, 4 shl 16,9 shl 16
dd 121 shl 16+40
dd 3 shl 16+9
dd 130 shl 16+4
btncoords2:
dd 48 shl 16+6, 6
dd 2000 shl 16+44, 2 shl 16+12
dd 2000 shl 16+26, 2 shl 16+12
ipcarea rb 20
ipcarea2 rb 20
dots db ':-'
text db 'tone> chnl> <trk'
text_end:
coo dd main_coo
play_limit dd playlist
pl_ptr dd playlist
param db 'W'
curnote db 0x80
tick_count dd 0
dir_info:
dd 1
dd 0
dd 0
dd 1
dd dir_table
db 0
dd filename
play_area dw ?
file_info:
dd 0
dd 0
dd 0
fsize dd APP_MEM-2048-workarea ; max size
dd workarea
I_END: ; <20><><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>
filename:
rb 1024+16
prcinfo process_information
I_PARAM rb 256
childPID dd ?
parentPID dd ?
play_num dd ?
counter dd ?
flag dd ?
fname_len dd ?
fn_ptr dd ?
delta dd ?
cur_ptr dd ?
cur_tick dd ?
quarter dd ?
octave db ?
tempo dd ?
midi_limit dd ?
track_len dd ?
list_count db ?
cur_track db ?
sel_track db ?
ipcmsg db ?
fnbuf:
rb 1024
btn_raw rb 222*17*3+8
hdr_raw rb 275*29*3+8
bottom_raw rb 25*378*3+8
rb 4
playlist rb 256*LISTITEMS
IncludeUGlobals
dir_table rb 32+304
workarea: