From 0c746fc0fc1e6937a7ed60b5f4388509ef725ea8 Mon Sep 17 00:00:00 2001
From: Anatoliy Belyanskiy <tolik.trek@gmail.com>
Date: Thu, 6 Jun 2024 00:28:09 +1000
Subject: [PATCH] boot.asm - fixed bug with 720 kb floppy

---
 BOOT/boot.asm       | 5 ++---
 DSS/API/Execute.ASM | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/BOOT/boot.asm b/BOOT/boot.asm
index 6dc232d..db16b5a 100644
--- a/BOOT/boot.asm
+++ b/BOOT/boot.asm
@@ -355,11 +355,10 @@ write_to_floppy:
 		; ;
 		add	hl,bc
 		ld	(buffer + BOOT_SECTOR.RESERVED_SECTORS),hl	; зарезерв. секторов
-		ex	hl,de
-		ld	hl,SECTORS_OF_LOADER-1
+		dec	hl
+		ld	de,SECTORS_OF_LOADER
 		and	a
 		sbc	hl,de
-		ccf
 		ret	c	
 overwrite_floppy:
 		; записать boot-сектор назад
diff --git a/DSS/API/Execute.ASM b/DSS/API/Execute.ASM
index a29a028..7fe4321 100644
--- a/DSS/API/Execute.ASM
+++ b/DSS/API/Execute.ASM
@@ -404,7 +404,7 @@ _ret+1:		JP	0
 
 _TST_PROC_2:	LD	SP,(CORE_BUFFERS.EXEBUFF.SP_REG)
 		LD	HL,(CORE_BUFFERS.EXEBUFF.LD_ADDR)
-		LD	DE,#0080
+		LD	DE,#0080		;!HARDCODE CLP_Buffer
 		XOR	A
 		SBC	HL,DE
 		EX	DE,HL