( 8 H ! ` x t " t # $ 0 @ t % ` p x @ d A d B ( H d ` | p @ @ | | |@ @ @ A B C D @ @ @ @ |P | | 0 | @ | q q q q @ x@ x x P ? p 0 @ @ @ A 0 @ B B Z [@ [ \ ] ] LSun4c machines are not supported by OpenBIOS yet, freezing Sun4d machines are not supported by OpenBIOS yet, freezing Unhandled Exception 0x PC = 0x NPC = 0x Stopping execution nX n4 nt n n op oD o| o o p< { {| {8 p p q q@ qx } q q q rH r r r s( s< sP st s s s s s t t0 tP T t t t u u( uH uh u u u u v v0 vT vx v v v v v w w4 wT w` w w w x x( | | |x |< |P n y { n | xL xp x x y0 yL yh y y y y z o o8 } }, ~ z l | | l |8 8| |8 8|8 8 8| | 8 << <fBBf< } x<fff< ~ ?3?00p cccg < < > > <~ ~< fffff f { >a<ff< | ~~~ <~ ~< <~ ~< 0` `0 $f f$ <~ ~< << ff$ ll l ll >`< | 0f 8l8v v 0 000 0 0 f< <f ~ 0 ~ 0` 8l l8 8 ~ | 0f | < | <l | 8` | 000 | | | | ~ x 0 0 ~ ~ `0 0` | | x 8l ff|ff <f f< lfffl bhxhb bhxh` <f f: < < x flxlf ```bf | | ff|`` | | ff|lf <f0 f< ~~Z < | l8 l l8l fff< < 2f <00000< `0 < < 8l 0 x | v `|fff | | | v | | <f` `` v | `lvff 8 < ff< `flxl 8 < ffff | | ff|` v | v`` ~ | 00 006 v l8 l l8l ~ ~L 2~ p p p v 8l | | x v | | | x | v x | v 0 x | v 00x | v ~ ~ 8| | | | | 0 | | f 8 < | 8 < 0 8 < 8l 8l| 0 ~ ~ ~ >l | | | | | 0 | | x v `0 v ~ 8l l8 | ~ ~ 8ld `f ff<~ ~ < p 0x | v 8 < | | 0 v v fff v <ll> ~ 8ll8 | 0c> c l~3f c lz6j << 3f f3 f3f " " " " U U U U w w w w 6666 666 666 66 66666666666 66666 6666 666676666670? ?0766666 66666707666 66 666 6666 6666666? ?6666666 666 v v x llll `0` ~ p ffff| v ~ <ff< ~8l l8 8l ll >ff< ~ ~ ~ ~` 0`~`0 | ~ ~ 0 0 ~ 0 ~ p ~ v v 8ll8 l< l6666 x 0| <<<< p x p x 0 p H T P p x 0 H P ( p 0 x @ 0 < H P H H p T P | P 0 | ` ``bc p , x | 0 0 @ P ` p x h h T X @ H , 8 p x | p x h h T X @ H , 8 p | x t 0 " !@#$%^&*()_+ QWERTYUIOP{} ASDFGHJKL:"| ZXCVBNM<>? 1234567890-= qwertyuiop[] asdfghjkl;'\ zxcvbnm,./ p | x t 0 H h H , p +\ x + 0 ) P * *d * 8 * H * * X p 4 5d 6 x M O( OD O` [x a \ ((((( AAAAAA BBBBBB 0123456789abcdefghijklmnopqrstuvwxyz 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ This CPU is not supported yet, freezing. encode-int cache-line-size property cache-nlines encode-string ecache-parity? bfill? bcopy? cache-physical? encode+ reg mask_rev ttya screen keyboard Configuration device id %s version %d machine id %d Incompatible configuration device version, freezing (sparc32-dma-alloc) ['] (sparc32-dma-alloc) to (dma-alloc) (sparc32-dma-sync) ['] (sparc32-dma-sync) to (dma-sync) (sparc32-dma-map-in) ['] (sparc32-dma-map-in) to (dma-map-in) / find-device banner-name Unknown machine (ID %d), freezing! model name CPUs: %x x %s Unknown cpu (psr %lx), freezing! new-device device-name cpu device-type psr-implementation psr-version implementation version page-size dcache-line-size dcache-nlines dcache-associativity icache-line-size icache-nlines icache-associativity ecache-line-size ecache-nlines ecache-associativity ncaches mmu-nctx sparc-version cache-coherence? mid finish-device display input-device $setenv output-device kernel phys 0x%x virt 0x%x size 0x%x initrd phys 0x%x virt 0x%x size 0x%x /options boot-file floppy disk:a disk cdrom:d cdrom net boot-device platform-boot (arch-go) /chosen UUID: %02x%02x%02x%02x-%02x%02x-%02x%02x-%02x%02x-%02x%02x%02x%02x%02x%02x encode-bytes uuid panic: not enough physical memory on host system. panic: not enough virtual memory on host system. PREPOST-initializer initialize-of panic: no dictionary entry point. SPARCstation 5 SUNW,501-3059 SUNW,SPARCstation-5 SPARCstation Voyager SUNW,501-2581 SUNW,SPARCstation-Voyager SPARCstation LX SUNW,501-2031 SUNW,SPARCstation-LX SPARCstation 4 SUNW,501-2572 SUNW,SPARCstation-4 SPARCstation Classic SUNW,501-2326 SUNW,SPARCstation-Classic Tadpole S3 GX S3 Tadpole_S3GX SPARCstation 10 (1 X 390Z55) SUNW,S10,501-2365 SUNW,SPARCstation-10 SPARCstation 20 (1 X 390Z55) SUNW,S20,501-2324 SUNW,SPARCstation-20 SPARCsystem 600(1 X 390Z55) SUNW,SPARCsystem-600 FMI,MB86900 FMI,MB86904 FMI,MB86907 LSI,L64811 CY,CY7C601 CY,CY7C611 TI,TMS390Z55 TI,TMS390S10 Ross,RT625 Ross,RT620 BIT,B5010 MC,MN10501 Weitek,W8601 GR,LEON2 GR,LEON3 /memory find-package /virtual-memory encode-property active-package! pgmap@ pgmap! map-pages to sfsr@ to ignore-dfault stdin get-instance-path stdout bootpath bootargs pathres-resolve-aliases bootpath: %s open-dev ihandle>boot-device-handle drop to my-self get-my-property sd my-unit my-args sd(0,%d,%d):%c sd(0,%d,%d) SUNW,fdtwo fd() le le() available [sparc] Kernel already loaded load-state >ls.entry ! load-state >ls.entry @ switching to new context: Can't read Linux header Not a Linux kernel image HdrS This looks like a bootdisk image but not like Linux... Possible very old Linux Found Linux version %s (protocol %#x) (loadflags %#x) bzImage zImage or Image Setting up parameters at %#lx %016Lx - %016Lx ramtop=%#x ext_mem_k=%d, alt_mem_k=%d original command line: "%s" kernel command line at %#lx initrd Missing filename to initrd parameter initrd=%s mem Missing value for mem parameter Invalid mem option, ignored Garbage after mem=<size>, ignored mem=%Lu Kernel command line is too long; truncated to %d bytes kernel command line (%d bytes): "%s" offset=%#x addr=%#x size=%#x Loading kernel... Can't read kernel ok Can't open initrd: %s start=%#x end=%#x Initrd is too big to fit in memory Loading initrd... Can't read initrd pc=%#x Jumping to entry point... Returned with o0=%#x peer child get-package-property next-property type rebooting (%s) reboot failed abort, power off power off failed halt, power off close-dev read $call-method write seek instance-to-package eval obp-ticks vocabularies? #order vocabularies big little yes no OpenBIOS dictionary: version: %d cellsize: %d endianess: %s compression: %s relocation: %s checksum: %08x length: %08x last: %0x OpenBIOS Checksum invalid (%08x)! my-self Dictionary space overflow: dicthead=%08x dictlimit=%08x primitive words cannot be debugged Stepper keys: <space>/<enter> Up Down Trace Rstack Forth key ( Empty ) ( %x %p: %s R: ( ) outer-interpreter : %s [ Finished %s ] [ Up to %s ] [ Finished %s (Unable to go up, hit trampoline) ] image 0 state-valid ! Can't read a.out header load-base %s occupies [%#lx-%#lx] A.out file [%#lx-%#lx] doesn't fit into memory Loading a.out %s... Can't read program text segment (size 0x%lx) Can't read program data segment (size 0x%lx) Can't read program (size 0x%lx) Loaded %lu bytes entry point is %#lx load-state >ls.file-size ! aout load-state >ls.file-type ! Not a bootable a.out image load-state >ls.file-size @ -1 state-valid ! catch evaluate is-cfunc is-xt-cfunc is-noname-cfunc throw ihandle>phandle my-parent find-method call-package call-parent $call-parent open-package close-package set_property: NULL phandle set-property device-end active-package (find-dev) get-package-path iterate-tree-begin iterate-tree device_type parent is-open is-ibuf create-node call-method interpret client-call-iface %s %s failed with error %08x client-iface Unimplemented service %s ([%d] -- [%d]) Broken ELF boot notes Bootloader: %s Version: %s Image name: %s Boot notes too big expanding boot note size to %u calloc overflow: %u, %u Can't read ELF header Found ELF header at offset %d Not a bootable ELF image Can't read program header elfload: too many program headers (MAX_HEADERS) Segment %d [%#lx-%#lx] doesn't fit into memory Can't read note segment ELFBoot Image checksum: %#04x Loading %s segment %d addr:%#x file:%#x mem:%#x loading... Can't read program segment %d clearing... clearing checksum... Loaded %lu bytes Verify FAILED (image:%#04x vs computed:%#04x) elf-boot load-state >ls.file-type ! elf-boot load-state >ls.param ! elf load-state >ls.file-type ! entry point is %#x Not a valid ELF memory image ['] __context cell+ ! fw-cfg-read-file (init-program) (go) le-w! le-l! le-w@ le-l@ Evaluating FCode... byte-load Evaluating Forth... eval2 ofmem_set_property: NULL phandle Unable to allocate memory for memory range property! Unable to allocate memory for translations property! translations ofmem_claim_virt - out of space (failed request for %08x bytes) out of malloc memory (%x)! ofmem_claim_io - out of space (failed request for %08x bytes) ['] display-ih cell+ ['] frame-buffer-adr cell+ ['] openbios-video-width cell+ ['] openbios-video-height cell+ ['] depth-bits cell+ ['] line-bytes cell+ ['] color-palette cell+ to fb8-blitmask to fb8-fillrect to fb8-invertrect to (romfont) to (romfont-height) to (romfont-width) %u screen-#columns screen-#rows emit prepare print-prompt print-status terminate? 0 to terminate? open close cmdline +/packages/cmdline read-blocks write-blocks block-size max-transfer tell +/packages/deblocker dir execute disk-label: Unable to determine filesystem find-part-handler interpose find-filesystem %BOOT load load currently not implemented for ihandle %08x /packages/disk-label init-program +/packages/elf-loader nvram-store-configs 77777777777 invalid nvram partition length nvram error detected, zapping pram nvram-load-configs common create-failed set-defaults nvram size update-nvram register-partition-package sun-parts: Unable to determine filesystem left-parse-string ufs-file-system probe get-info +/packages/sun-parts close-deblocker open-deblocker full command not acceppted, status =%x full new command not acceppted, status =%d set_drive bad status block is-deblocker /aliases %s/%s dma-sync dma-map-out dma-map-in dma-free dma-alloc /iommu address map-in map-out /iommu/sbus probe-fcode? /iommu/sbus/ledma /iommu/sbus/ledma/le Probing SBus slot %d offset %ld active-package my-self open-dev to my-self %x,%lx 2dup probe-self-sbus to my-self active-package! power-management ranges SUNW,CS4231 serial intr interrupts audio alias encode-unit-scsi decode-unit-scsi hd disk UNKNOWN cd /iommu/sbus/espdma esp scsi scsi-options clock-frequency /iommu/sbus/espdma/esp /iommu/sbus/espdma/esp/sd@%d,0 %s%d sd(0,%d,0) sd(0,%d,0)@0,0 decode-unit encode-unit /obio SMC MCC EMC eccmemctl width mc-type slavioconfig eeprom mk48t08 idprom auxio power sparc32-power-off ' sparc32-power-off to power-off sparc32-reset-all ' sparc32-reset-all to reset-all counter interrupt escc_read: bad len, addr %p len %x zs slave mouse port-a-ignore-cd port-b-ignore-cd /obio/zs@0,%x /obio/zs@0,%x:a /obio/zs@0,%x:b ttyb Unembedded HFS+ Error register-fs-package dir method not implemented for grubfs filesystem File not found get-path get-fstype +/packages/grubfs-files ext2fs ufs iso9660 Not ufs %s: not a directory. reopen open-nwrom volume-name Propolice detected a stack smashing attack %x at function %s, freezing Propolice detected a stack smashing attack, freezing <NULL> ELFBoot OpenBIOS ELFBoot 1.1 ELFBoot
(semis) (lit) (do) (?do) , (loop) < (+loop) L dup ` 2dup p ?dup over 2over pick drop 2drop nip roll rot -rot swap 2swap 0 >r @ r> L r@ X depth d depth! t rdepth !rdepth! "+ #- $* %u* &mu/mod 'abs (negate )max *min +lshift ( ,rshift 8 ->>a H .and X /or h 0xor t 1invert 2d+ 3d- 4m* 5um* 6@ 7c@ 8w@ 9l@ :! ;+! <c! =w! >l! ( ?= 4 @> @ A< L Bu> X Cu< d Dsp@ p Emove Ffill G(emit) H(key?) I(key) Jexecute Khere Lhere! Mdobranch Ndo?branch Ounaligned-w@ , Punaligned-w! D Qunaligned-l@ \ Runaligned-l! t Sioc@ Tiow@ Uiol@ Vioc! Wiow! Xiol! Yi Zj [call \sys-debug ]$include ( ^$encode-file < _(debug T `(debug-off) d astate | forth-last ] latest ] base /c /w /l /n /x 1 2 , 3 < -1 L 0 \ my-self l decimal hex octal current last #order context < , vocabularies? T locals-end t locals-dict locals-dict-buf true false (immediate) 0 t 0 x 4 (compile-only) 0 t @ x 4 immediate L $ compile-only $ P flags? l immediate? 0 l 0 D compile-only? @ l @ D [ 4 p ] X ` allot t , c, align 0 l 0 l null-align t 4 p w, < 0 l , l, l 0 l 0 l 8 <> D (to) >body 0 < body> ( 0 < reveal L $ recursive p t recurse noop environment? no-environment? resolve-orig 4 (if) @ 0 p p (then) t D tmp-comp-depth tmp-comp-buf ] setup-tmp-comp p D 0 , 0 x x execute-tmp-comp x D 0 D ` t p if ` 0 p p then D d else p p D D (begin) (again) X (until) p (while) (repeat) (resolve-dest) (resolve-begin) \ 0 (resolve-until) 0 d resolve-dest D @ P \ \ t t 0 D 0 $ 4 0 0 @ P p 0 begin \ 0 again t d until 0 0 d while d 0 p p D repeat D d leaves resolve-loop \ 0 , t 4 4 do 0 @ 0 p ?do @ @ p loop P 4 d +loop ( d 4 d unloop P \ \ \ P leave x | ?leave 0 | case p endcase p @ P d of , 0 P D \ endof l P \ exit \ bl bell bs carret $ linefeed 8 tuck P 4 3dup d @ @ @ clear p 3drop 2rot P P D \ \ D 2>r \ $ 4 P P P 2r> \ \ \ P 4 2r@ < \ \ \ P P P 4 u/mod h p 4 1+ 0 1- 0 2+ @ 2- @ 4+ even l bounds @ 4 << d < >> L 2* 0 < u2/ 0 L 2/ 0 \ not s>d t p \ dnegate p p D dabs 4 t p \ 0 8 um/mod X sm/rem P P \ h \ p \ 0 \ p \ 0 4 4 fm/mod t P p \ P p \ l 0 0 4 \ 4 \ */mod P \ */ /mod P \ mod / lwsplit t l 4 L l wbsplit t l 4 L l lbsplit \ 4 ` ` bwjoin l < 4 l x wljoin l < 4 l x bljoin $ 4 wbflip H t L l 4 l lwflip p t L l 4 l lbflip t L l t 4 l t /c* /w* D /l* ` /n* | ca+ H wa+ d la+ na+ ca1+ wa1+ $ la1+ @ na1+ \ aligned x l char+ ( cell+ | chars H cells cell <= $ P >= 4 \ 0= L p D 0<= d p 8 0< p \ 0<> p 0> p P 0>= p P u<= h u>= t within P P 4 \ P x between < 0 @ 2@ t t 4 2! t P \ <w@ t P 0 comp P p $ \ h @ \ t t 0 , \ 0 0 ` 4 | ( P $= 0 h off 4 on 4 blank erase $ p wbflips @ h 0 t , d lwflips ` h 0 8 d lbflips h 0 8 d catchframe catch P x P $ P $ \ $ \ \ p throw 4 0 @ $ \ $ \ 4 P \ \ start-mem end-mem free-list % init-mem $ t ( 4 p 4 smallest-free-block < p ( p p P P P \ t 0 h t P h @ 0 ( \ \ \ P P t P t ( \ \ \ alloc-mem t h 0 t t h 0 t P P 0 p t P 4 t t h 0 ( free-mem | h 0 t @ h 0 p ( \ t 0 ( t t P \ 0 t t 0 ( t t P D 0 < 4 P t P t D 0 @ t @ 4 h 0 ( @ \ \ 0 t P ( D 0 ( t 0 emit type h @ P debug-type h @ P source-id P ib #ib >in source /string h $ 4 pocketsize numpockets $ pockets < whichpocket T init-pockets p ( @ X pocket ( t X t 0 @ t span findchar 4 p 0 t D 0 8 D 0 t t | P D parse P t p \ 0 p \ \ $ 0 t t skipws \ t P 0 $ 8 0 0 parse-word @ D word P t h h \ t D 0 P ( ) \ L ", l h @ P (") \ t @ P handle-text 0 $ t @ L 4 t P p @ ( P \ s" " ." " 0 .( ) 0 count t pack X 4 p @ ( P lcc | t A Z x 0 upc t a z x 0 -trailing \ t 0 D 0 cr ` T debug-cr T (cr < space spaces p @ P #line 8 #out d lfa2name x \ t 0 l h 4 comp-nocase p 0 4 0 p | P 0 ` p 4 comp-word P 4 \ D 0 find-wordlist x P \ h t 0 | t D 0 \ P h 0 $ \ 4 \ $find 0 0 x 0 T @ p @ 4 X 0 | P $find1 x x 0 ' | h 0 : ['] T | h 0 : 0 find t \ | 0 $ 0 literal compile, T compile | \ t P [compile] X postpone | 0 8 t 0 4 X undefined word #instance instance #instance-base t 0 #instance-offs t 0 | instance-cfa? @ behavior $ t ( 0 D 0 4 | P | (ito) P 0 4 | P (to-xt) t ( 0 @ 4 0 0 to X is | 0 0 could not find key? key $ accept < h p 0 @ t T D 0 $ p | t 0 P expect T X handle-lit 0 8 @ D 0 char 0 0 Unexpected EOL. ascii X \ 0 [char] \ 0 control \ l 0 abort ` abort" , " words H $ \ 0 4 t t 0 capital-hex? pad $ todigit 8 t P 0 ( ( 0 0 <# d < t hold < t h 4 sign 0 - # h #s < \ @ x h 0 #> d < t h (.) t P p h \ u# 4 h u#s \ t h 0 u#> p (u.) P $ T . l s. u. p .r 4 \ 0 < u.r 4 p \ 0 < .d 4 .h h 4 .s < x t > p @ x P digit 4 t t A Z x 0 ( t 9 P 0 $ 0 4 p 4 @ 0 >number 0 \ t 0 t 4 h 0 P D \ 4 D 0 | numdelim? t . D 4 , D x $dnumber? p p D t h 0 p - D t P \ t 0 P 0 D h 0 \ p 0 0 @ . D 0 \ p x 0 \ 0 8 @ \ 0 0 $number p D 0 P 0 D 0 , @ D 0 d# 0 P 4 0 4 illegal number p \ 0 h# P 4 0 4 p illegal number p \ 0 o# 0 P 4 0 4 illegal number p \ 0 " t \ P 0 p " P h \ 0 ( D P l 0 ) h @ 4 0 X 4 0 4 < x @ 0 d | dump 4 0 p 0 t h h D 0 P P < p 0 t \ 0 . P d header t 0 X $ 0 D isn't unique. @ t $ x l h 0 p @ $ : 0 x :noname p p 0 x ; 0 $ p t \ constant P t active-package L instance, t t instance? t 0 value 0 P t variable 0 $ p p t $buffer: h 0 D l l t 4 p t buffer: (undefined-defer) d h @ undefined defer word (undefined-idefer) undefined idefer word defer 0 ( @ t alias L | 0 , $ 0 t 8 $ undefined word $create t create T X (does>) \ does> 0 struct field 2constant t init-tmp-comp L interactive? terminate? exit? h 0 forget 4 This word is obsolescent. X ( t t $ interpret p \ t 0 ( | 0 < t h x 0 T 4 0 4 : $ 0 x P 0 x 0 P 0 0 refill p print-status 0 t , ` D 0 0 Aborted. , D 0 0 Aborted. D 0 @ Stack Overflow. p D 0 @ t Stack Underflow. p 4 D 0 @ Return Stack Overflow. D 0 @ !$ Return Stack Underflow. D 0 8 !| undefined word. 4 D 0 8 ! out of memory. D 0 < " undefined method. D 0 8 "p no such device. @ t " Exception # p \ h 0 $ # ok #$ compiled status < print-prompt #@ #D x > outer-interpreter #` # # \ #d p 8 @ 0 save-source # \ P P P P P P restore-source $ \ \ \ \ \ \ P (evaluate) $` $ ` t $d evaluate $ $ 0 t D 4 D x 0 $ P $ \ P 4 $ eval % % init-builtin-terminal % @ ( t t $ p p include % T @ encode-file & X bye & & Farewell! p quit & @ # init-chain ' : initializer 'D 4 p 'H \ t 0 | initialize-forth '` @ % 'H \ t 0 t | initialize ' ' (\ OpenBIOS kernel started. '$ prstack (8 #prstack * prstack-push +( * +, 0 +, prstack-pop +D ` +, * +, >r + 0 P \ 4 +H P r> + 0 \ \ + 4 P r@ + 0 h \ + t +H 4 P #vocs ,8 vocabularies , 0 , search-wordlist , 0 0 wordlist - p get-order -d @ p @ , @ X P @ set-order - t ` D 0 0 t @ p @ X P order - - p @ D wordlist . P definitions: previous .P - - do-vocabulary . P - 4 \ 4 - discard / p @ P vocabulary /\ -h / also / - 4 - only / ` - / forth / /( findw / p @ p @ H \ X - 0 D | P get-current 0 set-current 0 definitions 0 X 0 forth-wordlist 0 #words 0 p $ \ 0 4 4 comp0 1 0 P \ 0 0 p strcmp 1d 0 0 0 0 p strchr 1 P \ t 0 < h D 0 \ 4 4 \ p cstrlen 2 t \ t 0 4 strdup 2 t 0 0 t P t t P 4 \ \ p p dict-strdup 2 t 4 @ 4 P P \ \ tmpstrcat 3@ t @ P P t P P 4 \ 4 \ \ \ tmpstrcpy 3 4 P P \ \ numtostr 4 4 $ \ 4 t \ 0 0 a P h 0 p \ \ 8 0 tohexstr 4L $ 4P toudecstr 5( $ 4P todecstr 5` 0 4 4 - 5d 5d parse-ints 5 $ @ $ \ $ @ 0 , 2 0 8 $ @ @ t $ $ p p D 4 0 p P \ \ t 0 \ 4 parse-2int 5 @ 5 parse-nhex 7 P 5 \ parse-hex 7 0 7$ rot13 7X t A M x 0 t N Z x 0 rot13-str 7t 2 h @ 7x P prep-wid 7 prep-dict 88 prep-here 8P - ([IF]) 8h \ \ t h 0 [IF] 1 h 0 0 [IFDEF] 1 h 0 0 [ELSE] 1 h 0 @ [THEN] 1 h 0 P \\ 1 h 0 T t [IF] 8| 0 0 \ 8 8 0 D 0 ` @ D 0 $ t 0 D 0 ( P D 0 t p 8 0 X [ELSE] 9 p 9 [THEN] :x : p 8< p 8T : [IFDEF] : 8< 0 $ 8< - t 0 p 9 [DEFINE] : 0 P P 8T h 0 @ 8T -h 8< 8l 8< 0 8l X 8l \ \ 0 [0] ;4 p [1] ; 0 builddate ; Mar 7 2023 22:22 version < 1.1 last-xt <D | $is-ibuf <h <l is-ibuf < p p < is-ivariable < $ <l is-xt-func < 0 0 t is-2xt-func = 0 4 t is-func-begin =X 0 is-func-end = t split-before = p t P p @ @ @ @ D 0 | P \ @ D split-after = t P p @ @ @ @ D 0 | P t p P 0 h \ @ D left-split > p t P p @ @ @ @ D 0 | P \ @ t 0 D right-split ?H t P > t 0 $ h D 0 \ list-add ? p 4 \ t 0 list-get @P t 0 t | 64bit? @ >in.instance-data @ 0 >in.alloced-size @ 0 >in.device-node A 0 >in.my-parent A< 0 >in.interposed A\ 0 >in.my-unit A| 0 >in.arguments A 0 $inst-node.size A ,>dn.isize A 0 >dn.parent A 0 >dn.child B 0 >dn.peer B, 0 >dn.properties BH 0 >dn.methods Bh 0 >dn.priv-methods B 0 >dn.#acells B 0 >dn.probe-addr B 0 >dn.itemplate B 0 $dev-node.size C P>prop.next C, 0 >prop.name CD 0 >prop.addr C` 0 >prop.len C| 0 prop-node.size C >ap.device-str C 0 active-package.size C fcode-sys-table C ?fcode-offset16 D fcode-spread D< fcode-table DX ?fcode-verbose Dt _fcode-debug? D fcode-headers? D fcode-stream-start D fcode-stream D fcode-end E fcode-c@ E fcode-push-state E8 D@ D\ Dx D D E E$ E< T fcode-pop-state E\ E< E$ E D D Dx D\ D@ fcode-ptr E Dx 0 t $ 0 0 User FCODE# referenced. D fcode>xt F F fcode-num8 F E t D\ E E< fcode-num8-signed F F t l 0 x fcode-num16 G F F 4 fcode-num16-signed GP GT t l 0 x fcode-num32 G F F F F 4 D 4 L fcode# G F t 0 x 0 F 4 fcode-offset H D@ 0 G G D 0 ( t (offset) fcode-string HH t F t h @ F P D 0 ( (const) fcode-header H F GT G D 0 Found FCode header: Format : 4 Checksum : Length : fcode! I@ H D 0 ( t (fcode#) F instance-init J 4 \ t 0 t t ( 0 L @ P @ $ t new-token Jp p p J named-token K H D 0 p p J external-token KL H J b(;) K b(:) K 0 x b(buffer:) K t b(constant) K P t b(create) L$ t b(defer) LL t b(field) L t b(value) L P t b(variable) M p t (is-user-word) M< get-token Mp F t set-token M F b(lit) M G 0 b(') M H F 0 b(") N H 0 b(to) N@ H F 0 0 offset16 Nl D@ bbranch N HL 0 d $ p p D b?branch N HL 0 0 d 0 p p b(<mark) OL 0 b(>resolve) O D d b(loop) O HL , b(+loop) O HL T b(do) P HL b(?do) P< HL b(leave) P\ b(case) P b(endcase) P 0 b(of) P HL p b(endof) P HL bigendian? P l!-be Q P h 4 0 t l L ` d l@-be QP p 4 h 0 4 x P alloc-tree Q t P 4 t \ p align-tree Q @ no-active R8 0 , no active package. find-property RT Bl \ t 0 D t Cd 1h h 0 CH next-property R P h 4 h x 0 \ Bl , \ R t 0 t 0 CH 0 Cd t 2 get-package-property S, R 0 ( t C 4 C get-inherited-property S \ 0 h t A@ R 0 0 t C 4 C A` get-my-property T@ A@ S decode-int T t 0 < t , P h 4 \ Q p my-#acells U 0 A@ 0 B 0 X #address-cells S 0 @ U , 0 @ my-#scells Ux 0 A@ 0 B 0 @ #size-cells S 0 0 U 0 decode-string V0 t 0 h p $ 0 h 0 | P P , h @ P P P \ \ \ $ 4 \ 4 p p decode-bytes V h \ \ D decode-phys W U| p @ $ U \ \ P P P P U| p @ \ \ \ $ P P P encode-int W R h QT encode-string X` h R h P 4 encode-bytes X h R h P 4 encode+ X encode-phys Y Xd U| p @ Xd Y P sbus-intr>cpu Y( Y (sbus-intr>cpu) Yp No SBUS present on this machine. (property) Y P h R< R 0 , \ $ h C C C R t CH t \ Bl \ t 0 CH P t R t P 4 \ h Cd h C \ C R< property Y 0 A@ t 0 Y RX (delete-property) Z R 0 t CH 4 delete-property [< 0 [@ device-name [ X name Z device-type [ X device_type Z reg [ P Y, \ Xd Y reg Z model \ X model Z device-tree \X external \ 0 B 0 private \ 0 8 P 1 h B h B P - \ B 0 active-package! \ t 0 , 1 B @ - B 0 1 t 0 - 0 new-device ]@ R< C0 R P t h B 0 D B0 \ t 0 BL h 4 h \ A h A -h h B -h h B h C h A@ A` h ]D \ \ (delete-device) ] P h B 0 T B0 \ t h 0 BL h BL 4 p \ \ delete-device ^ P \ h B0 t 0 ^ \ ^ finish-device _t t A@ P A` h B ]D name h S 0 h _x \ create-instance _ t A 8 0 p P t A h A h A p t B h Jt t B h Jt t C h A h h @ h A` \ destroy-instance `` 0 t A t A to a< X t D 0 ]D current-device ax ?my-self a t h 0 , no current instance. my-parent a a A` ihandle>non-interposed-phandle b@ \ t A 0 A` A@ instance-to-package bx t 0 b| ihandle>phandle b A@ peer c 0 BL \ child c 0 \ B0 find-method cX B 0 call-package c P \ $call-method c t P A@ c 0 \ c $call-parent d bD d$ find-dev dt find-rel-dev d P ]D d \ ]D find-package d /packages d h 0 d h 0 open-package d `d t h 0 p P 2 h A open h d$ 8 0 0 \ \ a@ $open-package eP d 0 eT close-package e t close d$ 8 0 a@ my-address f( a A@ B U| h 4 p @ t 4 P my-space ft a A@ B my-unit f a A U| h 4 p @ t 4 P my-args g a A left-parse-string gl ?L map-low g f 4 map-in dx free-virtual g address T h 0 4 U $ D 0 address [ map-out dx package-stack-pos g package-stack h| h0 h 0 h push-package h h P 0 @ #cannot push-package onto full stack g h h h 0 h ]D pop-package h h p D 0 @ #cannot pop-package from empty stack g h 0 h h h ]D _diag-switch? i (peek) j4 ]p jL cpeek j` jP wpeek j| jP lpeek j jP (poke) j ] j cpoke j j wpoke k , j lpoke k, 8 j rb@ kL rw@ kl rl@ k rb! k rw! k rl! k rx@ k 0 , . M 0 . M rx! k 0 , / M 0 / M obp-ticks lH dummy-msecs l get-msecs l l 0 l l t l ms l l \ t l \ 0 alarm m0 user-abort ml fcode-revision m mac-address m display-status m memory-test-suite m mask m diagnostic-mode? n j8 start0 n0 p D\ N ID start1 nH 0 D\ N ID start2 np @ D\ N ID start4 n D\ N ID version1 n 0 D\ ID end0 n E$ end1 o$ ferror oD undefined fcode# encountered. E$ suspend-fcode oX set-args o a x P decode-unit dx 8 0 c B \ x h P 0 t | P \ \ A 2 A (dma-alloc) o (dma-free) p M (dma-map-in) p (dma-map-out) p M (dma-sync) p interpose-ph q interpose-args q0 expand-alias qL /aliases d h 0 S 0 D t 0 pathres-resolve-aliases qp / 0 P / = : = qt 0 p @ 0 @ / > D : = D D \ 3 3 P D \ 3 \ 3 3 2 >si.path q 0 >si.arguments r 0 >si.unit_addr s 0 >si.node_name s, 0 >si.free_me sL 0 >si.unit_phys sl 0 (>si.unit_phys_len s 0 8>si.save-ihandle s 0 <>si.save-phandle s 0 @>si.top-ihandle s 0 D>si.top-opened t 0 H>si.child t< 0 Lsinfo.size tX Pmatch-nodename tt P h sP 1 h 0 \ h sP , 2 0 \ , ?L h sP \ 1 0 common-match t P h sP 0 ` name h t\ S 0 ` t 0 h t h 0 \ (exact-match) uP P h uT h s 0 reg h t\ S 0 h s $ 4 \ 0 0 ( h sP h 0 \ exact-match u u 8 0 (wildcard-match) v P h uT reg h t\ S h 0 h s h sP x h 0 ` \ wildcard-match w( w, 8 0 def-decode-unit w 7\ get-decode-unit-xt x decode-unit c h 0 x find-child x( P h s0 t 0 x, x P P x h \ 4 , p t h s h s P \ t 0 $ \ t ` P QT \ p h s v \ t 0 B0 \ 0 P t h t\ h @ 0 \ t\ BL v D 0 w p L g link-one xp P `d t h 0 g h t A` t h t h s 2 A h s0 0 ( h s A d reg S h 0 ( , A 4 A p \ t@ invoke-open z8 open d$ 8 0 h 0 g 4 t@ handle-interposers { P \ q4 0 p q4 4 ]D p p h s0 qP h s h z< A qP h { ]D l \ close-dev { \ t 0 t A` 4 f, path-res-cleanup | 0 t t@ 0 $ t t 0 | H t t t t 0 A` 4 0 a@ 0 | t s t s ]D t sp tx (path-resolution) } P h r r h sp t 0 < / D 0 4 4 \ ]D h r p p h s0 p p h s p h t h 0 g 4 \ h r 0 H t 0 0 h z< A h { h { ]D h r / ?L : ?L @ ?L h sP h s0 h s h r h sP % 2 D 0 L 4 4 h sP /packages d ]D h xt h xt 4 ]D t 0 h z< 0 D 0 ( t A h { h { ]D \ path-resolution } tx P h tx p h r h s h s t h } 8 0 P \ } t g 0 0 \ open-dev 0 $ h 0 4 } execute-device-method D @ $ h 0 P d$ 8 0 \ } find-device .. 1 h 0 @ t 0 B t h 0 ]D p $ h 0 4 } ]D (find-dev) T $ X 8 0 4 ]D interpose q4 2 qP non-implemented P ?Non-implemented historical or pre-Open Firmware FCode occurred. adr-mask b(code) 4-byte-id convert ( frame-buffer-busy? D poll-packet h return-buffer set-token-table set-table xmit-packet fcode-version firmware-version ( processor-type H memmap d >physical x my-params intr driver group-code probe probe-virtual (romfont) 4 (romfont-width) P (romfont-height) p x x x p ? ? ? ? ? ? ? (romlogo-64x64) line# column# inverse? inverse-screen? #lines #columns ( frame-buffer-adr @ screen-height ` screen-width | window-top window-left char-height char-width fontbytes char-min char-num 0 font H foreground-color \ background-color | color-palette 0 0 0 0 # 0 ; 0 S 0 g 0 0 font-spacing depth-bits line-bytes display-ih openbios-video-height openbios-video-width @ draw-character d reset-screen toggle-cursor erase-screen blink-screen invert-screen insert-characters delete-characters D insert-lines h delete-lines draw-logo fb-emit \ depth-bytes default-font T t p set-font 0 L 4 ` >font d 4 L , ` is-install \ open 0 ` t 0: write dup >r bounds do i c@ fb-emit loop r> ; % : draw-logo draw-logo ; % : restore reset-screen ; % is-remove \ close 0 t is-selftest \ selftest 0 t fb1-nonimplemented 4 2Monochrome framebuffer support is not implemented. fb1-draw-character fb1-reset-screen fb1-toggle-cursor fb1-erase-screen 4 fb1-blink-screen X fb1-invert-screen | fb1-insert-characters fb1-delete-characters fb1-insert-lines fb1-delete-lines fb1-slide-up 8 fb1-draw-logo X fb1-install x fb8-blitmask fb8-fillrect fb8-invertrect fb8-line2addr d fb8-curpos2addr 4 fb8-copy-lines h 4 4 D P fb8-clear-lines p @ D fb8-draw-character d 4 0 4 fb8-reset-screen X p p fb8-toggle-cursor 8 fb8-erase-screen 0 p p fb8-invert-screen $ p p fb8-blink-screen t x m4 x fb8-insert-characters D l l p 0 4 4 4 P P fb8-delete-characters D l l 4 p 0 4 4 4 P D 4 P fb8-insert-lines , 4 fb8-delete-lines , , t , 4 4 fb8-draw-logo H D 4 d 4 D fb8-install , D D , p p p p p /chosen 0 ]D Xd display Z ]D \ ( x $ H l L < iso6429-1983-colors T 0 p p p 0 t @ 4 P p p 0 t l L 0 l L @ l color! | 0 P h p ( (escseq) 4 (sequence) 8 (match-number) P D 0 P 0 0 p (esc-number) x P x P p T < p @ t 4 0 4 4 ; D 0 p 4 | P x \ \ p < | (match-seq) < T A D 0 T 0 0 0 0 p B D 0 H 0 0 ( 0 , , C D 0 H 0 0 ( 0 D , < D D 0 H 0 0 ( 0 p E D 0 X 0 0 ( 0 , , p l f D 0 @ @ D 0 D D , , , 0 D 0 8 p , , H p D 0 0 p p T H D 0 @ @ D 0 D D , , , 0 D 0 8 p , , H p D 0 0 p p < J D 0 < p < D l , K D 0 , p < D l L D 0 , 0 0 0 ` M D 0 0 0 0 D 0 0 @ D 0 0 0 0 D 0 0 H P D 0 0 0 0 D 0 0 l m D 0 ` 0 0 D 0 < D 0 p D 0 P p < 0 ( h $ q D 0 T p < 0 ( h $ < s D 0 p < (term-emit) < 0 < D 0 4 p < overflow in esc < 0 D 0 | t [ D 0 $ T @ < 0 p < out of ESC 0 T < < < p D 0 ` D 0 8 /screen ring-bell D 0 8 0 D 0 h t D D 0 0 l l @ D 0 x p , P 0 4 p 0 , D 0 8 0 ` D 0 0 p p D 0 $ p D 0 , T 0 < D P 0 d p , P 0 , p 0 , t parent X B int-property Xd D Z encode-property < t h 0 $ null phandle P p P ]D Z \ ]D \ iterate-tree l h 0 \ t c\ 0 c\ t c$ 0 c$ \ B t 0 $ t c$ 0 c$ iterate-tree-begin \ iterate-device-type \ 0 t P device_type h S 0 p p t 0 1 h 0 \ \ x p link-nodes t \ 0 $ t B BL B0 \ t 0 BL t link-node p BL init-fcode-table alloc-fcode-table L @ Dx D 0 , fcode-table at 0x Dx P free-fcode-table p Dx @ p Dx (debug-feval) E 0 : 0 (compile) t F ( t [ 0x ] (feval) ( \ H D 0 , F t h x 0 E$ 0 ` 0 ( ` p byte-load D 0 @ !byte-load: evaluating fcode at 0x P P E` \ \ t 0 D 0 E< t D E 0 D\ D@ t E$ p p p p p p x P 8 0 0 byte-load: exception caught! fcode-debug? % 0 ` x h 0 L (byte-load: warning stack overflow, diff x h \ E undefined-fcode undefined fcode word. reserved-fcode reserved fcode word. ['], X n['], X 4 p 0 t P fcode-master-table o( M N ND N OP O P P@ P` P P l x < L \ , + + ,< h \ P D h t $ P 8 x @ t 4 $ h x D D ` d 8 , L t \ P , m | ( @ | h T $ $ H 4 4 ` p 0 @ P ( h ` O O K$ KP K M M@ L( LP L K L K Np P P P @ h K | N % p M M T nL nt n n o\ o , oH p fx f | g Z Xd Y Y, X X \$ \\ [ 7 8 ] n4 m n n l m4 _ W h i T g Yt , D l $ H l d 4 h \ < ( x L 8 m [ gp d eT f, c c dx bD c g d$ e h L , mp Mt o 0 8 m T U V TD [ S j j j k k0 kP kp k k k k k d 8 c\ c$ S0 o g fcode-master-table-size ` Tnreserved $ 4 0 4 P D D t p t d 4 < (init-fcode-table) 8 D Dx Dx , , ` d N OpenBiosTeam,OpenBIOS h name M M #address-cells open close decode-unit 7\ encode-unit 5, , | , 4 aliases name open close , & x 4 $ 4 \ openprom T D ( name BootROM d L device_type OpenFirmware 3 p model relative-addressing supports-bootinfo [T boot-syntax selftest OpenBIOS selftest... succeeded open close T , x 4 options [8 name , P @ D 4 chosen l ` H name | h stdin stdout , D # 8 builtin name open close , D 0 console name open close write t P h @ P \ read t P h @ P \ __context saved-context t x ctrace .registers .fregisters >ls.entry 0 >ls.file-size 0 >ls.file-type 0 >ls.param < 0 load-state.size X load-state | 0 state-valid file-size !load-size load-size elf-boot elf 0 bootinfo D xcoff \ pe p aout fcode forth bootcode prep init-program (init-program) | 0 0 Unable to locate (init-program)! (find-bootdevice) ?L t h 0 boot-device | ?L \ t 0 t Trying ... 0 | D p ?L | D t h 0 $ boot-file | X /chosen 0 bootargs Y ihandle>boot-device-handle P p \ \ t A` t P 0 T t A h 0 , h 0 4 \ t 0 ` $load t h 0 t P load-base % 4 t c load c 0 4 c 8 !Cannot find load for this package h selected-partition-args TD h 0 V D h 0 p t A P P t P A h get-instance-path | 0 \ \ \ A 4 get-instance-path | 0 X /chosen 0 bootpath Y \ | load T dir T , > t h 0 8 Unable to locate device $ $ @ dir d$ 8 0 4 Cannot find dir for this package | go h 0 H 3No valid state has been set by load or init-program (arch-go) | 0 (go) | 0 dis +dis .bp +bp -bp --bp bpoff step steps hop ( hops < gos P till d return x .breakpoint .step .instruction .adr sym sym>value value>sym headerless 0 headers H apply ` (.s t x p @ x P x 0 < showstack #D noshowstack #D dl .calls D $sift X sifting l patch (patch) debug | p D 0 < #could not locate word for debugging h stepping tracing 4 debug-off L resume d 0 (see-indent) | (see-cr) < indent+ indent- (see-colon) t : ( \ t t 0 t 0 D 0 , if D 0 , then T \ D 0 , begin t D 0 ( again D 0 ( until D 0 @ while @ 8 D 0 < repeat @ D 0 @ ( lit ) h# 0 t D 0 ` " t 4 @ 4 " ( ; (see) @ t 0 D 0 D | P D 0 P constant t ( = D 0 T variable t ( = D 0 d defer t ( is ( 0 primword 4 ( see X devalias t nvalias $nvalias nvunalias $nvunalias dev X cd device-end $ p ]D select-dev @ t h 0 0 failed opening parent. t c ]D unselect-dev ` | D p begin-package d ] o end-package _ ?active-package 8 t h 0 ( no active device def-encode-unit ` 5, get-encode-unit-xt B encode-unit c h 0 get-nodename name S 0 <noname> pnodename 8 t < t reg S 0 P p P t ]D x P P W \ \ $ P P \ \ @ 3 P D \ 3 4 \ ]D \ inodename P c < P x P g \ \ x P 0 , 4 0 \ P \ h 0 4 reg c S 0 0 c x P P g \ \ $ P P \ \ 4 @ 3 D 3 gp t 0 0 : 3 D 3 \ get-package-path h 0 p p t B h 0 / P p p @ \ \ t B t P 0 , 3 / 3 \ 4 get-instance-path ` h 0 p p t c B h 0 / P p p @ \ \ t A` t P 0 P t A h 0 ( 3 / 3 \ 4 get-instance-interposed-path H h 0 p p t c B h 0 / P p p @ \ \ t A` t P 0 \ t P 3 \ A 0 /% / 3 \ 4 pwd d d d ls t d B0 \ t 0 , t t BL .p-string? 0 p 4 P p \ t 0 t h h 0 4 4 @ t 8 4 P x 0 \ 4 p h \ $ h 0 ( " " 4 \ 0 P t h 0 0 t 2 { p $ 4 \ 0 d t 0 , $ t 2 " " } .p-int? t 0 U $ 4 t 0 t \ 0 0.r X p 4 0 @ @ P h .p-bytes? -- t : 4 P t , p \ P 0 , t h @ P 0 ... \ 0 (.property) $ t h 0 <empty> 0 \ 0 ( 0 <unimplemented type> .p-reg $ P P $ 4 t \ \ h @ t h 0 @ < 0 t P l h 0 @ h 0 4 P P 0 < t P T .p-translations-#pacells / d 0 P #address-cells S 0 0 U 0 0 .p-translations-#cells U| P .p-translations-cols @ D U| t V4 @ .p-translations p P P t \ \ $ P P D t \ \ h @ P @ ( D 0 @ < P 0 t P l h 0 @ t h 0 4 @ P 0 < t P ( p @ P (.property-by-name) reg 1 h $ assigned-addresses 1 h x 0 U| V4 D < memory 1 h 0 @ available 1 h 0 U| V4 D /chosen d 0 mmu S h 0 U c D 0 | available 1 h 0 U| V4 0 D translations 1 h 0 D .properties < d t P 0 p p \ h S0 0 p t $ \ t P 0 S @ | \ print-dev t t d t device_type S 0 0 ( V ) show-sub-devs B0 \ t 0 t l BL show-all-devs h / X d l ]D show-devs / X T X d l ]D probe-fcode? probe-all L >cf.name d 0 >cf.default | 0 >cf.check-xt 0 >cf.exec-xt 0 >cf.next 0 config-info.size config-root 8find-config 8 < \ 0 L $ 1 h 0 p is-config-word T t X t /options d 0 , S 0 p ` 0 p ` t 0 t t 0 p p new-config X 0 ( p p @ \ 3D t p < t < t P \ t config-default $ t 0 3D no-conf-def t p ` exec-str-conf check-str-conf str-config P h h \ x exec-int-conf 7\ check-int-conf d int-config P h h h \ x exec-secmode-conf command 1 h 0 0 full 1 h 0 @ p check-secmode-conf none 1 h 0 command 1 h 0 full 1 h 0 secmode-config | P h h \ x exec-bool-conf true 1 h 0 false 1 h 0 TRUE 1 h 0 FALSE 1 h 0 7\ check-bool-conf l true 1 h 0 false 1 h 0 TRUE 1 h 0 true FALSE 1 h 0 false bool-config L P p h P h \ x $setenv 8 X 0 X P D \ h 0 ( Invalid value. D D D X D /options d p setenv t 0 T p p t h 0 ( Invalid value. D printenv @ T /options X ]D (set-default) t t 0 set-default T X 0 , No such parameter. set-defaults \ < \ 0 t nodefault-bytes nvram-load-configs \ t 0 L t 2 $ = ?L 8 0 (nvram-store-one) < 4 P \ 0 \ 4 \ 4 P $ P \ \ (make-configstr) P \ S 0 p p t 0 D = D 3 3 p 4 nvram-store-configs L @ /options d h 0 P < \ 0 0 h P P \ @ p \ auto-boot? P p auto-boot? trueboot-command $ boot-command bootboot-file ( boot-file 4diag-switch? l P p 4diag-switch? \ xfalse diag-device xdiag-device diag-file diag-file fcode-debug? H P p fcode-debug? 8 Tfalse nvramrc Tnvramrc oem-banner? P p oem-banner? false oem-banner ( oem-banner 4oem-logo? l P p 4oem-logo? \ xfalse oem-logo xoem-logo use-nvramrc? @ P p use-nvramrc? false input-device H input-device 0 Tkeyboardoutput-device Toutput-device screen screen-#columns < h screen-#columns 80 screen-#rows @ h screen-#rows , L24 selftest-#megs h Lselftest-#megs x 0 security-mode security-mode pci-probe-mask ( t h pci-probe-mask 8-1 default-mac-address x P p 8default-mac-address d false skip-netboot? $ P p skip-netboot? false scroll-lock , t P p scroll-lock 8trueload-base x h 8load-base d 4000tpe-link-test? P p tpe-link-test? truettya-mode T ttya-mode 9600,8,n,1,-ttya-ignore-cd ` P p ttya-ignore-cd D ptruettya-rts-dtr-off P p pttya-rts-dtr-off false ttyb-mode L ttyb-mode 9600,8,n,1,-ttyb-ignore-cd X P p ttyb-ignore-cd < htruettyb-rts-dtr-off P p httyb-rts-dtr-off false boot-screen boot-screen boot-script H boot-script 8 Tuse-generic? P p Tuse-generic? false boot-device ( boot-device diskboot-args , boot-args 8release-load-area ` callback $callback sync (help-generic) ?Enter 'help command-name' or 'help category-name' for more help 3(Use ONLY the first word of a category description) $Examples: help select -or- help line Categories: * boot (Load and execute a client program) diag (Diagnostic routines) (help-diag) ;test <device> Run the selftest method for specified device Atest-all Execute test for all devices using selftest method (help-boot) T =boot [<device-specifier>:<device-arguments>] [boot-arguments] Examples: Cboot Default boot (values specified in nvram variables) ,boot disk1:a Boot from disk1 partition a &boot hd:1,\boot\vmlinuz root=/dev/hda1 help T t h 0 diag , 0 X boot , 0 No help available for stdout X stdin , input @ d h 0 @ Input device not found. read c h 0 , has no read method. h 0 4 Opening failed. $ t install-abort d$ 8 0 D 0 8 t remove-abort d$ 8 0 | D /chosen d 0 ( P D Xd stdin \ Y / d 0 0 P D L X stdin-path \ Y output T d h 0 @ Output device not found. write c h 0 0 has no write method. h 0 4 Opening failed. $ 0 0 | 0 /chosen d 0 ( P 0 Xd stdout \ Y / d 0 0 P 0 L X stdout-path \ Y io x X | io-char 4 io-out-char X io-key? t \ ` 0 \ 0 read D d$ 0 D io-key \ 0 \ ` \ io-emit 0 0 , x x 0 write 0 d$ CONSOLE-IN-list , CONSOLE-OUT-list CONSOLE-IN-initializer @T CONSOLE-OUT-initializer @T install-console /aliases d 0 x P screen d 0 D p display 0 d X screen h Y \ | X \ @ 0 0 0 0 \ @ 0 0 D 0 0 0 0 D 0 8 ` \ ( @ 0 screen | builtin-logo p builtin-banner suppress-banner? 8 \ p p l < built on <H Welcome to OpenBIOS v 3 3 3 suppress-banner 0 ` banner 0 h 0 t c device_type S 0 p p display 1 0 t c draw-logo c 0 | 4 P P p 0 D 0 $ @ @ \ \ c \ \ 0 ` < reset-all no-reset-all | ,reset-all is not available on this platform. reset power-off , no-power-off ,power-off is not available on this platform. nvedit ( nvstore x nvquit nvrecover nvrun password security-password security-#badlogins $test , Testing device : d 0 X self-test c 0 no self-test method. no such device. test @ T D test-sub-devs B0 \ t 0 ( t d D t < BL test-all 8 / X T X d < ]D boot T boot-file | X /chosen 0 bootargs Y platform-boot | 0 $find-package-method d h 0 c h 0 p call-parent bD c [active-package], ?mmissing c 0 is-open 4 open 8 0 $ = close 8 0 p $ = is-relay t P \ c h 0 $ = c = is-call-parent = t @ dx = (open-deblocker) X deblocker d 0 p p eT p 4 is-deblocker deblocker d h 0 P deblocker < open-deblocker = t = close-deblocker = t f, = \ read seek write tell addr | 0 ( busdevfn 4 l 4 l P x 4 x config-command d t $ P l 4 x x pci-c@ P l pci-w@ ! @ l pci-l@ !@ pci-c! !| $ P l pci-w! ! $ @ l pci-l! ! $ dump-pci-device "0 @ : . t [ h P h p !D / h @ !D ] \ p 0 h 0 : p 0 t x ! t h l h P P T , 5 O $H $4 $8 # $ packages $X $< name open close $h PREPOST-list "t \ POST-list $ SYSTEM-list $ )0DIAG-list $ [ PREPOST-initializer $ $ @T POST-initializer % $ @T SYSTEM-initializer %8 $ @T DIAG-initializer %d $ @T initialize-of % ' $ \ @ 0 $ \ @ 0 $ \ @ 0 4 0 % ` h 0 h 4 $ \ @ 0 0 % # ciface-ph % & , '@ '( ', & 3 ) client-services 'P '0 name callback-function ?phandle 'l t h 0 NULL phandle ` ?ihandle ' t h 0 $ NULL ihandle ci-strcpy ' P $ t h , 4 P 0 p 4 \ memory-ih ( mmu-ih (t ( /chosen X mmu S h 0 U ( memory S h 0 U (x D 6 ( safetype ( < t 2 t \ 0 BAD > phandle-exists? )D 4 p \ 0 0 D 0 $ test t 2 & c 0 p ` peer *0 c$ child *p c\ parent * getproplen * 2 4 ' S 0 ` getprop * t ` D 0 ` h 0 ` 2 4 ' S 0 ` P 4 \ t P , \ nextprop + P t h 0 p t 2 t 0 @ h S 0 ( \ p 4 ` \ S0 0 t $ ( 0 p 4 p setprop + P P P P 4 X \ t 2 \ Y \ finddevice ,t t 2 d h 0 ` instance-to-package , ' b package-to-path - t h 0 ` P 4 \ d ( canon -( t 2 d 0 -, ` instance-to-path -l t h 0 ` P 4 \ L ( instance-to-interposed-path - t h 0 ` P 4 \ h ( call-method . t h 0 ( call of null method ` t P t 2 ' d$ 8 t 0 L call-method h t 2 : exception t \ open .\ t 2 close /, | read /L P 4 \ t c read c 0 4 c ` write /d P 4 \ t c write c 0 4 c ` seek / t c seek c 0 4 c ` claim 0 $ 4 & cif-claim c 0 ` release 0p 4 & cif-release c 0 ` boot 0 BOOT enter 1 ENTER chain 1D CHAIN interpret 1l t 2 % 8 t 0 P interpret: exception t caught p set-callback 1 'p 4 'p milliseconds 2$ l start-cpu 2T Start CPU unimplemented exit 2p EXIT (exit) | 0 # test-method 2 4 t 2 t ) D 0 ` c h 0 ` p client-iface & & c h 0 ` 8 0 L 'Unexpected client interface exception: p client-call-iface 3| & c h 0 ` p set-property 4 P D X D \ p is-cfunc 4X X is-noname-cfunc 4 p p 4 <l is-xt-cfunc 4 = 0 4 = create-node 4 / ? d 0 ]D ( t 0 5X \ ]D ] [ _ ]D , # 7 6( 6 6 5 6 cmdline 68 6 name 5 eT 0 cmdline d$ $ cmdline is missing! 6D 6H # \ 6 prepare 6 p , # 7l 7X 7\ 7 : disk-label 7| 7` name part-handlers fs-handlers 7 find-part-handler 7 P 7 \ @ 0 @ h 0 | \ \ p find-filesystem 7 P 7 \ @ 0 P h P 0 | \ $ \ p register-part-handler 8X t probe c h 0 0 Missing probe method! 7 @T register-fs-handler 8 t probe c h 0 0 Missing probe method! 7 @T dma-alloc 9 dma-alloc dx dma-free : dma-free dx dma-map-in :4 dma-map-in dx dma-map-out :` dma-map-out dx dma-sync : dma-sync dx initialise-partition-package 5T dma-alloc \ dma-free \ dma-map-in \ dma-map-out \ dma-sync \ initialise-fs-package ; dma-alloc \ dma-free \ dma-map-in \ dma-map-out \ dma-sync \ register-partition-package ; register-part-handler disk-label 0 4 ; , [disk-label] internal error register-fs-package <0 register-fs-handler disk-label 0 4 ; , [misc-files] internal error decode-unit-sbus < @ 7$ encode-unit-sbus = 4 5, , 3 P 5, \ 3 sbus-unit>addr = ranges c S h 0 \ 4 p 4 D p $ @ p 0 U $ P P D 0 \ \ P @ D 0 , W D D p ` W U t h 0 < p map-in-sbus > P > 0 h map-in dx \ map-out-sbus ? map-out dx probe-self-sbus ?d p P = 8 0 ? t j 0 t D 4 D x 0 8 ] P o \ t 0 _ ` P 8 Invalid FCode start byte ?h decode-unit-scsi ? @ 7$ encode-unit-scsi @ 4 5, , 3 P 5, \ 3 %g0 @ p %g1 CD %g2 C\ %g3 C %g4 C %g5 C $ %g6 C ( %g7 D$ , %psr DL %wim Dt %pc D P set-pc D P .globals D %psr: Dx %wim: D %pc: D %g0: CH %g1: C` %g2: C %g3: C %g4: C %g5: D %g6: D( %g7: DP %o0 E 0 %o1 F 4 %o2 F 8 %o3 F < %o4 F @ %o5 G$ D %o6 GL H %o7 Gt L %l0 G P %l1 G T %l2 G X %l3 H \ %l4 H< ` %l5 Hd d %l6 H h %l7 H l %i0 H p %i1 I t %i2 I, x %i3 IT | %i4 I| %i5 I %i6 I %i7 I .locals J %o0: F %o1: F %o2: F %o3: G %o4: G( %o5: GP %o6: Gx %o7: G %l0: G %l1: G %l2: H %l3: H@ %l4: Hh %l5: H %l6: H %l7: H %i0: I %i1: I0 %i2: IX %i3: I %i4: I %i5: I %i6: I %i7: J .registers JH E JL sparc32-dma-free Ml sparc32-dma-map-out M q M M M #size-cells sun4m N N M compatible ! N( N clock-frequency encode-unit = decode-unit NH = dma-sync Nh q dma-alloc N p dma-free N p dma-map-in N p dma-map-out N p , O Oh OX O\ O O memory Ox O` name open close O , PX P O P O PL virtual-memory P$ P name open close P4 , Q Y P P P PX Q iommu P P P name P P P #address-cells Q Q P #size-cells Q8 Q( Q page-size QH Q4 cache-coherence? open close Qd encode-unit Q| = decode-unit Q = , PX T R( R R Q T sbus RP R8 R name hierarchical Rp R` R@ device_type R R Rl #address-cells R R R #size-cells D? R R R clock-frequency S R R slot-address-bits ? S R burst-sizes open close S$ encode-unit S< = decode-unit SX = map-in Sx ? map-out S ?h dma-alloc S dma-alloc dx dma-free S dma-free dx dma-map-in S dma-map-in dx dma-map-out T$ dma-map-out dx dma-sync TX dma-sync dx , Q VL U T T T V, espdma U U name encode-unit = decode-unit U0 = dma-alloc UP dma-alloc dx dma-free Ul dma-free dx dma-map-in U dma-map-in dx dma-map-out U dma-map-out dx dma-sync U dma-sync dx , Q X V V V VL W ledma V V V name ? V V burst-sizes encode-unit = decode-unit V = dma-alloc W dma-alloc dx dma-free W0 dma-free dx dma-map-in W` dma-map-in dx dma-map-out W dma-map-out dx dma-sync W dma-sync dx , VL Xl X` Xd X Y le X X| Xh name network X X X device_type X X X busmaster-regval & X X intr dma-alloc dma-alloc dx dma-free X dma-free dx dma-map-in Y, dma-map-in dx dma-map-out YX dma-map-out dx dma-sync Y dma-sync dx , Z< Z, Z0 Y [ obio Zd ZL Z4 name hierarchical Z Zt ZT device_type Z Z Z #address-cells Z Z #size-cells open close Z encode-unit Z = decode-unit [ = disk [H [0 boot-from [d aligned-allocator l & Type 'help' for detailed information [ make-openable [| d 0 0 \ 0 t ]D x preopen [ [ /chosen X 0 Xd D Z \, \ \ memory /memory \0 mmu /virtual-memory \0 \ rmap@ M p obmem ] p sfsr@ ] ignore-dfault ]8 ]X ]< ` ]\ p ]\ ]< h 0 ]l ]< ` ]\ p ]\ ]< h #T #h # 10 14 4 L T \ t
.shstrtab .text .rodata .data .bss .gnu.attributes
(semis) (lit) (do) (?do) , (loop) < (+loop) L dup ` 2dup p ?dup over 2over pick drop 2drop nip roll rot -rot swap 2swap 0 >r @ r> L r@ X depth d depth! t rdepth !rdepth! "+ #- $* %u* &mu/mod 'abs (negate )max *min +lshift ( ,rshift 8 ->>a H .and X /or h 0xor t 1invert 2d+ 3d- 4m* 5um* 6@ 7c@ 8w@ 9l@ :! ;+! <c! =w! >l! ( ?= 4 @> @ A< L Bu> X Cu< d Dsp@ p Emove Ffill G(emit) H(key?) I(key) Jexecute Khere Lhere! Mdobranch Ndo?branch Ounaligned-w@ , Punaligned-w! D Qunaligned-l@ \ Runaligned-l! t Sioc@ Tiow@ Uiol@ Vioc! Wiow! Xiol! Yi Zj [call \sys-debug ]$include ( ^$encode-file < _(debug T `(debug-off) d astate | forth-last ] latest ] base /c /w /l /n /x 1 2 , 3 < -1 L 0 \ my-self l decimal hex octal current last #order context < , vocabularies? T locals-end t locals-dict locals-dict-buf true false (immediate) 0 t 0 x 4 (compile-only) 0 t @ x 4 immediate L $ compile-only $ P flags? l immediate? 0 l 0 D compile-only? @ l @ D [ 4 p ] X ` allot t , c, align 0 l 0 l null-align t 4 p w, < 0 l , l, l 0 l 0 l 8 <> D (to) >body 0 < body> ( 0 < reveal L $ recursive p t recurse noop environment? no-environment? resolve-orig 4 (if) @ 0 p p (then) t D tmp-comp-depth tmp-comp-buf ] setup-tmp-comp p D 0 , 0 x x execute-tmp-comp x D 0 D ` t p if ` 0 p p then D d else p p D D (begin) (again) X (until) p (while) (repeat) (resolve-dest) (resolve-begin) \ 0 (resolve-until) 0 d resolve-dest D @ P \ \ t t 0 D 0 $ 4 0 0 @ P p 0 begin \ 0 again t d until 0 0 d while d 0 p p D repeat D d leaves resolve-loop \ 0 , t 4 4 do 0 @ 0 p ?do @ @ p loop P 4 d +loop ( d 4 d unloop P \ \ \ P leave x | ?leave 0 | case p endcase p @ P d of , 0 P D \ endof l P \ exit \ bl bell bs carret $ linefeed 8 tuck P 4 3dup d @ @ @ clear p 3drop 2rot P P D \ \ D 2>r \ $ 4 P P P 2r> \ \ \ P 4 2r@ < \ \ \ P P P 4 u/mod h p 4 1+ 0 1- 0 2+ @ 2- @ 4+ even l bounds @ 4 << d < >> L 2* 0 < u2/ 0 L 2/ 0 \ not s>d t p \ dnegate p p D dabs 4 t p \ 0 8 um/mod X sm/rem P P \ h \ p \ 0 \ p \ 0 4 4 fm/mod t P p \ P p \ l 0 0 4 \ 4 \ */mod P \ */ /mod P \ mod / lwsplit t l 4 L l wbsplit t l 4 L l lbsplit \ 4 ` ` bwjoin l < 4 l x wljoin l < 4 l x bljoin $ 4 wbflip H t L l 4 l lwflip p t L l 4 l lbflip t L l t 4 l t /c* /w* D /l* ` /n* | ca+ H wa+ d la+ na+ ca1+ wa1+ $ la1+ @ na1+ \ aligned x l char+ ( cell+ | chars H cells cell <= $ P >= 4 \ 0= L p D 0<= d p 8 0< p \ 0<> p 0> p P 0>= p P u<= h u>= t within P P 4 \ P x between < 0 @ 2@ t t 4 2! t P \ <w@ t P 0 comp P p $ \ h @ \ t t 0 , \ 0 0 ` 4 | ( P $= 0 h off 4 on 4 blank erase $ p wbflips @ h 0 t , d lwflips ` h 0 8 d lbflips h 0 8 d catchframe catch P x P $ P $ \ $ \ \ p throw 4 0 @ $ \ $ \ 4 P \ \ start-mem end-mem free-list % init-mem $ t ( 4 p 4 smallest-free-block < p ( p p P P P \ t 0 h t P h @ 0 ( \ \ \ P P t P t ( \ \ \ alloc-mem t h 0 t t h 0 t P P 0 p t P 4 t t h 0 ( free-mem | h 0 t @ h 0 p ( \ t 0 ( t t P \ 0 t t 0 ( t t P D 0 < 4 P t P t D 0 @ t @ 4 h 0 ( @ \ \ 0 t P ( D 0 ( t 0 emit type h @ P debug-type h @ P source-id P ib #ib >in source /string h $ 4 pocketsize numpockets $ pockets < whichpocket T init-pockets p ( @ X pocket ( t X t 0 @ t span findchar 4 p 0 t D 0 8 D 0 t t | P D parse P t p \ 0 p \ \ $ 0 t t skipws \ t P 0 $ 8 0 0 parse-word @ D word P t h h \ t D 0 P ( ) \ L ", l h @ P (") \ t @ P handle-text 0 $ t @ L 4 t P p @ ( P \ s" " ." " 0 .( ) 0 count t pack X 4 p @ ( P lcc | t A Z x 0 upc t a z x 0 -trailing \ t 0 D 0 cr ` T debug-cr T (cr < space spaces p @ P #line 8 #out d lfa2name x \ t 0 l h 4 comp-nocase p 0 4 0 p | P 0 ` p 4 comp-word P 4 \ D 0 find-wordlist x P \ h t 0 | t D 0 \ P h 0 $ \ 4 \ $find 0 0 x 0 T @ p @ 4 X 0 | P $find1 x x 0 ' | h 0 : ['] T | h 0 : 0 find t \ | 0 $ 0 literal compile, T compile | \ t P [compile] X postpone | 0 8 t 0 4 X undefined word #instance instance #instance-base t 0 #instance-offs t 0 | instance-cfa? @ behavior $ t ( 0 D 0 4 | P | (ito) P 0 4 | P (to-xt) t ( 0 @ 4 0 0 to X is | 0 0 could not find key? key $ accept < h p 0 @ t T D 0 $ p | t 0 P expect T X handle-lit 0 8 @ D 0 char 0 0 Unexpected EOL. ascii X \ 0 [char] \ 0 control \ l 0 abort ` abort" , " words H $ \ 0 4 t t 0 capital-hex? pad $ todigit 8 t P 0 ( ( 0 0 <# d < t hold < t h 4 sign 0 - # h #s < \ @ x h 0 #> d < t h (.) t P p h \ u# 4 h u#s \ t h 0 u#> p (u.) P $ T . l s. u. p .r 4 \ 0 < u.r 4 p \ 0 < .d 4 .h h 4 .s < x t > p @ x P digit 4 t t A Z x 0 ( t 9 P 0 $ 0 4 p 4 @ 0 >number 0 \ t 0 t 4 h 0 P D \ 4 D 0 | numdelim? t . D 4 , D x $dnumber? p p D t h 0 p - D t P \ t 0 P 0 D h 0 \ p 0 0 @ . D 0 \ p x 0 \ 0 8 @ \ 0 0 $number p D 0 P 0 D 0 , @ D 0 d# 0 P 4 0 4 illegal number p \ 0 h# P 4 0 4 p illegal number p \ 0 o# 0 P 4 0 4 illegal number p \ 0 " t \ P 0 p " P h \ 0 ( D P l 0 ) h @ 4 0 X 4 0 4 < x @ 0 d | dump 4 0 p 0 t h h D 0 P P < p 0 t \ 0 . P d header t 0 X $ 0 D isn't unique. @ t $ x l h 0 p @ $ : 0 x :noname p p 0 x ; 0 $ p t \ constant P t active-package L instance, t t instance? t 0 value 0 P t variable 0 $ p p t $buffer: h 0 D l l t 4 p t buffer: (undefined-defer) d h @ undefined defer word (undefined-idefer) undefined idefer word defer 0 ( @ t alias L | 0 , $ 0 t 8 $ undefined word $create t create T X (does>) \ does> 0 struct field 2constant t init-tmp-comp L interactive? terminate? exit? h 0 forget 4 This word is obsolescent. X ( t t $ interpret p \ t 0 ( | 0 < t h x 0 T 4 0 4 : $ 0 x P 0 x 0 P 0 0 refill p print-status 0 t , ` D 0 0 Aborted. , D 0 0 Aborted. D 0 @ Stack Overflow. p D 0 @ t Stack Underflow. p 4 D 0 @ Return Stack Overflow. D 0 @ !$ Return Stack Underflow. D 0 8 !| undefined word. 4 D 0 8 ! out of memory. D 0 < " undefined method. D 0 8 "p no such device. @ t " Exception # p \ h 0 $ # ok #$ compiled status < print-prompt #@ #D x > outer-interpreter #` # # \ #d p 8 @ 0 save-source # \ P P P P P P restore-source $ \ \ \ \ \ \ P (evaluate) $` $ ` t $d evaluate $ $ 0 t D 4 D x 0 $ P $ \ P 4 $ eval % % init-builtin-terminal % @ ( t t $ p p include % T @ encode-file & X bye & & Farewell! p quit & @ # init-chain ' : initializer 'D 4 p 'H \ t 0 | initialize-forth '` @ % 'H \ t 0 t | initialize ' ' (\ OpenBIOS kernel started. '$ prstack (8 #prstack * prstack-push +( * +, 0 +, prstack-pop +D ` +, * +, >r + 0 P \ 4 +H P r> + 0 \ \ + 4 P r@ + 0 h \ + t +H 4 P #vocs ,8 vocabularies , 0 , search-wordlist , 0 0 wordlist - p get-order -d @ p @ , @ X P @ set-order - t ` D 0 0 t @ p @ X P order - - p @ D wordlist . P definitions: previous .P - - do-vocabulary . P - 4 \ 4 - discard / p @ P vocabulary /\ -h / also / - 4 - only / ` - / forth / /( findw / p @ p @ H \ X - 0 D | P get-current 0 set-current 0 definitions 0 X 0 forth-wordlist 0 #words 0 p $ \ 0 4 4 comp0 1 0 P \ 0 0 p strcmp 1d 0 0 0 0 p strchr 1 P \ t 0 < h D 0 \ 4 4 \ p cstrlen 2 t \ t 0 4 strdup 2 t 0 0 t P t t P 4 \ \ p p dict-strdup 2 t 4 @ 4 P P \ \ tmpstrcat 3@ t @ P P t P P 4 \ 4 \ \ \ tmpstrcpy 3 4 P P \ \ numtostr 4 4 $ \ 4 t \ 0 0 a P h 0 p \ \ 8 0 tohexstr 4L $ 4P toudecstr 5( $ 4P todecstr 5` 0 4 4 - 5d 5d parse-ints 5 $ @ $ \ $ @ 0 , 2 0 8 $ @ @ t $ $ p p D 4 0 p P \ \ t 0 \ 4 parse-2int 5 @ 5 parse-nhex 7 P 5 \ parse-hex 7 0 7$ rot13 7X t A M x 0 t N Z x 0 rot13-str 7t 2 h @ 7x P prep-wid 7 prep-dict 88 prep-here 8P - ([IF]) 8h \ \ t h 0 [IF] 1 h 0 0 [IFDEF] 1 h 0 0 [ELSE] 1 h 0 @ [THEN] 1 h 0 P \\ 1 h 0 T t [IF] 8| 0 0 \ 8 8 0 D 0 ` @ D 0 $ t 0 D 0 ( P D 0 t p 8 0 X [ELSE] 9 p 9 [THEN] :x : p 8< p 8T : [IFDEF] : 8< 0 $ 8< - t 0 p 9 [DEFINE] : 0 P P 8T h 0 @ 8T -h 8< 8l 8< 0 8l X 8l \ \ 0 [0] ;4 p [1] ; 0 builddate ; Mar 7 2023 22:22 version < 1.1 last-xt <D | $is-ibuf <h <l is-ibuf < p p < is-ivariable < $ <l is-xt-func < 0 0 t is-2xt-func = 0 4 t is-func-begin =X 0 is-func-end = t split-before = p t P p @ @ @ @ D 0 | P \ @ D split-after = t P p @ @ @ @ D 0 | P t p P 0 h \ @ D left-split > p t P p @ @ @ @ D 0 | P \ @ t 0 D right-split ?H t P > t 0 $ h D 0 \ list-add ? p 4 \ t 0 list-get @P t 0 t | 64bit? @ >in.instance-data @ 0 >in.alloced-size @ 0 >in.device-node A 0 >in.my-parent A< 0 >in.interposed A\ 0 >in.my-unit A| 0 >in.arguments A 0 $inst-node.size A ,>dn.isize A 0 >dn.parent A 0 >dn.child B 0 >dn.peer B, 0 >dn.properties BH 0 >dn.methods Bh 0 >dn.priv-methods B 0 >dn.#acells B 0 >dn.probe-addr B 0 >dn.itemplate B 0 $dev-node.size C P>prop.next C, 0 >prop.name CD 0 >prop.addr C` 0 >prop.len C| 0 prop-node.size C >ap.device-str C 0 active-package.size C fcode-sys-table C ?fcode-offset16 D fcode-spread D< fcode-table DX ?fcode-verbose Dt _fcode-debug? D fcode-headers? D fcode-stream-start D fcode-stream D fcode-end E fcode-c@ E fcode-push-state E8 D@ D\ Dx D D E E$ E< T fcode-pop-state E\ E< E$ E D D Dx D\ D@ fcode-ptr E Dx 0 t $ 0 0 User FCODE# referenced. D fcode>xt F F fcode-num8 F E t D\ E E< fcode-num8-signed F F t l 0 x fcode-num16 G F F 4 fcode-num16-signed GP GT t l 0 x fcode-num32 G F F F F 4 D 4 L fcode# G F t 0 x 0 F 4 fcode-offset H D@ 0 G G D 0 ( t (offset) fcode-string HH t F t h @ F P D 0 ( (const) fcode-header H F GT G D 0 Found FCode header: Format : 4 Checksum : Length : fcode! I@ H D 0 ( t (fcode#) F instance-init J 4 \ t 0 t t ( 0 L @ P @ $ t new-token Jp p p J named-token K H D 0 p p J external-token KL H J b(;) K b(:) K 0 x b(buffer:) K t b(constant) K P t b(create) L$ t b(defer) LL t b(field) L t b(value) L P t b(variable) M p t (is-user-word) M< get-token Mp F t set-token M F b(lit) M G 0 b(') M H F 0 b(") N H 0 b(to) N@ H F 0 0 offset16 Nl D@ bbranch N HL 0 d $ p p D b?branch N HL 0 0 d 0 p p b(<mark) OL 0 b(>resolve) O D d b(loop) O HL , b(+loop) O HL T b(do) P HL b(?do) P< HL b(leave) P\ b(case) P b(endcase) P 0 b(of) P HL p b(endof) P HL bigendian? P l!-be Q P h 4 0 t l L ` d l@-be QP p 4 h 0 4 x P alloc-tree Q t P 4 t \ p align-tree Q @ no-active R8 0 , no active package. find-property RT Bl \ t 0 D t Cd 1h h 0 CH next-property R P h 4 h x 0 \ Bl , \ R t 0 t 0 CH 0 Cd t 2 get-package-property S, R 0 ( t C 4 C get-inherited-property S \ 0 h t A@ R 0 0 t C 4 C A` get-my-property T@ A@ S decode-int T t 0 < t , P h 4 \ Q p my-#acells U 0 A@ 0 B 0 X #address-cells S 0 @ U , 0 @ my-#scells Ux 0 A@ 0 B 0 @ #size-cells S 0 0 U 0 decode-string V0 t 0 h p $ 0 h 0 | P P , h @ P P P \ \ \ $ 4 \ 4 p p decode-bytes V h \ \ D decode-phys W U| p @ $ U \ \ P P P P U| p @ \ \ \ $ P P P encode-int W R h QT encode-string X` h R h P 4 encode-bytes X h R h P 4 encode+ X encode-phys Y Xd U| p @ Xd Y P sbus-intr>cpu Y( Y (sbus-intr>cpu) Yp No SBUS present on this machine. (property) Y P h R< R 0 , \ $ h C C C R t CH t \ Bl \ t 0 CH P t R t P 4 \ h Cd h C \ C R< property Y 0 A@ t 0 Y RX (delete-property) Z R 0 t CH 4 delete-property [< 0 [@ device-name [ X name Z device-type [ X device_type Z reg [ P Y, \ Xd Y reg Z model \ X model Z device-tree \X external \ 0 B 0 private \ 0 8 P 1 h B h B P - \ B 0 active-package! \ t 0 , 1 B @ - B 0 1 t 0 - 0 new-device ]@ R< C0 R P t h B 0 D B0 \ t 0 BL h 4 h \ A h A -h h B -h h B h C h A@ A` h ]D \ \ (delete-device) ] P h B 0 T B0 \ t h 0 BL h BL 4 p \ \ delete-device ^ P \ h B0 t 0 ^ \ ^ finish-device _t t A@ P A` h B ]D name h S 0 h _x \ create-instance _ t A 8 0 p P t A h A h A p t B h Jt t B h Jt t C h A h h @ h A` \ destroy-instance `` 0 t A t A to a< X t D 0 ]D current-device ax ?my-self a t h 0 , no current instance. my-parent a a A` ihandle>non-interposed-phandle b@ \ t A 0 A` A@ instance-to-package bx t 0 b| ihandle>phandle b A@ peer c 0 BL \ child c 0 \ B0 find-method cX B 0 call-package c P \ $call-method c t P A@ c 0 \ c $call-parent d bD d$ find-dev dt find-rel-dev d P ]D d \ ]D find-package d /packages d h 0 d h 0 open-package d `d t h 0 p P 2 h A open h d$ 8 0 0 \ \ a@ $open-package eP d 0 eT close-package e t close d$ 8 0 a@ my-address f( a A@ B U| h 4 p @ t 4 P my-space ft a A@ B my-unit f a A U| h 4 p @ t 4 P my-args g a A left-parse-string gl ?L map-low g f 4 map-in dx free-virtual g address T h 0 4 U $ D 0 address [ map-out dx package-stack-pos g package-stack h| h0 h 0 h push-package h h P 0 @ #cannot push-package onto full stack g h h h 0 h ]D pop-package h h p D 0 @ #cannot pop-package from empty stack g h 0 h h h ]D _diag-switch? i (peek) j4 ]p jL cpeek j` jP wpeek j| jP lpeek j jP (poke) j ] j cpoke j j wpoke k , j lpoke k, 8 j rb@ kL rw@ kl rl@ k rb! k rw! k rl! k rx@ k 0 , . M 0 . M rx! k 0 , / M 0 / M obp-ticks lH dummy-msecs l get-msecs l l 0 l l t l ms l l \ t l \ 0 alarm m0 user-abort ml fcode-revision m mac-address m display-status m memory-test-suite m mask m diagnostic-mode? n j8 start0 n0 p D\ N ID start1 nH 0 D\ N ID start2 np @ D\ N ID start4 n D\ N ID version1 n 0 D\ ID end0 n E$ end1 o$ ferror oD undefined fcode# encountered. E$ suspend-fcode oX set-args o a x P decode-unit dx 8 0 c B \ x h P 0 t | P \ \ A 2 A (dma-alloc) o (dma-free) p M (dma-map-in) p (dma-map-out) p M (dma-sync) p interpose-ph q interpose-args q0 expand-alias qL /aliases d h 0 S 0 D t 0 pathres-resolve-aliases qp / 0 P / = : = qt 0 p @ 0 @ / > D : = D D \ 3 3 P D \ 3 \ 3 3 2 >si.path q 0 >si.arguments r 0 >si.unit_addr s 0 >si.node_name s, 0 >si.free_me sL 0 >si.unit_phys sl 0 (>si.unit_phys_len s 0 8>si.save-ihandle s 0 <>si.save-phandle s 0 @>si.top-ihandle s 0 D>si.top-opened t 0 H>si.child t< 0 Lsinfo.size tX Pmatch-nodename tt P h sP 1 h 0 \ h sP , 2 0 \ , ?L h sP \ 1 0 common-match t P h sP 0 ` name h t\ S 0 ` t 0 h t h 0 \ (exact-match) uP P h uT h s 0 reg h t\ S 0 h s $ 4 \ 0 0 ( h sP h 0 \ exact-match u u 8 0 (wildcard-match) v P h uT reg h t\ S h 0 h s h sP x h 0 ` \ wildcard-match w( w, 8 0 def-decode-unit w 7\ get-decode-unit-xt x decode-unit c h 0 x find-child x( P h s0 t 0 x, x P P x h \ 4 , p t h s h s P \ t 0 $ \ t ` P QT \ p h s v \ t 0 B0 \ 0 P t h t\ h @ 0 \ t\ BL v D 0 w p L g link-one xp P `d t h 0 g h t A` t h t h s 2 A h s0 0 ( h s A d reg S h 0 ( , A 4 A p \ t@ invoke-open z8 open d$ 8 0 h 0 g 4 t@ handle-interposers { P \ q4 0 p q4 4 ]D p p h s0 qP h s h z< A qP h { ]D l \ close-dev { \ t 0 t A` 4 f, path-res-cleanup | 0 t t@ 0 $ t t 0 | H t t t t 0 A` 4 0 a@ 0 | t s t s ]D t sp tx (path-resolution) } P h r r h sp t 0 < / D 0 4 4 \ ]D h r p p h s0 p p h s p h t h 0 g 4 \ h r 0 H t 0 0 h z< A h { h { ]D h r / ?L : ?L @ ?L h sP h s0 h s h r h sP % 2 D 0 L 4 4 h sP /packages d ]D h xt h xt 4 ]D t 0 h z< 0 D 0 ( t A h { h { ]D \ path-resolution } tx P h tx p h r h s h s t h } 8 0 P \ } t g 0 0 \ open-dev 0 $ h 0 4 } execute-device-method D @ $ h 0 P d$ 8 0 \ } find-device .. 1 h 0 @ t 0 B t h 0 ]D p $ h 0 4 } ]D (find-dev) T $ X 8 0 4 ]D interpose q4 2 qP non-implemented P ?Non-implemented historical or pre-Open Firmware FCode occurred. adr-mask b(code) 4-byte-id convert ( frame-buffer-busy? D poll-packet h return-buffer set-token-table set-table xmit-packet fcode-version firmware-version ( processor-type H memmap d >physical x my-params intr driver group-code probe probe-virtual (romfont) 4 (romfont-width) P (romfont-height) p x x x p ? ? ? ? ? ? ? (romlogo-64x64) line# column# inverse? inverse-screen? #lines #columns ( frame-buffer-adr @ screen-height ` screen-width | window-top window-left char-height char-width fontbytes char-min char-num 0 font H foreground-color \ background-color | color-palette 0 0 0 0 # 0 ; 0 S 0 g 0 0 font-spacing depth-bits line-bytes display-ih openbios-video-height openbios-video-width @ draw-character d reset-screen toggle-cursor erase-screen blink-screen invert-screen insert-characters delete-characters D insert-lines h delete-lines draw-logo fb-emit \ depth-bytes default-font T t p set-font 0 L 4 ` >font d 4 L , ` is-install \ open 0 ` t 0: write dup >r bounds do i c@ fb-emit loop r> ; % : draw-logo draw-logo ; % : restore reset-screen ; % is-remove \ close 0 t is-selftest \ selftest 0 t fb1-nonimplemented 4 2Monochrome framebuffer support is not implemented. fb1-draw-character fb1-reset-screen fb1-toggle-cursor fb1-erase-screen 4 fb1-blink-screen X fb1-invert-screen | fb1-insert-characters fb1-delete-characters fb1-insert-lines fb1-delete-lines fb1-slide-up 8 fb1-draw-logo X fb1-install x fb8-blitmask fb8-fillrect fb8-invertrect fb8-line2addr d fb8-curpos2addr 4 fb8-copy-lines h 4 4 D P fb8-clear-lines p @ D fb8-draw-character d 4 0 4 fb8-reset-screen X p p fb8-toggle-cursor 8 fb8-erase-screen 0 p p fb8-invert-screen $ p p fb8-blink-screen t x m4 x fb8-insert-characters D l l p 0 4 4 4 P P fb8-delete-characters D l l 4 p 0 4 4 4 P D 4 P fb8-insert-lines , 4 fb8-delete-lines , , t , 4 4 fb8-draw-logo H D 4 d 4 D fb8-install , D D , p p p p p /chosen 0 ]D Xd display Z ]D \ ( x $ H l L < iso6429-1983-colors T 0 p p p 0 t @ 4 P p p 0 t l L 0 l L @ l color! | 0 P h p ( (escseq) 4 (sequence) 8 (match-number) P D 0 P 0 0 p (esc-number) x P x P p T < p @ t 4 0 4 4 ; D 0 p 4 | P x \ \ p < | (match-seq) < T A D 0 T 0 0 0 0 p B D 0 H 0 0 ( 0 , , C D 0 H 0 0 ( 0 D , < D D 0 H 0 0 ( 0 p E D 0 X 0 0 ( 0 , , p l f D 0 @ @ D 0 D D , , , 0 D 0 8 p , , H p D 0 0 p p T H D 0 @ @ D 0 D D , , , 0 D 0 8 p , , H p D 0 0 p p < J D 0 < p < D l , K D 0 , p < D l L D 0 , 0 0 0 ` M D 0 0 0 0 D 0 0 @ D 0 0 0 0 D 0 0 H P D 0 0 0 0 D 0 0 l m D 0 ` 0 0 D 0 < D 0 p D 0 P p < 0 ( h $ q D 0 T p < 0 ( h $ < s D 0 p < (term-emit) < 0 < D 0 4 p < overflow in esc < 0 D 0 | t [ D 0 $ T @ < 0 p < out of ESC 0 T < < < p D 0 ` D 0 8 /screen ring-bell D 0 8 0 D 0 h t D D 0 0 l l @ D 0 x p , P 0 4 p 0 , D 0 8 0 ` D 0 0 p p D 0 $ p D 0 , T 0 < D P 0 d p , P 0 , p 0 , t parent X B int-property Xd D Z encode-property < t h 0 $ null phandle P p P ]D Z \ ]D \ iterate-tree l h 0 \ t c\ 0 c\ t c$ 0 c$ \ B t 0 $ t c$ 0 c$ iterate-tree-begin \ iterate-device-type \ 0 t P device_type h S 0 p p t 0 1 h 0 \ \ x p link-nodes t \ 0 $ t B BL B0 \ t 0 BL t link-node p BL init-fcode-table alloc-fcode-table L @ Dx D 0 , fcode-table at 0x Dx P free-fcode-table p Dx @ p Dx (debug-feval) E 0 : 0 (compile) t F ( t [ 0x ] (feval) ( \ H D 0 , F t h x 0 E$ 0 ` 0 ( ` p byte-load D 0 @ !byte-load: evaluating fcode at 0x P P E` \ \ t 0 D 0 E< t D E 0 D\ D@ t E$ p p p p p p x P 8 0 0 byte-load: exception caught! fcode-debug? % 0 ` x h 0 L (byte-load: warning stack overflow, diff x h \ E undefined-fcode undefined fcode word. reserved-fcode reserved fcode word. ['], X n['], X 4 p 0 t P fcode-master-table o( M N ND N OP O P P@ P` P P l x < L \ , + + ,< h \ P D h t $ P 8 x @ t 4 $ h x D D ` d 8 , L t \ P , m | ( @ | h T $ $ H 4 4 ` p 0 @ P ( h ` O O K$ KP K M M@ L( LP L K L K Np P P P @ h K | N % p M M T nL nt n n o\ o , oH p fx f | g Z Xd Y Y, X X \$ \\ [ 7 8 ] n4 m n n l m4 _ W h i T g Yt , D l $ H l d 4 h \ < ( x L 8 m [ gp d eT f, c c dx bD c g d$ e h L , mp Mt o 0 8 m T U V TD [ S j j j k k0 kP kp k k k k k d 8 c\ c$ S0 o g fcode-master-table-size ` Tnreserved $ 4 0 4 P D D t p t d 4 < (init-fcode-table) 8 D Dx Dx , , ` d N OpenBiosTeam,OpenBIOS h name M M #address-cells open close decode-unit 7\ encode-unit 5, , | , 4 aliases name open close , & x 4 $ 4 \ openprom T D ( name BootROM d L device_type OpenFirmware 3 p model relative-addressing supports-bootinfo [T boot-syntax selftest OpenBIOS selftest... succeeded open close T , x 4 options [8 name , P @ D 4 chosen l ` H name | h stdin stdout , D # 8 builtin name open close , D 0 console name open close write t P h @ P \ read t P h @ P \ __context saved-context t x ctrace .registers .fregisters >ls.entry 0 >ls.file-size 0 >ls.file-type 0 >ls.param < 0 load-state.size X load-state | 0 state-valid file-size !load-size load-size elf-boot elf 0 bootinfo D xcoff \ pe p aout fcode forth bootcode prep init-program (init-program) | 0 0 Unable to locate (init-program)! (find-bootdevice) ?L t h 0 boot-device | ?L \ t 0 t Trying ... 0 | D p ?L | D t h 0 $ boot-file | X /chosen 0 bootargs Y ihandle>boot-device-handle P p \ \ t A` t P 0 T t A h 0 , h 0 4 \ t 0 ` $load t h 0 t P load-base % 4 t c load c 0 4 c 8 !Cannot find load for this package h selected-partition-args TD h 0 V D h 0 p t A P P t P A h get-instance-path | 0 \ \ \ A 4 get-instance-path | 0 X /chosen 0 bootpath Y \ | load T dir T , > t h 0 8 Unable to locate device $ $ @ dir d$ 8 0 4 Cannot find dir for this package | go h 0 H 3No valid state has been set by load or init-program (arch-go) | 0 (go) | 0 dis +dis .bp +bp -bp --bp bpoff step steps hop ( hops < gos P till d return x .breakpoint .step .instruction .adr sym sym>value value>sym headerless 0 headers H apply ` (.s t x p @ x P x 0 < showstack #D noshowstack #D dl .calls D $sift X sifting l patch (patch) debug | p D 0 < #could not locate word for debugging h stepping tracing 4 debug-off L resume d 0 (see-indent) | (see-cr) < indent+ indent- (see-colon) t : ( \ t t 0 t 0 D 0 , if D 0 , then T \ D 0 , begin t D 0 ( again D 0 ( until D 0 @ while @ 8 D 0 < repeat @ D 0 @ ( lit ) h# 0 t D 0 ` " t 4 @ 4 " ( ; (see) @ t 0 D 0 D | P D 0 P constant t ( = D 0 T variable t ( = D 0 d defer t ( is ( 0 primword 4 ( see X devalias t nvalias $nvalias nvunalias $nvunalias dev X cd device-end $ p ]D select-dev @ t h 0 0 failed opening parent. t c ]D unselect-dev ` | D p begin-package d ] o end-package _ ?active-package 8 t h 0 ( no active device def-encode-unit ` 5, get-encode-unit-xt B encode-unit c h 0 get-nodename name S 0 <noname> pnodename 8 t < t reg S 0 P p P t ]D x P P W \ \ $ P P \ \ @ 3 P D \ 3 4 \ ]D \ inodename P c < P x P g \ \ x P 0 , 4 0 \ P \ h 0 4 reg c S 0 0 c x P P g \ \ $ P P \ \ 4 @ 3 D 3 gp t 0 0 : 3 D 3 \ get-package-path h 0 p p t B h 0 / P p p @ \ \ t B t P 0 , 3 / 3 \ 4 get-instance-path ` h 0 p p t c B h 0 / P p p @ \ \ t A` t P 0 P t A h 0 ( 3 / 3 \ 4 get-instance-interposed-path H h 0 p p t c B h 0 / P p p @ \ \ t A` t P 0 \ t P 3 \ A 0 /% / 3 \ 4 pwd d d d ls t d B0 \ t 0 , t t BL .p-string? 0 p 4 P p \ t 0 t h h 0 4 4 @ t 8 4 P x 0 \ 4 p h \ $ h 0 ( " " 4 \ 0 P t h 0 0 t 2 { p $ 4 \ 0 d t 0 , $ t 2 " " } .p-int? t 0 U $ 4 t 0 t \ 0 0.r X p 4 0 @ @ P h .p-bytes? -- t : 4 P t , p \ P 0 , t h @ P 0 ... \ 0 (.property) $ t h 0 <empty> 0 \ 0 ( 0 <unimplemented type> .p-reg $ P P $ 4 t \ \ h @ t h 0 @ < 0 t P l h 0 @ h 0 4 P P 0 < t P T .p-translations-#pacells / d 0 P #address-cells S 0 0 U 0 0 .p-translations-#cells U| P .p-translations-cols @ D U| t V4 @ .p-translations p P P t \ \ $ P P D t \ \ h @ P @ ( D 0 @ < P 0 t P l h 0 @ t h 0 4 @ P 0 < t P ( p @ P (.property-by-name) reg 1 h $ assigned-addresses 1 h x 0 U| V4 D < memory 1 h 0 @ available 1 h 0 U| V4 D /chosen d 0 mmu S h 0 U c D 0 | available 1 h 0 U| V4 0 D translations 1 h 0 D .properties < d t P 0 p p \ h S0 0 p t $ \ t P 0 S @ | \ print-dev t t d t device_type S 0 0 ( V ) show-sub-devs B0 \ t 0 t l BL show-all-devs h / X d l ]D show-devs / X T X d l ]D probe-fcode? probe-all L >cf.name d 0 >cf.default | 0 >cf.check-xt 0 >cf.exec-xt 0 >cf.next 0 config-info.size config-root 8find-config 8 < \ 0 L $ 1 h 0 p is-config-word T t X t /options d 0 , S 0 p ` 0 p ` t 0 t t 0 p p new-config X 0 ( p p @ \ 3D t p < t < t P \ t config-default $ t 0 3D no-conf-def t p ` exec-str-conf check-str-conf str-config P h h \ x exec-int-conf 7\ check-int-conf d int-config P h h h \ x exec-secmode-conf command 1 h 0 0 full 1 h 0 @ p check-secmode-conf none 1 h 0 command 1 h 0 full 1 h 0 secmode-config | P h h \ x exec-bool-conf true 1 h 0 false 1 h 0 TRUE 1 h 0 FALSE 1 h 0 7\ check-bool-conf l true 1 h 0 false 1 h 0 TRUE 1 h 0 true FALSE 1 h 0 false bool-config L P p h P h \ x $setenv 8 X 0 X P D \ h 0 ( Invalid value. D D D X D /options d p setenv t 0 T p p t h 0 ( Invalid value. D printenv @ T /options X ]D (set-default) t t 0 set-default T X 0 , No such parameter. set-defaults \ < \ 0 t nodefault-bytes nvram-load-configs \ t 0 L t 2 $ = ?L 8 0 (nvram-store-one) < 4 P \ 0 \ 4 \ 4 P $ P \ \ (make-configstr) P \ S 0 p p t 0 D = D 3 3 p 4 nvram-store-configs L @ /options d h 0 P < \ 0 0 h P P \ @ p \ auto-boot? P p auto-boot? trueboot-command $ boot-command bootboot-file ( boot-file 4diag-switch? l P p 4diag-switch? \ xfalse diag-device xdiag-device diag-file diag-file fcode-debug? H P p fcode-debug? 8 Tfalse nvramrc Tnvramrc oem-banner? P p oem-banner? false oem-banner ( oem-banner 4oem-logo? l P p 4oem-logo? \ xfalse oem-logo xoem-logo use-nvramrc? @ P p use-nvramrc? false input-device H input-device 0 Tkeyboardoutput-device Toutput-device screen screen-#columns < h screen-#columns 80 screen-#rows @ h screen-#rows , L24 selftest-#megs h Lselftest-#megs x 0 security-mode security-mode pci-probe-mask ( t h pci-probe-mask 8-1 default-mac-address x P p 8default-mac-address d false skip-netboot? $ P p skip-netboot? false scroll-lock , t P p scroll-lock 8trueload-base x h 8load-base d 4000tpe-link-test? P p tpe-link-test? truettya-mode T ttya-mode 9600,8,n,1,-ttya-ignore-cd ` P p ttya-ignore-cd D ptruettya-rts-dtr-off P p pttya-rts-dtr-off false ttyb-mode L ttyb-mode 9600,8,n,1,-ttyb-ignore-cd X P p ttyb-ignore-cd < htruettyb-rts-dtr-off P p httyb-rts-dtr-off false boot-screen boot-screen boot-script H boot-script 8 Tuse-generic? P p Tuse-generic? false boot-device ( boot-device diskboot-args , boot-args 8release-load-area ` callback $callback sync (help-generic) ?Enter 'help command-name' or 'help category-name' for more help 3(Use ONLY the first word of a category description) $Examples: help select -or- help line Categories: * boot (Load and execute a client program) diag (Diagnostic routines) (help-diag) ;test <device> Run the selftest method for specified device Atest-all Execute test for all devices using selftest method (help-boot) T =boot [<device-specifier>:<device-arguments>] [boot-arguments] Examples: Cboot Default boot (values specified in nvram variables) ,boot disk1:a Boot from disk1 partition a &boot hd:1,\boot\vmlinuz root=/dev/hda1 help T t h 0 diag , 0 X boot , 0 No help available for stdout X stdin , input @ d h 0 @ Input device not found. read c h 0 , has no read method. h 0 4 Opening failed. $ t install-abort d$ 8 0 D 0 8 t remove-abort d$ 8 0 | D /chosen d 0 ( P D Xd stdin \ Y / d 0 0 P D L X stdin-path \ Y output T d h 0 @ Output device not found. write c h 0 0 has no write method. h 0 4 Opening failed. $ 0 0 | 0 /chosen d 0 ( P 0 Xd stdout \ Y / d 0 0 P 0 L X stdout-path \ Y io x X | io-char 4 io-out-char X io-key? t \ ` 0 \ 0 read D d$ 0 D io-key \ 0 \ ` \ io-emit 0 0 , x x 0 write 0 d$ CONSOLE-IN-list , CONSOLE-OUT-list CONSOLE-IN-initializer @T CONSOLE-OUT-initializer @T install-console /aliases d 0 x P screen d 0 D p display 0 d X screen h Y \ | X \ @ 0 0 0 0 \ @ 0 0 D 0 0 0 0 D 0 8 ` \ ( @ 0 screen | builtin-logo p builtin-banner suppress-banner? 8 \ p p l < built on <H Welcome to OpenBIOS v 3 3 3 suppress-banner 0 ` banner 0 h 0 t c device_type S 0 p p display 1 0 t c draw-logo c 0 | 4 P P p 0 D 0 $ @ @ \ \ c \ \ 0 ` < reset-all no-reset-all | ,reset-all is not available on this platform. reset power-off , no-power-off ,power-off is not available on this platform. nvedit ( nvstore x nvquit nvrecover nvrun password security-password security-#badlogins $test , Testing device : d 0 X self-test c 0 no self-test method. no such device. test @ T D test-sub-devs B0 \ t 0 ( t d D t < BL test-all 8 / X T X d < ]D boot T boot-file | X /chosen 0 bootargs Y platform-boot | 0 $find-package-method d h 0 c h 0 p call-parent bD c [active-package], ?mmissing c 0 is-open 4 open 8 0 $ = close 8 0 p $ = is-relay t P \ c h 0 $ = c = is-call-parent = t @ dx = (open-deblocker) X deblocker d 0 p p eT p 4 is-deblocker deblocker d h 0 P deblocker < open-deblocker = t = close-deblocker = t f, = \ read seek write tell addr | 0 ( busdevfn 4 l 4 l P x 4 x config-command d t $ P l 4 x x pci-c@ P l pci-w@ ! @ l pci-l@ !@ pci-c! !| $ P l pci-w! ! $ @ l pci-l! ! $ dump-pci-device "0 @ : . t [ h P h p !D / h @ !D ] \ p 0 h 0 : p 0 t x ! t h l h P P T , 5 O $H $4 $8 # $ packages $X $< name open close $h PREPOST-list "t \ POST-list $ SYSTEM-list $ )0DIAG-list $ [ PREPOST-initializer $ $ @T POST-initializer % $ @T SYSTEM-initializer %8 $ @T DIAG-initializer %d $ @T initialize-of % ' $ \ @ 0 $ \ @ 0 $ \ @ 0 4 0 % ` h 0 h 4 $ \ @ 0 0 % # ciface-ph % & , '@ '( ', & 3 ) client-services 'P '0 name callback-function ?phandle 'l t h 0 NULL phandle ` ?ihandle ' t h 0 $ NULL ihandle ci-strcpy ' P $ t h , 4 P 0 p 4 \ memory-ih ( mmu-ih (t ( /chosen X mmu S h 0 U ( memory S h 0 U (x D 6 ( safetype ( < t 2 t \ 0 BAD > phandle-exists? )D 4 p \ 0 0 D 0 $ test t 2 & c 0 p ` peer *0 c$ child *p c\ parent * getproplen * 2 4 ' S 0 ` getprop * t ` D 0 ` h 0 ` 2 4 ' S 0 ` P 4 \ t P , \ nextprop + P t h 0 p t 2 t 0 @ h S 0 ( \ p 4 ` \ S0 0 t $ ( 0 p 4 p setprop + P P P P 4 X \ t 2 \ Y \ finddevice ,t t 2 d h 0 ` instance-to-package , ' b package-to-path - t h 0 ` P 4 \ d ( canon -( t 2 d 0 -, ` instance-to-path -l t h 0 ` P 4 \ L ( instance-to-interposed-path - t h 0 ` P 4 \ h ( call-method . t h 0 ( call of null method ` t P t 2 ' d$ 8 t 0 L call-method h t 2 : exception t \ open .\ t 2 close /, | read /L P 4 \ t c read c 0 4 c ` write /d P 4 \ t c write c 0 4 c ` seek / t c seek c 0 4 c ` claim 0 $ 4 & cif-claim c 0 ` release 0p 4 & cif-release c 0 ` boot 0 BOOT enter 1 ENTER chain 1D CHAIN interpret 1l t 2 % 8 t 0 P interpret: exception t caught p set-callback 1 'p 4 'p milliseconds 2$ l start-cpu 2T Start CPU unimplemented exit 2p EXIT (exit) | 0 # test-method 2 4 t 2 t ) D 0 ` c h 0 ` p client-iface & & c h 0 ` 8 0 L 'Unexpected client interface exception: p client-call-iface 3| & c h 0 ` p set-property 4 P D X D \ p is-cfunc 4X X is-noname-cfunc 4 p p 4 <l is-xt-cfunc 4 = 0 4 = create-node 4 / ? d 0 ]D ( t 0 5X \ ]D ] [ _ ]D , # 7 6( 6 6 5 6 cmdline 68 6 name 5 eT 0 cmdline d$ $ cmdline is missing! 6D 6H # \ 6 prepare 6 p , # 7l 7X 7\ 7 : disk-label 7| 7` name part-handlers fs-handlers 7 find-part-handler 7 P 7 \ @ 0 @ h 0 | \ \ p find-filesystem 7 P 7 \ @ 0 P h P 0 | \ $ \ p register-part-handler 8X t probe c h 0 0 Missing probe method! 7 @T register-fs-handler 8 t probe c h 0 0 Missing probe method! 7 @T dma-alloc 9 dma-alloc dx dma-free : dma-free dx dma-map-in :4 dma-map-in dx dma-map-out :` dma-map-out dx dma-sync : dma-sync dx initialise-partition-package 5T dma-alloc \ dma-free \ dma-map-in \ dma-map-out \ dma-sync \ initialise-fs-package ; dma-alloc \ dma-free \ dma-map-in \ dma-map-out \ dma-sync \ register-partition-package ; register-part-handler disk-label 0 4 ; , [disk-label] internal error register-fs-package <0 register-fs-handler disk-label 0 4 ; , [misc-files] internal error decode-unit-sbus < @ 7$ encode-unit-sbus = 4 5, , 3 P 5, \ 3 sbus-unit>addr = ranges c S h 0 \ 4 p 4 D p $ @ p 0 U $ P P D 0 \ \ P @ D 0 , W D D p ` W U t h 0 < p map-in-sbus > P > 0 h map-in dx \ map-out-sbus ? map-out dx probe-self-sbus ?d p P = 8 0 ? t j 0 t D 4 D x 0 8 ] P o \ t 0 _ ` P 8 Invalid FCode start byte ?h decode-unit-scsi ? @ 7$ encode-unit-scsi @ 4 5, , 3 P 5, \ 3 %g0 @ p %g1 CD %g2 C\ %g3 C %g4 C %g5 C $ %g6 C ( %g7 D$ , %psr DL %wim Dt %pc D P set-pc D P .globals D %psr: Dx %wim: D %pc: D %g0: CH %g1: C` %g2: C %g3: C %g4: C %g5: D %g6: D( %g7: DP %o0 E 0 %o1 F 4 %o2 F 8 %o3 F < %o4 F @ %o5 G$ D %o6 GL H %o7 Gt L %l0 G P %l1 G T %l2 G X %l3 H \ %l4 H< ` %l5 Hd d %l6 H h %l7 H l %i0 H p %i1 I t %i2 I, x %i3 IT | %i4 I| %i5 I %i6 I %i7 I .locals J %o0: F %o1: F %o2: F %o3: G %o4: G( %o5: GP %o6: Gx %o7: G %l0: G %l1: G %l2: H %l3: H@ %l4: Hh %l5: H %l6: H %l7: H %i0: I %i1: I0 %i2: IX %i3: I %i4: I %i5: I %i6: I %i7: J .registers JH E JL sparc32-dma-free Ml sparc32-dma-map-out M q M M M #size-cells sun4m N N M compatible ! N( N clock-frequency encode-unit = decode-unit NH = dma-sync Nh q dma-alloc N p dma-free N p dma-map-in N p dma-map-out N p , O Oh OX O\ O O memory Ox O` name open close O , PX P O P O PL virtual-memory P$ P name open close P4 , Q Y P P P PX Q iommu P P P name P P P #address-cells Q Q P #size-cells Q8 Q( Q page-size QH Q4 cache-coherence? open close Qd encode-unit Q| = decode-unit Q = , PX T R( R R Q T sbus RP R8 R name hierarchical Rp R` R@ device_type R R Rl #address-cells R R R #size-cells D? R R R clock-frequency S R R slot-address-bits ? S R burst-sizes open close S$ encode-unit S< = decode-unit SX = map-in Sx ? map-out S ?h dma-alloc S dma-alloc dx dma-free S dma-free dx dma-map-in S dma-map-in dx dma-map-out T$ dma-map-out dx dma-sync TX dma-sync dx , Q VL U T T T V, espdma U U name encode-unit = decode-unit U0 = dma-alloc UP dma-alloc dx dma-free Ul dma-free dx dma-map-in U dma-map-in dx dma-map-out U dma-map-out dx dma-sync U dma-sync dx , Q X V V V VL W ledma V V V name ? V V burst-sizes encode-unit = decode-unit V = dma-alloc W dma-alloc dx dma-free W0 dma-free dx dma-map-in W` dma-map-in dx dma-map-out W dma-map-out dx dma-sync W dma-sync dx , VL Xl X` Xd X Y le X X| Xh name network X X X device_type X X X busmaster-regval & X X intr dma-alloc dma-alloc dx dma-free X dma-free dx dma-map-in Y, dma-map-in dx dma-map-out YX dma-map-out dx dma-sync Y dma-sync dx , Z< Z, Z0 Y [ obio Zd ZL Z4 name hierarchical Z Zt ZT device_type Z Z Z #address-cells Z Z #size-cells open close Z encode-unit Z = decode-unit [ = disk [H [0 boot-from [d aligned-allocator l & Type 'help' for detailed information [ make-openable [| d 0 0 \ 0 t ]D x preopen [ [ /chosen X 0 Xd D Z \, \ \ memory /memory \0 mmu /virtual-memory \0 \ rmap@ M p obmem ] p sfsr@ ] ignore-dfault ]8 ]X ]< ` ]\ p ]\ ]< h 0 ]l ]< ` ]\ p ]\ ]< h #T #h # 10 14 4 L T \ t
.shstrtab .text .rodata .data .bss .gnu.attributes