;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for CDI version 1.11
;;; Reason:
;;;  Performance enhancement on the NuEther bus interface.
;;; Written 26-Jun-86 09:58:34 by Gibson at site CDI Dallas
;;; while running on EXPLORER-1 from band 1
;;; with System 110.232, Lambda-Diag 7.17, Experimental Local-File 68.7, FILE-Server 18.4, Unix-Interface 9.1, ZMail 65.14, Object Lisp 3.4, Tape 6.39, Site Data Editor 3.3, Tiger 24.0, KERMIT 31.3, Window-Maker 1.1, Gateway 4.8, TCP-Kernel 39.7, TCP-User 62.7, TCP-Server 45.5, MEDIUM-RESOLUTION-COLOR 3.4, MICRO-COMPILATION-TOOLS 3.2, System Revision Level 3.26, Experimental CDI 1.10, microcode 1525, CDI LambdaE base.


;; *** Note: ***
;;   You may lose because the buffer has no readtable attribute.
;; *************

; From file S1: >gibson>NU-ETHER.LISP.2 at 26-Jun-86 09:58:35
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "dj:lambda-e-net;NU-ETHER.LISP."

(Defun Careful-NuBus-Read (slot addr)
  (Or (%nubus-read-safe slot addr)
      (Progn
	(Incf *nubus-references*)
	(Do ((retries 1 (1+ retries))
	     (value (%nubus-read-safe slot addr) (%nubus-read-safe slot addr)))
	    ((Or (Not (Null value))
		 (> retries *max-nubus-retries*))
	     ;; Return value if successful otherwise signal an error.
	     (Or value
		 (Ferror 'Ethernet-NuBus-Error "NuBus read error")))
	  (Incf *nubus-retries*))))
  )

(Defun Careful-NuBus-Write (slot addr data)
  (Or (%nubus-write-safe slot addr data)
      (Progn
	(Incf *nubus-references*)
	(Do ((retries 1 (1+ retries))
	     (value (%nubus-write-safe slot addr data) (%nubus-write-safe slot addr data)))
	    ((Or (Not (Null value))
		 (> retries *max-nubus-retries*))
	     ;; Return value if successful otherwise signal an error.
	     (Or value
		 (Ferror 'Ethernet-NuBus-Error "NuBus write error")))
	  (Incf *nubus-retries*))))
  )

))