Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 484 → Rev 485

/programs/media/midamp/trunk/macros.inc
File deleted
\ No newline at end of file
/programs/media/midamp/trunk/MIDAMP.ASM
63,7 → 63,7
listsel dd 0
channel dd 0
COLOR_ORDER equ MENUETOS
include 'macros.inc' ; decrease code size (optional)
include '..\..\..\macros.inc' ; decrease code size (optional)
lang fix en
;purge mov
include 'debug.inc'
153,7 → 153,7
rep movsd
mov eax,70
mov ebx,file_info
int 0x40
mcall
add ebx,workarea
mov [midi_limit],ebx
mov edi,I_PARAM
225,7 → 225,7
mov ecx,ipcarea
call init_ipc
mov eax,10
int 0x40
mcall
prc_event:
test eax,eax
jz still
/programs/media/midamp/trunk/build.bat
1,0 → 0,0
fasm MIDAMP.ASM MIDAMP
@fasm MIDAMP.ASM MIDAMP
@pause
/programs/media/midamp/trunk/debug.inc
55,7 → 55,7
mov cl,al
mov eax,63
mov ebx,1
int 0x40
mcall
popad
popf
ret
/programs/media/midamp/trunk/dlg.inc
23,7 → 23,7
; mov eax,9
; mov ebx,prcinfo
; mov ecx,-1
; int 0x40
; mcall
mov eax,[parentPID]
; convert eax bin to param dec
; mov eax,dword [prcinfo+30] ;offset of myPID
57,12 → 57,12
mov ebx,1 ; define IPC
mov ecx,path ; offset of area
mov edx,1024+16 ; size
int 0x40
mcall
 
; change wanted events list 7-bit IPC event
mov eax,40
mov ebx,01000111b
int 0x40
mcall
 
;
; STEP 3 run SYSTEM XTREE with parameters
70,7 → 70,7
 
mov eax,70
mov ebx,run_fileinfo
int 0x40
mcall
 
call redproc
 
78,7 → 78,7
getmesloop:
mov eax,23
mov ebx,50 ;0.5 sec
int 0x40
mcall
dec eax
jz mred
dec eax
92,7 → 92,7
mov ebx,prcinfo
mov ecx,-1
mov eax,9
int 0x40
mcall
mov ebp,eax
 
loox:
99,7 → 99,7
mov eax,9
mov ebx,prcinfo
mov ecx,ebp
int 0x40
mcall
mov eax,[DLGPID]
cmp [prcinfo+30],eax ;IF Dialog find
je dlg_is_work ;jmp to dlg_is_work
124,15 → 124,15
jmp getmesloop
mkey:
mov eax,2
int 0x40 ; read (eax=2)
mcall ; read (eax=2)
jmp getmesloop
mbutton:
mov eax,17 ; get id
int 0x40
mcall
cmp ah,1 ; button id=1 ?
jne getmesloop
mov eax,-1 ; close this program
int 0x40
or eax,-1 ; close this program
mcall
mgetmes:
 
; If dlg_pid_get then second message get jmp to still
/programs/media/midamp/trunk/draw.inc
18,7 → 18,7
mov ecx,[ebp-12]
mov edx,0x84706a
mov eax,13
int 0x40
mcall
mov esi,TOTALTIME_XY
mov eax,[tick_count]
call draw_total_time
44,7 → 44,7
draw_window:
mov eax,12
mov ebx,1
int 0x40
mcall
or [flag],FL_BOTTRED
xor eax,eax
mov ebx,100*65536+275
61,7 → 61,7
mov edx,WND_BACK
mov esi,edx
mov edi,edx
int 0x40
mcall
mov ecx,[channel]
shl ecx,4
add cl,[sel_track]
77,16 → 77,16
mov ebx,265 shl 16+7
mov ecx,3 shl 16+7
mov edx,1+1 shl 30
int 0x40 ; close button
mcall ; close button
sub ebx,10 shl 16
mov edx,100+1 shl 30
int 0x40 ; shade button-101
mcall ; shade button-101
sub ebx,10 shl 16
add edx,3
int 0x40 ; minimize button-103
mcall ; minimize button-103
sub ebx,239 shl 16
inc edx ; about button-104
int 0x40
mcall
xor esi,esi
xor edi,edi
mov ecx,3
101,7 → 101,7
add ecx,[ebp-24]
mov esi,0x2c2b46
mov edx,2+1 shl 29
int 0x40
mcall
 
