diff clojure/com/aurellem/run/bootstrap_0.clj @ 304:fefe5ce49b21

improve testing program
author Robert McIntyre <rlm@mit.edu>
date Sat, 31 Mar 2012 00:41:14 -0500
parents 5bcda2d6d135
children 7998b1cf18cf
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