anchor.diff:          ." 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
  +        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
  +            " 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
   ;
  
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: : (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
  ;
  
  