From cc65c4ba24b9c6bce775c0a0be1af50de8e44213 Mon Sep 17 00:00:00 2001
From: Tolik <85737314+Tolik-Trek@users.noreply.github.com>
Date: Mon, 14 Apr 2025 01:19:45 +1000
Subject: [PATCH] =?UTF-8?q?=D0=B8=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=B0=20=D0=BE=D1=88=D0=B8=D0=BA=D0=B0=20=D0=B2=20?=
 =?UTF-8?q?OPENDSK=20-=20=D0=B5=D1=81=D0=BB=D0=B8=20=D0=B1=D1=8B=D0=BB=20?=
 =?UTF-8?q?=D0=BF=D1=80=D0=B8=D0=B7=D0=BD=D0=B0=D0=BA=20media=20changed,?=
 =?UTF-8?q?=20=D1=82=D0=BE=20=D0=BD=D0=B5=20=D1=82=D0=BE=20=D0=BF=D1=8B?=
 =?UTF-8?q?=D1=82=D0=B0=D0=BB=D0=BE=D1=81=D1=8C=20=D0=BE=D1=82=D0=BA=D1=80?=
 =?UTF-8?q?=D1=8B=D1=82=D1=8C?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 DSS/API/MkDir.asm | 12 ------------
 DSS/DOS_Proc.asm  |  6 +++---
 DSS/DSS-MAIN.ASM  |  4 ++--
 3 files changed, 5 insertions(+), 17 deletions(-)

diff --git a/DSS/API/MkDir.asm b/DSS/API/MkDir.asm
index bd3c466..6bf4046 100644
--- a/DSS/API/MkDir.asm
+++ b/DSS/API/MkDir.asm
@@ -168,18 +168,6 @@ MKDIR:
 		PUSH	HL			; ст. разряд
 		PUSH	IX			; номер лог. сектора
 		;
-			; IN	A,(SLOT3)
-			; PUSH	AF
-			; IN	A,(SLOT0)
-			; OUT	(SLOT3),A
-			; ;
-			; LD	A,(CORE_BUFFERS.FS_Buffer.DRIVE)
-			; LD	DE,CORE_BUFFERS.SECTOR_BUFFER+#C000
-			; LD	BC,1*256 + Dss.DRV.Write
-			; RST	ToDSS.DRV
-			; ;
-			; POP	AF
-			; OUT	(SLOT3),A
 		CALL	WRITE_SECTOR
 		; !FIXIT нет проверки на ошибку
 		;
diff --git a/DSS/DOS_Proc.asm b/DSS/DOS_Proc.asm
index 21dc66b..1bc60db 100644
--- a/DSS/DOS_Proc.asm
+++ b/DSS/DOS_Proc.asm
@@ -183,9 +183,9 @@ TMPNAME:	DZ '            '	; 12 
 ;----------------------------------------------------------------------;
 ; IN:	A - drive number
 OPENDSK:	;!TEST DRV.Open обход R10
-		 LD	C,A
+		 LD	B,A
 		 LD	A,(CORE_BUFFERS.FS_Buffer.DRIVE)
-		 CP	C
+		 CP	B
 	 	 JR	NZ,.open
 		 PUSH	BC
 		 LD	C,Dss.DRV.MediaCheck
@@ -194,7 +194,7 @@ OPENDSK:	;!TEST DRV.Open 
 		 JR	Z,.exit
 		 JR	.skip_open	;!FIXIT когда DRV.MediaCheck и DRV.Open будут отличаться
 		 ;
-.open:		 LD	A,C
+.open:		 LD	A,B
 		;
 .force: 	PUSH	AF
 		LD	C,Dss.DRV.Open
diff --git a/DSS/DSS-MAIN.ASM b/DSS/DSS-MAIN.ASM
index af5b6c7..a3057e0 100644
--- a/DSS/DSS-MAIN.ASM
+++ b/DSS/DSS-MAIN.ASM
@@ -607,8 +607,8 @@ F_START: DI
 	 ;LD	A,H
 	 ;LD	A,0
 	;
-	LD	B,1
-	CALL	BOOTDSK
+	;LD	B,1
+	CALL	BOOTDSK.SET
 	RET	C
 	;
 	EI