# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1334165790 18000
# Node ID 4d276742326614ea33030023b67dbf555eeb9afb
# Parent  f86bd04bd9fc4f424140163c9f07174eebbde0ce
leave HL unmolested

diff -r f86bd04bd9fc -r 4d2767423266 clojure/com/aurellem/gb/rlm_assembly.clj
--- a/clojure/com/aurellem/gb/rlm_assembly.clj	Wed Apr 11 12:35:31 2012 -0500
+++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Wed Apr 11 12:36:30 2012 -0500
@@ -67,16 +67,15 @@
   (let [init [0x06 155] ;; init B to out of LY range
         timing-loop
         [0x47    ;; A->B
+         0x16 
+         0xFE    ;; load FF into D without repeats
+         0x14
          
-         0x26 
-         0xFE    ;; load FF into H without repeats
-         0x24
-         
-         0x2E
-         0x43    ;; load 44 into L without repeats
-         0x2C
+         0x1E
+         0x43    ;; load 44 into E without repeats
+         0x1C
 
-         0x7E]   ;; (HL) -> A, now A = LY (vertical line coord)
+         0x1A]   ;; (DE) -> A, now A = LY (vertical line coord)
         continue-if-different
         [0xB8    ;; compare A with B
          0x28