From 7562c4b30ba918928308da23487bffc92d4de37b Mon Sep 17 00:00:00 2001
From: mRnea <akannemre@gmail.com>
Date: Tue, 30 Jul 2024 20:17:43 +0300
Subject: Found a cool idea for DEFOP

---
 assembly.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'assembly.lisp')

diff --git a/assembly.lisp b/assembly.lisp
index 81b0ca1..1ddd326 100644
--- a/assembly.lisp
+++ b/assembly.lisp
@@ -34,15 +34,23 @@
                               ,(normalize-op-list body))
                     (replace-write out-stream indent (car body))))))))
 
+;;; TODO: Turn stack operation comments to DEFOP option,
+;;;       which then can be used by the user as a documentation
+;;; TODO: Better yet, generate the asm code directly from
+;;;       the stack op documentation (this seems easily doable)
+
+;; ( -- a)
 (defop (push a) ()
   ("push ~d" a))
 
+;; (rbx rax -- (rbx + rax))
 (defop + ()
   "pop rax"
   "pop rbx"
   "add rax, rbx"
   "push rax")
 
+;; (rbx rax -- (rbx - rax))
 (defop - ()
   "pop rax"
   "pop rbx"
@@ -82,11 +90,13 @@
       (:write ("    jmp et_~a" döngü-num)
               ("et_~a:" label-num))))
 
+;; (rax -- rax rax)
 (defop eş ()
   "pop rax"
   "push rax"
   "push rax")
 
+;; (rax -- )
 (defop düş ()
   "pop rax")
 
-- 
cgit v1.2.3