[VM] Add EMU::set_vm_screen_lines() to some VMs.

[csp-qt/common_source_project-fm7.git] / source / src / vm / fp1100 / sub.cpp

diff --git a/source/src/vm/fp1100/sub.cpp b/source/src/vm/fp1100/sub.cpp
index f400ef3..5fed076 100644 (file)
--- a/source/src/vm/fp1100/sub.cpp
+++ b/source/src/vm/fp1100/sub.cpp
@@ -388,6 +388,7 @@ void SUB::draw_screen()
        
        memset(screen, 0, sizeof(screen));
        
+       emu->set_vm_screen_lines((ymax > 400) ? 400 : ymax);
        if((regs[8] & 0x30) != 0x30 && (pa & 7) != 0) {
                if(pa & 8) {
                        // 40 column