undipci_probe() has to calculate busdevfn anyway, so we may as well pass
[gpxe.git] / src / arch / i386 / drivers / net / undiload.c
1 /*
2  * Copyright (C) 2007 Michael Brown <mbrown@fensystems.co.uk>.
3  *
4  * This program is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU General Public License as
6  * published by the Free Software Foundation; either version 2 of the
7  * License, or any later version.
8  *
9  * This program is distributed in the hope that it will be useful, but
10  * WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * General Public License for more details.
13  *
14  * You should have received a copy of the GNU General Public License
15  * along with this program; if not, write to the Free Software
16  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17  */
18
19 #include <stdint.h>
20 #include <stdlib.h>
21 #include <string.h>
22 #include <pxe.h>
23 #include <realmode.h>
24 #include <bios.h>
25 #include <pnpbios.h>
26 #include <gpxe/pci.h>
27 #include <undi.h>
28 #include <undirom.h>
29 #include <undiload.h>
30
31 /** @file
32  *
33  * UNDI load/unload
34  *
35  */
36
37 /** Parameter block for calling UNDI loader */
38 static struct s_UNDI_LOADER __data16 ( undi_loader );
39 #define undi_loader __use_data16 ( undi_loader )
40
41 /** UNDI loader entry point */
42 static SEGOFF16_t __data16 ( undi_loader_entry );
43 #define undi_loader_entry __use_data16 ( undi_loader_entry )
44
45 /**
46  * Call UNDI loader to create a pixie
47  *
48  * @v undi              UNDI device
49  * @v undirom           UNDI ROM
50  * @ret rc              Return status code
51  */
52 int undi_load ( struct undi_device *undi, struct undi_rom *undirom ) {
53         struct s_PXE ppxe;
54         uint16_t fbms;
55         unsigned int fbms_seg;
56         uint16_t exit;
57         int rc;
58
59         /* Set up START_UNDI parameters */
60         memset ( &undi_loader, 0, sizeof ( undi_loader ) );
61         undi_loader.AX = undi->pci_busdevfn;
62         undi_loader.BX = undi->isapnp_csn;
63         undi_loader.DX = undi->isapnp_read_port;
64         undi_loader.ES = BIOS_SEG;
65         undi_loader.DI = find_pnp_bios();
66
67         /* Allocate base memory for PXE stack */
68         get_real ( fbms, BDA_SEG, BDA_FBMS );
69         undi->restore_fbms = fbms;
70         fbms_seg = ( fbms << 6 );
71         fbms_seg -= ( ( undirom->code_size + 0x0f ) >> 4 );
72         undi_loader.UNDI_CS = fbms_seg;
73         fbms_seg -= ( ( undirom->data_size + 0x0f ) >> 4 );
74         undi_loader.UNDI_DS = fbms_seg;
75
76         /* Debug info */
77         DBGC ( undi, "UNDI %p loading UNDI ROM %p to CS %04x DS %04x for ",
78                undi, undirom, undi_loader.UNDI_CS, undi_loader.UNDI_DS );
79         if ( undi->pci_busdevfn != 0xffff ) {
80                 unsigned int bus = ( undi->pci_busdevfn >> 8 );
81                 unsigned int devfn = ( undi->pci_busdevfn & 0xff );
82                 DBGC ( undi, "PCI %02x:%02x.%x\n",
83                        bus, PCI_SLOT ( devfn ), PCI_FUNC ( devfn ) );
84         }
85         if ( undi->isapnp_csn != 0xffff ) {
86                 DBGC ( undi, "ISAPnP(%04x) CSN %04x\n",
87                        undi->isapnp_read_port, undi->isapnp_csn );
88         }
89
90         /* Call loader */
91         undi_loader_entry = undirom->loader_entry;
92         __asm__ __volatile__ ( REAL_CODE ( "pushw %%ds\n\t"
93                                            "pushw %%ax\n\t"
94                                            "lcall *%c2\n\t"
95                                            "addw $4, %%sp\n\t" )
96                                : "=a" ( exit )
97                                : "a" ( & __from_data16 ( undi_loader ) ),
98                                  "p" ( & __from_data16 ( undi_loader_entry ) )
99                                : "ebx", "ecx", "edx", "esi", "edi", "ebp" );
100
101         /* UNDI API calls may rudely change the status of A20 and not
102          * bother to restore it afterwards.  Intel is known to be
103          * guilty of this.
104          *
105          * Note that we will return to this point even if A20 gets
106          * screwed up by the UNDI driver, because Etherboot always
107          * resides in an even megabyte of RAM.
108          */     
109         gateA20_set();
110
111         if ( exit != PXENV_EXIT_SUCCESS ) {
112                 rc = -undi_loader.Status;
113                 if ( rc == 0 ) /* Paranoia */
114                         rc = -EIO;
115                 DBGC ( undi, "UNDI %p loader failed: %s\n",
116                        undi, strerror ( rc ) );
117                 return rc;
118         }
119
120         /* Populate PXE device structure */
121         undi->pxenv = undi_loader.PXENVptr;
122         undi->ppxe = undi_loader.PXEptr;
123         copy_from_real ( &ppxe, undi->ppxe.segment, undi->ppxe.offset,
124                          sizeof ( ppxe ) );
125         undi->entry = ppxe.EntryPointSP;
126         DBGC ( undi, "UNDI %p loaded PXENV+ %04x:%04x !PXE %04x:%04x "
127                "entry %04x:%04x\n", undi, undi->pxenv.segment,
128                undi->pxenv.offset, undi->ppxe.segment, undi->ppxe.offset,
129                undi->entry.segment, undi->entry.offset );
130
131         /* Update free base memory counter */
132         fbms = ( fbms_seg >> 6 );
133         put_real ( fbms, BDA_SEG, BDA_FBMS );
134         undi->fbms = fbms;
135         DBGC ( undi, "UNDI %p using [%d,%d) kB of base memory\n",
136                undi, undi->fbms, undi->restore_fbms );
137
138         return 0;
139 }
140
141 /**
142  * Unload a pixie
143  *
144  * @v undi              UNDI device
145  * @ret rc              Return status code
146  *
147  * Erases the PXENV+ and !PXE signatures, and frees the used base
148  * memory (if possible).
149  */
150 int undi_unload ( struct undi_device *undi ) {
151         static uint32_t dead = 0xdeaddead;
152         uint16_t fbms;
153
154         DBGC ( undi, "UNDI %p unloading\n", undi );
155
156         /* Erase signatures */
157         if ( undi->pxenv.segment )
158                 put_real ( dead, undi->pxenv.segment, undi->pxenv.offset );
159         if ( undi->ppxe.segment )
160                 put_real ( dead, undi->ppxe.segment, undi->ppxe.offset );
161
162         /* Free base memory, if possible */
163         get_real ( fbms, BDA_SEG, BDA_FBMS );
164         if ( fbms == undi->fbms ) {
165                 DBGC ( undi, "UNDI %p freeing [%d,%d) kB of base memory\n",
166                        undi, undi->fbms, undi->restore_fbms );
167                 fbms = undi->restore_fbms;
168                 put_real ( fbms, BDA_SEG, BDA_FBMS );
169                 return 0;
170         } else {
171                 DBGC ( undi, "UNDI %p leaking [%d,%d) kB of base memory\n",
172                        undi, undi->fbms, undi->restore_fbms );
173                 return -EBUSY;
174         }
175 }