2006-06-10 01:37:53 +00:00
|
|
|
|
|
|
|
|
" /" find-device
|
|
|
|
|
2 encode-int " #address-cells" property
|
2008-08-06 18:20:12 +00:00
|
|
|
2 encode-int " #size-cells" property
|
2008-07-12 09:41:08 +00:00
|
|
|
" sun4u" encode-string " compatible" property
|
2006-06-10 01:37:53 +00:00
|
|
|
|
2006-06-10 02:04:54 +00:00
|
|
|
\ : encode-unit encode-unit-sbus ;
|
|
|
|
|
\ : decode-unit decode-unit-sbus ;
|
2006-06-10 01:37:53 +00:00
|
|
|
|
|
|
|
|
new-device
|
|
|
|
|
" memory" device-name
|
|
|
|
|
external
|
|
|
|
|
: open true ;
|
|
|
|
|
: close ;
|
|
|
|
|
\ claim ( phys size align -- base )
|
2008-08-06 18:20:12 +00:00
|
|
|
: claim 2drop ;
|
2006-06-10 01:37:53 +00:00
|
|
|
\ release ( phys size -- )
|
|
|
|
|
finish-device
|
|
|
|
|
|
|
|
|
|
new-device
|
|
|
|
|
" virtual-memory" device-name
|
|
|
|
|
external
|
|
|
|
|
: open true ;
|
|
|
|
|
: close ;
|
|
|
|
|
\ claim ( phys size align -- base )
|
2008-08-06 18:20:12 +00:00
|
|
|
: claim 2drop ;
|
2006-06-10 01:37:53 +00:00
|
|
|
\ release ( phys size -- )
|
|
|
|
|
finish-device
|
|
|
|
|
|
|
|
|
|
" /options" find-device
|
|
|
|
|
" disk" encode-string " boot-from" property
|
|
|
|
|
|
2008-08-06 18:20:12 +00:00
|
|
|
" /openprom" find-device
|
|
|
|
|
" OBP 3.10.24 1999/01/01 01:01" encode-string " version" property
|
2008-12-20 14:48:40 +00:00
|
|
|
|
|
|
|
|
dev /pci
|
|
|
|
|
|
|
|
|
|
\ simple isa bus node
|
|
|
|
|
new-device
|
|
|
|
|
" isa" device-name
|
|
|
|
|
" isa" device-type
|
|
|
|
|
2 encode-int " #address-cells" property
|
|
|
|
|
1 encode-int " #size-cells" property
|
|
|
|
|
|
|
|
|
|
external
|
|
|
|
|
: open true ;
|
|
|
|
|
: close ;
|
|
|
|
|
|
|
|
|
|
finish-device
|
|
|
|
|
|
|
|
|
|
: ?devalias ( alias-str alias-len device-str device-len --
|
|
|
|
|
\ alias-str alias-len false | true )
|
|
|
|
|
active-package >r
|
|
|
|
|
" /aliases" find-device
|
|
|
|
|
\ 2dup ." Checking " type
|
|
|
|
|
2dup find-dev if \ check if device exists
|
|
|
|
|
drop
|
|
|
|
|
2over find-dev if \ do we already have an alias?
|
|
|
|
|
\ ." alias exists" cr
|
|
|
|
|
drop 2drop false
|
|
|
|
|
else
|
|
|
|
|
\ ." device exists" cr
|
|
|
|
|
encode-string
|
|
|
|
|
2swap property
|
|
|
|
|
true
|
|
|
|
|
then
|
|
|
|
|
else
|
|
|
|
|
\ ." device doesn't exist" cr
|
|
|
|
|
2drop false
|
|
|
|
|
then
|
|
|
|
|
r> active-package!
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
:noname
|
|
|
|
|
" hd"
|
|
|
|
|
" /pci/isa/ide0/disk@0" ?devalias not if
|
|
|
|
|
" /pci/isa/ide0/disk@1" ?devalias not if
|
|
|
|
|
" /pci/isa/ide1/disk@0" ?devalias not if
|
|
|
|
|
" /pci/isa/ide1/disk@1" ?devalias not if
|
|
|
|
|
2drop ." No disk found." cr
|
|
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
|
|
|
|
|
" cdrom"
|
|
|
|
|
" /pci/isa/ide0/cdrom@0" ?devalias not if
|
|
|
|
|
" /pci/isa/ide0/cdrom@1" ?devalias not if
|
|
|
|
|
" /pci/isa/ide1/cdrom@0" ?devalias not if
|
|
|
|
|
" /pci/isa/ide1/cdrom@1" ?devalias not if
|
|
|
|
|
2drop ." No cdrom found" cr
|
|
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
; SYSTEM-initializer
|
