Node 701
SERDES master. Link.
Source code
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 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 .