Now tgi_clear() works

diff --git a/asminc/telestrat.inc b/asminc/telestrat.inc
index df607e375002bfef9f5ec9ed641c2bdf8dd13450..956f4b8acf6e1742249b4c04bff9e73fa891624d 100644 (file)
--- a/asminc/telestrat.inc
+++ b/asminc/telestrat.inc
@@ -195,6 +195,7 @@ XDECAL           = $18
 
 XTEXT            = $19
 XHIRES           = $1A
+XEFFHI           = $1B          ; Clear hires screen
 XFILLM           = $1C
 XMINMA           = $1F
 XVARS            = $24          ; Only in TELEMON 3.x, in TELEMON 2.4, it's XNOMFI ($24)

diff --git a/libsrc/telestrat/tgi/telestrat-228-200-3.s b/libsrc/telestrat/tgi/telestrat-228-200-3.s
index ce501f0bf29177ebd780263dcb0c3b65041d0dac..228bdce99a063f9c89eee69769f70545ffb605bb 100644 (file)
--- a/libsrc/telestrat/tgi/telestrat-228-200-3.s
+++ b/libsrc/telestrat/tgi/telestrat-228-200-3.s
@@ -170,7 +170,7 @@ CONTROL:
 ;
 
 CLEAR:
-        ; not done yet
+        BRK_TELEMON(XEFFHI)
         rts
 
 ; ------------------------------------------------------------------------

diff --git a/libsrc/telestrat/tgi/telestrat-240-200-2.s b/libsrc/telestrat/tgi/telestrat-240-200-2.s
index 3ee918c4fd5e1aad3428abcacaf58503fd04b9b1..9bffebb0ca9ec64def85a6dbe09177f90dd0dd21 100644 (file)
--- a/libsrc/telestrat/tgi/telestrat-240-200-2.s
+++ b/libsrc/telestrat/tgi/telestrat-240-200-2.s
@@ -169,7 +169,7 @@ CONTROL:
 ;
 
 CLEAR:
-        ; not done yet
+        BRK_TELEMON(XEFFHI)
         rts
 
 ; ------------------------------------------------------------------------