; restest.asm -- socket() then the resolver tftp_open uses.
;
;   socket   = 3F5C9A00h   socket(2,2,0) -> fd
;   resolve  = 3F5933D0h   resolve("192.168.99.1") -> -1 or address
;
; Evidence cells (32-bit, bit addresses):
;   01875800  stage (1 entered, 2 socket returned, 3 resolve returned)
;   01875820  socket() fd
;   01875840  resolver return
;   01875A00  entry SP
;   01875A20  entry A14

	.text
_start:
	setf	16, 0, 0
	setf	32, 0, 1
	mmtm	sp, a0,a1,a2,a3,a4,a5,a6,a7
	move	sp, @01875A00h, 1
	move	a14, @01875A20h, 1

	movi	1, a0, L
	move	a0, @01875800h, 1

	; socket(2,2,0)
	movi	01875900h, a14, L
	movi	0, a0, L
	move	a0, *a14+, 1
	movi	2, a0, L
	move	a0, *a14+, 1
	movi	2, a0, L
	move	a0, *a14+, 1
	calla	3F5C9A00h
	move	@01875A00h, sp, 1
	move	@01875A20h, a14, 1
	setf	16, 0, 0
	setf	32, 0, 1
	move	a8, @01875820h, 1	; fd
	move	a8, a9

	movi	2, a0, L
	move	a0, @01875800h, 1

	; resolve("192.168.99.1")
	movi	01875900h, a14, L
	movi	HOST, a0, L
	move	a0, *a14+, 1
	calla	3F5933D0h
	move	@01875A00h, sp, 1
	move	@01875A20h, a14, 1
	setf	16, 0, 0
	setf	32, 0, 1
	move	a8, @01875840h, 1

	movi	3, a0, L
	move	a0, @01875800h, 1
	mmfm	sp, a0,a1,a2,a3,a4,a5,a6,a7
	movi	0, a8, L
	rets

HOST:
	.word	03931h
	.word	02E32h
	.word	03631h
	.word	02E38h
	.word	03939h
	.word	0312Eh
	.word	00000h
	.end