0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-18 12:05:09 +00:00
uxn/projects/examples/devices/console.echo.tal
2021-08-16 18:45:27 -07:00

23 lines
288 B
Tal

( dev/console )
(
Copies data from stdin to both stdout and stderr.
)
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
( init )
|0100 ( -> )
;on-stdin .Console/vector DEO2
BRK
@on-stdin ( -> )
.Console/read DEI
DUP .Console/write DEO
.Console/error DEO
BRK