-bug in _TST_PROC_2 - мог залезть не в ту папку перед запуском приложения с флагом CurrentDIr = 0

2026-06-15 09:21:47 +03:00 · 2025-02-26 05:31:35 +10:00 · 2025-02-26 05:31:35 +10:00 · 1fa6c70b51
commit 1fa6c70b51
parent dd2a134ad3
4 changed files with 5 additions and 2 deletions
--- a/DSS/API/Execute.ASM
+++ b/DSS/API/Execute.ASM
@ -423,6 +423,7 @@ _TST_PROC_2:	LD	SP,(CORE_BUFFERS.EXEBUFF.SP_REG)
 		 OR	A
 		 JR	NZ,.set_path
 		 CALL	DIR_PATH_CHANGE.FullCurrent
+		 LD	HL,CORE_BUFFERS.CurrentPath
 .set_path:	 CALL	CHDIR_FN
 		 POP	IX
 		;
--- a/DSS/DSS-MAIN.ASM
+++ b/DSS/DSS-MAIN.ASM
@ -514,6 +514,8 @@ CLEAR_ZONE.size         EQU _sBuffers
 	EXPORT	CORE_BUFFERS.BUFFER
 	EXPORT	CORE_BUFFERS.SECTOR_BUFFER
 	EXPORT	CORE_BUFFERS.MemoryTable
+	EXPORT	CORE_BUFFERS.CurrentDirectory
+	EXPORT	CORE_BUFFERS.WorkDirectory
 /*
 ;R11    \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
 FM_BUF          _sFM=$
--- a/DSS/build.txt
+++ b/DSS/build.txt
@ -1 +1 @@
-16
+17
--- a/SHELL/build.txt
+++ b/SHELL/build.txt
@ -1 +1 @@
-456
+457