4 ." Type 'help' for detailed information" cr
5 \ ." boot secondary slave cdrom: " cr
6 \ ." 0 > boot hd:2,\boot\vmlinuz root=/dev/hda2" cr
13 \ 12230 encode-int " reg" property
17 \ claim ( phys size align -- base )
18 \ release ( phys size -- )
23 1 " #address-cells" int-property
24 0 " #size-cells" int-property
29 : decode-unit parse-hex ;
33 : make-openable ( path )
36 \ install trivial open and close methods
37 dup active-package! is-open
43 : preopen ( chosen-str node-path )
46 " /chosen" find-device
48 encode-int 2swap property
59 \ preopen device nodes (and store the ihandles under /chosen)
61 " memory" " /memory" preopen
62 " mmu" " /cpus/@0" preopen
63 " stdout" " /builtin/console" preopen
64 " stdin" " /builtin/console" preopen
68 \ use the tty interface if available
70 " /builtin/console" find-dev if drop
71 " /builtin/console" " input-device" $setenv
72 " /builtin/console" " output-device" $setenv
78 ; CONSOLE-IN-initializer
80 \ Load VGA FCode driver blob
81 [IFDEF] CONFIG_DRIVER_VGA
82 -1 value vga-driver-fcode
83 " QEMU,VGA.bin" $encode-file to vga-driver-fcode