Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-07-23 02:01:08 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

hp9845: updating of tachometer register added in TACO driver

Browse Source
This commit is contained in:
fulivi 2016-03-20 16:09:20 +01:00
parent 0b8eec6c45
commit e740ed13ec
2 changed files with 76 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/devices/machine/hp_taco.cpp
View File

@ -314,6 +314,7 @@ WRITE16_MEMBER(hp_taco_device::reg_w)
case 2:
// Tachometer register
m_tach_reg = data;
freeze_tach_reg(true);
break;
case 3:
@ -343,6 +344,7 @@ READ16_MEMBER(hp_taco_device::reg_r)
case 2:
// Tachometer register
update_tach_reg();
res = m_tach_reg;
break;
@ -389,6 +391,8 @@ void hp_taco_device::device_start()
save_item(NAME(m_cmd_state));
save_item(NAME(m_status_reg));
save_item(NAME(m_tach_reg));
save_item(NAME(m_tach_reg_ref));
save_item(NAME(m_tach_reg_frozen));
save_item(NAME(m_checksum_reg));
save_item(NAME(m_timing_reg));
save_item(NAME(m_irq));
@ -486,6 +490,7 @@ void hp_taco_device::device_timer(emu_timer &timer, device_timer_id id, int para
if (m_cmd_state == 0) {
m_cmd_state = 1;
m_tape_timer->adjust(time_to_tach_pulses());
freeze_tach_reg(false);
return;
}
break;
@ -616,7 +621,6 @@ void hp_taco_device::device_timer(emu_timer &timer, device_timer_id id, int para
case CMD_MOVE_INGAP:
case CMD_DELTA_MOVE_IRG:
// TODO: update r6
m_hole_timer->adjust(time_to_next_hole());
// No IRQ at holes
return;
@ -647,6 +651,8 @@ void hp_taco_device::clear_state(void)
m_cmd_reg = 0;
m_status_reg = 0;
m_tach_reg = 0;
m_tach_reg_ref = m_tape_pos;
m_tach_reg_frozen = true;
m_checksum_reg = 0;
m_timing_reg = 0;
m_cmd_state = 0;
@ -715,6 +721,11 @@ bool hp_taco_device::pos_offset(tape_pos_t& pos , tape_pos_t offset) const
hp_taco_device::tape_pos_t hp_taco_device::current_tape_pos(void) const
{
if (m_start_time.is_never()) {
// Tape not moving
return m_tape_pos;
}
attotime delta_time(machine().time() - m_start_time);
LOG_0(("delta_time = %g\n" , delta_time.as_double()));
// How many tachometer ticks has the tape moved?
@ -757,6 +768,37 @@ void hp_taco_device::update_tape_pos(void)
} else {
BIT_CLR(m_status_reg, STATUS_GAP_BIT);
}
// Tach register update
update_tach_reg();
}
void hp_taco_device::update_tach_reg(void)
{
if (m_tach_reg_frozen) {
LOG_0(("Tach reg frozen\n"));
return;
}
tape_pos_t pos = current_tape_pos();
tape_pos_t pos_int = pos / TAPE_POS_FRACT;
tape_pos_t ref_int = m_tach_reg_ref / TAPE_POS_FRACT;
UINT16 reg_value = (UINT16)(abs(pos_int - ref_int) + m_tach_reg);
LOG_0(("Tach = %04x @ pos = %d, ref_pos = %d\n" , reg_value , pos , m_tach_reg_ref));
m_tach_reg = reg_value;
m_tach_reg_ref = pos;
}
void hp_taco_device::freeze_tach_reg(bool freeze)
{
if (freeze) {
m_tach_reg_frozen = true;
} else {
m_tach_reg_frozen = false;
m_tach_reg_ref = current_tape_pos();
}
}
void hp_taco_device::ensure_a_lt_b(tape_pos_t& a , tape_pos_t& b)
@ -1359,6 +1401,7 @@ void hp_taco_device::start_cmd_exec(UINT16 new_cmd_reg)
case CMD_WRITE_IRG:
// Errors: WP,CART OUT
if (start_tape_cmd(new_cmd_reg , 0 , STATUS_WPR_MASK)) {
freeze_tach_reg(false);
m_rw_pos = m_tape_pos;
cmd_duration = time_to_tach_pulses();
time_to_hole = time_to_next_hole();
@ -1391,6 +1434,7 @@ void hp_taco_device::start_cmd_exec(UINT16 new_cmd_reg)
// Errors: CART OUT,FAST SPEED
if (start_tape_cmd(new_cmd_reg , 0 , SPEED_FAST_MASK)) {
m_cmd_state = 0;
freeze_tach_reg(false);
cmd_duration = time_to_tach_pulses();
// Holes detected?
}
@ -1408,6 +1452,7 @@ void hp_taco_device::start_cmd_exec(UINT16 new_cmd_reg)
case CMD_DELTA_MOVE_IRG:
if (start_tape_cmd(new_cmd_reg , 0 , 0)) {
m_cmd_state = 0;
freeze_tach_reg(false);
cmd_duration = time_to_tach_pulses();
time_to_hole = time_to_next_hole();
}

4
src/devices/machine/hp_taco.h
View File

@ -85,6 +85,8 @@ private:
UINT16 m_cmd_reg;
UINT16 m_status_reg;
UINT16 m_tach_reg;
tape_pos_t m_tach_reg_ref;
bool m_tach_reg_frozen;
UINT16 m_checksum_reg;
UINT16 m_timing_reg;
@ -132,6 +134,8 @@ private:
bool pos_offset(tape_pos_t& pos , tape_pos_t offset) const;
tape_pos_t current_tape_pos(void) const;
void update_tape_pos(void);
void update_tach_reg(void);
void freeze_tach_reg(bool freeze);
static void ensure_a_lt_b(tape_pos_t& a , tape_pos_t& b);
static bool any_hole(tape_pos_t tape_pos_a , tape_pos_t tape_pos_b);
tape_pos_t next_hole(void) const;