some optimization

DSS/DOS5.ASM

@@ -29,7 +29,7 @@
 ;	  B = 1	SET ATTRIB
 ; OUTPUT: A - ATTRIB
 ////////////////////////////////////////////////////////////////////////
-ATTRIB:	;!Test Current Dir ;[x] 15/10/23
+ATTRIB:	;!TEST Current Dir ;[x] 15/10/23
 	 LD	C,A
 	 PUSH	HL
 	 PUSH	BC
@@ -98,7 +98,7 @@ ATTRIB:	;!Test Current Dir ;[x] 15/10/23
 ; INPUT: HL - "C:\DIR1\DIR2\filename.ext",#00
 ; OUTPUT: A - FM
 ////////////////////////////////////////////////////////////////////////
-CREATE:	;!Test Current Dir ;[x] 15/10/23
+CREATE:	;!TEST Current Dir ;[x] 15/10/23
 	 PUSH	HL
 	 CALL	DIR_PATH_CHECK
 	 POP	HL
@@ -112,7 +112,7 @@ CREATE:	;!Test Current Dir ;[x] 15/10/23
 	;
 ; INPUT: HL - "C:\DIR1\DIR2\filename.ext",#00
 ; OUTPUT: A - FM
-.NEW:	;!Test Current Dir ;[x] 15/10/23
+.NEW:	;!TEST Current Dir ;[x] 15/10/23
 	 PUSH	HL
 	 CALL	DIR_PATH_CHECK
 	 POP	HL
@@ -179,7 +179,7 @@ CREAT_N	EQU	CREATE.NEW
 ; INPUT: HL - "c:\dir\filename.ext",#00 without simbols * ?
 ////////////////////////////////////////////////////////////////////////
 DEL_FN:	;!TEST
-		;!Test Current Dir ;[x] 15/10/23
+		;!TEST Current Dir ;[x] 15/10/23
 		 PUSH	HL
 		 CALL	DIR_PATH_CHECK
 		 POP	HL
@@ -240,7 +240,7 @@ DELETE:	SET_PAGE_X DIRPAGE
 ;	 DE - "new_name.ext",#00 without simbols * ?
 ////////////////////////////////////////////////////////////////////////
 RENAME:
-		;!Test Current Dir
+		;!TEST Current Dir ;[x] 15/10/23
 		 PUSH	HL
 		 PUSH	DE
 		 CALL	DIR_PATH_CHECK.forceCheck
@@ -307,7 +307,7 @@ RENAME:
 ; ¢ë室: A - ¤¥áªà¨¯â®à ä ©« , ¥á«¨ CF=0
 ;        ª®¤ ®è¨¡ª¨, ¥á«¨ CF=1
 ////////////////////////////////////////////////////////////////////////
-OPEN_FN:;!Test Current Dir ;[x] 15/10/23
+OPEN_FN:;!TEST Current Dir ;[x] 15/10/23
 	 LD	C,A
 	 PUSH	HL
 	 PUSH	BC
@@ -433,25 +433,26 @@ CLOSE:	LD	(F_FIRST.ACCESS),A
 ;	A - ª®¤ ®è¨¡ª¨, ¥á«¨ CF=1
 ////////////////////////////////////////////////////////////////////////
 F_FIRST:
-		;!Test Current Dir
+	; Current Dir [x] 15/10/23
-		 LD	C,A
+	;  LD	C,A
-		 PUSH	HL
+	;  PUSH	HL
-		 PUSH	DE
+	;  PUSH	DE
-		 PUSH	BC
+	;  PUSH	BC
-		 CALL	DIR_PATH_CHECK
+	;  CALL	DIR_PATH_CHECK
-		 POP	BC
+	;  POP	BC
-		 POP	DE
+	;  POP	DE
-		 POP	HL
+	;  POP	HL
-		 RET	C
+	;  RET	C
-		 LD	A,C
+	;  LD	A,C
-		;
+	; ;
-
-
 	LD	(.ACCESS),A
 	LD	(.DTABUF),DE
 	LD	A,B
 	LD	(.FNDMODE),A
 	PUSH	HL
+	;!TEST Current Dir ;[x] 15/10/23
+	 CALL	DIR_PATH_CHECK
+	;
 	CALL	LOADDIR
 	POP	HL
 	CALL	GETWORD
@@ -848,7 +849,7 @@ PUT_D_T:
 ;  INPUT: HL - "C:\DIR\DIR\DIR_NAME[\]",0
 ////////////////////////////////////////////////////////////////////////
 CHDIR_FN:
-	;!Test Current Dir ;[x] 15/10/23
+	;!TEST Current Dir ;[x] 15/10/23
 	 PUSH	HL
 	 CALL	DIR_PATH_CHECK
 	 POP	HL
@@ -872,7 +873,7 @@ CHDIR:	CALL	GETWORD		;
 ;
 ;  INPUT: HL - "C:\DIR\DIR\DIR_NAME",0
 ////////////////////////////////////////////////////////////////////////
-MKDIR:	;!Test Current Dir ;[x] 15/10/23
+MKDIR:	;!TEST Current Dir ;[x] 15/10/23
 	 LD	C,A
 	 PUSH	HL
 	 PUSH	BC
