forked from KolibriOS/kolibrios
483 lines
7.9 KiB
NASM
483 lines
7.9 KiB
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;
|
|
; CD PLAYER - Compile with fasm
|
|
;
|
|
|
|
use32
|
|
|
|
org 0x0
|
|
db 'MENUET00' ; 8 byte id
|
|
dd 38 ; required os
|
|
dd START ; program start
|
|
dd I_END ; program image size
|
|
dd 0x1000 ; reguired amount of memory
|
|
dd 0x1000
|
|
dd 0x00000000 ; reserved=no extended header
|
|
|
|
include 'lang.inc'
|
|
include 'macros.inc'
|
|
|
|
START:
|
|
|
|
call draw_window
|
|
|
|
still:
|
|
|
|
mov eax,10
|
|
int 0x40
|
|
|
|
cmp eax,1
|
|
jz red
|
|
cmp eax,2
|
|
jz key
|
|
cmp eax,3
|
|
jz button
|
|
jmp still
|
|
|
|
red:
|
|
call draw_window
|
|
jmp still
|
|
|
|
key:
|
|
mov eax,2
|
|
int 0x40
|
|
jmp still
|
|
|
|
button:
|
|
mov eax,17
|
|
int 0x40
|
|
|
|
cmp ah,byte 41
|
|
jnz nostop
|
|
call stop
|
|
jmp still
|
|
nostop:
|
|
|
|
cmp ah,byte 42
|
|
jnz nogetinfo
|
|
call getinfo
|
|
jmp still
|
|
nogetinfo:
|
|
|
|
pusha
|
|
|
|
cmp ah,100
|
|
jnz err
|
|
|
|
jmp noerr
|
|
|
|
err:
|
|
|
|
xor ecx,ecx
|
|
mov cl,ah
|
|
shl ecx,3
|
|
add ecx,cdinfo
|
|
add ecx,1
|
|
xor ebx,ebx
|
|
mov ebx,[ecx]
|
|
and ebx,0x00ffffff
|
|
mov ecx,ebx
|
|
|
|
mov ebx,1
|
|
mov eax,24
|
|
int 0x40
|
|
|
|
cmp eax,0
|
|
je noerr
|
|
|
|
error:
|
|
|
|
mov eax,13
|
|
mov ebx,10*65536+215
|
|
mov ecx,115*65536+13
|
|
mov edx,0x0088aacc
|
|
int 0x40
|
|
|
|
mov eax,dword 0x00000004 ; write text
|
|
mov ebx,12*65536+117
|
|
mov ecx,[tcolor]
|
|
mov edx,infotext2
|
|
mov esi,itl2-infotext2
|
|
int 0x40
|
|
|
|
mov eax,5
|
|
mov ebx,200
|
|
int 0x40
|
|
|
|
noerr:
|
|
|
|
popa
|
|
|
|
shr eax,8
|
|
and eax,255
|
|
mov ebx,0
|
|
mov ecx,10
|
|
|
|
cmp eax,100
|
|
jnz noend
|
|
mov eax,-1
|
|
int 0x40
|
|
noend:
|
|
|
|
newc:
|
|
|
|
cmp eax,ecx
|
|
jb dri
|
|
inc ebx
|
|
sub eax,ecx
|
|
|
|
jmp newc
|
|
|
|
|
|
dri:
|
|
|
|
mov ecx,48
|
|
add ebx,ecx
|
|
mov [infotext+0],bl
|
|
add eax,ecx
|
|
mov [infotext+1],al
|
|
call drawinfo
|
|
jmp still
|
|
|
|
|
|
getinfo:
|
|
|
|
mov eax,24 ; get info
|
|
mov ebx,1
|
|
mov ecx,0x010100
|
|
int 0x40
|
|
|
|
cmp eax,0
|
|
jnz gierror
|
|
|
|
mov eax,13
|
|
mov ebx,10*65536+215
|
|
mov ecx,115*65536+13
|
|
mov edx,0x0088aacc
|
|
int 0x40
|
|
mov eax,dword 0x00000004 ; write text
|
|
mov ebx,12*65536+117
|
|
mov ecx,dword 0x00ffffff ; 8b window nro - RR GG BB color
|
|
mov edx,infotext3 ; pointer to text beginning
|
|
mov esi,itl3-infotext3 ; text length
|
|
int 0x40
|
|
|
|
mov eax,5
|
|
mov ebx,100*10
|
|
int 0x40
|
|
|
|
mov eax,24 ; get info
|
|
mov ebx,2
|
|
mov ecx,cdinfo
|
|
mov edx,256
|
|
int 0x40
|
|
|
|
cmp eax,0
|
|
jz gi1
|
|
|
|
gierror:
|
|
|
|
mov eax,13
|
|
mov ebx,10*65536+215
|
|
mov ecx,115*65536+13
|
|
mov edx,0x0088aacc
|
|
int 0x40
|
|
|
|
mov eax,dword 0x00000004 ; write text
|
|
mov ebx,12*65536+117
|
|
mov ecx,dword 0x00ffffff ; 8b window nro - RR GG BB color
|
|
mov edx,infotext2 ; pointer to text beginning
|
|
mov esi,itl2-infotext2 ; text length
|
|
int 0x40
|
|
|
|
mov eax,5
|
|
mov ebx,200
|
|
int 0x40
|
|
|
|
gi1:
|
|
|
|
call drawinfo
|
|
ret
|
|
|
|
|
|
|
|
stop:
|
|
|
|
mov eax,24 ; get info
|
|
mov ebx,3
|
|
int 0x40
|
|
|
|
ret
|
|
|
|
|
|
|
|
; info bar
|
|
|
|
|
|
drawinfo:
|
|
|
|
|
|
; end
|
|
|
|
xor eax,eax
|
|
xor ebx,ebx
|
|
mov ecx,10
|
|
mov al,[cdinfo+3]
|
|
cld
|
|
|
|
newco:
|
|
|
|
cmp eax,ecx
|
|
jb noco
|
|
|
|
add ebx,1
|
|
sub eax,ecx
|
|
jmp newco
|
|
|
|
noco:
|
|
|
|
add al,48
|
|
mov [infotext+32],al
|
|
|
|
add bl,48
|
|
mov [infotext+31],bl
|
|
|
|
|
|
; start
|
|
|
|
xor eax,eax
|
|
xor ebx,ebx
|
|
mov al,[cdinfo+2]
|
|
cld
|
|
|
|
newco2:
|
|
|
|
cmp eax,ecx
|
|
jb noco2
|
|
|
|
add ebx,1
|
|
sub eax,ecx
|
|
jmp newco2
|
|
|
|
noco2:
|
|
|
|
add al,48
|
|
mov [infotext+17],al
|
|
|
|
add bl,48
|
|
mov [infotext+16],bl
|
|
|
|
mov eax,13
|
|
mov ebx,10*65536+219
|
|
mov ecx,115*65536+13
|
|
mov edx,[col]
|
|
sub edx,0x101010
|
|
int 0x40
|
|
|
|
mov eax,4 ; write text
|
|
mov ebx,12*65536+117
|
|
mov ecx,dword 0x00ffffff ; 8b window nro - RR GG BB color
|
|
mov edx,infotext ; pointer to text beginning
|
|
mov esi,itl-infotext ; text length
|
|
int 0x40
|
|
|
|
ret
|
|
|
|
|
|
draw_window:
|
|
|
|
pusha
|
|
|
|
mov eax,12 ; tell os about redraw
|
|
mov ebx,1
|
|
int 0x40
|
|
|
|
mov eax,0 ; define and draw window
|
|
mov ebx,170*65536+240
|
|
mov ecx,40*65536+135
|
|
mov edx,0x00b6aaff
|
|
mov esi,0x80b9aaff; bbee - 0x202020
|
|
mov edi,0x00b9aaff ;bbee
|
|
mov edx,[col]
|
|
add edx,0x00000000
|
|
mov esi,[col]
|
|
add esi,0x80000000
|
|
mov edi,[col]
|
|
int 0x40
|
|
|
|
mov eax,4 ; write text
|
|
mov ebx,8*65536+8
|
|
mov ecx,[tcolor]
|
|
mov edx,labelt
|
|
mov esi,labellen-labelt
|
|
int 0x40
|
|
|
|
mov eax,8 ; CLOSE BUTTON
|
|
mov ebx,(240-18)*65536+10
|
|
mov ecx,6 *65536+10
|
|
mov edx,100
|
|
mov esi,[col]
|
|
sub esi,0x302010
|
|
int 0x40
|
|
|
|
|
|
; first row
|
|
|
|
mov eax,8 ; button
|
|
mov edx,1 ; button number
|
|
mov ebx,9*65536+21 ; button start x & size
|
|
mov ecx,30*65536+13 ; button start y & size
|
|
mov esi,[bcolor] ; button color
|
|
newbutton1:
|
|
pusha
|
|
int 0x40
|
|
popa
|
|
|
|
pusha
|
|
mov eax,dword 0x00000004
|
|
and ebx,65535*65536
|
|
shr ecx,16
|
|
add ebx,ecx
|
|
add ebx,6*65536+3
|
|
mov ecx,[tcolor]
|
|
shl edx,1
|
|
add edx,nro-2
|
|
mov esi,2
|
|
int 0x40
|
|
popa
|
|
|
|
add ebx,22*65536
|
|
inc edx
|
|
cmp edx,11
|
|
jnz newbutton1
|
|
|
|
; second row
|
|
|
|
mov eax,8 ; button
|
|
mov edx,11 ; button number
|
|
mov ebx,9*65536+21 ; button start x & size
|
|
mov ecx,50*65536+13 ; button start y & size
|
|
mov esi,[bcolor] ; button color
|
|
newbutton2:
|
|
pusha
|
|
int 0x40
|
|
popa
|
|
|
|
pusha
|
|
mov eax,dword 0x00000004
|
|
and ebx,65535*65536
|
|
shr ecx,16
|
|
add ebx,ecx
|
|
add ebx,6*65536+3
|
|
mov ecx,[tcolor]
|
|
shl edx,1
|
|
add edx,nro2-2-20
|
|
mov esi,2
|
|
int 0x40
|
|
popa
|
|
|
|
|
|
add ebx,22*65536
|
|
inc edx
|
|
cmp edx,21
|
|
jnz newbutton2
|
|
|
|
; third row
|
|
|
|
mov eax,8 ; button
|
|
mov edx,21 ; button number
|
|
mov ebx,9*65536+21 ; button start x & size
|
|
mov ecx,70*65536+13 ; button start y & size
|
|
mov esi,[bcolor] ; button color
|
|
newbutton3:
|
|
pusha
|
|
int 0x40
|
|
popa
|
|
|
|
pusha
|
|
mov eax,dword 0x00000004
|
|
and ebx,65535*65536
|
|
shr ecx,16
|
|
add ebx,ecx
|
|
add ebx,6*65536+3
|
|
mov ecx,[tcolor]
|
|
shl edx,1
|
|
add edx,nro3-2-40
|
|
mov esi,2
|
|
int 0x40
|
|
popa
|
|
|
|
add ebx,22*65536
|
|
inc edx
|
|
cmp edx,31
|
|
jnz newbutton3
|
|
|
|
|
|
; fourth row
|
|
|
|
mov eax,8 ; button
|
|
mov edx,41 ; button number
|
|
mov ebx,9*65536+109 ; button start x & size
|
|
mov ecx,90*65536+13 ; button start y & size
|
|
mov esi,0x00aabbcc ; button color
|
|
newbutton4:
|
|
pusha
|
|
int 0x40
|
|
popa
|
|
|
|
pusha
|
|
mov eax,4
|
|
and ebx,65535*65536
|
|
shr ecx,16
|
|
add ebx,ecx
|
|
add ebx,9*65536+3
|
|
mov ecx,[tcolor]
|
|
sub edx,41
|
|
shl edx,4
|
|
add edx,text
|
|
mov esi,16
|
|
int 0x40
|
|
popa
|
|
|
|
add ebx,110*65536
|
|
inc edx
|
|
cmp edx,43
|
|
jnz newbutton4
|
|
|
|
call drawinfo
|
|
|
|
mov eax,12 ; tell os about redraw end
|
|
mov ebx,2
|
|
int 0x40
|
|
|
|
popa
|
|
ret
|
|
|
|
|
|
|
|
|
|
; DATA AREA
|
|
|
|
col dd 0x7777aa
|
|
tcolor dd 0xffffff
|
|
bcolor dd 0xaabbcc
|
|
labelt: db 'CD PLAYER'
|
|
labellen:
|
|
infotext: db '01 First Track: xx Last Track: xx '
|
|
itl:
|
|
infotext2: db 'DEFINE CD ROM BASE WITH SETUP '
|
|
itl2:
|
|
infotext3: db 'READING PLAYLIST - (10 secs) '
|
|
itl3:
|
|
nro: db '01020304050607080910'
|
|
nro2: db '11121314151617181920'
|
|
nro3: db '21222324252627282930'
|
|
text: db ' STOP READ PLAYLIST '
|
|
|
|
cdinfo:
|
|
|
|
I_END:
|
|
|
|
|
|
|