- (colors '("red" "blue" "green" "magenta" "cyan"))
- (color-map (make-color-map progs colors))
- (vis (make-vis 640 480 core-size color-map))
- (core (make-core 8000 (make-instr 'DAT 'F 'immediate 0 'immediate 0)
- (lambda (i n)
- (vis 'update-owner i n))))
- (queues (run-mars core (install-progs core progs) iters)))
- (for-each (lambda (q)
- (print "Final queue for " (queue-owner q) ":")
- (dump-queue q core)
- (print))
- queues)
- (print* "Press enter to finish...")
- (read-line)))
-
+ (core (if visualization
+ (let* ((colors '("red" "blue" "green" "magenta" "cyan"))
+ (color-map (make-color-map progs colors))
+ (vis (make-vis 640 480 core-size color-map)))
+ (make-core core-size (lambda (i n)
+ (vis 'update-owner i n))))
+ (make-core core-size)))
+ (queues (run-mars core (install-progs core progs) iters min-queue-count)))
+ (dump-queues queues core)
+ (when visualization
+ (print* "Press enter to finish...")
+ (read-line))))