diff options
| author | Ryan Moeller <freqlabs@FreeBSD.org> | 2020-03-27 17:37:31 +0000 |
|---|---|---|
| committer | Ryan Moeller <freqlabs@FreeBSD.org> | 2020-03-27 17:37:31 +0000 |
| commit | 73531a2abd8de866a3581d556b026b278fdedffa (patch) | |
| tree | eacc609932cf6670e3fe5bccf3e8c69642707d7d /stand/forth | |
| parent | cfe7aad9c3bdbe3d859d43b40ed9203821219c3c (diff) | |
Notes
Diffstat (limited to 'stand/forth')
| -rw-r--r-- | stand/forth/loader.4th | 6 | ||||
| -rw-r--r-- | stand/forth/loader.rc | 1 | ||||
| -rw-r--r-- | stand/forth/screen.4th | 3 |
3 files changed, 10 insertions, 0 deletions
diff --git a/stand/forth/loader.4th b/stand/forth/loader.4th index 89d532fda317..89ea9efc4171 100644 --- a/stand/forth/loader.4th +++ b/stand/forth/loader.4th @@ -72,6 +72,12 @@ include /boot/check-password.4th only forth definitions +: maybe-resetcons ( -- ) + loader_color? if + ris + then +; + : bootmsg ( -- ) loader_color? dup ( -- bool bool ) if 7 fg 4 bg then diff --git a/stand/forth/loader.rc b/stand/forth/loader.rc index d898a7de6354..c15b0f5ce23b 100644 --- a/stand/forth/loader.rc +++ b/stand/forth/loader.rc @@ -14,6 +14,7 @@ try-include /boot/loader.rc.local start maybe-efi-resizecons +maybe-resetcons \ Tests for password -- executes autoboot first if a password was defined check-password diff --git a/stand/forth/screen.4th b/stand/forth/screen.4th index e0af82b3a8b8..e27482248b57 100644 --- a/stand/forth/screen.4th +++ b/stand/forth/screen.4th @@ -39,6 +39,9 @@ marker task-screen.4th \ clear screen : clear ( -- ) ho cld ; +\ reset to initial state +: ris ( -- ) 27 emit [char] c emit ; + \ move cursor to x rows, y cols (1-based coords) ( Esc-[%d;%dH ) : at-xy ( x y -- ) escc .# [char] ; emit .# [char] H emit ; |