feat: add simple macro for opcodes

2025-10-14 19:02:51 +02:00 · 2025-10-14 19:02:51 +02:00 · 99f6e167ea
commit 99f6e167ea
parent 290a2ad681
1 changed files with 5 additions and 0 deletions
--- a/host/assembler/opcodes.fnl
+++ b/host/assembler/opcodes.fnl
@ -1,5 +1,10 @@
 (local util (require :host.util))

+(macro construct-code [& forms]
+	`(bor
+		 ,(unpack 
+				(icollect [i n (ipairs forms)] `(lshift ,(. n 1) ,(. n 2))))))
+
 (local conditions {:equal 0x0
 			 						 :not-equal 0x1
 									 :carry 0x2