From 96868a067a5d707a84a8713f20ee9d5f74196686 Mon Sep 17 00:00:00 2001
From: Tolik Trek <tolik.trek@gmail.com>
Date: Wed, 26 Aug 2026 03:33:41 +1000
Subject: [PATCH] =?UTF-8?q?=D1=83=D0=B1=D1=80=D0=B0=D0=BB=20=D0=B0=D0=BA?=
 =?UTF-8?q?=D1=81=D0=B5=D0=BB=D1=8C=20=D0=B8=D0=B7=20=D0=BA=D0=BE=D0=B4?=
 =?UTF-8?q?=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Shared_Includes |  2 +-
 spectrum.asm    |  4 +++-
 trdscl.a80      | 19 +++++++++++--------
 3 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/Shared_Includes b/Shared_Includes
index 90d8292..57f4969 160000
--- a/Shared_Includes
+++ b/Shared_Includes
@@ -1 +1 @@
-Subproject commit 90d829290d3946ab99952128f4717dde577ced04
+Subproject commit 57f4969f09a1bfc005af0b60316f03f30ee815ba
diff --git a/spectrum.asm b/spectrum.asm
index 98ecf5b..19bde25 100644
--- a/spectrum.asm
+++ b/spectrum.asm
@@ -64,7 +64,7 @@
 ; Included macroses section
 ;***************************************
  INCLUDE 'Shared_Includes/macroses/macros.z80'
- INCLUDE 'Shared_Includes/macroses/accelerator.z80'
+;INCLUDE 'Shared_Includes/macroses/accelerator.z80'
 ;***************************************
 ;
 
@@ -589,6 +589,7 @@ FIRST_PREPARE:	LD	A,CNF_PORT.CNF_0
 		LD	C,BIOS.CMOS_RD
 		RST	ToBIOS
 		JR	C,.next
+		;
 		LD	B,A
 		LD	A,ACEX.HOLD
 		LD	C,BIOS.SET_PORTS
@@ -820,6 +821,7 @@ RESET_TO_ZX:	DI
 		CP	2
 		LD	A,#FF
 		JR	NZ,.no_tap
+		;
 		LD	A,(Load_IMAGE_File.MEM_BLK)
 .no_tap:	LD	(SYS_PAGE.TAP_RAM_BLK),A
 		XOR	A
diff --git a/trdscl.a80 b/trdscl.a80
index 667fb12..6615c74 100644
--- a/trdscl.a80
+++ b/trdscl.a80
@@ -282,13 +282,16 @@ Convert_SCLtoTRD:
 1:		DI
 		LD	HL,SYS_SECTOR_START
 		LD	DE,#C800					; sys sector of tr-dos disk in bank3 of ram-disk
-		ACC_SetBlockSize
-		LD	A,0
-		ACC_CopyBlock
-		LD	A,(HL)
-		LD	(DE),A
-		ACC_Off
-		;EI
+		;
+		 LD	BC,256
+		 LDIR
+		 ;ACC_SetBlockSize
+		 ;LD	A,0
+		 ;ACC_CopyBlock
+		 ;LD	A,(HL)
+		 ;LD	(DE),A
+		 ;ACC_Off
+		;
 
 		LD	A,(IMAGE_HANDLER)
 		LD	HL,#D000					; догрузить до конца страницы
@@ -305,7 +308,7 @@ Convert_SCLtoTRD:
 		LD	C,Dss.PChars
 		RST	ToDSS
 
-		DI
+		;DI
 		LD	A,(Load_IMAGE_File.MEM_BLK)
 		JP	Load_IMAGE_File.scl_read_next