A2osX/LIB/LIBTCPIP.S.CFG.txt

NEW
PREFIX /A2OSX.BUILD
AUTO 4,1
				.LIST OFF	
*--------------------------------------
*  PULLW = PTR to S.IPCFG
*--------------------------------------
SET.IPCFG		>PULLW ZPTmpPtr1		IPCFG

				>LDYA L.DCB.NIC
				>STYA IOCTL+S.IOCTL.BUFPTR
				lda #S.IOCTL.STATCODE.GETDCB
				sta IOCTL+S.IOCTL.STATCODE
				
				ldx #IOCTL.STATUS
				jsr SET.IPCFG.IOCTL
				
				ldy #0
				
.1				lda (ZPTmpPtr1),y
				sta IPCFG,y
				iny
				cpy #S.IPCFG
				bne .1
				
				ldx #5
				
.2				lda DCB.NIC+S.DCB.NIC.MAC,x
				sta IPCFG+S.IPCFG.MAC,x
				sta ARP.REQ.SRCMAC,x
				sta ARP.REQ.SHA,x
				sta ARP.REP.SRCMAC,x
				sta ARP.REP.SHA,x
				dex
				bpl .2
				
				ldx #3
				
.3				lda IPCFG+S.IPCFG.IP,x
				sta ARP.REQ.SPA,x
				sta ARP.REP.SPA,x
				sta DNS.SOCKET.SA,x
				dex
				bpl .3
				
				lda DCB.NIC+S.DCB.NIC.FLAGS
				and #S.DCB.NIC.FLAGS.ARPOFFLOAD
				beq .4
				
				ldx #11
				
.31				lda IPCFG+S.IPCFG.IP,x
				sta DCB.NIC+S.DCB.NIC.IP,x
				dex
				bpl .31
				
*				lda S.IOCTL.CTRLCODE.SETDCB		same as lda S.IOCTL.STATCODE.GETDCB
*				sta S.IOCTL.CTRLCODE			same as sta S.IOCTL.STATCODE

				ldx #IOCTL.CONTROL
				jsr SET.IPCFG.IOCTL
				
.4				lda hDNSSocket1
				beq .41
				jsr SKT.Close
				stz hDNSSocket1
				
.41				lda hDNSSocket2
				beq .42
				jsr SKT.Close
				stz hDNSSocket2
				
.42				lda IPCFG+S.IPCFG.DNS1
				beq .6
				
				ldx #3
				
.5				lda IPCFG+S.IPCFG.DNS1,x
				sta DNS.SOCKET.DA,x
				dex
				bpl .5
				
				stz DNS.SOCKET.SP
				stz DNS.SOCKET.SP+1

				>PUSHW L.DNS.SOCKET
				jsr SKT.New
				bcs .9

				stx hDNSSocket1
				
.6				lda IPCFG+S.IPCFG.DNS2
				beq .8
				
				ldx #3
				
.7				lda IPCFG+S.IPCFG.DNS2,x
				sta DNS.SOCKET.DA,x
				dex
				bpl .7
				
				stz DNS.SOCKET.SP
				stz DNS.SOCKET.SP+1

				>PUSHW L.DNS.SOCKET
				jsr SKT.New
				bcs .9
			
				stx hDNSSocket2
				
.8				clc
.9				rts

SET.IPCFG.IOCTL	>PUSHW L.IOCTL
				txa
				>PUSHA
				lda IPCFG+S.IPCFG.HDEV
				>SYSCALL IOCTL
				rts
*--------------------------------------
* grab a copy on the fly for lib function
* OUT :
*  Y,A = PTR to S.IPCFG
*--------------------------------------
GET.IPCFG		>LDYA L.IPCFG
				clc
				rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/LIB/LIBTCPIP.S.CFG
LOAD /A2OSX.SRC/LIB/LIBTCPIP.S
ASM
-												Kernel 0.9.1 : Move To S-C MASM 3.0
											
										
										
											2017-12-22 21:24:30 +00:00
+								NEW
-												Kernel version 0.9 : MEDIA reorganisation
											
										
										
											2017-03-29 15:48:15 +00:00
+								PREFIX /A2OSX.BUILD
-												Kernel 0.9.1 : Move To S-C MASM 3.0
											
										
										
											2017-12-22 21:24:30 +00:00
+								AUTO 4,1
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+												.LIST OFF
 								*--------------------------------------
 								*  PULLW = PTR to S.IPCFG
 								*--------------------------------------
-												Kernel 0.9.2
											
										
										
											2018-07-23 15:28:42 +00:00
+								SET.IPCFG		>PULLW ZPTmpPtr1		IPCFG
 												>LDYA L.DCB.NIC
 												>STYA IOCTL+S.IOCTL.BUFPTR
-												Kernel 0.9.2
											
										
										
											2018-07-26 06:03:49 +00:00
+												lda #S.IOCTL.STATCODE.GETDCB
 												sta IOCTL+S.IOCTL.STATCODE
-												Kernel 0.9.2
											
										
										
											2018-07-23 15:28:42 +00:00
 												ldx #IOCTL.STATUS
 												jsr SET.IPCFG.IOCTL
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+												ldy #0
-												Kernel version 0.9 : TCP & SKT, bugfix and optimization in TCP.OUT
											
										
										
											2017-03-23 16:41:36 +00:00
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+								.1				lda (ZPTmpPtr1),y
 												sta IPCFG,y
 												iny
 												cpy #S.IPCFG
 												bne .1
 												ldx #5
-												Kernel version 0.9 : TCP & SKT, bugfix and optimization in TCP.OUT
											
										
										
											2017-03-23 16:41:36 +00:00
-												Kernel 0.9.2
											
										
										
											2018-07-23 15:28:42 +00:00
