WebSVN – Kolibri OS – Diff – /programs/media/cdp/trunk/cdp.asm


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                           ;
;    Audio CD player; code by Dmitry Yushko - dma@bn.by     ;
;                                                           ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
include "..\..\..\macros.inc"
include "lang.inc"
 
FALSE  equ 0
TRUE   equ 1
 
ESC_KEY   equ 27
LEFT_KEY  equ 176
RIGHT_KEY equ 179
 
NORMAL_PLAY  equ 0
REPEAT_TRACK equ 1
REPEAT_DISK  equ 2
SHUFFLE_DISK equ 3
 
COLOR_FUNC_BUTS equ 0x00dddddd
 
use32
 
                  org    0x0
                  db     'MENUET01'              ; 8 byte id
                  dd     0x01                      ; required os
                  dd     START                   ; program start
                  dd     I_END                   ; program image size
                  dd     0x2000                  ; required amount of memory
                  dd     0x2000                  ; esp = 0x7fff0
                  dd     0x0, 0x0              ; reserved=no extended header
 
START:
    call chk_cdrom                      ; start of execution
    call read_cd
 
  red:                          ; redraw
    call draw_window            ; at first, draw the window
still:
 
    mov  eax,23
    mov  ebx,10                 ; wait here for event
    mcall
 
    cmp  eax,1                  ; redraw request ?
    jz   red
    cmp  eax,2                  ; key in buffer ?
    jz   key
    cmp  eax,3                  ; button in buffer ?
    jz   button
 
    call draw_info
    cmp  [curr_trk],0
    je   @f
    call current_trk_time
   @@:
    jmp  still
 
 
 
 
 
 
  key:                          ; key
    mov  eax,2                  ; just read it and ignore
    mcall
 
;======  hotkeys:
    cmp  ah,0x61
    jb   @f
    cmp  ah,0x7a
    ja   @f
    and  ah,11011111b
   @@:
 
    cmp  ah,'P' ;PLAY
    jne  no_key_play
    call play_acd
    jmp still
 no_key_play:
 
    cmp ah,'S' ;STOP
    jne no_key_stop
    mov [if_paused],FALSE
    call stop_playing
    jmp still
 no_key_stop:
 
    cmp ah,'N' ;NEXT
    jne no_key_next
    call play_next_trk
    jmp still
 no_key_next:
 
    cmp ah,'B' ;BACK
    jne no_key_back
    call play_back_trk
    jmp still
 no_key_back:
 
    cmp  ah,'F' ;FORWARD
    jne  no_key_fwd
    call fast_forward
    jmp still
 no_key_fwd:
 
    cmp ah,'R' ;REWIND
    jne no_key_rewind
    call fast_rewind
    jmp still
 no_key_rewind:
 
    cmp ah,'M' ;MODE
    jne no_key_mode
    call change_mode
    jmp still
 no_key_mode:
 
 
    cmp ah,'L' ;READ PLAYLIST
    jne no_key_list
    mov [if_paused],FALSE
    mov [curr_trk],0
    call stop_playing
    call chk_cdrom
    call read_cd
    jmp still
 no_key_list:
 
    cmp ah,50      ;F1 key
    jz  itsahelpkey
 
    cmp ah,'H' ;HELP
    jne no_key_help
   itsahelpkey:
    cmp [flag],4
    je  still
    cmp [flag],1
    jne was_it_ok_false
    mov [was_it_ok],TRUE
    jmp flag4_done
   was_it_ok_false:
    mov [was_it_ok],FALSE
   flag4_done:
    mov [flag],4
    mov [help_screen],1
    call draw_window
    jmp still
 no_key_help:
 
 
    cmp ah,ESC_KEY
    jne no_esc_key
    cmp [flag],4
    jne still
    cmp [was_it_ok],FALSE
    jne was_it_ok_true
    mov [flag],0
    jmp end_esc_key
   was_it_ok_true:
    mov [flag],1
   end_esc_key:
    call draw_window
 no_esc_key:
 
    cmp ah,LEFT_KEY
    jne no_left_key
    cmp [flag],4
    jne still
    cmp [help_screen],1
    jz  still
    dec [help_screen]
    call draw_window
   no_left_key:
 
    cmp ah,RIGHT_KEY
    jne no_right_key
    cmp [flag],4
    jne still
    cmp [help_screen],3
    jz  still
    inc [help_screen]
    call draw_window
   no_right_key:
 
 
    jmp  still
 
 
  button:                       ; button
    mov  eax,17
    mcall
 
    cmp  ah,1                   ; button id=1 ?
    jnz  no_but_close
    mov  eax,24
    mov  ebx,3
    mcall
    mov  eax,0xffffffff         ; close this program
    mcall
  no_but_close:
 
    cmp  ah,2
    jne  no_but_play
    call play_acd
    jmp still
 no_but_play:
 
    cmp ah,3
    jne no_but_stop
    mov [if_paused],FALSE
    call stop_playing
    jmp still
 no_but_stop:
 
    cmp ah,4
    jne no_but_reread
    mov [curr_trk],0
    call chk_cdrom
    call read_cd
    mov [if_paused],FALSE
    call stop_playing
    jmp still
 no_but_reread:
 
    cmp ah,5
    jne no_but_next
    call play_next_trk
    jmp still
   no_but_next:
 
    cmp ah,6
    jne no_but_back
    call play_back_trk
    jmp still
   no_but_back:
 
    cmp ah,7
    jne no_but_mode
    call change_mode
    jmp still
   no_but_mode:
 
    cmp ah,8
    jne no_but_frew
    call fast_rewind
    jmp still
   no_but_frew:
 
    cmp ah,9
    jne no_but_ffwd
    call fast_forward
    jmp still
   no_but_ffwd:
 
    cmp  ah,10
    jb   no_but_track
    cmp  ah,40
    ja   no_but_track
    call read_cd
    cmp  [flag],1
    jne  no_but_track
    mov  cl,ah
    sub  cl,10
    mov  [curr_trk],cl
    mov  cl,[max_trk]
    mov  [shuftab],cl
    call stop_playing
    call renew_shuftab
    call play_n_track
    call rem_time_trk
    jmp still
  no_but_track:
 
    jmp  still
 
 
change_mode:
    cmp [mode],3
    jne inc_mode
    mov [mode],0
    jmp end_but_mode
   inc_mode:
    inc [mode]
   end_but_mode:
    call draw_info
ret
 
play_next_trk:
    cmp [curr_trk],0
    je  @play_next_trk
    cmp [if_paused],TRUE
    je  @play_next_trk
    cmp [mode],NORMAL_PLAY
    jne play_next_mode1
    xor eax,eax
    mov al,[curr_trk]
    cmp [max_trk],al
    je  @play_next_trk
    inc [curr_trk]
    cmp [if_stopped],TRUE
    je @play_next_trk
    call play_n_track
    jmp  @play_next_trk
   play_next_mode1:
    cmp [mode],REPEAT_TRACK
    jne play_next_mode2
    cmp [if_stopped],TRUE
    je @play_next_trk
    call play_n_track
    jmp  @play_next_trk
   play_next_mode2:
    cmp [mode],REPEAT_DISK
    jne play_next_mode3
    xor eax,eax
    mov al,[curr_trk]
    cmp [max_trk],al
    jne  play_next_mode2_go
    mov [curr_trk],1
    cmp [if_stopped],TRUE
    je @play_next_trk
    call play_n_track
    jmp  @play_next_trk
   play_next_mode2_go:
    inc  [curr_trk]
    cmp [if_stopped],TRUE
    je @play_next_trk
    call play_n_track
    jmp  @play_next_trk
   play_next_mode3:
    cmp  [mode],SHUFFLE_DISK
    jne  @play_next_trk
   call shuffle_track
   @play_next_trk:
