Browse Source

Added EXIT, WRITE entry point

ceriel 32 years ago
parent
commit
8474be6e52
2 changed files with 5 additions and 3 deletions
  1. 4 2
      mach/z8000/libmon/head_em.s
  2. 1 1
      mach/z8000/libmon/mon.s

+ 4 - 2
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

+ 1 - 1
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