anchor.diff:        ((#.+UC0+ #.+UC1+ #.+UC2+ #.+UC3+ #.+UC4+ #.+UC5+ #.+UC6+ #.+UC7+) ; Change to Window
          (let ((window (find-UCn-window byte)))
   	 (scsu-trace-output "UC~D " window)
  -	 (scsu-change-to-window state window)
  +	 (setf (scsu-state-active-window-index state) window)
   	 (setf (scsu-state-mode state) :single-byte-mode))
          '+UC0+)
         ((#.+UD0+ #.+UD1+ #.+UD2+ #.+UD3+ #.+UD4+ #.+UD5+ #.+UD6+ #.+UD7+) ; Define Window
  
positive.code: 	     ((#.+SC0+ #.+SC1+ #.+SC2+ #.+SC3+ #.+SC4+ #.+SC5+ #.+SC6+ #.+SC7+) ; Change to Window
  	      (let ((window (find-SCn-window byte)))
  		(scsu-trace-output "SC~D " window)
  		(scsu-change-to-window state window))
  	      '+SC0+)
  	     ((#.+SD0+ #.+SD1+ #.+SD2+ #.+SD3+ #.+SD4+ #.+SD5+ #.+SD6+ #.+SD7+) ; Define Window
  	      (let ((window (find-SDn-window byte)))
  
negative.code:     (declare (type (unsigned-byte 8) next-byte1 next-byte2))
      (logior (ash next-byte1 8) next-byte2)))
  
  (defun scsu-define-window (state window offset)
    (declare (type window-index window)
  	   (type unicode-code-point offset))
    (setf (scsu-state-active-window-index state) window)
    (setf (scsu-state-active-window-offset state) offset))
  
  (defun decode-define-window-extended (state read-func)
  