SET_ROM переделана под переделанную функцию BIOS - SET_PORTS

spectrum.asm

@@ -586,7 +586,7 @@ PARAM_E2:	EX	(SP),HL						;
 ;************************************
 	IF NEW_MEMORY_LOGIC
 BUFFER_RAM_PAGES:
-.ROM:		BLOCK	6						; ª®«¨ç¥á⢮ ¯®à⮢ í¬ã«ïâ®à  <20>‡“
+.ROM:		BLOCK	10						; ª®«¨ç¥á⢮ ¯®à⮢ í¬ã«ïâ®à  <20>‡“
 .RAM:		BLOCK	16						; 256 ª¡
 .Size		EQU	$-BUFFER_RAM_PAGES
 .end_marker:	BYTE	#FF
@@ -606,7 +606,9 @@ BUFFER_RAM_PAGES:
 	 OR	B
 	 JR	Z,.next
 	 LD	A,dcp_port				; ROM-ID
+	 PUSH	HL
 	 CALL	SET_ROM
+	 POP	HL
 .next:
  ENDM
 
@@ -667,44 +669,44 @@ SKIP_IMAGE:	LD	A,(No_run_+2)
 ; out B - old ROM-page
 ;!FIXIT ᤥ« âì ç¥à¥§ ¢ë§®¢ ä㭪樨 <20>ˆŽ‘
 SET_ROM:	DI
+		LD	C,BIOS.SET_PORTS
+		JP	ToBIOS
 
-		EX	AF,AF'
-
-		IN	A,(SLOT3)
-		PUSH	AF
-
-		LD	A,DCP_PAGE					; ãáâ ­®¢¨âì ­®¢ãî
-		OUT	(SLOT3),A
-
-		LD	A,(#C400)					; á®åà ­¨âì â® çâ® ¡ë«®
-		LD	E,A
-		LD	A,(#C600)
-		LD	D,A
-
-		EX	AF,AF'						; áâà ­¨æ 
-
-		LD	(#C400),A					; ãáâ ­®¢¨âì ¯®àâ ROM
-		LD	(#C600),A
-		EX	AF,AF'
-
-		LD	A,B
-		LD	BC,0
-		EX	AF,AF'
-		IN	A,(C)
-		EX	AF,AF'
-		OUT	(C),A						; ãáâ ­®¢¨âì ­®¢ë© ROM
-		EX	AF,AF'
-		LD	B,A
-
-		LD	A,E
-		LD	(#C400),A					; ¢¥à­ãâì ¯®àâ
-		LD	A,D
-		LD	(#C600),A					; ¢¥à­ãâì ¯®àâ
-
-		POP	AF
-		OUT	(SLOT3),A
-
-		RET
+		; DI
+		; ;
+		; EX	AF,AF'
+		;  IN	A,(SLOT3)
+		;  PUSH	AF
+		;  LD	A,DCP_PAGE					; ãáâ ­®¢¨âì ­®¢ãî
+		;  OUT	(SLOT3),A
+		;  ;
+		;  LD	A,(#C400)					; á®åà ­¨âì â® çâ® ¡ë«®
+		;  LD	E,A
+		;  LD	A,(#C600)
+		;  LD	D,A
+		;  ;
+		; EX	AF,AF'						; áâà ­¨æ 
+		; LD	(#C400),A					; ãáâ ­®¢¨âì ¯®àâ ROM
+		; LD	(#C600),A
+		; ;
+		; EX	AF,AF'
+		;  LD	A,B
+		;  LD	BC,0
+		; EX	AF,AF'
+		; IN	A,(C)
+		; EX	AF,AF'
+		;  OUT	(C),A						; ãáâ ­®¢¨âì ­®¢ë© ROM
+		; EX	AF,AF'
+		; ;
+		; LD	B,A
+		; LD	A,E
+		; LD	(#C400),A					; ¢¥à­ãâì ¯®àâ
+		; LD	A,D
+		; LD	(#C600),A					; ¢¥à­ãâì ¯®àâ
+		; ;
+		; POP	AF
+		; OUT	(SLOT3),A
+		; RET
 ;********************************************
 
 READ_IMAGE:	LD	DE,ONE_FILE