1 files changed, 18 insertions, 0 deletions
diff --git a/src/backend/generator/assembly.scm b/src/backend/generator/assembly.scm
new file mode 100644
index 0000000..8a110f3
--- /dev/null
+++ b/src/backend/generator/assembly.scm
@@ -0,0 +1,18 @@
+(define-module (backend generator assembly)
+  #:use-module (backend ast ir)
+  #:use-module (backend utils assign-stack)
+  #:use-module (backend utils merge-instructions)
+  #:export (instrs
+            mov))
+
+
+(define (instrs lst)
+  (cons 'list (cons (list 'alloc (abs (get-frame-size)))
+                    (merge-instr lst))))
+
+(define (mov src dst)
+  (if (and (eq? 'stack (car dst))
+           (eq? 'stack (car src)))
+      (append (list (list 'mov src (reg "r10d")))
+              (list (list 'mov (reg "r10d") dst)))
+      (list 'mov src dst)))