Mercurial > vba-clojure

comparison clojure/com/aurellem/run/music.clj @ 465:34bf4b64d9d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove dead code.
author Robert McIntyre <rlm@mit.edu>
date Fri, 04 May 2012 03:55:00 -0500
parents 413c66186baa
children b31cd6651375
comparison
equal deleted inserted replaced
464:413c66186baa 465:34bf4b64d9d1
546 (-> (set-memory-range (second (music-base)) 546 (-> (set-memory-range (second (music-base))
547 program-target (music-kernel)) 547 program-target (music-kernel))
548 (set-memory-range music-target music-bytes) 548 (set-memory-range music-target music-bytes)
549 (PC! program-target)))) 549 (PC! program-target))))
550 550
551
552
553 ;; (defn test-note [music-bytes]
554 ;; (-> (set-memory-range (second (music-base))
555 ;; 0xC000 (concat (clear-music-registers)
556 ;; (play-note)
557 ;; (infinite-loop)))
558 ;; (set-memory-range 0xD000 music-bytes)
559 ;; (PC! 0xC000)
560 ;; (HL! 0xD000)
561 ;; ))
562
563
564 (defn run-program 551 (defn run-program
565 ([program] 552 ([program]
566 (let [target 0xC000] 553 (let [target 0xC000]
567 (-> (set-memory-range (second (music-base)) 554 (-> (set-memory-range (second (music-base))
568 target program) 555 target program)