6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-28 20:29:46 +00:00
Code Issues Projects Releases Wiki Activity

Shortened the code

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@4620 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2010-03-08 18:40:55 +00:00
parent 8663ae5975
commit 44852e317e
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
libsrc/c128/cputc.s
View File

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