From 37cc9f66c6f455973793b475a2f4296e3e787df1 Mon Sep 17 00:00:00 2001
From: Zarko Zivanov <zzarko@gmail.com>
Date: Fri, 10 Jan 2025 22:33:29 +0100
Subject: [PATCH] Fix for TVC CAS file generation

---
 source/Compiler/systems/systemtvc.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/Compiler/systems/systemtvc.cpp b/source/Compiler/systems/systemtvc.cpp
index d0ac53e80..3f19b0320 100644
--- 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;