anchor.diff:  	    (slot-value card 'memar) (logand (sys.int::pci-bar pci-device 1) -4)
               (slot-value card 'isr) (sys.int::make-interrupt-handler 'rtl8139-interrupt
                                                                       (slot-value card 'ioar)
  -                                                                    (slot-value card 'signal-cons))
  +                                                                    (slot-value card 'irq-semaphore))
               (slot-value card 'mac) (make-array 6 :element-type '(unsigned-byte 8)))
         (sys.int::process-preset (slot-value card 'rx-process)
                                  #'rtl8139-process card)
  
positive.code:    (tx-address)
     (last-tx-descriptor :initform 0)
     (next-tx-descriptor :initform 0)
     (free-tx-descriptors :initform +rtl8139-tx-descriptors+)
     (rx-buffer)
     (rx-address)
     (rx-offset :initform 0)
     (rx-process)
     (signal-cons)
     (isr)
     (ioar)
     (memar)
  
negative.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 'tx-buffer) tx-buffer
  	    (slot-value card 'tx-address) tx-address
  	    (slot-value card 'rx-buffer) rx-buffer
  