////////////////////////////////////////////////////////////////////////
; Функция #1D. Смена текущего каталога.
; Меняет текущий каталог и текущий диск, если он указан в файловой
; спецификации. Если путь начинается с "\" - это означает путь от
; корневого каталога, иначе от текущего.
;
; вход: HL - указатель на имя каталога
; выход: нет
;
;  INPUT: HL - "C:\DIR\DIR\DIR_NAME[\]",0
////////////////////////////////////////////////////////////////////////
CHDIR_FN:
	;!TEST Current Dir ;[x] 15/10/23
	 PUSH	HL
	 CALL	DIR_PATH_CHECK
	 POP	HL
	 RET	C
	 CALL	CHDIR
	 ; если удачно, то копируем WorkDirectory в CurrentDirectory
	 JP	NC,DIR_PATH_CHANGE.FullCurrent
	 ; если неудачно, то возвращаемся туда откуда пришли 
	 PUSH	AF
	 LD	HL,CORE_BUFFERS.CurrentDirectory
	 CALL	CHDIR
	 POP	AF
	 RET
	;
CHDIR:	CALL	GETWORD		; тест на допуст. имя и настр. на диск
	RET	C
	LD	HL,TMPNAME
	LD	A,(HL)
	OR	A
	RET	Z
	JP	OPENDIR
;