SEARCH_RECORD_IN_DIR_CACHE

допилить переключение страницы кэша при достижении конца директории (напоролись на ноль)

DSS/API/Close.asm

@@ -50,7 +50,7 @@ CLOSE_FN:	LD	(.TMP),A
 		;
 		LD	L,(IY+_sFM.HANDLE)
 		LD	H,(IY+_sFM.HANDLE+1)
-		CALL	LOADDIR.Custom	; [ ] big dir
+		CALL	LOADDIR.Custom	; [ ] big dir			;!FIXIT check error
 		; [ ] big dir
 		;!TODO ®â¬®â âì ªíè ¤® ­ã¦­®£® record index?
 		;

DSS/API/Delete.asm

@@ -18,7 +18,7 @@ DEL_FN:		; Current Dir 15/10/23
 		;
 		CALL	CHECK_NAME
 		RET	Z
-		;
+		;!FIXIT check error
 		CALL	LOADDIR	; [ ] big dir	; !FIXIT ¤ã¡«¨àã¥â ¤¥©á⢨¥ ¨§ SetPath_GetName?
 		CALL	SEARCH.File
 		RET	C

DSS/API/Find.asm

@@ -24,10 +24,15 @@ F_FIRST_FN:	CALL	F_FIRST.INIT_VARS
 		;
 F_FIRST:	CALL	.INIT_VARS
 .begin:		CALL	SetPath_GetName	;!FIXIT ­¥ ¤ã¡«¨àã¥âáï «¨ ¯®á«¥ DIR_PATH_CHECK ¢ëè¥?
-		;CALL	LOADDIR
 		RET	C
+		;
+		LD	A,(CORE_BUFFERS.FS_Buffer.DirBlock)
+		AND	A
+		CALL	NZ,LOADDIR	;!FIXIT check error
+		;
 		CALL	MASK
 		RET	C
+		;
 		LD	A,(.SEARCH_ATTRIBUT)
 		CALL	SEARCH.Custom
 		RET	C

DSS/API/Read.asm

@@ -16,9 +16,10 @@ READ:		LD	(.R_POINT),HL
 		LD	A,(IY+_sFM.DRIVE)
 		CALL	OPENDSK
 		JP	C,.ERR_1
-		CALL	GET_OFFSET_IN_SECTORS
 		;
+		CALL	GET_OFFSET_IN_SECTORS
 		JP	NZ,.ROV1
+		;
 .ROV4:		POP	BC
 		PUSH	BC
 		SRL	B
@@ -29,6 +30,7 @@ READ:		LD	(.R_POINT),HL
 .R_POINT+2: 	LD	IX,0
 		CALL	BLOCK_READ
 		JP	C,.ERR_1
+		;
 		LD	DE,(.R_POINT)
 .PointerOnBuffer+1:
 		LD	HL,0                    // LD HL,(READMEM)
@@ -64,6 +66,7 @@ READ:		LD	(.R_POINT),HL
 		LD	C,SLOT3
 		OUT	(C),B
 		JP	C,.ERR_1
+		;
 		LD	HL,CORE_BUFFERS.BUFFER
 		LD	DE,(.R_POINT)
 		POP	BC
@@ -71,7 +74,6 @@ READ:		LD	(.R_POINT),HL
 		LD	(.R_POINT),DE
 .ROV6:		LD	HL,(.R_POINT)
 .S_POINT+1: 	LD	DE,0
-		;EX	DE,HL
 		AND	A
 		SBC	HL,DE
 		PUSH	HL
@@ -108,7 +110,6 @@ READ:		LD	(.R_POINT),HL
 		POP	HL
 		LD	C,B
 		ADC	HL,BC
-		;
 		EXX 
 		 POP	DE
 		 LD	HL,512		;!HARDCODE ;!FIXIT ; [ ] sector size

DSS/API/Rename.asm

@@ -35,7 +35,7 @@ RENAME:		; Current Dir 15/10/23
 		RET	Z
 		;
 		PUSH	DE
