const
	dns_dserve=3200600147b; { address of isia--default nameserver}
	dns_port=53;	  { standard nameserver port }
	test_port=153;    { test nameserver port }

	{ JSYSs }
	gjinf_ = 13b;    {job info}
	gthsn_ = 3b;	 {translates host name to number}
	gthst_ = 273b;   {get host information}
	gthsz_ = 0;	 {get host address}
	sndin_ = 754b;   {send internet message}
	rcvin_ = 755b;   {receive internet message}
	asniq_ = 756b;   {get internet queue handle}
	reliq_ = 757b;   {release internet queue}
	riqnw_ = "20000; {no wait flag for rcvin_}

type
	{input/output buffer}
	buffer_type_pointer=^buffer_type;

   	buffer_type=packed record
			       rec_count:field18;     {received word count}
			       count:field18;         {word count}
			       version:field4;        {ip header}
			       ihl:field4;
			       tos:field8;
			       iplength:field16;
			       unused1:field4;
			       ident:field16;
			       flagrsvd:field1;
			       flagdf:field1;
			       flagmf:field1;
			       fragment:field13;
			       unused2:field4;
			       ttl:field8;
			       protocol:field8;
			       ipchecksum:field16;
			       unused3:field4;
			       sorc_adr:field32;
			       unused4:field4;
			       dest_adr:field32;
			       unused5:field4;       {end ip header}
			       sorc_port:field16;    {udp header}
			       dest_port:field16;
			       unused6:field4;
			       udplength:field16;
			       udpchecksum:field16;  {end udp}
			       unused7:field4;
			       data:pkt_type;
		   end;
 
        {queue descriptor block}
        iqprv_type=packed record
			      dummy:field24;
			      ptcl:octet;
			  end;

	iqptv_type=packed record
			      src_port:field16;
			      dst_port:field16;
			  end;

	iqprm_type=packed record    
			      dummy:field24;
			      ptcl:octet;
			  end;

	iqptm_type=packed record
			      src_port:field16;
			      dst_port:field16;
			  end;
	
	qdb_type=packed record
			    iqprv:iqprv_type;  { protocol }
			    iqfhv:field32;     { destination host }
			    iqshv:field32;     { source host }
			    iqptv:iqptv_type;  { source, destination port }
			    iqprm:iqprm_type;  { protocol mask }
			    iqfhm:field32;     { destination host mask }
			    iqshm:field32;     { source host mask }
			    iqptm:iqptm_type;  { source,destination port mask }
			end.

