d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ported asma to new assembler syntax

This commit is contained in:
Andrew Alderwick 2021-04-24 10:50:21 +01:00
parent 6057869af5
commit 5833a99260
2 changed files with 413 additions and 391 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
etc/uxambly-translate.moon
View File

@ -64,9 +64,11 @@ grammar = P {
labeldef: C P'@' * V'label' labeldef: C P'@' * V'label'
relative: (P'^' / -> ',') * (C(V'label') / (s) -> (s\gsub '%$', '&')) relative: (P'^' / -> ',') * (C(V'label') / (s) -> (s\gsub '%$', '&'))
sublabel: (P'$' / -> '&') * (C(V'label') / (s) -> (s\gsub '%$', '&')) sublabel: (P'$' / -> '&') * (C(V'label') / (s) -> (s\gsub '%$', '&'))
data: C P'[' * (1-P']') ^ 0 * P']' data: C(P'[') * V'ws' * (V'data_item' * V'ws') ^ 0 * C(P']')
macro: C(P'%' * V'name' * V'ws' * P'{') * V'ws' * (V'atom' * V'ows') ^ 0 * C P'}' macro: C(P'%' * V'name' * V'ws' * P'{') * V'ws' * (V'atom' * V'ows') ^ 0 * C P'}'
macroref: C V'name' macroref: C V'name'
data_item: C(V'hex' * #V'ws') + V'data_string'
data_string: C((1 - S' \n\t') ^ 1 - P']') / (s) -> '"', s
} }
translate = (_filename) -> translate = (_filename) ->
@ -81,7 +83,7 @@ translate = (_filename) ->
error 'no match' error 'no match'
filename = filename\gsub 'attic', 'auto' filename = filename\gsub 'attic', 'auto'
f = assert io.open filename, 'w' f = assert io.open filename, 'w'
f\write (table.concat(t)\gsub(' +\n', '\n')\gsub(' +', ' ')) f\write table.concat(t)
f\close! f\close!
f = assert io.popen 'bin/assembler %s bin/boot.rom'\format filename f = assert io.popen 'bin/assembler %s bin/boot.rom'\format filename
for l in f\lines! for l in f\lines!
@ -91,10 +93,9 @@ translate = (_filename) ->
f\close! f\close!
os.exit 0 os.exit 0
translate 'attic/software/left.usm' translate 'attic/software/assembler.usm'
os.exit 0 os.exit 0
translate 'attic/software/assembler.usm'
translate 'attic/tests/opcodes.usm' translate 'attic/tests/opcodes.usm'
translate 'attic/tests/basics.usm' translate 'attic/tests/basics.usm'

795
projects/software/asma.usm
View File

File diff suppressed because it is too large Load Diff