new directory for system-dependant things

diff --git a/mach/z8000/libmon/.distr b/mach/z8000/libmon/.distr
new file mode 100644 (file)
index 0000000..8ce78cf
--- /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 (file)
index 0000000..5be73c5
--- /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