summaryrefslogtreecommitdiffstats
path: root/qemu/roms/SLOF/slof/fs/bootmsg.fs
diff options
context:
space:
mode:
Diffstat (limited to 'qemu/roms/SLOF/slof/fs/bootmsg.fs')
-rw-r--r--qemu/roms/SLOF/slof/fs/bootmsg.fs74
1 files changed, 0 insertions, 74 deletions
diff --git a/qemu/roms/SLOF/slof/fs/bootmsg.fs b/qemu/roms/SLOF/slof/fs/bootmsg.fs
deleted file mode 100644
index 524d46908..000000000
--- a/qemu/roms/SLOF/slof/fs/bootmsg.fs
+++ /dev/null
@@ -1,74 +0,0 @@
-\ *****************************************************************************
-\ * Copyright (c) 2004, 2008 IBM Corporation
-\ * All rights reserved.
-\ * This program and the accompanying materials
-\ * are made available under the terms of the BSD License
-\ * which accompanies this distribution, and is available at
-\ * http://www.opensource.org/licenses/bsd-license.php
-\ *
-\ * Contributors:
-\ * IBM Corporation - initial implementation
-\ ****************************************************************************/
-create debugstr 255 allot
-0 VALUE debuglen
-\ tbl@ d# 1000 * 196e6aa / VALUE TIME1
-\ 0 VALUE TIME2
-
-\ Usage: 42 cp
-: cp ( checkpoint -- )
- \ cr depth 2 0.r s" : " type .s cr \ DEBUG
- \ cr ." time: " tbl@ d# 1000 * 196e6aa / dup TIME1 - dup . cr TIME2 + TO TIME2 TO TIME1
- bootmsg-cp ;
-
-: (warning) ( id level ptr len -- )
- dup TO debuglen
- debugstr swap move \ copy into buffer
- 0 debuglen debugstr + c! \ terminate '\0'
- debugstr bootmsg-warning
-;
-
-\ Usage: 42 0 warning" warning-txt"
-: warning" ( id level [text<">] -- )
- postpone s" state @
- IF
- ['] (warning) compile,
- ELSE
- (warning)
- THEN
-; immediate
-
-: (debug-cp) ( id level ptr len -- )
- dup TO debuglen
- debugstr swap move \ copy into buffer
- 0 debuglen debugstr + c! \ terminate '\0'
- debugstr bootmsg-debugcp
-;
-
-\ Usage: 42 0 debug-cp" debug-cp-txt"
-: debug-cp" ( id level [text<">] -- )
- postpone s" state @
- IF
- ['] (debug-cp) compile,
- ELSE
- (debug-cp)
- THEN
-; immediate
-
-: (error) ( id ptr len -- )
- dup TO debuglen
- debugstr swap move \ copy into buffer
- 0 debuglen debugstr + c! \ terminate '\0'
- debugstr bootmsg-error
-;
-
-\ Usage: 42 error" error-txt"
-: error" ( id level [text<">] -- )
- postpone s" state @
- IF
- ['] (error) compile,
- ELSE
- (error)
- THEN
-; immediate
-
-bootmsg-nvupdate