Node 703
MMC controller node - write.
Source code
703 mmc wr
reach 00 c 2 d 5 r 3 d path lit a ! 1202F code ! ! ! ;
ch2 04 2* 2* 2* 2* 2* 2*
ch1 06 2* 2* 2* 2* 2* 2*
ch0 08 2/ 2/ FFFF and !b ;
upck 0B @ dup ch0 dup ch1 ch2 ;
r1 0E -n 1202D r1' !b @b ;
bsy 10 1202F bsy !b @b ;
adr 12 n-0aa push dup dup or pop dup
11 for 2/ unext push 2* 2* 2* 2* pop ;
r1 19 w 560E wout !b !b ;
cmd 1B nc-f push adr pop or wout wout wout r1 ;
dsk 20 n @p drop !p ;
blk! 21 n dup 0 . + 16000 cmd drop 767 5634 dat! !b !b
10001 reach 5633 read ! n !
255 for upck next r1 drop bsy drop ;
save 34 2 907 for dup blk! 1 . + next
down a! dup or - ! right a! ; 40
init left b! right a! -d-- ; 45
5 l 0 u 0 ether
reach 00 c 2 d 5 r 3 d path lit a ! 1202F code ! ! ! ;
ch2 04 2* 2* 2* 2* 2* 2*
ch1 06 2* 2* 2* 2* 2* 2*
ch0 08 2/ 2/ FFFF and !b ;
upck 0B @ dup ch0 dup ch1 ch2 ;
r1 0E -n 1202D r1' !b @b ;
bsy 10 1202F bsy !b @b ;
adr 12 n-0aa push dup dup or pop dup
11 for 2/ unext push 2* 2* 2* 2* pop ;
r1 19 w 560E wout !b !b ;
cmd 1B nc-f push adr pop or wout wout wout r1 ;
dsk 20 n @p drop !p ;
blk! 21 n dup 0 . + 16000 cmd drop 767 5634 dat! !b !b
10001 reach 5633 read ! n !
255 for upck next r1 drop bsy drop ;
save 34 2 907 for dup blk! 1 . + next
down a! dup or - ! right a! ; 40
init left b! right a! -d-- ; 45
5 l 0 u 0 ether
Definitions
- reach/span>
- .
- ch0, ch1, ch2
- .
- upck
- .
- r1
- .
- bsy
- .
- adr
- .
- wout
- .
- cmd
- .
- dsk
- .
- blk!
- .
- save
- .
- init
- Set registers A and B, and jump to DOWN.