1 /***************************************************************************
2 Break Thru Doc. Data East (1986)
3 
4 driver by Phil Stroffolino
5 
6 UNK-1.1    (16Kb)  Code (4000-7FFF)
7 UNK-1.2    (32Kb)  Main 6809 (8000-FFFF)
8 UNK-1.3    (32Kb)  Mapped (2000-3FFF)
9 UNK-1.4    (32Kb)  Mapped (2000-3FFF)
10 
11 UNK-1.5    (32Kb)  Sound 6809 (8000-FFFF)
12 
13 Background has 4 banks, with 256 16x16x8 tiles in each bank.
14 UNK-1.6    (32Kb)  GFX Background
15 UNK-1.7    (32Kb)  GFX Background
16 UNK-1.8    (32Kb)  GFX Background
17 
18 UNK-1.9    (32Kb)  GFX Sprites
19 UNK-1.10   (32Kb)  GFX Sprites
20 UNK-1.11   (32Kb)  GFX Sprites
21 
22 Text has 256 8x8x4 characters.
23 UNK-1.12   (8Kb)   GFX Text
24 
25 **************************************************************************
26 Memory Map for Main CPU by Carlos A. Lozano
27 **************************************************************************
28 
29 MAIN CPU
30 0000-03FF                                   W                   Plane0
31 0400-0BFF                                  R/W                  RAM
32 0C00-0FFF                                   W                   Plane2(Background)
33 1000-10FF                                   W                   Plane1(sprites)
34 1100-17FF                                  R/W                  RAM
35 1800-180F                                  R/W                  In/Out
36 1810-1FFF                                  R/W                  RAM (unmapped?)
37 2000-3FFF                                   R                   ROM Mapped(*)
38 4000-7FFF                                   R                   ROM(UNK-1.1)
39 8000-FFFF                                   R                   ROM(UNK-1.2)
40 
41 Interrupts: Reset, NMI, IRQ
42 The test routine is at F000
43 
44 Sound: YM2203 and YM3526 driven by 6809.  Sound added by Bryan McPhail, 1/4/98.
45 
46 ***************************************************************************/
47 
48 #include "driver.h"
49 #include "vidhrdw/generic.h"
50 #include "cpu/m6809/m6809.h"
51 
52 
53 unsigned char *brkthru_nmi_enable; /* needs to be tracked down */
54 extern unsigned char *brkthru_videoram;
55 extern size_t brkthru_videoram_size;
56 
57 WRITE_HANDLER( brkthru_1800_w );
58 WRITE_HANDLER( brkthru_bgram_w );
59 WRITE_HANDLER( brkthru_fgram_w );
60 VIDEO_START( brkthru );
61 PALETTE_INIT( brkthru );
62 VIDEO_UPDATE( brkthru );
63 
64 
65 static int nmi_enable;
66 
WRITE_HANDLER(brkthru_1803_w)67 WRITE_HANDLER( brkthru_1803_w )
68 {
69 	/* bit 0 = NMI enable */
70 	nmi_enable = ~data & 1;
71 
72 	/* bit 1 = ? maybe IRQ acknowledge */
73 }
WRITE_HANDLER(darwin_0803_w)74 WRITE_HANDLER( darwin_0803_w )
75 {
76 	/* bit 0 = NMI enable */
77 	/*nmi_enable = ~data & 1;*/
78 	logerror("0803 %02X\n",data);
79         nmi_enable = data;
80 	/* bit 1 = ? maybe IRQ acknowledge */
81 }
82 
WRITE_HANDLER(brkthru_soundlatch_w)83 WRITE_HANDLER( brkthru_soundlatch_w )
84 {
85 	soundlatch_w(offset,data);
86 	cpu_set_irq_line(1,IRQ_LINE_NMI,PULSE_LINE);
87 }
88 
89 
90 
MEMORY_READ_START(readmem)91 static MEMORY_READ_START( readmem )
92 	{ 0x0000, 0x03ff, MRA_RAM },		/* Plane 0: Text */
93 	{ 0x0400, 0x0bff, MRA_RAM },
94 	{ 0x0c00, 0x0fff, MRA_RAM },		/* Plane 2  Background */
95 	{ 0x1000, 0x10ff, MRA_RAM },		/* Plane 1: Sprites */
96 	{ 0x1100, 0x17ff, MRA_RAM },
97 	{ 0x1800, 0x1800, input_port_0_r },	/* player controls, player start */
98 	{ 0x1801, 0x1801, input_port_1_r },	/* cocktail player controls */
99 	{ 0x1802, 0x1802, input_port_3_r },	/* DSW 0 */
100 	{ 0x1803, 0x1803, input_port_2_r },	/* coin input & DSW */
101 	{ 0x2000, 0x3fff, MRA_BANK1 },
102 	{ 0x4000, 0xffff, MRA_ROM },
103 MEMORY_END
104 
105 static MEMORY_WRITE_START( writemem )
106 	{ 0x0000, 0x03ff, brkthru_fgram_w, &brkthru_videoram, &brkthru_videoram_size },
107 	{ 0x0400, 0x0bff, MWA_RAM },
108 	{ 0x0c00, 0x0fff, brkthru_bgram_w, &videoram, &videoram_size },
109 	{ 0x1000, 0x10ff, MWA_RAM, &spriteram, &spriteram_size },
110 	{ 0x1100, 0x17ff, MWA_RAM },
111 	{ 0x1800, 0x1801, brkthru_1800_w },	/* bg scroll and color, ROM bank selection, flip screen */
112 	{ 0x1802, 0x1802, brkthru_soundlatch_w },
113 	{ 0x1803, 0x1803, brkthru_1803_w },	/* NMI enable, + ? */
114 	{ 0x2000, 0xffff, MWA_ROM },
115 MEMORY_END
116 static MEMORY_READ_START( darwin_readmem )
117 	{ 0x1000, 0x13ff, MRA_RAM },		/* Plane 0: Text */
118 	{ 0x0400, 0x07ff, MRA_RAM },
119 	{ 0x1c00, 0x1fff, MRA_RAM },		/* Plane 2  Background */
120 	{ 0x0000, 0x00ff, MRA_RAM },		/* Plane 1: Sprites */
121  	{ 0x1400, 0x1bff, MRA_RAM },
122 	{ 0x0800, 0x0800, input_port_0_r },	/* player controls, player start */
123 	{ 0x0801, 0x0801, input_port_1_r },	/* cocktail player controls */
124 	{ 0x0802, 0x0802, input_port_3_r },	/* DSW 0 */
125 	{ 0x0803, 0x0803, input_port_2_r },	/* coin input & DSW */
126 	{ 0x2000, 0x3fff, MRA_BANK1 },
127 	{ 0x4000, 0xffff, MRA_ROM },
128 MEMORY_END
129 
130 static MEMORY_WRITE_START( darwin_writemem )
131 	{ 0x1000, 0x13ff, brkthru_fgram_w, &brkthru_videoram, &brkthru_videoram_size },
132 	{ 0x1c00, 0x1fff, brkthru_bgram_w, &videoram, &videoram_size },
133 	{ 0x0000, 0x00ff, MWA_RAM, &spriteram, &spriteram_size },
134 	{ 0x1400, 0x1bff, MWA_RAM },
135 	{ 0x0100, 0x01ff, MWA_NOP  }, /*tidyup, nothing realy here?*/
136 	{ 0x0800, 0x0801, brkthru_1800_w },     /* bg scroll and color, ROM bank selection, flip screen */
137 	{ 0x0802, 0x0802, brkthru_soundlatch_w },
138 	{ 0x0803, 0x0803, darwin_0803_w },     /* NMI enable, + ? */
139 	{ 0x2000, 0xffff, MWA_ROM },
140 MEMORY_END
141 
142 static MEMORY_READ_START( sound_readmem )
143 	{ 0x0000, 0x1fff, MRA_RAM },
144 	{ 0x4000, 0x4000, soundlatch_r },
145 	{ 0x6000, 0x6000, YM2203_status_port_0_r },
146 	{ 0x8000, 0xffff, MRA_ROM },
147 MEMORY_END
148 
149 static MEMORY_WRITE_START( sound_writemem )
150 	{ 0x0000, 0x1fff, MWA_RAM },
151 	{ 0x2000, 0x2000, YM3526_control_port_0_w  },
152 	{ 0x2001, 0x2001, YM3526_write_port_0_w },
153 	{ 0x6000, 0x6000, YM2203_control_port_0_w },
154 	{ 0x6001, 0x6001, YM2203_write_port_0_w },
155 	{ 0x8000, 0xffff, MWA_ROM },
156 MEMORY_END
157 
158 
159 
160 INTERRUPT_GEN( brkthru_interrupt )
161 {
162 	if (cpu_getiloops() == 0)
163 	{
164 		if (nmi_enable)
165 			cpu_set_irq_line(0, IRQ_LINE_NMI, PULSE_LINE);
166 	}
167 	else
168 	{
169 		/* generate IRQ on coin insertion */
170 		if ((readinputport(2) & 0xe0) != 0xe0)
171 			cpu_set_irq_line(0, 0, HOLD_LINE);
172 	}
173 }
174 
175 INPUT_PORTS_START( brkthru )
176 	PORT_START	/* IN0 */
177 	PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 )
178 	PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 )
179 	PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN  | IPF_8WAY )
180 	PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_UP    | IPF_8WAY )
181 	PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT  | IPF_8WAY )
182 	PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT | IPF_8WAY )
183 	PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_START1 )
184 	PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_START2 )
185 
186 	PORT_START	/* IN1 */
187 	PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 | IPF_COCKTAIL )
188 	PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 | IPF_COCKTAIL )
189 	PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN  | IPF_8WAY | IPF_COCKTAIL )
190 	PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_UP    | IPF_8WAY | IPF_COCKTAIL )
191 	PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT  | IPF_8WAY | IPF_COCKTAIL )
192 	PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT | IPF_8WAY | IPF_COCKTAIL )
193 	PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_UNKNOWN )
194 	PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_VBLANK )	/* used only by the self test */
195 
196 	PORT_START	/* IN2 */
197 	PORT_DIPNAME( 0x03, 0x03, DEF_STR( Lives ) )
198 	PORT_DIPSETTING(    0x02, "2" )
199 	PORT_DIPSETTING(    0x03, "3" )
200 	PORT_DIPSETTING(    0x01, "5" )
201 	PORT_BITX(0,        0x00, IPT_DIPSWITCH_SETTING | IPF_CHEAT, "99", IP_KEY_NONE, IP_JOY_NONE )
202 	PORT_DIPNAME( 0x04, 0x04, DEF_STR( Unknown ) )
203 	PORT_DIPSETTING(    0x04, DEF_STR( Off ) )
204 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
205 	PORT_DIPNAME( 0x08, 0x08, DEF_STR( Unknown ) )
206 	PORT_DIPSETTING(    0x08, DEF_STR( Off ) )
207 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
208 	PORT_DIPNAME( 0x10, 0x10, "Allow Continue" )
209 	PORT_DIPSETTING(    0x00, DEF_STR( No ) )
210 	PORT_DIPSETTING(    0x10, DEF_STR( Yes ) )
211 	PORT_BIT_IMPULSE( 0x20, IP_ACTIVE_LOW, IPT_COIN1, 2 )
212 	PORT_BIT_IMPULSE( 0x40, IP_ACTIVE_LOW, IPT_COIN2, 2 )
213 	PORT_BIT_IMPULSE( 0x80, IP_ACTIVE_LOW, IPT_SERVICE1, 2 )
214 
215 	PORT_START      /* DSW0 */
216 	PORT_DIPNAME( 0x03, 0x03, DEF_STR( Coin_A ) )
217 	PORT_DIPSETTING(    0x00, DEF_STR( 2C_1C ) )
218 	PORT_DIPSETTING(    0x03, DEF_STR( 1C_1C ) )
219 	PORT_DIPSETTING(    0x02, DEF_STR( 1C_2C ) )
220 	PORT_DIPSETTING(    0x01, DEF_STR( 1C_3C ) )
221 	PORT_DIPNAME( 0x0c, 0x0c, DEF_STR( Coin_B ) )
222 	PORT_DIPSETTING(    0x00, DEF_STR( 2C_1C ) )
223 	PORT_DIPSETTING(    0x0c, DEF_STR( 1C_1C ) )
224 	PORT_DIPSETTING(    0x08, DEF_STR( 1C_2C ) )
225 	PORT_DIPSETTING(    0x04, DEF_STR( 1C_3C ) )
226 	PORT_DIPNAME( 0x10, 0x10, DEF_STR( Unknown ) )
227 	PORT_DIPSETTING(    0x10, DEF_STR( Off ) )
228 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
229 	PORT_DIPNAME( 0x20, 0x20, DEF_STR( Unknown ) )
230 	PORT_DIPSETTING(    0x20, DEF_STR( Off ) )
231 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
232 	PORT_DIPNAME( 0xc0, 0x00, DEF_STR( Cabinet ) )
233 	PORT_DIPSETTING(    0x00, "Upright 1 Player" )
234 	PORT_DIPSETTING(    0x40, "Upright 2 Players" )
235 //	PORT_DIPSETTING(    0x80, DEF_STR( Cocktail ) )		// "Cocktail 1 Player" - IMPOSSIBLE !
236 	PORT_DIPSETTING(    0xc0, DEF_STR( Cocktail ) )		// "Cocktail 2 Players"
237 INPUT_PORTS_END
238 
239 INPUT_PORTS_START( brkthruj )
240 	PORT_START	/* IN0 */
241 	PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 )
242 	PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 )
243 	PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN  | IPF_8WAY )
244 	PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_UP    | IPF_8WAY )
245 	PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT  | IPF_8WAY )
246 	PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT | IPF_8WAY )
247 	PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_START1 )
248 	PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_START2 )
249 
250 	PORT_START	/* IN1 */
251 	PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 | IPF_COCKTAIL )
252 	PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 | IPF_COCKTAIL )
253 	PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN  | IPF_8WAY | IPF_COCKTAIL )
254 	PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_UP    | IPF_8WAY | IPF_COCKTAIL )
255 	PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT  | IPF_8WAY | IPF_COCKTAIL )
256 	PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT | IPF_8WAY | IPF_COCKTAIL )
257 	PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_UNKNOWN )
258 	PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_VBLANK )	/* used only by the self test */
259 
260 	PORT_START	/* IN2 */
261 	PORT_DIPNAME( 0x03, 0x03, DEF_STR( Lives ) )
262 	PORT_DIPSETTING(    0x02, "2" )
263 	PORT_DIPSETTING(    0x03, "3" )
264 	PORT_DIPSETTING(    0x01, "5" )
265 	PORT_BITX(0,        0x00, IPT_DIPSWITCH_SETTING | IPF_CHEAT, "99", IP_KEY_NONE, IP_JOY_NONE )
266 	PORT_DIPNAME( 0x04, 0x04, DEF_STR( Unknown ) )
267 	PORT_DIPSETTING(    0x04, DEF_STR( Off ) )
268 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
269 	PORT_DIPNAME( 0x08, 0x08, DEF_STR( Unknown ) )
270 	PORT_DIPSETTING(    0x08, DEF_STR( Off ) )
271 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
272 	PORT_SERVICE( 0x10, IP_ACTIVE_LOW )
273 	PORT_BIT_IMPULSE( 0x20, IP_ACTIVE_LOW, IPT_COIN1, 2 )
274 	PORT_BIT_IMPULSE( 0x40, IP_ACTIVE_LOW, IPT_COIN2, 2 )
275 	PORT_BIT_IMPULSE( 0x80, IP_ACTIVE_LOW, IPT_SERVICE1, 2 )
276 
277 	PORT_START      /* DSW0 */
278 	PORT_DIPNAME( 0x03, 0x03, DEF_STR( Coin_A ) )
279 	PORT_DIPSETTING(    0x00, DEF_STR( 2C_1C ) )
280 	PORT_DIPSETTING(    0x03, DEF_STR( 1C_1C ) )
281 	PORT_DIPSETTING(    0x02, DEF_STR( 1C_2C ) )
282 	PORT_DIPSETTING(    0x01, DEF_STR( 1C_3C ) )
283 	PORT_DIPNAME( 0x0c, 0x0c, DEF_STR( Coin_B ) )
284 	PORT_DIPSETTING(    0x00, DEF_STR( 2C_1C ) )
285 	PORT_DIPSETTING(    0x0c, DEF_STR( 1C_1C ) )
286 	PORT_DIPSETTING(    0x08, DEF_STR( 1C_2C ) )
287 	PORT_DIPSETTING(    0x04, DEF_STR( 1C_3C ) )
288 	PORT_DIPNAME( 0x10, 0x10, DEF_STR( Unknown ) )
289 	PORT_DIPSETTING(    0x10, DEF_STR( Off ) )
290 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
291 	PORT_DIPNAME( 0x20, 0x20, DEF_STR( Unknown ) )
292 	PORT_DIPSETTING(    0x20, DEF_STR( Off ) )
293 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
294 	PORT_DIPNAME( 0xc0, 0x00, DEF_STR( Cabinet ) )
295 	PORT_DIPSETTING(    0x00, "Upright 1 Player" )
296 	PORT_DIPSETTING(    0x40, "Upright 2 Players" )
297 //	PORT_DIPSETTING(    0x80, DEF_STR( Cocktail ) )		// "Cocktail 1 Player" - IMPOSSIBLE !
298 	PORT_DIPSETTING(    0xc0, DEF_STR( Cocktail ) )		// "Cocktail 2 Players"
299 INPUT_PORTS_END
300 
301 INPUT_PORTS_START( darwin )
302 	PORT_START	/* IN0 */
303 	PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 )
304 	PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 )
305 	PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN  | IPF_8WAY )
306 	PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_UP    | IPF_8WAY )
307 	PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT  | IPF_8WAY )
308 	PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT | IPF_8WAY )
309 	PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_START1 )
310 	PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_START2 )
311 
312 	PORT_START	/* IN1 */
313 	PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 | IPF_COCKTAIL )
314 	PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 | IPF_COCKTAIL )
315 	PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN  | IPF_8WAY | IPF_COCKTAIL )
316 	PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_UP    | IPF_8WAY | IPF_COCKTAIL )
317 	PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT  | IPF_8WAY | IPF_COCKTAIL )
318 	PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT | IPF_8WAY | IPF_COCKTAIL )
319 	PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_UNKNOWN )
320 	PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_VBLANK )
321 
322 	PORT_START	/* IN2 modified by Shingo Suzuki 1999/11/02 */
323 	PORT_DIPNAME( 0x01, 0x01, DEF_STR( Lives ) )
324 	PORT_DIPSETTING(    0x01, "3" )
325 	PORT_DIPSETTING(    0x00, "5" )
326 	PORT_DIPNAME( 0x02, 0x02, DEF_STR( Bonus_Life ) )
327 	PORT_DIPSETTING(    0x02, "20k, 50k and every 50k" )
328 	PORT_DIPSETTING(    0x00, "30k, 80k and every 80k" )
329 	PORT_DIPNAME( 0x0c, 0x0c, DEF_STR( Difficulty ) )
330 	PORT_DIPSETTING(    0x0c, "Easy" )
331 	PORT_DIPSETTING(    0x08, "Medium" )
332 	PORT_DIPSETTING(    0x04, "Hard" )
333 	PORT_DIPSETTING(    0x00, "Hardest" )
334 	PORT_DIPNAME( 0x20, 0x20, DEF_STR( Flip_Screen ) )
335 	PORT_DIPSETTING(    0x20, DEF_STR( Off ) )
336 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
337 	PORT_BIT_IMPULSE( 0x20, IP_ACTIVE_LOW, IPT_COIN1, 2 )
338 	PORT_BIT_IMPULSE( 0x40, IP_ACTIVE_LOW, IPT_COIN2, 2 )
339 	PORT_BIT_IMPULSE( 0x80, IP_ACTIVE_LOW, IPT_SERVICE1, 2 )
340 
341 	PORT_START      /* DSW0 */
342 	PORT_DIPNAME( 0x03, 0x03, DEF_STR( Coin_A ) )
343 	PORT_DIPSETTING(    0x00, DEF_STR( 2C_1C ) )
344 	PORT_DIPSETTING(    0x03, DEF_STR( 1C_1C ) )
345 	PORT_DIPSETTING(    0x02, DEF_STR( 1C_2C ) )
346 	PORT_DIPSETTING(    0x01, DEF_STR( 1C_3C ) )
347 	PORT_DIPNAME( 0x0c, 0x0c, DEF_STR( Coin_B ) )
348 	PORT_DIPSETTING(    0x00, DEF_STR( 2C_1C ) )
349 	PORT_DIPSETTING(    0x0c, DEF_STR( 1C_1C ) )
350 	PORT_DIPSETTING(    0x08, DEF_STR( 1C_2C ) )
351 	PORT_DIPSETTING(    0x04, DEF_STR( 1C_3C ) )
352 	PORT_DIPNAME( 0x10, 0x10, DEF_STR( Unknown ) )
353 	PORT_DIPSETTING(    0x10, DEF_STR( Off ) )
354 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
355 	PORT_DIPNAME( 0x20, 0x00, DEF_STR( Cabinet ) )
356 	PORT_DIPSETTING(    0x00, DEF_STR( Upright ) )
357 	PORT_DIPSETTING(    0x20, DEF_STR( Cocktail ) )
358 	PORT_DIPNAME( 0x40, 0x40, DEF_STR( Demo_Sounds ) )
359 	PORT_DIPSETTING(    0x00, DEF_STR( Off ) )
360 	PORT_DIPSETTING(    0x40, DEF_STR( On ) )
361 	PORT_DIPNAME( 0x80, 0x80, DEF_STR( Unknown ) )
362 	PORT_DIPSETTING(    0x80, DEF_STR( Off ) )
363 	PORT_DIPSETTING(    0x00, DEF_STR( On ) )
364 INPUT_PORTS_END
365 
366 
367 static struct GfxLayout charlayout =
368 {
369 	8,8,	/* 8*8 chars */
370 	256,	/* 256 characters */
371 	3,	/* 3 bits per pixel */
372 	{ 512*8*8+4, 0, 4 },	/* plane offset */
373 	{ 256*8*8+0, 256*8*8+1, 256*8*8+2, 256*8*8+3, 0, 1, 2, 3 },
374 	{ 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8 },
375 	8*8	/* every char takes 8 consecutive bytes */
376 };
377 
378 static struct GfxLayout tilelayout1 =
379 {
380 	16,16,	/* 16*16 tiles */
381 	128,	/* 128 tiles */
382 	3,	/* 3 bits per pixel */
383 	{ 0x4000*8+4, 0, 4 },	/* plane offset */
384 	{ 0, 1, 2, 3, 1024*8*8+0, 1024*8*8+1, 1024*8*8+2, 1024*8*8+3,
385 			16*8+0, 16*8+1, 16*8+2, 16*8+3, 16*8+1024*8*8+0, 16*8+1024*8*8+1, 16*8+1024*8*8+2, 16*8+1024*8*8+3 },
386 	{ 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8,
387 			8*8, 9*8, 10*8, 11*8, 12*8, 13*8, 14*8, 15*8 },
388 	32*8	/* every tile takes 32 consecutive bytes */
389 };
390 
391 static struct GfxLayout tilelayout2 =
392 {
393 	16,16,	/* 16*16 tiles */
394 	128,	/* 128 tiles */
395 	3,	/* 3 bits per pixel */
396 	{ 0x3000*8+0, 0, 4 },	/* plane offset */
397 	{ 0, 1, 2, 3, 1024*8*8+0, 1024*8*8+1, 1024*8*8+2, 1024*8*8+3,
398 			16*8+0, 16*8+1, 16*8+2, 16*8+3, 16*8+1024*8*8+0, 16*8+1024*8*8+1, 16*8+1024*8*8+2, 16*8+1024*8*8+3 },
399 	{ 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8,
400 			8*8, 9*8, 10*8, 11*8, 12*8, 13*8, 14*8, 15*8 },
401 	32*8	/* every tile takes 32 consecutive bytes */
402 };
403 
404 static struct GfxLayout spritelayout =
405 {
406 	16,16,	/* 16*16 sprites */
407 	1024,	/* 1024 sprites */
408 	3,	/* 3 bits per pixel */
409 	{ 2*1024*32*8, 1024*32*8, 0 },	/* plane offset */
410 	{ 16*8+0, 16*8+1, 16*8+2, 16*8+3, 16*8+4, 16*8+5, 16*8+6, 16*8+7,
411 			0, 1, 2, 3, 4, 5, 6, 7 },
412 	{ 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8,
413 			8*8, 9*8, 10*8, 11*8, 12*8, 13*8, 14*8, 15*8 },
414 	32*8	/* every sprite takes 32 consecutive bytes */
415 };
416 
417 static struct GfxDecodeInfo gfxdecodeinfo[] =
418 {
419 	{ REGION_GFX1, 0x00000, &charlayout,   0x00,  1 },	/* use colors 0x00-0x07 */
420 	{ REGION_GFX2, 0x00000, &tilelayout1,  0x80, 16 },	/* use colors 0x80-0xff */
421 	{ REGION_GFX2, 0x01000, &tilelayout2,  0x80, 16 },
422 	{ REGION_GFX2, 0x08000, &tilelayout1,  0x80, 16 },
423 	{ REGION_GFX2, 0x09000, &tilelayout2,  0x80, 16 },
424 	{ REGION_GFX2, 0x10000, &tilelayout1,  0x80, 16 },
425 	{ REGION_GFX2, 0x11000, &tilelayout2,  0x80, 16 },
426 	{ REGION_GFX2, 0x18000, &tilelayout1,  0x80, 16 },
427 	{ REGION_GFX2, 0x19000, &tilelayout2,  0x80, 16 },
428 	{ REGION_GFX3, 0x00000, &spritelayout, 0x40,  8 },	/* use colors 0x40-0x7f */
429 	{ -1 } /* end of array */
430 };
431 
432 /* handler called by the 3812 emulator when the internal timers cause an IRQ */
irqhandler(int linestate)433 static void irqhandler(int linestate)
434 {
435 	cpu_set_irq_line(1,M6809_IRQ_LINE,linestate);
436 }
437 
438 static struct YM2203interface ym2203_interface =
439 {
440 	1,
441 	1500000,	/* Unknown */
442 	{ YM2203_VOL(50,10) },
443 	{ 0 },
444 	{ 0 },
445 	{ 0 },
446 	{ 0 }
447 };
448 
449 static struct YM3526interface ym3526_interface =
450 {
451 	1,			/* 1 chip */
452 	3000000,	/* 3 MHz? */
453 	{ 100 },		/* volume */
454 	{ irqhandler },
455 };
456 
457 
458 
459 static MACHINE_DRIVER_START( brkthru )
460 
461 	/* basic machine hardware */
462 	MDRV_CPU_ADD(M6809, 1250000)        /* 1.25 MHz ? */
463 	MDRV_CPU_MEMORY(readmem,writemem)
464 	MDRV_CPU_VBLANK_INT(brkthru_interrupt,2)
465 
466 	MDRV_CPU_ADD(M6809, 1250000)
467 	MDRV_CPU_FLAGS(CPU_AUDIO_CPU)        /* 1.25 MHz ? */
468 	MDRV_CPU_MEMORY(sound_readmem,sound_writemem)
469 
470 	MDRV_FRAMES_PER_SECOND(58)
471 	MDRV_VBLANK_DURATION(DEFAULT_REAL_60HZ_VBLANK_DURATION)	/* frames per second, vblank duration (not sure) */
472 
473 	/* video hardware */
474 	MDRV_VIDEO_ATTRIBUTES(VIDEO_TYPE_RASTER)
475 	MDRV_SCREEN_SIZE(32*8, 32*8)
476 	MDRV_VISIBLE_AREA(1*8, 31*8-1, 1*8, 31*8-1)	/* not sure */
477 	MDRV_GFXDECODE(gfxdecodeinfo)
478 	MDRV_PALETTE_LENGTH(256)
479 
480 	MDRV_PALETTE_INIT(brkthru)
481 	MDRV_VIDEO_START(brkthru)
482 	MDRV_VIDEO_UPDATE(brkthru)
483 
484 	/* sound hardware */
485 	MDRV_SOUND_ADD(YM2203, ym2203_interface)
486 	MDRV_SOUND_ADD(YM3526, ym3526_interface)
487 MACHINE_DRIVER_END
488 
489 static MACHINE_DRIVER_START( darwin )
490 
491 	/* basic machine hardware */
492 	MDRV_CPU_ADD(M6809, 1500000)        /* 1.25 MHz ? */
493 	MDRV_CPU_MEMORY(darwin_readmem,darwin_writemem)
494 	MDRV_CPU_VBLANK_INT(brkthru_interrupt,2)
495 
496 	MDRV_CPU_ADD(M6809, 1500000)
497 	MDRV_CPU_FLAGS(CPU_AUDIO_CPU)        /* 1.25 MHz ? */
498 	MDRV_CPU_MEMORY(sound_readmem,sound_writemem)
499 
500 	MDRV_FRAMES_PER_SECOND(15625.0/272)
501 	MDRV_VBLANK_DURATION(DEFAULT_REAL_60HZ_VBLANK_DURATION)
502 	/* frames per second, vblank duration
503 		Horizontal video frequency:
504 			HSync = Dot Clock / Horizontal Frame Length
505 			      = Xtal /2   / (HDisplay + HBlank)
506 			      = 12MHz/2   / (240 + 144)
507 			      = 15.625kHz
508 		Vertical Video frequency:
509 			VSync = HSync / Vertical Frame Length
510 			      = HSync / (VDisplay + VBlank)
511 			      = 15.625kHz / (240 + 32)
512 			      = 57.444855Hz
513 	tuned by Shingo SUZUKI(VSyncMAME Project) 2000/10/19 */
514 
515 	/* video hardware */
516 	MDRV_VIDEO_ATTRIBUTES(VIDEO_TYPE_RASTER)
517 	MDRV_SCREEN_SIZE(32*8, 32*8)
518 	MDRV_VISIBLE_AREA(1*8, 31*8-1, 1*8, 31*8-1)
519 	MDRV_GFXDECODE(gfxdecodeinfo)
520 	MDRV_PALETTE_LENGTH(256)
521 
522 	MDRV_PALETTE_INIT(brkthru)
523 	MDRV_VIDEO_START(brkthru)
524 	MDRV_VIDEO_UPDATE(brkthru)
525 
526 	/* sound hardware */
527 	MDRV_SOUND_ADD(YM2203, ym2203_interface)
528 	MDRV_SOUND_ADD(YM3526, ym3526_interface)
529 MACHINE_DRIVER_END
530 
531 
532 /***************************************************************************
533 
534   Game driver(s)
535 
536 ***************************************************************************/
537 
538 ROM_START( brkthru )
539 	ROM_REGION( 0x20000, REGION_CPU1, 0 )     /* 64k for main CPU + 64k for banked ROMs */
540 	ROM_LOAD( "brkthru.1",    0x04000, 0x4000, CRC(cfb4265f) SHA1(4cd748fa06fd2727de1694196912d605672d4883) )
541 	ROM_LOAD( "brkthru.2",    0x08000, 0x8000, CRC(fa8246d9) SHA1(d6da03b2a3d8a83411191351ee110b89352a3ead) )
542 	ROM_LOAD( "brkthru.4",    0x10000, 0x8000, CRC(8cabf252) SHA1(45e8847b2e6b278989f67e0b27b827a9b3b92581) )
543 	ROM_LOAD( "brkthru.3",    0x18000, 0x8000, CRC(2f2c40c2) SHA1(fcb78941453520a3a07f272127dae7c2cc1999ea) )
544 
545 	ROM_REGION( 0x02000, REGION_GFX1, ROMREGION_DISPOSE )
546 	ROM_LOAD( "brkthru.12",   0x00000, 0x2000, CRC(58c0b29b) SHA1(9dc075f8afae7e8fe164a9fe325e9948cdc7e4bb) )	/* characters */
547 
548 	ROM_REGION( 0x20000, REGION_GFX2, ROMREGION_DISPOSE )
549 	/* background */
550 	/* we do a lot of scatter loading here, to place the data in a format */
551 	/* which can be decoded by MAME's standard functions */
552 	ROM_LOAD( "brkthru.7",    0x00000, 0x4000, CRC(920cc56a) SHA1(c75806691073f1f3bd54dcaca4c14155ecf4471d) )	/* bitplanes 1,2 for bank 1,2 */
553 	ROM_CONTINUE(             0x08000, 0x4000 )				/* bitplanes 1,2 for bank 3,4 */
554 	ROM_LOAD( "brkthru.6",    0x10000, 0x4000, CRC(fd3cee40) SHA1(3308b96bb69e0fa6dffbdff296273fafa16d5e70) )	/* bitplanes 1,2 for bank 5,6 */
555 	ROM_CONTINUE(             0x18000, 0x4000 )				/* bitplanes 1,2 for bank 7,8 */
556 	ROM_LOAD( "brkthru.8",    0x04000, 0x1000, CRC(f67ee64e) SHA1(75634bd481ae44b8aa02acb4f9b4d7ff973a4c71) )	/* bitplane 3 for bank 1,2 */
557 	ROM_CONTINUE(             0x06000, 0x1000 )
558 	ROM_CONTINUE(             0x0c000, 0x1000 )				/* bitplane 3 for bank 3,4 */
559 	ROM_CONTINUE(             0x0e000, 0x1000 )
560 	ROM_CONTINUE(             0x14000, 0x1000 )				/* bitplane 3 for bank 5,6 */
561 	ROM_CONTINUE(             0x16000, 0x1000 )
562 	ROM_CONTINUE(             0x1c000, 0x1000 )				/* bitplane 3 for bank 7,8 */
563 	ROM_CONTINUE(             0x1e000, 0x1000 )
564 
565 	ROM_REGION( 0x18000, REGION_GFX3, ROMREGION_DISPOSE )
566 	ROM_LOAD( "brkthru.9",    0x00000, 0x8000, CRC(f54e50a7) SHA1(eccf4d859c26944271ec6586644b4730a72851fd) )	/* sprites */
567 	ROM_LOAD( "brkthru.10",   0x08000, 0x8000, CRC(fd156945) SHA1(a0575a4164217e63317886176ab7e59d255fc771) )
568 	ROM_LOAD( "brkthru.11",   0x10000, 0x8000, CRC(c152a99b) SHA1(f96133aa01219eda357b9e906bd9577dbfe359c0) )
569 
570 	ROM_REGION( 0x0200, REGION_PROMS, 0 )
571 	ROM_LOAD( "brkthru.13",   0x0000, 0x0100, CRC(aae44269) SHA1(7c66aeb93577104109d264ee8b848254256c81eb) ) /* red and green component */
572 	ROM_LOAD( "brkthru.14",   0x0100, 0x0100, CRC(f2d4822a) SHA1(f535e91b87ff01f2a73662856fd3f72907ca62e9) ) /* blue component */
573 
574 	ROM_REGION( 0x10000, REGION_CPU2, 0 )	/* 64K for sound CPU */
575 	ROM_LOAD( "brkthru.5",    0x8000, 0x8000, CRC(c309435f) SHA1(82914004c2b169a7c31aa49af83a699ebbc7b33f) )
576 ROM_END
577 
578 ROM_START( brkthruj )
579 	ROM_REGION( 0x20000, REGION_CPU1, 0 )     /* 64k for main CPU + 64k for banked ROMs */
580 	ROM_LOAD( "1",            0x04000, 0x4000, CRC(09bd60ee) SHA1(9591a4c89bb69d5615a5d6b29c47e6b17350c007) )
581 	ROM_LOAD( "2",            0x08000, 0x8000, CRC(f2b2cd1c) SHA1(dafccc74310876bc1c88de7f3c86f93ed8a0eb62) )
582 	ROM_LOAD( "4",            0x10000, 0x8000, CRC(b42b3359) SHA1(c1da550e0f7cc52721802c7c0f2770ef0087e28b) )
583 	ROM_LOAD( "brkthru.3",    0x18000, 0x8000, CRC(2f2c40c2) SHA1(fcb78941453520a3a07f272127dae7c2cc1999ea) )
584 
585 	ROM_REGION( 0x02000, REGION_GFX1, ROMREGION_DISPOSE )
586 	ROM_LOAD( "12",   0x00000, 0x2000, CRC(3d9a7003) SHA1(2e5de982eb75ac75312fb29bb4cb2ed12ec0fd56) )	/* characters */
587 
588 	ROM_REGION( 0x20000, REGION_GFX2, ROMREGION_DISPOSE )
589 	/* background */
590 	/* we do a lot of scatter loading here, to place the data in a format */
591 	/* which can be decoded by MAME's standard functions */
592 	ROM_LOAD( "brkthru.7",    0x00000, 0x4000, CRC(920cc56a) SHA1(c75806691073f1f3bd54dcaca4c14155ecf4471d) )	/* bitplanes 1,2 for bank 1,2 */
593 	ROM_CONTINUE(             0x08000, 0x4000 )				/* bitplanes 1,2 for bank 3,4 */
594 	ROM_LOAD( "6",            0x10000, 0x4000, CRC(cb47b395) SHA1(bf5459d696e863644f13c8b0786b8f45caf6ceb6) )	/* bitplanes 1,2 for bank 5,6 */
595 	ROM_CONTINUE(             0x18000, 0x4000 )				/* bitplanes 1,2 for bank 7,8 */
596 	ROM_LOAD( "8",            0x04000, 0x1000, CRC(5e5a2cd7) SHA1(f1782d67b924b4b89bcb6602e970c28fbeaab522) )	/* bitplane 3 for bank 1,2 */
597 	ROM_CONTINUE(             0x06000, 0x1000 )
598 	ROM_CONTINUE(             0x0c000, 0x1000 )				/* bitplane 3 for bank 3,4 */
599 	ROM_CONTINUE(             0x0e000, 0x1000 )
600 	ROM_CONTINUE(             0x14000, 0x1000 )				/* bitplane 3 for bank 5,6 */
601 	ROM_CONTINUE(             0x16000, 0x1000 )
602 	ROM_CONTINUE(             0x1c000, 0x1000 )				/* bitplane 3 for bank 7,8 */
603 	ROM_CONTINUE(             0x1e000, 0x1000 )
604 
605 	ROM_REGION( 0x18000, REGION_GFX3, ROMREGION_DISPOSE )
606 	ROM_LOAD( "brkthru.9",    0x00000, 0x8000, CRC(f54e50a7) SHA1(eccf4d859c26944271ec6586644b4730a72851fd) )	/* sprites */
607 	ROM_LOAD( "brkthru.10",   0x08000, 0x8000, CRC(fd156945) SHA1(a0575a4164217e63317886176ab7e59d255fc771) )
608 	ROM_LOAD( "brkthru.11",   0x10000, 0x8000, CRC(c152a99b) SHA1(f96133aa01219eda357b9e906bd9577dbfe359c0) )
609 
610 	ROM_REGION( 0x0200, REGION_PROMS, 0 )
611 	ROM_LOAD( "brkthru.13",   0x0000, 0x0100, CRC(aae44269) SHA1(7c66aeb93577104109d264ee8b848254256c81eb) ) /* red and green component */
612 	ROM_LOAD( "brkthru.14",   0x0100, 0x0100, CRC(f2d4822a) SHA1(f535e91b87ff01f2a73662856fd3f72907ca62e9) ) /* blue component */
613 
614 	ROM_REGION( 0x10000, REGION_CPU2, 0 )	/* 64K for sound CPU */
615 	ROM_LOAD( "brkthru.5",    0x8000, 0x8000, CRC(c309435f) SHA1(82914004c2b169a7c31aa49af83a699ebbc7b33f) )
616 ROM_END
617 
618 ROM_START( darwin )
619 	ROM_REGION( 0x20000, REGION_CPU1, 0 )     /* 64k for main CPU + 64k for banked ROMs */
620 	ROM_LOAD( "darw_04.rom",  0x04000, 0x4000, CRC(0eabf21c) SHA1(ccad6b30fe9361e8a21b8aaf8116aa85f9e6bb19) )
621 	ROM_LOAD( "darw_05.rom",  0x08000, 0x8000, CRC(e771f864) SHA1(8ba9f97c6abf035ceaf9f5505495708506f1b0c5) )
622 	ROM_LOAD( "darw_07.rom",  0x10000, 0x8000, CRC(97ac052c) SHA1(8baa117472d46b99e5946f095b869de9b5c48f9a) )
623 	ROM_LOAD( "darw_06.rom",  0x18000, 0x8000, CRC(2a9fb208) SHA1(f04a5502600e49e2494a87ec65a44a2843441d37) )
624 
625 	ROM_REGION( 0x02000, REGION_GFX1, ROMREGION_DISPOSE )
626 	ROM_LOAD( "darw_09.rom",  0x00000, 0x2000, CRC(067b4cf5) SHA1(fc752bb72e4850b71565afd1df0cbb4f732f131c) )   /* characters */
627 
628 	ROM_REGION( 0x20000, REGION_GFX2, ROMREGION_DISPOSE )
629 	/* background */
630 	/* we do a lot of scatter loading here, to place the data in a format */
631 	/* which can be decoded by MAME's standard functions */
632 	ROM_LOAD( "darw_03.rom",  0x00000, 0x4000, CRC(57d0350d) SHA1(6f904047485e669afb5f4b590818743111f010c6) )	/* bitplanes 1,2 for bank 1,2 */
633 	ROM_CONTINUE(             0x08000, 0x4000 )				/* bitplanes 1,2 for bank 3,4 */
634 	ROM_LOAD( "darw_02.rom",  0x10000, 0x4000, CRC(559a71ab) SHA1(a28de25e89e0d68332f4095b988827a9cb72c675) )	/* bitplanes 1,2 for bank 5,6 */
635 	ROM_CONTINUE(             0x18000, 0x4000 )				/* bitplanes 1,2 for bank 7,8 */
636 	ROM_LOAD( "darw_01.rom",  0x04000, 0x1000, CRC(15a16973) SHA1(5eb978a32be88176936e5d37b6ec18820d9720d8) )	/* bitplane 3 for bank 1,2 */
637 	ROM_CONTINUE(             0x06000, 0x1000 )
638 	ROM_CONTINUE(             0x0c000, 0x1000 )				/* bitplane 3 for bank 3,4 */
639 	ROM_CONTINUE(             0x0e000, 0x1000 )
640 	ROM_CONTINUE(             0x14000, 0x1000 )				/* bitplane 3 for bank 5,6 */
641 	ROM_CONTINUE(             0x16000, 0x1000 )
642 	ROM_CONTINUE(             0x1c000, 0x1000 )				/* bitplane 3 for bank 7,8 */
643 	ROM_CONTINUE(             0x1e000, 0x1000 )
644 
645 	ROM_REGION( 0x18000, REGION_GFX3, ROMREGION_DISPOSE )
646 	ROM_LOAD( "darw_10.rom",  0x00000, 0x8000, CRC(487a014c) SHA1(c9543df8115088b02019e76a6473ecc5f645a836) )	/* sprites */
647 	ROM_LOAD( "darw_11.rom",  0x08000, 0x8000, CRC(548ce2d1) SHA1(3b1757c70346ab4ee19ec85e7ae5137f8ccf446f) )
648 	ROM_LOAD( "darw_12.rom",  0x10000, 0x8000, CRC(faba5fef) SHA1(848da4d4888f0218b737f1dc9b62944f68349a43) )
649 
650 	ROM_REGION( 0x0200, REGION_PROMS, 0 )
651 	ROM_LOAD( "df.12",   0x0000, 0x0100, CRC(89b952ef) SHA1(77dc4020a2e25f81fae1182d58993cf09d13af00) ) /* red and green component */
652 	ROM_LOAD( "df.13",   0x0100, 0x0100, CRC(d595e91d) SHA1(5e9793f6602455c79afdc855cd13183a7f48ab1e) ) /* blue component */
653 
654 	ROM_REGION( 0x10000, REGION_CPU2, 0 )	/* 64K for sound CPU */
655 	ROM_LOAD( "darw_08.rom",  0x8000, 0x8000, CRC(6b580d58) SHA1(a70aebc6b4a291b4adddbb41d092b2682fc2d421) )
656 ROM_END
657 
658 
659 
660 GAME( 1986, brkthru,  0,       brkthru, brkthru,  0, ROT0,   "Data East USA", "Break Thru (US)" )
661 GAME( 1986, brkthruj, brkthru, brkthru, brkthruj, 0, ROT0,   "Data East Corporation", "Kyohkoh-Toppa (Japan)" )
662 GAME( 1986, darwin,   0,       darwin,  darwin,   0, ROT270, "Data East Corporation", "Darwin 4078 (Japan)" )
663