Mercurial > vba-clojure

comparison 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
comparison
equal deleted inserted replaced
301:1de6aada1cb7 302:0b3e89103dc2
782 782
783 783
784 (do-nothing 1)))) 784 (do-nothing 1))))
785 785
786 786
787
788 (defn test-pc-item-program []
789 (-> (read-state "bootstrap-init")
790 (set-memory pc-item-list-start 50)
791 (set-memory-range
792
793 (inc pc-item-list-start)
794 (flatten
795 [
796 (repeat
797 25
798 [0xFF 0x01])
799 [0x00 ;; second part of item manipulation program
800 0x2A
801
802 0x00
803 0x47
804
805 0x00
806 0x3A
807
808 0x00
809 0x22
810
811 0x00
812 0X70
813
814 0x00
815 0xC3
816
817 0x0C
818 0x5F]
819 (repeat
820 8
821 [0xFF 0x01])
822
823 [0x00
824 0x21
825
826 0x93
827 0xD5
828
829 0x00
830 0x18
831
832 0xE1
833 0x01
834
835 0xFF
836 0x01
837
838 0x04 ;; target ID
839 0x3E ;; target Quantity
840 ]]))))