Kernel 0.92

BIN/IPCONFIG.S.DEV.txt

@@ -22,7 +22,7 @@ DEV.Bind		>PUSHBI 0
 				sec
 				rts
 				
-.1				ldy #S.IPCFG.hFD
+.1				ldy #S.IPCFG.DevID
 				sta (pIPCFG),y
 
 				>PUSHW L.DEVNAME

BIN/IPCONFIG.S.DHCP.txt

@@ -7,7 +7,7 @@ DHCP.INIT		lda (pIPCFG)
 				and #S.IPCFG.STATUS.OK
 				bne .99					Already Configured, exit
 
-				ldy #S.IPCFG.hFD
+				ldy #S.IPCFG.DevID
 				lda (pIPCFG),y
 				beq .98
 				
@@ -138,7 +138,7 @@ DHCP.RUN.OK		lda #S.IPCFG.STATUS.OK
 				sta IPCFG
 				
 				>PUSHW L.IPCFG
-				>LIBCALL hLIBTCPIP,LIBTCPIP.SET.IPCFG
+				>LIBCALL hLIBTCPIP,LIBTCPIP.SETCFG
 
 				ldx #3
 

BIN/IPCONFIG.S.ETC.txt

@@ -48,7 +48,7 @@ CFG.EtcFiles	>LDYAI 256
 				jsr CFG.Read.PrintF
 				jsr CFG.Read.HOSTS
 
-				>LIBCALL hLIBTCPIP,LIBTCPIP.Set.IPCFG
+				>LIBCALL hLIBTCPIP,LIBTCPIP.SETCFG
 				
 				lda CFG.hBuf1
 				>SYSCALL freemem

BIN/IPCONFIG.S.txt

@@ -4,7 +4,7 @@ AUTO 4,1
 				.LIST OFF
 				.OP	65C02
 				.OR	$2000
-				.TF BIN/DEV/IPCONFIG2
+				.TF BIN/IPCONFIG2
 *--------------------------------------
 				.INB INC/MACROS.I
 				.INB INC/A2OSX.I
@@ -24,7 +24,6 @@ ZS.START
 ZPPtr1			.BS 2
 pIPCFG			.BS 2
 pFD				.BS 2
-pDEV			.BS 2
 ZPIPCfgPtr		.BS 2
 ZPFrameBase		.BS 2
 ZPFramePtr		.BS 2
@@ -158,10 +157,10 @@ CS.RUN.STATUS	>PUSHBI 0
 				>LDYA L.MSG0
 				>SYSCALL printf
 				
-				>LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG
+				>LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG
 				>STYA pIPCFG
 
-				ldy #S.IPCFG.hFD
+				ldy #S.IPCFG.DevID
 				lda (pIPCFG),y
 				bne .1
 				
@@ -169,12 +168,15 @@ CS.RUN.STATUS	>PUSHBI 0
 				>SYSCALL puts
 				jmp CS.RUN.DONE
 				
-.1				>STA.G FD.ETH
+.1				tax
-				>SYSCALL GetMemPtr
+				lda Dev.Table,x
-				>STYA pFD
+				sta pFD
+				lda Dev.Table+1,x
+				sta pFD+1
 				
 				>PUSHEA.G DIB
-				>LDA.G FD.ETH
+				ldy #S.IPCFG.DevID
+				lda (pIPCFG),y
 				>SYSCALL GetDevStatus
 				
 				>LEA.G DCB.NIC
@@ -184,7 +186,8 @@ CS.RUN.STATUS	>PUSHBI 0
 
 				>PUSHEA.G IOCTL
 				>PUSHBI IOCTL.STATUS
-				>LDA.G FD.ETH
+				ldy #S.IPCFG.DevID
+				lda (pIPCFG),y
 				>SYSCALL IOCTL
 				
 CS.RUN.DUMP		>LDYA L.MSG0.L
@@ -201,18 +204,17 @@ CS.RUN.DUMP		>LDYA L.MSG0.L
 
 				>PUSHEA.G DIB+S.DIB.IDS 
 				
