@@ -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
-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
+
begbss:
.sect .data
@@ -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