Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-29 17:50:18 +00:00
Code Issues Projects Releases Wiki Activity

Moved All TCPIP Code from TCPIP.DRV to LIBTCPIP

Browse Source
This commit is contained in:
Rémy GIBERT 2016-02-24 21:08:24 +01:00
parent 9ec40dba75
commit 6a85bd9549
1 changed files with 1 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
SBIN/TCPIP.S.txt
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