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