From: ceriel <none@none>
Date: Tue, 30 Jun 1992 17:42:09 +0000 (+0000)
Subject: Added EXIT, WRITE entry point
X-Git-Tag: release-5-5~430
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=8474be6e5250b92ecb1a688af24416b5be4ec1e0;p=ack.git

Added EXIT, WRITE entry point
---

diff --git a/mach/z8000/libmon/head_em.s b/mach/z8000/libmon/head_em.s
index 5be73c5f0..1f4ec2348 100644
--- a/mach/z8000/libmon/head_em.s
+++ b/mach/z8000/libmon/head_em.s
@@ -1,4 +1,4 @@
-.define  EXIT, F_DUM
+.define  EXIT, WRITE, F_DUM
 .define  ERANGE, ESET, EHEAP, EILLINS, EODDZ, ECASE, EBADMON
 .define  hol0, trppc, trpim, reghp, argv, envp
 .sect .text
@@ -7,7 +7,6 @@
 .sect .bss
 .sect .text
 
-EXIT	= 0
 F_DUM	= 0
 
 ERANGE  = 1
@@ -40,9 +39,12 @@ EBADMON = 25
 	push	*RR14, argv
 	push	*RR14, $1
 	calr	__m_a_i_n
+EXIT:
 	ldl	RR14, $0xC00017FC
 	sc	$0
 
+WRITE:	jr	__write
+
 .sect .bss
 begbss:
 .sect .data
diff --git a/mach/z8000/libmon/mon.s b/mach/z8000/libmon/mon.s
index 407a9c576..73aec8254 100644
--- a/mach/z8000/libmon/mon.s
+++ b/mach/z8000/libmon/mon.s
@@ -11,7 +11,7 @@ mon:
 	cp	R0, $1		! exit
 	jr	NE, read
 	inc	R15, $2
-	sc	$EXIT
+	sc	$0
 read:	cp	R0, $3		! read
 	jr	NE, write
 	pop	R0, *RR14	! dummy;  all input from stdin