Move scheme compiler into a separate directory.

1 files changed, 117 insertions, 0 deletions

diff --git a/csc/encoding-test.csc b/csc/encoding-test.csc
new file mode 100644
index 0000000..a7f4ace
--- /dev/null
+++ b/csc/encoding-test.csc
@@ -0,0 +1,117 @@
+(import (scheme base)
+        (only (csc testing) test assert-equal)
+        (csc encoding))
+
+
+(test encode-const
+  (assert-equal
+    '(#xf2 #x3 0 0 0 0 0 0 #xf6 #xff #xff #xff #xff #xff #xff #xff)
+    (encode '((const -10)))))
+
+
+(test encode-add
+  (assert-equal
+    '(#xfc #x3 0 0 0 0 0 0)
+    (encode '(add))))
+
+
+(test encode-sub
+  (assert-equal
+    '(#x6 #x4 0 0 0 0 0 0)
+    (encode '(sub))))
+
+
+(test encode-mul
+  (assert-equal
+    '(#x10 #x4 0 0 0 0 0 0)
+    (encode '(mul))))
+
+
+(test encode-div
+  (assert-equal
+    '(#x1a #x4 0 0 0 0 0 0)
+    (encode '(div))))
+
+
+(test encode-mod
+  (assert-equal
+    '(#x24 #x4 0 0 0 0 0 0)
+    (encode '(mod))))
+
+
+(test encode-alloc
+  (assert-equal
+    '(#xda #x7 0 0 0 0 0 0)
+    (encode '(alloc))))
+
+
+(test encode-peek
+  (assert-equal
+    '(#xe4 #x7 0 0 0 0 0 0 #xa)
+    (encode '((peek 10)))))
+
+
+(test encode-poke
+  (assert-equal
+    '(#xee #x7 0 0 0 0 0 0 #xa)
+    (encode '((poke 10)))))
+
+
+(test encode-peekbyte
+  (assert-equal
+    '(#xf8 #x7 0 0 0 0 0 0)
+    (encode '(peekbyte))))
+
+
+(test encode-pokebyte
+  (assert-equal
+    '(#x2 #x8 0 0 0 0 0 0)
+    (encode '(pokebyte))))
+
+
+(test encode-pop
+  (assert-equal
+    '(#xc2 #xb 0 0 0 0 0 0)
+    (encode '(pop))))
+
+
+(test encode-local
+  (assert-equal
+    '(#xcc #xb 0 0 0 0 0 0 #xa)
+    (encode '((local 10)))))
+
+
+(test encode-if
+  (assert-equal
+    '(#xaa #xf 0 0 0 0 0 0 #xf6 #xff #xff #xff #xff #xff #xff #xff)
+    (encode '((if -10)))))
+
+
+(test encode-call
+  (assert-equal
+    '(#xb4 #xf 0 0 0 0 0 0 #xa)
+    (encode '((call 10)))))
+
+
+(test encode-ret
+  (assert-equal
+    '(#xbe #xf 0 0 0 0 0 0)
+    (encode '(ret))))
+
+
+(test encode-exit
+  (assert-equal
+    '(#xc8 #xf 0 0 0 0 0 0)
+    (encode '(exit))))
+
+
+(test encode-putc
+  (assert-equal
+    '(#x92 #x13 0 0 0 0 0 0)
+    (encode '(putc))))
+
+
+(test encode-getc
+  (assert-equal
+    '(#x9c #x13 0 0 0 0 0 0)
+    (encode '(getc))))