Mercurial > vba-clojure

comparison clojure/com/aurellem/run/image.clj @ 540:7f8030812ac2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow path back to bootstrap program from image-kernel.
author Robert McIntyre <rlm@mit.edu>
date Mon, 25 Jun 2012 15:08:52 -0500
parents 5596cd4a3fc6
children
comparison
equal deleted inserted replaced
539:a64485223afa 540:7f8030812ac2
662 "0" ;; BG-1 or BG-2 ? 662 "0" ;; BG-1 or BG-2 ?
663 "0" ;; OBJ-block composition 663 "0" ;; OBJ-block composition
664 "0" ;; OBJ-on flag 664 "0" ;; OBJ-on flag
665 "1") ;; no-effect 665 "1") ;; no-effect
666 2)) 666 2))
667 667 ]
668 (infinite-loop)] 668
669 D (flatten D)] 669 D (flatten D)]
670 670
671 (concat A B C D))) 671 (concat A B C D)))
672 672
673 (defn display-image [#^BufferedImage image] 673 (defn display-image [#^BufferedImage image]
674 (let [kernel-address 0xB500] 674 (let [kernel-address 0xB500]
675 (-> (tick (tick (tick (mid-game)))) 675 (-> (tick (tick (tick (mid-game))))
676 (set-memory-range 676 (set-memory-range
677 kernel-address 677 kernel-address
678 (display-image-kernel kernel-address image)) 678 (concat (display-image-kernel kernel-address image)
679 (infinite-loop)))
679 (PC! kernel-address)))) 680 (PC! kernel-address))))
680 681