diff clojure/com/aurellem/gb/rlm_assembly.clj @ 389:bb8978d370d8

saving progress.
author Robert McIntyre <rlm@mit.edu>
date Thu, 12 Apr 2012 12:08:36 -0500
parents a0d0e1a46b1d
children dbf7b5a2e9e7
line wrap: on
line diff
     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