1 /******************************************************************************
2 * Copyright (c) 2004, 2008 IBM Corporation
4 * This program and the accompanying materials
5 * are made available under the terms of the BSD License
6 * which accompanies this distribution, and is available at
7 * http://www.opensource.org/licenses/bsd-license.php
10 * IBM Corporation - initial implementation
11 *****************************************************************************/
12 #include <libbootmsg.h>
16 int cpid = TOS.n; POP;
20 // : bootmsg-warning ( cp-id lvl pstr -- )
21 PRIM(bootmsg_X2d_warning)
22 char* str = TOS.a; POP;
23 short lvl = TOS.n; POP;
24 short cpid = TOS.n; POP;
25 bootmsg_warning(cpid, (const char*)str, lvl);
28 // : bootmsg-error ( cp-id pstr -- )
29 PRIM(bootmsg_X2d_error)
30 char* str = TOS.a; POP;
31 short cpid = TOS.n; POP;
32 bootmsg_error(cpid, (const char*)str);
35 // : bootmsg-debugcp ( cp-id lvl pstr -- )
36 PRIM(bootmsg_X2d_debugcp)
37 char* str = TOS.a; POP;
38 short lvl = TOS.n; POP;
39 short cpid = TOS.n; POP;
40 bootmsg_debugcp(cpid, (const char*)str, lvl);
43 // : bootmsg-setlevel ( area lvl -- )
44 PRIM(bootmsg_X2d_setlevel)
45 char lvl = TOS.n; POP;
46 short area = TOS.n; POP;
47 bootmsg_setlevel(area, lvl);
50 // : bootmsg-checklevel ( area lvl -- [true|false] )
51 PRIM(bootmsg_X2d_checklevel)
52 char lvl = TOS.n; POP;
53 short area = TOS.n; POP;
55 TOS.n = (bootmsg_checklevel(area, lvl)) ? -1 : 0;
58 // : bootmsg-nvupdate ( -- )
59 PRIM(bootmsg_X2d_nvupdate)