anchor.diff:      (sei)                               ; Init CPU
       (cld)
       (poke 0 +ppu-cr1+)
  -    ;;(ldx (imm #xFF))
  -    ;;(txs)
  -    ;;(as/until :negative (bita (mem +ppu-status+))) ; PPU warmup
  -    ;;(as/until :negative (bita (mem +ppu-status+)))
       ;; Init sound hardware..
       (poke 0 #x4015)                     ; Silence all channels.
       (poke #x40 #x4017)                  ; IRQ off, 4-step.
  
positive.code:          ;; "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.
           (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
  
negative.code: 
      (align 256)
      (with-label music-start
        (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))))
  
  