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
58 \ preopen device nodes (and store the ihandles under /chosen)
60 " memory" " /memory" preopen
61 " mmu" " /cpus/@0" preopen
62 " stdout" " /builtin/console" preopen
63 " stdin" " /builtin/console" preopen
67 \ use the tty interface if available
69 " /builtin/console" find-dev if drop
70 " /builtin/console" " input-device" $setenv
71 " /builtin/console" " output-device" $setenv
77 ; CONSOLE-IN-initializer
79 \ Load VGA FCode driver blob
80 [IFDEF] CONFIG_DRIVER_VGA
81 -1 value vga-driver-fcode
82 " QEMU,VGA.bin" $encode-file to vga-driver-fcode