mirror of
https://github.com/notwa/mm
synced 2024-05-05 08:33:23 -07:00
Connor Olding
1acbaba58c
theres still a lot of work to do\nsince most scripts just set globals explicitly\nthis is still better than implied globals though
61 lines
1.6 KiB
Lua
61 lines
1.6 KiB
Lua
require "lib.setup"
|
|
require "boilerplate"
|
|
require "addrs"
|
|
require "classes"
|
|
|
|
local blocknames = {
|
|
'R ', 'RS', 'RO', 'RP',
|
|
'RQ', 'RM', 'RY', 'RD',
|
|
'RU', 'RI', 'RZ', 'RC',
|
|
'RN', 'RK', 'RX', 'Rc',
|
|
'Rs', 'Ri', 'RW', 'RA',
|
|
'RV', 'RH', 'RG', 'Rm',
|
|
'Rn', 'RB', 'Rd', 'Rk',
|
|
'Rb',
|
|
}
|
|
|
|
local function distribute_index(ih)
|
|
local block = math.floor(ih/16/6)
|
|
local ir = ih - block*16*6
|
|
local page = math.floor(ir/16)
|
|
local row = ir - page*16
|
|
return block, page, row
|
|
end
|
|
|
|
local ShortMonitor = Class(Monitor)
|
|
|
|
function ShortMonitor:mark(i, x, x1)
|
|
local ih = math.floor(i/2)
|
|
if not self.modified[ih] then
|
|
self.modified[ih] = true
|
|
self.dirty = true
|
|
local block, page, row = distribute_index(ih)
|
|
printf('%2s Page %1i Row %3i', blocknames[block+1], page+1, row+1)
|
|
end
|
|
end
|
|
|
|
function ShortMonitor:dump()
|
|
local buff = ''
|
|
for i=0, self.len/2 - 1 do
|
|
local ih = i
|
|
local block, page, row = distribute_index(ih)
|
|
local mod = self.modified[ih]
|
|
local value = R2(self.begin + ih*2)
|
|
local vs = mod and 'n/a' or ('%04X'):format(value)
|
|
local name = ('%s%02i'):format(blocknames[block+1], page*16 + row)
|
|
local s = ('%s\t%i\t%i\t%s\n'):format(name, page+1, row+1, vs)
|
|
buff = buff..s
|
|
end
|
|
print(buff)
|
|
end
|
|
|
|
-- 2 bytes each, 16 values per page, 6 pages per block, 29 blocks
|
|
-- = 5568 bytes (0x15C0)
|
|
local me = ShortMonitor('me', A(0x210A24, 0x15C0))
|
|
me:load('data/_ootmemod.lua')
|
|
while version == "O EUDB MQ" do
|
|
me:diff()
|
|
me:save()
|
|
emu.frameadvance()
|
|
end
|