paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 09:02:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bad sound if changing frequency solved

Browse Source
This commit is contained in:
pierre 2000-01-07 14:55:47 +00:00
parent ac4df5f8aa
commit b9e2a3edec
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/go32v2/crt.pp
View File

@ -499,15 +499,18 @@ begin
cltd
divl %ecx
movl %eax,%ecx
inb $0x61,%al
testb $0x3,%al
jnz .Lsound_next
orb $0x3,%al
outb %al,$0x61
movb $0xb6,%al
outb %al,$0x43
.Lsound_next:
movb %cl,%al
outb %al,$0x42
movb %ch,%al
outb %al,$0x42
inb $0x61,%al
orb $0x3,%al
outb %al,$0x61
end ['EAX','ECX','EDX'];
end;
@ -817,7 +820,10 @@ end.
{
$Log$
Revision 1.8 1999-11-06 14:38:23 peter
Revision 1.9 2000-01-07 14:55:47 pierre
* bad sound if changing frequency solved
Revision 1.8 1999/11/06 14:38:23 peter
* truncated log
Revision 1.7 1999/11/03 23:47:34 peter
@ -884,5 +890,3 @@ end.
* fixed crt input
}