system booti global s lastcog ee[5000] exec s/bootfrompc/start --------------------------------- process bootfrompc adr begin 30 [setout] [receivelong] popoff [receivelong] 2 + ->lastcog :loop [receivelong] ->adr adr [loadblock] ? ={>loop} #{1 ->s} function loadblock -lbl endcode = $55555554 stopcode = $55555555 adr data begin ->adr :loop [receivelong] ->data data endcode - ? ={0 >exit} data stopcode - ? ={1 >exit} data adr ->ee[] adr 1 + ->adr >loop :exit return function receivelong p115200 = 80000000/115200 dtack = 80000000/10000 begin [readbyte] 24 << [readbyte] 16 << or [readbyte] 8 << or [readbyte] or dtack wait "a" 30 p115200 send return function readbyte begin 31 p115200 receive return \ --------------------------- process start i begin 2 lastcog [all:i] (i par 2 >> 4 + i 9 << + par 2 >> 4 + coginit ) stop \