Rev 485 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 485 | Rev 1588 | ||
---|---|---|---|
Line 10... | Line 10... | ||
10 | dw bList.stop, kLoad, Xpress, Rewind.space, auto_load,Rewind, Rewind.space |
10 | dw bList.stop, kLoad, Xpress, Rewind.space, auto_load,Rewind, Rewind.space |
11 | dw bReverse, bShade, bList, bBar, bOctU, bOctD, bSelTrack, bSelChannel |
11 | dw bReverse, bShade, bList, bBar, bOctU, bOctD, bSelTrack, bSelChannel |
12 | ; bottom actions |
12 | ; bottom actions |
13 | dw kDel,bLsave,bLload,bRemAll,bAdd,bAddDir,bSelZero,bInvSel,bSelAll,bRemCrop |
13 | dw kDel,bLsave,bLload,bRemAll,bAdd,bAddDir,bSelZero,bInvSel,bSelAll,bRemCrop |
14 | dw bMinimize,bAbout,bResetTrk |
14 | dw bMinimize,bAbout,bResetTrk |
15 | - | ||
- | 15 | ;------------------------------------------------------------------------ |
|
16 | jmps_end: |
16 | jmps_end: |
Line 17... | Line 17... | ||
17 | 17 | ||
18 | key: |
18 | key: |
19 | mov eax,2 |
19 | mov eax,2 |
Line 106... | Line 106... | ||
106 | cmp [tick_count],0 |
106 | cmp [tick_count],0 |
107 | jz still |
107 | jz still |
108 | mov eax,IPC_TRIG |
108 | mov eax,IPC_TRIG |
109 | call ipc_send |
109 | call ipc_send |
110 | jmp red |
110 | jmp red |
111 | - | ||
- | 111 | ;------------------------------------------------------------------------ |
|
112 | button: |
112 | button: |
113 | mov eax,17 |
113 | mov eax,17 |
114 | mcall |
114 | mcall |
115 | cmp ah,20 |
115 | cmp ah,20 |
116 | jb .nobott |
116 | jb .nobott |
Line 169... | Line 169... | ||
169 | mov ecx,ebx |
169 | mov ecx,ebx |
170 | mov edx,ebx |
170 | mov edx,ebx |
171 | mov eax,67 |
171 | mov eax,67 |
172 | mcall |
172 | mcall |
173 | ret |
173 | ret |
- | 174 | ;------------------------------------------------------------------------ |
|
174 | bMinimize: |
175 | bMinimize: |
175 | ; mcall 18,10 |
176 | ; mcall 18,10 |
176 | jmp still |
177 | jmp still |
- | 178 | ;------------------------------------------------------------------------ |
|
177 | bList: |
179 | bList: |
178 | mov [popup],-1 |
180 | mov [popup],-1 |
179 | mov edx,[listsel] |
181 | mov edx,[listsel] |
180 | call PL_getitemclick |
182 | call PL_getitemclick |
181 | mov [listsel],eax |
183 | mov [listsel],eax |
Line 251... | Line 253... | ||
251 | mov eax,[play_num] |
253 | mov eax,[play_num] |
252 | inc eax |
254 | inc eax |
253 | cmp al,[list_count] |
255 | cmp al,[list_count] |
254 | jae still |
256 | jae still |
255 | jmp play_ |
257 | jmp play_ |
- | 258 | ;------------------------------------------------------------------------ |
|
256 | bBar: |
259 | bBar: |
257 | cmp [tick_count],0 |
260 | cmp [tick_count],0 |
258 | jz still |
261 | jz still |
259 | mov eax,37 |
262 | mov eax,37 |
260 | mov ebx,1 |
263 | mov ebx,1 |
Line 279... | Line 282... | ||
279 | mov [cur_tick],ecx |
282 | mov [cur_tick],ecx |
280 | sub esi,2 |
283 | sub esi,2 |
281 | mov [cur_ptr],esi |
284 | mov [cur_ptr],esi |
282 | drw: |
285 | drw: |
283 | jmp red |
286 | jmp red |
284 | - | ||
- | 287 | ;------------------------------------------------------------------------ |
|
285 | OCT_CH equ 3 |
288 | OCT_CH equ 3 |
- | 289 | ;------------------------------------------------------------------------ |
|
286 | bOctU: |
290 | bOctU: |
287 | add [octave],OCT_CH |
291 | add [octave],OCT_CH |
288 | jmp midi_kill |
292 | jmp midi_kill |
289 | bOctD: |
293 | bOctD: |
290 | sub [octave],OCT_CH |
294 | sub [octave],OCT_CH |
Line 318... | Line 322... | ||
318 | jmp red |
322 | jmp red |
319 | bRemAll: |
323 | bRemAll: |
320 | and [list_count],0 |
324 | and [list_count],0 |
321 | mov [play_limit],playlist-2 |
325 | mov [play_limit],playlist-2 |
322 | jmp red |
326 | jmp red |
- | 327 | ;------------------------------------------------------------------------ |
|
323 | bAdd: |
328 | bAdd: |
324 | movzx eax,[list_count] |
329 | movzx eax,[list_count] |
325 | dpd eax |
330 | dpd eax |
- | 331 | mov [OpenDialog_data.type],0 ; Open |
|
- | 332 | or [flag],FL_LOCK |
|
- | 333 | push dword OpenDialog_data |
|
326 | call fopen |
334 | call [OpenDialog_Start] |
- | 335 | and [flag],not FL_LOCK |
|
- | 336 | cmp [OpenDialog_data.status],1 |
|
- | 337 | jne still |
|
- | 338 | ||
327 | mov edi,filename |
339 | mov edi,filename |
328 | cmp byte[edi],0 |
340 | cmp byte[edi],0 |
329 | jz still |
341 | jz still |
330 | call str_len |
342 | call str_len |
331 | xchg eax,ecx |
343 | xchg eax,ecx |
332 | mov esi,edi |
344 | mov esi,edi |
333 | jmp add_song |
345 | jmp add_song |
- | 346 | ;------------------------------------------------------------------------ |
|
334 | bAddDir: |
347 | bAddDir: |
335 | call fopen |
348 | mov [OpenDialog_data.type],2 ; Dir |
336 | mov edi,filename |
349 | or [flag],FL_LOCK |
337 | cmp byte[edi],0 |
350 | push dword OpenDialog_data |
338 | jz still |
351 | call [OpenDialog_Start] |
339 | call find_slash |
352 | and [flag],not FL_LOCK |
340 | lea edx,[edi-filename+fnbuf] ; edx -> '/' |
353 | cmp [OpenDialog_data.status],1 |
341 | and byte[edi],0 |
354 | jne still |
- | 355 | ||
342 | mov esi,filename |
356 | mov esi,filename |
343 | mov edi,fnbuf |
357 | mov edi,fnbuf |
- | 358 | xor eax,eax |
|
- | 359 | @@: |
|
- | 360 | cld |
|
- | 361 | lodsb |
|
- | 362 | stosb |
|
- | 363 | test eax,eax |
|
- | 364 | jnz @r |
|
344 | mov ecx,1024/4 |
365 | mov [edi-1],byte '/' |
345 | rep movsd |
366 | mov edx,edi |
- | 367 | ||
346 | and dword [dir_info+4], 0 |
368 | and dword [dir_info+4], 0 |
347 | .nxt2: |
369 | .nxt2: |
348 | mcall 70, dir_info |
370 | mcall 70, dir_info |
349 | cmp ebx, 1 |
371 | test eax,eax |
350 | jnz red ;still |
372 | jnz red |
- | 373 | ||
351 | test byte [dir_table+32], 11000b ; exclude directories & vol label |
374 | test byte [dir_table+32], 11000b ; exclude directories & vol label |
352 | jnz .no |
375 | jnz .no |
353 | mov edi, dir_table+32+40 |
376 | mov edi, dir_table+32+40 |
354 | mov esi, edi |
377 | mov esi, edi |
355 | xor eax, eax |
378 | xor eax, eax |
Line 368... | Line 391... | ||
368 | mov ecx, edi |
391 | mov ecx, edi |
369 | mov esi, fnbuf |
392 | mov esi, fnbuf |
370 | sub ecx, esi |
393 | sub ecx, esi |
371 | call PL_add |
394 | call PL_add |
372 | .no: |
395 | .no: |
- | 396 | mov eax,[dir_info+4] |
|
- | 397 | cmp eax,[dir_table+8] |
|
- | 398 | je red |
|
373 | inc dword [dir_info+4] |
399 | inc dword [dir_info+4] |
374 | jmp .nxt2 |
400 | jmp .nxt2 |
- | 401 | ;------------------------------------------------------------------------ |
|
375 | bSelZero: |
402 | bSelZero: |
376 | call PL_clearsel |
403 | call PL_clearsel |
377 | jmp red |
404 | jmp red |
378 | bInvSel: |
405 | bInvSel: |
379 | call PL_invsel |
406 | call PL_invsel |
Line 388... | Line 415... | ||
388 | jmp bSelAll |
415 | jmp bSelAll |
389 | bAbout: |
416 | bAbout: |
390 | mov edx,about1 |
417 | mov edx,about1 |
391 | call debug_outstr |
418 | call debug_outstr |
392 | jmp still |
419 | jmp still |
393 | - | ||
- | 420 | ;------------------------------------------------------------------------ |
|
394 | get_num: ; out: eax-number entered |
421 | get_num: ; out: eax-number entered |
395 | or [flag],FL_LOCK |
422 | or [flag],FL_LOCK |
396 | mcall 10 |
423 | mcall 10 |
397 | dpd eax |
424 | dpd eax |
398 | cmp eax,1 |
425 | cmp eax,1 |
Line 416... | Line 443... | ||
416 | .nokey: |
443 | .nokey: |
417 | cmp eax,3 |
444 | cmp eax,3 |
418 | jne get_num |
445 | jne get_num |
419 | mcall 17 |
446 | mcall 17 |
420 | jmp get_num |
447 | jmp get_num |
421 | - | ||
- | 448 | ;------------------------------------------------------------------------ |
|
422 | find_slash: |
449 | find_slash: |
423 | ; in: edi-filename, out: edi-slash ptr-1 |
450 | ; in: edi-filename, out: edi-slash ptr-1 |
424 | push eax ecx |
451 | push eax ecx |
425 | call str_len |
452 | call str_len |
426 | mov ecx,eax |
453 | mov ecx,eax |
Line 430... | Line 457... | ||
430 | repne scasb |
457 | repne scasb |
431 | cld |
458 | cld |
432 | add edi,2 |
459 | add edi,2 |
433 | pop ecx eax |
460 | pop ecx eax |
434 | ret13,10,'Both>13,10,'Track#'>13,10,'Channel#'> |
461 | ret |
435 | - | ||
- | 462 | ;------------------------------------------------------------------------13,10,'Both>13,10,'Track#'>13,10,'Channel#'> |
|
436 | 463 |