-		; !FIXIT ¤ã¡«¨àã¥â ¤¥©á⢨¥ ¨ ¤¨à¥ªâ®à¨ï 㦥 § £à㦥­ ?
+		; !FIXIT ¤ã¡«¨àã¥â ¤¥©á⢨¥ ¨ ¤¨à¥ªâ®à¨ï 㦥 § £à㦥­ ?	 ;!FIXIT check error
 		 CALL	LOADDIR		; [ ] big dir			; ¯à®ç¨â âì ᯨ᮪ ª â «®£ 
 		;
 		LD	A,FAT_ATTR.NoSYSnoVolID
@@ -65,13 +65,13 @@ RENAME:		; Current Dir 15/10/23
 		RET	C
 		;
 	SET_PAGE_X DIRPAGE
-		EX	AF,AF'
+		PUSH	AF
 		; ­  á«ãç © ¯¥à¥ª«î祭¨ï áâà ­¨æë ªíè  ¯®á«¥ SEARCH.Custom "new_name.ext"
 		 LD	A,(CORE_BUFFERS.FS_Buffer.DirBlock)
 .DirBlock+1:	 CP	0
-.recordIndex+1:	 LD	DE,0
+.recordIndex+1:	 LD	HL,0
 		 SCF							; ­¥ ¯¥à¥áç¨â뢠âì à §¬¥à ¤¨à¥ªâ®à¨¨
-		 CALL	NZ,LOADDIR.next
+		 CALL	NZ,LOADDIR.next		;!FIXIT check error
 		;
 		LD	HL,CORE_BUFFERS.MASKARE
 .recordAddr+1:	LD	DE,0
@@ -80,8 +80,9 @@ RENAME:		; Current Dir 15/10/23
 		; 
 		;CALL	DELETE_LFN_RECORDS				; [ ] 㤠«¥­¨¥ § ¯¨á¨ LFN
 		;
-		EX	AF,AF'
+		POP	AF
 		OUT	(SLOT3),A
+		LD	HL,(.recordIndex)
 		; [ ] big dir ¯¥à¥¤ ¢ âì ®âªã¤  ¨ ᪮«ìª® ¡ ©â®¢ ¨§¬¥­¨«®áì ¢ ªíè, ç⮡ ­¥ ¯¨á âì ­  ¤¨áª «¨è­¥£®
 		JP	SAVEDIR
-;	;	;
+////////////////////////////////////////////////////////////////////////

DSS/DOS_FS.ASM

@@ -50,8 +50,10 @@ SetPath_GetName:
 		LD	A,(HL)
 		CP	'a'
 		JR	C,.next
+		;
 		CP	'z'+1
 		JR	NC,.next
+		;
 		SUB	%0010'0000
 .next:		SUB	'A'
 		INC	HL
@@ -60,17 +62,20 @@ SetPath_GetName:
 		CALL	CHDISK
 		POP	HL
 		RET	C
+		;
 		LD	A,(HL)
 		OR	A
 		JR	Z,.done
+		;
 		CP	' '
 		JR	Z,.done
+		;
 		CP	'\'						;
 		SCF
 		LD	A,DSS_Error.sys.PATH_NOT_FOUND
 		RET	NZ
-		INC	HL
 		;
+		INC	HL
 .dir_loop:	LD	DE,CORE_BUFFERS.TMPNAME
 		LD	BC,256*CORE_BUFFERS.TMPNAME.Size + #FF
 .loop:		LD	A,(HL)
@@ -83,7 +88,9 @@ SetPath_GetName:
 		CP	' '+1
 		CCF 
 		RET	NC
+		;
 		DJNZ	.loop
+		;
 		LD	A,DSS_Error.sys.INVALID_NAME
 		SCF 
 		RET

DSS/FS/FAT.asm

@@ -2172,9 +2172,13 @@ SEARCH:
 SEARCH_RECORD_IN_DIR_CACHE:
 		;CPL
 		LD	C,A
