18 lines
219 B
ArmAsm
18 lines
219 B
ArmAsm
;
|
|
; Oleg A. Odintsov, Moscow, 2024
|
|
;
|
|
; void __fastcall__ cclear (unsigned char length);
|
|
;
|
|
|
|
.export _cclear
|
|
.import COUT
|
|
.include "zeropage.inc"
|
|
|
|
_cclear:
|
|
sta ptr1
|
|
lda #$A0
|
|
next: jsr COUT
|
|
dec ptr1
|
|
bne next
|
|
rts
|