Added MAME-Plugin

Author: Juan Segura

MAME-plugin/Version.txt

@@ -0,0 +1 @@
+0.0.1-beta1

MAME-plugin/init.lua

@@ -0,0 +1,87 @@
+local exports = {}
+
+local cpu = nil
+local paused = false
+
+local breakpointaddr = nil --0x8000
+local breakpoint_hit = false
+
+function exports.startplugin()
+    print("Plugin ZXBS loaded!")
+
+    --emu.register_start(function()
+    emu.add_machine_reset_notifier(function()
+        cpu = manager.machine.devices[":maincpu"]
+        print("")
+        print("CPU detected")
+
+        if breakpointaddr then
+            if cpu.debug then
+                local id=cpu.debug:bpset(breakpointaddr, "", "")
+                print("Breakpoint set " .. id)
+            else
+                print("DEBUG NO AVAILABLE")
+            end
+        end
+
+        emu.register_periodic(timer)
+    end)
+end
+
+
+function timer()
+    if not cpu or not cpu.debug then 
+        return
+    end
+
+    local current_pc = cpu.state["PC"].value
+    if current_pc == breakpointaddr and breakpoint_hit == false then
+        emu.pause()
+        breakpoint_hit = true
+        show_registers()
+    end
+
+    --if breakpoint_hit == true and current_pc != breakpointaddr then
+    --    breakpoint_hit = false
+    --end
+end
+
+
+function timer2()
+    local cmd = get_command()
+
+    if cmd == "PAUSE" then
+        emu.pause()
+        show_registers()
+    else
+        if cmd == nil then
+            return
+        end
+        print("UNKNOW COMMAD")
+        print(cmd)
+    end
+end
+
+
+function get_command()
+    local f = io.open("zxbs.tmp","r")
+    if not f then
+        return nil
+    end
+    local content = f:read("*a")
+    f:close()
+    os.remove("zxbs.tmp")
+    return content
+end
+
+
+function show_registers()
+    local pc = cpu.state["PC"].value
+    local af = cpu.state["AF"].value
+    local bc = cpu.state["BC"].value
+    local de = cpu.state["DE"].value
+    local hl = cpu.state["HL"].value
+    print(string.format("BREAKPOINT PC:%04X AF:%04X BC:%04X DE:%04X HL:%04X",pc, af, bc, de, hl))        
+end
+
+return exports

MAME-plugin/plugin.json

@@ -0,0 +1,10 @@
+{
+    "plugin": {
+        "name": "zxbs",
+        "description": "ZX Basic Studio debugger plugin",
+        "version": "0.1",
+        "author": "DuefectuCorp",
+        "type": "plugin",
+        "start": "start"
+    }
+}

README.md

@@ -24,6 +24,7 @@ Have fun!
   - AbenZaX
   - Pedro Tomás (Pere)
   - Jose Daniel Fernandez Santos (Fenix)
+  - Super@ado
 
 ## Credits
 - Icons from [SVG REPO](https://www.svgrepo.com/):

ZXBasicStudio.sln

@@ -42,6 +42,13 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Installer", "Installer", "{
 EndProject
 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Emulator", "Emulator", "{6AB4C5D0-AB60-49F0-A349-E46971736749}"
 EndProject
+Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "MAME-plugin", "MAME-plugin", "{1EFA610B-30F8-41E7-AED5-39CAB54C39A6}"
+	ProjectSection(SolutionItems) = preProject
+		MAME-plugin\init.lua = MAME-plugin\init.lua
+		MAME-plugin\plugin.json = MAME-plugin\plugin.json
+		MAME-plugin\Version.txt = MAME-plugin\Version.txt
+	EndProjectSection
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU