-- hp_probe2.lua -- status flags and struct fields during the host-port 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)
  local cmd = 'bpset ' .. addr .. ',,{ ' .. body .. ' ; g }'
  print("CMD " .. cmd)
  dbg:command(cmd)
end
bp("3fa76030", 'printf "RX-3d0 a7=%08X s3d0=%04X\\n", a7, d@270C60')
bp("3fa760b0", 'printf "RX-3c0 a7=%08X s3c0=%04X\\n", a7, d@270C50')
bp("3fa76440", 'printf "RX-FLAGS a13=%08X flags=%08X cnt320=%04X\\n", a13, d@1D70, d@270BB0')
bp("3fa76390", 'printf "RHRA-CMP exp=%08X got=%08X\\n", a7, a9')
bp("3fa73440", 'printf "BC0-CHK s0=%04X s320=%04X\\n", d@270890, d@270BB0')
bp("3fa74be0", 'printf "BC0-LATE s0=%04X s320=%04X s730=%04X\\n", d@270890, d@270BB0, d@270C00')
bp("3fa79ed0", 'printf "ISR-TX-THRA val=%08X\\n", d@270890')
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-probe2")
dbg.visible_cpu = cpu
dbg.execution_state = 'run'