14 lines
411 B
Plaintext
14 lines
411 B
Plaintext
|
;; In Emacs, open this file in -*- Scheme -*- mode
|
||
|
|
|
||
|
|
;; Test the @xor primitive
|
||
|
|
|
||
|
|
(@byte-write 70)
|
||
|
|
|
||
|
|
(@byte-write (@xor 0 65)) ;A
|
||
|
|
(@byte-write (@xor 66 0)) ;B
|
||
|
|
(@byte-write (@xor 66 1)) ;C
|
||
|
|
(@byte-write (@xor -1 -69)) ;D
|
||
|
|
(@byte-write (if (@= (@xor 2018 2018) 0) 69 63)) ;E
|
||
|
|
(@byte-write (@xor 207 137)) ;F
|
||
|
|
|