+								.2				lda DCB.NIC+S.DCB.NIC.MAC,x
 												sta IPCFG+S.IPCFG.MAC,x
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+												sta ARP.REQ.SRCMAC,x
 												sta ARP.REQ.SHA,x
 												sta ARP.REP.SRCMAC,x
 												sta ARP.REP.SHA,x
 												dex
 												bpl .2
 												ldx #3
-												Kernel version 0.9 : TCP & SKT, bugfix and optimization in TCP.OUT
											
										
										
											2017-03-23 16:41:36 +00:00
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+								.3				lda IPCFG+S.IPCFG.IP,x
 												sta ARP.REQ.SPA,x
 												sta ARP.REP.SPA,x
 												sta DNS.SOCKET.SA,x
 												dex
 												bpl .3
-												Kernel 0.9.2
											
										
										
											2018-07-23 06:28:47 +00:00
 												lda DCB.NIC+S.DCB.NIC.FLAGS
 												and #S.DCB.NIC.FLAGS.ARPOFFLOAD
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+												beq .4
-												Kernel 0.9.2
											
										
										
											2018-07-23 06:28:47 +00:00
+												ldx #11
 								.31				lda IPCFG+S.IPCFG.IP,x
 												sta DCB.NIC+S.DCB.NIC.IP,x
 												dex
 												bpl .31
 								*				lda S.IOCTL.CTRLCODE.SETDCB		same as lda S.IOCTL.STATCODE.GETDCB
 								*				sta S.IOCTL.CTRLCODE			same as sta S.IOCTL.STATCODE
-												Kernel 0.9.2
											
										
										
											2018-07-23 15:28:42 +00:00
+												ldx #IOCTL.CONTROL
-												Kernel 0.9.2
											
										
										
											2018-07-23 06:28:47 +00:00
+												jsr SET.IPCFG.IOCTL
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
 								.4				lda hDNSSocket1
 												beq .41
-												Kernel 0.9.2
											
										
										
											2018-07-23 15:28:42 +00:00
+												jsr SKT.Close
-												Kernel version 0.9 : TCP & SKT, bugfix and optimization in TCP.OUT
											
										
										
											2017-03-23 16:41:36 +00:00
+												stz hDNSSocket1
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
 								.41				lda hDNSSocket2
 												beq .42
-												Kernel 0.9.2
											
										
										
											2018-07-23 15:28:42 +00:00
+												jsr SKT.Close
-												Kernel version 0.9 : TCP & SKT, bugfix and optimization in TCP.OUT
											
										
										
											2017-03-23 16:41:36 +00:00
+												stz hDNSSocket2
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
 								.42				lda IPCFG+S.IPCFG.DNS1
 												beq .6
 												ldx #3
-												Kernel version 0.9 : TCP & SKT, bugfix and optimization in TCP.OUT
											
										
										
											2017-03-23 16:41:36 +00:00
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+								.5				lda IPCFG+S.IPCFG.DNS1,x
 												sta DNS.SOCKET.DA,x
 												dex
 												bpl .5
-												Kernel version 0.9 : Bug Fix in UDP/SKT
											
										
										
											2017-01-30 22:23:16 +00:00
+												stz DNS.SOCKET.SP
 												stz DNS.SOCKET.SP+1
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+												>PUSHW L.DNS.SOCKET
-												Kernel version 0.9 : TCP & Sockets, bugfix session #1
											
										
										
											2017-02-15 21:46:21 +00:00
+												jsr SKT.New
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+												bcs .9
 												stx hDNSSocket1
 								.6				lda IPCFG+S.IPCFG.DNS2
 												beq .8
 												ldx #3
-												Kernel version 0.9 : TCP & SKT, bugfix and optimization in TCP.OUT
											
										
										
											2017-03-23 16:41:36 +00:00
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+								.7				lda IPCFG+S.IPCFG.DNS2,x
 												sta DNS.SOCKET.DA,x
 												dex
 												bpl .7
-												Kernel version 0.9 : Bug Fix in UDP/SKT
											
										
										
											2017-01-30 22:23:16 +00:00
+												stz DNS.SOCKET.SP
 												stz DNS.SOCKET.SP+1
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+												>PUSHW L.DNS.SOCKET
-												Kernel version 0.9 : TCP & Sockets, bugfix session #1
											
										
										
											2017-02-15 21:46:21 +00:00
+												jsr SKT.New
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+												bcs .9
 												stx hDNSSocket2
-												Kernel 0.9.2
											
										
										
											2018-07-26 06:03:49 +00:00
+								.8				clc
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+								.9				rts
-												Kernel 0.9.2
											
										
										
											2018-07-23 06:28:47 +00:00
 								SET.IPCFG.IOCTL	>PUSHW L.IOCTL
 												txa
 												>PUSHA
 												lda IPCFG+S.IPCFG.HDEV
 												>SYSCALL IOCTL
 												rts
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+								*--------------------------------------
 								* grab a copy on the fly for lib function
 								* OUT :
 								*  Y,A = PTR to S.IPCFG
 								*--------------------------------------
 								GET.IPCFG		>LDYA L.IPCFG
 												clc
 												rts
 								*--------------------------------------
 								MAN
-												Kernel version 0.9 : MEDIA reorganisation #2
											
										
										
											2017-03-30 06:31:12 +00:00
+								SAVE /A2OSX.SRC/LIB/LIBTCPIP.S.CFG
 								LOAD /A2OSX.SRC/LIB/LIBTCPIP.S
-												Kernel version 0.8 : Migration from LIBSTR/PStrOut to new Kernel Frintf
											
										
										
											2016-10-17 06:21:04 +00:00
+								ASM