2021-06-27 16:45:50 -04:00
|
|
|
( dev/console )
|
|
|
|
|
|
2021-06-28 12:40:29 -04:00
|
|
|
%RTN { JMP2r }
|
|
|
|
|
|
|
|
|
|
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 ]
|
2021-06-27 16:45:50 -04:00
|
|
|
|
|
|
|
|
( init )
|
|
|
|
|
|
|
|
|
|
|0100 ( -> )
|
2021-06-28 12:40:29 -04:00
|
|
|
|
2021-06-27 16:45:50 -04:00
|
|
|
;on-stdin .Console/vector DEO2
|
2021-06-28 12:40:29 -04:00
|
|
|
|
2021-06-27 16:45:50 -04:00
|
|
|
BRK
|
|
|
|
|
|
|
|
|
|
@on-stdin ( -> )
|
2021-06-28 12:40:29 -04:00
|
|
|
|
|
|
|
|
.Console/read DEI .Console/write DEO
|
|
|
|
|
|
|
|
|
|
BRK
|
|
|
|
|
|
