anchor.diff:  ' (set-boot-device) to set-boot-device
   
   : (add-boot-device) ( str len -- )	\ Concatenate " str" to "bootdevice"
  -   bootdevice 2@ ?dup IF $cat-space ELSE drop THEN set-boot-device
  +   bootdevice 2@ ?dup IF
  +      alloc-bootdev-buf
  +      swap bootdev-buf 2 pick move
  +      bootdev-buf swap s"  " bootdev-string-cat
  +      2swap bootdev-string-cat
  +   ELSE drop THEN
  +   set-boot-device
  +   bootdev-buf 0 <> IF free-bootdev-buf THEN
   ;
   
   ' (add-boot-device) to add-boot-device
  
positive.code: VARIABLE state-valid false state-valid !
  CREATE go-args 2 cells allot go-args 2 cells erase
  
  \ \\\\\\\\\\\\\\ Structure/Implementation Dependent Methods
  
  : $bootargs
     bootargs 2@ ?dup IF
  
negative.code: ;
  
  : $bootdev ( -- device-name len )
     alloc-bootdev-buf
     bootdevice 2@ ?dup IF
        swap bootdev-buf 2 pick move
        bootdev-buf swap s"  " bootdev-string-cat
     ELSE
        \ use bootdev-buf for concatenating diag mode/boot-device if any
        drop bootdev-buf 0
     THEN
     s" diagnostic-mode?" evaluate IF
        s" diag-device" evaluate
     ELSE
        s" boot-device" evaluate
     THEN
     ( bootdev len str len1 )
     bootdev-string-cat \ concatenate both
     strdup
     free-bootdev-buf
     ?dup 0= IF
        disable-watchdog
        drop true ABORT" No boot device!"
  