# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1331923877 18000
# Node ID a454730d92ddd7cac4f138885392c96dcb194e67
# Parent  0831da75d2c5fe1bfad293fdec5d2a8db975e8a0
added test for count-frames

diff -r 0831da75d2c5 -r a454730d92dd clojure/com/aurellem/assembly.clj
--- a/clojure/com/aurellem/assembly.clj	Fri Mar 16 00:43:28 2012 -0500
+++ b/clojure/com/aurellem/assembly.clj	Fri Mar 16 13:51:17 2012 -0500
@@ -178,7 +178,7 @@
         0x43   ;D32C                     ; GOTO not-v-blank
         0xD3   ;D32D
         
-        ;; in v-blank mode
+        ;;; in v-blank mode
 
            ;; if v-blank-prev was 0,
            ;; increment frame-count
@@ -204,7 +204,7 @@
         0x1F   ;D33A
         0xD3   ;D33B
 
-           ;; set v-blank? to 1
+           ;; set v-blank-prev to 1
         0x3E   ;D33C                    ; load 1 into A
         0x01   ;D33D                    
 
@@ -215,8 +215,8 @@
         0x18   ;D341                    ; skip not-in-v-blank section
         0x05   ;D342
 
-        ;; not in v-blank mode
-           ;; set b-blank? to 0
+        ;;; not in v-blank mode
+           ;; set v-blank-prev to 0
         0x3E   ;D343                    ; load 0 into A        
         0x00   ;D344
 
@@ -228,15 +228,9 @@
         0xC3   ;D348                   ; return to beginning
         0x1D   ;D349
         0xD3   ;D34A
- 
-        
-        
         ])))
 
-
-
-
-(defn run-a-bit []
+(defn step-count-frames []
   (-> (read-down-button)
       (info)
       (tick)  ;; skip over data section
@@ -262,7 +256,7 @@
       (tick)
       (print-inventory)))
 
-(defn test-read-pad []
+(defn test-read-down []
   (= (view-memory (step (step (read-buttons) [:d])) 0xD328)
      (view-memory (step (step (read-buttons))) 0xD328)))
   
@@ -286,3 +280,12 @@
       (set-inv-mem [0x00 0x00 0X00 0x00])
       (PC! item-list-start)(print-interrupt)
       (info) (tick) (info) (tick) (info)))
+
+
+
+
+
+
+
+
+