Initial Agat support

2025-06-04 22:51:17 +03:00
parent 58171691d0
commit de524a6561
27 changed files with 735 additions and 2 deletions
--- a/libsrc/agat/cclear.s
+++ b/libsrc/agat/cclear.s
@@ -0,0 +1,17 @@
+;
+; 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