Fix for TVC CAS file generation

leuat · Jan 10, 2025 · 37cc9f6 · 37cc9f6
1 parent 8fb379b
commit 37cc9f6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/source/Compiler/systems/systemtvc.cpp b/source/Compiler/systems/systemtvc.cpp
@@ -62,11 +62,11 @@ void SystemTVC::Assemble(QString &text, QString filename, QString currentDir, QS
 
 //    bas[19] = 0xf5;
 
-    int len = d.size()-20;//+bas.size();
 
     QByteArray h;
     h.resize(128);
     h.fill(0);
+    int len = d.size()+bas.size()+h.size();
     uint bsize = (len)>>7;
 
     h[0] = 0x11;