13 lines
372 B
Plaintext
13 lines
372 B
Plaintext
|
;; 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
|