Node 707
MMC controller node - boot.
Source code
707 boot
go 00 a ! 2 d 0 0 path lit 1202F code
! ! 3 dup ! for @p ! unext ;
@p a! @p . 175 left , 1203D start , ! ;
disk 0B n 2* 2* 2* 2* 2* 2* 2* 2* 2* 2* dup
5621 dsk !b !b a ! 4 l 0 u 0 path lit 1202F code
! ! 1 ! 5620 dsk ! ! ;
work 19 12033 work !b @p . . . . . !b ! ; 1D
init down a! right b! rd-- ; 22
1 l 0 u 0 ether
go 00 a ! 2 d 0 0 path lit 1202F code
! ! 3 dup ! for @p ! unext ;
@p a! @p . 175 left , 1203D start , ! ;
disk 0B n 2* 2* 2* 2* 2* 2* 2* 2* 2* 2* dup
5621 dsk !b !b a ! 4 l 0 u 0 path lit 1202F code
! ! 1 ! 5620 dsk ! ! ;
work 19 12033 work !b @p . . . . . !b ! ; 1D
init down a! right b! rd-- ; 22
1 l 0 u 0 ether
Definitions
- go
- Can be renamed boot.
- disk
- .
- work
- .
- init
- Set registers A and B, and jump to RIGHT and DOWN.