changeset 109:c8b48102b17c

saving progress
author Robert McIntyre <rlm@mit.edu>
date Thu, 15 Mar 2012 14:32:10 -0500
parents d3c0b990e163
children f9dee79b2215
files clojure/com/aurellem/assembly.clj
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/assembly.clj	Thu Mar 15 03:40:40 2012 -0500
     1.2 +++ b/clojure/com/aurellem/assembly.clj	Thu Mar 15 14:32:10 2012 -0500
     1.3 @@ -78,7 +78,7 @@
     1.4  (defn read-buttons []
     1.5    (let [button-pressed (tick (step (mid-game) [:d]))]
     1.6      (-> button-pressed
     1.7 -        (IE! 0)
     1.8 +        (IE! 0) ; disable interrupts
     1.9          (inject-item-assembly
    1.10           (concat
    1.11            ;; write 00010000 to 0xFF00 to select joypad
    1.12 @@ -92,7 +92,7 @@
    1.13             0x01   ;D324                 ; load 0xFF00 into BC
    1.14             0x00   ;D325
    1.15             0xFF   ;D326
    1.16 -           0x02   ;D327                 ; load (00010000) into FF00
    1.17 +           0x02   ;D327    (BC)->A      ; load (00010000) into FF00
    1.18                                          ; to select directional
    1.19                                          ; buttons
    1.20