Moved All TCPIP Code from TCPIP.DRV to LIBTCPIP

This commit is contained in:
Rémy GIBERT 2016-02-24 21:08:24 +01:00
parent 9ec40dba75
commit 6a85bd9549

View File

@ -164,40 +164,7 @@ CS.DOEVENT lda (pEvent)
ldy #S.EVT.DATALO Get Frame hMem ldy #S.EVT.DATALO Get Frame hMem
lda (pEvent),y lda (pEvent),y
>SYSCALL SYS.GetMemPtrA >LIBCALL hLIBTCPIP,LIBTCPIP.RCVD.FRAMEA
>STYA ZPFrameBase1
ldy #S.EVT.DATAW1 Get Frame Len
lda (pEvent),y
sta ZPFrameLen1
iny
lda (pEvent),y
sta ZPFrameLen1+1
ldy #S.ETH.ETHERTYPE
lda (ZPFrameBase1),y
tax
iny
lda (ZPFrameBase1),y
cmp #S.ETH.ETHERTYPE.ARP
bne .1
cpx /S.ETH.ETHERTYPE.ARP
bne .1
>PUSHW ZPFrameLen1
>PUSHW ZPFrameBase1
>LIBCALL hLIBTCPIP,LIBTCPIP.ARP.IN
rts
.1 cmp #S.ETH.ETHERTYPE.IP
bne .9
cpx /S.ETH.ETHERTYPE.IP
bne .9
>PUSHW ZPFrameLen1
>PUSHW ZPFrameBase1
>LIBCALL hLIBTCPIP,LIBTCPIP.IP.IN
rts rts
.9 sec .9 sec