MegaProcessor

--
-- Usage: require('thisfile');
--

local ihex_address = 0x0000;

function ihex_reset()
	ihex_address = 0x0000;
end

function ihex_set( value )
    ihex_address = value;
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 table.byte(t,i)
    return( t[i] );
end

function table.len(t)
    return( #t );
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
        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

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

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

-- EOF --

#!/usr/bin/env lua

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


-- [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 to_byte = function (x) return string.char( bit32.band(x,0xff) ); end  --returns a 1-byte string

local as_byte = string.byte;









--
-- Convert an array of byte-values into a string of corresponding bytes.


--





















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

-- Main line:

Prg = { 0x20,               -- CLR R0
        0xd2, 0x00, 0xf0,   -- LD.W R2, #0xF000
        0xd1, 0x00, 0x01,   -- LD.W R1, #0x0100
        0x98,               -- ST.W (R2++), R0
        0x59,               -- ADDQ R1, #-2
        0xe6, 0xfc,         -- BNE *-4
        0xf3, 0x0b, 0x00    -- JMP 0x000b
    };

ihex_reset();

-- Prg = ByteBuf(Prg);
ihex_datarecord(Prg);
ihex_endrecord();