Changeset View
Changeset View
Standalone View
Standalone View
sys/boot/forth/loader.4th
| Show All 40 Lines | |||||
| 256 dictthreshold ! \ 256 cells minimum free space | 256 dictthreshold ! \ 256 cells minimum free space | ||||
| 2048 dictincrease ! \ 2048 additional cells each time | 2048 dictincrease ! \ 2048 additional cells each time | ||||
| include /boot/support.4th | include /boot/support.4th | ||||
| include /boot/color.4th | include /boot/color.4th | ||||
| include /boot/delay.4th | include /boot/delay.4th | ||||
| include /boot/check-password.4th | include /boot/check-password.4th | ||||
| s" efi-boot" environment? [if] [if] | s" efi-version" getenv? [if] | ||||
| include /boot/efi.4th | include /boot/efi.4th | ||||
| [then] [then] | [then] | ||||
| only forth definitions | only forth definitions | ||||
| : bootmsg ( -- ) | : bootmsg ( -- ) | ||||
| loader_color? dup ( -- bool bool ) | loader_color? dup ( -- bool bool ) | ||||
| if 7 fg 4 bg then | if 7 fg 4 bg then | ||||
| ." Booting..." | ." Booting..." | ||||
| if me then | if me then | ||||
| ▲ Show 20 Lines • Show All 207 Lines • Show Last 20 Lines | |||||