qemu/roms/openbios/arch/ia64/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 " /" find-device
   8
   9 new-device
  10   " memory" device-name
  11   \ 12230 encode-int " reg" property
  12   external
  13   : open true ;
  14   : close ;
  15   \ claim ( phys size align -- base )
  16   \ release ( phys size -- )
  17 finish-device
  18
  19 new-device
  20   " cpus" device-name
  21   1 " #address-cells" int-property
  22   0 " #size-cells" int-property
  23
  24   external
  25   : open true ;
  26   : close ;
  27   : decode-unit parse-hex ;
  28
  29 finish-device
  30
  31 : make-openable ( path )
  32   find-dev if
  33     begin ?dup while
  34       \ install trivial open and close methods
  35       dup active-package! is-open
  36       parent
  37     repeat
  38   then
  39 ;
  40
  41 : preopen ( chosen-str node-path )
  42   2dup make-openable
  43
  44   " /chosen" find-device
  45   open-dev ?dup if
  46     encode-int 2swap property
  47   else
  48     2drop
  49   then
  50 ;
  51
  52 :noname
  53   set-defaults
  54 ; SYSTEM-initializer
  55
  56 \ preopen device nodes (and store the ihandles under /chosen)
  57 :noname
  58   " memory" " /memory" preopen
  59   " mmu" " /cpus/@0" preopen
  60   " stdout" " /builtin/console" preopen
  61   " stdin" " /builtin/console" preopen
  62
  63 ; SYSTEM-initializer
  64
  65 \ use the tty interface if available
  66 :noname
  67   " /builtin/console" find-dev if drop
  68     " /builtin/console" " input-device" $setenv
  69     " /builtin/console" " output-device" $setenv
  70   then
  71 ; SYSTEM-initializer
  72
  73 :noname
  74   " keyboard" input
  75 ; CONSOLE-IN-initializer
  76