anchor.diff:           (mptr (+ var-base 2))                       ; Playback pointer
            (mptr-msb  (zp (1+ mptr)))
            (mptr-lsb  (zp mptr))
  -         (endptr (+ var-base 4)))
  +         (endptr (+ var-base 4))
  +         (startptr (+ var-base 6)))
   
       (procedure player-load
         (pla)
  
positive.code:       (sta (zp (1+ mfr-addr)))
        (pla)
        (sta mptr-lsb)
        (pla)
        (sta mptr-msb)
        (pla)
        (sta (zp endptr))
        (pla)
  
negative.code:         (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 8 bytes of adjacent zeropage storage."
    (check-type var-base (integer 0 250))
    (let* ((*context* context)
           ;; Music player vars
  