anchor.diff:  
   (defclass disassembler-context ()
     ((%function :initarg :function :reader context-function :reader disassembler-context-function)
  -   (%offset :initform 16 :accessor context-code-offset)
  +   (%offset :accessor context-code-offset)
      (%decoding-jump-table-p :initform nil :accessor decoding-jump-table-p)
      (%label-table :initform (make-hash-table) :reader context-label-table)
      (%instructions :initform (make-array 0 :adjustable t :fill-pointer 0) :reader context-instructions)))
  +
  +(defmethod initialize-instance :after ((instance disassembler-context) &key function)
  +  (setf (slot-value instance '%offset) (code-initial-offset function)))
   
   (defun instruction-at (context offset)
     (loop
  
positive.code: (defun disassemble-one-instruction (context)
    (let* ((start (context-code-offset context))
           (code-start 16)
           (code-end (+ code-start (sys.int::function-code-size (context-function context)))))
      (cond ((decoding-jump-table-p context)
             (let* ((dest (consume-ub64/le context))
                    (absolute-dest (+ (decoding-jump-table-p context) dest)))
  
negative.code:     nil
      nil
      nil
      (decode-nop-ev)
      (decode-mov-r-c) ; 20
      (decode-mov-r-d)
      (decode-mov-c-r)
  