-				>LDA.G FD.ETH
+				lda pFD
-				ldx #$ff
+				clc
-
+				adc #S.FD.DEV
-.11				inx
+				tay
-				cmp Dev.Table.hFD,x
+				lda pFD+1
-				bne .11
+				adc /S.FD.DEV
-
-				lda Dev.Table.hPath,x
-				>SYSCALL GetMemPtr
 				>PUSHYA
 				
-				>PUSHB.G FD.ETH
+				ldy #S.IPCFG.DevID
+				lda (pIPCFG),y
+				>PUSHA
 				>PUSHBI 11
 				>LDYA L.MSG1.DEV
 				>SYSCALL printf
@@ -395,7 +397,7 @@ Wait.TimeOut	ldy #TimeOut
 				.INB USR/SRC/SBIN/IPCONFIG.S.ETC
 *--------------------------------------
 CS.END
-LIBTCPIP		.AZ "libtcpip"
+LIBTCPIP		.AZ "libtcpip2"
 *--------------------------------------
 OptionList		>PSTR "DESdes"
 OptionVars		.DA #bDHCP,#bETC,#bSet,#bDHCP,#bETC,#bSet
@@ -524,7 +526,6 @@ ArgCount		.BS 1
 bDHCP			.BS 1
 bETC			.BS 1
 bSet			.BS 1
-FD.ETH			.BS 1
 IOCTL			.BS S.IOCTL
 DIB				.BS S.DIB
 DCB.NIC			.BS S.DCB.NIC

INC/LIBTCPIP.I.txt

@@ -20,10 +20,10 @@ K.DYNPORT.END	.EQ 65535
 K.TCP.MSS		.EQ K.ETH.FRAME.LEN-20-20-14
 K.TCP.WSIZE		.EQ 2048
 *--------------------------------------
-LIBTCPIP.SET.IPCFG		.EQ 4
+LIBTCPIP.SETCFG			.EQ 4
-LIBTCPIP.GET.IPCFG		.EQ 6
+LIBTCPIP.GETCFG			.EQ 6
 
-LIBTCPIP.POLL			.EQ 8
+LIBTCPIP.INCOMING		.EQ 8
 LIBTCPIP.PULSE			.EQ 10
 
 LIBTCPIP.ARP.Clear		.EQ 12
@@ -79,7 +79,7 @@ S.IPCFG.STATUS.ROFFER	.EQ %00000010	OFFER Received
 S.IPCFG.STATUS.SREQ		.EQ %00000100	REQUEST Sent
 S.IPCFG.STATUS.RACK		.EQ %00001000	ACK Received
 S.IPCFG.STATUS.OK		.EQ %10000000	Fully configured (static or DHCP)
-S.IPCFG.hFD			.EQ 1
+S.IPCFG.DevID		.EQ 1
 S.IPCFG.MAC			.EQ 2
 S.IPCFG.DHCPSRVR	.EQ 8
 S.IPCFG.IP			.EQ 12

LIB/LIBETALK.S.txt

@@ -50,15 +50,15 @@ CS.START		cld
 *--------------------------------------
 				.DA 0
 *--------------------------------------
-LIB.LOAD		clc
+LIB.LOAD		
-				rts
 *--------------------------------------
-LIB.UNLOAD		clc
+LIB.UNLOAD		
-				rts
 *--------------------------------------
 SETCFG
 *--------------------------------------
 GETCFG
+				clc
+				rts
 *--------------------------------------
 INCOMING		sta hFrameIn
 				>PULLW ZPIOCTL

LIB/LIBGUI.S.WND.txt

@@ -28,7 +28,7 @@ WND.Setup		>LDYA DCB.GFX+S.DCB.GFX.W
 				
 				lda SYSFON.H
 				clc
-				adc #6								
+				adc #6
 				sta WND.SysBar+S.OBJ.H
 				
 				lda DCB.GFX+S.DCB.GFX.H

LIB/LIBTCPIP.S.ARP.txt

