local machine = manager.machine
local cpu = machine.devices[':maincpu']
local dbg = machine.debugger
local prog = cpu.spaces['program']
if not dbg then machine:exit(); return end
local function w(a) return prog:read_u16(a) end
local function l(a) return prog:read_u32(a) end
local function dump(label, base, n)
  local t = {}
  for i=0,n-1 do t[#t+1] = string.format("%04X", w(base + i*16)) end
  print(label .. " @ " .. string.format("%08X", base) .. ": " .. table.concat(t, " "))
end
print(string.format("VEC INT1=%08X INT2=%08X HI=%08X DI=%08X RESET=%08X",
  l(0xffffffc0), l(0xffffffa0), l(0xfffffec0), l(0xfffffea0), l(0xffffffe0)))
local n=0
emu.register_frame_done(function()
  n=n+1
  if n==476 or n==482 then
    print("---- frame "..n)
    dump("RAM0f60", 0x0f60, 12)
    dump("RAM0d80", 0x0d80, 12)
    dump("TBL1d0", 0x2701d0, 8)
    dump("TBL270", 0x270270, 8)
    dump("TBL2f0", 0x2702f0, 8)
    dump("TBL350", 0x270350, 8)
    dump("TBL3b0", 0x2703b0, 8)
    dump("TBL3f0", 0x2703f0, 8)
    dump("STRUCT+0x0", 0x270890, 0x40)
  end
  if n>=485 then machine:exit() end
end, "vt1200-hp-dump")
dbg.execution_state='run'