anchor.diff:  : (boot-ram)
       direct-ram-boot-size 0<> IF
           ." Booting from memory..." cr
  -	s" go-args 2@ " evaluate
  -	direct-ram-boot-base 0
  -	s" true state-valid ! " evaluate
  -	s" disable-watchdog go-64" evaluate
  +        s" go-args 2@ " evaluate
  +        direct-ram-boot-base 0
  +        s" true state-valid ! " evaluate
  +        s" disable-watchdog go-64" evaluate
       THEN
   ;
   
  
positive.code: : check-boot-from-ram
      s" qemu,boot-kernel" get-chosen IF
          decode-int -rot decode-int -rot ( n1 n2 p s )
  	decode-int -rot decode-int -rot ( n1 n2 n3 n4 p s )
  	2drop
  	swap 20 << or to direct-ram-boot-size
  	swap 20 << or to direct-ram-boot-base
  	." Detected RAM kernel at " direct-ram-boot-base .
  	." (" direct-ram-boot-size . ." bytes) "
  	\ Override the boot-command word without touching the
  	\ nvram environment
  	s" boot-command" $create " (boot-ram)" env-string
      THEN
  ;
  check-boot-from-ram
  
negative.code: 370 cp
  
  : check-boot-menu
      s" qemu,boot-menu" get-chosen IF
          decode-int 1 = IF
              ." Press F12 for boot menu." cr cr
          THEN
          2drop
      THEN
  ;
  check-boot-menu
  
  