collapseos/blk/410

( system c< simply reads source from binary, starting at
  LATEST. Convenient way to bootstrap a new system. )
: (boot<)
    ( 2e == BOOT C< PTR )
    0x2e RAM+ @   ( a )
    DUP C@        ( a c )
    SWAP 1 +      ( c a+1 )
    0x2e RAM+ !   ( c )
;