+		LD	A,(CORE_BUFFERS.FS_Buffer.DirBlock)
+		LD	(.StartPage),A
+		SLA	A
 		;!TEST	9/11/23	record index
 		 EXX 
-		  LD	DE,0
+		  LD	D,A		 
+		  LD	E,0
 		 EXX 
 		;
 .loop_big:	LD	IX,DIRPAGE.buffer
@@ -2232,8 +2236,24 @@ SEARCH_RECORD_IN_DIR_CACHE:
 		POP	DE
 		EXX
 		POP	BC
-		JR	NC,.loop_big	; !FIXIT ¬®¦¥â ¡ëâì ®è¨¡ª  ç⥭¨ï ¨«¨ ¯à¨ ZF - ª®­¥æ ¤¨à¥ªâ®à¨¨
+		;JR	NC,.loop_big	; !FIXIT ¬®¦¥â ¡ëâì ®è¨¡ª  ç⥭¨ï ¨«¨ ¯à¨ ZF - ª®­¥æ ¤¨à¥ªâ®à¨¨
+		;RET
+
+		RET	C
 		;
+		; ¯®«­ë© ®¡å®¤ ª â «®£  ­ ç¨­ ï á § £à㦥­­®© áâà ­¨æë
+		LD	A,(CORE_BUFFERS.FS_Buffer.DirBlock)
+		AND	A
+		JR	NZ,.toStartPage
+		;
+		EXX
+		 LD	DE,0
+		EXX
+.toStartPage:	;
+.StartPage+1:	CP	0
+		JR	NZ,.loop_big
+		;
+		SCF
 		RET
 		;
 .next_char:	INC	HL
@@ -2252,10 +2272,10 @@ SEARCH_RECORD_IN_DIR_CACHE:
 FINDDIR:	SET_PAGE_X DIRPAGE
 		;
 		PUSH	AF
-		;[ ] big dir ; !FIXIT § ¬¥­¨âì ­  横«¨ç­ë© ¯¥à¥¡®à ¤¨à¥ªâ®à¨¨ ¯® áâà ­¨æ ¬, ç⮡ ­¥ ¤¥« âì «¨è­¨å § £à㧮ª
+		;
-		 LD	A,(CORE_BUFFERS.FS_Buffer.DirBlock)
+		 ;LD	A,(CORE_BUFFERS.FS_Buffer.DirBlock)
-		 AND	A
+		 ;AND	A
-		 CALL	NZ,LOADDIR
+		 ;CALL	NZ,LOADDIR	;!FIXIT check error
 		;
 		LD	A,#28						; JR Z,...
 		LD	(SEARCH_RECORD_IN_DIR_CACHE.type),A		; search directory
@@ -2491,29 +2511,22 @@ OPENDIR:	; init
 		;
 ;-------------; JP	LOADDIR
 ;----------------------------------------------------------------------;
+;!TODO optimize
 ; <20>à®ç¨â âì ᯨ᮪ ª â «®£ 
-; ¢å®¤ (CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_L), (CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_H)
+; ‚室: (CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_L), (CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_H)
-LOADDIR:	;!TODO optimize
+LOADDIR:	LD	HL,0						;!FIXIT ¥á«¨ HL ¢ë©¤¥â §  à §¬¥àë ¤¨à¥ªâ®à¨¨ ¨ DirBlock ¡ã¤¥â ­¥ª®à४â­ë¬?
-		;!FIXIT ¥á«¨ HL ¢ë©¤¥â §  à §¬¥àë ¤¨à¥ªâ®à¨¨ ¨ DirBlock ¡ã¤¥â ­¥ª®à४â­ë¬?
+;[-------------]
-		LD	HL,0						; ID § ¯¨á¨, ª®â®àë© ¤®«¦¥­ ¯®¯ áâì ¢ Š<>˜
+; ‚室:		HL - ID § ¯¨á¨, ª®â®àë© ¤®«¦¥­ ¯®¯ áâì ¢ Š<>˜
+;		(CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_L), (CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_H)
 .Custom:	AND	A						; ¢ LOAD_SAVE_DIR_PREPARE ¯®áç¨â ¥âáï à §¬¥à ª â «®£  ¤¨à¥ªâ®à¨¨
