# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333172474 18000
# Node ID fefe5ce49b21fa42b46754c44fd606f294885e4d
# Parent  5bcda2d6d13512eef759caddd46f44e49ee0a549
improve testing program

diff -r 5bcda2d6d135 -r fefe5ce49b21 clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Sat Mar 31 00:33:35 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Sat Mar 31 00:41:14 2012 -0500
@@ -784,18 +784,16 @@
           (do-nothing 1))))
     
 
-("d572" "d573" "d574" "d575" "d576" "d577" "d58b" "d58e" "d58f" "ff80" "ff82" "ff84" "ff86" "ff87" "ff89")
-
-
 (defn test-pc-item-program []
   (-> (read-state "bootstrap-init")
       (set-memory pc-item-list-start 50)
       (set-memory-range
-
+       map-function-address-start
+       [0x8B 0xD5])
+      (set-memory-range
        (inc pc-item-list-start)
        (flatten
-        [
-         (repeat
+        [(repeat
           28
           [0xFF 0x01])
          [;;  second part of item manipulation program