;/////////////////////////////////////////////////
; Левое меню выбора дисков
;/////////////////////////////////////////////////
select_left_drive:
	call	test_show_panels	; тест на режим вкл. панелей
	ret	z
	call	make_struct_drives	; создать описатель меню выбора дисков
	ld	hl,disk			; диск акт. панели
	ld	de,format_mode		; формат акт. панели
	ld	a,(cur_panel)		; тек. панель
	or	a
	jr	z,$+8			; акт. левая
	ld	hl,disk1		; диск пасс. панели
	ld	de,format_mode1		; формат пасс. панели
	ld	(set_ldrive_dsk+1),hl
	ld	(set_ldrive_frm+1),de
	ld	a,(hl)			; номер диска (полож. пункта меню)
	inc	a
	ld	hl,table_left_drive	; таблица меню выбора
	call	put_menu_select		; отрисовка меню
	call	get_fire		; защита от "залипания" бутонов
	call	event_menu_select	; обработчик событий меню
	; уст. диск панели
	jp	set_left_drive		; seldrv.asm



;/////////////////////////////////////////////////
; Правое меню выбора дисков
;/////////////////////////////////////////////////
select_right_drive:
	call	test_show_panels	; тест на режим вкл. панелей
	ret	z
	call	make_struct_drives	; создать описатель меню выбора дисков
	ld	hl,disk			; диск акт. панели
	ld	de,format_mode		; формат акт. панели
	ld	a,(cur_panel)		; тек. панель
	or	a
	jr	nz,$+8			; акт. правая
	ld	hl,disk1		; диск пасс. панели
	ld	de,format_mode1		; формат пасс. панели
	ld	(set_rdrive_dsk+1),hl
	ld	(set_rdrive_frm+1),de
	ld	a,(hl)			; номер диска (полож. пункта меню)
	inc	a
	ld	hl,table_right_drive	; таблица меню выбора
	call	put_menu_select		; отрисовка меню
	call	get_fire		; защита от "залипания" бутонов
	call	event_menu_select	; обработчик событий меню
	; уст. диск панели
	jp	set_right_drive		; seldrv.asm