+;[-------------]
+; ‚室:		HL - ID § ¯¨á¨, ª®â®àë© ¤®«¦¥­ ¯®¯ áâì ¢ Š<>˜
+;		(CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_L), (CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_H)
+;		CF - ­¥ à ááç¨â뢠âì à §¬¥à ¤¨à¥ªâ®à¨¨
 .next:		CALL	LOAD_SAVE_DIR_PREPARE
 		PUSH	AF
 		EX	AF,AF'
-		;JR	NZ,.read_dir					; root dir or not
-		; root dir
-		;LD	A,(CORE_BUFFERS.FS_Buffer.FAT_TYPE)
-		;CP	FAT_TYPE.x32
 		JR	Z,.LoadRootDirFAT12_16
-		;CALL	LOAD_SAVE_DIR_PREPARE.CalcDirSize
-		; fat32
-		;  LD	HL,(CORE_BUFFERS.FS_Buffer.RootDirStartCluster_L)
-		;  LD	(CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_L),HL
-		;  LD	HL,(CORE_BUFFERS.FS_Buffer.RootDirStartCluster_H)
-		;  LD	(CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_H),HL
-		;  ;LD	HL,(CORE_BUFFERS.FS_Buffer.BytesPerCluster)	; !FIXIT ¢ëç¨â뢠âì ¯®«­®áâìî ª â «®£
-		;  LD	HL,DIRPAGE.size					; à §¬¥à ¤¨à¥ªâ®à¨¨ ;!HARDCODE
-		;  LD	(CORE_BUFFERS.FM_BUF.FS_REC.F_SIZE),HL
 		;
 .read_dir:	LD	HL,DIRPAGE.buffer				; ªã¤ 
 		LD	DE,DIRPAGE.size					; ᪮«ìª®
@@ -2532,18 +2545,23 @@ LOADDIR:	;!TODO optimize
 		OR	E
 		RET	NZ
 		; ç¨â ¥¬ á ­ ç « 
-		CALL	LOADDIR
+		JR	LOADDIR
-.no_more:	XOR	A ;!FIXIT ­ ãç¨âì í⮬㠢ë§ë¢ î騥 ¯à®æ¥¤ãàë	; 0 - ­¥â ®è¨¡®ª. ¯à¨§­ ª ª®­æ  ª â «®£ 
+; .no_more:	LD	A,#FF
-		SCF
+; 		SCF
-		RET
+; 		RET
 		;
 .LoadRootDirFAT12_16:
 		; [ ] big dir
 		 LD	A,(CORE_BUFFERS.FS_Buffer.DirBlock)
 		 AND	A
-		 JR	NZ,.no_more
+		 JR	Z,.ok
 		 ;
-		LD	HL,(CORE_BUFFERS.FS_Buffer.RootDirFirstSector_H);!TODO ¢®§¬®¦­®, 墠â¨â LD HL,0
+		 XOR	A
+		 LD	(CORE_BUFFERS.FS_Buffer.DirBlock),A
+		 RET
+		 ;
+		;
+.ok:		LD	HL,(CORE_BUFFERS.FS_Buffer.RootDirFirstSector_H);!TODO ¢®§¬®¦­®, 墠â¨â LD HL,0
 		LD	IX,(CORE_BUFFERS.FS_Buffer.RootDirFirstSector_L); ­®¬¥à «®£. ᥪâ®à 
 		LD	A,(CORE_BUFFERS.FS_Buffer.DirSizeInSectors)
 		LD	B,32	; !HARDCODE sector size 512. 16384/(sector 512). à §¬¥à root-ª â «®£  ; [ ] sector size 512
@@ -2569,6 +2587,33 @@ LOADDIR:	;!TODO optimize
 
 
 
