2 ." Type 'help' for detailed information" cr
3 \ ." boot secondary slave cdrom: " cr
4 \ ." 0 > boot hd:2,\boot\vmlinuz root=/dev/hda2" cr
7 : make-openable ( path )
10 \ install trivial open and close methods
11 dup active-package! is-open
17 : preopen ( chosen-str node-path )
20 " /chosen" find-device
22 encode-int 2swap property
32 \ preopen device nodes (and store the ihandles under /chosen)
34 " memory" " /memory" preopen
35 " mmu" " /virtual-memory" preopen
40 : rmap@ ( virt -- rmentry )
44 \ D5.3 SBus specific on-board memory address space
49 \ (peek) and (poke) implementation
54 \ ( addr xt -- false | value true )
55 sfsr@ drop \ Clear any existing MMU fault status
57 -1 ignore-dfault ! \ Disable data fault trap
59 0 ignore-dfault ! \ Enable data fault trap
64 drop false \ Failed, drop the read value
69 \ ( value addr xt -- okay? )
70 sfsr@ drop \ Clear any existing MMU fault status
72 -1 ignore-dfault ! \ Disable data fault trap
74 0 ignore-dfault ! \ Enable data fault trap
76 sfsr@ 0= \ true if no fault
79 \ Load TCX FCode driver blob
80 [IFDEF] CONFIG_DRIVER_SBUS
81 -1 value tcx-driver-fcode
82 " QEMU,tcx.bin" $encode-file to tcx-driver-fcode