From b46b9ce380599819bb2511370aa3b9ea22f14c2d Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Fri, 16 Oct 1992 15:43:46 +0000
Subject: [PATCH] small fix: carry was not always clear before the 'sbc'

---
 mach/z80/libmon/head_em.s | 1 +
 mach/z80/libsys/head_em.s | 1 +
 2 files changed, 2 insertions(+)

diff --git a/mach/z80/libmon/head_em.s b/mach/z80/libmon/head_em.s
index da5dfec3..251bd582 100644
--- a/mach/z80/libmon/head_em.s
+++ b/mach/z80/libmon/head_em.s
@@ -25,6 +25,7 @@
 	ld h,d
 	ld l,e
 	ld bc,begbss
+	xor a			! to clear carry
 	sbc hl,bc
 	ld a,h
 	or l
diff --git a/mach/z80/libsys/head_em.s b/mach/z80/libsys/head_em.s
index da5dfec3..251bd582 100644
--- a/mach/z80/libsys/head_em.s
+++ b/mach/z80/libsys/head_em.s
@@ -25,6 +25,7 @@
 	ld h,d
 	ld l,e
 	ld bc,begbss
+	xor a			! to clear carry
 	sbc hl,bc
 	ld a,h
 	or l