+;----------------------------------------------------------------------;
+; ‚室:	    HL - ID § ¯¨á¨, ª®â®àë© ¤®«¦¥­ ¯®¯ áâì ¢ Š<>˜
+; ‚ë室:  HLIX - ᬥ饭¨¥ ¢ ä ©«¥ ª â «®£  ­  ­ã¦­ë© ¡«®ª ¯® #4000 ¡ ©â®¢
+;	     A - <20>®¬¥à ¡«®ª  DirBlock
+; GET_DIRCACHE_BLOCK_ADDR:
+; 		; HLIX = (HL*32) & #1FC000 ᬥ饭¨¥ ­  ­ã¦­ë© ¡«®ª ¯® #4000 ¡ ©â®¢
+; 		XOR	A
+; 		LD	XL,A
+; 		LD	E,A
+; 		LD	A,H
+; 		LD	H,E
+; 		AND	#FE
+; 		RRA
+; 		RR	E
+; 		LD	D,A						; DirBlock
+; 		RRA
+; 		RR	E
+; 		RRA
+; 		RR	E
+; 		LD	XH,E
+; 		LD	L,A
+; 		LD	A,D
+; 		RET
+;----------------------------------------------------------------------;
+
+
+
 ;----------------------------------------------------------------------;
 ; [ ] ¤®¤¥« âì ¯¥à¥¤ çã ID § ¯¨á¨ ¤¨à¥ªâ®à¨¨ ¨ § £à㧪¨ ¯® ­¥© ­ã¦­®£® ªã᪠ ¢ ªíè
 ;!TODO FAT procedures
@@ -2579,8 +2624,8 @@ LOADDIR:	;!TODO optimize
 ;		ZF' - RootDir FAT12-16
 LOAD_SAVE_DIR_PREPARE:
 		PUSH	AF
-	; [ ] ‚室:	HL - ID § ¯¨á¨, ª®â®àë© ¤®«¦¥­ ¯®¯ áâì ¢ Š<>˜
+		;CALL	GET_DIRCACHE_BLOCK_ADDR
-	; [ ] ‚ë室:  HLIX - ᬥ饭¨¥ ¢ ä ©«¥ ª â «®£  ­  ­ã¦­ë© ¡«®ª ¯® #4000 ¡ ©â®¢
+		;LD	(CORE_BUFFERS.FS_Buffer.DirBlock),A
 		; HLIX = (HL*32) & #1FC000 ᬥ饭¨¥ ­  ­ã¦­ë© ¡«®ª ¯® #4000 ¡ ©â®¢
 		XOR	A
 		LD	XL,A
@@ -2597,12 +2642,10 @@ LOAD_SAVE_DIR_PREPARE:
 		RR	E
 		LD	XH,E
 		LD	L,A
-	;	;
 		;
 		XOR	A	; FILE MANIPULATOR = 0
 		LD	B,A	; ®â ­ ç «  ä ©« 
 		CALL	MOVE_FP
-
 	SET_PAGE_X DIRPAGE
 		POP	DE
 		AND	A
@@ -2610,7 +2653,7 @@ LOAD_SAVE_DIR_PREPARE:
 		;
 		LD	A,(CORE_BUFFERS.FS_Buffer.DRIVE)
 		LD	(CORE_BUFFERS.FM_BUF.DRIVE),A	
-	 ;;;;;;;;
+		; check fat12-16 root dir
 		XOR	A
 		LD	HL,(CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_L)
 		EXX
@@ -2620,7 +2663,6 @@ LOAD_SAVE_DIR_PREPARE:
 		EXX
 		OR	H
 		OR	L
-	 ;;;;;;;;
 	 	JR	Z,.exit
 		;
 	 	PUSH	AF
@@ -2631,32 +2673,8 @@ LOAD_SAVE_DIR_PREPARE:
 		POP	AF
 		RET
 		;
