Added EXIT, WRITE entry point

diff --git a/mach/z8000/libmon/head_em.s b/mach/z8000/libmon/head_em.s
index 5be73c5..1f4ec23 100644 (file)
--- 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 407a9c5..73aec82 100644 (file)
--- 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