# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1334169593 18000
# Node ID 9eae7e914bf05d1c270651b723ef611da952f861
# Parent  3c24216e008016eb3a3d83df461c41c1a0e592b7
saving progress.

diff -r 3c24216e0080 -r 9eae7e914bf0 clojure/com/aurellem/gb/rlm_assembly.clj
--- a/clojure/com/aurellem/gb/rlm_assembly.clj	Wed Apr 11 13:17:08 2012 -0500
+++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Wed Apr 11 13:39:53 2012 -0500
@@ -63,20 +63,13 @@
   (if (< n 0)
     (+ 256 n) n))
 
-0x01
-0x44
-0xFF
-inc C
-inc D
-
 (defn frame-metronome []
   (let [timing-loop
-        [0x01
-         0x43
-         0xFE  ;; load 0xFF44 into BC without repeats
-         0x0C
-         0x04
-         
+        [0x01 ; \
+         0x43 ; |
+         0xFE ; |  load 0xFF44 into BC without repeats
+         0x0C ; |
+         0x04 ; /
          0x0A]   ;; (BC) -> A, now A = LY (vertical line coord)
         continue-if-144
         [0xFE
@@ -90,7 +83,6 @@
          0xFD]]
     (concat timing-loop continue-if-144 spin-loop)))
 
-
 (defn test-frame-metronome
   "Ensure that frame-metronome ticks exactly once every frame."
   ([] (test-frame-metronome 151))