-- Ask MAME what the x68000's ADPCM device is, and where the 68000 reaches it.
-- FINDINGS 64.4 recorded that no MAME source tree is on this machine; this is
-- the way to ask the same question without one.
M = manager.machine
local done = false
SUB = emu.add_machine_frame_notifier(function()
  if done then return end
  done = true
  print("[AD] === devices whose tag looks like an ADPCM chip ===")
  for tag, dev in pairs(M.devices) do
    local t = tag:lower()
    if t:find("adpcm") or t:find("oki") or t:find("msm") or t:find("6258") then
      print(string.format("[AD] DEV %-24s shortname=%s", tag, tostring(dev.shortname)))
    end
  end
  local sp = M.devices[":maincpu"].spaces["program"]
  print("[AD] === program map, $E90000..$EA0000 ===")
  local ok, err = pcall(function()
    for _, e in ipairs(sp.map.entries) do
      if e.address_start >= 0xE90000 and e.address_start < 0xEA0000 then
        print(string.format("[AD] MAP %08X-%08X", e.address_start, e.address_end))
      end
    end
  end)
  if not ok then print("[AD] MAP unavailable: " .. tostring(err)) end
  print("[AD] done")
  M:exit()
end)