ret
 
play_back_trk:
    cmp [curr_trk],0
    je  @play_back_trk
    cmp [if_paused],TRUE
    je  @play_back_trk
    cmp [mode],NORMAL_PLAY
    jne play_back_mode1
    xor eax,eax
    mov al,[curr_trk]
    cmp al,1
    je  @play_back_trk
    dec [curr_trk]
    cmp [if_stopped],TRUE
    je @play_next_trk
    call play_n_track
    jmp  @play_back_trk
   play_back_mode1:
    cmp [mode],REPEAT_TRACK
    jne play_back_mode2
    cmp [if_stopped],TRUE
    je @play_next_trk
    call play_n_track
    jmp  @play_back_trk
   play_back_mode2:
    cmp [mode],REPEAT_DISK
    jne play_back_mode3
    xor eax,eax
    mov al,[curr_trk]
    cmp al,1
    jne  play_back_mode2_go
    mov al,[max_trk]
    mov [curr_trk],al
    cmp [if_stopped],TRUE
    je @play_next_trk
    call play_n_track
    jmp  @play_back_trk
   play_back_mode2_go:
    dec  [curr_trk]
    cmp [if_stopped],TRUE
    je @play_next_trk
    call play_n_track
    jmp  @play_back_trk
   play_back_mode3: ;(shuffle)
;   call shuffle_track
   @play_back_trk:
ret
 
 
current_trk_time:
    cmp [if_stopped],TRUE
    je  menshe
    call get_uptime
    mov ebx,[stimtrk]
    sub eax,ebx
   ; eax now is seconds from track start * 100
    xor edx,edx
    mov ecx,100
    div ecx
    mov [curr_trk_pg_time],eax
    mov ebx,[curr_trk_length]
;    add eax,1 ;{inc curr time on 1 sec)
    cmp eax,ebx
    jb  menshe
    call stop_playing
    cmp [mode],SHUFFLE_DISK
    jne @f
    call shuffle_track
   @@:
    cmp [mode],REPEAT_TRACK
    je  @@mode_repeat_1
    mov al,[max_trk]
    cmp [curr_trk],al
    jb  @@next_trk_ok
    cmp [mode],REPEAT_DISK
    jne menshe
    mov [curr_trk],0
   @@next_trk_ok:
    inc [curr_trk]
   @@mode_repeat_1:
    call play_n_track
   menshe:
ret
 
 
rem_time_trk:
    call get_uptime
    mov  [stimtrk],eax
    ret
 
fast_forward:
    cmp [if_stopped],TRUE
    je end_ffwd
    mov eax,[curr_trk_pg_time]
    add eax,5
    cmp eax,[curr_trk_length]
    jae end_ffwd
    cmp [stimtrk],500
    jbe end_ffwd
    sub [stimtrk],500
    call current_trk_time
    call play_from_x_time
   end_ffwd:
ret
 
fast_rewind:
    cmp [if_stopped],TRUE
    je end_frew
    cmp [curr_trk_pg_time],5
    jbe end_frew
    add [stimtrk],500
    call current_trk_time
    call play_from_x_time
   end_frew:
ret
 
renew_shuftab:
    mov  ecx,40
   @rn:
    mov  [shuftab+ecx],cl
    loop @rn
    mov  cl,[max_trk]
    mov  [shuftab],cl
ret
 
 
shuffle_track:
   call get_uptime
   ror  eax,16
   cmp  eax,0
   je   shuffle_track
   xor  ecx,ecx
   mov  cl,[shuftab]
   cmp  ecx,1
   je   @enddsk
   xor  edx,edx
   div  ecx
   cmp  edx,0
   je   shuffle_track
   xor  ecx,ecx
   mov  cl,[max_trk]
 @main_loop:
   xor  eax,eax
   mov  al,[shuftab+ecx]
   cmp  al,0
   je   @f
   dec  edx
   cmp  edx,0
   jne  @f
   mov  cl,[shuftab]
   dec  cl
   mov  [shuftab],cl
   mov  [shuftab+eax],0
   mov  [curr_trk],al
   call play_n_track
   jmp  @endofshuffle
 @@:
   loop @main_loop
   jmp  @endofshuffle
 @enddsk:
   call stop_playing
 @endofshuffle:
 
ret
 
 
 
 
play_from_x_time:
    xor  ecx,ecx
    mov  cl,[curr_trk]
    shl  cl,3
    add  cl,1
    add  ecx,cdp
    mov  ebx,[ecx]
    mov  ecx,ebx
    and  ecx,0x00ffffff
 
    mov  eax,[curr_trk_pg_time]
    xor  edx,edx
    mov  ebx,60
    div  ebx
    add  cl,al ;mins
    add  dl,ch
    xor eax,eax
    mov al,dl
    xor edx,edx
    div ebx
    add cl,al   ;real min
    mov ch,dl   ;real sec
 
    mov  eax,24
    mov  ebx,1
    mcall
    ret
 
play_n_track:
    mov  [if_paused],FALSE
    mov  [if_stopped],FALSE
    mov  [curr_trk_pg_time],0
    call draw_window
;    mov  eax,26
;    mov  ebx,9
;    mcall
    call get_uptime
    mov  [stimtrk],eax
    xor  ebx,ebx
    xor  ecx,ecx
    mov  cl,[curr_trk]
    inc  cl
    shl  cl,3
    add  cl,1
    add  ecx,cdp
    mov  ebx,[ecx]
    and  ecx,0x00ffffff
    mov  ecx,ebx
   ;get_minutes:
   and  ecx,0x000000ff
   mov  eax,ecx
   imul eax,60
   ;get_seconds:
   mov ecx,ebx
   and ecx,0x0000ff00
   shr ecx,8
   add eax,ecx
   ;eax now is next pos in secs
   mov [next_pos_sec],eax
 ;eax now is current pos in secs
    xor  ebx,ebx
    xor  ecx,ecx
    mov  cl,[curr_trk]
    shl  cl,3
    add  cl,1
    add  ecx,cdp
    mov  ebx,[ecx]
    and  ecx,0x00ffffff
    mov  ecx,ebx
   ;get_minutes:
   and  ecx,0x000000ff
   mov  eax,ecx
   imul eax,60
   ;get_seconds:
   mov ecx,ebx
   and ecx,0x0000ff00
   shr ecx,8
   add eax,ecx
   ;eax now is current pos in secs
   mov ecx,[next_pos_sec]
   sub ecx,eax
   ;eax now is length of trk in sec
   mov [curr_trk_length],ecx
;now play that!
    mov ecx,ebx
    mov  eax,24
    mov  ebx,1
    mcall
    ret
 
 
play_acd:
    call chk_cdrom
    call read_cd
    call draw_window
    call renew_shuftab
    mov  cl,[curr_trk]
    cmp  cl,0
    jnz  play_acd_trk_ok
    mov  cl,[max_trk]
    mov  [shuftab],cl
    mov  [curr_trk],1
    jmp  playing_no_pause
   play_acd_trk_ok:
