/*  This filter will take a port number and IP address and create
    a UDP envelope around given datagram.
 
    Written by MMM 12/2/96
*/
trace o
arg Port Net1 '.' Net2 '.' Subnet '.' Device .
 
Timeout = x2c('00000010')   /* 16 seconds */
Flags = x2c('00000000')     /* Usually zeros */
Netadr_base = x2c('0002')   /* UDP */
Netadr_end = x2c('0000000000000000')  /* Always zeros */
Netadr_port = d2c(Port,2)
Netadr = Netadr_base||Netadr_port||d2c(Net1)||d2c(Net2) ,
         ||d2c(Subnet)||d2c(Device)||Netadr_end
 
do forever
   'readto Record'
   if(RC^=0) then leave
   UDP_rec = Timeout||Flags||Netadr||Record
   'output' UDP_rec
end;