anchor.diff:  
   (defmacro parse-group1-byte (opcode operation mod-bits r/m-bits)
     `(case (mod ,opcode 4)
  -    (0 (,operation (next-instruction-ahead-of-indirect-address ,mod-bits ,r/m-bits) (indirect-address ,mod-bits ,r/m-bits nil) nil mod-bits r/m-bits))
  +    ((0 2) (,operation (next-instruction-ahead-of-indirect-address ,mod-bits ,r/m-bits) (indirect-address ,mod-bits ,r/m-bits nil) nil mod-bits r/m-bits))
       (1 (,operation (next-word-ahead-of-indirect-address ,mod-bits ,r/m-bits) (indirect-address ,mod-bits ,r/m-bits t) t mod-bits r/m-bits))
       (3 (,operation (twos-complement (next-instruction-ahead-of-indirect-address ,mod-bits ,r/m-bits) nil) (indirect-address ,mod-bits ,r/m-bits t) t mod-bits r/m-bits))))
   
  
positive.code:      (when (equal (car ',dest) 'indirect-address)
         (decf *advance* (advance-ip-ahead-of-indirect-address ,mod-bits ,r/m-bits)))))
  
  ;; Templates
  
  (defmacro mov (src dest)
    `(disasm-instr (list "mov" :src ,src :dest ,dest)
       (setf ,dest ,src)))
  
  (defmacro xchg (op1 op2)
    `(disasm-instr (list "xchg" :op1 ,op1 :op2 ,op2)
       (rotatef ,op1 ,op2)))
  
  (defmacro inc (op1 is-word)
    `(disasm-instr (list "inc" :op1 ,op1)
       (set-of-on-op (set-pf-on-op (set-sf-on-op (set-zf-on-op (incf ,op1)) ,is-word)) 1 ,is-word)))
  
  (defmacro dec (op1 is-word)
    `(disasm-instr (list "dec" :op1 ,op1)
       (set-of-on-op (set-pf-on-op (set-sf-on-op (set-zf-on-op (decf ,op1)) ,is-word)) -1 ,is-word)))
  
  ;; Group handling
  
  (defmacro parse-group-byte-pair (opcode operation mod-bits r/m-bits)
  
negative.code:   `(with-mod-r/m-byte
       (case reg-bits
         ,@body)))
  
  ;; Templates
  
  (defmacro mov (src dest)
    `(disasm-instr (list "mov" :src ,src :dest ,dest)
       (setf ,dest ,src)))
  
  (defmacro xchg (op1 op2)
    `(disasm-instr (list "xchg" :op1 ,op1 :op2 ,op2)
       (rotatef ,op1 ,op2)))
  
  (defmacro inc (op1 is-word)
    `(disasm-instr (list "inc" :op1 ,op1)
       (set-of-on-op (set-pf-on-op (set-sf-on-op (set-zf-on-op (incf ,op1)) ,is-word)) 1 ,is-word)))
  
  (defmacro dec (op1 is-word)
    `(disasm-instr (list "dec" :op1 ,op1)
       (set-of-on-op (set-pf-on-op (set-sf-on-op (set-zf-on-op (decf ,op1)) ,is-word)) -1 ,is-word)))
  
  ;; One-byte opcodes on registers
  
  