;///////////////////////////////////////////////////
;
; CD, CHDIR. Смена каталога
;
;///////////////////////////////////////////////////
cmd_chdir:
	ex	de,hl
	;ld	de,T9186		; буфер
	ld	de,work_buffer1;
	ld	c,Dss.GSwitch		; выделить параметр ком-строки
	RST	ToDSS
	xor	a
	;ld	hl,T9186
	ld	hl,work_buffer1;
	cp	(hl)
	jr	nz,A877B
	ld	(hl),"."		; ".." родит. папка
	inc	hl
	ld	(hl),"."
	inc	hl
	ld	(hl),0
	dec	hl
	dec	hl
A877B:	ld	c,Dss.ChDir		; сменить тек. каталог
	RST	ToDSS
	;call	c,print_err_message
	jp	c,print_err_message	; вывод сообщения
;	call	newline
	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