NEW
  AUTO 3,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

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