49 lines
960 B
Forth
49 lines
960 B
Forth
\ 7.4.10 Banner
|
|
|
|
defer builtin-logo
|
|
defer builtin-banner
|
|
0 value suppress-banner?
|
|
|
|
:noname
|
|
0 0
|
|
; to builtin-logo
|
|
|
|
:noname
|
|
builddate s" built on " version s" Welcome to OpenBIOS v" pocket
|
|
tmpstrcat tmpstrcat tmpstrcat drop
|
|
; to builtin-banner
|
|
|
|
: suppress-banner ( -- )
|
|
1 to suppress-banner?
|
|
;
|
|
|
|
: banner ( -- )
|
|
suppress-banner
|
|
stdout @ ?dup 0= if exit then
|
|
|
|
\ draw logo if stdout is a "display" node
|
|
dup ihandle>phandle " device_type" rot get-package-property if 0 0 then
|
|
" display" strcmp if
|
|
drop
|
|
else
|
|
\ draw logo ( ihandle )
|
|
dup ihandle>phandle " draw-logo" rot find-method if
|
|
( ihandle xt )
|
|
swap >r >r
|
|
0 \ line #
|
|
oem-logo? if oem-logo else builtin-logo then
|
|
( 0 addr logo-len )
|
|
200 = if
|
|
d# 64 d# 64
|
|
r> r> call-package
|
|
else
|
|
r> r> 2drop 2drop
|
|
then
|
|
else
|
|
drop
|
|
then
|
|
then
|
|
|
|
oem-banner? if oem-banner else builtin-banner then
|
|
type cr
|
|
;
|