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/revers.s
+++ b/libsrc/agat/revers.s
@@ -0,0 +1,38 @@
+;
+; Ullrich von Bassewitz, 2005-03-28
+; Oleg A. Odintsov, Moscow, 2024
+;
+; unsigned char __fastcall__ revers (unsigned char onoff)
+; unsigned char __fastcall__ flash (unsigned char onoff)
+;
+
+	.export		_revers, _flash
+
+	.include	"agat.inc"
+
+_revers:
+	tax
+	beq	noinv
+	lda	TATTR
+	and	#$D7
+	sta	TATTR
+	rts
+noinv:
+	lda	TATTR
+	ora	#$20
+	sta	TATTR
+        rts
+
+_flash:
+	tax
+	beq	noflash
+	lda	TATTR
+	and	#$DF
+	ora	#$08
+	sta	TATTR
+	rts
+noflash:
+	lda	TATTR
+	ora	#$20
+	sta	TATTR
+        rts