anchor.diff:      (jsr 'framestep)
       (ldx (imm 63))
       (as/until :negative
  -      (inc (abx table-x))
  -      (inc (abx table-y))
  -      (dex))
  +      (print
  +       (counting-cycles
  +        (inc (abx table-x))
  +        (inc (abx table-y))
  +        (dotimes (i 7) (nop))
  +        (dex))))
       (rts))
   
     (procedure spin-apart
       (jsr 'framestep)
       (ldx (imm 63))
       (as/until :negative
  -      (inc (abx table-x))
  -      (txa)
  -      (anda (imm 1))
  -      (clc)
  -      (adc (abx table-x))
  -      (sta (abx table-x))
  -      (dex))
  +      (print
  +       (counting-cycles
  +        (inc (abx table-x))
  +        (txa)
  +        (anda (imm 1))
  +        (clc)
  +        (adc (abx table-x))
  +        (sta (abx table-x))
  +        (dotimes (i 3) (nop))
  +        (dex))))
       (rts))
   
     (procedure split-by-4
       (jsr 'framestep)
       (ldx (imm 63))
       (as/until :negative
  -      (inc (abx table-y))
  -      (txa)
  -      (anda (imm 16))
  -      (lsr)
  -      (lsr)
  -      (lsr)
  -      (clc)
  -      (adc (abx table-x))
  -      (sta (abx table-x))
  -      (dex))
  -    (rts))
  -
  +      (print
  +       (counting-cycles
  +         (inc (abx table-y))
  +         (txa)
  +         (anda (imm 16))
  +         (lsr)
  +         (lsr)
  +         (lsr)
  +         (clc)
  +         (adc (abx table-x))
  +         (sta (abx table-x))
  +         (dex))))
  +    (rts))
  +
  +  (procedure wait-for-vblank
  +    (as/until :not-zero (lda vblank-flag))
  +    (lda (imm 0))
  +    (sta vblank-flag)
  +    (rts))
  +
  +  (procedure brk-handler (rti))
  +
  +  (procedure vblank-handler
  +    (inc vblank-flag)
  +    (rti))
  +
  +  (align 256)
     (procedure update-sprites
  -    (brk) (db 1)
       (ldx (imm 63))
       (as/until :negative
         (ldy (abx table-x))               ; Push sin[table_x[X]]
  
positive.code: 
  (let* ((global (make-instance 'basic-context :address #x8000))
         (*context* global)
         ;; Music:
         (music (binary-file (merge-pathnames "noisejam.nsf" *path*)))
         (music-init (mem #x8080))        ; Hardcoding these..
  
negative.code:        (table-x      #x0200)
         (table-y      #x0240)
         (countdown   (zp #x58))
         (wave        (zp #x59))
         (wt-lsb      (zp #x60))
         (wt-msb      (zp #x61))
         (wt-get      (indi #x60))
         (fill-count  (zp #x91))
         (scroll-x    (zp #x92))
         (phase       (zp #x93))
         (ntaddr      (zp #x95))
         (top-ntaddr  (zp #x97))
         (vblank-flag (zp #x96)))         ; Set by NMI handler.
  
    (emit music)
  