From 6d89093d4bb0aebcc77009242449299ee3134204 Mon Sep 17 00:00:00 2001
From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 26 Jan 2010 16:51:03 +0000
Subject: [PATCH] Removed the call to tgi_clear from tgi_init, so the screen is
 not automatically cleared.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4559 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 doc/funcref.sgml      | 18 +++++++++++-------
 libsrc/tgi/tgi_init.s |  6 +-----
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/doc/funcref.sgml b/doc/funcref.sgml
index ea04ad701..51b215749 100644
--- a/doc/funcref.sgml
+++ b/doc/funcref.sgml
@@ -2322,7 +2322,7 @@ to undefined behaviour.
 <tag/Header/<tt/<ref id="ctype.h" name="ctype.h">/
 <tag/Declaration/<tt/int __fastcall__ isalnum (int c);/
 <tag/Description/The function returns a non zero value if the given argument
-is a letter or digit. The return value is zero if the character is anything 
+is a letter or digit. The return value is zero if the character is anything
 else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
@@ -2586,7 +2586,7 @@ fastcall function, so it may only be used in presence of a prototype.
 <tag/Header/<tt/<ref id="ctype.h" name="ctype.h">/
 <tag/Declaration/<tt/int __fastcall__ islower (int c);/
 <tag/Description/The function returns a non zero value if the given argument
-is a lower case letter. The return value is zero if the character is anything 
+is a lower case letter. The return value is zero if the character is anything
 else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
@@ -2625,7 +2625,7 @@ fastcall function, so it may only be used in presence of a prototype.
 <tag/Declaration/<tt/int __fastcall__ isprint (int c);/
 <tag/Description/The function returns a non zero value if the given argument
 is a printable character (this includes the space character). The return value
-is zero if the character is anything else.         
+is zero if the character is anything else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
 inline sequence generated by the macro will not work correctly for values
@@ -2664,7 +2664,7 @@ space or an alphanumeric character.
 <tag/Declaration/<tt/int __fastcall__ ispunct (int c);/
 <tag/Description/The function returns a non zero value if the given argument
 is a printable character, but not a space or anything alphanumeric. The return
-value is zero if the character is anything else.   
+value is zero if the character is anything else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
 inline sequence generated by the macro will not work correctly for values
@@ -2741,7 +2741,7 @@ fastcall function, so it may only be used in presence of a prototype.
 <tag/Header/<tt/<ref id="ctype.h" name="ctype.h">/
 <tag/Declaration/<tt/int __fastcall__ isupper (int c);/
 <tag/Description/The function returns a non zero value if the given argument
-is an upper case letter. The return value is zero if the character is anything 
+is an upper case letter. The return value is zero if the character is anything
 else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
@@ -2779,7 +2779,7 @@ fastcall function, so it may only be used in presence of a prototype.
 <tag/Header/<tt/<ref id="ctype.h" name="ctype.h">/
 <tag/Declaration/<tt/int __fastcall__ isxdigit (int c);/
 <tag/Description/The function returns a non zero value if the given argument
-is a hexadecimal digit (0..9, a..f and A..F). The return value is zero if the 
+is a hexadecimal digit (0..9, a..f and A..F). The return value is zero if the
 character is anything else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
@@ -5306,10 +5306,14 @@ be used in presence of a prototype.
 <tag/Header/<tt/<ref id="tgi.h" name="tgi.h">/
 <tag/Declaration/<tt/void __fastcall__ tgi_init (void);/
 <tag/Description/The tgi_init function will set the default palette to the
-hardware and clear the screen.
+hardware.
 <tag/Limits/<itemize>
 <item>The function is only available as fastcall function, so it may only
 be used in presence of a prototype.
+<item><tt/tgi_init/ will not clear the screen. This allows switching between
+text and graphics mode on platforms that have separate memory areas for the
+screens. If you want the screen cleared, call <tt/<ref id="tgi_clear"
+name="tgi_clear">/ after <tt/tgi_init/.
 </itemize>
 <tag/Availability/cc65
 <tag/See also/Other tgi functions.
diff --git a/libsrc/tgi/tgi_init.s b/libsrc/tgi/tgi_init.s
index 99a64ba76..ccee5a63a 100644
--- a/libsrc/tgi/tgi_init.s
+++ b/libsrc/tgi/tgi_init.s
@@ -65,11 +65,7 @@
         jsr     pushax                  ; Width scale
         jsr     pushax                  ; Heigh scale
         jsr     pusha                   ; Text direction = TGI_TEXT_VERTICAL
-        jsr     _tgi_textstyle          ; A = Font = TGI_FONT_BITMAP
-
-; Clear the screen
-
-        jmp     tgi_clear
+        jmp     _tgi_textstyle          ; A = Font = TGI_FONT_BITMAP
 
 ; Error exit
 
-- 
2.39.5