Add the rt linux 4.1.3-rt3 as base
[kvmfornfv.git] / kernel / sound / pci / asihpi / hpi6000.c
1 /******************************************************************************
2
3     AudioScience HPI driver
4     Copyright (C) 1997-2011  AudioScience Inc. <support@audioscience.com>
5
6     This program is free software; you can redistribute it and/or modify
7     it under the terms of version 2 of the GNU General Public License as
8     published by the Free Software Foundation;
9
10     This program is distributed in the hope that it will be useful,
11     but WITHOUT ANY WARRANTY; without even the implied warranty of
12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13     GNU General Public License for more details.
14
15     You should have received a copy of the GNU General Public License
16     along with this program; if not, write to the Free Software
17     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
18
19  Hardware Programming Interface (HPI) for AudioScience ASI6200 series adapters.
20  These PCI bus adapters are based on the TI C6711 DSP.
21
22  Exported functions:
23  void HPI_6000(struct hpi_message *phm, struct hpi_response *phr)
24
25  #defines
26  HIDE_PCI_ASSERTS to show the PCI asserts
27  PROFILE_DSP2 get profile data from DSP2 if present (instead of DSP 1)
28
29 (C) Copyright AudioScience Inc. 1998-2003
30 *******************************************************************************/
31 #define SOURCEFILE_NAME "hpi6000.c"
32
33 #include "hpi_internal.h"
34 #include "hpimsginit.h"
35 #include "hpidebug.h"
36 #include "hpi6000.h"
37 #include "hpidspcd.h"
38 #include "hpicmn.h"
39
40 #define HPI_HIF_BASE (0x00000200)       /* start of C67xx internal RAM */
41 #define HPI_HIF_ADDR(member) \
42         (HPI_HIF_BASE + offsetof(struct hpi_hif_6000, member))
43 #define HPI_HIF_ERROR_MASK      0x4000
44
45 /* HPI6000 specific error codes */
46 #define HPI6000_ERROR_BASE 900  /* not actually used anywhere */
47
48 /* operational/messaging errors */
49 #define HPI6000_ERROR_MSG_RESP_IDLE_TIMEOUT             901
50 #define HPI6000_ERROR_RESP_GET_LEN                      902
51 #define HPI6000_ERROR_MSG_RESP_GET_RESP_ACK             903
52 #define HPI6000_ERROR_MSG_GET_ADR                       904
53 #define HPI6000_ERROR_RESP_GET_ADR                      905
54 #define HPI6000_ERROR_MSG_RESP_BLOCKWRITE32             906
55 #define HPI6000_ERROR_MSG_RESP_BLOCKREAD32              907
56
57 #define HPI6000_ERROR_CONTROL_CACHE_PARAMS              909
58
59 #define HPI6000_ERROR_SEND_DATA_IDLE_TIMEOUT            911
60 #define HPI6000_ERROR_SEND_DATA_ACK                     912
61 #define HPI6000_ERROR_SEND_DATA_ADR                     913
62 #define HPI6000_ERROR_SEND_DATA_TIMEOUT                 914
63 #define HPI6000_ERROR_SEND_DATA_CMD                     915
64 #define HPI6000_ERROR_SEND_DATA_WRITE                   916
65 #define HPI6000_ERROR_SEND_DATA_IDLECMD                 917
66
67 #define HPI6000_ERROR_GET_DATA_IDLE_TIMEOUT             921
68 #define HPI6000_ERROR_GET_DATA_ACK                      922
69 #define HPI6000_ERROR_GET_DATA_CMD                      923
70 #define HPI6000_ERROR_GET_DATA_READ                     924
71 #define HPI6000_ERROR_GET_DATA_IDLECMD                  925
72
73 #define HPI6000_ERROR_CONTROL_CACHE_ADDRLEN             951
74 #define HPI6000_ERROR_CONTROL_CACHE_READ                952
75 #define HPI6000_ERROR_CONTROL_CACHE_FLUSH               953
76
77 #define HPI6000_ERROR_MSG_RESP_GETRESPCMD               961
78 #define HPI6000_ERROR_MSG_RESP_IDLECMD                  962
79
80 /* Initialisation/bootload errors */
81 #define HPI6000_ERROR_UNHANDLED_SUBSYS_ID               930
82
83 /* can't access PCI2040 */
84 #define HPI6000_ERROR_INIT_PCI2040                      931
85 /* can't access DSP HPI i/f */
86 #define HPI6000_ERROR_INIT_DSPHPI                       932
87 /* can't access internal DSP memory */
88 #define HPI6000_ERROR_INIT_DSPINTMEM                    933
89 /* can't access SDRAM - test#1 */
90 #define HPI6000_ERROR_INIT_SDRAM1                       934
91 /* can't access SDRAM - test#2 */
92 #define HPI6000_ERROR_INIT_SDRAM2                       935
93
94 #define HPI6000_ERROR_INIT_VERIFY                       938
95
96 #define HPI6000_ERROR_INIT_NOACK                        939
97
98 #define HPI6000_ERROR_INIT_PLDTEST1                     941
99 #define HPI6000_ERROR_INIT_PLDTEST2                     942
100
101 /* local defines */
102
103 #define HIDE_PCI_ASSERTS
104 #define PROFILE_DSP2
105
106 /* for PCI2040 i/f chip */
107 /* HPI CSR registers */
108 /* word offsets from CSR base */
109 /* use when io addresses defined as u32 * */
110
111 #define INTERRUPT_EVENT_SET     0
112 #define INTERRUPT_EVENT_CLEAR   1
113 #define INTERRUPT_MASK_SET      2
114 #define INTERRUPT_MASK_CLEAR    3
115 #define HPI_ERROR_REPORT        4
116 #define HPI_RESET               5
117 #define HPI_DATA_WIDTH          6
118
119 #define MAX_DSPS 2
120 /* HPI registers, spaced 8K bytes = 2K words apart */
121 #define DSP_SPACING             0x800
122
123 #define CONTROL                 0x0000
124 #define ADDRESS                 0x0200
125 #define DATA_AUTOINC            0x0400
126 #define DATA                    0x0600
127
128 #define TIMEOUT 500000
129
130 struct dsp_obj {
131         __iomem u32 *prHPI_control;
132         __iomem u32 *prHPI_address;
133         __iomem u32 *prHPI_data;
134         __iomem u32 *prHPI_data_auto_inc;
135         char c_dsp_rev;         /*A, B */
136         u32 control_cache_address_on_dsp;
137         u32 control_cache_length_on_dsp;
138         struct hpi_adapter_obj *pa_parent_adapter;
139 };
140
141 struct hpi_hw_obj {
142         __iomem u32 *dw2040_HPICSR;
143         __iomem u32 *dw2040_HPIDSP;
144
145         u16 num_dsp;
146         struct dsp_obj ado[MAX_DSPS];
147
148         u32 message_buffer_address_on_dsp;
149         u32 response_buffer_address_on_dsp;
150         u32 pCI2040HPI_error_count;
151
152         struct hpi_control_cache_single control_cache[HPI_NMIXER_CONTROLS];
153         struct hpi_control_cache *p_cache;
154 };
155
156 static u16 hpi6000_dsp_block_write32(struct hpi_adapter_obj *pao,
157         u16 dsp_index, u32 hpi_address, u32 *source, u32 count);
158 static u16 hpi6000_dsp_block_read32(struct hpi_adapter_obj *pao,
159         u16 dsp_index, u32 hpi_address, u32 *dest, u32 count);
160
161 static short hpi6000_adapter_boot_load_dsp(struct hpi_adapter_obj *pao,
162         u32 *pos_error_code);
163 static short hpi6000_check_PCI2040_error_flag(struct hpi_adapter_obj *pao,
164         u16 read_or_write);
165 #define H6READ 1
166 #define H6WRITE 0
167
168 static short hpi6000_update_control_cache(struct hpi_adapter_obj *pao,
169         struct hpi_message *phm);
170 static short hpi6000_message_response_sequence(struct hpi_adapter_obj *pao,
171         u16 dsp_index, struct hpi_message *phm, struct hpi_response *phr);
172
173 static void hw_message(struct hpi_adapter_obj *pao, struct hpi_message *phm,
174         struct hpi_response *phr);
175
176 static short hpi6000_wait_dsp_ack(struct hpi_adapter_obj *pao, u16 dsp_index,
177         u32 ack_value);
178
179 static short hpi6000_send_host_command(struct hpi_adapter_obj *pao,
180         u16 dsp_index, u32 host_cmd);
181
182 static void hpi6000_send_dsp_interrupt(struct dsp_obj *pdo);
183
184 static short hpi6000_send_data(struct hpi_adapter_obj *pao, u16 dsp_index,
185         struct hpi_message *phm, struct hpi_response *phr);
186
187 static short hpi6000_get_data(struct hpi_adapter_obj *pao, u16 dsp_index,
188         struct hpi_message *phm, struct hpi_response *phr);
189
190 static void hpi_write_word(struct dsp_obj *pdo, u32 address, u32 data);
191
192 static u32 hpi_read_word(struct dsp_obj *pdo, u32 address);
193
194 static void hpi_write_block(struct dsp_obj *pdo, u32 address, u32 *pdata,
195         u32 length);
196
197 static void hpi_read_block(struct dsp_obj *pdo, u32 address, u32 *pdata,
198         u32 length);
199
200 static void subsys_create_adapter(struct hpi_message *phm,
201         struct hpi_response *phr);
202
203 static void adapter_delete(struct hpi_adapter_obj *pao,
204         struct hpi_message *phm, struct hpi_response *phr);
205
206 static void adapter_get_asserts(struct hpi_adapter_obj *pao,
207         struct hpi_message *phm, struct hpi_response *phr);
208
209 static short create_adapter_obj(struct hpi_adapter_obj *pao,
210         u32 *pos_error_code);
211
212 static void delete_adapter_obj(struct hpi_adapter_obj *pao);
213
214 /* local globals */
215
216 static u16 gw_pci_read_asserts; /* used to count PCI2040 errors */
217 static u16 gw_pci_write_asserts;        /* used to count PCI2040 errors */
218
219 static void subsys_message(struct hpi_message *phm, struct hpi_response *phr)
220 {
221         switch (phm->function) {
222         case HPI_SUBSYS_CREATE_ADAPTER:
223                 subsys_create_adapter(phm, phr);
224                 break;
225         default:
226                 phr->error = HPI_ERROR_INVALID_FUNC;
227                 break;
228         }
229 }
230
231 static void control_message(struct hpi_adapter_obj *pao,
232         struct hpi_message *phm, struct hpi_response *phr)
233 {
234         struct hpi_hw_obj *phw = pao->priv;
235
236         switch (phm->function) {
237         case HPI_CONTROL_GET_STATE:
238                 if (pao->has_control_cache) {
239                         u16 err;
240                         err = hpi6000_update_control_cache(pao, phm);
241
242                         if (err) {
243                                 if (err >= HPI_ERROR_BACKEND_BASE) {
244                                         phr->error =
245                                                 HPI_ERROR_CONTROL_CACHING;
246                                         phr->specific_error = err;
247                                 } else {
248                                         phr->error = err;
249                                 }
250                                 break;
251                         }
252
253                         if (hpi_check_control_cache(phw->p_cache, phm, phr))
254                                 break;
255                 }
256                 hw_message(pao, phm, phr);
257                 break;
258         case HPI_CONTROL_SET_STATE:
259                 hw_message(pao, phm, phr);
260                 hpi_cmn_control_cache_sync_to_msg(phw->p_cache, phm, phr);
261                 break;
262
263         case HPI_CONTROL_GET_INFO:
264         default:
265                 hw_message(pao, phm, phr);
266                 break;
267         }
268 }
269
270 static void adapter_message(struct hpi_adapter_obj *pao,
271         struct hpi_message *phm, struct hpi_response *phr)
272 {
273         switch (phm->function) {
274         case HPI_ADAPTER_GET_ASSERT:
275                 adapter_get_asserts(pao, phm, phr);
276                 break;
277
278         case HPI_ADAPTER_DELETE:
279                 adapter_delete(pao, phm, phr);
280                 break;
281
282         default:
283                 hw_message(pao, phm, phr);
284                 break;
285         }
286 }
287
288 static void outstream_message(struct hpi_adapter_obj *pao,
289         struct hpi_message *phm, struct hpi_response *phr)
290 {
291         switch (phm->function) {
292         case HPI_OSTREAM_HOSTBUFFER_ALLOC:
293         case HPI_OSTREAM_HOSTBUFFER_FREE:
294                 /* Don't let these messages go to the HW function because
295                  * they're called without locking the spinlock.
296                  * For the HPI6000 adapters the HW would return
297                  * HPI_ERROR_INVALID_FUNC anyway.
298                  */
299                 phr->error = HPI_ERROR_INVALID_FUNC;
300                 break;
301         default:
302                 hw_message(pao, phm, phr);
303                 return;
304         }
305 }
306
307 static void instream_message(struct hpi_adapter_obj *pao,
308         struct hpi_message *phm, struct hpi_response *phr)
309 {
310
311         switch (phm->function) {
312         case HPI_ISTREAM_HOSTBUFFER_ALLOC:
313         case HPI_ISTREAM_HOSTBUFFER_FREE:
314                 /* Don't let these messages go to the HW function because
315                  * they're called without locking the spinlock.
316                  * For the HPI6000 adapters the HW would return
317                  * HPI_ERROR_INVALID_FUNC anyway.
318                  */
319                 phr->error = HPI_ERROR_INVALID_FUNC;
320                 break;
321         default:
322                 hw_message(pao, phm, phr);
323                 return;
324         }
325 }
326
327 /************************************************************************/
328 /** HPI_6000()
329  * Entry point from HPIMAN
330  * All calls to the HPI start here
331  */
332 void HPI_6000(struct hpi_message *phm, struct hpi_response *phr)
333 {
334         struct hpi_adapter_obj *pao = NULL;
335
336         if (phm->object != HPI_OBJ_SUBSYSTEM) {
337                 pao = hpi_find_adapter(phm->adapter_index);
338                 if (!pao) {
339                         hpi_init_response(phr, phm->object, phm->function,
340                                 HPI_ERROR_BAD_ADAPTER_NUMBER);
341                         HPI_DEBUG_LOG(DEBUG, "invalid adapter index: %d \n",
342                                 phm->adapter_index);
343                         return;
344                 }
345
346                 /* Don't even try to communicate with crashed DSP */
347                 if (pao->dsp_crashed >= 10) {
348                         hpi_init_response(phr, phm->object, phm->function,
349                                 HPI_ERROR_DSP_HARDWARE);
350                         HPI_DEBUG_LOG(DEBUG, "adapter %d dsp crashed\n",
351                                 phm->adapter_index);
352                         return;
353                 }
354         }
355         /* Init default response including the size field */
356         if (phm->function != HPI_SUBSYS_CREATE_ADAPTER)
357                 hpi_init_response(phr, phm->object, phm->function,
358                         HPI_ERROR_PROCESSING_MESSAGE);
359
360         switch (phm->type) {
361         case HPI_TYPE_REQUEST:
362                 switch (phm->object) {
363                 case HPI_OBJ_SUBSYSTEM:
364                         subsys_message(phm, phr);
365                         break;
366
367                 case HPI_OBJ_ADAPTER:
368                         phr->size =
369                                 sizeof(struct hpi_response_header) +
370                                 sizeof(struct hpi_adapter_res);
371                         adapter_message(pao, phm, phr);
372                         break;
373
374                 case HPI_OBJ_CONTROL:
375                         control_message(pao, phm, phr);
376                         break;
377
378                 case HPI_OBJ_OSTREAM:
379                         outstream_message(pao, phm, phr);
380                         break;
381
382                 case HPI_OBJ_ISTREAM:
383                         instream_message(pao, phm, phr);
384                         break;
385
386                 default:
387                         hw_message(pao, phm, phr);
388                         break;
389                 }
390                 break;
391
392         default:
393                 phr->error = HPI_ERROR_INVALID_TYPE;
394                 break;
395         }
396 }
397
398 /************************************************************************/
399 /* SUBSYSTEM */
400
401 /* create an adapter object and initialise it based on resource information
402  * passed in in the message
403  * NOTE - you cannot use this function AND the FindAdapters function at the
404  * same time, the application must use only one of them to get the adapters
405  */
406 static void subsys_create_adapter(struct hpi_message *phm,
407         struct hpi_response *phr)
408 {
409         /* create temp adapter obj, because we don't know what index yet */
410         struct hpi_adapter_obj ao;
411         struct hpi_adapter_obj *pao;
412         u32 os_error_code;
413         u16 err = 0;
414         u32 dsp_index = 0;
415
416         HPI_DEBUG_LOG(VERBOSE, "subsys_create_adapter\n");
417
418         memset(&ao, 0, sizeof(ao));
419
420         ao.priv = kzalloc(sizeof(struct hpi_hw_obj), GFP_KERNEL);
421         if (!ao.priv) {
422                 HPI_DEBUG_LOG(ERROR, "can't get mem for adapter object\n");
423                 phr->error = HPI_ERROR_MEMORY_ALLOC;
424                 return;
425         }
426
427         /* create the adapter object based on the resource information */
428         ao.pci = *phm->u.s.resource.r.pci;
429
430         err = create_adapter_obj(&ao, &os_error_code);
431         if (err) {
432                 delete_adapter_obj(&ao);
433                 if (err >= HPI_ERROR_BACKEND_BASE) {
434                         phr->error = HPI_ERROR_DSP_BOOTLOAD;
435                         phr->specific_error = err;
436                 } else {
437                         phr->error = err;
438                 }
439
440                 phr->u.s.data = os_error_code;
441                 return;
442         }
443         /* need to update paParentAdapter */
444         pao = hpi_find_adapter(ao.index);
445         if (!pao) {
446                 /* We just added this adapter, why can't we find it!? */
447                 HPI_DEBUG_LOG(ERROR, "lost adapter after boot\n");
448                 phr->error = HPI_ERROR_BAD_ADAPTER;
449                 return;
450         }
451
452         for (dsp_index = 0; dsp_index < MAX_DSPS; dsp_index++) {
453                 struct hpi_hw_obj *phw = pao->priv;
454                 phw->ado[dsp_index].pa_parent_adapter = pao;
455         }
456
457         phr->u.s.adapter_type = ao.type;
458         phr->u.s.adapter_index = ao.index;
459         phr->error = 0;
460 }
461
462 static void adapter_delete(struct hpi_adapter_obj *pao,
463         struct hpi_message *phm, struct hpi_response *phr)
464 {
465         delete_adapter_obj(pao);
466         hpi_delete_adapter(pao);
467         phr->error = 0;
468 }
469
470 /* this routine is called from SubSysFindAdapter and SubSysCreateAdapter */
471 static short create_adapter_obj(struct hpi_adapter_obj *pao,
472         u32 *pos_error_code)
473 {
474         short boot_error = 0;
475         u32 dsp_index = 0;
476         u32 control_cache_size = 0;
477         u32 control_cache_count = 0;
478         struct hpi_hw_obj *phw = pao->priv;
479
480         /* The PCI2040 has the following address map */
481         /* BAR0 - 4K = HPI control and status registers on PCI2040 (HPI CSR) */
482         /* BAR1 - 32K = HPI registers on DSP */
483         phw->dw2040_HPICSR = pao->pci.ap_mem_base[0];
484         phw->dw2040_HPIDSP = pao->pci.ap_mem_base[1];
485         HPI_DEBUG_LOG(VERBOSE, "csr %p, dsp %p\n", phw->dw2040_HPICSR,
486                 phw->dw2040_HPIDSP);
487
488         /* set addresses for the possible DSP HPI interfaces */
489         for (dsp_index = 0; dsp_index < MAX_DSPS; dsp_index++) {
490                 phw->ado[dsp_index].prHPI_control =
491                         phw->dw2040_HPIDSP + (CONTROL +
492                         DSP_SPACING * dsp_index);
493
494                 phw->ado[dsp_index].prHPI_address =
495                         phw->dw2040_HPIDSP + (ADDRESS +
496                         DSP_SPACING * dsp_index);
497                 phw->ado[dsp_index].prHPI_data =
498                         phw->dw2040_HPIDSP + (DATA + DSP_SPACING * dsp_index);
499
500                 phw->ado[dsp_index].prHPI_data_auto_inc =
501                         phw->dw2040_HPIDSP + (DATA_AUTOINC +
502                         DSP_SPACING * dsp_index);
503
504                 HPI_DEBUG_LOG(VERBOSE, "ctl %p, adr %p, dat %p, dat++ %p\n",
505                         phw->ado[dsp_index].prHPI_control,
506                         phw->ado[dsp_index].prHPI_address,
507                         phw->ado[dsp_index].prHPI_data,
508                         phw->ado[dsp_index].prHPI_data_auto_inc);
509
510                 phw->ado[dsp_index].pa_parent_adapter = pao;
511         }
512
513         phw->pCI2040HPI_error_count = 0;
514         pao->has_control_cache = 0;
515
516         /* Set the default number of DSPs on this card */
517         /* This is (conditionally) adjusted after bootloading */
518         /* of the first DSP in the bootload section. */
519         phw->num_dsp = 1;
520
521         boot_error = hpi6000_adapter_boot_load_dsp(pao, pos_error_code);
522         if (boot_error)
523                 return boot_error;
524
525         HPI_DEBUG_LOG(INFO, "bootload DSP OK\n");
526
527         phw->message_buffer_address_on_dsp = 0L;
528         phw->response_buffer_address_on_dsp = 0L;
529
530         /* get info about the adapter by asking the adapter */
531         /* send a HPI_ADAPTER_GET_INFO message */
532         {
533                 struct hpi_message hm;
534                 struct hpi_response hr0;        /* response from DSP 0 */
535                 struct hpi_response hr1;        /* response from DSP 1 */
536                 u16 error = 0;
537
538                 HPI_DEBUG_LOG(VERBOSE, "send ADAPTER_GET_INFO\n");
539                 memset(&hm, 0, sizeof(hm));
540                 hm.type = HPI_TYPE_REQUEST;
541                 hm.size = sizeof(struct hpi_message);
542                 hm.object = HPI_OBJ_ADAPTER;
543                 hm.function = HPI_ADAPTER_GET_INFO;
544                 hm.adapter_index = 0;
545                 memset(&hr0, 0, sizeof(hr0));
546                 memset(&hr1, 0, sizeof(hr1));
547                 hr0.size = sizeof(hr0);
548                 hr1.size = sizeof(hr1);
549
550                 error = hpi6000_message_response_sequence(pao, 0, &hm, &hr0);
551                 if (hr0.error) {
552                         HPI_DEBUG_LOG(DEBUG, "message error %d\n", hr0.error);
553                         return hr0.error;
554                 }
555                 if (phw->num_dsp == 2) {
556                         error = hpi6000_message_response_sequence(pao, 1, &hm,
557                                 &hr1);
558                         if (error)
559                                 return error;
560                 }
561                 pao->type = hr0.u.ax.info.adapter_type;
562                 pao->index = hr0.u.ax.info.adapter_index;
563         }
564
565         memset(&phw->control_cache[0], 0,
566                 sizeof(struct hpi_control_cache_single) *
567                 HPI_NMIXER_CONTROLS);
568         /* Read the control cache length to figure out if it is turned on */
569         control_cache_size =
570                 hpi_read_word(&phw->ado[0],
571                 HPI_HIF_ADDR(control_cache_size_in_bytes));
572         if (control_cache_size) {
573                 control_cache_count =
574                         hpi_read_word(&phw->ado[0],
575                         HPI_HIF_ADDR(control_cache_count));
576
577                 phw->p_cache =
578                         hpi_alloc_control_cache(control_cache_count,
579                         control_cache_size, (unsigned char *)
580                         &phw->control_cache[0]
581                         );
582                 if (phw->p_cache)
583                         pao->has_control_cache = 1;
584         }
585
586         HPI_DEBUG_LOG(DEBUG, "get adapter info ASI%04X index %d\n", pao->type,
587                 pao->index);
588
589         if (phw->p_cache)
590                 phw->p_cache->adap_idx = pao->index;
591
592         return hpi_add_adapter(pao);
593 }
594
595 static void delete_adapter_obj(struct hpi_adapter_obj *pao)
596 {
597         struct hpi_hw_obj *phw = pao->priv;
598
599         if (pao->has_control_cache)
600                 hpi_free_control_cache(phw->p_cache);
601
602         /* reset DSPs on adapter */
603         iowrite32(0x0003000F, phw->dw2040_HPICSR + HPI_RESET);
604
605         kfree(phw);
606 }
607
608 /************************************************************************/
609 /* ADAPTER */
610
611 static void adapter_get_asserts(struct hpi_adapter_obj *pao,
612         struct hpi_message *phm, struct hpi_response *phr)
613 {
614 #ifndef HIDE_PCI_ASSERTS
615         /* if we have PCI2040 asserts then collect them */
616         if ((gw_pci_read_asserts > 0) || (gw_pci_write_asserts > 0)) {
617                 phr->u.ax.assert.p1 =
618                         gw_pci_read_asserts * 100 + gw_pci_write_asserts;
619                 phr->u.ax.assert.p2 = 0;
620                 phr->u.ax.assert.count = 1;     /* assert count */
621                 phr->u.ax.assert.dsp_index = -1;        /* "dsp index" */
622                 strcpy(phr->u.ax.assert.sz_message, "PCI2040 error");
623                 phr->u.ax.assert.dsp_msg_addr = 0;
624                 gw_pci_read_asserts = 0;
625                 gw_pci_write_asserts = 0;
626                 phr->error = 0;
627         } else
628 #endif
629                 hw_message(pao, phm, phr);      /*get DSP asserts */
630
631         return;
632 }
633
634 /************************************************************************/
635 /* LOW-LEVEL */
636
637 static short hpi6000_adapter_boot_load_dsp(struct hpi_adapter_obj *pao,
638         u32 *pos_error_code)
639 {
640         struct hpi_hw_obj *phw = pao->priv;
641         short error;
642         u32 timeout;
643         u32 read = 0;
644         u32 i = 0;
645         u32 data = 0;
646         u32 j = 0;
647         u32 test_addr = 0x80000000;
648         u32 test_data = 0x00000001;
649         u32 dw2040_reset = 0;
650         u32 dsp_index = 0;
651         u32 endian = 0;
652         u32 adapter_info = 0;
653         u32 delay = 0;
654
655         struct dsp_code dsp_code;
656         u16 boot_load_family = 0;
657
658         /* NOTE don't use wAdapterType in this routine. It is not setup yet */
659
660         switch (pao->pci.pci_dev->subsystem_device) {
661         case 0x5100:
662         case 0x5110:    /* ASI5100 revB or higher with C6711D */
663         case 0x5200:    /* ASI5200 PCIe version of ASI5100 */
664         case 0x6100:
665         case 0x6200:
666                 boot_load_family = HPI_ADAPTER_FAMILY_ASI(0x6200);
667                 break;
668         default:
669                 return HPI6000_ERROR_UNHANDLED_SUBSYS_ID;
670         }
671
672         /* reset all DSPs, indicate two DSPs are present
673          * set RST3-=1 to disconnect HAD8 to set DSP in little endian mode
674          */
675         endian = 0;
676         dw2040_reset = 0x0003000F;
677         iowrite32(dw2040_reset, phw->dw2040_HPICSR + HPI_RESET);
678
679         /* read back register to make sure PCI2040 chip is functioning
680          * note that bits 4..15 are read-only and so should always return zero,
681          * even though we wrote 1 to them
682          */
683         hpios_delay_micro_seconds(1000);
684         delay = ioread32(phw->dw2040_HPICSR + HPI_RESET);
685
686         if (delay != dw2040_reset) {
687                 HPI_DEBUG_LOG(ERROR, "INIT_PCI2040 %x %x\n", dw2040_reset,
688                         delay);
689                 return HPI6000_ERROR_INIT_PCI2040;
690         }
691
692         /* Indicate that DSP#0,1 is a C6X */
693         iowrite32(0x00000003, phw->dw2040_HPICSR + HPI_DATA_WIDTH);
694         /* set Bit30 and 29 - which will prevent Target aborts from being
695          * issued upon HPI or GP error
696          */
697         iowrite32(0x60000000, phw->dw2040_HPICSR + INTERRUPT_MASK_SET);
698
699         /* isolate DSP HAD8 line from PCI2040 so that
700          * Little endian can be set by pullup
701          */
702         dw2040_reset = dw2040_reset & (~(endian << 3));
703         iowrite32(dw2040_reset, phw->dw2040_HPICSR + HPI_RESET);
704
705         phw->ado[0].c_dsp_rev = 'B';    /* revB */
706         phw->ado[1].c_dsp_rev = 'B';    /* revB */
707
708         /*Take both DSPs out of reset, setting HAD8 to the correct Endian */
709         dw2040_reset = dw2040_reset & (~0x00000001);    /* start DSP 0 */
710         iowrite32(dw2040_reset, phw->dw2040_HPICSR + HPI_RESET);
711         dw2040_reset = dw2040_reset & (~0x00000002);    /* start DSP 1 */
712         iowrite32(dw2040_reset, phw->dw2040_HPICSR + HPI_RESET);
713
714         /* set HAD8 back to PCI2040, now that DSP set to little endian mode */
715         dw2040_reset = dw2040_reset & (~0x00000008);
716         iowrite32(dw2040_reset, phw->dw2040_HPICSR + HPI_RESET);
717         /*delay to allow DSP to get going */
718         hpios_delay_micro_seconds(100);
719
720         /* loop through all DSPs, downloading DSP code */
721         for (dsp_index = 0; dsp_index < phw->num_dsp; dsp_index++) {
722                 struct dsp_obj *pdo = &phw->ado[dsp_index];
723
724                 /* configure DSP so that we download code into the SRAM */
725                 /* set control reg for little endian, HWOB=1 */
726                 iowrite32(0x00010001, pdo->prHPI_control);
727
728                 /* test access to the HPI address register (HPIA) */
729                 test_data = 0x00000001;
730                 for (j = 0; j < 32; j++) {
731                         iowrite32(test_data, pdo->prHPI_address);
732                         data = ioread32(pdo->prHPI_address);
733                         if (data != test_data) {
734                                 HPI_DEBUG_LOG(ERROR, "INIT_DSPHPI %x %x %x\n",
735                                         test_data, data, dsp_index);
736                                 return HPI6000_ERROR_INIT_DSPHPI;
737                         }
738                         test_data = test_data << 1;
739                 }
740
741 /* if C6713 the setup PLL to generate 225MHz from 25MHz.
742 * Since the PLLDIV1 read is sometimes wrong, even on a C6713,
743 * we're going to do this unconditionally
744 */
745 /* PLLDIV1 should have a value of 8000 after reset */
746 /*
747         if (HpiReadWord(pdo,0x01B7C118) == 0x8000)
748 */
749                 {
750                         /* C6713 datasheet says we cannot program PLL from HPI,
751                          * and indeed if we try to set the PLL multiply from the
752                          * HPI, the PLL does not seem to lock,
753                          * so we enable the PLL and use the default of x 7
754                          */
755                         /* bypass PLL */
756                         hpi_write_word(pdo, 0x01B7C100, 0x0000);
757                         hpios_delay_micro_seconds(100);
758
759                         /*  ** use default of PLL  x7 ** */
760                         /* EMIF = 225/3=75MHz */
761                         hpi_write_word(pdo, 0x01B7C120, 0x8002);
762                         hpios_delay_micro_seconds(100);
763
764                         /* peri = 225/2 */
765                         hpi_write_word(pdo, 0x01B7C11C, 0x8001);
766                         hpios_delay_micro_seconds(100);
767
768                         /* cpu  = 225/1 */
769                         hpi_write_word(pdo, 0x01B7C118, 0x8000);
770
771                         /* ~2ms delay */
772                         hpios_delay_micro_seconds(2000);
773
774                         /* PLL not bypassed */
775                         hpi_write_word(pdo, 0x01B7C100, 0x0001);
776                         /* ~2ms delay */
777                         hpios_delay_micro_seconds(2000);
778                 }
779
780                 /* test r/w to internal DSP memory
781                  * C6711 has L2 cache mapped to 0x0 when reset
782                  *
783                  *  revB - because of bug 3.0.1 last HPI read
784                  * (before HPI address issued) must be non-autoinc
785                  */
786                 /* test each bit in the 32bit word */
787                 for (i = 0; i < 100; i++) {
788                         test_addr = 0x00000000;
789                         test_data = 0x00000001;
790                         for (j = 0; j < 32; j++) {
791                                 hpi_write_word(pdo, test_addr + i, test_data);
792                                 data = hpi_read_word(pdo, test_addr + i);
793                                 if (data != test_data) {
794                                         HPI_DEBUG_LOG(ERROR,
795                                                 "DSP mem %x %x %x %x\n",
796                                                 test_addr + i, test_data,
797                                                 data, dsp_index);
798
799                                         return HPI6000_ERROR_INIT_DSPINTMEM;
800                                 }
801                                 test_data = test_data << 1;
802                         }
803                 }
804
805                 /* memory map of ASI6200
806                    00000000-0000FFFF    16Kx32 internal program
807                    01800000-019FFFFF    Internal peripheral
808                    80000000-807FFFFF    CE0 2Mx32 SDRAM running @ 100MHz
809                    90000000-9000FFFF    CE1 Async peripherals:
810
811                    EMIF config
812                    ------------
813                    Global EMIF control
814                    0 -
815                    1 -
816                    2 -
817                    3 CLK2EN = 1   CLKOUT2 enabled
818                    4 CLK1EN = 0   CLKOUT1 disabled
819                    5 EKEN = 1 <--!! C6713 specific, enables ECLKOUT
820                    6 -
821                    7 NOHOLD = 1   external HOLD disabled
822                    8 HOLDA = 0    HOLDA output is low
823                    9 HOLD = 0             HOLD input is low
824                    10 ARDY = 1    ARDY input is high
825                    11 BUSREQ = 0   BUSREQ output is low
826                    12,13 Reserved = 1
827                  */
828                 hpi_write_word(pdo, 0x01800000, 0x34A8);
829
830                 /* EMIF CE0 setup - 2Mx32 Sync DRAM
831                    31..28       Wr setup
832                    27..22       Wr strobe
833                    21..20       Wr hold
834                    19..16       Rd setup
835                    15..14       -
836                    13..8        Rd strobe
837                    7..4         MTYPE   0011            Sync DRAM 32bits
838                    3            Wr hold MSB
839                    2..0         Rd hold
840                  */
841                 hpi_write_word(pdo, 0x01800008, 0x00000030);
842
843                 /* EMIF SDRAM Extension
844                    31-21        0
845                    20           WR2RD = 0
846                    19-18        WR2DEAC = 1
847                    17           WR2WR = 0
848                    16-15        R2WDQM = 2
849                    14-12        RD2WR = 4
850                    11-10        RD2DEAC = 1
851                    9            RD2RD = 1
852                    8-7          THZP = 10b
853                    6-5          TWR  = 2-1 = 01b (tWR = 10ns)
854                    4            TRRD = 0b = 2 ECLK (tRRD = 14ns)
855                    3-1          TRAS = 5-1 = 100b (Tras=42ns = 5 ECLK)
856                    1            CAS latency = 3 ECLK
857                    (for Micron 2M32-7 operating at 100Mhz)
858                  */
859
860                 /* need to use this else DSP code crashes */
861                 hpi_write_word(pdo, 0x01800020, 0x001BDF29);
862
863                 /* EMIF SDRAM control - set up for a 2Mx32 SDRAM (512x32x4 bank)
864                    31           -               -
865                    30           SDBSZ   1               4 bank
866                    29..28       SDRSZ   00              11 row address pins
867                    27..26       SDCSZ   01              8 column address pins
868                    25           RFEN    1               refersh enabled
869                    24           INIT    1               init SDRAM
870                    23..20       TRCD    0001
871                    19..16       TRP             0001
872                    15..12       TRC             0110
873                    11..0        -               -
874                  */
875                 /*      need to use this else DSP code crashes */
876                 hpi_write_word(pdo, 0x01800018, 0x47117000);
877
878                 /* EMIF SDRAM Refresh Timing */
879                 hpi_write_word(pdo, 0x0180001C, 0x00000410);
880
881                 /*MIF CE1 setup - Async peripherals
882                    @100MHz bus speed, each cycle is 10ns,
883                    31..28       Wr setup  = 1
884                    27..22       Wr strobe = 3                   30ns
885                    21..20       Wr hold = 1
886                    19..16       Rd setup =1
887                    15..14       Ta = 2
888                    13..8        Rd strobe = 3                   30ns
889                    7..4         MTYPE   0010            Async 32bits
890                    3            Wr hold MSB =0
891                    2..0         Rd hold = 1
892                  */
893                 {
894                         u32 cE1 =
895                                 (1L << 28) | (3L << 22) | (1L << 20) | (1L <<
896                                 16) | (2L << 14) | (3L << 8) | (2L << 4) | 1L;
897                         hpi_write_word(pdo, 0x01800004, cE1);
898                 }
899
900                 /* delay a little to allow SDRAM and DSP to "get going" */
901                 hpios_delay_micro_seconds(1000);
902
903                 /* test access to SDRAM */
904                 {
905                         test_addr = 0x80000000;
906                         test_data = 0x00000001;
907                         /* test each bit in the 32bit word */
908                         for (j = 0; j < 32; j++) {
909                                 hpi_write_word(pdo, test_addr, test_data);
910                                 data = hpi_read_word(pdo, test_addr);
911                                 if (data != test_data) {
912                                         HPI_DEBUG_LOG(ERROR,
913                                                 "DSP dram %x %x %x %x\n",
914                                                 test_addr, test_data, data,
915                                                 dsp_index);
916
917                                         return HPI6000_ERROR_INIT_SDRAM1;
918                                 }
919                                 test_data = test_data << 1;
920                         }
921                         /* test every Nth address in the DRAM */
922 #define DRAM_SIZE_WORDS 0x200000        /*2_mx32 */
923 #define DRAM_INC 1024
924                         test_addr = 0x80000000;
925                         test_data = 0x0;
926                         for (i = 0; i < DRAM_SIZE_WORDS; i = i + DRAM_INC) {
927                                 hpi_write_word(pdo, test_addr + i, test_data);
928                                 test_data++;
929                         }
930                         test_addr = 0x80000000;
931                         test_data = 0x0;
932                         for (i = 0; i < DRAM_SIZE_WORDS; i = i + DRAM_INC) {
933                                 data = hpi_read_word(pdo, test_addr + i);
934                                 if (data != test_data) {
935                                         HPI_DEBUG_LOG(ERROR,
936                                                 "DSP dram %x %x %x %x\n",
937                                                 test_addr + i, test_data,
938                                                 data, dsp_index);
939                                         return HPI6000_ERROR_INIT_SDRAM2;
940                                 }
941                                 test_data++;
942                         }
943
944                 }
945
946                 /* write the DSP code down into the DSPs memory */
947                 error = hpi_dsp_code_open(boot_load_family, pao->pci.pci_dev,
948                         &dsp_code, pos_error_code);
949
950                 if (error)
951                         return error;
952
953                 while (1) {
954                         u32 length;
955                         u32 address;
956                         u32 type;
957                         u32 *pcode;
958
959                         error = hpi_dsp_code_read_word(&dsp_code, &length);
960                         if (error)
961                                 break;
962                         if (length == 0xFFFFFFFF)
963                                 break;  /* end of code */
964
965                         error = hpi_dsp_code_read_word(&dsp_code, &address);
966                         if (error)
967                                 break;
968                         error = hpi_dsp_code_read_word(&dsp_code, &type);
969                         if (error)
970                                 break;
971                         error = hpi_dsp_code_read_block(length, &dsp_code,
972                                 &pcode);
973                         if (error)
974                                 break;
975                         error = hpi6000_dsp_block_write32(pao, (u16)dsp_index,
976                                 address, pcode, length);
977                         if (error)
978                                 break;
979                 }
980
981                 if (error) {
982                         hpi_dsp_code_close(&dsp_code);
983                         return error;
984                 }
985                 /* verify that code was written correctly */
986                 /* this time through, assume no errors in DSP code file/array */
987                 hpi_dsp_code_rewind(&dsp_code);
988                 while (1) {
989                         u32 length;
990                         u32 address;
991                         u32 type;
992                         u32 *pcode;
993
994                         hpi_dsp_code_read_word(&dsp_code, &length);
995                         if (length == 0xFFFFFFFF)
996                                 break;  /* end of code */
997
998                         hpi_dsp_code_read_word(&dsp_code, &address);
999                         hpi_dsp_code_read_word(&dsp_code, &type);
1000                         hpi_dsp_code_read_block(length, &dsp_code, &pcode);
1001
1002                         for (i = 0; i < length; i++) {
1003                                 data = hpi_read_word(pdo, address);
1004                                 if (data != *pcode) {
1005                                         error = HPI6000_ERROR_INIT_VERIFY;
1006                                         HPI_DEBUG_LOG(ERROR,
1007                                                 "DSP verify %x %x %x %x\n",
1008                                                 address, *pcode, data,
1009                                                 dsp_index);
1010                                         break;
1011                                 }
1012                                 pcode++;
1013                                 address += 4;
1014                         }
1015                         if (error)
1016                                 break;
1017                 }
1018                 hpi_dsp_code_close(&dsp_code);
1019                 if (error)
1020                         return error;
1021
1022                 /* zero out the hostmailbox */
1023                 {
1024                         u32 address = HPI_HIF_ADDR(host_cmd);
1025                         for (i = 0; i < 4; i++) {
1026                                 hpi_write_word(pdo, address, 0);
1027                                 address += 4;
1028                         }
1029                 }
1030                 /* write the DSP number into the hostmailbox */
1031                 /* structure before starting the DSP */
1032                 hpi_write_word(pdo, HPI_HIF_ADDR(dsp_number), dsp_index);
1033
1034                 /* write the DSP adapter Info into the */
1035                 /* hostmailbox before starting the DSP */
1036                 if (dsp_index > 0)
1037                         hpi_write_word(pdo, HPI_HIF_ADDR(adapter_info),
1038                                 adapter_info);
1039
1040                 /* step 3. Start code by sending interrupt */
1041                 iowrite32(0x00030003, pdo->prHPI_control);
1042                 hpios_delay_micro_seconds(10000);
1043
1044                 /* wait for a non-zero value in hostcmd -
1045                  * indicating initialization is complete
1046                  *
1047                  * Init could take a while if DSP checks SDRAM memory
1048                  * Was 200000. Increased to 2000000 for ASI8801 so we
1049                  * don't get 938 errors.
1050                  */
1051                 timeout = 2000000;
1052                 while (timeout) {
1053                         do {
1054                                 read = hpi_read_word(pdo,
1055                                         HPI_HIF_ADDR(host_cmd));
1056                         } while (--timeout
1057                                 && hpi6000_check_PCI2040_error_flag(pao,
1058                                         H6READ));
1059
1060                         if (read)
1061                                 break;
1062                         /* The following is a workaround for bug #94:
1063                          * Bluescreen on install and subsequent boots on a
1064                          * DELL PowerEdge 600SC PC with 1.8GHz P4 and
1065                          * ServerWorks chipset. Without this delay the system
1066                          * locks up with a bluescreen (NOT GPF or pagefault).
1067                          */
1068                         else
1069                                 hpios_delay_micro_seconds(10000);
1070                 }
1071                 if (timeout == 0)
1072                         return HPI6000_ERROR_INIT_NOACK;
1073
1074                 /* read the DSP adapter Info from the */
1075                 /* hostmailbox structure after starting the DSP */
1076                 if (dsp_index == 0) {
1077                         /*u32 dwTestData=0; */
1078                         u32 mask = 0;
1079
1080                         adapter_info =
1081                                 hpi_read_word(pdo,
1082                                 HPI_HIF_ADDR(adapter_info));
1083                         if (HPI_ADAPTER_FAMILY_ASI
1084                                 (HPI_HIF_ADAPTER_INFO_EXTRACT_ADAPTER
1085                                         (adapter_info)) ==
1086                                 HPI_ADAPTER_FAMILY_ASI(0x6200))
1087                                 /* all 6200 cards have this many DSPs */
1088                                 phw->num_dsp = 2;
1089
1090                         /* test that the PLD is programmed */
1091                         /* and we can read/write 24bits */
1092 #define PLD_BASE_ADDRESS 0x90000000L    /*for ASI6100/6200/8800 */
1093
1094                         switch (boot_load_family) {
1095                         case HPI_ADAPTER_FAMILY_ASI(0x6200):
1096                                 /* ASI6100/6200 has 24bit path to FPGA */
1097                                 mask = 0xFFFFFF00L;
1098                                 /* ASI5100 uses AX6 code, */
1099                                 /* but has no PLD r/w register to test */
1100                                 if (HPI_ADAPTER_FAMILY_ASI(pao->pci.pci_dev->
1101                                                 subsystem_device) ==
1102                                         HPI_ADAPTER_FAMILY_ASI(0x5100))
1103                                         mask = 0x00000000L;
1104                                 /* ASI5200 uses AX6 code, */
1105                                 /* but has no PLD r/w register to test */
1106                                 if (HPI_ADAPTER_FAMILY_ASI(pao->pci.pci_dev->
1107                                                 subsystem_device) ==
1108                                         HPI_ADAPTER_FAMILY_ASI(0x5200))
1109                                         mask = 0x00000000L;
1110                                 break;
1111                         case HPI_ADAPTER_FAMILY_ASI(0x8800):
1112                                 /* ASI8800 has 16bit path to FPGA */
1113                                 mask = 0xFFFF0000L;
1114                                 break;
1115                         }
1116                         test_data = 0xAAAAAA00L & mask;
1117                         /* write to 24 bit Debug register (D31-D8) */
1118                         hpi_write_word(pdo, PLD_BASE_ADDRESS + 4L, test_data);
1119                         read = hpi_read_word(pdo,
1120                                 PLD_BASE_ADDRESS + 4L) & mask;
1121                         if (read != test_data) {
1122                                 HPI_DEBUG_LOG(ERROR, "PLD %x %x\n", test_data,
1123                                         read);
1124                                 return HPI6000_ERROR_INIT_PLDTEST1;
1125                         }
1126                         test_data = 0x55555500L & mask;
1127                         hpi_write_word(pdo, PLD_BASE_ADDRESS + 4L, test_data);
1128                         read = hpi_read_word(pdo,
1129                                 PLD_BASE_ADDRESS + 4L) & mask;
1130                         if (read != test_data) {
1131                                 HPI_DEBUG_LOG(ERROR, "PLD %x %x\n", test_data,
1132                                         read);
1133                                 return HPI6000_ERROR_INIT_PLDTEST2;
1134                         }
1135                 }
1136         }       /* for numDSP */
1137         return 0;
1138 }
1139
1140 #define PCI_TIMEOUT 100
1141
1142 static int hpi_set_address(struct dsp_obj *pdo, u32 address)
1143 {
1144         u32 timeout = PCI_TIMEOUT;
1145
1146         do {
1147                 iowrite32(address, pdo->prHPI_address);
1148         } while (hpi6000_check_PCI2040_error_flag(pdo->pa_parent_adapter,
1149                         H6WRITE)
1150                 && --timeout);
1151
1152         if (timeout)
1153                 return 0;
1154
1155         return 1;
1156 }
1157
1158 /* write one word to the HPI port */
1159 static void hpi_write_word(struct dsp_obj *pdo, u32 address, u32 data)
1160 {
1161         if (hpi_set_address(pdo, address))
1162                 return;
1163         iowrite32(data, pdo->prHPI_data);
1164 }
1165
1166 /* read one word from the HPI port */
1167 static u32 hpi_read_word(struct dsp_obj *pdo, u32 address)
1168 {
1169         u32 data = 0;
1170
1171         if (hpi_set_address(pdo, address))
1172                 return 0;       /*? No way to return error */
1173
1174         /* take care of errata in revB DSP (2.0.1) */
1175         data = ioread32(pdo->prHPI_data);
1176         return data;
1177 }
1178
1179 /* write a block of 32bit words to the DSP HPI port using auto-inc mode */
1180 static void hpi_write_block(struct dsp_obj *pdo, u32 address, u32 *pdata,
1181         u32 length)
1182 {
1183         u16 length16 = length - 1;
1184
1185         if (length == 0)
1186                 return;
1187
1188         if (hpi_set_address(pdo, address))
1189                 return;
1190
1191         iowrite32_rep(pdo->prHPI_data_auto_inc, pdata, length16);
1192
1193         /* take care of errata in revB DSP (2.0.1) */
1194         /* must end with non auto-inc */
1195         iowrite32(*(pdata + length - 1), pdo->prHPI_data);
1196 }
1197
1198 /** read a block of 32bit words from the DSP HPI port using auto-inc mode
1199  */
1200 static void hpi_read_block(struct dsp_obj *pdo, u32 address, u32 *pdata,
1201         u32 length)
1202 {
1203         u16 length16 = length - 1;
1204
1205         if (length == 0)
1206                 return;
1207
1208         if (hpi_set_address(pdo, address))
1209                 return;
1210
1211         ioread32_rep(pdo->prHPI_data_auto_inc, pdata, length16);
1212
1213         /* take care of errata in revB DSP (2.0.1) */
1214         /* must end with non auto-inc */
1215         *(pdata + length - 1) = ioread32(pdo->prHPI_data);
1216 }
1217
1218 static u16 hpi6000_dsp_block_write32(struct hpi_adapter_obj *pao,
1219         u16 dsp_index, u32 hpi_address, u32 *source, u32 count)
1220 {
1221         struct hpi_hw_obj *phw = pao->priv;
1222         struct dsp_obj *pdo = &phw->ado[dsp_index];
1223         u32 time_out = PCI_TIMEOUT;
1224         int c6711_burst_size = 128;
1225         u32 local_hpi_address = hpi_address;
1226         int local_count = count;
1227         int xfer_size;
1228         u32 *pdata = source;
1229
1230         while (local_count) {
1231                 if (local_count > c6711_burst_size)
1232                         xfer_size = c6711_burst_size;
1233                 else
1234                         xfer_size = local_count;
1235
1236                 time_out = PCI_TIMEOUT;
1237                 do {
1238                         hpi_write_block(pdo, local_hpi_address, pdata,
1239                                 xfer_size);
1240                 } while (hpi6000_check_PCI2040_error_flag(pao, H6WRITE)
1241                         && --time_out);
1242
1243                 if (!time_out)
1244                         break;
1245                 pdata += xfer_size;
1246                 local_hpi_address += sizeof(u32) * xfer_size;
1247                 local_count -= xfer_size;
1248         }
1249
1250         if (time_out)
1251                 return 0;
1252         else
1253                 return 1;
1254 }
1255
1256 static u16 hpi6000_dsp_block_read32(struct hpi_adapter_obj *pao,
1257         u16 dsp_index, u32 hpi_address, u32 *dest, u32 count)
1258 {
1259         struct hpi_hw_obj *phw = pao->priv;
1260         struct dsp_obj *pdo = &phw->ado[dsp_index];
1261         u32 time_out = PCI_TIMEOUT;
1262         int c6711_burst_size = 16;
1263         u32 local_hpi_address = hpi_address;
1264         int local_count = count;
1265         int xfer_size;
1266         u32 *pdata = dest;
1267         u32 loop_count = 0;
1268
1269         while (local_count) {
1270                 if (local_count > c6711_burst_size)
1271                         xfer_size = c6711_burst_size;
1272                 else
1273                         xfer_size = local_count;
1274
1275                 time_out = PCI_TIMEOUT;
1276                 do {
1277                         hpi_read_block(pdo, local_hpi_address, pdata,
1278                                 xfer_size);
1279                 } while (hpi6000_check_PCI2040_error_flag(pao, H6READ)
1280                         && --time_out);
1281                 if (!time_out)
1282                         break;
1283
1284                 pdata += xfer_size;
1285                 local_hpi_address += sizeof(u32) * xfer_size;
1286                 local_count -= xfer_size;
1287                 loop_count++;
1288         }
1289
1290         if (time_out)
1291                 return 0;
1292         else
1293                 return 1;
1294 }
1295
1296 static short hpi6000_message_response_sequence(struct hpi_adapter_obj *pao,
1297         u16 dsp_index, struct hpi_message *phm, struct hpi_response *phr)
1298 {
1299         struct hpi_hw_obj *phw = pao->priv;
1300         struct dsp_obj *pdo = &phw->ado[dsp_index];
1301         u32 timeout;
1302         u16 ack;
1303         u32 address;
1304         u32 length;
1305         u32 *p_data;
1306         u16 error = 0;
1307
1308         ack = hpi6000_wait_dsp_ack(pao, dsp_index, HPI_HIF_IDLE);
1309         if (ack & HPI_HIF_ERROR_MASK) {
1310                 pao->dsp_crashed++;
1311                 return HPI6000_ERROR_MSG_RESP_IDLE_TIMEOUT;
1312         }
1313         pao->dsp_crashed = 0;
1314
1315         /* get the message address and size */
1316         if (phw->message_buffer_address_on_dsp == 0) {
1317                 timeout = TIMEOUT;
1318                 do {
1319                         address =
1320                                 hpi_read_word(pdo,
1321                                 HPI_HIF_ADDR(message_buffer_address));
1322                         phw->message_buffer_address_on_dsp = address;
1323                 } while (hpi6000_check_PCI2040_error_flag(pao, H6READ)
1324                         && --timeout);
1325                 if (!timeout)
1326                         return HPI6000_ERROR_MSG_GET_ADR;
1327         } else
1328                 address = phw->message_buffer_address_on_dsp;
1329
1330         length = phm->size;
1331
1332         /* send the message */
1333         p_data = (u32 *)phm;
1334         if (hpi6000_dsp_block_write32(pao, dsp_index, address, p_data,
1335                         (u16)length / 4))
1336                 return HPI6000_ERROR_MSG_RESP_BLOCKWRITE32;
1337
1338         if (hpi6000_send_host_command(pao, dsp_index, HPI_HIF_GET_RESP))
1339                 return HPI6000_ERROR_MSG_RESP_GETRESPCMD;
1340         hpi6000_send_dsp_interrupt(pdo);
1341
1342         ack = hpi6000_wait_dsp_ack(pao, dsp_index, HPI_HIF_GET_RESP);
1343         if (ack & HPI_HIF_ERROR_MASK)
1344                 return HPI6000_ERROR_MSG_RESP_GET_RESP_ACK;
1345
1346         /* get the response address */
1347         if (phw->response_buffer_address_on_dsp == 0) {
1348                 timeout = TIMEOUT;
1349                 do {
1350                         address =
1351                                 hpi_read_word(pdo,
1352                                 HPI_HIF_ADDR(response_buffer_address));
1353                 } while (hpi6000_check_PCI2040_error_flag(pao, H6READ)
1354                         && --timeout);
1355                 phw->response_buffer_address_on_dsp = address;
1356
1357                 if (!timeout)
1358                         return HPI6000_ERROR_RESP_GET_ADR;
1359         } else
1360                 address = phw->response_buffer_address_on_dsp;
1361
1362         /* read the length of the response back from the DSP */
1363         timeout = TIMEOUT;
1364         do {
1365                 length = hpi_read_word(pdo, HPI_HIF_ADDR(length));
1366         } while (hpi6000_check_PCI2040_error_flag(pao, H6READ) && --timeout);
1367         if (!timeout)
1368                 return HPI6000_ERROR_RESP_GET_LEN;
1369
1370         if (length > phr->size)
1371                 return HPI_ERROR_RESPONSE_BUFFER_TOO_SMALL;
1372
1373         /* get the response */
1374         p_data = (u32 *)phr;
1375         if (hpi6000_dsp_block_read32(pao, dsp_index, address, p_data,
1376                         (u16)length / 4))
1377                 return HPI6000_ERROR_MSG_RESP_BLOCKREAD32;
1378
1379         /* set i/f back to idle */
1380         if (hpi6000_send_host_command(pao, dsp_index, HPI_HIF_IDLE))
1381                 return HPI6000_ERROR_MSG_RESP_IDLECMD;
1382         hpi6000_send_dsp_interrupt(pdo);
1383
1384         error = hpi_validate_response(phm, phr);
1385         return error;
1386 }
1387
1388 /* have to set up the below defines to match stuff in the MAP file */
1389
1390 #define MSG_ADDRESS (HPI_HIF_BASE+0x18)
1391 #define MSG_LENGTH 11
1392 #define RESP_ADDRESS (HPI_HIF_BASE+0x44)
1393 #define RESP_LENGTH 16
1394 #define QUEUE_START  (HPI_HIF_BASE+0x88)
1395 #define QUEUE_SIZE 0x8000
1396
1397 static short hpi6000_send_data_check_adr(u32 address, u32 length_in_dwords)
1398 {
1399 /*#define CHECKING       // comment this line in to enable checking */
1400 #ifdef CHECKING
1401         if (address < (u32)MSG_ADDRESS)
1402                 return 0;
1403         if (address > (u32)(QUEUE_START + QUEUE_SIZE))
1404                 return 0;
1405         if ((address + (length_in_dwords << 2)) >
1406                 (u32)(QUEUE_START + QUEUE_SIZE))
1407                 return 0;
1408 #else
1409         (void)address;
1410         (void)length_in_dwords;
1411         return 1;
1412 #endif
1413 }
1414
1415 static short hpi6000_send_data(struct hpi_adapter_obj *pao, u16 dsp_index,
1416         struct hpi_message *phm, struct hpi_response *phr)
1417 {
1418         struct hpi_hw_obj *phw = pao->priv;
1419         struct dsp_obj *pdo = &phw->ado[dsp_index];
1420         u32 data_sent = 0;
1421         u16 ack;
1422         u32 length, address;
1423         u32 *p_data = (u32 *)phm->u.d.u.data.pb_data;
1424         u16 time_out = 8;
1425
1426         (void)phr;
1427
1428         /* round dwDataSize down to nearest 4 bytes */
1429         while ((data_sent < (phm->u.d.u.data.data_size & ~3L))
1430                 && --time_out) {
1431                 ack = hpi6000_wait_dsp_ack(pao, dsp_index, HPI_HIF_IDLE);
1432                 if (ack & HPI_HIF_ERROR_MASK)
1433                         return HPI6000_ERROR_SEND_DATA_IDLE_TIMEOUT;
1434
1435                 if (hpi6000_send_host_command(pao, dsp_index,
1436                                 HPI_HIF_SEND_DATA))
1437                         return HPI6000_ERROR_SEND_DATA_CMD;
1438
1439                 hpi6000_send_dsp_interrupt(pdo);
1440
1441                 ack = hpi6000_wait_dsp_ack(pao, dsp_index, HPI_HIF_SEND_DATA);
1442
1443                 if (ack & HPI_HIF_ERROR_MASK)
1444                         return HPI6000_ERROR_SEND_DATA_ACK;
1445
1446                 do {
1447                         /* get the address and size */
1448                         address = hpi_read_word(pdo, HPI_HIF_ADDR(address));
1449                         /* DSP returns number of DWORDS */
1450                         length = hpi_read_word(pdo, HPI_HIF_ADDR(length));
1451                 } while (hpi6000_check_PCI2040_error_flag(pao, H6READ));
1452
1453                 if (!hpi6000_send_data_check_adr(address, length))
1454                         return HPI6000_ERROR_SEND_DATA_ADR;
1455
1456                 /* send the data. break data into 512 DWORD blocks (2K bytes)
1457                  * and send using block write. 2Kbytes is the max as this is the
1458                  * memory window given to the HPI data register by the PCI2040
1459                  */
1460
1461                 {
1462                         u32 len = length;
1463                         u32 blk_len = 512;
1464                         while (len) {
1465                                 if (len < blk_len)
1466                                         blk_len = len;
1467                                 if (hpi6000_dsp_block_write32(pao, dsp_index,
1468                                                 address, p_data, blk_len))
1469                                         return HPI6000_ERROR_SEND_DATA_WRITE;
1470                                 address += blk_len * 4;
1471                                 p_data += blk_len;
1472                                 len -= blk_len;
1473                         }
1474                 }
1475
1476                 if (hpi6000_send_host_command(pao, dsp_index, HPI_HIF_IDLE))
1477                         return HPI6000_ERROR_SEND_DATA_IDLECMD;
1478
1479                 hpi6000_send_dsp_interrupt(pdo);
1480
1481                 data_sent += length * 4;
1482         }
1483         if (!time_out)
1484                 return HPI6000_ERROR_SEND_DATA_TIMEOUT;
1485         return 0;
1486 }
1487
1488 static short hpi6000_get_data(struct hpi_adapter_obj *pao, u16 dsp_index,
1489         struct hpi_message *phm, struct hpi_response *phr)
1490 {
1491         struct hpi_hw_obj *phw = pao->priv;
1492         struct dsp_obj *pdo = &phw->ado[dsp_index];
1493         u32 data_got = 0;
1494         u16 ack;
1495         u32 length, address;
1496         u32 *p_data = (u32 *)phm->u.d.u.data.pb_data;
1497
1498         (void)phr;      /* this parameter not used! */
1499
1500         /* round dwDataSize down to nearest 4 bytes */
1501         while (data_got < (phm->u.d.u.data.data_size & ~3L)) {
1502                 ack = hpi6000_wait_dsp_ack(pao, dsp_index, HPI_HIF_IDLE);
1503                 if (ack & HPI_HIF_ERROR_MASK)
1504                         return HPI6000_ERROR_GET_DATA_IDLE_TIMEOUT;
1505
1506                 if (hpi6000_send_host_command(pao, dsp_index,
1507                                 HPI_HIF_GET_DATA))
1508                         return HPI6000_ERROR_GET_DATA_CMD;
1509                 hpi6000_send_dsp_interrupt(pdo);
1510
1511                 ack = hpi6000_wait_dsp_ack(pao, dsp_index, HPI_HIF_GET_DATA);
1512
1513                 if (ack & HPI_HIF_ERROR_MASK)
1514                         return HPI6000_ERROR_GET_DATA_ACK;
1515
1516                 /* get the address and size */
1517                 do {
1518                         address = hpi_read_word(pdo, HPI_HIF_ADDR(address));
1519                         length = hpi_read_word(pdo, HPI_HIF_ADDR(length));
1520                 } while (hpi6000_check_PCI2040_error_flag(pao, H6READ));
1521
1522                 /* read the data */
1523                 {
1524                         u32 len = length;
1525                         u32 blk_len = 512;
1526                         while (len) {
1527                                 if (len < blk_len)
1528                                         blk_len = len;
1529                                 if (hpi6000_dsp_block_read32(pao, dsp_index,
1530                                                 address, p_data, blk_len))
1531                                         return HPI6000_ERROR_GET_DATA_READ;
1532                                 address += blk_len * 4;
1533                                 p_data += blk_len;
1534                                 len -= blk_len;
1535                         }
1536                 }
1537
1538                 if (hpi6000_send_host_command(pao, dsp_index, HPI_HIF_IDLE))
1539                         return HPI6000_ERROR_GET_DATA_IDLECMD;
1540                 hpi6000_send_dsp_interrupt(pdo);
1541
1542                 data_got += length * 4;
1543         }
1544         return 0;
1545 }
1546
1547 static void hpi6000_send_dsp_interrupt(struct dsp_obj *pdo)
1548 {
1549         iowrite32(0x00030003, pdo->prHPI_control);      /* DSPINT */
1550 }
1551
1552 static short hpi6000_send_host_command(struct hpi_adapter_obj *pao,
1553         u16 dsp_index, u32 host_cmd)
1554 {
1555         struct hpi_hw_obj *phw = pao->priv;
1556         struct dsp_obj *pdo = &phw->ado[dsp_index];
1557         u32 timeout = TIMEOUT;
1558
1559         /* set command */
1560         do {
1561                 hpi_write_word(pdo, HPI_HIF_ADDR(host_cmd), host_cmd);
1562                 /* flush the FIFO */
1563                 hpi_set_address(pdo, HPI_HIF_ADDR(host_cmd));
1564         } while (hpi6000_check_PCI2040_error_flag(pao, H6WRITE) && --timeout);
1565
1566         /* reset the interrupt bit */
1567         iowrite32(0x00040004, pdo->prHPI_control);
1568
1569         if (timeout)
1570                 return 0;
1571         else
1572                 return 1;
1573 }
1574
1575 /* if the PCI2040 has recorded an HPI timeout, reset the error and return 1 */
1576 static short hpi6000_check_PCI2040_error_flag(struct hpi_adapter_obj *pao,
1577         u16 read_or_write)
1578 {
1579         u32 hPI_error;
1580
1581         struct hpi_hw_obj *phw = pao->priv;
1582
1583         /* read the error bits from the PCI2040 */
1584         hPI_error = ioread32(phw->dw2040_HPICSR + HPI_ERROR_REPORT);
1585         if (hPI_error) {
1586                 /* reset the error flag */
1587                 iowrite32(0L, phw->dw2040_HPICSR + HPI_ERROR_REPORT);
1588                 phw->pCI2040HPI_error_count++;
1589                 if (read_or_write == 1)
1590                         gw_pci_read_asserts++;     /************* inc global */
1591                 else
1592                         gw_pci_write_asserts++;
1593                 return 1;
1594         } else
1595                 return 0;
1596 }
1597
1598 static short hpi6000_wait_dsp_ack(struct hpi_adapter_obj *pao, u16 dsp_index,
1599         u32 ack_value)
1600 {
1601         struct hpi_hw_obj *phw = pao->priv;
1602         struct dsp_obj *pdo = &phw->ado[dsp_index];
1603         u32 ack = 0L;
1604         u32 timeout;
1605         u32 hPIC = 0L;
1606
1607         /* wait for host interrupt to signal ack is ready */
1608         timeout = TIMEOUT;
1609         while (--timeout) {
1610                 hPIC = ioread32(pdo->prHPI_control);
1611                 if (hPIC & 0x04)        /* 0x04 = HINT from DSP */
1612                         break;
1613         }
1614         if (timeout == 0)
1615                 return HPI_HIF_ERROR_MASK;
1616
1617         /* wait for dwAckValue */
1618         timeout = TIMEOUT;
1619         while (--timeout) {
1620                 /* read the ack mailbox */
1621                 ack = hpi_read_word(pdo, HPI_HIF_ADDR(dsp_ack));
1622                 if (ack == ack_value)
1623                         break;
1624                 if ((ack & HPI_HIF_ERROR_MASK)
1625                         && !hpi6000_check_PCI2040_error_flag(pao, H6READ))
1626                         break;
1627                 /*for (i=0;i<1000;i++) */
1628                 /*      dwPause=i+1; */
1629         }
1630         if (ack & HPI_HIF_ERROR_MASK)
1631                 /* indicates bad read from DSP -
1632                    typically 0xffffff is read for some reason */
1633                 ack = HPI_HIF_ERROR_MASK;
1634
1635         if (timeout == 0)
1636                 ack = HPI_HIF_ERROR_MASK;
1637         return (short)ack;
1638 }
1639
1640 static short hpi6000_update_control_cache(struct hpi_adapter_obj *pao,
1641         struct hpi_message *phm)
1642 {
1643         const u16 dsp_index = 0;
1644         struct hpi_hw_obj *phw = pao->priv;
1645         struct dsp_obj *pdo = &phw->ado[dsp_index];
1646         u32 timeout;
1647         u32 cache_dirty_flag;
1648         u16 err;
1649
1650         hpios_dsplock_lock(pao);
1651
1652         timeout = TIMEOUT;
1653         do {
1654                 cache_dirty_flag =
1655                         hpi_read_word((struct dsp_obj *)pdo,
1656                         HPI_HIF_ADDR(control_cache_is_dirty));
1657         } while (hpi6000_check_PCI2040_error_flag(pao, H6READ) && --timeout);
1658         if (!timeout) {
1659                 err = HPI6000_ERROR_CONTROL_CACHE_PARAMS;
1660                 goto unlock;
1661         }
1662
1663         if (cache_dirty_flag) {
1664                 /* read the cached controls */
1665                 u32 address;
1666                 u32 length;
1667
1668                 timeout = TIMEOUT;
1669                 if (pdo->control_cache_address_on_dsp == 0) {
1670                         do {
1671                                 address =
1672                                         hpi_read_word((struct dsp_obj *)pdo,
1673                                         HPI_HIF_ADDR(control_cache_address));
1674
1675                                 length = hpi_read_word((struct dsp_obj *)pdo,
1676                                         HPI_HIF_ADDR
1677                                         (control_cache_size_in_bytes));
1678                         } while (hpi6000_check_PCI2040_error_flag(pao, H6READ)
1679                                 && --timeout);
1680                         if (!timeout) {
1681                                 err = HPI6000_ERROR_CONTROL_CACHE_ADDRLEN;
1682                                 goto unlock;
1683                         }
1684                         pdo->control_cache_address_on_dsp = address;
1685                         pdo->control_cache_length_on_dsp = length;
1686                 } else {
1687                         address = pdo->control_cache_address_on_dsp;
1688                         length = pdo->control_cache_length_on_dsp;
1689                 }
1690
1691                 if (hpi6000_dsp_block_read32(pao, dsp_index, address,
1692                                 (u32 *)&phw->control_cache[0],
1693                                 length / sizeof(u32))) {
1694                         err = HPI6000_ERROR_CONTROL_CACHE_READ;
1695                         goto unlock;
1696                 }
1697                 do {
1698                         hpi_write_word((struct dsp_obj *)pdo,
1699                                 HPI_HIF_ADDR(control_cache_is_dirty), 0);
1700                         /* flush the FIFO */
1701                         hpi_set_address(pdo, HPI_HIF_ADDR(host_cmd));
1702                 } while (hpi6000_check_PCI2040_error_flag(pao, H6WRITE)
1703                         && --timeout);
1704                 if (!timeout) {
1705                         err = HPI6000_ERROR_CONTROL_CACHE_FLUSH;
1706                         goto unlock;
1707                 }
1708
1709         }
1710         err = 0;
1711
1712 unlock:
1713         hpios_dsplock_unlock(pao);
1714         return err;
1715 }
1716
1717 /** Get dsp index for multi DSP adapters only */
1718 static u16 get_dsp_index(struct hpi_adapter_obj *pao, struct hpi_message *phm)
1719 {
1720         u16 ret = 0;
1721         switch (phm->object) {
1722         case HPI_OBJ_ISTREAM:
1723                 if (phm->obj_index < 2)
1724                         ret = 1;
1725                 break;
1726         case HPI_OBJ_PROFILE:
1727                 ret = phm->obj_index;
1728                 break;
1729         default:
1730                 break;
1731         }
1732         return ret;
1733 }
1734
1735 /** Complete transaction with DSP
1736
1737 Send message, get response, send or get stream data if any.
1738 */
1739 static void hw_message(struct hpi_adapter_obj *pao, struct hpi_message *phm,
1740         struct hpi_response *phr)
1741 {
1742         u16 error = 0;
1743         u16 dsp_index = 0;
1744         struct hpi_hw_obj *phw = pao->priv;
1745         u16 num_dsp = phw->num_dsp;
1746
1747         if (num_dsp < 2)
1748                 dsp_index = 0;
1749         else {
1750                 dsp_index = get_dsp_index(pao, phm);
1751
1752                 /* is this  checked on the DSP anyway? */
1753                 if ((phm->function == HPI_ISTREAM_GROUP_ADD)
1754                         || (phm->function == HPI_OSTREAM_GROUP_ADD)) {
1755                         struct hpi_message hm;
1756                         u16 add_index;
1757                         hm.obj_index = phm->u.d.u.stream.stream_index;
1758                         hm.object = phm->u.d.u.stream.object_type;
1759                         add_index = get_dsp_index(pao, &hm);
1760                         if (add_index != dsp_index) {
1761                                 phr->error = HPI_ERROR_NO_INTERDSP_GROUPS;
1762                                 return;
1763                         }
1764                 }
1765         }
1766
1767         hpios_dsplock_lock(pao);
1768         error = hpi6000_message_response_sequence(pao, dsp_index, phm, phr);
1769
1770         if (error)      /* something failed in the HPI/DSP interface */
1771                 goto err;
1772
1773         if (phr->error) /* something failed in the DSP */
1774                 goto out;
1775
1776         switch (phm->function) {
1777         case HPI_OSTREAM_WRITE:
1778         case HPI_ISTREAM_ANC_WRITE:
1779                 error = hpi6000_send_data(pao, dsp_index, phm, phr);
1780                 break;
1781         case HPI_ISTREAM_READ:
1782         case HPI_OSTREAM_ANC_READ:
1783                 error = hpi6000_get_data(pao, dsp_index, phm, phr);
1784                 break;
1785         case HPI_ADAPTER_GET_ASSERT:
1786                 phr->u.ax.assert.dsp_index = 0; /* dsp 0 default */
1787                 if (num_dsp == 2) {
1788                         if (!phr->u.ax.assert.count) {
1789                                 /* no assert from dsp 0, check dsp 1 */
1790                                 error = hpi6000_message_response_sequence(pao,
1791                                         1, phm, phr);
1792                                 phr->u.ax.assert.dsp_index = 1;
1793                         }
1794                 }
1795         }
1796
1797 err:
1798         if (error) {
1799                 if (error >= HPI_ERROR_BACKEND_BASE) {
1800                         phr->error = HPI_ERROR_DSP_COMMUNICATION;
1801                         phr->specific_error = error;
1802                 } else {
1803                         phr->error = error;
1804                 }
1805
1806                 /* just the header of the response is valid */
1807                 phr->size = sizeof(struct hpi_response_header);
1808         }
1809 out:
1810         hpios_dsplock_unlock(pao);
1811         return;
1812 }