-- hp_bc0.lua -- L3FA71BC0's own checks (the first host-port sub-test).
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, body)
  dbg:command('bpset ' .. addr .. ',,{ ' .. body .. ' ; g }')
end
bp("3fa73500", 'printf "BC0-C1 a7=%08X s320=%04X\\n", a7, d@270BB0')
bp("3fa73580", 'printf "BC0-C2 a7=%08X s0=%04X\\n", a7, d@270890')
bp("3fa73610", 'printf "BC0-C3 a7=%08X s320=%04X\\n", a7, d@270BB0')
bp("3fa73630", 'printf "BC0-C4 a7=%08X s0=%04X\\n", a7, d@270890')
bp("3fa735a0", 'printf "BC0-C5 a7=%08X\\n", a7')
bp("3fa73830", 'printf "BC0-C6 a7=%08X s9=%08X\\n", a7, a9')
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-bc0")
dbg.visible_cpu = cpu
dbg.execution_state = 'run'