local frames = 0
local dbg = manager.machine.debugger
dbg:command("bpset 3F2D92B0,,{ b@(a5+0x20)=0 ; g }")
dbg:command("bpset 3FB172D0,,{ printf \"CPU_READ a9=%04X (bit1=%d)\n\", a9, (a9>>1)&1 ; g }")
dbg:command("bpset 3FB173D0,,{ printf \"TIMEOUT\n\" ; g }")
dbg:command("bpset 3FB17470,,{ printf \"READY\n\" ; g }")
print("XIE-SCL2 armed")
emu.register_frame_done(function()
  frames = frames + 1
  if frames >= 2000000 then machine:exit() end
end, "scl2")