Mercurial > vba-clojure
changeset 304:fefe5ce49b21
improve testing program
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Sat, 31 Mar 2012 00:41:14 -0500 |
| parents | 5bcda2d6d135 |
| children | 7998b1cf18cf |
| files | clojure/com/aurellem/run/bootstrap_0.clj |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj Sat Mar 31 00:33:35 2012 -0500 1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj Sat Mar 31 00:41:14 2012 -0500 1.3 @@ -784,18 +784,16 @@ 1.4 (do-nothing 1)))) 1.5 1.6 1.7 -("d572" "d573" "d574" "d575" "d576" "d577" "d58b" "d58e" "d58f" "ff80" "ff82" "ff84" "ff86" "ff87" "ff89") 1.8 - 1.9 - 1.10 (defn test-pc-item-program [] 1.11 (-> (read-state "bootstrap-init") 1.12 (set-memory pc-item-list-start 50) 1.13 (set-memory-range 1.14 - 1.15 + map-function-address-start 1.16 + [0x8B 0xD5]) 1.17 + (set-memory-range 1.18 (inc pc-item-list-start) 1.19 (flatten 1.20 - [ 1.21 - (repeat 1.22 + [(repeat 1.23 28 1.24 [0xFF 0x01]) 1.25 [;; second part of item manipulation program