14 lines
290 B
Fennel
14 lines
290 B
Fennel
(local t (require :deps.faith))
|
|
(local {: r : move} (require :host.assembler.opcodes))
|
|
(fn hex [n]
|
|
"format a number as 32 bit hexadecimal"
|
|
(string.format :0x%08x n))
|
|
|
|
(fn test-move []
|
|
(t.= 0xe1a05003
|
|
(move (r 5) (r 3)))
|
|
(t.= 0xe3a05003
|
|
(move (r 5) 3)))
|
|
|
|
{: test-move}
|