Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/util.clj @ 247:22f58fa47c3c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
starting work on unoptimized bootstrap script.
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Mar 2012 03:08:54 -0500
parents fe26776e1a58
children 69184558fcf3
comparison
equal deleted inserted replaced
244:27ca947084cf 247:22f58fa47c3c
45 45
46 (defn print-listing 46 (defn print-listing
47 ([^SaveState state begin end] 47 ([^SaveState state begin end]
48 (dorun (map 48 (dorun (map
49 (fn [opcode line] 49 (fn [opcode line]
50 (println (format "0x%04X: 0x%02X" line opcode))) 50 (println (format "0x%04X: 0x%02X %s %d"
51 line
52 opcode (binary-str opcode)
53 opcode)))
51 (subvec (vec (memory state)) begin end) 54 (subvec (vec (memory state)) begin end)
52 (range begin end))) 55 (range begin end)))
53 state) 56 state)
54 ([begin end] 57 ([begin end]
55 (print-listing @current-state begin end))) 58 (print-listing @current-state begin end)))