anchor.diff:      (case byte
         ((#.+UC0+ #.+UC1+ #.+UC2+ #.+UC3+ #.+UC4+ #.+UC5+ #.+UC6+ #.+UC7+) ; Change to Window
          (when *scsu-state-trace*
  -	 (format *debug-io* "UC~D " (find-UCn-window byte)))
  +	 (format *trace-output* "UC~D " (find-UCn-window byte)))
          (scsu-change-to-window state (find-UCn-window byte))
          (setf (scsu-state-mode state) :single-byte-mode)
          (decode-unit* state read-func))
         ((#.+UD0+ #.+UD1+ #.+UD2+ #.+UD3+ #.+UD4+ #.+UD5+ #.+UD6+ #.+UD7+) ; Define Window
          (when *scsu-state-trace*
  -	 (format *debug-io* "UD~D " (find-UDn-window byte)))
  +	 (format *trace-output* "UD~D " (find-UDn-window byte)))
          (scsu-define-window state
   			   (find-UDn-window byte)
   			   (lookup-window-offset-table (funcall read-func)))
  
positive.code: 		(scsu-state-update-timestamp state window)
  		(cond ((<= #x0 next-byte #x7f)
  		       (when *scsu-state-trace*
  			 (format *debug-io* "[single quote static ~X]" next-byte))
  		       (+ (lookup-static-window window) next-byte))
  		      (t
  		       (when *scsu-state-trace*
  			 (format *debug-io* "[single quote dynamic ~X]" next-byte))
  		       (+ (lookup-dynamic-window state window)
  			  (logand next-byte #x7f))))))
  	     (#.+SDX+			; Define Extended
  	      (when *scsu-state-trace*
  		(format *debug-io* "SDX "))
  	      (decode-define-window-extended state read-func)
  	      (decode-unit* state read-func))
  	     (#xC
  
negative.code: 	   (ecase byte
  	     ((#x0 #x9 #xA #xD)		; pass
  	      (when *scsu-state-trace*
  		(format *trace-output* "[single-byte ASCII ~X]" byte))
  	      byte)
  	     ((#.+SQ0+ #.+SQ1+ #.+SQ2+ #.+SQ3+ #.+SQ4+ #.+SQ5+ #.+SQ6+ #.+SQ7+) ; Quote from Window
  	      (when *scsu-state-trace*
  		(format *trace-output* "SQ~D " (find-SQn-window byte)))
  	      (let ((window (find-SQn-window byte))
  		    (next-byte (funcall read-func)))
  		(declare (type window-index window)
  