Merge git://git.denx.de/u-boot-video
[platform/kernel/u-boot.git] / arch / x86 / lib / bios.c
1 /*
2  * From Coreboot file device/oprom/realmode/x86.c
3  *
4  * Copyright (C) 2007 Advanced Micro Devices, Inc.
5  * Copyright (C) 2009-2010 coresystems GmbH
6  *
7  * SPDX-License-Identifier:     GPL-2.0
8  */
9 #include <common.h>
10 #include <bios_emul.h>
11 #include <vbe.h>
12 #include <linux/linkage.h>
13 #include <asm/cache.h>
14 #include <asm/processor.h>
15 #include <asm/i8259.h>
16 #include <asm/io.h>
17 #include <asm/post.h>
18 #include "bios.h"
19
20 /* Interrupt handlers for each interrupt the ROM can call */
21 static int (*int_handler[256])(void);
22
23 /* to have a common register file for interrupt handlers */
24 X86EMU_sysEnv _X86EMU_env;
25
26 asmlinkage void (*realmode_call)(u32 addr, u32 eax, u32 ebx, u32 ecx, u32 edx,
27                                  u32 esi, u32 edi);
28
29 asmlinkage void (*realmode_interrupt)(u32 intno, u32 eax, u32 ebx, u32 ecx,
30                                       u32 edx, u32 esi, u32 edi);
31
32 static void setup_realmode_code(void)
33 {
34         memcpy((void *)REALMODE_BASE, &asm_realmode_code,
35                asm_realmode_code_size);
36
37         /* Ensure the global pointers are relocated properly. */
38         realmode_call = PTR_TO_REAL_MODE(asm_realmode_call);
39         realmode_interrupt = PTR_TO_REAL_MODE(__realmode_interrupt);
40
41         debug("Real mode stub @%x: %d bytes\n", REALMODE_BASE,
42               asm_realmode_code_size);
43 }
44
45 static void setup_rombios(void)
46 {
47         const char date[] = "06/11/99";
48         memcpy((void *)0xffff5, &date, 8);
49
50         const char ident[] = "PCI_ISA";
51         memcpy((void *)0xfffd9, &ident, 7);
52
53         /* system model: IBM-AT */
54         writeb(0xfc, 0xffffe);
55 }
56
57 static int int_exception_handler(void)
58 {
59         /* compatibility shim */
60         struct eregs reg_info = {
61                 .eax = M.x86.R_EAX,
62                 .ecx = M.x86.R_ECX,
63                 .edx = M.x86.R_EDX,
64                 .ebx = M.x86.R_EBX,
65                 .esp = M.x86.R_ESP,
66                 .ebp = M.x86.R_EBP,
67                 .esi = M.x86.R_ESI,
68                 .edi = M.x86.R_EDI,
69                 .vector = M.x86.intno,
70                 .error_code = 0,
71                 .eip = M.x86.R_EIP,
72                 .cs = M.x86.R_CS,
73                 .eflags = M.x86.R_EFLG
74         };
75         struct eregs *regs = &reg_info;
76
77         debug("Oops, exception %d while executing option rom\n", regs->vector);
78         cpu_hlt();
79
80         return 0;
81 }
82
83 static int int_unknown_handler(void)
84 {
85         debug("Unsupported software interrupt #0x%x eax 0x%x\n",
86               M.x86.intno, M.x86.R_EAX);
87
88         return -1;
89 }
90
91 /* setup interrupt handlers for mainboard */
92 void bios_set_interrupt_handler(int intnum, int (*int_func)(void))
93 {
94         int_handler[intnum] = int_func;
95 }
96
97 static void setup_interrupt_handlers(void)
98 {
99         int i;
100
101         /*
102          * The first 16 int_handler functions are not BIOS services,
103          * but the CPU-generated exceptions ("hardware interrupts")
104          */
105         for (i = 0; i < 0x10; i++)
106                 int_handler[i] = &int_exception_handler;
107
108         /* Mark all other int_handler calls as unknown first */
109         for (i = 0x10; i < 0x100; i++) {
110                 /* Skip if bios_set_interrupt_handler() isn't called first */
111                 if (int_handler[i])
112                         continue;
113
114                  /*
115                   * Now set the default functions that are actually needed
116                   * to initialize the option roms. The board may override
117                   * these with bios_set_interrupt_handler()
118                  */
119                 switch (i) {
120                 case 0x10:
121                         int_handler[0x10] = &int10_handler;
122                         break;
123                 case 0x12:
124                         int_handler[0x12] = &int12_handler;
125                         break;
126                 case 0x16:
127                         int_handler[0x16] = &int16_handler;
128                         break;
129                 case 0x1a:
130                         int_handler[0x1a] = &int1a_handler;
131                         break;
132                 default:
133                         int_handler[i] = &int_unknown_handler;
134                         break;
135                 }
136         }
137 }
138
139 static void write_idt_stub(void *target, u8 intnum)
140 {
141         unsigned char *codeptr;
142
143         codeptr = (unsigned char *)target;
144         memcpy(codeptr, &__idt_handler, __idt_handler_size);
145         codeptr[3] = intnum; /* modify int# in the code stub. */
146 }
147
148 static void setup_realmode_idt(void)
149 {
150         struct realmode_idt *idts = NULL;
151         int i;
152
153         /*
154          * Copy IDT stub code for each interrupt. This might seem wasteful
155          * but it is really simple
156          */
157          for (i = 0; i < 256; i++) {
158                 idts[i].cs = 0;
159                 idts[i].offset = 0x1000 + (i * __idt_handler_size);
160                 write_idt_stub((void *)((ulong)idts[i].offset), i);
161         }
162
163         /*
164          * Many option ROMs use the hard coded interrupt entry points in the
165          * system bios. So install them at the known locations.
166          */
167
168         /* int42 is the relocated int10 */
169         write_idt_stub((void *)0xff065, 0x42);
170         /* BIOS Int 11 Handler F000:F84D */
171         write_idt_stub((void *)0xff84d, 0x11);
172         /* BIOS Int 12 Handler F000:F841 */
173         write_idt_stub((void *)0xff841, 0x12);
174         /* BIOS Int 13 Handler F000:EC59 */
175         write_idt_stub((void *)0xfec59, 0x13);
176         /* BIOS Int 14 Handler F000:E739 */
177         write_idt_stub((void *)0xfe739, 0x14);
178         /* BIOS Int 15 Handler F000:F859 */
179         write_idt_stub((void *)0xff859, 0x15);
180         /* BIOS Int 16 Handler F000:E82E */
181         write_idt_stub((void *)0xfe82e, 0x16);
182         /* BIOS Int 17 Handler F000:EFD2 */
183         write_idt_stub((void *)0xfefd2, 0x17);
184         /* ROM BIOS Int 1A Handler F000:FE6E */
185         write_idt_stub((void *)0xffe6e, 0x1a);
186 }
187
188 #ifdef CONFIG_FRAMEBUFFER_SET_VESA_MODE
189 static u8 vbe_get_mode_info(struct vbe_mode_info *mi)
190 {
191         u16 buffer_seg;
192         u16 buffer_adr;
193         char *buffer;
194
195         debug("VBE: Getting information about VESA mode %04x\n",
196               mi->video_mode);
197         buffer = PTR_TO_REAL_MODE(asm_realmode_buffer);
198         buffer_seg = (((unsigned long)buffer) >> 4) & 0xff00;
199         buffer_adr = ((unsigned long)buffer) & 0xffff;
200
201         realmode_interrupt(0x10, VESA_GET_MODE_INFO, 0x0000, mi->video_mode,
202                            0x0000, buffer_seg, buffer_adr);
203         memcpy(mi->mode_info_block, buffer, sizeof(struct vbe_mode_info));
204         mi->valid = true;
205
206         return 0;
207 }
208
209 static u8 vbe_set_mode(struct vbe_mode_info *mi)
210 {
211         int video_mode = mi->video_mode;
212
213         debug("VBE: Setting VESA mode %#04x\n", video_mode);
214         /* request linear framebuffer mode */
215         video_mode |= (1 << 14);
216         /* don't clear the framebuffer, we do that later */
217         video_mode |= (1 << 15);
218         realmode_interrupt(0x10, VESA_SET_MODE, video_mode,
219                            0x0000, 0x0000, 0x0000, 0x0000);
220
221         return 0;
222 }
223
224 static void vbe_set_graphics(int vesa_mode, struct vbe_mode_info *mode_info)
225 {
226         unsigned char *framebuffer;
227
228         mode_info->video_mode = (1 << 14) | vesa_mode;
229         vbe_get_mode_info(mode_info);
230
231         framebuffer = (unsigned char *)(ulong)mode_info->vesa.phys_base_ptr;
232         debug("VBE: resolution:  %dx%d@%d\n",
233               le16_to_cpu(mode_info->vesa.x_resolution),
234               le16_to_cpu(mode_info->vesa.y_resolution),
235               mode_info->vesa.bits_per_pixel);
236         debug("VBE: framebuffer: %p\n", framebuffer);
237         if (!framebuffer) {
238                 debug("VBE: Mode does not support linear framebuffer\n");
239                 return;
240         }
241
242         mode_info->video_mode &= 0x3ff;
243         vbe_set_mode(mode_info);
244 }
245 #endif /* CONFIG_FRAMEBUFFER_SET_VESA_MODE */
246
247 void bios_run_on_x86(struct udevice *dev, unsigned long addr, int vesa_mode,
248                      struct vbe_mode_info *mode_info)
249 {
250         pci_dev_t pcidev = dm_pci_get_bdf(dev);
251         u32 num_dev;
252
253         num_dev = PCI_BUS(pcidev) << 8 | PCI_DEV(pcidev) << 3 |
254                         PCI_FUNC(pcidev);
255
256         /* Needed to avoid exceptions in some ROMs */
257         interrupt_init();
258
259         /* Set up some legacy information in the F segment */
260         setup_rombios();
261
262         /* Set up C interrupt handlers */
263         setup_interrupt_handlers();
264
265         /* Set up real-mode IDT */
266         setup_realmode_idt();
267
268         /* Make sure the code is placed. */
269         setup_realmode_code();
270
271         debug("Calling Option ROM at %lx, pci device %#x...", addr, num_dev);
272
273         /* Option ROM entry point is at OPROM start + 3 */
274         realmode_call(addr + 0x0003, num_dev, 0xffff, 0x0000, 0xffff, 0x0,
275                       0x0);
276         debug("done\n");
277
278 #ifdef CONFIG_FRAMEBUFFER_SET_VESA_MODE
279         if (vesa_mode != -1)
280                 vbe_set_graphics(vesa_mode, mode_info);
281 #endif
282 }
283
284 asmlinkage int interrupt_handler(u32 intnumber, u32 gsfs, u32 dses,
285                                  u32 edi, u32 esi, u32 ebp, u32 esp,
286                                  u32 ebx, u32 edx, u32 ecx, u32 eax,
287                                  u32 cs_ip, u16 stackflags)
288 {
289         u32 ip;
290         u32 cs;
291         u32 flags;
292         int ret = 0;
293
294         ip = cs_ip & 0xffff;
295         cs = cs_ip >> 16;
296         flags = stackflags;
297
298 #ifdef CONFIG_REALMODE_DEBUG
299         debug("oprom: INT# 0x%x\n", intnumber);
300         debug("oprom: eax: %08x ebx: %08x ecx: %08x edx: %08x\n",
301               eax, ebx, ecx, edx);
302         debug("oprom: ebp: %08x esp: %08x edi: %08x esi: %08x\n",
303               ebp, esp, edi, esi);
304         debug("oprom:  ip: %04x      cs: %04x   flags: %08x\n",
305               ip, cs, flags);
306         debug("oprom: stackflags = %04x\n", stackflags);
307 #endif
308
309         /*
310          * Fetch arguments from the stack and put them to a place
311          * suitable for the interrupt handlers
312          */
313         M.x86.R_EAX = eax;
314         M.x86.R_ECX = ecx;
315         M.x86.R_EDX = edx;
316         M.x86.R_EBX = ebx;
317         M.x86.R_ESP = esp;
318         M.x86.R_EBP = ebp;
319         M.x86.R_ESI = esi;
320         M.x86.R_EDI = edi;
321         M.x86.intno = intnumber;
322         M.x86.R_EIP = ip;
323         M.x86.R_CS = cs;
324         M.x86.R_EFLG = flags;
325
326         /* Call the interrupt handler for this interrupt number */
327         ret = int_handler[intnumber]();
328
329         /*
330          * This code is quite strange...
331          *
332          * Put registers back on the stack. The assembler code will pop them
333          * later. We force (volatile!) changing the values of the parameters
334          * of this function. We know that they stay alive on the stack after
335          * we leave this function.
336          */
337         *(volatile u32 *)&eax = M.x86.R_EAX;
338         *(volatile u32 *)&ecx = M.x86.R_ECX;
339         *(volatile u32 *)&edx = M.x86.R_EDX;
340         *(volatile u32 *)&ebx = M.x86.R_EBX;
341         *(volatile u32 *)&esi = M.x86.R_ESI;
342         *(volatile u32 *)&edi = M.x86.R_EDI;
343         flags = M.x86.R_EFLG;
344
345         /* Pass success or error back to our caller via the CARRY flag */
346         if (ret) {
347                 flags &= ~1; /* no error: clear carry */
348         } else {
349                 debug("int%02x call returned error\n", intnumber);
350                 flags |= 1;  /* error: set carry */
351         }
352         *(volatile u16 *)&stackflags = flags;
353
354         return ret;
355 }