anchor.diff:          (generate-nsf-preview ,name #',asm-fn-name :filename filename)))))
   
   (defun emit-fixed-cycle-player (context var-base)
  -  "Emit fixed-cycle player routine. Requires VAR-BASE specifies 6 bytes of adjacent zeropage storage."
  +  "Emit fixed-cycle player routine. Requires VAR-BASE specifies 8 bytes of adjacent zeropage storage."
     (check-type var-base (integer 0 250))
     (let* ((*context* context)
            ;; Music player vars
  
positive.code:       (asif :zero
          (inc mptr-msb))
  
        ;; FIXME: Don't use these labels here.. that's cheating..
        (lda mptr-lsb)
        (cmp (imm (lsb (label :seq-end))))
        (asif :equal
          (lda mptr-msb)
          (cmp (imm (msb (label :seq-end))))
          (asif :equal
            (when t ;;break-at-end
              (brk)
               (db #xF1)
               (rts))
            (pokeword (label :seq-start) mptr)))
  
        (rts))
  
  
negative.code:       (sta (zp (1+ mfr-addr)))
        (pla)
        (sta mptr-lsb)
        (sta (zp startptr))
        (pla)
        (sta mptr-msb)
        (sta (zp (1+ startptr)))
        (pla)
        (sta (zp endptr))
        (pla)
  