1\ Example of the file which is automatically loaded by /boot/loader 2\ on startup.
| 1\ Example of the file which is automatically loaded by /boot/loader 2\ on startup.
|
3\ $FreeBSD: head/share/examples/bootforth/loader.rc 50476 1999-08-28 00:22:10Z peter $
| 3\ $FreeBSD: head/share/examples/bootforth/loader.rc 87636 2001-12-11 00:49:34Z jhb $
|
4 5cr .( Loading Forth extensions:) 6 7\ Load configuration file words 8 9cr .( - loader.4th...) 10 11include /boot/loader.4th 12 13\ Load the screen manipulation words 14 15cr .( - screen.4th...)
| 4 5cr .( Loading Forth extensions:) 6 7\ Load configuration file words 8 9cr .( - loader.4th...) 10 11include /boot/loader.4th 12 13\ Load the screen manipulation words 14 15cr .( - screen.4th...)
|
16s" /boot/screen.4th" fopen dup fload fclose
| 16s" /boot/screen.4th" O_RDONLY fopen dup fload fclose
|
17 18\ Load frame support 19cr .( - frames.4th...)
| 17 18\ Load frame support 19cr .( - frames.4th...)
|
20s" /boot/frames.4th" fopen dup fload fclose
| 20s" /boot/frames.4th" O_RDONLY fopen dup fload fclose
|
21 22\ Load our little menu 23cr .( - menuconf.4th...)
| 21 22\ Load our little menu 23cr .( - menuconf.4th...)
|
24s" /boot/menuconf.4th" fopen dup fload fclose
| 24s" /boot/menuconf.4th" O_RDONLY fopen dup fload fclose
|
25 26\ Initialize loader.4th stuff 27 28cr cr .( Initializing loader.4th...) 29initialize drop 30 31\ Show the menu 32cr 33main_menu 34
| 25 26\ Initialize loader.4th stuff 27 28cr cr .( Initializing loader.4th...) 29initialize drop 30 31\ Show the menu 32cr 33main_menu 34
|