require "boilerplate" require "addrs.init" require "classes" require "messages" local ignore = { -- every time a scene (un)loads ['92,7=0 (weg)'] = true, ['92,7=1 (weg)'] = true, -- night transition available ['05,2=0 (inf)'] = true, ['05,2=1 (inf)'] = true, -- daily postman crap ['27,6=0 (weg)'] = true, ['27,7=0 (weg)'] = true, ['28,0=0 (weg)'] = true, ['28,1=0 (weg)'] = true, ['28,2=0 (weg)'] = true, ['27,6=1 (weg)'] = true, ['27,7=1 (weg)'] = true, ['28,0=1 (weg)'] = true, ['28,1=1 (weg)'] = true, ['28,2=1 (weg)'] = true, } FlagMonitor = Class(Monitor) function FlagMonitor:mark(i, x, x1) local now = emu.framecount() local diff = bit.bxor(x, x1) for which = 0, 7 do if bit.band(diff, 2^which) ~= 0 then local state = bit.band(x, 2^which) ~= 0 and 1 or 0 local str if oot then local row = math.floor(i/2) local col = which + (1 - (i % 2))*8 str = ('%02i,%X=%i (%s)'):format(row, col, state, self.name) else str = ('%02i,%i=%i (%s)'):format(i, which, state, self.name) end local ib = i*8 + which if not self.modified[ib] then self.modified[ib] = true self.dirty = true str = str..' (NEW!)' end if not ignore[str] then dprintf('%s @%i', str, now) message(str, 180) end end end end function FlagMonitor:dump(current) local t = current and self:read() or self.modified local size = mm and 8 or 16 local rows = math.floor(self.len/size*8) local buff = self.name..'\n' buff = buff..' \t' for col = size-1, 0, -1 do buff = buff..('%X'):format(col) if col % 4 == 0 then buff = buff..' ' end end for row = 0, rows-1 do s = ('%02i\t'):format(row) for col = size-1, 0, -1 do local B, b = row, col if size == 16 then B = row*2 + (col < 8 and 1 or 0) b = col % 8 end local ib = B*8 + b local v if current then v = bit.band(t[B], 2^b) > 0 else v = t[ib] end s = s..(v and '1' or '0') if col % 4 == 0 then s = s..' ' end end buff = buff..'\n'..s end return buff end if mm then weg = FlagMonitor('weg', addrs.week_event_reg) inf = FlagMonitor('inf', addrs.event_inf) mmb = FlagMonitor('mmb', addrs.mask_mask_bit) weg:load('data/_weg.lua') inf:load('data/_inf.lua') while mm do weg:diff() inf:diff() mmb:diff() weg:save() inf:save() draw_messages() emu.frameadvance() end elseif oot then eci = FlagMonitor('eci', AL(0xED4, 0x1C)) igi = FlagMonitor('igi', AL(0xEF0, 0x8)) it_ = FlagMonitor('it ', AL(0xEF8, 0x3C)) ei_ = FlagMonitor('ei ', AL(0x13FA, 0x8)) eci:load('data/_eci.lua') igi:load('data/_igi.lua') it_:load('data/_it.lua') ei_:load('data/_ei.lua') eci.oot = true igi.oot = true it_.oot = true ei_.oot = true while oot do eci:diff() igi:diff() it_:diff() ei_:diff() eci:save() igi:save() it_:save() ei_:save() print_deferred() draw_messages() emu.frameadvance() end end