From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Mon, 8 Mar 2010 18:40:55 +0000 (+0000)
Subject: Shortened the code
X-Git-Tag: V2.13.3~801
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=44852e317e11f38059f431bec1d1dad160aecd5c;p=cc65

Shortened the code

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

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