1
1
// license:BSD-3-Clause
2
- // copyright-holders:Curt Coder,smf,Mike Naberezny
2
+ // copyright-holders:Curt Coder, smf, Mike Naberezny
3
3
/* **************************************************************************
4
4
5
- Commodore LCD prototype
5
+ Commodore LCD prototype
6
6
7
- GTE G65SC102PI-2
8
- GTE G65SC51P-1
9
- Rockwell R65C22P2 x 2
10
- AMI S3530X Bell 103/V.21 Single chip modem
7
+ OSC: 4MHz, 1.8432MHz, 3.579545MHz
8
+ GTE G65SC102PI-2
9
+ GTE G65SC51P-1
10
+ Rockwell R65C22P2 x 2
11
+ AMI S3530X Bell 103/V.21 Single chip modem
12
+ OKI M5260 x 2
11
13
12
14
****************************************************************************/
13
15
@@ -103,7 +105,7 @@ class clcd_state : public driver_device
103
105
void clcd_palette (palette_device &palette) const
104
106
{
105
107
palette.set_pen_color (0 , rgb_t (124 , 149 , 143 ));
106
- palette.set_pen_color (1 , rgb_t (54 ,64 ,65 ));
108
+ palette.set_pen_color (1 , rgb_t (54 , 64 , 65 ));
107
109
}
108
110
109
111
uint32_t screen_update (screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
@@ -407,12 +409,12 @@ class clcd_state : public driver_device
407
409
408
410
if (!m_iec->clk_r ())
409
411
{
410
- data |= 1 << 6 ;
412
+ data |= 1 << 6 ;
411
413
}
412
414
413
415
if (!m_iec->data_r ())
414
416
{
415
- data |= 1 << 7 ;
417
+ data |= 1 << 7 ;
416
418
}
417
419
418
420
return data;
@@ -539,6 +541,7 @@ class clcd_state : public driver_device
539
541
void clcd (machine_config &config);
540
542
void clcd_banked_mem (address_map &map) ATTR_COLD;
541
543
void clcd_mem (address_map &map) ATTR_COLD;
544
+
542
545
private:
543
546
required_device<g65sc102_device> m_maincpu;
544
547
required_device<mos6551_device> m_acia;
@@ -718,28 +721,28 @@ INPUT_PORTS_END
718
721
719
722
void clcd_state::clcd(machine_config &config)
720
723
{
721
- /* basic machine hardware */
722
- G65SC102 (config, m_maincpu, 4000000 );
724
+ // basic machine hardware
725
+ G65SC102 (config, m_maincpu, 4_MHz_XTAL );
723
726
m_maincpu->set_addrmap (AS_PROGRAM, &clcd_state::clcd_mem);
724
727
725
728
INPUT_MERGER_ANY_HIGH (config, " mainirq" ).output_handler ().set_inputline (" maincpu" , g65sc102_device::IRQ_LINE);
726
729
727
- via6522_device &via0 (R65C22 (config, " via0" , 1000000 ));
730
+ via6522_device &via0 (R65C22 (config, " via0" , 4_MHz_XTAL / 4 ));
728
731
via0.writepa_handler ().set (FUNC (clcd_state::via0_pa_w));
729
732
via0.writepb_handler ().set (FUNC (clcd_state::via0_pb_w));
730
733
via0.readpb_handler ().set (FUNC (clcd_state::via0_pb_r));
731
734
via0.cb1_handler ().set (FUNC (clcd_state::via0_cb1_w));
732
735
via0.irq_handler ().set (" mainirq" , FUNC (input_merger_device::in_w<0 >));
733
736
734
- via6522_device &via1 (R65C22 (config, " via1" , 1000000 ));
737
+ via6522_device &via1 (R65C22 (config, " via1" , 4_MHz_XTAL / 4 ));
735
738
via1.writepa_handler ().set (FUNC (clcd_state::via1_pa_w));
736
739
via1.writepb_handler ().set (FUNC (clcd_state::via1_pb_w));
737
740
via1.irq_handler ().set (" mainirq" , FUNC (input_merger_device::in_w<1 >));
738
741
via1.ca2_handler ().set (m_centronics, FUNC (centronics_device::write_strobe)).invert ();
739
742
via1.cb2_handler ().set (" speaker" , FUNC (speaker_sound_device::level_w));
740
743
741
- MOS6551 (config, m_acia, 1000000 );
742
- m_acia->set_xtal (XTAL ( 1'843'200 ) );
744
+ MOS6551 (config, m_acia, 4_MHz_XTAL / 4 );
745
+ m_acia->set_xtal (1 .8432_MHz_XTAL );
743
746
m_acia->irq_handler ().set (" mainirq" , FUNC (input_merger_device::in_w<2 >));
744
747
m_acia->txd_handler ().set (" rs232" , FUNC (rs232_port_device::write_txd));
745
748
m_acia->rts_handler ().set (" rs232" , FUNC (rs232_port_device::write_rts));
@@ -763,7 +766,7 @@ void clcd_state::clcd(machine_config &config)
763
766
bankdev->set_stride (0x400 );
764
767
}
765
768
766
- MSM58321 (config, m_rtc, XTAL ( 32'768 ) );
769
+ MSM58321 (config, m_rtc, 32 .768_kHz_XTAL );
767
770
m_rtc->d0_handler ().set (" via1" , FUNC (via6522_device::write_pa0));
768
771
m_rtc->d1_handler ().set (" via1" , FUNC (via6522_device::write_pa1));
769
772
m_rtc->d2_handler ().set (" via1" , FUNC (via6522_device::write_pa2));
@@ -772,7 +775,7 @@ void clcd_state::clcd(machine_config &config)
772
775
m_rtc->set_year0 (1984 );
773
776
m_rtc->set_default_24h (true );
774
777
775
- /* video hardware */
778
+ // video hardware
776
779
screen_device &screen (SCREEN (config, " screen" , SCREEN_TYPE_LCD));
777
780
screen.set_refresh_hz (80 );
778
781
screen.set_screen_update (FUNC (clcd_state::screen_update));
@@ -796,14 +799,15 @@ void clcd_state::clcd(machine_config &config)
796
799
797
800
ROM_START ( clcd )
798
801
ROM_REGION ( 0x20000 , " maincpu" , 0 )
802
+
799
803
ROM_SYSTEM_BIOS ( 0 , " apr85" , " Bil Herd Prototype" )
800
- ROMX_LOAD ( " ss,calc 13apr.u105" , 0x000000 , 0x0008000 , CRC(88a587a7) SHA1(b08f3169b7cd696bb6a9b6e6e87a077345377ac4), ROM_BIOS(0 ))
801
- ROMX_LOAD ( " wp,t,m 13apr.u104" , 0x008000 , 0x0008000 , CRC(41028c3c) SHA1(fcab6f0bbeef178eb8e5ecf82d9c348d8f318a8f), ROM_BIOS(0 ))
802
- ROMX_LOAD ( " s12apr.u103" , 0x010000 , 0x0008000 , CRC(0aa91d9f) SHA1(f0842f370607f95d0a0ec6afafb81bc063c32745), ROM_BIOS(0 ))
803
- ROMX_LOAD ( " k12apr.u102" , 0x018000 , 0x0008000 , CRC(59103d52) SHA1(e49c20b237a78b54c2cb26b133d5903bb60bd8ef), ROM_BIOS(0 ))
804
+ ROMX_LOAD ( " ss,calc 13apr.u105" , 0x000000 , 0x008000 , CRC(88a587a7) SHA1(b08f3169b7cd696bb6a9b6e6e87a077345377ac4), ROM_BIOS(0 ) )
805
+ ROMX_LOAD ( " wp,t,m 13apr.u104" , 0x008000 , 0x008000 , CRC(41028c3c) SHA1(fcab6f0bbeef178eb8e5ecf82d9c348d8f318a8f), ROM_BIOS(0 ) )
806
+ ROMX_LOAD ( " s12apr.u103" , 0x010000 , 0x008000 , CRC(0aa91d9f) SHA1(f0842f370607f95d0a0ec6afafb81bc063c32745), ROM_BIOS(0 ) )
807
+ ROMX_LOAD ( " k12apr.u102" , 0x018000 , 0x008000 , CRC(59103d52) SHA1(e49c20b237a78b54c2cb26b133d5903bb60bd8ef), ROM_BIOS(0 ) )
804
808
// Patch RTC register table by swapping day & month values
805
- ROMX_FILL (0x1c216 , 1 , 0x09 , ROM_BIOS(0 ))
806
- ROMX_FILL (0x1c217 , 1 , 0x07 , ROM_BIOS(0 ))
809
+ ROMX_FILL ( 0x1c216 , 1 , 0x09 , ROM_BIOS(0 ) )
810
+ ROMX_FILL ( 0x1c217 , 1 , 0x07 , ROM_BIOS(0 ) )
807
811
808
812
ROM_SYSTEM_BIOS ( 1 , " may85" , " Jeff Porter prototype" )
809
813
ROMX_LOAD ( " s 3-24-85.u108" , 0x000000 , 0x008000 , CRC(52db0ee9) SHA1(bea1e04fb88d205ebac7a1dbe2f5e98f84e7a3a7), ROM_BIOS(1 ) )
0 commit comments