From 3867be716647021a4a3eac6f9a723ad5de131c56 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Stephan=20M=C3=BChlstrasser?= Date: Sun, 30 Nov 2014 14:25:16 +0100 Subject: [PATCH] Added cclear() and cclearxy() implementations. --- libsrc/c1p/cclear.s | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 libsrc/c1p/cclear.s diff --git a/libsrc/c1p/cclear.s b/libsrc/c1p/cclear.s new file mode 100644 index 000000000..4412f0bba --- /dev/null +++ b/libsrc/c1p/cclear.s @@ -0,0 +1,33 @@ +; +; Copied from CBM implementation +; +; originally by: +; Ullrich von Bassewitz, 08.08.1998 +; +; void cclearxy (unsigned char x, unsigned char y, unsigned char length); +; void cclear (unsigned char length); +; + + .export _cclearxy, _cclear + .import popa, _gotoxy, cputdirect + .importzp tmp1 + +_cclearxy: + pha ; Save the length + jsr popa ; Get y + jsr _gotoxy ; Call this one, will pop params + pla ; Restore the length and run into _cclear + +_cclear: + cmp #0 ; Is the length zero? + beq L9 ; Jump if done + sta tmp1 +L1: lda #$20 ; Blank - screen code + jsr cputdirect ; Direct output + dec tmp1 + bne L1 +L9: rts + + + + -- 2.39.5