build.fs (416B) - raw
1 ." Compiling arm kernel" nl> 2 f<< /xcomp/arm/rpi/kernel.fs 3 xbindict orgifydict 4 here org - value kernellen 5 org value kernel 6 7 : spitBoot ( iohdl -- ) >r \ V1=iohdl 8 ." Putting kernel in place\n" 9 kernel kernellen V1 IO :write 10 S" /xcomp/boot.fs" V1 spitfile 11 S" /drv/rpi/emmc.fs" V1 spitfile 12 S" /lib/drivelo.fs" V1 spitfile 13 S" /fs/fatlo.fs" V1 spitfile 14 S" /xcomp/arm/rpi/glue.fs" V1 spitfile 15 r> IO :flush ;