1 files changed, 20 insertions, 0 deletions
diff --git a/roms/SLOF/lib/libbootmenu/bootmenu.code b/roms/SLOF/lib/libbootmenu/bootmenu.code
new file mode 100644
index 000000000..2a55c09aa
--- /dev/null
+++ b/roms/SLOF/lib/libbootmenu/bootmenu.code
@@ -0,0 +1,20 @@
+/*****************************************************************************
+ * Boot menu: Glue code to Forth
+ *
+ * Copyright 2017 Red Hat, Inc.
+ *
+ * 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:
+ *     Thomas Huth, Red Hat Inc. - initial implementation
+ *****************************************************************************/
+
+#include "bootmenu.h"
+
+// ( -- [str] len|0 )
+PRIM(boot_X2d_menu)
+	bootmenu();
+MIRP