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/wherex.s
+++ b/libsrc/agat/wherex.s
@@ -0,0 +1,19 @@
+;
+; Kevin Ruland
+; Oleg A. Odintsov, Moscow, 2024
+;
+; unsigned char wherex (void);
+;
+
+        .export         _wherex
+
+        .include        "agat.inc"
+
+_wherex:
+	lda	CH
+	bit	TATTR
+	bmi	t64
+	lsr
+t64:
+	ldx     #$00
+	rts