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

   1 :noname
   2   ."   Type 'help' for detailed information" cr
   3   \ ."   boot secondary slave cdrom: " cr
   4   \ ."    0 >  boot hd:2,\boot\vmlinuz root=/dev/hda2" cr
   5   ; DIAG-initializer
   6
   7 : make-openable ( path )
   8   find-dev if
   9     begin ?dup while
  10       \ install trivial open and close methods
  11       dup active-package! is-open
  12       parent
  13     repeat
  14   then
  15 ;
  16
  17 : preopen ( chosen-str node-path )
  18   2dup make-openable
  19
  20   " /chosen" find-device
  21   open-dev ?dup if
  22     encode-int 2swap property
  23   else
  24     2drop
  25   then
  26 ;
  27
  28 :noname
  29   set-defaults
  30 ; PREPOST-initializer
  31
  32 \ preopen device nodes (and store the ihandles under /chosen)
  33 :noname
  34   " memory" " /memory" preopen
  35   " mmu" " /virtual-memory" preopen
  36 ; SYSTEM-initializer
  37
  38 device-end
  39
  40 : rmap@    ( virt -- rmentry )
  41   drop 0
  42   ;
  43
  44 \ D5.3 SBus specific on-board memory address space
  45 : obmem ( -- space )
  46   0
  47   ;
  48
  49 \ (peek) and (poke) implementation
  50 defer sfsr@
  51 defer ignore-dfault
  52
  53 :noname
  54   \ ( addr xt -- false | value true )
  55   sfsr@ drop            \ Clear any existing MMU fault status
  56
  57   -1 ignore-dfault !    \ Disable data fault trap
  58   execute
  59   0 ignore-dfault !     \ Enable data fault trap
  60
  61   sfsr@ 0= if
  62     true
  63   else
  64     drop false          \ Failed, drop the read value
  65   then
  66 ; to (peek)
  67
  68 :noname
  69   \ ( value addr xt -- okay? )
  70   sfsr@ drop            \ Clear any existing MMU fault status
  71
  72   -1 ignore-dfault !    \ Disable data fault trap
  73   execute
  74   0 ignore-dfault !     \ Enable data fault trap
  75
  76   sfsr@ 0=              \ true if no fault
  77 ; to (poke)
  78
  79 \ Load TCX FCode driver blob
  80 [IFDEF] CONFIG_DRIVER_SBUS
  81   -1 value tcx-driver-fcode
  82   " QEMU,tcx.bin" $encode-file to tcx-driver-fcode
  83 [THEN]