anchor.diff:                        (< *pass* 3))
                      nil
                 (format t "Pass ~A…~%" *pass*)
  +              (format dump ";~%; Pass ~A~%;~%" *pass*)
                 (= *label-changed?* nil)
                 (assemble-pass-to-file out-name parsed)
                 (++! *pass*)))))))
  
positive.code:     (while (< (stream-location-column (stream-output-location o)) 26)
             nil
         (princ " " o))
      (princ line o)))
  
  (defun assemble-and-dump (out x)
    (= *cycles* nil)
  
negative.code:       (assemble o x)
        (let bytes (get-stream-string o)
          (when (length bytes)
            (assemble-dump-line pc bytes)
            (princ bytes out))))))
  
  (defun assemble-parsed-expressions (out x)
  