Subversion Repositories Kolibri OS

Rev

Rev 1028 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1028 Rev 9478
1 
use32
 - 
 
2 
 
 1 
use32
3 
db 'MENUET01'
 - 
 
4 
dd 1
 2 
db 'MENUET01'
5 
dd start
 - 
 
6 
dd i_end
 - 
 
7 
dd mem
 3 
dd 1, start, i_end, mem, mem, 0, selfpath
8 
dd mem
 - 
 
9 
dd 0
 - 
 
10 
dd 0
 - 
 
11 
 
 - 
 
12 
start:
 4 
 
- 
 
 5 
start:
- 
 
 6 
;------ strcat(selfpath, '.drv')
- 
 
 7 
		mov  eax, selfpath
- 
 
 8 
	@@:
- 
 
 9 
		inc  eax
- 
 
 10 
		cmp  [eax], byte 0
- 
 
 11 
		jne  @b
- 
 
 12 
		mov  [eax], dword '.drv'
- 
 
 13 
 
- 
 
 14 
;------ writing some info
- 
 
 15 
		mov  edx, info_msg
- 
 
 16 
		call debug_string
- 
 
 17 
		mov  cl, 13 ; line break symbol
- 
 
 18 
		int  40h
- 
 
 19 
 
13 
 	   mov eax, 68
 20 
;------ init driver
14 
       mov ebx, 16
 21 
		mov  eax, 68
15 
	   mov ecx, sz_sound
 22 
		mov  ebx, 16
16 
       int 0x40
 23 
		mov  ecx, sz_sound
17 
       test eax, eax
 24 
		int  40h
18 
       jnz .exit
 25 
		test eax, eax
19 
 
 26 
		jnz  .exit
20 
 	   mov eax, 68
 27 
 
21 
	   mov ebx, 21
 28 
		mov  eax, 68
22 
       mov ecx, sz_path
 29 
		mov  ebx, 21
23 
	   int 0x40
 30 
		mov  ecx, selfpath
24 
 
 31 
		int  40h
25 
.exit:
 32 
 
26 
	   mov eax, -1
 33 
.exit:
27 
	   int 0x40
 34 
		mov  eax, -1
28 
 
 35 
		int  40h
- 
 
 36
- 
 
 37 
debug_string:
- 
 
 38 
		mov  eax,63
- 
 
 39 
		mov  ebx,1
- 
 
 40 
	@@:
- 
 
 41 
		mov  cl,[edx]
- 
 
 42 
		test cl,cl
- 
 
 43 
		jz   @f
- 
 
 44 
		int  40h
- 
 
 45 
		inc  edx
- 
 
 46 
		jmp  @b
- 
 
 47 
	@@:
29 
 
 48 
		ret
30 
sz_sound  db 'SOUND',0
 49 
 
- 
 
 50 
sz_sound  db 'SOUND',0
31 
sz_path   db '/rd/1/drivers/geode.drv',0
 51 
info_msg  db 'Trying to load the driver: '
32 
 
 52 
selfpath  rb 4096
33 
align 4
 53 
 
34 
i_end:
 54 
align 4
35 
rb 128
 55 
i_end:
36 
mem:
 56 
rb 128
- 
 
 57 
mem: