6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-28 22:30:12 +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 .export _cclearxy, _cclear
.import update_adscr .import update_adscr
.importzp tmp1 .importzp tmp1
.import popax .import popax
.include "telestrat.inc" .include "telestrat.inc"
@ -22,14 +22,14 @@ _cclearxy:
pla ; Restore the length and run into _cclear pla ; Restore the length and run into _cclear
_cclear: _cclear:
tax ; Is the length zero? tax ; Is the length equal to zero?
beq @L9 ; Jump if done beq @L2 ; Yes we skip
@L1: @L1:
stx tmp1 stx tmp1 ; Save X
lda #' ' lda #' ' ; Erase current char
BRK_TELEMON XFWR BRK_TELEMON XFWR
ldx tmp1 ldx tmp1
dex dex
bne @L1 bne @L1
@L9: @L2:
rts rts