nybble
/
jumpforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

refactor ABORT etc.; add GETPID, GETTID, and RAISE

This commit is contained in:
Jesse D. McDonald 2020-09-21 15:21:04 -05:00
parent 19f12a45b9
commit 35c42fa895
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
jumpforth.S
View File

@ -954,13 +954,21 @@ defword EMIT
/* ( c-addr u -- ) */
defword DOTS,".S"
0: .int QDUP,ZBRANCH,(1f - .),SWAP,DUP,FETCHBYTE,EMIT
.int ADD1,SWAP,SUB1,BRANCH,(0b - .)
0: .int QDUP,ZBRANCH,(1f - .),OVER,FETCHBYTE,EMIT
.int SUB1,SWAP,ADD1,SWAP,BRANCH,(0b - .)
1: .int DROP,EXIT
defword GETPID
.int SYS_GETPID,SYSCALL0,EXIT
defword GETTID
.int SYS_GETTID,SYSCALL0,EXIT
defword RAISE
.int GETPID,GETTID,ROT,SYS_TGKILL,SYSCALL3,EXIT
defword ABORT
0: .int SYS_GETPID,SYSCALL0,SYS_GETTID,SYSCALL0,SIGABRT,SYS_TGKILL,SYSCALL3,DROP,EXIT
.int BRANCH,(0b - .)
0: .int LIT,6,RAISE,DROP,BRANCH,(0b - .)
defword ALLOT
.int DUP,LIT,0,LT,ZBRANCH,(0f - .)
@ -1110,7 +1118,7 @@ defword DOT,"."
/* n < pv && pv > 1, so divide pv by 10 */
.int LIT,10,DIVMOD,NIP,BRANCH,(2b - .) /* n pv/10 */
/* emit quotient+'0'; while pv > 1, divide pv by 10 and repeat with n%pv */
3: .int SWAP,OVER,DIVMOD,LIT,'0',ADD,EMIT,SWAP /* n%pv pv */
3: .int TUCK,DIVMOD,LIT,'0',ADD,EMIT,SWAP /* n%pv pv */
.int DUP,LIT,1,LE,ZBRANCH,(4f - .),TWODROP,EXIT
4: .int LIT,10,DIVMOD,NIP,BRANCH,(3b - .) /* n%pv pv/10 */