Mercurial > vba-clojure

diff clojure/com/aurellem/gb/util.clj @ 301:1de6aada1cb7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
inserted backwards jump into bootstrap program to fit it into item-pc space
author Robert McIntyre <rlm@mit.edu>
date Fri, 30 Mar 2012 23:39:58 -0500
parents eec3e69500d9
children 5bcda2d6d135
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/util.clj	Fri Mar 30 23:05:38 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/util.clj	Fri Mar 30 23:39:58 2012 -0500
     1.3 @@ -218,3 +218,13 @@
     1.4           descriptions))))
     1.5    ([] (print-D-memory @current-state)))
     1.6    
     1.7 +
     1.8 +(defn signed-8-bits
     1.9 +  "the lower 8 bits of an integer interpreted as a signed 8
    1.10 +   bit number"
    1.11 +  [n]
    1.12 +  (let [lower-seven (bit-and n 127)]
    1.13 +    (if (bit-test n 7)
    1.14 +      (- 128 lower-seven)
    1.15 +      lower-seven)))
    1.16 +  
    1.17 \ No newline at end of file