Add cclear and cclearxy

2024-06-26 05:29:30 +00:00 · 2019-07-26 23:04:54 +02:00 · 2019-07-26 23:04:54 +02:00 · 3b07b8b8e3
commit 3b07b8b8e3
parent a0db846a97
1 changed files with 35 additions and 0 deletions
--- a/libsrc/telestrat/cclear.s
+++ b/libsrc/telestrat/cclear.s
@ -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