read program from file; fmt, cleanup

examples/factorial.csn

@@ -0,0 +1,15 @@
+(
+    (main
+        (call fac 5)
+        (ld r0 res0)
+        (halt)
+    )
+    (fac
+        (cmp arg0 2
+            (eq? (ret 2)))
+        (sub r0 arg0 1)
+        (call fac r0)
+        (mul r0 arg0 res0)
+        (ret r0)
+    )
+)

examples/screen_bounce.csn

@@ -0,0 +1,28 @@
+(
+    (main
+        (sc-init 800 600)
+        (sc-opt 1 0) ; auto blit
+        (sc-opt 2 60) ; frame rate
+
+        (ld r0 5) ; x
+        (ld r1 0) ; y
+
+        (ld r2 1) ; dx
+        (ld r3 1) ; dy
+
+        (ld r5 0x3300ff)
+
+        (:loop)
+        (add r5 0x000001)
+        (and r5 0xffffff)
+        (sc-px r0 r1 r5)
+        (add r0 r2)
+        (add r1 r3)
+        (cmp r0 799 (eq? (ld r2 -1)))
+        (cmp r0 0 (eq? (ld r2 1)))
+        (cmp r1 599 (eq? (ld r3 -1)))
+        (cmp r1 0 (eq? (ld r3 1)))
+        (sc-blit 0)
+        (j :loop)
+    )
+)