Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-04-19 15:11:37 +03:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

New machines marked as NOT_WORKING

Browse Source 
----------------------------------
Speedcom VD56SP [ClawGrip]

Add disassembler and basic execution core for Rockwell R65C19 [AJR]
This commit is contained in:
AJR 2019-11-25 22:51:21 -05:00
parent afa6622592
commit e69ff59e42
15 changed files with 695 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/src/cpu.lua
View File

@ -1421,6 +1421,7 @@ end
--@src/devices/cpu/m6502/m65ce02.h,CPUS["M6502"] = true
--@src/devices/cpu/m6502/m65c02.h,CPUS["M6502"] = true
--@src/devices/cpu/m6502/r65c02.h,CPUS["M6502"] = true
--@src/devices/cpu/m6502/r65c19.h,CPUS["M6502"] = true
--@src/devices/cpu/m6502/m65sc02.h,CPUS["M6502"] = true
--@src/devices/cpu/m6502/m6500_1.h,CPUS["M6502"] = true
--@src/devices/cpu/m6502/m6504.h,CPUS["M6502"] = true
@ -1476,6 +1477,8 @@ if (CPUS["M6502"]~=null) then
MAME_DIR .. "src/devices/cpu/m6502/n2a03.h",
MAME_DIR .. "src/devices/cpu/m6502/r65c02.cpp",
MAME_DIR .. "src/devices/cpu/m6502/r65c02.h",
MAME_DIR .. "src/devices/cpu/m6502/r65c19.cpp",
MAME_DIR .. "src/devices/cpu/m6502/r65c19.h",
MAME_DIR .. "src/devices/cpu/m6502/m740.cpp",
MAME_DIR .. "src/devices/cpu/m6502/m740.h",
MAME_DIR .. "src/devices/cpu/m6502/m3745x.cpp",
@ -1505,6 +1508,7 @@ if (CPUS["M6502"]~=null) then
{ MAME_DIR .. "src/devices/cpu/m6502/on2a03.lst", GEN_DIR .. "emu/cpu/m6502/n2a03.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dn2a03.lst" }, {"@echo Generating n2a03 disassembler source file...", PYTHON .. " $(1) s n2a03 $(<) $(2) $(@)" }},
{ MAME_DIR .. "src/devices/cpu/m6502/om740.lst" , GEN_DIR .. "emu/cpu/m6502/m740.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dm740.lst" }, {"@echo Generating m740 disassembler source file...", PYTHON .. " $(1) s m740 $(<) $(2) $(@)" }},
{ MAME_DIR .. "src/devices/cpu/m6502/dr65c02.lst", GEN_DIR .. "emu/cpu/m6502/r65c02.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", }, {"@echo Generating r65c02 disassembler source file...", PYTHON .. " $(1) s r65c02 - $(<) $(@)" }},
{ MAME_DIR .. "src/devices/cpu/m6502/or65c19.lst", GEN_DIR .. "emu/cpu/m6502/r65c19.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dr65c19.lst" }, {"@echo Generating r65c19 disassembler source file...", PYTHON .. " $(1) s r65c19 $(<) $(2) $(@)" }},
{ MAME_DIR .. "src/devices/cpu/m6502/ost2xxx.lst" , GEN_DIR .. "emu/cpu/m6502/st2xxx.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dst2xxx.lst" }, {"@echo Generating st2xxx disassembler source file...", PYTHON .. " $(1) s st2xxx $(<) $(2) $(@)" }},
{ MAME_DIR .. "src/devices/cpu/m6502/oxavix.lst", GEN_DIR .. "emu/cpu/m6502/xavix.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dxavix.lst" }, {"@echo Generating xavix disassembler source file...", PYTHON .. " $(1) s xavix $(<) $(2) $(@)" }},
{ MAME_DIR .. "src/devices/cpu/m6502/oxavix2000.lst", GEN_DIR .. "emu/cpu/m6502/xavix2000.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dxavix2000.lst" }, {"@echo Generating xavix2000 disassembler source file...", PYTHON .. " $(1) s xavix2000 $(<) $(2) $(@)" }},
@ -1520,6 +1524,7 @@ if (CPUS["M6502"]~=null) then
{ MAME_DIR .. "src/devices/cpu/m6502/m6510.cpp", GEN_DIR .. "emu/cpu/m6502/m6510.hxx" },
{ MAME_DIR .. "src/devices/cpu/m6502/n2a03.cpp", GEN_DIR .. "emu/cpu/m6502/n2a03.hxx" },
{ MAME_DIR .. "src/devices/cpu/m6502/r65c02.cpp", GEN_DIR .. "emu/cpu/m6502/r65c02.hxx" },
{ MAME_DIR .. "src/devices/cpu/m6502/r65c19.cpp", GEN_DIR .. "emu/cpu/m6502/r65c19.hxx" },
{ MAME_DIR .. "src/devices/cpu/m6502/m740.cpp", GEN_DIR .. "emu/cpu/m6502/m740.hxx" },
{ MAME_DIR .. "src/devices/cpu/m6502/st2xxx.cpp", GEN_DIR .. "emu/cpu/m6502/st2xxx.hxx" },
{ MAME_DIR .. "src/devices/cpu/m6502/xavix.cpp", GEN_DIR .. "emu/cpu/m6502/xavix.hxx" },
@ -1538,6 +1543,7 @@ if (CPUS["M6502"]~=null or _OPTIONS["with-tools"]) then
table.insert(disasm_custombuildtask, { MAME_DIR .. "src/devices/cpu/m6502/on2a03.lst", GEN_DIR .. "emu/cpu/m6502/n2a03d.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dn2a03.lst" }, {"@echo Generating n2a03 disassembler source file...", PYTHON .. " $(1) d n2a03 $(<) $(2) $(@)" }})
table.insert(disasm_custombuildtask, { MAME_DIR .. "src/devices/cpu/m6502/om740.lst" , GEN_DIR .. "emu/cpu/m6502/m740d.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dm740.lst" }, {"@echo Generating m740 disassembler source file...", PYTHON .. " $(1) d m740 $(<) $(2) $(@)" }})
table.insert(disasm_custombuildtask, { MAME_DIR .. "src/devices/cpu/m6502/dr65c02.lst", GEN_DIR .. "emu/cpu/m6502/r65c02d.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", }, {"@echo Generating r65c02 disassembler source file...", PYTHON .. " $(1) d r65c02 - $(<) $(@)" }})
table.insert(disasm_custombuildtask, { MAME_DIR .. "src/devices/cpu/m6502/or65c19.lst", GEN_DIR .. "emu/cpu/m6502/r65c19d.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dr65c19.lst" }, {"@echo Generating r65c19 disassembler source file...", PYTHON .. " $(1) d r65c19 $(<) $(2) $(@)" }})
table.insert(disasm_custombuildtask, { MAME_DIR .. "src/devices/cpu/m6502/oxavix.lst", GEN_DIR .. "emu/cpu/m6502/xavixd.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dxavix.lst" }, {"@echo Generating xavix disassembler source file...", PYTHON .. " $(1) d xavix $(<) $(2) $(@)" }})
table.insert(disasm_custombuildtask, { MAME_DIR .. "src/devices/cpu/m6502/oxavix2000.lst", GEN_DIR .. "emu/cpu/m6502/xavix2000d.hxx", { MAME_DIR .. "src/devices/cpu/m6502/m6502make.py", MAME_DIR .. "src/devices/cpu/m6502/dxavix2000.lst" }, {"@echo Generating xavix2000 disassembler source file...", PYTHON .. " $(1) d xavix2000 $(<) $(2) $(@)" }})
@ -1550,6 +1556,7 @@ if (CPUS["M6502"]~=null or _OPTIONS["with-tools"]) then
table.insert(disasm_dependency, { MAME_DIR .. "src/devices/cpu/m6502/m6510d.cpp", GEN_DIR .. "emu/cpu/m6502/m6510d.hxx" })
table.insert(disasm_dependency, { MAME_DIR .. "src/devices/cpu/m6502/n2a03d.cpp", GEN_DIR .. "emu/cpu/m6502/n2a03d.hxx" })
table.insert(disasm_dependency, { MAME_DIR .. "src/devices/cpu/m6502/r65c02d.cpp", GEN_DIR .. "emu/cpu/m6502/r65c02d.hxx" })
table.insert(disasm_dependency, { MAME_DIR .. "src/devices/cpu/m6502/r65c19d.cpp", GEN_DIR .. "emu/cpu/m6502/r65c19d.hxx" })
table.insert(disasm_dependency, { MAME_DIR .. "src/devices/cpu/m6502/m740d.cpp", GEN_DIR .. "emu/cpu/m6502/m740d.hxx" })
table.insert(disasm_dependency, { MAME_DIR .. "src/devices/cpu/m6502/xavixd.cpp", GEN_DIR .. "emu/cpu/m6502/xavixd.hxx" })
table.insert(disasm_dependency, { MAME_DIR .. "src/devices/cpu/m6502/xavix2000d.cpp", GEN_DIR .. "emu/cpu/m6502/xavix2000d.hxx" })
@ -1574,6 +1581,8 @@ if (CPUS["M6502"]~=null or _OPTIONS["with-tools"]) then
table.insert(disasm_files, MAME_DIR .. "src/devices/cpu/m6502/n2a03d.h")
table.insert(disasm_files, MAME_DIR .. "src/devices/cpu/m6502/r65c02d.cpp")
table.insert(disasm_files, MAME_DIR .. "src/devices/cpu/m6502/r65c02d.h")
table.insert(disasm_files, MAME_DIR .. "src/devices/cpu/m6502/r65c19d.cpp")
table.insert(disasm_files, MAME_DIR .. "src/devices/cpu/m6502/r65c19d.h")
table.insert(disasm_files, MAME_DIR .. "src/devices/cpu/m6502/xavixd.cpp")
table.insert(disasm_files, MAME_DIR .. "src/devices/cpu/m6502/xavixd.h")
table.insert(disasm_files, MAME_DIR .. "src/devices/cpu/m6502/xavix2000d.cpp")

