|
|
1.1 ! root 1: \ va>tte-data defer MMU virtual to physical address hook for Solaris ! 2: \ We need to make sure this is in the global wordlist ! 3: active-package 0 active-package! ! 4: defer va>tte-data ! 5: 0 to va>tte-data ! 6: active-package! ! 7: ! 8: :noname ! 9: ." Type 'help' for detailed information" cr ! 10: \ ." boot secondary slave cdrom: " cr ! 11: \ ." 0 > boot hd:2,\boot\vmlinuz root=/dev/hda2" cr ! 12: ; DIAG-initializer ! 13: ! 14: : make-openable ( path ) ! 15: find-dev if ! 16: begin ?dup while ! 17: \ install trivial open and close methods ! 18: dup active-package! is-open ! 19: parent ! 20: repeat ! 21: then ! 22: ; ! 23: ! 24: : preopen ( chosen-str node-path ) ! 25: 2dup make-openable ! 26: ! 27: " /chosen" find-device ! 28: open-dev ?dup if ! 29: encode-int 2swap property ! 30: else ! 31: 2drop ! 32: then ! 33: ; ! 34: ! 35: :noname ! 36: set-defaults ! 37: ; PREPOST-initializer ! 38: ! 39: \ preopen device nodes (and store the ihandles under /chosen) ! 40: :noname ! 41: " memory" " /memory" preopen ! 42: ! 43: ; SYSTEM-initializer ! 44: ! 45: \ use the tty interface if available ! 46: : activate-tty-interface ! 47: " /packages/terminal-emulator" find-dev if drop ! 48: then ! 49: ; ! 50: ! 51: device-end ! 52: ! 53: : rmap@ ( virt -- rmentry ) ! 54: drop 0 ! 55: ;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.