-- hp_vals.lua -- actual values at the three failing comparisons.
local machine = manager.machine
local cpu = machine.devices[':maincpu']
local dbg = machine.debugger
if not dbg then print("ERROR: no debugger"); machine:exit(); return end
local function bp(addr, msg)
  dbg:command('bpset ' .. addr .. ',,{ printf "' .. msg ..
    ' a7=%08X a9=%08X a11=%08X\\n", a7, a9, a11 ; g }')
end
-- L3FA71BC0: c6 -> btst 5 on struct[index].0x60 (set site 3FA739B0)
bp("3fa73970", "BC0/c6-cmp(btst5)")
-- L3FA753D0: c0 -> btst 4 on *a7(0x3d0); c1 -> btst 1 on *a7(0x3c0)
bp("3fa76050", "RX/c0-cmp(btst4)")
bp("3fa760e0", "RX/c1-cmp(btst1)")
local n = 0
emu.register_frame_done(function()
  n = n + 1
  if n >= tonumber(os.getenv("HP_FRAMES") or "700") then print("done "..n); machine:exit() end
end, "vt1200-hp-vals")
dbg.visible_cpu = cpu
dbg.execution_state = 'run'