# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1331935385 18000
# Node ID e45031af53272610cad851d966182cb8e6fc4bc2
# Parent  39fb0cbab25e89e5f8523bac2bb04c281aff3467
functional number-input bootstrap code complete

diff -r 39fb0cbab25e -r e45031af5327 clojure/com/aurellem/assembly.clj
--- a/clojure/com/aurellem/assembly.clj	Fri Mar 16 16:52:29 2012 -0500
+++ b/clojure/com/aurellem/assembly.clj	Fri Mar 16 17:03:05 2012 -0500
@@ -277,8 +277,8 @@
 ;;   program will write.
 ;;   This is done by using each of the eight buttons to
 ;;   spell out an 8 bit number.  The order of buttons is
-;;   ["A" "B" "start" "select" "up" "right" "down" "left"],
-;;   [:a :start :l]  -->  10100001
+;;   [:d :u :l :r :start :select :b :a]
+;;   [:a :start :l]  -->  00101001
 
 ;;   the next button press determines how many bytes are to be
 ;;   written, starting at the start position.
@@ -393,7 +393,7 @@
 
         0x06   ;D359
                ;D35A
-        (Integer/parseInt "11110000")   ; "11110000" -> B 
+        (Integer/parseInt "11110000" 2) ; "11110000" -> B 
         0xFA   ;D35B                    ; (FF00) -> A
         0x00   ;D35C                   
         0xFF   ;D35D
@@ -414,7 +414,7 @@
         0xFF   ;          -->  FF00     
 
         0x0E   ;    
-        (Integer/parseInt "00001111")   ; "00001111" -> C 
+        (Integer/parseInt "00001111" 2) ; "00001111" -> C 
 
         0xFA   ;                        ; (FF00) -> A
         0x00   ;