@@ -172,7 +172,7 @@ ARP.IN.REQ		ldy #S.ARP.SPA+3
 				
 				>PUSHWI S.ARP
 				>PUSHW L.ARP.REP
-				lda IPCFG+S.IPCFG.hFD
+				lda IPCFG+S.IPCFG.DevID
 				>SYSCALL write
 				
 				bra ARP.IN.EXIT
@@ -238,7 +238,7 @@ ARP.QUERY.I		jsr ARP.FIND.BY.IP
 				
 				>PUSHWI S.ARP
 				>PUSHW L.ARP.REQ
-				lda IPCFG+S.IPCFG.hFD
+				lda IPCFG+S.IPCFG.DevID
 				>SYSCALL write
 				bcs .99
 				

LIB/LIBTCPIP.S.CFG.txt

@@ -3,434 +3,7 @@ PREFIX
 AUTO 4,1
 				.LIST OFF	
 *--------------------------------------
-*  PULLW = PTR to S.IPCFG
+CFG.SET			>PULLW ZPTmpPtr1		IPCFG
-*--------------------------------------
-CFG.Init		>PUSHBI 0
-				>LDYA L.DEVNAME
-				>SYSCALL open
-				bcc .1
-				inc DEVNAME+8
-				lda DEVNAME+8
-				cmp #'8'
-				bne CFG.Init
-
-				>LDYA L.MSG.DEV.KO
-				>SYSCALL puts
-				
-				lda #MLI.E.NODEV
-.9				sec
-				rts
-				
-.1				sta IPCFG+S.IPCFG.hFD
-
-				>PUSHW L.DEVNAME
-				>PUSHBI 2
-				>LDYA L.MSG.DEV.OK
-				>SYSCALL printf
-				
-CFG.EtcFiles	>LDYAI 256
-				>SYSCALL GetMem
-				bcs .9
-
-				>STYA ZPTmpPtr1
-				stx CFG.hBuf1
-				
-				>LDYA L.HOSTNAME
-				jsr CFG.Read.PrintF
-				jsr CFG.Read.HOSTNAME
-
-				lda IPCFG+S.IPCFG.HOSTNAME
-				bne .4
-
-				ldy #$ff
-				
-.2				iny
-				lda CFG.DefaultHost,y
-				sta IPCFG+S.IPCFG.HOSTNAME,y
-				bne .2
-			
-.3				lda A2osX.TIMER16
-				jsr CFG.A2CharAX
-				sta IPCFG+S.IPCFG.HOSTNAME+6
-				stx IPCFG+S.IPCFG.HOSTNAME+7
-				
-				lda A2osX.TIMER16+1
-				jsr CFG.A2CharAX
-				sta IPCFG+S.IPCFG.HOSTNAME+8
-				stx IPCFG+S.IPCFG.HOSTNAME+9
-			
-.4				>LDYA L.TCPIP.CONF
-				jsr CFG.Read.PrintF
-				jsr CFG.Read.TCPIP.CONF
-
-				lda IPCFG+S.IPCFG.IP
-				beq .5
-				
-				lda #S.IPCFG.STATUS.OK
-				sta IPCFG+S.IPCFG.STATUS
-				
-.5				>LDYA L.HOSTS
-				jsr CFG.Read.PrintF
-				jsr CFG.Read.HOSTS
-
-				jsr SET.IPCFG.I
-				
-				lda CFG.hBuf1
-				>SYSCALL freemem
-				
-.9				rts				
-*--------------------------------------
-CFG.Read.PrintF >PUSHYA
-				>PUSHBI 2
-				>LDYA L.MSG.CFG
-				>SYSCALL printf
-				rts
-*--------------------------------------
-CFG.Read.HOSTNAME
-				>LDYA L.HOSTNAME
-				jsr CFG.Read.Open
-				jsr CFG.Read.Result
-				bcs .9
-				
-.1				jsr CFG.Read.GetS
-				bcs .8
-				
-				lda (ZPTmpPtr1)
-				beq .1					empty line...
-				cmp #'#
-				beq .1					comment...
-				
-				ldy #0
-
-.2				lda (ZPTmpPtr1),y
-				sta IPCFG+S.IPCFG.HOSTNAME,y
-				beq .8					end of name
-				
-				iny
-				cpy #15
-				bne .2
-				
-.8				clc
-				.HS B0					BCS
-.9				sec
-				jmp CFG.Read.Close
-*--------------------------------------
-CFG.Read.TCPIP.CONF
-				>LDYA L.TCPIP.CONF
-				jsr CFG.Read.Open
-				jsr CFG.Read.Result
-				bcs .9
-				
-.1				jsr CFG.Read.GetS
-				bcs .8
-				
-				lda (ZPTmpPtr1)
-				beq .1					empty line...
-				cmp #'#
-				beq .1					comment...
-				
-				ldy #$ff
-
-.2				iny
-				lda (ZPTmpPtr1),y
-				beq .3
-				cmp #' '
-				bne .2
-				
-.3				lda L.CFG.Keywords
-				sta ZPTmpPtr2
-				lda L.CFG.Keywords+1
-				sta ZPTmpPtr2+1
-				
-				ldx #0
-
-.4				phy						save keyword len
-
-				tya
-				cmp (ZPTmpPtr2)
-				bne .6
-				
-.5				lda (ZPTmpPtr2),y
-				dey
-				cmp (ZPTmpPtr1),y
-				bne .6
-				tya
-				bne .5
-				
-				ply						discard keyword len
-				jsr .80
-				bra .1
-				
-.6				lda (ZPTmpPtr2)
-				sec
-				adc ZPTmpPtr2
-				sta ZPTmpPtr2
-				bcc .7
-				inc ZPTmpPtr2+1
-				
-.7				inx
-				inx
-				ply						reset keyword len
-				
-				lda (ZPTmpPtr2)
-				bne .4
-				
-				bra .1
-				
-.8				clc
-				.HS B0					BCS
-.9				sec
-				jmp CFG.Read.Close
-				
-.80				jmp (J.CFG.Keywords,x)
-*--------------------------------------
-CFG.Read.address
-				ldx #S.IPCFG.IP+3
-				bra CFG.Read.IP
-CFG.Read.netmask
-				ldx #S.IPCFG.MASK+3
-				bra CFG.Read.IP
-CFG.Read.gateway
-				ldx #S.IPCFG.GW+3
-				bra CFG.Read.IP
-CFG.Read.nameserver
-				ldx #S.IPCFG.DNS1+3
-				lda IPCFG,x
-				beq CFG.Read.IP
-				ldx #S.IPCFG.DNS2+3
-				
-CFG.Read.IP		ldy #3
-
-.1				txa
-				clc
-				adc L.IPCFG
-				pha
-				lda L.IPCFG+1
-				adc #0
-				>PUSHA					@IP[3][2][1][0]
-				pla
-				>PUSHA
-				dex
-				dey
-				bpl .1
-								
-				>PUSHBI 8				4 PTRs on stack
-				>PUSHW L.HST.SScanF
-				
-				lda (ZPTmpPtr2)
-				sec
-				adc ZPTmpPtr1
-				tay
-				
-				lda ZPTmpPtr1+1
-				adc #0
-
-				>SYSCALL SScanF
-				rts
-
-CFG.Read.dnsdomain
-				lda (ZPTmpPtr2)
-				sec
-				adc ZPTmpPtr1
-				sta ZPTmpPtr1
-				bcc .1
-				inc ZPTmpPtr1+1
-
-.1				ldy #$ff
-				
-.2				iny
-				lda (ZPTmpPtr1),y
-				sta IPCFG+S.IPCFG.DOMAIN,y
-				beq .8
-				cpy #K.DNS.MAXLEN
-				bne .2
-				lda #0
-				sta IPCFG+S.IPCFG.DOMAIN,y
-.8				rts
-*--------------------------------------
-CFG.Read.HOSTS	stz  CFG.hBuf2
-				stz  CFG.hBuf3
-				
-				>LDYA L.HOSTS
-				jsr CFG.Read.Open
-				jsr CFG.Read.Result
-				bcs .9
-
-				>LDYAI 256
-				>SYSCALL GetMem
-				bcs .9
-
-				>STYA ZPTmpPtr2
-				stx CFG.hBuf2
-				
-				>LDYAI 256
-				>SYSCALL GetMem
-				bcs .9
-
-				>STYA ZPTmpPtr3
-				stx CFG.hBuf3
-								
-.1				jsr CFG.Read.GetS
-				bcs .8
-				
-				lda (ZPTmpPtr1)
-				beq .1					empty line...
-				cmp #'#
-				beq .1					comment...
-				
-				jsr CFG.Read.HOSTS.Scan
-				bcs .1
-				
-				cmp #5
-				bcc	.1					less than 5 parameters, ignore
-				beq .2					no alias
-				
-				>LDYA ZPTmpPtr3
-				jsr CFG.DNS.Add
-
-.2				>LDYA ZPTmpPtr2
-				jsr CFG.DNS.Add				
-				
-				bra .1
-
-.8				clc
-				.HS B0					BCS
-.9				sec
-
-				php
-				pha
-				lda CFG.hBuf3
-				beq .90
-				>SYSCALL freemem
-.90				lda CFG.hBuf2
-				beq .91
-				>SYSCALL freemem
-
-.91				jmp CFG.Read.Close2
-*--------------------------------------
-CFG.Read.HOSTS.Scan
-				>PUSHW ZPTmpPtr3
-				>PUSHW ZPTmpPtr2
-				
-				ldx #3
-				
-.2				txa
-				clc
-				adc L.CFG.IP
-				tay
-				lda L.CFG.IP+1
-				adc #0
-				>PUSHYA					@IP[3][2][1][0]
-
-				dex
-				bpl .2
-								
-				>PUSHBI 12				6 PTRs on stack
-				>PUSHW L.CFG.HOSTS.SScanF
-				>LDYA ZPTmpPtr1
-
-				>SYSCALL SScanF
-				rts
-*--------------------------------------
-CFG.DNS.ADD		>STYA ZPTmpPtr1
-
-				>PUSHW ZPTmpPtr1
-				
-				ldy #3
-				
-.1				lda CFG.IP,y
-				>PUSHA
-				dey
-				bpl .1
-				
-				>PUSHBI 6
-				>LDYA L.MSG.DNS.ADD
-				>SYSCALL printf
-			
-				>LDYA L.CFG.IP
-				
-				>PUSHYA
-				>PUSHW ZPTmpPtr1
-				jsr DNS.Add			
-*--------------------------------------
-CFG.Read.Result	bcc .1
-				>PUSHA
-				>PUSHBI 1
-				>LDYA L.MSG.CFG.KO
-				>SYSCALL printf
-				sec
-				rts
-				
-.1				>LDYA L.MSG.CFG.OK
-				>SYSCALL puts
-				rts
-*--------------------------------------
-CFG.Read.Open	stz CFG.hCfgFile
-				stz CFG.hCfgPath
-				
-				>SYSCALL ExpandStr
-				bcs .9
-				
-				stx CFG.hCfgPath
-				pha
-				
-				>PUSHWI 0
-				>PUSHBI S.FI.T.TXT
-				>PUSHBI	O.RDONLY
-				
-				pla
-				>SYSCALL fopen
-				bcs .9
-				
-				sta CFG.hCfgFile
-*				clc				
-.9				rts				
-*--------------------------------------
-CFG.Read.Close	php
-				pha
-				
-CFG.Read.Close2				
-				lda CFG.hCfgPath
-				beq .1
-				>SYSCALL FreeMem
-				
-.1				lda CFG.hCfgFile
-				beq .8
-				>SYSCALL fclose
-				
-.8				pla
-				plp
-				rts
-*--------------------------------------
-CFG.Read.GetS	>PUSHWI 255
-				>PUSHW ZPTmpPtr1
-				lda CFG.hCfgFile
-				>SYSCALL fgets
-*				bcs .9
-*				>LDYA ZPTmpPtr1
-*				>SYSCALL puts
-				
-.9				rts
-*--------------------------------------
-CFG.A2CharAX	pha
-				lsr
-				lsr
-				lsr
-				lsr
-				ora #$30
-				cmp #'9'+1
-				bcc .1
-				adc #6
-.1				tax
-				pla
-				and #$0F
-				ora #$30
-				cmp #'9'+1
-				bcc .8
-				adc #6
-.8				rts
-*--------------------------------------
-SET.IPCFG		>PULLW ZPTmpPtr1		IPCFG
 				
 				ldy #0
 				
