From 5ff18c1ebc7179002b9be74262ea536d968ffaea Mon Sep 17 00:00:00 2001
From: Konstantin <sintechs@gmail.com>
Date: Wed, 4 Jun 2025 23:11:13 +0300
Subject: [PATCH] Updates

---
 asminc/agat.inc    |  1 +
 include/agat.h     | 12 ++++++----
 libsrc/agat/crt0.s | 57 ++++++++++++++++++++++++++++++++++++++++++----
 3 files changed, 62 insertions(+), 8 deletions(-)

diff --git a/asminc/agat.inc b/asminc/agat.inc
index 84d21dbc2..b96d31834 100644
--- a/asminc/agat.inc
+++ b/asminc/agat.inc
@@ -22,6 +22,7 @@ HIMEM   :=      $73     ; Highest available memory address+1
 ;-----------------------------------------------------------------------------
 ; Vectors
 
+DOSWARM :=      $03D0   ; DOS warmstart vector
 BRKVec  :=      $03F0   ; Break vector
 SOFTEV  :=      $03F2   ; Vector for warm start
 PWREDUP :=      $03F4   ; This must be = EOR #$A5 of SOFTEV+1
diff --git a/include/agat.h b/include/agat.h
index a8ed98bb0..6333170c7 100644
--- a/include/agat.h
+++ b/include/agat.h
@@ -24,10 +24,14 @@
 #define COLOR_WHITE	0x07
 
 /* Characters codes */
-#define CH_ENTER        0x0D
-#define CH_ESC          0x1B
-#define CH_CURS_LEFT    0x08
-#define CH_CURS_RIGHT   0x15
+#define CH_CTRL_C	0x03
+#define CH_ENTER	0x0D
+#define CH_ESC		0x1B
+#define CH_CURS_LEFT	0x08
+#define CH_CURS_RIGHT	0x15
+#define CH_CURS_UP	0x19
+#define CH_CURS_DOWN	0x1A
+#define CH_ESC		0x1B
 
 
 /* Masks for joy_read */
diff --git a/libsrc/agat/crt0.s b/libsrc/agat/crt0.s
index d678a79c8..9f8993332 100644
--- a/libsrc/agat/crt0.s
+++ b/libsrc/agat/crt0.s
@@ -3,6 +3,7 @@
 ;
 
         .export         __STARTUP__ : absolute = 1      ; Mark as startup
+        .export         _exit
 
         .import         initlib, donelib
         .import         zerobss, callmain
@@ -14,12 +15,60 @@
 ; ------------------------------------------------------------------------
 
 	.segment        "STARTUP"
+	jsr	init
+	jsr	zerobss
+	jsr	callmain
+_exit:	ldx	#<exit
+	lda	#>exit
+	jsr	reset
+	jsr	donelib
+exit:	ldx	#$02
+:	lda	rvsave,x
+	sta	SOFTEV,x
+	dex
+	bpl	:-
+	ldx	#zpspace-1
+:	lda	zpsave,x
+	sta	sp,x
+	dex
+	bpl	:-
+	ldx	#$FF
+	txs
+	jmp	DOSWARM
+
+
+
+	.segment	"ONCE"
+
+init:	ldx	#zpspace-1
+:	lda	sp,x
+	sta	zpsave,x
+	dex
+	bpl	:-
+
+	ldx	#$02
+:	lda	SOFTEV,x
+	sta	rvsave,x
+	dex
+	bpl	:-
+
 	lda	HIMEM
 	ldx	HIMEM+1
 	sta	sp
 	stx	sp+1
-	jsr	initlib
-	jsr	zerobss
-	jsr	callmain
-	jsr	donelib
+	ldx	#<_exit
+	lda	#>_exit
+	jsr	reset
+	jmp	initlib
+
+	.code
+
+reset:	stx	SOFTEV
+	sta	SOFTEV+1
+	eor	#$A5
+	sta	PWREDUP
 	rts
+
+	.segment	"INIT"
+zpsave:	.res	zpspace
+rvsave:	.res	3