Handle sstderr
This commit is contained in:
parent
acf551b5ed
commit
a0c763c248
|
@ -57,13 +57,24 @@
|
|||
JMP2r
|
||||
|
||||
@send ( v* p* -- )
|
||||
NIP DUP #0e NEQ ?&>no-debug
|
||||
NIP
|
||||
( | handlers )
|
||||
DUP #0e NEQ ?&>no-debug
|
||||
&>no-debug
|
||||
DUP #0f NEQ ?&>no-halt
|
||||
&>no-halt
|
||||
DUP #18 NEQ ?&>no-console
|
||||
OVR #18 DEO &>no-console
|
||||
POP POP2 JMP2r
|
||||
DUP #18 NEQ ?&>no-out
|
||||
POP #18 DEO
|
||||
POP JMP2r &>no-out
|
||||
DUP #19 NEQ ?&>no-err
|
||||
POP #19 DEO
|
||||
POP JMP2r &>no-err
|
||||
( | error )
|
||||
<phex>/b
|
||||
#2018 DEO
|
||||
<phex>
|
||||
#0a18 DEO
|
||||
JMP2r
|
||||
|
||||
@halt ( opcode -- )
|
||||
#01 .emu/sleep STZ
|
||||
|
|
Loading…
Reference in New Issue