1 /*
2  * Copyright (C) 2010 Francisco Jerez.
3  * All Rights Reserved.
4  *
5  * Permission is hereby granted, free of charge, to any person obtaining
6  * a copy of this software and associated documentation files (the
7  * "Software"), to deal in the Software without restriction, including
8  * without limitation the rights to use, copy, modify, merge, publish,
9  * distribute, sublicense, and/or sell copies of the Software, and to
10  * permit persons to whom the Software is furnished to do so, subject to
11  * the following conditions:
12  *
13  * The above copyright notice and this permission notice (including the
14  * next paragraph) shall be included in all copies or substantial
15  * portions of the Software.
16  *
17  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
18  * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
19  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
20  * IN NO EVENT SHALL THE COPYRIGHT OWNER(S) AND/OR ITS SUPPLIERS BE
21  * LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
22  * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
23  * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
24  *
25  */
26 #include "nv04.h"
27 #include "fbmem.h"
28 
29 #include <subdev/bios.h>
30 #include <subdev/bios/init.h>
31 #include <subdev/bios/pll.h>
32 #include <subdev/clk/pll.h>
33 #include <subdev/vga.h>
34 
35 static void
36 nv04_devinit_meminit(struct nvkm_devinit *init)
37 {
38 	struct nvkm_subdev *subdev = &init->subdev;
39 	struct nvkm_device *device = subdev->device;
40 	u32 patt = 0xdeadbeef;
41 	struct io_mapping *fb;
42 	int i;
43 
44 	/* Map the framebuffer aperture */
45 	fb = fbmem_init(device);
46 	if (!fb) {
47 		nvkm_error(subdev, "failed to map fb\n");
48 		return;
49 	}
50 
51 	/* Sequencer and refresh off */
52 	nvkm_wrvgas(device, 0, 1, nvkm_rdvgas(device, 0, 1) | 0x20);
53 	nvkm_mask(device, NV04_PFB_DEBUG_0, 0, NV04_PFB_DEBUG_0_REFRESH_OFF);
54 
55 	nvkm_mask(device, NV04_PFB_BOOT_0, ~0,
56 		      NV04_PFB_BOOT_0_RAM_AMOUNT_16MB |
57 		      NV04_PFB_BOOT_0_RAM_WIDTH_128 |
58 		      NV04_PFB_BOOT_0_RAM_TYPE_SGRAM_16MBIT);
59 
60 	for (i = 0; i < 4; i++)
61 		fbmem_poke(fb, 4 * i, patt);
62 
63 	fbmem_poke(fb, 0x400000, patt + 1);
64 
65 	if (fbmem_peek(fb, 0) == patt + 1) {
66 		nvkm_mask(device, NV04_PFB_BOOT_0,
67 			      NV04_PFB_BOOT_0_RAM_TYPE,
68 			      NV04_PFB_BOOT_0_RAM_TYPE_SDRAM_16MBIT);
69 		nvkm_mask(device, NV04_PFB_DEBUG_0,
70 			      NV04_PFB_DEBUG_0_REFRESH_OFF, 0);
71 
72 		for (i = 0; i < 4; i++)
73 			fbmem_poke(fb, 4 * i, patt);
74 
75 		if ((fbmem_peek(fb, 0xc) & 0xffff) != (patt & 0xffff))
76 			nvkm_mask(device, NV04_PFB_BOOT_0,
77 				      NV04_PFB_BOOT_0_RAM_WIDTH_128 |
78 				      NV04_PFB_BOOT_0_RAM_AMOUNT,
79 				      NV04_PFB_BOOT_0_RAM_AMOUNT_8MB);
80 	} else
81 	if ((fbmem_peek(fb, 0xc) & 0xffff0000) != (patt & 0xffff0000)) {
82 		nvkm_mask(device, NV04_PFB_BOOT_0,
83 			      NV04_PFB_BOOT_0_RAM_WIDTH_128 |
84 			      NV04_PFB_BOOT_0_RAM_AMOUNT,
85 			      NV04_PFB_BOOT_0_RAM_AMOUNT_4MB);
86 	} else
87 	if (fbmem_peek(fb, 0) != patt) {
88 		if (fbmem_readback(fb, 0x800000, patt))
89 			nvkm_mask(device, NV04_PFB_BOOT_0,
90 				      NV04_PFB_BOOT_0_RAM_AMOUNT,
91 				      NV04_PFB_BOOT_0_RAM_AMOUNT_8MB);
92 		else
93 			nvkm_mask(device, NV04_PFB_BOOT_0,
94 				      NV04_PFB_BOOT_0_RAM_AMOUNT,
95 				      NV04_PFB_BOOT_0_RAM_AMOUNT_4MB);
96 
97 		nvkm_mask(device, NV04_PFB_BOOT_0, NV04_PFB_BOOT_0_RAM_TYPE,
98 			      NV04_PFB_BOOT_0_RAM_TYPE_SGRAM_8MBIT);
99 	} else
100 	if (!fbmem_readback(fb, 0x800000, patt)) {
101 		nvkm_mask(device, NV04_PFB_BOOT_0, NV04_PFB_BOOT_0_RAM_AMOUNT,
102 			      NV04_PFB_BOOT_0_RAM_AMOUNT_8MB);
103 
104 	}
105 
106 	/* Refresh on, sequencer on */
107 	nvkm_mask(device, NV04_PFB_DEBUG_0, NV04_PFB_DEBUG_0_REFRESH_OFF, 0);
108 	nvkm_wrvgas(device, 0, 1, nvkm_rdvgas(device, 0, 1) & ~0x20);
109 	fbmem_fini(fb);
110 }
111 
112 static int
113 powerctrl_1_shift(int chip_version, int reg)
114 {
115 	int shift = -4;
116 
117 	if (chip_version < 0x17 || chip_version == 0x1a || chip_version == 0x20)
118 		return shift;
119 
120 	switch (reg) {
121 	case 0x680520:
122 		shift += 4; fallthrough;
123 	case 0x680508:
124 		shift += 4; fallthrough;
125 	case 0x680504:
126 		shift += 4; fallthrough;
127 	case 0x680500:
128 		shift += 4;
129 	}
130 
131 	/*
132 	 * the shift for vpll regs is only used for nv3x chips with a single
133 	 * stage pll
134 	 */
135 	if (shift > 4 && (chip_version < 0x32 || chip_version == 0x35 ||
136 			  chip_version == 0x36 || chip_version >= 0x40))
137 		shift = -4;
138 
139 	return shift;
140 }
141 
142 void
143 setPLL_single(struct nvkm_devinit *init, u32 reg,
144 	      struct nvkm_pll_vals *pv)
145 {
146 	struct nvkm_device *device = init->subdev.device;
147 	int chip_version = device->bios->version.chip;
148 	uint32_t oldpll = nvkm_rd32(device, reg);
149 	int oldN = (oldpll >> 8) & 0xff, oldM = oldpll & 0xff;
150 	uint32_t pll = (oldpll & 0xfff80000) | pv->log2P << 16 | pv->NM1;
151 	uint32_t saved_powerctrl_1 = 0;
152 	int shift_powerctrl_1 = powerctrl_1_shift(chip_version, reg);
153 
154 	if (oldpll == pll)
155 		return;	/* already set */
156 
157 	if (shift_powerctrl_1 >= 0) {
158 		saved_powerctrl_1 = nvkm_rd32(device, 0x001584);
159 		nvkm_wr32(device, 0x001584,
160 			(saved_powerctrl_1 & ~(0xf << shift_powerctrl_1)) |
161 			1 << shift_powerctrl_1);
162 	}
163 
164 	if (oldM && pv->M1 && (oldN / oldM < pv->N1 / pv->M1))
165 		/* upclock -- write new post divider first */
166 		nvkm_wr32(device, reg, pv->log2P << 16 | (oldpll & 0xffff));
167 	else
168 		/* downclock -- write new NM first */
169 		nvkm_wr32(device, reg, (oldpll & 0xffff0000) | pv->NM1);
170 
171 	if ((chip_version < 0x17 || chip_version == 0x1a) &&
172 	    chip_version != 0x11)
173 		/* wait a bit on older chips */
174 		msleep(64);
175 	nvkm_rd32(device, reg);
176 
177 	/* then write the other half as well */
178 	nvkm_wr32(device, reg, pll);
179 
180 	if (shift_powerctrl_1 >= 0)
181 		nvkm_wr32(device, 0x001584, saved_powerctrl_1);
182 }
183 
184 static uint32_t
185 new_ramdac580(uint32_t reg1, bool ss, uint32_t ramdac580)
186 {
187 	bool head_a = (reg1 == 0x680508);
188 
189 	if (ss)	/* single stage pll mode */
190 		ramdac580 |= head_a ? 0x00000100 : 0x10000000;
191 	else
192 		ramdac580 &= head_a ? 0xfffffeff : 0xefffffff;
193 
194 	return ramdac580;
195 }
196 
197 void
198 setPLL_double_highregs(struct nvkm_devinit *init, u32 reg1,
199 		       struct nvkm_pll_vals *pv)
200 {
201 	struct nvkm_device *device = init->subdev.device;
202 	int chip_version = device->bios->version.chip;
203 	bool nv3035 = chip_version == 0x30 || chip_version == 0x35;
204 	uint32_t reg2 = reg1 + ((reg1 == 0x680520) ? 0x5c : 0x70);
205 	uint32_t oldpll1 = nvkm_rd32(device, reg1);
206 	uint32_t oldpll2 = !nv3035 ? nvkm_rd32(device, reg2) : 0;
207 	uint32_t pll1 = (oldpll1 & 0xfff80000) | pv->log2P << 16 | pv->NM1;
208 	uint32_t pll2 = (oldpll2 & 0x7fff0000) | 1 << 31 | pv->NM2;
209 	uint32_t oldramdac580 = 0, ramdac580 = 0;
210 	bool single_stage = !pv->NM2 || pv->N2 == pv->M2;	/* nv41+ only */
211 	uint32_t saved_powerctrl_1 = 0, savedc040 = 0;
212 	int shift_powerctrl_1 = powerctrl_1_shift(chip_version, reg1);
213 
214 	/* model specific additions to generic pll1 and pll2 set up above */
215 	if (nv3035) {
216 		pll1 = (pll1 & 0xfcc7ffff) | (pv->N2 & 0x18) << 21 |
217 		       (pv->N2 & 0x7) << 19 | 8 << 4 | (pv->M2 & 7) << 4;
218 		pll2 = 0;
219 	}
220 	if (chip_version > 0x40 && reg1 >= 0x680508) { /* !nv40 */
221 		oldramdac580 = nvkm_rd32(device, 0x680580);
222 		ramdac580 = new_ramdac580(reg1, single_stage, oldramdac580);
223 		if (oldramdac580 != ramdac580)
224 			oldpll1 = ~0;	/* force mismatch */
225 		if (single_stage)
226 			/* magic value used by nvidia in single stage mode */
227 			pll2 |= 0x011f;
228 	}
229 	if (chip_version > 0x70)
230 		/* magic bits set by the blob (but not the bios) on g71-73 */
231 		pll1 = (pll1 & 0x7fffffff) | (single_stage ? 0x4 : 0xc) << 28;
232 
233 	if (oldpll1 == pll1 && oldpll2 == pll2)
234 		return;	/* already set */
235 
236 	if (shift_powerctrl_1 >= 0) {
237 		saved_powerctrl_1 = nvkm_rd32(device, 0x001584);
238 		nvkm_wr32(device, 0x001584,
239 			(saved_powerctrl_1 & ~(0xf << shift_powerctrl_1)) |
240 			1 << shift_powerctrl_1);
241 	}
242 
243 	if (chip_version >= 0x40) {
244 		int shift_c040 = 14;
245 
246 		switch (reg1) {
247 		case 0x680504:
248 			shift_c040 += 2; fallthrough;
249 		case 0x680500:
250 			shift_c040 += 2; fallthrough;
251 		case 0x680520:
252 			shift_c040 += 2; fallthrough;
253 		case 0x680508:
254 			shift_c040 += 2;
255 		}
256 
257 		savedc040 = nvkm_rd32(device, 0xc040);
258 		if (shift_c040 != 14)
259 			nvkm_wr32(device, 0xc040, savedc040 & ~(3 << shift_c040));
260 	}
261 
262 	if (oldramdac580 != ramdac580)
263 		nvkm_wr32(device, 0x680580, ramdac580);
264 
265 	if (!nv3035)
266 		nvkm_wr32(device, reg2, pll2);
267 	nvkm_wr32(device, reg1, pll1);
268 
269 	if (shift_powerctrl_1 >= 0)
270 		nvkm_wr32(device, 0x001584, saved_powerctrl_1);
271 	if (chip_version >= 0x40)
272 		nvkm_wr32(device, 0xc040, savedc040);
273 }
274 
275 void
276 setPLL_double_lowregs(struct nvkm_devinit *init, u32 NMNMreg,
277 		      struct nvkm_pll_vals *pv)
278 {
279 	/* When setting PLLs, there is a merry game of disabling and enabling
280 	 * various bits of hardware during the process. This function is a
281 	 * synthesis of six nv4x traces, nearly each card doing a subtly
282 	 * different thing. With luck all the necessary bits for each card are
283 	 * combined herein. Without luck it deviates from each card's formula
284 	 * so as to not work on any :)
285 	 */
286 	struct nvkm_device *device = init->subdev.device;
287 	uint32_t Preg = NMNMreg - 4;
288 	bool mpll = Preg == 0x4020;
289 	uint32_t oldPval = nvkm_rd32(device, Preg);
290 	uint32_t NMNM = pv->NM2 << 16 | pv->NM1;
291 	uint32_t Pval = (oldPval & (mpll ? ~(0x77 << 16) : ~(7 << 16))) |
292 			0xc << 28 | pv->log2P << 16;
293 	uint32_t saved4600 = 0;
294 	/* some cards have different maskc040s */
295 	uint32_t maskc040 = ~(3 << 14), savedc040;
296 	bool single_stage = !pv->NM2 || pv->N2 == pv->M2;
297 
298 	if (nvkm_rd32(device, NMNMreg) == NMNM && (oldPval & 0xc0070000) == Pval)
299 		return;
300 
301 	if (Preg == 0x4000)
302 		maskc040 = ~0x333;
303 	if (Preg == 0x4058)
304 		maskc040 = ~(0xc << 24);
305 
306 	if (mpll) {
307 		struct nvbios_pll info;
308 		uint8_t Pval2;
309 
310 		if (nvbios_pll_parse(device->bios, Preg, &info))
311 			return;
312 
313 		Pval2 = pv->log2P + info.bias_p;
314 		if (Pval2 > info.max_p)
315 			Pval2 = info.max_p;
316 		Pval |= 1 << 28 | Pval2 << 20;
317 
318 		saved4600 = nvkm_rd32(device, 0x4600);
319 		nvkm_wr32(device, 0x4600, saved4600 | 8 << 28);
320 	}
321 	if (single_stage)
322 		Pval |= mpll ? 1 << 12 : 1 << 8;
323 
324 	nvkm_wr32(device, Preg, oldPval | 1 << 28);
325 	nvkm_wr32(device, Preg, Pval & ~(4 << 28));
326 	if (mpll) {
327 		Pval |= 8 << 20;
328 		nvkm_wr32(device, 0x4020, Pval & ~(0xc << 28));
329 		nvkm_wr32(device, 0x4038, Pval & ~(0xc << 28));
330 	}
331 
332 	savedc040 = nvkm_rd32(device, 0xc040);
333 	nvkm_wr32(device, 0xc040, savedc040 & maskc040);
334 
335 	nvkm_wr32(device, NMNMreg, NMNM);
336 	if (NMNMreg == 0x4024)
337 		nvkm_wr32(device, 0x403c, NMNM);
338 
339 	nvkm_wr32(device, Preg, Pval);
340 	if (mpll) {
341 		Pval &= ~(8 << 20);
342 		nvkm_wr32(device, 0x4020, Pval);
343 		nvkm_wr32(device, 0x4038, Pval);
344 		nvkm_wr32(device, 0x4600, saved4600);
345 	}
346 
347 	nvkm_wr32(device, 0xc040, savedc040);
348 
349 	if (mpll) {
350 		nvkm_wr32(device, 0x4020, Pval & ~(1 << 28));
351 		nvkm_wr32(device, 0x4038, Pval & ~(1 << 28));
352 	}
353 }
354 
355 int
356 nv04_devinit_pll_set(struct nvkm_devinit *devinit, u32 type, u32 freq)
357 {
358 	struct nvkm_subdev *subdev = &devinit->subdev;
359 	struct nvkm_bios *bios = subdev->device->bios;
360 	struct nvkm_pll_vals pv;
361 	struct nvbios_pll info;
362 	int cv = bios->version.chip;
363 	int N1, M1, N2, M2, P;
364 	int ret;
365 
366 	ret = nvbios_pll_parse(bios, type > 0x405c ? type : type - 4, &info);
367 	if (ret)
368 		return ret;
369 
370 	ret = nv04_pll_calc(subdev, &info, freq, &N1, &M1, &N2, &M2, &P);
371 	if (!ret)
372 		return -EINVAL;
373 
374 	pv.refclk = info.refclk;
375 	pv.N1 = N1;
376 	pv.M1 = M1;
377 	pv.N2 = N2;
378 	pv.M2 = M2;
379 	pv.log2P = P;
380 
381 	if (cv == 0x30 || cv == 0x31 || cv == 0x35 || cv == 0x36 ||
382 	    cv >= 0x40) {
383 		if (type > 0x405c)
384 			setPLL_double_highregs(devinit, type, &pv);
385 		else
386 			setPLL_double_lowregs(devinit, type, &pv);
387 	} else
388 		setPLL_single(devinit, type, &pv);
389 
390 	return 0;
391 }
392 
393 int
394 nv04_devinit_post(struct nvkm_devinit *init, bool execute)
395 {
396 	return nvbios_post(&init->subdev, execute);
397 }
398 
399 void
400 nv04_devinit_preinit(struct nvkm_devinit *base)
401 {
402 	struct nv04_devinit *init = nv04_devinit(base);
403 	struct nvkm_subdev *subdev = &init->base.subdev;
404 	struct nvkm_device *device = subdev->device;
405 
406 	/* make i2c busses accessible */
407 	nvkm_mask(device, 0x000200, 0x00000001, 0x00000001);
408 
409 	/* unslave crtcs */
410 	if (init->owner < 0)
411 		init->owner = nvkm_rdvgaowner(device);
412 	nvkm_wrvgaowner(device, 0);
413 
414 	if (!init->base.post) {
415 		u32 htotal = nvkm_rdvgac(device, 0, 0x06);
416 		htotal |= (nvkm_rdvgac(device, 0, 0x07) & 0x01) << 8;
417 		htotal |= (nvkm_rdvgac(device, 0, 0x07) & 0x20) << 4;
418 		htotal |= (nvkm_rdvgac(device, 0, 0x25) & 0x01) << 10;
419 		htotal |= (nvkm_rdvgac(device, 0, 0x41) & 0x01) << 11;
420 		if (!htotal) {
421 			nvkm_debug(subdev, "adaptor not initialised\n");
422 			init->base.post = true;
423 		}
424 	}
425 }
426 
427 void *
428 nv04_devinit_dtor(struct nvkm_devinit *base)
429 {
430 	struct nv04_devinit *init = nv04_devinit(base);
431 	/* restore vga owner saved at first init */
432 	nvkm_wrvgaowner(init->base.subdev.device, init->owner);
433 	return init;
434 }
435 
436 int
437 nv04_devinit_new_(const struct nvkm_devinit_func *func,
438 		  struct nvkm_device *device, int index,
439 		  struct nvkm_devinit **pinit)
440 {
441 	struct nv04_devinit *init;
442 
443 	if (!(init = kzalloc(sizeof(*init), GFP_KERNEL)))
444 		return -ENOMEM;
445 	*pinit = &init->base;
446 
447 	nvkm_devinit_ctor(func, device, index, &init->base);
448 	init->owner = -1;
449 	return 0;
450 }
451 
452 static const struct nvkm_devinit_func
453 nv04_devinit = {
454 	.dtor = nv04_devinit_dtor,
455 	.preinit = nv04_devinit_preinit,
456 	.post = nv04_devinit_post,
457 	.meminit = nv04_devinit_meminit,
458 	.pll_set = nv04_devinit_pll_set,
459 };
460 
461 int
462 nv04_devinit_new(struct nvkm_device *device, int index,
463 		 struct nvkm_devinit **pinit)
464 {
465 	return nv04_devinit_new_(&nv04_devinit, device, index, pinit);
466 }
467