Mercurial > vba-clojure
comparison clojure/com/aurellem/run/bootstrap_0.clj @ 305:7998b1cf18cf
improve testing program
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Sat, 31 Mar 2012 00:41:28 -0500 |
| parents | fefe5ce49b21 |
| children | 8e63b0bb8ea3 |
comparison
equal
deleted
inserted
replaced
| 304:fefe5ce49b21 | 305:7998b1cf18cf |
|---|---|
| 786 | 786 |
| 787 (defn test-pc-item-program [] | 787 (defn test-pc-item-program [] |
| 788 (-> (read-state "bootstrap-init") | 788 (-> (read-state "bootstrap-init") |
| 789 (set-memory pc-item-list-start 50) | 789 (set-memory pc-item-list-start 50) |
| 790 (set-memory-range | 790 (set-memory-range |
| 791 map-function-address-start | 791 map-function-address-start [0x8B 0xD5]) |
| 792 [0x8B 0xD5]) | |
| 793 (set-memory-range | 792 (set-memory-range |
| 794 (inc pc-item-list-start) | 793 (inc pc-item-list-start) |
| 795 (flatten | 794 (flatten |
| 796 [(repeat | 795 [(repeat |
| 797 28 | 796 28 |