anchor.diff:  
     ;; Write .NES file
     (write-ines "/tmp/music.nes" (link *context*)))
  -
  -
  -;;;; Old shit:
  -
  -#+NIL
  -    (with-label main-loop
  -
  -      (brk) (db 1)
  -
  -
  -      (poke #x08 #x4008)
  -
  -      (dotimes (i 4)
  -        (poke #b10001111 #x4000)
  -        (pr 0 #b00101 220.0)
  -        (pr 2 0 110.0)
  -        (wait 3)
  -        (poke #b10001111 #x4000)
  -        (pr 0 #b00101 440.0)
  -        (pr 2 0 220.0)
  -        (wait 1))
  -
  -      (dotimes (i 4)
  -        (poke #b10001111 #x4000)
  -        (pr 0 #b00101 294.0)
  -        (pr 2 0 147.0)
  -        (wait 3)
  -        (poke #b11001111 #x4000)
  -        (pr 0 #b00101 (* 3/2 294.0))
  -        (pr 2 0 73.0)
  -        (wait 1))
  -
  -      (wait 30)
  -
  -
  -
  -#+NIL
  -      (loop for interval in '(1/1 4/3 3/2 9/5)
  -            as freq = (* 440 interval)
  -            as detune = (* freq 1.05)
  -            do
  -
  -            (poke #b10101000 #x4000)
  -            (poke 0 #x4001)
  -            (let* ( (fbits (round (/ +ntsc-clock-rate+ 8 freq)))
  -                   (lbits #b11000)
  -                    (a (ldb (byte 8 0) fbits))
  -                    (b (logior (ldb (byte 3 8) fbits)
  -                               (ash lbits 3))))
  -              (poke a #x4002)
  -              (poke b #x4003))
  -
  -            (poke #b10001000 #x4004)
  -            (poke 0 #x4005)
  -            (let* ((fbits (round (/ +ntsc-clock-rate+ 8 (+ detune freq))))
  -                   (lbits #b11000)
  -                    (a (ldb (byte 8 0) fbits))
  -                    (b (logior (ldb (byte 3 8) fbits)
  -                               (ash lbits 3))))
  -              (poke a #x4006)
  -              (poke b #x4007))
  -
  -            (ldx (imm 2))
  -            (as/until :zero (jsr 'wait) (dex)))
  -
  -      (jmp (mem 'main-loop)))
positive.code:     (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..
  
  
negative.code:     (align 16)
  
      (song
       (seq
        ;; Smooth section
        (seq
         (para
          (phrase-aaab
           (intro-beat)
           (intro-fill-1))
          (seq
  