diff --git a/SBIN/TCPIP.S.txt b/SBIN/TCPIP.S.txt
index 063e6454..662e84b6 100644
--- a/SBIN/TCPIP.S.txt
+++ b/SBIN/TCPIP.S.txt
@@ -127,11 +127,7 @@ CS.INIT.DEV		>LDYA L.DEVNAME
 				bcs .9
 				>STYA ZPIPDevPtr
 				
-				ldy #1
-				lda (ZPIPDevPtr),y
-				sta DEVFLAGS
-				
-				iny
+				ldy #S.DEVINFO.NET.MAC
 				ldx #S.IPCFG.MAC
 				
 .2				lda (ZPIPDevPtr),y
@@ -150,9 +146,10 @@ CS.INIT.DEV		>LDYA L.DEVNAME
 CS.RUN			clc
 				rts
 *--------------------------------------
-CS.DOEVENT		lda (pEvent)
-				and #S.EVT.F.NET
-				beq .9
+CS.DOEVENT		clc
+				lda (pEvent)
+				bit #S.EVT.F.NET
+				beq .1
 				
 				ldy #S.EVT.hDEV
 				lda (pEvent),y
@@ -164,7 +161,11 @@ CS.DOEVENT		lda (pEvent)
 				>LIBCALL hLIBTCPIP,LIBTCPIP.RCVD.FRAMEA
 				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
 *--------------------------------------
 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
 hLIBTCPIP		.BS 1
 hNetDev			.BS 1
-DEVFLAGS		.BS 1
 IPCFG			.BS S.IPCFG
 CFG.hCfgFile	.BS 1
 CFG.FileLen		.BS 2