xref: /openbmc/linux/arch/m68k/atari/config.c (revision 1da177e4)
1 /*
2  *  linux/arch/m68k/atari/config.c
3  *
4  *  Copyright (C) 1994 Bjoern Brauel
5  *
6  *  5/2/94 Roman Hodek:
7  *    Added setting of time_adj to get a better clock.
8  *
9  *  5/14/94 Roman Hodek:
10  *    gettod() for TT
11  *
12  *  5/15/94 Roman Hodek:
13  *    hard_reset_now() for Atari (and others?)
14  *
15  *  94/12/30 Andreas Schwab:
16  *    atari_sched_init fixed to get precise clock.
17  *
18  * This file is subject to the terms and conditions of the GNU General Public
19  * License.  See the file COPYING in the main directory of this archive
20  * for more details.
21  */
22 
23 /*
24  * Miscellaneous atari stuff
25  */
26 
27 #include <linux/config.h>
28 #include <linux/types.h>
29 #include <linux/mm.h>
30 #include <linux/console.h>
31 #include <linux/init.h>
32 #include <linux/delay.h>
33 #include <linux/ioport.h>
34 #include <linux/vt_kern.h>
35 
36 #include <asm/bootinfo.h>
37 #include <asm/setup.h>
38 #include <asm/atarihw.h>
39 #include <asm/atariints.h>
40 #include <asm/atari_stram.h>
41 #include <asm/system.h>
42 #include <asm/machdep.h>
43 #include <asm/hwtest.h>
44 #include <asm/io.h>
45 
46 u_long atari_mch_cookie;
47 u_long atari_mch_type;
48 struct atari_hw_present atari_hw_present;
49 u_long atari_switches;
50 int atari_dont_touch_floppy_select;
51 int atari_rtc_year_offset;
52 
53 /* local function prototypes */
54 static void atari_reset( void );
55 #ifdef CONFIG_ATARI_FLOPPY
56 extern void atari_floppy_setup(char *, int *);
57 #endif
58 static void atari_get_model(char *model);
59 static int atari_get_hardware_list(char *buffer);
60 
61 /* atari specific irq functions */
62 extern void atari_init_IRQ (void);
63 extern int atari_request_irq (unsigned int irq, irqreturn_t (*handler)(int, void *, struct pt_regs *),
64                               unsigned long flags, const char *devname, void *dev_id);
65 extern void atari_free_irq (unsigned int irq, void *dev_id);
66 extern void atari_enable_irq (unsigned int);
67 extern void atari_disable_irq (unsigned int);
68 extern int show_atari_interrupts (struct seq_file *, void *);
69 extern void atari_mksound( unsigned int count, unsigned int ticks );
70 #ifdef CONFIG_HEARTBEAT
71 static void atari_heartbeat( int on );
72 #endif
73 
74 /* atari specific timer functions (in time.c) */
75 extern void atari_sched_init(irqreturn_t (*)(int, void *, struct pt_regs *));
76 extern unsigned long atari_gettimeoffset (void);
77 extern int atari_mste_hwclk (int, struct rtc_time *);
78 extern int atari_tt_hwclk (int, struct rtc_time *);
79 extern int atari_mste_set_clock_mmss (unsigned long);
80 extern int atari_tt_set_clock_mmss (unsigned long);
81 
82 /* atari specific debug functions (in debug.c) */
83 extern void atari_debug_init(void);
84 
85 
86 /* I've moved hwreg_present() and hwreg_present_bywrite() out into
87  * mm/hwtest.c, to avoid having multiple copies of the same routine
88  * in the kernel [I wanted them in hp300 and they were already used
89  * in the nubus code. NB: I don't have an Atari so this might (just
90  * conceivably) break something.
91  * I've preserved the #if 0 version of hwreg_present_bywrite() here
92  * for posterity.
93  *   -- Peter Maydell <pmaydell@chiark.greenend.org.uk>, 05/1998
94  */
95 
96 #if 0
97 static int __init
98 hwreg_present_bywrite(volatile void *regp, unsigned char val)
99 {
100     int		ret;
101     long	save_sp, save_vbr;
102     static long tmp_vectors[3] = { [2] = (long)&&after_test };
103 
104     __asm__ __volatile__
105 	(	"movec	%/vbr,%2\n\t"	/* save vbr value            */
106                 "movec	%4,%/vbr\n\t"	/* set up temporary vectors  */
107 		"movel	%/sp,%1\n\t"	/* save sp                   */
108 		"moveq	#0,%0\n\t"	/* assume not present        */
109 		"moveb	%5,%3@\n\t"	/* write the hardware reg    */
110 		"cmpb	%3@,%5\n\t"	/* compare it                */
111 		"seq	%0"		/* comes here only if reg    */
112                                         /* is present                */
113 		: "=d&" (ret), "=r&" (save_sp), "=r&" (save_vbr)
114 		: "a" (regp), "r" (tmp_vectors), "d" (val)
115                 );
116   after_test:
117     __asm__ __volatile__
118       (	"movel	%0,%/sp\n\t"		/* restore sp                */
119         "movec	%1,%/vbr"			/* restore vbr               */
120         : : "r" (save_sp), "r" (save_vbr) : "sp"
121 	);
122 
123     return( ret );
124 }
125 #endif
126 
127 
128 /* ++roman: This is a more elaborate test for an SCC chip, since the plain
129  * Medusa board generates DTACK at the SCC's standard addresses, but a SCC
130  * board in the Medusa is possible. Also, the addresses where the ST_ESCC
131  * resides generate DTACK without the chip, too.
132  * The method is to write values into the interrupt vector register, that
133  * should be readable without trouble (from channel A!).
134  */
135 
136 static int __init scc_test( volatile char *ctla )
137 {
138 	if (!hwreg_present( ctla ))
139 		return( 0 );
140 	MFPDELAY();
141 
142 	*ctla = 2; MFPDELAY();
143 	*ctla = 0x40; MFPDELAY();
144 
145 	*ctla = 2; MFPDELAY();
146 	if (*ctla != 0x40) return( 0 );
147 	MFPDELAY();
148 
149 	*ctla = 2; MFPDELAY();
150 	*ctla = 0x60; MFPDELAY();
151 
152 	*ctla = 2; MFPDELAY();
153 	if (*ctla != 0x60) return( 0 );
154 
155 	return( 1 );
156 }
157 
158 
159     /*
160      *  Parse an Atari-specific record in the bootinfo
161      */
162 
163 int __init atari_parse_bootinfo(const struct bi_record *record)
164 {
165     int unknown = 0;
166     const u_long *data = record->data;
167 
168     switch (record->tag) {
169 	case BI_ATARI_MCH_COOKIE:
170 	    atari_mch_cookie = *data;
171 	    break;
172 	case BI_ATARI_MCH_TYPE:
173 	    atari_mch_type = *data;
174 	    break;
175 	default:
176 	    unknown = 1;
177     }
178     return(unknown);
179 }
180 
181 
182 /* Parse the Atari-specific switches= option. */
183 void __init atari_switches_setup( const char *str, unsigned len )
184 {
185     char switches[len+1];
186     char *p;
187     int ovsc_shift;
188     char *args = switches;
189 
190     /* copy string to local array, strsep works destructively... */
191     strlcpy( switches, str, sizeof(switches) );
192     atari_switches = 0;
193 
194     /* parse the options */
195     while ((p = strsep(&args, ",")) != NULL) {
196 	if (!*p) continue;
197 	ovsc_shift = 0;
198 	if (strncmp( p, "ov_", 3 ) == 0) {
199 	    p += 3;
200 	    ovsc_shift = ATARI_SWITCH_OVSC_SHIFT;
201 	}
202 
203 	if (strcmp( p, "ikbd" ) == 0) {
204 	    /* RTS line of IKBD ACIA */
205 	    atari_switches |= ATARI_SWITCH_IKBD << ovsc_shift;
206 	}
207 	else if (strcmp( p, "midi" ) == 0) {
208 	    /* RTS line of MIDI ACIA */
209 	    atari_switches |= ATARI_SWITCH_MIDI << ovsc_shift;
210 	}
211 	else if (strcmp( p, "snd6" ) == 0) {
212 	    atari_switches |= ATARI_SWITCH_SND6 << ovsc_shift;
213 	}
214 	else if (strcmp( p, "snd7" ) == 0) {
215 	    atari_switches |= ATARI_SWITCH_SND7 << ovsc_shift;
216 	}
217     }
218 }
219 
220 
221     /*
222      *  Setup the Atari configuration info
223      */
224 
225 void __init config_atari(void)
226 {
227     unsigned short tos_version;
228 
229     memset(&atari_hw_present, 0, sizeof(atari_hw_present));
230 
231     atari_debug_init();
232 
233     ioport_resource.end  = 0xFFFFFFFF;  /* Change size of I/O space from 64KB
234                                            to 4GB. */
235 
236     mach_sched_init      = atari_sched_init;
237     mach_init_IRQ        = atari_init_IRQ;
238     mach_request_irq     = atari_request_irq;
239     mach_free_irq        = atari_free_irq;
240     enable_irq           = atari_enable_irq;
241     disable_irq          = atari_disable_irq;
242     mach_get_model	 = atari_get_model;
243     mach_get_hardware_list = atari_get_hardware_list;
244     mach_get_irq_list	 = show_atari_interrupts;
245     mach_gettimeoffset   = atari_gettimeoffset;
246     mach_reset           = atari_reset;
247 #ifdef CONFIG_ATARI_FLOPPY
248     mach_floppy_setup	 = atari_floppy_setup;
249 #endif
250 #ifdef CONFIG_DUMMY_CONSOLE
251     conswitchp	         = &dummy_con;
252 #endif
253     mach_max_dma_address = 0xffffff;
254 #if defined(CONFIG_INPUT_M68K_BEEP) || defined(CONFIG_INPUT_M68K_BEEP_MODULE)
255     mach_beep          = atari_mksound;
256 #endif
257 #ifdef CONFIG_HEARTBEAT
258     mach_heartbeat = atari_heartbeat;
259 #endif
260 
261     /* Set switches as requested by the user */
262     if (atari_switches & ATARI_SWITCH_IKBD)
263 	acia.key_ctrl = ACIA_DIV64 | ACIA_D8N1S | ACIA_RHTID;
264     if (atari_switches & ATARI_SWITCH_MIDI)
265 	acia.mid_ctrl = ACIA_DIV16 | ACIA_D8N1S | ACIA_RHTID;
266     if (atari_switches & (ATARI_SWITCH_SND6|ATARI_SWITCH_SND7)) {
267 	sound_ym.rd_data_reg_sel = 14;
268 	sound_ym.wd_data = sound_ym.rd_data_reg_sel |
269 			   ((atari_switches&ATARI_SWITCH_SND6) ? 0x40 : 0) |
270 			   ((atari_switches&ATARI_SWITCH_SND7) ? 0x80 : 0);
271     }
272 
273     /* ++bjoern:
274      * Determine hardware present
275      */
276 
277     printk( "Atari hardware found: " );
278     if (MACH_IS_MEDUSA || MACH_IS_HADES) {
279         /* There's no Atari video hardware on the Medusa, but all the
280          * addresses below generate a DTACK so no bus error occurs! */
281     }
282     else if (hwreg_present( f030_xreg )) {
283 	ATARIHW_SET(VIDEL_SHIFTER);
284         printk( "VIDEL " );
285         /* This is a temporary hack: If there is Falcon video
286          * hardware, we assume that the ST-DMA serves SCSI instead of
287          * ACSI. In the future, there should be a better method for
288          * this...
289          */
290 	ATARIHW_SET(ST_SCSI);
291         printk( "STDMA-SCSI " );
292     }
293     else if (hwreg_present( tt_palette )) {
294 	ATARIHW_SET(TT_SHIFTER);
295         printk( "TT_SHIFTER " );
296     }
297     else if (hwreg_present( &shifter.bas_hi )) {
298         if (hwreg_present( &shifter.bas_lo ) &&
299 	    (shifter.bas_lo = 0x0aau, shifter.bas_lo == 0x0aau)) {
300 	    ATARIHW_SET(EXTD_SHIFTER);
301             printk( "EXTD_SHIFTER " );
302         }
303         else {
304 	    ATARIHW_SET(STND_SHIFTER);
305             printk( "STND_SHIFTER " );
306         }
307     }
308     if (hwreg_present( &mfp.par_dt_reg )) {
309 	ATARIHW_SET(ST_MFP);
310         printk( "ST_MFP " );
311     }
312     if (hwreg_present( &tt_mfp.par_dt_reg )) {
313 	ATARIHW_SET(TT_MFP);
314         printk( "TT_MFP " );
315     }
316     if (hwreg_present( &tt_scsi_dma.dma_addr_hi )) {
317 	ATARIHW_SET(SCSI_DMA);
318         printk( "TT_SCSI_DMA " );
319     }
320     if (!MACH_IS_HADES && hwreg_present( &st_dma.dma_hi )) {
321 	ATARIHW_SET(STND_DMA);
322         printk( "STND_DMA " );
323     }
324     if (MACH_IS_MEDUSA || /* The ST-DMA address registers aren't readable
325 			   * on all Medusas, so the test below may fail */
326         (hwreg_present( &st_dma.dma_vhi ) &&
327          (st_dma.dma_vhi = 0x55) && (st_dma.dma_hi = 0xaa) &&
328          st_dma.dma_vhi == 0x55 && st_dma.dma_hi == 0xaa &&
329          (st_dma.dma_vhi = 0xaa) && (st_dma.dma_hi = 0x55) &&
330          st_dma.dma_vhi == 0xaa && st_dma.dma_hi == 0x55)) {
331 	ATARIHW_SET(EXTD_DMA);
332         printk( "EXTD_DMA " );
333     }
334     if (hwreg_present( &tt_scsi.scsi_data )) {
335 	ATARIHW_SET(TT_SCSI);
336         printk( "TT_SCSI " );
337     }
338     if (hwreg_present( &sound_ym.rd_data_reg_sel )) {
339 	ATARIHW_SET(YM_2149);
340         printk( "YM2149 " );
341     }
342     if (!MACH_IS_MEDUSA && !MACH_IS_HADES &&
343 	hwreg_present( &tt_dmasnd.ctrl )) {
344 	ATARIHW_SET(PCM_8BIT);
345         printk( "PCM " );
346     }
347     if (!MACH_IS_HADES && hwreg_present( &falcon_codec.unused5 )) {
348 	ATARIHW_SET(CODEC);
349         printk( "CODEC " );
350     }
351     if (hwreg_present( &dsp56k_host_interface.icr )) {
352 	ATARIHW_SET(DSP56K);
353         printk( "DSP56K " );
354     }
355     if (hwreg_present( &tt_scc_dma.dma_ctrl ) &&
356 #if 0
357 	/* This test sucks! Who knows some better? */
358 	(tt_scc_dma.dma_ctrl = 0x01, (tt_scc_dma.dma_ctrl & 1) == 1) &&
359 	(tt_scc_dma.dma_ctrl = 0x00, (tt_scc_dma.dma_ctrl & 1) == 0)
360 #else
361 	!MACH_IS_MEDUSA && !MACH_IS_HADES
362 #endif
363 	) {
364 	ATARIHW_SET(SCC_DMA);
365         printk( "SCC_DMA " );
366     }
367     if (scc_test( &scc.cha_a_ctrl )) {
368 	ATARIHW_SET(SCC);
369         printk( "SCC " );
370     }
371     if (scc_test( &st_escc.cha_b_ctrl )) {
372 	ATARIHW_SET( ST_ESCC );
373 	printk( "ST_ESCC " );
374     }
375     if (MACH_IS_HADES)
376     {
377         ATARIHW_SET( VME );
378         printk( "VME " );
379     }
380     else if (hwreg_present( &tt_scu.sys_mask )) {
381 	ATARIHW_SET(SCU);
382 	/* Assume a VME bus if there's a SCU */
383 	ATARIHW_SET( VME );
384         printk( "VME SCU " );
385     }
386     if (hwreg_present( (void *)(0xffff9210) )) {
387 	ATARIHW_SET(ANALOG_JOY);
388         printk( "ANALOG_JOY " );
389     }
390     if (!MACH_IS_HADES && hwreg_present( blitter.halftone )) {
391 	ATARIHW_SET(BLITTER);
392         printk( "BLITTER " );
393     }
394     if (hwreg_present((void *)0xfff00039)) {
395 	ATARIHW_SET(IDE);
396         printk( "IDE " );
397     }
398 #if 1 /* This maybe wrong */
399     if (!MACH_IS_MEDUSA && !MACH_IS_HADES &&
400 	hwreg_present( &tt_microwire.data ) &&
401 	hwreg_present( &tt_microwire.mask ) &&
402 	(tt_microwire.mask = 0x7ff,
403 	 udelay(1),
404 	 tt_microwire.data = MW_LM1992_PSG_HIGH | MW_LM1992_ADDR,
405 	 udelay(1),
406 	 tt_microwire.data != 0)) {
407 	ATARIHW_SET(MICROWIRE);
408 	while (tt_microwire.mask != 0x7ff) ;
409         printk( "MICROWIRE " );
410     }
411 #endif
412     if (hwreg_present( &tt_rtc.regsel )) {
413 	ATARIHW_SET(TT_CLK);
414         printk( "TT_CLK " );
415         mach_hwclk = atari_tt_hwclk;
416         mach_set_clock_mmss = atari_tt_set_clock_mmss;
417     }
418     if (!MACH_IS_HADES && hwreg_present( &mste_rtc.sec_ones)) {
419 	ATARIHW_SET(MSTE_CLK);
420         printk( "MSTE_CLK ");
421         mach_hwclk = atari_mste_hwclk;
422         mach_set_clock_mmss = atari_mste_set_clock_mmss;
423     }
424     if (!MACH_IS_MEDUSA && !MACH_IS_HADES &&
425 	hwreg_present( &dma_wd.fdc_speed ) &&
426 	hwreg_write( &dma_wd.fdc_speed, 0 )) {
427 	    ATARIHW_SET(FDCSPEED);
428 	    printk( "FDC_SPEED ");
429     }
430     if (!MACH_IS_HADES && !ATARIHW_PRESENT(ST_SCSI)) {
431 	ATARIHW_SET(ACSI);
432         printk( "ACSI " );
433     }
434     printk("\n");
435 
436     if (CPU_IS_040_OR_060)
437         /* Now it seems to be safe to turn of the tt0 transparent
438          * translation (the one that must not be turned off in
439          * head.S...)
440          */
441         __asm__ volatile ("moveq #0,%/d0\n\t"
442                           ".chip 68040\n\t"
443 			  "movec %%d0,%%itt0\n\t"
444 			  "movec %%d0,%%dtt0\n\t"
445 			  ".chip 68k"
446 						  : /* no outputs */
447 						  : /* no inputs */
448 						  : "d0");
449 
450     /* allocator for memory that must reside in st-ram */
451     atari_stram_init ();
452 
453     /* Set up a mapping for the VMEbus address region:
454      *
455      * VME is either at phys. 0xfexxxxxx (TT) or 0xa00000..0xdfffff
456      * (MegaSTE) In both cases, the whole 16 MB chunk is mapped at
457      * 0xfe000000 virt., because this can be done with a single
458      * transparent translation. On the 68040, lots of often unused
459      * page tables would be needed otherwise. On a MegaSTE or similar,
460      * the highest byte is stripped off by hardware due to the 24 bit
461      * design of the bus.
462      */
463 
464     if (CPU_IS_020_OR_030) {
465         unsigned long	tt1_val;
466         tt1_val = 0xfe008543;	/* Translate 0xfexxxxxx, enable, cache
467                                  * inhibit, read and write, FDC mask = 3,
468                                  * FDC val = 4 -> Supervisor only */
469         __asm__ __volatile__ ( ".chip 68030\n\t"
470 				"pmove	%0@,%/tt1\n\t"
471 				".chip 68k"
472 				: : "a" (&tt1_val) );
473     }
474     else {
475         __asm__ __volatile__
476             ( "movel %0,%/d0\n\t"
477 	      ".chip 68040\n\t"
478 	      "movec %%d0,%%itt1\n\t"
479 	      "movec %%d0,%%dtt1\n\t"
480 	      ".chip 68k"
481               :
482               : "g" (0xfe00a040)	/* Translate 0xfexxxxxx, enable,
483                                          * supervisor only, non-cacheable/
484                                          * serialized, writable */
485               : "d0" );
486 
487     }
488 
489     /* Fetch tos version at Physical 2 */
490     /* We my not be able to access this address if the kernel is
491        loaded to st ram, since the first page is unmapped.  On the
492        Medusa this is always the case and there is nothing we can do
493        about this, so we just assume the smaller offset.  For the TT
494        we use the fact that in head.S we have set up a mapping
495        0xFFxxxxxx -> 0x00xxxxxx, so that the first 16MB is accessible
496        in the last 16MB of the address space. */
497     tos_version = (MACH_IS_MEDUSA || MACH_IS_HADES) ?
498 		  0xfff : *(unsigned short *)0xff000002;
499     atari_rtc_year_offset = (tos_version < 0x306) ? 70 : 68;
500 }
501 
502 #ifdef CONFIG_HEARTBEAT
503 static void atari_heartbeat( int on )
504 {
505     unsigned char tmp;
506     unsigned long flags;
507 
508     if (atari_dont_touch_floppy_select)
509 	return;
510 
511     local_irq_save(flags);
512     sound_ym.rd_data_reg_sel = 14; /* Select PSG Port A */
513     tmp = sound_ym.rd_data_reg_sel;
514     sound_ym.wd_data = on ? (tmp & ~0x02) : (tmp | 0x02);
515     local_irq_restore(flags);
516 }
517 #endif
518 
519 /* ++roman:
520  *
521  * This function does a reset on machines that lack the ability to
522  * assert the processor's _RESET signal somehow via hardware. It is
523  * based on the fact that you can find the initial SP and PC values
524  * after a reset at physical addresses 0 and 4. This works pretty well
525  * for Atari machines, since the lowest 8 bytes of physical memory are
526  * really ROM (mapped by hardware). For other 680x0 machines: don't
527  * know if it works...
528  *
529  * To get the values at addresses 0 and 4, the MMU better is turned
530  * off first. After that, we have to jump into physical address space
531  * (the PC before the pmove statement points to the virtual address of
532  * the code). Getting that physical address is not hard, but the code
533  * becomes a bit complex since I've tried to ensure that the jump
534  * statement after the pmove is in the cache already (otherwise the
535  * processor can't fetch it!). For that, the code first jumps to the
536  * jump statement with the (virtual) address of the pmove section in
537  * an address register . The jump statement is surely in the cache
538  * now. After that, that physical address of the reset code is loaded
539  * into the same address register, pmove is done and the same jump
540  * statements goes to the reset code. Since there are not many
541  * statements between the two jumps, I hope it stays in the cache.
542  *
543  * The C code makes heavy use of the GCC features that you can get the
544  * address of a C label. No hope to compile this with another compiler
545  * than GCC!
546  */
547 
548 /* ++andreas: no need for complicated code, just depend on prefetch */
549 
550 static void atari_reset (void)
551 {
552     long tc_val = 0;
553     long reset_addr;
554 
555     /* On the Medusa, phys. 0x4 may contain garbage because it's no
556        ROM.  See above for explanation why we cannot use PTOV(4). */
557     reset_addr = MACH_IS_HADES ? 0x7fe00030 :
558                  MACH_IS_MEDUSA || MACH_IS_AB40 ? 0xe00030 :
559 		 *(unsigned long *) 0xff000004;
560 
561     /* reset ACIA for switch off OverScan, if it's active */
562     if (atari_switches & ATARI_SWITCH_OVSC_IKBD)
563 	acia.key_ctrl = ACIA_RESET;
564     if (atari_switches & ATARI_SWITCH_OVSC_MIDI)
565 	acia.mid_ctrl = ACIA_RESET;
566 
567     /* processor independent: turn off interrupts and reset the VBR;
568      * the caches must be left enabled, else prefetching the final jump
569      * instruction doesn't work. */
570     local_irq_disable();
571     __asm__ __volatile__
572 	("moveq	#0,%/d0\n\t"
573 	 "movec	%/d0,%/vbr"
574 	 : : : "d0" );
575 
576     if (CPU_IS_040_OR_060) {
577         unsigned long jmp_addr040 = virt_to_phys(&&jmp_addr_label040);
578 	if (CPU_IS_060) {
579 	    /* 68060: clear PCR to turn off superscalar operation */
580 	    __asm__ __volatile__
581 		("moveq	#0,%/d0\n\t"
582 		 ".chip 68060\n\t"
583 		 "movec %%d0,%%pcr\n\t"
584 		 ".chip 68k"
585 		 : : : "d0" );
586 	}
587 
588         __asm__ __volatile__
589             ("movel    %0,%/d0\n\t"
590              "andl     #0xff000000,%/d0\n\t"
591              "orw      #0xe020,%/d0\n\t"   /* map 16 MB, enable, cacheable */
592              ".chip 68040\n\t"
593 	     "movec    %%d0,%%itt0\n\t"
594              "movec    %%d0,%%dtt0\n\t"
595 	     ".chip 68k\n\t"
596              "jmp   %0@\n\t"
597              : /* no outputs */
598              : "a" (jmp_addr040)
599              : "d0" );
600       jmp_addr_label040:
601         __asm__ __volatile__
602           ("moveq #0,%/d0\n\t"
603 	   "nop\n\t"
604 	   ".chip 68040\n\t"
605 	   "cinva %%bc\n\t"
606 	   "nop\n\t"
607 	   "pflusha\n\t"
608 	   "nop\n\t"
609 	   "movec %%d0,%%tc\n\t"
610 	   "nop\n\t"
611 	   /* the following setup of transparent translations is needed on the
612 	    * Afterburner040 to successfully reboot. Other machines shouldn't
613 	    * care about a different tt regs setup, they also didn't care in
614 	    * the past that the regs weren't turned off. */
615 	   "movel #0xffc000,%%d0\n\t" /* whole insn space cacheable */
616 	   "movec %%d0,%%itt0\n\t"
617 	   "movec %%d0,%%itt1\n\t"
618 	   "orw   #0x40,%/d0\n\t" /* whole data space non-cacheable/ser. */
619 	   "movec %%d0,%%dtt0\n\t"
620 	   "movec %%d0,%%dtt1\n\t"
621 	   ".chip 68k\n\t"
622            "jmp %0@"
623            : /* no outputs */
624            : "a" (reset_addr)
625            : "d0");
626     }
627     else
628         __asm__ __volatile__
629             ("pmove %0@,%/tc\n\t"
630              "jmp %1@"
631              : /* no outputs */
632              : "a" (&tc_val), "a" (reset_addr));
633 }
634 
635 
636 static void atari_get_model(char *model)
637 {
638     strcpy(model, "Atari ");
639     switch (atari_mch_cookie >> 16) {
640 	case ATARI_MCH_ST:
641 	    if (ATARIHW_PRESENT(MSTE_CLK))
642 		strcat (model, "Mega ST");
643 	    else
644 		strcat (model, "ST");
645 	    break;
646 	case ATARI_MCH_STE:
647 	    if (MACH_IS_MSTE)
648 		strcat (model, "Mega STE");
649 	    else
650 		strcat (model, "STE");
651 	    break;
652 	case ATARI_MCH_TT:
653 	    if (MACH_IS_MEDUSA)
654 		/* Medusa has TT _MCH cookie */
655 		strcat (model, "Medusa");
656 	    else if (MACH_IS_HADES)
657 		strcat(model, "Hades");
658 	    else
659 		strcat (model, "TT");
660 	    break;
661 	case ATARI_MCH_FALCON:
662 	    strcat (model, "Falcon");
663 	    if (MACH_IS_AB40)
664 		strcat (model, " (with Afterburner040)");
665 	    break;
666 	default:
667 	    sprintf (model + strlen (model), "(unknown mach cookie 0x%lx)",
668 		     atari_mch_cookie);
669 	    break;
670     }
671 }
672 
673 
674 static int atari_get_hardware_list(char *buffer)
675 {
676     int len = 0, i;
677 
678     for (i = 0; i < m68k_num_memory; i++)
679 	len += sprintf (buffer+len, "\t%3ld MB at 0x%08lx (%s)\n",
680 			m68k_memory[i].size >> 20, m68k_memory[i].addr,
681 			(m68k_memory[i].addr & 0xff000000 ?
682 			 "alternate RAM" : "ST-RAM"));
683 
684 #define ATARIHW_ANNOUNCE(name,str)				\
685     if (ATARIHW_PRESENT(name))			\
686 	len += sprintf (buffer + len, "\t%s\n", str)
687 
688     len += sprintf (buffer + len, "Detected hardware:\n");
689     ATARIHW_ANNOUNCE(STND_SHIFTER, "ST Shifter");
690     ATARIHW_ANNOUNCE(EXTD_SHIFTER, "STe Shifter");
691     ATARIHW_ANNOUNCE(TT_SHIFTER, "TT Shifter");
692     ATARIHW_ANNOUNCE(VIDEL_SHIFTER, "Falcon Shifter");
693     ATARIHW_ANNOUNCE(YM_2149, "Programmable Sound Generator");
694     ATARIHW_ANNOUNCE(PCM_8BIT, "PCM 8 Bit Sound");
695     ATARIHW_ANNOUNCE(CODEC, "CODEC Sound");
696     ATARIHW_ANNOUNCE(TT_SCSI, "SCSI Controller NCR5380 (TT style)");
697     ATARIHW_ANNOUNCE(ST_SCSI, "SCSI Controller NCR5380 (Falcon style)");
698     ATARIHW_ANNOUNCE(ACSI, "ACSI Interface");
699     ATARIHW_ANNOUNCE(IDE, "IDE Interface");
700     ATARIHW_ANNOUNCE(FDCSPEED, "8/16 Mhz Switch for FDC");
701     ATARIHW_ANNOUNCE(ST_MFP, "Multi Function Peripheral MFP 68901");
702     ATARIHW_ANNOUNCE(TT_MFP, "Second Multi Function Peripheral MFP 68901");
703     ATARIHW_ANNOUNCE(SCC, "Serial Communications Controller SCC 8530");
704     ATARIHW_ANNOUNCE(ST_ESCC, "Extended Serial Communications Controller SCC 85230");
705     ATARIHW_ANNOUNCE(ANALOG_JOY, "Paddle Interface");
706     ATARIHW_ANNOUNCE(MICROWIRE, "MICROWIRE(tm) Interface");
707     ATARIHW_ANNOUNCE(STND_DMA, "DMA Controller (24 bit)");
708     ATARIHW_ANNOUNCE(EXTD_DMA, "DMA Controller (32 bit)");
709     ATARIHW_ANNOUNCE(SCSI_DMA, "DMA Controller for NCR5380");
710     ATARIHW_ANNOUNCE(SCC_DMA, "DMA Controller for SCC");
711     ATARIHW_ANNOUNCE(TT_CLK, "Clock Chip MC146818A");
712     ATARIHW_ANNOUNCE(MSTE_CLK, "Clock Chip RP5C15");
713     ATARIHW_ANNOUNCE(SCU, "System Control Unit");
714     ATARIHW_ANNOUNCE(BLITTER, "Blitter");
715     ATARIHW_ANNOUNCE(VME, "VME Bus");
716     ATARIHW_ANNOUNCE(DSP56K, "DSP56001 processor");
717 
718     return(len);
719 }
720 
721 /*
722  * Local variables:
723  *  c-indent-level: 4
724  *  tab-width: 8
725  * End:
726  */
727