etherforth_logo

Node 701

SERDES master. Link.

Source code

link node 700 node 701
701 link - serdes master
lis 00 a io a! dup dup or ! data a! 3FFFE dup ! over a! ;
turn 07 1 for unext lis 80 for unext lis ;
first 0D n a data a! over ! io a! 20000 ! a! drop ;
head 14 j ! @b ph drop @b c -1 . + @b pt ! dup ! dup FF and
pay 1B cn for 300 for unext @b ! next
rply? 2/ 2/ 2/ 2/ 2/ 2/ 2/ 2/ push zif - ;
then turn begin @ !b unext turn ;
-head 28 -icn @b @b @b 3FFFE @b -2 . +
dup FF and cn @b pt drop ;
link 2F -head @b first pay
rdy 32 1B5 rdl- b! @b f b! @b j -if link ;
then push i -if - down first pop head rdy ;
then down ! pop head rdy ; 40

init 3FFFE i up a! rdy ; 44
7 l 0 u 0 ether
lis
.
turn
.
first
.
head
.
pay
.
rply?
.
-head
.
link
.
rdy
.
init
Set T to 3FFFE as SERDES initialization, set register A, and jump to rdy .

Description