1
0
mirror of https://github.com/cc65/cc65.git synced 2024-06-17 00:29:31 +00:00

Add cclear and cclearxy

This commit is contained in:
jede 2019-07-26 23:04:54 +02:00 committed by Oliver Schmidt
parent a0db846a97
commit 3b07b8b8e3

35
libsrc/telestrat/cclear.s Normal file
View File

@ -0,0 +1,35 @@
;
; 2019-07-07, Jede (jede@oric.org)
;
; void cclearxy (unsigned char x, unsigned char y, unsigned char length);
; void cclear (unsigned char length);
;
.export _cclearxy, _cclear
.import update_adscr
.importzp tmp1
.import popax
.include "telestrat.inc"
_cclearxy:
pha ; Save the length
jsr popax ; Get X and Y
sta SCRY ; Store Y
stx SCRX ; Store X
jsr update_adscr
pla ; Restore the length and run into _cclear
_cclear:
tax ; Is the length zero?
beq @L9 ; Jump if done
@L1:
stx tmp1
lda #' '
BRK_TELEMON XFWR
ldx tmp1
dex
bne @L1
@L9:
rts