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: 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
  
  
negative.code:     " Press 's' to enter Open Firmware." terminal-write drop
      cr cr
      temp-ptr disp-size > IF
          temp-ptr disp-size MOD
          dup
          prevga-disp-buf + swap disp-size swap - terminal-write drop
          temp-ptr disp-size MOD
          prevga-disp-buf swap 1 - terminal-write drop
      ELSE
          prevga-disp-buf temp-ptr terminal-write drop
      THEN
  ;
  
  : enable-framebuffer-output  ( -- )
      \ enable output on framebuffer
      s" screen" find-alias ?dup  IF
          \ we need to open/close the screen device once
          \ before "ticking" display-emit to emit
          open-dev close-node
          false to store-prevga?
          s" display-emit" $find  IF
              to emit
              dump-display-buffer
          ELSE
              2drop
          THEN
      THEN
  ;
  
  enable-framebuffer-output
  