local frames = 0
local dbg = manager.machine.debugger
dbg:command("bpset 3F53D820,,{ printf \"REGIDSTORE id=%08X obj=%08X\n\", d@(a9+0x40), a11 ; g }")
dbg:command("bpset 3F2D8A90,,{ printf \"RD_ENTRY\n\" ; g }")
dbg:command("bpset 3F2D8BC0,,{ printf \"RD_ENAB flag=%08X\n\", d@(0xa6220) ; g }")
dbg:command("bpset 3F2D8C50,,{ printf \"RD_ALLOC rp=%08X\n\", a8 ; g }")
dbg:command("bpset 3F2D8D20,,{ printf \"RD_BADALLOC\n\" ; g }")
dbg:command("bpset 3F2D91C0,,{ printf \"RD_SRCBASE a5=%08X e28=%08X\n\", a5, d@(a5+0x28) ; g }")
dbg:command("bpset 3F2D94B0,,{ printf \"RP a11=%08X src_base610=%08X\n\", a11, d@(a11+0x610) ; g }")
print("XIE-RD armed 7")
emu.register_frame_done(function()
  frames = frames + 1
  if frames >= 2000000 then machine:exit() end
end, "rd")