@@ -440,14 +13,14 @@ SET.IPCFG		>PULLW ZPTmpPtr1		IPCFG
 				cpy #S.IPCFG
 				bne .1
 				
-SET.IPCFG.I		>LDYA L.DCB.NIC
+CFG.SET.I		>LDYA L.DCB.NIC
 				>STYA IOCTL+S.IOCTL.BUFPTR
 				lda #S.IOCTL.STATCODE.GETDCB
 				sta IOCTL+S.IOCTL.STATCODE
 				
 				>PUSHW L.IOCTL
 				>PUSHBI IOCTL.STATUS
-				lda IPCFG+S.IPCFG.hFD
+				lda IPCFG+S.IPCFG.DevID
 				>SYSCALL IOCTL
 				bcs *
 								
@@ -487,7 +60,7 @@ SET.IPCFG.I		>LDYA L.DCB.NIC
 
 				>PUSHW L.IOCTL
 				>PUSHBI IOCTL.CONTROL
-				lda IPCFG+S.IPCFG.hFD
+				lda IPCFG+S.IPCFG.DevID
 				>SYSCALL IOCTL
 				bcs .9
 				
@@ -516,11 +89,7 @@ SET.IPCFG.I		>LDYA L.DCB.NIC
 .8				clc
 .9				rts
 *--------------------------------------
