NEW
PREFIX /A2OSX.BUILD
AUTO 4,1
				.LIST OFF	
*--------------------------------------
HST.GetByName	>PULLW ZPPtrDNS
				>PULLW ZPPtrIP
				
				ldx #3
				
.1				txa
				clc
				adc ZPPtrIP
				tay
				lda ZPPtrIP+1
				adc #0
				>PUSHYA					@IP[3][2][1][0]

				dex
				bpl .1
				
				>PUSHBI 8				4 PTRs on stack
				>PUSHW L.HST.SScanF			
				>LDYA ZPPtrDNS

				>SYSCALL SScanF
				bcc .9
				jmp DNS.QUERY.I
.9				rts
*--------------------------------------
HST.GetByAddr	>PULLW ZPPtrIP
				>PULLW ZPPtrDNS
				
				
				sec
				rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/LIB/LIBTCPIP.S.HST
LOAD /A2OSX.SRC/LIB/LIBTCPIP.S
ASM