From 67d5d2d6c409fe3e757abd61ea59b7d1ffeb135b Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
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 da5dfec34..251bd5828 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 da5dfec34..251bd5828 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