////////////////////////////////////////////////////////////////////////
;
;
////////////////////////////////////////////////////////////////////////
CHDISK_FN:	CALL	CHDISK
		RET	C
		PUSH	AF
		CALL	DIR_PATH_CHANGE.FullCurrent
		POP	AF
		RET
CHDISK:	;[x] более корректная смена диска
		 CALL	OPENDSK
		;
		;R010
		 RET    C
		 LD	HL,CORE_BUFFERS.WorkDirectory
		 LD	(HL),0
		 PUSH	AF
		 CALL	OPENDIR
		 POP	BC
		 RET	C
		 LD	A,B
		RET
;