;///////////////////////////////////////////////////
;
; SET. Установить переменную окружения
;
;///////////////////////////////////////////////////
cmd_set:ld	a,(de)			; ком-строка
	or	a
	jr	z,A85EE			; пустая
	; уст. переменную окружения
	inc	de
	cp	9
	jr	z,cmd_set
	cp	" "+1
	jr	c,cmd_set
	dec	de
	ex	de,hl
	ld	bc,Dss.Environ.Set
	RST	ToDSS
	call	c,print_err_message	; вывод сообщения
	ret

; Показать системное окружение
A85EE:	;ld	hl,T9186		; куда
	ld	hl,Buffers.work.buffer1;
	ld	bc,Dss.Environ.Read	; получить сист. окружение
	RST	ToDSS
	;ld	hl,T9186
	ld	hl,Buffers.work.buffer1;
A85F8:	ld	c,Dss.PChars
	RST	ToDSS
	call	newline
	ld	a,(hl)
	or	a			; конец сист. окружения ?
	jr	nz,A85F8		; нет
	ret