paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 04:49:32 +01: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 cltd
divl %ecx divl %ecx
movl %eax,%ecx movl %eax,%ecx
inb $0x61,%al
testb $0x3,%al
jnz .Lsound_next
orb $0x3,%al
outb %al,$0x61
movb $0xb6,%al movb $0xb6,%al
outb %al,$0x43 outb %al,$0x43
.Lsound_next:
movb %cl,%al movb %cl,%al
outb %al,$0x42 outb %al,$0x42
movb %ch,%al movb %ch,%al
outb %al,$0x42 outb %al,$0x42
inb $0x61,%al
orb $0x3,%al
outb %al,$0x61
end ['EAX','ECX','EDX']; end ['EAX','ECX','EDX'];
end; end;
@ -817,7 +820,10 @@ end.
{ {
$Log$ $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 * truncated log
Revision 1.7 1999/11/03 23:47:34 peter Revision 1.7 1999/11/03 23:47:34 peter
@ -884,5 +890,3 @@ end.
* fixed crt input * fixed crt input
} }