Module:MemoryAddress/PCToSnes/LoROM - Revision history

Matrethewey!9776 at 22:56, 27 March 2020

2020-03-27T22:56:27Z

← Older revision		Revision as of 18:56, 27 March 2020
Line 2:		Line 2:

	local OR, AND, LSHIFT, RSHIFT = 1, 4, 5, 6		local OR, AND, LSHIFT, RSHIFT = 1, 4, 5, 6

			local function isnum(n)
			return type(n) == "number"
			end

	local function blshift(x, bits)		local function blshift(x, bits)
Line 49:		Line 53:
	-- SNES to PC		-- SNES to PC
	function p._convert(n)		function p._convert(n)
			if not isnum(n) then
			if string.find(string.upper(n),"0X") then
			n = string.upper(n):gsub("0X", "")
			end
			end
			n = tonumber(n,16)

	-- ((n << 1) & 0x7F0000) \| (n & 0x7FFF) \| 0x8000;		-- ((n << 1) & 0x7F0000) \| (n & 0x7FFF) \| 0x8000;
	return bitoper(		return bitoper(
Line 81:		Line 92:
	args = frame		args = frame
	end		end
	local n = ~~tonumber(~~args[1]~~,10)~~		local n = args[1]
	return p._convert(n)		return p._convert(n)
	end		end

	return p		return p

Matrethewey!9776 at 22:36, 27 March 2020

2020-03-27T22:36:08Z

← Older revision		Revision as of 18:36, 27 March 2020
Line 81:		Line 81:
	args = frame		args = frame
	end		end
	local n = tonumber(args[1])		local n = tonumber(args[1],10)
	return p._convert(n)		return p._convert(n)
	end		end

	return p		return p

Matrethewey!9776 at 22:04, 27 March 2020

2020-03-27T22:04:25Z

← Older revision		Revision as of 18:04, 27 March 2020
Line 81:		Line 81:
	args = frame		args = frame
	end		end
	local n = args[1]		local n = tonumber(args[1])
	return p._convert(n)		return p._convert(n)
	end		end

	return p		return p

Matrethewey!9776: Created page with "local floor = math.floor local OR, AND, LSHIFT, RSHIFT = 1, 4, 5, 6 local function blshift(x, bits) return floor(x) * (2^bits) end local function brshift(x, bits) retur..."

2020-03-27T21:50:51Z

Created page with "local floor = math.floor local OR, AND, LSHIFT, RSHIFT = 1, 4, 5, 6 local function blshift(x, bits) return floor(x) * (2^bits) end local function brshift(x, bits) retur..."

New page

local floor = math.floor

local OR, AND, LSHIFT, RSHIFT = 1, 4, 5, 6

local function blshift(x, bits)
return floor(x) * (2^bits)
end

local function brshift(x, bits)
return floor(floor(x) / (2^bits))
end

local function BitAND(a,b)--Bitwise and
local p,c=1,0
while a>0 and b>0 do
local ra,rb=a%2,b%2
if ra+rb>1 then c=c+p end
a,b,p=(a-ra)/2,(b-rb)/2,p*2
end
return c
end

local function BitOR(a,b)--Bitwise or
local p,c=1,0
while a+b>0 do
local ra,rb=a%2,b%2
if ra+rb>0 then c=c+p end
a,b,p=(a-ra)/2,(b-rb)/2,p*2
end
return c
end

local function bitoper(a, b, oper)
local r = 0
if oper == 1 then -- OR
r = BitOR(a, b)
elseif oper == 4 then -- AND
r = BitAND(a, b)
elseif oper == 5 then -- LSHIFT
r = blshift(a, b)
elseif oper == 6 then -- RSHIFT
r = brshift(a, b)
end
return r
end

local p = {}

-- SNES to PC
function p._convert(n)
-- ((n << 1) & 0x7F0000) | (n & 0x7FFF) | 0x8000;
return bitoper(
bitoper(
bitoper(
bitoper(
n,
1,
LSHIFT
),
0x7F0000,
AND
),
bitoper(
n,
0x7FFF,
AND
),
OR
),
0x8000,
OR
)
end

function p.convert(frame)
-- Allow for invocation via #invoke or directly from another module
local args
if frame == mw.getCurrentFrame() then
args = frame.args
else
args = frame
end
local n = args[1]
return p._convert(n)
end

return p