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
3active-package 0 active-package!
4defer va>tte-data
50 to va>tte-data
6active-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
51device-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]
62