dwt: visual injection experiments via the returning rdebug jump

dwt/visual/probe_end.lua

@@ -0,0 +1,24 @@
+-- probe_end.lua -- frame clock + PC/SP/ST and hook-state sampler.
+local machine = manager.machine
+local cpu = machine.devices[':maincpu']
+local prog = cpu.spaces['program']
+local clock = os.getenv("FRAME_CLOCK")
+local stop = tonumber(os.getenv("FRAME_STOP") or "0")
+local f = 0
+local function rw(b) return prog:read_u16(b) end
+local function rl(b) return prog:read_u32(b) end
+emu.register_frame_done(function()
+	f = f + 1
+	if clock then
+		local fh = io.open(clock, "w")
+		if fh then fh:write(f .. "\n"); fh:close() end
+	end
+	if f >= 3480 and f % 10 == 0 then
+		print(string.format(
+			"END f=%d PC=%08X SP=%08X ST=%08X counter=%04X state=%04X orig=%08X box=%04X%04X",
+			f, cpu.state['PC'].value, cpu.state['SP'].value, cpu.state['ST'].value,
+			rw(0x01840E00), rw(0x01840E10), rl(0x01840E20),
+			rw(0x04064100), rw(0x04064110)))
+	end
+	if stop > 0 and f >= stop then machine:exit() end
+end, "vt1200-probe-end")