Mercurial > vba-clojure

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve testing program
author Robert McIntyre <rlm@mit.edu>
date Sat, 31 Mar 2012 00:41:14 -0500
parents 5bcda2d6d135
children 7998b1cf18cf
comparison
equal deleted inserted replaced
303:5bcda2d6d135 304:fefe5ce49b21
782 782
783 783
784 (do-nothing 1)))) 784 (do-nothing 1))))
785 785
786 786
787 ("d572" "d573" "d574" "d575" "d576" "d577" "d58b" "d58e" "d58f" "ff80" "ff82" "ff84" "ff86" "ff87" "ff89")
788
789
790 (defn test-pc-item-program [] 787 (defn test-pc-item-program []
791 (-> (read-state "bootstrap-init") 788 (-> (read-state "bootstrap-init")
792 (set-memory pc-item-list-start 50) 789 (set-memory pc-item-list-start 50)
793 (set-memory-range 790 (set-memory-range
794 791 map-function-address-start
792 [0x8B 0xD5])
793 (set-memory-range
795 (inc pc-item-list-start) 794 (inc pc-item-list-start)
796 (flatten 795 (flatten
797 [ 796 [(repeat
798 (repeat
799 28 797 28
800 [0xFF 0x01]) 798 [0xFF 0x01])
801 [;; second part of item manipulation program 799 [;; second part of item manipulation program
802 0x00 ;; this starts at address 0xD56C 800 0x00 ;; this starts at address 0xD56C
803 0x2A ;; save (HL)=(target) to A, increment HL 801 0x2A ;; save (HL)=(target) to A, increment HL