X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=device%2Flib%2Fmcs51%2Fcrtxclear.asm;h=f7db6a88a9c69a19391e52a27968262f34066eda;hb=d2da99feec099aa224e1db53bc5a1ed42ed51ec9;hp=819c111b8697f6245026260d1a6eb61494293286;hpb=7c10ac7e90bbe4388df1271052c3b01cb1a230b1;p=fw%2Fsdcc

diff --git a/device/lib/mcs51/crtxclear.asm b/device/lib/mcs51/crtxclear.asm
index 819c111b..f7db6a88 100644
--- a/device/lib/mcs51/crtxclear.asm
+++ b/device/lib/mcs51/crtxclear.asm
@@ -34,16 +34,27 @@
 	.area GSINIT4 (CODE)
 
 __mcs51_genXRAMCLEAR::
+	mov	r0,#l_PSEG
+	mov	a,r0
+	orl	a,#(l_PSEG >> 8)
+	jz	00005$
+	mov	r1,#s_PSEG
+	mov	__XPAGE,#(s_PSEG >> 8)
+	clr     a
+00004$:	movx	@r1,a
+	inc	r1
+	djnz	r0,00004$
+00005$:
 	mov	r0,#l_XSEG
 	mov	a,r0
 	orl	a,#(l_XSEG >> 8)
-	jz	00005$
+	jz	00007$
 	mov	r1,#((l_XSEG + 255) >> 8)
 	mov	dptr,#s_XSEG
 	clr     a
-00004$:	movx	@dptr,a
+00006$:	movx	@dptr,a
 	inc	dptr
-	djnz	r0,00004$
-	djnz	r1,00004$
-00005$:
+	djnz	r0,00006$
+	djnz	r1,00006$
+00007$: