From 49b39493156e53d821bbc529771e8c31ed8e8e36 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 28 Aug 1991 15:55:18 +0000
Subject: [PATCH] new directory for system-dependant things

---
 mach/z8000/libmon/.distr    |  1 +
 mach/z8000/libmon/head_em.s | 62 +++++++++++++++++++++++++++++++++++++
 2 files changed, 63 insertions(+)
 create mode 100644 mach/z8000/libmon/.distr
 create mode 100644 mach/z8000/libmon/head_em.s

diff --git a/mach/z8000/libmon/.distr b/mach/z8000/libmon/.distr
new file mode 100644
index 000000000..8ce78cfaa
--- /dev/null
+++ b/mach/z8000/libmon/.distr
@@ -0,0 +1 @@
+head_em.s
diff --git a/mach/z8000/libmon/head_em.s b/mach/z8000/libmon/head_em.s
new file mode 100644
index 000000000..5be73c5f0
--- /dev/null
+++ b/mach/z8000/libmon/head_em.s
@@ -0,0 +1,62 @@
+.define  EXIT, F_DUM
+.define  ERANGE, ESET, EHEAP, EILLINS, EODDZ, ECASE, EBADMON
+.define  hol0, trppc, trpim, reghp, argv, envp
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+
+EXIT	= 0
+F_DUM	= 0
+
+ERANGE  = 1
+ESET    = 2
+EHEAP   = 17
+EILLINS	= 18
+EODDZ	= 19
+ECASE   = 20
+EBADMON = 25
+
+.sect .text
+			!clear .sect .bss
+	ldk	R2, $0
+	ld	R3, $endbss
+	ld	R0, R3
+	sub	R0, $begbss
+	jr	EQ, 1f
+	sra	R0
+	push	*RR2, $0
+	dec	R0
+	jr	EQ, 1f
+	ldl	RR4, RR2
+	dec	R5, $2
+	lddr	*RR4, *RR2, R0
+1:
+	ldb	RL0, $10		! echo newline
+	sc	$4
+	ldl	RR14, $0
+	push	*RR14, envp
+	push	*RR14, argv
+	push	*RR14, $1
+	calr	__m_a_i_n
+	ldl	RR14, $0xC00017FC
+	sc	$0
+
+.sect .bss
+begbss:
+.sect .data
+hol0:
+	.data2 0,0			! line no
+	.data2 0,0			! file
+trppc:
+	.data2 0
+trpim:
+	.data2 0
+argv:
+envp:
+	.data2 1f
+	.data2 0
+1:	.asciz	"program"
+reghp:
+	.data2 endbss