;///////////////////////////////////////////////////
;
; RD, RMDIR. Удалить папку
;
;///////////////////////////////////////////////////
cmd_rmdir:
	ex	de,hl
	;ld	de,T9186		; буфер
	ld	de,Buffers.work.buffer1;
	ld	c,Dss.GSwitch		; выделить параметр ком-строки
	RST	ToDSS
	;ld	hl,T9186		; имя папки
	ld	hl,Buffers.work.buffer1;
	ld	c,Dss.RmDir		; удалить папку
	RST	ToDSS
	call	c,print_err_message	; вывод сообщения
	ret