From 71bcb289a7ecbaff94198e21c99cd371064bb9f1 Mon Sep 17 00:00:00 2001
From: Tolik <85737314+Tolik-Trek@users.noreply.github.com>
Date: Mon, 7 Jul 2025 22:53:01 +1000
Subject: [PATCH] fixed eject bug

---
 CMDPARSE.ASM |  2 ++
 COMMAND.ASM  | 10 +++++-----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/CMDPARSE.ASM b/CMDPARSE.ASM
index 461e978..17ec9c9 100644
--- a/CMDPARSE.ASM
+++ b/CMDPARSE.ASM
@@ -68,6 +68,8 @@ EX_COMMAND_LINE:
 		POP	IX
 		JR	NC,.EOCL
 		;
+		CP	BIOS.Error.ATAPI.MediumError
+		JR	Z,.EOCL
 		CP	BIOS.Error.ATAPI.UnitAttention
 		JR	NZ,.error
 		;
diff --git a/COMMAND.ASM b/COMMAND.ASM
index a380723..fb9064c 100644
--- a/COMMAND.ASM
+++ b/COMMAND.ASM
@@ -22,11 +22,11 @@ COMP01:		LD	D,H
 COMP004:	PUSH	BC
 		PUSH	DE
 COMP000:	LD	A,(DE)
-		CP	#61
+		CP	'a' 
 		JP	C,COMP001
-		CP	#7B
+		CP	'z' + 1
 		JP	NC,COMP001
-		SUB	#20
+		SUB	%0010'0000
 COMP001:	CP	(HL)
 		JP	NZ,COMP002
 		INC	HL
@@ -51,8 +51,8 @@ NOSPC:		INC	HL
 
 COMP002:	XOR	A
 		LD	C,#FF
-		CPI
-		JP	NZ,$-2
+.loop:		CPI
+		JP	NZ,.loop
 		INC	HL
 		INC	HL
 		POP	DE