anchor.diff:    (0 8 #x10 0)
     (8 8 #x11 0))
   
  +(defsprite (sage f 1)
  +  (0 0 #x00 1)
  +  (8 0 #x01 1)
  +  (8 8 #x10 0 :fliph)
  +  (0 8 #x11 0 :fliph))
  +
   (defsprite (wiz f 0)
     (0 0 #x02 0)
     (8 0 #x03 0)
  
positive.code: 
    ;; Init sound hardware
    (poke 0 #x4015)                     ; Silence all channels
    (poke #x40 #x4017)                  ; Disable IRQ !!
  
    (as/until :negative (bita (mem +ppu-status+))) ; PPU warmup interval
    (as/until :negative (bita (mem +ppu-status+))) ; (two frames)
  
    (poke 0 vblank-flag)
    (poke #b10001000 +ppu-cr1+)         ; Enable NMI
  
    ;; Palette init
    (jsr 'wait-for-vblank)
    (jsr 'wait-for-vblank)
    (jsr 'wait-for-vblank)
    (ppuaddr #x3F00)
    (let ((bg #x1B))
  
negative.code: (procedure vblank-handler
    (php)
    (inc vblank-flag)
    (inc *frame-counter*)
    (plp)
    (rti))
  
  