Handle sstderr

This commit is contained in:
Devine Lu Linvega 2023-07-12 23:01:15 -07:00
parent acf551b5ed
commit a0c763c248
1 changed files with 15 additions and 4 deletions

View File

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