LAN Driver

- bugfix: wraparound aware RX routine was potentially over- or undershooting 
    by two bytes
  - slight improvement to RX loop
  - revision bump to 0.2

Driver/enc624j6net/enc624j6net/enc624j6l.asm

@@ -1,3 +1,4 @@
+;APS00000000000000000000000000000000000000000000000000000000000000000000000000000000
 ; ------------------------------------------------------------------------------
 ; | Lowlevel Access to memory mapped ENC624J600 in PSP mode                    |
 ; | Henryk Richter <henryk.richter@gmx.net>                                    |
@@ -18,6 +19,7 @@
 ; - _enc624j6l_RXReset -> won't recover from totally unresponsive chip (but exits gracefully)
 ; - RXSTART_INIT = $0c00 -> currently $2000 due to location bug
 
+	incdir	Temp:Amiga/src/Zorro-LAN-IDE.git/Driver/enc624j6net/
 	include "enc624j6net/registers.i"
 	include "enc624j6net/macros.i"
 
@@ -1018,10 +1020,12 @@ _enc624j6l_RecvFrame:		;
 	move	d1,d0			;
 
 	else
+
 	cmp	#2,d0
 	blt	.recv_err		;can't be: SRC MAC 6 DST MAC 6 LEN/TYPE 2 CRC 4 (discounting variable data)
 	cmp	#MAX_FRAMELEN,d0
 	bgt	.recv_err
+	
 	endc
 
 	subq	#4,d0			;subtract CRC length
@@ -1037,19 +1041,20 @@ _enc624j6l_RecvFrame:		;
 
 	ifne	_OPT_RECV
 		move.l	d7,d1			;start
-		and.l	#$FFFF,d1		;keep only lower address
+		;and.l	#$FFFF,d1		;keep only lower address
-		add.l	d0,d1			  ;start+bytes
+		add.w	d0,d1			;start+bytes
-		cmp.l	#RXSTOP_INIT,d1
+		bvs.s	.nooptrecv		;what? beyond 16 Bit ? -> we really should consider this an error, really :-)
+		cmp.w	#RXSTOP_INIT,d1		;
 		bgt.s	.nooptrecv		;sadly, we cannot use faster routine atm, because we have a wrap around in the SRAM buffer
 
 	ifne	_OPT_ADR_QUIRK
 		eor.w	#$6000,d7
 	endc
 		lea	(a0,d7.w),a2		;read pointer
-		move	d0,d1			;byte count
+		moveq	#3,d1			;round bytes up
-		lsr	#2,d1			;converted to dword count
+		add	d0,d1			;byte count + 3
-		bcs.s	.opt_read		;read 1 byte more if impair byte count
+		lsr	#2,d1			;converted to dword count = ceil(bytes/4)
-		subq	#1,d1			;words - 1
+		subq	#1,d1			;longwords - 1
 .opt_read:
 	ifne	_OPT_BUFFER_SWAP
 		move.l	(a2)+,d2		;get current word
@@ -1066,22 +1071,25 @@ _enc624j6l_RecvFrame:		;
 .nooptrecv:
 	endc	;_OPT_RECV
 
