anchor.diff:      (cond ((and (consp port)
                   (eql (first port) 'quote)
                   (<= 0 (second port) 255))
  -           (smash-r8)
              (setf *load-list* (delete port *load-list*))
              (emit `(sys.lap-x86:out32 ,(second port))))
             (t (let ((type-error-label (gensym)))
  
positive.code:     (cond ((and (consp port)
                  (eql (first port) 'quote)
                  (<= 0 (second port) 255))
             (smash-r8)
             (setf *load-list* (delete port *load-list*))
             (emit `(sys.lap-x86:out16 ,(second port))))
            (t (let ((type-error-label (gensym)))
  
negative.code:     (cond ((and (consp port)
                  (eql (first port) 'quote)
                  (<= 0 (second port) 255))
             (setf *load-list* (delete port *load-list*))
             (emit `(sys.lap-x86:out8 ,(second port))))
            (t (let ((type-error-label (gensym)))
  