6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-07-05 06:28:57 +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
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