MegaProcessor

-- Input : string or an array of byte-values and an optional length
-- If the first parameter is a table, then it gets 2 additional method-fields
-- that type 'string' already has by itself.
--
-- Outputs a ihex-format record and updates global ihex_address
--
function ihex_datarecord(buf,len)
    if( type(buf) == 'table' ) then
        buf.byte = table.byte; buf.len = table.len;
    end

	local ourLen = len or buf:len();
	local ourSum = ihex_chksum(buf,ourLen);
	io.write( string.format(':%02X%04X00',ourLen,ihex_address) );
	for i=1,ourLen do io.write( string.format('%02X',buf:byte(i)) ); end

-- Input : string or an array of byte-values and an optional length
-- If the first parameter is a table, then it gets 2 additional method-fields
-- that type 'string' already has by itself.
--
-- Outputs a ihex-format record and updates global ihex_address
--
function ihex_datarecord(buf,len)
    if( type(buf) == 'table' ) then -- Add 'string' methods that 'table' misses.
        buf.byte = table.byte; buf.len = table.len;
    end

	local ourLen = len or buf:len();
	local ourSum = ihex_chksum(buf,ourLen);
	io.write( string.format(':%02X%04X00',ourLen,ihex_address) );
	for i=1,ourLen do io.write( string.format('%02X',buf:byte(i)) ); end

#!/usr/bin/env lua

local to_byte = function (x) return string.char( bit32.band(x,0xff) ); end  --returns a 1-byte string
local as_byte = string.byte;

-- [first] begin dump at 16 byte-aligned offset containing 'first' byte
-- [last] end dump at 16 byte-aligned offset containing 'last' byte
function hex_dump(buf,first,last)
	local function align(n) return math.ceil(n/16) * 16 end
	for i=(align((first or 1)-16)+1),align(math.min(last or #buf,#buf)) do
		if (i-1) % 16 == 0 then io.write(string.format('%08X  ', i-1)) end
		io.write( i > #buf and '   ' or string.format('%02X ', buf:byte(i)) )
		if i %  8 == 0 then io.write(' ') end
		if i % 16 == 0 then io.write( buf:sub(i-16+1, i):gsub('%c','.'), '\n' ) end
	end
end


local ihex_address = 0x0000;

function ihex_reset()
	ihex_address = 0x0000;
end

function ihex_chksum( buf,startVal )
	local ourSum = startVal or 0;

	for i=1,#buf,1 do
		ourSum = ourSum + buf:byte(i);
	end--for

	ourSum = ourSum + bit32.band(ihex_address,0xff);
	ourSum = ourSum + bit32.band( bit32.rshift(ihex_address,8),0xff);

	ourSum = bit32.bnot(ourSum) + 1;
	ourSum = bit32.band(ourSum,0xff);

	return( ourSum );
end

function ihex_datarecord(buf,len)
	local ourLen = len or 16;
	local ourSum = ihex_chksum(buf,ourLen);
	io.write( string.format(':%02X%04X00',ourLen,ihex_address) );
	for i=1,ourLen do io.write( string.format('%02X',buf:byte(i)) ); end

	ihex_address = ihex_address + ourLen;
	io.write( string.format('%02X', ourSum ) );
	io.write( '\n' );
end

function ihex_endrecord()
	io.write(':00000001FF\n');
end

function ByteBuf( array )
	local ourBuf = {};
	for i,v in ipairs(array) do ourBuf[i] = to_byte(v); end
	return( table.concat(ourBuf) );
end

--[[ disassembly Test 1
-- Spew out a series of Intel Hex records where every value from 0x00 to 0xff
-- occurs 6 times in (sub)sequence.
-- This way, each byte-value can be covered by the dissassembler of the
-- MegaProcessor simulator.
-- Instructions of lenght 1 will be disassembled 6 times, length 2 shows up 3 times, and
-- length 3 shows up 2 times.
--
--]]

--[[ -- insert a space between the - and the [ to activate the enclosed section
ihex_reset();

for i=0,255,1 do
	local data = {};
	for j=1,6,1 do data[j] = i end
	local buf = ByteBuf(data);
	ihex_datarecord( buf,#buf );
end
ihex_endrecord();
--]]


--[[ disassembly Test 2: 
--  Spew out a series of IntelHex records for each of the instructions 0xd8..0xdf
--  and every possible value of their postbytes.
--
--]]

-- [[ -- insert a space between the - and the [ to activate the enclosed section
ihex_reset();
for i=0xd8,0xdf,1 do
	for j=0,15,1 do
		local data = {};
		for k=0,15,1 do table.insert(data,i); table.insert(data,j*16+k) end
		local buf = ByteBuf(data);
		ihex_datarecord(buf,#buf);
	end
end--for
ihex_endrecord();

--]]

#!/usr/bin/env lua

package.path = '../?.lua;'..package.path;
require('ihex');

--[[ disassembly Test 1
-- Spew out a series of Intel Hex records where every value from 0x00 to 0xff
-- occurs 6 times in (sub)sequence.
-- This way, each byte-value can be covered by the dissassembler of the
-- MegaProcessor simulator.
-- Instructions of lenght 1 will be disassembled 6 times, length 2 shows up 3 times, and
-- length 3 shows up 2 times.
--
--]]


ihex_reset();
for i=0,255,1 do
	local data = {};
	for j=1,6,1 do data[j] = i end
	ihex_datarecord( data,#data);
end
ihex_endrecord();

#!/usr/bin/env lua

package.path = '../?.lua;'..package.path;
require('ihex');


--[[ disassembly Test 2: 
--  Spew out a series of IntelHex records for each of the instructions 0xd8..0xdf
--  and every possible value (0x00..0xff) of their postbytes.
--
--]]

ihex_reset();

for i=0xd8,0xdf,1 do
	for j=0,15,1 do
		local data = {};
		for k=0,15,1 do table.insert(data,i); table.insert(data,j*16+k) end
		ihex_datarecord(data,#data);
	end
end--for
ihex_endrecord();