Node 704
MMC controller node - init.
Source code
704 mmc init
host do, ce-, clk ++- 1553E lit ; target
spi 00 ++- @p !b . @p !b .. !b 1202F code a ! !
3 l 0 0 path lit ! 0 cnt ! 1203C cs ! 12000 mmc !b left a! ;
wout 0E w 5611 wout !b !b ;
r1 10 12028 r1 !b @b ;
cmd0 12 254 0 10000
cmd 16 www-n wout wout wout r1 ;
cmd1 1A dup or dup 10400 cmd ;
cm16 1D dup or 10 14000 cmd ; 1024 b/sec
start 21 @b start spi cmd0 begin cmd1
if swap end then cm16 5 10mhz @p !b .
@p .. !b 1200B go !b --l- ;
-- code called from 703 --
r1' 2D r1 ! ;
bsy 2F 1203C bsy !b @b !
cs- 32 12008 cs- !b ;
dat! 34 n dup 5614 dat! !b !b for @ !b unext ; 38
init down a! right b! start ; 3C
4 l 0 u 0 ether
host do, ce-, clk ++- 1553E lit ; target
spi 00 ++- @p !b . @p !b .. !b 1202F code a ! !
3 l 0 0 path lit ! 0 cnt ! 1203C cs ! 12000 mmc !b left a! ;
wout 0E w 5611 wout !b !b ;
r1 10 12028 r1 !b @b ;
cmd0 12 254 0 10000
cmd 16 www-n wout wout wout r1 ;
cmd1 1A dup or dup 10400 cmd ;
cm16 1D dup or 10 14000 cmd ; 1024 b/sec
start 21 @b start spi cmd0 begin cmd1
if swap end then cm16 5 10mhz @p !b .
@p .. !b 1200B go !b --l- ;
-- code called from 703 --
r1' 2D r1 ! ;
bsy 2F 1203C bsy !b @b !
cs- 32 12008 cs- !b ;
dat! 34 n dup 5614 dat! !b !b for @ !b unext ; 38
init down a! right b! start ; 3C
4 l 0 u 0 ether
Definitions
- spi
- .
- wout
- .
- r1
- .
- cmd0
- .
- cmd
- .
- cmd1
- .
- cm16
- .
- start
- .
- r1'
- .
- bsy
- .
- cs-
- .
- dat!
- .
- init
- Set registers A and B, and jump to start.