diff --git a/src/0000Boot/0000Kernel.BIN.C b/src/0000Boot/0000Kernel.BIN.C index 82c05d4f..a70c8359 100755 Binary files a/src/0000Boot/0000Kernel.BIN.C and b/src/0000Boot/0000Kernel.BIN.C differ diff --git a/src/Compiler/Compiler.BIN b/src/Compiler/Compiler.BIN index 0b4228f6..7712b45b 100755 Binary files a/src/Compiler/Compiler.BIN and b/src/Compiler/Compiler.BIN differ diff --git a/src/Kernel.BIN.C b/src/Kernel.BIN.C index 75065321..44acb98f 100755 Binary files a/src/Kernel.BIN.C and b/src/Kernel.BIN.C differ diff --git a/src/Kernel/KMisc.HC b/src/Kernel/KMisc.HC index c5b620ec..b3de7d55 100755 --- a/src/Kernel/KMisc.HC +++ b/src/Kernel/KMisc.HC @@ -161,17 +161,17 @@ U0 Sleep(I64 mS) } F64 Ona2Freq(I8 ona) -{//Ona to freq. Ona=60 is 440.0Hz. +{//Ona to freq. Ona=60 is 432.0Hz. if (!ona) return 0; else - return 440.0/32*2.0`(ona/12.0); + return 432.0/32*2.0`(ona/12.0); } I8 Freq2Ona(F64 freq) -{//Freq to Ona. 440.0Hz is Ona=60. +{//Freq to Ona. 432.0Hz is Ona=60. if (freq>0) - return ClampI64(12*Log2(32.0/440.0*freq),1,I8_MAX); + return ClampI64(12*Log2(32.0/432.0*freq),1,I8_MAX); else return 0; } diff --git a/src/Tmp/MyDistro.iso b/src/Tmp/MyDistro.iso index 216497e3..bc8e84b9 100755 Binary files a/src/Tmp/MyDistro.iso and b/src/Tmp/MyDistro.iso differ