NEW
  AUTO 3,1
*--------------------------------------
HST.GetByName	>PULLW ZPPtrDNS
				>PULLW ZPPtrIP

				>PUSHW ZPPtrDNS
				>PUSHW L.HST.SScanF

				ldx #0

.1				txa
				clc
				adc ZPPtrIP
				pha
				lda ZPPtrIP+1
				adc #0
				>PUSHA
				pla
				>PUSHA					@IP[0][1][2][3]

				inx
				cpx #4
				bne .1

				>PUSHBI 8				4 PTRs on stack

				>SYSCALL2 SScanF
				bcc .9
				jmp DNS.QUERY.I
.9				rts
*--------------------------------------
HST.GetByAddr	>PULLW ZPPtrIP			TODO
				>PULLW ZPPtrDNS
				sec
				rts
*--------------------------------------
MAN
SAVE usr/src/lib/libtcpip.s.hst
LOAD usr/src/lib/libtcpip.s
ASM