Add initial content

1 files changed, 83 insertions, 0 deletions

diff --git a/loader.lua b/loader.lua
new file mode 100644
index 0000000..0622dc9
--- /dev/null
+++ b/loader.lua
@@ -0,0 +1,83 @@
+--RVController Loader
+--A product of Advanced Mesecons Devices, a Cheapie Systems company
+--This is free and unencumbered software released into the public domain.
+--See http://unlicense.org/ for more information
+
+local function formspec_escape(text)
+	local ret = ""
+	local badchars = {
+		["\\"] = true,
+		["["] = true,
+		["]"] = true,
+		[";"] = true,
+		[","] = true
+	}
+	for i=1,string.len(text),1 do
+		local char = string.sub(text,i,i)
+		if badchars[char] then ret = ret.."\\" end
+		ret = ret..char
+	end
+	return ret
+end
+
+local function sendfs()
+	digiline_send("touchscreen","formspec_version[10]size[15,15]textarea[0,0;15,14;program;;"..formspec_escape(mem.data).."]button_exit[6.5,14;2,1;go;Load]checkbox[0.5,14.5;autorun;Run after load;"..tostring(mem.autorun).."]")
+end
+
+if event.type == "program" then
+	mem.autorun = true
+	mem.data = "(paste Intel HEX data here)"
+	sendfs()
+elseif event.channel == "touchscreen" and event.msg.autorun then
+	mem.autorun = event.msg.autorun == "true"
+	mem.data = event.msg.program
+	sendfs()
+elseif event.channel == "touchscreen" and event.msg.go then
+	mem.data = event.msg.program
+	mem.addresshigh = 0
+	mem.addressmid = 0
+	digiline_send("reset","")
+	interrupt(1,"tick")
+elseif event.iid == "tick" then
+	local nlpos = string.find(mem.data,"\n",1,true)
+	local thisline
+	if nlpos then
+		thisline = string.sub(mem.data,1,nlpos-1)
+		mem.data = string.sub(mem.data,nlpos+1,-1)
+	else
+		thisline = mem.data
+		mem.data = ""
+	end
+	local startpos = string.find(thisline,":",1,true)
+	local eof = false
+	if startpos then
+		thisline = string.sub(thisline,startpos+1,-1)
+		local rectype = string.sub(thisline,7,8)
+		if rectype == "00" then
+			--data
+			local bytecount = tonumber(string.sub(thisline,1,2),16)
+			local addresslow = tonumber(string.sub(thisline,3,6),16)
+			local linedata = string.sub(thisline,9,-3)
+			local address = (mem.addresshigh*2^16)+(mem.addressmid*2^4)+addresslow
+			digiline_send("load",{address=address,data=linedata,size=bytecount})
+		elseif rectype == "01" then
+			--end of file
+			eof = true
+			digiline_send("load",{done=true,autorun=mem.autorun})
+		elseif rectype == "02" then
+			--extended segment address
+			mem.addressmid = tonumber(string.sub(thisline,9,12),16)
+		elseif rectype == "04" then
+			--extended linear address
+			mem.addresshigh = tonumber(string.sub(thisline,9,12),16)
+		end
+	end
+	if string.len(mem.data) > 0 and not eof then
+		interrupt(0.05,"tick")
+	else
+		mem.data = "(paste Intel HEX data here)"
+		sendfs()
+	end
+elseif event.iid == "run" then
+	digiline_send("monitorkb","run")
+end