From: ceriel <none@none>
Date: Wed, 28 Jan 1987 18:49:59 +0000 (+0000)
Subject: endbss - begbss is no longer computable by the assembler
X-Git-Tag: release-5-5~4898
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=3bb50c7b8aa6f91979770b5a19cc8337f0ab2af3;p=ack.git

endbss - begbss is no longer computable by the assembler
---

diff --git a/mach/i80/libmon/head_em.s b/mach/i80/libmon/head_em.s
index b4b3b2d63..2e28aff9d 100644
--- a/mach/i80/libmon/head_em.s
+++ b/mach/i80/libmon/head_em.s
@@ -12,8 +12,14 @@
 .sect .text
 	lxi h,0x1000		! stack will grow from 0x1000 downwards
 	sphl
+	lxi d,endbss
 	lxi h,begbss		! clear bss
-	lxi d,endbss-begbss
+	mov a,e
+	sub l
+	mov e,a
+	mov a,d
+	sbb h
+	mov d,a			! de now contains endbss - begbss
 	mvi c,0
 
 2:	mov m,c