anchor.diff:  ;; One-byte opcodes on registers
   
   (defun push-register (reg)
  -  (disasm-instr (list "push" :src reg)
  -    (push-to-stack (register reg))))
  +  (push-operation (register reg)))
   
   (defun pop-to-register (reg)
  -  (disasm-instr (list "pop" :dest reg)
  -    (setf (register reg) (pop-from-stack))))
  +  (pop-operation (register reg)))
   
   (defun inc-register (reg)
     (inc (register reg) t))
  
positive.code:        (with-in-place-mod ,op2 ,mod-bits ,r/m-bits
  	 (rotatef ,op1 ,op2)))))
  
  (defmacro inc (op is-word &optional mod-bits r/m-bits)
    `(disasm-instr (list "inc" :op ,op)
       (with-in-place-mod ,op ,mod-bits ,r/m-bits
  
negative.code:   (dec (indirect-address mod-bits r/m-bits is-word) is-word))
  
  (defun push-indirect (mod-bits r/m-bits)
    (push-operation (indirect-address mod-bits r/m-bits t)))
  
  (defun pop-indirect (mod-bits r/m-bits)
    (pop-operation (indirect-address mod-bits r/m-bits t)))
  
  (defun parse-group1a-opcode ()
    (parse-group-opcode
  