diff options
Diffstat (limited to 'qemu/roms/openbios/forth/admin/banner.fs')
-rw-r--r-- | qemu/roms/openbios/forth/admin/banner.fs | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/qemu/roms/openbios/forth/admin/banner.fs b/qemu/roms/openbios/forth/admin/banner.fs deleted file mode 100644 index 5439fc082..000000000 --- a/qemu/roms/openbios/forth/admin/banner.fs +++ /dev/null @@ -1,49 +0,0 @@ -\ 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 -; |