anchor.diff:  (defun mov-offset-to-accumulator (opcode)
     (with-size-by-last-bit opcode
       (if is-word
  -	(mov (word-in-ram (next-word) *ram*) (register :ax))
  -	(mov (byte-in-ram (next-word) *ram*) (byte-register :al)))))
  +	(mov (segmented-word-in-ram (next-word) *default-segment*) (register :ax))
  +	(mov (segmented-byte-in-ram (next-word) *default-segment*) (byte-register :al)))))
   
   (defun mov-accumulator-to-offset (opcode)
     (with-size-by-last-bit opcode
       (if is-word
  -	(mov (register :ax) (word-in-ram (next-word) *ram*))
  -	(mov (byte-register :al) (byte-in-ram (next-word) *ram*)))))
  +	(mov (register :ax) (segmented-word-in-ram (next-word) *default-segment*))
  +	(mov (byte-register :al) (segmented-byte-in-ram (next-word) *default-segment*)))))
   
   ;; Groups 1A, 4, and 5 (inc/dec, call/jmp, and push/pop on EAs)
   
  
positive.code: (defmacro scan-string-operation (is-word)
    `(disasm-instr '("scas")
       (if ,is-word
  	 (cmp-operation (register :ax) (word-in-ram (register :di) *ram*) t)
  	 (cmp-operation (byte-register :al) (byte-in-ram (register :di) *ram*) nil))))
  
  (defun scan-string (opcode)
    (string-operation opcode scan-string-operation))
  
negative.code: 
  (defsetf segment (seg) (value)
    `(setf (getf *segments* ,seg) (logand ,value #xffff)))
  
  ;; Flags
  
  (defun flag (name)
    (getf *flags* name))
  