@@ -1046,7 +1047,7 @@ MKDIR:	;!Test Current Dir ;[x] 15/10/23
 ;
 ;  INPUT: HL - "C:\DIR\DIR\DIR_NAME",0
 ////////////////////////////////////////////////////////////////////////
-RMDIR:	;!Test Current Dir ;[x] 15/10/23
+RMDIR:	;!TEST Current Dir ;[x] 15/10/23
 	 LD	C,A
 	 PUSH	HL
 	 PUSH	BC

DSS/DOS_FM.ASM

@@ -73,7 +73,7 @@ RES_FM:
         _mFM_FIND
 
 	LD	A,DSS_Error.sys.INVALID_HANDLE
-	EXX 
+	;EXX 
 	SCF 
 	RET	Z
 	XOR	A

DSS/EXECUTE.ASM

@@ -21,6 +21,15 @@
 ;R01	14-05-1999 DNS	DECREASE HEADER	SIZE FOR EXE-FILE
 ;---------------------------------------------------------------
 
+	MACRO	 _mINCTASK
+ 	 LD	HL,TASK		;R08
+	 INC	(HL)		;R08
+	ENDM
+	;
+	MACRO	 _mDECTASK
+	 LD	HL,TASK		;R08
+	 DEC	(HL)		;R08
+	ENDM
 
 //////////////////////////////////////////////////////////////////////
 ; !FIXIT âãâ ®¤­¨ § âã¯ë ¨ ¤¥¡¨«¨§¬
@@ -779,14 +788,6 @@ PATH_PNT_ARRAY	EQU	#FC80
 TMP_CURDIR	EQU	#FD00
 ENVTEMP		EQU	#FE00
 
-INCTASK: LD	HL,TASK		;R08
-	INC	(HL)		;R08
-	RET			;R08
-
-DECTASK: LD	HL,TASK		;R08
-	DEC	(HL)		;R08
-	RET			;R08
-
 
 ;/////////////////////////////////////////////////////////////////////
 ; ”ã­ªæ¨ï #40. ‚믮«­¨âì ä ©«.
@@ -852,10 +853,10 @@ EXEC_1:	LD	(CMDLINE),HL
 	CALL	TST_EXT
 	LD	A,DSS_Error.sys.FILE_NOT_FOUND
 	RET	C
-	CALL	INCTASK		;R08
+	 _mINCTASK			;R08
 	CALL	OPEN.FILE
 	JR	NC,.noError
-	CALL	DECTASK		;R08
+	 _mDECTASK			;R08
 	AND	A
 	RET	
 	;
@@ -996,7 +997,7 @@ ERREXE0: LD	A,DSS_Error.sys.NOT_ENOUGH_MEMORY
 ERREXE:	PUSH	AF
 	LD	A,(EXE_FM)
 	CALL	CLOSE
-	CALL	DECTASK
+	 _mDECTASK
 	POP	AF
 	RET 
 
@@ -1046,7 +1047,7 @@ _TST_PROC:
 	IN	A,(SLOT1)
 	PUSH	DE
 	PUSH	AF
-	;!Test close EXE FM [x] 25/10/23
+	;[x] 25/10/23 close EXE FM 
 	 LD	A,(EXE_FM)
 	 PUSH	AF
 	;
@@ -1131,7 +1132,7 @@ _TST_PROC_2:
 	LD	DE,RETFAR		;  ¤à¥á ¯/¯ "­¥®¦¨¤ ­­®¥ § ¢¥à襭¨¥ ¯à®æ¥áá "
 	PUSH	DE
 	PUSH	HL
-	;!Test Current Dir ;[x] 15/10/23
+	;!TEST Current Dir ;[x] 15/10/23
 	 PUSH	IX
 	 LD	HL,CurrentDirectory
 	 CALL	CHDIR_FN
@@ -1158,12 +1159,11 @@ _TST_PROC_2:
 LEAVE:	LD	A,B
 	LD	(ERLEVEL),A
 	CALL	LEAVMEM
-	;CALL	DECTASK		;!Test close EXE FM [x] 25/10/23
 	LD	SP,(EXSTACK)
-	;!Test close EXE FM [x] 25/10/23
+	;[x] 25/10/23 close EXE FM
 	 POP	AF
 	 CALL	RES_FM
-	 CALL	DECTASK
+	  _mDECTASK
 	; 
 	POP	AF
 	POP	HL

DSS/build.txt

@@ -1 +1 @@
-516
+522

SHELL/SHELL_EXEC.ASM

@@ -157,7 +157,6 @@ A839D:	ld	bc,0*256 + Dss.Exec	;
 	 CALL	RESTORE_ALL
 	 POP	AF
 	;
-
 	;[x] 25/10/23
 	 JP	NC,Ret_New_Line		; Ok
 	;

Shared_Includes

@@ -1 +1 @@
-Subproject commit a8a109eb8f4ee85e47d65911e8a0f2d2f5b71db1
+Subproject commit 4c835d305fd5d1bc296039706d5e163c1f2224ca