Start of TGI changes. Untested, may not work.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4404 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/tgi/tgi_textwidth.s

@@ -0,0 +1,27 @@
+;
+; Ullrich von Bassewitz, 2009-10-30
+;
+
+
+        .include        "tgi-kernel.inc"
+
+        .import         _strlen, pushax, tosumula0
+
+;-----------------------------------------------------------------------------
+; unsigned __fastcall__ tgi_textwidth (const char* s);
+; /* Calculate the width of the text in pixels according to the current text
+;  * style.
+;  */
+;
+; Result is  strlen (s) * tgi_textmagw * tgi_fontsizex
+;
+
+.proc   _tgi_textwidth
+
+        jsr     _strlen
+        jsr     pushax
+        lda     _tgi_charwidth
+        jmp     tosumula0
+
+.endproc
+