From 4a49ae559bf519a624e61b288f04f78dbb1ca333 Mon Sep 17 00:00:00 2001
From: Tolik <85737314+Tolik-Trek@users.noreply.github.com>
Date: Sat, 24 Aug 2024 04:21:20 +1000
Subject: [PATCH] fixed cmd /hdd in tr-dos rom

---
 src/ZX_ROMS/new/SP_TRDOS.bin | Bin 16384 -> 16384 bytes
 src/bios/exp/EXP.asm         |   7 +++++++
 src/bios/exp/FUNC_SYS.ASM    |  13 +++++++++++--
 src/bios/exp/FUNC_ZX.ASM     |   1 -
 4 files changed, 18 insertions(+), 3 deletions(-)

diff --git a/src/ZX_ROMS/new/SP_TRDOS.bin b/src/ZX_ROMS/new/SP_TRDOS.bin
index 5a6e7c8eb9919610a7ca17be3ecba94d7837eeed..8267a4ffb48e17c6f34eb5f2610bf201adca1e10 100644
GIT binary patch
delta 74
zcmV-Q0JZ;sfB}Gj0kDS-Fvbq^0pbAdKtBG{;vPUco5BA7Hz*jpI2AIQ!R8O`LDddN
g&G<jjIBgD@!}ve#L9?h1NddADTqyw~vt2o(2KWUa;{X5v

delta 63
zcmV-F0Kor%fB}Gj0kDS-A-4|m+u~0?{?p<fKsuYj{{JWoyEq6kn!)A|GA+S*)8ezY
V4oLx%a03sr5L_t%6ti79qXwqN8!`X@

diff --git a/src/bios/exp/EXP.asm b/src/bios/exp/EXP.asm
index 43a2ba3..3382012 100644
--- a/src/bios/exp/EXP.asm
+++ b/src/bios/exp/EXP.asm
@@ -867,6 +867,7 @@ PrepareToZX:	;CALL	init_zx_roms
 		; find first good partition
 		;
 
+	; ç¨á⪠ ¯¥à¥¬¥­­ëå ZX HDD
 		IN	A,(SLOT3)
 		EX	AF,AF
 		LD	A,SYS_PAGE
@@ -877,9 +878,15 @@ PrepareToZX:	;CALL	init_zx_roms
 		LD	L,A
 		LD	(SYS_PAGE.CURRENT_DIR_SEC_L),HL
 		LD	(SYS_PAGE.CURRENT_DIR_SEC_H),HL
+		DEC	A
+		LD	(SYS_PAGE.CURRENT_HDD),A
+		LD	(SYS_PAGE.CURRENT_DIR_DRIVE),A
+		LD	(SYS_PAGE.CURRENT_DIR_DRIVE_COPY),A
+		;
 		EX	AF,AF
 		OUT	(SLOT3),A
 		EX	AF,AF
+	;
 
 .loop:		CALL	FN_HDD_PART
 		JR	NC,.start_zx
diff --git a/src/bios/exp/FUNC_SYS.ASM b/src/bios/exp/FUNC_SYS.ASM
index f9a5cf9..bfb76b9 100644
--- a/src/bios/exp/FUNC_SYS.ASM
+++ b/src/bios/exp/FUNC_SYS.ASM
@@ -185,7 +185,7 @@ INIT_SYS_ALL:
 	DI
 	; LD	HL,#8000
 	; LD	DE,#8001
-	; LD	(HL),0
+	; LD	(HL),#FF
 	; LD	BC,#3FFF
 	; LDIR
 	;
@@ -198,7 +198,16 @@ INIT_SYS_ALL:
 	LD	DE,SYS_PAGE.ID_FLAG - #4000
 	LD	BC,ID_SPRINTER.Record1_Size
 	LDIR
-        
+	; ç¨á⪠ ¯¥à¥¬¥­­ëå ZX HDD
+	XOR	A
+	LD	H,A
+	LD	L,A
+	LD	(SYS_PAGE.CURRENT_DIR_SEC_L - #4000),HL
+	LD	(SYS_PAGE.CURRENT_DIR_SEC_H - #4000),HL
+	DEC	A
+	LD	(SYS_PAGE.CURRENT_HDD - #4000),A
+	LD	(SYS_PAGE.CURRENT_DIR_DRIVE - #4000),A
+	LD	(SYS_PAGE.CURRENT_DIR_DRIVE_COPY - #4000),A
 	; Disable user IM address in SYS_PAGE
 	 XOR	A
 	 LD	(SYS_PAGE.INT_ID - #4000),A
diff --git a/src/bios/exp/FUNC_ZX.ASM b/src/bios/exp/FUNC_ZX.ASM
index 813ab8a..bcfb84a 100644
--- a/src/bios/exp/FUNC_ZX.ASM
+++ b/src/bios/exp/FUNC_ZX.ASM
@@ -131,7 +131,6 @@ GET_SCORP_RAM:	IN	A,(SLOT3)
 ;°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°;
 
 
-
 ;-----------------------------------------------------------------------;
 ;!TODO § ¤¥©á⢮¢ âì
 GOTO_SPEC:	IN	A,(SLOT3)