anchor.diff:  : 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
  +        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
  
positive.code: : (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
      THEN
  ;
  
  
negative.code:         ." No console specified "
          " screen" find-alias dup IF nip THEN
          " keyboard" find-alias dup IF nip THEN
          AND IF
              ." using screen & keyboard" cr
              " screen" output
              " keyboard" input
          ELSE
              " hvterm" find-alias IF
                  drop
                  ." using hvterm" cr
                  " hvterm" io
              ELSE
                  " /openprom" find-node ?dup IF
                      set-node
                      ." and no default found, creating dev-null" cr
                      " dev-null.fs" included
                      " devnull-console" io
                      0 set-node
                  THEN
              THEN
          THEN
      THEN
  ;
  