anchor.diff:      ((in-8-byte-block-p opcode #xb0) (mov-byte-to-register opcode))
       ((in-8-byte-block-p opcode #xb8) (with-one-byte-opcode-register opcode (mov-word-to-register reg)))
       ((= opcode #xf8) (clear-carry-flag))
  -    ((= opcode #xf9) (set-carry-flag))))
  +    ((= opcode #xf9) (set-carry-flag))
  +    ((= opcode #xeb) (jmp-short))
  +    ((= opcode #xe8) (call-near))
  +    ((= opcode #xc3) (ret-from-call))))
   
   ;;; Main functions
   
  
positive.code: (defun mov-word-to-register (reg)
    (disasm-instr (list "mov" :src (next-word) :dest reg)
      (setf (register reg) (next-word))))
  
  ;;; Opcode parsing
  
  
negative.code: 
  ;;; Test instructions
  
  (defparameter *test-instructions* #(#x40 #x40 #x40 #x91 #xb0 #xff #x50 #x5a #x51 #xeb #x05 #x52 #x48 #xbe #x02 #x03 #xf4) "Test instructions")
  