local frames = 0
local dbg = manager.machine.debugger
dbg:command("bpset 3F2D92B0,,{ b@(a5+0x20)=0 ; g }")
dbg:command("bpset 3FB172A0,,{ printf \"POLL status=%04X\n\", d@(0x5600010) ; g }")
dbg:command("bpset 3FB173D0,,{ printf \"SCALUTION_TIMEOUT\n\" ; g }")
dbg:command("bpset 3FB17470,,{ printf \"SCALUTION_READY -> continue\n\" ; g }")
print("XIE-SCL armed 4")
emu.register_frame_done(function()
  frames = frames + 1
  if frames >= 2000000 then machine:exit() end
end, "scl")