diff clojure/com/aurellem/gb/rlm_assembly.clj @ 383:9eae7e914bf0

saving progress.
author Robert McIntyre <rlm@mit.edu>
date Wed, 11 Apr 2012 13:39:53 -0500
parents 3c24216e0080
children 8013915a07b3
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/rlm_assembly.clj	Wed Apr 11 13:17:08 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Wed Apr 11 13:39:53 2012 -0500
     1.3 @@ -63,20 +63,13 @@
     1.4    (if (< n 0)
     1.5      (+ 256 n) n))
     1.6  
     1.7 -0x01
     1.8 -0x44
     1.9 -0xFF
    1.10 -inc C
    1.11 -inc D
    1.12 -
    1.13  (defn frame-metronome []
    1.14    (let [timing-loop
    1.15 -        [0x01
    1.16 -         0x43
    1.17 -         0xFE  ;; load 0xFF44 into BC without repeats
    1.18 -         0x0C
    1.19 -         0x04
    1.20 -         
    1.21 +        [0x01 ; \
    1.22 +         0x43 ; |
    1.23 +         0xFE ; |  load 0xFF44 into BC without repeats
    1.24 +         0x0C ; |
    1.25 +         0x04 ; /
    1.26           0x0A]   ;; (BC) -> A, now A = LY (vertical line coord)
    1.27          continue-if-144
    1.28          [0xFE
    1.29 @@ -90,7 +83,6 @@
    1.30           0xFD]]
    1.31      (concat timing-loop continue-if-144 spin-loop)))
    1.32  
    1.33 -
    1.34  (defn test-frame-metronome
    1.35    "Ensure that frame-metronome ticks exactly once every frame."
    1.36    ([] (test-frame-metronome 151))