;   start_chk_on_pause:
    cmp  [if_paused],TRUE
    jne   pause_playing
    mov  [if_stopped],FALSE
    mov  [if_paused],FALSE
    call current_trk_time
    mov  eax,[curr_trk_pg_time]
    mov  ebx,[paused_time]
    sub  eax,ebx
    imul eax,100
    add  [stimtrk],eax
    call current_trk_time
    call play_from_x_time
    call draw_window
    jmp  end_play_acd
   pause_playing:
    cmp  [curr_trk_pg_time],0
    je   playing_no_pause
    mov  eax,[curr_trk_pg_time]
    mov  [paused_time],eax
    mov  [if_paused],TRUE
    call stop_playing
    call draw_window
    jmp  end_play_acd
   playing_no_pause:
    mov  [if_paused],FALSE
    call rem_time_trk
    call  play_n_track
    call  draw_window
   end_play_acd:
    ret
 
stop_playing:
    mov eax, 24
    mov ebx,3
    mcall
    mov  cl,[max_trk]
    mov  [shuftab],cl
    mov [if_stopped],TRUE
    cmp [if_paused],TRUE
    je  end_stop_playing
    mov [curr_trk_pg_time],0
   end_stop_playing:
    call draw_window
ret
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
draw_info:
    ;bar->
    mov eax,13
    mov ebx, 10 shl 16 + 41
    mov ecx,120 shl 16 + 9
    mov edx,0x00ffffff
    mcall
    mov ebx, 96 shl 16 + 11
    mcall
    mov ebx, 185 shl 16 + 11
    mcall
    mov ebx, 200 shl 16 + 11
    mcall
    mov ebx, 150 shl 16 + 11
    mcall
    mov ebx, 165 shl 16 + 11
    mcall
   ;bar<-
 
    mov  eax,4
    mov  ebx,10 shl 16 +120
    mov  ecx,0x00111111
    cmp  [mode],NORMAL_PLAY
    jne  info_mode_1
    mov  edx,mode_normal
    jmp  info_mode_end
   info_mode_1:
    cmp  [mode],REPEAT_TRACK
    jne  info_mode_2
    mov  edx,mode_repeat_1
    jmp  info_mode_end
   info_mode_2:
    cmp  [mode],REPEAT_DISK
    jne  info_mode_3
    mov  edx,mode_repeat_all
    jmp  info_mode_end
   info_mode_3:
    cmp  [mode],SHUFFLE_DISK
    jne  info_mode_end
    mov  edx,mode_shuffle
;    mov  ecx,0x00aaaaaa
;    mov  cl,[max_trk]
;    mov  [shuftab],cl
    jmp  info_mode_end
   info_mode_end:
    mov  esi,7
    mcall
 
  ;num info ->
    mov  eax,47
    xor  ebx,ebx
    mov  bl,0
    mov  bh,0
    or   ebx,0x20000            ;X0000 - number of digits to draw
    xor  ecx,ecx
    mov  cl, [curr_trk]            ;number to draw
    mov  edx,96 shl 16 + 120
    mov  esi,0x111111
    mcall
    mov  eax,[curr_trk_pg_time]
    xor  edx,edx
    mov  ecx,60
    div  ecx
    push edx
    mov  ecx,eax
    mov  eax,47
    mov  edx,150 shl 16 + 120
    mcall
    pop ecx
    mov  edx,165 shl 16 + 120
    mcall
    mov  eax,[curr_trk_length]
    xor  edx,edx
    mov  ecx,60
    div  ecx
    push edx
    mov  ecx,eax
    mov  eax,47
    mov  edx,185 shl 16 + 120
    mcall
    pop  ecx
    mov  edx,200 shl 16 + 120
    mcall
   ;num info <-
ret
 
 
draw_window:
 
    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,1                     ; 1, start of draw
    mcall
                                   ; DRAW WINDOW
    mov  eax,0                     ; function 0 : define and draw window
    mov  ebx, 50*65536+219         ; [x start] *65536 + [x size]
    mov  ecx,100*65536+168         ; [y start] *65536 + [y size]
    mov  edx,0x03ffffff            ; color of work area RRGGBB
    mov  esi,0x8099bbff            ; color of grab bar  RRGGBB,8->color glide
    mov  edi,0x0099bbee            ; color of frames    RRGGBB
    mcall
                                   ; WINDOW LABEL
    mov  eax,4                     ; function 4 : write text to window
    mov  ebx,8*65536+8             ; [x start] *65536 + [y start]
    mov  ecx,0x1000ffff            ; color of text RRGGBB
    mov  edx,labelt                ; pointer to text beginning
    mov  esi,labellen-labelt       ; text length
    mcall
 
    mov  eax,13                    ;bar
    mov  ebx,8 shl 16 + 204
    mov  ecx,28 shl 16 + 84
    mov  edx,0x000fe6f5
    mcall
 
    ;info ->
    mov  eax,4
    mov  ebx,63 shl 16 + 120
    mov  ecx,0x00111111
    mov  edx,playing_trk_info
    mov  esi,6
    mcall
    mov  ebx,120 shl 16 + 120
    mov  edx,playing_time_info
;    mov  esi,5
    dec  esi
    mcall
    mov  ebx,178 shl 16 + 120
    mov  edx,slash
    mov  esi,1
    mcall
    mov  ebx,196 shl 16 + 120
    mov  edx,column
;    mov  esi,1
    mcall
    mov  ebx,161 shl 16 + 120
    mov  edx,column
;    mov  esi,1
    mcall
    ;info <-
 
; button  MODE
    mov  eax,8
    mov  ebx,12*65536+20
    mov  ecx,135*65536+20
    mov  edx,7
    mov  esi,COLOR_FUNC_BUTS
    mcall
   ; text
    mov  eax,4
    mov  ebx,19*65536+142
    mov  ecx,0x100f73f5;ffff0f
    mov  edx,but_mode_lab
    mov  esi,1
    mcall
 
; button  BACK
    mov  eax,8
    mov  ebx,37*65536+20
    mov  ecx,135*65536+20
    mov  edx,6
    mov  esi,COLOR_FUNC_BUTS
    mcall
    mov [coord_x],51
    mov [coord_y],141
    call draw_left_triangle
    mov [coord_x],44
    call draw_vertical_line
 
; button  NEXT
    mov  eax,8
    mov  ebx,62*65536+20
    mov  ecx,135*65536+20
    mov  edx,5
    mov  esi,COLOR_FUNC_BUTS
    mcall
    mov [coord_x],68
    mov [coord_y],141
    call draw_right_triangle
    mov [coord_x],74
    call draw_vertical_line
 
; button  REWIND
    mov  eax,8
    mov  ebx,87*65536+20
    mov  ecx,135*65536+20
    mov  edx,8
    mov  esi,COLOR_FUNC_BUTS
    mcall
    mov [coord_x],102
    mov [coord_y],141
    call draw_left_triangle
    mov [coord_x],97
    call draw_left_triangle
 
; button   STOP
    mov  eax,8
    mov  ebx,112*65536+20
    mov  ecx,135*65536+20
    mov  edx,3
    mov  esi,COLOR_FUNC_BUTS
    mcall
    mov [coord_x],118
    mov [coord_y],142
    call draw_square
 
 
