ASM Community

hossa

i rember to read weeks ago a post where someone seek a sample how to play music with the pc speaker.

here i found one....a com file+source playing xyz.mus files

allways share your links

sorry...dont remember it :)
possible that can help ,think its not so hard to port from delphi to asm *bg*

??? ??????? ????????? ????? ???????? ????????
? NT ???? API: Sound(Herz,MkSec); ?? ? Win9x - ?????? ???. ????? ????? ??????? ???:
library Sound;
// ?y????? ????p?? ????p?py?? ??y? ?? PC Speaker ??? NT ? WIN95.
// procedure SpeakerBeep(Hz, MkSec : Dword); stdcall; export;

uses Windows;

procedure NoSound;
begin
asm
in al,61h
and al,0fch
out 61h,al
end;
end;

procedure _Sound(Hz : Word);
begin
if (Hz > 18) then
asm
movzx ecx,Hz
mov eax,1193180
sub edx,edx
div ecx
mov ecx,eax
//set timer #3
mov al,182
out 43h,al
mov al,cl
out 42h,al
mov al,ch
out 42h,al
//enable speaker
in al,61h
or al,3
out 61h,al
end;
end;

procedure SpeakerBeep(Hz, MkSec : Dword); stdcall; export;
Var
OSVERSIONINFO : TOSVERSIONINFO;
Begin
OSVERSIONINFO.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
GetVersionEx(OSVERSIONINFO);
If OSVERSIONINFO.dwPlatformId =VER_PLATFORM_WIN32_NT then
Beep(Hz,MkSec)
else
Begin
_Sound(Hz);
Sleep(MkSec);
Nosound;
End;
End;

exports SpeakerBeep;
begin
end.

Mirno: the code checks if the OS is NT, if yes it uses Beep, which is a more advanced function in NT than in 9x. But I don't like using ins and outs in 9x either.

I also hate using dlls that are 10 times bigger than my program that uses it but I used it because I wanted to use the parallel port directly. I created a small circuit that could program a microcontroller. Because the circuit was just a simple interface without any other logic, I couldn't use the default methods of accessing parallel ports, so I needed direct port access. As I use win2k, ins and outs weren't an option.

???????? ? ??????.... ????????? ???????? ??????? ????????? waveOutOpen() ? ???? ??????? ???? ??????? ?? ???? ??????????. ???????? ??????? 9000Hz = ?????? ????? ????????? ? ???????. ??????? ??????? ?????? ??? ?????? ??????????? ? ?????????? 9000 ??? ? ??????? - ?? ?????? ????? sin(). ???? ?? ?????