# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1334250516 18000
# Node ID bb8978d370d818cd663caf276833913c42c6e59c
# Parent  a0d0e1a46b1d49a4bb22439ea6ac46ce3a004e52
saving progress.

diff -r a0d0e1a46b1d -r bb8978d370d8 clojure/com/aurellem/gb/rlm_assembly.clj
--- a/clojure/com/aurellem/gb/rlm_assembly.clj	Thu Apr 12 10:20:38 2012 -0500
+++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Thu Apr 12 12:08:36 2012 -0500
@@ -184,9 +184,36 @@
                                 (read-user-input)))
 
         init
-        [0xAF 0x4F] ;; 0->A; 0->C;
+        [0xAF 0x5F] ;; 0->A; 0->E;
 
 
+        header
+        [0x47]  ;; A->B
+
+        mode-select
+        [0xCB 0x43 ;; last-bit is zero
+         0x28 :to-beginning
+         0x5F];; A->E
+
+        input-section
+        [0xCB 0x4B  ;; test bit 0 of E
+         0x28 0x03  
+
+
+         0x57 ;; A->D
+         
+         0x67 ;; A->H
+         0x6F ;; A->L
+         
+         0x47 ;; A->B
+         0x4F ;; A->C
+         
+         
+
+
+         
+        
+         
         
         ;; HL = here
         ;; add C to HL