Switch to lower case chars in toggle_videomode

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

diff --git a/libsrc/c128/toggle_videomode.s b/libsrc/c128/toggle_videomode.s
index 098989d7c58fec5b5dd41590cc694495c94317f8..873e38eb1b26c013fe57550ec931eb19e651242d 100644 (file)
--- a/libsrc/c128/toggle_videomode.s
+++ b/libsrc/c128/toggle_videomode.s
@@ -9,5 +9,11 @@
 
        .include        "c128.inc"
 
-       _toggle_videomode = SWAPPER
+.proc   _toggle_videomode 
+
+        jsr     SWAPPER                 ; Toggle the mode
+       lda     #14
+       jmp     BSOUT                   ; Switch to lower case chars
+
+.endproc