iphsiz:
ippktip:
tcp_parser::

	push hl

tcp_next:
	jr c, tcp_sock_ok
tcp_end:
	jr nc, tcp_next


OK	pop hl
OK	jp ppp_discard


tcp_sock_ok:
	push hl 


	jr z,notfound_tcpip
	jp nz,notfound_tcpip
port_pass::
	pop hl
	pop hl
	jp ppp_discard



notfound_tcpip2:
	pop de
notfound_tcpip::
	pop hl
	jp tcp_end

conect_sock:
	push de
OK	jr nz,notfound_tcpip2
OK	jr nz, notfound_tcpip2 ;Po testoch na adr a porty. 
	pop hl

	pop hl
	pop hl	; masiar
	jp ppp_discard

