272 lines
4.6 KiB
PHP
272 lines
4.6 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
|
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
$Revision$
|
|
|
|
|
|
sys_cd_audio:
|
|
|
|
cmp word [cdbase],word 0
|
|
jnz @f
|
|
mov eax,1
|
|
ret
|
|
@@:
|
|
|
|
; eax=1 cdplay at ebx 0x00FFSSMM
|
|
; eax=2 get tracklist size of ecx to [ebx]
|
|
; eax=3 stop/pause playing
|
|
|
|
cmp eax,1
|
|
jnz nocdp
|
|
call sys_cdplay
|
|
ret
|
|
nocdp:
|
|
|
|
cmp eax,2
|
|
jnz nocdtl
|
|
mov edi,[TASK_BASE]
|
|
add edi,TASKDATA.mem_start
|
|
add ebx,[edi]
|
|
call sys_cdtracklist
|
|
ret
|
|
nocdtl:
|
|
|
|
cmp eax,3
|
|
jnz nocdpause
|
|
call sys_cdpause
|
|
ret
|
|
nocdpause:
|
|
|
|
mov eax,0xffffff01
|
|
ret
|
|
|
|
|
|
|
|
sys_cd_atapi_command:
|
|
|
|
pushad
|
|
|
|
mov dx,word [cdbase]
|
|
add dx,6
|
|
mov ax,word [cdid]
|
|
out dx,al
|
|
mov esi,10
|
|
call delay_ms
|
|
mov dx,word [cdbase]
|
|
add dx,7
|
|
in al,dx
|
|
and al,0x80
|
|
cmp al,0
|
|
jnz res
|
|
jmp cdl6
|
|
res:
|
|
mov dx,word [cdbase]
|
|
add dx,7
|
|
mov al,0x8
|
|
out dx,al
|
|
mov dx,word [cdbase]
|
|
add dx,0x206
|
|
mov al,0xe
|
|
out dx,al
|
|
mov esi,1
|
|
call delay_ms
|
|
mov dx,word [cdbase]
|
|
add dx,0x206
|
|
mov al,0x8
|
|
out dx,al
|
|
mov esi,30
|
|
call delay_ms
|
|
xor cx,cx
|
|
cdl5:
|
|
inc cx
|
|
cmp cx,10
|
|
jz cdl6
|
|
mov dx,word [cdbase]
|
|
add dx,7
|
|
in al,dx
|
|
and al,0x88
|
|
cmp al,0x00
|
|
jz cdl5
|
|
mov esi,100
|
|
call delay_ms
|
|
jmp cdl5
|
|
cdl6:
|
|
mov dx,word [cdbase]
|
|
add dx,4
|
|
mov al,0
|
|
out dx,al
|
|
mov dx,word [cdbase]
|
|
add dx,5
|
|
mov al,0
|
|
out dx,al
|
|
mov dx,word [cdbase]
|
|
add dx,7
|
|
mov al,0xec
|
|
out dx,al
|
|
mov esi,5
|
|
call delay_ms
|
|
mov dx,word [cdbase]
|
|
add dx,1
|
|
mov al,0
|
|
out dx,al
|
|
add dx,1
|
|
mov al,0
|
|
out dx,al
|
|
add dx,1
|
|
mov al,0
|
|
out dx,al
|
|
add dx,1
|
|
mov al,0
|
|
out dx,al
|
|
add dx,1
|
|
mov al,128
|
|
out dx,al
|
|
add dx,2
|
|
mov al,0xa0
|
|
out dx,al
|
|
xor cx,cx
|
|
mov dx,word [cdbase]
|
|
add dx,7
|
|
cdl1:
|
|
inc cx
|
|
cmp cx,100
|
|
jz cdl2
|
|
in al,dx
|
|
and ax,0x88
|
|
cmp al,0x8
|
|
jz cdl2
|
|
mov esi,2
|
|
call delay_ms
|
|
jmp cdl1
|
|
cdl2:
|
|
|
|
popad
|
|
ret
|
|
|
|
|
|
sys_cdplay:
|
|
|
|
mov ax,5
|
|
push ax
|
|
push ebx
|
|
cdplay:
|
|
call sys_cd_atapi_command
|
|
cli
|
|
mov dx,word [cdbase]
|
|
mov ax,0x0047
|
|
out dx,ax
|
|
mov al,1
|
|
mov ah,[esp+0] ; min xx
|
|
out dx,ax
|
|
mov ax,[esp+1] ; fr sec
|
|
out dx,ax
|
|
mov ax,256+99
|
|
out dx,ax
|
|
mov ax,0x0001
|
|
out dx,ax
|
|
mov ax,0x0000
|
|
out dx,ax
|
|
mov esi,10
|
|
call delay_ms
|
|
sti
|
|
add dx,7
|
|
in al,dx
|
|
test al,1
|
|
jz cdplayok
|
|
mov ax,[esp+4]
|
|
dec ax
|
|
mov [esp+4],ax
|
|
cmp ax,0
|
|
jz cdplayfail
|
|
jmp cdplay
|
|
cdplayfail:
|
|
cdplayok:
|
|
pop ebx
|
|
pop ax
|
|
xor eax, eax
|
|
ret
|
|
|
|
|
|
sys_cdtracklist:
|
|
|
|
push ebx
|
|
tcdplay:
|
|
call sys_cd_atapi_command
|
|
mov dx,word [cdbase]
|
|
mov ax,0x43+2*256
|
|
out dx,ax
|
|
mov ax,0x0
|
|
out dx,ax
|
|
mov ax,0x0
|
|
out dx,ax
|
|
mov ax,0x0
|
|
out dx,ax
|
|
mov ax,200
|
|
out dx,ax
|
|
mov ax,0x0
|
|
out dx,ax
|
|
in al,dx
|
|
mov cx,1000
|
|
mov dx,word [cdbase]
|
|
add dx,7
|
|
cld
|
|
cdtrnwewait:
|
|
mov esi,10
|
|
call delay_ms
|
|
in al,dx
|
|
and al,128
|
|
cmp al,0
|
|
jz cdtrl1
|
|
loop cdtrnwewait
|
|
cdtrl1:
|
|
; read the result
|
|
mov ecx,[esp+0]
|
|
mov dx,word [cdbase]
|
|
cdtrread:
|
|
add dx,7
|
|
in al,dx
|
|
and al,8
|
|
cmp al,8
|
|
jnz cdtrdone
|
|
sub dx,7
|
|
in ax,dx
|
|
mov [ecx],ax
|
|
add ecx,2
|
|
jmp cdtrread
|
|
cdtrdone:
|
|
pop ecx
|
|
xor eax, eax
|
|
ret
|
|
|
|
|
|
sys_cdpause:
|
|
|
|
call sys_cd_atapi_command
|
|
|
|
mov dx,word [cdbase]
|
|
mov ax,0x004B
|
|
out dx,ax
|
|
mov ax,0
|
|
out dx,ax
|
|
mov ax,0
|
|
out dx,ax
|
|
mov ax,0
|
|
out dx,ax
|
|
mov ax,0
|
|
out dx,ax
|
|
mov ax,0
|
|
out dx,ax
|
|
|
|
mov esi,10
|
|
call delay_ms
|
|
add dx,7
|
|
in al,dx
|
|
|
|
xor eax, eax
|
|
ret
|
|
|