2 ." Type 'help' for detailed information" cr
3 \
." boot secondary slave cdrom: " cr
4 \
." 0 > boot hd:2,\boot\vmlinuz root=/dev/hda2" cr
11 \
12230 encode
-int " reg" property
15 \ claim
( phys
size align
-- base
)
16 \ release
( phys
size -- )
21 1 " #address-cells" int-property
22 0 " #size-cells" int-property
27 : decode
-unit parse-hex
;
31 : make
-openable
( path
)
34 \ install
trivial open and close
methods
35 dup active
-package
! is
-open
41 : preopen
( chosen
-str node
-path
)
44 " /chosen" find
-device
46 encode
-int 2swap property
56 \ preopen device
nodes (and store
the ihandles
under /chosen
)
58 " memory" " /memory" preopen
59 " mmu" " /cpus/@0" preopen
60 " stdout" " /builtin/console" preopen
61 " stdin" " /builtin/console" preopen
65 \
use the tty
interface if available
67 " /builtin/console" find
-dev
if drop
68 " /builtin/console" " input-device" $setenv
69 " /builtin/console" " output-device" $setenv
75 ; CONSOLE-IN-initializer