# HG changeset patch # User Robert McIntyre # Date 1333164908 18000 # Node ID 528dc923d4c5f0fdfb078a21b90142737f5abd38 # Parent 659a9c84c785bc3140dab975e52b1ef95808109e mapping out characters-as-items to avoid corrupt items. diff -r 659a9c84c785 -r 528dc923d4c5 clojure/com/aurellem/exp/notes.txt --- a/clojure/com/aurellem/exp/notes.txt Fri Mar 30 18:41:39 2012 -0500 +++ b/clojure/com/aurellem/exp/notes.txt Fri Mar 30 22:35:08 2012 -0500 @@ -117,3 +117,40 @@ 0xD31D - 0xD41B --OR-- 0xD53A - 0XD59C + + + +valid character-items: + + 0x7F " " ;space [x] + 0x80 "A" ; [x] + 0x81 "B" ; [x] + 0x82 "C" ; [x] + 0x83 "D" ; [x] + 0x84 "E" ; [x] + 0x85 "F" ; [x] + 0x86 "G" ; [x] + 0x87 "H" ; [x] + 0x88 "I" ; [x] + 0x89 "J" ; [x] + 0x8A "K" ; [x] + 0x8B "L" ; [good] + 0x8C "M" ; [x] + 0x8D "N" ; [x] + --- last valid character for program start + 0x8E "O" ; [ ] + 0x8F "P" ; [ ] + 0x90 "Q" ; [ ] + 0x91 "R" ; [ ] + 0x92 "S" ; [ ] + 0x93 "T" ; [ ] + 0x94 "U" ; [ ] + 0x95 "V" ; [ ] + 0x96 "W" ; [ ] + 0x97 "X" ; [ ] + 0x98 "Y" ; [ ] + 0x99 "Z" ; [ ] + 0x9A "(" ; [ ] + 0x9B ")" ; [ ] + 0x9C ":" ; [ ] + --- last valid character for target diff -r 659a9c84c785 -r 528dc923d4c5 clojure/com/aurellem/run/bootstrap_0.clj --- a/clojure/com/aurellem/run/bootstrap_0.clj Fri Mar 30 18:41:39 2012 -0500 +++ b/clojure/com/aurellem/run/bootstrap_0.clj Fri Mar 30 22:35:08 2012 -0500 @@ -763,7 +763,10 @@ (->> script (multiple-times 33 deposit-one-item) (do-nothing 1)))) - + +(defn bootstrap-init [] + [(read-moves "bootstrap-init") + (read-state "bootstrap-init")]) (defn create-bootstrap-program ([] (create-bootstrap-program @@ -780,4 +783,4 @@ (do-nothing 1)))) - \ No newline at end of file + diff -r 659a9c84c785 -r 528dc923d4c5 moves/bootstrap-init.vbm Binary file moves/bootstrap-init.vbm has changed diff -r 659a9c84c785 -r 528dc923d4c5 save-states/bootstrap-init.sav Binary file save-states/bootstrap-init.sav has changed