Browse Source

(console.write.tal) Added output example to /error port

main
neauoire 2 years ago
parent
commit
187f92d31d
  1. 18
      projects/examples/devices/console.write.tal
  2. 2
      src/uxn.c

18
projects/examples/devices/console.write.tal

@ -5,12 +5,18 @@
|0100
@on-reset ( -> )
;text
&while ( -- )
( | write )
{ "Hello 20 "Write 0a 00 }
STH2r
&wa ( -- )
LDAk .Console/write DEO
INC2 LDAk ?&while
INC2 LDAk ?&wa
POP2
( | error )
{ "Hello 20 "Error 0a 00 }
STH2r
&wb ( -- )
LDAk .Console/error DEO
INC2 LDAk ?&wb
POP2 BRK
@text
"Hello $1

2
src/uxn.c

@ -13,7 +13,7 @@ WITH REGARD TO THIS SOFTWARE.
/* Registers
[ Z ][ Y ][ X ][ L ][ N ][ T ] <
[ . ][ . ][ . ][ H2 ][ T ] <
[ . ][ . ][ . ][ H2 ][ . ] <
[ L2 ][ N2 ][ T2 ] <
*/

Loading…
Cancel
Save