;АДРЕС: #0073 загрузка блока из ROM-Disk
;вх:  h - номер страницы с файлом
;     l - смещение в параграфах от начала ROM-disk в этой странице
;     b - размер в параграфах
;вых: b - осталось незагруженных параграфов
;     l - номер очередного параграфа
;
x0073	ld	c,#00
	ld	de,(#0070)	;e - начало ROM-disk в параграфах, d - всего параграфов
	ld	a,l
	or	a
	jr	nz,x007F
	ld	l,e
	ld	a,e
x007F	sub	e
	ld	e,a
	ld	a,d
	sub	e
	ld	e,a		;e - параграфов от начала блока до конца страницы
	ld	a,b
	sub	e
	jr	nc,x008F	;продолжение блока в следующей странице
	xor	a		;блок целиком в этой странице
	push	af
	call	x0099		;копирование блока в память
	pop	bc
	ret
x008F	inc	h		;увеличим номер страницы
	push	af		;запомним кол-во незагруженных параграфов
	ld	b,e
	call	x0099		;копирование блока в память
	pop	bc
	ld	l,#00
	ret
;копирование блока в память
;вх:  l - номер первого параграфа
;     b - кол-во параграфов
;     c=#00
;вых: a,l - номер очередного параграфа
x0099	push	hl
	ld	h,l
	ld	l,c
	ld	de,(xE7BE)
	ldir
	ld	(xE7BE),de
	ld	a,h
	pop	hl
	ld	l,a
	ret
;x00AA