-* grab a copy on the fly for lib function
+CFG.GET			>LDYA L.IPCFG
-* OUT :
-*  Y,A = PTR to S.IPCFG
-*--------------------------------------
-GET.IPCFG		>LDYA L.IPCFG
 				clc
 				rts
 *--------------------------------------

LIB/LIBTCPIP.S.FRM.txt

@@ -336,7 +336,7 @@ FRM.Retry		ldx FRM.QUEUE.Tail
 *--------------------------------------
 FRM.Send		>PUSHW ZPFrameOutLen
 				>PUSHW ZPFrameOutPtr
-				lda IPCFG+S.IPCFG.hFD
+				lda IPCFG+S.IPCFG.DevID
 				
 				>SYSCALL write
 				rts

LIB/LIBTCPIP.S.txt

@@ -4,7 +4,7 @@ AUTO 4,1
 				.LIST OFF	
 				.OP	65C02
 				.OR	$2000
-				.TF LIB/LIBTCPIP
+				.TF LIB/LIBTCPIP2
 *--------------------------------------
 IPDEBUG			.EQ 0
 *--------------------------------------
@@ -75,10 +75,10 @@ CS.START		cld
 .1				.DA LIB.LOAD
 				.DA LIB.UNLOAD	
 				
-				.DA SET.IPCFG
+				.DA CFG.SET
-				.DA GET.IPCFG
+				.DA CFG.GET
 				
