2010-04-02 11:41:35 +00:00
|
|
|
/*
|
|
|
|
|
* Creation Date: <2010/04/02 12:00:00 mcayland>
|
|
|
|
|
* Time-stamp: <2010/04/02 12:00:00 mcayland>
|
|
|
|
|
*
|
|
|
|
|
* <init.c>
|
|
|
|
|
*
|
|
|
|
|
* OpenBIOS intialization
|
|
|
|
|
*
|
|
|
|
|
* Copyright (C) 2010 Mark Cave-Ayland (mark.cave-ayland@siriusit.co.uk)
|
|
|
|
|
*
|
|
|
|
|
* This program is free software; you can redistribute it and/or
|
|
|
|
|
* modify it under the terms of the GNU General Public License
|
|
|
|
|
* version 2
|
|
|
|
|
*
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#include "config.h"
|
|
|
|
|
#include "libopenbios/openbios.h"
|
2010-04-02 13:01:10 +00:00
|
|
|
#include "libopenbios/bindings.h"
|
|
|
|
|
#include "libopenbios/initprogram.h"
|
2010-04-02 11:41:35 +00:00
|
|
|
|
|
|
|
|
void
|
|
|
|
|
openbios_init( void )
|
|
|
|
|
{
|
2010-04-02 13:01:10 +00:00
|
|
|
// Bind the C implementation of (init-program) into Forth
|
|
|
|
|
bind_func("(init-program)", init_program);
|
2010-04-02 11:41:35 +00:00
|
|
|
}
|