From 7bda57266b9dc6a7b1eff4178f12b81b885bff9f Mon Sep 17 00:00:00 2001
From: Anatoliy Belyanskiy <tolik.trek@gmail.com>
Date: Mon, 24 Jun 2024 03:06:52 +1000
Subject: [PATCH] fixed no interrupts enter to PAUSE command in BAT

---
 SHELL/Commands/PAUSE.ASM | 16 ++++++++++++----
 SHELL/build.txt          |  2 +-
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/SHELL/Commands/PAUSE.ASM b/SHELL/Commands/PAUSE.ASM
index 55a48ce..c852082 100644
--- a/SHELL/Commands/PAUSE.ASM
+++ b/SHELL/Commands/PAUSE.ASM
@@ -4,11 +4,19 @@
 ;
 ;///////////////////////////////////////////////////
 cmd_pause:
-	ld	de,MAIN_MSG.PAUSE	; индекс "Press any key to continue ..."
-	call	ECHO_MESSAGE			; вывод строки
+	LD	de,MAIN_MSG.PAUSE	; индекс "Press any key to continue ..."
+	CALL	ECHO_MESSAGE			; вывод строки
 	LD	A,LF
 	LD	C,Dss.PutChar
 	RST	ToDSS
-	ld	c,Dss.WaitKey		; ждем нажатия клавиши
-	JP	ToDSS
+	LD	A,R
+	PUSH	AF
+	LD	C,Dss.WaitKey		; ждем нажатия клавиши
+	EI
+	RST	ToDSS
+	POP	AF
+	DI
+	RET	PO
+	EI
+	RET
 	;ret
diff --git a/SHELL/build.txt b/SHELL/build.txt
index 009bd2c..0ad1c6b 100644
--- a/SHELL/build.txt
+++ b/SHELL/build.txt
@@ -1 +1 @@
-407
\ No newline at end of file
+408
\ No newline at end of file