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/cgetc.s
+++ b/libsrc/agat/cgetc.s
@@ -0,0 +1,23 @@
+;
+; Oleg A. Odintsov, Moscow, 2024
+;
+; char cgetc (void);
+;
+
+	.export         _cgetc
+        .import         cursor
+	.include        "agat.inc"
+
+_cgetc:
+	lda	#$DF ; _
+	bit	cursor
+	bne	hascur
+	lda	#$00
+hascur:	sta	CURSOR
+	jsr	j1
+	cmp	#$A0
+	bpl	:+
+	and	#$7F
+:	rts
+j1:	jmp	(VCIN)
+