6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-01 13:41:34 +00:00
Code Issues Projects Releases Wiki Activity

Cleaning

Browse Source
This commit is contained in:
jede 2019-07-26 23:11:34 +02:00 committed by Oliver Schmidt
parent 3b07b8b8e3
commit 3d63a8bb62
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
libsrc/telestrat/cclear.s
View File

@ -8,7 +8,7 @@
.export _cclearxy, _cclear
.import update_adscr
.importzp tmp1
.importzp tmp1
.import popax
.include "telestrat.inc"
@ -22,14 +22,14 @@ _cclearxy:
pla ; Restore the length and run into _cclear
_cclear:
tax ; Is the length zero?
beq @L9 ; Jump if done
tax ; Is the length equal to zero?
beq @L2 ; Yes we skip
@L1:
stx tmp1
lda #' '
stx tmp1 ; Save X
lda #' ' ; Erase current char
BRK_TELEMON XFWR
ldx tmp1
dex
bne @L1
@L9:
@L2:
rts