TCPIP:Cache expiration, retry count....

This commit is contained in:
Rémy GIBERT 2016-03-20 23:16:28 +01:00
parent f6adb05c07
commit 072b0e90a5

View File

@ -127,11 +127,7 @@ CS.INIT.DEV >LDYA L.DEVNAME
bcs .9 bcs .9
>STYA ZPIPDevPtr >STYA ZPIPDevPtr
ldy #1 ldy #S.DEVINFO.NET.MAC
lda (ZPIPDevPtr),y
sta DEVFLAGS
iny
ldx #S.IPCFG.MAC ldx #S.IPCFG.MAC
.2 lda (ZPIPDevPtr),y .2 lda (ZPIPDevPtr),y
@ -150,9 +146,10 @@ CS.INIT.DEV >LDYA L.DEVNAME
CS.RUN clc CS.RUN clc
rts rts
*-------------------------------------- *--------------------------------------
CS.DOEVENT lda (pEvent) CS.DOEVENT clc
and #S.EVT.F.NET lda (pEvent)
beq .9 bit #S.EVT.F.NET
beq .1
ldy #S.EVT.hDEV ldy #S.EVT.hDEV
lda (pEvent),y lda (pEvent),y
@ -164,7 +161,11 @@ CS.DOEVENT lda (pEvent)
>LIBCALL hLIBTCPIP,LIBTCPIP.RCVD.FRAMEA >LIBCALL hLIBTCPIP,LIBTCPIP.RCVD.FRAMEA
rts rts
.9 sec .1 bit #S.EVT.F.T10TH
beq .9 S.EVT.F.T1SEC
>LIBCALL hLIBTCPIP,LIBTCPIP.PULSEA
.9 sec never discard TIME event
rts rts
*-------------------------------------- *--------------------------------------
CS.QUIT lda IPCFG+S.IPCFG.HDEV CS.QUIT lda IPCFG+S.IPCFG.HDEV
@ -538,7 +539,6 @@ CFG.Keyword.Map .DA #0 End Of Keyword table and NA Keyword
.DA #S.IPCFG.DNS2 .DA #S.IPCFG.DNS2
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
hNetDev .BS 1 hNetDev .BS 1
DEVFLAGS .BS 1
IPCFG .BS S.IPCFG IPCFG .BS S.IPCFG
CFG.hCfgFile .BS 1 CFG.hCfgFile .BS 1
CFG.FileLen .BS 2 CFG.FileLen .BS 2