Node 708
Async node.
Source code
708 async
AE org ser-exec C8 org delay CB org 18ibits 0 org
obit 00 dwn-dw !b over push delay ;
word 02 dw-d leap drop leap drop leap drop drop ;
obyt 06 dw-dwx then then then 3 obit drop
7 for dup 1 and 3 or obit drop 2/ next 2 obit ;
lis 11 @b -if drop 18ibits drop ! lis ;
then 2000 dw and .. if drop @ word lis ;
then drop lis ;
go 1B down a! lis ; 1E
AE org ser-exec C8 org delay CB org 18ibits 0 org
obit 00 dwn-dw !b over push delay ;
word 02 dw-d leap drop leap drop leap drop drop ;
obyt 06 dw-dwx then then then 3 obit drop
7 for dup 1 and 3 or obit drop 2/ next 2 obit ;
lis 11 @b -if drop 18ibits drop ! lis ;
then 2000 dw and .. if drop @ word lis ;
then drop lis ;
go 1B down a! lis ; 1E
Definitions
obit.
word.
obyt.
lis.
go.