55 lines
1.3 KiB
Lua
55 lines
1.3 KiB
Lua
|
-- v0.01a (not yet done!)
|
||
|
|
-- include some iup stuff and take care of cleanup
|
||
|
|
require 'auxlib';
|
||
|
|
|
||
|
|
local function toHexStr(n)
|
||
|
|
return string.format("%X",n);
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
local mat = iup.matrix {numcol=4, numlin=10,numcol_visible=4, numlin_visible=10, width1="40", width2="80", width3="30", width4="30", ALIGNMENT1="ARIGHT", ALIGNMENT2="ALEFT"};
|
||
|
|
mat.resizematrix = "YES";
|
||
|
|
mat:setcell(0,1,"Address"); -- index 0 (i or j) will set title
|
||
|
|
mat:setcell(0,2,"Title");
|
||
|
|
mat:setcell(0,3,"Dec");
|
||
|
|
mat:setcell(0,4,"Hex");
|
||
|
|
|
||
|
|
dialogs = dialogs + 1;
|
||
|
|
handles[dialogs] =
|
||
|
|
iup.dialog{
|
||
|
|
iup.vbox{
|
||
|
|
iup.label{
|
||
|
|
title="Enter a number in the first column (can be hex)."
|
||
|
|
},
|
||
|
|
iup.label{
|
||
|
|
title="Third and fourth are values of that address."
|
||
|
|
},
|
||
|
|
iup.fill{size="5"},
|
||
|
|
mat,
|
||
|
|
iup.fill{},
|
||
|
|
},
|
||
|
|
title="St00pid memory watch",
|
||
|
|
size="215x160",
|
||
|
|
margin="10x10"
|
||
|
|
};
|
||
|
|
|
||
|
|
handles[dialogs]:showxy(iup.CENTER, iup.CENTER);
|
||
|
|
|
||
|
|
while (true) do
|
||
|
|
local cols = tonumber(mat.numcol);
|
||
|
|
for i=1,cols do
|
||
|
|
local val = tonumber(mat:getcell(i,1));
|
||
|
|
if (
|
||
|
|
--mat["edit_mode1x"..i] ~= "YES" and -- who knows what you're editing in there
|
||
|
|
val and val >= 0 and val <= 0xFFFF -- check bounds
|
||
|
|
) then
|
||
|
|
local mem = memory.readbyte(val);
|
||
|
|
mat:setcell(i,3,mem.."");
|
||
|
|
mat:setcell(i,4,toHexStr(mem));
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
mat.redraw = "C3:4";
|
||
|
|
|
||
|
|
FCEU.frameadvance();
|
||
|
|
end;
|