1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
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
|
