Rewritten asma
This commit is contained in:
Andrew Alderwick
parent
ce00dc2189
commit
16f51cb876
|
|
@ -0,0 +1,235 @@
|
||||||
|
local band, bor, lshift, rshift
|
||||||
|
do
|
||||||
|
local _obj_0 = require('bit')
|
||||||
|
band, bor, lshift, rshift = _obj_0.band, _obj_0.bor, _obj_0.lshift, _obj_0.rshift
|
||||||
|
end
|
||||||
|
local spairs
|
||||||
|
spairs = function(t)
|
||||||
|
local keys
|
||||||
|
do
|
||||||
|
local _accum_0 = { }
|
||||||
|
local _len_0 = 1
|
||||||
|
for k in pairs(t) do
|
||||||
|
_accum_0[_len_0] = k
|
||||||
|
_len_0 = _len_0 + 1
|
||||||
|
end
|
||||||
|
keys = _accum_0
|
||||||
|
end
|
||||||
|
table.sort(keys)
|
||||||
|
local i = 0
|
||||||
|
return function()
|
||||||
|
i = i + 1
|
||||||
|
return keys[i], t[keys[i]]
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local trees = {
|
||||||
|
['asma-labels'] = { },
|
||||||
|
['asma-opcodes'] = { }
|
||||||
|
}
|
||||||
|
local opcodes_in_order = { }
|
||||||
|
do
|
||||||
|
local wanted = false
|
||||||
|
for l in assert(io.lines('src/assembler.c')) do
|
||||||
|
if l == 'char ops[][4] = {' then
|
||||||
|
wanted = true
|
||||||
|
elseif wanted then
|
||||||
|
if l == '};' then
|
||||||
|
break
|
||||||
|
end
|
||||||
|
for w in l:gmatch('[^%s",][^%s",][^%s",]') do
|
||||||
|
if w ~= '---' then
|
||||||
|
trees['asma-opcodes'][w] = {
|
||||||
|
('"%s 00'):format(w),
|
||||||
|
''
|
||||||
|
}
|
||||||
|
end
|
||||||
|
table.insert(opcodes_in_order, w)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
assert(#opcodes_in_order == 32, 'didn\'t find 32 opcodes in assembler code!')
|
||||||
|
end
|
||||||
|
do
|
||||||
|
local add_device
|
||||||
|
add_device = function(addr, name, fields)
|
||||||
|
addr = tonumber(addr, 16)
|
||||||
|
local k
|
||||||
|
if name:match('^Audio%x+$') then
|
||||||
|
k = 'asma-ldev-Audio'
|
||||||
|
else
|
||||||
|
k = ('asma-ldev-%s'):format(name)
|
||||||
|
end
|
||||||
|
trees['asma-labels'][name] = {
|
||||||
|
('"%s 00'):format(name),
|
||||||
|
('00%02x :%s/_entry'):format(addr, k)
|
||||||
|
}
|
||||||
|
trees[k] = { }
|
||||||
|
addr = 0
|
||||||
|
for fname, flen in fields:gmatch('%&(%S+) +%$(%x+)') do
|
||||||
|
if fname ~= 'pad' then
|
||||||
|
trees[k][fname] = {
|
||||||
|
('"%s 00'):format(fname),
|
||||||
|
('00%02x'):format(addr)
|
||||||
|
}
|
||||||
|
end
|
||||||
|
addr = addr + tonumber(flen, 16)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
for l in assert(io.lines('projects/examples/blank.usm')) do
|
||||||
|
local f = {
|
||||||
|
l:match('^%|(%x%x) +%@(%S+) +%[ (.*) %]')
|
||||||
|
}
|
||||||
|
if f[1] then
|
||||||
|
add_device(unpack(f))
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
do
|
||||||
|
local representation = setmetatable({
|
||||||
|
['&'] = '26 00 ( & )'
|
||||||
|
}, {
|
||||||
|
__index = function(self, c)
|
||||||
|
return ("'%s 00"):format(c)
|
||||||
|
end
|
||||||
|
})
|
||||||
|
local process
|
||||||
|
process = function(label, t)
|
||||||
|
trees[label] = { }
|
||||||
|
for k, v in pairs(t) do
|
||||||
|
trees[label][('%02x'):format(k:byte())] = {
|
||||||
|
representation[k],
|
||||||
|
(':%s'):format(v)
|
||||||
|
}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
process('asma-first-char-normal', {
|
||||||
|
['%'] = 'asma-macro-define',
|
||||||
|
['|'] = 'asma-pad-absolute',
|
||||||
|
['$'] = 'asma-pad-relative',
|
||||||
|
['@'] = 'asma-label-define',
|
||||||
|
['&'] = 'asma-sublabel-define',
|
||||||
|
['#'] = 'asma-literal-hex',
|
||||||
|
['.'] = 'asma-literal-zero-addr',
|
||||||
|
[','] = 'asma-literal-rel-addr',
|
||||||
|
[';'] = 'asma-literal-abs-addr',
|
||||||
|
[':'] = 'asma-abs-addr',
|
||||||
|
["'"] = 'asma-raw-char',
|
||||||
|
['"'] = 'asma-raw-word',
|
||||||
|
['{'] = 'asma-ignore',
|
||||||
|
['}'] = 'asma-ignore',
|
||||||
|
['['] = 'asma-ignore',
|
||||||
|
[']'] = 'asma-ignore',
|
||||||
|
['('] = 'asma-comment-start',
|
||||||
|
[')'] = 'asma-comment-end'
|
||||||
|
})
|
||||||
|
process('asma-first-char-macro', {
|
||||||
|
['('] = 'asma-comment-start',
|
||||||
|
[')'] = 'asma-comment-end',
|
||||||
|
['{'] = 'asma-ignore',
|
||||||
|
['}'] = 'asma-macro-end'
|
||||||
|
})
|
||||||
|
process('asma-first-char-comment', {
|
||||||
|
[')'] = 'asma-comment-end'
|
||||||
|
})
|
||||||
|
end
|
||||||
|
local traverse_node
|
||||||
|
traverse_node = function(t, min, max, lefts, rights)
|
||||||
|
local i = math.ceil((min + max) / 2)
|
||||||
|
if min < i then
|
||||||
|
lefts[t[i]] = (':&%s'):format(traverse_node(t, min, i - 1, lefts, rights))
|
||||||
|
end
|
||||||
|
if i < max then
|
||||||
|
rights[t[i]] = (':&%s'):format(traverse_node(t, i + 1, max, lefts, rights))
|
||||||
|
end
|
||||||
|
return t[i]
|
||||||
|
end
|
||||||
|
local traverse_tree
|
||||||
|
traverse_tree = function(t)
|
||||||
|
local lefts, rights = { }, { }
|
||||||
|
local keys
|
||||||
|
do
|
||||||
|
local _accum_0 = { }
|
||||||
|
local _len_0 = 1
|
||||||
|
for k in pairs(t) do
|
||||||
|
_accum_0[_len_0] = k
|
||||||
|
_len_0 = _len_0 + 1
|
||||||
|
end
|
||||||
|
keys = _accum_0
|
||||||
|
end
|
||||||
|
table.sort(keys)
|
||||||
|
return lefts, rights, traverse_node(keys, 1, #keys, lefts, rights)
|
||||||
|
end
|
||||||
|
local ptr
|
||||||
|
ptr = function(s)
|
||||||
|
if s then
|
||||||
|
return (':&%s'):format(s)
|
||||||
|
end
|
||||||
|
return ' $2'
|
||||||
|
end
|
||||||
|
local ordered_opcodes
|
||||||
|
ordered_opcodes = function(t)
|
||||||
|
local i = 0
|
||||||
|
return function()
|
||||||
|
i = i + 1
|
||||||
|
local v = opcodes_in_order[i]
|
||||||
|
if t[v] then
|
||||||
|
return v, t[v]
|
||||||
|
elseif v then
|
||||||
|
return false, {
|
||||||
|
'"--- 00',
|
||||||
|
''
|
||||||
|
}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local printout = true
|
||||||
|
local fmt
|
||||||
|
fmt = function(...)
|
||||||
|
return (('\t%-11s %-10s %-12s %-14s %s '):format(...):gsub(' +$', '\n'))
|
||||||
|
end
|
||||||
|
do
|
||||||
|
local _with_0 = assert(io.open('projects/software/asma.usm.tmp', 'w'))
|
||||||
|
for l in assert(io.lines('projects/software/asma.usm')) do
|
||||||
|
if l:match('--- cut here ---') then
|
||||||
|
break
|
||||||
|
end
|
||||||
|
_with_0:write(l)
|
||||||
|
_with_0:write('\n')
|
||||||
|
end
|
||||||
|
_with_0:write('( --- 8< ------- 8< --- cut here --- 8< ------- 8< --- )\n')
|
||||||
|
_with_0:write('( automatically generated code below )\n')
|
||||||
|
_with_0:write('( see etc/asma.moon for instructions )\n')
|
||||||
|
_with_0:write('\n(')
|
||||||
|
_with_0:write(fmt('label', 'less than', 'greater than', 'key', 'data )'))
|
||||||
|
_with_0:write('\n')
|
||||||
|
for name, tree in spairs(trees) do
|
||||||
|
_with_0:write(('@%s\n'):format(name))
|
||||||
|
local lefts, rights, entry = traverse_tree(tree)
|
||||||
|
local sort_fn
|
||||||
|
if name == 'asma-opcodes' then
|
||||||
|
if rights[opcodes_in_order[1]] then
|
||||||
|
rights[opcodes_in_order[1]] = rights[opcodes_in_order[1]] .. ' &_disasm'
|
||||||
|
else
|
||||||
|
rights[opcodes_in_order[1]] = ' $2 &_disasm'
|
||||||
|
end
|
||||||
|
sort_fn = ordered_opcodes
|
||||||
|
else
|
||||||
|
sort_fn = spairs
|
||||||
|
end
|
||||||
|
for k, v in sort_fn(tree) do
|
||||||
|
local label
|
||||||
|
if k == entry then
|
||||||
|
label = '&_entry'
|
||||||
|
elseif k then
|
||||||
|
label = ('&%s'):format(k)
|
||||||
|
else
|
||||||
|
label = ''
|
||||||
|
end
|
||||||
|
_with_0:write(fmt(label, lefts[k] or ' $2', rights[k] or ' $2', unpack(v)))
|
||||||
|
end
|
||||||
|
_with_0:write('\n')
|
||||||
|
end
|
||||||
|
_with_0:write('@asma-heap\n\n')
|
||||||
|
_with_0:close()
|
||||||
|
end
|
||||||
|
return os.execute('mv projects/software/asma.usm.tmp projects/software/asma.usm')
|
||||||
|
|
@ -0,0 +1,169 @@
|
||||||
|
import band, bor, lshift, rshift from require 'bit'
|
||||||
|
|
||||||
|
spairs = (t) ->
|
||||||
|
keys = [ k for k in pairs t ]
|
||||||
|
table.sort keys
|
||||||
|
i = 0
|
||||||
|
->
|
||||||
|
i = i + 1
|
||||||
|
keys[i], t[keys[i]]
|
||||||
|
|
||||||
|
trees = {
|
||||||
|
['asma-labels']: {}
|
||||||
|
['asma-opcodes']: {}
|
||||||
|
}
|
||||||
|
|
||||||
|
opcodes_in_order = {}
|
||||||
|
|
||||||
|
do -- opcodes
|
||||||
|
wanted = false
|
||||||
|
for l in assert io.lines 'src/assembler.c'
|
||||||
|
if l == 'char ops[][4] = {'
|
||||||
|
wanted = true
|
||||||
|
elseif wanted
|
||||||
|
if l == '};'
|
||||||
|
break
|
||||||
|
for w in l\gmatch '[^%s",][^%s",][^%s",]'
|
||||||
|
if w != '---'
|
||||||
|
trees['asma-opcodes'][w] = {
|
||||||
|
'"%s 00'\format w
|
||||||
|
''
|
||||||
|
}
|
||||||
|
table.insert opcodes_in_order, w
|
||||||
|
assert #opcodes_in_order == 32, 'didn\'t find 32 opcodes in assembler code!'
|
||||||
|
|
||||||
|
do -- devices -> labels
|
||||||
|
add_device = (addr, name, fields) ->
|
||||||
|
addr = tonumber addr, 16
|
||||||
|
k = if name\match '^Audio%x+$'
|
||||||
|
'asma-ldev-Audio'
|
||||||
|
else
|
||||||
|
'asma-ldev-%s'\format name
|
||||||
|
trees['asma-labels'][name] = {
|
||||||
|
'"%s 00'\format name
|
||||||
|
'00%02x :%s/_entry'\format addr, k
|
||||||
|
}
|
||||||
|
trees[k] = {}
|
||||||
|
addr = 0
|
||||||
|
for fname, flen in fields\gmatch '%&(%S+) +%$(%x+)'
|
||||||
|
if fname != 'pad'
|
||||||
|
trees[k][fname] = {
|
||||||
|
'"%s 00'\format fname,
|
||||||
|
'00%02x'\format addr
|
||||||
|
}
|
||||||
|
addr += tonumber flen, 16
|
||||||
|
for l in assert io.lines 'projects/examples/blank.usm'
|
||||||
|
f = { l\match '^%|(%x%x) +%@(%S+) +%[ (.*) %]' }
|
||||||
|
if f[1]
|
||||||
|
add_device unpack f
|
||||||
|
|
||||||
|
|
||||||
|
do -- first characters
|
||||||
|
representation = setmetatable {
|
||||||
|
'&': '26 00 ( & )'
|
||||||
|
},
|
||||||
|
__index: (c) => "'%s 00"\format c
|
||||||
|
process = (label, t) ->
|
||||||
|
trees[label] = {}
|
||||||
|
for k, v in pairs t
|
||||||
|
trees[label]['%02x'\format k\byte!] = {
|
||||||
|
representation[k]
|
||||||
|
':%s'\format v
|
||||||
|
}
|
||||||
|
process 'asma-first-char-normal',
|
||||||
|
'%': 'asma-macro-define'
|
||||||
|
'|': 'asma-pad-absolute'
|
||||||
|
'$': 'asma-pad-relative'
|
||||||
|
'@': 'asma-label-define'
|
||||||
|
'&': 'asma-sublabel-define'
|
||||||
|
'#': 'asma-literal-hex'
|
||||||
|
'.': 'asma-literal-zero-addr'
|
||||||
|
',': 'asma-literal-rel-addr'
|
||||||
|
';': 'asma-literal-abs-addr'
|
||||||
|
':': 'asma-abs-addr'
|
||||||
|
"'": 'asma-raw-char'
|
||||||
|
'"': 'asma-raw-word'
|
||||||
|
'{': 'asma-ignore'
|
||||||
|
'}': 'asma-ignore'
|
||||||
|
'[': 'asma-ignore'
|
||||||
|
']': 'asma-ignore'
|
||||||
|
'(': 'asma-comment-start'
|
||||||
|
')': 'asma-comment-end'
|
||||||
|
process 'asma-first-char-macro',
|
||||||
|
'(': 'asma-comment-start'
|
||||||
|
')': 'asma-comment-end'
|
||||||
|
'{': 'asma-ignore'
|
||||||
|
'}': 'asma-macro-end'
|
||||||
|
process 'asma-first-char-comment',
|
||||||
|
')': 'asma-comment-end'
|
||||||
|
|
||||||
|
traverse_node = (t, min, max, lefts, rights) ->
|
||||||
|
i = math.ceil (min + max) / 2
|
||||||
|
if min < i
|
||||||
|
lefts[t[i]] = ':&%s'\format traverse_node t, min, i - 1, lefts, rights
|
||||||
|
if i < max
|
||||||
|
rights[t[i]] = ':&%s'\format traverse_node t, i + 1, max, lefts, rights
|
||||||
|
return t[i]
|
||||||
|
|
||||||
|
traverse_tree = (t) ->
|
||||||
|
lefts, rights = {}, {}
|
||||||
|
keys = [ k for k in pairs t ]
|
||||||
|
table.sort keys
|
||||||
|
lefts, rights, traverse_node keys, 1, #keys, lefts, rights
|
||||||
|
|
||||||
|
ptr = (s) ->
|
||||||
|
if s
|
||||||
|
return ':&%s'\format s
|
||||||
|
return ' $2'
|
||||||
|
|
||||||
|
ordered_opcodes = (t) ->
|
||||||
|
i = 0
|
||||||
|
->
|
||||||
|
i = i + 1
|
||||||
|
v = opcodes_in_order[i]
|
||||||
|
if t[v]
|
||||||
|
return v, t[v]
|
||||||
|
elseif v
|
||||||
|
return false, { '"--- 00', '' }
|
||||||
|
|
||||||
|
printout = true
|
||||||
|
|
||||||
|
fmt = (...) ->
|
||||||
|
('\t%-11s %-10s %-12s %-14s %s '\format(...)\gsub ' +$', '\n')
|
||||||
|
|
||||||
|
with assert io.open 'projects/software/asma.usm.tmp', 'w'
|
||||||
|
for l in assert io.lines 'projects/software/asma.usm'
|
||||||
|
if l\match '--- cut here ---'
|
||||||
|
break
|
||||||
|
\write l
|
||||||
|
\write '\n'
|
||||||
|
\write '( --- 8< ------- 8< --- cut here --- 8< ------- 8< --- )\n'
|
||||||
|
\write '( automatically generated code below )\n'
|
||||||
|
\write '( see etc/asma.moon for instructions )\n'
|
||||||
|
\write '\n('
|
||||||
|
\write fmt 'label', 'less than', 'greater than', 'key', 'data )'
|
||||||
|
\write '\n'
|
||||||
|
for name, tree in spairs trees
|
||||||
|
\write '@%s\n'\format name
|
||||||
|
lefts, rights, entry = traverse_tree tree
|
||||||
|
sort_fn = if name == 'asma-opcodes'
|
||||||
|
if rights[opcodes_in_order[1]]
|
||||||
|
rights[opcodes_in_order[1]] ..= ' &_disasm'
|
||||||
|
else
|
||||||
|
rights[opcodes_in_order[1]] = ' $2 &_disasm'
|
||||||
|
ordered_opcodes
|
||||||
|
else
|
||||||
|
spairs
|
||||||
|
for k, v in sort_fn tree
|
||||||
|
label = if k == entry
|
||||||
|
'&_entry'
|
||||||
|
elseif k
|
||||||
|
'&%s'\format k
|
||||||
|
else
|
||||||
|
''
|
||||||
|
\write fmt label, lefts[k] or ' $2', rights[k] or ' $2', unpack v
|
||||||
|
\write '\n'
|
||||||
|
\write '@asma-heap\n\n'
|
||||||
|
\close!
|
||||||
|
os.execute 'mv projects/software/asma.usm.tmp projects/software/asma.usm'
|
||||||
|
|
||||||
|
|
@ -1,350 +0,0 @@
|
||||||
local build_dag
|
|
||||||
build_dag = function(t, dag, i, j, level)
|
|
||||||
if dag == nil then
|
|
||||||
dag = { }
|
|
||||||
end
|
|
||||||
if i == nil then
|
|
||||||
i = 1
|
|
||||||
end
|
|
||||||
if j == nil then
|
|
||||||
j = #t
|
|
||||||
end
|
|
||||||
if level == nil then
|
|
||||||
level = 0
|
|
||||||
end
|
|
||||||
if i > j then
|
|
||||||
return
|
|
||||||
end
|
|
||||||
local mid = math.floor((i + j) / 2)
|
|
||||||
dag[t[mid]] = {
|
|
||||||
(build_dag(t, dag, i, mid - 1, level + 1)),
|
|
||||||
(build_dag(t, dag, mid + 1, j, level + 1))
|
|
||||||
}
|
|
||||||
return t[mid], dag
|
|
||||||
end
|
|
||||||
local append_dag
|
|
||||||
append_dag = function(node, dag, k)
|
|
||||||
local i = k > node and 2 or 1
|
|
||||||
local next_node = dag[node][i]
|
|
||||||
if next_node then
|
|
||||||
return append_dag(next_node, dag, k)
|
|
||||||
end
|
|
||||||
dag[node][i] = k
|
|
||||||
dag[k] = { }
|
|
||||||
end
|
|
||||||
local build_dag_from_chars
|
|
||||||
build_dag_from_chars = function(s, ...)
|
|
||||||
local t
|
|
||||||
do
|
|
||||||
local _accum_0 = { }
|
|
||||||
local _len_0 = 1
|
|
||||||
for i = 1, #s do
|
|
||||||
_accum_0[_len_0] = s:sub(i, i)
|
|
||||||
_len_0 = _len_0 + 1
|
|
||||||
end
|
|
||||||
t = _accum_0
|
|
||||||
end
|
|
||||||
table.sort(t)
|
|
||||||
local root, dag = build_dag(t)
|
|
||||||
for i = 1, select('#', ...) do
|
|
||||||
append_dag(root, dag, (select(i, ...)))
|
|
||||||
end
|
|
||||||
return root, dag
|
|
||||||
end
|
|
||||||
local check_terminals
|
|
||||||
check_terminals = function(dag, s)
|
|
||||||
for i = 1, #s do
|
|
||||||
local k = s:sub(i, i)
|
|
||||||
assert(not dag[k][1], ('%s has left child node'):format(k))
|
|
||||||
assert(not dag[k][2], ('%s has right child node'):format(k))
|
|
||||||
end
|
|
||||||
end
|
|
||||||
local dump
|
|
||||||
dump = function(f, root, dag, level)
|
|
||||||
if level == nil then
|
|
||||||
level = 0
|
|
||||||
end
|
|
||||||
if dag[root][1] then
|
|
||||||
dump(f, dag[root][1], dag, level + 1)
|
|
||||||
end
|
|
||||||
f:write((' '):rep(level))
|
|
||||||
f:write(root)
|
|
||||||
f:write('\n')
|
|
||||||
if dag[root][2] then
|
|
||||||
return dump(f, dag[root][2], dag, level + 1)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
local convert = setmetatable({
|
|
||||||
['.'] = 'dot',
|
|
||||||
['\0'] = 'nul'
|
|
||||||
}, {
|
|
||||||
__index = function(self, k)
|
|
||||||
return k
|
|
||||||
end
|
|
||||||
})
|
|
||||||
local write_opcode_tree
|
|
||||||
do
|
|
||||||
local byte_to_opcode = { }
|
|
||||||
local byte = false
|
|
||||||
for l in assert(io.lines('src/assembler.c')) do
|
|
||||||
if l:match('^%s*char%s+ops%[%]%[4%]') then
|
|
||||||
byte = 0
|
|
||||||
elseif l:match('%}') then
|
|
||||||
byte = false
|
|
||||||
elseif byte then
|
|
||||||
for opcode in l:gmatch('"([A-Z-][A-Z-][A-Z-])"') do
|
|
||||||
byte_to_opcode[byte] = opcode
|
|
||||||
byte = byte + 1
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
local order_to_opcode
|
|
||||||
do
|
|
||||||
local _accum_0 = { }
|
|
||||||
local _len_0 = 1
|
|
||||||
for i = 0, #byte_to_opcode do
|
|
||||||
if byte_to_opcode[i] ~= '---' then
|
|
||||||
_accum_0[_len_0] = byte_to_opcode[i]
|
|
||||||
_len_0 = _len_0 + 1
|
|
||||||
end
|
|
||||||
end
|
|
||||||
order_to_opcode = _accum_0
|
|
||||||
end
|
|
||||||
table.sort(order_to_opcode)
|
|
||||||
local root, opcode_to_links = build_dag(order_to_opcode)
|
|
||||||
write_opcode_tree = function(f)
|
|
||||||
f:write(('\t$tree .$op-%s ( opcode tree )\n'):format(root:lower()))
|
|
||||||
f:write('\t$start\n')
|
|
||||||
for i = 0, #byte_to_opcode do
|
|
||||||
local opcode = byte_to_opcode[i]
|
|
||||||
f:write('\t')
|
|
||||||
if opcode ~= '---' then
|
|
||||||
f:write(('$op-%s '):format(opcode:lower()))
|
|
||||||
else
|
|
||||||
f:write(' ')
|
|
||||||
end
|
|
||||||
for j = 1, 2 do
|
|
||||||
if opcode ~= '---' and opcode_to_links[opcode][j] then
|
|
||||||
f:write(('.$op-%s '):format(opcode_to_links[opcode][j]:lower()))
|
|
||||||
else
|
|
||||||
f:write('[ 0000 ] ')
|
|
||||||
end
|
|
||||||
end
|
|
||||||
if i == 0 then
|
|
||||||
f:write('$disasm ')
|
|
||||||
else
|
|
||||||
f:write(' ')
|
|
||||||
end
|
|
||||||
if opcode ~= '---' then
|
|
||||||
f:write(('[ %s ]'):format(opcode))
|
|
||||||
else
|
|
||||||
f:write('[ ??? ]')
|
|
||||||
end
|
|
||||||
if i == 0 then
|
|
||||||
f:write(' $asm')
|
|
||||||
end
|
|
||||||
f:write('\n')
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
local type_byte
|
|
||||||
type_byte = function(size, has_subtree)
|
|
||||||
local n1 = has_subtree and '8' or '0'
|
|
||||||
local n2
|
|
||||||
local _exp_0 = size
|
|
||||||
if '1' == _exp_0 then
|
|
||||||
n2 = '1'
|
|
||||||
elseif '2' == _exp_0 then
|
|
||||||
n2 = '2'
|
|
||||||
else
|
|
||||||
n2 = '0'
|
|
||||||
end
|
|
||||||
return n1 .. n2
|
|
||||||
end
|
|
||||||
local globals = { }
|
|
||||||
local add_globals
|
|
||||||
add_globals = function(root, dag, key_to_label, key_to_contents, pad_before, pad_after)
|
|
||||||
if pad_before == nil then
|
|
||||||
pad_before = ''
|
|
||||||
end
|
|
||||||
if pad_after == nil then
|
|
||||||
pad_after = ''
|
|
||||||
end
|
|
||||||
for k in pairs(dag) do
|
|
||||||
local l = ''
|
|
||||||
if k == root then
|
|
||||||
l = l .. ('@%s\n'):format(key_to_label('root'):gsub('%s', ''))
|
|
||||||
end
|
|
||||||
l = l .. ('@%s '):format(key_to_label(k))
|
|
||||||
for j = 1, 2 do
|
|
||||||
if dag[k][j] then
|
|
||||||
l = l .. ('.%s '):format(key_to_label(dag[k][j]))
|
|
||||||
else
|
|
||||||
l = l .. ('%s[ 0000 ]%s '):format(pad_before, pad_after)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
l = l .. key_to_contents(k)
|
|
||||||
l = l .. '\n'
|
|
||||||
globals[key_to_label(k):gsub('%s', '')] = l
|
|
||||||
end
|
|
||||||
globals[key_to_label('root'):gsub('%s', '')] = ''
|
|
||||||
end
|
|
||||||
do
|
|
||||||
local root, dag = build_dag_from_chars('{}[]%@$;|=~,.^#"\0', '(', ')')
|
|
||||||
check_terminals(dag, ')')
|
|
||||||
local label_name
|
|
||||||
label_name = function(s)
|
|
||||||
return ('normal-%-3s'):format(convert[s])
|
|
||||||
end
|
|
||||||
local label_value
|
|
||||||
label_value = function(k)
|
|
||||||
return ('[ %02x ]'):format(k:byte())
|
|
||||||
end
|
|
||||||
add_globals(root, dag, label_name, label_value, '', ' ')
|
|
||||||
end
|
|
||||||
do
|
|
||||||
local root, dag = build_dag_from_chars('{}', '\0', '(')
|
|
||||||
dump(io.stdout, root, dag)
|
|
||||||
local label_name
|
|
||||||
label_name = function(s)
|
|
||||||
if s == '(' then
|
|
||||||
return 'normal-( '
|
|
||||||
end
|
|
||||||
return ('variable-%s'):format(convert[s])
|
|
||||||
end
|
|
||||||
local label_value
|
|
||||||
label_value = function(k)
|
|
||||||
return ('[ %02x ]'):format(k:byte())
|
|
||||||
end
|
|
||||||
dag['('] = nil
|
|
||||||
add_globals(root, dag, label_name, label_value, '', ' ')
|
|
||||||
end
|
|
||||||
do
|
|
||||||
local root, dag = build_dag_from_chars('{}\0', '(')
|
|
||||||
dump(io.stdout, root, dag)
|
|
||||||
local label_name
|
|
||||||
label_name = function(s)
|
|
||||||
if s == '(' then
|
|
||||||
return 'normal-( '
|
|
||||||
end
|
|
||||||
return ('macro-%-3s'):format(convert[s])
|
|
||||||
end
|
|
||||||
local label_value
|
|
||||||
label_value = function(k)
|
|
||||||
return ('[ %02x ]'):format(k:byte())
|
|
||||||
end
|
|
||||||
dag['('] = nil
|
|
||||||
add_globals(root, dag, label_name, label_value, '', ' ')
|
|
||||||
end
|
|
||||||
do
|
|
||||||
local root, dag = build_dag_from_chars(']\0', '(')
|
|
||||||
dump(io.stdout, root, dag)
|
|
||||||
local label_name
|
|
||||||
label_name = function(s)
|
|
||||||
if s == '(' then
|
|
||||||
return 'normal-( '
|
|
||||||
end
|
|
||||||
return ('data-%-4s'):format(convert[s])
|
|
||||||
end
|
|
||||||
local label_value
|
|
||||||
label_value = function(k)
|
|
||||||
return ('[ %02x ]'):format(k:byte())
|
|
||||||
end
|
|
||||||
dag['('] = nil
|
|
||||||
add_globals(root, dag, label_name, label_value, '', ' ')
|
|
||||||
end
|
|
||||||
local devices = { }
|
|
||||||
local add_device
|
|
||||||
add_device = function(name, fields)
|
|
||||||
local field_sizes
|
|
||||||
do
|
|
||||||
local _tbl_0 = { }
|
|
||||||
for k, size in fields:gmatch('(%S+) (%d+)') do
|
|
||||||
_tbl_0[k] = size
|
|
||||||
end
|
|
||||||
field_sizes = _tbl_0
|
|
||||||
end
|
|
||||||
field_sizes.pad = nil
|
|
||||||
local field_names
|
|
||||||
do
|
|
||||||
local _accum_0 = { }
|
|
||||||
local _len_0 = 1
|
|
||||||
for k in pairs(field_sizes) do
|
|
||||||
_accum_0[_len_0] = k
|
|
||||||
_len_0 = _len_0 + 1
|
|
||||||
end
|
|
||||||
field_names = _accum_0
|
|
||||||
end
|
|
||||||
table.sort(field_names)
|
|
||||||
local root, dag = build_dag(field_names)
|
|
||||||
local label_name
|
|
||||||
label_name = function(k)
|
|
||||||
return ('l-%-14s'):format(name .. '-' .. k)
|
|
||||||
end
|
|
||||||
local label_value
|
|
||||||
label_value = function(k)
|
|
||||||
return ('%-17s [ %s ] .%s.%s'):format(('[ %s 00 ]'):format(k), type_byte(field_sizes[k], false), name, k)
|
|
||||||
end
|
|
||||||
add_globals(root, dag, label_name, label_value, ' ', ' ')
|
|
||||||
return table.insert(devices, name)
|
|
||||||
end
|
|
||||||
local add_devices
|
|
||||||
add_devices = function()
|
|
||||||
table.sort(devices)
|
|
||||||
local root, dag = build_dag(devices)
|
|
||||||
local label_name
|
|
||||||
label_name = function(k)
|
|
||||||
return ('l-%-14s'):format(k)
|
|
||||||
end
|
|
||||||
local label_value
|
|
||||||
label_value = function(k)
|
|
||||||
return ('%-17s [ %s ] .%s .l-%s-root'):format(('[ %s 00 ]'):format(k), type_byte(0, true), k, k)
|
|
||||||
end
|
|
||||||
return add_globals(root, dag, label_name, label_value, ' ', ' ')
|
|
||||||
end
|
|
||||||
local filename = 'projects/software/assembler.usm'
|
|
||||||
local f = assert(io.open(('%s.tmp'):format(filename), 'w'))
|
|
||||||
local state = 'normal'
|
|
||||||
local machine = {
|
|
||||||
normal = function(l)
|
|
||||||
if l:match('%( opcode tree %)') then
|
|
||||||
write_opcode_tree(f)
|
|
||||||
state = 'opcode'
|
|
||||||
elseif l:match('^%@') then
|
|
||||||
if l == '@RESET' then
|
|
||||||
add_devices()
|
|
||||||
end
|
|
||||||
for k in l:gmatch('%@(%S+)') do
|
|
||||||
if globals[k] then
|
|
||||||
f:write(globals[k])
|
|
||||||
globals[k] = nil
|
|
||||||
return
|
|
||||||
end
|
|
||||||
end
|
|
||||||
f:write(l)
|
|
||||||
return f:write('\n')
|
|
||||||
else
|
|
||||||
if l:match('^%|%x%x%x%x %;') then
|
|
||||||
add_device(l:match('%;(%S+) %{ (.*) %}'))
|
|
||||||
end
|
|
||||||
f:write(l)
|
|
||||||
return f:write('\n')
|
|
||||||
end
|
|
||||||
end,
|
|
||||||
opcode = function(l)
|
|
||||||
if not l:match('.') then
|
|
||||||
f:write(l)
|
|
||||||
f:write('\n')
|
|
||||||
state = 'normal'
|
|
||||||
end
|
|
||||||
end
|
|
||||||
}
|
|
||||||
for l in assert(io.lines(filename)) do
|
|
||||||
machine[state](l)
|
|
||||||
end
|
|
||||||
for _, l in pairs(globals) do
|
|
||||||
f:write(l)
|
|
||||||
end
|
|
||||||
f:close()
|
|
||||||
assert(0 == os.execute(('mv %s %s.bak'):format(filename, filename)))
|
|
||||||
return assert(0 == os.execute(('mv %s.tmp %s'):format(filename, filename)))
|
|
||||||
|
|
@ -1,210 +0,0 @@
|
||||||
build_dag = (t, dag = {}, i = 1, j = #t, level = 0) ->
|
|
||||||
if i > j
|
|
||||||
return
|
|
||||||
mid = math.floor (i + j) / 2
|
|
||||||
dag[t[mid]] = {
|
|
||||||
(build_dag t, dag, i, mid - 1, level + 1)
|
|
||||||
(build_dag t, dag, mid + 1, j, level + 1)
|
|
||||||
}
|
|
||||||
t[mid], dag
|
|
||||||
append_dag = (node, dag, k) ->
|
|
||||||
i = k > node and 2 or 1
|
|
||||||
next_node = dag[node][i]
|
|
||||||
if next_node
|
|
||||||
return append_dag next_node, dag, k
|
|
||||||
dag[node][i] = k
|
|
||||||
dag[k] = {}
|
|
||||||
build_dag_from_chars = (s, ...) ->
|
|
||||||
t = [ s\sub i, i for i = 1, #s ]
|
|
||||||
table.sort t
|
|
||||||
root, dag = build_dag t
|
|
||||||
for i = 1, select '#', ...
|
|
||||||
append_dag root, dag, (select i, ...)
|
|
||||||
return root, dag
|
|
||||||
check_terminals = (dag, s) ->
|
|
||||||
for i = 1, #s
|
|
||||||
k = s\sub i, i
|
|
||||||
assert not dag[k][1], '%s has left child node'\format k
|
|
||||||
assert not dag[k][2], '%s has right child node'\format k
|
|
||||||
dump = (f, root, dag, level = 0) ->
|
|
||||||
if dag[root][1]
|
|
||||||
dump f, dag[root][1], dag, level + 1
|
|
||||||
f\write ' '\rep level
|
|
||||||
f\write root
|
|
||||||
f\write '\n'
|
|
||||||
if dag[root][2]
|
|
||||||
dump f, dag[root][2], dag, level + 1
|
|
||||||
|
|
||||||
convert = setmetatable { ['.']: 'dot', ['\0']: 'nul' },
|
|
||||||
__index: (k) => k
|
|
||||||
-- deal with opcodes
|
|
||||||
|
|
||||||
write_opcode_tree = do
|
|
||||||
byte_to_opcode = {}
|
|
||||||
byte = false
|
|
||||||
for l in assert io.lines 'src/assembler.c'
|
|
||||||
if l\match '^%s*char%s+ops%[%]%[4%]'
|
|
||||||
byte = 0
|
|
||||||
elseif l\match '%}'
|
|
||||||
byte = false
|
|
||||||
elseif byte
|
|
||||||
for opcode in l\gmatch '"([A-Z-][A-Z-][A-Z-])"'
|
|
||||||
byte_to_opcode[byte] = opcode
|
|
||||||
byte += 1
|
|
||||||
order_to_opcode = [ byte_to_opcode[i] for i = 0, #byte_to_opcode when byte_to_opcode[i] != '---' ]
|
|
||||||
table.sort order_to_opcode
|
|
||||||
root, opcode_to_links = build_dag order_to_opcode
|
|
||||||
(f) ->
|
|
||||||
f\write '\t$tree .$op-%s ( opcode tree )\n'\format root\lower!
|
|
||||||
f\write '\t$start\n'
|
|
||||||
for i = 0, #byte_to_opcode
|
|
||||||
opcode = byte_to_opcode[i]
|
|
||||||
f\write '\t'
|
|
||||||
if opcode != '---'
|
|
||||||
f\write '$op-%s '\format opcode\lower!
|
|
||||||
else
|
|
||||||
f\write ' '
|
|
||||||
for j = 1, 2
|
|
||||||
if opcode != '---' and opcode_to_links[opcode][j]
|
|
||||||
f\write '.$op-%s '\format opcode_to_links[opcode][j]\lower!
|
|
||||||
else
|
|
||||||
f\write '[ 0000 ] '
|
|
||||||
if i == 0
|
|
||||||
f\write '$disasm '
|
|
||||||
else
|
|
||||||
f\write ' '
|
|
||||||
if opcode != '---'
|
|
||||||
f\write '[ %s ]'\format opcode
|
|
||||||
else
|
|
||||||
f\write '[ ??? ]'
|
|
||||||
if i == 0
|
|
||||||
f\write ' $asm'
|
|
||||||
f\write '\n'
|
|
||||||
|
|
||||||
type_byte = (size, has_subtree) ->
|
|
||||||
n1 = has_subtree and '8' or '0'
|
|
||||||
n2 = switch size
|
|
||||||
when '1'
|
|
||||||
'1'
|
|
||||||
when '2'
|
|
||||||
'2'
|
|
||||||
else
|
|
||||||
'0'
|
|
||||||
n1 .. n2
|
|
||||||
|
|
||||||
globals = {}
|
|
||||||
|
|
||||||
add_globals = (root, dag, key_to_label, key_to_contents, pad_before = '', pad_after = '') ->
|
|
||||||
for k in pairs dag
|
|
||||||
l = ''
|
|
||||||
if k == root
|
|
||||||
l ..= '@%s\n'\format key_to_label('root')\gsub '%s', ''
|
|
||||||
l ..= '@%s '\format key_to_label k
|
|
||||||
for j = 1, 2
|
|
||||||
if dag[k][j]
|
|
||||||
l ..= '.%s '\format key_to_label dag[k][j]
|
|
||||||
else
|
|
||||||
l ..= '%s[ 0000 ]%s '\format pad_before, pad_after
|
|
||||||
l ..= key_to_contents k
|
|
||||||
l ..= '\n'
|
|
||||||
globals[key_to_label(k)\gsub '%s', ''] = l
|
|
||||||
globals[key_to_label('root')\gsub '%s', ''] = ''
|
|
||||||
|
|
||||||
do
|
|
||||||
root, dag = build_dag_from_chars '{}[]%@$;|=~,.^#"\0', '(', ')'
|
|
||||||
check_terminals dag, ')'
|
|
||||||
label_name = (s) -> 'normal-%-3s'\format convert[s]
|
|
||||||
label_value = (k) -> '[ %02x ]'\format k\byte!
|
|
||||||
add_globals root, dag, label_name, label_value, '', ' '
|
|
||||||
|
|
||||||
do
|
|
||||||
root, dag = build_dag_from_chars '{}', '\0', '('
|
|
||||||
dump io.stdout, root, dag
|
|
||||||
label_name = (s) ->
|
|
||||||
if s == '('
|
|
||||||
return 'normal-( '
|
|
||||||
'variable-%s'\format convert[s]
|
|
||||||
label_value = (k) -> '[ %02x ]'\format k\byte!
|
|
||||||
dag['('] = nil
|
|
||||||
add_globals root, dag, label_name, label_value, '', ' '
|
|
||||||
|
|
||||||
do
|
|
||||||
root, dag = build_dag_from_chars '{}\0', '('
|
|
||||||
dump io.stdout, root, dag
|
|
||||||
label_name = (s) ->
|
|
||||||
if s == '('
|
|
||||||
return 'normal-( '
|
|
||||||
'macro-%-3s'\format convert[s]
|
|
||||||
label_value = (k) -> '[ %02x ]'\format k\byte!
|
|
||||||
dag['('] = nil
|
|
||||||
add_globals root, dag, label_name, label_value, '', ' '
|
|
||||||
|
|
||||||
do
|
|
||||||
root, dag = build_dag_from_chars ']\0', '('
|
|
||||||
dump io.stdout, root, dag
|
|
||||||
label_name = (s) ->
|
|
||||||
if s == '('
|
|
||||||
return 'normal-( '
|
|
||||||
'data-%-4s'\format convert[s]
|
|
||||||
label_value = (k) -> '[ %02x ]'\format k\byte!
|
|
||||||
dag['('] = nil
|
|
||||||
add_globals root, dag, label_name, label_value, '', ' '
|
|
||||||
|
|
||||||
devices = {}
|
|
||||||
|
|
||||||
add_device = (name, fields) ->
|
|
||||||
field_sizes = { k, size for k, size in fields\gmatch '(%S+) (%d+)' }
|
|
||||||
field_sizes.pad = nil
|
|
||||||
field_names = [ k for k in pairs field_sizes ]
|
|
||||||
table.sort field_names
|
|
||||||
root, dag = build_dag field_names
|
|
||||||
label_name = (k) -> 'l-%-14s'\format name .. '-' .. k
|
|
||||||
label_value = (k) -> '%-17s [ %s ] .%s.%s'\format '[ %s 00 ]'\format(k), type_byte(field_sizes[k], false), name, k
|
|
||||||
add_globals root, dag, label_name, label_value, ' ', ' '
|
|
||||||
table.insert devices, name
|
|
||||||
|
|
||||||
add_devices = ->
|
|
||||||
table.sort devices
|
|
||||||
root, dag = build_dag devices
|
|
||||||
label_name = (k) -> 'l-%-14s'\format k
|
|
||||||
label_value = (k) -> '%-17s [ %s ] .%s .l-%s-root'\format '[ %s 00 ]'\format(k), type_byte(0, true), k, k
|
|
||||||
add_globals root, dag, label_name, label_value, ' ', ' '
|
|
||||||
|
|
||||||
filename = 'projects/software/assembler.usm'
|
|
||||||
|
|
||||||
f = assert io.open '%s.tmp'\format(filename), 'w'
|
|
||||||
-- f = io.stdout
|
|
||||||
state = 'normal'
|
|
||||||
machine =
|
|
||||||
normal: (l) ->
|
|
||||||
if l\match '%( opcode tree %)'
|
|
||||||
write_opcode_tree f
|
|
||||||
state = 'opcode'
|
|
||||||
elseif l\match '^%@'
|
|
||||||
if l == '@RESET'
|
|
||||||
add_devices!
|
|
||||||
for k in l\gmatch '%@(%S+)'
|
|
||||||
if globals[k]
|
|
||||||
f\write globals[k]
|
|
||||||
globals[k] = nil
|
|
||||||
return
|
|
||||||
f\write l
|
|
||||||
f\write '\n'
|
|
||||||
else
|
|
||||||
if l\match '^%|%x%x%x%x %;'
|
|
||||||
add_device l\match '%;(%S+) %{ (.*) %}'
|
|
||||||
f\write l
|
|
||||||
f\write '\n'
|
|
||||||
opcode: (l) ->
|
|
||||||
if not l\match '.'
|
|
||||||
f\write l
|
|
||||||
f\write '\n'
|
|
||||||
state = 'normal'
|
|
||||||
for l in assert io.lines filename
|
|
||||||
machine[state] l
|
|
||||||
for _, l in pairs globals
|
|
||||||
f\write l
|
|
||||||
f\close!
|
|
||||||
assert 0 == os.execute 'mv %s %s.bak'\format filename, filename
|
|
||||||
assert 0 == os.execute 'mv %s.tmp %s'\format filename, filename
|
|
||||||
|
|
||||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue