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/gotoxy.s
+++ b/libsrc/agat/gotoxy.s
@@ -0,0 +1,28 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+; Oleg A. Odintsov, Moscow, 2024
+;
+; void __fastcall__ gotoxy (unsigned char x, unsigned char y);
+; void __fastcall__ gotox (unsigned char x);
+;
+
+        .export         gotoxy, _gotoxy, _gotox
+        .import         popa, VTABZ
+
+        .include        "agat.inc"
+
+gotoxy:
+	jsr	popa            ; Get Y
+_gotoxy:
+	clc
+	adc	WNDTOP
+	sta	CV              ; Store Y
+	jsr	VTABZ
+	jsr	popa            ; Get X
+_gotox:
+	bit	TATTR
+	bmi	t64
+	asl
+t64:
+	sta     CH              ; Store X
+	rts