Previous 199869 Revisions Next

r36203 Monday 2nd March, 2015 at 21:41:02 UTC by Angelo Salese
Minor clean-up, of course it requires true ASCI emulation.
[/branches/kale/src/emu/cpu/z180]z180.c
[/branches/kale/src/mame/drivers]asuka.c

branches/kale/src/emu/cpu/z180/z180.c
r244714r244715
817817   switch (port + Z180_CNTLA0)
818818   {
819819   case Z180_CNTLA0:
820      data = IO_CNTLA0 & Z180_CNTLA0_RMASK;
820      data = m_data->read_byte(0);
821//      data = IO_CNTLA0 & Z180_CNTLA0_RMASK;
821822      LOG(("Z180 '%s' CNTLA0 rd $%02x ($%02x)\n", tag(), data, m_io[port & 0x3f]));
822823      break;
823824
824825   case Z180_CNTLA1:
825      data = IO_CNTLA1 & Z180_CNTLA1_RMASK;
826      data = m_data->read_byte(1);
827      //data = IO_CNTLA1 & Z180_CNTLA1_RMASK;
826828      LOG(("Z180 '%s' CNTLA1 rd $%02x ($%02x)\n", tag(), data, m_io[port & 0x3f]));
827829      break;
828830
829831   case Z180_CNTLB0:
830      data = IO_CNTLB0 & Z180_CNTLB0_RMASK;
832      data = m_data->read_byte(2);
833      //data = IO_CNTLB0 & Z180_CNTLB0_RMASK;
831834      LOG(("Z180 '%s' CNTLB0 rd $%02x ($%02x)\n", tag(), data, m_io[port & 0x3f]));
832835      break;
833836
834837   case Z180_CNTLB1:
835      data = IO_CNTLB1 & Z180_CNTLB1_RMASK;
838      data = m_data->read_byte(3);
839      //data = IO_CNTLB1 & Z180_CNTLB1_RMASK;
836840      LOG(("Z180 '%s' CNTLB1 rd $%02x ($%02x)\n", tag(), data, m_io[port & 0x3f]));
837841      break;
838842
839843   case Z180_STAT0:
840      data = IO_STAT0 & Z180_STAT0_RMASK;
844      data = m_data->read_byte(4);
845      //data = IO_STAT0 & Z180_STAT0_RMASK;
841846data |= 0x02; // kludge for 20pacgal
842847      LOG(("Z180 '%s' STAT0  rd $%02x ($%02x)\n", tag(), data, m_io[port & 0x3f]));
843848      break;
844849
845850   case Z180_STAT1:
846      data = IO_STAT1 & Z180_STAT1_RMASK;
851      data = m_data->read_byte(5);
852//      data = IO_STAT1 & Z180_STAT1_RMASK;
847853      LOG(("Z180 '%s' STAT1  rd $%02x ($%02x)\n", tag(), data, m_io[port & 0x3f]));
848854      break;
849855
850856   case Z180_TDR0:
851      data = m_data->read_byte(0); //IO_TDR0 & Z180_TDR0_RMASK;
857      data = m_data->read_byte(6); //IO_TDR0 & Z180_TDR0_RMASK;
852858     
853859      LOG(("Z180 '%s' TDR0   rd $%02x ($%02x)\n", tag(), data, m_io[port & 0x3f]));
854860      break;
855861
856862   case Z180_TDR1:
857      data = m_data->read_byte(1); //IO_TDR1 & Z180_TDR1_RMASK;
863      data = m_data->read_byte(7); //IO_TDR1 & Z180_TDR1_RMASK;
858864      LOG(("Z180 '%s' TDR1   rd $%02x ($%02x)\n", tag(), data, m_io[port & 0x3f]));
859865      break;
860866
861867   case Z180_RDR0:
862      data = m_data->read_byte(2);
868      data = m_data->read_byte(8);
863869      //data = IO_RDR0 & Z180_RDR0_RMASK;
864870      LOG(("Z180 '%s' RDR0   rd $%02x ($%02x)\n", tag(), data, m_io[port & 0x3f]));
865871      break;
866872
867873   case Z180_RDR1:
868      data = m_data->read_byte(3);
874      data = m_data->read_byte(9);
869875      //data = IO_RDR1 & Z180_RDR1_RMASK;
870876      LOG(("Z180 '%s' RDR1   rd $%02x ($%02x)\n", tag(), data, m_io[port & 0x3f]));
871877      break;
r244714r244715
12501256   {
12511257   case Z180_CNTLA0:
12521258      LOG(("Z180 '%s' CNTLA0 wr $%02x ($%02x)\n", tag(), data,  data & Z180_CNTLA0_WMASK));
1259      m_data->write_byte(0,data);
1260
12531261      IO_CNTLA0 = (IO_CNTLA0 & ~Z180_CNTLA0_WMASK) | (data & Z180_CNTLA0_WMASK);
12541262      break;
12551263
12561264   case Z180_CNTLA1:
12571265      LOG(("Z180 '%s' CNTLA1 wr $%02x ($%02x)\n", tag(), data,  data & Z180_CNTLA1_WMASK));
1266      m_data->write_byte(1,data);
1267
12581268      IO_CNTLA1 = (IO_CNTLA1 & ~Z180_CNTLA1_WMASK) | (data & Z180_CNTLA1_WMASK);
12591269      break;
12601270
12611271   case Z180_CNTLB0:
12621272      LOG(("Z180 '%s' CNTLB0 wr $%02x ($%02x)\n", tag(), data,  data & Z180_CNTLB0_WMASK));
1273      m_data->write_byte(2,data);
1274
12631275      IO_CNTLB0 = (IO_CNTLB0 & ~Z180_CNTLB0_WMASK) | (data & Z180_CNTLB0_WMASK);
12641276      break;
12651277
12661278   case Z180_CNTLB1:
12671279      LOG(("Z180 '%s' CNTLB1 wr $%02x ($%02x)\n", tag(), data,  data & Z180_CNTLB1_WMASK));
1280      m_data->write_byte(3,data);
1281
12681282      IO_CNTLB1 = (IO_CNTLB1 & ~Z180_CNTLB1_WMASK) | (data & Z180_CNTLB1_WMASK);
12691283      break;
12701284
12711285   case Z180_STAT0:
12721286      LOG(("Z180 '%s' STAT0  wr $%02x ($%02x)\n", tag(), data,  data & Z180_STAT0_WMASK));
1287      m_data->write_byte(4,data);
1288
12731289      IO_STAT0 = (IO_STAT0 & ~Z180_STAT0_WMASK) | (data & Z180_STAT0_WMASK);
12741290      break;
12751291
12761292   case Z180_STAT1:
12771293      LOG(("Z180 '%s' STAT1  wr $%02x ($%02x)\n", tag(), data,  data & Z180_STAT1_WMASK));
1294      m_data->write_byte(5,data);
1295
12781296      IO_STAT1 = (IO_STAT1 & ~Z180_STAT1_WMASK) | (data & Z180_STAT1_WMASK);
12791297      break;
12801298
12811299   case Z180_TDR0:
12821300      LOG(("Z180 '%s' TDR0   wr $%02x ($%02x)\n", tag(), data,  data & Z180_TDR0_WMASK));
1283      m_data->write_byte(0,data);
1301      m_data->write_byte(6,data);
12841302      IO_TDR0 = (IO_TDR0 & ~Z180_TDR0_WMASK) | (data & Z180_TDR0_WMASK);
12851303      break;
12861304
12871305   case Z180_TDR1:
12881306      LOG(("Z180 '%s' TDR1   wr $%02x ($%02x)\n", tag(), data,  data & Z180_TDR1_WMASK));
1289      m_data->write_byte(1,data);
1307      m_data->write_byte(7,data);
12901308      IO_TDR1 = (IO_TDR1 & ~Z180_TDR1_WMASK) | (data & Z180_TDR1_WMASK);
12911309      break;
12921310
12931311   case Z180_RDR0:
12941312      LOG(("Z180 '%s' RDR0   wr $%02x ($%02x)\n", tag(), data,  data & Z180_RDR0_WMASK));
1295      m_data->write_byte(2,data);
1313      m_data->write_byte(8,data);
12961314
12971315      IO_RDR0 = (IO_RDR0 & ~Z180_RDR0_WMASK) | (data & Z180_RDR0_WMASK);
12981316      break;
12991317
13001318   case Z180_RDR1:
13011319      LOG(("Z180 '%s' RDR1   wr $%02x ($%02x)\n", tag(), data,  data & Z180_RDR1_WMASK));
1302      m_data->write_byte(3,data);
1320      m_data->write_byte(9,data);
13031321
13041322      IO_RDR1 = (IO_RDR1 & ~Z180_RDR1_WMASK) | (data & Z180_RDR1_WMASK);
13051323
branches/kale/src/mame/drivers/asuka.c
r244714r244715
19291929   AM_RANGE(0x00, 0x3f) AM_RAM // z180 internal I/O regs
19301930ADDRESS_MAP_END
19311931
1932
19321933static ADDRESS_MAP_START( cadash_sub_data, AS_DATA, 8, cadash_state )
19331934
19341935ADDRESS_MAP_END
19351936
19361937static ADDRESS_MAP_START( cadash_sub_data_2, AS_DATA, 8, cadash_state )
1937   
19381938ADDRESS_MAP_END
19391939 
19401940
r244714r244715
19481948   MCFG_CPU_ADD("audiocpu", Z80, XTAL_8MHz/2)  /* verified on pcb */
19491949   MCFG_CPU_PROGRAM_MAP(cadash_z80_map)
19501950
1951   MCFG_CPU_ADD("subcpu", Z180, 4000000)   /* 4 MHz ??? */
1951   MCFG_CPU_ADD("subcpu", Z180, 10000000)   /* 4 MHz ??? */
19521952   MCFG_CPU_PROGRAM_MAP(cadash_sub_map)
19531953   MCFG_CPU_IO_MAP(cadash_sub_io)
19541954   MCFG_CPU_DATA_MAP(cadash_sub_data)
r244714r244715
19601960   MCFG_CPU_ADD("audiocpu_2", Z80, XTAL_8MHz/2)  /* verified on pcb */
19611961   MCFG_CPU_PROGRAM_MAP(cadash_z80_map_2)
19621962
1963   MCFG_CPU_ADD("subcpu_2", Z180, 4000000)   /* 4 MHz ??? */
1963   MCFG_CPU_ADD("subcpu_2", Z180, 10000000)   /* 4 MHz ??? */
19641964   MCFG_CPU_PROGRAM_MAP(cadash_sub_map_2)
19651965   MCFG_CPU_IO_MAP(cadash_sub_io_2)
19661966   MCFG_CPU_DATA_MAP(cadash_sub_data_2)

https://github.com/mamedev/mame/commit/4159df89fe9c2d9ae8f4a940df0184947f1c5b38

Previous 199869 Revisions Next

© 1997-2024 The MAME Team