anchor.diff:           ;; "infinite modulation" by slowly sliding the tuning
            ;; downward through the course of the music loop via some
            ;; clever abuse of the delay/force mechanism.. but it turns
  -         ;; out there's not enough nearly enough space in the ROM to
  -         ;; make it feasible without a much more sophisticated player
  -         ;; routine. Darn.
  +         ;; out there's not enough quite enough space in the ROM to do
  +         ;; it well without a more sophisticated player routine. Darn.
            (loop with initial-tuning = (* 261.0 (expt 2 1/12))
  -               ;; For fun, uncomment scaling of final tuning..
                  with final-tuning = (* initial-tuning #+NIL (expt 2 1/12))
                  with length = (length frames)
                  with asm6502::*memoize-promises* = nil
  
positive.code: 
      (align 256)
      (with-label music-start
        ;;(assert (= (length music-sequence) (* 128 (expt 2 log2-song-length)))) ; FIXME
        (unless (= (length music-sequence) (* 128 (expt 2 log2-song-length)))
          (error "Song length is ~:D, should be ~:D" (length music-sequence) (* 128 (expt 2 log2-song-length))))
        (print (list :num-unique  (length (remove-duplicates music-sequence))))
        (mapcar #'dw (reverse music-sequence))))
  
  
negative.code:     (sei)                               ; Init CPU
      (cld)
      (poke 0 +ppu-cr1+)
      ;; Init sound hardware..
      (poke 0 #x4015)                     ; Silence all channels.
      (poke #x40 #x4017)                  ; IRQ off, 4-step.
  