-.CalcDirSize:	; check dir cache
-		 ;LD	A,(CORE_BUFFERS.FS_Buffer.DirBlockDrive)
-		 ;LD	E,A
-		 ;LD	A,(CORE_BUFFERS.FS_Buffer.DRIVE)
-		 ;LD	(CORE_BUFFERS.FM_BUF.DRIVE),A
-		 ;RET	Z
-		 ;;
-		 ;CP	E
-		 ;JR	NZ,.goCalc
-		 ;;
-		 ;EX	DE,HL
-		 ;LD	HL,(CORE_BUFFERS.FS_Buffer.DirBlockStartCluster_L)
-		 ;SBC	HL,DE
-		 ;EX	DE,HL
-		 ;JR	NZ,.goCalc
-		 ;;
-		 ;EXX
-		 ; EX	DE,HL
-		 ; LD	HL,(CORE_BUFFERS.FS_Buffer.DirBlockStartCluster_H)
-		 ; SBC	HL,DE
-		 ; EX	DE,HL
-		 ;EXX 
-		 ;RET	Z
-		;
 		; calc dir size in clusters
-.goCalc:	LD	DE,0
+.CalcDirSize:	LD	DE,0
 .loop:		INC	DE	; <20> ¤¥¥¬áï âãâ ­  â®, ç⮠ᯥæ¨ä¨ª æ¨ï ¢ë¯®«­ï¥âáï ¨ ¯¥à¥¯®«­¥­¨ï ­¥ ¡ã¤¥â
 		PUSH	DE
 		CALL	READ_FROM_FAT
@@ -2691,25 +2709,20 @@ LOAD_SAVE_DIR_PREPARE:
 		RRCA
 		JR	C,.loop2
 		;
-.loop1:		;
+.loop1:		SLA	E
-		SLA	E
 		RL	D
 		EXX
 		 RL	E
 		 RL	D
-		 ;RL	C
 		EXX
-		;	
 		RRCA
 		JR	NC,.loop1
 		;
-.loop2:		;
+.loop2:		SLA	E
-		SLA	E
 		RL	D
 		EXX
 		 RL	E
 		 RL	D
-		 ;RL	C
 		EXX
 		;
 		SRL	B
@@ -2721,7 +2734,7 @@ LOAD_SAVE_DIR_PREPARE:
 		LD	(CORE_BUFFERS.FM_BUF.FS_REC.F_SIZE + 2),DE
 		RET
 
