diff clojure/com/aurellem/gb/rlm_assembly.clj @ 380:4d2767423266

leave HL unmolested
author Robert McIntyre <rlm@mit.edu>
date Wed, 11 Apr 2012 12:36:30 -0500
parents f86bd04bd9fc
children 1bfa43d35403
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/rlm_assembly.clj	Wed Apr 11 12:35:31 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Wed Apr 11 12:36:30 2012 -0500
     1.3 @@ -67,16 +67,15 @@
     1.4    (let [init [0x06 155] ;; init B to out of LY range
     1.5          timing-loop
     1.6          [0x47    ;; A->B
     1.7 +         0x16 
     1.8 +         0xFE    ;; load FF into D without repeats
     1.9 +         0x14
    1.10           
    1.11 -         0x26 
    1.12 -         0xFE    ;; load FF into H without repeats
    1.13 -         0x24
    1.14 -         
    1.15 -         0x2E
    1.16 -         0x43    ;; load 44 into L without repeats
    1.17 -         0x2C
    1.18 +         0x1E
    1.19 +         0x43    ;; load 44 into E without repeats
    1.20 +         0x1C
    1.21  
    1.22 -         0x7E]   ;; (HL) -> A, now A = LY (vertical line coord)
    1.23 +         0x1A]   ;; (DE) -> A, now A = LY (vertical line coord)
    1.24          continue-if-different
    1.25          [0xB8    ;; compare A with B
    1.26           0x28