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:          (mptr (+ var-base 2))                       ; Playback pointer
           (mptr-msb  (zp (1+ mptr)))
           (mptr-lsb  (zp mptr))
           (endptr (+ var-base 4)))
  
      (procedure player-load
        (pla)
  
negative.code:       (asif :zero
          (inc mptr-msb))
  
        (lda mptr-lsb)
        (cmp (zp endptr))
        (asif :equal
          (lda mptr-msb)
          (cmp (zp (1+ endptr)))
          (asif :equal
            (when t ;;break-at-end, FIXME/TODO
              (brk)
               (db #xF1)
               (rts))
            (poke (zp startptr) mptr-lsb)
            (poke (zp (1+ startptr)) mptr-msb)))
  
        (rts))
  
  