-/* 				 4          3          2          1
+/* 	¯à¨¬¥à			 4          3          2          1
 	#FFFF<<5 = #1FFFE0 = 0000 0000  0001 1111  1111 1111  1110 0000
 
 	#FFFF			­®¬¥à § ¯¨á¨
@@ -2735,32 +2748,21 @@ LOAD_SAVE_DIR_PREPARE:
 
 
 ;----------------------------------------------------------------------;
-;	ASSERT 0, "TODO!	GET_ADDR_IN_DIR_CACHE"
+;!TODO 	optimize
-;!TODO 
+;!TODO 	.DIRSIZE ¯®¬¥è ¥â ¥á«¨ ¢ ªíè ¡ã¤¥â ¤à㣠ï áâà ­¨æ ?
-;	.DIRSIZE ¯®¬¥è ¥â ¥á«¨ ¢ ªíè ¡ã¤¥â ¤à㣠ï áâà ­¨æ ?
+;!TODO 	LOAD_SAVE_DIR_PREPARE ¢®§¬®¦­® ­¥ ­ã¦¥­, ­ã¦­® ⮫쪮 ãáâ ­®¢¨âì ¯à ¢¨«ì­®¥ ᬥ饭¨¥ ¢ FM
-;	LOAD_SAVE_DIR_PREPARE ¢®§¬®¦­® ­¥ ­ã¦¥­, ­ã¦­® ⮫쪮 ãáâ ­®¢¨âì ¯à ¢¨«ì­®¥ ᬥ饭¨¥ ¢ FM
+;!TODO 	Œ®¦¥â ¢®®¡é¥ ¯¥à¥¤¥« âì ¥ñ ¯®¤ à ¡®âã á Š<>˜
-;	Œ®¦¥â ¢®®¡é¥ ¯¥à¥¤¥« âì ¥ñ ¯®¤ à ¡®âã á Š<>˜
+;!TODO 	; [ ] big dir ¯®«ãç âì ®âªã¤  ¨ ᪮«ìª® ¡ ©â®¢ ¨§¬¥­¨«®áì ¢ ªíè, ç⮡ ­¥ ¯¨á âì ­  ¤¨áª «¨è­¥£®
-
+;
 ; ‘¡à®á¨âì ª¥è ª â «®£  ­  ¤¨áª.
-; ¢å®¤: iy=áâàãªâãà  ¤¥áªà¨¯â®à 
+; ¢å®¤: HL - ID § ¯¨á¨, ª®â®à ï ¨§¬¥­¨« áì ¢ Š<>˜
-;	[ ] big dir ¯®«ãç âì ®âªã¤  ¨ ᪮«ìª® ¡ ©â®¢ ¨§¬¥­¨«®áì ¢ ªíè, ç⮡ ­¥ ¯¨á âì ­  ¤¨áª «¨è­¥£®
+;	¢ ªíè ¤®«¦­  ¡ëâì ª®à४⭠ï áâà ­¨æ  ¤¨à¥ªâ®à¨¨, DirBlkSize ª®à४â­ë© ⮦¥
-SAVEDIR:	;!TODO optimize
+SAVEDIR:	SCF							; ­¥ áç¨â âì à §¬¥à ¤¨à¥ªâ®à¨¨
-		SCF							; ­¥ áç¨â âì à §¬¥à ¤¨à¥ªâ®à¨¨
 		CALL	LOAD_SAVE_DIR_PREPARE
 		PUSH	AF
 		EX	AF,AF'
-		;JR	NZ,.save_dir
 		JR	Z,.SaveRootDir
 		;
-		;LD	A,(CORE_BUFFERS.FS_Buffer.FAT_TYPE)
-		;CP	FAT_TYPE.x32
-		;JR	NZ,.SaveRootDir
-		; fat32
-		 ;LD	HL,(CORE_BUFFERS.FS_Buffer.RootDirStartCluster_L)
-		 ;LD	(CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_L),HL
-		 ;LD	HL,(CORE_BUFFERS.FS_Buffer.RootDirStartCluster_H)
-		 ;LD	(CORE_BUFFERS.FM_BUF.FS_REC.FIRST_CLUSTER_H),HL
-		;
 .save_dir:	LD	HL,DIRPAGE.buffer
 	; à §¬¥à ᯨ᪠ ª â «®£  size_cash_directory
 	;!FIXIT ¥á«¨ ®­  ­ã¦­ , â® ¯à®¢¥à¨âì ­  ¡ £¨ (­ ¯à¨¬¥à, à §¬¥à ¤¨à४â®à¨¨ ¬¥­ìè¥ ¯à¨ ®âªàë⨨ ¨ ¡®«ìè¥ ¯®á«¥ ¯à ¢®ª)
@@ -2779,6 +2781,7 @@ SAVEDIR:	;!TODO optimize
 		LD	B,32	;!HARDCODE sector size 512, Root Dir max size in sectors
 		SUB	B
 		JR	NC,.RTD1S
+		;
 		ADD	A,B
 		LD	B,A
 .RTD1S:		LD	A,(CORE_BUFFERS.FS_Buffer.DRIVE)
@@ -2967,6 +2970,7 @@ WRITE_DATE_TIME_TO_DIRECTORY_RECORD:
 
 ;----------------------------------------------------------------------;
 ; <20>८¡à §®¢ âì ¨¬ï 8.3 -> 11 ä®à¬ â
+; !FIXIT ­ ¯¨á âì ­®à¬ «ì­®¥ ®¯¨á ­¨¥ ¢å®¤ /¢ë室 
 ; ¢å®¤: hl = 8.3 ¨¬ï
 ;       de = ¡ãä¥à ¨¬¥­¨ 11 ᨬ¢. ä®à¬ â 
 ;       ¯à¨ ®è¨¡ª¥ CF - ­¥¤®¯. ¨¬ï
@@ -2976,7 +2980,12 @@ WRITE_DATE_TIME_TO_DIRECTORY_RECORD:
 ; RET: C=2 FILE	WITHOUT	EXTENTION
 ;      C=1 FILE	WITH EXTENTION
 MASK:		LD	HL,CORE_BUFFERS.TMPNAME
+;[-------------]
+; ¢å®¤: hl = 8.3 ¨¬ï
 .name:		LD	DE,CORE_BUFFERS.MASKARE
+;[-------------]
+; ¢å®¤: hl = 8.3 ¨¬ï
+;       de = ¡ãä¥à ¨¬¥­¨ 11 ᨬ¢. ä®à¬ â 
 .custom:	PUSH	HL
 		PUSH	DE
 		LD	H,D

DSS/ToDo.txt

@@ -1,5 +1,12 @@
-<EFBFBD>® ¯®«­ë¬ ¤¨à¥ªâ®à¨ï¬.
+‹¥£¥­¤ :	[ ] ᤥ« âì
-;[x]  LOADDIR ¯®á«¥ READ ¢ë室¨âì á CF, ¥á«¨ ¯à®ç¨â ­® 0
+		[x] ᤥ« ­®
+		[!] ¯¥à¥¤¥« ­® ¨ ­¥ ᮢ¯ ¤ ¥â á ­ ¯¨á ­­ë¬
+
+<EFBFBD>® ¯®«­ë¬ ¤¨à¥ªâ®à¨ï¬:
+;[ ]  F_FIRST ¢ .INIT_VARS § ¯®¬¨­ âì ¤¨áª ¨ ª« áâ¥àë ¤¨à¥ªâ®à¨¨ ¤«ï ¢®ááâ ­®¢«¥­¨ï ¯à¨ ¢ë§®¢¥ F_NEXT
+;[ ]  F_NEXT ¥á«¨ ¢ ªíè ¤¨à¥ªâ®à¨© ­¥ â , çâ® ¡ë«  ¯à¨ ¢ë§®¢¥ F_FIRST, â® § ¯®¬­¨âì çâ® ¥áâì, ¢®áâ ­®¢¨âì, çâ® ¡ë«®,
+;            ®âà ¡®â âì ¨ § £à㧨âì ®¡à â­®, çâ® ¡ë«® ­  ¢å®¤¥ ¢ äã­ªæ¨î. € ­¥ä¨£ ¢® ¢à¥¬ï F_NEXT « § âì ¯® ¤¨à¥ªâ®à¨ï¬.
+;[!]  LOADDIR ¯®á«¥ READ ¢ë室¨âì á CF, ¥á«¨ ¯à®ç¨â ­® 0
 ;[x]  FINDDIR - ¯®ª  à ¡®â ¥â ⮫쪮 á ⥬, çâ® ¡ë«® § £à㦥­® ¢ ªíè ¨ ¬ «® çâ® ­ å®¤¨â, ¥á«¨ áâà ­¨æ ¡®«ìè¥ 1.
 ;[ ]  <20>¥à¥¤¥« âì WRITE_DIR_HANDLE ¤«ï à ¡®âë á «î¡®© § ¯¨áìî ¢ ª â «®£¥ (ᥩç á ¨é¥â ¯¥à¢ãî ¯ãáâãî, ç⮡ § ¯¨á âì ¢ ­¥ñ)
 ;[ ]  ‚ᥠ¨§¬¥­¥­¨ï ¢ § ¯¨áïå ª â «®£  ¤¥« âì ¢ ¡ãä¥à¥ CORE_BUFFERS.HANDBUF ¨ á®åà ­ïâì ç¥à¥§ WRITE_DIR_HANDLE