From 44852e317e11f38059f431bec1d1dad160aecd5c Mon Sep 17 00:00:00 2001
From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Mon, 8 Mar 2010 18:40:55 +0000
Subject: [PATCH] Shortened the code

git-svn-id: svn://svn.cc65.org/cc65/trunk@4620 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/c128/cputc.s | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/libsrc/c128/cputc.s b/libsrc/c128/cputc.s
index d69170bce..de1e824c6 100644
--- a/libsrc/c128/cputc.s
+++ b/libsrc/c128/cputc.s
@@ -49,13 +49,15 @@ L3: 	and	#$3F
 ; Output one character to the screen. We will disable scrolling while doing so
 
 cputdirect:
-        ldx     SCROLL
-        stx     ScrollSave      ; Save scroll flag
-        ldx     #$C0
-        stx     SCROLL          ; Disable scrolling
-        jsr     PRINT           ; Call kernal entry point
-        ldx     ScrollSave
-        stx     SCROLL          ; Restore old scroll flag
+        tax                     ; Save output char
+        lda     SCROLL
+        pha                     ; Save scroll flag
+        lda     #$C0
+        sta     SCROLL          ; Disable scrolling
+        txa                     ; Restore output char
+        jsr     PRINT
+        pla
+        sta     SCROLL          ; Restore old scroll flag
         rts
 
 ; Handle character if high bit set
-- 
2.39.5