2 ." Type 'help' for detailed information" cr
9 \ 12230 encode-int " reg" property
13 \ claim ( phys size align -- base )
14 \ release ( phys size -- )
19 1 " #address-cells" int-property
20 0 " #size-cells" int-property
25 : decode-unit parse-hex ;
29 : make-openable ( path )
32 \ install trivial open and close methods
33 dup active-package! is-open
39 : preopen ( chosen-str node-path )
42 " /chosen" find-device
44 encode-int 2swap property
55 \ preopen device nodes (and store the ihandles under /chosen)
57 " memory" " /memory" preopen
58 " mmu" " /cpus/@0" preopen
59 " stdout" " /builtin/console" preopen
60 " stdin" " /builtin/console" preopen
64 \ use the tty interface if available
66 " /builtin/console" find-dev if drop
67 " /builtin/console" " input-device" $setenv
68 " /builtin/console" " output-device" $setenv
74 ; CONSOLE-IN-initializer
78 \ node suitable for non-PCI devices
81 0 encode-int " #address-cells" property
82 0 encode-int " #size-cells" property
91 " unix-block" device-type
92 1 " #address-cells" int-property
93 0 " #size-cells" int-property
98 : decode-unit parse-hex ;
102 \ " kappa" device-name
104 \ 1 encode-int " reg" property
114 " /unix/block/disk" encode-string " hd" property