Mercurial > vba-clojure

changeset 297:528dc923d4c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mapping out characters-as-items to avoid corrupt items.
author Robert McIntyre <rlm@mit.edu>
date Fri, 30 Mar 2012 22:35:08 -0500
parents 659a9c84c785
children 95afeea88c3a
files clojure/com/aurellem/exp/notes.txt clojure/com/aurellem/run/bootstrap_0.clj moves/bootstrap-init.vbm save-states/bootstrap-init.sav
diffstat 4 files changed, 42 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/exp/notes.txt	Fri Mar 30 18:41:39 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/notes.txt	Fri Mar 30 22:35:08 2012 -0500
     1.3 @@ -117,3 +117,40 @@
     1.4  0xD31D - 0xD41B
     1.5       --OR--
     1.6  0xD53A - 0XD59C
     1.7 +
     1.8 +
     1.9 +
    1.10 +valid character-items:
    1.11 +
    1.12 +   0x7F   " " ;space     [x]
    1.13 +   0x80   "A" ;          [x]
    1.14 +   0x81   "B" ;          [x]
    1.15 +   0x82   "C" ;          [x]
    1.16 +   0x83   "D" ;          [x]
    1.17 +   0x84   "E" ;          [x]
    1.18 +   0x85   "F" ;          [x]
    1.19 +   0x86   "G" ;          [x]
    1.20 +   0x87   "H" ;          [x]
    1.21 +   0x88   "I" ;          [x]
    1.22 +   0x89   "J" ;          [x]
    1.23 +   0x8A   "K" ;          [x]
    1.24 +   0x8B   "L" ;          [good]
    1.25 +   0x8C   "M" ;          [x]
    1.26 +   0x8D   "N" ;          [x] 
    1.27 +    --- last valid character for program start
    1.28 +   0x8E   "O" ;          [ ] 
    1.29 +   0x8F   "P" ;          [ ] 
    1.30 +   0x90   "Q" ;          [ ] 
    1.31 +   0x91   "R" ;          [ ]
    1.32 +   0x92   "S" ;          [ ]
    1.33 +   0x93   "T" ;          [ ]
    1.34 +   0x94   "U" ;          [ ]
    1.35 +   0x95   "V" ;          [ ]
    1.36 +   0x96   "W" ;          [ ]
    1.37 +   0x97   "X" ;          [ ]
    1.38 +   0x98   "Y" ;          [ ]
    1.39 +   0x99   "Z" ;          [ ]
    1.40 +   0x9A   "(" ;          [ ]
    1.41 +   0x9B   ")" ;          [ ]
    1.42 +   0x9C   ":" ;          [ ]
    1.43 +    --- last valid character for target

     2.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Fri Mar 30 18:41:39 2012 -0500
     2.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Fri Mar 30 22:35:08 2012 -0500
     2.3 @@ -763,7 +763,10 @@
     2.4       (->> script
     2.5            (multiple-times 33 deposit-one-item)
     2.6            (do-nothing 1))))
     2.7 -  
     2.8 +
     2.9 +(defn bootstrap-init []
    2.10 +  [(read-moves "bootstrap-init")
    2.11 +   (read-state "bootstrap-init")])
    2.12  
    2.13  (defn create-bootstrap-program
    2.14    ([] (create-bootstrap-program
    2.15 @@ -780,4 +783,4 @@
    2.16  
    2.17            (do-nothing 1))))
    2.18      
    2.19 -       
    2.20 \ No newline at end of file
    2.21 +

     3.1 Binary file moves/bootstrap-init.vbm has changed

     4.1 Binary file save-states/bootstrap-init.sav has changed