Mercurial > vba-clojure

diff clojure/com/aurellem/run/bootstrap_0.clj @ 302:0b3e89103dc2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
going to test bootstrapping program.
author Robert McIntyre <rlm@mit.edu>
date Sat, 31 Mar 2012 00:05:39 -0500
parents 528dc923d4c5
children 5bcda2d6d135
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Fri Mar 30 23:39:58 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Sat Mar 31 00:05:39 2012 -0500
     1.3 @@ -784,3 +784,57 @@
     1.4            (do-nothing 1))))
     1.5      
     1.6  
     1.7 +
     1.8 +(defn test-pc-item-program []
     1.9 +  (-> (read-state "bootstrap-init")
    1.10 +      (set-memory pc-item-list-start 50)
    1.11 +      (set-memory-range
    1.12 +
    1.13 +       (inc pc-item-list-start)
    1.14 +       (flatten
    1.15 +        [
    1.16 +         (repeat
    1.17 +          25
    1.18 +          [0xFF 0x01])
    1.19 +         [0x00   ;;  second part of item manipulation program
    1.20 +          0x2A   
    1.21 +          
    1.22 +          0x00
    1.23 +          0x47   
    1.24 +          
    1.25 +          0x00
    1.26 +          0x3A
    1.27 +
    1.28 +          0x00
    1.29 +          0x22
    1.30 +
    1.31 +          0x00
    1.32 +          0X70
    1.33 +
    1.34 +          0x00
    1.35 +          0xC3
    1.36 +
    1.37 +          0x0C
    1.38 +          0x5F]
    1.39 +         (repeat
    1.40 +          8
    1.41 +          [0xFF 0x01])
    1.42 +
    1.43 +         [0x00
    1.44 +          0x21
    1.45 +
    1.46 +          0x93
    1.47 +          0xD5
    1.48 +
    1.49 +          0x00
    1.50 +          0x18
    1.51 +
    1.52 +          0xE1
    1.53 +          0x01
    1.54 +
    1.55 +          0xFF
    1.56 +          0x01
    1.57 +          
    1.58 +          0x04  ;; target ID
    1.59 +          0x3E  ;; target Quantity
    1.60 +          ]]))))