Kernel version 0.9 : Updated/migrated UtherNet2.drv....if someone could give it a try...

This commit is contained in:
Rémy GIBERT 2017-02-17 23:04:53 +01:00
parent 333667e697
commit 245a6e7711
6 changed files with 13 additions and 12 deletions

Binary file not shown.

Binary file not shown.

View File

@ -133,7 +133,7 @@ ARGS .BS 2
DEV.HEADER .DA DRV.CS.START DEV.HEADER .DA DRV.CS.START
.DA #S.DEV.S.BLOCK+S.DEV.S.WRITE+S.DEV.S.READ .DA #S.DEV.S.BLOCK+S.DEV.S.WRITE+S.DEV.S.READ
DEV.HEADER.NAME .DA #4 DEV.HEADER.NAME .DA #4
.AS "ETH7" NAME .AS "ETH1" NAME
*-------------------------------------- *--------------------------------------
* Driver Code * Driver Code
*-------------------------------------- *--------------------------------------

View File

@ -14,13 +14,13 @@ AUTO 6
sta W5100.AR+1,x sta W5100.AR+1,x
.EM .EM
*-------------------------------------- *--------------------------------------
W5100.MR .EQ $C084-$88 Mode Register W5100.MR .EQ $C084 Mode Register
W5100.MR.RST .EQ %10000000 W5100.MR.RST .EQ %10000000
W5100.MR.PB .EQ %00010000 W5100.MR.PB .EQ %00010000
W5100.MR.PPPOE .EQ %00001000 W5100.MR.PPPOE .EQ %00001000
W5100.MR.AI .EQ %00000010 W5100.MR.AI .EQ %00000010
W5100.MR.IND .EQ %00000001 W5100.MR.IND .EQ %00000001
W5100.AR .EQ $C085-$88 Memory Pointer W5100.AR .EQ $C085 Memory Pointer
W5100.AR.GAR .EQ $0001 W5100.AR.GAR .EQ $0001
W5100.AR.SUBR .EQ $0005 W5100.AR.SUBR .EQ $0005
W5100.AR.SHAR .EQ $0009 W5100.AR.SHAR .EQ $0009
@ -61,7 +61,7 @@ W5100.AR.S0.TX.RD .EQ $0422
W5100.AR.S0.TX.WR .EQ $0424 W5100.AR.S0.TX.WR .EQ $0424
W5100.AR.S0.RX.RSR .EQ $0426 W5100.AR.S0.RX.RSR .EQ $0426
W5100.AR.S0.RX.RD .EQ $0428 W5100.AR.S0.RX.RD .EQ $0428
W5100.DR .EQ $C087-$88 W5100.DR .EQ $C087
*-------------------------------------- *--------------------------------------
TX.BASE .EQ $4000 TX.BASE .EQ $4000
RX.BASE .EQ $6000 RX.BASE .EQ $6000

View File

@ -258,20 +258,21 @@ SKT.AcceptA jsr SKT.GetA.I
and #S.SOCKET.SO.ACCEPTCONN and #S.SOCKET.SO.ACCEPTCONN
beq .99 beq .99
ldy #S.SOCKET.HQ.HEAD
lda (ZPPtrSKT),y
ldy #S.SOCKET.HQ.TAIL ldy #S.SOCKET.HQ.TAIL
lda (ZPPtrSKT),y
ldy #S.SOCKET.HQ.HEAD
cmp (ZPPtrSKT),y Queue Empty cmp (ZPPtrSKT),y Queue Empty
beq .9 CC beq .9 CS
pha pha save tail...
inc inc
cmp #S.SOCKET.HQ.MAX cmp #S.SOCKET.HQ.MAX
bne .1 bne .1
lda #0 lda #0
.1 sta (ZPPtrSKT),y .1 ldy #S.SOCKET.HQ.TAIL
sta (ZPPtrSKT),y
pla pla
clc clc
adc #S.SOCKET.HQ adc #S.SOCKET.HQ

View File

@ -143,7 +143,6 @@ CS.RUN.SERVER ldy #hSrvSocket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.AcceptA >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.AcceptA
bcs .8 bcs .8
pha pha
ldy #hSockets ldy #hSockets
@ -182,9 +181,10 @@ CS.RUN.CLIENT >PUSHA hSocket
>PUSHWI UsrBuf256 >PUSHWI UsrBuf256
>PUSHWI 256 >PUSHWI 256
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GetS >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GetS
bcc .1 bcs .1
>LDYAI UsrBuf256
>SYSCALL CPrintFYA
.1 clc .1 clc