; Объекты, не имеющие фокуса
;




;=====================================================================
; Прорисовка объекта
; Object ~Text Line~ (не может иметь фокус)
; Input: HL-описатель объекта
; Format table: нет
;---------------------------------------------------------------------
; Формат описателя:
;	db	TextLine
;	dw	0205h			; Yo,Xo
;	db	"Calculating free space...",0
;=====================================================================
PutTextLine:
	ld	c,(hl)			; X pos
	inc	hl
	ld	b,(hl)			; Y pos
	inc	hl
	call	GetPutA
	ldi
	inc	de			; пройти атрибут
	ld	a,(hl)
	cp	-1			; конец описателя окна
	ret	z
	or	a			; конец описателя TextLine
	jr	nz,$-8
	inc	hl
	ret





;=====================================================================
; Прорисовка объекта
; Object ~Horizontal Line~ (не может иметь фокус)
; Input: HL-описатель объекта
; Format table: нет
;---------------------------------------------------------------------
; Формат описателя:
;	db	HLine
;	dw	0801h			; Yo,Xo
;	db	40			; длина линии
;	db	"─"			; символ заполнения
;=====================================================================
PutHLine:
	ld	c,(hl)			; X pos
	inc	hl
	ld	b,(hl)			; Y pos
	inc	hl
	call	GetPutA
	ld	b,(hl)			; длина линии
	inc	hl
	ld	a,(hl)			; символ заполнения
	inc	hl
	ld	(de),a
	inc	de
	inc	de			; пройти атрибут
	djnz	$-3
	ret