-				.DA POLL
+				.DA INCOMING
 				.DA PULSE
 				
 				.DA ARP.CLEAR
@@ -116,14 +116,6 @@ CS.START		cld
 				.DA SKT.GetTable
 *--------------------------------------
 L.IPCFG			.DA IPCFG
-L.CFG.IP		.DA CFG.IP
-L.CFG.HOSTS.SScanF	.DA CFG.HOSTS.SScanF
-L.CFG.Keywords	.DA CFG.Keywords
-J.CFG.Keywords	.DA CFG.Read.address
-				.DA CFG.Read.netmask
-				.DA CFG.Read.gateway
-				.DA CFG.Read.nameserver
-				.DA CFG.Read.dnsdomain
 L.ARP.REQ		.DA ARP.REQ
 L.ARP.REP		.DA ARP.REP
 L.SA.LOCAL		.DA SA.LOCAL
@@ -170,16 +162,13 @@ L.MSG.SKT.Dump	.DA MSG.SKT.Dump
 *--------------------------------------
 LIB.LOAD		ldx RefCount
 				bne .8
+
 				sta FD.DSOCK+S.FD.DSOCK.IOHANDLER
 				sta FD.SSOCK+S.FD.SSOCK.IOHANDLER
-				
+
 				jsr ARP.CLEAR
