Node 300
This node ...
Source code
300 feedback
delay 00 b !b 40 for unext ;
bit 03 wb-w dup delay 10000 or delay ;
zero 06 10001 delay ; wpd 08 10001 !b ;
18i 0A x drop dup or !b 17 for
begin @b -until begin @b - -until
- 2 and 2/ a 2* or a! next a up a! !
idle 17 left a! @ 18i ;
go 1B wpd idle ; 1C
init io b! .. go ; 1F
8 l 2 d 0 ether
delay 00 b !b 40 for unext ;
bit 03 wb-w dup delay 10000 or delay ;
zero 06 10001 delay ; wpd 08 10001 !b ;
18i 0A x drop dup or !b 17 for
begin @b -until begin @b - -until
- 2 and 2/ a 2* or a! next a up a! !
idle 17 left a! @ 18i ;
go 1B wpd idle ; 1C
init io b! .. go ; 1F
8 l 2 d 0 ether
Definitions
- delay
- .
- bit
- .
- zero
- .
- wpd
- .
- 18i
- .
- idle
- .
- init
- Set register B, and jump to go.