1
scripts/target/mame/mess.lua
View File

@ -4205,6 +4205,7 @@ files {
MAME_DIR .. "src/mame/drivers/tti.cpp",
MAME_DIR .. "src/mame/drivers/unistar.cpp",
MAME_DIR .. "src/mame/drivers/v6809.cpp",
MAME_DIR .. "src/mame/drivers/vd56sp.cpp",
MAME_DIR .. "src/mame/drivers/vector4.cpp",
MAME_DIR .. "src/mame/drivers/vectrix.cpp",
MAME_DIR .. "src/mame/drivers/vp60.cpp",

20
src/devices/cpu/m6502/dr65c19.lst Normal file
View File

@ -0,0 +1,20 @@
# license:BSD-3-Clause
# copyright-holders:AJR
# r65c19 - many new instructions, others shuffled around or subtly altered in behavior
brk_r_imp ora_zpi mpy_imp tip_imp nop_zpg ora_zpg asl_c_zpg rmb_bzp php_imp ora_imm asl_acc jsb_vec jpi_ind ora_aba asl_c_aba bbr_zpb
bpl_rel ora_idx mpa_imp lab_acc nop_zpx ora_zpx asl_c_zpx rmb_bzp clc_imp ora_aby neg_acc jsb_vec nop_c_abx ora_abx asl_c_abx bbr_zpb
jsr_r_adr and_zpi psh_imp phw_imp bit_zpg and_zpg rol_c_zpg rmb_bzp plp_imp and_imm rol_acc jsb_vec bit_aba and_aba rol_c_aba bbr_zpb
bmi_rel and_idx pul_imp plw_imp nop_zpx and_zpx rol_c_zpx rmb_bzp sec_imp and_aby asr_acc jsb_vec nop_c_abx and_abx rol_c_abx bbr_zpb
rti_imp eor_zpi rnd_imp nop_c_imp nop_zpg eor_zpg lsr_c_zpg rmb_bzp pha_imp eor_imm lsr_acc jsb_vec jmp_adr eor_aba lsr_c_aba bbr_zpb
bvc_rel eor_idx clw_imp nop_c_imp nop_zpx eor_zpx lsr_c_zpx rmb_bzp cli_imp eor_aby phy_imp jsb_vec nop_c_abx eor_abx lsr_c_abx bbr_zpb
rts_r_imp adc_c_zpi taw_imp nop_c_imp add_zpg adc_c_zpg ror_c_zpg rmb_bzp pla_imp adc_c_imm ror_acc jsb_vec jmp_r_ind adc_c_aba ror_c_aba bbr_zpb
bvs_rel adc_c_idx twa_imp nop_c_imp add_zpx adc_c_zpx ror_c_zpx rmb_bzp sei_imp adc_c_aby ply_imp jsb_vec jmp_iax adc_c_abx ror_c_abx bbr_zpb
bra_rel sta_zpi nop_imm nop_c_imp sty_zpg sta_zpg stx_zpg smb_bzp dey_imp add_imm txa_imp nxt_imp sty_aba sta_aba stx_aba bbs_zpb
bcc_rel sta_idx nop_imm nop_c_imp sty_zpx sta_zpx stx_zpy smb_bzp tya_imp sta_aby txs_imp lii_imp nop_c_abx sta_abx nop_c_abx bbs_zpb
ldy_imm lda_zpi ldx_imm nop_c_imp ldy_zpg lda_zpg ldx_zpg smb_bzp tay_imp lda_imm tax_imp lan_imp ldy_aba lda_aba ldx_aba bbs_zpb
bcs_rel lda_idx sti_imz nop_c_imp ldy_zpx lda_zpx ldx_zpy smb_bzp clv_imp lda_aby tsx_imp ini_imp ldy_abx lda_abx ldx_aby bbs_zpb
cpy_imm cmp_zpi rba_ima nop_c_imp cpy_zpg cmp_zpg dec_c_zpg smb_bzp iny_imp cmp_imm dex_imp phi_imp cpy_aba cmp_aba dec_c_aba bbs_zpb
bne_rel cmp_idx sba_ima nop_c_imp exc_zpx cmp_zpx dec_c_zpx smb_bzp cld_imp cmp_aby phx_imp pli_imp nop_c_abx cmp_abx dec_c_abx bbs_zpb
cpx_imm sbc_c_zpi bar_amr nop_c_imp cpx_zpg sbc_c_zpg inc_c_zpg smb_bzp inx_imp sbc_c_imm nop_imp lai_imp cpx_aba sbc_c_aba inc_c_aba bbs_zpb
beq_rel sbc_c_idx bas_amr nop_c_imp nop_zpx sbc_c_zpx inc_c_zpx smb_bzp sed_imp sbc_c_aby plx_imp pia_imp nop_c_abx sbc_c_abx inc_c_abx bbs_zpb
reset_r

15
src/devices/cpu/m6502/m6502d.cpp
View File

@ -62,6 +62,11 @@ offs_t m6502_base_disassembler::disassemble(std::ostream &stream, offs_t pc, con
flags |= 3;
break;
case DASM_amr:
util::stream_format(stream, " $%02x%02x, #$%02x, $%04x", params.r8(pc+2), params.r8(pc+1), params.r8(pc+3), uint16_t(pc + 5 + int8_t(params.r8(pc+4))));
flags |= 5;
break;
case DASM_bzp:
util::stream_format(stream, "%d $%02x", (opcodes.r8(pc) >> 4) & 7, params.r8(pc+1));
flags |= 2;
@ -87,6 +92,11 @@ offs_t m6502_base_disassembler::disassemble(std::ostream &stream, offs_t pc, con
flags |= 2;
break;
case DASM_ima:
util::stream_format(stream, " #$%02x, $%02x%02x", params.r8(pc+1), params.r8(pc+3), params.r8(pc+2));
flags |= 4;
break;
case DASM_imm:
util::stream_format(stream, " #$%02x", params.r8(pc+1));
flags |= 2;
@ -126,6 +136,11 @@ offs_t m6502_base_disassembler::disassemble(std::ostream &stream, offs_t pc, con
flags |= 3;
break;
case DASM_vec:
util::stream_format(stream, "%d", (opcodes.r8(pc) >> 4) & 7);
flags |= 1;
break;
case DASM_zpb:
util::stream_format(stream, "%d $%02x, $%04x", (opcodes.r8(pc) >> 4) & 7, params.r8(pc+1), (pc & 0xf0000) | uint16_t(pc + 3 + int8_t(params.r8(pc+2))));
flags |= 3;

3
src/devices/cpu/m6502/m6502d.h
View File

@ -36,11 +36,13 @@ protected:
DASM_aby, /* absolute + Y */
DASM_acc, /* accumulator */
DASM_adr, /* absolute address (jmp,jsr) */
DASM_amr, /* absolute address, mask byte and relative address (r65c19) */
DASM_bzp, /* zero page with bit selection */
DASM_iax, /* indirect + X (65c02 jmp) */
DASM_idx, /* zero page pre indexed */
DASM_idy, /* zero page post indexed */
DASM_idz, /* zero page post indexed (65ce02) */
DASM_ima, /* immediate byte and absolute address (r65c19) */
DASM_imm, /* immediate */
DASM_imp, /* implicit */
DASM_ind, /* indirect (jmp) */
@ -49,6 +51,7 @@ protected:
DASM_iw3, /* augment (65ce02) */
DASM_rel, /* relative */
DASM_rw2, /* relative word (65cs02, 65ce02) */
DASM_vec, /* vector (r65c19 jbs) */
DASM_zpb, /* zero page and branch (65c02 bbr, bbs) */
DASM_zpg, /* zero page */
DASM_zpi, /* zero page indirect (65c02) */

4
src/devices/cpu/m6502/m6502make.py
View File

@ -227,9 +227,9 @@ def save_dasm(f, device, states):
opc = tokens[0]
mode = tokens[-1]
extra = "0"
if opc in ["jsr", "bsr", "callf"]:
if opc in ["jsr", "bsr", "callf", "jpi", "jsb"]:
extra = "STEP_OVER"
elif opc in ["rts", "rti", "rtn", "retf"]:
elif opc in ["rts", "rti", "rtn", "retf", "tpi"]:
extra = "STEP_OUT"
emit(f, '\t{ "%s", DASM_%s, %s },' % (opc, mode, extra))
emit(f, DISASM_EPILOG % d)

355
src/devices/cpu/m6502/or65c19.lst Normal file
View File

@ -0,0 +1,355 @@
# license:BSD-3-Clause
# copyright-holders:Olivier Galibert, AJR
add_imm
TMP = read_pc();
do_add(TMP);
if(P & F_D) {
read_pc_noinc();
set_nz(A);
}
prefetch();
add_zpg
TMP = read_pc();
TMP = read(TMP);
do_add(TMP);
if(P & F_D) {
read_pc_noinc();
set_nz(A);
}
prefetch();
add_zpx
TMP = read_pc();
read(TMP);
TMP = read(uint8_t(TMP+X));
do_add(TMP);
if(P & F_D) {
read_pc_noinc();
set_nz(A);
}
prefetch();
asr_acc
read_pc_noinc();
A = do_asr(A);
prefetch();
bar_amr
TMP = read_pc();
TMP = set_h(TMP, read_pc());
TMP2 = read(TMP);
TMP = read_pc_noinc();
read_pc();
TMP2 &= ~TMP;
TMP = read_pc();
if(TMP2 != 0) {
read_pc_noinc();
if(page_changing(PC, int8_t(TMP))) {
read_arg(set_l(PC, PC+int8_t(TMP)));
}
PC += int8_t(TMP);
}
prefetch();
bas_amr
TMP = read_pc();
TMP = set_h(TMP, read_pc());
TMP2 = read(TMP);
TMP = read_pc_noinc();
read_pc();
TMP2 &= TMP;
TMP = read_pc();
if(TMP2 != 0) {
read_pc_noinc();
if(page_changing(PC, int8_t(TMP))) {
read_arg(set_l(PC, PC+int8_t(TMP)));
}
PC += int8_t(TMP);
}
prefetch();
brk_r_imp
if(irq_taken || nmi_state) {
read_pc_noinc();
} else {
read_pc();
}
write(SP, PC >> 8);
dec_SP();
write(SP, PC);
dec_SP();
write(SP, irq_taken || nmi_state ? P & ~F_B : P);
dec_SP();
if(irq_taken && nmi_state) {
PC = read_arg(0xfffc);
PC = set_h(PC, read_arg(0xfffd));
nmi_state = false;
standard_irq_callback(NMI_LINE);
} else {
TMP = get_irq_vector();
PC = read_arg(TMP);
PC = set_h(PC, read_arg(TMP+1));
if(irq_taken)
standard_irq_callback(((~TMP & 0x000e) >> 1) - 1);
}
irq_taken = false;
P = (P | F_I) & ~F_D; // Do *not* move after the prefetch
prefetch();
inst_state = -1;
clw_imp
read_pc_noinc();
P &= ~F_V;
m_w = 0;
prefetch();
exc_zpx
TMP = read_pc();
read(TMP);
TMP = uint8_t(TMP+X);
TMP2 = read(TMP);
write(TMP, A);
A = TMP2;
prefetch();
ini_imp
read_pc_noinc();
read(m_i);
m_i++;
prefetch();
jpi_ind
m_i = PC;
TMP = read_arg(m_i);
TMP = set_h(TMP, read_arg(m_i+1));
m_i += 2;
PC = read(TMP);
PC = set_h(PC, read(TMP+1));
prefetch();
jsb_vec
read_pc_noinc();
write(SP, PC>>8);
dec_SP();
write(SP, PC);
dec_SP();
TMP = 0xffe0 | ((inst_state >> 3) & 0x0e);
PC = read_arg(TMP);
PC = set_h(PC, read_arg(TMP+1));
prefetch();
jmp_r_ind
TMP = read_pc();
TMP = set_h(TMP, read_pc());
PC = read(TMP);
PC = set_h(PC, read(TMP+1));
prefetch();
jsr_r_adr
TMP = read_pc();
TMP = set_h(TMP, read_pc());
write(SP, PC>>8);
dec_SP();
write(SP, PC);
dec_SP();
PC = TMP;
prefetch();
lab_acc
read_pc_noinc();
read_pc_noinc();
if(int8_t(A) < 0)
A = -A;
set_nz(A);
prefetch();
lai_imp
read_pc_noinc();
A = read(m_i);
prefetch();
lan_imp
read_pc_noinc();
A = read(m_i);
m_i++;
prefetch();
lii_imp
read_pc_noinc();
TMP = read(m_i);
TMP = set_h(TMP, read(m_i+1));
read(TMP);
m_i = TMP;
prefetch();
mpa_imp
read_pc_noinc();
read_pc_noinc();
read_pc_noinc();
read_pc_noinc();
read_pc_noinc();
TMP = int8_t(A) * int8_t(Y);
m_w = do_accumulate(TMP, m_w);
prefetch();
mpy_imp
read_pc_noinc();
read_pc_noinc();
read_pc_noinc();
read_pc_noinc();
read_pc_noinc();
TMP = int8_t(A) * int8_t(Y);
A = do_accumulate(TMP, 0)>>8;
prefetch();
neg_acc
read_pc_noinc();
A = -A;
set_nz(A);
prefetch();
nxt_imp
read_pc_noinc();
PC = read(m_i);
PC = set_h(PC, read(m_i+1));
m_i += 2;
prefetch();
phi_imp
read_pc_noinc();
write(SP, m_i>>8);
dec_SP();
write(SP, m_i);
dec_SP();
prefetch();
phw_imp
read_pc_noinc();
write(SP, m_w>>8);
dec_SP();
write(SP, m_w);
dec_SP();
prefetch();
pia_imp
read_pc_noinc();
read(SP);
inc_SP();
m_i = read(SP);
inc_SP();
m_i = set_h(m_i, read(SP));
A = read(m_i);
m_i++;
prefetch();
pli_imp
read_pc_noinc();
read(SP);
inc_SP();
m_i = read(SP);
inc_SP();
m_i = set_h(m_i, read(SP));
read(m_i);
prefetch();
plw_imp
read_pc_noinc();
read(SP);
inc_SP();
m_w = read(SP);
inc_SP();
m_w = set_h(m_w, read(SP));
prefetch();
psh_imp
read_pc_noinc();
write(SP, A);
dec_SP();
write(SP, X);
dec_SP();
write(SP, Y);
dec_SP();
prefetch();
pul_imp
read_pc_noinc();
read(SP);
inc_SP();
Y = read(SP);
inc_SP();
X = read(SP);
inc_SP();
A = read(SP);
prefetch();
rba_ima
A = read_pc(); // "Note that Accumulator contents are altered by RBA and SBA" (C29/C39 Technical Reference Manual, p. C-29)
TMP = read_pc();
TMP = set_h(TMP, read_pc());
TMP2 = read(TMP);
read(TMP);
TMP2 &= ~A;
write(TMP, TMP2);
prefetch();
rnd_imp
read_pc_noinc();
TMP = set_l(m_w, Y);
A = do_accumulate(TMP, (m_w<<1) & 0x100)>>8;
prefetch();
rts_r_imp
read_pc_noinc();
read_pc_noinc();
inc_SP();
PC = read(SP);
inc_SP();
PC = set_h(PC, read(SP));
prefetch();
sba_ima
A = read_pc();
TMP = read_pc();
TMP = set_h(TMP, read_pc());
TMP2 = read(TMP);
read(TMP);
TMP2 |= A;
write(TMP, TMP2);
prefetch();
sti_imz
TMP = read_pc();
TMP2 = read_pc();
write(TMP2, TMP);
prefetch();
taw_imp
read_pc_noinc();
m_w = A<<8;
set_nz(m_w>>8);
prefetch();
tip_imp
read_pc_noinc();
PC = m_i;
prefetch();
twa_imp
read_pc_noinc();
A = m_w>>8;
set_nz(A);
prefetch();
# exceptions
reset_r
read_pc();
read_pc_noinc();
read(SP); dec_SP();
read(SP); dec_SP();
read(SP); dec_SP();
P = (P | F_I) & ~F_D;
PC = read_arg(0xfffe);
PC = set_h(PC, read_arg(0xffff));
prefetch();
inst_state = -1;

106
src/devices/cpu/m6502/r65c19.cpp Normal file
View File

@ -0,0 +1,106 @@
// license:BSD-3-Clause
// copyright-holders:AJR
/**********************************************************************
Rockwell R65C19 Microcomputer (MCU)
TODO: fully describe this MCU and its successors (C29, C39) and
emulate their internal peripherals (only core emulation now)
**********************************************************************/
#include "emu.h"
#include "r65c19.h"
#include "r65c19d.h"
DEFINE_DEVICE_TYPE(R65C19, r65c19_device, "r65c19", "Rockwell R65C19 MCU")
r65c19_device::r65c19_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, u32 clock, address_map_constructor internal_map)
: r65c02_device(mconfig, type, tag, owner, clock)
, m_w(0)
, m_i(0)
{
program_config.m_internal_map = std::move(internal_map);
}
r65c19_device::r65c19_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock)
: r65c19_device(mconfig, R65C19, tag, owner, clock, address_map_constructor())
{
}
std::unique_ptr<util::disasm_interface> r65c19_device::create_disassembler()
{
return std::make_unique<r65c19_disassembler>();
}
void r65c19_device::do_add(u8 v)
{
P &= ~F_C;
do_adc(v);
}
u16 r65c19_device::do_accumulate(u16 v, u16 w)
{
// Compute the sum
s32 result = s16(v) + s16(w);
// Determine flags and saturate result upon overflow
P &= ~(F_N | F_V);
if (result > 32767)
{
P |= F_V;
result = 32767;
}
else if (result < 0)
{
P |= F_N;
if (result < -32768)
{
P |= F_V;
result = -32768;
}
}
// MPA and MPY always destroy the old value of Y, as does RND when it overflows
Y = result & 0xff;
// 16-bit result to W, or high byte to A
return result & 0xffff;
}
u16 r65c19_device::get_irq_vector()
{
// TODO: this is a stub
return 0xfffc;
}
void r65c19_device::device_start()
{
mintf = std::make_unique<mi_default>();
c19_init();
}
void r65c19_device::c19_init()
{
init();
state_add(R65C19_W, "W", m_w);
state_add<u8>(R65C19_WL, "WL",
[this]() { return m_w & 0xff; },
[this](u8 data) { m_w = set_l(m_w, data); }).noshow();
state_add<u8>(R65C19_WH, "WH",
[this]() { return m_w >> 8; },
[this](u8 data) { m_w = set_h(m_w, data); }).noshow();
state_add(R65C19_I, "I", m_i);
save_item(NAME(m_w));
save_item(NAME(m_i));
}
void r65c19_device::device_reset()
{
r65c02_device::device_reset();
}
#include "cpu/m6502/r65c19.hxx"

90
src/devices/cpu/m6502/r65c19.h Normal file
View File

@ -0,0 +1,90 @@
// license:BSD-3-Clause
// copyright-holders:AJR
#ifndef MAME_CPU_M6502_R65C19_H
#define MAME_CPU_M6502_R65C19_H
#pragma once
#include "r65c02.h"
class r65c19_device : public r65c02_device
{
public:
enum {
R65C19_W = M6502_IR + 1,
R65C19_WL,
R65C19_WH,
R65C19_I
};
r65c19_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock);
protected:
r65c19_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, u32 clock, address_map_constructor internal_map);
virtual void device_start() override;
virtual void device_reset() override;
virtual std::unique_ptr<util::disasm_interface> create_disassembler() override;
virtual void do_exec_full() override;
virtual void do_exec_partial() override;
virtual u16 get_irq_vector();
void c19_init();
private:
void do_add(u8 v);
u16 do_accumulate(u16 v, u16 w);
#define O(o) void o ## _full(); void o ## _partial()
O(add_imm);
O(add_zpg);
O(add_zpx);
O(asr_acc);
O(bar_amr);
O(bas_amr);
O(brk_r_imp);
O(clw_imp);
O(exc_zpx);
O(ini_imp);
O(jpi_ind);
O(jsb_vec);
O(jmp_r_ind);
O(jsr_r_adr);
O(lab_acc);
O(lai_imp);
O(lan_imp);
O(lii_imp);
O(mpa_imp);
O(mpy_imp);
O(neg_acc);
O(nxt_imp);
O(phi_imp);
O(phw_imp);
O(pia_imp);
O(pli_imp);
O(plw_imp);
O(psh_imp);
O(pul_imp);
O(rba_ima);
O(rnd_imp);
O(rts_r_imp);
O(sba_ima);
O(sti_imz);
O(taw_imp);
O(tip_imp);
O(twa_imp);
O(reset_r);
#undef O
u16 m_w;
u16 m_i;
};
DECLARE_DEVICE_TYPE(R65C19, r65c19_device)
#endif // MAME_CPU_M6502_R65C19_H

