15 lines
616 B
Plaintext
15 lines
616 B
Plaintext
|
;; In Emacs, open this file in -*- Scheme -*- mode
|
||
|
|
|
||
|
|
;; Test the @% primitive
|
||
|
|
|
||
|
|
(@byte-write 72)
|
||
|
|
|
||
|
|
(@byte-write (@% 65 66)) ;A
|
||
|
|
(@byte-write (@% 133 67)) ;B
|
||
|
|
(@byte-write (if (@= (@% 15 4) 3) 67 63)) ;C
|
||
|
|
(@byte-write (if (@= (@% 15 -4) 3) 68 63)) ;D
|
||
|
|
(@byte-write (if (@= (@% -15 4) -3) 69 63)) ;E
|
||
|
|
(@byte-write (if (@= (@% -15 -4) -3) 70 63)) ;F
|
||
|
|
(@byte-write (if (@= (@% -1073741824 1) 0) 71 63)) ;G
|
||
|
|
(@byte-write (if (@= (@% 1073741823 2) 1) 72 63)) ;H
|