-- Диагностическая проба полей AT-клавиатуры MAME.
-- Нужна для воспроизводимого ввода навигационных и функциональных клавиш.

local ready = false
local done = false

emu.add_machine_reset_notifier(function()
  ready = true
end)

emu.register_periodic(function()
  if not ready or done then return end
  done = true

  for tag, port in pairs(manager.machine.ioport.ports) do
    if tostring(tag):find(":kbd:ms_naturl:P", 1, true) then
      for name, field in pairs(port.fields) do
        print(string.format("[p1-key] %s mask=0x%02X name=%s",
                            tostring(tag), field.mask, tostring(name)))
      end
    end
  end

  manager.machine:exit()
end)