Mercurial > vba-clojure
diff clojure/com/aurellem/gb/util.clj @ 301:1de6aada1cb7
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