summaryrefslogtreecommitdiffstats
path: root/qemu/roms/openbios/arch/unix/tree.fs
diff options
context:
space:
mode:
Diffstat (limited to 'qemu/roms/openbios/arch/unix/tree.fs')
-rw-r--r--qemu/roms/openbios/arch/unix/tree.fs116
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