Init

cs420-acc/l3-warmup/tests/prim-sub.l3

@@ -0,0 +1,12 @@
+;; In Emacs, open this file in -*- Scheme -*- mode
+
+;; Test the @- primitive
+
+(@byte-write 70)
+
+(@byte-write (@- 65 0))                    ;A
+(@byte-write (@- 0 -66))                   ;B
+(@byte-write (@- 66 -1))                   ;C
+(@byte-write (@- -1 -69))                  ;D
+(@byte-write (@- -1073741824 1073741755))  ;E
+(@byte-write (@- -1073741754 -1073741824)) ;F