-	;generic loop: check for position overflows with each dword
+	;generic loop: check for position overflows with each word
+	;
+	;CAUTION: DWORD loop doesn`t apply here since buffer is organized
+	;         in multiples of two bytes, same for frame lengths and
+	;         possible wraparounds
+	;
+	moveq	#1,d2			;mask for lower bit
 	move	d0,d1			;byte count
-	lsr	#2,d1			;converted to dword count
+	lsr	#1,d1			;converted to word count
-	bcs.s	.generic_read		;read 1 byte more if impair byte count
+	and.l	d0,d2			;if lower bits are set ->
+	bne.s	.generic_read		;read 1 word more if impair byte/word count
 	subq	#1,d1			;words - 1
 .generic_read:
-	READSRAM_LONG a0,d7,d2		;get current dword
+	move.w	(a0,d7.w),d2		;get current word
-	;move.l	(a0,d7.w),d2		;get current dword
 	ifne	_OPT_BUFFER_SWAP
 	 rol.w	#8,d2			;swap buffer to Big Endian
-	 SWAP D2
-	 rol.w	#8,d2			;swap buffer to Big Endian
-   SWAP D2
 	endc
-	move.l	d2,(a1)+	; store currend dword
+	move.w	d2,(a1)+		; store currend word
-	addq	#4,d7			;increment position
+	addq	#2,d7			;increment position
 	WRAPINDEX d7			;wrap D7 if beyond buffer
 	dbf	d1,.generic_read
 

Driver/enc624j6net/enc624j6net/hw.c

@@ -241,6 +241,7 @@ GLOBAL REGARGS void hw_config_dump(struct PLIPBase *pb)
 GLOBAL REGARGS BOOL hw_init(struct PLIPBase *pb)
 {
    struct HWBase *hwb = &pb->pb_HWBase;
+   /*ULONG tst;*/
    
    BOOL rc = FALSE;
    
@@ -253,10 +254,13 @@ GLOBAL REGARGS BOOL hw_init(struct PLIPBase *pb)
 
    hwb->hwb_Interrupt.is_Data = (0);	/* prepare interrupt */
    hwb->hwb_Interrupt.is_Code = (0);
+   /*tst = AllocSignal(-1);*/
+   /* interesting: we get CTRL-F by default. Indidentally the same signal used for the write queue */
    if ((hwb->hwb_IntSig = AllocSignal(-1)) != -1)
    {
       hwb->hwb_IntSigMask = 1L << hwb->hwb_IntSig;
       d2(("int sigmask=%08lx\n",hwb->hwb_IntSigMask));
+      /*FreeSignal(tst);*/
 
       if ((hwb->hwb_TimeoutPort = CreateMsgPort()))
       {

Driver/enc624j6net/server.c

@@ -356,7 +356,9 @@ PRIVATE REGARGS BOOL read_frame(struct IOSana2Req *req, struct HWFrame *frame)
    BOOL rv,ok;
    struct HWFrame *frame = pb->pb_Frame;
 	 
-	 while(hw_recv_pending(pb)){
+/*	while(hw_recv_pending(pb)){*/
+	while(1){
+/*	if(1){ */
 	   d8(("+hw_recv\n"));
 	   rv = hw_recv_frame(pb, frame);
 	   d8(("-hw_recv\n"));
@@ -443,11 +445,15 @@ PRIVATE REGARGS BOOL read_frame(struct IOSana2Req *req, struct HWFrame *frame)
 	   }
 	   else
 	   {
+#if 1
+		break;
+#else
 	      d(("Error receiving (%ld. len=%ld)\n", rv, frame->hwf_Size));
 	      /* something went wrong during receipt */
 	      DoEvent(pb, S2EVENT_HARDWARE | S2EVENT_ERROR | S2EVENT_RX);
 	      got = NULL;
 	      pb->pb_DevStats.BadData++;
+#endif
 	   }
 	}
 }
@@ -719,15 +725,14 @@ PRIVATE REGARGS BOOL read_frame(struct IOSana2Req *req, struct HWFrame *frame)
 	       hw_enable_global_int(pb);
 	       recv = Wait(wmask);
 	       d2(("**> wait: got 0x%08lx\n", recv));
+	       /*haverec = hw_recv_pending(pb);*/
 	    }
-						/*hw_disable_global_int(pb);*/
 	    
             /* accept pending receive and start reading */
 	    d2(("*+ do_read\n"));
 	    doreadreqs(pb);
 	    d2(("*- do_read\n"));
 
-
 	    if( recv & specialmask )
 	    {
 	        /* handle SANA-II send requests */

Driver/enc624j6net/smakefile

@@ -8,9 +8,9 @@
 #  based on Magplip build file
 #####################################################################
 #
-DEVICE_DATE = 18.12.2017
+DEVICE_DATE = 16.04.2018
 DEVICE_VERSION  = 0
-DEVICE_REVISION = 1
+DEVICE_REVISION = 2
 
 # see below for EXTRAOBJ, disable for plipbox, enable for sdnet/enc624j6net
 HWSRCDIR = enc624j6net