From 026e57279de2aead494c93081f0a645aecbb39ae Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Fri, 24 Jan 2020 22:28:53 +0100
Subject: [PATCH] Fix bug in tgi_line : HRS(X) parameters are 16 bits.

---
 libsrc/telestrat/tgi/telestrat-228-200-3.s | 8 +++++++-
 libsrc/telestrat/tgi/telestrat-240-200-2.s | 9 ++++++++-
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/libsrc/telestrat/tgi/telestrat-228-200-3.s b/libsrc/telestrat/tgi/telestrat-228-200-3.s
index 228bdce99..c8c569695 100644
--- a/libsrc/telestrat/tgi/telestrat-228-200-3.s
+++ b/libsrc/telestrat/tgi/telestrat-228-200-3.s
@@ -297,7 +297,13 @@ LINE:
         lda   Y2
         sta   HRS4
         
-        lda   #$ff
+        lda   #$00
+        sta   HRS1+1
+        sta   HRS2+1
+        sta   HRS3+1
+        sta   HRS4+1        
+
+        lda   #$FF
         sta   HRSPAT
 
         BRK_TELEMON(XDRAWA)
diff --git a/libsrc/telestrat/tgi/telestrat-240-200-2.s b/libsrc/telestrat/tgi/telestrat-240-200-2.s
index 9bffebb0c..128003bfd 100644
--- a/libsrc/telestrat/tgi/telestrat-240-200-2.s
+++ b/libsrc/telestrat/tgi/telestrat-240-200-2.s
@@ -290,7 +290,14 @@ LINE:
         lda   Y2
         sta   HRS4
         
-        lda   #$ff
+
+        lda   #$00
+        sta   HRS1+1
+        sta   HRS2+1
+        sta   HRS3+1
+        sta   HRS4+1        
+
+        lda   #$FF
         sta   HRSPAT
 
         BRK_TELEMON(XDRAWA)