From b9e2a3edec09b365978fae9c334e7bd986bc255c Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 7 Jan 2000 14:55:47 +0000
Subject: [PATCH]  * bad sound if changing frequency solved

---
 rtl/go32v2/crt.pp | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/rtl/go32v2/crt.pp b/rtl/go32v2/crt.pp
index d6c016d9a2..51b24856fb 100644
--- a/rtl/go32v2/crt.pp
+++ b/rtl/go32v2/crt.pp
@@ -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
 
 }
-
-