empathicqubit/mesen-binary-monitor
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add dump and undump commands (Not working yet)

Browse source
This commit is contained in:
Empathic Qubit 2021-11-03 19:26:36 +01:00
parent 9fa1ae6599
commit 5ec5bd893a
1 changed files with 73 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

73
commands.lua
View file

@ -85,6 +85,72 @@ return function(server)
responseResumed(server.EVENT_ID)
end
local dumps = {}
local function processDump(command)
if command.length < 3 then
server.errorResponse(server.errorType.CMD_INVALID_LENGTH, command.requestId)
return
end
local saveRoms = server.readBool(command.body, 1)
local saveDisks = server.readBool(command.body, 2)
local filenameLength = server.readUint8(command.body, 3)
if command.length < 3 + filenameLength then
server.errorResponse(server.errorType.CMD_INVALID_LENGTH, command.requestId)
return
end
local filename = command.body:sub(4, 4 + filenameLength - 1)
print("Dumping "..filename)
local dereg
local callback = function()
dumps[filename] = emu.saveSavestate()
server.response(server.responseType.DUMP, server.errorType.OK, command.requestId, nil)
print("Dumped "..filename)
emu.removeEventCallback(dereg, emu.eventType.startFrame)
end
dereg = emu.addEventCallback(callback, emu.eventType.startFrame)
end
local function processUndump(command)
if command.length < 1 then
server.errorResponse(server.errorType.CMD_INVALID_LENGTH, command.requestId)
return
end
local filenameLength = server.readUint8(command.body, 1)
if command.length < 1 + filenameLength then
server.errorResponse(server.errorType.CMD_INVALID_LENGTH, command.requestId)
return
end
local filename = command.body:sub(2, 2 + filenameLength - 1)
local dump = dumps[filename]
if dump == nil then
server.errorResponse(server.errorType.CMD_FAILURE, command.requestId)
return
end
local dereg
local callback = function()
emu.loadSavestate(dump)
local pc = emu.getState().cpu.pc
server.response(server.responseType.UNDUMP, server.errorType.OK, command.requestId, server.uint16ToLittleEndian(pc))
emu.removeEventCallback(dereg, emu.eventType.startFrame)
end
dereg = emu.addEventCallback(callback, emu.eventType.startFrame)
end
local function processAdvanceInstructions(command)
if command.length < 3 then
server.errorResponse(server.errorType.CMD_INVALID_LENGTH, command.requestId)
@ -564,6 +630,13 @@ return function(server)
elseif ct == server.commandType.REGISTERS_SET then
processRegistersSet(command)
--[[
elseif ct == server.commandType.DUMP then
processDump(command)
elseif ct == server.commandType.UNDUMP then
processUndump(command)
]]
elseif ct == server.commandType.ADVANCE_INSTRUCTIONS then
processAdvanceInstructions(command)