; try to get a valid packet with the desired sequence number
getvp:	call	rpack
	mov	try,#1
nxttry:	mov	a,Seq
	cjne	a,N,L5040
	mov	a,Typ
	cjne	a,#'Q',L5090
L5040:	mov	dptr,#sndbuf
	call	sys_print
	call	rpack
	inc	try
	mov	a,try
	cjne	a,#5,nxttry
	mov	TYP,#'T'
L5090:	ret
;