-				
 				jsr DNS.CLEAR
 						
-				jsr CFG.Init
-				bcs .9
-
 .8				inc RefCount
 
 				clc
@@ -188,28 +177,18 @@ LIB.LOAD		ldx RefCount
 LIB.UNLOAD		dec RefCount
 				bne LIB.UNLOAD.8
 				
-				lda IPCFG+S.IPCFG.hFD
+				lda IPCFG+S.IPCFG.DevID
 				beq LIB.UNLOAD.8
 				
 				>PUSHWI 0
 				>PUSHBI IOCTL.CLOSE
-				lda IPCFG+S.IPCFG.hFD
+				lda IPCFG+S.IPCFG.DevID
 				>SYSCALL IOCTL
 						
 LIB.UNLOAD.8	clc
 				rts
 *--------------------------------------
-POLL			lda IPCFG+S.IPCFG.hFD
+INCOMING		sta hFrameIn
-				beq .99
-				
-				pha
-				>PUSHW L.IOCTL
-				>PUSHBI IOCTL.READ
-				pla
-				>SYSCALL IOCTL
-				bcs .99					No Frame
-				
-				sta hFrameIn
 				ldx #3
 				
 .10				lda IOCTL+S.IOCTL.BUFPTR,x		Get Frame Ptr & Len

SBIN/NETWORKD.S.txt

@@ -77,10 +77,10 @@ CS.RUN			>PUSHBI 0
 				>LDYA L.MSG.DEV.OK
 				>SYSCALL printf
 				
-*				>LDYA L.LIBTCPIP
+				>LDYA L.LIBTCPIP
-*				>SYSCALL LoadLib
+				>SYSCALL LoadLib
-*				bcs .2
+				bcs .2
-*				sta hLIBTCPIP
+				sta hLIBTCPIP
 
 .2				>LDYA L.LIBETALK
 				>SYSCALL LoadLib
@@ -101,11 +101,11 @@ CS.RUN.LOOP		>SLEEP
 				ldx hLIBTCPIP
 				beq .1
 				
-*				>PUSHW L.IOCTL
+				>PUSHW L.IOCTL
-*				lda hFrameIn
+				lda hFrameIn
 				
-*				>LIBCALL hLIBTCPIP,LIBTCPIP.INCOMING
+				>LIBCALL hLIBTCPIP,LIBTCPIP.INCOMING
-*				bcc CS.RUN.LOOP
+				bcc CS.RUN.LOOP
 				
 .1				ldx hLIBETALK
 				beq .9
@@ -125,7 +125,7 @@ CS.DOEVENT		lda (pEvent)
 				
 				ldx hLIBTCPIP
 				beq .1
-*				>LIBCALL hLIBTCPIP,LIBTCPIP.PULSE
+				>LIBCALL hLIBTCPIP,LIBTCPIP.PULSE
 				
 .1				ldx hLIBETALK
 				beq .9
@@ -158,7 +158,7 @@ CS.END
 DEVNAME			.AZ "/DEV/ETH1"
 MSG.DEV.KO		.AZ "No Device Found, exiting."
 MSG.DEV.OK		.AZ "Bound To Device : %s\r\n"
-LIBTCPIP		.AZ "libtcpip"
+LIBTCPIP		.AZ "libtcpip2"
 LIBETALK		.AZ "libetalk"
 hFD				.BS 1
 hLIBTCPIP		.BS 1