A2osX/LIB/LIBTCPIP.S.HST.txt

PR#3
PREFIX /A2OSX.BUILD
LOMEM $A00
INC 1
AUTO 6
				.LIST OFF	
*--------------------------------------
HST.GetByName	>PULLW ZPPtrDNS
				>PULLW ZPPtrIP
				
				jsr HST.ScanIP
				bcc .9
				jmp DNS.QUERY.I
.9				rts
*--------------------------------------
HST.GetByAddr	>PULLW ZPPtrIP
				>PULLW ZPPtrDNS
				
				
				sec
				rts
*--------------------------------------
HST.ScanIP		stz HST.IP
				
				lda (ZPPtrDNS)
				beq .9
				
				ldy #0
				
.1				ldx #0
				stx HST.DecStr
				
.2				tya
				cmp (ZPPtrDNS)
				beq .4
				
				iny
				lda (ZPPtrDNS),y
				cmp #'.'
				beq .3
				
				cmp #'0'
				bcc .9
				cmp #'9'+1
				bcs .9
				cpx #3
				beq .9
				inx
				sta HST.DecStr,x
				bra .2
				
.3				stx HST.DecStr
				phy
				jsr HST.Dec2Hex
				ply
				bcc .1
				rts
				
.4				txa
				beq .5
				
				stx HST.DecStr
				jsr HST.Dec2Hex
				bcs .9
				
.5				ldx HST.IP
				cpx #4
				bne .9
				
				ldy #3
.6				lda HST.IP,x
				sta (ZPPtrIP),y
				dex
				dey
				bpl .6
				clc
				rts
				
.9				sec
				rts
*--------------------------------------
HST.Dec2Hex		ldy HST.DecStr
				beq .9
				
				ldx HST.IP
				cpx #4
				beq .9
				inx
				
				lda HST.DecStr+1
				and #$0f
				sta HST.IP,x
				
				ldy #1
				
.1				cpy HST.DecStr
				beq .8
				iny
				lda HST.IP,x
				asl HST.IP,x
				bcs .9
				asl HST.IP,x
				bcs .9
				adc HST.IP,x
				bcs .9
				asl
				bcs .9
				sta HST.IP,x
				lda HST.DecStr,y
				and #$0f
				adc HST.IP,x
				sta HST.IP,x
				bcc .1
.9				sec
				rts
				
.8				stx HST.IP
				clc
				rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/LIB/LIBTCPIP.S.HST
LOAD /A2OSX.SRC/LIB/LIBTCPIP.S
ASM
-												LIBTCPIP:Started implementing Socket API
											
										
										
											2016-03-13 22:09:00 +00:00
+								PR#3
-												Kernel version 0.9 : MEDIA reorganisation
											
										
										
											2017-03-29 15:48:15 +00:00
+								PREFIX /A2OSX.BUILD
-												Kernel version 0.9 : BLOCK DEVICES, extended S.DEV struct to store ROM entry point,BUS/DEV....moved the whole code to 16 Bytes S.DEV (Max 32 devices)
											
										
										
											2017-03-15 16:44:15 +00:00
+								LOMEM $A00
-												LIBTCPIP:Started implementing Socket API
											
										
										
											2016-03-13 22:09:00 +00:00
+								INC 1
 								AUTO 6
 												.LIST OFF
 								*--------------------------------------
-												Kernel version 0.9 : TCP/IP API Cleanup
											
										
										
											2017-02-15 16:14:41 +00:00
+								HST.GetByName	>PULLW ZPPtrDNS
-												LIBTCPIP:Started implementing Socket API
											
										
										
											2016-03-13 22:09:00 +00:00
+												>PULLW ZPPtrIP
-												Kernel version 0.9 : TCP, added FRAME DUMP to solve the missing ACK problem
											
										
										
											2017-03-16 07:32:24 +00:00
-												LIBTCPIP:Started implementing Socket API
											
										
										
											2016-03-13 22:09:00 +00:00
+												jsr HST.ScanIP
-												LIBTCPIP:Cache expiration, retry count....
											
										
										
											2016-03-20 22:16:01 +00:00
+												bcc .9
 												jmp DNS.QUERY.I
-												LIBTCPIP:Started implementing Socket API
											
										
										
											2016-03-13 22:09:00 +00:00
+								.9				rts
 								*--------------------------------------
-												Kernel version 0.9 : TCP/IP API Cleanup
											
										
										
											2017-02-15 16:14:41 +00:00
+								HST.GetByAddr	>PULLW ZPPtrIP
-												LIBTCPIP:Started implementing Socket API
											
										
										
											2016-03-13 22:09:00 +00:00
+												>PULLW ZPPtrDNS
 												sec
 												rts
 								*--------------------------------------
 								HST.ScanIP		stz HST.IP
 												lda (ZPPtrDNS)
 												beq .9
 												ldy #0
 								.1				ldx #0
 												stx HST.DecStr
 								.2				tya
 												cmp (ZPPtrDNS)
 												beq .4
 												iny
 												lda (ZPPtrDNS),y
 												cmp #'.'
 												beq .3
 												cmp #'0'
 												bcc .9
 												cmp #'9'+1
 												bcs .9
 												cpx #3
 												beq .9
 												inx
 												sta HST.DecStr,x
 												bra .2
 								.3				stx HST.DecStr
 												phy
 												jsr HST.Dec2Hex
 												ply
 												bcc .1
 												rts
 								.4				txa
 												beq .5
 												stx HST.DecStr
 												jsr HST.Dec2Hex
 												bcs .9
 								.5				ldx HST.IP
 												cpx #4
 												bne .9
 												ldy #3
 								.6				lda HST.IP,x
 												sta (ZPPtrIP),y
 												dex
 												dey
 												bpl .6
 												clc
 												rts
 								.9				sec
 												rts
 								*--------------------------------------
 								HST.Dec2Hex		ldy HST.DecStr
 												beq .9
 												ldx HST.IP
 												cpx #4
 												beq .9
 												inx
 												lda HST.DecStr+1
 												and #$0f
 												sta HST.IP,x
 												ldy #1
 								.1				cpy HST.DecStr
 												beq .8
 												iny
 												lda HST.IP,x
 												asl HST.IP,x
 												bcs .9
 												asl HST.IP,x
 												bcs .9
 												adc HST.IP,x
 												bcs .9
 												asl
 												bcs .9
 												sta HST.IP,x
 												lda HST.DecStr,y
 												and #$0f
 												adc HST.IP,x
 												sta HST.IP,x
 												bcc .1
 								.9				sec
 												rts
 								.8				stx HST.IP
 												clc
 												rts
 								*--------------------------------------
 								MAN
-												Kernel version 0.9 : MEDIA reorganisation #2
											
										
										
											2017-03-30 06:31:12 +00:00
+								SAVE /A2OSX.SRC/LIB/LIBTCPIP.S.HST
 								LOAD /A2OSX.SRC/LIB/LIBTCPIP.S
-												LIBTCPIP:Started implementing Socket API
											
										
										
											2016-03-13 22:09:00 +00:00
+								ASM