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