T858C:	db	"PATH=",0		; строка

;///////////////////////////////////////////////////
;
; PATH. Установка пути
;
;///////////////////////////////////////////////////
cmd_path:
	ld	a,(de)			; ком-строка
	or	a
	jr	z,A85B9			; аргументов не было
	; уст. путь
	inc	de
	cp	9			; Tab
	jr	z,cmd_path
	cp	" "+1
	jr	c,cmd_path
	dec	de
	ex	de,hl
	dec	hl
	ld	(hl),"="
	dec	hl
	ld	(hl),"H"
	dec	hl
	ld	(hl),"T"
	dec	hl
	ld	(hl),"A"
	dec	hl
	ld	(hl),"P"		; начало строки имени
	ld	bc,Dss.Environ.Set*256 + Dss.Environ	; устан./удалить перем. окружения
	RST	ToDSS
	call	c,print_err_message	; вывод сообщения
	ret

; Показать системный путь
A85B9:	;ld	de,T9186		; куда
	ld	de,work_buffer1;
	ld	hl,T858C		; имя переменной "PATH="
	ld	bc,Dss.Environ.Get*256 + Dss.Environ	; получить переменную окружения
	RST	ToDSS
	jp	c,print_err_message	; вывод сообщения
	ld	hl,T858C		; "PATH=",0
	ld	c,Dss.PChars
	RST	ToDSS
	;ld	hl,T9186		; строка
	ld	hl,work_buffer1;
	ld	c,Dss.PChars
	RST	ToDSS
	jp	newline