shr eax,1
 
129,7 → 129,7
mov ebx,btn_raw+12
mov ecx,BTNS_SIZE
mov edx,BTNS_XY
int 0x40
mcall
.nohide2:
mov esi,FL_SHUFFLE
mov edi,btncoords+8
148,7 → 148,7
add ecx,4 shl 16
add ecx,[ebp+4]
mov cx,2
int 0x40
mcall
pop ecx
.el:
add edi,8
158,7 → 158,7
.enddraw:
mov eax,12
mov ebx,2
int 0x40
mcall
ret
 
draw_navigation:
176,7 → 176,7
mov ecx,[ebp+4]
add ecx,[ebp-4]
add ecx,edi
int 0x40
mcall
pop ecx
add ebx,[ebp+8]
inc edx
192,7 → 192,7
mov ecx,[edi+4]
add ecx,[ebp+4]
add ecx,[esp+4]
int 0x40
mcall
pop ecx
add edi,8
inc edx
230,7 → 230,7
mcall 47,0x20000,,esi,0xf000
pop ecx
add edx,17 shl 16
int 0x40
mcall
sub edx,5 shl 16
mcall 4,edx,esi,dots,1
popa
/programs/media/midamp/trunk/event.inc
17,7 → 17,7
 
key:
mov eax,2
int 0x40
mcall
mov edi,key_codes
cmp ah,48
jb .jump
111,7 → 111,7
 
button:
mov eax,17
int 0x40
mcall
cmp ah,20
jb .nobott
cmp ah,25
149,7 → 149,7
_close:
call kill
or eax,-1
int 0x40
mcall
 
bShade:
call Shade
169,7 → 169,7
mov ecx,ebx
mov edx,ebx
mov eax,67
int 0x40
mcall
ret
bMinimize:
; mcall 18,10
258,7 → 258,7
jz still
mov eax,37
mov ebx,1
int 0x40
mcall
mov ebp,[coo]
sub eax,[ebp-16]
shr eax,16
/programs/media/midamp/trunk/playlist.inc
15,7 → 15,7
mov eax,13
mov ecx,PL_Y-1 shl 16+4+9*LISTITEMS
xor edx,edx
int 0x40
mcall
movzx ecx,byte[list_count]
test ecx,ecx
jz .ex2
24,7 → 24,7
add ecx,PL_Y-1 shl 16-2
mov edx,11+1 shl 29+1 shl 30
mov eax,8
int 0x40
mcall
pop ecx
mov edi,[pl_ptr]
mov eax,4
45,7 → 45,7
add ecx,PL_Y-1 shl 16+8
mov edx,0xc6
mov eax,13
int 0x40
mcall
popa
.nosel:
pusha
61,7 → 61,7
mov ecx,PCOLOR
.int:
add ebx,25 shl 16
int 0x40
mcall
popa
add edi,esi
add ebx,9
144,7 → 144,7
; out: eax- item # (0..n)
mov ebx,1
mov eax,37
int 0x40
mcall
sub eax,PLY-1
mov ebx,9
div bl
240,7 → 240,7
and dword[ebx],0
mov dword[ebx+12],20*512
mov eax,70
int 0x40
mcall
test eax,eax
jz .ok1 ; ebx- filesize
cmp eax,6
310,7 → 310,7
mov [ebx+12],edi
mov byte[ebx],2
mov eax,70
int 0x40
mcall
.ex:
ret
 
/programs/media/midamp/trunk/thread.inc
29,7 → 29,7
mov esi,play_area
mov eax,55
mov ebx,eax
int 0x40
mcall
.nosound:
end if
movzx ebx,byte[play_area]
36,7 → 36,7
and ebx,0x7f
add [cur_tick],ebx
mov eax,23
int 0x40
mcall
cmp word[edi],0
jne .checkevt
mov eax,IPC_NEXT