Added EXIT, WRITE entry point

This commit is contained in:
ceriel 1992-06-30 17:42:09 +00:00
parent 5c5812e853
commit 8474be6e52
2 changed files with 5 additions and 3 deletions

View file

@ -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

View file

@ -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