more examples

examples/asm.lisp

@@ -0,0 +1,2 @@
+(asm
+    (li64 r1 0))

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.")