From 51299f33bce09927291cc28788be3fa0eee7519f Mon Sep 17 00:00:00 2001
From: able <abl3theabove@gmail.com>
Date: Fri, 3 May 2024 14:01:00 -0500
Subject: [PATCH] more examples

---
 examples/asm.lisp |  2 ++
 examples/log.lisp | 19 +++++++++++++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 examples/asm.lisp
 create mode 100644 examples/log.lisp

diff --git a/examples/asm.lisp b/examples/asm.lisp
new file mode 100644
index 0000000..8b7d499
--- /dev/null
+++ b/examples/asm.lisp
@@ -0,0 +1,2 @@
+(asm
+    (li64 r1 0))
\ No newline at end of file
diff --git a/examples/log.lisp b/examples/log.lisp
new file mode 100644
index 0000000..07f5b4b
--- /dev/null
+++ b/examples/log.lisp
@@ -0,0 +1,19 @@
+
+(define log
+    (lambda (level message)
+        (
+            (append (message level))
+            (asm
+                (set-register r1 3)
+                (set-register r2 1)
+                (set-register r3 (ptr-to message))
+                (set-register r4 (+ 1 (length message)))
+                (eca)))))
+
+(define error (lambda (message) (log 0 message)))
+(define warn (lambda (message) (log 1 message)))
+(define info (lambda (message) (log 2 message)))
+(define debug (lambda (message) (log 3 message)))
+(define trace (lambda (message) (log 4 message)))
+
+(info "Logger works.")