1.1 --- a/clojure/com/aurellem/gb/rlm_assembly.clj	Thu Apr 12 10:20:38 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Thu Apr 12 12:08:36 2012 -0500
     1.3 @@ -184,9 +184,36 @@
     1.4                                  (read-user-input)))
     1.5  
     1.6          init
     1.7 -        [0xAF 0x4F] ;; 0->A; 0->C;
     1.8 +        [0xAF 0x5F] ;; 0->A; 0->E;
     1.9  
    1.10  
    1.11 +        header
    1.12 +        [0x47]  ;; A->B
    1.13 +
    1.14 +        mode-select
    1.15 +        [0xCB 0x43 ;; last-bit is zero
    1.16 +         0x28 :to-beginning
    1.17 +         0x5F];; A->E
    1.18 +
    1.19 +        input-section
    1.20 +        [0xCB 0x4B  ;; test bit 0 of E
    1.21 +         0x28 0x03  
    1.22 +
    1.23 +
    1.24 +         0x57 ;; A->D
    1.25 +         
    1.26 +         0x67 ;; A->H
    1.27 +         0x6F ;; A->L
    1.28 +         
    1.29 +         0x47 ;; A->B
    1.30 +         0x4F ;; A->C
    1.31 +         
    1.32 +         
    1.33 +
    1.34 +
    1.35 +         
    1.36 +        
    1.37 +         
    1.38          
    1.39          ;; HL = here
    1.40          ;; add C to HL