; button  PLAY
    mov  eax,8
    mov  ebx,137*65536+20
    mov  ecx,135*65536+20
    mov  edx,2
    mov  esi,COLOR_FUNC_BUTS
    mcall
    cmp [if_stopped],TRUE
    je  playing_paused
    cmp [if_paused],TRUE
    je  playing_paused
    mov [coord_x],144
    mov [coord_y],141
    call draw_vertical_line
    mov [coord_x],149
    call draw_vertical_line
    jmp end_draw_play
   playing_paused:
    mov [coord_x],144
    mov [coord_y],141
    call draw_right_triangle
   end_draw_play:
 
 
; button   FORWARD
    mov  eax,8
    mov  ebx,162*65536+20
    mov  ecx,135*65536+20
    mov  edx,9
    mov  esi,COLOR_FUNC_BUTS
    mcall
    mov [coord_x],167
    mov [coord_y],141
    call draw_right_triangle
    mov [coord_x],172
    call draw_right_triangle
 
; button  RE-READ PLAYLIST
    mov  eax,8
    mov  ebx,187*65536+20
    mov  ecx,135*65536+20
    mov  edx,4
    mov  esi,COLOR_FUNC_BUTS
    mcall
    mov  [coord_x],192
    mov  [coord_y],140
    call draw_vert_list_line
    dec  [coord_y]
    call draw_hor_list_line
    mov  [coord_y], 151
    call draw_hor_list_line
    mov  [coord_x],202
    mov  [coord_y],140
    call draw_vert_list_line
    mov  [coord_x],195
    mov  [coord_y], 142
    call draw_str_list_line
    mov  [coord_y],145
    call draw_str_list_line
    mov  [coord_y],148
    call draw_str_list_line
 
    cmp  [flag],1
    jne  flag2
;Draw tracs buttons
    xor  eax,eax
    xor  ebx,ebx
    mov  ecx,10
    mov  al,[cdp+3]
    mov  [max_trk],al
    xor  edi,edi
    mov  di,ax
    mov  [posx],12
    mov  [posy],32
    mov  [tracs],1
 draw_tracs_buttons:
    mov  eax,8
    xor  ebx,ebx
    mov  bl,[posx]
    shl  ebx,16
    add  ebx,15
    xor  ecx,ecx
    mov  cl,[posy]
    shl  ecx,16
    add  ecx,15
    xor  edx,edx
    mov  dx,[tracs]
    add  edx,10
    mov  esi,0xaaaaaa
    add  esi,edi
    mcall
   ;---draw tracs numbers
    mov  eax,47
    xor  ebx,ebx
    mov  bl,0
    or   ebx,0x20000            ;number of digits to draw
    xor  ecx,ecx
    mov  cx, [tracs]            ;number to draw
    xor  edx,edx
    mov  dl,[posx]
    add  dl,3
    shl  edx,16
    add  dl,[posy]
    add  dl,5
    mov  esi,0xffffff
    mcall
   ;---
    mov  al,[posx]
    add  al,20
    mov  [posx],al
    xor  eax,eax
    mov  ax,[tracs]
    mov  bl,10
    div  bl
    cmp  ah,0
    jnz  no_new_str
    mov  al,[posxstart]
    mov  [posx], al
    mov  al,[posy]
    add  al,20
    mov  [posy],al
  no_new_str:
    inc  [tracs]
    cmp  [tracs],41
    je   flag2
    dec  edi
    cmp  edi,0
    jnz  draw_tracs_buttons
 
  flag2:
    cmp [flag],2
    jne flag3
    mov eax,4
    mov ebx, 20 shl 16 +67
    mov ecx,0x10ffff00
    mov edx,define_cdrom
    mov esi,define_cdrom_len-define_cdrom
    mcall
  flag3:
    cmp [flag],3
    jne flag4
    mov eax,4
    mov ebx, 47 shl 16 +67
    mov ecx,0x10ffff00
    mov edx,no_cda
    mov esi,no_cda_len-no_cda
    mcall
  flag4:
    cmp [flag],4
    jne flag5
   ;help screen
   cmp [help_screen],1
   jnz @hs2
   mov edx,help1
   jmp @ehs
  @hs2:
   cmp [help_screen],2
   jnz @hs3
   mov edx,help2
   jmp @ehs
  @hs3:
   mov edx,help3
  @ehs:
   xor edi,edi
   mov ebx,25*65536+30
  new_line:
   mov eax,4
   mov ecx,0x111111
   mov esi,31
   mcall
  noline:
   add ebx,10
   add edx,31
   inc edi
   cmp [edx],byte 'x'
   jnz new_line
  flag5:
  call draw_info
 
    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,2                     ; 2, end of draw
    mcall
 
ret
 
draw_right_triangle:
    mov ebx,[coord_x]
    mov ecx,[coord_y]
    mov edx,0x00111111
    mov esi,5
    mov eax,9
   start_draw_pixel:
    push ebx
    cmp  eax,5
    jb   y_menshe_5
    mov  esi,10
    sub  esi,eax
    jmp  draw_pixel
   y_menshe_5:
    mov  esi,eax
   draw_pixel:
    dec  esi
    inc  ebx
    push eax
    mov  eax,1
    mcall
    pop  eax
    cmp  esi,0
    jne  draw_pixel
    pop  ebx
    dec  eax
    inc  ecx
    cmp  eax,0
    jne  start_draw_pixel
ret
 
draw_square:
    mov ebx,[coord_x]
    mov ecx,[coord_y]
    mov edx,0x00111111
    mov eax,7
   q_start_draw_pixel:
    push ebx
    mov  esi,7
   q_draw_pixel:
    dec  esi
    inc  ebx
    push eax
    mov  eax,1
    mcall
    pop  eax
    cmp  esi,0
    jne  q_draw_pixel
    pop  ebx
    dec  eax
    inc  ecx
    cmp  eax,0
    jne  q_start_draw_pixel
ret
 
draw_left_triangle:
    mov ebx,[coord_x]
    mov ecx,[coord_y]
    mov edx,0x00111111
    mov esi,5
    mov eax,9
   l_start_draw_pixel:
    push ebx
    cmp  eax,5
    jb   l_y_menshe_5
    mov  esi,10
    sub  esi,eax
    jmp  l_draw_pixel
   l_y_menshe_5:
    mov  esi,eax
   l_draw_pixel:
    dec  esi
    dec  ebx
    push eax
    mov  eax,1
    mcall
    pop  eax
    cmp  esi,0
    jne  l_draw_pixel
    pop  ebx
    dec  eax
    inc  ecx
    cmp  eax,0
    jne  l_start_draw_pixel
ret
 
draw_vertical_line:
    mov  eax,2
    mov  ebx,[coord_x]
    mov  edx,0x00111111
  @@draw_2_line:
    mov  ecx,[coord_y]
    dec  ecx
    mov  esi,9
   start_draw_vline:
    inc  ecx
    push eax
    mov  eax,1
    mcall
    pop  eax
    dec  esi
    cmp  esi,0
    jne  start_draw_vline
    dec  eax
    inc ebx
    cmp  eax,0
    jne  @@draw_2_line
ret
 
draw_vert_list_line:
    mov  eax,1
    mov  ebx,[coord_x]
    mov  edx,0x00111111
    mov  ecx,[coord_y]
    dec  ecx
    mov  esi,11
   vlstart_draw_vline:
    inc  ecx
    mcall
    dec  esi
    cmp  esi,0
    jne  vlstart_draw_vline
    dec  eax
    inc ebx
