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 151/170] 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 228bdce9..c8c56969 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 9bffebb0..128003bf 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)
--
2.26.0