DiskINF: костыль для атрибута 0. Настоял Савелий))

DSS/API/Execute.ASM

@@ -540,19 +540,26 @@ EXSTACK:	DW CORE_BUFFERS.XSTACK.Spoint		;
 ;
 ; ‚ë室 ¨§ EXE-ä ©« :
 ;
-; 1) Žá¢®¡®¦¤ îâáï ¢á¥ ¡«®ª¨ ¯ ¬ï⨠ª®â®àë¥ ¢ë¤¥«ï« áì ¤ ­­®¬ã ¯à¨«®¦¥­¨î.
-; 2) ‚®ááâ ­ ¢«¨¢ îâáï áâà ­¨æë ª®â®àë¥ ¡ë«¨ ¯®¤ª«îç¥­ë ¤® § ¯ã᪠ EXE-ä ©« .
-; 3) ‚ᯮ¬¨­ ¥âáï á⥪.
-; 4) ‚ ॣ¨áâà A ¯®¬¥é ¥âáï ª®¤ ¢®§¢à â  ¨ ¢ë¯®«­ï¥âáï RET.
+; 1) Žá¢®¡®¦¤ îâáï ¢á¥ ¡«®ª¨ ¯ ¬ï⨠ª®â®àë¥ ¢ë¤¥«ï«¨áì ¤ ­­®¬ã ¯à¨«®¦¥­¨î.
+; 2) ‡ ªà뢠îâáï ¢á¥ ä ©«ë ®âªàëâë¥ ¯à¨«®¦¥­¨¥¬
+; 3) ‚®ááâ ­ ¢«¨¢ îâáï áâà ­¨æë ª®â®àë¥ ¡ë«¨ ¯®¤ª«îç¥­ë ¤® § ¯ã᪠ EXE-ä ©« .
+; 4) ‚ᯮ¬¨­ ¥âáï á⥪.
+; 5) ‚ ॣ¨áâà A ¯®¬¥é ¥âáï ª®¤ ¢®§¢à â  ¨ ¢ë¯®«­ï¥âáï RET.
 ;
 ;/////////////////////////////////////////////////////////////////////
-LEAVE:		LD	A,B
+LEAVE:		LD	A,R
+		PUSH	AF			; INT ON/OFF
+		DI
+		;
+		LD	A,B
 		LD	(ErrorLevel),A
 		CALL	FREE_PROCESS_MEMORY
 		;[x] 10/12/23 close EXE FMs
 		 CALL	FREE_PROCESS_FMs
 		;
 		_mDECTASK
+		;
+		POP	DE			; INT ON/OFF
 		LD	SP,(EXSTACK)
 		; âãâ á⥪ ¢ ­ã«¥¢®© áâà ­¨æ¥!
 		 POP	AF			; -2 EXSTACK size for 1 task 
@@ -563,14 +570,17 @@ LEAVE:		LD	A,B
 		 LD	A,H
 		 OUT	(SLOT3),A
 		 ;
+		 LD	A,E			; INT ON/OFF
 		 POP	DE			; -2
 		 POP	HL			; -2
 		 LD	(EXSTACK),SP
 		 LD	SP,HL
 		;
 		;!TEST
-		 ;EI
-		;
+		 AND	%0000'0100		; PO/PE flag
+		 JR	Z,.no_ei
+		 EI
+.no_ei:		;
 		EX	DE,HL
 		LD	A,(ErrorLevel)
 		;R12

DSS/API/diskINF.asm

@@ -245,11 +245,17 @@ GET_LABEL:	PUSH	DE
 		LD	A,FAT_ATTR.VOLUME_ID			;  âਡãâ ¬¥âª¨ ⮬ 
 		LD	B,high Dss.F_First.FATname
 		CALL	F_FIRST
-		;LD	BC,Dss.F_First.FATname			; f_first, ä®à¬ â 11
-		;RST	ToDSS
 		POP	DE
 		LD	HL,CORE_BUFFERS.FatBuffer.BPB_LABEL
 		RET	C
+		; [ ] 07/03/2025 ª®áâë«ì ¤«ï  âਡãâ  0. <20> áâ®ï« ‘ ¢¥«¨©))
+		 LD	HL,BUFFER_FIND.REC_Attr
+		 ADD	HL,DE
+		 LD	A,(HL)
+		 OR	A
+		 SCF
+		 RET	Z
+		;
 		LD	HL,BUFFER_FIND.REC_Name
 		ADD	HL,DE
 		RET

DSS/FS/FAT.asm

@@ -165,19 +165,19 @@ SEARCH:
 		LD	A,(IX+FAT_DIRECTORY_RECORD.ATTRIBUT)
 		AND	C
 		JR	NZ,.next_record
-	LD	HL,MASKARE
+		;
+.not_zero_attr:	LD	HL,MASKARE
 		LD	D,XH
 		LD	E,XL
 		LD	B,11
 		EX	DE,HL
-.loop_compare:
-	LD	A,(DE)
+.loop_compare:	LD	A,(DE)
 		CP	'?'
 		JR	Z,.next_char
 		CP	(HL)
 		JR	NZ,.next_record
-.next_char:
-	INC	HL
+		;
+.next_char:	INC	HL
 		INC	DE
 		DJNZ	.loop_compare
 		;
@@ -201,8 +201,8 @@ SEARCH:
 		EX	AF,AF'
 		AND	A
 		RET 
-.next_record:
-	LD	DE,FAT_DIRECTORY_RECORD
+		;
+.next_record:	LD	DE,FAT_DIRECTORY_RECORD
 		;!TEST	9/11/23	record index
 		 ; EXX 
 		 ; INC	DE

DSS/build.txt

@@ -1 +1 @@
-24
+26

Shared_Includes

@@ -1 +1 @@
-Subproject commit 60b5ff6a74b57614b1f54fbe5611585cd46582ab
+Subproject commit d22e7b9aae7efe3d24bdf767e057abc51e37ea2d