исправлен баг беготнёй по русским папкам

DSS/API/Find.asm

@@ -17,9 +17,9 @@ F_FIRST_FN:	CALL	F_FIRST.INIT_VARS
 		PUSH	HL
 		;!TEST Current Dir ;[x] 15/10/23
 		 CALL	DIR_PATH_CHECK
+		 POP	HL
 		 RET	C
 		;
-		POP	HL
 		JR	F_FIRST.begin
 		;
 F_FIRST:	CALL	.INIT_VARS

DSS/FS/FAT.asm

@@ -443,8 +443,8 @@ FINDDIR:
 	RET	Z
 	LD	(HL),A
 	INC	HL
-	LD	(HL),0
+	XOR	A	; á¡à®á CF § ®¤­®
-	;INC	HL
+	LD	(HL),A
 	RET
 ;----------------------------------------------------------------------;
 

DSS/Procedures.asm

@@ -206,31 +206,32 @@ CalcDayOfWeek:	LD	A,D
 
 ;----------------------------------------------------------------------;
 ; a..z -> A..Z
-UPPER:	CP	'a'
+UPPER:		CP	'a'
-	RET	C
+		RET	C
-	CP	'z' + 1
+		CP	'z' + 1
-	JR	NC,.MDUPPER
+		JR	NC,.CheckRUS
-	SUB	#20
+.Dec:		SUB	#20
-.NOUPPER:
+		RET
-	RET 
+		;
-.MDUPPER:
+.CheckRUS:	CP	' '		; àãááª ï ¡ãª¢   , ª®¤ #A0
-	CP	' '		; àãááª ï ¡ãª¢   , ª®¤ #A0
+		RET	C
-	JR	C,.NOUPPER
+		CP	'¯'		; àãááª ï ¡ãª¢  ¯, ª®¤ #B0
-	CP	'¯'		; àãááª ï ¡ãª¢  ¯, ª®¤ #B0
+		JR	C,.Dec
-	JR	NC,.BGUPPER
+		; JR	NC,.BGUPPER
-	SUB	#20
+		; SUB	#20
-	RET 
+		; RET
-.BGUPPER:
+		;
-	CP	'à'		; àãááª ï ¡ãª¢  à, ª®¤ #E0
+.BGUPPER:	CP	'à'		; àãááª ï ¡ãª¢  à, ª®¤ #E0
-	JR	C,.NOUPPER
+		RET	C
-	CP	'ð'		; àãááª ï ¡ãª¢  ð, ª®¤ #F0
+		CP	'ð'		; àãááª ï ¡ãª¢  ð, ª®¤ #F0
-	JR	NC,.HGUPPER
+		JR	NC,.HGUPPER
-	SUB	#50
+		SUB	#50
-	RET 
+		RET
+		;
 .HGUPPER:	CP	'ñ'	; àãááª ï ¡ãª¢  ñ, ª®¤ #F1
-	RET	NZ
+		RET	NZ
-	DEC	A
+		DEC	A
-	RET 
+		RET 
 ;----------------------------------------------------------------------;
 
 

DSS/build.txt

@@ -1 +1 @@
-49
+51