qemu/roms/openbios/arch/sparc64/init.fs

   1 \ va>tte-data defer MMU virtual to physical address hook for Solaris
   2 \ We need to make sure this is in the global wordlist
   3 active-package 0 active-package!
   4 defer va>tte-data
   5 0 to va>tte-data
   6 active-package!
   7
   8 :noname
   9   ."   Type 'help' for detailed information" cr
  10   \ ."   boot secondary slave cdrom: " cr
  11   \ ."    0 >  boot hd:2,\boot\vmlinuz root=/dev/hda2" cr
  12   ; DIAG-initializer
  13
  14 : make-openable ( path )
  15   find-dev if
  16     begin ?dup while
  17       \ install trivial open and close methods
  18       dup active-package! is-open
  19       parent
  20     repeat
  21   then
  22 ;
  23
  24 : preopen ( chosen-str node-path )
  25   2dup make-openable
  26
  27   " /chosen" find-device
  28   open-dev ?dup if
  29     encode-int 2swap property
  30   else
  31     2drop
  32   then
  33 ;
  34
  35 :noname
  36   set-defaults
  37 ; PREPOST-initializer
  38
  39 \ preopen device nodes (and store the ihandles under /chosen)
  40 :noname
  41   " memory" " /memory" preopen
  42
  43 ; SYSTEM-initializer
  44
  45 \ use the tty interface if available
  46 : activate-tty-interface
  47   " /packages/terminal-emulator" find-dev if drop
  48   then
  49 ;
  50
  51 device-end
  52
  53 : rmap@    ( virt -- rmentry )
  54   drop 0
  55   ;
  56
  57 \ Load VGA FCode driver blob
  58 [IFDEF] CONFIG_DRIVER_VGA
  59   -1 value vga-driver-fcode
  60   " QEMU,VGA.bin" $encode-file to vga-driver-fcode
  61 [THEN]