;///////////////////////////////////////////////////
;
; CD, CHDIR. Смена каталога
;
;///////////////////////////////////////////////////
cmd_chdir:
	ex	de,hl
	ld	de,Buffers.work.buffer1;
	ld	c,Dss.GSwitch		; выделить параметр ком-строки
	RST	ToDSS
	xor	a
	ld	hl,Buffers.work.buffer1;
	cp	(hl)
	jr	nz,.chdir
	ld	(hl),"."		; ".." родит. папка
	inc	hl
	ld	(hl),"."
	inc	hl
	ld	(hl),0
	dec	hl
	dec	hl
.chdir:	ld	c,Dss.ChDir		; сменить тек. каталог
	RST	ToDSS
	call	c,print_err_message	; вывод сообщения
	jp	Get_Path		; сохр. тек. диск и путь
;	; вывод сист. пути на экран
;	ld	c,8Eh			; узнать полож. курсора
;	RST	ToBIOS
;	ld	(YXpos),de		; Y/X начало ком-строки
;	ld	(cursor_position),de	; Y/X позиция курсора
;	;call	print_compath		; вывести путь + новая ширина поля ввода
;	;ld	de,(YXpos)		; Y/X начало ком-строки
;	;ld	c,84h			; уст. полож. курсора
;	;RST	ToBIOS
;	ret