ret
 
draw_hor_list_line:
    mov  eax,1
    mov  ebx,[coord_x]
    mov  edx,0x00111111
    mov  ecx,[coord_y]
    dec  ebx
    mov  esi,11
   hlstart_draw_vline:
    inc  ebx
    mcall
    dec  esi
    cmp  esi,0
    jne  hlstart_draw_vline
    dec  eax
    inc ebx
ret
 
draw_str_list_line:
    mov  eax,1
    mov  ebx,[coord_x]
    mov  edx,0x00111111
    mov  ecx,[coord_y]
    dec  ebx
    mov  esi,5
   slstart_draw_vline:
    inc  ebx
    mcall
    dec  esi
    cmp  esi,0
    jne  slstart_draw_vline
    dec  eax
    inc ebx
ret
 
 
 chk_cdrom:
    mov eax,24
    mov ebx,1
    mcall
    cmp eax,0
    je chk_cdrom_ok
    mov [flag],2
    call draw_window
    jmp  chk_cdrom_end
   chk_cdrom_ok:
    mov [flag],0
   chk_cdrom_end:
ret
 
read_cd:
    mov [if_stopped],TRUE
    push ax
    cmp [flag],2
    je  read_cd_end
    mov al,101
    mov [cdp+3],al
    mov eax,24
    mov ebx,2
    mov ecx, cdp
    mov edx,321
    mcall
    mov [flag],1
    mov al,100
    cmp [cdp+3],al
    jb  read_cd_end
    mov [flag],3
    call draw_window
 read_cd_end:
    pop ax
ret
 
get_uptime:
    push ebx
    mov  eax,26
    mov  ebx,9
    mcall
    pop  ebx
ret
 
; DATA AREA
 
paused_time dd 0
if_paused db FALSE
coord_x dd 0
coord_y dd 0
flag db 0
tracs dw 1
posx db 12
posy db 32
posxstart db 12
curr_trk db 0
max_trk db 0
stimtrk dd 0
help_screen db 0
next_pos_sec dd 0
curr_trk_length dd 0
curr_trk_pg_time dd 0
was_it_ok db FALSE
if_stopped db FALSE
mode db NORMAL_PLAY
 
shuftab  db 00,01,02,03,04,05,06,07,08,09
         db 10,11,12,13,14,15,16,17,18,19
         db 20,21,22,23,24,25,26,27,28,29
         db 30,31,32,33,34,35,36,37,38,39
         db 40
 
but_mode_lab: db 'M'
 
playing_time_info: db 'Time '
slash  db '/'
column db ':'
mode_normal db     'Normal '
mode_repeat_1 db   'Rep trk'
mode_repeat_all db 'Rep all'
mode_shuffle db    'Shuffle'
playing_trk_info: db 'Track '
 
define_cdrom: db 'Please, define your CD-ROM'
define_cdrom_len:
 
no_cda: db 'Audio CD not found'
no_cda_len:
 
labelt:
   db   'CD player'
labellen:
 
help1: db 'HotKeys:                       '
       db 'H - this screen (Help)         '
       db 'P - Play/Pause current track   '
       db 'S - Stop playing               '
       db 'L - re-read playList           '
       db 'N - play Next track            '
       db 'B - play previous track (Back) '
       db '                        next ->'
       db 'x'
help2: db 'HotKeys:                       '
       db 'F - fast Forward track         '
       db 'R - fast Rewind track          '
       db 'M - change Mode                '
       db '                               '
       db '                               '
       db '                               '
       db '<- prev                 next ->'
       db 'x'
help3: db 'About:                         '
       db 'Audio CD Player ver 1.1beta-2  '
       db 'All questions, wishes and      '
       db 'advices please send to:        '
       db '       E-mail:  dma@bn.by      '
       db '       FidoNet: 2:450/258.75   '
       db '                               '
       db '<- prev                        '
       db 'x'
cdp:
 
 I_END:
 
;>
ret
 
 
draw_window:
 
>
 
>

