diff options
Diffstat (limited to 'qemu/roms/openbios/arch/unix/tree.fs')
-rw-r--r-- | qemu/roms/openbios/arch/unix/tree.fs | 116 |
1 files changed, 0 insertions, 116 deletions
diff --git a/qemu/roms/openbios/arch/unix/tree.fs b/qemu/roms/openbios/arch/unix/tree.fs deleted file mode 100644 index a7529b006..000000000 --- a/qemu/roms/openbios/arch/unix/tree.fs +++ /dev/null @@ -1,116 +0,0 @@ -:noname - ." Type 'help' for detailed information" cr - ; DIAG-initializer - -" /" find-device - -new-device - " memory" device-name - \ 12230 encode-int " reg" property - external - : open true ; - : close ; - \ claim ( phys size align -- base ) - \ release ( phys size -- ) -finish-device - -new-device - " cpus" device-name - 1 " #address-cells" int-property - 0 " #size-cells" int-property - - external - : open true ; - : close ; - : decode-unit parse-hex ; - -finish-device - -: make-openable ( path ) - find-dev if - begin ?dup while - \ install trivial open and close methods - dup active-package! is-open - parent - repeat - then -; - -: preopen ( chosen-str node-path ) - 2dup make-openable - - " /chosen" find-device - open-dev ?dup if - encode-int 2swap property - else - 2drop - then -; - -:noname - set-defaults -; SYSTEM-initializer - - -\ preopen device nodes (and store the ihandles under /chosen) -:noname - " memory" " /memory" preopen - " mmu" " /cpus/@0" preopen - " stdout" " /builtin/console" preopen - " stdin" " /builtin/console" preopen - device-end -; SYSTEM-initializer - -\ use the tty interface if available -:noname - " /builtin/console" find-dev if drop - " /builtin/console" " input-device" $setenv - " /builtin/console" " output-device" $setenv - then -; SYSTEM-initializer - -:noname - " keyboard" input -; CONSOLE-IN-initializer - -dev / - -\ node suitable for non-PCI devices -new-device - " unix" device-name - 0 encode-int " #address-cells" property - 0 encode-int " #size-cells" property - - external - : open true ; - : close ; - -\ block device node -new-device - " block" device-name - " unix-block" device-type - 1 " #address-cells" int-property - 0 " #size-cells" int-property - - external - : open true ; - : close ; - : decode-unit parse-hex ; - -\ testnode -\ new-device -\ " kappa" device-name -\ -\ 1 encode-int " reg" property -\ external -\ : open true ; -\ : close ; -\ finish-device - -finish-device -finish-device - -dev /aliases -" /unix/block/disk" encode-string " hd" property - -device-end |