[VM][PC8801] Fix too heavy VM.

diff --git a/source/src/vm/pc8801/pc8801.cpp b/source/src/vm/pc8801/pc8801.cpp
index e9c644c..4702596 100644 (file)
--- a/source/src/vm/pc8801/pc8801.cpp
+++ b/source/src/vm/pc8801/pc8801.cpp
@@ -106,10 +106,10 @@ VM::VM(EMU* parent_emu) : emu(parent_emu)
 #endif
        
 #ifdef SUPPORT_PC88_HIGH_CLOCK
-       pc88event->set_context_cpu(dummycpu, 7987248);
+       pc88event->set_context_cpu(dummycpu, 7987248 / 8);
        pc88event->set_context_cpu(pc88cpu, (config.cpu_type != 0) ? 3993624 : 7987248);
 #else
-       pc88event->set_context_cpu(dummycpu, 3993624);
+       pc88event->set_context_cpu(dummycpu, 3993624 / 4);
        pc88event->set_context_cpu(pc88cpu, 3993624);
 #endif
        pc88event->set_context_cpu(pc88cpu_sub, 3993624);