fey.naomi/mango
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat: add assembler test file

Browse Source
This commit is contained in:
Fey Naomi Schrewe 2025-10-15 21:04:23 +02:00
parent aa0f28cc5e
commit 5ed27903ed
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
host/assembler.fnl
View File

@ -6,7 +6,6 @@
(require :host.assembler.opcodes)) (require :host.assembler.opcodes))
(local {: any : slice : push : map} (require :deps.lume)) (local {: any : slice : push : map} (require :deps.lume))
(local {: word->byte} (require :host.util)) (local {: word->byte} (require :host.util))
(local {: emulate} (require :host.util.emulator))
(fn label [name] {:label name}) (fn label [name] {:label name})
(fn label? [value] (fn label? [value]
@ -39,7 +38,3 @@
[move (r 9) (r 3)] [move (r 9) (r 3)]
[branch (label :label-1)]] [branch (label :label-1)]]
0x8000) 0x8000)
(let [assembly (assemble [[move (r 8) 127]])
byte-string (table.concat (map (. assembly :instructions) word->byte) "")]
(emulate byte-string))

1
test/assembler/opcodes.fnl
View File

@ -1,5 +1,6 @@
(local t (require :deps.faith)) (local t (require :deps.faith))
(local {: r : move} (require :host.assembler.opcodes)) (local {: r : move} (require :host.assembler.opcodes))
(fn hex [n] (fn hex [n]
"format a number as 32 bit hexadecimal" "format a number as 32 bit hexadecimal"
(string.format :0x%08x n)) (string.format :0x%08x n))