dns_resolver:		;DE-domain name
	ld a,3
	ld (dns_err_count),a
dns_err_loop
	;push de
	ld hl,dns_head
	ld de,dnsbuf
	ld bc,6
	ldir
...
...
dns_exiterr:
	pop af
	;ld a,(errno)
	push af
	LD	a,(soc1)
	LD	E,0
	OS_NETSHUTDOWN
	pop af
	ld a,(dns_err_count)
	dec a
	ld (dns_err_count),a
	jr nz,dns_err_loop
	ld hl,0
	ret
dns_head
	defb 0x11,0x22,0x01,0x00,0x00,0x01
dns_ia:
	defb 0,0,53,8,8,8,8
dns_err_count
	defb 0