From: ceriel <none@none>
Date: Fri, 30 Oct 1987 15:35:50 +0000 (+0000)
Subject: made to work
X-Git-Tag: release-5-5~3773
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=e61d8f63564af5c3393869475eb369e3ca3825b8;p=ack.git

made to work
---

diff --git a/mach/xenix3/libsys/head_em.s b/mach/xenix3/libsys/head_em.s
index e6f4d31b1..bc2cd918e 100644
--- a/mach/xenix3/libsys/head_em.s
+++ b/mach/xenix3/libsys/head_em.s
@@ -1,6 +1,6 @@
 .sect .text; .sect .rom; .sect .data; .sect .bss
 
-.define begtext,begdata,begbss
+.define begtext,begdata,begbss,syscal
 .define hol0,.reghp,.limhp,.trppc,.ignmask
 .define ERANGE,ESET,EHEAP,ECASE,EILLINS,EIDIVZ,EODDZ
 .extern _end
@@ -14,6 +14,22 @@ EODDZ           = 19
 ECASE           = 20
 
 .sect .text
+	.data1	0353
+	.data1	0176	! jmp to begtext in 2 bytes. Assembler generates 3
+			! bytes.
+syscal: jmp 1f
+grow:	jmp 2f
+	jmp 2f
+	.data2 -277, -277, -277, -277, -277, -277
+2:
+	mov ax,2088
+1:
+	int 5
+	jmp 1f
+	.space 100
+1:
+	ret
+
 begtext:
 	mov bx,sp
 	mov cx,(bx)
@@ -26,6 +42,12 @@ begtext:
 	push bx
 	push cx
 	xor bp,bp
+	mov bx,_end
+	mov cx,9
+	add bx,1024
+	shr bx,cl
+	shl bx,cl
+	call grow
 	call    _m_a_i_n
 	call	__exit
 .sect	.data
diff --git a/mach/xenix3/libsys/sys.s b/mach/xenix3/libsys/sys.s
index dd65f4909..b1893ef18 100644
--- a/mach/xenix3/libsys/sys.s
+++ b/mach/xenix3/libsys/sys.s
@@ -1,13 +1,10 @@
 .sect .text; .sect .rom; .sect .data; .sect .bss
-.define syscal, sysal, sysn, sysnl, sysnx, sysc, syse, cerror, _errno
+.define sysal, sysn, sysnl, sysnx, sysc, syse, cerror, _errno
 
 .sect .bss
 	.comm	_errno, 2
 
 .sect .text
-syscal:
-	int	5
-	ret
 
 sysal:
 	push	bp