Rev 147	Rev 485
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	; ;	2	; ;
3	; Audio CD player; code by Dmitry Yushko - dma@bn.by ;	3	; Audio CD player; code by Dmitry Yushko - dma@bn.by ;
4	; ;	4	; ;
5	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	5	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6		6
7	include "macros.inc"	7	include "..\..\..\macros.inc"
8	include "lang.inc"	8	include "lang.inc"
9		9
10	FALSE equ 0	10	FALSE equ 0
11	TRUE equ 1	11	TRUE equ 1
12		12
13	ESC_KEY equ 27	13	ESC_KEY equ 27
14	LEFT_KEY equ 176	14	LEFT_KEY equ 176
15	RIGHT_KEY equ 179	15	RIGHT_KEY equ 179
16		16
17	NORMAL_PLAY equ 0	17	NORMAL_PLAY equ 0
18	REPEAT_TRACK equ 1	18	REPEAT_TRACK equ 1
19	REPEAT_DISK equ 2	19	REPEAT_DISK equ 2
20	SHUFFLE_DISK equ 3	20	SHUFFLE_DISK equ 3
21		21
22	COLOR_FUNC_BUTS equ 0x00dddddd	22	COLOR_FUNC_BUTS equ 0x00dddddd
23		23
24	use32	24	use32
25		25
26	org 0x0	26	org 0x0
27	db 'MENUET01' ; 8 byte id	27	db 'MENUET01' ; 8 byte id
28	dd 0x01 ; required os	28	dd 0x01 ; required os
29	dd START ; program start	29	dd START ; program start
30	dd I_END ; program image size	30	dd I_END ; program image size
31	dd 0x2000 ; required amount of memory	31	dd 0x2000 ; required amount of memory
32	dd 0x2000 ; esp = 0x7fff0	32	dd 0x2000 ; esp = 0x7fff0
33	dd 0x0, 0x0 ; reserved=no extended header	33	dd 0x0, 0x0 ; reserved=no extended header
34		34
35	START:	35	START:
36	call chk_cdrom ; start of execution	36	call chk_cdrom ; start of execution
37	call read_cd	37	call read_cd
-		38
-		39	red: ; redraw
38	call draw_window ; at first, draw the window	40	call draw_window ; at first, draw the window
39	still:	41	still:
40		42
41	mov eax,23	43	mov eax,23
42	mov ebx,10 ; wait here for event	44	mov ebx,10 ; wait here for event
43	int 0x40	45	mcall
44		46
45	cmp eax,1 ; redraw request ?	47	cmp eax,1 ; redraw request ?
46	jz red	48	jz red
47	cmp eax,2 ; key in buffer ?	49	cmp eax,2 ; key in buffer ?
48	jz key	50	jz key
49	cmp eax,3 ; button in buffer ?	51	cmp eax,3 ; button in buffer ?
50	jz button	52	jz button
51		53
52	call draw_info	54	call draw_info
53	cmp [curr_trk],0	55	cmp [curr_trk],0
54	je @f	56	je @f
55	call current_trk_time	57	call current_trk_time
56	@@:	58	@@:
57	jmp still	59	jmp still
58		-
59	red: ; redraw	-
60	call draw_window	-
61		-
62	jmp still	60
63		61
64	key: ; key	62	key: ; key
65	mov eax,2 ; just read it and ignore	63	mov eax,2 ; just read it and ignore
66	int 0x40	64	mcall
67		65
68	;====== hotkeys:	66	;====== hotkeys:
69	cmp ah,0x61	67	cmp ah,0x61
70	jb @f	68	jb @f
71	cmp ah,0x7a	69	cmp ah,0x7a
72	ja @f	70	ja @f
73	and ah,11011111b	71	and ah,11011111b
74	@@:	72	@@:
75		73
76	cmp ah,'P' ;PLAY	74	cmp ah,'P' ;PLAY
77	jne no_key_play	75	jne no_key_play
78	call play_acd	76	call play_acd
79	jmp still	77	jmp still
80	no_key_play:	78	no_key_play:
81		79
82	cmp ah,'S' ;STOP	80	cmp ah,'S' ;STOP
83	jne no_key_stop	81	jne no_key_stop
84	mov [if_paused],FALSE	82	mov [if_paused],FALSE
85	call stop_playing	83	call stop_playing
86	jmp still	84	jmp still
87	no_key_stop:	85	no_key_stop:
88		86
89	cmp ah,'N' ;NEXT	87	cmp ah,'N' ;NEXT
90	jne no_key_next	88	jne no_key_next
91	call play_next_trk	89	call play_next_trk
92	jmp still	90	jmp still
93	no_key_next:	91	no_key_next:
94		92
95	cmp ah,'B' ;BACK	93	cmp ah,'B' ;BACK
96	jne no_key_back	94	jne no_key_back
97	call play_back_trk	95	call play_back_trk
98	jmp still	96	jmp still
99	no_key_back:	97	no_key_back:
100		98
101	cmp ah,'F' ;FORWARD	99	cmp ah,'F' ;FORWARD
102	jne no_key_fwd	100	jne no_key_fwd
103	call fast_forward	101	call fast_forward
104	jmp still	102	jmp still
105	no_key_fwd:	103	no_key_fwd:
106		104
107	cmp ah,'R' ;REWIND	105	cmp ah,'R' ;REWIND
108	jne no_key_rewind	106	jne no_key_rewind
109	call fast_rewind	107	call fast_rewind
110	jmp still	108	jmp still
111	no_key_rewind:	109	no_key_rewind:
112		110
113	cmp ah,'M' ;MODE	111	cmp ah,'M' ;MODE
114	jne no_key_mode	112	jne no_key_mode
115	call change_mode	113	call change_mode
116	jmp still	114	jmp still
117	no_key_mode:	115	no_key_mode:
118		116
119		117
120	cmp ah,'L' ;READ PLAYLIST	118	cmp ah,'L' ;READ PLAYLIST
121	jne no_key_list	119	jne no_key_list
122	mov [if_paused],FALSE	120	mov [if_paused],FALSE
123	mov [curr_trk],0	121	mov [curr_trk],0
124	call stop_playing	122	call stop_playing
125	call chk_cdrom	123	call chk_cdrom
126	call read_cd	124	call read_cd
127	jmp still	125	jmp still
128	no_key_list:	126	no_key_list:
129		127
130	cmp ah,50 ;F1 key	128	cmp ah,50 ;F1 key
131	jz itsahelpkey	129	jz itsahelpkey
132		130
133	cmp ah,'H' ;HELP	131	cmp ah,'H' ;HELP
134	jne no_key_help	132	jne no_key_help
135	itsahelpkey:	133	itsahelpkey:
136	cmp [flag],4	134	cmp [flag],4
137	je still	135	je still
138	cmp [flag],1	136	cmp [flag],1
139	jne was_it_ok_false	137	jne was_it_ok_false
140	mov [was_it_ok],TRUE	138	mov [was_it_ok],TRUE
141	jmp flag4_done	139	jmp flag4_done
142	was_it_ok_false:	140	was_it_ok_false:
143	mov [was_it_ok],FALSE	141	mov [was_it_ok],FALSE
144	flag4_done:	142	flag4_done:
145	mov [flag],4	143	mov [flag],4
146	mov [help_screen],1	144	mov [help_screen],1
147	call draw_window	145	call draw_window
148	jmp still	146	jmp still
149	no_key_help:	147	no_key_help:
150		148
151		149
152	cmp ah,ESC_KEY	150	cmp ah,ESC_KEY
153	jne no_esc_key	151	jne no_esc_key
154	cmp [flag],4	152	cmp [flag],4
155	jne still	153	jne still
156	cmp [was_it_ok],FALSE	154	cmp [was_it_ok],FALSE
157	jne was_it_ok_true	155	jne was_it_ok_true
158	mov [flag],0	156	mov [flag],0
159	jmp end_esc_key	157	jmp end_esc_key
160	was_it_ok_true:	158	was_it_ok_true:
161	mov [flag],1	159	mov [flag],1
162	end_esc_key:	160	end_esc_key:
163	call draw_window	161	call draw_window
164	no_esc_key:	162	no_esc_key:
165		163
166	cmp ah,LEFT_KEY	164	cmp ah,LEFT_KEY
167	jne no_left_key	165	jne no_left_key
168	cmp [flag],4	166	cmp [flag],4
169	jne still	167	jne still
170	cmp [help_screen],1	168	cmp [help_screen],1
171	jz still	169	jz still
172	dec [help_screen]	170	dec [help_screen]
173	call draw_window	171	call draw_window
174	no_left_key:	172	no_left_key:
175		173
176	cmp ah,RIGHT_KEY	174	cmp ah,RIGHT_KEY
177	jne no_right_key	175	jne no_right_key
178	cmp [flag],4	176	cmp [flag],4
179	jne still	177	jne still
180	cmp [help_screen],3	178	cmp [help_screen],3
181	jz still	179	jz still
182	inc [help_screen]	180	inc [help_screen]
183	call draw_window	181	call draw_window
184	no_right_key:	182	no_right_key:
185		183
186		184
187	jmp still	185	jmp still
188		186
189		187
190	button: ; button	188	button: ; button
191	mov eax,17	189	mov eax,17
192	int 0x40	190	mcall
193		191
194	cmp ah,1 ; button id=1 ?	192	cmp ah,1 ; button id=1 ?
195	jnz no_but_close	193	jnz no_but_close
196	mov eax,24	194	mov eax,24
197	mov ebx,3	195	mov ebx,3
198	int 0x40	196	mcall
199	mov eax,0xffffffff ; close this program	197	mov eax,0xffffffff ; close this program
200	int 0x40	198	mcall
201	no_but_close:	199	no_but_close:
202		200
203	cmp ah,2	201	cmp ah,2
204	jne no_but_play	202	jne no_but_play
205	call play_acd	203	call play_acd
206	jmp still	204	jmp still
207	no_but_play:	205	no_but_play:
208		206
209	cmp ah,3	207	cmp ah,3
210	jne no_but_stop	208	jne no_but_stop
211	mov [if_paused],FALSE	209	mov [if_paused],FALSE
212	call stop_playing	210	call stop_playing
213	jmp still	211	jmp still
214	no_but_stop:	212	no_but_stop:
215		213
216	cmp ah,4	214	cmp ah,4
217	jne no_but_reread	215	jne no_but_reread
218	mov [curr_trk],0	216	mov [curr_trk],0
219	call chk_cdrom	217	call chk_cdrom
220	call read_cd	218	call read_cd
221	mov [if_paused],FALSE	219	mov [if_paused],FALSE
222	call stop_playing	220	call stop_playing
223	jmp still	221	jmp still
224	no_but_reread:	222	no_but_reread:
225		223
226	cmp ah,5	224	cmp ah,5
227	jne no_but_next	225	jne no_but_next
228	call play_next_trk	226	call play_next_trk
229	jmp still	227	jmp still
230	no_but_next:	228	no_but_next:
231		229
232	cmp ah,6	230	cmp ah,6
233	jne no_but_back	231	jne no_but_back
234	call play_back_trk	232	call play_back_trk
235	jmp still	233	jmp still
236	no_but_back:	234	no_but_back:
237		235
238	cmp ah,7	236	cmp ah,7
239	jne no_but_mode	237	jne no_but_mode
240	call change_mode	238	call change_mode
241	jmp still	239	jmp still
242	no_but_mode:	240	no_but_mode:
243		241
244	cmp ah,8	242	cmp ah,8
245	jne no_but_frew	243	jne no_but_frew
246	call fast_rewind	244	call fast_rewind
247	jmp still	245	jmp still
248	no_but_frew:	246	no_but_frew:
249		247
250	cmp ah,9	248	cmp ah,9
251	jne no_but_ffwd	249	jne no_but_ffwd
252	call fast_forward	250	call fast_forward
253	jmp still	251	jmp still
254	no_but_ffwd:	252	no_but_ffwd:
255		253
256	cmp ah,10	254	cmp ah,10
257	jb no_but_track	255	jb no_but_track
258	cmp ah,40	256	cmp ah,40
259	ja no_but_track	257	ja no_but_track
260	call read_cd	258	call read_cd
261	cmp [flag],1	259	cmp [flag],1
262	jne no_but_track	260	jne no_but_track
263	mov cl,ah	261	mov cl,ah
264	sub cl,10	262	sub cl,10
265	mov [curr_trk],cl	263	mov [curr_trk],cl
266	mov cl,[max_trk]	264	mov cl,[max_trk]
267	mov [shuftab],cl	265	mov [shuftab],cl
268	call stop_playing	266	call stop_playing
269	call renew_shuftab	267	call renew_shuftab
270	call play_n_track	268	call play_n_track
271	call rem_time_trk	269	call rem_time_trk
272	jmp still	270	jmp still
273	no_but_track:	271	no_but_track:
274		272
275	jmp still	273	jmp still
276		274
277		275
278	change_mode:	276	change_mode:
279	cmp [mode],3	277	cmp [mode],3
280	jne inc_mode	278	jne inc_mode
281	mov [mode],0	279	mov [mode],0
282	jmp end_but_mode	280	jmp end_but_mode
283	inc_mode:	281	inc_mode:
284	inc [mode]	282	inc [mode]
285	end_but_mode:	283	end_but_mode:
286	call draw_info	284	call draw_info
287	ret	285	ret
288		286
289	play_next_trk:	287	play_next_trk:
290	cmp [curr_trk],0	288	cmp [curr_trk],0
291	je @play_next_trk	289	je @play_next_trk
292	cmp [if_paused],TRUE	290	cmp [if_paused],TRUE
293	je @play_next_trk	291	je @play_next_trk
294	cmp [mode],NORMAL_PLAY	292	cmp [mode],NORMAL_PLAY
295	jne play_next_mode1	293	jne play_next_mode1
296	xor eax,eax	294	xor eax,eax
297	mov al,[curr_trk]	295	mov al,[curr_trk]
298	cmp [max_trk],al	296	cmp [max_trk],al
299	je @play_next_trk	297	je @play_next_trk
300	inc [curr_trk]	298	inc [curr_trk]
301	cmp [if_stopped],TRUE	299	cmp [if_stopped],TRUE
302	je @play_next_trk	300	je @play_next_trk
303	call play_n_track	301	call play_n_track
304	jmp @play_next_trk	302	jmp @play_next_trk
305	play_next_mode1:	303	play_next_mode1:
306	cmp [mode],REPEAT_TRACK	304	cmp [mode],REPEAT_TRACK
307	jne play_next_mode2	305	jne play_next_mode2
308	cmp [if_stopped],TRUE	306	cmp [if_stopped],TRUE
309	je @play_next_trk	307	je @play_next_trk
310	call play_n_track	308	call play_n_track
311	jmp @play_next_trk	309	jmp @play_next_trk
312	play_next_mode2:	310	play_next_mode2:
313	cmp [mode],REPEAT_DISK	311	cmp [mode],REPEAT_DISK
314	jne play_next_mode3	312	jne play_next_mode3
315	xor eax,eax	313	xor eax,eax
316	mov al,[curr_trk]	314	mov al,[curr_trk]
317	cmp [max_trk],al	315	cmp [max_trk],al
318	jne play_next_mode2_go	316	jne play_next_mode2_go
319	mov [curr_trk],1	317	mov [curr_trk],1
320	cmp [if_stopped],TRUE	318	cmp [if_stopped],TRUE
321	je @play_next_trk	319	je @play_next_trk
322	call play_n_track	320	call play_n_track
323	jmp @play_next_trk	321	jmp @play_next_trk
324	play_next_mode2_go:	322	play_next_mode2_go:
325	inc [curr_trk]	323	inc [curr_trk]
326	cmp [if_stopped],TRUE	324	cmp [if_stopped],TRUE
327	je @play_next_trk	325	je @play_next_trk
328	call play_n_track	326	call play_n_track
329	jmp @play_next_trk	327	jmp @play_next_trk
330	play_next_mode3:	328	play_next_mode3:
331	cmp [mode],SHUFFLE_DISK	329	cmp [mode],SHUFFLE_DISK
332	jne @play_next_trk	330	jne @play_next_trk
333	call shuffle_track	331	call shuffle_track
334	@play_next_trk:	332	@play_next_trk:
335	ret	333	ret
336		334
337	play_back_trk:	335	play_back_trk:
338	cmp [curr_trk],0	336	cmp [curr_trk],0
339	je @play_back_trk	337	je @play_back_trk
340	cmp [if_paused],TRUE	338	cmp [if_paused],TRUE
341	je @play_back_trk	339	je @play_back_trk
342	cmp [mode],NORMAL_PLAY	340	cmp [mode],NORMAL_PLAY
343	jne play_back_mode1	341	jne play_back_mode1
344	xor eax,eax	342	xor eax,eax
345	mov al,[curr_trk]	343	mov al,[curr_trk]
346	cmp al,1	344	cmp al,1
347	je @play_back_trk	345	je @play_back_trk
348	dec [curr_trk]	346	dec [curr_trk]
349	cmp [if_stopped],TRUE	347	cmp [if_stopped],TRUE
350	je @play_next_trk	348	je @play_next_trk
351	call play_n_track	349	call play_n_track
352	jmp @play_back_trk	350	jmp @play_back_trk
353	play_back_mode1:	351	play_back_mode1:
354	cmp [mode],REPEAT_TRACK	352	cmp [mode],REPEAT_TRACK
355	jne play_back_mode2	353	jne play_back_mode2
356	cmp [if_stopped],TRUE	354	cmp [if_stopped],TRUE
357	je @play_next_trk	355	je @play_next_trk
358	call play_n_track	356	call play_n_track
359	jmp @play_back_trk	357	jmp @play_back_trk
360	play_back_mode2:	358	play_back_mode2:
361	cmp [mode],REPEAT_DISK	359	cmp [mode],REPEAT_DISK
362	jne play_back_mode3	360	jne play_back_mode3
363	xor eax,eax	361	xor eax,eax
364	mov al,[curr_trk]	362	mov al,[curr_trk]
365	cmp al,1	363	cmp al,1
366	jne play_back_mode2_go	364	jne play_back_mode2_go
367	mov al,[max_trk]	365	mov al,[max_trk]
368	mov [curr_trk],al	366	mov [curr_trk],al
369	cmp [if_stopped],TRUE	367	cmp [if_stopped],TRUE
370	je @play_next_trk	368	je @play_next_trk
371	call play_n_track	369	call play_n_track
372	jmp @play_back_trk	370	jmp @play_back_trk
373	play_back_mode2_go:	371	play_back_mode2_go:
374	dec [curr_trk]	372	dec [curr_trk]
375	cmp [if_stopped],TRUE	373	cmp [if_stopped],TRUE
376	je @play_next_trk	374	je @play_next_trk
377	call play_n_track	375	call play_n_track
378	jmp @play_back_trk	376	jmp @play_back_trk
379	play_back_mode3: ;(shuffle)	377	play_back_mode3: ;(shuffle)
380	; call shuffle_track	378	; call shuffle_track
381	@play_back_trk:	379	@play_back_trk:
382	ret	380	ret
383		381
384		382
385	current_trk_time:	383	current_trk_time:
386	cmp [if_stopped],TRUE	384	cmp [if_stopped],TRUE
387	je menshe	385	je menshe
388	call get_uptime	386	call get_uptime
389	mov ebx,[stimtrk]	387	mov ebx,[stimtrk]
390	sub eax,ebx	388	sub eax,ebx
391	; eax now is seconds from track start * 100	389	; eax now is seconds from track start * 100
392	xor edx,edx	390	xor edx,edx
393	mov ecx,100	391	mov ecx,100
394	div ecx	392	div ecx
395	mov [curr_trk_pg_time],eax	393	mov [curr_trk_pg_time],eax
396	mov ebx,[curr_trk_length]	394	mov ebx,[curr_trk_length]
397	; add eax,1 ;{inc curr time on 1 sec)	395	; add eax,1 ;{inc curr time on 1 sec)
398	cmp eax,ebx	396	cmp eax,ebx
399	jb menshe	397	jb menshe
400	call stop_playing	398	call stop_playing
401	cmp [mode],SHUFFLE_DISK	399	cmp [mode],SHUFFLE_DISK
402	jne @f	400	jne @f
403	call shuffle_track	401	call shuffle_track
404	@@:	402	@@:
405	cmp [mode],REPEAT_TRACK	403	cmp [mode],REPEAT_TRACK
406	je @@mode_repeat_1	404	je @@mode_repeat_1
407	mov al,[max_trk]	405	mov al,[max_trk]
408	cmp [curr_trk],al	406	cmp [curr_trk],al
409	jb @@next_trk_ok	407	jb @@next_trk_ok
410	cmp [mode],REPEAT_DISK	408	cmp [mode],REPEAT_DISK
411	jne menshe	409	jne menshe
412	mov [curr_trk],0	410	mov [curr_trk],0
413	@@next_trk_ok:	411	@@next_trk_ok:
414	inc [curr_trk]	412	inc [curr_trk]
415	@@mode_repeat_1:	413	@@mode_repeat_1:
416	call play_n_track	414	call play_n_track
417	menshe:	415	menshe:
418	ret	416	ret
419		417
420		418
421	rem_time_trk:	419	rem_time_trk:
422	call get_uptime	420	call get_uptime
423	mov [stimtrk],eax	421	mov [stimtrk],eax
424	ret	422	ret
425		423
426	fast_forward:	424	fast_forward:
427	cmp [if_stopped],TRUE	425	cmp [if_stopped],TRUE
428	je end_ffwd	426	je end_ffwd
429	mov eax,[curr_trk_pg_time]	427	mov eax,[curr_trk_pg_time]
430	add eax,5	428	add eax,5
431	cmp eax,[curr_trk_length]	429	cmp eax,[curr_trk_length]
432	jae end_ffwd	430	jae end_ffwd
433	cmp [stimtrk],500	431	cmp [stimtrk],500
434	jbe end_ffwd	432	jbe end_ffwd
435	sub [stimtrk],500	433	sub [stimtrk],500
436	call current_trk_time	434	call current_trk_time
437	call play_from_x_time	435	call play_from_x_time
438	end_ffwd:	436	end_ffwd:
439	ret	437	ret
440		438
441	fast_rewind:	439	fast_rewind:
442	cmp [if_stopped],TRUE	440	cmp [if_stopped],TRUE
443	je end_frew	441	je end_frew
444	cmp [curr_trk_pg_time],5	442	cmp [curr_trk_pg_time],5
445	jbe end_frew	443	jbe end_frew
446	add [stimtrk],500	444	add [stimtrk],500
447	call current_trk_time	445	call current_trk_time
448	call play_from_x_time	446	call play_from_x_time
449	end_frew:	447	end_frew:
450	ret	448	ret
451		449
452	renew_shuftab:	450	renew_shuftab:
453	mov ecx,40	451	mov ecx,40
454	@rn:	452	@rn:
455	mov [shuftab+ecx],cl	453	mov [shuftab+ecx],cl
456	loop @rn	454	loop @rn
457	mov cl,[max_trk]	455	mov cl,[max_trk]
458	mov [shuftab],cl	456	mov [shuftab],cl
459	ret	457	ret
460		458
461		459
462	shuffle_track:	460	shuffle_track:
463	call get_uptime	461	call get_uptime
464	ror eax,16	462	ror eax,16
465	cmp eax,0	463	cmp eax,0
466	je shuffle_track	464	je shuffle_track
467	xor ecx,ecx	465	xor ecx,ecx
468	mov cl,[shuftab]	466	mov cl,[shuftab]
469	cmp ecx,1	467	cmp ecx,1
470	je @enddsk	468	je @enddsk
471	xor edx,edx	469	xor edx,edx
472	div ecx	470	div ecx
473	cmp edx,0	471	cmp edx,0
474	je shuffle_track	472	je shuffle_track
475	xor ecx,ecx	473	xor ecx,ecx
476	mov cl,[max_trk]	474	mov cl,[max_trk]
477	@main_loop:	475	@main_loop:
478	xor eax,eax	476	xor eax,eax
479	mov al,[shuftab+ecx]	477	mov al,[shuftab+ecx]
480	cmp al,0	478	cmp al,0
481	je @f	479	je @f
482	dec edx	480	dec edx
483	cmp edx,0	481	cmp edx,0
484	jne @f	482	jne @f
485	mov cl,[shuftab]	483	mov cl,[shuftab]
486	dec cl	484	dec cl
487	mov [shuftab],cl	485	mov [shuftab],cl
488	mov [shuftab+eax],0	486	mov [shuftab+eax],0
489	mov [curr_trk],al	487	mov [curr_trk],al
490	call play_n_track	488	call play_n_track
491	jmp @endofshuffle	489	jmp @endofshuffle
492	@@:	490	@@:
493	loop @main_loop	491	loop @main_loop
494	jmp @endofshuffle	492	jmp @endofshuffle
495	@enddsk:	493	@enddsk:
496	call stop_playing	494	call stop_playing
497	@endofshuffle:	495	@endofshuffle:
498		496

Subversion Repositories Kolibri OS

(root)/programs/media/cdp/trunk/cdp.asm – Rev 147 → 485