From da7b40b234155a5511e71d342752da33f41e985d Mon Sep 17 00:00:00 2001
From: Anatoliy Belyanskiy <tolik.trek@gmail.com>
Date: Thu, 23 May 2024 22:44:03 +1000
Subject: [PATCH] ...

---
 SHELL/Commands/DIR.ASM | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/SHELL/Commands/DIR.ASM b/SHELL/Commands/DIR.ASM
index ae2787e..9c5dab7 100644
--- a/SHELL/Commands/DIR.ASM
+++ b/SHELL/Commands/DIR.ASM
@@ -24,9 +24,6 @@ cmd_dir:	push	de
 		;
 .skip:		ld	c,Dss.CurDisk		; узнать тек. диск
 		RST	ToDSS
-		;ADD	A,"A"
-		;ld	(root_path),a		; номер диска
-		;SUB	"A"
 		call	read_disk_info		; прочитать метку и серийный номер диска
 		;
 		pop	de
@@ -42,11 +39,11 @@ cmd_dir:	push	de
 		ex	de,hl
 		ld	de,work_buffer1		; 80
 		ld	c,Dss.GSwitch		; выделить параметр ком-строки
+		RST	ToDSS
 	;!TODO тут в work_buffer1 лежит путь и/или/либо маска файла
 	; надо разобрать её Dss.EX_Path выделить если есть диск, путь и маску, после чего уже
 	; отпечатывать путь в шапке, узнавать CurDisk как в .skip выше. Делать это до вызова
 	; процедуры read_disk_info. Лучше делать это после метки .skip
-		RST	ToDSS
 		;
 		ld	a,(work_buffer1)
 		or	a