-bug with ram disk e:

param.txt

@@ -0,0 +1,10 @@
+‘âப  1: 	Scorpion 256
+‘âப  2:	c:\zx\roms\SC_128.BIN
+‘âப  3:	c:\zx\roms\SC__48.BIN
+‘âப  4:	c:\zx\roms\SC_TRD.BIN
+‘âப  5:	c:\zx\roms\SC_EXP.BIN
+‘âப  6:	c:\zx\roms\SC_EXP.BIN
+‘âப  7:	c:\zx\roms\SP_EXP2.BIN
+‘âப  8:	/turbo /sprinter /7FFD /1FFD /ret-zx /load-pal
+‘âப  9:	c:\zx\palette\komod.pal
+‘âப  10:	;

spectrum.asm

@@ -731,8 +731,6 @@ Get_RAM_Disk_E:	LD	A,D
 		JR	Z,ERROR_NO_MEM
 		PUSH	AF
 ;***************************************
-;!FIXIT ¡¥§®¯ á­® § ­¨¬ âì à ¬¤¨áª¨, ç⮡ ¯®«ì§®¢ â¥«ì ­¥ áâà ¤ «
-;	®á¢®¡®¤¨âì ram-disk e:
 ; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS
 .free_disk:	DI
 		;!TEST
@@ -871,6 +869,7 @@ EXIT_TO_DSS:	DI
 		LD	A,Dss.SetVMod.txt80x32				; OPEN_TXT
 		LD	BC,0*256+Dss.SetVMod
 		RST	ToDSS
+
 		;!TEST; [ ] 05/11/2023 ®ç¨é âì à ¬¤¨áª¨ ¯à¨ ¢ë室¥
 		 LD	A,(RMD_Keep_+2)
 		 AND	A
@@ -884,11 +883,11 @@ EXIT_TO_DSS:	DI
 		 POP	BC
 		 DJNZ	.loop
 		;
-.next:
-		;!TEST; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS. BLK_TO_RAMD
+.next:		;!TEST; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS. BLK_TO_RAMD
 		 LD	BC,BIOS.SWAP_RAM_DRIVES.Sp2000
 		 RST	ToBIOS
 		;
+	
 		LD	A,#20
 		LD	DE,0
 		LD	HL,#2050
@@ -900,17 +899,6 @@ EXIT_TO_DSS:	DI
 
 ;!FIXIT ¯¥à¥¤¥« âì ­  äã­ªæ¨î ¡¨®á 
 SET_RELOAD_PROG:
-		;!TEST; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS. BLK_TO_RAMD
-		 LD	BC,BIOS.SWAP_RAM_DRIVES.ZX
-		 RST	ToBIOS
-		 ; 
-		 LD	A,(Load_IMAGE_File.MEM_BLK)
-		 LD	B,A
-		 XOR	A	; set disk e:
-		 LD	C,BIOS.BLK_TO_RAMD
-		 RST	ToBIOS
-		;
-
 		DI
 		LD	A,Spec_Page
 		OUT	(SLOT3),A
@@ -936,7 +924,31 @@ NO_RET_FN:
 		LD	(#FFF2),A					; ¯à®£à ¬¬ë ¤«ï ¢®§¢à â 
 		IN	A,(SLOT3)
 		LD	(#FFF3),A                                            ;
-
+;********************************************
+;!TEST; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS. BLK_TO_RAMD
+SETUP_RAM_DRIVES:
+		LD	BC,BIOS.SWAP_RAM_DRIVES.ZX
+		RST	ToBIOS
+		; § ¯ã᪠á ä ©«®¬ ¤«ï à ¬¤¨áª ?
+		LD	A,(Load_IMAGE_File.MEM_BLK)
+		OR	A
+		JR	Z,.skip
+		; ¯à®¢¥à塞 ¤à ©¢ ¯¥à¥¤ ¯¥à¥­ §­ ç¥­¨¥¬
+		XOR	A
+		LD	C,BIOS.GET_RAMD_ST
+		RST	ToBIOS
+		JR	C,.set_block
+		; ®á¢®¡®¤¨âì à ¬¤¨áª
+		XOR	A
+		LD	C,BIOS.RAMD_CLEAR
+		RST	ToBIOS
+		; set disk e:
+.set_block:	LD	A,(Load_IMAGE_File.MEM_BLK)
+		LD	B,A
+		XOR	A
+		LD	C,BIOS.BLK_TO_RAMD
+		RST	ToBIOS
+.skip:		;
 ;********************************************
 
 RESET_TO_ZX:	DI