10
src/devices/cpu/m6502/r65c19d.cpp Normal file
View File

@ -0,0 +1,10 @@
// license:BSD-3-Clause
// copyright-holders:Olivier Galibert
#include "emu.h"
#include "r65c19d.h"
#include "cpu/m6502/r65c19d.hxx"
r65c19_disassembler::r65c19_disassembler() : m6502_base_disassembler(disasm_entries)
{
}

21
src/devices/cpu/m6502/r65c19d.h Normal file
View File

@ -0,0 +1,21 @@
// license:BSD-3-Clause
// copyright-holders:Olivier Galibert
#ifndef MAME_CPU_M6502_R65C19D_H
#define MAME_CPU_M6502_R65C19D_H
#pragma once
#include "m6502d.h"
class r65c19_disassembler : public m6502_base_disassembler
{
public:
r65c19_disassembler();
virtual ~r65c19_disassembler() = default;
private:
static const disasm_entry disasm_entries[0x100];
};
#endif

57
src/mame/drivers/vd56sp.cpp Normal file
View File

@ -0,0 +1,57 @@
// license:BSD-3-Clause
// copyright-holders:AJR
/****************************************************************************
Skeleton driver for Speedcom 56K V.90 external modem using Conexant
(formerly Rockwell) chipset.
****************************************************************************/
#include "emu.h"
#include "cpu/m6502/r65c19.h"
class vd56sp_state : public driver_device
{
public:
vd56sp_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag)
, m_maincpu(*this, "maincpu")
{
}
void vd56sp(machine_config &mconfig);
private:
void mem_map(address_map &map);
required_device<r65c19_device> m_maincpu;
};
void vd56sp_state::mem_map(address_map &map)
{
map(0x0040, 0x03ff).ram();
map(0x0800, 0x1fff).rom().region("firmware", 0x20800);
map(0x8000, 0xffff).rom().region("firmware", 0x28000);
}
static INPUT_PORTS_START(vd56sp)
INPUT_PORTS_END
void vd56sp_state::vd56sp(machine_config &config)
{
R65C19(config, m_maincpu, 8'000'000); // FIXME: actually L2800-38 (XTAL not readable)
m_maincpu->set_addrmap(AS_PROGRAM, &vd56sp_state::mem_map);
// Modem IC: Conexant R6764-61
}
ROM_START(vd56sp)
ROM_REGION(0x40000, "firmware", 0)
ROM_LOAD("vd56sp_v2.2_8904005.u10", 0x00000, 0x40000, CRC(23ddae13) SHA1(7a194f681389c2923ea6848b3a25f26c532a3200))
ROM_END
SYST(199?, vd56sp, 0, 0, vd56sp, vd56sp, vd56sp_state, empty_init, "Pro-Nets Technology", "Speedcom VD56SP", MACHINE_IS_SKELETON)

