local TriggerMapLegend = {
  [0] = " ",  -- nothing
  [1] = "X",  -- exit
  [2] = "L",  -- blocker left
  [3] = "R",  -- blocker right
  [4] = "^",  -- water
  [5] = "#",  -- constant trap
  [6] = "<",  -- one-way wall left
  [7] = ">",  -- one-way wall right
  [8] = "S",  -- steel
  [9] = "B",  -- blocker middle
  [10] = "!", -- triggered traps
  [11] = "!",
  [12] = "!",
  [13] = "!",
  [14] = "!",
  [15] = "!",
}  

local x = 0
local line = ""
for addr = 0x7800 - (512 / 4 / 2), 0x8200 + (512 / 4 / 2) - 1, 1 do
  local byte = memory.readbyte(addr)
  line = line .. TriggerMapLegend[bit.rshift(byte, 4)] .. TriggerMapLegend[bit.band(byte, 0x0F)]

  x = x + 8
  if (x >= 512) then
    console.writeline(line)
    x = 0
    line = ""
  end
end