From c1011079f6f4c862549180d13e3df6ad7f8bdbbc Mon Sep 17 00:00:00 2001
From: Tolik <85737314+Tolik-Trek@users.noreply.github.com>
Date: Sat, 20 Jul 2024 05:00:21 +1000
Subject: [PATCH] Settings: Load ZX ROMS

---
 Shared_Includes                 |   2 +-
 src/ZX_ROMS/new/SP_TRDOS.bin    | Bin 16384 -> 16384 bytes
 src/bios/exp/EXP.asm            | 229 ++++++++++++------------
 src/bios/rom/SETUP/MAIN.asm     | 301 +++++++++++++++++++++++---------
 src/bios/rom/SETUP/messages.z80 |  34 +++-
 src/bios/shared/DEFINES.INC     |   2 +-
 6 files changed, 360 insertions(+), 208 deletions(-)

diff --git a/Shared_Includes b/Shared_Includes
index f3ac185..1799727 160000
--- a/Shared_Includes
+++ b/Shared_Includes
@@ -1 +1 @@
-Subproject commit f3ac185e2fe2d1e76f8e54c3c1f421a99fafdd62
+Subproject commit 17997278e4aea455a68532547beb561fd216ad19
diff --git a/src/ZX_ROMS/new/SP_TRDOS.bin b/src/ZX_ROMS/new/SP_TRDOS.bin
index 5b0e1380905a074ced34066b0ee3ec5bac811d3d..2e94520690e8642f76be0ac415f774c41468e852 100644
GIT binary patch
delta 430
zcmZo@U~Fh$+~Cd0XfxS|b3bGEWFD?I#x0X4bIk#g2HX=Fw@p68ZB_3i_3ZvNM+@tJ
zEC$*}-(rj;W8JO9VxQG)FcOQs{GV^u*&p`*94vUB@$<O@nTp-KcMdZje#m@{<)457
z+u7BoK(-yj;Q$`RDZGcDFrVFKddr2!=tj)hZZ06>>~tQh8!=zcHkf`q+heN8aNuko
z2T%i&Dj|fjvrkNbT28r4F6VI)y~6YG;z=pte+nAE{_$#vNV9RAW#gTEjz^3MNIm1Z
zq}I;I?B?P!&y+dH*JZgWvxiHFJ0DY!i!TRDuw$5O0S}9hzoU!S<a@jdY#Mw_j*&8x
zS@?_@8z)=v=}DG?oT^w0BH>oBN=qL;GP#~l!>o~yZ|312_7E8<pzS_V|4a<r{~1^~
zUo#LF_m>87Er48;YX%#?f`jFtg~sH&e3F8E3>8P;dVh`KI|~e}k0%woCv)&W-Xt(t
mm2uhRDW<C!D>mDk$uRRO@-P2=lH>9t^WQ)vn=>qDumJ#y;;0n>

delta 429
zcmZo@U~Fh$+~Cd0s5aS$b3bG0WFD?I#(9$`bIk#g2HX=F7fe3HZRM#W_3ZvNM+?<|
zEC!-R-(rj;W8JO9VxQG)FcOQs{QvMn=4&kf1Ps{Dt~Ld-?HCSQ@hH~u9)7}ncAM!f
zJszVQF=xBEfQ++^lcRYgB~e6ptbnplOn|bd^d|T6IO*==d3f=pl<+?VjbHzGHAJM@
zIL?0HIUw~<PlE@@cL9n!*fB0YDa^(U6rcQu=aO0>AG4c_%RE!&AYYf|rpz8LA%=WR
zK`y==EWwUpu2DQJKK_m_CX>JLDzFLhF*!!EO_t&_X3U=K$EPP54|1krI*5eZ$to><
zc-`cwd>V<_e0(zx|FDP1NCB<)mHKC5;PKDE!sVKQxVXPGh-(StnqD*5_?6H7><{~c
z7MiyoaoGL4{K#t7!GHfXIE-c=TyJYM>mbMFN9+A7+>gHX{u;w~7O3*$NyXC1viy%H
r7ch%%5}2&YIAQV>(^ZT~o9)eHn0a~lm;XKq)MNe|sBCkF<qS3e*N3MU

diff --git a/src/bios/exp/EXP.asm b/src/bios/exp/EXP.asm
index 12c2ec1..211311d 100644
--- a/src/bios/exp/EXP.asm
+++ b/src/bios/exp/EXP.asm
@@ -797,129 +797,126 @@ set_config:
 
 ;[---------------------------------------------------------------------]
 
-	MODULE Reset_Handler
-start:	DI
-	IN	A,(SLOT3)
-	PUSH	AF
+	MODULE	Reset_Handler
+start:		DI
+		IN	A,(SLOT3)
+		PUSH	AF
 ;----[перехват soft reset #EE port]-----
-Check_EE_Port:
-	LD	A,ACEX.RET_PORT
-	LD	B,0
-	;[x] SET_PORTS: no need to call from #3D13 and DI. 31/12/23
-	 ;LD	C,BIOS.SET_PORTS	
-	 ;CALL	@ToBIOS_3D13				; переустановить внутр. порт #EE
-	 CALL	SET_PORTS
-	;
-	LD	A,B
-	AND	A
-	JR	Z,Check_Spec_Page
-	;
-	OUT	(SLOT3),A						; Set restart page
+Check_EE_Port:	LD	A,ACEX.RET_PORT
+		LD	B,0
+		;[x] SET_PORTS: no need to call from #3D13 and DI. 31/12/23
+	 	 ;LD	C,BIOS.SET_PORTS	
+	 	 ;CALL	@ToBIOS_3D13					; переустановить внутр. порт #EE
+		 CALL	SET_PORTS
+		;
+		LD	A,B
+		AND	A
+		JR	Z,Check_Spec_Page
+		;
+		OUT	(SLOT3),A					; Set restart page
 .After_Hard_Rst:
-	LD	HL,(Spec_Page.RET_addr)					; prog address
-	LD	A,(Spec_Page.page_0)					; PAGE0
-	OUT	(SLOT0),A
-	LD	A,(Spec_Page.page_1)					; PAGE1
-	OUT	(SLOT1),A
-	LD	A,(Spec_Page.page_2)					; PAGE2
-	OUT	(SLOT2),A
-	LD	A,(Spec_Page.Reload_Version)
-	CP	#FF
-	JR	Z,.JPHL	; olg logic
-	; new logic
-.ver_2:	EXX
-	 LD	HL,(Spec_Page.Stack_Point)
-	 LD	SP,HL
-	EXX
-	AND	A
-	LD	A,#FF
-	LD	(Spec_Page.Reload_Version),A
-	LD	A,(Spec_Page.page_3)					; PAGE3
-	OUT	(SLOT3),A
-	JR	Z,.JPHL
-	PUSH	HL
-	JP	EXP_FNS_2_RET
-.JPHL:	JP	(HL)
+		LD	HL,(Spec_Page.RET_addr)				; prog address
+		LD	A,(Spec_Page.page_0)				; PAGE0
+		OUT	(SLOT0),A
+		LD	A,(Spec_Page.page_1)				; PAGE1
+		OUT	(SLOT1),A
+		LD	A,(Spec_Page.page_2)				; PAGE2
+		OUT	(SLOT2),A
+		LD	A,(Spec_Page.Reload_Version)
+		CP	#FF
+		JR	Z,.JPHL	; olg logic
+		; new logic
+.ver_2:		EXX
+		LD	HL,(Spec_Page.Stack_Point)
+		LD	SP,HL
+		EXX
+		AND	A
+		LD	A,#FF
+		LD	(Spec_Page.Reload_Version),A
+		LD	A,(Spec_Page.page_3)				; PAGE3
+		OUT	(SLOT3),A
+		JR	Z,.JPHL
+		PUSH	HL
+		JP	EXP_FNS_2_RET
+.JPHL:		JP	(HL)
 ;
 ;--[перехват soft/hard reset #41 page]--
 Check_Spec_Page:
-	LD	A,Spec_Page
-	OUT	(SLOT3),A
-	; Check for hardreset flag
-	LD	A,(Spec_Page.flag_R)
-	CP	'R'
-	JR	NZ,No_Reset_handlers
-	LD	A,(Spec_Page.flag_S)
-	CP	'S'
-	JR	NZ,No_Reset_handlers
-	LD	A,(Spec_Page.flag_T)
-	CP	'T'
-	JR	NZ,No_Reset_handlers
-	;
-	XOR	A
-	LD	(Spec_Page.flag_R),A
-	JR	Check_EE_Port.After_Hard_Rst
-	;
-
+		LD	A,Spec_Page
+		OUT	(SLOT3),A
+		; Check for hardreset flag
+		LD	A,(Spec_Page.flag_R)
+		CP	'R'
+		JR	NZ,No_Reset_handlers
+		LD	A,(Spec_Page.flag_S)
+		CP	'S'
+		JR	NZ,No_Reset_handlers
+		LD	A,(Spec_Page.flag_T)
+		CP	'T'
+		JR	NZ,No_Reset_handlers
+		;
+		XOR	A
+		LD	(Spec_Page.flag_R),A
+		JR	Check_EE_Port.After_Hard_Rst
+		;
 ;---------------------------------------
-No_Reset_handlers:
-	; Check ZX ROMS Loaded
-	LD	A,(Spec_Page.flag_Z)
-	CP	'Z'
-	JR	NZ,.Load_ZXROMS
-	LD	A,(Spec_Page.flag_X)
-	CP	'X'
-	JR	NZ,.Load_ZXROMS
-	; [x] 31/12/23 подстраховка от недоутечки памяти
-	 LD	A,R
-	 AND	#80
-	 JR	Z,No_Need_To_Load_ZXROMS
-.Load_ZXROMS:
-	 XOR	A
-	 LD	R,A
-	;
-	; Load ZX ROM's
-init_rom_address        EQU #8200                                       ;!HARDCODE
-	ld	hl,init_zx_roms
-	ld	de,init_rom_address
-	ld	bc,init_zx_roms.length
-	ldir
-	;
-	call	init_rom_address
-	;
-	LD	HL,#C000
-	LD	DE,#C001
-	LD	BC,#3FFF
-	LD	(HL),C
-	LDIR								; забить FF-ами
-        ; ставим метку если прогрузили ПЗУ спектрума
-	DEC	DE		; Spec_Page.flag_X
-        LD	A,'X'
-        LD	(DE),A
-        DEC	DE		; Spec_Page.flag_Z
-        LD	A,'Z'
-        LD	(DE),A     
-
-	; Заглушка для страницы #41 на всякий пожарный
-	LD HL,PROG_NO_ROM
-	LD DE,#C000 + Spec_Page.no_zx_rom
-	LD BC,PROG_NO_ROM.size
-	LDIR
-	;
-	LD HL,RAM_BIOS_PROG
-	LD DE,#C000 + Spec_Page.to_bios
-	LD BC,RAM_BIOS_PROG.Length
-	LDIR
+No_Reset_handlers:/*
+		; Check ZX ROMS Loaded
+		LD	A,(Spec_Page.flag_Z)
+		CP	'Z'
+		JR	NZ,.Load_ZXROMS
+		LD	A,(Spec_Page.flag_X)
+		CP	'X'
+		JR	NZ,.Load_ZXROMS
+		; [x] 31/12/23 подстраховка от недоутечки памяти
+		LD	A,R
+		AND	#80
+		JR	Z,No_Need_To_Load_ZXROMS
+.Load_ZXROMS:	XOR	A
+		LD	R,A
+		;
+		; Load ZX ROM's
+init_rom_address EQU	#8200						;!HARDCODE
+		;
+		LD	HL,init_zx_roms
+		LD	DE,init_rom_address
+		LD	BC,init_zx_roms.length
+		LDIR
+		;
+		CALL	init_rom_address
+		;
+		LD	HL,#C000
+		LD	DE,#C001
+		LD	BC,#3FFF
+		LD	(HL),C
+		LDIR							; забить FF-ами
+        	; ставим метку если прогрузили ПЗУ спектрума
+		DEC	DE		; Spec_Page.flag_X
+		LD	A,'X'
+		LD	(DE),A
+		DEC	DE		; Spec_Page.flag_Z
+		LD	A,'Z'
+		LD	(DE),A
+		; Заглушка для страницы #41 на всякий пожарный
+		LD	HL,PROG_NO_ROM
+		LD	DE,#C000+Spec_Page.no_zx_rom
+		LD	BC,PROG_NO_ROM.size
+		LDIR
+		;
+		LD	HL,RAM_BIOS_PROG
+		LD	DE,#C000+Spec_Page.to_bios
+		LD	BC,RAM_BIOS_PROG.Length
+		LDIR
+		*/
 No_Need_To_Load_ZXROMS:
-	POP	AF
-	OUT	(SLOT3),A
-	;
+		POP	AF
+		OUT	(SLOT3),A
 ;-------------------------------------------------------------------------------------------------------------------;
 ;!TODO сделать выбор в Setup, что грузить в vПЗУ при старте. Варианты:
-;	1 - Грузит ПЗУ спектрума из ROM при старте если нет флага ZX
-;	2 - Грузит ПЗУ спектрума из ROM при каждом перезапуске (может быть опасно)
-;	3 - Не грузить ПЗУ спектрума, инитить страницу #41 как в 3.04
-;	4 - Не грузить ПЗУ спектрума, инитить страницу #41 так, чтоб код в ней подгружал ПЗУ спектрума при обращении
+;[ ]	0 - Не грузить ПЗУ спектрума, инитить страницу #41 как в 3.04
+;[ ]	1 - Грузит ПЗУ спектрума из ROM при старте если нет флага ZX
+;[ ]	2 - Грузит ПЗУ спектрума из ROM при каждом перезапуске (может быть опасно)
+;[ ]	3 - Не грузить ПЗУ спектрума, инитить страницу #41 так, чтоб код в ней подгружал ПЗУ спектрума при обращении
 ;-------------------------------------------------------------------------------------------------------------------;
 	ENDMODULE
 ;
@@ -1168,6 +1165,7 @@ ZG_ADDRESS:      INCLUDE  'FONT.ASM'
 ;
 ; _ZX_ _ZX_ _ZX_ _ZX_ _ZX_ [___FOR ZX-MODE___] _ZX_ _ZX_ _ZX_ _ZX_ _ZX_ ;
 
+/*
 ;
 ;------------------------[copy zx-roms to zx-pages]---------------------;
 ; SLOT0 - ROM 8, sys_port - on.
@@ -1245,8 +1243,7 @@ init_zx_roms:
 	ENT
 .length	EQU $-init_zx_roms
 ;-----------------------------------------------------------------------;
-;
-
+;*/
 
 ;-----------------------------------------------------------------------;
 ;!TODO задействовать
diff --git a/src/bios/rom/SETUP/MAIN.asm b/src/bios/rom/SETUP/MAIN.asm
index e10ea85..bf57cd8 100644
--- a/src/bios/rom/SETUP/MAIN.asm
+++ b/src/bios/rom/SETUP/MAIN.asm
@@ -520,6 +520,7 @@ START:
 
 	CALL	TRQUICK
 	CALL	FINSTAL
+	CALL	ZXMODE_SETUP
 	CALL	CLEARM
 	CALL	RESCREEN
 
@@ -1082,59 +1083,53 @@ SYSID:	DZ	"Starting..."
 FD144A:	DB	#80,#12,#02,#50,#00,#00,#02,FDD_INI_TABLE.FDD
 FD720A:	DB	#00,#09,#02,#50,#00,#00,#02,FDD_INI_TABLE.FDD
 
-FINSTAL:
-	IN	A,(SLOT3)
-	EX	AF,AF'
-	LD	A,SYS_PAGE
-	OUT	(SLOT3),A
-	LD	HL,FDD_INI_TABLE.FDD_0
-	LD	BC,SYS_PAGE.FDD_TBL.Size*256 + #FF	; table_size*256 + fill_byte 
-.FILLFDD:
-	LD	(HL),C
-	INC	HL
-	DJNZ	.FILLFDD
-	;
-	EX	AF,AF'
-	OUT	(SLOT3),A
-	LD	BC,CMOS_CELL.DrivesSetup_1.Mask.FirstFDD		;#0311
-	CALL	G_VALUE
-	LD	HL,FD720A
-	OR	A
-	JR	Z,SETFD0
-	LD	HL,FD144A
-	DEC	A
-	JR	NZ,NOFDD0
-SETFD0:
-	IN	A,(SLOT3)
-	EX	AF,AF'
-	LD	A,SYS_PAGE
-	OUT	(SLOT3),A
-	LD	DE,FDD_INI_TABLE.FDD_0
-	LD	BC,#0008						; !HARDCODE
-	LDIR 
-	EX	AF,AF'
-	OUT	(SLOT3),A
-NOFDD0:
-	LD	BC,CMOS_CELL.DrivesSetup_1.Mask.SecondFDD		;#0C11
-	CALL	G_VALUE
-	LD	HL,FD720A
-	OR	A
-	JR	Z,SETFD1
-	LD	HL,FD144A
-	DEC	A
-	JR	NZ,NOFDD1
-SETFD1:
-	IN	A,(SLOT3)
-	EX	AF,AF'
-	LD	A,SYS_PAGE
-	OUT	(SLOT3),A
-	LD	DE,FDD_INI_TABLE.FDD_1
-	LD	BC,#0008						; !HARDCODE
-	LDIR 
-	EX	AF,AF'
-	OUT	(SLOT3),A
-NOFDD1:
-	RET 
+FINSTAL:	IN	A,(SLOT3)
+		EX	AF,AF'
+		LD	A,SYS_PAGE
+		OUT	(SLOT3),A
+		LD	HL,FDD_INI_TABLE.FDD_0
+		LD	BC,SYS_PAGE.FDD_TBL.Size*256 + #FF	; table_size*256 + fill_byte 
+.FILLFDD:	LD	(HL),C
+		INC	HL
+		DJNZ	.FILLFDD
+		;
+		EX	AF,AF'
+		OUT	(SLOT3),A
+		LD	BC,CMOS_CELL.DrivesSetup_1.Mask.FirstFDD		;#0311
+		CALL	G_VALUE
+		LD	HL,FD720A
+		OR	A
+		JR	Z,.SETFD0
+		LD	HL,FD144A
+		DEC	A
+		JR	NZ,.NOFDD0
+.SETFD0:	IN	A,(SLOT3)
+		EX	AF,AF'
+		LD	A,SYS_PAGE
+		OUT	(SLOT3),A
+		LD	DE,FDD_INI_TABLE.FDD_0
+		LD	BC,#0008						; !HARDCODE
+		LDIR 
+		EX	AF,AF'
+		OUT	(SLOT3),A
+.NOFDD0:	LD	BC,CMOS_CELL.DrivesSetup_1.Mask.SecondFDD		;#0C11
+		CALL	G_VALUE
+		LD	HL,FD720A
+		OR	A
+		JR	Z,.SETFD1
+		LD	HL,FD144A
+		DEC	A
+		JR	NZ,.NOFDD1
+.SETFD1:	IN	A,(SLOT3)
+		EX	AF,AF'
+		LD	A,SYS_PAGE
+		OUT	(SLOT3),A
+		LD	DE,FDD_INI_TABLE.FDD_1
+		LD	BC,#0008						; !HARDCODE
+		LDIR 
+		EX	AF,AF'
+		OUT	(SLOT3),A
+.NOFDD1:	RET 
 
 
 PIDNUM:	LD	HL,memBUFFER.ID
@@ -1342,6 +1337,7 @@ NOCOPYC:
 	LDIR 
 	RET 
 
+;---------------------------------------------------------------[]
 TRQUICK:
 ;REGISTER #1E
 ; %0000'0011 - TR DOS A:	Default	 / FDD / HDD / RMD
@@ -1359,9 +1355,7 @@ TRQUICK:
 	CALL	TRDOSX
 	LD	BC,CMOS_CELL.TRDOSmount.Mask.D				;#C01E
 	LD	A,3
-
-TRDOSX:
-	; PUSH	AF
+TRDOSX:	; PUSH	AF
 	; CALL	G_VALUE
 	; POP	BC
 	; OR	A
@@ -1385,34 +1379,37 @@ TRDOSX:
 	JP	Z,HDD_TO_DRV
 	SCF 
 	RET 
+;---------------------------------------------------------------[]
 
-; открывает порт #FE на чтение в 3-й карте портов
-; OPENDOS:
-; 	DI 
-; 	IN	A,(SLOT3)
-; 	EX	AF,AF'
-; 	LD	A,#40
-; 	OUT	(SLOT3),A
-; 	LD	HL,#C000
-; 	LD	DE,#F000
-; 	LD	BC,#0400
-; 	LDIR 
-; 	LD	A,#40
-; 	LD	(#F26E),A
-; 	LD	(#F27E),A
-; 	LD	(#F2EE),A
-; 	LD	(#F2FE),A
-; 	LD	(#F36E),A
-; 	LD	(#F37E),A
-; 	LD	(#F3EE),A
-; 	LD	(#F3FE),A
-; 	LD	HL,#F000
-; 	LD	DE,#F400
-; 	LD	BC,#0C00
-; 	LDIR 
-; 	EX	AF,AF'
-; 	OUT	(SLOT3),A
-; 	RET 
+
+;!TODO посмотреть
+	;открывает порт #FE на чтение в 3-й карте портов
+	;OPENDOS:
+	;	DI 
+	;	IN	A,(SLOT3)
+	;	EX	AF,AF'
+	;	LD	A,#40
+	;	OUT	(SLOT3),A
+	;	LD	HL,#C000
+	;	LD	DE,#F000
+	;	LD	BC,#0400
+	;	LDIR 
+	;	LD	A,#40
+	;	LD	(#F26E),A
+	;	LD	(#F27E),A
+	;	LD	(#F2EE),A
+	;	LD	(#F2FE),A
+	;	LD	(#F36E),A
+	;	LD	(#F37E),A
+	;	LD	(#F3EE),A
+	;	LD	(#F3FE),A
+	;	LD	HL,#F000
+	;	LD	DE,#F400
+	;	LD	BC,#0C00
+	;	LDIR 
+	;	EX	AF,AF'
+	;	OUT	(SLOT3),A
+	;	RET 
 ;
 
 
@@ -1553,6 +1550,144 @@ PRINT_CHANEL:
 	 JP	LP_PRINT_LINE6
 ;
 
+;----------------------------------------------------------------------[]
+;!TODO сделать выбор в Setup, что грузить в vПЗУ при старте. Варианты:
+;[ ]	0 - Не грузить ПЗУ спектрума, инитить страницу #41 как в 3.04
+;[ ]	1 - Грузит ПЗУ спектрума из ROM при старте если нет флага ZX
+;[ ]	2 - Грузит ПЗУ спектрума из ROM при каждом перезапуске
+;[ ]	3 - Не грузить ПЗУ спектрума, инитить страницу #41 так,
+;	     чтоб код в ней подгружал ПЗУ спектрума при обращении
+ZXMODE_SETUP:	IN	A,(SLOT3)
+		PUSH	AF
+		LD	A,Spec_Page
+		OUT	(SLOT3),A
+		;
+		LD	BC,CMOS_CELL.Options.Mask.LoadZXroms
+		CALL	G_VALUE
+		;
+		OR	A
+		JR	Z,.init_41h
+		DEC	A
+		JR	Z,.CheckAndLoad
+		DEC	A
+		JR	Z,.Load_ZXROMS
+		;!TODO
+		 ;DEC	A
+		 ;JR	Z,.New_init_41h
+		;
+		; Check ZX ROMS Loaded
+.CheckAndLoad:	LD	A,(Spec_Page.flag_Z)
+		CP	'Z'
+		JR	NZ,.Load_ZXROMS
+		LD	A,(Spec_Page.flag_X)
+		CP	'X'
+		JR	NZ,.Load_ZXROMS
+		; [x] 31/12/23 подстраховка от недоутечки памяти
+		 LD	A,R
+		 AND	#80
+		 JR	Z,.No_Need_To_Load_ZXROMS
+.Load_ZXROMS:	 XOR	A
+		 LD	R,A
+		;
+		; Load ZX ROM's
+		call	init_zx_roms
+		;
+		LD	HL,#C000
+		LD	DE,#C001
+		LD	BC,#3FFF
+		LD	(HL),C
+		LDIR								; забить FF-ами
+        	; ставим метку если прогрузили ПЗУ спектрума
+		DEC	DE		; Spec_Page.flag_X
+        	LD	A,'X'
+        	LD	(DE),A
+        	DEC	DE		; Spec_Page.flag_Z
+        	LD	A,'Z'
+        	LD	(DE),A     
+		; Заглушка для страницы #41 на всякий пожарный
+.init_41h:	LD HL,PROG_NO_ROM
+		LD DE,#C000 + Spec_Page.no_zx_rom
+		LD BC,PROG_NO_ROM.size
+		LDIR
+		;
+		LD HL,RAM_BIOS_PROG
+		LD DE,#C000 + Spec_Page.to_bios
+		LD BC,RAM_BIOS_PROG.Length
+		LDIR
+.No_Need_To_Load_ZXROMS:
+		POP	AF
+		OUT	(SLOT3),A
+		RET
+
+;
+;--------------------[copy zx-roms to zx-pages]-----------------;
+; SLOT0 - ROM 8, sys_port - on.
+; RAM SLOT0 - page 0
+; для режима zx spectrum
+; ВЫПОЛНЯЕТСЯ ИЗ ОЗУ
+; !HARDCODE номера страниц для эмулятора ПЗУ
+init_zx_roms:	IN      A,(SLOT3)
+		EX	AF,AF'
+		;
+		DI
+		LD      A,SYS_PORT.EXTENSION
+		OUT     (SYS_PORT.ROM),A 
+        	INC     A		;!HARDCODE LD A,2
+        	LD      B,3		; zx-rom number of pages
+		;
+.loop:		EXX
+		;
+		out     (ROM.SLOT0),a
+		or	%0100'0000	; !HARDCODE номера страниц для эмулятора ПЗУ
+		out	(SLOT3),a
+		and	%1011'1111	; !HARDCODE номера страниц для эмулятора ПЗУ
+		;
+		LD	HL,0
+		LD	DE,#C000
+		LD	BC,#4000
+		LDIR
+		;
+        	INC     A
+		EXX
+		DJNZ    .loop
+		;
+		xor     a
+		out     (ROM.SLOT0),a
+		OUT     (SYS_PORT.ROM),A  
+		EX	AF,AF'
+		out     (SLOT3),a
+		;
+	;[x] SET_PORTS: no need to call from #3D13 and DI. 31/12/23
+		LD	A,ACEX.vROM.BASIC_128				; ROM-ID - BASIC 128
+		LD	B,#42						;!HARDCODE page
+		CALL	SET_PORTS
+		;
+		LD	A,ACEX.vROM.BASIC_48				; ROM-ID - BASIC 48
+		LD	B,#43						;!HARDCODE page
+		CALL	SET_PORTS
+		;
+		LD	A,ACEX.vROM.TR_DOS				; ROM-ID - TR-DOS
+		LD	B,#44						;!HARDCODE page
+		CALL	SET_PORTS
+		;
+		; эти страницы пока не используются
+		 LD	A,ACEX.vROM.BIOS				; ROM-ID - BIOS
+		 ;LD	B,#45						;!HARDCODE page
+		 LD	B,#41
+		 CALL	SET_PORTS
+		 ;
+		 LD	A,ACEX.vROM.BIOS_3				; ROM-ID - BIOS-1
+		 ;LD	B,#46						;!HARDCODE page
+		 LD	B,#41
+		 CALL	SET_PORTS
+		 ;
+		 LD	A,ACEX.vROM.BIOS_4				; ROM-ID - BIOS-2
+		 ;LD	B,#47						;!HARDCODE page
+		 LD	B,#41
+		 JP	SET_PORTS
+		; можно задействовать ещё 4 страницы на порты #E4..#E7
+;---------------------------------------------------------------------[]
+
 
 ;---------------------------------------
  INCLUDE 'src/bios/ROM/SETUP/messages.z80'
diff --git a/src/bios/rom/SETUP/messages.z80 b/src/bios/rom/SETUP/messages.z80
index 5f208d0..c7f21b6 100644
--- a/src/bios/rom/SETUP/messages.z80
+++ b/src/bios/rom/SETUP/messages.z80
@@ -52,13 +52,13 @@
 			"TypDelay",	 -- 	DEFINES.INC --> UnusedSettingsFeatures 
 		},
 		[2]={
-			"TrDosA",	 -- 1
-			"TrDosB",	 -- 2
-			"TrDosC",	 -- 3
-			"TrDosD",	 -- 4
-                        "SetTime",	 -- 5	DEFINES.INC --> NEW_FEATURE
-			"HddWrPr",	 -- 6	DEFINES.INC --> HDDwriteProtect
-					 -- 7
+			"LoadZXroms",	 -- 1
+			"TrDosA",	 -- 2
+			"TrDosB",	 -- 3
+			"TrDosC",	 -- 4
+			"TrDosD",	 -- 5
+                        "SetTime",	 -- 6	DEFINES.INC --> NEW_FEATURE
+			"HddWrPr",	 -- 7	DEFINES.INC --> HDDwriteProtect
 					 -- 8
 					 -- 9
 					 -- 10
@@ -467,6 +467,16 @@ SettingsItemsTabs:
 	DB	msgStrings.valFDD
 	DB	msgStrings.valHDD
 
+	_mSETitemParams LoadZXroms
+	DW	OnChangeAction.nothing
+        IF NEW_FEATURE :     DB paramLine : ENDIF
+	DB	columnNum,lineNum
+	DB	paramName
+	DW	CMOS_CELL.Options.Mask.LoadZXroms : DB %0000'1000
+	DB	msgStrings.valLoadZXromsManually
+	DB	msgStrings.valLoadZXromsFlag
+	DB	msgStrings.valLoadZXromsCAD
+
 	IF NEW_FEATURE
          _mSETitemParams SetTime
 	 DW	OnChangeAction.SetTime
@@ -651,6 +661,11 @@ msgStrings:
  _mSetStr parTrDosB, tmp_Counter		:	DZ	'TR DOS B:>          : '
  _mSetStr parTrDosC, tmp_Counter		:	DZ	'TR DOS C:>          : '
  _mSetStr parTrDosD, tmp_Counter		:	DZ	'TR DOS D:>          : '
+ _mSetStr parLoadZXroms, tmp_Counter		:	DZ	'Load ZX ROMs        : '
+ _mSetStr valLoadZXromsManually, tmp_Counter	:	DZ	'Manually    '
+ _mSetStr valLoadZXromsFlag, tmp_Counter	:	DZ	'By ZX flag  '
+ _mSetStr valLoadZXromsCAD, tmp_Counter		:	DZ	'On restart  '
+; _mSetStrRus valLoadZXromsAuto, tmp_Counter	:	DZ	'On call     '
  IF NEW_FEATURE
   _mSetStr parSetTime, tmp_Counter		:       DZ      'Date and time setup : '
   _mSetStr valFolder, tmp_Counter		:       DB      16,'ENTER',17,0
@@ -804,6 +819,11 @@ msgRusStrings:
  _mSetStrRus parTrDosB, tmp_Counter		:	DZ	'TR DOS B:>          : '
  _mSetStrRus parTrDosC, tmp_Counter		:	DZ	'TR DOS C:>          : '
  _mSetStrRus parTrDosD, tmp_Counter		:	DZ	'TR DOS D:>          : '
+ _mSetStrRus parLoadZXroms, tmp_Counter		:	DZ	'Загружать ZX ПЗУ    : '
+ _mSetStrRus valLoadZXromsManually, tmp_Counter	:	DZ	'Вручную     '
+ _mSetStrRus valLoadZXromsFlag, tmp_Counter	:	DZ	'По флагу ZX '
+ _mSetStrRus valLoadZXromsCAD, tmp_Counter	:	DZ	'При рестарте'
+; _mSetStrRus valLoadZXromsAuto, tmp_Counter	:	DZ	'При вызове  '
  IF NEW_FEATURE
  _mSetStrRus parSetTime, tmp_Counter		:	DZ	'Дата и время        : '
  _mSetStrRus valFolder, tmp_Counter		:	DB	16,'ВВОД',17,0
diff --git a/src/bios/shared/DEFINES.INC b/src/bios/shared/DEFINES.INC
index 8064a10..3836ab1 100644
--- a/src/bios/shared/DEFINES.INC
+++ b/src/bios/shared/DEFINES.INC
@@ -1,5 +1,5 @@
 ;=======================[All shared EQUs]=======================;
-BETA_BUILD	EQU			5			; добавляет строку и сообщение о тестовой сборке на стартовом экране
+BETA_BUILD	EQU			6			; добавляет строку и сообщение о тестовой сборке на стартовом экране
 ;======================[All shared defines]=====================;
  DEFINE		PACKED_MAIN		0			; паковать MAIN или влезает без этого?
  DEFINE		SP2000_Loader_Flag	#0107			;