////////////////////////////////////////////////////////////////////////
; Функция #1E. Информация о текущем каталоге.
;
; вход: HL - буфер в памяти 256 байт
; выход: A - код ошибки, если CF=1
////////////////////////////////////////////////////////////////////////
CURRDIR: LD	DE,CORE_BUFFERS.WorkDirectory
	JR	CURRDIR_FN.skip
CURRDIR_FN:
	LD	DE,CORE_BUFFERS.CurrentDirectory
.skip:	EX	DE,HL
	LD	BC,DIRECTORY_PATH_LENGTH	;[x] 15/11/2023 могло выйти за пределы буфера
	XOR	A
.loop:	CP	(HL)
	LDI
	JP	PO,.error			;[x] 15/11/2023 могло выйти за пределы буфера
	JR	NZ,.loop
	RET 
	;[x] 15/11/2023 могло выйти за пределы буфера
.error:  LD	A,DSS_Error.sys.TOO_DEEP_DIR_DEPTH
	 SCF
	 RET
	;
;