Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9477 → Rev 9478

/drivers/audio/a5536/Tupfile.lua
0,0 → 1,3
if tup.getconfig("NO_FASM") ~= "" then return end
ROOT = "../../.."
tup.rule("geode.asm", "fasm %f %o " .. tup.getconfig("PESTRIP_CMD") .. tup.getconfig("KPACK_CMD"), "%B")
/drivers/audio/a5536/geode.asm
1,35 → 1,55
 
use32
 
db 'MENUET01'
dd 1
dd start
dd i_end
dd mem
dd mem
dd 0
dd 0
dd 1, start, i_end, mem, mem, 0, selfpath
 
start:
;------ strcat(selfpath, '.drv')
mov eax, selfpath
@@:
inc eax
cmp [eax], byte 0
jne @b
mov [eax], dword '.drv'
 
;------ writing some info
mov edx, info_msg
call debug_string
mov cl, 13 ; line break symbol
int 40h
 
;------ init driver
mov eax, 68
mov ebx, 16
mov ecx, sz_sound
int 0x40
int 40h
test eax, eax
jnz .exit
 
mov eax, 68
mov ebx, 21
mov ecx, sz_path
int 0x40
mov ecx, selfpath
int 40h
 
.exit:
mov eax, -1
int 0x40
int 40h
 
debug_string:
mov eax,63
mov ebx,1
@@:
mov cl,[edx]
test cl,cl
jz @f
int 40h
inc edx
jmp @b
@@:
ret
 
sz_sound db 'SOUND',0
sz_path db '/rd/1/drivers/geode.drv',0
info_msg db 'Trying to load the driver: '
selfpath rb 4096
 
align 4
i_end: