2023-07-16 12:41:40 -04:00
|
|
|
( usage: uxncli console.write.rom )
|
|
|
|
|
|
|
|
|
|
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|
|
|
|
|
|
|
|
|
|
|0100
|
|
|
|
|
|
|
|
|
|
@on-reset ( -> )
|
2023-10-26 14:29:49 -04:00
|
|
|
( | write )
|
|
|
|
|
{ "Hello 20 "Write 0a 00 }
|
|
|
|
|
STH2r
|
|
|
|
|
&wa ( -- )
|
2023-07-16 12:41:40 -04:00
|
|
|
LDAk .Console/write DEO
|
2023-10-26 14:29:49 -04:00
|
|
|
INC2 LDAk ?&wa
|
|
|
|
|
POP2
|
|
|
|
|
( | error )
|
|
|
|
|
{ "Hello 20 "Error 0a 00 }
|
|
|
|
|
STH2r
|
|
|
|
|
&wb ( -- )
|
|
|
|
|
LDAk .Console/error DEO
|
|
|
|
|
INC2 LDAk ?&wb
|
2023-07-16 12:41:40 -04:00
|
|
|
POP2 BRK
|
|
|
|
|
|
