From 8e8ca188d396f7cebc8ab5e09b7287cd82d83b59 Mon Sep 17 00:00:00 2001
From: Anatoliy Belyanskiy <tolik.trek@gmail.com>
Date: Sun, 31 Mar 2024 03:39:45 +1000
Subject: [PATCH] ...

---
 Shared_Includes |  2 +-
 menu.asm        | 68 ++++++++++++++++++++++++-------------------------
 2 files changed, 35 insertions(+), 35 deletions(-)

diff --git a/Shared_Includes b/Shared_Includes
index 68681fb..18c132c 160000
--- a/Shared_Includes
+++ b/Shared_Includes
@@ -1 +1 @@
-Subproject commit 68681fbc50da463f1debae860e6db64603886d39
+Subproject commit 18c132c6e9b507cb92d2144f5497278f021a0292
diff --git a/menu.asm b/menu.asm
index 8802a19..0a39d32 100755
--- a/menu.asm
+++ b/menu.asm
@@ -239,7 +239,8 @@ NO_TO_CORR
 
 ; Initialization variables
 
-INIT	XOR	A
+INIT:	XOR	A
+	LD	D,A
 	LD	(QUITMODE),A
 	LD	(ITEMCOUNT),A
 	LD	(AEXIT),A
@@ -249,9 +250,30 @@ INIT	XOR	A
 	LD	(DEFAULT_ITEM),A
 	LD	(RUN_TIME),A
 	LD	(CMD_MENU),A
-	
 	DEC	A
 	LD	(GO_TIME),A
+	;
+	LD	A,(IX+0)
+	ADD	A,3
+	LD	E,A
+	EX	DE,HL
+	 LD	D,XH
+	 LD	E,XL
+	EX	DE,HL
+	ADD	HL,DE
+	LD	(WorkDirAddr),HL
+	;
+	XOR	A
+	LD	BC,128	;!HARDCODE длина CL
+	CPIR
+	DEC	HL
+	LD	BC,128	;!HARDCODE длина CL
+	LD	A,'\' ;
+	CPDR
+	INC	HL
+	XOR	A
+	LD	(HL),A
+	;
 	RET
 ;
 
@@ -278,38 +300,19 @@ CLICK2	LD	L,(IX+2)
 ;
 	LD	C,2
 	RST	#30
-;
-	;  POP	HL
-	; LD	C,Dss.PCHARS
-	; RST	ToDSS
 
-;<Sayman>
-	 ;push bc
-		; ld	c,Dss.CurDisk
-		; rst	#10
-		; add 	a,'A'
-		; ld	(cwd),a
-		; ld	a,':'
-		; ld	(cwd+1),a
-		; ld	c,Dss.CurDir
-		; ld	hl,cwd+2
-		; rst	#10
-;</Sayman>
 
 	POP	HL
-;<Sayman>
-	ld bc,Dss.Exec
-;</Sayman>
-	RST	ToDSS		;Launch the program
-;<Sayman>
-		; push af
 
-		; ld hl,cwd
-		; ld c,Dss.ChDir
-		; rst #10
-		; pop af
-	 ;pop bc
-;</Sayman>
+	LD	BC,Dss.Exec
+	RST	ToDSS		;Launch the program
+	PUSH	AF
+	;
+	LD	HL,(WorkDirAddr)
+	LD	C,Dss.ChDir
+	RST	ToDSS
+	;
+	POP	AF
 	JR	NC,OK_EXEC
 	LD	A,7
 	CALL	MESSAGE
@@ -931,10 +934,7 @@ CH_L6	LD	(WIN_Y),A
 	LD	(OBSOLUTE_CNT_POS),HL
 	RET
 
-;<Sayman>
-;cwd:	ds 256
-;</Sayman>
-
+WorkDirAddr:	WORD	0
 OBSOLUTE_CNT_POS
 	DW	0