anchor.diff:    ;; Issue a reset command.
     (setf (rtl8139-reg/8 card +rtl8139-command+) +command-rst+)
     ;; Wait for the reset to complete.
  -  ;; TODO: Use process-wait-with-timeout
  +  ;; TODO: Use a timeout here.
     (do () ((not (logtest (rtl8139-reg/8 card +rtl8139-command+) +command-rst+))))
     ;; Read the MAC address.
     (dotimes (i 6)
  
positive.code: 	(sys.int::allocate-dma-buffer +rtl8139-rx-buffer-size+)
        (format t "Tx buffer base: ~X  Rx buffer base: ~X~%" tx-address rx-address)
        (setf (slot-value card 'rx-process) (sys.int::make-process "RTL8139 receive process")
              (slot-value card 'signal-cons) (sys.int::cons-in-area nil nil :static)
              (slot-value card 'tx-buffer) tx-buffer
  	    (slot-value card 'tx-address) tx-address
  	    (slot-value card 'rx-buffer) rx-buffer
  
negative.code:    (tx-address)
     (last-tx-descriptor :initform 0)
     (next-tx-descriptor :initform 0)
     (free-tx-descriptors :initform (sys.int::make-semaphore :name "RTL8139 free TX descriptors"
                                                             :count +rtl8139-tx-descriptors+))
     (rx-buffer)
     (rx-address)
     (rx-offset :initform 0)
     (rx-process)
     (irq-semaphore :initform (sys.int::make-semaphore :name "RTL8139 interrupt"
                                                       :area :static))
     (isr)
     (ioar)
     (memar)
  