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