3
src/mame/mame.lst
View File

@ -39373,6 +39373,9 @@ vcs80 //
break86 //
papillon //
@source:vd56sp.cpp
vd56sp //
@source:vdm7932x.cpp
vdm79322 //

1
src/mame/mess.flt
View File

@ -910,6 +910,7 @@ vax11.cpp
vboy.cpp
vc4000.cpp
vcs80.cpp
vd56sp.cpp
vdm7932x.cpp
vector06.cpp
vector4.cpp

2
src/tools/unidasm.cpp
View File

@ -82,6 +82,7 @@ using util::BIT;
#include "cpu/m6502/m65ce02d.h"
#include "cpu/m6502/m740d.h"
#include "cpu/m6502/r65c02d.h"
#include "cpu/m6502/r65c19d.h"
#include "cpu/m6502/xavixd.h"
#include "cpu/m6502/xavix2000d.h"
#include "cpu/m6800/6800dasm.h"
@ -453,6 +454,7 @@ static const dasm_table_entry dasm_table[] =
{ "pps4", le, 0, []() -> util::disasm_interface * { return new pps4_disassembler; } },
{ "psxcpu", le, 0, []() -> util::disasm_interface * { return new psxcpu_disassembler; } },
{ "r65c02", le, 0, []() -> util::disasm_interface * { return new r65c02_disassembler; } },
{ "r65c19", le, 0, []() -> util::disasm_interface * { return new r65c19_disassembler; } },
{ "rsp", le, 0, []() -> util::disasm_interface * { return new rsp_disassembler; } },
{ "s2650", le, 0, []() -> util::disasm_interface * { return new s2650_disassembler(&s2650_unidasm); } },
{ "saturn", le, 0, []() -> util::disasm_interface * { return new saturn_disassembler(&saturn_unidasm); } },