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/color.s
+++ b/libsrc/agat/color.s
@@ -0,0 +1,21 @@
+;
+; Oleg A. Odintsov, Moscow, 2024
+;
+; unsigned char __fastcall__ textcolor (unsigned char color);
+;
+
+
+	.export		_textcolor
+	.include	"agat.inc"
+
+
+_textcolor:
+	ldx	TATTR
+	eor	TATTR
+	and	#$07
+	eor	TATTR
+	sta	TATTR
+	txa
+	and	#$0F
+	rts
+