1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
/*
* Raw bootcode loader (CHRP/Apple %BOOT)
* Written by Mark Cave-Ayland 2013
*/
#include "config.h"
#include "kernel/kernel.h"
#include "libopenbios/bindings.h"
#include "libopenbios/bootcode_load.h"
#include "libopenbios/initprogram.h"
#include "libopenbios/sys_info.h"
#include "libc/diskio.h"
#include "drivers/drivers.h"
#define printf printk
#define debug printk
int
bootcode_load(ihandle_t dev)
{
int retval = -1, count = 0, fd;
unsigned long bootcode, loadbase, entry, size, offset;
ihandle_t bootcode_info;
/* Mark the saved-program-state as invalid */
feval("0 state-valid !");
fd = open_ih(dev);
if (fd == -1) {
goto out;
}
/* If we don't have the get-bootcode-info word then we don't support
loading bootcode via %BOOT */
bootcode_info = find_ih_method("get-bootcode-info", dev);
if (!bootcode_info) {
retval = LOADER_NOT_SUPPORT;
goto out;
}
/* Default to loading at load-base */
fword("load-base");
loadbase = POP();
entry = loadbase;
size = 0;
#ifdef CONFIG_PPC
/*
* Apple OF does not honor load-base and instead uses pmBootLoad
* value from the boot partition descriptor.
*
* Tested with:
* a debian image with QUIK installed
* a debian image with iQUIK installed (https://github.com/andreiw/quik)
* an IQUIK boot floppy
* a NetBSD boot floppy (boots stage 2)
*/
if (is_apple()) {
PUSH(bootcode_info);
fword("execute");
loadbase = POP();
entry = POP();
size = POP();
}
#endif
bootcode = loadbase;
offset = 0;
while(1) {
if (seek_io(fd, offset) == -1)
break;
count = read_io(fd, (void *)bootcode, 512);
offset += count;
bootcode += count;
}
/* If we didn't read anything then exit */
if (!count) {
goto out;
}
/* Use proper file size if we got it from bootcode info */
if (size == 0) {
size = offset;
}
/* Initialise load-state */
PUSH(entry);
feval("load-state >ls.entry !");
PUSH(size);
feval("load-state >ls.file-size !");
feval("bootcode load-state >ls.file-type !");
out:
close_io(fd);
return retval;
}
int
is_bootcode(char *addr)
{
/* Bootcode has no magic, and is executed directly. So we'll
* say that something is bootcode if the loader detected the
* %BOOT type sucessfully */
ucell filetype;
feval("load-state >ls.file-type @");
filetype = POP();
return (filetype == 0x12);
}
void
bootcode_init_program(void)
{
/* Entry point is already set, just need to setup the context */
arch_init_program();
feval("-1 state-valid !");
}
|
