(make-instr 'MOV 'I 'direct -2 'indirect-B -2)
(make-instr 'JMP 'I 'immediate -2 'immediate 0)) 1))
-(define w (make-wish 640 480))
-(define colours '((imp . "red")
+(define palette '((imp . "red")
(dwarf . "blue")))
+(define w (make-wish 640 480 palette))
+
(define core (make-core (* 640 480) (make-instr 'DAT 'F 'immediate 0 'immediate 0)
(lambda (i n)
(set-wish-pixel w
(remainder i 640)
(quotient i 640)
- (cdr (assoc n colours))))))
+ (cdr (assoc n palette))))))
(define queues (install-progs core (list dwarf imp)))